DataMuseum.dk

Presents historical artifacts from the history of:

RC4000/8000/9000

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

See our Wiki for more about RC4000/8000/9000

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦9936fca95⟧ TextFile

    Length: 768 (0x300)
    Types: TextFile
    Names: »atinitfit«

Derivation

└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
    └─⟦b2ec5d50f⟧ 
        └─⟦f3ee86806⟧ »rymac« 
            └─⟦this⟧ 

TextFile

submit
#
;ali area.7 time !2 0 lines.3000
mode list.yes
lookup rydterm
if ok.yes
o rydterm
message call m atinitfit.seq.time.list.z
lookup rydgen1
if ok.no
(rydgen1=set 200
scope day rydgen1
lkj=lookup rydgen1txt
if ok.no
extract from.cryprog rydgen1txt
rydgen1=algol rydgen1txt list.no message.no
)
lookup ryf!1dat
if ok.yes
(
scope temp ryf!1dat
clear temp ryf!1dat
)
lookup !1seqdat
if ok.no
contract from.crydat !1seqdat
rydgen1 !1seqdat list.!3,
zmin.!4 zmax.!4 fit.yes,
nmax.12,
  nsmax.25.1
scope day ryf!1dat
lookup ryf!1dat ryf!1dia ryf!1dip
mode list.no
#
▶EOF◀