Trailing-Edge
-
PDP-10 Archives
-
decuslib10-01
-
43,50150/devtb.sno
There are 2 other files named devtb.sno in the archive. Click here to see a list.
* THE FOLLOWING ARE THE DEVICE DEFINITIONS AS USED BY SNOBOL
*
DEVTB = TABLE(40)
DEVTB<'DSK'> = 1
DEVTB<'TTY'> = 2
DEVTB<'PTR'> = 3
DEVTB<'PTP'> = 4
DEVTB<'DSK10'> = 5
DEVTB<'DSK11'> = 6
DEVTB<'CDP'> = 7
DEVTB<'CDR'> = 8
DEVTB<'LPT'> = 9
DEVTB<'DTA0'> = 10
DEVTB<'DTA1'> = 11
DEVTB<'DTA2'> = 12
DEVTB<'DTA3'> = 13
DEVTB<'DTA4'> = 14
DEVTB<'DTA5'> = 15
DEVTB<'DTA6'> = 16
DEVTB<'DTA7'> = 17
DEVTB<'PLT'> = 18
DEVTB<'FORTR'> = 19
DEVTB<'DSK0'> = 20
DEVTB<'DSK1'> = 21
DEVTB<'DSK2'> = 22
DEVTB<'DSK3'> = 23
DEVTB<'DSK4'> = 24
DEVTB<'DSK5'> = 25
DEVTB<'DSK6'> = 26
DEVTB<'DSK7'> = 27
DEVTB<'DSK8'> = 28
DEVTB<'DSK9'> = 29
DEVTB<'MTA0'> = 30
DEVTB<'MTA1'> = 31
DEVTB<'MTA2'> = 32
DEVTB<'MTA3'> = 33
DEVTB<'MTA4'> = 34
DEVTB<'MTA5'> = 35
DEVTB<'MTA6'> = 36
DEVTB<'MTA7'> = 37
DEFINE('FINDEVICE(NAME)') :(FINDEND)
FINDEVICE FINDEVICE = DEVTB<NAME>
IDENT(FINDEVICE) :S(FRETURN)F(RETURN)
FINDEND