‡ORG€100H
‡.RADIX€16D
‡LD€A,0FDH
‡OUT€(0B1H),A
‡LD€A,0FAH
‡OUT€(0B2H),A
‡LD€SP,100
‡LD€DE,FILE
‡LD€A,1
‡EXOS€1
FOCIK‚LD€DE,200H
‡CALL€ROBB
‡CALL€18
‡JR€FOCIK
VEGE1‚LD€A,1
‡EXOS€3
‡POP€DE
‡RST€18
ROBBƒPUSH€DE
‡LD€A,1
‡exos€5
‡OR€A
‡JR€NZ,VEGE1
‡LD€L,B
‡LD€A,1
‡exos€5
‡OR€A
‡JR€NZ,VEGE1
‡LD€C,L
‡POP€DE
‡PUSH€BC
‡PUSH€DE
‡LD€HL,0C000
‡AND€A
‡SBC€HL,BC
‡EX€DE,HL
‡PUSH€DE
‡LD€A,1
‡EXOS€6
‡POP€HL
‡LD€A,(HL)
‡INC€HL
‡EX€AF,AF'
‡POP€DE
‡POP€BC
‡DEC€BC
L00A3‚EX€AF,AF'
‡CP€(HL)
‡JR€NZ,L00B6
‡EX€AF,AF'
‡INC€HL
‡PUSH€BC
‡LD€B,(HL)
‡INC€HL
‡LD€A,(HL)
L00AD‚LD€(DE),A
‡INC€DE
‡DJNZ€L00AD
‡POP€BC
‡DEC€BC
‡DEC€BC
‡JR€L00BA
L00B6‚EX€AF,AF'
‡LD€A,(HL)
‡LD€(DE),A
‡INC€DE
L00BA‚INC€HL
‡DEC€BC
‡LD€A,B
‡OR€C
‡JR€NZ,L00A3
‡RET
FILEƒDB€4,"F.TOM"