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

⟦d27c4b040⟧ TextFile

    Length: 1536 (0x600)
    Types: TextFile
    Names: »comaug3«

Derivation

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

TextFile

job btj 1 600 area 10 perm disc 1000 3 prio 1 pres no size 130000 time 800

mode list.yes
claim
head cpu

; make the editings
i eheadpass3
if ok.no
 finis
i eprocpass3
if ok.no
 finis
i emainpass3
if ok.no
 finis

head cpu

(i pass1codes
p3head = edit nheadpass3
end)

(i pass3codes
p3head = edit p3head
end)

(i pass3errors
p3head = edit p3head
end)

;p3head = edit p3head
;g b/=packed record/= (* packed *) record/,
;f
head cpu

pass3txt = copy p3head nprocpass3 nmainpass3
if ok.no
finis

except = set 0
(i pass3txt
augment
end)

scope user inter2
pass3txt = move inter
scope user pass3txt

head cpu

if ok.no
(
pass3list = indent pass3txt mark lc
head cpu
pass3xref = cross pass3list
head cpu
convert pass3xref
)
platonpass3 = set 200 disc
scope user platonpass3
platonpass3 = pascal pass3txt survey.yes codesize.6000
head cpu

finis
▶EOF◀