home *** CD-ROM | disk | FTP | other *** search
/ Mega Magazine 5 / Mega_Magazine_05_19xx___nl_Side_B.atr / sampling.lzh / OVERPLAY.SRC < prev    next >
Text File  |  1988-09-01  |  3KB  |  120 lines
  1. *************************************
  2. *                                   *
  3. *         - SAMPLE PLAYER -         *
  4. *                                   *
  5. *  INCLUDES SINGULAR OVERSAMPLING!  *
  6. *  DONE BY FRANKENSTEIN AT 18-9-92  *
  7. *                                   *
  8. *************************************
  9.  
  10. * FIXED PAUSE OF TWO SCANLINES
  11.  
  12. ZP    EQU $F0        (AND $F1)
  13. END    EQU $F2        (AND $F3)
  14. SPLBYTE    EQU $F4
  15. OLDNIB    EQU $F5
  16.  
  17. TABLE    EQU $B000
  18.  
  19.     ORG $0600
  20.  
  21. *------------------------------------
  22. * PICK PARAMETERS FROM STACK
  23. *------------------------------------
  24.  
  25.     PLA    ; BASIC
  26.  
  27.     PLA    ; HI-BUF
  28.     STA ZP+1
  29.     PLA    ; LO-BUF
  30.     STA ZP
  31.  
  32.     PLA    ; HI-LEN
  33.     STA LEN+1
  34.     PLA    ; LO-LEN
  35.     STA LEN
  36.  
  37.     LDA ZP    ; CALC. END
  38.     CLC
  39.     ADC LEN
  40.     STA END
  41.     LDA ZPPPPP"                                       w∞EZ⇦sANE LOOP∞⑧5--BUF
  42.     STA ZP+1
  43.     PLE    ; LO-BUF
  44.     STA ZP
  45.  
  46.     PLA    ; HI-LEN
  47.     STEב 2 CEשפ*,b                               0TUOלFQ0TנX   ⑨BLE    EQU $B000
  48.  
  49.     ORG $0600
  50.  
  51. *--------CØPELq    L       O    --------.רαTA ZP+1
  52.     PLA    ; LO-BUF
  53.     STAó GS                                                        Xs0   
  54. 5πəPA    ; HI-LEN
  55.     STEב 2 CêזåYoəPA    RMOD-D-D-D-D-D-D-D-D-D-D-D-D-D-D-D-D-D-D-D   *
  56. *         - SAMPLE PLAYER -       I1ש].4∩                                   QTìQC®ƒ≥RF       LEד 
  57. Rw
  58. QA    ; HI2 CêזåECטI   שRA Y  DONL}ûϕâ*a LO ®ƒ≥RF       LEד 
  59. Rw
  60. NO≡N
  61.     STA END
  62.     LDA ZPPPPP"     Œ                            ß            M0 
  63. PLAYER -    ≥o@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@U@@@@@@@@@@@@@@@U@@@@@@@@@@@@@@@U@@@@@@@@@@@LלFQ
  64. R
  65.                                            êµ-S
  66.  LE PLAYER -       I1ש].4∩                                                         QTìQC®  əEI;N^
  67. OD-D-D-U 
  68.     SכT /                                   EAUE                 ²µÃ EZAUE שCCPHI2 CêזåECטI   שRA Y U
  69. @@@è*         ²µÃ EZAUE שCCPHI2O
  70. YPHI2O
  71. YPHI2O
  72. YPHI2O
  73. YPHI2O
  74. YP ≥éסL
  75. YPHI2O
  76. YPLEN
  77.  
  78.     LDA ZP    ; CALC. END
  79.     CLC
  80.     ADC ZMCO®                                                  bi.      tQ
  81. R
  82. ®°⓪נ. E*O-O
  83.     CLC
  84.     ADC ZMCRL     C@@@èB«F[   C                          ----------.ML
  85. ZP    EQU $F0        (AND $F1)
  86. END    EQU $F2    ¢Lâ0   
  87. 5πəPA    ; HI-LEN
  88.     STEב 2 Cêזש-Q
  89. RAנP5πəPA    ; HI-LEN
  90.     STEב 2 Cêזå❎ -≥5C-O⇦ררA ZP+1
  91.     PLA    ; LO-BUF
  92.     STA ZP°  
  93. 5πəPA    ; HI-LEN
  94. vOS
  95. ®םUF
  96.     ST$C Uר,.C @@@@@@@@@@@@@@@Iש                      *
  97. *  INCLUDES SINGULAR PZAêםÀ-פO    AOE3                                       ®םUF
  98. S
  99.  LE PLAYER -      QםUF
  100. S
  101.  LE PL'    N/∮@@@@@@U@@@@@@@@@@@@@@@U@⇦EI¶ס LEד 
  102. Rw
  103. QA    ; Hז∞N--CØPELq    L       O    --------.רαTP0SÄ-¶LפnQTKS)PE@@@@@Iש                      *
  104. *  INCLUDES SLOqש$∩N¶QPLAYER -      QםUF
  105. S
  106.  LE PL'    N/∮@@M§ƒM§ƒM§ƒM™E◆$I2    TC±*/C[ס;A0G    LDF³O
  107. EGÉ                0TUOלFQ0TנX   ⑨BLE    EQU $B000
  108.  
  109.     ORG $0600
  110.  
  111. *ז∞NI טפdN/ORG $0        ≡ÉRG $0600
  112.  
  113. *ז∞NI טפdN/ORG $0        ≡ÉRG $0600
  114.  
  115. *ז∞NI ]SÑ⑦æCQ³EéIAC   AףIJB                      bi.    ,CנsµםUAALOURRRRRRRRR3
  116. ALOOCUTTTTTTTTTTTTTTTTTTTTT.ZY
  117. ALLCOR
  118. AA-ULCORT
  119.  
  120. ALCOOOOOOOOOOOOOOOOOOOOOOOOOpöÜÅΣךîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîîñëœçתàäδ´üÇק~½|{zyx∙¼uי÷rΦïץímlkj¿hgfeÿc¨מ`_אô\ã