!
! Defines "universal data" for the IMP library.
!
%external %integer          Stopper    %alias "3L___stopper"  = 0
%external %integer          Io Level   %alias "3L___io_level" =  0
%external %record(*) %name  In  SCB    %alias "3L___cur_in"   == 0
%external %record(*) %name  Out SCB    %alias "3L___cur_out"  == 0
%external %byte             Int Flag   %alias "3L___int_flag" =  0
%external %string(255)      Prompt Str %alias "3L___prompt_string" = "Data:"

%const %integer Max Cached = 128,          {bytes in largest cached object}
                Max Index  = Max Cached//4 {everything is longword-aligned}

%record %format Heap Cache Fm ( %record(*) %name %array C ( 0: Max Index ) )

%external %record(Heap Cache Fm) Heap Cache %alias "3L___heap_cache" = 0