Set of Apple II Hard Drive Images

home *** CD-ROM | disk | FTP | other *** search

/ Set of Apple II Hard Drive Images / eric.hdv / ANNMIDI / MUSIC.SOURCE.txt < prev next >

Wrap

Text File | 2020-08-13 | 4KB | 308 lines

I ;"WILL HARVEY'S MUSIC" ;"COPYRIGHT (C) 1983" ORG $4900 OBJ $4900 ORB EQU $C400 ORA EQU $C401 ORB2 EQU $C480 ORA2 EQU $C481 DDRB2 EQU $C482 DDRA2 EQU $C483 DDRB EQU $C402 DDRA EQU $C403 SONGADD EPZ $6 CHANNADD EPZ $D6 JMP INTRUPT JMP INUT JMP INUTMOCK JMP SONGADDS JMP * JMP * TEMPO HEX 04 DECAY HEX 03 STARTADD HEX FE3F7E44 STRONG HEX 0A START HEX 00 END HEX 06 REST HEX 08 TEMPCNTR HEX 00 DECCNTR HEX 00 TEMP5 HEX 00 TEMP0 HEX 00 TEMP1 HEX 00 TEMP2 HEX 00 TEMP4 HEX 00 TEMP6 HEX 00 CNTR HEX 0101 VOICE HEX FFFFFFFFFFFF PLUG HEX 00 FREQLO HEX 00 FREQHI HEX 00 TIED HEX 0000 FREQLOS HEX 1E1F20222426292C HEX 2E3033363A3D4145 HEX 494D52565C61676D HEX 737A8189919AA3AD HEX B7C2CEDAE7F40312 HEX 2334465A6E849BB3 HEX CDE9062545688CB3 HEX DC0836679BD20000 FREQHIS HEX 0000000000000000 HEX 0000000000000000 HEX 0000000000000000 HEX 0000000000000000 HEX 0000000000000101 HEX 0101010101010101 HEX 0101020202020202 HEX 0203030303030000 INTRUPT TXA PHA TYA PHA LDA #%11000000 STA $C40D CHANCE INC DECCNTR INC TEMPCNTR LDA DECCNTR CMP DECAY BNE NODECAY JSR DIMINISH LDA #0 STA DECCNTR NODECAY LDA TEMPCNTR CMP TEMPO BEQ MUSIC JMP MUSICRTI MUSIC LDA #0 STA TEMPCNTR LDX #0 MUSIC12 STX TEMP2 TXA ASL STA TEMP4 DEC CNTR,X LDA CNTR,X BNE MUSIC9 JSR STOPVOIC MUSIC15 LDX TEMP4 LDA SONGADD,X CLC ADC #2 STA SONGADD,X BCC MUSIC10 INC SONGADD+1,X MUSIC10 LDA (SONGADD,X) LSR STA TEMP0 INC SONGADD,X LDA (SONGADD,X) DEC SONGADD,X STA TEMP1 ORA TEMP0 BNE MUSIC11 JSR SONGADDS JMP MUSIC3 MUSIC11 LDX TEMP2 JSR SEARCH LDA TEMP2 STA VOICE,X STX TEMP6 LDX TEMP0 LDA FREQLOS,X STA FREQLO LDA FREQHIS,X STA FREQHI LDA STRONG STA PLUG LDX TEMP6 JSR PLUGIT MUSIC7 LDX TEMP2 LDA TEMP1 AND #$40 STA TIED,X LDA TEMP1 AND #$3F STA CNTR,X LDA TEMP1 AND #$80 BNE MUSIC15 MUSIC9 LDX TEMP2 INX CPX #2 BEQ MUSIC3 JMP MUSIC12 MUSIC3 JSR INUTMOCK MUSICRTI PLA TAY PLA TAX LDA $45 RTI SEARCH CPX #$0 BNE S2 LDX START S4 LDA VOICE,X BMI S3 INX CPX END BNE S4 DEX RTS S2 LDX END DEX S5 LDA VOICE,X BMI S3 DEX CPX START BNE S5 S3 RTS PLUGIT TXA PHA TYA PHA LDA #0 CPX #3 BCC PI2 DEX DEX DEX LDA #16 PI2 STA CHANNADD TXA ASL TAY LDA FREQLO STA (CHANNADD),Y INY LDA FREQHI STA (CHANNADD),Y TXA CLC ADC #8 TAY LDA PLUG STA (CHANNADD),Y PLA TAY PLA TAX RTS INUTMOCK TYA PHA LDA #$FF STA DDRA STA DDRA2 LDA #$7 STA DDRB STA DDRB2 LDY #$0 IM2 STY ORA LDA #$7 STA ORB LDA #$4 STA ORB LDA $300,Y STA ORA LDA #$6 STA ORB LDA #$4 STA ORB STY ORA2 LDA #$7 STA ORB2 LDA #$4 STA ORB2 LDA $310,Y STA ORA2 LDA #$6 STA ORB2 LDA #$4 STA ORB2 INY CPY #$F BNE IM2 PLA TAY RTS STOPVOIC LDX START SV2 LDA VOICE,X CMP TEMP2 BNE SV3 LDA #$FF STA VOICE,X LDA #$0 STA PLUG JSR PLUGIT SV3 INX CPX END BNE SV2 RTS SONGADDS LDA STARTADD STA SONGADD LDA STARTADD+1 STA SONGADD+1 LDA STARTADD+2 STA SONGADD+2 LDA STARTADD+3 STA SONGADD+3 LDA #$0 STA $3FE LDA #$49 STA $3FF LDA #$0 STA CHANNADD LDA #$3 STA CHANNADD+1 LDA #$1 STA CNTR STA CNTR+1 LDA #$0 STA TEMP2 JSR STOPVOIC LDA #$1 STA TEMP2 JSR STOPVOIC RTS INUT JSR SONGADDS LDA #$F8 STA $307 STA $317 LDA #%01000000 STA $C40B LDA #%11000000 STA $C40D STA $C40E LDA #$FF STA $C404 LDA #$40 STA $C405 CLI RTS DIMINISH LDX #$00 D1 LDA VOICE,X CMP #$2 BCS D2 TAY LDA TIED,Y BNE D2 LDA $308,X CMP REST BEQ D2 DEC $308,X D2 LDA VOICE+3,X CMP #$2 BCS D3 TAY LDA TIED,Y BNE D3 LDA $318,X CMP REST BEQ D3 DEC $318,X D3 INX CPX #$3 BNE D1 RTS END