home *** CD-ROM | disk | FTP | other *** search
/ ANG-Pokey Magazine 3 / ANG_Pokey_Magazine_03_1993_01_ANG_Software_nl_Side_B.atr / arcdocs.arc / SPLAY.SRC < prev    next >
Text File  |  1988-09-01  |  2KB  |  175 lines
  1. * EERSTE DEEL VAN HET TWEEDE DEEL!?
  2.  
  3. * PLAY SAMPLES..
  4.  
  5.     ORG $8900,$B900
  6.  
  7. PICTURE    EQU $9010
  8.  
  9. PIECES    EQU $7E00
  10. SEQUEN    EQU $7F00
  11. SEQEND    EQU $8900
  12.  
  13. SEQNR    EQU $F0        (AND $F1)
  14. SPLBEG    EQU $F2        (AND $F3)
  15. SPLEND    EQU $F4        (AND $F5)
  16. TIME    EQU $F6
  17.  
  18. AUDIO    EQU $D201
  19. IRQEN    EQU $D20E
  20. DMACTL    EQU $D400
  21. WSYNC    EQU $D40A
  22. NMIEN    EQU $D40E
  23.  
  24. INIT    LDA #50
  25.     STA TIMER
  26.     LDA #4
  27.     STA COLOR
  28.  
  29.     LDA #NMI
  30.     STA $FFFA
  31.     LDA #NMI/256
  32.     STA $FFFB
  33.  
  34.     LDA #DLI
  35.     STA $200
  36.     LDA #DLI/256
  37.     STA $201
  38.     LDA #$C0
  39.     STA $D40E
  40. PAUWAN    LDA TIMER
  41.     CMP #1
  42.     BNE PAUWAN
  43.  
  44. RUN    LDA #0
  45.     STA IRQEN
  46.  
  47.     STA TIME
  48.  
  49.     LDA #SEQUEN:L
  50.     STA SEQNR
  51.     LDA #SEQUEN:H
  52.     STA SEQNR+1
  53.  
  54.     LDY #0
  55.     LDA (SEQNR),Y
  56.  
  57. NIETNUL    TAX
  58.     LDA PIECES,X
  59.     STA SPLBEG+1
  60.     LDA PIECES+$20,X
  61.     STA SPLBEG
  62.     LDA PIECES+$10,X
  63.     STA SPLEND+1
  64.     LDA PIECES+$30,X
  65.     STA SPLEND
  66.  
  67.     INC SEQNR
  68.     BNE NOSEQ
  69.     INC SEQNR+1
  70. NOSEQ    LDA SEQNR+1
  71.     CMP #SEQEND:H
  72.     BNE DIZ
  73.     LDA #SEQUEN:H
  74.     STA SEQNR+1
  75.  
  76. DIZ    LDA #$8D
  77.     STA COMMAND
  78.  
  79. THENOT    LDA (SPLBEG),Y
  80.     AND #%00001111
  81.     JSR NOISE
  82.  
  83.     LDA (SPLBEG),Y
  84.     LSR
  85.     LSR
  86.     LSR
  87.     LSR
  88.     JSR NOISE
  89.  
  90.     INC TIME
  91.  
  92.     INC SPLBEG
  93.     BNE NSPLEND
  94.     INC SPLBEG+1
  95.  
  96. NSPLEND    LDA SPLBEG
  97.     CMP SPLEND
  98.     BNE NOWAY
  99.     LDA SPLBEG+1
  100.     CMP SPLEND+1
  101.     BNE NOWAY
  102.  
  103.     LDA #$AD
  104.     STA COMMAND
  105.  
  106. NOWAY    LDA TIME
  107.     CMP #$EA        ;TIME END
  108.     BNE THENOT
  109.  
  110.     LDA #0
  111.     STA TIME
  112.     LDA (SEQNR),Y
  113.     BNE NIETNUL
  114.  
  115.     INC SEQNR
  116.     BNE THENOT
  117.     INC SEQNR+1
  118.     JMP THENOT
  119.  
  120. NOISE    ORA #%00010000
  121.     STA WSYNC
  122.     STA WSYNC
  123. COMMAND    STA AUDIO
  124.     RTS
  125.  
  126. NMI    PHA
  127.  
  128.     BIT $D40F
  129.     BPL VBLANK
  130.     JMP ($200)
  131.  
  132. VBLANK    STA $D40F
  133.     LDA #DL:L
  134.     STA $D402
  135.     LDA #DL:H
  136.     STA $D403
  137.     LDA #34
  138.     STA $D400
  139.     LDA COLOR
  140.     CLC
  141.     STA $D016
  142.     ADC #2
  143.     STA $D017
  144.     ADC #4
  145.     STA $D018
  146.     DEC TIMER
  147.     BNE NIENU
  148.     LDA #50
  149.     STA TIMER
  150.     LDA COLOR
  151.     CLC
  152.     ADC #$10
  153.     STA COLOR
  154.  
  155. NIENU    PLA
  156. DLI    RTI
  157.  
  158. COLOR    DFB 4
  159. TIMER    DFB 0
  160.  
  161. DL    DFB 112,112
  162.     DFB 112,112,112,112
  163.     DFB 112,112,112,112
  164.     DFB $4E
  165.     DFW PICTURE
  166.     DFB 14,14,14,14,14,14,14
  167.     DFB 14,14,14,14,14,14,14,14
  168.     DFB 14,14,14,14,14,14,14,14
  169.     DFB 14,14,14,14,14,14,14,14
  170.     DFB 14,14,14,14,14,14,14,14
  171.     DFB 14,14,14,14,14,14,14,14
  172.     DFB 14,14,14,14,14,14,14,14
  173.     DFB 14,14,14,14,14,14,14,14
  174.     DFB $41
  175.     DFW DL¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯