D.!~#\x04\xbe8\xfa45+~(\xff\x10\xfa\x010\x04#~<\xb1w\xfe:8\xe3q\x10\xf4v 01
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
Disassemble:
ORG 00000H LD B,H ;0000 44 D LD L,021H ;0001 2E 21 . ! LD A,(HL) ;0003 7E ~ INC HL ;0004 23 # INC B ;0005 04 . CP (HL) ;0006 BE . JR C,$-4 ;0007 38 FA 8 . INC (HL) ;0009 34 4 DEC (HL) ;000A 35 5 DEC HL ;000B 2B + LD A,(HL) ;000C 7E ~ JR Z,$+1 ;000D 28 FF ( . DJNZ $-4 ;000F 10 FA . . LD BC,00430H ;0011 01 30 04 . 0 . INC HL ;0014 23 # LD A,(HL) ;0015 7E ~ INC A ;0016 3C < OR C ;0017 B1 . LD (HL),A ;0018 77 W CP 03AH ;0019 FE 3A . : JR C,$-27 ;001B 38 E3 8 . LD (HL),C ;001D 71 Q DJNZ $-10 ;001E 10 F4 . . HALT ;0020 76 V LD A,(BC) ;0021 0A . JR NC,$+51 ;0022 30 31 0 1