!\xf7\x00\x13\x198\x0b\x198\xf6\x198\xf3#6v\x18\xf5\xaf`hT]))\x19)P_\x19\xcd\x03\x800\x02\x08\xd8\xd600\xec\xebh\x0e\xf6\x03# \xb7 \xfa\x1b\xb2\xb3 \xf5)\x17G+\x0ee\x1e \x04\x0c\xdd!\xff\xff\xdd#\xedR0\xfa?\x10\xf7\x19}\x02\xdd\xe5\xe1|\xb5 \xe7 \x0d\xee0\xcd\x00\x80\xbb \xf6\x18\xad:
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
Disassemble:
ORG 00000H LD HL,000F7H ;0000 21 F7 00 ! . . INC DE ;0003 13 . ADD HL,DE ;0004 19 . JR C,$+13 ;0005 38 0B 8 . ADD HL,DE ;0007 19 . JR C,$-8 ;0008 38 F6 8 . ADD HL,DE ;000A 19 . JR C,$-11 ;000B 38 F3 8 . INC HL ;000D 23 # LD (HL),076H ;000E 36 76 6 V JR $-9 ;0010 18 F5 . . XOR A ;0012 AF . LD H,B ;0013 60 ` LD L,B ;0014 68 H LD D,H ;0015 54 T LD E,L ;0016 5D ] ADD HL,HL ;0017 29 ) ADD HL,HL ;0018 29 ) ADD HL,DE ;0019 19 . ADD HL,HL ;001A 29 ) LD D,B ;001B 50 P LD E,A ;001C 5F _ ADD HL,DE ;001D 19 . CALL 08003H ;001E CD 03 80 . . . JR NC,$+4 ;0021 30 02 0 . EX AF,AF' ;0023 08 . RET C ;0024 D8 . SUB 030H ;0025 D6 30 . 0 JR NC,$-18 ;0027 30 EC 0 . EX DE,HL ;0029 EB . LD L,B ;002A 68 H LD C,0F6H ;002B 0E F6 . . INC BC ;002D 03 . INC HL ;002E 23 # LD A,(BC) ;002F 0A . OR A ;0030 B7 . JR NZ,$-4 ;0031 20 FA . DEC DE ;0033 1B . OR D ;0034 B2 . OR E ;0035 B3 . JR NZ,$-9 ;0036 20 F5 . ADD HL,HL ;0038 29 ) RLA ;0039 17 . LD B,A ;003A 47 G DEC HL ;003B 2B + LD C,065H ;003C 0E 65 . E LD E,00AH ;003E 1E 0A . . INC B ;0040 04 . INC C ;0041 0C . LD IX,0FFFFH ;0042 DD 21 FF FF . ! . . INC IX ;0046 DD 23 . # SBC HL,DE ;0048 ED 52 . R JR NC,$-4 ;004A 30 FA 0 . CCF ;004C 3F ? DJNZ $-7 ;004D 10 F7 . . ADD HL,DE ;004F 19 . LD A,L ;0050 7D } LD (BC),A ;0051 02 . PUSH IX ;0052 DD E5 . . POP HL ;0054 E1 . LD A,H ;0055 7C | OR L ;0056 B5 . JR NZ,$-23 ;0057 20 E7 . LD A,(BC) ;0059 0A . DEC C ;005A 0D . XOR 030H ;005B EE 30 . 0 CALL 08000H ;005D CD 00 80 . . . CP E ;0060 BB . JR NZ,$-8 ;0061 20 F6 . JR $-81 ;0063 18 AD . . DEFB 03AH ;0065 3A :