/�image% 17*1024:norm%=((image% �256)+1)*256
�code% 128
�loop%=0�15
()�occupied(loop%)<>0 ��grabbit(loop%)
2�
<�
F:
Pݤoccupied(socket)
ZJA%=170:X%=0:Y%=255:R%=�&FFF4:� Read pointer to start of ROM info table
dX%=(R% � &FF00)�&100
nY%=(R% � &FF0000)�&10000
x=?((256*Y%)+X%+socket)
�:
���grabbit(socket)
�3�"ROM in socket ";socket;" is "�romname(socket)
�G�"Save this one to disk (Y/N)?":�:key%=� �&DF:�key%=�"Y" �key%=�"N"
��key%=�"N" ��
�
� X=0�2�2
�P%=code%
�	[OPTX
�SEI
�LDA&F4:PHA
�LDX#socket:STX&FE30
�LDA#0:STA&FF30,X
�	.loop

LDA&8000


.store

STAnorm%

"6INCloop+1:INCstore+1:BNEcheck:INCloop+2:INCstore+2

,
.check

6LDAloop+2:CMP#&C0:BNEloop

@PLA:STA&F4:STA&FE30

J
CLI:RTS:]

T�

^
�code%

h,�"SAVE ROM"+�socket+" "+�~norm%+" +4000"

r�

|:

�ݤromname(socket)

� ?&F6=&09:?&F7=&80:string$=""

��:Y%=socket:A%=(�&FFB9)�&FF

�?&F6=?&F6+1

�'�A%>31 �A%<127 �string$=string$+�A%

��A%<32 ��string$=40

�=string$

�
�

00000000  0d 00 0a 2f de 69 6d 61  67 65 25 20 31 37 2a 31  |.../.image% 17*1|
00000010  30 32 34 3a 6e 6f 72 6d  25 3d 28 28 69 6d 61 67  |024:norm%=((imag|
00000020  65 25 20 81 32 35 36 29  2b 31 29 2a 32 35 36 0d  |e% .256)+1)*256.|
00000030  00 14 0e de 63 6f 64 65  25 20 31 32 38 0d 00 1e  |....code% 128...|
00000040  0f e3 6c 6f 6f 70 25 3d  30 b8 31 35 0d 00 28 29  |..loop%=0.15..()|
00000050  e7 a4 6f 63 63 75 70 69  65 64 28 6c 6f 6f 70 25  |..occupied(loop%|
00000060  29 3c 3e 30 20 8c f2 67  72 61 62 62 69 74 28 6c  |)<>0 ..grabbit(l|
00000070  6f 6f 70 25 29 0d 00 32  05 ed 0d 00 3c 05 e0 0d  |oop%)..2....<...|
00000080  00 46 05 3a 0d 00 50 16  dd a4 6f 63 63 75 70 69  |.F.:..P...occupi|
00000090  65 64 28 73 6f 63 6b 65  74 29 0d 00 5a 4a 41 25  |ed(socket)..ZJA%|
000000a0  3d 31 37 30 3a 58 25 3d  30 3a 59 25 3d 32 35 35  |=170:X%=0:Y%=255|
000000b0  3a 52 25 3d ba 26 46 46  46 34 3a f4 20 52 65 61  |:R%=.&FFF4:. Rea|
000000c0  64 20 70 6f 69 6e 74 65  72 20 74 6f 20 73 74 61  |d pointer to sta|
000000d0  72 74 20 6f 66 20 52 4f  4d 20 69 6e 66 6f 20 74  |rt of ROM info t|
000000e0  61 62 6c 65 0d 00 64 18  58 25 3d 28 52 25 20 80  |able..d.X%=(R% .|
000000f0  20 26 46 46 30 30 29 81  26 31 30 30 0d 00 6e 1c  | &FF00).&100..n.|
00000100  59 25 3d 28 52 25 20 80  20 26 46 46 30 30 30 30  |Y%=(R% . &FF0000|
00000110  29 81 26 31 30 30 30 30  0d 00 78 1a 3d 3f 28 28  |).&10000..x.=?((|
00000120  32 35 36 2a 59 25 29 2b  58 25 2b 73 6f 63 6b 65  |256*Y%)+X%+socke|
00000130  74 29 0d 00 82 05 3a 0d  00 8c 15 dd f2 67 72 61  |t)....:......gra|
00000140  62 62 69 74 28 73 6f 63  6b 65 74 29 0d 00 96 33  |bbit(socket)...3|
00000150  f1 22 52 4f 4d 20 69 6e  20 73 6f 63 6b 65 74 20  |."ROM in socket |
00000160  22 3b 73 6f 63 6b 65 74  3b 22 20 69 73 20 22 a4  |";socket;" is ".|
00000170  72 6f 6d 6e 61 6d 65 28  73 6f 63 6b 65 74 29 0d  |romname(socket).|
00000180  00 a0 47 f1 22 53 61 76  65 20 74 68 69 73 20 6f  |..G."Save this o|
00000190  6e 65 20 74 6f 20 64 69  73 6b 20 28 59 2f 4e 29  |ne to disk (Y/N)|
000001a0  3f 22 3a f5 3a 6b 65 79  25 3d a5 20 80 26 44 46  |?":.:key%=. .&DF|
000001b0  3a fd 6b 65 79 25 3d 97  22 59 22 20 84 6b 65 79  |:.key%=."Y" .key|
000001c0  25 3d 97 22 4e 22 0d 00  aa 11 e7 6b 65 79 25 3d  |%=."N".....key%=|
000001d0  97 22 4e 22 20 8c e1 0d  00 b4 0d e3 20 58 3d 30  |."N" ....... X=0|
000001e0  b8 32 88 32 0d 00 be 0c  50 25 3d 63 6f 64 65 25  |.2.2....P%=code%|
000001f0  0d 00 c8 09 5b 4f 50 54  58 0d 00 d2 07 53 45 49  |....[OPTX....SEI|
00000200  0d 00 dc 0e 4c 44 41 26  46 34 3a 50 48 41 0d 00  |....LDA&F4:PHA..|
00000210  e6 17 4c 44 58 23 73 6f  63 6b 65 74 3a 53 54 58  |..LDX#socket:STX|
00000220  26 46 45 33 30 0d 00 f0  14 4c 44 41 23 30 3a 53  |&FE30....LDA#0:S|
00000230  54 41 26 46 46 33 30 2c  58 0d 00 fa 09 2e 6c 6f  |TA&FF30,X.....lo|
00000240  6f 70 0d 01 04 0c 4c 44  41 26 38 30 30 30 0d 01  |op....LDA&8000..|
00000250  0e 0a 2e 73 74 6f 72 65  0d 01 18 0c 53 54 41 6e  |...store....STAn|
00000260  6f 72 6d 25 0d 01 22 36  49 4e 43 6c 6f 6f 70 2b  |orm%.."6INCloop+|
00000270  31 3a 49 4e 43 73 74 6f  72 65 2b 31 3a 42 4e 45  |1:INCstore+1:BNE|
00000280  63 68 65 63 6b 3a 49 4e  43 6c 6f 6f 70 2b 32 3a  |check:INCloop+2:|
00000290  49 4e 43 73 74 6f 72 65  2b 32 0d 01 2c 0a 2e 63  |INCstore+2..,..c|
000002a0  68 65 63 6b 0d 01 36 1d  4c 44 41 6c 6f 6f 70 2b  |heck..6.LDAloop+|
000002b0  32 3a 43 4d 50 23 26 43  30 3a 42 4e 45 6c 6f 6f  |2:CMP#&C0:BNEloo|
000002c0  70 0d 01 40 17 50 4c 41  3a 53 54 41 26 46 34 3a  |p..@.PLA:STA&F4:|
000002d0  53 54 41 26 46 45 33 30  0d 01 4a 0d 43 4c 49 3a  |STA&FE30..J.CLI:|
000002e0  52 54 53 3a 5d 0d 01 54  05 ed 0d 01 5e 0a d6 63  |RTS:]..T....^..c|
000002f0  6f 64 65 25 0d 01 68 2c  ff 22 53 41 56 45 20 52  |ode%..h,."SAVE R|
00000300  4f 4d 22 2b c3 73 6f 63  6b 65 74 2b 22 20 22 2b  |OM"+.socket+" "+|
00000310  c3 7e 6e 6f 72 6d 25 2b  22 20 2b 34 30 30 30 22  |.~norm%+" +4000"|
00000320  0d 01 72 05 e1 0d 01 7c  05 3a 0d 01 86 15 dd a4  |..r....|.:......|
00000330  72 6f 6d 6e 61 6d 65 28  73 6f 63 6b 65 74 29 0d  |romname(socket).|
00000340  01 90 20 3f 26 46 36 3d  26 30 39 3a 3f 26 46 37  |.. ?&F6=&09:?&F7|
00000350  3d 26 38 30 3a 73 74 72  69 6e 67 24 3d 22 22 0d  |=&80:string$="".|
00000360  01 9a 1f f5 3a 59 25 3d  73 6f 63 6b 65 74 3a 41  |....:Y%=socket:A|
00000370  25 3d 28 ba 26 46 46 42  39 29 80 26 46 46 0d 01  |%=(.&FFB9).&FF..|
00000380  a4 0f 3f 26 46 36 3d 3f  26 46 36 2b 31 0d 01 ae  |..?&F6=?&F6+1...|
00000390  27 e7 41 25 3e 33 31 20  80 41 25 3c 31 32 37 20  |'.A%>31 .A%<127 |
000003a0  8c 73 74 72 69 6e 67 24  3d 73 74 72 69 6e 67 24  |.string$=string$|
000003b0  2b bd 41 25 0d 01 b8 17  fd 41 25 3c 33 32 20 84  |+.A%.....A%<32 .|
000003c0  a9 73 74 72 69 6e 67 24  3d 34 30 0d 01 c2 0c 3d  |.string$=40....=|
000003d0  73 74 72 69 6e 67 24 0d  01 cc 04 0d ff           |string$......|
000003dd