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