�=&2500

�assem
�"LOAD UCODE0"
(	�text
2
��text
<&�clear:�22,6:�"LOAD HDPROJ0 2500" 
F*�22,3,14:�''"SHIFT TO SCROLL"'':�print
P$�"PRESS SPACE TO CONTINUE":key=�
Z�22,0:�"LOAD PIC1"
d$�"PRESS SPACE TO CONTINUE":key=�
n&�clear:�22,6:�"LOAD HDPROJ1 2500" 
x*�22,3,14:�''"SHIFT TO SCROLL"'':�print
�$�"PRESS SPACE TO CONTINUE":key=�
��22,0:�"LOAD PIC2"
�$�"PRESS SPACE TO CONTINUE":key=�
�&�clear:�22,6:�"LOAD HDPROJ2 2500" 
�*�22,3,14:�''"SHIFT TO SCROLL"'':�print
�,�;"<P> TO PRINT TEXT, <M> FOR MAIN MENU"
�
�:a$=�
��a$="M"��"MENU"
��a$="P"� �2,15
�4�clear:�22,6:�"LOAD HDPROJ0 2500":�22,3:� print 
��22,0:�"LOAD PIC1":� &90A
�3�clear:�22,6:�"LOAD HDPROJ1 2500":�22,3:� print
��22,0:�"LOAD PIC2":� &90A

3�clear:�22,6:�"LOAD HDPROJ2 2500":�22,3:� print

�3:�"MENU"

��:�

"��assem

,�i=0�2�2

6P%=&B00

@	[OPTi

J�.print:LDA#0:STA&70:LDA#&25: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:JSR&FFE3:JMPinc:.rts RTS

Tv.clear:LDA#0:STA&72:LDA#&25:STA&73:.L3 LDY#0:.L4 LDA#0:STA(&72),Y:INY:BNE L4:INC&73:LDA&73:CMP#&40:BNE L3:RTS:]:� 

^�
�

00000000  0d 00 0a 0b d3 3d 26 32  35 30 30 0d 00 14 0a f2  |.....=&2500.....|
00000010  61 73 73 65 6d 0d 00 1e  12 ff 22 4c 4f 41 44 20  |assem....."LOAD |
00000020  55 43 4f 44 45 30 22 0d  00 28 09 f2 74 65 78 74  |UCODE0"..(..text|
00000030  0d 00 32 0a dd f2 74 65  78 74 0d 00 3c 26 d6 63  |..2...text..<&.c|
00000040  6c 65 61 72 3a ef 32 32  2c 36 3a ff 22 4c 4f 41  |lear:.22,6:."LOA|
00000050  44 20 48 44 50 52 4f 4a  30 20 32 35 30 30 22 20  |D HDPROJ0 2500" |
00000060  0d 00 46 2a ef 32 32 2c  33 2c 31 34 3a f1 27 27  |..F*.22,3,14:.''|
00000070  22 53 48 49 46 54 20 54  4f 20 53 43 52 4f 4c 4c  |"SHIFT TO SCROLL|
00000080  22 27 27 3a d6 70 72 69  6e 74 0d 00 50 24 f1 22  |"'':.print..P$."|
00000090  50 52 45 53 53 20 53 50  41 43 45 20 54 4f 20 43  |PRESS SPACE TO C|
000000a0  4f 4e 54 49 4e 55 45 22  3a 6b 65 79 3d a5 0d 00  |ONTINUE":key=...|
000000b0  5a 16 ef 32 32 2c 30 3a  ff 22 4c 4f 41 44 20 50  |Z..22,0:."LOAD P|
000000c0  49 43 31 22 0d 00 64 24  f1 22 50 52 45 53 53 20  |IC1"..d$."PRESS |
000000d0  53 50 41 43 45 20 54 4f  20 43 4f 4e 54 49 4e 55  |SPACE TO CONTINU|
000000e0  45 22 3a 6b 65 79 3d a5  0d 00 6e 26 d6 63 6c 65  |E":key=...n&.cle|
000000f0  61 72 3a ef 32 32 2c 36  3a ff 22 4c 4f 41 44 20  |ar:.22,6:."LOAD |
00000100  48 44 50 52 4f 4a 31 20  32 35 30 30 22 20 0d 00  |HDPROJ1 2500" ..|
00000110  78 2a ef 32 32 2c 33 2c  31 34 3a f1 27 27 22 53  |x*.22,3,14:.''"S|
00000120  48 49 46 54 20 54 4f 20  53 43 52 4f 4c 4c 22 27  |HIFT TO SCROLL"'|
00000130  27 3a d6 70 72 69 6e 74  0d 00 82 24 f1 22 50 52  |':.print...$."PR|
00000140  45 53 53 20 53 50 41 43  45 20 54 4f 20 43 4f 4e  |ESS SPACE TO CON|
00000150  54 49 4e 55 45 22 3a 6b  65 79 3d a5 0d 00 8c 16  |TINUE":key=.....|
00000160  ef 32 32 2c 30 3a ff 22  4c 4f 41 44 20 50 49 43  |.22,0:."LOAD PIC|
00000170  32 22 0d 00 96 24 f1 22  50 52 45 53 53 20 53 50  |2"...$."PRESS SP|
00000180  41 43 45 20 54 4f 20 43  4f 4e 54 49 4e 55 45 22  |ACE TO CONTINUE"|
00000190  3a 6b 65 79 3d a5 0d 00  a0 26 d6 63 6c 65 61 72  |:key=....&.clear|
000001a0  3a ef 32 32 2c 36 3a ff  22 4c 4f 41 44 20 48 44  |:.22,6:."LOAD HD|
000001b0  50 52 4f 4a 32 20 32 35  30 30 22 20 0d 00 aa 2a  |PROJ2 2500" ...*|
000001c0  ef 32 32 2c 33 2c 31 34  3a f1 27 27 22 53 48 49  |.22,3,14:.''"SHI|
000001d0  46 54 20 54 4f 20 53 43  52 4f 4c 4c 22 27 27 3a  |FT TO SCROLL"'':|
000001e0  d6 70 72 69 6e 74 0d 00  b4 2c f1 3b 22 3c 50 3e  |.print...,.;"<P>|
000001f0  20 54 4f 20 50 52 49 4e  54 20 54 45 58 54 2c 20  | TO PRINT TEXT, |
00000200  3c 4d 3e 20 46 4f 52 20  4d 41 49 4e 20 4d 45 4e  |<M> FOR MAIN MEN|
00000210  55 22 0d 00 be 0a f5 3a  61 24 3d be 0d 00 c8 13  |U".....:a$=.....|
00000220  e7 61 24 3d 22 4d 22 8c  d7 22 4d 45 4e 55 22 0d  |.a$="M".."MENU".|
00000230  00 d2 12 e7 61 24 3d 22  50 22 8c 20 ef 32 2c 31  |....a$="P". .2,1|
00000240  35 0d 00 dc 34 d6 63 6c  65 61 72 3a ef 32 32 2c  |5...4.clear:.22,|
00000250  36 3a ff 22 4c 4f 41 44  20 48 44 50 52 4f 4a 30  |6:."LOAD HDPROJ0|
00000260  20 32 35 30 30 22 3a ef  32 32 2c 33 3a d6 20 70  | 2500":.22,3:. p|
00000270  72 69 6e 74 20 0d 00 e6  1d ef 32 32 2c 30 3a ff  |rint .....22,0:.|
00000280  22 4c 4f 41 44 20 50 49  43 31 22 3a d6 20 26 39  |"LOAD PIC1":. &9|
00000290  30 41 0d 00 f0 33 d6 63  6c 65 61 72 3a ef 32 32  |0A...3.clear:.22|
000002a0  2c 36 3a ff 22 4c 4f 41  44 20 48 44 50 52 4f 4a  |,6:."LOAD HDPROJ|
000002b0  31 20 32 35 30 30 22 3a  ef 32 32 2c 33 3a d6 20  |1 2500":.22,3:. |
000002c0  70 72 69 6e 74 0d 00 fa  1d ef 32 32 2c 30 3a ff  |print.....22,0:.|
000002d0  22 4c 4f 41 44 20 50 49  43 32 22 3a d6 20 26 39  |"LOAD PIC2":. &9|
000002e0  30 41 0d 01 04 33 d6 63  6c 65 61 72 3a ef 32 32  |0A...3.clear:.22|
000002f0  2c 36 3a ff 22 4c 4f 41  44 20 48 44 50 52 4f 4a  |,6:."LOAD HDPROJ|
00000300  32 20 32 35 30 30 22 3a  ef 32 32 2c 33 3a d6 20  |2 2500":.22,3:. |
00000310  70 72 69 6e 74 0d 01 0e  0e ef 33 3a d7 22 4d 45  |print.....3:."ME|
00000320  4e 55 22 0d 01 18 08 fd  a3 3a e1 0d 01 22 0b dd  |NU"......:..."..|
00000330  f2 61 73 73 65 6d 0d 01  2c 0c e3 69 3d 30 b8 32  |.assem..,..i=0.2|
00000340  88 32 0d 01 36 0b 50 25  3d 26 42 30 30 0d 01 40  |.2..6.P%=&B00..@|
00000350  09 5b 4f 50 54 69 0d 01  4a cb 2e 70 72 69 6e 74  |.[OPTi..J..print|
00000360  3a 4c 44 41 23 30 3a 53  54 41 26 37 30 3a 4c 44  |:LDA#0:STA&70:LD|
00000370  41 23 26 32 35 3a 53 54  41 26 37 31 3a 2e 4c 31  |A#&25:STA&71:.L1|
00000380  20 4c 44 59 23 30 3a 2e  4c 32 20 4c 44 41 28 26  | LDY#0:.L2 LDA(&|
00000390  37 30 29 2c 59 3a 43 4d  50 23 30 3a 42 45 51 72  |70),Y:CMP#0:BEQr|
000003a0  74 73 3a 43 4d 50 23 26  30 44 3a 42 45 51 70 72  |ts:CMP#&0D:BEQpr|
000003b0  74 3a 43 4d 50 23 26 32  30 3a 42 43 43 73 70 63  |t:CMP#&20:BCCspc|
000003c0  3a 43 4d 50 23 26 37 46  3a 42 43 53 73 70 63 3a  |:CMP#&7F:BCSspc:|
000003d0  2e 70 72 74 20 4a 53 52  26 46 46 45 33 3a 2e 69  |.prt JSR&FFE3:.i|
000003e0  6e 63 20 49 4e 59 3a 42  4e 45 20 4c 32 3a 49 4e  |nc INY:BNE L2:IN|
000003f0  43 26 37 31 3a 4a 4d 50  20 4c 31 3a 2e 73 70 63  |C&71:JMP L1:.spc|
00000400  20 4c 44 41 23 26 32 30  3a 4a 53 52 26 46 46 45  | LDA#&20:JSR&FFE|
00000410  33 3a 4a 4d 50 69 6e 63  3a 2e 72 74 73 20 52 54  |3:JMPinc:.rts RT|
00000420  53 0d 01 54 76 2e 63 6c  65 61 72 3a 4c 44 41 23  |S..Tv.clear:LDA#|
00000430  30 3a 53 54 41 26 37 32  3a 4c 44 41 23 26 32 35  |0:STA&72:LDA#&25|
00000440  3a 53 54 41 26 37 33 3a  2e 4c 33 20 4c 44 59 23  |:STA&73:.L3 LDY#|
00000450  30 3a 2e 4c 34 20 4c 44  41 23 30 3a 53 54 41 28  |0:.L4 LDA#0:STA(|
00000460  26 37 32 29 2c 59 3a 49  4e 59 3a 42 4e 45 20 4c  |&72),Y:INY:BNE L|
00000470  34 3a 49 4e 43 26 37 33  3a 4c 44 41 26 37 33 3a  |4:INC&73:LDA&73:|
00000480  43 4d 50 23 26 34 30 3a  42 4e 45 20 4c 33 3a 52  |CMP#&40:BNE L3:R|
00000490  54 53 3a 5d 3a ed 20 0d  01 5e 05 e1 0d ff        |TS:]:. ..^....|
0000049e