Trailing-Edge
-
PDP-10 Archives
-
BB-KL11J-BM_1990
-
galsrc/d60jsy.mac
There are 66 other files named d60jsy.mac in the archive. Click here to see a list.
LOCALS: ; This label must be first in local
; data base area.
POLEST:: 0 ; estimated optimal time for next poll
HNDLST:: 0 ; local handle list
HNDSTS:: BLOCK 1 ;[311] Handle status word (H$STS)
ENQBLK: XWD 1,5 ; 1 lock,,length of block is 5
XWD 0,0 ; PSI chn 0,, ID
TOPS10 <BYTE (2)1(16)0(18)-2> ; No PSI or level and exclusive access
TOPS20 <EXP EN%BLN+EN%LTL+<0,,-3>> ; long term data base,, Operator only
POINT 7,0 ; Pointer to string of resource name
XWD 0,0 ; 1 resource,, number of accesses
QD60BF: ASCIZ \DN60-P00\ ; Same name as used by D60SPD and
; D60SPL so that if they run at the
; same time somehow we won't die.
TOPS20 <
FEJFN: 0 ; JFN of the front end device FEn:
LSTDTE: 0 ; Last DTE that was selected
RCVHDR:: BLOCK 2 ; Receive header
XMTHDR:: BLOCK D6HWSZ ; Transmit header
XMSG: BLOCK ^o274/4+1 ; DDCMP Q flush buffer
RETRY: BLOCK 1 ; BOOT retry counter
PUTARG: ; TOPS-20 version 5 BOOT arg bloc
BTARG: BLOCK BT6SIZ ; BOOT JSYS argument block
RDSAVE: BLOCK 1 ; Save area for RD2020 arguments
RDSLEN: BLOCK 1 ; including the length
PROARG: BLOCK 2 ; arg block for .BTSTS
SONFD: 6,,0 ; Max words in file name
BLOCK 5 ; Buffer for file descriptor
>
STSBUF::BLOCK <STSMAX+3>/4 ; Status buffer for port,line or device
; status strings (8 bit bytes).
SONOPB: ; open block for signon device
.OPSGN,,0 ; dev,,unit
0 ; port,,line - inserted
0 ; line signature - inserted
; SYSERR logging data
LPAGE: BLOCK 1 ; Address of logging page
SONBUF: BLOCK ^D80/5 ; Buffer to read RJE string into
EXP 0 ; this will be an asciz string
ENDLOC==.-1 ; end of data local to a fork
END
; Local Modes:
; Mode:Fundamental
; Comment Column:40
; Comment Begin:;
; Comment Start:;
; Word Abbrev Mode:1
; End: