|
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: »test3«
└─⟦2c55ea56f⟧ Bits:30001844 SW-save af projekt 1000, Alarm-system
└─⟦6b41451d2⟧
└─⟦this⟧ »test3«
job jaba 9 600 size 90000 time 11 0 output 200000 perm mini 100 1
(
mode list.yes
platonenv = set bs bblenv
pascal80 list.yes codelist.yes stack.512 codesize.12000 spacing.12000 ,
printpass4
finis
scope project bminiexcept
finis
)
process printexcept;
type
routine_ident = record
routine_name : alfa;
descriptor_ptr : ^ integer;
end;
activation_record = record
static_link : ^ activation_record;
dynamic_link : addr;
return_point : addr;
routine_name_ptr : ^ routine_ident;
end;
function asgnpntradr ( address_to_convert : addr ) : ^ activation_record;
(* covnert dynamic link from addr to pointer *)
external;
var
lf, lf_help, gf : addr;
alf : alfa;
act_rec : activation_record;
act_rec_pointer : ^ activation_record;
begin
act_rec_pointer := asgnpntradr( lf );
act_rec := act_rec_pointer ^;
act_rec := asgnpntradr( lf )^;
gf := asgnpntradr(lf) ^ . dynamic_link;
if 'exception' = asgnpntradr( lf) ^. routine_name_ptr ^ . routine_name then ;
if asgnpntradr( lf ) ^ . routine_name_ptr ^ . routine_name = 'exception' then;
end.
▶EOF◀