Trailing-Edge
-
PDP-10 Archives
-
BB-M836C-BM
-
tools/quetst/quetst.mac
There are 4 other files named quetst.mac in the archive. Click here to see a list.
TITLE QUETST - Program to test QUEUE% JSYS functions
SUBTTL
SEARCH GLXMAC,ORNMAC ;LOAD GALAXY SYSTEM SYMBOLS
PROLOG(QUETST) ;DECLARE NAME, ETC...
EXTERNAL PARSER
EXTERNAL P$ACCT
EXTERNAL P$CFM
EXTERNAL P$IFIL
EXTERNAL P$INTR
EXTERNAL P$KEYW
EXTERNAL P$NUM
EXTERNAL P$SETU
EXTERNAL P$SIXF
EXTERNAL P$SWIT
EXTERNAL P$TEXT
EXTERNAL P$TIME
EXTERNAL P$USER
QUEVER==1 ;VERSION
QUEEDT==106 ;EDIT LEVEL
QUEWHO==0
QUEMIN==0
%%.TYP==<VRSN.(QUE)> ;MAKE INTO VERSION NUMBER
SUBTTL Interrupt vector definitions
XP TIMCHN,2 ;CHANNEL FOR TIMER INTERRUPTS
XP IPCLEV,1 ;IPCF INTERRUPT LEVEL (MUST BE 1)
XP DETLEV,1 ;Detach/attach interrupt level
XP LEV1PC,1
XP LEV2PC,1
XP LEV3PC,1
LEVTAB: EXP LEV1PC
EXP LEV2PC
EXP LEV3PC
CHNTAB: $BUILD ^D36
$SET(1,,<IPCLEV,,INT>)
$EOB
SUBTTL Definitions and Storage
PT==13 ;Define an AC to keep as pointer to QUEUE
; argument block
PS==14 ;Define an AC to keep as pointer to space
ND STACKL,^D50 ;SIZE OF STACK
DEB: BLOCK 1 ;Debugging
RES: BLOCK 1 ;Response wanted
QARG: BLOCK 100 ;For QUEUE JSYS args
SPACE: BLOCK 400 ;For arg. blocks
RSPLEN==400
RSPBLK: BLOCK RSPLEN ;Response block for QUEUE JSYS
PARBLK: BLOCK PAR.SZ
PRMT: [ASCIZ /QUETST>/]
IB: $BUILD(IB.SZ)
$SET(IB.OUT,,T%TTY) ;AND DEFAULT OUTPUT ROUTINE
$SET(IB.PIB,,PIB) ;ADDR OF PID BLOCK
$SET(IB.INT,,<LEVTAB,,CHNTAB>)
$EOB
PIB: $BUILD (PB.MNS) ;A small PIB
$SET (PB.HDR,PB.LEN,PB.MNS)
$EOB
ENTVEC: JRST QUETST ;ENTRY VECTOR
JRST QUETST
EXP %%.TYP ;VERSION
LOC 137
EXP %%.TYP
RELOC
STACK: BLOCK STACKL ;PUSHDOWN LIST
SUBTTL Command tables -- Command description
COMMENT %
QUETST>DISMOUNT
QUETST>EXIT
QUETST>MOUNT
QUETST>PRINT (file) filename.ext /ACCOUNT:account (should be valid account)
/AFTER:time
(Currently, only one /BEGIN:page to begin
file may be included /COPIES:# of copies
with each QUEUE /DELETE
request.) /FILE:ASCII, COBOL, ELEVEN, or FORTRAN
/FORMS:formsname
/GENERIC
/JOBNAME:name of job
/LIMIT:total pages to print
/LOWER
/NOTE:to include in banner page
/NOTIFY:YES or NO
/PRESERVE
/PRIORITY:# where 0<#<63
/UNIT:printer number
/UPPER
/USER:username
QUETST>PUNCH
QUETST>SET (parameter) DEBUG
NO-DEBUG
NO-RESPONSE
RESPONSE
QUETST>SHOW PARAMETERS
QUETST>SUBMIT (batch job) filename.ext /ACCOUNT: account
/AFTER:time
/BATCH-LOG:APPEND, SUPERSEDE, or SPOOL
/BEGIN:page to begin
/DELETE
/GENERIC
/JOBNAME:name of job
/LOWER
/NOTIFY:yes or no
/OUTPUT:ALWAYS, ERRORS, or NOLOG
/PRESERVE
/PRIORITY:# where 0<#<63
/RESTARTABLE:YES or NO
/UNIQUE:YES or NO
/UNIT:job stream number
/UPPER
/USER:user name
QUETST>WTO (message) ASCII message to be sent
QUETST>WTOR (message) ASCII message to be sent
% ;End of comment and command description
SUBTTL Command tables -- Main tables
CMDTAB: $INIT(CMDHEA) ;Initialize the command line
CMDHEA: $KEYDSP (MAINTB,<$ALTERNATE(CONFRM)>)
MAINTB: $STAB
DSPTAB (CONFRM,.DISM,<DISMOUNT>)
DSPTAB (CONFRM,.EXIT,<EXIT>)
DSPTAB (CONFRM,.MOU,<MOUNT>)
DSPTAB (PRICMD,.PRI,<PRINT>)
DSPTAB (CONFRM,.PUN,<PUNCH>)
DSPTAB (SETCMD,.SET,<SET>)
DSPTAB (SHOWCM,.SHOW,<SHOW>)
DSPTAB (SUBCMD,.SUB,<SUBMIT>)
DSPTAB (WTOCMD,.WTO,<WTO>)
DSPTAB (WTOCMD,.WTOR,<WTOR>)
$ETAB
SETCMD: $NOISE (SET010,<parameter>)
SET010: $KEYDSP (SET020)
SET020: $STAB
DSPTAB (CONFRM,.DEBUG,<DEBUG>)
DSPTAB (CONFRM,.NODEB,<NO-DEBUG>)
DSPTAB (CONFRM,.NORES,<NO-RESPONSE>)
DSPTAB (CONFRM,.RESP,<RESPONSE>)
$ETAB
SHOWCM: $KEY (CONFRM,SHO010)
SHO010: $STAB
KEYTAB (.PARA,<PARAMETERS>)
$ETAB
.PARA==1
WTOCMD: $NOISE (WTO010,<message>)
WTO010: $CTEXT (CONFRM)
CONFRM: $CRLF
SUBTTL Command tables -- PRINT command
PRICMD: $NOISE (PRI010,<file>)
PRI010: $IFILE (PRI020)
PRI020: $SWITCH (,PRI030,<$ACTION(SHRSWT),$ALTERNATE(CONFRM)>)
PRI030: $STAB
DSPTAB (PRI040,.ACCOU,<ACCOUNT:>)
DSPTAB (PRI050,.AFTER,<AFTER:>)
DSPTAB (PRI060,.BEGIN,<BEGIN:>)
DSPTAB (PRI060,.COPIE,<COPIES:>)
DSPTAB (NEXT(PRI020),.DELET,<DELETE>)
DSPTAB (PRI090,.FILE,<FILE:>)
DSPTAB (PRI100,.FORMS,<FORMS:>)
DSPTAB (NEXT(PRI020),.GENER,<GENERIC>)
DSPTAB (PRI100,.JOBN,<JOBNAME:>)
DSPTAB (PRI060,.LIMIT,<LIMIT:>)
DSPTAB (NEXT(PRI020),.LOWER,<LOWER>)
DSPTAB (PRI160,.NOTE,<NOTE:>)
DSPTAB (PRI170,.NOTIF,<NOTIFY:>)
DSPTAB (NEXT(PRI020),.PRESE,<PRESERVE>)
DSPTAB (PRI060,.PRIOR,<PRIORITY:>)
DSPTAB (PRI060,.UNIT,<UNIT:>)
DSPTAB (NEXT(PRI020),.UPPER,<UPPER>)
DSPTAB (PRI220,.USER,<USER:>)
$ETAB
; Parse an account
PRI040: $ACCOUNT(NEXT(PRI020),<Account to be charged for request>)
; Parse time and date
PRI050: $TAD (NEXT(PRI020))
; Parse a number
PRI060: $NUMBER (NEXT(PRI020),^D10)
; Get file type
PRI090: $KEY (NEXT(PRI020),PRI095)
PRI095: $STAB
KEYTAB (.QBFAS,<ASCII>)
KEYTAB (.QBFCB,<COBOL>)
KEYTAB (.QNF11,<ELEVEN>)
KEYTAB (.QBFFR,<FORTRAN>)
$ETAB
; Parse a field
PRI100: $FIELD (NEXT(PRI020),<Name of request, six characters or fewer>)
; Parse a text string
PRI160: $CTEXT (NEXT(PRI020))
; Notification choice
PRI170: $KEY (NEXT(PRI020),PRI175)
PRI175: $STAB
KEYTAB (0,<NO>)
KEYTAB (.QBNTY,<YES>)
$ETAB
; Parse user name
PRI220: $USER (NEXT(PRI020))
SUBTTL Command Tables -- SUBMIT command
SUBCMD: $NOISE(SUB010,<batch job>)
SUB010: $IFILE(SUB020)
SUB020: $SWITCH(,SUB030,<$ACTION(SHRSWT),$ALTERNATE(CONFRM)>)
SUB030: $STAB
DSPTAB(SUB040,.ACCOU,<ACCOUNT:>)
DSPTAB(SUB050,.AFTER,<AFTER:>)
DSPTAB(SUB060,.BATCH,<BATCH-LOG:>)
DSPTAB(SUB070,.BEGIN,<BEGIN:>)
DSPTAB(NEXT(SUB020),.DELET,<DELETE>)
DSPTAB(NEXT(SUB020),.GENER,<GENERIC>)
DSPTAB(SUB090,.JOBN,<JOBNAME:>)
DSPTAB(NEXT(SUB020),.LOWER,<LOWER>)
DSPTAB(SUB100,.NOTIF,<NOTIFY:>)
DSPTAB(SUB115,.OUTPU,<OUTPUT:>)
DSPTAB(NEXT(SUB020),.PRESE,<PRESERVE>)
DSPTAB(SUB070,.PRIOR,<PRIORITY:>)
DSPTAB(SUB125,.RESTA,<RESTARTABLE:>)
DSPTAB(SUB140,.UNIQU,<UNIQUE:>)
DSPTAB(SUB070,.UNIT,<UNIT:>)
DSPTAB(NEXT(SUB020),.UPPER,<UPPER>)
DSPTAB(SUB160,.USER,<USER:>)
$ETAB
; Parse an account
SUB040: $ACCOUNT(NEXT(SUB020),<Account to be charged for request>)
; Parse time and date
SUB050: $TAD(NEXT(SUB020))
; Get batch-log disposition
SUB060: $KEY(NEXT(SUB020),SUB065)
SUB065: $STAB
KEYTAB(.QBBND,<APPEND>)
KEYTAB(.QBBSP,<SPOOL>)
KEYTAB(.QBBDE,<SUPERSEDE>)
$ETAB
; Parse a number
SUB070: $NUMBER(NEXT(SUB020),^D10)
; Parse directory name
SUB080: $DIR(NEXT(SUB020))
; Parse a field
SUB090: $FIELD(NEXT(PRI020),<Name of request, six characters or fewer>)
; Notification choice
SUB100: $KEY(NEXT(SUB020),SUB110)
SUB110: $STAB
KEYTAB(0,<NO>)
KEYTAB(.QBNTY,<YES>)
$ETAB
; Log file printout choices
SUB115: $KEY(NEXT(SUB020),SUB120)
SUB120: $STAB
KEYTAB(.QBLLG,<ALWAYS>)
KEYTAB(.QBLLE,<ERRORS>)
KEYTAB(.QBLNL,<NOLOG>)
$ETAB
; Restart choice
SUB125: $KEY(NEXT(SUB020),SUB130)
SUB130: $STAB
KEYTAB(.QBRNO,<NO>)
KEYTAB(.QBRYE,<YES>)
$ETAB
; Simultaneous running of batch jobs choice
SUB140: $KEY(NEXT(SUB020),SUB150)
SUB150: $STAB
KEYTAB(.QBUNQ,<NO>)
KEYTAB(.QBUYE,<YES>)
$ETAB
; Parse user name
SUB160: $USER(NEXT(SUB020))
SUBTTL Program initialization
QUETST: RESET
MOVE P,[IOWD STACKL,STACK] ;SET UP STACK POINTER
DMOVE S1,[EXP IB.SZ,IB] ;POINT TO THE INIT BLOCK
PUSHJ P,I%INIT## ;INITIALIZE EVERTHING
; Setup for parser use...
MOVE S1,[IPCLEV,,TIMCHN] ;GET LEVEL NUMBER AND TIMER CHANNEL
MOVE S2,IB+IB.INT ;GET INTERRUPT DATA BASE INFO
$CALL P$INIT## ;INIT THE PARSER
$CALL I%ION ;Turn on interrupts
SETZM DEB ;No debug
SETOM RES ;But response
; Initial message
$CALL SPARAM ;Show the initial parameters
; JRST LOOP ;Continue on the next page into
; main program loop
SUBTTL Main Program Loop
; Setup the parser argument block
LOOP: SETZ PS, ;Nowhere in the argument space
HRRO S1,PRMT ;Get the prompt
HRRZM S1,PARBLK+PAR.PM ;Put it in the arg. block
MOVEI S1,CMDTAB ;Get the command tables
MOVEM S1,PARBLK+PAR.TB ;Save it
SETZM PARBLK+PAR.CM ;Zero to allocate a page
SETZM PARBLK+PAR.SR ;Zero to parse commands from tty
; Do the parsing
MOVEI S1,PAR.SZ ;Get the argument block size
MOVEI S2,PARBLK ; and address
$CALL PARSER
MOVE P1,S2 ;Save returned stuff
SKIPT
JRST [HRROI S1,[ASCIZ/?Command error -- /]
PSOUT
HRRO S1,PRT.EM(P1) ;Get the error message
PSOUT
HRROI S1,[ASCIZ/
/]
PSOUT ;Finish with a CRLF
JRST LOOP] ;Go back and try again
MOVE S1,PRT.CM(P1) ;Get address of parsed data
ADD S1,COM.PB(S1) ;Get displacement into data block
$CALL P$SETU ;Setup to parse things
$CALL P$KEYW ;Parse a keyword
JUMPF [$CALL P$CFM ;Check for confirm
JUMPT LOOP ;O.K. just continue on
HALTF] ;Command skew can't happen
$CALL (S1) ;Do the rest of the processing
JRST LOOP ;Go for some more
.DISM: $CALL NOTYET
$RET
.EXIT: HRROI S1,[ASCIZ/Exiting/]
PSOUT
HALTF
$RET
.MOU: $CALL NOTYET
$RET
SUBTTL PRINT command processing
; Creates a message of the following form...
; +-------------------------------------+ -
; |flags| resp.length| .QUPRT | |
; |-------------------------------------| header
; | Response block address | |
; |-------------------------------------| -
; | Length of text | .QBFIL |
; |-------------------------------------|
; | Pointer (address) to ASCII text | (filename as ASCII string)
; |-------------------------------------|
; | Optional switch argument blocks |
; | . |
.PRI: MOVEI S1,.QUPRT ;Set print command
$CALL SETUP ;Setup the QUEUE% header
$CALL SETFIL ;Setup the file
$CALL PRCSWI ;Go process switches
$CALL QUECAL ;Do the thing
$RET
.PUN: $CALL NOTYET
$RET
SUBTTL SET command
.SET: $CALL P$KEYW ;Get another keyword
SKIPT
HALTF ;Don't like bad stuff
$CALL (S1) ;Go do it
$RET
.NODEB: TDZA S1,S1 ;Set to zero and skip
.DEBUG: SETO S1, ;Set to ones
MOVEM S1,DEB ;To debug or not to debug
$RET
.NORES: TDZA S1,S1 ;Set to zero and skip
.RESP: SETO S1, ;Set to ones
MOVEM S1,RES ;Set need/noneed for response
$RET
SUBTTL SHOW command
.SHOW: $CALL P$KEYW ;Get the next keyword
SKIPT
HALTF
CAIE S1,.PARA ;Parameter?
HALTF ;No, Must be!
; Alternate entry point to allow printing initial state
SPARAM: HRROI S1,[ASCIZ/
Parameter settings
/]
PSOUT
; Debugging line
HRROI S1,[ASCIZ/ Debugging -- /]
PSOUT
HRROI S1,[ASCIZ/yes
/] ;Assume debugging
SKIPN DEB ;Debugging?
HRROI S1,[ASCIZ/no
/] ;No.
PSOUT
; Response line
HRROI S1,[ASCIZ/ Response -- /]
PSOUT
HRROI S1,[ASCIZ/wanted
/] ;Assume response
SKIPN RES ;Response wanted?
HRROI S1,[ASCIZ/not wanted
/] ;No.
PSOUT
$RET
SUBTTL Submit command processing
; Creates a message of the following form...
; +-------------------------------------+ -
; |flags| resp.length| .QUBAT | |
; |-------------------------------------- header
; | Response block address | |
; |-------------------------------------- -
; | Length of text | .QBFIL |
; ---------------------------------------
; | Pointer (address) to ASCII text | (filename as ASCII string)
; ---------------------------------------
; | Optional switch argument blocks |
; | |
.SUB: MOVEI S1,.QUBAT ;Set batch command
$CALL SETUP ;Setup the QUEUE% header
$CALL SETFIL ;Setup the file
$CALL PRCSWI ;Go process switches
$CALL QUECAL ;Do the thing
$RET
SUBTTL Write To Operator commands
; Creates a message of the following form...
; +-------------------------------------+ -
; |flags| resp.length| .QUWTO/WTR | |
; |-------------------------------------| header
; | Response block address | |
; |-------------------------------------| -
; | Length of text | .QBMSG |
; |-------------------------------------|
; | Pointer (address) to ASCII text |
; +-------------------------------------+
.WTO: MOVEI S1,.QUWTO ;Set WTO
SKIPA
.WTOR: MOVEI S1,.QUWTR ;Set WTOR
$CALL SETUP ;Setup the QUEUE% header
$CALL P$TEXT ;Get the text
SKIPT
HALTF
MOVEI T1,.QBMSG ;Get the arg type
LOAD S2,ARG.HD(S1),AR.LEN ;Get the arg length (not block)
SUBI S2,1 ;Adjust away the header word
HRL T1,S2 ;And set
MOVEM T1,.QATYP(PT) ;Save as first word of argument
MOVEI T1,ARG.DA(S1) ;Get address of data
MOVEM T1,.QADAT(PT) ;Save the address as the data
ADDI PT,2 ;Add the size of the argument
$CALL QUECAL ;Do the thing
$RET ;And return
SUBTTL QUECAL Do the actual QUEUE% JSYS
QUECAL: MOVE S1,PT ;Get the location
SUBI S1,QARG ;Make it the size
MOVEI S2,QARG ;Get the arg block
QUEUE%
ERJMP QUERR ;Badness
HRROI S1,[ASCIZ/QUEUE% function completed
/]
PSOUT
; Output response if needed
QUERES: SKIPN RES ;Response wanted?
$RET ;No. just return
HRROI S1,RSPBLK ;Get the response
SKIPN RSPBLK ;Any response returned?
HRROI S1,[ASCIZ/Null response returned/]
PSOUT
HRROI S1,[ASCIZ/
/]
PSOUT ;Output a CR
$RET
QUERR: HRROI S1,[ASCIZ/?QUEUE% JSYS failure -- /]
PSOUT
;Any error deserves to fail
MOVEI S1,.PRIOU ;Output to the terminal
MOVE S2,[.FHSLF,,-1] ;This process -- last error
SETZ T1, ;As many characters as it takes
ERSTR ;Output last error
JFCL ;Who cares
JFCL ;Who cares
HRROI S1,[ASCIZ/
/]
PSOUT
JRST QUERES ;Continue on to include response
; if any
SUBTTL SETUP to setup first two words of QUEUE arg. block
; The purpose of this routine is to setup the first two words of the
; QUEUE% argument block given the function code in S1. Returns with
; the first two words done and the address of the first argument in
; PT.
; +-------------------------------------+ -
; |flags| resp.length| function | |
; |-------------------------------------| header
; | Response block address | |
; |-------------------------------------| -
SETUP: HRLI S1,RSPLEN ;Set length
SKIPN RES ;Want a response?
TXO S1,QU%NRS ;No, set the bit
SKIPE DEB ;Talk to a debugging GALAXY?
TXO S1,QU%DBG ;Yes, set the bit
MOVEM S1,QARG+.QUFNC ;Save the function word
SETZM RSPBLK ;Clear first word of response block
MOVEI S1,RSPBLK ;Get address of response block
MOVEM S1,QARG+.QURSP ;Save it
MOVEI PT,QARG+.QUARG ;Get address of first argument block
$RET
SUBTTL SETFIL Setup the file part of an actual queue command
; This routine sets up the file argument block part of the QUEUE% arguments.
; | |
; |-------------------------------------|
; | Length of text | .QBFIL |
; |-------------------------------------|
; | Pointer (address) to ASCII text | (filename as ASCII string)
; |-------------------------------------|
; | |
SETFIL: $CALL P$IFIL ;Get the file block
SKIPT
HALTF
MOVEI T1,.QBFIL ;Get the arg. type
HLR T2,.FDLEN(S1) ;Get length+1 of filename
SUBI T2,1 ;Subtract out the header length
HRL T1,T2 ;Form image of first argument word
MOVEM T1,.QATYP(PT) ;Save as the first word of argument
MOVEI T1,.FDSTG(S1) ;Get the address of the filename
MOVEM T1,.QADAT(PT) ;Save the address
ADDI PT,ARG.SZ ;Move the pointer to next arg.
$RET
SUBTTL PRCSWI process switches
; The purpose of this routine is to process switches. This includes reading
; the switch and adding the argument block to the main QUEUE% arguments.
; (although in all cases the block is built and added in a subsidiary routine)
; P2 is used accross these routines to indicate function code.
PRCSWI: $CALL P$SWIT ;Try to read a switch
$RETIF ;No more switches
$CALL (S1) ;Process the switch
$RETIF ;Quit if a bad switch
JRST PRCSWI ;Go for another
SUBTTL PRCSWI process switches -- ACCOUNT
; Generates an argument block of the form:
; | |
; |-------------------------------------|
; | Length of text | .QBACT |
; |-------------------------------------|
; | Pointer (address) to ASCIZ text | (account as ASCII string)
; |-------------------------------------|
; | |
.ACCOU: $CALL P$ACCT ;Process an account switch
$RETIF
MOVEI P2,.QBACT ;Get the argument type
SUBI S2,1 ;Adjust length to ignore P$ACCT arg.
; header
ADDI S1,1 ;Again, skip over P$ACCT arg. header
$CALL NORARG ;Setup argument
$RETT
SUBTTL PRCSWI process switches -- AFTER
; Generates an argument block of the form:
; | |
; |-------------------------------------|
; |I| 1 | .QBAFT |
; |-------------------------------------|
; | Date/time in UDT format |
; |-------------------------------------|
; | |
.AFTER: $CALL P$TIME ;Get time block
$RETIF
MOVEI P2,.QBAFT ;Get the argument type
$CALL IMMARG ;Setup immediate argument block
$RETT
SUBTTL PRCSWI process switches -- BATCH-LOG
; Generates an argument block of the form:
; | |
; |-------------------------------------|
; |I| 1 | .QBFMT |
; |-------------------------------------|
; | .QBBND, .QBBDE or .QBBSP | File type
; |-------------------------------------|
; | |
.BATCH: MOVEI P2,.QBBLT ;Get function code
$CALL P$KEYW ;Get keyword for disposition type
$RETIF
$CALL IMMARG ;Setup the argument, S1 has type
$RETT
SUBTTL PRCSWI process switches -- BEGIN
; Generates an argument block of the form:
; | |
; |-------------------------------------|
; |I| 1 | .QBBGN |
; |-------------------------------------|
; | Number indicating where to begin |
; |-------------------------------------|
; | |
.BEGIN: MOVEI P2,.QBBGN ;Get the argument type
PRCNUM: $CALL P$NUM ;Get the number
$RETIF
$CALL IMMARG ;Setup immediate argument block
$RETT
SUBTTL PRCSWI process switches -- COPIES
; Generates an argument block of the form:
; | |
; |-------------------------------------|
; |I| 1 | .QBCOP |
; |-------------------------------------|
; | Number of copies |
; |-------------------------------------|
; | |
.COPIE: MOVEI P2,.QBCOP ;Get the argument type
$CALL PRCNUM ;Process number argument
$RET ;Return preserving whatever
SUBTTL PRCSWI process switches -- file disposition DELETE and PRESERVE
; Generates an argument block of the form:
; | |
; |-------------------------------------|
; |I| 1 | .QBODP |
; |-------------------------------------|
; | 0 to preserve, 1 to delete |
; |-------------------------------------|
; | |
.PRESE: TDZA S1,S1 ;Clear S1 to indicate preserve and skip
.DELET: MOVEI S1,1 ;Want to delete
MOVEI P2,.QBODP ;Get function code
$CALL IMMARG ;Process immediate
$RETT
SUBTTL PRCSWI process switches -- FILE
; Generates an argument block of the form:
; | |
; |-------------------------------------|
; |I| 1 | .QBFMT |
; |-------------------------------------|
; | .QBFAS, .QBFCB, .QNF11, or .QBFFR | file type
; |-------------------------------------|
; | |
.FILE: MOVEI P2,.QBFMT ;Get function code
$CALL P$KEYW ;Get the keyword for file type
$RETIF
$CALL IMMARG ;Setup the argument, S1 has type
$RETT
SUBTTL PRCSWI process switches -- FORMS
; Generates an argument block of the form:
; | |
; |-------------------------------------|
; |I| 1 | .QBFRM |
; |-------------------------------------|
; | Forms name in SIXBIT |
; |-------------------------------------|
; | |
.FORMS: MOVEI P2,.QBFRM ;Get function code
PRCSIX: $CALL P$SIXF ;Get the field as SIXBIT
$RETIF
$CALL IMMARG ;Setup immediate argument
$RETT
SUBTTL PRCSWI process switches -- Unit number and type switches
; GENERIC, LOWER, UPPER, and UNIT
; Generates an argument block of the form:
; | |
; |-------------------------------------|
; |I| 1 | .QBUNT |
; |-------------------------------------|
; | Unit # if .QBUPH | .QBUGN, .QBULC, |
; | | .QBUUC or .QBUPH |
; |-------------------------------------|
; | |
.GENER: MOVEI S1,.QBUGN ;Set generic
JRST DEVSWI ;Join common
.LOWER: MOVEI S1,.QBULC ;Set lower case
JRST DEVSWI ;Join common
.UPPER: MOVEI S1,.QBUUC ;Set upper case
JRST DEVSWI ;Join common
.UNIT: $CALL P$NUM ;Get the unit number
$RETIF
HRLZS S1 ;Move it left
HRRI S1,.QBUPH ;Set device number
; JRST DEVSWI ;Join common
DEVSWI: MOVEI P2,.QBUNT ;Say this is unit desc. block
$CALL IMMARG ;Setup immediate argument
$RETT
SUBTTL PRCSWI process switches -- JOBNAME
; Generates an argument block of the form:
; | |
; |-------------------------------------|
; |I| 1 | .QBJBN |
; |-------------------------------------|
; | Job name in SIXBIT |
; |-------------------------------------|
; | |
.JOBN: MOVEI P2,.QBJBN ;Jobname argument
$CALL PRCSIX ;Go do it
$RET ;Return preserving any error
SUBTTL PRCSWI process switches -- LIMIT
; Generates an argument block of the form:
; | |
; |-------------------------------------|
; |I| 1 | .QBLIM |
; |-------------------------------------|
; | Limit of job as number |
; |-------------------------------------|
; | |
.LIMIT: MOVEI P2,.QBLIM ;Say its the limit argument
$CALL PRCNUM ;Go process number
$RET
SUBTTL PRCSWI process switches -- NOTE
; Generates an argument block of the form:
; | |
; |-------------------------------------|
; | length (2 max) | .QBNTE |
; |-------------------------------------|
; |address of sixbit words holding note |
; |-------------------------------------|
; | |
.NOTE: MOVEI P2,.QBNTE ;Save the argument type
$CALL P$TEXT ;Get the field as ASCII text
$RETIF
ADDI S1,1 ;Skip over returned arg. header
$CALL S%SIXB ;Convert the first word
MOVE T1,S2 ;Save first word
$CALL S%SIXB ;Convert the second word
MOVE T2,S2 ;Save second word
MOVEI S1,T1 ;Save the address of 2 word
; sixbit string
MOVEI S2,2 ;Length
$CALL NORARG ;Go process
$RETT
SUBTTL PRCSWI process switches -- NOTIFY
; Generates an argument block of the form:
; | |
; |-------------------------------------|
; |I| 1 | .QBNOT |
; |-------------------------------------|
; | 0 if no notify, .QBNTY to notify |
; |-------------------------------------|
; | |
.NOTIF: MOVEI P2,.QBNOT ;Set argument block type
$CALL P$KEYW ;Get keyword
$RETIF
$CALL IMMARG ;Setup the argument
$RET
SUBTTL PRCSWI process switches -- OUTPUT
; Generates an argument block of the form:
; | |
; |-------------------------------------|
; |I| 1 | .QBLOG |
; |-------------------------------------|
; | .QBLNL, .QBLLG, or .QBLLE |
; |-------------------------------------|
; | |
.OUTPU: MOVEI P2,.QBLOG ;Set argument block type
$CALL P$KEYW ;Get keywork
$RETIF
$CALL IMMARG ;Setup the argument
$RET
SUBTTL PRCSWI process switches -- PRIORITY
; Generates an argument block of the form:
; | |
; |-------------------------------------|
; |I| 1 | .QBPRI |
; |-------------------------------------|
; | Number 0<#<63 indicating
.PRIOR: MOVEI P2,.QBPRI ;Set priority argument
$CALL PRCNUM
$RET
SUBTTL PRCSWI process switches -- RESTARTABLE
; Generates an argument block of the form:
; | |
; |-------------------------------------|
; |I| 1 | .QBRES |
; |-------------------------------------|
; | .QBRNO (no) or .QBRYE (yes) |
; |-------------------------------------|
; | |
.RESTA: MOVEI P2,.QBRES ;Get function code
$CALL P$KEYW ;Get the keyword for file type
$RETIF
$CALL IMMARG ;Setup the argument, S1 has type
$RETT
SUBTTL PRCSWI process switches -- UNIQUE
; Generates an argument block of the form:
; | |
; |-------------------------------------|
; |I| 1 | .QBUNQ |
; |-------------------------------------|
; | .QBUNQ (no) or .QBUYE (yes) |
; |-------------------------------------|
; | |
.UNIQU: MOVEI P2,.QBUNQ ;Get function code
$CALL P$KEYW ;Get the keyword for file type
$RETIF
$CALL IMMARG ;Setup the argument, S1 has type
$RETT
SUBTTL PRCSWI process switches -- USER
; Generates an argument block of the form:
; | |
; |-------------------------------------|
; |I| 1 | .QBOID |
; |-------------------------------------|
; | User number |
; |-------------------------------------|
; | |
.USER: MOVEI P2,.QBOID ;Say user argument
$CALL P$USER ;Parse user field
$RETIF
$CALL IMMARG ;Go do it
$RETT
SUBTTL PRCSWI process switches -- work routines to set up args
; IMMARG and NORARG take information and build the arg. blocks.
; S1 / Data or address to data
; S2 / Length of data (only for NORARG)
; P2 / function code
IMMARG: HRLI P2,1 ;Get length
TXO P2,QA%IMM ;Make it immediate
JRST FINARG ;Go to common clean up
NORARG: HRL P2,S2 ;Get length
FINARG: MOVEM P2,.QATYP(PT) ;Save length,,type
MOVEM S1,.QADAT(PT) ;Save number of where to begin or data
ADDI PT,ARG.SZ ;Setup for next argument
$RET
; General support routines
NOTYET: HRROI S1,[ASCIZ/Command not yet implemented
/]
PSOUT
$RET
SNTYET: HRROI S1,[ASCIZ/Switch not yet implemented
/]
PSOUT
$RET
INT: $BGINT IPCLEV
$CALL P$INTR
$CALL C%INTR
$DEBRK
END <3,,ENTVEC>