Difference between revisions of "PROTRACKER372 CP H"

Latest revision as of 03:34, 1 March 2020

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