code=&B00
 � pass=0 � 2 � 2
 P%=code
2z [OPT pass:LDA#2:JSR&FFEE:LDX#&1B:JSRprint:LDX#&33:JSRprint:LDX#2:JSRprint:LDA#&FF:STAd2:LDA#3:STAd3:LDA#0:STAquarters
<D .l LDA#3:STAd7:.b LDA#0:STAd0:STAd1:STAthirds:LDX#&1B:JSR print
FY LDX#&4C:JSR print:LDX#&C0:JSR print:LDX#3:JSR print:.d:LDA#4:STAd6:.e LDX#(d0 � 256)
P� LDY#(d0 � 256):LDA#9:JSR&FFF1:CLC:LDAd4:BNE f:LDAd3:BMI f:SEC:.f ROLd5:ASL d5:LDAquarters:SEC:SBC#2:STAquarters:CMP#&FE:BNEnoroudown:CLC:ADC#4:STAquarters:LDAd2:SEC:SBC#5:STAd2:BCS g:DECd3:BCCg
U@ .noroudown LDAd2:SEC:SBC#4:STAd2:BCS g:DECd3:.g DECd6:BNE e
Z� LDXd5:JSR print:INCthirds:LDAthirds:CMP#2:BNEnotroundup:DECthirds:DECthirds:DECthirds:CLC:LDA#2:ADCd0:STAd0:BCC h:INCd1:BCSh:.notroundup CLC:LDA#1:ADCd0:STAd0:BCC h:INCd1
_E .h LDAd1:CMP#5:BEQ i:LDA#&12:CLC:ADCd2:STAd2:BCC o:INCd3:.o JMPd
`Q .i LDX#&A:JSR print:DECd7:BEQ k:LDA#3:JSR&FFEE:LDA#7:JSR&FFEE:LDA#2:JSR&FFEE
d� .i LDX#&A:JSR print:DECd7:BEQ k:LDA#&10:LDX#2:BNEaddquar:.k LDX#&1B:JSR print:LDX#&4A:JSR print:LDX#&12:JSR print:LDA#3:LDX#0
i� .addquar CLC:ADCd2:STAd2:BCCquart:INCd3:.quart TXA:CLC:ADCquarters:STAquarters:CMP#2:BNEnorouup2:SEC:SBC#4:STAquarters:INCd2:BNEnorouup2:INCd3:.norouup2 CPX#2:BCCnewline:JMPb:.newline JMPl
n= .j LDA#3:JSR&FFEE:RTS:.print LDA#1:JSR&FFEE:TXA:JMP&FFEE
xt .d0 EQUB0:.d1 EQUB0:.d2 EQUB47:.d3 EQUB13:.d4 EQUB0:.d5 EQUB0:.d6 EQUB0:.d7 EQUB0:.thirds EQUB0:.quarters EQUB0
� ]
� �
�
 �code
�

00000000  0d 00 0a 0e 20 63 6f 64  65 3d 26 42 30 30 0d 00  |.... code=&B00..|
00000010  14 15 20 e3 20 70 61 73  73 3d 30 20 b8 20 32 20  |.. . pass=0 . 2 |
00000020  88 20 32 0d 00 1e 0c 20  50 25 3d 63 6f 64 65 0d  |. 2.... P%=code.|
00000030  00 32 7a 20 5b 4f 50 54  20 70 61 73 73 3a 4c 44  |.2z [OPT pass:LD|
00000040  41 23 32 3a 4a 53 52 26  46 46 45 45 3a 4c 44 58  |A#2:JSR&FFEE:LDX|
00000050  23 26 31 42 3a 4a 53 52  70 72 69 6e 74 3a 4c 44  |#&1B:JSRprint:LD|
00000060  58 23 26 33 33 3a 4a 53  52 70 72 69 6e 74 3a 4c  |X#&33:JSRprint:L|
00000070  44 58 23 32 3a 4a 53 52  70 72 69 6e 74 3a 4c 44  |DX#2:JSRprint:LD|
00000080  41 23 26 46 46 3a 53 54  41 64 32 3a 4c 44 41 23  |A#&FF:STAd2:LDA#|
00000090  33 3a 53 54 41 64 33 3a  4c 44 41 23 30 3a 53 54  |3:STAd3:LDA#0:ST|
000000a0  41 71 75 61 72 74 65 72  73 0d 00 3c 44 20 2e 6c  |Aquarters..<D .l|
000000b0  20 4c 44 41 23 33 3a 53  54 41 64 37 3a 2e 62 20  | LDA#3:STAd7:.b |
000000c0  4c 44 41 23 30 3a 53 54  41 64 30 3a 53 54 41 64  |LDA#0:STAd0:STAd|
000000d0  31 3a 53 54 41 74 68 69  72 64 73 3a 4c 44 58 23  |1:STAthirds:LDX#|
000000e0  26 31 42 3a 4a 53 52 20  70 72 69 6e 74 0d 00 46  |&1B:JSR print..F|
000000f0  59 20 4c 44 58 23 26 34  43 3a 4a 53 52 20 70 72  |Y LDX#&4C:JSR pr|
00000100  69 6e 74 3a 4c 44 58 23  26 43 30 3a 4a 53 52 20  |int:LDX#&C0:JSR |
00000110  70 72 69 6e 74 3a 4c 44  58 23 33 3a 4a 53 52 20  |print:LDX#3:JSR |
00000120  70 72 69 6e 74 3a 2e 64  3a 4c 44 41 23 34 3a 53  |print:.d:LDA#4:S|
00000130  54 41 64 36 3a 2e 65 20  4c 44 58 23 28 64 30 20  |TAd6:.e LDX#(d0 |
00000140  83 20 32 35 36 29 0d 00  50 c6 20 4c 44 59 23 28  |. 256)..P. LDY#(|
00000150  64 30 20 81 20 32 35 36  29 3a 4c 44 41 23 39 3a  |d0 . 256):LDA#9:|
00000160  4a 53 52 26 46 46 46 31  3a 43 4c 43 3a 4c 44 41  |JSR&FFF1:CLC:LDA|
00000170  64 34 3a 42 4e 45 20 66  3a 4c 44 41 64 33 3a 42  |d4:BNE f:LDAd3:B|
00000180  4d 49 20 66 3a 53 45 43  3a 2e 66 20 52 4f 4c 64  |MI f:SEC:.f ROLd|
00000190  35 3a 41 53 4c 20 64 35  3a 4c 44 41 71 75 61 72  |5:ASL d5:LDAquar|
000001a0  74 65 72 73 3a 53 45 43  3a 53 42 43 23 32 3a 53  |ters:SEC:SBC#2:S|
000001b0  54 41 71 75 61 72 74 65  72 73 3a 43 4d 50 23 26  |TAquarters:CMP#&|
000001c0  46 45 3a 42 4e 45 6e 6f  72 6f 75 64 6f 77 6e 3a  |FE:BNEnoroudown:|
000001d0  43 4c 43 3a 41 44 43 23  34 3a 53 54 41 71 75 61  |CLC:ADC#4:STAqua|
000001e0  72 74 65 72 73 3a 4c 44  41 64 32 3a 53 45 43 3a  |rters:LDAd2:SEC:|
000001f0  53 42 43 23 35 3a 53 54  41 64 32 3a 42 43 53 20  |SBC#5:STAd2:BCS |
00000200  67 3a 44 45 43 64 33 3a  42 43 43 67 0d 00 55 40  |g:DECd3:BCCg..U@|
00000210  20 2e 6e 6f 72 6f 75 64  6f 77 6e 20 4c 44 41 64  | .noroudown LDAd|
00000220  32 3a 53 45 43 3a 53 42  43 23 34 3a 53 54 41 64  |2:SEC:SBC#4:STAd|
00000230  32 3a 42 43 53 20 67 3a  44 45 43 64 33 3a 2e 67  |2:BCS g:DECd3:.g|
00000240  20 44 45 43 64 36 3a 42  4e 45 20 65 0d 00 5a af  | DECd6:BNE e..Z.|
00000250  20 4c 44 58 64 35 3a 4a  53 52 20 70 72 69 6e 74  | LDXd5:JSR print|
00000260  3a 49 4e 43 74 68 69 72  64 73 3a 4c 44 41 74 68  |:INCthirds:LDAth|
00000270  69 72 64 73 3a 43 4d 50  23 32 3a 42 4e 45 6e 6f  |irds:CMP#2:BNEno|
00000280  74 72 6f 75 6e 64 75 70  3a 44 45 43 74 68 69 72  |troundup:DECthir|
00000290  64 73 3a 44 45 43 74 68  69 72 64 73 3a 44 45 43  |ds:DECthirds:DEC|
000002a0  74 68 69 72 64 73 3a 43  4c 43 3a 4c 44 41 23 32  |thirds:CLC:LDA#2|
000002b0  3a 41 44 43 64 30 3a 53  54 41 64 30 3a 42 43 43  |:ADCd0:STAd0:BCC|
000002c0  20 68 3a 49 4e 43 64 31  3a 42 43 53 68 3a 2e 6e  | h:INCd1:BCSh:.n|
000002d0  6f 74 72 6f 75 6e 64 75  70 20 43 4c 43 3a 4c 44  |otroundup CLC:LD|
000002e0  41 23 31 3a 41 44 43 64  30 3a 53 54 41 64 30 3a  |A#1:ADCd0:STAd0:|
000002f0  42 43 43 20 68 3a 49 4e  43 64 31 0d 00 5f 45 20  |BCC h:INCd1.._E |
00000300  2e 68 20 4c 44 41 64 31  3a 43 4d 50 23 35 3a 42  |.h LDAd1:CMP#5:B|
00000310  45 51 20 69 3a 4c 44 41  23 26 31 32 3a 43 4c 43  |EQ i:LDA#&12:CLC|
00000320  3a 41 44 43 64 32 3a 53  54 41 64 32 3a 42 43 43  |:ADCd2:STAd2:BCC|
00000330  20 6f 3a 49 4e 43 64 33  3a 2e 6f 20 4a 4d 50 64  | o:INCd3:.o JMPd|
00000340  0d 00 60 51 20 2e 69 20  4c 44 58 23 26 41 3a 4a  |..`Q .i LDX#&A:J|
00000350  53 52 20 70 72 69 6e 74  3a 44 45 43 64 37 3a 42  |SR print:DECd7:B|
00000360  45 51 20 6b 3a 4c 44 41  23 33 3a 4a 53 52 26 46  |EQ k:LDA#3:JSR&F|
00000370  46 45 45 3a 4c 44 41 23  37 3a 4a 53 52 26 46 46  |FEE:LDA#7:JSR&FF|
00000380  45 45 3a 4c 44 41 23 32  3a 4a 53 52 26 46 46 45  |EE:LDA#2:JSR&FFE|
00000390  45 0d 00 64 82 20 2e 69  20 4c 44 58 23 26 41 3a  |E..d. .i LDX#&A:|
000003a0  4a 53 52 20 70 72 69 6e  74 3a 44 45 43 64 37 3a  |JSR print:DECd7:|
000003b0  42 45 51 20 6b 3a 4c 44  41 23 26 31 30 3a 4c 44  |BEQ k:LDA#&10:LD|
000003c0  58 23 32 3a 42 4e 45 61  64 64 71 75 61 72 3a 2e  |X#2:BNEaddquar:.|
000003d0  6b 20 4c 44 58 23 26 31  42 3a 4a 53 52 20 70 72  |k LDX#&1B:JSR pr|
000003e0  69 6e 74 3a 4c 44 58 23  26 34 41 3a 4a 53 52 20  |int:LDX#&4A:JSR |
000003f0  70 72 69 6e 74 3a 4c 44  58 23 26 31 32 3a 4a 53  |print:LDX#&12:JS|
00000400  52 20 70 72 69 6e 74 3a  4c 44 41 23 33 3a 4c 44  |R print:LDA#3:LD|
00000410  58 23 30 0d 00 69 c1 20  2e 61 64 64 71 75 61 72  |X#0..i. .addquar|
00000420  20 43 4c 43 3a 41 44 43  64 32 3a 53 54 41 64 32  | CLC:ADCd2:STAd2|
00000430  3a 42 43 43 71 75 61 72  74 3a 49 4e 43 64 33 3a  |:BCCquart:INCd3:|
00000440  2e 71 75 61 72 74 20 54  58 41 3a 43 4c 43 3a 41  |.quart TXA:CLC:A|
00000450  44 43 71 75 61 72 74 65  72 73 3a 53 54 41 71 75  |DCquarters:STAqu|
00000460  61 72 74 65 72 73 3a 43  4d 50 23 32 3a 42 4e 45  |arters:CMP#2:BNE|
00000470  6e 6f 72 6f 75 75 70 32  3a 53 45 43 3a 53 42 43  |norouup2:SEC:SBC|
00000480  23 34 3a 53 54 41 71 75  61 72 74 65 72 73 3a 49  |#4:STAquarters:I|
00000490  4e 43 64 32 3a 42 4e 45  6e 6f 72 6f 75 75 70 32  |NCd2:BNEnorouup2|
000004a0  3a 49 4e 43 64 33 3a 2e  6e 6f 72 6f 75 75 70 32  |:INCd3:.norouup2|
000004b0  20 43 50 58 23 32 3a 42  43 43 6e 65 77 6c 69 6e  | CPX#2:BCCnewlin|
000004c0  65 3a 4a 4d 50 62 3a 2e  6e 65 77 6c 69 6e 65 20  |e:JMPb:.newline |
000004d0  4a 4d 50 6c 0d 00 6e 3d  20 2e 6a 20 4c 44 41 23  |JMPl..n= .j LDA#|
000004e0  33 3a 4a 53 52 26 46 46  45 45 3a 52 54 53 3a 2e  |3:JSR&FFEE:RTS:.|
000004f0  70 72 69 6e 74 20 4c 44  41 23 31 3a 4a 53 52 26  |print LDA#1:JSR&|
00000500  46 46 45 45 3a 54 58 41  3a 4a 4d 50 26 46 46 45  |FFEE:TXA:JMP&FFE|
00000510  45 0d 00 78 74 20 2e 64  30 20 45 51 55 42 30 3a  |E..xt .d0 EQUB0:|
00000520  2e 64 31 20 45 51 55 42  30 3a 2e 64 32 20 45 51  |.d1 EQUB0:.d2 EQ|
00000530  55 42 34 37 3a 2e 64 33  20 45 51 55 42 31 33 3a  |UB47:.d3 EQUB13:|
00000540  2e 64 34 20 45 51 55 42  30 3a 2e 64 35 20 45 51  |.d4 EQUB0:.d5 EQ|
00000550  55 42 30 3a 2e 64 36 20  45 51 55 42 30 3a 2e 64  |UB0:.d6 EQUB0:.d|
00000560  37 20 45 51 55 42 30 3a  2e 74 68 69 72 64 73 20  |7 EQUB0:.thirds |
00000570  45 51 55 42 30 3a 2e 71  75 61 72 74 65 72 73 20  |EQUB0:.quarters |
00000580  45 51 55 42 30 0d 00 82  06 20 5d 0d 00 8c 06 20  |EQUB0.... ].... |
00000590  ed 0d 00 96 0a 20 d6 63  6f 64 65 0d ff           |..... .code..|
0000059d