home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Set of Apple II Hard Drive Images
/
eric.hdv
/
ANNMIDI:BACKOUT
/
INT0DRVR.SC1.txt
< prev
next >
Wrap
Text File
|
2020-08-13
|
7KB
|
334 lines
;INT0DRVR.SC1
;-------
PRCSBYTE LDA PHASE
CMP #DELTA0
BNE PHDELT1
LDA #$00
STA DELTATIM
STA DELTATIM+1
STA DELTATIM+2
STA DELTATIM+3
LDA INBYTE
STA DELTATIM
BEQ DELTAEQ0 ;GET DELTA TIME
BPL DELTA7F
LDA #DELTA1 ;IF >127 - MORE TO FETCH
STA PHASE
RTS
DELTAEQ0 LDA #GETINST ;IF 0 - WILL GET INSTRUCTION NEXT TIME
STA PHASE
RTS
DELTA7F JSR COUNT
LDA #GETINST ;IF <=127 - DELAY, THEN GET INSTRUCTION NEXT TIME
STA PHASE
RTS
; ;NEED TO CONVERT DELTA TIME BYTES TO COUNTER
COUNT LDA DELTATIM
STA DELTACTR
LDA #$00
STA DELTACTR+1
LDA DELTATIM+1 ;USE ONLY FIRST 2 BYTES OF DELTATIM
BEQ DOCOUNT
AND #$7F ;IF NON-ZERO HI BYTE, MOVE LO BIT
LSR A
STA DELTACTR+1
BCC DOCOUNT
LDA DELTACTR
ORA #$80 ;TO HI BIT OF LO BYTE
STA DELTACTR
;
DOCOUNT LDA DELTACTR ;MKBCLOCK: USE ALARM CLOCK
STA $921C
LDA DELTACTR+1
STA $921D
LDA #$00
STA $921E
STA $921F
JSR $920F ;ADD DELTA TO ALARM TIME
JSR $9212 ;WAIT FOR ALARM
RTS
;
PHDELT1 CMP #DELTA1
BNE PHDELT2
LDA DELTATIM
STA DELTATIM+1
LDA INBYTE
STA DELTATIM
BPL DELT1A
LDA #DELTA2
STA PHASE
RTS
DELT1A JSR COUNT
LDA #GETINST
STA PHASE
RTS
;-------
PHDELT2 CMP #DELTA2
BNE PHDELT3
LDA DELTATIM+1
STA DELTATIM+2
LDA DELTATIM
STA DELTATIM+1
LDA INBYTE
STA DELTATIM
BPL DELT2A
LDA #DELTA3
STA PHASE
RTS
DELT2A JSR COUNT
LDA #GETINST
STA PHASE
RTS
;-------
PHDELT3 CMP #DELTA3
BNE PHINST
LDA DELTATIM+2
STA DELTATIM+3
LDA DELTATIM+1
STA DELTATIM+2
LDA DELTATIM
STA DELTATIM+1
LDA INBYTE
STA DELTATIM
BPL DELT3A
LDA PLAYPTR+1
JSR PRINTHEX
LDA PLAYPTR
JSR PRINTHEX
BRK
DELT3A JSR COUNT
LDA #GETINST
STA PHASE
RTS
;-------
PHINST CMP #GETINST
BEQ PHINST0
JMP PHDATA3
PHINST0 LDA PAUSEFLG ;12/8/95-STEP THRU EVENTS WITH ESC
BEQ PHINST1
JSR WAITKEY
PHINST1 LDA INBYTE
BPL RUNNING
;
CMP #$F0
BCS CHKF0
;
STA LASTSTAT
STA XMITSTS
CMP #$E0
BCS TWOBYTES
CMP #$C0
BCC TWOBYTES
;
LDA #1
STA DBYTES
LDA #DATA1
STA PHASE
RTS
;
TWOBYTES LDA #2
STA DBYTES
LDA #DATA2
STA PHASE
RTS
;
CHKF0 BNE CHKF7
LDA #SYSX0
STA PHASE
LDA #$F0
JSR XMITBYTE
RTS
;
XMITBYTE JSR XMITONE ;ANNUNCIATOR MIDI DRIVER
RTS
;
CHKF7 CMP #$F7
BNE CHKFF
LDA #SYSX0
STA PHASE
RTS
;
CHKFF CMP #$FF
BNE INVAL
LDA #META0
STA PHASE
RTS
;
INVAL BRK
;
RUNNING LDA LASTSTAT
STA XMITSTS
LDA INBYTE
STA XMITBYT1
LDA #$FF
STA XMITBYT2
LDA DBYTES
CMP #1
BEQ SENDMSG
LDA #DATA3
STA PHASE
RTS
;
PHDATA3 CMP #DATA3
BNE PHDATA2
LDA INBYTE
STA XMITBYT2
LDA #$FF
STA XMITBYT3
JMP SENDMSG
;
PHDATA2 CMP #DATA2
BNE PHDATA1
LDA INBYTE
STA XMITBYT1
LDA #DATA2B
STA PHASE
RTS
;
PHDATA1 CMP #DATA1
BNE PHDATA2B
LDA INBYTE
STA XMITBYT1
LDA #$FF
STA XMITBYT2
JMP SENDMSG
;
PHDATA2B CMP #DATA2B
BNE PHSYSX
LDA INBYTE
STA XMITBYT2
LDA #$FF
STA XMITBYT3
JMP SENDMSG
;
SENDMSG LDX #$01
SEND0 LDA XMITMSG,X
CMP #$FF
BEQ SEND2
JSR XMITONE ;ANNUNCIATOR MIDI DRIVER
INX
BNE SEND0
SEND2 LDA PIANOSCR ;ADDED 12/9/95-PIANO SCREEN OPTION
BEQ SENDEXIT
LDA XMITSTS
LDX XMITBYT1
LDY XMITBYT2
JSR MIDIPOKE
SENDEXIT LDA #DELTA0
STA PHASE
RTS
;
PHSYSX CMP #SYSX0
BNE PHSYSX1
LDA INBYTE
STA SYSXLEN
BPL GOODSLEN
LDA PLAYPTR+1
JSR PRINTHEX
LDA PLAYPTR
JSR PRINTHEX
BRK ;SYSX OVER 127 BYTES NOT SUPPORTED
GOODSLEN LDA #SYSX1
STA PHASE
RTS
PHSYSX1 CMP #SYSX1
BNE PHMETA0
LDA INBYTE
JSR XMITBYTE
DEC SYSXLEN
LDA SYSXLEN
BNE MORESYSX
LDA #DELTA0
STA PHASE
MORESYSX RTS
;--------
PHMETA0 CMP #META0
BNE PHMETA1
;
LDA #$00
STA TEXTEVT
LDA INBYTE
CMP #$2F
BNE CHKTEXT
LDA #$01
STA ENDOFTRK
RTS
;
CHKTEXT CMP #$0F
BCS CHKTMPO
LDA #$01
STA TEXTEVT
LDA #META1
STA PHASE
RTS
;
CHKTMPO CMP #$51
BNE CHKKYSG
LDA #TEMPO1
STA PHASE
RTS
;
CHKKYSG CMP #$59
BNE OTHER
LDA #KEYSIG1
STA PHASE
RTS
;
OTHER LDA #META1
STA PHASE
RTS
;
PHMETA1 CMP #META1
BNE PHMETA2
STORMLEN LDA INBYTE
STA METALEN
BPL GOODMLEN
LDA PLAYPTR+1
JSR PRINTHEX
LDA PLAYPTR+2
JSR PRINTHEX
BRK ;META OVER 127 BYTES NOT SUPPORTED
GOODMLEN LDA #META2
STA PHASE
RTS
PHMETA2 CMP #META2
BNE PHTEMPO1
LDA TEXTEVT
BEQ NOTTEXT
LDA LYRICS
BEQ NOTTEXT ;BYPASS IF USER DOESNT WANT LYRICS
LDA INBYTE
CMP #$0D
BEQ PRCSCR
NOTUC ORA #$80 ;DISPLAY IN NORMAL TEXT
JSR COUT
NOTTEXT DEC METALEN
LDA METALEN
BNE MOREMETA
LDA #DELTA0
STA PHASE
MOREMETA RTS
;
PRCSCR ORA #$80 ;PRINT CR
JSR COUT
LDA KARALOOK
BEQ NOKARA
JSR KARASCAN ;KARAOKE LOGIC TO SCAN AHEAD ONE LINE & PRINT LINE 24
NOKARA JMP NOTTEXT
;
PRINTHEX PHA ;CLONE OF $FDDA BUT USING $FDF0 OUTPUT
LSR A
LSR A
LSR A
LSR A
JSR PRNTHEX1
PLA
AND #$0F
PRNTHEX1 ORA #$B0
CMP #$BA
BCC PRNTHEX2
ADC #$06
PRNTHEX2 JMP COUT
;
CHN INT0DRVR.SC2