Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-02 - decus/20-0028/devtb.300
There are 2 other files named devtb.300 in the archive. Click here to see a list.
TITLE DEVTB.  V.26    DEVICE TABLE FOR FORTRAN IV
SUBTTL	15/MAR/70 FROM V.015 1-APR-69 /VAA
; THIS VERSION MODIFIED TO WORK WITH SNOBOL
; BY L.P. WADE 8-2-70 AT SRI

ENTRY	DEVTB.,DEVND.,DEVLS.,DVTOT.
ENTRY	MTABF.,MBFBG.,TABPT.,TABP1.
ENTRY	MTACL.,DATTB.,NEG1.,NEG2.,NEG3.,NEG5.
P=17


DEVTB.:	EXP	DEVND.-.	;NO. OF ENTRIES
				;LOGICAL NO.
	SIXBIT	.DSK.		;	1	DISC
TTYPOS:	SIXBIT	.TTY.		;	2	USERS TELETYPE
	SIXBIT	.PTR.		;	3	PAPER TAPE READER
PTPPOS:	SIXBIT	.PTP.		;	4	PAPER TAPE PUNCH
	SIXBIT	.DSK10.		;	5	STANDARD 'INPUT' UNIT
	SIXBIT	.DSK11.		;	6	STANDARD 'OUTPUT' UNIT
	SIXBIT	.CDP.		;	7	CARD PUNCH
CDRPOS:	SIXBIT	.CDR.		;	8	CARD READER
LPTPOS:	SIXBIT	.LPT.		;	9	LINE PRINTER
	SIXBIT	.DTA0.		;	10
	SIXBIT	.DTA1.		;	11
	SIXBIT	.DTA2.		;	12
	SIXBIT	.DTA3.		;	13
	SIXBIT	.DTA4.		;	14
	SIXBIT	.DTA5.		;	15
	SIXBIT	.DTA6.		;	16
	SIXBIT	.DTA7.		;	17
	SIXBIT	.PLT.		;	18
	SIXBIT	.FORTR.		;	19	ASSIGNABLE DEVICE, FILE NAME FORTR.DAT
	SIXBIT	.DSK0.		;	20	DISK
	SIXBIT	.DSK1.		;	21
	SIXBIT	.DSK2.		;	22
	SIXBIT	.DSK3.		;	23
	SIXBIT	.DSK4.		;	24
	SIXBIT	.DSK5.		;	25	
	SIXBIT	.DSK6.		;	26
	SIXBIT	.DSK7.		;	27
	SIXBIT	.DSK8.		;	28
	SIXBIT	.DSK9.		;	29 V.006
	SIXBIT  .MTA0.		;	30	MAGNETIC TAPE
	SIXBIT  .MTA1.		;	31
	SIXBIT  .MTA2.		;	32
	SIXBIT  .MTA3.		;	33
	SIXBIT  .MTA4.		;	34
	SIXBIT  .MTA5.		;	35
	SIXBIT  .MTA6.		;	36
DEVLS.:
DEVND.:
	SIXBIT  .MTA7.		;	37

DVTOT.=DEVLS.-DEVTB.		; V.006 TOTAL NUMBER OF DEVICES

MTANUM=^D8			;NUMBER OF MTA UNITS
MTABF.:	BLOCK	MTANUM		;FOR MAGDEN
DATTB.:	BLOCK	77		;CONTIGUOUS TABLES REQUIRED

MBFBG.=MTABF.-1		;USED BY
TABP1.=MTABF.+MTANUM	;MTABF.
TABPT.=TABP1.-1		;ROUTINES


NEG1.=TTYPOS-DEVTB.		;+ VALUE OF TTY
NEG2.=PTPPOS-DEVTB.		;+ VALUE OF PTP
NEG3.=LPTPOS-DEVTB.		;+ VALUE OF LPT
NEG5.=CDRPOS-DEVTB.		;+ VALUE OF CDR

; ROUTINES TO "RESET" ALL DEVICE TABLES DEFINED IN DEVTB.

IFN MTANUM,<
MTACL.:	SETZM	MTABF.		;RESET
	MOVE	0,[XWD MTABF.,MTABF.+1]	;COMES HERE IF
	JRST	ENDCL		;MTANUM NOT 0
>

IFE MTANUM,<			; HERE IF
MTACL.:	JRST	NTBCL		; MTANUM=0
>

NTBCL:	SETZM	DATTB.
	MOVE	0,[XWD DATTB.,DATTB.+1]
ENDCL:	BLT	0,DATTB.+DVTOT.		;ZERO
	POPJ	P,			;THE TABLES

	END