DEFR 10 ORG 28659D GETNUM DEFS 2 LD HL,PCGDAT LD DE,64528 LD BC,192 LDIR LD IX,(GETNUM) LD A,C OUT (0),A BIT 0,A JR NZ,ON1 LD (IX+6),193 LD (IX+7),194 JR CMP128 ON1 LD (IX+6),195 LD (IX+7),196 CMP128 BIT 7,A JR NZ,ON128 LD (IX+66),197 LD (IX+67),198 JR COMP2 ON128 LD (IX+66),199 LD (IX+67),200 COMP2 BIT 1,A JR NZ,ON2 LD (IX+74),197 LD (IX+75),197 JR COMP64 ON2 LD (IX+74),199 LD (IX+75),200 COMP64 LD DE,140 ADD IX,DE BIT 6,A JR NZ,ON64 LD (IX-12),193 LD (IX-11),194 JR COMP32 ON64 LD (IX-12),195 LD (IX-11),196 COMP4 BIT 2,A JR NZ,ON4 LD (IX),193 LD (IX+1),194 JR COMP32 ON4 LD (IX),195 LD (IX+1),196 COMP32 BIT 5,A JR NZ,ON32 LD (IX+54),201 LD (IX+55),202 JR COMP8 ON32 LD (IX+54),203 LD (IX+55),204 COMP8 BIT 3,A JR NZ,ON8 LD (IX+62),201 LD (IX+63),202 JR COMP16 ON8 LD (IX+62),203 LD (IX+63),204 COMP16 BIT 4,A JR NZ,ON16 LD (IX+122),193 LD (IX+123),194 RET ON16 LD (IX+122),195 LD (IX+123),196 RET PCGDAT DW 00000H ;A DW 00F00H DW 04030H DW 08080H DW 08080H DW 03040H DW 0000FH DW 00000H DW 00000H ;B DW 0F000H DW 0020CH DW 00101H DW 00101H DW 00C02H DW 000F0H DW 00000H DW 00000H ;C DW 00F00H DW 07F3FH DW 0FFFFH DW 0FFFFH DW 03F7FH DW 0000FH DW 00000H DW 00000H ;D DW 0F000H DW 0FEFCH DW 0FFFFH DW 0FFFFH DW 0FCFEH DW 000F0H DW 00000H DW 0300FH ;E DW 08040H DW 08080H DW 04080H DW 00F30H DW 00000H DW 00000H DW 00000H DW 00CF0H ;F DW 00102H DW 00101H DW 00201H DW 0F00CH DW 00000H DW 00000H DW 00000H DW 03F0FH ;G DW 0FF7FH DW 0FFFFH DW 07FFFH DW 00F3FH DW 00000H DW 00000H DW 00000H DW 0FCF0H ;H DW 0FFFEH DW 0FFFFH DW 0FEFFH DW 0F0FCH DW 00000H DW 00000H DW 00000H DW 00000H ;I DW 00000H DW 00000H DW 0300FH DW 08040H DW 08080H DW 04080H DW 00F30H DW 00000H ;J DW 00000H DW 00000H DW 00CF0H DW 00102H DW 00101H DW 00201H DW 0F00CH DW 00000H ;K DW 00000H DW 00000H DW 03F0FH DW 0FF7FH DW 0FFFFH DW 07FFFH DW 00F7FH DW 00000H ;L DW 00000H DW 00000H DW 0FCF0H DW 0FFFEH DW 0FFFFH DW 0FEFFH DW 0F0FCH END