|
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: 768 (0x300)
Types: TextFile
Names: »retdstat3tx «
└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
└─⟦75ff9bef3⟧
└─⟦this⟧ »retdstat3tx «
mode list.yes
discstat4tx=edit discstat3tx
; connect output : segm < 2 + key
;
l./procedure stack_current_output (file_name);/,
l./result := 2; <*1<1 <=> 1 segment, preferably disc*>/, r/2/1 shift 2/,
r/preferably disc/temporary/, r/1<1/1<2/
l./page 9 *>/,
l./begin <*find physical disc/,
l./integer array discdescr, main (0:14);/, l3, i/
integer array field iaf;
iaf := -2;
/, p-4
l./system/, r/discdescr)/discdescr.iaf)/
l1, l./system/, r/main)/main.iaf)/
l./begin <*block for nametable/,
l./integer array nametable (0 : maxd/, l2, i/
integer array field iaf;
iaf := -2;
/, p-4
l./system/, r/nametable)/nametable.iaf)/
l1, l./system/, r/discdescr)/discdescr.iaf)/
f
end
▶EOF◀