�"��
!�"���  TELEPRINTER  LISTING 1
�"���     �Mike Rawlings
(�"���        1-2-1987
2�"��
<�"��
F!�"���  For BBCB / B+ / MASTER
P�"���     With DFS or ADFS
Z�"���     With TFS or ATS
d$�"���With SECOND PROCESSOR (ATS)
n�"��
x�"��
��"���     *TYPE Tp/Inf For
��"���       Full details
��"��
�:
�#�"���� Zero Page Addresses    �
�!ins=&88:rem=&8A:ext=&8C:f=&8E
�:
�#�"����Start / End Addresses   �
�start=�+&1900:end=&6600
�:
��p=0�2�2
�:
��"����Code Address   �

P%=&6600

:

K[OPTp:.set LDY#0:STYf:SEI:.L1 LDA&22A,Y:STAins1,Y:LDAinit+6,Y:STA&22A,Y

"�INY:CPY#6:BNEL1:CLI:RTS:.ins2 LDYf:BEQold1:CPX#3:BNEold1:CPY#3:BNEB1:SEC:RTS:.B1 LDY#0:STA(ins),Y:INY:STYf:PHA:LDYins:LDAins+1:JSRS:STAins+1:STYins:PLA:INCext:BNEB2:INCext+1

,�LDY#((end-start)� 256):CPYext+1:BNEB2:STXf:.B2 CLC:RTS:.old1 JMP(ins1):.rem2 PHP:LDYf:BEQold2:CPX#3:BNEold2:CPY#2:BNEB3:PLP:SEC:RTS:.B3 LDY#0:LDA(rem),Y:PLP:BVSB2:INY:STYf:PHA:LDYrem:LDArem+1:JSRS:STArem+1:STYrem:PLA:DECext:BNEB4

6�LDYext+1:BNEB5:INCf:BPLB5:.B4 LDYext:INY:BNEB5:DECext+1:.B5 TAY:CLC:RTS:.old2 PLP:JMP(rem1):.cnt2 PHP:CPX#127:BEQflsh:LDA#0:CPX#126:BNEB6:STAf:PLP:RTS:.B6 CMPf:BEQold3:CPX#3:BNEold3:PLP:PHP:BVCB7

@PLP

JRTS

T�.flsh LDA#2:STAf:TYA:PHA:LDY#0:SEI:.L2 LDAinit,Y:STAins,Y:INY:CPY#6:BNEL2:CLI:PLA:TAY:PLP:RTS:.B7 PLP:PHP:BCCB8:SBCext:TAX:LDA#((end-start)�256):SBCext+1:TAY:PLP:RTS:.B8 LDXext:LDYext+1:PLP:RTS:.old3 PLP:JMP(cnt1):.S INY:BNEB9:CLC

^?ADC#1:CMP#(end �256):BNEB9:LDA#(start �256):.B9 RTS:.init:]

h:

rf!P%=start:!(P%+2)=start:!(P%+6)=ins2:!(P%+8)=rem2:!(P%+10)=cnt2:ins1=P%+12:rem1=P%+14:cnt1=P%+16:�

|�set:*FX128,128

�:

��"����Printer codes   �

�Apound=35:half=124:hash=38:quarter=123:threequart=60:divide=62

�:

�	*FX18

�4�1,7,1,-1,1,1,1,1,126,-10,-5,-2,126,126:*FX212,0

��p=0�2�2:P%=&6700

��[OPTp:LDX#0:STX&84:LDY#&88:STY&80:LDY#&74:STY&81:LDY#&48:STY&82:LDY#&78:STY&83:.loop LDA(&80,X):CMP#158:BEQtrue:CMP#159:BEQfalse:CMP#145:BPLskip1:CMP#129:BMIspace:JMPfalse:.true LDY#1:STY&84:JMPspace:.false LDY#0:STY&84:JMPspace

��.skip1 CMP#152:BEQfalse:CMP#155:BMItrue:CMP#156:BMIfalse:.skip2 LDY&84:CPY#1:BEQspace:CMP#255:BEQspace:CMP#160:BMIspace:CMP#163:BEQascii163:CMP#220:BEQascii220:CMP#223:BEQascii223:CMP#251:BEQascii251:CMP#253:BEQascii253:CMP#254

��BEQascii254:�#&7F:.end STA(&82,X):INC&80:BNEskip3:INC&81:.skip3 INC&82:BNEskip4:INC&83:.skip4 LDY&81:CPY#&78:BMIloop:LDY&80:CPY#&40:BMIloop:RTS:.space LDA#32:JMPend:.ascii163 LDA#pound:JMPend:.ascii220 LDA#half:JMPend

�z.ascii223 LDA#hash:JMPend:.ascii251 LDA#quarter:JMPend:.ascii253 LDA#threequart:JMPend:.ascii254 LDA#divide:JMPend:]:�

�
*TV255

��"TPRINT2"
�

00000000  0d 00 0a 08 f4 22 86 9d  0d 00 14 21 f4 22 86 9d  |.....".....!."..|
00000010  84 20 20 54 45 4c 45 50  52 49 4e 54 45 52 20 20  |.  TELEPRINTER  |
00000020  4c 49 53 54 49 4e 47 20  31 0d 00 1e 1c f4 22 86  |LISTING 1.....".|
00000030  9d 84 20 20 20 20 20 84  4d 69 6b 65 20 52 61 77  |..     .Mike Raw|
00000040  6c 69 6e 67 73 0d 00 28  19 f4 22 86 9d 84 20 20  |lings..(.."...  |
00000050  20 20 20 20 20 20 31 2d  32 2d 31 39 38 37 0d 00  |      1-2-1987..|
00000060  32 08 f4 22 86 9d 0d 00  3c 08 f4 22 83 9d 0d 00  |2.."....<.."....|
00000070  46 21 f4 22 83 9d 81 20  20 46 6f 72 20 42 42 43  |F!."...  For BBC|
00000080  42 20 2f 20 42 2b 20 2f  20 4d 41 53 54 45 52 0d  |B / B+ / MASTER.|
00000090  00 50 1e f4 22 83 9d 81  20 20 20 20 20 57 69 74  |.P.."...     Wit|
000000a0  68 20 44 46 53 20 6f 72  20 41 44 46 53 0d 00 5a  |h DFS or ADFS..Z|
000000b0  1d f4 22 83 9d 81 20 20  20 20 20 57 69 74 68 20  |.."...     With |
000000c0  54 46 53 20 6f 72 20 41  54 53 0d 00 64 24 f4 22  |TFS or ATS..d$."|
000000d0  83 9d 81 57 69 74 68 20  53 45 43 4f 4e 44 20 50  |...With SECOND P|
000000e0  52 4f 43 45 53 53 4f 52  20 28 41 54 53 29 0d 00  |ROCESSOR (ATS)..|
000000f0  6e 08 f4 22 83 9d 0d 00  78 08 f4 22 84 9d 0d 00  |n.."....x.."....|
00000100  82 1e f4 22 84 9d 87 20  20 20 20 20 2a 54 59 50  |..."...     *TYP|
00000110  45 20 54 70 2f 49 6e 66  20 46 6f 72 0d 00 8c 1c  |E Tp/Inf For....|
00000120  f4 22 84 9d 87 20 20 20  20 20 20 20 46 75 6c 6c  |."...       Full|
00000130  20 64 65 74 61 69 6c 73  0d 00 96 08 f4 22 84 9d  | details....."..|
00000140  0d 00 a0 05 3a 0d 00 aa  23 f4 22 83 9d 81 88 20  |....:...#.".... |
00000150  5a 65 72 6f 20 50 61 67  65 20 41 64 64 72 65 73  |Zero Page Addres|
00000160  73 65 73 20 20 20 20 9c  0d 00 b4 21 69 6e 73 3d  |ses    ....!ins=|
00000170  26 38 38 3a 72 65 6d 3d  26 38 41 3a 65 78 74 3d  |&88:rem=&8A:ext=|
00000180  26 38 43 3a 66 3d 26 38  45 0d 00 be 05 3a 0d 00  |&8C:f=&8E....:..|
00000190  c8 23 f4 22 83 9d 81 88  53 74 61 72 74 20 2f 20  |.#."....Start / |
000001a0  45 6e 64 20 41 64 64 72  65 73 73 65 73 20 20 20  |End Addresses   |
000001b0  9c 0d 00 d2 1b 73 74 61  72 74 3d 90 2b 26 31 39  |.....start=.+&19|
000001c0  30 30 3a 65 6e 64 3d 26  36 36 30 30 0d 00 dc 05  |00:end=&6600....|
000001d0  3a 0d 00 e6 0c e3 70 3d  30 b8 32 88 32 0d 00 f0  |:.....p=0.2.2...|
000001e0  05 3a 0d 00 fa 1a f4 22  83 9d 81 88 43 6f 64 65  |.:....."....Code|
000001f0  20 41 64 64 72 65 73 73  20 20 20 9c 0d 01 04 0c  | Address   .....|
00000200  50 25 3d 26 36 36 30 30  0d 01 0e 05 3a 0d 01 18  |P%=&6600....:...|
00000210  4b 5b 4f 50 54 70 3a 2e  73 65 74 20 4c 44 59 23  |K[OPTp:.set LDY#|
00000220  30 3a 53 54 59 66 3a 53  45 49 3a 2e 4c 31 20 4c  |0:STYf:SEI:.L1 L|
00000230  44 41 26 32 32 41 2c 59  3a 53 54 41 69 6e 73 31  |DA&22A,Y:STAins1|
00000240  2c 59 3a 4c 44 41 69 6e  69 74 2b 36 2c 59 3a 53  |,Y:LDAinit+6,Y:S|
00000250  54 41 26 32 32 41 2c 59  0d 01 22 b1 49 4e 59 3a  |TA&22A,Y..".INY:|
00000260  43 50 59 23 36 3a 42 4e  45 4c 31 3a 43 4c 49 3a  |CPY#6:BNEL1:CLI:|
00000270  52 54 53 3a 2e 69 6e 73  32 20 4c 44 59 66 3a 42  |RTS:.ins2 LDYf:B|
00000280  45 51 6f 6c 64 31 3a 43  50 58 23 33 3a 42 4e 45  |EQold1:CPX#3:BNE|
00000290  6f 6c 64 31 3a 43 50 59  23 33 3a 42 4e 45 42 31  |old1:CPY#3:BNEB1|
000002a0  3a 53 45 43 3a 52 54 53  3a 2e 42 31 20 4c 44 59  |:SEC:RTS:.B1 LDY|
000002b0  23 30 3a 53 54 41 28 69  6e 73 29 2c 59 3a 49 4e  |#0:STA(ins),Y:IN|
000002c0  59 3a 53 54 59 66 3a 50  48 41 3a 4c 44 59 69 6e  |Y:STYf:PHA:LDYin|
000002d0  73 3a 4c 44 41 69 6e 73  2b 31 3a 4a 53 52 53 3a  |s:LDAins+1:JSRS:|
000002e0  53 54 41 69 6e 73 2b 31  3a 53 54 59 69 6e 73 3a  |STAins+1:STYins:|
000002f0  50 4c 41 3a 49 4e 43 65  78 74 3a 42 4e 45 42 32  |PLA:INCext:BNEB2|
00000300  3a 49 4e 43 65 78 74 2b  31 0d 01 2c e9 4c 44 59  |:INCext+1..,.LDY|
00000310  23 28 28 65 6e 64 2d 73  74 61 72 74 29 81 20 32  |#((end-start). 2|
00000320  35 36 29 3a 43 50 59 65  78 74 2b 31 3a 42 4e 45  |56):CPYext+1:BNE|
00000330  42 32 3a 53 54 58 66 3a  2e 42 32 20 43 4c 43 3a  |B2:STXf:.B2 CLC:|
00000340  52 54 53 3a 2e 6f 6c 64  31 20 4a 4d 50 28 69 6e  |RTS:.old1 JMP(in|
00000350  73 31 29 3a 2e 72 65 6d  32 20 50 48 50 3a 4c 44  |s1):.rem2 PHP:LD|
00000360  59 66 3a 42 45 51 6f 6c  64 32 3a 43 50 58 23 33  |Yf:BEQold2:CPX#3|
00000370  3a 42 4e 45 6f 6c 64 32  3a 43 50 59 23 32 3a 42  |:BNEold2:CPY#2:B|
00000380  4e 45 42 33 3a 50 4c 50  3a 53 45 43 3a 52 54 53  |NEB3:PLP:SEC:RTS|
00000390  3a 2e 42 33 20 4c 44 59  23 30 3a 4c 44 41 28 72  |:.B3 LDY#0:LDA(r|
000003a0  65 6d 29 2c 59 3a 50 4c  50 3a 42 56 53 42 32 3a  |em),Y:PLP:BVSB2:|
000003b0  49 4e 59 3a 53 54 59 66  3a 50 48 41 3a 4c 44 59  |INY:STYf:PHA:LDY|
000003c0  72 65 6d 3a 4c 44 41 72  65 6d 2b 31 3a 4a 53 52  |rem:LDArem+1:JSR|
000003d0  53 3a 53 54 41 72 65 6d  2b 31 3a 53 54 59 72 65  |S:STArem+1:STYre|
000003e0  6d 3a 50 4c 41 3a 44 45  43 65 78 74 3a 42 4e 45  |m:PLA:DECext:BNE|
000003f0  42 34 0d 01 36 c7 4c 44  59 65 78 74 2b 31 3a 42  |B4..6.LDYext+1:B|
00000400  4e 45 42 35 3a 49 4e 43  66 3a 42 50 4c 42 35 3a  |NEB5:INCf:BPLB5:|
00000410  2e 42 34 20 4c 44 59 65  78 74 3a 49 4e 59 3a 42  |.B4 LDYext:INY:B|
00000420  4e 45 42 35 3a 44 45 43  65 78 74 2b 31 3a 2e 42  |NEB5:DECext+1:.B|
00000430  35 20 54 41 59 3a 43 4c  43 3a 52 54 53 3a 2e 6f  |5 TAY:CLC:RTS:.o|
00000440  6c 64 32 20 50 4c 50 3a  4a 4d 50 28 72 65 6d 31  |ld2 PLP:JMP(rem1|
00000450  29 3a 2e 63 6e 74 32 20  50 48 50 3a 43 50 58 23  |):.cnt2 PHP:CPX#|
00000460  31 32 37 3a 42 45 51 66  6c 73 68 3a 4c 44 41 23  |127:BEQflsh:LDA#|
00000470  30 3a 43 50 58 23 31 32  36 3a 42 4e 45 42 36 3a  |0:CPX#126:BNEB6:|
00000480  53 54 41 66 3a 50 4c 50  3a 52 54 53 3a 2e 42 36  |STAf:PLP:RTS:.B6|
00000490  20 43 4d 50 66 3a 42 45  51 6f 6c 64 33 3a 43 50  | CMPf:BEQold3:CP|
000004a0  58 23 33 3a 42 4e 45 6f  6c 64 33 3a 50 4c 50 3a  |X#3:BNEold3:PLP:|
000004b0  50 48 50 3a 42 56 43 42  37 0d 01 40 07 50 4c 50  |PHP:BVCB7..@.PLP|
000004c0  0d 01 4a 07 52 54 53 0d  01 54 ea 2e 66 6c 73 68  |..J.RTS..T..flsh|
000004d0  20 4c 44 41 23 32 3a 53  54 41 66 3a 54 59 41 3a  | LDA#2:STAf:TYA:|
000004e0  50 48 41 3a 4c 44 59 23  30 3a 53 45 49 3a 2e 4c  |PHA:LDY#0:SEI:.L|
000004f0  32 20 4c 44 41 69 6e 69  74 2c 59 3a 53 54 41 69  |2 LDAinit,Y:STAi|
00000500  6e 73 2c 59 3a 49 4e 59  3a 43 50 59 23 36 3a 42  |ns,Y:INY:CPY#6:B|
00000510  4e 45 4c 32 3a 43 4c 49  3a 50 4c 41 3a 54 41 59  |NEL2:CLI:PLA:TAY|
00000520  3a 50 4c 50 3a 52 54 53  3a 2e 42 37 20 50 4c 50  |:PLP:RTS:.B7 PLP|
00000530  3a 50 48 50 3a 42 43 43  42 38 3a 53 42 43 65 78  |:PHP:BCCB8:SBCex|
00000540  74 3a 54 41 58 3a 4c 44  41 23 28 28 65 6e 64 2d  |t:TAX:LDA#((end-|
00000550  73 74 61 72 74 29 81 32  35 36 29 3a 53 42 43 65  |start).256):SBCe|
00000560  78 74 2b 31 3a 54 41 59  3a 50 4c 50 3a 52 54 53  |xt+1:TAY:PLP:RTS|
00000570  3a 2e 42 38 20 4c 44 58  65 78 74 3a 4c 44 59 65  |:.B8 LDXext:LDYe|
00000580  78 74 2b 31 3a 50 4c 50  3a 52 54 53 3a 2e 6f 6c  |xt+1:PLP:RTS:.ol|
00000590  64 33 20 50 4c 50 3a 4a  4d 50 28 63 6e 74 31 29  |d3 PLP:JMP(cnt1)|
000005a0  3a 2e 53 20 49 4e 59 3a  42 4e 45 42 39 3a 43 4c  |:.S INY:BNEB9:CL|
000005b0  43 0d 01 5e 3f 41 44 43  23 31 3a 43 4d 50 23 28  |C..^?ADC#1:CMP#(|
000005c0  65 6e 64 20 81 32 35 36  29 3a 42 4e 45 42 39 3a  |end .256):BNEB9:|
000005d0  4c 44 41 23 28 73 74 61  72 74 20 81 32 35 36 29  |LDA#(start .256)|
000005e0  3a 2e 42 39 20 52 54 53  3a 2e 69 6e 69 74 3a 5d  |:.B9 RTS:.init:]|
000005f0  0d 01 68 05 3a 0d 01 72  66 21 50 25 3d 73 74 61  |..h.:..rf!P%=sta|
00000600  72 74 3a 21 28 50 25 2b  32 29 3d 73 74 61 72 74  |rt:!(P%+2)=start|
00000610  3a 21 28 50 25 2b 36 29  3d 69 6e 73 32 3a 21 28  |:!(P%+6)=ins2:!(|
00000620  50 25 2b 38 29 3d 72 65  6d 32 3a 21 28 50 25 2b  |P%+8)=rem2:!(P%+|
00000630  31 30 29 3d 63 6e 74 32  3a 69 6e 73 31 3d 50 25  |10)=cnt2:ins1=P%|
00000640  2b 31 32 3a 72 65 6d 31  3d 50 25 2b 31 34 3a 63  |+12:rem1=P%+14:c|
00000650  6e 74 31 3d 50 25 2b 31  36 3a ed 0d 01 7c 13 d6  |nt1=P%+16:...|..|
00000660  73 65 74 3a 2a 46 58 31  32 38 2c 31 32 38 0d 01  |set:*FX128,128..|
00000670  86 05 3a 0d 01 90 1b f4  22 83 9d 81 88 50 72 69  |..:....."....Pri|
00000680  6e 74 65 72 20 63 6f 64  65 73 20 20 20 9c 0d 01  |nter codes   ...|
00000690  9a 41 70 6f 75 6e 64 3d  33 35 3a 68 61 6c 66 3d  |.Apound=35:half=|
000006a0  31 32 34 3a 68 61 73 68  3d 33 38 3a 71 75 61 72  |124:hash=38:quar|
000006b0  74 65 72 3d 31 32 33 3a  74 68 72 65 65 71 75 61  |ter=123:threequa|
000006c0  72 74 3d 36 30 3a 64 69  76 69 64 65 3d 36 32 0d  |rt=60:divide=62.|
000006d0  01 a4 05 3a 0d 01 ae 09  2a 46 58 31 38 0d 01 b8  |...:....*FX18...|
000006e0  34 e2 31 2c 37 2c 31 2c  2d 31 2c 31 2c 31 2c 31  |4.1,7,1,-1,1,1,1|
000006f0  2c 31 2c 31 32 36 2c 2d  31 30 2c 2d 35 2c 2d 32  |,1,126,-10,-5,-2|
00000700  2c 31 32 36 2c 31 32 36  3a 2a 46 58 32 31 32 2c  |,126,126:*FX212,|
00000710  30 0d 01 c2 15 e3 70 3d  30 b8 32 88 32 3a 50 25  |0.....p=0.2.2:P%|
00000720  3d 26 36 37 30 30 0d 01  cc e8 5b 4f 50 54 70 3a  |=&6700....[OPTp:|
00000730  4c 44 58 23 30 3a 53 54  58 26 38 34 3a 4c 44 59  |LDX#0:STX&84:LDY|
00000740  23 26 38 38 3a 53 54 59  26 38 30 3a 4c 44 59 23  |#&88:STY&80:LDY#|
00000750  26 37 34 3a 53 54 59 26  38 31 3a 4c 44 59 23 26  |&74:STY&81:LDY#&|
00000760  34 38 3a 53 54 59 26 38  32 3a 4c 44 59 23 26 37  |48:STY&82:LDY#&7|
00000770  38 3a 53 54 59 26 38 33  3a 2e 6c 6f 6f 70 20 4c  |8:STY&83:.loop L|
00000780  44 41 28 26 38 30 2c 58  29 3a 43 4d 50 23 31 35  |DA(&80,X):CMP#15|
00000790  38 3a 42 45 51 74 72 75  65 3a 43 4d 50 23 31 35  |8:BEQtrue:CMP#15|
000007a0  39 3a 42 45 51 66 61 6c  73 65 3a 43 4d 50 23 31  |9:BEQfalse:CMP#1|
000007b0  34 35 3a 42 50 4c 73 6b  69 70 31 3a 43 4d 50 23  |45:BPLskip1:CMP#|
000007c0  31 32 39 3a 42 4d 49 73  70 61 63 65 3a 4a 4d 50  |129:BMIspace:JMP|
000007d0  66 61 6c 73 65 3a 2e 74  72 75 65 20 4c 44 59 23  |false:.true LDY#|
000007e0  31 3a 53 54 59 26 38 34  3a 4a 4d 50 73 70 61 63  |1:STY&84:JMPspac|
000007f0  65 3a 2e 66 61 6c 73 65  20 4c 44 59 23 30 3a 53  |e:.false LDY#0:S|
00000800  54 59 26 38 34 3a 4a 4d  50 73 70 61 63 65 0d 01  |TY&84:JMPspace..|
00000810  d6 e7 2e 73 6b 69 70 31  20 43 4d 50 23 31 35 32  |...skip1 CMP#152|
00000820  3a 42 45 51 66 61 6c 73  65 3a 43 4d 50 23 31 35  |:BEQfalse:CMP#15|
00000830  35 3a 42 4d 49 74 72 75  65 3a 43 4d 50 23 31 35  |5:BMItrue:CMP#15|
00000840  36 3a 42 4d 49 66 61 6c  73 65 3a 2e 73 6b 69 70  |6:BMIfalse:.skip|
00000850  32 20 4c 44 59 26 38 34  3a 43 50 59 23 31 3a 42  |2 LDY&84:CPY#1:B|
00000860  45 51 73 70 61 63 65 3a  43 4d 50 23 32 35 35 3a  |EQspace:CMP#255:|
00000870  42 45 51 73 70 61 63 65  3a 43 4d 50 23 31 36 30  |BEQspace:CMP#160|
00000880  3a 42 4d 49 73 70 61 63  65 3a 43 4d 50 23 31 36  |:BMIspace:CMP#16|
00000890  33 3a 42 45 51 61 73 63  69 69 31 36 33 3a 43 4d  |3:BEQascii163:CM|
000008a0  50 23 32 32 30 3a 42 45  51 61 73 63 69 69 32 32  |P#220:BEQascii22|
000008b0  30 3a 43 4d 50 23 32 32  33 3a 42 45 51 61 73 63  |0:CMP#223:BEQasc|
000008c0  69 69 32 32 33 3a 43 4d  50 23 32 35 31 3a 42 45  |ii223:CMP#251:BE|
000008d0  51 61 73 63 69 69 32 35  31 3a 43 4d 50 23 32 35  |Qascii251:CMP#25|
000008e0  33 3a 42 45 51 61 73 63  69 69 32 35 33 3a 43 4d  |3:BEQascii253:CM|
000008f0  50 23 32 35 34 0d 01 e0  dd 42 45 51 61 73 63 69  |P#254....BEQasci|
00000900  69 32 35 34 3a 80 23 26  37 46 3a 2e 65 6e 64 20  |i254:.#&7F:.end |
00000910  53 54 41 28 26 38 32 2c  58 29 3a 49 4e 43 26 38  |STA(&82,X):INC&8|
00000920  30 3a 42 4e 45 73 6b 69  70 33 3a 49 4e 43 26 38  |0:BNEskip3:INC&8|
00000930  31 3a 2e 73 6b 69 70 33  20 49 4e 43 26 38 32 3a  |1:.skip3 INC&82:|
00000940  42 4e 45 73 6b 69 70 34  3a 49 4e 43 26 38 33 3a  |BNEskip4:INC&83:|
00000950  2e 73 6b 69 70 34 20 4c  44 59 26 38 31 3a 43 50  |.skip4 LDY&81:CP|
00000960  59 23 26 37 38 3a 42 4d  49 6c 6f 6f 70 3a 4c 44  |Y#&78:BMIloop:LD|
00000970  59 26 38 30 3a 43 50 59  23 26 34 30 3a 42 4d 49  |Y&80:CPY#&40:BMI|
00000980  6c 6f 6f 70 3a 52 54 53  3a 2e 73 70 61 63 65 20  |loop:RTS:.space |
00000990  4c 44 41 23 33 32 3a 4a  4d 50 65 6e 64 3a 2e 61  |LDA#32:JMPend:.a|
000009a0  73 63 69 69 31 36 33 20  4c 44 41 23 70 6f 75 6e  |scii163 LDA#poun|
000009b0  64 3a 4a 4d 50 65 6e 64  3a 2e 61 73 63 69 69 32  |d:JMPend:.ascii2|
000009c0  32 30 20 4c 44 41 23 68  61 6c 66 3a 4a 4d 50 65  |20 LDA#half:JMPe|
000009d0  6e 64 0d 01 ea 7a 2e 61  73 63 69 69 32 32 33 20  |nd...z.ascii223 |
000009e0  4c 44 41 23 68 61 73 68  3a 4a 4d 50 65 6e 64 3a  |LDA#hash:JMPend:|
000009f0  2e 61 73 63 69 69 32 35  31 20 4c 44 41 23 71 75  |.ascii251 LDA#qu|
00000a00  61 72 74 65 72 3a 4a 4d  50 65 6e 64 3a 2e 61 73  |arter:JMPend:.as|
00000a10  63 69 69 32 35 33 20 4c  44 41 23 74 68 72 65 65  |cii253 LDA#three|
00000a20  71 75 61 72 74 3a 4a 4d  50 65 6e 64 3a 2e 61 73  |quart:JMPend:.as|
00000a30  63 69 69 32 35 34 20 4c  44 41 23 64 69 76 69 64  |cii254 LDA#divid|
00000a40  65 3a 4a 4d 50 65 6e 64  3a 5d 3a ed 0d 01 f4 0a  |e:JMPend:]:.....|
00000a50  2a 54 56 32 35 35 0d 01  fe 0e d7 22 54 50 52 49  |*TV255....."TPRI|
00000a60  4e 54 32 22 0d ff                                 |NT2"..|
00000a66