� ******************
� TEXT TYPE
� by Richard Dimond
(� ******************
2�6:�=&2800
<
�assem
F�'"Filename to print? "f$
P
�clear
Z�"LOAD "+f$+" 2800"
d�22,3,14
n�'"PRESS SHIFT TO SCROLL"''
x
�print
��
���assem
��i=0�2�2
�P%=&900
�	[OPTi
�
.print
�LDA#0:STA&70
�LDA#&28:STA&71
�
.L1 LDY#0
�.L2 LDA(&70),Y
�CMP#0:BEQrts
�CMP#&0D:BEQprt
�CMP#&20:BCCspc

CMP#&7F:BCSspc

.prt JSR&FFE3

.inc INY:BNE L2

"INC&71:JMP L1

,.spc LDA#&20

6JSR&FFE3:JMPinc

@.rts RTS

J
.clear

TLDA#0:STA&72

^LDA#&28:STA&73

h
.L3 LDY#0

r
.L4 LDA#0

|STA(&72),Y

�INY:BNE L4

�
INC&73

�
LDA&73

�CMP#&40

�
BNE L3

�RTS

�]

��

��
�

00000000  0d 00 0a 18 f4 20 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |..... **********|
00000010  2a 2a 2a 2a 2a 2a 2a 2a  0d 00 14 0f f4 20 54 45  |********..... TE|
00000020  58 54 20 54 59 50 45 0d  00 1e 17 f4 20 62 79 20  |XT TYPE..... by |
00000030  52 69 63 68 61 72 64 20  44 69 6d 6f 6e 64 0d 00  |Richard Dimond..|
00000040  28 18 f4 20 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |(.. ************|
00000050  2a 2a 2a 2a 2a 2a 0d 00  32 0e eb 36 3a d3 3d 26  |******..2..6:.=&|
00000060  32 38 30 30 0d 00 3c 0a  f2 61 73 73 65 6d 0d 00  |2800..<..assem..|
00000070  46 1d e8 27 22 46 69 6c  65 6e 61 6d 65 20 74 6f  |F..'"Filename to|
00000080  20 70 72 69 6e 74 3f 20  22 66 24 0d 00 50 0a d6  | print? "f$..P..|
00000090  63 6c 65 61 72 0d 00 5a  17 ff 22 4c 4f 41 44 20  |clear..Z.."LOAD |
000000a0  22 2b 66 24 2b 22 20 32  38 30 30 22 0d 00 64 0c  |"+f$+" 2800"..d.|
000000b0  ef 32 32 2c 33 2c 31 34  0d 00 6e 1f f1 27 22 50  |.22,3,14..n..'"P|
000000c0  52 45 53 53 20 53 48 49  46 54 20 54 4f 20 53 43  |RESS SHIFT TO SC|
000000d0  52 4f 4c 4c 22 27 27 0d  00 78 0a d6 70 72 69 6e  |ROLL"''..x..prin|
000000e0  74 0d 00 82 05 e0 0d 00  8c 0b dd f2 61 73 73 65  |t...........asse|
000000f0  6d 0d 00 96 0c e3 69 3d  30 b8 32 88 32 0d 00 a0  |m.....i=0.2.2...|
00000100  0b 50 25 3d 26 39 30 30  0d 00 aa 09 5b 4f 50 54  |.P%=&900....[OPT|
00000110  69 0d 00 b4 0a 2e 70 72  69 6e 74 0d 00 be 10 4c  |i.....print....L|
00000120  44 41 23 30 3a 53 54 41  26 37 30 0d 00 c8 12 4c  |DA#0:STA&70....L|
00000130  44 41 23 26 32 38 3a 53  54 41 26 37 31 0d 00 d2  |DA#&28:STA&71...|
00000140  0d 2e 4c 31 20 4c 44 59  23 30 0d 00 dc 12 2e 4c  |..L1 LDY#0.....L|
00000150  32 20 4c 44 41 28 26 37  30 29 2c 59 0d 00 e6 10  |2 LDA(&70),Y....|
00000160  43 4d 50 23 30 3a 42 45  51 72 74 73 0d 00 f0 12  |CMP#0:BEQrts....|
00000170  43 4d 50 23 26 30 44 3a  42 45 51 70 72 74 0d 00  |CMP#&0D:BEQprt..|
00000180  fa 12 43 4d 50 23 26 32  30 3a 42 43 43 73 70 63  |..CMP#&20:BCCspc|
00000190  0d 01 04 12 43 4d 50 23  26 37 46 3a 42 43 53 73  |....CMP#&7F:BCSs|
000001a0  70 63 0d 01 0e 11 2e 70  72 74 20 4a 53 52 26 46  |pc.....prt JSR&F|
000001b0  46 45 33 0d 01 18 13 2e  69 6e 63 20 49 4e 59 3a  |FE3.....inc INY:|
000001c0  42 4e 45 20 4c 32 0d 01  22 11 49 4e 43 26 37 31  |BNE L2..".INC&71|
000001d0  3a 4a 4d 50 20 4c 31 0d  01 2c 10 2e 73 70 63 20  |:JMP L1..,..spc |
000001e0  4c 44 41 23 26 32 30 0d  01 36 13 4a 53 52 26 46  |LDA#&20..6.JSR&F|
000001f0  46 45 33 3a 4a 4d 50 69  6e 63 0d 01 40 0c 2e 72  |FE3:JMPinc..@..r|
00000200  74 73 20 52 54 53 0d 01  4a 0a 2e 63 6c 65 61 72  |ts RTS..J..clear|
00000210  0d 01 54 10 4c 44 41 23  30 3a 53 54 41 26 37 32  |..T.LDA#0:STA&72|
00000220  0d 01 5e 12 4c 44 41 23  26 32 38 3a 53 54 41 26  |..^.LDA#&28:STA&|
00000230  37 33 0d 01 68 0d 2e 4c  33 20 4c 44 59 23 30 0d  |73..h..L3 LDY#0.|
00000240  01 72 0d 2e 4c 34 20 4c  44 41 23 30 0d 01 7c 0e  |.r..L4 LDA#0..|.|
00000250  53 54 41 28 26 37 32 29  2c 59 0d 01 86 0e 49 4e  |STA(&72),Y....IN|
00000260  59 3a 42 4e 45 20 4c 34  0d 01 90 0a 49 4e 43 26  |Y:BNE L4....INC&|
00000270  37 33 0d 01 9a 0a 4c 44  41 26 37 33 0d 01 a4 0b  |73....LDA&73....|
00000280  43 4d 50 23 26 34 30 0d  01 ae 0a 42 4e 45 20 4c  |CMP#&40....BNE L|
00000290  33 0d 01 b8 07 52 54 53  0d 01 c2 05 5d 0d 01 cc  |3....RTS....]...|
000002a0  05 ed 0d 01 d6 05 e1 0d  ff                       |.........|
000002a9