�: NEWCOM
�7
�=&3C00
(
� save 50
2diff=&8000-�
<comvec=&F2
Fgsread=&FFC5
Posword=&FFF1
Zoscli=&FFF7
d� pass = 0 � 2 � 2
nP%=�
x
[OPT pass
�BRK
�BRK
�BRK
�JMP service+diff
�OPT �equb(&82)
�%OPT �equb((copyright+diff) � 256)
�BRK
�
.title
�OPT �equs("ZAP")
�.copyright
�BRK
�+OPT �equs("(C) Gordon Horsington 1987")
�BRK

.service


CMP #4

BEQ newstarcom

"RTS

,.newstarcom

6PHA

@TXA

JPHA

TTYA

^PHA

hLDX #&FF

r.comloop

|INX

�LDA title+diff,X

�
BEQ found

�LDA (comvec),Y

�INY

�CMP #�(".")

�
BEQ found

�
� #&DF

�CMP title+diff,X

�BEQ comloop

�PLA

�TAY

�PLA

�TAX
PLA
RTS

.found
&
LDA #8
0 LDX #((envelope+diff) � 256)
: LDY #((envelope+diff) � 256)
DJSR osword
N
LDA #7
XLDX #((sound+diff) � 256)
bLDY #((sound+diff) � 256)
lJSR osword
vPLA
�PLA
�PLA
�
LDA #0
�RTS
�
.envelope
�OPT �equd(&7FFC0101)
�OPT �equd(&8D65830A)
�OPT �equd(&8100FF7F)
�OPT �equw(&7E7E)
�
.sound
�OPT �equd(&00010011)
�OPT �equd(&00640000)
�
.lastbyte
]
�
!�'"Save filename = "filename$
 � filename$="" �
*K$save="SAVE "+filename$+" "+�~(�)+" "+�~(lastbyte)+" FFFF8000 FFFF8000"
4X%=save � 256
>Y%=save � 256
H*OPT1,2
R� oscli
\*OPT1,0
f�
pݤequb(byte)
z?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 0d f4 3a 20 4e  45 57 43 4f 4d 0d 00 14  |.....: NEWCOM...|
00000010  06 eb 37 0d 00 1e 0b d3  3d 26 33 43 30 30 0d 00  |..7.....=&3C00..|
00000020  28 0d de 20 73 61 76 65  20 35 30 0d 00 32 10 64  |(.. save 50..2.d|
00000030  69 66 66 3d 26 38 30 30  30 2d 93 0d 00 3c 0e 63  |iff=&8000-...<.c|
00000040  6f 6d 76 65 63 3d 26 46  32 0d 00 46 10 67 73 72  |omvec=&F2..F.gsr|
00000050  65 61 64 3d 26 46 46 43  35 0d 00 50 10 6f 73 77  |ead=&FFC5..P.osw|
00000060  6f 72 64 3d 26 46 46 46  31 0d 00 5a 0f 6f 73 63  |ord=&FFF1..Z.osc|
00000070  6c 69 3d 26 46 46 46 37  0d 00 64 16 e3 20 70 61  |li=&FFF7..d.. pa|
00000080  73 73 20 3d 20 30 20 b8  20 32 20 88 20 32 0d 00  |ss = 0 . 2 . 2..|
00000090  6e 08 50 25 3d 93 0d 00  78 0d 5b 4f 50 54 20 70  |n.P%=...x.[OPT p|
000000a0  61 73 73 0d 00 82 07 42  52 4b 0d 00 8c 07 42 52  |ass....BRK....BR|
000000b0  4b 0d 00 96 07 42 52 4b  0d 00 a0 14 4a 4d 50 20  |K....BRK....JMP |
000000c0  73 65 72 76 69 63 65 2b  64 69 66 66 0d 00 aa 12  |service+diff....|
000000d0  4f 50 54 20 a4 65 71 75  62 28 26 38 32 29 0d 00  |OPT .equb(&82)..|
000000e0  b4 25 4f 50 54 20 a4 65  71 75 62 28 28 63 6f 70  |.%OPT .equb((cop|
000000f0  79 72 69 67 68 74 2b 64  69 66 66 29 20 83 20 32  |yright+diff) . 2|
00000100  35 36 29 0d 00 be 07 42  52 4b 0d 00 c8 0a 2e 74  |56)....BRK.....t|
00000110  69 74 6c 65 0d 00 d2 14  4f 50 54 20 a4 65 71 75  |itle....OPT .equ|
00000120  73 28 22 5a 41 50 22 29  0d 00 dc 0e 2e 63 6f 70  |s("ZAP").....cop|
00000130  79 72 69 67 68 74 0d 00  e6 07 42 52 4b 0d 00 f0  |yright....BRK...|
00000140  2b 4f 50 54 20 a4 65 71  75 73 28 22 28 43 29 20  |+OPT .equs("(C) |
00000150  47 6f 72 64 6f 6e 20 48  6f 72 73 69 6e 67 74 6f  |Gordon Horsingto|
00000160  6e 20 31 39 38 37 22 29  0d 00 fa 07 42 52 4b 0d  |n 1987")....BRK.|
00000170  01 04 0c 2e 73 65 72 76  69 63 65 0d 01 0e 0a 43  |....service....C|
00000180  4d 50 20 23 34 0d 01 18  12 42 45 51 20 6e 65 77  |MP #4....BEQ new|
00000190  73 74 61 72 63 6f 6d 0d  01 22 07 52 54 53 0d 01  |starcom..".RTS..|
000001a0  2c 0f 2e 6e 65 77 73 74  61 72 63 6f 6d 0d 01 36  |,..newstarcom..6|
000001b0  07 50 48 41 0d 01 40 07  54 58 41 0d 01 4a 07 50  |.PHA..@.TXA..J.P|
000001c0  48 41 0d 01 54 07 54 59  41 0d 01 5e 07 50 48 41  |HA..T.TYA..^.PHA|
000001d0  0d 01 68 0c 4c 44 58 20  23 26 46 46 0d 01 72 0c  |..h.LDX #&FF..r.|
000001e0  2e 63 6f 6d 6c 6f 6f 70  0d 01 7c 07 49 4e 58 0d  |.comloop..|.INX.|
000001f0  01 86 14 4c 44 41 20 74  69 74 6c 65 2b 64 69 66  |...LDA title+dif|
00000200  66 2c 58 0d 01 90 0d 42  45 51 20 66 6f 75 6e 64  |f,X....BEQ found|
00000210  0d 01 9a 12 4c 44 41 20  28 63 6f 6d 76 65 63 29  |....LDA (comvec)|
00000220  2c 59 0d 01 a4 07 49 4e  59 0d 01 ae 0f 43 4d 50  |,Y....INY....CMP|
00000230  20 23 97 28 22 2e 22 29  0d 01 b8 0d 42 45 51 20  | #.(".")....BEQ |
00000240  66 6f 75 6e 64 0d 01 c2  0a 80 20 23 26 44 46 0d  |found..... #&DF.|
00000250  01 cc 14 43 4d 50 20 74  69 74 6c 65 2b 64 69 66  |...CMP title+dif|
00000260  66 2c 58 0d 01 d6 0f 42  45 51 20 63 6f 6d 6c 6f  |f,X....BEQ comlo|
00000270  6f 70 0d 01 e0 07 50 4c  41 0d 01 ea 07 54 41 59  |op....PLA....TAY|
00000280  0d 01 f4 07 50 4c 41 0d  01 fe 07 54 41 58 0d 02  |....PLA....TAX..|
00000290  08 07 50 4c 41 0d 02 12  07 52 54 53 0d 02 1c 0a  |..PLA....RTS....|
000002a0  2e 66 6f 75 6e 64 0d 02  26 0a 4c 44 41 20 23 38  |.found..&.LDA #8|
000002b0  0d 02 30 20 4c 44 58 20  23 28 28 65 6e 76 65 6c  |..0 LDX #((envel|
000002c0  6f 70 65 2b 64 69 66 66  29 20 83 20 32 35 36 29  |ope+diff) . 256)|
000002d0  0d 02 3a 20 4c 44 59 20  23 28 28 65 6e 76 65 6c  |..: LDY #((envel|
000002e0  6f 70 65 2b 64 69 66 66  29 20 81 20 32 35 36 29  |ope+diff) . 256)|
000002f0  0d 02 44 0e 4a 53 52 20  6f 73 77 6f 72 64 0d 02  |..D.JSR osword..|
00000300  4e 0a 4c 44 41 20 23 37  0d 02 58 1d 4c 44 58 20  |N.LDA #7..X.LDX |
00000310  23 28 28 73 6f 75 6e 64  2b 64 69 66 66 29 20 83  |#((sound+diff) .|
00000320  20 32 35 36 29 0d 02 62  1d 4c 44 59 20 23 28 28  | 256)..b.LDY #((|
00000330  73 6f 75 6e 64 2b 64 69  66 66 29 20 81 20 32 35  |sound+diff) . 25|
00000340  36 29 0d 02 6c 0e 4a 53  52 20 6f 73 77 6f 72 64  |6)..l.JSR osword|
00000350  0d 02 76 07 50 4c 41 0d  02 80 07 50 4c 41 0d 02  |..v.PLA....PLA..|
00000360  8a 07 50 4c 41 0d 02 94  0a 4c 44 41 20 23 30 0d  |..PLA....LDA #0.|
00000370  02 9e 07 52 54 53 0d 02  a8 0d 2e 65 6e 76 65 6c  |...RTS.....envel|
00000380  6f 70 65 0d 02 b2 18 4f  50 54 20 a4 65 71 75 64  |ope....OPT .equd|
00000390  28 26 37 46 46 43 30 31  30 31 29 0d 02 bc 18 4f  |(&7FFC0101)....O|
000003a0  50 54 20 a4 65 71 75 64  28 26 38 44 36 35 38 33  |PT .equd(&8D6583|
000003b0  30 41 29 0d 02 c6 18 4f  50 54 20 a4 65 71 75 64  |0A)....OPT .equd|
000003c0  28 26 38 31 30 30 46 46  37 46 29 0d 02 d0 14 4f  |(&8100FF7F)....O|
000003d0  50 54 20 a4 65 71 75 77  28 26 37 45 37 45 29 0d  |PT .equw(&7E7E).|
000003e0  02 da 0a 2e 73 6f 75 6e  64 0d 02 e4 18 4f 50 54  |....sound....OPT|
000003f0  20 a4 65 71 75 64 28 26  30 30 30 31 30 30 31 31  | .equd(&00010011|
00000400  29 0d 02 ee 18 4f 50 54  20 a4 65 71 75 64 28 26  |)....OPT .equd(&|
00000410  30 30 36 34 30 30 30 30  29 0d 02 f8 0d 2e 6c 61  |00640000).....la|
00000420  73 74 62 79 74 65 0d 03  02 05 5d 0d 03 0c 05 ed  |stbyte....].....|
00000430  0d 03 16 21 e8 27 22 53  61 76 65 20 66 69 6c 65  |...!.'"Save file|
00000440  6e 61 6d 65 20 3d 20 22  66 69 6c 65 6e 61 6d 65  |name = "filename|
00000450  24 0d 03 20 14 e7 20 66  69 6c 65 6e 61 6d 65 24  |$.. .. filename$|
00000460  3d 22 22 20 e0 0d 03 2a  4b 24 73 61 76 65 3d 22  |="" ...*K$save="|
00000470  53 41 56 45 20 22 2b 66  69 6c 65 6e 61 6d 65 24  |SAVE "+filename$|
00000480  2b 22 20 22 2b c3 7e 28  93 29 2b 22 20 22 2b c3  |+" "+.~(.)+" "+.|
00000490  7e 28 6c 61 73 74 62 79  74 65 29 2b 22 20 46 46  |~(lastbyte)+" FF|
000004a0  46 46 38 30 30 30 20 46  46 46 46 38 30 30 30 22  |FF8000 FFFF8000"|
000004b0  0d 03 34 11 58 25 3d 73  61 76 65 20 83 20 32 35  |..4.X%=save . 25|
000004c0  36 0d 03 3e 11 59 25 3d  73 61 76 65 20 81 20 32  |6..>.Y%=save . 2|
000004d0  35 36 0d 03 48 0b 2a 4f  50 54 31 2c 32 0d 03 52  |56..H.*OPT1,2..R|
000004e0  0b d6 20 6f 73 63 6c 69  0d 03 5c 0b 2a 4f 50 54  |.. oscli..\.*OPT|
000004f0  31 2c 30 0d 03 66 05 e0  0d 03 70 10 dd a4 65 71  |1,0..f....p...eq|
00000500  75 62 28 62 79 74 65 29  0d 03 7a 0c 3f 50 25 3d  |ub(byte)..z.?P%=|
00000510  62 79 74 65 0d 03 84 0b  50 25 3d 50 25 2b 31 0d  |byte....P%=P%+1.|
00000520  03 8e 09 3d 70 61 73 73  0d 03 98 10 dd a4 65 71  |...=pass......eq|
00000530  75 77 28 77 6f 72 64 29  0d 03 a2 12 3f 50 25 3d  |uw(word)....?P%=|
00000540  77 6f 72 64 20 83 20 32  35 36 0d 03 ac 13 50 25  |word . 256....P%|
00000550  3f 31 3d 77 6f 72 64 20  81 20 32 35 36 0d 03 b6  |?1=word . 256...|
00000560  0b 50 25 3d 50 25 2b 32  0d 03 c0 09 3d 70 61 73  |.P%=P%+2....=pas|
00000570  73 0d 03 ca 12 dd a4 65  71 75 64 28 64 6f 75 62  |s......equd(doub|
00000580  6c 65 29 0d 03 d4 0e 21  50 25 3d 64 6f 75 62 6c  |le)....!P%=doubl|
00000590  65 0d 03 de 0b 50 25 3d  50 25 2b 34 0d 03 e8 09  |e....P%=P%+4....|
000005a0  3d 70 61 73 73 0d 03 f2  13 dd a4 65 71 75 73 28  |=pass......equs(|
000005b0  73 74 72 69 6e 67 24 29  0d 03 fc 0f 24 50 25 3d  |string$)....$P%=|
000005c0  73 74 72 69 6e 67 24 0d  04 06 14 50 25 3d 50 25  |string$....P%=P%|
000005d0  2b a9 28 73 74 72 69 6e  67 24 29 0d 04 10 09 3d  |+.(string$)....=|
000005e0  70 61 73 73 0d ff                                 |pass..|
000005e6