�: ERROR
�7
�=&3C00
(
� save 50
2diff=&8000-�
<address=&70
Fcomvec=&F2
Perrstack=&100
Zgsinit=&FFC2
dgsread=&FFC5
nosargs=&FFDA
xoscli=&FFF7
�� pass = 0 � 2 � 2
�P%=�
�
[OPT pass
�BRK
�BRK
�BRK
�JMP service+diff
�OPT �equb(&82)
�%OPT �equb((copyright+diff) � 256)
�BRK
�
.title
�OPT �equs("CHECK")
�.copyright

BRK

+OPT �equs("(C) Gordon Horsington 1987")

BRK

".service

,
CMP #4

6BEQ unrecognised

@	.exit

JRTS

T.unrecognised

^PHA

hTXA

rPHA

|TYA

�PHA

�LDX #&FF

�.comloop

�INX

�LDA title+diff,X

�
BEQ found

�LDA (comvec),Y

�INY

�CMP #�(".")

�
BEQ found

�
� #&DF

�CMP title+diff,X

�BEQ comloop
PLA
TAY
PLA
&TAX
0PLA
:RTS
D
.found
NSEC
XJSR gsinit
bLDA address
lPHA
vLDA address+1
�PHA
�JSR gsread
�BCS mistake
�SEC
�SBC #�("0")
�
CMP #7
�BCC file
�.mistake
�LDX #(syntax+diff) � 256
�LDY #(syntax+diff) � 256
�JMP error+diff
�	.file
�PHA

LDA #0
TAX
TAY
 JSR osargs
*STA address
4PLA
>CMP address
HBEQ correct
RLDX #(wrong+diff) � 256
\LDY #(wrong+diff) � 256
fJMP error+diff
p.correct
zPLA
�STA address+1
�PLA
�STA address
�PLA
�PLA
�PLA
�
LDA #0
�RTS
�
.error
�STX address
�STY address+1
�LDY #&FF
�.errorloop
INY
LDA (address),Y
STA errstack,Y
$BPL errorloop
.PLA
8STA address+1
BPLA
LSTA address
VJMP errstack
`.syntax
jBRK
tBRK
~OPT �equs("Syntax")
�OPT �equb(&3A)
�OPT �equs(" *CHECK (0-6)")
�BRK
�OPT �equb(&FF)
�
.wrong
�BRK
�BRK
�(OPT �equs("Incorrect filing system")
�BRK
�OPT �equb(&FF)
�
.lastbyte
�]
�

!�'"Save filename = "filename$
� filename$="" �
K$save="SAVE "+filename$+" "+�~(�)+" "+�~(lastbyte)+" FFFF8000 FFFF8000"
(X%=save � 256
2Y%=save � 256
<*OPT1,2
F� oscli
P*OPT1,0
Z�
dݤequb(byte)
n?P%=byte
xP%=P%+1
�	=pass
�ݤequw(word)
�?P%=word � 256
�P%?1=word � 256
�P%=P%+2
�	=pass
�ݤequd(double)
�!P%=double
�P%=P%+4
�	=pass
�ݤequs(string$)
�$P%=string$
�P%=P%+�(string$)
	=pass
�

00000000  0d 00 0a 0c f4 3a 20 45  52 52 4f 52 0d 00 14 06  |.....: ERROR....|
00000010  eb 37 0d 00 1e 0b d3 3d  26 33 43 30 30 0d 00 28  |.7.....=&3C00..(|
00000020  0d de 20 73 61 76 65 20  35 30 0d 00 32 10 64 69  |.. save 50..2.di|
00000030  66 66 3d 26 38 30 30 30  2d 93 0d 00 3c 0f 61 64  |ff=&8000-...<.ad|
00000040  64 72 65 73 73 3d 26 37  30 0d 00 46 0e 63 6f 6d  |dress=&70..F.com|
00000050  76 65 63 3d 26 46 32 0d  00 50 11 65 72 72 73 74  |vec=&F2..P.errst|
00000060  61 63 6b 3d 26 31 30 30  0d 00 5a 10 67 73 69 6e  |ack=&100..Z.gsin|
00000070  69 74 3d 26 46 46 43 32  0d 00 64 10 67 73 72 65  |it=&FFC2..d.gsre|
00000080  61 64 3d 26 46 46 43 35  0d 00 6e 10 6f 73 61 72  |ad=&FFC5..n.osar|
00000090  67 73 3d 26 46 46 44 41  0d 00 78 0f 6f 73 63 6c  |gs=&FFDA..x.oscl|
000000a0  69 3d 26 46 46 46 37 0d  00 82 16 e3 20 70 61 73  |i=&FFF7..... pas|
000000b0  73 20 3d 20 30 20 b8 20  32 20 88 20 32 0d 00 8c  |s = 0 . 2 . 2...|
000000c0  08 50 25 3d 93 0d 00 96  0d 5b 4f 50 54 20 70 61  |.P%=.....[OPT pa|
000000d0  73 73 0d 00 a0 07 42 52  4b 0d 00 aa 07 42 52 4b  |ss....BRK....BRK|
000000e0  0d 00 b4 07 42 52 4b 0d  00 be 14 4a 4d 50 20 73  |....BRK....JMP s|
000000f0  65 72 76 69 63 65 2b 64  69 66 66 0d 00 c8 12 4f  |ervice+diff....O|
00000100  50 54 20 a4 65 71 75 62  28 26 38 32 29 0d 00 d2  |PT .equb(&82)...|
00000110  25 4f 50 54 20 a4 65 71  75 62 28 28 63 6f 70 79  |%OPT .equb((copy|
00000120  72 69 67 68 74 2b 64 69  66 66 29 20 83 20 32 35  |right+diff) . 25|
00000130  36 29 0d 00 dc 07 42 52  4b 0d 00 e6 0a 2e 74 69  |6)....BRK.....ti|
00000140  74 6c 65 0d 00 f0 16 4f  50 54 20 a4 65 71 75 73  |tle....OPT .equs|
00000150  28 22 43 48 45 43 4b 22  29 0d 00 fa 0e 2e 63 6f  |("CHECK").....co|
00000160  70 79 72 69 67 68 74 0d  01 04 07 42 52 4b 0d 01  |pyright....BRK..|
00000170  0e 2b 4f 50 54 20 a4 65  71 75 73 28 22 28 43 29  |.+OPT .equs("(C)|
00000180  20 47 6f 72 64 6f 6e 20  48 6f 72 73 69 6e 67 74  | Gordon Horsingt|
00000190  6f 6e 20 31 39 38 37 22  29 0d 01 18 07 42 52 4b  |on 1987")....BRK|
000001a0  0d 01 22 0c 2e 73 65 72  76 69 63 65 0d 01 2c 0a  |.."..service..,.|
000001b0  43 4d 50 20 23 34 0d 01  36 14 42 45 51 20 75 6e  |CMP #4..6.BEQ un|
000001c0  72 65 63 6f 67 6e 69 73  65 64 0d 01 40 09 2e 65  |recognised..@..e|
000001d0  78 69 74 0d 01 4a 07 52  54 53 0d 01 54 11 2e 75  |xit..J.RTS..T..u|
000001e0  6e 72 65 63 6f 67 6e 69  73 65 64 0d 01 5e 07 50  |nrecognised..^.P|
000001f0  48 41 0d 01 68 07 54 58  41 0d 01 72 07 50 48 41  |HA..h.TXA..r.PHA|
00000200  0d 01 7c 07 54 59 41 0d  01 86 07 50 48 41 0d 01  |..|.TYA....PHA..|
00000210  90 0c 4c 44 58 20 23 26  46 46 0d 01 9a 0c 2e 63  |..LDX #&FF.....c|
00000220  6f 6d 6c 6f 6f 70 0d 01  a4 07 49 4e 58 0d 01 ae  |omloop....INX...|
00000230  14 4c 44 41 20 74 69 74  6c 65 2b 64 69 66 66 2c  |.LDA title+diff,|
00000240  58 0d 01 b8 0d 42 45 51  20 66 6f 75 6e 64 0d 01  |X....BEQ found..|
00000250  c2 12 4c 44 41 20 28 63  6f 6d 76 65 63 29 2c 59  |..LDA (comvec),Y|
00000260  0d 01 cc 07 49 4e 59 0d  01 d6 0f 43 4d 50 20 23  |....INY....CMP #|
00000270  97 28 22 2e 22 29 0d 01  e0 0d 42 45 51 20 66 6f  |.(".")....BEQ fo|
00000280  75 6e 64 0d 01 ea 0a 80  20 23 26 44 46 0d 01 f4  |und..... #&DF...|
00000290  14 43 4d 50 20 74 69 74  6c 65 2b 64 69 66 66 2c  |.CMP title+diff,|
000002a0  58 0d 01 fe 0f 42 45 51  20 63 6f 6d 6c 6f 6f 70  |X....BEQ comloop|
000002b0  0d 02 08 07 50 4c 41 0d  02 12 07 54 41 59 0d 02  |....PLA....TAY..|
000002c0  1c 07 50 4c 41 0d 02 26  07 54 41 58 0d 02 30 07  |..PLA..&.TAX..0.|
000002d0  50 4c 41 0d 02 3a 07 52  54 53 0d 02 44 0a 2e 66  |PLA..:.RTS..D..f|
000002e0  6f 75 6e 64 0d 02 4e 07  53 45 43 0d 02 58 0e 4a  |ound..N.SEC..X.J|
000002f0  53 52 20 67 73 69 6e 69  74 0d 02 62 0f 4c 44 41  |SR gsinit..b.LDA|
00000300  20 61 64 64 72 65 73 73  0d 02 6c 07 50 48 41 0d  | address..l.PHA.|
00000310  02 76 11 4c 44 41 20 61  64 64 72 65 73 73 2b 31  |.v.LDA address+1|
00000320  0d 02 80 07 50 48 41 0d  02 8a 0e 4a 53 52 20 67  |....PHA....JSR g|
00000330  73 72 65 61 64 0d 02 94  0f 42 43 53 20 6d 69 73  |sread....BCS mis|
00000340  74 61 6b 65 0d 02 9e 07  53 45 43 0d 02 a8 0f 53  |take....SEC....S|
00000350  42 43 20 23 97 28 22 30  22 29 0d 02 b2 0a 43 4d  |BC #.("0")....CM|
00000360  50 20 23 37 0d 02 bc 0c  42 43 43 20 66 69 6c 65  |P #7....BCC file|
00000370  0d 02 c6 0c 2e 6d 69 73  74 61 6b 65 0d 02 d0 1c  |.....mistake....|
00000380  4c 44 58 20 23 28 73 79  6e 74 61 78 2b 64 69 66  |LDX #(syntax+dif|
00000390  66 29 20 83 20 32 35 36  0d 02 da 1c 4c 44 59 20  |f) . 256....LDY |
000003a0  23 28 73 79 6e 74 61 78  2b 64 69 66 66 29 20 81  |#(syntax+diff) .|
000003b0  20 32 35 36 0d 02 e4 12  4a 4d 50 20 65 72 72 6f  | 256....JMP erro|
000003c0  72 2b 64 69 66 66 0d 02  ee 09 2e 66 69 6c 65 0d  |r+diff.....file.|
000003d0  02 f8 07 50 48 41 0d 03  02 0a 4c 44 41 20 23 30  |...PHA....LDA #0|
000003e0  0d 03 0c 07 54 41 58 0d  03 16 07 54 41 59 0d 03  |....TAX....TAY..|
000003f0  20 0e 4a 53 52 20 6f 73  61 72 67 73 0d 03 2a 0f  | .JSR osargs..*.|
00000400  53 54 41 20 61 64 64 72  65 73 73 0d 03 34 07 50  |STA address..4.P|
00000410  4c 41 0d 03 3e 0f 43 4d  50 20 61 64 64 72 65 73  |LA..>.CMP addres|
00000420  73 0d 03 48 0f 42 45 51  20 63 6f 72 72 65 63 74  |s..H.BEQ correct|
00000430  0d 03 52 1b 4c 44 58 20  23 28 77 72 6f 6e 67 2b  |..R.LDX #(wrong+|
00000440  64 69 66 66 29 20 83 20  32 35 36 0d 03 5c 1b 4c  |diff) . 256..\.L|
00000450  44 59 20 23 28 77 72 6f  6e 67 2b 64 69 66 66 29  |DY #(wrong+diff)|
00000460  20 81 20 32 35 36 0d 03  66 12 4a 4d 50 20 65 72  | . 256..f.JMP er|
00000470  72 6f 72 2b 64 69 66 66  0d 03 70 0c 2e 63 6f 72  |ror+diff..p..cor|
00000480  72 65 63 74 0d 03 7a 07  50 4c 41 0d 03 84 11 53  |rect..z.PLA....S|
00000490  54 41 20 61 64 64 72 65  73 73 2b 31 0d 03 8e 07  |TA address+1....|
000004a0  50 4c 41 0d 03 98 0f 53  54 41 20 61 64 64 72 65  |PLA....STA addre|
000004b0  73 73 0d 03 a2 07 50 4c  41 0d 03 ac 07 50 4c 41  |ss....PLA....PLA|
000004c0  0d 03 b6 07 50 4c 41 0d  03 c0 0a 4c 44 41 20 23  |....PLA....LDA #|
000004d0  30 0d 03 ca 07 52 54 53  0d 03 d4 0a 2e 65 72 72  |0....RTS.....err|
000004e0  6f 72 0d 03 de 0f 53 54  58 20 61 64 64 72 65 73  |or....STX addres|
000004f0  73 0d 03 e8 11 53 54 59  20 61 64 64 72 65 73 73  |s....STY address|
00000500  2b 31 0d 03 f2 0c 4c 44  59 20 23 26 46 46 0d 03  |+1....LDY #&FF..|
00000510  fc 0e 2e 65 72 72 6f 72  6c 6f 6f 70 0d 04 06 07  |...errorloop....|
00000520  49 4e 59 0d 04 10 13 4c  44 41 20 28 61 64 64 72  |INY....LDA (addr|
00000530  65 73 73 29 2c 59 0d 04  1a 12 53 54 41 20 65 72  |ess),Y....STA er|
00000540  72 73 74 61 63 6b 2c 59  0d 04 24 11 42 50 4c 20  |rstack,Y..$.BPL |
00000550  65 72 72 6f 72 6c 6f 6f  70 0d 04 2e 07 50 4c 41  |errorloop....PLA|
00000560  0d 04 38 11 53 54 41 20  61 64 64 72 65 73 73 2b  |..8.STA address+|
00000570  31 0d 04 42 07 50 4c 41  0d 04 4c 0f 53 54 41 20  |1..B.PLA..L.STA |
00000580  61 64 64 72 65 73 73 0d  04 56 10 4a 4d 50 20 65  |address..V.JMP e|
00000590  72 72 73 74 61 63 6b 0d  04 60 0b 2e 73 79 6e 74  |rrstack..`..synt|
000005a0  61 78 0d 04 6a 07 42 52  4b 0d 04 74 07 42 52 4b  |ax..j.BRK..t.BRK|
000005b0  0d 04 7e 17 4f 50 54 20  a4 65 71 75 73 28 22 53  |..~.OPT .equs("S|
000005c0  79 6e 74 61 78 22 29 0d  04 88 12 4f 50 54 20 a4  |yntax")....OPT .|
000005d0  65 71 75 62 28 26 33 41  29 0d 04 92 1e 4f 50 54  |equb(&3A)....OPT|
000005e0  20 a4 65 71 75 73 28 22  20 2a 43 48 45 43 4b 20  | .equs(" *CHECK |
000005f0  28 30 2d 36 29 22 29 0d  04 9c 07 42 52 4b 0d 04  |(0-6)")....BRK..|
00000600  a6 12 4f 50 54 20 a4 65  71 75 62 28 26 46 46 29  |..OPT .equb(&FF)|
00000610  0d 04 b0 0a 2e 77 72 6f  6e 67 0d 04 ba 07 42 52  |.....wrong....BR|
00000620  4b 0d 04 c4 07 42 52 4b  0d 04 ce 28 4f 50 54 20  |K....BRK...(OPT |
00000630  a4 65 71 75 73 28 22 49  6e 63 6f 72 72 65 63 74  |.equs("Incorrect|
00000640  20 66 69 6c 69 6e 67 20  73 79 73 74 65 6d 22 29  | filing system")|
00000650  0d 04 d8 07 42 52 4b 0d  04 e2 12 4f 50 54 20 a4  |....BRK....OPT .|
00000660  65 71 75 62 28 26 46 46  29 0d 04 ec 0d 2e 6c 61  |equb(&FF).....la|
00000670  73 74 62 79 74 65 0d 04  f6 05 5d 0d 05 00 05 ed  |stbyte....].....|
00000680  0d 05 0a 21 e8 27 22 53  61 76 65 20 66 69 6c 65  |...!.'"Save file|
00000690  6e 61 6d 65 20 3d 20 22  66 69 6c 65 6e 61 6d 65  |name = "filename|
000006a0  24 0d 05 14 14 e7 20 66  69 6c 65 6e 61 6d 65 24  |$..... filename$|
000006b0  3d 22 22 20 e0 0d 05 1e  4b 24 73 61 76 65 3d 22  |="" ....K$save="|
000006c0  53 41 56 45 20 22 2b 66  69 6c 65 6e 61 6d 65 24  |SAVE "+filename$|
000006d0  2b 22 20 22 2b c3 7e 28  93 29 2b 22 20 22 2b c3  |+" "+.~(.)+" "+.|
000006e0  7e 28 6c 61 73 74 62 79  74 65 29 2b 22 20 46 46  |~(lastbyte)+" FF|
000006f0  46 46 38 30 30 30 20 46  46 46 46 38 30 30 30 22  |FF8000 FFFF8000"|
00000700  0d 05 28 11 58 25 3d 73  61 76 65 20 83 20 32 35  |..(.X%=save . 25|
00000710  36 0d 05 32 11 59 25 3d  73 61 76 65 20 81 20 32  |6..2.Y%=save . 2|
00000720  35 36 0d 05 3c 0b 2a 4f  50 54 31 2c 32 0d 05 46  |56..<.*OPT1,2..F|
00000730  0b d6 20 6f 73 63 6c 69  0d 05 50 0b 2a 4f 50 54  |.. oscli..P.*OPT|
00000740  31 2c 30 0d 05 5a 05 e0  0d 05 64 10 dd a4 65 71  |1,0..Z....d...eq|
00000750  75 62 28 62 79 74 65 29  0d 05 6e 0c 3f 50 25 3d  |ub(byte)..n.?P%=|
00000760  62 79 74 65 0d 05 78 0b  50 25 3d 50 25 2b 31 0d  |byte..x.P%=P%+1.|
00000770  05 82 09 3d 70 61 73 73  0d 05 8c 10 dd a4 65 71  |...=pass......eq|
00000780  75 77 28 77 6f 72 64 29  0d 05 96 12 3f 50 25 3d  |uw(word)....?P%=|
00000790  77 6f 72 64 20 83 20 32  35 36 0d 05 a0 13 50 25  |word . 256....P%|
000007a0  3f 31 3d 77 6f 72 64 20  81 20 32 35 36 0d 05 aa  |?1=word . 256...|
000007b0  0b 50 25 3d 50 25 2b 32  0d 05 b4 09 3d 70 61 73  |.P%=P%+2....=pas|
000007c0  73 0d 05 be 12 dd a4 65  71 75 64 28 64 6f 75 62  |s......equd(doub|
000007d0  6c 65 29 0d 05 c8 0e 21  50 25 3d 64 6f 75 62 6c  |le)....!P%=doubl|
000007e0  65 0d 05 d2 0b 50 25 3d  50 25 2b 34 0d 05 dc 09  |e....P%=P%+4....|
000007f0  3d 70 61 73 73 0d 05 e6  13 dd a4 65 71 75 73 28  |=pass......equs(|
00000800  73 74 72 69 6e 67 24 29  0d 05 f0 0f 24 50 25 3d  |string$)....$P%=|
00000810  73 74 72 69 6e 67 24 0d  05 fa 14 50 25 3d 50 25  |string$....P%=P%|
00000820  2b a9 28 73 74 72 69 6e  67 24 29 0d 06 04 09 3d  |+.(string$)....=|
00000830  70 61 73 73 0d ff                                 |pass..|
00000836