|
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: »retdtell3tx «
└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
└─⟦75ff9bef3⟧
└─⟦this⟧ »retdtell3tx «
mode list.yes
disctell4tx=edit disctell3tx
; connect output : segm < 2 + key
; parameter array med lower index = 0 til system og monitor
;
l./ia (0:10);/, l1, i/
integer array field iff;
/, p-2
l./procedure stack_current_output (file_name);/,
l./result := 2; <*1<1 <=> 1 segment, preferably disc*>/,
r/2/1 shift 2/, r/1<1/1<2/, r/preferably disc/temporary/
l./ok := fundetdisc :=false;/,d, i/
æ12æ
iff := -2;
ok := fundetdisc := false;
/, p-2
l./begin <*second block*>/,
l./long array field name;/, d, i/
integer array field iff;
long array field name, laf;
/, p-3
l./name := -2/, r/-2/iff := -2/
l1, i/
laf := -4;
/, p-1
l./contents)/, r/contents)/contents.laf)/
l./main);/, r/main)/main.iff)/
l./contents)/, r/contents)/contents.laf)/
l./main);/, r/main)/main.iff)/
l./contents)/, r/contents)/contents.laf)/
l./chaintable);/, r/chaintable)/chaintable.laf)/
l./monitor(42,z,1,ia);/, r/ia)/ia.iff)/
f
end
▶EOF◀