|
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: 1536 (0x600)
Types: TextFile
Names: »retsave13tx «
└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
└─⟦75ff9bef3⟧
└─⟦this⟧ »retsave13tx «
mode list.yes
save134tx=edit save133tx
; parameter array til system med lower bound = 0
; connect output : segm < 2 + 0
l./page ... 36/, l./message stack current output/, l-1, r/81.12.07/88.09.08/
l./result := 2;/, r/2/1 shift 2/, r/1<1/1<2/, r/preferably on drum/temporary/
l./message prepare cat scan page 2/, l-1, r/82.12.28/89.01.17/
l./integer field/, l1, i/
integer array field iaf;
/, p-1
l./result :=/, i/
iaf := -2;
/, p1
l./system (5 )/, r/proc_descr)/proc_descr.iaf)/
l./message skip entry page 1;/, l-1, r/83.02.09/88.09.02/
l./<:covered by a better entry/,
r/covered by a better entry/area process inaccessible/
l./errorbits := 2/, d, i/
if result extract 12 < 4 then
errorbits := 2; <*warning.yes, ok.yes*>
/, p-2
f
end
▶EOF◀