DataMuseum.dk

top - metrics - download

    Length: 3072 (0xc00)
    Types: TextFile
    Names: »giproctx«

└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ.  Detaljer om "HC8000" projekt.
    └─⟦0364f57e3⟧ 
        └─⟦80900d603⟧ »giprocfile« 
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
    └─⟦b2ec5d50f⟧ 
        └─⟦80900d603⟧ »giprocfile« 
            └─⟦this⟧ 

TextFile

;       gi_proc_tx            * page 1   23 06 80,  9.59;  

;  gi_proc
;  *******

if listing.yes
char 10 12 10
gi_proc = set 1
gi_proc = algol

external integer procedure gi_proc
  __________________________________
  _                (z, t, exist);  
  zone              z;  
  integer              t;  
  boolean                 exist;  

  begin

    integer  q_proc;  
    real     str;  

    gi_proc:= q_proc  := 72;  

    write(out, nl, 3, <:;  :>, q_proc, <:_procedures:>, nl, 2, 
    _     <:;  proc_name______________version:>, nl, 1);  

    for t := 1 step 1 until q_proc do
    if exist then
    begin
      str := real (case t of (
      <:attention:>, 
      <:bshlmproc:>, 
      <:check<95>fp<95>call:>, 
      <:clenshaw:>, 
      <:conv:>, 
      <:date<95>time:>, 
      <:epoch<95>1900:>, 
      <:erad:>, 
      <:fp<95>param:>, 
      <:fp<95>resfile:>, 
      <:gi<95>proc:>, 
      <:gmb1proc:>, 
      <:gmb2proc:>, 
      <:gravi<95>67:>, 
      <:ibm<95>lab:>, 
      <:indateproc:>, 
      <:invar1:>, 
      <:kb<95>on:>, 
       <:longstring:>,
      <:marc:>, 
      <:movestack:>, 
      <:  abs<95>addr:>, 
      <:  short<95>real:>, 
      <:  extend<95>real:>, 
      <:  short<95>clock:>, 
      <:  pi:>, 
      <:  exp1:>, 
      <:  mu:>, 
      <:  rg:>, 
      <:  rho:>, 
      <:  long<95>one:>, 
      <:  in<95>class:>, 
      <:  sp:>, 
      <:  nl:>, 
      <:  ff:>, 

\f



<*       gi_proc_tx            * page 2   23 06 80,  9.59
0 1 2 3 4 5 6 7 8 9 *>

      <:  em:>, 
      <:  not<95>eof:>, 
      <:  mtr:>, 
      <:  long<95>zero:>, 
      <:  pr<95>vers:>, 
      <:  tr<95>control:>, 
      <:  tr<95>status:>, 
      <:  read<95>status:>, 
      <:  work0:>, 
      <:  work1:>, 
      <:  work2:>, 
      <:  work3:>, 
      <:  t<95>char:>, 
      <:  udt:>, 
      <:movestring1:>, 
      <:nr<95>string:>, 
      <:open<95>entry:>, 
      <:parent<95>mes:>, 
      <:proc<95>transla:>, 
      <:prog<95>entry:>, 
      <:pump:>, 
      <:  movevar:>, 
      <:  movecase:>, 
      <:read<95>param:>, 
      <:r<95>t<95>geo:>, 
      <:  geo<95>t<95>r:>, 
      <:  cosh:>, 
      <:  arc:>, 
      <:swopvar:>, 
      <:table<95>256:>, 
      <:tide:>, 
      <:transla:>, 
      <:write<95>date<95>rc:>, 
      <:wr<95>date<95>time:>, 
      <:write<95>date:>, 
      <:write<95>quant:>, 
      <:write<95>status:>,
      <::>));  

      wr_date_time(z, proc_transla(string str)
      + 0*write(z, sp, 16 - write(z, nl, 1, string str, <:, :>)));  
    end;  
  end gi_proc;  

end
if ok.no
mode warning.yes
if warning.yes
(mode 0.yes
message gi_proc not ok
lookup gi_proc)
▶EOF◀