�6:�:�"Address:&"a$
 code=�("&"+a$)
 � pass=0 � 2 � 2
( P%=code
2� [OPT pass:PHP:PHA:TYA:PHA:TXA:PHA:LDA#&DF:STA&228:LDA#&EA:STA&229:LDA#&81:LDX#&FE:LDY#&FF:STYd2:JSR&FFF4:BCScont:JMPreturn:.cont LDA#2:JSR&FFEE:LDA#3:STAd3
<4 .l LDA#3:STAd7:.b LDA#0:STAd1:LDX#&1B:JSR print
FY LDX#&4C:JSR print:LDX#&A0:JSR print:LDX#0:JSR print:.d:LDA#8:STAd6:.e LDX#(d0 � 256)
P} LDY#(d0 � 256):LDA#9:JSR&FFF1:CLC:LDAd4:BEQ f:LDAd3:BMI f:SEC:.f ROLd5:LDAd2:SEC:SBC#&C:STAd2:BCS g:DECd3:.g DECd6:BNE e
Z� LDXd5:JSR print:CLC:LDA#8:ADCd0:STAd0:BCC h:INCd1:.h LDAd1:CMP#5:BEQ i:LDA#&60:LDX#0:.n CLC:ADCd2:STAd2:BCC o:INCd3:.o CPX#1:BEQl:BCCd:BCSb
d� .i LDX#&A:JSR print:DECd7:BEQ k:LDA#&5C:LDX#2:BNEn:.k LDX#&1B:JSR print:LDX#&4A:JSR print:LDX#&16:JSR print:LDAd3:BMI j:LDA#8:LDX#1:BNEn
n� .j LDA#3:JSR&FFEE:.return LDA#(code � 256):STA&228:LDA#(code � 256):STA&229:PLA:TAX:PLA:TAY:PLA:PLP:JMP&EADF:.print LDA#1:JSR&FFEE:TXA:JMP&FFEE
xV .d0 EQUB0:.d1 EQUB0:.d2 EQUB0:.d3 EQUB0:.d4 EQUB0:.d5 EQUB0:.d6 EQUB0:.d7 EQUB0:]
� �
� ?&228=code � 256
� ?&229=code � 256
�

00000000  0d 00 0a 18 20 eb 36 3a  f1 3a e8 22 41 64 64 72  |.... .6:.:."Addr|
00000010  65 73 73 3a 26 22 61 24  0d 00 14 13 20 63 6f 64  |ess:&"a$.... cod|
00000020  65 3d a0 28 22 26 22 2b  61 24 29 0d 00 1e 15 20  |e=.("&"+a$).... |
00000030  e3 20 70 61 73 73 3d 30  20 b8 20 32 20 88 20 32  |. pass=0 . 2 . 2|
00000040  0d 00 28 0c 20 50 25 3d  63 6f 64 65 0d 00 32 a0  |..(. P%=code..2.|
00000050  20 5b 4f 50 54 20 70 61  73 73 3a 50 48 50 3a 50  | [OPT pass:PHP:P|
00000060  48 41 3a 54 59 41 3a 50  48 41 3a 54 58 41 3a 50  |HA:TYA:PHA:TXA:P|
00000070  48 41 3a 4c 44 41 23 26  44 46 3a 53 54 41 26 32  |HA:LDA#&DF:STA&2|
00000080  32 38 3a 4c 44 41 23 26  45 41 3a 53 54 41 26 32  |28:LDA#&EA:STA&2|
00000090  32 39 3a 4c 44 41 23 26  38 31 3a 4c 44 58 23 26  |29:LDA#&81:LDX#&|
000000a0  46 45 3a 4c 44 59 23 26  46 46 3a 53 54 59 64 32  |FE:LDY#&FF:STYd2|
000000b0  3a 4a 53 52 26 46 46 46  34 3a 42 43 53 63 6f 6e  |:JSR&FFF4:BCScon|
000000c0  74 3a 4a 4d 50 72 65 74  75 72 6e 3a 2e 63 6f 6e  |t:JMPreturn:.con|
000000d0  74 20 4c 44 41 23 32 3a  4a 53 52 26 46 46 45 45  |t LDA#2:JSR&FFEE|
000000e0  3a 4c 44 41 23 33 3a 53  54 41 64 33 0d 00 3c 34  |:LDA#3:STAd3..<4|
000000f0  20 2e 6c 20 4c 44 41 23  33 3a 53 54 41 64 37 3a  | .l LDA#3:STAd7:|
00000100  2e 62 20 4c 44 41 23 30  3a 53 54 41 64 31 3a 4c  |.b LDA#0:STAd1:L|
00000110  44 58 23 26 31 42 3a 4a  53 52 20 70 72 69 6e 74  |DX#&1B:JSR print|
00000120  0d 00 46 59 20 4c 44 58  23 26 34 43 3a 4a 53 52  |..FY LDX#&4C:JSR|
00000130  20 70 72 69 6e 74 3a 4c  44 58 23 26 41 30 3a 4a  | print:LDX#&A0:J|
00000140  53 52 20 70 72 69 6e 74  3a 4c 44 58 23 30 3a 4a  |SR print:LDX#0:J|
00000150  53 52 20 70 72 69 6e 74  3a 2e 64 3a 4c 44 41 23  |SR print:.d:LDA#|
00000160  38 3a 53 54 41 64 36 3a  2e 65 20 4c 44 58 23 28  |8:STAd6:.e LDX#(|
00000170  64 30 20 83 20 32 35 36  29 0d 00 50 7d 20 4c 44  |d0 . 256)..P} LD|
00000180  59 23 28 64 30 20 81 20  32 35 36 29 3a 4c 44 41  |Y#(d0 . 256):LDA|
00000190  23 39 3a 4a 53 52 26 46  46 46 31 3a 43 4c 43 3a  |#9:JSR&FFF1:CLC:|
000001a0  4c 44 41 64 34 3a 42 45  51 20 66 3a 4c 44 41 64  |LDAd4:BEQ f:LDAd|
000001b0  33 3a 42 4d 49 20 66 3a  53 45 43 3a 2e 66 20 52  |3:BMI f:SEC:.f R|
000001c0  4f 4c 64 35 3a 4c 44 41  64 32 3a 53 45 43 3a 53  |OLd5:LDAd2:SEC:S|
000001d0  42 43 23 26 43 3a 53 54  41 64 32 3a 42 43 53 20  |BC#&C:STAd2:BCS |
000001e0  67 3a 44 45 43 64 33 3a  2e 67 20 44 45 43 64 36  |g:DECd3:.g DECd6|
000001f0  3a 42 4e 45 20 65 0d 00  5a 90 20 4c 44 58 64 35  |:BNE e..Z. LDXd5|
00000200  3a 4a 53 52 20 70 72 69  6e 74 3a 43 4c 43 3a 4c  |:JSR print:CLC:L|
00000210  44 41 23 38 3a 41 44 43  64 30 3a 53 54 41 64 30  |DA#8:ADCd0:STAd0|
00000220  3a 42 43 43 20 68 3a 49  4e 43 64 31 3a 2e 68 20  |:BCC h:INCd1:.h |
00000230  4c 44 41 64 31 3a 43 4d  50 23 35 3a 42 45 51 20  |LDAd1:CMP#5:BEQ |
00000240  69 3a 4c 44 41 23 26 36  30 3a 4c 44 58 23 30 3a  |i:LDA#&60:LDX#0:|
00000250  2e 6e 20 43 4c 43 3a 41  44 43 64 32 3a 53 54 41  |.n CLC:ADCd2:STA|
00000260  64 32 3a 42 43 43 20 6f  3a 49 4e 43 64 33 3a 2e  |d2:BCC o:INCd3:.|
00000270  6f 20 43 50 58 23 31 3a  42 45 51 6c 3a 42 43 43  |o CPX#1:BEQl:BCC|
00000280  64 3a 42 43 53 62 0d 00  64 8d 20 2e 69 20 4c 44  |d:BCSb..d. .i LD|
00000290  58 23 26 41 3a 4a 53 52  20 70 72 69 6e 74 3a 44  |X#&A:JSR print:D|
000002a0  45 43 64 37 3a 42 45 51  20 6b 3a 4c 44 41 23 26  |ECd7:BEQ k:LDA#&|
000002b0  35 43 3a 4c 44 58 23 32  3a 42 4e 45 6e 3a 2e 6b  |5C:LDX#2:BNEn:.k|
000002c0  20 4c 44 58 23 26 31 42  3a 4a 53 52 20 70 72 69  | LDX#&1B:JSR pri|
000002d0  6e 74 3a 4c 44 58 23 26  34 41 3a 4a 53 52 20 70  |nt:LDX#&4A:JSR p|
000002e0  72 69 6e 74 3a 4c 44 58  23 26 31 36 3a 4a 53 52  |rint:LDX#&16:JSR|
000002f0  20 70 72 69 6e 74 3a 4c  44 41 64 33 3a 42 4d 49  | print:LDAd3:BMI|
00000300  20 6a 3a 4c 44 41 23 38  3a 4c 44 58 23 31 3a 42  | j:LDA#8:LDX#1:B|
00000310  4e 45 6e 0d 00 6e 94 20  2e 6a 20 4c 44 41 23 33  |NEn..n. .j LDA#3|
00000320  3a 4a 53 52 26 46 46 45  45 3a 2e 72 65 74 75 72  |:JSR&FFEE:.retur|
00000330  6e 20 4c 44 41 23 28 63  6f 64 65 20 83 20 32 35  |n LDA#(code . 25|
00000340  36 29 3a 53 54 41 26 32  32 38 3a 4c 44 41 23 28  |6):STA&228:LDA#(|
00000350  63 6f 64 65 20 81 20 32  35 36 29 3a 53 54 41 26  |code . 256):STA&|
00000360  32 32 39 3a 50 4c 41 3a  54 41 58 3a 50 4c 41 3a  |229:PLA:TAX:PLA:|
00000370  54 41 59 3a 50 4c 41 3a  50 4c 50 3a 4a 4d 50 26  |TAY:PLA:PLP:JMP&|
00000380  45 41 44 46 3a 2e 70 72  69 6e 74 20 4c 44 41 23  |EADF:.print LDA#|
00000390  31 3a 4a 53 52 26 46 46  45 45 3a 54 58 41 3a 4a  |1:JSR&FFEE:TXA:J|
000003a0  4d 50 26 46 46 45 45 0d  00 78 56 20 2e 64 30 20  |MP&FFEE..xV .d0 |
000003b0  45 51 55 42 30 3a 2e 64  31 20 45 51 55 42 30 3a  |EQUB0:.d1 EQUB0:|
000003c0  2e 64 32 20 45 51 55 42  30 3a 2e 64 33 20 45 51  |.d2 EQUB0:.d3 EQ|
000003d0  55 42 30 3a 2e 64 34 20  45 51 55 42 30 3a 2e 64  |UB0:.d4 EQUB0:.d|
000003e0  35 20 45 51 55 42 30 3a  2e 64 36 20 45 51 55 42  |5 EQUB0:.d6 EQUB|
000003f0  30 3a 2e 64 37 20 45 51  55 42 30 3a 5d 0d 00 82  |0:.d7 EQUB0:]...|
00000400  06 20 ed 0d 00 8c 15 20  3f 26 32 32 38 3d 63 6f  |. ..... ?&228=co|
00000410  64 65 20 83 20 32 35 36  0d 00 96 15 20 3f 26 32  |de . 256.... ?&2|
00000420  32 39 3d 63 6f 64 65 20  81 20 32 35 36 0d ff     |29=code . 256..|
0000042f