�: INTLACE
�7
�=&3C00
(
� save 50
2diff=&8000-�
<osbyte=&FFF4
Foscli=&FFF7
P� pass = 0 � 2 � 2
ZP%=�
d
[OPT pass
nBRK
xBRK
�BRK
�JMP service+diff
�OPT �equb(&82)
�%OPT �equb((copyright+diff) � 256)
�BRK
�OPT �equs("INTERLACE")
�.copyright
�BRK
�+OPT �equs("(C) Gordon Horsington 1987")
�BRK
�.service
�CMP #&FE
�BEQ autoboot

RTS


.autoboot

PHA

"TXA

,PHA

6TYA

@PHA

JLDA #&90

TLDX #&FF

^
LDY #1

hJSR osbyte \ *TV255,1

rPLA

|TAY

�PLA

�TAX

�PLA

�RTS

�
.lastbyte

�]

��

�!�'"Save filename = "filename$

�� filename$="" �

�K$save="SAVE "+filename$+" "+�~(�)+" "+�~(lastbyte)+" FFFF8000 FFFF8000"

�X%=save � 256

�Y%=save � 256

�*OPT1,2
� oscli
*OPT1,0
�
&ݤequb(byte)
0?P%=byte
:P%=P%+1
D	=pass
Nݤequw(word)
X?P%=word � 256
bP%?1=word � 256
lP%=P%+2
v	=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 49  4e 54 4c 41 43 45 0d 00  |.....: INTLACE..|
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 10  |diff=&8000-...<.|
00000040  6f 73 62 79 74 65 3d 26  46 46 46 34 0d 00 46 0f  |osbyte=&FFF4..F.|
00000050  6f 73 63 6c 69 3d 26 46  46 46 37 0d 00 50 16 e3  |oscli=&FFF7..P..|
00000060  20 70 61 73 73 20 3d 20  30 20 b8 20 32 20 88 20  | pass = 0 . 2 . |
00000070  32 0d 00 5a 08 50 25 3d  93 0d 00 64 0d 5b 4f 50  |2..Z.P%=...d.[OP|
00000080  54 20 70 61 73 73 0d 00  6e 07 42 52 4b 0d 00 78  |T pass..n.BRK..x|
00000090  07 42 52 4b 0d 00 82 07  42 52 4b 0d 00 8c 14 4a  |.BRK....BRK....J|
000000a0  4d 50 20 73 65 72 76 69  63 65 2b 64 69 66 66 0d  |MP service+diff.|
000000b0  00 96 12 4f 50 54 20 a4  65 71 75 62 28 26 38 32  |...OPT .equb(&82|
000000c0  29 0d 00 a0 25 4f 50 54  20 a4 65 71 75 62 28 28  |)...%OPT .equb((|
000000d0  63 6f 70 79 72 69 67 68  74 2b 64 69 66 66 29 20  |copyright+diff) |
000000e0  83 20 32 35 36 29 0d 00  aa 07 42 52 4b 0d 00 b4  |. 256)....BRK...|
000000f0  1a 4f 50 54 20 a4 65 71  75 73 28 22 49 4e 54 45  |.OPT .equs("INTE|
00000100  52 4c 41 43 45 22 29 0d  00 be 0e 2e 63 6f 70 79  |RLACE").....copy|
00000110  72 69 67 68 74 0d 00 c8  07 42 52 4b 0d 00 d2 2b  |right....BRK...+|
00000120  4f 50 54 20 a4 65 71 75  73 28 22 28 43 29 20 47  |OPT .equs("(C) G|
00000130  6f 72 64 6f 6e 20 48 6f  72 73 69 6e 67 74 6f 6e  |ordon Horsington|
00000140  20 31 39 38 37 22 29 0d  00 dc 07 42 52 4b 0d 00  | 1987")....BRK..|
00000150  e6 0c 2e 73 65 72 76 69  63 65 0d 00 f0 0c 43 4d  |...service....CM|
00000160  50 20 23 26 46 45 0d 00  fa 10 42 45 51 20 61 75  |P #&FE....BEQ au|
00000170  74 6f 62 6f 6f 74 0d 01  04 07 52 54 53 0d 01 0e  |toboot....RTS...|
00000180  0d 2e 61 75 74 6f 62 6f  6f 74 0d 01 18 07 50 48  |..autoboot....PH|
00000190  41 0d 01 22 07 54 58 41  0d 01 2c 07 50 48 41 0d  |A..".TXA..,.PHA.|
000001a0  01 36 07 54 59 41 0d 01  40 07 50 48 41 0d 01 4a  |.6.TYA..@.PHA..J|
000001b0  0c 4c 44 41 20 23 26 39  30 0d 01 54 0c 4c 44 58  |.LDA #&90..T.LDX|
000001c0  20 23 26 46 46 0d 01 5e  0a 4c 44 59 20 23 31 0d  | #&FF..^.LDY #1.|
000001d0  01 68 19 4a 53 52 20 6f  73 62 79 74 65 20 5c 20  |.h.JSR osbyte \ |
000001e0  2a 54 56 32 35 35 2c 31  0d 01 72 07 50 4c 41 0d  |*TV255,1..r.PLA.|
000001f0  01 7c 07 54 41 59 0d 01  86 07 50 4c 41 0d 01 90  |.|.TAY....PLA...|
00000200  07 54 41 58 0d 01 9a 07  50 4c 41 0d 01 a4 07 52  |.TAX....PLA....R|
00000210  54 53 0d 01 ae 0d 2e 6c  61 73 74 62 79 74 65 0d  |TS.....lastbyte.|
00000220  01 b8 05 5d 0d 01 c2 05  ed 0d 01 cc 21 e8 27 22  |...]........!.'"|
00000230  53 61 76 65 20 66 69 6c  65 6e 61 6d 65 20 3d 20  |Save filename = |
00000240  22 66 69 6c 65 6e 61 6d  65 24 0d 01 d6 14 e7 20  |"filename$..... |
00000250  66 69 6c 65 6e 61 6d 65  24 3d 22 22 20 e0 0d 01  |filename$="" ...|
00000260  e0 4b 24 73 61 76 65 3d  22 53 41 56 45 20 22 2b  |.K$save="SAVE "+|
00000270  66 69 6c 65 6e 61 6d 65  24 2b 22 20 22 2b c3 7e  |filename$+" "+.~|
00000280  28 93 29 2b 22 20 22 2b  c3 7e 28 6c 61 73 74 62  |(.)+" "+.~(lastb|
00000290  79 74 65 29 2b 22 20 46  46 46 46 38 30 30 30 20  |yte)+" FFFF8000 |
000002a0  46 46 46 46 38 30 30 30  22 0d 01 ea 11 58 25 3d  |FFFF8000"....X%=|
000002b0  73 61 76 65 20 83 20 32  35 36 0d 01 f4 11 59 25  |save . 256....Y%|
000002c0  3d 73 61 76 65 20 81 20  32 35 36 0d 01 fe 0b 2a  |=save . 256....*|
000002d0  4f 50 54 31 2c 32 0d 02  08 0b d6 20 6f 73 63 6c  |OPT1,2..... oscl|
000002e0  69 0d 02 12 0b 2a 4f 50  54 31 2c 30 0d 02 1c 05  |i....*OPT1,0....|
000002f0  e0 0d 02 26 10 dd a4 65  71 75 62 28 62 79 74 65  |...&...equb(byte|
00000300  29 0d 02 30 0c 3f 50 25  3d 62 79 74 65 0d 02 3a  |)..0.?P%=byte..:|
00000310  0b 50 25 3d 50 25 2b 31  0d 02 44 09 3d 70 61 73  |.P%=P%+1..D.=pas|
00000320  73 0d 02 4e 10 dd a4 65  71 75 77 28 77 6f 72 64  |s..N...equw(word|
00000330  29 0d 02 58 12 3f 50 25  3d 77 6f 72 64 20 83 20  |)..X.?P%=word . |
00000340  32 35 36 0d 02 62 13 50  25 3f 31 3d 77 6f 72 64  |256..b.P%?1=word|
00000350  20 81 20 32 35 36 0d 02  6c 0b 50 25 3d 50 25 2b  | . 256..l.P%=P%+|
00000360  32 0d 02 76 09 3d 70 61  73 73 0d 02 80 12 dd a4  |2..v.=pass......|
00000370  65 71 75 64 28 64 6f 75  62 6c 65 29 0d 02 8a 0e  |equd(double)....|
00000380  21 50 25 3d 64 6f 75 62  6c 65 0d 02 94 0b 50 25  |!P%=double....P%|
00000390  3d 50 25 2b 34 0d 02 9e  09 3d 70 61 73 73 0d 02  |=P%+4....=pass..|
000003a0  a8 13 dd a4 65 71 75 73  28 73 74 72 69 6e 67 24  |....equs(string$|
000003b0  29 0d 02 b2 0f 24 50 25  3d 73 74 72 69 6e 67 24  |)....$P%=string$|
000003c0  0d 02 bc 14 50 25 3d 50  25 2b a9 28 73 74 72 69  |....P%=P%+.(stri|
000003d0  6e 67 24 29 0d 02 c6 09  3d 70 61 73 73 0d ff     |ng$)....=pass..|
000003df