DataMuseum.dk

top - metrics - download

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

└─⟦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

;       transla_tx            * page 1   27 09 77, 10.04;  

;  transla
;  *******

if listing.yes
char 10 12 10

transla = set 1 disc

transla = algol

external long procedure transla;  
_______________________________
comment

The value of the long procedure transla is the date and time
of compilation of the calling algol program.

The value zero is returned if no date can bee found, 
othervise the GI-standard format date*10000+time is used.

gi no 74009, Willy Weng, October 1976.

;  

begin
  integer segm, addr, i;  
  integer array field word;  
  real array name(1:2);  
  zone z(128, 1, stderror);  

  transla:= 0;  
  word:= 0;  
  system(2)program_name:(i, name);  
  i:= 1;  
  open(z, 4, string name(increase(i)), 0);  
  inrec_6(z, 4*128);  

  if z.word(1) = 4 then
  begin
    comment search for mark;  
    for i:= 2 step 1 until 253 do
    if ((z.word(i) = 0) and
    _   (z.word(i+1) = -8388608) and
    _   (z.word(i+2) = 511)) then
    begin
      comment mark found;  
      segm:= z.word(i+3) shift (-12);  
      addr:=(z.word(i+3) extract 12)/2;  
      setposition(z, 0, segm);  
      inrec_6(z, 4*128);  
      transla:= extend z.word(addr-1) * 10000 + z.word(addr)//100;  
      i:= 253 <* stop search loop *>;  
    end;  
  end;  
  close(z, true);  
end transla;  

end

if warning.yes
(mode 0.yes
message transla not ok
lookup transla)
▶EOF◀