\xfd!\xb3\x00\x04\x0eabj\xc5\xfd~\x9c\xfd\x86\x00_\x19\x10\xfd\x0e\xff\x1e \x0c\xedR0\xfb\x19\xfdudi\xfd#\xc1\x0d \xe1\xc5\x06a\xc4\x00\x80\xfd+\xfd~\x9c\xb7(\x01O\xc60\x0d\x0c\x10\xee\xcd\x00\x80{\xcd\x00\x80\x0ed\xfd\x09\xc1x\xfe3 \xb6v\x01
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
Disassemble:
ORG 00000H
LD IY,000B3H ;0000 FD 21 B3 00 . ! . .
INC B ;0004 04 .
LD C,061H ;0005 0E 61 . A
LD H,D ;0007 62 B
LD L,D ;0008 6A J
PUSH BC ;0009 C5 .
LD A,(IY-064H) ;000A FD 7E 9C . ~ .
ADD A,(IY+000H) ;000D FD 86 00 . . .
LD E,A ;0010 5F _
ADD HL,DE ;0011 19 .
DJNZ $-1 ;0012 10 FD . .
LD C,0FFH ;0014 0E FF . .
LD E,00AH ;0016 1E 0A . .
INC C ;0018 0C .
SBC HL,DE ;0019 ED 52 . R
JR NC,$-3 ;001B 30 FB 0 .
ADD HL,DE ;001D 19 .
LD (IY+064H),L ;001E FD 75 64 . U D
LD L,C ;0021 69 I
INC IY ;0022 FD 23 . #
POP BC ;0024 C1 .
DEC C ;0025 0D .
JR NZ,$-29 ;0026 20 E1 .
PUSH BC ;0028 C5 .
LD B,061H ;0029 06 61 . A
CALL NZ,08000H ;002B C4 00 80 . . .
DEC IY ;002E FD 2B . +
LD A,(IY-064H) ;0030 FD 7E 9C . ~ .
OR A ;0033 B7 .
JR Z,$+3 ;0034 28 01 ( .
LD C,A ;0036 4F O
ADD A,030H ;0037 C6 30 . 0
DEC C ;0039 0D .
INC C ;003A 0C .
DJNZ $-16 ;003B 10 EE . .
CALL 08000H ;003D CD 00 80 . . .
LD A,E ;0040 7B {
CALL 08000H ;0041 CD 00 80 . . .
LD C,064H ;0044 0E 64 . D
ADD IY,BC ;0046 FD 09 . .
POP BC ;0048 C1 .
LD A,B ;0049 78 X
CP 033H ;004A FE 33 . 3
JR NZ,$-72 ;004C 20 B6 .
HALT ;004E 76 V
DEFB 001H ;004F 01 .