� 6:�=&7000:�=&6400
� 28,0,24,39,16
7OSBYTE=&FFF4:OSWORD=&FFF1:OSASCI=&FFE3:OSWRCH=&FFEE
(OSRDCH=&FFE0:CLI=&FFF7
2"OUT=670:PUT=&71:SP=&72:BPT=&74
<,CONBLK=&76:HI=&81:LO=&80:DISP=&82:DH=&83
FUP=&85:STK=&86:ACR=&84
POLO=&7B:OHI=&7C:OUMB=&88
ZHA=&8D:HB=&8E:HC=&8F
d%DLINES=&7D:NUMB=&7E:TEMPSTACK=&7F
n� OP=0 � 3 � 3
xP%=&5400

�[OPT OP

�TSX:STX TEMPSTACK

�'LDA#0:STA CONBLK:LDA#6:STA CONBLK+1

�LDA#�("D"):STA DISP
LDX#(ST1 � 256)
LDY#(ST1 � 256)
JSR OUTPUT
0LDA#4:LDX#1:JSR OSBYTE
N.L5 JSR DISPLAY
b.L7 JSR KEYIN
vCMP#�("D"):BNE NOND
�.STD STA DISP:JMP L5
�.NOND CMP#�("L"):BEQ STD
�CMP #�("H"):BN NONH
� .HGIN LDX#15:LDY#2:JSR SETAB
�)LDA#4:LDX#�("0"):LDY#�("F"):JSR STRIN
�"JSR DHEX:BCCHGIN:LDA DH:STA HI
,LDA&602:STA&600:LDA&603:STA&601:JSR DHEX
!BCC HGIN:LDA DH:STA LO:JMP L5
 .NONH CMP#�("F"):BNE NOF
4 .FGIN LDX#15:LDY#3:JSR SETAB
>)LDA#2:LDX#�("0"):LDY#�("F"):JSR STRIN
H4JSR DHEX:BCC FGIN:LDA DISP:CMP#�("L"):BNE OVSWAP
R4LDA OLO:SEC:SBC OUMP:STA LO:LDA OHI:SBC#0:STA HI
\.OVSWAP
fHLDY#0:LDA DH:.FLOOP INC LO:BNE OVHI:INC HI:.OVHI CMP(LO),Y:BNE FLOOP
p
JMP L5
�..NOF LDX DISP:CPX#�("L"):BNE NONF:JMP LCOM
�.NONF CMP#&88:BNE NLEFT
�,LDA LO:BNE DE1:DEC HI:.DE1 DEC LO:JMP L5
�.NLEFT CMP#&89:BNE NRT
�%INC LO:BNE DE2:INC HI:.DE2 JMP L5
LDA LO:CLC:ADC#8:STA LO
$LDA HI:ADC#0:STA HI:JMP L5
LLDA LO:SEC:SBC#8:STA LO
VLDA HI:SBC#0:STA HI:JMP L5
t.NMOVE CMP#�("A"):BNE NONA
�.AGIN LDY#14
�'LDA ACR:ASL A:CLC:ADC ACR:CLC:ADC#6
�TAX:JSR SETAB
�)LDA#2:LDX#�("0"):LDY#�("F"):JSR STRIN
�

00000000  0d 00 0a 17 eb 20 36 3a  d3 3d 26 37 30 30 30 3a  |..... 6:.=&7000:|
00000010  d2 3d 26 36 34 30 30 0d  00 14 13 ef 20 32 38 2c  |.=&6400..... 28,|
00000020  30 2c 32 34 2c 33 39 2c  31 36 0d 00 1e 37 4f 53  |0,24,39,16...7OS|
00000030  42 59 54 45 3d 26 46 46  46 34 3a 4f 53 57 4f 52  |BYTE=&FFF4:OSWOR|
00000040  44 3d 26 46 46 46 31 3a  4f 53 41 53 43 49 3d 26  |D=&FFF1:OSASCI=&|
00000050  46 46 45 33 3a 4f 53 57  52 43 48 3d 26 46 46 45  |FFE3:OSWRCH=&FFE|
00000060  45 0d 00 28 1a 4f 53 52  44 43 48 3d 26 46 46 45  |E..(.OSRDCH=&FFE|
00000070  30 3a 43 4c 49 3d 26 46  46 46 37 0d 00 32 22 4f  |0:CLI=&FFF7..2"O|
00000080  55 54 3d 36 37 30 3a 50  55 54 3d 26 37 31 3a 53  |UT=670:PUT=&71:S|
00000090  50 3d 26 37 32 3a 42 50  54 3d 26 37 34 0d 00 3c  |P=&72:BPT=&74..<|
000000a0  2c 43 4f 4e 42 4c 4b 3d  26 37 36 3a 48 49 3d 26  |,CONBLK=&76:HI=&|
000000b0  38 31 3a 4c 4f 3d 26 38  30 3a 44 49 53 50 3d 26  |81:LO=&80:DISP=&|
000000c0  38 32 3a 44 48 3d 26 38  33 0d 00 46 1a 55 50 3d  |82:DH=&83..F.UP=|
000000d0  26 38 35 3a 53 54 4b 3d  26 38 36 3a 41 43 52 3d  |&85:STK=&86:ACR=|
000000e0  26 38 34 0d 00 50 1c 4f  4c 4f 3d 26 37 42 3a 4f  |&84..P.OLO=&7B:O|
000000f0  48 49 3d 26 37 43 3a 4f  55 4d 42 3d 26 38 38 0d  |HI=&7C:OUMB=&88.|
00000100  00 5a 18 48 41 3d 26 38  44 3a 48 42 3d 26 38 45  |.Z.HA=&8D:HB=&8E|
00000110  3a 48 43 3d 26 38 46 0d  00 64 25 44 4c 49 4e 45  |:HC=&8F..d%DLINE|
00000120  53 3d 26 37 44 3a 4e 55  4d 42 3d 26 37 45 3a 54  |S=&7D:NUMB=&7E:T|
00000130  45 4d 50 53 54 41 43 4b  3d 26 37 46 0d 00 6e 12  |EMPSTACK=&7F..n.|
00000140  e3 20 4f 50 3d 30 20 b8  20 33 20 88 20 33 0d 00  |. OP=0 . 3 . 3..|
00000150  78 0c 50 25 3d 26 35 34  30 30 0d 01 c2 0b 5b 4f  |x.P%=&5400....[O|
00000160  50 54 20 4f 50 0d 01 cc  15 54 53 58 3a 53 54 58  |PT OP....TSX:STX|
00000170  20 54 45 4d 50 53 54 41  43 4b 0d 01 e0 27 4c 44  | TEMPSTACK...'LD|
00000180  41 23 30 3a 53 54 41 20  43 4f 4e 42 4c 4b 3a 4c  |A#0:STA CONBLK:L|
00000190  44 41 23 36 3a 53 54 41  20 43 4f 4e 42 4c 4b 2b  |DA#6:STA CONBLK+|
000001a0  31 0d 01 f4 17 4c 44 41  23 97 28 22 44 22 29 3a  |1....LDA#.("D"):|
000001b0  53 54 41 20 44 49 53 50  0d 02 08 13 4c 44 58 23  |STA DISP....LDX#|
000001c0  28 53 54 31 20 83 20 32  35 36 29 0d 02 12 13 4c  |(ST1 . 256)....L|
000001d0  44 59 23 28 53 54 31 20  81 20 32 35 36 29 0d 02  |DY#(ST1 . 256)..|
000001e0  1c 0e 4a 53 52 20 4f 55  54 50 55 54 0d 02 30 1a  |..JSR OUTPUT..0.|
000001f0  4c 44 41 23 34 3a 4c 44  58 23 31 3a 4a 53 52 20  |LDA#4:LDX#1:JSR |
00000200  4f 53 42 59 54 45 0d 02  4e 13 2e 4c 35 20 4a 53  |OSBYTE..N..L5 JS|
00000210  52 20 44 49 53 50 4c 41  59 0d 02 62 11 2e 4c 37  |R DISPLAY..b..L7|
00000220  20 4a 53 52 20 4b 45 59  49 4e 0d 02 76 17 43 4d  | JSR KEYIN..v.CM|
00000230  50 23 97 28 22 44 22 29  3a 42 4e 45 20 4e 4f 4e  |P#.("D"):BNE NON|
00000240  44 0d 02 8a 18 2e 53 54  44 20 53 54 41 20 44 49  |D.....STD STA DI|
00000250  53 50 3a 4a 4d 50 20 4c  35 0d 02 94 1c 2e 4e 4f  |SP:JMP L5.....NO|
00000260  4e 44 20 43 4d 50 23 97  28 22 4c 22 29 3a 42 45  |ND CMP#.("L"):BE|
00000270  51 20 53 54 44 0d 02 b2  17 43 4d 50 20 23 97 28  |Q STD....CMP #.(|
00000280  22 48 22 29 3a 42 4e 20  4e 4f 4e 48 0d 02 c6 20  |"H"):BN NONH... |
00000290  2e 48 47 49 4e 20 4c 44  58 23 31 35 3a 4c 44 59  |.HGIN LDX#15:LDY|
000002a0  23 32 3a 4a 53 52 20 53  45 54 41 42 0d 02 da 29  |#2:JSR SETAB...)|
000002b0  4c 44 41 23 34 3a 4c 44  58 23 97 28 22 30 22 29  |LDA#4:LDX#.("0")|
000002c0  3a 4c 44 59 23 97 28 22  46 22 29 3a 4a 53 52 20  |:LDY#.("F"):JSR |
000002d0  53 54 52 49 4e 0d 02 ee  22 4a 53 52 20 44 48 45  |STRIN..."JSR DHE|
000002e0  58 3a 42 43 43 48 47 49  4e 3a 4c 44 41 20 44 48  |X:BCCHGIN:LDA DH|
000002f0  3a 53 54 41 20 48 49 0d  03 02 2c 4c 44 41 26 36  |:STA HI...,LDA&6|
00000300  30 32 3a 53 54 41 26 36  30 30 3a 4c 44 41 26 36  |02:STA&600:LDA&6|
00000310  30 33 3a 53 54 41 26 36  30 31 3a 4a 53 52 20 44  |03:STA&601:JSR D|
00000320  48 45 58 0d 03 16 21 42  43 43 20 48 47 49 4e 3a  |HEX...!BCC HGIN:|
00000330  4c 44 41 20 44 48 3a 53  54 41 20 4c 4f 3a 4a 4d  |LDA DH:STA LO:JM|
00000340  50 20 4c 35 0d 03 20 1c  2e 4e 4f 4e 48 20 43 4d  |P L5.. ..NONH CM|
00000350  50 23 97 28 22 46 22 29  3a 42 4e 45 20 4e 4f 46  |P#.("F"):BNE NOF|
00000360  0d 03 34 20 2e 46 47 49  4e 20 4c 44 58 23 31 35  |..4 .FGIN LDX#15|
00000370  3a 4c 44 59 23 33 3a 4a  53 52 20 53 45 54 41 42  |:LDY#3:JSR SETAB|
00000380  0d 03 3e 29 4c 44 41 23  32 3a 4c 44 58 23 97 28  |..>)LDA#2:LDX#.(|
00000390  22 30 22 29 3a 4c 44 59  23 97 28 22 46 22 29 3a  |"0"):LDY#.("F"):|
000003a0  4a 53 52 20 53 54 52 49  4e 0d 03 48 34 4a 53 52  |JSR STRIN..H4JSR|
000003b0  20 44 48 45 58 3a 42 43  43 20 46 47 49 4e 3a 4c  | DHEX:BCC FGIN:L|
000003c0  44 41 20 44 49 53 50 3a  43 4d 50 23 97 28 22 4c  |DA DISP:CMP#.("L|
000003d0  22 29 3a 42 4e 45 20 4f  56 53 57 41 50 0d 03 52  |"):BNE OVSWAP..R|
000003e0  34 4c 44 41 20 4f 4c 4f  3a 53 45 43 3a 53 42 43  |4LDA OLO:SEC:SBC|
000003f0  20 4f 55 4d 50 3a 53 54  41 20 4c 4f 3a 4c 44 41  | OUMP:STA LO:LDA|
00000400  20 4f 48 49 3a 53 42 43  23 30 3a 53 54 41 20 48  | OHI:SBC#0:STA H|
00000410  49 0d 03 5c 0b 2e 4f 56  53 57 41 50 0d 03 66 48  |I..\..OVSWAP..fH|
00000420  4c 44 59 23 30 3a 4c 44  41 20 44 48 3a 2e 46 4c  |LDY#0:LDA DH:.FL|
00000430  4f 4f 50 20 49 4e 43 20  4c 4f 3a 42 4e 45 20 4f  |OOP INC LO:BNE O|
00000440  56 48 49 3a 49 4e 43 20  48 49 3a 2e 4f 56 48 49  |VHI:INC HI:.OVHI|
00000450  20 43 4d 50 28 4c 4f 29  2c 59 3a 42 4e 45 20 46  | CMP(LO),Y:BNE F|
00000460  4c 4f 4f 50 0d 03 70 0a  4a 4d 50 20 4c 35 0d 03  |LOOP..p.JMP L5..|
00000470  8e 2e 2e 4e 4f 46 20 4c  44 58 20 44 49 53 50 3a  |...NOF LDX DISP:|
00000480  43 50 58 23 97 28 22 4c  22 29 3a 42 4e 45 20 4e  |CPX#.("L"):BNE N|
00000490  4f 4e 46 3a 4a 4d 50 20  4c 43 4f 4d 0d 03 b6 1b  |ONF:JMP LCOM....|
000004a0  2e 4e 4f 4e 46 20 43 4d  50 23 26 38 38 3a 42 4e  |.NONF CMP#&88:BN|
000004b0  45 20 4e 4c 45 46 54 0d  03 ca 2c 4c 44 41 20 4c  |E NLEFT...,LDA L|
000004c0  4f 3a 42 4e 45 20 44 45  31 3a 44 45 43 20 48 49  |O:BNE DE1:DEC HI|
000004d0  3a 2e 44 45 31 20 44 45  43 20 4c 4f 3a 4a 4d 50  |:.DE1 DEC LO:JMP|
000004e0  20 4c 35 0d 03 de 1a 2e  4e 4c 45 46 54 20 43 4d  | L5.....NLEFT CM|
000004f0  50 23 26 38 39 3a 42 4e  45 20 4e 52 54 0d 03 f2  |P#&89:BNE NRT...|
00000500  25 49 4e 43 20 4c 4f 3a  42 4e 45 20 44 45 32 3a  |%INC LO:BNE DE2:|
00000510  49 4e 43 20 48 49 3a 2e  44 45 32 20 4a 4d 50 20  |INC HI:.DE2 JMP |
00000520  4c 35 0d 04 1a 1b 4c 44  41 20 4c 4f 3a 43 4c 43  |L5....LDA LO:CLC|
00000530  3a 41 44 43 23 38 3a 53  54 41 20 4c 4f 0d 04 24  |:ADC#8:STA LO..$|
00000540  1e 4c 44 41 20 48 49 3a  41 44 43 23 30 3a 53 54  |.LDA HI:ADC#0:ST|
00000550  41 20 48 49 3a 4a 4d 50  20 4c 35 0d 04 4c 1b 4c  |A HI:JMP L5..L.L|
00000560  44 41 20 4c 4f 3a 53 45  43 3a 53 42 43 23 38 3a  |DA LO:SEC:SBC#8:|
00000570  53 54 41 20 4c 4f 0d 04  56 1e 4c 44 41 20 48 49  |STA LO..V.LDA HI|
00000580  3a 53 42 43 23 30 3a 53  54 41 20 48 49 3a 4a 4d  |:SBC#0:STA HI:JM|
00000590  50 20 4c 35 0d 04 74 1e  2e 4e 4d 4f 56 45 20 43  |P L5..t..NMOVE C|
000005a0  4d 50 23 97 28 22 41 22  29 3a 42 4e 45 20 4e 4f  |MP#.("A"):BNE NO|
000005b0  4e 41 0d 04 88 10 2e 41  47 49 4e 20 4c 44 59 23  |NA.....AGIN LDY#|
000005c0  31 34 0d 04 9c 27 4c 44  41 20 41 43 52 3a 41 53  |14...'LDA ACR:AS|
000005d0  4c 20 41 3a 43 4c 43 3a  41 44 43 20 41 43 52 3a  |L A:CLC:ADC ACR:|
000005e0  43 4c 43 3a 41 44 43 23  36 0d 04 b0 11 54 41 58  |CLC:ADC#6....TAX|
000005f0  3a 4a 53 52 20 53 45 54  41 42 0d 04 c4 29 4c 44  |:JSR SETAB...)LD|
00000600  41 23 32 3a 4c 44 58 23  97 28 22 30 22 29 3a 4c  |A#2:LDX#.("0"):L|
00000610  44 59 23 97 28 22 46 22  29 3a 4a 53 52 20 53 54  |DY#.("F"):JSR ST|
00000620  52 49 4e 0d ff                                    |RIN..|
00000625