.MACRO QUEDF$,L,B .ASECT .=0 Q.LNK:'L' .BLKW 1 ; LINK WORD Q.UCB:'L' .BLKW 1 ; VT: UCB ADDRESS Q.JOBN:'L' .BLKW 1 ; JOB NUMBER Q.LUIC:'L' .BLKW 1 ; LOGON UIC Q.DUIC:'L' .BLKW 1 ; DIRECTORY UIC Q.MASK:'L' .BLKW 1 ; MASK WORD Q.DEVN:'L' .BLKW 1 ; DEVICE NAME Q.DEVU:'L' .BLKW 1 ; DEVICE NUMBER Q.FNAM:'L' .BLKW 3 ; FILENAME (RADIX-50) Q.FTYP:'L' .BLKW 1 ; FILETYPE (RADIX-50) Q.FVER:'L' .BLKW 1 ; VERSION NUMBER (BINARY) Q.PSWD:'L' .BLKB 6 ; PASSWORD Q.TIME:'L' .BLKW 2 ; TIME LIMIT, SECONDS. Q.HOLD:'L' .BLKW 2 ; HOLD LIMIT, SECONDS. ; THE NEXT DEFINITIONS ARE NOT TO BE REMOVED, EVEN IF ; YOU DON'T HAVE SUPPORT FOR PARAMETERS OR LINE COUNTS. Q.PARM:'L' .BLKW 2 ; PARAMETER PACKETS LISTHEAD Q.LINE:'L' .BLKW 1 ; CURRENT OUTPUT COUNT Q.MXLN:'L' .BLKW 1 ; MAXIMUM ALLOWED OUTPUT COUNT Q.LGTH='B'. QQ.LOK='B'1 ; QUEUE LOCK BIT IN QUEUE STATUS WORD QQ.JST='B'2 ; JOB STARTING BIT IN QUEUE STATUS WORD QQ.RDN='B'4 ; QUEUE RUNDOWN BIT IN QUEUE STATUS WORD QQ.CLS='B'10 ; QUEUE CLOSEDOWN BIT IN QUEUE STATUS WORD QQ.EXT='B'20 ; BATMAN MARKED-FOR-EXIT BIT IN $QSTAT .PSECT .MACRO QUEDF$,X,Y .ENDM .ENDM