1,345
edits
Changes
Created page with "CP C��æ���êƒ ;make relocation table ORG #A000 ;compiled at #C000 P1 INCBIN "PLYC0 E1 ORG #C100 ;compiled at #C100 P2..."
CP C��æ���êƒ
;make relocation table
ORG #A000
;compiled at #C000
P1 INCBIN "PLYC0
E1
ORG #C100
;compiled at #C100
P2
INCLUDE "playFAST",#C4
module
ORG #6000
LD IX,TAB
LD HL,P1
LD DE,P2
LD C,0
CP0 LD A,(DE)
SUB (HL)
JR Z,CPOK
DEC A
JR NZ,ERR
LD (IX),C
INC IX
LD C,0
CPOK INC HL
INC DE
INC C
JR NZ,CPNOFF
LD (IX),255
INC IX
LD C,1
CPNOFF LD A,L
CP E1
JR NZ,CP0
LD A,H
CP 'E1
JR NZ,CP0
LD (IX),0
INC IX
RET
ERR LD HL,0
LD DE,#5800
LD BC,768
LDIR
RET
TAB=#7000DD 37030803DD02B4028D02680
;make relocation table
ORG #A000
;compiled at #C000
P1 INCBIN "PLYC0
E1
ORG #C100
;compiled at #C100
P2
INCLUDE "playFAST",#C4
module
ORG #6000
LD IX,TAB
LD HL,P1
LD DE,P2
LD C,0
CP0 LD A,(DE)
SUB (HL)
JR Z,CPOK
DEC A
JR NZ,ERR
LD (IX),C
INC IX
LD C,0
CPOK INC HL
INC DE
INC C
JR NZ,CPNOFF
LD (IX),255
INC IX
LD C,1
CPNOFF LD A,L
CP E1
JR NZ,CP0
LD A,H
CP 'E1
JR NZ,CP0
LD (IX),0
INC IX
RET
ERR LD HL,0
LD DE,#5800
LD BC,768
LDIR
RET
TAB=#7000DD 37030803DD02B4028D02680