home *** CD-ROM | disk | FTP | other *** search
/ Mega Magazine 3 / Mega_Magazine_03_1991___nl_Side_B.atr / expo2.arc / SOURCE1.SRC < prev    next >
Text File  |  1988-09-01  |  9KB  |  626 lines
  1. *#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#
  2. *#
  3. *# NOTE FOR MEGA MAGAZINE 2
  4. *#
  5. *# THIS IS THE SOURCE OF MY 1ST SCREEN
  6. *# OF THE EXPO DEMO II.  IT IS QUITE
  7. *# LAME (?) BUT NOT BAD IF I MAY SAY
  8. *# MYSELF (?)  I WON'T GIVE ANY INFO
  9. *# ABOUT THIS SOURCE, BUT IF YOU HAVE
  10. *# SOME KNOWLEDGE ABOUT MACHINE CODE
  11. *# YOU PROBABLY WON'T HAVE ANY
  12. *# PROBLEMS WITH IT.  SUCCES !!!
  13. *#
  14. *# - THE GATEKEEPER - OKT. 1991 -
  15. *#
  16. *# well, ok. just a small hint, with
  17. *# MAX you can define the nr. of
  18. *# Z rows... but watch out for other
  19. *# parameters to be changed !!!
  20. *#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#
  21.  
  22.  
  23. * 2D STARFIELD
  24. *
  25. * BY THE GATEKEEPER (C)1991
  26. *
  27. * FOR POKEY'S EXPO DEMO II
  28.  
  29.     ORG $2000
  30.  
  31. MUS1    EQU $6D00  EYE
  32. MUS2    EQU $4B00  FIRST
  33. MUS3    EQU $7900  MORE
  34. MUS4    EQU $8800  EXPO1
  35. MUS5    EQU $9B20  WAVBAR
  36. MUS6    EQU $A800  POKPROM
  37. MUS7    EQU $3B00  FLYLOG
  38. MUS8    EQU $6000  FINAL
  39.  
  40. MAX    EQU 4
  41.  
  42.     LDA #DL
  43.     STA 560
  44.     LDA #DL:H
  45.     STA 561
  46.  
  47.     LDA #$01
  48.     STA $D00F
  49.     STA $D010
  50.     LDA #$FF
  51.     STA $D00D
  52.     STA $D00E
  53.  
  54.     LDA #$28
  55.     STA $D000
  56.     LDA #$D0
  57.     STA $D001
  58.  
  59.     LDA #$40
  60.     STA $026F
  61.     LDA #$00
  62.     STA $02C0
  63.     STA $02C1
  64.     STA $02C2
  65.     STA $02C3
  66.     STA $02C4
  67.  
  68.     SEI
  69.     LDA #DLI2
  70.     STA 512
  71.     LDA #DLI2:H
  72.     STA 513
  73.     LDA #$C0
  74.     STA $D40E
  75.     CLI
  76.  
  77.     LDY #0
  78. LUS2    LDA $D20A
  79.     STA XPOS,Y
  80.     INY
  81.     CPY #230
  82.     BNE LUS2
  83.  
  84.     LDY #VBI
  85.     LDX #VBI:H
  86.     LDA #$06
  87.     JSR $E45C
  88.  
  89. * KEY CHECK
  90.  
  91. KEYCHK    LDA $D20F
  92.     AND #%00000100
  93.     CMP #4
  94.     BNE KEYP
  95.  
  96.     JMP KEYCHK
  97.  
  98. KEYP    LDA $D209
  99.     CMP #$1F
  100.     BEQ KEY1
  101.     CMP #$1E
  102.     BEQ KEY2
  103.     CMP #$1A
  104.     BEQ KEY3
  105.     CMP #$18
  106.     BEQ KEY4
  107.     CMP #$1D
  108.     BEQ KEY5
  109.     CMP #$1B
  110.     BEQ KEY6
  111.     CMP #$33
  112.     BEQ KEY7
  113.     CMP #$35
  114.     BEQ KEY8J
  115.  
  116.     JMP KEYCHK
  117.  
  118. KEY8J    JMP KEY8
  119.  
  120. KEY1    LDA #$01
  121.     CMP CUR
  122.     BEQ KEYCHK
  123.     STA CUR
  124.  
  125.     JSR CUROFF
  126.     JSR MUS1
  127.     JMP KEYCHK
  128.  
  129. KEY2    LDA #$02
  130.     CMP CUR
  131.     BEQ KEYCHK
  132.     STA CUR
  133.  
  134.     JSR CUROFF
  135.     JSR MUS2
  136.     JMP KEYCHK
  137.  
  138. KEY3    LDA #$03
  139.     CMP CUR
  140.     BEQ KEYCHK
  141.     STA CUR
  142.  
  143.     JSR CUROFF
  144.     JSR MUS3
  145.     JMP KEYCHK
  146.  
  147. KEY4    LDA #$04
  148.     CMP CUR
  149.     BEQ KEYCHK
  150.     STA CUR
  151.  
  152.     JSR CUROFF
  153.     JSR MUS4
  154.     JMP KEYCHK
  155.  
  156. KEYCHK2    JMP KEYCHK
  157.  
  158. KEY5    LDA #$05
  159.     CMP CUR
  160.     BEQ KEYCHK2
  161.     STA CUR
  162.  
  163.     JSR CUROFF
  164.     JSR MUS5
  165.     JMP KEYCHK
  166.  
  167. KEY6    LDA #$06
  168.     CMP CUR
  169.     BEQ KEYCHK2
  170.     STA CUR
  171.  
  172.     JSR CUROFF
  173.     JSR MUS6
  174.     JMP KEYCHK
  175.  
  176. KEY7    LDA #$07
  177.     CMP CUR
  178.     BEQ KEYCHK2
  179.     STA CUR
  180.  
  181.     JSR CUROFF
  182.     JSR MUS7
  183.     JMP KEYCHK
  184.  
  185. KEY8    LDA #$08
  186.     CMP CUR
  187.     BEQ KEYCHK2
  188.     STA CUR
  189.  
  190.     JSR CUROFF
  191.     JSR MUS8
  192.     JMP KEYCHK
  193.  
  194. CUR    DFB 0
  195.  
  196. CUROFF    LDY #$62
  197.     LDX #$E4
  198.     LDA #$07
  199.     JMP $E45C
  200.  
  201. DL    DFB 112
  202.     DFB 64+15
  203.     DFW LINE
  204.     DFB 15,15,15,15,15,15,15
  205.     DFB 15,15,15,15,15,15,15,15
  206.  
  207.     DFB 128
  208.     DFB 112
  209.     DFB 64+6
  210.     DFW TXT
  211.     DFB 7,6,6,6,6,6,6,6,6,6,6
  212.     DFB 6,6,6
  213.     DFB 112
  214.  
  215.     DFB 64+15
  216.     DFW LINE
  217.     DFB 15,15,15,15,15,15,15
  218.     DFB 15,15,15,15,15,15,15,15
  219.  
  220.     DFB 128
  221.     DFB 48
  222.     DFB 64+7+16
  223. SCR1    DFW SCRTXT
  224.     DFB 64+7+16
  225. SCR2    DFW SCRTXT
  226.     DFB 48
  227.  
  228.     DFB 65
  229.     DFW DL
  230.  
  231. LINE    DFW 0,0,0,0,0,0,0,0,0,0
  232.     DFW 0,0,0,0,0,0,0,0,0,0
  233.  
  234.     DFW $2222,$2222,$2222,$2222
  235.     DFW $2222,$2222,$2222,$2222
  236.     DFW $2222,$2222,$2222,$2222
  237.     DFW $2222,$2222,$2222,$2222
  238.     DFW $2222,$2222,$2222,$2222
  239.  
  240.     DFW $4444,$4444,$4444,$4444
  241.     DFW $4444,$4444,$4444,$4444
  242.     DFW $4444,$4444,$4444,$4444
  243.     DFW $4444,$4444,$4444,$4444
  244.     DFW $4444,$4444,$4444,$4444
  245.  
  246.     DFW $6666,$6666,$6666,$6666
  247.     DFW $6666,$6666,$6666,$6666
  248.     DFW $6666,$6666,$6666,$6666
  249.     DFW $6666,$6666,$6666,$6666
  250.     DFW $6666,$6666,$6666,$6666
  251.  
  252.     DFW $8888,$8888,$8888,$8888
  253.     DFW $8888,$8888,$8888,$8888
  254.     DFW $8888,$8888,$8888,$8888
  255.     DFW $8888,$8888,$8888,$8888
  256.     DFW $8888,$8888,$8888,$8888
  257.  
  258.     DFW $AAAA,$AAAA,$AAAA,$AAAA
  259.     DFW $AAAA,$AAAA,$AAAA,$AAAA
  260.     DFW $AAAA,$AAAA,$AAAA,$AAAA
  261.     DFW $AAAA,$AAAA,$AAAA,$AAAA
  262.     DFW $AAAA,$AAAA,$AAAA,$AAAA
  263.  
  264.     DFW $CCCC,$CCCC,$CCCC,$CCCC
  265.     DFW $CCCC,$CCCC,$CCCC,$CCCC
  266.     DFW $CCCC,$CCCC,$CCCC,$CCCC
  267.     DFW $CCCC,$CCCC,$CCCC,$CCCC
  268.     DFW $CCCC,$CCCC,$CCCC,$CCCC
  269.  
  270.     DFW $EEEE,$EEEE,$EEEE,$EEEE
  271.     DFW $EEEE,$EEEE,$EEEE,$EEEE
  272.     DFW $EEEE,$EEEE,$EEEE,$EEEE
  273.     DFW $EEEE,$EEEE,$EEEE,$EEEE
  274.     DFW $EEEE,$EEEE,$EEEE,$EEEE
  275.  
  276.     DFW $EEEE,$EEEE,$EEEE,$EEEE
  277.     DFW $EEEE,$EEEE,$EEEE,$EEEE
  278.     DFW $EEEE,$EEEE,$EEEE,$EEEE
  279.     DFW $EEEE,$EEEE,$EEEE,$EEEE
  280.     DFW $EEEE,$EEEE,$EEEE,$EEEE
  281.     DFW $CCCC,$CCCC,$CCCC,$CCCC
  282.     DFW $CCCC,$CCCC,$CCCC,$CCCC
  283.     DFW $CCCC,$CCCC,$CCCC,$CCCC
  284.     DFW $CCCC,$CCCC,$CCCC,$CCCC
  285.     DFW $CCCC,$CCCC,$CCCC,$CCCC
  286.     DFW $AAAA,$AAAA,$AAAA,$AAAA
  287.     DFW $AAAA,$AAAA,$AAAA,$AAAA
  288.     DFW $AAAA,$AAAA,$AAAA,$AAAA
  289.     DFW $AAAA,$AAAA,$AAAA,$AAAA
  290.     DFW $AAAA,$AAAA,$AAAA,$AAAA
  291.     DFW $8888,$8888,$8888,$8888
  292.     DFW $8888,$8888,$8888,$8888
  293.     DFW $8888,$8888,$8888,$8888
  294.     DFW $8888,$8888,$8888,$8888
  295.     DFW $8888,$8888,$8888,$8888
  296.     DFW $6666,$6666,$6666,$6666
  297.     DFW $6666,$6666,$6666,$6666
  298.     DFW $6666,$6666,$6666,$6666
  299.     DFW $6666,$6666,$6666,$6666
  300.     DFW $6666,$6666,$6666,$6666
  301.     DFW $4444,$4444,$4444,$4444
  302.     DFW $4444,$4444,$4444,$4444
  303.     DFW $4444,$4444,$4444,$4444
  304.     DFW $4444,$4444,$4444,$4444
  305.     DFW $4444,$4444,$4444,$4444
  306.     DFW $2222,$2222,$2222,$2222
  307.     DFW $2222,$2222,$2222,$2222
  308.     DFW $2222,$2222,$2222,$2222
  309.     DFW $2222,$2222,$2222,$2222
  310.     DFW $2222,$2222,$2222,$2222
  311.     DFW 0,0,0,0,0,0,0,0,0,0
  312.     DFW 0,0,0,0,0,0,0,0,0,0
  313.  
  314. * GOT THE ABOVE TRICK ???
  315. * WHAT ?!? LAME YOU SAY ? NO, SMART !
  316.  
  317. TXT    ASC %  THE GATEKEEPER'S  %
  318.     ASC %     MUSIX MENU     %
  319.     ASC %                    %
  320.     ASC %                    %
  321.     ASC %1. EYE OF THE TIGER %
  322.     ASC %2. FIRST TIME DEMO  %
  323.     ASC %3. MORE 8-BIT POWER %
  324.     ASC %4. EXPO BEURS DEMO  %
  325.     ASC %5. WAVING BARS DEMO %
  326.     ASC %6. POKEY PROMOTION  %
  327.     ASC %7. FLYING LOGO DEMO %
  328.     ASC %8. FINAL COUNTDOWN  %
  329.     ASC %                    %
  330.     ASC %                    %
  331.     ASC %  MAKE YOUR CHOICE  %
  332.  
  333. XPOS    EQU $1E00
  334. COLS    EQU $1F00
  335.  
  336. DLI1    PHA
  337.     TXA
  338.     PHA
  339.     TYA
  340.     PHA
  341.  
  342.     LDY #0
  343.     STY $D01B
  344.     STA $D40A
  345.  
  346.     LDX PNT
  347.     LDA WAIT,X
  348.     TAX
  349. DISK    CPX #0
  350.     BEQ KAST
  351.     STX $D40A
  352.     DEX
  353.     JMP DISK
  354.  
  355. KAST    LDA BAR1,Y
  356.     STA $D01A
  357.     LDA BAR2,Y
  358.     STA $D016
  359.     STA $D40A
  360.  
  361.     INY
  362.     CPY #$10
  363.     BNE KAST
  364.  
  365.     LDY #0
  366.     STY $D01A
  367.     STY $D016
  368.  
  369.     LDA #DLI2
  370.     STA 512
  371.     LDA #DLI2:H
  372.     STA 513
  373.  
  374.     INC PNT
  375.     LDA PNT
  376.     CMP #$30
  377.     BNE NOZER
  378.  
  379.     STY PNT
  380.  
  381. NOZER    PLA
  382.     TAY
  383.     PLA
  384.     TAX
  385.     PLA
  386.     RTI
  387.  
  388. BAR1    DFB 0,2,4,6,8,10,12,14
  389.     DFB 14,12,10,8,6,4,2,0
  390.  
  391. BAR2    DFB $3E,$3C,$3A,$38
  392.     DFB $36,$34,$32,$30
  393.     DFB $30,$32,$34,$36
  394.     DFB $38,$3A,$3C,$3E
  395.  
  396. WAIT    DFB 0,1,2,3,4,5,6,7
  397.     DFB 8,9,10,11,12,13,14,15
  398.     DFB 16,17,18,19,20,21,22,23
  399.     DFB 23,22,21,20,19,18,17,16
  400.     DFB 15,14,13,12,11,10,9,8
  401.     DFB 7,6,5,4,3,2,1,0
  402.  
  403. PNT    DFB 0
  404.  
  405. DLI2    PHA
  406.     TXA
  407.     PHA
  408.     TYA
  409.     PHA
  410.  
  411.     LDY #2
  412.     STY $D01B
  413.  
  414. LUS    LDX XPOS,Y
  415.     LDA COLS,Y
  416.     STA $D40A
  417.     STX $D002
  418.     TAX
  419.     LDA COL,X
  420.     STA $D014
  421.     LDA COL2,Y
  422.     STA $D016
  423.  
  424.     INY
  425.     CPY #144
  426.     BNE LUS
  427.  
  428.     LDA #0
  429.     STA $D002
  430.     STA $D016
  431.  
  432.     LDA #$40
  433.     STA $D01B
  434.  
  435.     LDA #DLI1
  436.     STA 512
  437.     LDA #DLI1:H
  438.     STA 513
  439.  
  440.     PLA
  441.     TAY
  442.     PLA
  443.     TAX
  444.     PLA
  445.     RTI
  446.  
  447. ADD    DFB 0
  448.  
  449. VBI    LDY #1
  450.     STY ADD
  451.     DEY
  452.  
  453. LUS3    LDA XPOS,Y
  454.     CLC
  455.     ADC ADD
  456.     STA XPOS,Y
  457.  
  458.     LDA ADD
  459.     STA COLS,Y
  460.  
  461.     INC ADD
  462.     LDA ADD
  463.     CMP #MAX+1
  464.     BNE NOMAX
  465.  
  466.     LDA #1
  467.     STA ADD
  468.  
  469. NOMAX    INY
  470.     CPY #160
  471.     BNE LUS3
  472.  
  473.     LDA #DLI2
  474.     STA 512
  475.     LDA #DLI2:H
  476.     STA 513
  477.  
  478.     JSR SCROLL
  479.  
  480.     JMP $E45F
  481.  
  482. COL    DFB 0
  483. LAAG1    DFB 4
  484. LAAG2    DFB 8
  485. LAAG3    DFB 12
  486. LAAG4    DFB 15
  487. COL2    DFB 0,0,0,0,0,0,0,0
  488.     DFB 0,0
  489.  
  490.     DFB $00,$04,$08,$0C
  491.     DFB $0E,$0A,$06,$02
  492.  
  493.     DFB $30,$32,$34,$36
  494.     DFB $38,$0A,$0C,$0E
  495.     DFB $0E,$0C,$0A,$88
  496.     DFB $86,$84,$82,$80
  497.  
  498.     DFB 0,0,0,0,0,0,0,0
  499.     DFB 0,0,0,0,0,0,0,0
  500.  
  501.     DFB $02,$06,$0A,$0E
  502.     DFB $0E,$0A,$06,$02
  503.     DFB $22,$26,$2A,$2E
  504.     DFB $2E,$2A,$26,$22
  505.     DFB $42,$46,$4A,$4E
  506.     DFB $4E,$4A,$46,$42
  507.     DFB $62,$66,$6A,$6E
  508.     DFB $6E,$6A,$66,$62
  509.     DFB $82,$86,$8A,$8E
  510.     DFB $8E,$8A,$86,$82
  511.     DFB $A2,$A6,$AA,$AE
  512.     DFB $AE,$AA,$A6,$A2
  513.     DFB $C2,$C6,$CA,$CE
  514.     DFB $CE,$CA,$C6,$C2
  515.     DFB $E2,$E6,$EA,$EE
  516.     DFB $EE,$EA,$E6,$E2
  517.  
  518.     DFB $02,$06,$0A,$0E
  519.     DFB $0E,$0A,$06,$02
  520.     DFB $02,$06,$0A,$0E
  521.     DFB $0E,$0A,$06,$02
  522.     DFB $02,$06,$0A,$0E
  523.     DFB $0E,$0A,$06,$02
  524.     DFB $02,$06,$0A,$0E
  525.     DFB $0E,$0A,$06,$02
  526.  
  527. HORSHA    DFB 0
  528.  
  529. SCROLL    DEC HORSHA
  530.     LDA HORSHA
  531.     STA $D404
  532.     CMP #$FF
  533.     BNE NOCOUR
  534.  
  535.     LDA #$07
  536.     STA HORSHA
  537.     STA $D404
  538.  
  539.     INC SCR1
  540.     INC SCR2
  541.     BNE NOSCR1
  542.     INC SCR1+1
  543.     INC SCR2+1
  544.  
  545. NOSCR1    LDA SCR1
  546.     CMP #WRAP
  547.     BNE NOCOUR
  548.     LDA SCR1+1
  549.     CMP #WRAP:H
  550.     BNE NOCOUR
  551.  
  552.     LDA #SCRTXT
  553.     STA SCR1
  554.     STA SCR2
  555.     LDA #SCRTXT:H
  556.     STA SCR1+1
  557.     STA SCR2+1
  558.  
  559. NOCOUR    RTS
  560.  
  561.     ORG $B700
  562.  
  563. SCRTXT    ASC %                    %
  564.     ASC %        %
  565.     ASC %YO FREAKS !   DIT IS%
  566.     ASC % ALWEER EEN DEMO VAN%
  567.     ASC % THE GATEKEEPER ! DE%
  568.     ASC %ZE KEER HEB IK ALLE %
  569.     ASC %MUZIEKJES DIE IK OOI%
  570.     ASC %T IN EEN DEMO HEB GE%
  571.     ASC %BRUIKT BIJELKAAR IN %
  572.     ASC %EEN MENU GEZET. SLEC%
  573.     ASC %HTS EEN PAAR ONTBREK%
  574.     ASC %EN, WANT DIE MAKEN G%
  575.     ASC %EBRUIK VAN DIGI-DRUM%
  576.     ASC %S, EN DIE WERKEN NIE%
  577.     ASC %T MET ZOVEEL INTERRU%
  578.     ASC %PTS. VERDER HEB IK N%
  579.     ASC %OG WAT 'PREVIOUSLY U%
  580.     ASC %NRELEASED MATERIAL' %
  581.     ASC %WAARVAN THE FINAL CO%
  582.     ASC %UNTDOWN ER EEN IS.  %
  583.     ASC %  DE MUZIEKJES HIERB%
  584.     ASC %OVEN STAAN VAN OUD N%
  585.     ASC %AAR NIEUW GERANGSCHI%
  586.     ASC %KT. MAAK UW KEUZE DO%
  587.     ASC %OR OP DE DESBETREFFE%
  588.     ASC %NDE TOETS TE DRUKKEN%
  589.     ASC %.    O.K. NU VERDER %
  590.     ASC %MET DE GEBRUIKELIJKE%
  591.     ASC % GREETINGS !  GREETI%
  592.     ASC %NGS TO : FRANKENSTEI%
  593.     ASC %N , SOLAR-SYSTEMS , %
  594.     ASC %THE MISSING LINK , A%
  595.     ASC %LPHASYS , THE UNKNOW%
  596.     ASC %N BASE , SPIKE ( I B%
  597.     ASC %ET YOU DON'T UNDERST%
  598.     ASC %AND A FUCK OF ALL TH%
  599.     ASC %IS DUTCH, DO YA ?!? %
  600.     ASC %) , THE COMTECH CREW%
  601.     ASC % , BENJY , ABBUC , G%
  602.     ASC %NOME DESIGN , PETER %
  603.     ASC %SABATH ( TOLLE DEMO'%
  604.     ASC %S !!! ) AND AT LAST %
  605.     ASC %A GREAT THANK YOU TO%
  606.     ASC % : PRINCE AND THE NE%
  607.     ASC %W POWER GENERATION !%
  608.     ASC %  YOUR APPEARANCE AT%
  609.     ASC % THE MTV VIDEO MUSIC%
  610.     ASC % AWARDS WAS REALLY G%
  611.     ASC %REAT !!!   O.K. DIT %
  612.     ASC %WAS HET DAN ALWEER. %
  613.     ASC %IK WEET VERDER NIETS%
  614.     ASC % MEER TE VERTELLEN. %
  615.     ASC %ALS JE VRAGEN HEBT O%
  616.     ASC %F IETS ANDERS KWIJT %
  617.     ASC %WIL, ZAL IK WEL ERGE%
  618.     ASC %NS IN DE BUURT VAN D%
  619.     ASC %E POKEY STAND ZIJN. %
  620.     ASC %GREETINGS FROM THE G%
  621.     ASC %ATEKEEPER TO ALL ATA%
  622.     ASC %RI NUTS IN THIS MILK%
  623.     ASC %Y-WAY !!!%
  624. WRAP    ASC %                    %
  625.     ASC %        %
  626. ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯