PROTRACKER372 CP H

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

Navigation menu