home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / ANNMIDI:BACKOUT / INT0DRVR.SC0.txt next >
Text File  |  2020-08-13  |  4KB  |  171 lines
  1. ;INT0DRVR.SC0
  2. ;
  3. ;-------------------
  4. ;MAINLINE CODE
  5. ;-------------------
  6. AUXSETUP RTS
  7. DOAUXMV  RTS
  8. DOXFER   RTS
  9. ;
  10. PLAYMAIN LDA #$00
  11.          STA AUXPLAY
  12.          JMP PLAYIT1
  13. PLAYAUX  LDA #$01
  14.          STA AUXPLAY
  15.          JMP PLAYIT1
  16. ;
  17. ;=============================
  18. PLAYIT1  JSR $9206 ;MKBCLOCK: STOP CLOCK
  19.          JSR $9209 ;MKBCLOCK: ZERO COUNTER
  20.          LDA #$00
  21.          STA $921C ;ZERO DELTA
  22.          STA $921D
  23.          STA $921E
  24.          STA $921F
  25.          STA $9220 ;ZERO ALARM
  26.          STA $9221
  27.          STA $9222
  28.          STA $9223
  29.          STA $9224 ;ZERO ALARM FLAG
  30.          JSR $9203 ;MKBCLOCK: START CLOCK
  31. ; 
  32.          LDA PLAYSTRT        ;INITIALIZE PTR TO BEGINNING OF AREA
  33.          STA PLAYPTR
  34.          LDA PLAYSTRT+1
  35.          STA PLAYPTR+1
  36.          LDA KARALOOK        ;12/17/95-KARALOOK LOGIC
  37.          BEQ PLAYLOOP
  38.          LDA #$8D
  39.          JSR COUT
  40.          JSR KARASCAN
  41. PLAYLOOP LDA AUXPLAY
  42.          BEQ MAINPLAY
  43.          LDA PLAYPTR         ;IF PLAYING AUX, MOVE ONE BYTE TO INBYTE
  44.          STA $3C
  45.          STA $3E
  46.          LDA PLAYPTR+1
  47.          STA $3D
  48.          STA $3F
  49.          LDA #>INBYTE
  50.          STA $42
  51.          LDA #<INBYTE
  52.          STA $43
  53.          CLC
  54.          JSR AUXMOVE
  55.          JMP GOTINBYT
  56. MAINPLAY LDY #$00            ;READ 1 BYTE
  57.          LDA (PLAYPTR),Y
  58.          STA INBYTE
  59. GOTINBYT JSR PRCSBYTE
  60.          LDA ENDOFTRK
  61.          BEQ PLAYLOO1
  62.          RTS
  63. PLAYLOO1 JSR CHKKBD
  64.          LDA ENDOFTRK
  65.          BEQ INCPTR
  66.          RTS
  67. INCPTR   INC PLAYPTR
  68.          BNE INCPTR2
  69.          INC PLAYPTR+1
  70. INCPTR2  LDA PLAYPTR
  71.          CMP PLAYSTOP
  72.          BNE PLAYLOOP
  73.          LDA PLAYPTR+1
  74.          CMP PLAYSTOP+1
  75.          BNE PLAYLOOP
  76.          RTS
  77. ;-------
  78. ; CHKKBD - MAY SET ENDOFTRK
  79. ;-------
  80. CHKKBD   LDA $C000
  81.          BPL NOKEY1
  82.          LDA $C010
  83.          AND #$7F
  84.          CMP #$20
  85.          BNE CHKESC
  86.          LDA #$01
  87.          STA ENDOFTRK
  88. NOKEY1   RTS
  89. CHKESC   CMP #$1B
  90.          BNE CHKFLAT
  91. WAITKEY  LDA #$00
  92.          STA PAUSEFLG
  93. WAITKEY1 LDA $C000
  94.          BPL WAITKEY1
  95.          LDA $C010
  96.          AND #$7F
  97.          CMP #$1B
  98.          BNE ESCDONE
  99.          INC PAUSEFLG
  100. ESCDONE  RTS
  101. CHKFLAT  CMP #$46            ;'F'-CHANGE UCS<->LCF
  102.          BNE TESTTMPO
  103.          LDA DISPMODE
  104.          EOR #$01
  105.          STA DISPMODE
  106.          RTS
  107. TESTTMPO CMP #$54            ;'T'-TEMPO CHGS
  108.          BNE CHKDRUM
  109.          LDA DOTMPOCG
  110.          EOR #$01
  111.          STA DOTMPOCG
  112.          RTS
  113. CHKDRUM  CMP #$44            ;'D'-MASK DRUMS
  114.          BNE CHKLEFT
  115.          DEC MASKDRUM
  116.          LDA MASKDRUM
  117.          CMP #$FE
  118.          BNE DRUMDONE
  119.          LDA #$01
  120.          STA MASKDRUM
  121. DRUMDONE RTS
  122. CHKLEFT  CMP #$08
  123.          BNE CHKRIGHT
  124.          DEC SPEED
  125.          LDA SPEED
  126.          BMI LEFTBAD
  127.          BEQ LEFTBAD
  128.          CMP #$03
  129.          BCC LEFTBAD
  130.          JSR $9203
  131.          DEC SPEEDINC
  132.          JSR SPEEDDEC
  133.          JSR METRPOKE
  134.          LDA PRNTSPED
  135.          BEQ LEFTDONE 
  136.          LDA #$A0
  137.          JSR COUT
  138.          LDA SPEED
  139.          JSR PRINTHEX
  140.          LDA #$A0
  141.          JSR COUT
  142. LEFTDONE RTS
  143. LEFTBAD  INC SPEED
  144.          RTS
  145. CHKRIGHT CMP #$15
  146.          BNE NOKEY
  147.          INC SPEED
  148.          LDA SPEED
  149.          BMI RIGHTBAD
  150.          BEQ RIGHTBAD
  151.          JSR $9203
  152.          INC SPEEDINC
  153.          JSR SPEEDDEC
  154.          JSR METRPOKE
  155.          LDA PRNTSPED
  156.          BEQ NOKEY
  157.          LDA #$A0
  158.          JSR COUT
  159.          LDA SPEED
  160.          JSR PRINTHEX
  161.          LDA #$A0
  162.          JSR COUT
  163. NOKEY    RTS
  164. RIGHTBAD DEC SPEED
  165.          RTS
  166. ;
  167. ;=========
  168. ; PRCSBYTE - MAY SET ENDOFTRK
  169. ;=========
  170.          CHN INT0DRVR.SC1
  171.