Google
 

Trailing-Edge - PDP-10 Archives - cobol12c - iotmpu.mac
There are 6 other files named iotmpu.mac in the archive. Click here to see a list.
; UPD ID= 3563 on 6/3/81 at 3:07 PM by WRIGHT                           
IFNDEF TOPS20,TOPS20==1		;GET TOPS20 DEFINITION
UNIVERSAL IOTMPU - UNIVERSAL FILE FOR IOTMP
SUBTTL	D. WRIGHT

	SEARCH	COPYRT
	SALL

;COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1981, 1985
;ALL RIGHTS RESERVED.
;
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
;ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH LICENSE.

IFE TOPS20,<
	SEARCH	UUOSYM
>
.DIREC .NOBIN	;Don't make a .REL file

;PARAMETERS
MAXIFN==77		;MAXIMUM NUMBER OF OPEN TEMP FILES

;FLAGS FOR INITIALIZE
IT%UES==1B0	;Use extended addressing (if possible)

;Flags for $ITOPO
IT%OEF==1B1	;Open external file

;if IT%OEF is on,
IT%DSK==1B2	;File is known to be a disk file
IT%TTY==1B3	;File is known to be a TTY: file
IT%NUL==1B4	;File is on NUL:

;Flags for $ITOPI
;IT%OEF again
;IT%DSK and IT%TTY again

;Flags for $ITCLS
IT%NRF==1B0	;Don't retain file for reading
IT%NRJ==1B1	;T20: Don't release JFN of external file
		;T10: Don't release channel

;Flags for $ITRNF
IT%RLS==1B0	;Release new file's channel (T10) or JFN (T20)
;INTERNAL FILE BLOCKS
IT.FLG==0	;FLAGS AND JUNK
	IT%NPB==77B5	;NUMBER OF PAGES IN BUFFER
	IT%BSZ==77B11	;BYTE SIZE
	IT%EXF==1B12	;THIS FILE IS AN EXTERNAL FILE
	IT%OPI==1B13	;THIS FILE IS OPEN FOR INPUT
	IT%OPO==1B14	;THIS FILE IS OPEN FOR OUTPUT
	IT%WRT==1B15	;File has been logically written and closed
	IT%FDS==1B16	;File is a DSK: file
	IT%FTY==1B17	;File is a TTY: file
	IT%FNL==1B18	;File is on device NUL:
  IT%NPU==77B35	;Number of pages in use in buffer
IT.CBP==1	;Current BP to buffer
IT.SBP==3	;Starting B.P.
IT.CCT==5	;CHARACTER COUNT (# CHARS LEFT IN BUFFER)
IT.TCT==6	;Total character count (Max # chars in a buffer)
IT.MEM==7	;Memory usage, LH= number pages used (TOTAL).
		;RH = max pages assigned
IT.FSZ==10	;Total file size (bytes)
IT.NPD==11	;LH= Number of pages written to disk
		;RH= Number written or read so far
		;If this word is 0, no I/O has been done
IT.GNP==12	;Byte ptr to generic name of file (used in error messages)
IFN TOPS20,<
IT.JFN==14	;JFN (0 IF NONE ASSIGNED)
IT.SIZ==15	;SIZE OF INTERNAL FILE BLOCK
>
IFE TOPS20,<
IT.FBA==14	;FILOP. ADDRESS (0 IF NONE ASSIGNED)
IT.SFB==15	;START OF FILOP. BLOCK

;.FOPPN is the last word in FILOP. block
IT.SRB==IT.SFB+.FOPPN+1	;Start of RENAME block

;.RBPRV is the last word in LOOKUP/ RENAME blocks
IT.SLB==IT.SRB+.RBPRV+1	;Start of LOOKUP/ENTER block
IT.SLP==IT.SLB+.RBPRV+1	;Start of PATH. block for LOOKUP/ENTER

;.PTMAX is the highest offset in PATH. block
IT.SPB==IT.SLP+.PTMAX+1	;Start of returned path block
IT.IBH==IT.SPB+.PTMAX+1	;Input buffer header
IT.OBH==IT.IBH+3	;Output buffer header
IT.DVC==IT.OBH+3	;Device characteristics (DEVCHR output)
IT.SIZ==IT.DVC+1	;Size of internal file block
>;END IFE TOPS20

;MEMORY MANAGEMENT ROUTINE INTERFACE

END