� SRB2
� by H.R.Wall
� (c) The Micro User
(
�assemble
2�("*SAVE SRB2> 6F00+4F0"):�
<� �assemble
F� N%=0 � 3 � 3
PP%=&6F00
Z[OPT N%
d	.init
nLDA &202:STA &8A
xLDA &203:STA &8B
�LDA #error � 256:STA &202
�LDA #error � 256:STA &203
�STZ &70:STZ table
�LDA #&83:STA &71
�STA table+1
�STZ &72:STZ &73
�STZ &76:STZ &77
�LDA #restart � 256:STA &78
�LDA #12:JSR &FFEE
�LDA #restart � 256:STA &79
�STZ &7A:STZ &7B
�LDA #2:STA &7D:STZ &7E
�LDA #5:STA param+7

LDA #restart2 � 256:STA &86

LDA #restart2 � 256:STA &87

STZ &88:STZ &89

"
.start

,LDA #131:JSR &FFEE

6 LDX #(text1-text):JSR prtext

@!JSR &FFE0:CMP #&3A:BCC start2

J
JSR &FFE7

TLDA #129:JSR &FFEE

^ LDX #(text5-text):JSR prtext

h!JSR &FFE7:JSR &FFE7:JMP start

r.start2

|"JSR &FFEE:SEC:SBC #&30:STA &7C

� LDX #201:LDA &7C:STA table,X

�JSR &FFE7:JMP enterfiles

�
.error

�LDA #129:JSR &FFEE

� LDX #(text6-text):JSR prtext

�JSR &FFE7:JSR &FFE7

�.enterfiles

�LDA #131:JSR &FFEE

� LDX #(text2-text):JSR prtext

�JSR tableaddress

�JSR osword0

�JSR insertfname

�LDA &70:STA param+8
LDA &71:STA param+9
JMP processcode
.repeat
&INC &7E
0LDA &7E:CMP &7C:BEQ rts2
:LDA &7D:CLC:ADC #20:STA &7D
D'LDX &7D:DEX:DEX:LDA &80:STA table,X
NINX:LDA &81:STA table,X
XJSR bytesfree
bJMP enterfiles
l	.rts2
vJSR movetable
�
JSR &FFE7
�LDA #131:JSR &FFEE
� LDX #(text3-text):JSR prtext
�
.save2
�JSR &FFE0:CMP #89:BEQ save
�CMP #78:BEQ save3
�
JMP save2
�
.save3
�!JSR &FFEE:JSR &FFE7:JSR &FFE7
�LDA #130:JSR &FFEE
� LDX #(text4-text):JSR prtext
� JSR &FFE7:LDA #130:JSR &FFEE
�!LDX #(text4A-text):JSR prtext

JSR &FFE7
RTS
	.save
 
JSR &FFEE
*LDX #record � 256
4LDY #record � 256
>
JSR &FFF7
H
JSR &8F18
R
.restart2
\LDA &8A:STA &202
fLDA &8B:STA &203
p
JSR &6E00
zRTS
�.record
�EQUS "LOAD SRB3"
�EQUB 13
�.processcode
�JSR move
�JSR findtop
�LDA &8C:STA &74
�LDA &8D:STA &75
�LDA #133:JSR &FFEE
�!LDX #(text10-text):JSR prtext
�
JSR &FFE7
�LDA #15:JSR &FFEE
�
JSR &8F18
.restart
LDA &441:CMP #&BF:BCS full
LDA &440:CMP #&FF:BCC store
$	.full
.LDA #129:JSR &FFEE
8 LDX #(text8-text):JSR prtext
BLDA &7E:STA &7C
LLDX #201:LDA &7C
VSTA table,X
`JMP rts2
j
.store
tLDA &440:STA &80
~LDA &441:STA &81
�JSR blocklen
�JSR nextprog
�LDA &74:STA param+1
�LDA &75:STA param+2
�JSR transfer
�JMP repeat
�	.move
�LDX #execute � 256
�LDY #execute � 256
�
JSR &FFF7
�RTS
�.execute
EQUS "LOAD "

]:P%=P%+20:[OPT N%

.transfer
LDA #128:STA param
(LDA #&FF:STA param+3
2LDA #&FF:STA param+4
<LDA #&42
FLDX #param � 256
PLDY #param � 256
Z
JSR &FFF1
dRTS
n
.param
x
EQUD 0
�
EQUD 0
�
EQUW 0
�
.blocklen
�SEC
�LDA &80:SBC &70:STA param+5
�LDA &81:SBC &71:STA param+6
�RTS
�
.nextprog
�CLC
�LDA &70:ADC param+5:STA &70
�LDA &71:ADC param+6:STA &71
�CLC
�RTS
	.text

.text1
#EQUS "Number of files to load "
"
EQUB 0
,#.text2 EQUS "File name ":EQUB 0
6
.text3
@"EQUS "Save swram image ? Y/N "
J
EQUB 0
T
.text4
^#EQUS "CTRL/BREAK to initialise"
h
EQUB 0
r$.text4A EQUS "then *<star name>"
|
EQUB 0
�%.text5 EQUS "Not between 1 and 9"
�
EQUB 0
�2.text6 EQUS "NOT FOUND or SYNTAX ERROR":EQUB 0
�$.text7 EQUS "Bytes free ":EQUB 0
� .text8 EQUS "No room":EQUB 0
�&.text9 EQUS "Source code too long"
�).text10 EQUS "Assembling code":EQUB 0
�
EQUB 0
�.prtext
� LDA text,X:BEQ rts:JSR &FFEE
�INX:BRA prtext
�.rts
�RTS
	.roms
]:P%=P%+36:[OPT N%

.table
&]:P%=P%+220:[OPT N%
0.osword
:EQUD 0:EQUB 0
D	.buff
N]:P%=P%+16:[OPT N%
X.osword0
bLDA #17:STA osword+2
lLDA #45:STA osword+3
vLDA #95:STA osword+4
�LDX #osword � 256
�LDY #osword � 256
�
LDA #0
�
JSR &FFF1
�RTS
�.tableaddress
�LDA #table � 256:CLC
�ADC &7D:STA osword
�LDA #table � 256
�ADC #0:STA osword+1
�RTS
�.insertfname
�LDX &7D:LDY #5

.nextbyte
LDA table,X:STA execute,Y
CMP #13:BEQ rts3
 INX:INY:JMP nextbyte
*
.rts3 RTS
4.movetable
> LDA #table � 256:STA param+1
H LDA #table � 256:STA param+2
R$LDA #220:STA param+5:STZ param+6
\LDA #0:STA param+8
fLDA #&82:STA param+9
pJSR transfer
zRTS
�.bytesfree
�SEC
�LDA #&FF:SBC &80:STA &2A
�LDA #&BF:SBC &81:STA &2B
�LDA #134:JSR &FFEE
� LDX #(text7-text):JSR prtext
�
JSR &A081
�JSR &FFE7:JSR &FFE7
�RTS
�.findtop
�"LDY #0:STZ &8C:LDA #&E:STA &8D
�.ft
�LDA (&8C),Y:CMP #&D:BNE ft2
	$INY:LDA (&8C),Y:CMP #&FF:BEQ ft3
	DEY
	.ft2
	$JSR incft:JMP ft
	..ft3
	8JSR incft:JSR incft
	BRTS
	L
.incft
	VCLC:LDA &8C:ADC #1:STA &8C
	`LDA &8D:ADC #0:STA &8D
	jRTS
	tNOP
	~]�
	��
�

00000000  0d 00 0a 0a f4 20 53 52  42 32 0d 00 14 11 f4 20  |..... SRB2..... |
00000010  62 79 20 48 2e 52 2e 57  61 6c 6c 0d 00 1e 18 f4  |by H.R.Wall.....|
00000020  20 28 63 29 20 54 68 65  20 4d 69 63 72 6f 20 55  | (c) The Micro U|
00000030  73 65 72 0d 00 28 0d f2  61 73 73 65 6d 62 6c 65  |ser..(..assemble|
00000040  0d 00 32 1f ff 28 22 2a  53 41 56 45 20 53 52 42  |..2..("*SAVE SRB|
00000050  32 3e 20 36 46 30 30 2b  34 46 30 22 29 3a e0 0d  |2> 6F00+4F0"):..|
00000060  00 3c 0f dd 20 f2 61 73  73 65 6d 62 6c 65 0d 00  |.<.. .assemble..|
00000070  46 12 e3 20 4e 25 3d 30  20 b8 20 33 20 88 20 33  |F.. N%=0 . 3 . 3|
00000080  0d 00 50 0c 50 25 3d 26  36 46 30 30 0d 00 5a 0b  |..P.P%=&6F00..Z.|
00000090  5b 4f 50 54 20 4e 25 0d  00 64 09 2e 69 6e 69 74  |[OPT N%..d..init|
000000a0  0d 00 6e 14 4c 44 41 20  26 32 30 32 3a 53 54 41  |..n.LDA &202:STA|
000000b0  20 26 38 41 0d 00 78 14  4c 44 41 20 26 32 30 33  | &8A..x.LDA &203|
000000c0  3a 53 54 41 20 26 38 42  0d 00 82 1d 4c 44 41 20  |:STA &8B....LDA |
000000d0  23 65 72 72 6f 72 20 83  20 32 35 36 3a 53 54 41  |#error . 256:STA|
000000e0  20 26 32 30 32 0d 00 8c  1d 4c 44 41 20 23 65 72  | &202....LDA #er|
000000f0  72 6f 72 20 81 20 32 35  36 3a 53 54 41 20 26 32  |ror . 256:STA &2|
00000100  30 33 0d 00 96 15 53 54  5a 20 26 37 30 3a 53 54  |03....STZ &70:ST|
00000110  5a 20 74 61 62 6c 65 0d  00 a0 14 4c 44 41 20 23  |Z table....LDA #|
00000120  26 38 33 3a 53 54 41 20  26 37 31 0d 00 aa 0f 53  |&83:STA &71....S|
00000130  54 41 20 74 61 62 6c 65  2b 31 0d 00 b4 13 53 54  |TA table+1....ST|
00000140  5a 20 26 37 32 3a 53 54  5a 20 26 37 33 0d 00 be  |Z &72:STZ &73...|
00000150  13 53 54 5a 20 26 37 36  3a 53 54 5a 20 26 37 37  |.STZ &76:STZ &77|
00000160  0d 00 c8 1e 4c 44 41 20  23 72 65 73 74 61 72 74  |....LDA #restart|
00000170  20 83 20 32 35 36 3a 53  54 41 20 26 37 38 0d 00  | . 256:STA &78..|
00000180  d2 15 4c 44 41 20 23 31  32 3a 4a 53 52 20 26 46  |..LDA #12:JSR &F|
00000190  46 45 45 0d 00 dc 1e 4c  44 41 20 23 72 65 73 74  |FEE....LDA #rest|
000001a0  61 72 74 20 81 20 32 35  36 3a 53 54 41 20 26 37  |art . 256:STA &7|
000001b0  39 0d 00 e6 13 53 54 5a  20 26 37 41 3a 53 54 5a  |9....STZ &7A:STZ|
000001c0  20 26 37 42 0d 00 f0 1a  4c 44 41 20 23 32 3a 53  | &7B....LDA #2:S|
000001d0  54 41 20 26 37 44 3a 53  54 5a 20 26 37 45 0d 00  |TA &7D:STZ &7E..|
000001e0  fa 16 4c 44 41 20 23 35  3a 53 54 41 20 70 61 72  |..LDA #5:STA par|
000001f0  61 6d 2b 37 0d 01 04 1f  4c 44 41 20 23 72 65 73  |am+7....LDA #res|
00000200  74 61 72 74 32 20 83 20  32 35 36 3a 53 54 41 20  |tart2 . 256:STA |
00000210  26 38 36 0d 01 0e 1f 4c  44 41 20 23 72 65 73 74  |&86....LDA #rest|
00000220  61 72 74 32 20 81 20 32  35 36 3a 53 54 41 20 26  |art2 . 256:STA &|
00000230  38 37 0d 01 18 13 53 54  5a 20 26 38 38 3a 53 54  |87....STZ &88:ST|
00000240  5a 20 26 38 39 0d 01 22  0a 2e 73 74 61 72 74 0d  |Z &89.."..start.|
00000250  01 2c 16 4c 44 41 20 23  31 33 31 3a 4a 53 52 20  |.,.LDA #131:JSR |
00000260  26 46 46 45 45 0d 01 36  20 4c 44 58 20 23 28 74  |&FFEE..6 LDX #(t|
00000270  65 78 74 31 2d 74 65 78  74 29 3a 4a 53 52 20 70  |ext1-text):JSR p|
00000280  72 74 65 78 74 0d 01 40  21 4a 53 52 20 26 46 46  |rtext..@!JSR &FF|
00000290  45 30 3a 43 4d 50 20 23  26 33 41 3a 42 43 43 20  |E0:CMP #&3A:BCC |
000002a0  73 74 61 72 74 32 0d 01  4a 0d 4a 53 52 20 26 46  |start2..J.JSR &F|
000002b0  46 45 37 0d 01 54 16 4c  44 41 20 23 31 32 39 3a  |FE7..T.LDA #129:|
000002c0  4a 53 52 20 26 46 46 45  45 0d 01 5e 20 4c 44 58  |JSR &FFEE..^ LDX|
000002d0  20 23 28 74 65 78 74 35  2d 74 65 78 74 29 3a 4a  | #(text5-text):J|
000002e0  53 52 20 70 72 74 65 78  74 0d 01 68 21 4a 53 52  |SR prtext..h!JSR|
000002f0  20 26 46 46 45 37 3a 4a  53 52 20 26 46 46 45 37  | &FFE7:JSR &FFE7|
00000300  3a 4a 4d 50 20 73 74 61  72 74 0d 01 72 0b 2e 73  |:JMP start..r..s|
00000310  74 61 72 74 32 0d 01 7c  22 4a 53 52 20 26 46 46  |tart2..|"JSR &FF|
00000320  45 45 3a 53 45 43 3a 53  42 43 20 23 26 33 30 3a  |EE:SEC:SBC #&30:|
00000330  53 54 41 20 26 37 43 0d  01 86 20 4c 44 58 20 23  |STA &7C... LDX #|
00000340  32 30 31 3a 4c 44 41 20  26 37 43 3a 53 54 41 20  |201:LDA &7C:STA |
00000350  74 61 62 6c 65 2c 58 0d  01 90 1c 4a 53 52 20 26  |table,X....JSR &|
00000360  46 46 45 37 3a 4a 4d 50  20 65 6e 74 65 72 66 69  |FFE7:JMP enterfi|
00000370  6c 65 73 0d 01 9a 0a 2e  65 72 72 6f 72 0d 01 a4  |les.....error...|
00000380  16 4c 44 41 20 23 31 32  39 3a 4a 53 52 20 26 46  |.LDA #129:JSR &F|
00000390  46 45 45 0d 01 ae 20 4c  44 58 20 23 28 74 65 78  |FEE... LDX #(tex|
000003a0  74 36 2d 74 65 78 74 29  3a 4a 53 52 20 70 72 74  |t6-text):JSR prt|
000003b0  65 78 74 0d 01 b8 17 4a  53 52 20 26 46 46 45 37  |ext....JSR &FFE7|
000003c0  3a 4a 53 52 20 26 46 46  45 37 0d 01 c2 0f 2e 65  |:JSR &FFE7.....e|
000003d0  6e 74 65 72 66 69 6c 65  73 0d 01 cc 16 4c 44 41  |nterfiles....LDA|
000003e0  20 23 31 33 31 3a 4a 53  52 20 26 46 46 45 45 0d  | #131:JSR &FFEE.|
000003f0  01 d6 20 4c 44 58 20 23  28 74 65 78 74 32 2d 74  |.. LDX #(text2-t|
00000400  65 78 74 29 3a 4a 53 52  20 70 72 74 65 78 74 0d  |ext):JSR prtext.|
00000410  01 e0 14 4a 53 52 20 74  61 62 6c 65 61 64 64 72  |...JSR tableaddr|
00000420  65 73 73 0d 01 ea 0f 4a  53 52 20 6f 73 77 6f 72  |ess....JSR oswor|
00000430  64 30 0d 01 f4 13 4a 53  52 20 69 6e 73 65 72 74  |d0....JSR insert|
00000440  66 6e 61 6d 65 0d 01 fe  17 4c 44 41 20 26 37 30  |fname....LDA &70|
00000450  3a 53 54 41 20 70 61 72  61 6d 2b 38 0d 02 08 17  |:STA param+8....|
00000460  4c 44 41 20 26 37 31 3a  53 54 41 20 70 61 72 61  |LDA &71:STA para|
00000470  6d 2b 39 0d 02 12 13 4a  4d 50 20 70 72 6f 63 65  |m+9....JMP proce|
00000480  73 73 63 6f 64 65 0d 02  1c 0b 2e 72 65 70 65 61  |sscode.....repea|
00000490  74 0d 02 26 0b 49 4e 43  20 26 37 45 0d 02 30 1c  |t..&.INC &7E..0.|
000004a0  4c 44 41 20 26 37 45 3a  43 4d 50 20 26 37 43 3a  |LDA &7E:CMP &7C:|
000004b0  42 45 51 20 72 74 73 32  0d 02 3a 1f 4c 44 41 20  |BEQ rts2..:.LDA |
000004c0  26 37 44 3a 43 4c 43 3a  41 44 43 20 23 32 30 3a  |&7D:CLC:ADC #20:|
000004d0  53 54 41 20 26 37 44 0d  02 44 27 4c 44 58 20 26  |STA &7D..D'LDX &|
000004e0  37 44 3a 44 45 58 3a 44  45 58 3a 4c 44 41 20 26  |7D:DEX:DEX:LDA &|
000004f0  38 30 3a 53 54 41 20 74  61 62 6c 65 2c 58 0d 02  |80:STA table,X..|
00000500  4e 1b 49 4e 58 3a 4c 44  41 20 26 38 31 3a 53 54  |N.INX:LDA &81:ST|
00000510  41 20 74 61 62 6c 65 2c  58 0d 02 58 11 4a 53 52  |A table,X..X.JSR|
00000520  20 62 79 74 65 73 66 72  65 65 0d 02 62 12 4a 4d  | bytesfree..b.JM|
00000530  50 20 65 6e 74 65 72 66  69 6c 65 73 0d 02 6c 09  |P enterfiles..l.|
00000540  2e 72 74 73 32 0d 02 76  11 4a 53 52 20 6d 6f 76  |.rts2..v.JSR mov|
00000550  65 74 61 62 6c 65 0d 02  80 0d 4a 53 52 20 26 46  |etable....JSR &F|
00000560  46 45 37 0d 02 8a 16 4c  44 41 20 23 31 33 31 3a  |FE7....LDA #131:|
00000570  4a 53 52 20 26 46 46 45  45 0d 02 94 20 4c 44 58  |JSR &FFEE... LDX|
00000580  20 23 28 74 65 78 74 33  2d 74 65 78 74 29 3a 4a  | #(text3-text):J|
00000590  53 52 20 70 72 74 65 78  74 0d 02 9e 0a 2e 73 61  |SR prtext.....sa|
000005a0  76 65 32 0d 02 a8 1e 4a  53 52 20 26 46 46 45 30  |ve2....JSR &FFE0|
000005b0  3a 43 4d 50 20 23 38 39  3a 42 45 51 20 73 61 76  |:CMP #89:BEQ sav|
000005c0  65 0d 02 b2 15 43 4d 50  20 23 37 38 3a 42 45 51  |e....CMP #78:BEQ|
000005d0  20 73 61 76 65 33 0d 02  bc 0d 4a 4d 50 20 73 61  | save3....JMP sa|
000005e0  76 65 32 0d 02 c6 0a 2e  73 61 76 65 33 0d 02 d0  |ve2.....save3...|
000005f0  21 4a 53 52 20 26 46 46  45 45 3a 4a 53 52 20 26  |!JSR &FFEE:JSR &|
00000600  46 46 45 37 3a 4a 53 52  20 26 46 46 45 37 0d 02  |FFE7:JSR &FFE7..|
00000610  da 16 4c 44 41 20 23 31  33 30 3a 4a 53 52 20 26  |..LDA #130:JSR &|
00000620  46 46 45 45 0d 02 e4 20  4c 44 58 20 23 28 74 65  |FFEE... LDX #(te|
00000630  78 74 34 2d 74 65 78 74  29 3a 4a 53 52 20 70 72  |xt4-text):JSR pr|
00000640  74 65 78 74 0d 02 ee 20  4a 53 52 20 26 46 46 45  |text... JSR &FFE|
00000650  37 3a 4c 44 41 20 23 31  33 30 3a 4a 53 52 20 26  |7:LDA #130:JSR &|
00000660  46 46 45 45 0d 02 f8 21  4c 44 58 20 23 28 74 65  |FFEE...!LDX #(te|
00000670  78 74 34 41 2d 74 65 78  74 29 3a 4a 53 52 20 70  |xt4A-text):JSR p|
00000680  72 74 65 78 74 0d 03 02  0d 4a 53 52 20 26 46 46  |rtext....JSR &FF|
00000690  45 37 0d 03 0c 07 52 54  53 0d 03 16 09 2e 73 61  |E7....RTS.....sa|
000006a0  76 65 0d 03 20 0d 4a 53  52 20 26 46 46 45 45 0d  |ve.. .JSR &FFEE.|
000006b0  03 2a 15 4c 44 58 20 23  72 65 63 6f 72 64 20 83  |.*.LDX #record .|
000006c0  20 32 35 36 0d 03 34 15  4c 44 59 20 23 72 65 63  | 256..4.LDY #rec|
000006d0  6f 72 64 20 81 20 32 35  36 0d 03 3e 0d 4a 53 52  |ord . 256..>.JSR|
000006e0  20 26 46 46 46 37 0d 03  48 0d 4a 53 52 20 26 38  | &FFF7..H.JSR &8|
000006f0  46 31 38 0d 03 52 0d 2e  72 65 73 74 61 72 74 32  |F18..R..restart2|
00000700  0d 03 5c 14 4c 44 41 20  26 38 41 3a 53 54 41 20  |..\.LDA &8A:STA |
00000710  26 32 30 32 0d 03 66 14  4c 44 41 20 26 38 42 3a  |&202..f.LDA &8B:|
00000720  53 54 41 20 26 32 30 33  0d 03 70 0d 4a 53 52 20  |STA &203..p.JSR |
00000730  26 36 45 30 30 0d 03 7a  07 52 54 53 0d 03 84 0b  |&6E00..z.RTS....|
00000740  2e 72 65 63 6f 72 64 0d  03 8e 14 45 51 55 53 20  |.record....EQUS |
00000750  22 4c 4f 41 44 20 53 52  42 33 22 0d 03 98 0b 45  |"LOAD SRB3"....E|
00000760  51 55 42 20 31 33 0d 03  a2 10 2e 70 72 6f 63 65  |QUB 13.....proce|
00000770  73 73 63 6f 64 65 0d 03  ac 0c 4a 53 52 20 6d 6f  |sscode....JSR mo|
00000780  76 65 0d 03 b6 0f 4a 53  52 20 66 69 6e 64 74 6f  |ve....JSR findto|
00000790  70 0d 03 c0 13 4c 44 41  20 26 38 43 3a 53 54 41  |p....LDA &8C:STA|
000007a0  20 26 37 34 0d 03 ca 13  4c 44 41 20 26 38 44 3a  | &74....LDA &8D:|
000007b0  53 54 41 20 26 37 35 0d  03 d4 16 4c 44 41 20 23  |STA &75....LDA #|
000007c0  31 33 33 3a 4a 53 52 20  26 46 46 45 45 0d 03 de  |133:JSR &FFEE...|
000007d0  21 4c 44 58 20 23 28 74  65 78 74 31 30 2d 74 65  |!LDX #(text10-te|
000007e0  78 74 29 3a 4a 53 52 20  70 72 74 65 78 74 0d 03  |xt):JSR prtext..|
000007f0  e8 0d 4a 53 52 20 26 46  46 45 37 0d 03 f2 15 4c  |..JSR &FFE7....L|
00000800  44 41 20 23 31 35 3a 4a  53 52 20 26 46 46 45 45  |DA #15:JSR &FFEE|
00000810  0d 03 fc 0d 4a 53 52 20  26 38 46 31 38 0d 04 06  |....JSR &8F18...|
00000820  0c 2e 72 65 73 74 61 72  74 0d 04 10 1e 4c 44 41  |..restart....LDA|
00000830  20 26 34 34 31 3a 43 4d  50 20 23 26 42 46 3a 42  | &441:CMP #&BF:B|
00000840  43 53 20 66 75 6c 6c 0d  04 1a 1f 4c 44 41 20 26  |CS full....LDA &|
00000850  34 34 30 3a 43 4d 50 20  23 26 46 46 3a 42 43 43  |440:CMP #&FF:BCC|
00000860  20 73 74 6f 72 65 0d 04  24 09 2e 66 75 6c 6c 0d  | store..$..full.|
00000870  04 2e 16 4c 44 41 20 23  31 32 39 3a 4a 53 52 20  |...LDA #129:JSR |
00000880  26 46 46 45 45 0d 04 38  20 4c 44 58 20 23 28 74  |&FFEE..8 LDX #(t|
00000890  65 78 74 38 2d 74 65 78  74 29 3a 4a 53 52 20 70  |ext8-text):JSR p|
000008a0  72 74 65 78 74 0d 04 42  13 4c 44 41 20 26 37 45  |rtext..B.LDA &7E|
000008b0  3a 53 54 41 20 26 37 43  0d 04 4c 14 4c 44 58 20  |:STA &7C..L.LDX |
000008c0  23 32 30 31 3a 4c 44 41  20 26 37 43 0d 04 56 0f  |#201:LDA &7C..V.|
000008d0  53 54 41 20 74 61 62 6c  65 2c 58 0d 04 60 0c 4a  |STA table,X..`.J|
000008e0  4d 50 20 72 74 73 32 0d  04 6a 0a 2e 73 74 6f 72  |MP rts2..j..stor|
000008f0  65 0d 04 74 14 4c 44 41  20 26 34 34 30 3a 53 54  |e..t.LDA &440:ST|
00000900  41 20 26 38 30 0d 04 7e  14 4c 44 41 20 26 34 34  |A &80..~.LDA &44|
00000910  31 3a 53 54 41 20 26 38  31 0d 04 88 10 4a 53 52  |1:STA &81....JSR|
00000920  20 62 6c 6f 63 6b 6c 65  6e 0d 04 92 10 4a 53 52  | blocklen....JSR|
00000930  20 6e 65 78 74 70 72 6f  67 0d 04 9c 17 4c 44 41  | nextprog....LDA|
00000940  20 26 37 34 3a 53 54 41  20 70 61 72 61 6d 2b 31  | &74:STA param+1|
00000950  0d 04 a6 17 4c 44 41 20  26 37 35 3a 53 54 41 20  |....LDA &75:STA |
00000960  70 61 72 61 6d 2b 32 0d  04 b0 10 4a 53 52 20 74  |param+2....JSR t|
00000970  72 61 6e 73 66 65 72 0d  04 ba 0e 4a 4d 50 20 72  |ransfer....JMP r|
00000980  65 70 65 61 74 0d 04 c4  09 2e 6d 6f 76 65 0d 04  |epeat.....move..|
00000990  ce 16 4c 44 58 20 23 65  78 65 63 75 74 65 20 83  |..LDX #execute .|
000009a0  20 32 35 36 0d 04 d8 16  4c 44 59 20 23 65 78 65  | 256....LDY #exe|
000009b0  63 75 74 65 20 81 20 32  35 36 0d 04 e2 0d 4a 53  |cute . 256....JS|
000009c0  52 20 26 46 46 46 37 0d  04 ec 07 52 54 53 0d 04  |R &FFF7....RTS..|
000009d0  f6 0c 2e 65 78 65 63 75  74 65 0d 05 00 10 45 51  |...execute....EQ|
000009e0  55 53 20 22 4c 4f 41 44  20 22 0d 05 0a 16 5d 3a  |US "LOAD "....]:|
000009f0  50 25 3d 50 25 2b 32 30  3a 5b 4f 50 54 20 4e 25  |P%=P%+20:[OPT N%|
00000a00  0d 05 14 0d 2e 74 72 61  6e 73 66 65 72 0d 05 1e  |.....transfer...|
00000a10  16 4c 44 41 20 23 31 32  38 3a 53 54 41 20 70 61  |.LDA #128:STA pa|
00000a20  72 61 6d 0d 05 28 18 4c  44 41 20 23 26 46 46 3a  |ram..(.LDA #&FF:|
00000a30  53 54 41 20 70 61 72 61  6d 2b 33 0d 05 32 18 4c  |STA param+3..2.L|
00000a40  44 41 20 23 26 46 46 3a  53 54 41 20 70 61 72 61  |DA #&FF:STA para|
00000a50  6d 2b 34 0d 05 3c 0c 4c  44 41 20 23 26 34 32 0d  |m+4..<.LDA #&42.|
00000a60  05 46 14 4c 44 58 20 23  70 61 72 61 6d 20 83 20  |.F.LDX #param . |
00000a70  32 35 36 0d 05 50 14 4c  44 59 20 23 70 61 72 61  |256..P.LDY #para|
00000a80  6d 20 81 20 32 35 36 0d  05 5a 0d 4a 53 52 20 26  |m . 256..Z.JSR &|
00000a90  46 46 46 31 0d 05 64 07  52 54 53 0d 05 6e 0a 2e  |FFF1..d.RTS..n..|
00000aa0  70 61 72 61 6d 0d 05 78  0a 45 51 55 44 20 30 0d  |param..x.EQUD 0.|
00000ab0  05 82 0a 45 51 55 44 20  30 0d 05 8c 0a 45 51 55  |...EQUD 0....EQU|
00000ac0  57 20 30 0d 05 96 0d 2e  62 6c 6f 63 6b 6c 65 6e  |W 0.....blocklen|
00000ad0  0d 05 a0 07 53 45 43 0d  05 aa 1f 4c 44 41 20 26  |....SEC....LDA &|
00000ae0  38 30 3a 53 42 43 20 26  37 30 3a 53 54 41 20 70  |80:SBC &70:STA p|
00000af0  61 72 61 6d 2b 35 0d 05  b4 1f 4c 44 41 20 26 38  |aram+5....LDA &8|
00000b00  31 3a 53 42 43 20 26 37  31 3a 53 54 41 20 70 61  |1:SBC &71:STA pa|
00000b10  72 61 6d 2b 36 0d 05 be  07 52 54 53 0d 05 c8 0d  |ram+6....RTS....|
00000b20  2e 6e 65 78 74 70 72 6f  67 0d 05 d2 07 43 4c 43  |.nextprog....CLC|
00000b30  0d 05 dc 1f 4c 44 41 20  26 37 30 3a 41 44 43 20  |....LDA &70:ADC |
00000b40  70 61 72 61 6d 2b 35 3a  53 54 41 20 26 37 30 0d  |param+5:STA &70.|
00000b50  05 e6 1f 4c 44 41 20 26  37 31 3a 41 44 43 20 70  |...LDA &71:ADC p|
00000b60  61 72 61 6d 2b 36 3a 53  54 41 20 26 37 31 0d 05  |aram+6:STA &71..|
00000b70  f0 07 43 4c 43 0d 05 fa  07 52 54 53 0d 06 04 09  |..CLC....RTS....|
00000b80  2e 74 65 78 74 0d 06 0e  0a 2e 74 65 78 74 31 0d  |.text.....text1.|
00000b90  06 18 23 45 51 55 53 20  22 4e 75 6d 62 65 72 20  |..#EQUS "Number |
00000ba0  6f 66 20 66 69 6c 65 73  20 74 6f 20 6c 6f 61 64  |of files to load|
00000bb0  20 22 0d 06 22 0a 45 51  55 42 20 30 0d 06 2c 23  | "..".EQUB 0..,#|
00000bc0  2e 74 65 78 74 32 20 45  51 55 53 20 22 46 69 6c  |.text2 EQUS "Fil|
00000bd0  65 20 6e 61 6d 65 20 22  3a 45 51 55 42 20 30 0d  |e name ":EQUB 0.|
00000be0  06 36 0a 2e 74 65 78 74  33 0d 06 40 22 45 51 55  |.6..text3..@"EQU|
00000bf0  53 20 22 53 61 76 65 20  73 77 72 61 6d 20 69 6d  |S "Save swram im|
00000c00  61 67 65 20 3f 20 59 2f  4e 20 22 0d 06 4a 0a 45  |age ? Y/N "..J.E|
00000c10  51 55 42 20 30 0d 06 54  0a 2e 74 65 78 74 34 0d  |QUB 0..T..text4.|
00000c20  06 5e 23 45 51 55 53 20  22 43 54 52 4c 2f 42 52  |.^#EQUS "CTRL/BR|
00000c30  45 41 4b 20 74 6f 20 69  6e 69 74 69 61 6c 69 73  |EAK to initialis|
00000c40  65 22 0d 06 68 0a 45 51  55 42 20 30 0d 06 72 24  |e"..h.EQUB 0..r$|
00000c50  2e 74 65 78 74 34 41 20  45 51 55 53 20 22 74 68  |.text4A EQUS "th|
00000c60  65 6e 20 2a 3c 73 74 61  72 20 6e 61 6d 65 3e 22  |en *<star name>"|
00000c70  0d 06 7c 0a 45 51 55 42  20 30 0d 06 86 25 2e 74  |..|.EQUB 0...%.t|
00000c80  65 78 74 35 20 45 51 55  53 20 22 4e 6f 74 20 62  |ext5 EQUS "Not b|
00000c90  65 74 77 65 65 6e 20 31  20 61 6e 64 20 39 22 0d  |etween 1 and 9".|
00000ca0  06 90 0a 45 51 55 42 20  30 0d 06 9a 32 2e 74 65  |...EQUB 0...2.te|
00000cb0  78 74 36 20 45 51 55 53  20 22 4e 4f 54 20 46 4f  |xt6 EQUS "NOT FO|
00000cc0  55 4e 44 20 6f 72 20 53  59 4e 54 41 58 20 45 52  |UND or SYNTAX ER|
00000cd0  52 4f 52 22 3a 45 51 55  42 20 30 0d 06 a4 24 2e  |ROR":EQUB 0...$.|
00000ce0  74 65 78 74 37 20 45 51  55 53 20 22 42 79 74 65  |text7 EQUS "Byte|
00000cf0  73 20 66 72 65 65 20 22  3a 45 51 55 42 20 30 0d  |s free ":EQUB 0.|
00000d00  06 ae 20 2e 74 65 78 74  38 20 45 51 55 53 20 22  |.. .text8 EQUS "|
00000d10  4e 6f 20 72 6f 6f 6d 22  3a 45 51 55 42 20 30 0d  |No room":EQUB 0.|
00000d20  06 b8 26 2e 74 65 78 74  39 20 45 51 55 53 20 22  |..&.text9 EQUS "|
00000d30  53 6f 75 72 63 65 20 63  6f 64 65 20 74 6f 6f 20  |Source code too |
00000d40  6c 6f 6e 67 22 0d 06 c2  29 2e 74 65 78 74 31 30  |long"...).text10|
00000d50  20 45 51 55 53 20 22 41  73 73 65 6d 62 6c 69 6e  | EQUS "Assemblin|
00000d60  67 20 63 6f 64 65 22 3a  45 51 55 42 20 30 0d 06  |g code":EQUB 0..|
00000d70  cc 0a 45 51 55 42 20 30  0d 06 d6 0b 2e 70 72 74  |..EQUB 0.....prt|
00000d80  65 78 74 0d 06 e0 20 4c  44 41 20 74 65 78 74 2c  |ext... LDA text,|
00000d90  58 3a 42 45 51 20 72 74  73 3a 4a 53 52 20 26 46  |X:BEQ rts:JSR &F|
00000da0  46 45 45 0d 06 ea 12 49  4e 58 3a 42 52 41 20 70  |FEE....INX:BRA p|
00000db0  72 74 65 78 74 0d 06 f4  08 2e 72 74 73 0d 06 fe  |rtext.....rts...|
00000dc0  07 52 54 53 0d 07 08 09  2e 72 6f 6d 73 0d 07 12  |.RTS.....roms...|
00000dd0  16 5d 3a 50 25 3d 50 25  2b 33 36 3a 5b 4f 50 54  |.]:P%=P%+36:[OPT|
00000de0  20 4e 25 0d 07 1c 0a 2e  74 61 62 6c 65 0d 07 26  | N%.....table..&|
00000df0  17 5d 3a 50 25 3d 50 25  2b 32 32 30 3a 5b 4f 50  |.]:P%=P%+220:[OP|
00000e00  54 20 4e 25 0d 07 30 0b  2e 6f 73 77 6f 72 64 0d  |T N%..0..osword.|
00000e10  07 3a 11 45 51 55 44 20  30 3a 45 51 55 42 20 30  |.:.EQUD 0:EQUB 0|
00000e20  0d 07 44 09 2e 62 75 66  66 0d 07 4e 16 5d 3a 50  |..D..buff..N.]:P|
00000e30  25 3d 50 25 2b 31 36 3a  5b 4f 50 54 20 4e 25 0d  |%=P%+16:[OPT N%.|
00000e40  07 58 0c 2e 6f 73 77 6f  72 64 30 0d 07 62 18 4c  |.X..osword0..b.L|
00000e50  44 41 20 23 31 37 3a 53  54 41 20 6f 73 77 6f 72  |DA #17:STA oswor|
00000e60  64 2b 32 0d 07 6c 18 4c  44 41 20 23 34 35 3a 53  |d+2..l.LDA #45:S|
00000e70  54 41 20 6f 73 77 6f 72  64 2b 33 0d 07 76 18 4c  |TA osword+3..v.L|
00000e80  44 41 20 23 39 35 3a 53  54 41 20 6f 73 77 6f 72  |DA #95:STA oswor|
00000e90  64 2b 34 0d 07 80 15 4c  44 58 20 23 6f 73 77 6f  |d+4....LDX #oswo|
00000ea0  72 64 20 83 20 32 35 36  0d 07 8a 15 4c 44 59 20  |rd . 256....LDY |
00000eb0  23 6f 73 77 6f 72 64 20  81 20 32 35 36 0d 07 94  |#osword . 256...|
00000ec0  0a 4c 44 41 20 23 30 0d  07 9e 0d 4a 53 52 20 26  |.LDA #0....JSR &|
00000ed0  46 46 46 31 0d 07 a8 07  52 54 53 0d 07 b2 11 2e  |FFF1....RTS.....|
00000ee0  74 61 62 6c 65 61 64 64  72 65 73 73 0d 07 bc 18  |tableaddress....|
00000ef0  4c 44 41 20 23 74 61 62  6c 65 20 83 20 32 35 36  |LDA #table . 256|
00000f00  3a 43 4c 43 0d 07 c6 16  41 44 43 20 26 37 44 3a  |:CLC....ADC &7D:|
00000f10  53 54 41 20 6f 73 77 6f  72 64 0d 07 d0 14 4c 44  |STA osword....LD|
00000f20  41 20 23 74 61 62 6c 65  20 81 20 32 35 36 0d 07  |A #table . 256..|
00000f30  da 17 41 44 43 20 23 30  3a 53 54 41 20 6f 73 77  |..ADC #0:STA osw|
00000f40  6f 72 64 2b 31 0d 07 e4  07 52 54 53 0d 07 ee 10  |ord+1....RTS....|
00000f50  2e 69 6e 73 65 72 74 66  6e 61 6d 65 0d 07 f8 12  |.insertfname....|
00000f60  4c 44 58 20 26 37 44 3a  4c 44 59 20 23 35 0d 08  |LDX &7D:LDY #5..|
00000f70  02 0d 2e 6e 65 78 74 62  79 74 65 0d 08 0c 1d 4c  |...nextbyte....L|
00000f80  44 41 20 74 61 62 6c 65  2c 58 3a 53 54 41 20 65  |DA table,X:STA e|
00000f90  78 65 63 75 74 65 2c 59  0d 08 16 14 43 4d 50 20  |xecute,Y....CMP |
00000fa0  23 31 33 3a 42 45 51 20  72 74 73 33 0d 08 20 18  |#13:BEQ rts3.. .|
00000fb0  49 4e 58 3a 49 4e 59 3a  4a 4d 50 20 6e 65 78 74  |INX:INY:JMP next|
00000fc0  62 79 74 65 0d 08 2a 0d  2e 72 74 73 33 20 52 54  |byte..*..rts3 RT|
00000fd0  53 0d 08 34 0e 2e 6d 6f  76 65 74 61 62 6c 65 0d  |S..4..movetable.|
00000fe0  08 3e 20 4c 44 41 20 23  74 61 62 6c 65 20 83 20  |.> LDA #table . |
00000ff0  32 35 36 3a 53 54 41 20  70 61 72 61 6d 2b 31 0d  |256:STA param+1.|
00001000  08 48 20 4c 44 41 20 23  74 61 62 6c 65 20 81 20  |.H LDA #table . |
00001010  32 35 36 3a 53 54 41 20  70 61 72 61 6d 2b 32 0d  |256:STA param+2.|
00001020  08 52 24 4c 44 41 20 23  32 32 30 3a 53 54 41 20  |.R$LDA #220:STA |
00001030  70 61 72 61 6d 2b 35 3a  53 54 5a 20 70 61 72 61  |param+5:STZ para|
00001040  6d 2b 36 0d 08 5c 16 4c  44 41 20 23 30 3a 53 54  |m+6..\.LDA #0:ST|
00001050  41 20 70 61 72 61 6d 2b  38 0d 08 66 18 4c 44 41  |A param+8..f.LDA|
00001060  20 23 26 38 32 3a 53 54  41 20 70 61 72 61 6d 2b  | #&82:STA param+|
00001070  39 0d 08 70 10 4a 53 52  20 74 72 61 6e 73 66 65  |9..p.JSR transfe|
00001080  72 0d 08 7a 07 52 54 53  0d 08 84 0e 2e 62 79 74  |r..z.RTS.....byt|
00001090  65 73 66 72 65 65 0d 08  8e 07 53 45 43 0d 08 98  |esfree....SEC...|
000010a0  1c 4c 44 41 20 23 26 46  46 3a 53 42 43 20 26 38  |.LDA #&FF:SBC &8|
000010b0  30 3a 53 54 41 20 26 32  41 0d 08 a2 1c 4c 44 41  |0:STA &2A....LDA|
000010c0  20 23 26 42 46 3a 53 42  43 20 26 38 31 3a 53 54  | #&BF:SBC &81:ST|
000010d0  41 20 26 32 42 0d 08 ac  16 4c 44 41 20 23 31 33  |A &2B....LDA #13|
000010e0  34 3a 4a 53 52 20 26 46  46 45 45 0d 08 b6 20 4c  |4:JSR &FFEE... L|
000010f0  44 58 20 23 28 74 65 78  74 37 2d 74 65 78 74 29  |DX #(text7-text)|
00001100  3a 4a 53 52 20 70 72 74  65 78 74 0d 08 c0 0d 4a  |:JSR prtext....J|
00001110  53 52 20 26 41 30 38 31  0d 08 ca 17 4a 53 52 20  |SR &A081....JSR |
00001120  26 46 46 45 37 3a 4a 53  52 20 26 46 46 45 37 0d  |&FFE7:JSR &FFE7.|
00001130  08 d4 07 52 54 53 0d 08  de 0c 2e 66 69 6e 64 74  |...RTS.....findt|
00001140  6f 70 0d 08 e8 22 4c 44  59 20 23 30 3a 53 54 5a  |op..."LDY #0:STZ|
00001150  20 26 38 43 3a 4c 44 41  20 23 26 45 3a 53 54 41  | &8C:LDA #&E:STA|
00001160  20 26 38 44 0d 08 f2 07  2e 66 74 0d 08 fc 1f 4c  | &8D.....ft....L|
00001170  44 41 20 28 26 38 43 29  2c 59 3a 43 4d 50 20 23  |DA (&8C),Y:CMP #|
00001180  26 44 3a 42 4e 45 20 66  74 32 0d 09 06 24 49 4e  |&D:BNE ft2...$IN|
00001190  59 3a 4c 44 41 20 28 26  38 43 29 2c 59 3a 43 4d  |Y:LDA (&8C),Y:CM|
000011a0  50 20 23 26 46 46 3a 42  45 51 20 66 74 33 0d 09  |P #&FF:BEQ ft3..|
000011b0  10 07 44 45 59 0d 09 1a  08 2e 66 74 32 0d 09 24  |..DEY.....ft2..$|
000011c0  14 4a 53 52 20 69 6e 63  66 74 3a 4a 4d 50 20 66  |.JSR incft:JMP f|
000011d0  74 0d 09 2e 08 2e 66 74  33 0d 09 38 17 4a 53 52  |t.....ft3..8.JSR|
000011e0  20 69 6e 63 66 74 3a 4a  53 52 20 69 6e 63 66 74  | incft:JSR incft|
000011f0  0d 09 42 07 52 54 53 0d  09 4c 0a 2e 69 6e 63 66  |..B.RTS..L..incf|
00001200  74 0d 09 56 1e 43 4c 43  3a 4c 44 41 20 26 38 43  |t..V.CLC:LDA &8C|
00001210  3a 41 44 43 20 23 31 3a  53 54 41 20 26 38 43 0d  |:ADC #1:STA &8C.|
00001220  09 60 1a 4c 44 41 20 26  38 44 3a 41 44 43 20 23  |.`.LDA &8D:ADC #|
00001230  30 3a 53 54 41 20 26 38  44 0d 09 6a 07 52 54 53  |0:STA &8D..j.RTS|
00001240  0d 09 74 07 4e 4f 50 0d  09 7e 06 5d ed 0d 09 88  |..t.NOP..~.]....|
00001250  05 e1 0d ff                                       |....|
00001254