Trailing-Edge
-
PDP-10 Archives
-
BB-J845A-SM
-
source/d60hok.mac
There are 2 other files named d60hok.mac in the archive. Click here to see a list.
Define HOOK <
; Give external access to these routines
INTERNAL PRTSTS ; Port status
INTERNAL LINSTS ; Line status
INTERNAL DEVSTS ; Device status
INTERNAL LINCMD ; Line command
INTERNAL DEVCMD ; Device command
INTERNAL ALCHAN ; Allocate a handle
INTERNAL RLSHAN ; Release a handle
INTERNAL INIDMY ; Initialize a dummy handle
INTERNAL SWAPB ; Swap bytes in a 16 bit word
; Give access to these cells
INTERNAL STSBUF ; Status return block
; Set flag indicating that HOOKing has been done
XP EXTHK, -1
> ;End HOOK definition