�
�mc
&�"Rom socket number for ROM ? "sok
(�"Length of code (8/16) ?"L
2�"Filename ? "F$
<P%=&C00
F[
P	OPT 2
ZLDA&F4:STA&7F
dLDA#sok
nSTA&FE30
x	LDY#0
�STY&70:STY&72
�!LDA#&30:STA&71:LDA#&80:STA&73
�.l1
�LDA(&72),Y:STA(&70),Y
�
INY:BNEl1
�INC&71:INC&73
�LDA&73:CMP#&80+L*4
�	BNEl1
�
LDA&7F
�STA&FE30
�RTS
�]
�	�&C00

*OPT1,2

6$&C80="SAVE "+F$+" 3000 +"+�~(L*1024)+" 8000 8000"

X%=128:Y%=12:�&FFF7

"�

,��mc

6
�A%=0�2�2

@P%=&C00

J[

T
OPT A%

^LDA&F4:STA&70

h
LDX#12

r.l2

|STX&FE30:STX&F4

�
JSRdec

�LDA#32:JSR&FFEE

�LDY#255

�.l1 iny

�LDA&8009,Y:JSR&FFEE

�CMP#0:BNEl1

�JSR&FFE7

�INX

�CPX#16:BNEl2

�LDA&70:STA&FE30:STA&F4

�RTS

�.dec

�TXA
CMP#10:BCCd1
PHA
LDA#49:JSR&FFEE
&PLA
0SEC:SBC#10
:.d1
DCLC:ADC#48:JMP&FFEE
N]
X�
b�
l	�&C00
v�
�

00000000  0d 00 0a 05 db 0d 00 14  07 f2 6d 63 0d 00 1e 26  |..........mc...&|
00000010  e8 22 52 6f 6d 20 73 6f  63 6b 65 74 20 6e 75 6d  |."Rom socket num|
00000020  62 65 72 20 66 6f 72 20  52 4f 4d 20 3f 20 22 73  |ber for ROM ? "s|
00000030  6f 6b 0d 00 28 1f e8 22  4c 65 6e 67 74 68 20 6f  |ok..(.."Length o|
00000040  66 20 63 6f 64 65 20 28  38 2f 31 36 29 20 3f 22  |f code (8/16) ?"|
00000050  4c 0d 00 32 14 e8 22 46  69 6c 65 6e 61 6d 65 20  |L..2.."Filename |
00000060  3f 20 22 46 24 0d 00 3c  0b 50 25 3d 26 43 30 30  |? "F$..<.P%=&C00|
00000070  0d 00 46 05 5b 0d 00 50  09 4f 50 54 20 32 0d 00  |..F.[..P.OPT 2..|
00000080  5a 11 4c 44 41 26 46 34  3a 53 54 41 26 37 46 0d  |Z.LDA&F4:STA&7F.|
00000090  00 64 0b 4c 44 41 23 73  6f 6b 0d 00 6e 0c 53 54  |.d.LDA#sok..n.ST|
000000a0  41 26 46 45 33 30 0d 00  78 09 4c 44 59 23 30 0d  |A&FE30..x.LDY#0.|
000000b0  00 82 11 53 54 59 26 37  30 3a 53 54 59 26 37 32  |...STY&70:STY&72|
000000c0  0d 00 8c 21 4c 44 41 23  26 33 30 3a 53 54 41 26  |...!LDA#&30:STA&|
000000d0  37 31 3a 4c 44 41 23 26  38 30 3a 53 54 41 26 37  |71:LDA#&80:STA&7|
000000e0  33 0d 00 96 07 2e 6c 31  0d 00 a0 19 4c 44 41 28  |3.....l1....LDA(|
000000f0  26 37 32 29 2c 59 3a 53  54 41 28 26 37 30 29 2c  |&72),Y:STA(&70),|
00000100  59 0d 00 aa 0d 49 4e 59  3a 42 4e 45 6c 31 0d 00  |Y....INY:BNEl1..|
00000110  b4 11 49 4e 43 26 37 31  3a 49 4e 43 26 37 33 0d  |..INC&71:INC&73.|
00000120  00 be 16 4c 44 41 26 37  33 3a 43 4d 50 23 26 38  |...LDA&73:CMP#&8|
00000130  30 2b 4c 2a 34 0d 00 c8  09 42 4e 45 6c 31 0d 00  |0+L*4....BNEl1..|
00000140  d2 0a 4c 44 41 26 37 46  0d 00 dc 0c 53 54 41 26  |..LDA&7F....STA&|
00000150  46 45 33 30 0d 00 e6 07  52 54 53 0d 00 f0 05 5d  |FE30....RTS....]|
00000160  0d 00 fa 09 d6 26 43 30  30 0d 01 04 0b 2a 4f 50  |.....&C00....*OP|
00000170  54 31 2c 32 0d 01 0e 36  24 26 43 38 30 3d 22 53  |T1,2...6$&C80="S|
00000180  41 56 45 20 22 2b 46 24  2b 22 20 33 30 30 30 20  |AVE "+F$+" 3000 |
00000190  2b 22 2b c3 7e 28 4c 2a  31 30 32 34 29 2b 22 20  |+"+.~(L*1024)+" |
000001a0  38 30 30 30 20 38 30 30  30 22 0d 01 18 17 58 25  |8000 8000"....X%|
000001b0  3d 31 32 38 3a 59 25 3d  31 32 3a d6 26 46 46 46  |=128:Y%=12:.&FFF|
000001c0  37 0d 01 22 05 e0 0d 01  2c 08 dd f2 6d 63 0d 01  |7.."....,...mc..|
000001d0  36 0d e3 41 25 3d 30 b8  32 88 32 0d 01 40 0b 50  |6..A%=0.2.2..@.P|
000001e0  25 3d 26 43 30 30 0d 01  4a 05 5b 0d 01 54 0a 4f  |%=&C00..J.[..T.O|
000001f0  50 54 20 41 25 0d 01 5e  11 4c 44 41 26 46 34 3a  |PT A%..^.LDA&F4:|
00000200  53 54 41 26 37 30 0d 01  68 0a 4c 44 58 23 31 32  |STA&70..h.LDX#12|
00000210  0d 01 72 07 2e 6c 32 0d  01 7c 13 53 54 58 26 46  |..r..l2..|.STX&F|
00000220  45 33 30 3a 53 54 58 26  46 34 0d 01 86 0a 4a 53  |E30:STX&F4....JS|
00000230  52 64 65 63 0d 01 90 13  4c 44 41 23 33 32 3a 4a  |Rdec....LDA#32:J|
00000240  53 52 26 46 46 45 45 0d  01 9a 0b 4c 44 59 23 32  |SR&FFEE....LDY#2|
00000250  35 35 0d 01 a4 0b 2e 6c  31 20 69 6e 79 0d 01 ae  |55.....l1 iny...|
00000260  17 4c 44 41 26 38 30 30  39 2c 59 3a 4a 53 52 26  |.LDA&8009,Y:JSR&|
00000270  46 46 45 45 0d 01 b8 0f  43 4d 50 23 30 3a 42 4e  |FFEE....CMP#0:BN|
00000280  45 6c 31 0d 01 c2 0c 4a  53 52 26 46 46 45 37 0d  |El1....JSR&FFE7.|
00000290  01 cc 07 49 4e 58 0d 01  d6 10 43 50 58 23 31 36  |...INX....CPX#16|
000002a0  3a 42 4e 45 6c 32 0d 01  e0 1a 4c 44 41 26 37 30  |:BNEl2....LDA&70|
000002b0  3a 53 54 41 26 46 45 33  30 3a 53 54 41 26 46 34  |:STA&FE30:STA&F4|
000002c0  0d 01 ea 07 52 54 53 0d  01 f4 08 2e 64 65 63 0d  |....RTS.....dec.|
000002d0  01 fe 07 54 58 41 0d 02  08 10 43 4d 50 23 31 30  |...TXA....CMP#10|
000002e0  3a 42 43 43 64 31 0d 02  12 07 50 48 41 0d 02 1c  |:BCCd1....PHA...|
000002f0  13 4c 44 41 23 34 39 3a  4a 53 52 26 46 46 45 45  |.LDA#49:JSR&FFEE|
00000300  0d 02 26 07 50 4c 41 0d  02 30 0e 53 45 43 3a 53  |..&.PLA..0.SEC:S|
00000310  42 43 23 31 30 0d 02 3a  07 2e 64 31 0d 02 44 17  |BC#10..:..d1..D.|
00000320  43 4c 43 3a 41 44 43 23  34 38 3a 4a 4d 50 26 46  |CLC:ADC#48:JMP&F|
00000330  46 45 45 0d 02 4e 05 5d  0d 02 58 05 ed 0d 02 62  |FEE..N.]..X....b|
00000340  05 db 0d 02 6c 09 d6 26  43 30 30 0d 02 76 05 e1  |....l..&C00..v..|
00000350  0d ff                                             |..|
00000352