�7:�31,0,18
lCode=&7C00:Z=&B00:TEMP=&80:From=&80:To=&82:CB=To:CB_low=CB:CB_high=CB+1:Count=CB+2:Q=Z+&100-2:HisFSC=Q-2
SFSCV=&21E:FileV=&212:Bget=&FFD7:Ob=&FFF4:OsCli=&FFF7:OsWrch=&FFEE:OsAscii=&FFE3
(�ass
<+*SAVE TSOFT 7C00 +200 FFFF7C00 FFFF7C00
F�7
P�
Z	��ass
d� Pass=0�2 �2
nP%=&7C00
x
[OPT Pass
�
JMP Reloc
�.CS
�
.MyFSC
�Cmp#&05
�Beq StarCat
�Jmp(HisFSC)
�.StarCat
�'Ldx#(c1-CS+Z)�256:Ldy#(c1-CS+Z)�256
�
Jsr OsCli
�'Ldx#(c2-CS+Z)�256:Ldy#(c2-CS+Z)�256
�
Jsr OsCli
�BIT &FF:BMI esc
�'Ldx#(c3-CS+Z)�256:Ldy#(c3-CS+Z)�256


Jsr OsCli

.esc

Rts

".c1

,OPT �equs("page710")

6.c2

@OPT �equs("tr.7000")

J.c3

TOPT �equs("disp.7000")

^.StarRun

h.Fi

rCmp#&FF

|Beq LoadFile

�.realosfile

�PHA:PHX:PHY

�"LDA#143:LDX#&12:LDY#4:JSR&FFF4

�PLY:PLX:PLA

�JSR new-CS+Z

�PHA:PHY:PHX

�"LDA#143:LDX#&12:LDY#6:JSR&FFF4

�PLX:PLY:PLA

�RTS

�.new

�
Jmp(Q)

�
.LoadFile

�Stx CB_low
Sty CB_high
5Ldy#0:Lda(CB),Y:Sta From:Iny:Lda(CB),Y:Sta From+1
ALda#&00:Tay:Sta Count:Sta(CB),Y:Iny:Tya:Sta Count+1:Sta(CB),Y
&	Ldy#0
0C.cps Lda(From),Y:Sta(Count),Y:Cmp#33:Bcc ends:Iny:Bne cps:.ends
:Lda#13:Sta(Count),Y
D Lda#7:Ldx CB_low:Ldy CB_high
NJsr realosfile-CS+Z
XLda#0:Sta Count:Sta Count+1
b.loadup
l
Ldy#14
vJsr Bget
�Bcc gotbyte
�Cmp#&FE
�Beq endoffile
�Cmp#&02
�Bne skipthis
� Lda#5:Ldx CB_low:Ldy CB_high
�IJsr realosfile-CS+Z:Ldy#2:Lda(CB),Y:Sta TEMP:Iny:Lda(CB),Y:Sta TEMP+1
�
.skipthis
�Clc:Bcc loadup
�.gotbyte
�Ldy#0:Sta(TEMP),Y
�$Inc TEMP:Bne zz3:Inc TEMP+1:.zz3
�&Inc Count:Bne zz4:Inc Count+1:.zz4
Clc:Bcc loadup
.endoffile
Ldy#&0A:Lda(CB),Y:Pha
 Lda Count:Sta(CB),Y
*Lda Count+1:Iny:Sta(CB),Y
4%Lda#0:Iny:Sta(CB),Y:Iny:Sta(CB),Y
>Pla:Iny:Sta(CB),Y
HRts
R.CodeEnd
\
.Reloc
fLda#&8C:Ldx#12:Jsr Ob
p Lda#&8F:Ldx#&12:Ldy#6:Jsr Ob
z	Ldy#0
�.reloc8 Lda CS,Y:Sta Z,Y
�Iny:Bne reloc8
�Lda FileV:Sta Q
�Lda FileV+1:Sta Q+1
�Lda#(Fi-CS+Z)�256:Sta FileV
�!Lda#(Fi-CS+Z)�256:Sta FileV+1
�Lda FSCV:Sta HisFSC
�Lda FSCV+1:Sta HisFSC+1
�!Lda#(MyFSC-CS+Z)�256:Sta FSCV
�#Lda#(MyFSC-CS+Z)�256:Sta FSCV+1
�Lda#&10:Sta &1362
�Lda#&EF:Sta&13E2
�Lda#&AB:Sta&14E2
&Lda#22:JSR OsWrch:Lda#7:Jmp OsWrch

.EndReloc
]
$�
.�
8ݤequs(S$)
B$P%=S$:P%=P%+�(S$)+1
L	=Pass
�

00000000  0d 00 0a 0f eb 37 3a ef  33 31 2c 30 2c 31 38 0d  |.....7:.31,0,18.|
00000010  00 14 6c 43 6f 64 65 3d  26 37 43 30 30 3a 5a 3d  |..lCode=&7C00:Z=|
00000020  26 42 30 30 3a 54 45 4d  50 3d 26 38 30 3a 46 72  |&B00:TEMP=&80:Fr|
00000030  6f 6d 3d 26 38 30 3a 54  6f 3d 26 38 32 3a 43 42  |om=&80:To=&82:CB|
00000040  3d 54 6f 3a 43 42 5f 6c  6f 77 3d 43 42 3a 43 42  |=To:CB_low=CB:CB|
00000050  5f 68 69 67 68 3d 43 42  2b 31 3a 43 6f 75 6e 74  |_high=CB+1:Count|
00000060  3d 43 42 2b 32 3a 51 3d  5a 2b 26 31 30 30 2d 32  |=CB+2:Q=Z+&100-2|
00000070  3a 48 69 73 46 53 43 3d  51 2d 32 0d 00 1e 53 46  |:HisFSC=Q-2...SF|
00000080  53 43 56 3d 26 32 31 45  3a 46 69 6c 65 56 3d 26  |SCV=&21E:FileV=&|
00000090  32 31 32 3a 42 67 65 74  3d 26 46 46 44 37 3a 4f  |212:Bget=&FFD7:O|
000000a0  62 3d 26 46 46 46 34 3a  4f 73 43 6c 69 3d 26 46  |b=&FFF4:OsCli=&F|
000000b0  46 46 37 3a 4f 73 57 72  63 68 3d 26 46 46 45 45  |FF7:OsWrch=&FFEE|
000000c0  3a 4f 73 41 73 63 69 69  3d 26 46 46 45 33 0d 00  |:OsAscii=&FFE3..|
000000d0  28 08 f2 61 73 73 0d 00  3c 2b 2a 53 41 56 45 20  |(..ass..<+*SAVE |
000000e0  54 53 4f 46 54 20 37 43  30 30 20 2b 32 30 30 20  |TSOFT 7C00 +200 |
000000f0  46 46 46 46 37 43 30 30  20 46 46 46 46 37 43 30  |FFFF7C00 FFFF7C0|
00000100  30 0d 00 46 06 eb 37 0d  00 50 05 e0 0d 00 5a 09  |0..F..7..P....Z.|
00000110  dd f2 61 73 73 0d 00 64  11 e3 20 50 61 73 73 3d  |..ass..d.. Pass=|
00000120  30 b8 32 20 88 32 0d 00  6e 0c 50 25 3d 26 37 43  |0.2 .2..n.P%=&7C|
00000130  30 30 0d 00 78 0d 5b 4f  50 54 20 50 61 73 73 0d  |00..x.[OPT Pass.|
00000140  00 82 0d 4a 4d 50 20 52  65 6c 6f 63 0d 00 8c 07  |...JMP Reloc....|
00000150  2e 43 53 0d 00 96 0a 2e  4d 79 46 53 43 0d 00 a0  |.CS.....MyFSC...|
00000160  0b 43 6d 70 23 26 30 35  0d 00 aa 0f 42 65 71 20  |.Cmp#&05....Beq |
00000170  53 74 61 72 43 61 74 0d  00 b4 0f 4a 6d 70 28 48  |StarCat....Jmp(H|
00000180  69 73 46 53 43 29 0d 00  be 0c 2e 53 74 61 72 43  |isFSC).....StarC|
00000190  61 74 0d 00 c8 27 4c 64  78 23 28 63 31 2d 43 53  |at...'Ldx#(c1-CS|
000001a0  2b 5a 29 83 32 35 36 3a  4c 64 79 23 28 63 31 2d  |+Z).256:Ldy#(c1-|
000001b0  43 53 2b 5a 29 81 32 35  36 0d 00 d2 0d 4a 73 72  |CS+Z).256....Jsr|
000001c0  20 4f 73 43 6c 69 0d 00  dc 27 4c 64 78 23 28 63  | OsCli...'Ldx#(c|
000001d0  32 2d 43 53 2b 5a 29 83  32 35 36 3a 4c 64 79 23  |2-CS+Z).256:Ldy#|
000001e0  28 63 32 2d 43 53 2b 5a  29 81 32 35 36 0d 00 e6  |(c2-CS+Z).256...|
000001f0  0d 4a 73 72 20 4f 73 43  6c 69 0d 00 f0 13 42 49  |.Jsr OsCli....BI|
00000200  54 20 26 46 46 3a 42 4d  49 20 65 73 63 0d 00 fa  |T &FF:BMI esc...|
00000210  27 4c 64 78 23 28 63 33  2d 43 53 2b 5a 29 83 32  |'Ldx#(c3-CS+Z).2|
00000220  35 36 3a 4c 64 79 23 28  63 33 2d 43 53 2b 5a 29  |56:Ldy#(c3-CS+Z)|
00000230  81 32 35 36 0d 01 04 0d  4a 73 72 20 4f 73 43 6c  |.256....Jsr OsCl|
00000240  69 0d 01 0e 08 2e 65 73  63 0d 01 18 07 52 74 73  |i.....esc....Rts|
00000250  0d 01 22 07 2e 63 31 0d  01 2c 18 4f 50 54 20 a4  |.."..c1..,.OPT .|
00000260  65 71 75 73 28 22 70 61  67 65 37 31 30 22 29 0d  |equs("page710").|
00000270  01 36 07 2e 63 32 0d 01  40 18 4f 50 54 20 a4 65  |.6..c2..@.OPT .e|
00000280  71 75 73 28 22 74 72 2e  37 30 30 30 22 29 0d 01  |qus("tr.7000")..|
00000290  4a 07 2e 63 33 0d 01 54  1a 4f 50 54 20 a4 65 71  |J..c3..T.OPT .eq|
000002a0  75 73 28 22 64 69 73 70  2e 37 30 30 30 22 29 0d  |us("disp.7000").|
000002b0  01 5e 0c 2e 53 74 61 72  52 75 6e 0d 01 68 07 2e  |.^..StarRun..h..|
000002c0  46 69 0d 01 72 0b 43 6d  70 23 26 46 46 0d 01 7c  |Fi..r.Cmp#&FF..||
000002d0  10 42 65 71 20 4c 6f 61  64 46 69 6c 65 0d 01 86  |.Beq LoadFile...|
000002e0  0f 2e 72 65 61 6c 6f 73  66 69 6c 65 0d 01 90 0f  |..realosfile....|
000002f0  50 48 41 3a 50 48 58 3a  50 48 59 0d 01 9a 22 4c  |PHA:PHX:PHY..."L|
00000300  44 41 23 31 34 33 3a 4c  44 58 23 26 31 32 3a 4c  |DA#143:LDX#&12:L|
00000310  44 59 23 34 3a 4a 53 52  26 46 46 46 34 0d 01 a4  |DY#4:JSR&FFF4...|
00000320  0f 50 4c 59 3a 50 4c 58  3a 50 4c 41 0d 01 ae 10  |.PLY:PLX:PLA....|
00000330  4a 53 52 20 6e 65 77 2d  43 53 2b 5a 0d 01 b8 0f  |JSR new-CS+Z....|
00000340  50 48 41 3a 50 48 59 3a  50 48 58 0d 01 c2 22 4c  |PHA:PHY:PHX..."L|
00000350  44 41 23 31 34 33 3a 4c  44 58 23 26 31 32 3a 4c  |DA#143:LDX#&12:L|
00000360  44 59 23 36 3a 4a 53 52  26 46 46 46 34 0d 01 cc  |DY#6:JSR&FFF4...|
00000370  0f 50 4c 58 3a 50 4c 59  3a 50 4c 41 0d 01 d6 07  |.PLX:PLY:PLA....|
00000380  52 54 53 0d 01 e0 08 2e  6e 65 77 0d 01 ea 0a 4a  |RTS.....new....J|
00000390  6d 70 28 51 29 0d 01 f4  0d 2e 4c 6f 61 64 46 69  |mp(Q).....LoadFi|
000003a0  6c 65 0d 01 fe 0e 53 74  78 20 43 42 5f 6c 6f 77  |le....Stx CB_low|
000003b0  0d 02 08 0f 53 74 79 20  43 42 5f 68 69 67 68 0d  |....Sty CB_high.|
000003c0  02 12 35 4c 64 79 23 30  3a 4c 64 61 28 43 42 29  |..5Ldy#0:Lda(CB)|
000003d0  2c 59 3a 53 74 61 20 46  72 6f 6d 3a 49 6e 79 3a  |,Y:Sta From:Iny:|
000003e0  4c 64 61 28 43 42 29 2c  59 3a 53 74 61 20 46 72  |Lda(CB),Y:Sta Fr|
000003f0  6f 6d 2b 31 0d 02 1c 41  4c 64 61 23 26 30 30 3a  |om+1...ALda#&00:|
00000400  54 61 79 3a 53 74 61 20  43 6f 75 6e 74 3a 53 74  |Tay:Sta Count:St|
00000410  61 28 43 42 29 2c 59 3a  49 6e 79 3a 54 79 61 3a  |a(CB),Y:Iny:Tya:|
00000420  53 74 61 20 43 6f 75 6e  74 2b 31 3a 53 74 61 28  |Sta Count+1:Sta(|
00000430  43 42 29 2c 59 0d 02 26  09 4c 64 79 23 30 0d 02  |CB),Y..&.Ldy#0..|
00000440  30 43 2e 63 70 73 20 4c  64 61 28 46 72 6f 6d 29  |0C.cps Lda(From)|
00000450  2c 59 3a 53 74 61 28 43  6f 75 6e 74 29 2c 59 3a  |,Y:Sta(Count),Y:|
00000460  43 6d 70 23 33 33 3a 42  63 63 20 65 6e 64 73 3a  |Cmp#33:Bcc ends:|
00000470  49 6e 79 3a 42 6e 65 20  63 70 73 3a 2e 65 6e 64  |Iny:Bne cps:.end|
00000480  73 0d 02 3a 17 4c 64 61  23 31 33 3a 53 74 61 28  |s..:.Lda#13:Sta(|
00000490  43 6f 75 6e 74 29 2c 59  0d 02 44 20 4c 64 61 23  |Count),Y..D Lda#|
000004a0  37 3a 4c 64 78 20 43 42  5f 6c 6f 77 3a 4c 64 79  |7:Ldx CB_low:Ldy|
000004b0  20 43 42 5f 68 69 67 68  0d 02 4e 17 4a 73 72 20  | CB_high..N.Jsr |
000004c0  72 65 61 6c 6f 73 66 69  6c 65 2d 43 53 2b 5a 0d  |realosfile-CS+Z.|
000004d0  02 58 1f 4c 64 61 23 30  3a 53 74 61 20 43 6f 75  |.X.Lda#0:Sta Cou|
000004e0  6e 74 3a 53 74 61 20 43  6f 75 6e 74 2b 31 0d 02  |nt:Sta Count+1..|
000004f0  62 0b 2e 6c 6f 61 64 75  70 0d 02 6c 0a 4c 64 79  |b..loadup..l.Ldy|
00000500  23 31 34 0d 02 76 0c 4a  73 72 20 42 67 65 74 0d  |#14..v.Jsr Bget.|
00000510  02 80 0f 42 63 63 20 67  6f 74 62 79 74 65 0d 02  |...Bcc gotbyte..|
00000520  8a 0b 43 6d 70 23 26 46  45 0d 02 94 11 42 65 71  |..Cmp#&FE....Beq|
00000530  20 65 6e 64 6f 66 66 69  6c 65 0d 02 9e 0b 43 6d  | endoffile....Cm|
00000540  70 23 26 30 32 0d 02 a8  10 42 6e 65 20 73 6b 69  |p#&02....Bne ski|
00000550  70 74 68 69 73 0d 02 b2  20 4c 64 61 23 35 3a 4c  |pthis... Lda#5:L|
00000560  64 78 20 43 42 5f 6c 6f  77 3a 4c 64 79 20 43 42  |dx CB_low:Ldy CB|
00000570  5f 68 69 67 68 0d 02 bc  49 4a 73 72 20 72 65 61  |_high...IJsr rea|
00000580  6c 6f 73 66 69 6c 65 2d  43 53 2b 5a 3a 4c 64 79  |losfile-CS+Z:Ldy|
00000590  23 32 3a 4c 64 61 28 43  42 29 2c 59 3a 53 74 61  |#2:Lda(CB),Y:Sta|
000005a0  20 54 45 4d 50 3a 49 6e  79 3a 4c 64 61 28 43 42  | TEMP:Iny:Lda(CB|
000005b0  29 2c 59 3a 53 74 61 20  54 45 4d 50 2b 31 0d 02  |),Y:Sta TEMP+1..|
000005c0  c6 0d 2e 73 6b 69 70 74  68 69 73 0d 02 d0 12 43  |...skipthis....C|
000005d0  6c 63 3a 42 63 63 20 6c  6f 61 64 75 70 0d 02 da  |lc:Bcc loadup...|
000005e0  0c 2e 67 6f 74 62 79 74  65 0d 02 e4 15 4c 64 79  |..gotbyte....Ldy|
000005f0  23 30 3a 53 74 61 28 54  45 4d 50 29 2c 59 0d 02  |#0:Sta(TEMP),Y..|
00000600  ee 24 49 6e 63 20 54 45  4d 50 3a 42 6e 65 20 7a  |.$Inc TEMP:Bne z|
00000610  7a 33 3a 49 6e 63 20 54  45 4d 50 2b 31 3a 2e 7a  |z3:Inc TEMP+1:.z|
00000620  7a 33 0d 02 f8 26 49 6e  63 20 43 6f 75 6e 74 3a  |z3...&Inc Count:|
00000630  42 6e 65 20 7a 7a 34 3a  49 6e 63 20 43 6f 75 6e  |Bne zz4:Inc Coun|
00000640  74 2b 31 3a 2e 7a 7a 34  0d 03 02 12 43 6c 63 3a  |t+1:.zz4....Clc:|
00000650  42 63 63 20 6c 6f 61 64  75 70 0d 03 0c 0e 2e 65  |Bcc loadup.....e|
00000660  6e 64 6f 66 66 69 6c 65  0d 03 16 19 4c 64 79 23  |ndoffile....Ldy#|
00000670  26 30 41 3a 4c 64 61 28  43 42 29 2c 59 3a 50 68  |&0A:Lda(CB),Y:Ph|
00000680  61 0d 03 20 17 4c 64 61  20 43 6f 75 6e 74 3a 53  |a.. .Lda Count:S|
00000690  74 61 28 43 42 29 2c 59  0d 03 2a 1d 4c 64 61 20  |ta(CB),Y..*.Lda |
000006a0  43 6f 75 6e 74 2b 31 3a  49 6e 79 3a 53 74 61 28  |Count+1:Iny:Sta(|
000006b0  43 42 29 2c 59 0d 03 34  25 4c 64 61 23 30 3a 49  |CB),Y..4%Lda#0:I|
000006c0  6e 79 3a 53 74 61 28 43  42 29 2c 59 3a 49 6e 79  |ny:Sta(CB),Y:Iny|
000006d0  3a 53 74 61 28 43 42 29  2c 59 0d 03 3e 15 50 6c  |:Sta(CB),Y..>.Pl|
000006e0  61 3a 49 6e 79 3a 53 74  61 28 43 42 29 2c 59 0d  |a:Iny:Sta(CB),Y.|
000006f0  03 48 07 52 74 73 0d 03  52 0c 2e 43 6f 64 65 45  |.H.Rts..R..CodeE|
00000700  6e 64 0d 03 5c 0a 2e 52  65 6c 6f 63 0d 03 66 19  |nd..\..Reloc..f.|
00000710  4c 64 61 23 26 38 43 3a  4c 64 78 23 31 32 3a 4a  |Lda#&8C:Ldx#12:J|
00000720  73 72 20 4f 62 0d 03 70  20 4c 64 61 23 26 38 46  |sr Ob..p Lda#&8F|
00000730  3a 4c 64 78 23 26 31 32  3a 4c 64 79 23 36 3a 4a  |:Ldx#&12:Ldy#6:J|
00000740  73 72 20 4f 62 0d 03 7a  09 4c 64 79 23 30 0d 03  |sr Ob..z.Ldy#0..|
00000750  84 1c 2e 72 65 6c 6f 63  38 20 4c 64 61 20 43 53  |...reloc8 Lda CS|
00000760  2c 59 3a 53 74 61 20 5a  2c 59 0d 03 8e 12 49 6e  |,Y:Sta Z,Y....In|
00000770  79 3a 42 6e 65 20 72 65  6c 6f 63 38 0d 03 98 13  |y:Bne reloc8....|
00000780  4c 64 61 20 46 69 6c 65  56 3a 53 74 61 20 51 0d  |Lda FileV:Sta Q.|
00000790  03 a2 17 4c 64 61 20 46  69 6c 65 56 2b 31 3a 53  |...Lda FileV+1:S|
000007a0  74 61 20 51 2b 31 0d 03  ac 1f 4c 64 61 23 28 46  |ta Q+1....Lda#(F|
000007b0  69 2d 43 53 2b 5a 29 83  32 35 36 3a 53 74 61 20  |i-CS+Z).256:Sta |
000007c0  46 69 6c 65 56 0d 03 b6  21 4c 64 61 23 28 46 69  |FileV...!Lda#(Fi|
000007d0  2d 43 53 2b 5a 29 81 32  35 36 3a 53 74 61 20 46  |-CS+Z).256:Sta F|
000007e0  69 6c 65 56 2b 31 0d 03  c0 17 4c 64 61 20 46 53  |ileV+1....Lda FS|
000007f0  43 56 3a 53 74 61 20 48  69 73 46 53 43 0d 03 ca  |CV:Sta HisFSC...|
00000800  1b 4c 64 61 20 46 53 43  56 2b 31 3a 53 74 61 20  |.Lda FSCV+1:Sta |
00000810  48 69 73 46 53 43 2b 31  0d 03 d4 21 4c 64 61 23  |HisFSC+1...!Lda#|
00000820  28 4d 79 46 53 43 2d 43  53 2b 5a 29 83 32 35 36  |(MyFSC-CS+Z).256|
00000830  3a 53 74 61 20 46 53 43  56 0d 03 de 23 4c 64 61  |:Sta FSCV...#Lda|
00000840  23 28 4d 79 46 53 43 2d  43 53 2b 5a 29 81 32 35  |#(MyFSC-CS+Z).25|
00000850  36 3a 53 74 61 20 46 53  43 56 2b 31 0d 03 e8 15  |6:Sta FSCV+1....|
00000860  4c 64 61 23 26 31 30 3a  53 74 61 20 26 31 33 36  |Lda#&10:Sta &136|
00000870  32 0d 03 f2 14 4c 64 61  23 26 45 46 3a 53 74 61  |2....Lda#&EF:Sta|
00000880  26 31 33 45 32 0d 03 fc  14 4c 64 61 23 26 41 42  |&13E2....Lda#&AB|
00000890  3a 53 74 61 26 31 34 45  32 0d 04 06 26 4c 64 61  |:Sta&14E2...&Lda|
000008a0  23 32 32 3a 4a 53 52 20  4f 73 57 72 63 68 3a 4c  |#22:JSR OsWrch:L|
000008b0  64 61 23 37 3a 4a 6d 70  20 4f 73 57 72 63 68 0d  |da#7:Jmp OsWrch.|
000008c0  04 10 0d 2e 45 6e 64 52  65 6c 6f 63 0d 04 1a 05  |....EndReloc....|
000008d0  5d 0d 04 24 05 ed 0d 04  2e 05 e1 0d 04 38 0e dd  |]..$.........8..|
000008e0  a4 65 71 75 73 28 53 24  29 0d 04 42 18 24 50 25  |.equs(S$)..B.$P%|
000008f0  3d 53 24 3a 50 25 3d 50  25 2b a9 28 53 24 29 2b  |=S$:P%=P%+.(S$)+|
00000900  31 0d 04 4c 09 3d 50 61  73 73 0d ff              |1..L.=Pass..|
0000090c