DataMuseum.dk

top - metrics - download

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

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

;       invar1_tx             * page 1   27 09 77, 10.26;  

;  invar_1
;  *******

if listing.yes
char 10 12 10

invar_1 = set 1

invar_1 = algol

external integer procedure invar_1
__________________________________
_                (z, file, block, byte_index);  

value                file, block, byte_index;  
zone              z;  
integer              file, block, byte_index;  

comment

invar_1       (return)           integer
the number og bytes left in the block for further 
calls of inrec/var-proc

z             (call and return)  zone
buffer for input, open and ready for inrec/var-proc

file          (call)             integer
the file number for records stored on magtape
used in setposition in proc body

block         (call)             integer
block or segm number for mt or bs
used in setposition in proc body

byte_index    (call)             integer
the byte number of the last byte before the
record to be input by invar1

the  procedure user setposition and inrec_6
to position the input pointer and then inputs
the record by invar;  

begin

  setposition(z, file, block);  
  inrec_6(z, byte_index);  
  invar_1 := invar(z);  

end invar_1;  

end

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