@%w\xcd\x03\x808\x05\xc5\x1e+\xbb\xd2v\x7f\xe7~\x0f$\x86$\xfeH(\xf7\xe6\x81\xe7\xe7\xe7e\x00\xb7 \x1f\xc4\x00\x80\xd8\x1a\x13\x18\xf7\xd2\xe7\xdc\xde\xe9\xc3\xd8\xca\xc2\xe1\xf2\xca\xc2\xe4\\x15
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
Disassemble:
ORG 00000H LD B,B ;0000 40 @ DEC H ;0001 25 % LD (HL),A ;0002 77 W CALL 08003H ;0003 CD 03 80 . . . JR C,$+7 ;0006 38 05 8 . PUSH BC ;0008 C5 . LD E,02BH ;0009 1E 2B . + CP E ;000B BB . JP NC,07F76H ;000C D2 76 7F . V RST 20H ;000F E7 . LD A,(HL) ;0010 7E ~ RRCA ;0011 0F . INC H ;0012 24 $ ADD A,(HL) ;0013 86 . INC H ;0014 24 $ CP 048H ;0015 FE 48 . H JR Z,$-7 ;0017 28 F7 ( . AND 081H ;0019 E6 81 . . RST 20H ;001B E7 . RST 20H ;001C E7 . RST 20H ;001D E7 . LD H,L ;001E 65 E NOP ;001F 00 . OR A ;0020 B7 . LD A,(BC) ;0021 0A . RRA ;0022 1F . CALL NZ,08000H ;0023 C4 00 80 . . . RET C ;0026 D8 . LD A,(DE) ;0027 1A . INC DE ;0028 13 . JR $-7 ;0029 18 F7 . . JP NC,0DCE7H ;002B D2 E7 DC . . . SBC A,0E9H ;002E DE E9 . . JP 0CAD8H ;0030 C3 D8 CA . . . JP NZ,0F2E1H ;0033 C2 E1 F2 . . . JP Z,0E4C2H ;0036 CA C2 E4 . . . LD E,H ;0039 5C \ DEC D ;003A 15 .