Home » CEEFAX disks » telesoftware3.adl » 06_11_87/NEWCOM
06_11_87/NEWCOM
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » CEEFAX disks » telesoftware3.adl |
| Filename: | 06_11_87/NEWCOM |
| Read OK: | ✔ |
| File size: | 05E6 bytes |
| Load address: | 1900 |
| Exec address: | 8023 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- CEEFAX disks » telesoftware3.adl » 06_11_87/NEWCOM
- CEEFAX disks » telesoftware8.adl » 22-07-88/NEWCOM
File contents
10REM: NEWCOM
20MODE7
30HIMEM=&3C00
40DIM save 50
50diff=&8000-HIMEM
60comvec=&F2
70gsread=&FFC5
80osword=&FFF1
90oscli=&FFF7
100FOR pass = 0 TO 2 STEP 2
110P%=HIMEM
120[OPT pass
130BRK
140BRK
150BRK
160JMP service+diff
170OPT FNequb(&82)
180OPT FNequb((copyright+diff) MOD 256)
190BRK
200.title
210OPT FNequs("ZAP")
220.copyright
230BRK
240OPT FNequs("(C) Gordon Horsington 1987")
250BRK
260.service
270CMP #4
280BEQ newstarcom
290RTS
300.newstarcom
310PHA
320TXA
330PHA
340TYA
350PHA
360LDX #&FF
370.comloop
380INX
390LDA title+diff,X
400BEQ found
410LDA (comvec),Y
420INY
430CMP #ASC(".")
440BEQ found
450AND #&DF
460CMP title+diff,X
470BEQ comloop
480PLA
490TAY
500PLA
510TAX
520PLA
530RTS
540.found
550LDA #8
560LDX #((envelope+diff) MOD 256)
570LDY #((envelope+diff) DIV 256)
580JSR osword
590LDA #7
600LDX #((sound+diff) MOD 256)
610LDY #((sound+diff) DIV 256)
620JSR osword
630PLA
640PLA
650PLA
660LDA #0
670RTS
680.envelope
690OPT FNequd(&7FFC0101)
700OPT FNequd(&8D65830A)
710OPT FNequd(&8100FF7F)
720OPT FNequw(&7E7E)
730.sound
740OPT FNequd(&00010011)
750OPT FNequd(&00640000)
760.lastbyte
770]
780NEXT
790INPUT'"Save filename = "filename$
800IF filename$="" END
810$save="SAVE "+filename$+" "+STR$~(HIMEM)+" "+STR$~(lastbyte)+" FFFF8000 FFFF8000"
820X%=save MOD 256
830Y%=save DIV 256
840*OPT1,2
850CALL oscli
860*OPT1,0
870END
880DEFFNequb(byte)
890?P%=byte
900P%=P%+1
910=pass
920DEFFNequw(word)
930?P%=word MOD 256
940P%?1=word DIV 256
950P%=P%+2
960=pass
970DEFFNequd(double)
980!P%=double
990P%=P%+4
1000=pass
1010DEFFNequs(string$)
1020$P%=string$
1030P%=P%+LEN(string$)
1040=pass
�: 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
X LDX #((sound+diff) � 256)
b LDY #((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 
06_11_87/NEWCOM.m0
06_11_87/NEWCOM.m1
06_11_87/NEWCOM.m2
06_11_87/NEWCOM.m4
06_11_87/NEWCOM.m5
.