.\x0c~\xb7(\x01\xcdv\x7f#\x18\xf6s="s=;puts s[0,2]+34.chr+s+34.chr+s[2,36]";puts s[0,2]+34.chr+s+34.chr+s[2,36]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
Disassemble:
ORG 00000H LD L,00CH ;0000 2E 0C . . LD A,(HL) ;0002 7E ~ OR A ;0003 B7 . JR Z,$+3 ;0004 28 01 ( . CALL 07F76H ;0006 CD 76 7F . V INC HL ;0009 23 # JR $-8 ;000A 18 F6 . . LD (HL),E ;000C 73 S DEC A ;000D 3D = LD (03D73H),HL ;000E 22 73 3D " S = DEC SP ;0011 3B ; LD (HL),B ;0012 70 P LD (HL),L ;0013 75 U LD (HL),H ;0014 74 T LD (HL),E ;0015 73 S JR NZ,$+117 ;0016 20 73 S LD E,E ;0018 5B [ JR NC,$+46 ;0019 30 2C 0 , LD (02B5DH),A ;001B 32 5D 2B 2 ] + INC SP ;001E 33 3 INC (HL) ;001F 34 4 LD L,063H ;0020 2E 63 . C LD L,B ;0022 68 H LD (HL),D ;0023 72 R DEC HL ;0024 2B + LD (HL),E ;0025 73 S DEC HL ;0026 2B + INC SP ;0027 33 3 INC (HL) ;0028 34 4 LD L,063H ;0029 2E 63 . C LD L,B ;002B 68 H LD (HL),D ;002C 72 R DEC HL ;002D 2B + LD (HL),E ;002E 73 S LD E,E ;002F 5B [ LD (0332CH),A ;0030 32 2C 33 2 , 3 LD (HL),05DH ;0033 36 5D 6 ] LD (0703BH),HL ;0035 22 3B 70 " ; P LD (HL),L ;0038 75 U LD (HL),H ;0039 74 T LD (HL),E ;003A 73 S JR NZ,$+117 ;003B 20 73 S LD E,E ;003D 5B [ JR NC,$+46 ;003E 30 2C 0 , LD (02B5DH),A ;0040 32 5D 2B 2 ] + INC SP ;0043 33 3 INC (HL) ;0044 34 4 LD L,063H ;0045 2E 63 . C LD L,B ;0047 68 H LD (HL),D ;0048 72 R DEC HL ;0049 2B + LD (HL),E ;004A 73 S DEC HL ;004B 2B + INC SP ;004C 33 3 INC (HL) ;004D 34 4 LD L,063H ;004E 2E 63 . C LD L,B ;0050 68 H LD (HL),D ;0051 72 R DEC HL ;0052 2B + LD (HL),E ;0053 73 S LD E,E ;0054 5B [ LD (0332CH),A ;0055 32 2C 33 2 , 3 LD (HL),05DH ;0058 36 5D 6 ]