Original Version of the player
The original version misses some labels and thus it cannot be compiled. It is included here for historical reasons.
This commit is contained in:
cybernesto
parent
cadb17b0cd
commit
0c39994792
|
|
@ -0,0 +1,2 @@
|
|||
|
||||
.DS_Store
|
||||
|
|
@ -1,2 +1,7 @@
|
|||
# mcs-player
|
||||
Music Construction Set Mockingboard interrupt player for Apple II
|
||||
|
||||
This is the source code included in the first Music Construction Set version with Mockingboard support. The original version could not be assembled because it was missing some important elements.
|
||||
|
||||
A working version was included in the Mockingboard Developer's Toolkit which included some additional corrections but was not available in source form.
|
||||
|
||||
|
|
|
|||
Binary file not shown.
|
|
@ -0,0 +1,305 @@
|
|||
;"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 INIT
|
||||
JMP INITMOCK
|
||||
JMP SONGADDS
|
||||
JMP PAUSE
|
||||
JMP CONTINUE
|
||||
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
|
||||
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 INITMOCK
|
||||
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 #10
|
||||
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
|
||||
INITMOCK 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
|
||||
INIT 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
|
||||
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
|
||||
Loading…
Reference in New Issue