DataMuseum.dk

Presents historical artifacts from the history of:

RC3500

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RC3500

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦ce1a2baeb⟧ TextFileVerbose

    Length: 2304 (0x900)
    Types: TextFileVerbose
    Names: »compass4«

Derivation

└─⟦2c55ea56f⟧ Bits:30001844 SW-save af projekt 1000, Alarm-system
    └─⟦6b41451d2⟧ 
        └─⟦this⟧ »compass4« 

TextFileVerbose

job erip 4 600 temp disc 2000 perm disc 500 2 size 100000 area 10 time 9 0
skip 37. , ; =1 pass4z80,  =2 platonpass4, =3 list pass4text
2

%

epout4=set 1 disc2
scope user epout4
o epout4
mode list.yes
head cpu
pass4z80=set 200 disc2
scope user pass4z80
(i editpass4
npass4text=edit pass4text
if ok.no
finis
end)
zcodes=edit pass4codes
g b/ x/ z/, f
(i zcodes
npass4text=edit npass4text
if ok.no
finis
end)
;(i pass3codes
;npass4text=edit npass4text
;if ok.no
;finis
;end)
npass4text=edit npass4text
l./versionz80 =/,   d,   i/
versionz80 = true;   (* z80 version  *)
/
f

pass4z80=pascal npass4text survey.yes codesize.2500
head cpu
o c
finis output.no


%


mode list.yes
epout4l=set 1 disc
scope user epout4l
o epout4l
mode list.yes
head cpu
platonpass4=set 200 disc
scope user platonpass4
(i editpass4
npass4text=edit pass4text
if ok.no
finis
end)
zcodes=edit pass4codes
g b/ x/ z/, f
(i zcodes
npass4text=edit npass4text
if ok.no
finis
end)
;(i pass3codes
;npass4text = edit npass4text
;if ok.no
;finis
;end)
npass4text=edit npass4text
l./versionz80 =/,   d,   i/
versionz80 = false;   (* lambda version *)
/
f

platonpass4=pascal npass4text survey.yes codesize.2500
head cpu
c = list editpass4
o c
finis output.no

%


; list pass4text

mode list.yes
head cpu
(i editpass4
npass4text=edit pass4text
if ok.no
finis
end)
zcodes=edit pass4codes
g b/ x/ z/, f
(i zcodes
npass4text=edit npass4text
if ok.no
finis
end)
pass4list=indent npass4text mark lc
xref=cross pass4list bossline.no
convert xref
head cpu
finis



«eof»