|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 2304 (0x900)
Types: TextFile
Names: »tpasc80gen«
└─⟦2c55ea56f⟧ Bits:30001844 SW-save af projekt 1000, Alarm-system
└─⟦6b41451d2⟧
└─⟦this⟧ »tpasc80gen«
job save600 600 time 10 0 stat 1 size 40000 ; job to produce a magnetic tape containing all ; the texts for a pascal80 system ; 801006 jaba mode list.yes tape = set mto mt000000 0 1 finis = assign end ; texts concerning pass1 of the compiler base 10 19 platon1pasc = assign tape ( i complaton copy message.no 41 . 1 ; skip until ')' cccc = edit platon1pas i pass1codes zzz = edit cccc i xcomplaton platon1pasc = edit zzz ) nextfile tape tape = move platonenv nextfile tape tape = move platonerror nextfile tape tape = move platontable base 20 29 ;pass 3 texts nextfile tape tape = move pass3txt nextfile tape tape = move pass3errors base 50 59 ; pass 4 text nextfile tape npass4text = assign tape i editpass4 base 30 39 nextfile tape npass5pasc = assign tape i epass5 base 10 19 ; pass 6 text and environment nextfile tape (i compass6 copy message.no 41.2 tape = edit pass6pas ) nextfile tape tape = move lambdaenv nextfile tape tape = move bblenv base 40 49 nextfile tape tape = move tadam nextfile tape tape = move tboot nextfile tape tape = move tconsole nextfile tape tape = move tlinker nextfile tape tape = move toperator nextfile tape tape = move topsys base 70 79 nextfile tape tape = move allocator nextfile tape tape = move monitor nextfile tape tape = move timer nextfile tape tape = move stdroutines nextfile tape tape = move coderoutine nextfile tape tape = move insert base 10 19 nextfile tape tape = edit texcept d./finis)/, f base 20 29 nextfile tape tape = move tcrosslink base 10 19 nextfile tape tape = move tpunchprog nextfile tape tape = move basiccross nextfile tape ( i eindent copy message.no 41.1 tape = edit indentpas) nextfile tape (i ecross copy message.no 41.1 tape = edit crosspas ) lookup tape clear temp finis finis ▶EOF◀