�: NOBASIC
�7
�=&3C00
(
� save 50
2diff=&8000-�
<comvec=&F2
Fromnumber=&F4
Perrvec=&FD
Zstack=&103
dbreakv=&202
nbuffer=&700
xgsinit=&FFC2
�gsread=&FFC5
�osasci=&FFE3
�osnewl=&FFE7
�osword=&FFF1
�osbyte=&FFF4
�oscli=&FFF7
�� pass = 0 � 2 � 2
�P%=�
�
[OPT pass
�JMP language+diff
�JMP service+diff
�OPT �equb(&C2)
�%OPT �equb((copyright+diff) � 256)

BRK


.title

OPT �equs("NOBASIC")

"BRK

,.copyright

6BRK

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

JBRK

T.service

^PHA

hTXA

rPHA

|TYA

�PHA

�TSX

�LDA stack,X

�
CMP #4

�BEQ unrecognised

�
CMP #9

�BEQ help

�.finish

�PLA

�TAY

�PLA

�TAX

�PLA
RTS
.unrecognised
LDX #&FF
&.comloop
0INX
:LDA title+diff,X
D
BEQ found
NLDA (comvec),Y
XINY
bCMP #�(".")
l
BEQ found
v
� #&DF
�CMP title+diff,X
�BEQ comloop
�BNE finish
�
.found
�LDA #&8E
�LDX romnumber
�JMP osbyte \ Enter this ROM
�	.help
�JSR gsinit
�+BNE finish \ No extended help available
�JSR osnewl
�LDX #&FF
�
.helploop
INX
LDA title+diff,X
BEQ endtitle
 JSR osasci
*BNE helploop
4
.endtitle
>JSR osnewl
HJMP finish+diff
R
.language
\"CLI \ Enable interupt requests
fLDX #&FF
pTXS \ Reset stack
zLDA #(error+diff) � 256
�STA breakv
�LDA #(error+diff) � 256
�STA breakv+1
�
.continue
�LDA #�("*")
�JSR osasci
�
LDA #0
�LDX #(block+diff) � 256
�LDY #(block+diff) � 256
�JSR osword
�BCS escape
�LDX block+diff
�LDY block+diff+1

JSR oscli
JMP continue+diff

.block
$OPT �equb(buffer � 256)
.OPT �equb(buffer � 256)
8OPT �equb(&FE)
BOPT �equb(&20)
LOPT �equb(&7F)
V.escape
`LDA #&7E
j#JSR osbyte \ Acknowledge Escape
tBRK
~BRK
�OPT �equs("Escape")
�BRK
�
.error
�JSR osnewl
�
LDY #0
�.errorloop
�INY
�LDA (errvec),Y
�BEQ newline
�JSR osasci
�BNE errorloop
�.newline
JSR osnewl

JMP language+diff

.lastbyte
]
(�
2!�'"Save filename = "filename$
<� filename$="" �
FK$save="SAVE "+filename$+" "+�~(�)+" "+�~(lastbyte)+" FFFF8000 FFFF8000"
PX%=save � 256
ZY%=save � 256
d*OPT1,2
n� oscli
x*OPT1,0
��
�ݤequb(byte)
�?P%=byte
�P%=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 0e f4 3a 20 4e  4f 42 41 53 49 43 0d 00  |.....: NOBASIC..|
00000010  14 06 eb 37 0d 00 1e 0b  d3 3d 26 33 43 30 30 0d  |...7.....=&3C00.|
00000020  00 28 0d de 20 73 61 76  65 20 35 30 0d 00 32 10  |.(.. save 50..2.|
00000030  64 69 66 66 3d 26 38 30  30 30 2d 93 0d 00 3c 0e  |diff=&8000-...<.|
00000040  63 6f 6d 76 65 63 3d 26  46 32 0d 00 46 11 72 6f  |comvec=&F2..F.ro|
00000050  6d 6e 75 6d 62 65 72 3d  26 46 34 0d 00 50 0e 65  |mnumber=&F4..P.e|
00000060  72 72 76 65 63 3d 26 46  44 0d 00 5a 0e 73 74 61  |rrvec=&FD..Z.sta|
00000070  63 6b 3d 26 31 30 33 0d  00 64 0f 62 72 65 61 6b  |ck=&103..d.break|
00000080  76 3d 26 32 30 32 0d 00  6e 0f 62 75 66 66 65 72  |v=&202..n.buffer|
00000090  3d 26 37 30 30 0d 00 78  10 67 73 69 6e 69 74 3d  |=&700..x.gsinit=|
000000a0  26 46 46 43 32 0d 00 82  10 67 73 72 65 61 64 3d  |&FFC2....gsread=|
000000b0  26 46 46 43 35 0d 00 8c  10 6f 73 61 73 63 69 3d  |&FFC5....osasci=|
000000c0  26 46 46 45 33 0d 00 96  10 6f 73 6e 65 77 6c 3d  |&FFE3....osnewl=|
000000d0  26 46 46 45 37 0d 00 a0  10 6f 73 77 6f 72 64 3d  |&FFE7....osword=|
000000e0  26 46 46 46 31 0d 00 aa  10 6f 73 62 79 74 65 3d  |&FFF1....osbyte=|
000000f0  26 46 46 46 34 0d 00 b4  0f 6f 73 63 6c 69 3d 26  |&FFF4....oscli=&|
00000100  46 46 46 37 0d 00 be 16  e3 20 70 61 73 73 20 3d  |FFF7..... pass =|
00000110  20 30 20 b8 20 32 20 88  20 32 0d 00 c8 08 50 25  | 0 . 2 . 2....P%|
00000120  3d 93 0d 00 d2 0d 5b 4f  50 54 20 70 61 73 73 0d  |=.....[OPT pass.|
00000130  00 dc 15 4a 4d 50 20 6c  61 6e 67 75 61 67 65 2b  |...JMP language+|
00000140  64 69 66 66 0d 00 e6 14  4a 4d 50 20 73 65 72 76  |diff....JMP serv|
00000150  69 63 65 2b 64 69 66 66  0d 00 f0 12 4f 50 54 20  |ice+diff....OPT |
00000160  a4 65 71 75 62 28 26 43  32 29 0d 00 fa 25 4f 50  |.equb(&C2)...%OP|
00000170  54 20 a4 65 71 75 62 28  28 63 6f 70 79 72 69 67  |T .equb((copyrig|
00000180  68 74 2b 64 69 66 66 29  20 83 20 32 35 36 29 0d  |ht+diff) . 256).|
00000190  01 04 07 42 52 4b 0d 01  0e 0a 2e 74 69 74 6c 65  |...BRK.....title|
000001a0  0d 01 18 18 4f 50 54 20  a4 65 71 75 73 28 22 4e  |....OPT .equs("N|
000001b0  4f 42 41 53 49 43 22 29  0d 01 22 07 42 52 4b 0d  |OBASIC")..".BRK.|
000001c0  01 2c 0e 2e 63 6f 70 79  72 69 67 68 74 0d 01 36  |.,..copyright..6|
000001d0  07 42 52 4b 0d 01 40 2b  4f 50 54 20 a4 65 71 75  |.BRK..@+OPT .equ|
000001e0  73 28 22 28 43 29 20 47  6f 72 64 6f 6e 20 48 6f  |s("(C) Gordon Ho|
000001f0  72 73 69 6e 67 74 6f 6e  20 31 39 38 37 22 29 0d  |rsington 1987").|
00000200  01 4a 07 42 52 4b 0d 01  54 0c 2e 73 65 72 76 69  |.J.BRK..T..servi|
00000210  63 65 0d 01 5e 07 50 48  41 0d 01 68 07 54 58 41  |ce..^.PHA..h.TXA|
00000220  0d 01 72 07 50 48 41 0d  01 7c 07 54 59 41 0d 01  |..r.PHA..|.TYA..|
00000230  86 07 50 48 41 0d 01 90  07 54 53 58 0d 01 9a 0f  |..PHA....TSX....|
00000240  4c 44 41 20 73 74 61 63  6b 2c 58 0d 01 a4 0a 43  |LDA stack,X....C|
00000250  4d 50 20 23 34 0d 01 ae  14 42 45 51 20 75 6e 72  |MP #4....BEQ unr|
00000260  65 63 6f 67 6e 69 73 65  64 0d 01 b8 0a 43 4d 50  |ecognised....CMP|
00000270  20 23 39 0d 01 c2 0c 42  45 51 20 68 65 6c 70 0d  | #9....BEQ help.|
00000280  01 cc 0b 2e 66 69 6e 69  73 68 0d 01 d6 07 50 4c  |....finish....PL|
00000290  41 0d 01 e0 07 54 41 59  0d 01 ea 07 50 4c 41 0d  |A....TAY....PLA.|
000002a0  01 f4 07 54 41 58 0d 01  fe 07 50 4c 41 0d 02 08  |...TAX....PLA...|
000002b0  07 52 54 53 0d 02 12 11  2e 75 6e 72 65 63 6f 67  |.RTS.....unrecog|
000002c0  6e 69 73 65 64 0d 02 1c  0c 4c 44 58 20 23 26 46  |nised....LDX #&F|
000002d0  46 0d 02 26 0c 2e 63 6f  6d 6c 6f 6f 70 0d 02 30  |F..&..comloop..0|
000002e0  07 49 4e 58 0d 02 3a 14  4c 44 41 20 74 69 74 6c  |.INX..:.LDA titl|
000002f0  65 2b 64 69 66 66 2c 58  0d 02 44 0d 42 45 51 20  |e+diff,X..D.BEQ |
00000300  66 6f 75 6e 64 0d 02 4e  12 4c 44 41 20 28 63 6f  |found..N.LDA (co|
00000310  6d 76 65 63 29 2c 59 0d  02 58 07 49 4e 59 0d 02  |mvec),Y..X.INY..|
00000320  62 0f 43 4d 50 20 23 97  28 22 2e 22 29 0d 02 6c  |b.CMP #.(".")..l|
00000330  0d 42 45 51 20 66 6f 75  6e 64 0d 02 76 0a 80 20  |.BEQ found..v.. |
00000340  23 26 44 46 0d 02 80 14  43 4d 50 20 74 69 74 6c  |#&DF....CMP titl|
00000350  65 2b 64 69 66 66 2c 58  0d 02 8a 0f 42 45 51 20  |e+diff,X....BEQ |
00000360  63 6f 6d 6c 6f 6f 70 0d  02 94 0e 42 4e 45 20 66  |comloop....BNE f|
00000370  69 6e 69 73 68 0d 02 9e  0a 2e 66 6f 75 6e 64 0d  |inish.....found.|
00000380  02 a8 0c 4c 44 41 20 23  26 38 45 0d 02 b2 11 4c  |...LDA #&8E....L|
00000390  44 58 20 72 6f 6d 6e 75  6d 62 65 72 0d 02 bc 1f  |DX romnumber....|
000003a0  4a 4d 50 20 6f 73 62 79  74 65 20 5c 20 45 6e 74  |JMP osbyte \ Ent|
000003b0  65 72 20 74 68 69 73 20  52 4f 4d 0d 02 c6 09 2e  |er this ROM.....|
000003c0  68 65 6c 70 0d 02 d0 0e  4a 53 52 20 67 73 69 6e  |help....JSR gsin|
000003d0  69 74 0d 02 da 2b 42 4e  45 20 66 69 6e 69 73 68  |it...+BNE finish|
000003e0  20 5c 20 4e 6f 20 65 78  74 65 6e 64 65 64 20 68  | \ No extended h|
000003f0  65 6c 70 20 61 76 61 69  6c 61 62 6c 65 0d 02 e4  |elp available...|
00000400  0e 4a 53 52 20 6f 73 6e  65 77 6c 0d 02 ee 0c 4c  |.JSR osnewl....L|
00000410  44 58 20 23 26 46 46 0d  02 f8 0d 2e 68 65 6c 70  |DX #&FF.....help|
00000420  6c 6f 6f 70 0d 03 02 07  49 4e 58 0d 03 0c 14 4c  |loop....INX....L|
00000430  44 41 20 74 69 74 6c 65  2b 64 69 66 66 2c 58 0d  |DA title+diff,X.|
00000440  03 16 10 42 45 51 20 65  6e 64 74 69 74 6c 65 0d  |...BEQ endtitle.|
00000450  03 20 0e 4a 53 52 20 6f  73 61 73 63 69 0d 03 2a  |. .JSR osasci..*|
00000460  10 42 4e 45 20 68 65 6c  70 6c 6f 6f 70 0d 03 34  |.BNE helploop..4|
00000470  0d 2e 65 6e 64 74 69 74  6c 65 0d 03 3e 0e 4a 53  |..endtitle..>.JS|
00000480  52 20 6f 73 6e 65 77 6c  0d 03 48 13 4a 4d 50 20  |R osnewl..H.JMP |
00000490  66 69 6e 69 73 68 2b 64  69 66 66 0d 03 52 0d 2e  |finish+diff..R..|
000004a0  6c 61 6e 67 75 61 67 65  0d 03 5c 22 43 4c 49 20  |language..\"CLI |
000004b0  5c 20 45 6e 61 62 6c 65  20 69 6e 74 65 72 75 70  |\ Enable interup|
000004c0  74 20 72 65 71 75 65 73  74 73 0d 03 66 0c 4c 44  |t requests..f.LD|
000004d0  58 20 23 26 46 46 0d 03  70 15 54 58 53 20 5c 20  |X #&FF..p.TXS \ |
000004e0  52 65 73 65 74 20 73 74  61 63 6b 0d 03 7a 1b 4c  |Reset stack..z.L|
000004f0  44 41 20 23 28 65 72 72  6f 72 2b 64 69 66 66 29  |DA #(error+diff)|
00000500  20 83 20 32 35 36 0d 03  84 0e 53 54 41 20 62 72  | . 256....STA br|
00000510  65 61 6b 76 0d 03 8e 1b  4c 44 41 20 23 28 65 72  |eakv....LDA #(er|
00000520  72 6f 72 2b 64 69 66 66  29 20 81 20 32 35 36 0d  |ror+diff) . 256.|
00000530  03 98 10 53 54 41 20 62  72 65 61 6b 76 2b 31 0d  |...STA breakv+1.|
00000540  03 a2 0d 2e 63 6f 6e 74  69 6e 75 65 0d 03 ac 0f  |....continue....|
00000550  4c 44 41 20 23 97 28 22  2a 22 29 0d 03 b6 0e 4a  |LDA #.("*")....J|
00000560  53 52 20 6f 73 61 73 63  69 0d 03 c0 0a 4c 44 41  |SR osasci....LDA|
00000570  20 23 30 0d 03 ca 1b 4c  44 58 20 23 28 62 6c 6f  | #0....LDX #(blo|
00000580  63 6b 2b 64 69 66 66 29  20 83 20 32 35 36 0d 03  |ck+diff) . 256..|
00000590  d4 1b 4c 44 59 20 23 28  62 6c 6f 63 6b 2b 64 69  |..LDY #(block+di|
000005a0  66 66 29 20 81 20 32 35  36 0d 03 de 0e 4a 53 52  |ff) . 256....JSR|
000005b0  20 6f 73 77 6f 72 64 0d  03 e8 0e 42 43 53 20 65  | osword....BCS e|
000005c0  73 63 61 70 65 0d 03 f2  12 4c 44 58 20 62 6c 6f  |scape....LDX blo|
000005d0  63 6b 2b 64 69 66 66 0d  03 fc 14 4c 44 59 20 62  |ck+diff....LDY b|
000005e0  6c 6f 63 6b 2b 64 69 66  66 2b 31 0d 04 06 0d 4a  |lock+diff+1....J|
000005f0  53 52 20 6f 73 63 6c 69  0d 04 10 15 4a 4d 50 20  |SR oscli....JMP |
00000600  63 6f 6e 74 69 6e 75 65  2b 64 69 66 66 0d 04 1a  |continue+diff...|
00000610  0a 2e 62 6c 6f 63 6b 0d  04 24 1b 4f 50 54 20 a4  |..block..$.OPT .|
00000620  65 71 75 62 28 62 75 66  66 65 72 20 83 20 32 35  |equb(buffer . 25|
00000630  36 29 0d 04 2e 1b 4f 50  54 20 a4 65 71 75 62 28  |6)....OPT .equb(|
00000640  62 75 66 66 65 72 20 81  20 32 35 36 29 0d 04 38  |buffer . 256)..8|
00000650  12 4f 50 54 20 a4 65 71  75 62 28 26 46 45 29 0d  |.OPT .equb(&FE).|
00000660  04 42 12 4f 50 54 20 a4  65 71 75 62 28 26 32 30  |.B.OPT .equb(&20|
00000670  29 0d 04 4c 12 4f 50 54  20 a4 65 71 75 62 28 26  |)..L.OPT .equb(&|
00000680  37 46 29 0d 04 56 0b 2e  65 73 63 61 70 65 0d 04  |7F)..V..escape..|
00000690  60 0c 4c 44 41 20 23 26  37 45 0d 04 6a 23 4a 53  |`.LDA #&7E..j#JS|
000006a0  52 20 6f 73 62 79 74 65  20 5c 20 41 63 6b 6e 6f  |R osbyte \ Ackno|
000006b0  77 6c 65 64 67 65 20 45  73 63 61 70 65 0d 04 74  |wledge Escape..t|
000006c0  07 42 52 4b 0d 04 7e 07  42 52 4b 0d 04 88 17 4f  |.BRK..~.BRK....O|
000006d0  50 54 20 a4 65 71 75 73  28 22 45 73 63 61 70 65  |PT .equs("Escape|
000006e0  22 29 0d 04 92 07 42 52  4b 0d 04 9c 0a 2e 65 72  |")....BRK.....er|
000006f0  72 6f 72 0d 04 a6 0e 4a  53 52 20 6f 73 6e 65 77  |ror....JSR osnew|
00000700  6c 0d 04 b0 0a 4c 44 59  20 23 30 0d 04 ba 0e 2e  |l....LDY #0.....|
00000710  65 72 72 6f 72 6c 6f 6f  70 0d 04 c4 07 49 4e 59  |errorloop....INY|
00000720  0d 04 ce 12 4c 44 41 20  28 65 72 72 76 65 63 29  |....LDA (errvec)|
00000730  2c 59 0d 04 d8 0f 42 45  51 20 6e 65 77 6c 69 6e  |,Y....BEQ newlin|
00000740  65 0d 04 e2 0e 4a 53 52  20 6f 73 61 73 63 69 0d  |e....JSR osasci.|
00000750  04 ec 11 42 4e 45 20 65  72 72 6f 72 6c 6f 6f 70  |...BNE errorloop|
00000760  0d 04 f6 0c 2e 6e 65 77  6c 69 6e 65 0d 05 00 0e  |.....newline....|
00000770  4a 53 52 20 6f 73 6e 65  77 6c 0d 05 0a 15 4a 4d  |JSR osnewl....JM|
00000780  50 20 6c 61 6e 67 75 61  67 65 2b 64 69 66 66 0d  |P language+diff.|
00000790  05 14 0d 2e 6c 61 73 74  62 79 74 65 0d 05 1e 05  |....lastbyte....|
000007a0  5d 0d 05 28 05 ed 0d 05  32 21 e8 27 22 53 61 76  |]..(....2!.'"Sav|
000007b0  65 20 66 69 6c 65 6e 61  6d 65 20 3d 20 22 66 69  |e filename = "fi|
000007c0  6c 65 6e 61 6d 65 24 0d  05 3c 14 e7 20 66 69 6c  |lename$..<.. fil|
000007d0  65 6e 61 6d 65 24 3d 22  22 20 e0 0d 05 46 4b 24  |ename$="" ...FK$|
000007e0  73 61 76 65 3d 22 53 41  56 45 20 22 2b 66 69 6c  |save="SAVE "+fil|
000007f0  65 6e 61 6d 65 24 2b 22  20 22 2b c3 7e 28 93 29  |ename$+" "+.~(.)|
00000800  2b 22 20 22 2b c3 7e 28  6c 61 73 74 62 79 74 65  |+" "+.~(lastbyte|
00000810  29 2b 22 20 46 46 46 46  38 30 30 30 20 46 46 46  |)+" FFFF8000 FFF|
00000820  46 38 30 30 30 22 0d 05  50 11 58 25 3d 73 61 76  |F8000"..P.X%=sav|
00000830  65 20 83 20 32 35 36 0d  05 5a 11 59 25 3d 73 61  |e . 256..Z.Y%=sa|
00000840  76 65 20 81 20 32 35 36  0d 05 64 0b 2a 4f 50 54  |ve . 256..d.*OPT|
00000850  31 2c 32 0d 05 6e 0b d6  20 6f 73 63 6c 69 0d 05  |1,2..n.. oscli..|
00000860  78 0b 2a 4f 50 54 31 2c  30 0d 05 82 05 e0 0d 05  |x.*OPT1,0.......|
00000870  8c 10 dd a4 65 71 75 62  28 62 79 74 65 29 0d 05  |....equb(byte)..|
00000880  96 0c 3f 50 25 3d 62 79  74 65 0d 05 a0 0b 50 25  |..?P%=byte....P%|
00000890  3d 50 25 2b 31 0d 05 aa  09 3d 70 61 73 73 0d 05  |=P%+1....=pass..|
000008a0  b4 10 dd a4 65 71 75 77  28 77 6f 72 64 29 0d 05  |....equw(word)..|
000008b0  be 12 3f 50 25 3d 77 6f  72 64 20 83 20 32 35 36  |..?P%=word . 256|
000008c0  0d 05 c8 13 50 25 3f 31  3d 77 6f 72 64 20 81 20  |....P%?1=word . |
000008d0  32 35 36 0d 05 d2 0b 50  25 3d 50 25 2b 32 0d 05  |256....P%=P%+2..|
000008e0  dc 09 3d 70 61 73 73 0d  05 e6 12 dd a4 65 71 75  |..=pass......equ|
000008f0  64 28 64 6f 75 62 6c 65  29 0d 05 f0 0e 21 50 25  |d(double)....!P%|
00000900  3d 64 6f 75 62 6c 65 0d  05 fa 0b 50 25 3d 50 25  |=double....P%=P%|
00000910  2b 34 0d 06 04 09 3d 70  61 73 73 0d 06 0e 13 dd  |+4....=pass.....|
00000920  a4 65 71 75 73 28 73 74  72 69 6e 67 24 29 0d 06  |.equs(string$)..|
00000930  18 0f 24 50 25 3d 73 74  72 69 6e 67 24 0d 06 22  |..$P%=string$.."|
00000940  14 50 25 3d 50 25 2b a9  28 73 74 72 69 6e 67 24  |.P%=P%+.(string$|
00000950  29 0d 06 2c 09 3d 70 61  73 73 0d ff              |)..,.=pass..|
0000095c