|
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: »writeanswtx «
└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
└─⟦75ff9bef3⟧
└─⟦this⟧ »writeanswtx «
mode list.yes
writeanswer=algol
external
procedure writeanswer (z, str);
zone z ;
string str ;
begin
integer i, kind , cstate, dreason;
integer array ia (1:20);
getzone (z, ia);
kind := ia (1) extract 12;
if kind = 20 then
<*imc zone*>
cstate := getimcstate (z, dreason);
system (14, 0, ia);
write (out,
"nl", 2, str,
"nl", 1, <:status : :>);
if ia (1) = 0 then
write (out, << d>, ia (1))
else
for i := 0 step 1 until 23 do
if ia (1) shift i < 0 then
write (out, "sp", 1, <:bit :>, << dd >, i);
if kind = 20 then
begin <*imc zone*>
write (out,
"nl", 1, <:cstate : :>, cstate ,
"nl", 1, <:dreason : :>, dreason);
end;
end;
end
end
▶EOF◀