DataMuseum.dk

top - metrics - download

    Length: 1536 (0x600)
    Types: TextFile
    Names: »adjproctx«

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

TextFile

;       adj procedures        * page 1    5 05 78,  4.48;  

;  adj_proc
;  ********

if listing.yes
char 10 12 10

adj_proc = set 1

adj_proc = algol

external integer procedure adj_proc
___________________________________
_                (z, t, exist);  
zone              z;  
integer              t;  
boolean                 exist;  

begin
  integer     q_proc;  
  real        str;  

  adj_proc :=
  q_proc   := 15;  

  write(z, nl, 2, <:;  :>, q_proc, <:_procedures:>, nl, 1, 
  <:;  proc_name___________version:>, nl, 1);  

  for t := 1 step 1 until q_proc do
  if exist then
  begin
    str := real( case t of (
    <*  1 *> <:adj<95>proc:>, 
    <*  2 *> <:nll<95>red<95>0:>, 
    <*  3 *> <:read<95>gg<95>obs:>, 
    <*  4 *> <:init<95>read<95>gg:>, 
    <*  5 *> <:read<95>anblock:>, 
    <*  6 *> <:wr<95>anblock:>, 
    <*  7 *> <:chebychef<95>c:>, 
    <*  8 *> <:set<95>gauss<95>crv:>, 
    <*  9 *> <:gauss<95>curv:>, 
    <* 10 *> <:write<95>neq:>, 
    <* 11 *> <:nll<95>fnc:>, 
    <* 12 *> <:nll<95>oc:>, 
    <* 13 *> <:page<95>feed:>, 
    <* 14 *> <:line<95>feed:>, 
    <* 15 *> <:err<95>ell:>, 
    <*    *> <::>));  

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

end adj_proc;  

end

if warning.yes
(mode 0.yes
message adj_proc not ok
lookup adj_proc)

end
▶EOF◀