Trailing-Edge
-
PDP-10 Archives
-
bb-bt99p-bb
-
ornmac.unv
There are 80 other files named ornmac.unv in the archive. Click here to see a list.
x
,U4@PCv)6Q@CBd)3P'CJ9ipCRn:=P @EV6:=P @G"uZP @G"v<[P G4ulQ @G>ih6P G>ihvp G>ilp G>ilwp G>il}p G>imp GHv8;P GHv:=P IvLuP I<[P @I1kp I1kp I1k2p I1lp I1l}p I1mp I6
xP IuH:P IulwP Iv;wP Iv<[P IvLP'IvLVP I kRp I kzp I l7p I l}p I mp I m7p I m:p IX,MQ IX-]Q IX.MQ @IXtMQ IXu]Q IXvMQ @J:/
:P J:lP J:u|VP KK9
XLIST
!
X AON,<Applica @tion object block ` and object type
block not allowed
together in WTOR
@/WTO/ACK message>
`
X CMI,<Command message invalid>
X UPO,<Unknown@ processor object`>
X UPT,<Uniden
tified processor
type>
X IPE,<OP
@ERATOR privileges
` required>
X IOvalid OPR en
X IFC,<Illatted
X IRS,<Illegal range specified>
X MTS,<Message `too short>
X BML,<Bad message le ngth>
X CSU,<Ca@nnot send to spec`ified user>
X NOM,<No outstandin g messages>
X I@CS,<Invalid argum`ent count specified in command>
X IAL,<Invalid ar@gument length spe`cified>
X ITM,<Invalid type argu ment in message>
X ONS,<OPR not `setup .. command ignored>
X DTM, <Duplicate type s@pecified in messa`ge>
X WJP,<WTO, WTOR, or ACK job number field req@uires privileges>`
X WTP,<WTO, WTOR or ACK object type field requir@es privileges>
`X IWF,<Invalid WTO or WTOR field>
X WOP,<WTO, WTO@R, or ACK object `block field requires privileges>
X IOU,<Invalid o@bject unit specif`ied in object block>
X RIW,<Rang e invalid in WTO,@ WTOR or ACK obje`ct block>
X OPD,<OPR pid already defined>
X ISM@,<OPR setup messa`ge invalid .. OPR did not send hel lo>
X OAS,<OPR @already setup .. `OPR deleted>
X ANI,<Application name invalid in a@pplication hello `message>
X ODE,<OPR Does not exi st .. message not@ sent>
X MTF,<W`TO message type field required wit h WT.SJI set>
X@ IAC,<Invalid ack`nowledgement code .. code was zero >
X CNI,<Comman@d not yet impleme`nted>
X IPS,<Invalid pid for sen der .. pid was ze@ro>
X ISC,<Inva`lid switch specif ied in command>
X WNA,<Write to @operator function ` not allowed for !this job>
X LNI! ,<Logging not ena!@bled>
X RNA,<Ra!`nge not allowed i"n START command w" ith /DEVICE>
X "@IQS,<Invalid queu"`e specified in co#mmand>
X SUF,<E# RROR.SYS entry fa#@iled on REPORT co#`mmand>
X IUM,<I$nvalid user speci$ fied in message>
X ARP,<ACK mess$`ages require WHEE%L or OPERATOR pri% vileges>
X NRW,%@<Notify message r%`equires WHEEL or &OPERATOR privileg& es>
X JDE,<Job &@to be notified no&` longer exists>
' X NJD,<Job to be' notified is DETA'@CHED .. notify ig'`nored>
X BNR,<B(atch commands not( allowed from rem(@ote nodes>
X NO(`D,<No operators d)efined>
X DOL,<) Device already on)@line .. command i)`gnored>
X SFF,<*Scheduler functio* ns failed for SHO*@W SCHEDULER comma*`nd>
X ORS,<SYST+EM, HOST or REMOT+ E operator privil+@ege required>
X+` OHS,<SYSTEM or H,OST operator priv, ilege required>
,@ X OSY,<SYSTEM op,`erator privilege -required>
X SAF- ,<Send to ACTDAE -@failed for SET US-`AGE command>
X .CLO,<Can't locate. operator>
X SC.@N,< Specified CPU.` not running >
/X ICP,< Invalid C/ PU number specifi/@ed >
X NRN,< No/` CPUs will be abl0e to run jobs .. 0 command ignored >0@
X ACS,< All CP0`Us are already sc1hedulable .. comm1 and ignored >
LIST
SALL
LKK| yt
XLIST
YX E.NORM,<OPR ter9minated normally>
TOPS20 <
X E.O(PNF,<Unable to opHen ^T/DCNDAT/>
Xh E.CONF,<Unable t o get connects fo (r ^T/DCNDAT/>
X HE.ACFL,<Unable to h accept connects
for server links>
(
X E.OUTF,<Outpu
Ht over link ^T/DC
hNDAT/ failed .. link aborted>
X E(.INPF,<Input overH server link failhed .. link aborte
d>
X E.STSF,<Sta
(tus return for in
Hput server link f
hailed .. link abo
X E.INVC,<nnect.s
> ;END TOPS20
X E(.EXIT,<EXIT commaHnd issued>
LIST
SALL
LIKK9: kap
EXTERNlAL TXTTBL
EXTEl RNAL STSTBL
EXl@TERNAL ERRTBL
l`EXTERNAL RPTERR
m DEFINE X(SUFFIXm ,TEXT),<
EXTERm@NAL E$'SUFFIX
m`> ;END X
ERRCDnS
ERRTXT
ORNMSG
XT
ORKKN 1a~
XLIST
X ACI,<Applicat2 ion code ^D/G$ARG2@1/ invalid .. WTO2` rejected>
X AH3F,<Application ^T3 /@APLNAM/ hello a3@cknowledgement fa3`iled .. hello ign4ored>
X ANS,<Ap4 plication ^T/@APL4@NAM/ not signed o4`n yet .. WTO/WTOR5/ACK rejected>
5 X CAS,<^W/G$ARG2/5@ is already runni5`ng jobs .. comman6d ignored>
X CD6 E,<^W/G$ARG2/ doe6@s not exist>
X 6`CDN,<^W/G$ARG2/ i7s down .. command7 ignored>
X CNM7@,<^W/G$ARG2/ is a7`n invalid CPU nam8e>
X CPM,<WTO/W8 TOR/ACK request f8@or ^T/@APLNAM/ ha8`s different pid f9rom hello .. WTO 9 rejected>
X CSF9@,<Class scheduler9` error: ^E/G$ARG1:/>
X DDI,<Disk : drive number ^D/G:@$ARG1/ invalid on:` SET command>
X; DJF,<SET ONLINE ; failed because ^E;@/G$ARG1/>
X DUF;`,<DEVTYP UUO fail<ed for device ^W/< G$ARG1/:>
X EDC<@,<Job scheduling <`^T/@G$ARG1/d for =specified CPU(s)>=
X IAP,<^T/@G$A=@RG1/ is not runni=`ng>
X ICN,<Chan>nel number ^D/G$A> RG1/ invalid on S>@ET command>
X I>`DD,<^T/@G$ARG1/ i?s not a valid dis? k structure .. co?@mmand ignored>
?`X IDS,<^T/@G$ARG1@/ is not supporte@ d for /DEVICE .. @@command ignored>
X IMT,<Illegal Amessage type ^O/GA $ARG1/>
X INS,<A@Operator at node A`^N/G$ARG1/ not enBabled for node ^NB /G$ARG2/>
X INTB@,<Invalid node orB` no terminal lineCs for node ^N/G$AC RG1/>
X ION,<OPC@R hello message nC`ode ^N/G$ARG1/ inDvalid .. OPR ignoD red>
X IOT,<InvD@alid object type D`^O/G$ARG1/ specifEied in message>
E X ISP,<InsufficiE@ent privileges toE` set ^W/G$ARG1/>
X IRD,<Can't ^TF /@G$ARG2/ a disk F@device (^W/G$ARG1F`/:)>
X ITD,<^T/G@G$ARG1/ is not aG valid tape driveG@ .. command ignorG`ed>
X LAO,<ORIOHN log file ^F/LOGH FD/ already open H@.. command ignoreH`d>
X LFE,<ORIONI log error ^E/[-1I ]/ .. logging disI@abled>
X MBP,<OI`RION must be [1,2J] or JACCT to ^T/J @G$ARG1/ CPU job J@scheduling>
X MJ`DA,<Can't ^T/@G$AKRG2/ a device conK trolled by MDA (^K@W/G$ARG1/:)>
X K`MNV,<Message ^D/GL$ARG1/ no longer L valid .. sender hL@as gone away>
XL` NJA,<Can't ^T/@GM$ARG2/ device, ORM ION not [1,2] or M@JACCT>
X NMC,<NM`o messages found Nwith code ^O/G$ARN G1/>
X NMN,<No N@messages for nodeN` ^N/G$ARG1/>
X ONON,<No operatorsO at node ^N/G$ARGO@1/>
X NSM,<MessO`age ^D/G$ARG1/ doPes not exist>
XP NTD,<^T/@G$ARG1/P@ is not a tape drP`ive or valid struQcture .. command Q ignored>
X OAE,Q@<DN60 OPR at nodeQ` ^N/G$ARG1/ alreaRdy exists>
X ONR E,<OPR not enableR@d for message ^D/R`G$ARG1/ at node ^SN/G$ARG2/>
X OSS F,<OPR setup failS@ure for pid ^O/G$S`ARG1/ .. OPR ignoTred>
X PER,<ComT mand error: ^T/@GT@$ARG1/>
X RWF,<T`^T/@G$ARG1/ file Uretrieval waits fU ailed ^E/[-2]/>
X SIC,<SET ONLIU`NE ^T/@G$ARG1/ chVannel number ^O/GV $ARG2/ invalid>
V@ X SID,<SET ONLINV`E ^T/@G$ARG1/ devWice number ^O/G$AW RG2/ invalid>
XW@ SJF,<SET JOB schW`eduler error: ^E/XG$ARG1/>
X SJN,X <SET JOB invalid X@.. job ^D/G$ARG1/X` not logged in>
Y X SPI,<SET priorY ity value ^D/G$ARY@G1/ invalid .. 63Y` is maximum>
X ZSSF,<SET SCHEDULEZ R error: ^E/G$ARGZ@1/>
X TAB,<TAKEZ` command aborted [because ^T/@G$ARG[ 1/ not running
[@ on command "^T/@[`G$ARG2/">
X UFR\,<UUO failed tryi\ ng to ^T/@G$ARG2/\@ ^W/G$ARG1/:>
X\` UUF,<SETUUO fail]ed trying to ^T/@] G$ARG1/ CPU job s]@cheduling>
X WT]`L,<WTO/WTOR messa^ge length ^D/G$AR^ G1/ exceeds max o^@f ^D/[WTOMAX]/>
^` X DTF,<SETUUO fa_iled to disable t_ imesharing, error_@ code: ^D/G$ARG1/_`>
LIST
SALL
LIST
SALLL;<rP L;<YP L;<I9P!L;<\YP L;<kP'@L;=+qP @L;=xUP"L;=xrP L;>-P L;>MP @L;>NP$L;>N8P M:=P MF:=p M2
pP MR%eHQ MR&`Q MR6L`P MRV>9P MS) P MS.[yQ N$
p
X <CAT
@ALOG>,0,CATTAB,
`
X <CONFIG>,1,CN
X CP>,2,LCPTAB,LC
X <NCP>,3
X <QUOTA>,4,QUOTAB,
>,4,QUOTAB,
N%Iw @t X OPERAT X OPERATN:}KsQ O*6:=P Q\t: P"Q\t<P!Q\t=P Q\tLuP @Q\tMP$Q\u[2P Q\uj P Q\vH8P Q\vXPP Q\v\QP S;:P SBI;P U
IjQp U
Ikp U
Il}p WMX4 !ze
X ALIGN ,ALI
X BACKSP 8ACE,BKS
X CAN!PCEL,CNC
X CLO!pSE,CLO
X CONT"INUE,CNT
X DE"0LETE,DEL
X DE"PFINE,DEF
X DI"pSABLE,DIS
X D#ISMOUNT,DSM
X#0 ENABLE,ENA
X#P ENTER,ENT
X #pEXIT,EXT
X FO$RWARDSPACE,FWS
$0 X HELP,HLP
X$P HOLD,HLD
X I$pDENTIFY,IDN
X% MODIFY,MOD
X%0 MOUNT,MTN
X %PPAUSE,PAU
X P%pUSH,PUS
X PRI&NT,PRT
TOPS10<&0 X RECOGNIZE,REC &P>
X RELEASE,R&pEL
X REPORT,R'PT
X REQUEUE,'0REQ
X RESPOND'P,RSP
TOPS10< X'p RESTRICT,RST > (
X RETURN,RTN (0
X ROUTE,RTE
X SEND,SND
(pX SET,SET
X )SHOW,SHW
X SH)0UTDOWN,SHD
X )PSTART,STA
X S)pUBMIT,SUB
X S*UPPRESS,SUP
X*0 TAKE,TAK
X U*PNLOAD,UNL
TOPS*p10< X UNRESTRICT,+URS >
X WAIT,W+0AI
X SWIT+PCH,SWI
X +pLOCK,LOC
X UN,LOCK,ULC
,0X <\"32>,CTZ
,PX NEXT,NXT
NEXT,NXT
WMxU -zm
X JOB,JO-0B
X OPERATOR-P,OPR
X TERMINAL,TRM
RMINWN{y 3P~)
X AFTER,3pAFT
X <ANF-104>,ANF
X ALL,A40LL
X <ALL-ME4PSSAGES>,ALM
X4p <ALL-NODES>,ALG 5
X ASK,ASK 50
X ATTRIBUTE,ATR5P
X(<BEGINNING5p-OF>,BEG)
X <6CONTROL-FILE>,CTL60
X COPY,CPY 6P
X(<CURRENT-POS6pITION>,CUR)
X 7<CURRENT-REQUEST>70,ACR
X DAYTIM7PE,DAY
X DECNE7pT,DCN
X <DEFA8ULT-PPN>,DPP
80X <ERROR-MESSAGES8P>,ERM
X <EVER8pY-REQUEST>,AER 9
X FILE,FIL
90X (<FORMS-TYPE>,F9POT)
X IGNORE,9pIGN
X IMMEDIA:TELY,IMM
X <J:0OB-MESSAGES>,JOM :P
X KEYPAD,KPD :p
X (<LAT-SERVER;>,LAT)
X (<LIM;0IT-EXCEEDED-ACTIO;PN>,LEA)
X LINE;p,LIN
X LOG,LO<G
X LOGGING,<0LGG
X (<LP20-<PSIMULATION>,LP2) <p
X (<MEMORY-LIM=ITS>,MEM)
X M=0ESSAGES,MSG
X=P (<NETWORK>,NET) =p
X NODE,NOD >
X NOKEYPAD,NKP >0
X(<NOOPR-INTE>PRVENTION>,NOI)
X <OPR-ACTION-ME?SSAGES>,OAM
X ?0<ONLINE>,ONL
?PX(<OPR-INTERVENTI?pON>,OIA)
X OTH@ER,OTH
X <OUT@0PUT-DISPLAY>,OPD @P
X(<OUTPUT-LIM@pITS>,OPL)
X (A<PAGE-LIMITS>,PGLA0)
X PARAMETERAPS,PRM
X PRIORApITY,PRI
X (<PBRIORITY-LIMITS>,PB0RL)
X <REJECTIBPON-LIST>,REJ
BpX REQUEST,RQN
X QUEUE,QUE
C0X <QUEUE-NAME>,QNCPM
IFN FTDQS,<
X SERVER,SRV
>
X SITGO,SIT D0
X STATUS,STS DP
X SYSTEM,SYS Dp
X <SYSTEM-OPR-EINTERVENTION>,SOIE0
X <TAKE-COMMAEPNDS>,TAC
X (<EpTIME-LIMITS>,TIM)F
X TIMESHARINF0G,TSR
X TO,TOFP
X TYPE,TYP Fp
X (<UNIT-TYPEG>,UTY)
X <G07>,7TK
X <9>GP,9TK
X <DEFAGpULT>,DFL
X <EHVEN>,EVN
X <MH0AGTAPE>,MTA
XHP <ODD>,ODD
Hp
X <INPUT>,NQI I
X <OUTPUT>,NQOI0
X <LOCAL>,LCIPL
X <REMOTE>,IpRMT
;DN60 KJEYWORDS
IFN FTJ0DN60,<
X <BYTEJPS-PER-MESSAGE>,BPJpM
X <CLEAR-SENKD-DELAY>,CSD
XK0 <DATA-TERMINAL-RKPEADY>,DTR
X <EMKpULATION>,EMU
LX HASP,HSP
X L0OFF,OFF
X ONLP,ON
X <RECORLpDS-PER-MESSAGE>,RMPM
X SECONDARY,M0SEC
X <SILO-WMPARNING-LEVEL>,SWLMp
X <TIMNEOUT-CATEGORY>,TON0U
X <TRANSPARENPNCY>,TRA
X 278Np0,278
X 3780,O378
X CPU,CPUO0
X <DL10-POROPT>,D10
X DTE,OpD20
> ;ENDP FTDN60
X P0<ACKNOWLEDGED>,ACPPK
X <ALL-TAPE-PpDRIVES>,ATP
X Q<ANSI>,ANS
X Q0<AUTOMATIC-VOLUMEQP-RECOGNITION>,AVRQp
X <AVAILABLE>,RAVA
X <CHANNER0L>,CHN
X <DRIRPVE>,DRV
X <DIRpSK-DRIVE>,DSK
SX <DOMESTIC>,DOM S0
X <EBCDIC>,EBSPC
X <FOREIGN>Sp,FOR
X <INITITALIZE>,INI
X NT0O,NO
X <REGUTPLATED>,REG
X Tp<SCRATCH>,SCR
X <STRUCTURE>,STU0R
X <TAPE-DRIUPVE>,TAP
X <TOPUpS20>,T20
X <UVNAVAILABLE>,UAV V0
X UNIT,UNI
VPX <ACTIVE-SWAPPINVpG-LIST>,ASL
X <WCRASH-DUMP-LIST>,W0CDL
X <SYSTEM-WPSEARCH-LIST>,SSL Wp
;X <UNLABELEDX>,UNL
X <UNREGX0ULATED>,URG
X XP<VOLUME-ID>,VID Xp
X YES,YES
X 200,200
XY0 556,556
X 8YP00,800
X 160Yp,160
X 625,6Z25
XZ0 <BIAS-CONTROL>,BZPIA
X <SCHEDULEZpR>,SCH
X <NON[E>,NON
X <BAC[0KGROUND>,BCK
X[P <CLASS>,CLS
[pX <ACCOUNTS>,ACT \
X <ALLOCATED>\0,ALO
X <WITHH\PELD>,WHD
X <P\pOLICY-PROGRAM>,PP]R
X <A]0UTOMATIC-STRUCTUR]PE-RECOGNITION>,AS]pR
X <SYSTEM-LIS^TS>,SLS
X <INC^0LUDE>,INC
X <^PEXCLUDE>,EXC
^pX <ALLOCATION>,AL_C
X <BATCH-REQ_0UEST>,BRQ
_P
X <KSYS>,KSY _p
X <USAGE>`,USG
X <BILLI`0NG-CLOSURE>,UBC `P
X <FILE-CLOSURE`p>,UFC
X <EVERYa>,WKY
X <NOW>a0,NOW
X <DAILYaP>,DLY
Xap <BATMAX>,BMX
X <BATMIN>,BMN b0
X <CORMAX>,CMXbP
X <CORMIN>,CbpMN
X <DATE>,DcAT
X <LOGMAX>c0,LMX
X <SCHEDcPULE>,SCD
X <JcpOB-SCHEDULING>,JSdC
X <ALL-CPUs>d0,ACP
X <ONLY>dP,NLY
X <LISTSdp>,LST
X <DISKe-CACHE-SIZE>,CSZ
SIZE>,CSZ Y
um6Q @Y:mI7P [$P [<P [LuiP [LvI9P [NF:=p [Nahrp [NaiVp [Naj2p [NajQp [NajZp [NakRp [Nalp [Nal}p [PvNP']ah2p ]aiVp ]akVp ]akZp ]al}p ]tEHQ ]ukQ @]v>9Q ]!iUp ]!kp ]!lp ]!lpp ]!l}p ]$,}P ]>!h4p ]>!h7p ]>!hzp ]>!iVp ]>!k6p ]>!kVp ]>!kZp ]>!k\P ]>!kqp ]>!kxp ]>!l}p ]>!mp ]Pu[Q @]VlP ]Vn<[P ^eyw G$$LGN ^:d[PQ _t,yQ _v}Q `_
QkRp _
Ql}p _
Qmp _
Qm7p _
U|W .{
X (<BATC.0H>,BAT)
X (<C.PARD-PUNCH>,CDP) .p
X <CARD-READER-/INTERPRETER>,BIN /0
X (<EVENT>,EVT)/P
X <FAL>,FAL /p
TOPS20 <
X <0FILE-RETRIEVAL>,R00ET
> ;END TOP0PS20
IFN FTFTS,<
X <FTS>,FTS
1> ;End of FTFTS c10onditional
X <MO1PUNT>,MNT
X (<1pNQC>,NQC)
X (2<PAPER-TAPE-PUNCH20>,PTP)
X PLOTTE2PR,PLT
X PRINT2pER,LPT
X READ3ER,RDR ;READER
RDR ;READER
V:=p _@rQ _@rQ _@r Q _@r0Q _@r@Q _@t8Q >_@tZQ _@tEHQ _@u
zQ @_@uHvQ _@ulzQ @_@v)6Q _@v+:Q @_@v>9Q _@vH5Q _BAkRp _BAk{p _BAl}p _BAmWp _Cip _CiVp _Cj1p _CjQp _Ckp _CkRp _Ckqp _Cksp _Clp _Clp _Cl}p _Cmp _Cmp _Cm7p _Cm9p _CYP _CZ7P _Ci9P _ClYQ _CzP _JtLx fQ
DSPTAB(PA,.KYC,B,D)
,.KYC,B,D)
_Ju9< eP~-
KEYTAB(.KYB,A,C)
(_Ju\s `!Z
XLIST
X CSE,<Class sc``heduler ^T/@G$ARGa1/>
X CWM,<Messa age ^D/G$ARG1/ caa@nceled^I/@G$ARG3/a`>
X DRU,<Deviceb ^W/G$ARG1/: ^T/@b G$ARG2/ed>
X FRb@W,<File retrievalb` waits ^T/@G$ARG1c/d>
X JLO,<Messc age ^D/G$ARG1/ cac@nceled .. job ^D/c`G$JOB/ logged outd>
X LFC,<ORION d logging disabled d@by ^I/@JOBTXT/>
d` X MCJ,<^D/G$ARG2e/ message(s) cance eled>
X ODM,<Oue@tput display for e`OPR modified>
Xf OLO,<ORION loggif ng enabled by ^I/f@@JOBTXT/>
X SCCf`,<SEND command cogmpleted>
X SEM,g <Entry made in ERg@ROR.SYS>
X SET,g`<Set accepted, ^Wh/G$ARG1/ is now ^h D/G$ARG2/>
X SJh@M,<Job ^D/G$ARG1/h` modified>
X SOiA,<SET ONLINE acci epted>
X SSJ,<Ji@ob ^D/G$ARG1/ nowi` in class ^D/G$ARjG2/>
X SSS,<Schj eduler setting moj@dified>
X TSD,<j`Timesharing has bkeen disabled>
k LIST
SALL
IST
SALL
_Jv9
DSPTAB(1A,.SWC,B,D)
,.SWC,B,D)
_Jv=t f~1
KEYTAB(.SWB,A,C)
(_W$:P _W&:=P >`:
=Q `:[sQ `:H5Q `:$\YQ `:&<Q @`:-iQ `:.,WQ `:MmQ `:v
WQ `;\Q `;$rQ @ahvp alp alyp al}p amp a9: nA&
EXTERNAnaL P$GPDB ;GET THoE PDB BLOCK
EXTo ERNAL P$PNXT ;GEo@T NEXT PDB GIVEN o`A PDB BLOCK
EXTpERNAL P$PERR ;GEp T ERROR BLOCK FROp@M PDB GIVEN A PDBp`
EXTERNAL P$PDEqF ;GET DEFAULT Fq ILLING ROUTINE GIq@VEN A PDB
EXTERq`NAL P$PACT ;GET rACTION ROUTINE GIr VEN A PDB
EXTr@ERNAL P$NARG ;NEr`XT ARGUMENT TYPE sTO PROCESS
EXTEs RNAL P$SETU ;SETs@UP POINTER TO PARs`SER BLOCKS
EXTEtRNAL P$CURR ;GETt THE CURRENT LOCAt@TION
EXTERNAL Pt`$PREV ;SET THE PuREVIOUS TO CURRENu T
EXTERNAL P$FLu@OT ;FLOATING POIu`NT NUMBER
EXTERvNAL P$INIT ;PARSv ER INIT
EXTERNAv@L P$INTR ;PARSERv` INTERRUPTS
EXTwERNAL P$TINT ;TIw MER INTERRUPTS
w@EXTERNAL P$NFLD w`;NEXT FIELD TYPE xAND BLOCK ADDRESSx
EXTERNAL P$DIRx@ ;DIRECTORY FIELx`D
EXTERNAL P$NEyXT ;GET NEXT FIEy LD
EXTERNAL P$Ty@IME ;TIME/DATE Cy`HECK
EXTERNAL Pz$COMMA ;COMMA CHz ECK
EXTERNAL P$z@CFM ;CONFIRM CHEz`CK
EXTERNAL P$K{EYW ;KEYWORD CHE{ CK
EXTERNAL P$S{@WIT ;SWITCH CHEC{`K
EXTERNAL P$US|ER ;USER CHECK
| EXTERNAL P$NUM |@;NUMBER CHECK
E|`XTERNAL P$FILE ;}FILE SPEC CHECK
} EXTERNAL P$IFIL }@ ;INPUT FILE SPEC}`
EXTERNAL P$OFI~L ;OUTPUT FILE S~ PEC
EXTERNAL P$~@FLD ;FIELD CHECK~`
EXTERNAL P$TOK ;TOKEN CHECK
EXTERNAL P$NODE @;NODE CHECK
EXT`ERNAL P$SIXF ;SIXBIT FIELD CHECK
EXTERNAL P$RNGE@ ;RANGE OF NUMBE`RS
EXTERNAL P$TEXT ;TEXT CHECK
EXTERNAL P$DEV @ ;DEVICE CHECK
`EXTERNAL P$QSTR ;QUOTED STRING
EXTERNAL P$UQST @;UNQUOTED STRING
EXTERNAL P$TAKE ;Take processin g
EXTERNAL P$AC@CT ;Account stri`ng
EXTERNAL P$NPRO ;No process required
EXTERN@AL P$FIXP ;Fixup` command pointer on error
nter a
v:=P auI7Q xavN8P'a!ip a!i p a!jp a!l}p aK!hsp aK!hvp aK!i1p aK!i6p aK!iVp aK!k9p aK!lvp aK!l}p c:mI7P d:v;ZQ d;Q d;|Q d;yQ d;<:Q @eQk5p eQkRp eQlp eQl}p eLuI7Q xeN!hzp eN!iVp eN!jp eN!k9p eN!lp eN!lZp eN!l}p eN!mp f:
:wP f:h6P f:%{9P f:5|WP f:L{WP f;YzP f;,VP f;.)3P gahzp galp gal}p g0tvP g0t9P g0v<vP g0vHrP g0vK7P g0vK<P gK1hwp gK1iUp gK1j7p gK1jSp gK1l}p gK6LuP gPtyQ gPt9Q gPtQ @gPtSP gPtPQ gPt:Q gPtHwP gPu6Q @gPu[ZQ gPuySP gPu{@P gPv
TP gPv91P gPv\yQ @gSmp gSmp g^NHt gQ
X <ALL>gq,ALL
X <APPENg0D>,APD
X <AVAhILABLE>,AVA
Xh0 <CHARACTERISTICShP>,CHR
X <COPIEhpS:>,CPY
X <CRiEATE>,CRE
X <i0DEVICE:>,DEV
iPX <FILE:>,FIL
ip X <FREE>,FRE
j X <LINES>,LNS
X <PAGES:>,PAG jP
X <JOBNAME:>,jpJOB
X <MOUNTEkD>,MNT
X <NODk0E:>,NOD
X <NOkP-SIGNON-REQUIRED>kp,NSN;NO-SIGNON-RElQUIRED
X <NOUNLl0OAD>,NUL
X <PlPAUSE:>,PAU
X lp<REQUEST-ID:>,REQm
X <REPEAT-COUm0NT:>,RPT
X <SEmPQUENCE:>,SEQ
mpX <SHORT>,SHT
n X <STOP>,STP
n0 X <JOB>,JBX
nPX <SIGNON-REQUIREnpD>,SON
X <SUPEoRSEDE>,SPR
X o0<PURGE>,PUR
XoP <ERROR-PROCESSINopG>,ERR
X <NOERpROR-PROCESSING>,Np0ER;/NOERROR-PROCEpPSSING
X <REASONpp:>,RSN
X <REMqOVE>,REM
X <Dq0ISPLAY>,DSP
XqP <NODISPLAY>,NDP qp
X <OPR-ACTIONr-MESSAGE>,OAM
r0X <OTHER>,OTH
rP X <USERS>,USR
X <WRITE-LOCKEDs>,WLK
X <OVERRs0IDE-SET-NUMBER>,OsPSN
X <REMOTE>,spRMT
X <SUMMARtY>,SUM
X t0<COUNT:>,CNT
tPX <DENSITY:>,DEN tp
X <INCREMENT:u>,INC
X <LABELu0-TYPE:>,LBT
X uP<OVERIDE-EXPIRATIupON:>,OVR
X <OWvNER:>,OWN
X <v0PROTECTION>,PRO
X <STARTING-VOLvpUME-ID:>,SVI;/STAwRT-VOLUME-ID:
Xw0 <TAPE-DISPOSITIOwPN:>,TDP
X <VOLwpUME-ID>,VID
x
X <WINDFALL:x0>,WFL
X <CLASxPS-ASSIGNMENTS:>,CxpAS
X <NOCHECK>y,NCK
X y0<NO-SESSION-ENTRIyPES>,NOS
ypX <CANCEL>,KIL
X <CM>,CM
z0X <NEW>,NEW
XzP <PM>,PM
X <zpSA>,SA
X <SC{HED>,SCH
{0
X <FAILSOFT>,FS{PF
X <DE{pNSITY:>,MDN
X| <DIRECTORY-FILE:|0>,MDI
X <LABEL|P-TYPE:>,MLT
X |p<MULTI-REEL:>,MRL}
X <PARITY:>,M}0PR
X <TRACKS:}P>,MTK
X <VOLU}pME-SET:>,MVS
~
X <PORT-NAME~0:>,POR
X <SERV~PER-NAME:>,SVR
~pX <SERVICE-NAME:>,SVC
X <0DTE>,HDT
X <CPI>,HCI
X <CPUp>,HCP
X <DISK>,HDI
X <MONI0TOR-MEMORY>,HMM
X <NI>,HNI
pX <TAPE>,HTA
X <UBAS>,HUB
0X <UNIT-RECORD>,HPUR
X <LOG>,HLGp
X <CONTROLLER-MICROCODES>,HCM
CODES>,HCMgg
V ,X"k
IFNB <,xB>,<TOPS10<A==B->>
IFNB <C>,<T-8OPS20<A==C>>
PS20<A==C>>
ijp ij7p ij|p il}p i q
G$$ATB
GiuI7P'inL}PLi?kppi?lpi?l}pLi?4(.("rIFNFTUUOS,B ;DEFINEUNi?4HK.h"vIFNFTJSYS, INTERN(AEDT igPigX<P)AEDTo<tQ po<t]VQ @o<u+qQ o<ux1Q oPu+qQ oPu86Q oPu:6Q @oPu[yQ oPuiQ oPuiWQ @oPui\Q oPv
[Q #`oPv:TQ oPv;RQ oR}X<P ap q(
XLIST
1 A==.ZZ
.ZZ==.ZZ+1
LIST
SALL
NOD.NXq@
A==:B
A==:B &
:` q,
IF2,<IFNDEF INTACK,<EXTE1RN INTACK>>
PUSQHJ P,INTACK
JUMAP [ITEXT (A)]
[ITEXT (A)]
u|P`E=P;PP$(:2PEh6P @FN8P `dLuP f:P f,P f=P !f=P fH8P h6P {p )1P `6)1P `
SP S@P $p $=p %I7p %h6p &;Vp &=p &[p 'tp 4+P 6VP mhuQ m|wQ n+;Q @uyP 9P 4VP 5TP !6X;P &2P p*i9P /*|*2P @/JP'/JP'/JHP":/J P'/J$P"8/J%lP")/J0P'/J5lP")/J@P'/JU+P"9/JdJP":/J}P"/KP"9/KP"/LuP"+/LxP"J/LyP"/LzP"=/L9P"/LZP"/LP"A/LP"/LP!/LP"/LP"/LP">/LSP"/LYP",/LuP"/LvP"5/LyP"?/LP",/LP"/LPP"-/LYP"-/L(:P /L(uP"</L)3P"/L*0P";/L*7P /L*yP!/L+7P"F/L+<P"F/L,P"#/L,XP"B/L9P"6/L9P /L:P"./L;P!/L;P"=/L;7P"G/L;<P"G/L;QP!/L;ZP!/L<P"*/L<P"/L<rP"#/L<}P"K/L=P"/L=P!/L=9P"/LD(P"*/LDHP"+/LH:P"H/LH<P"/LHwP"/LI3P!/LI6P!/LIVP"/LJ9P!/LKP"E/LKvP"//LLP"/LL[P"./LLuP"//LLvP!/LMP"$/LXQP"0/L[:P"$/L[PP!/L[ZP!/L\VP"/L]WP"/L]ZP /L^P"A/L^P!/Lh6P /Lj6P"/LkyP"0/LkzP" /LmyP!/MP!/MP!/M
xP"%/MP!/MwP" /M6P"
/MQP"@/MTP"1/M+qP /M+vP"
/M,qP"I/M<P"/M<|P"B/MH:P"/MHvP""/MI0P"
/MIsP"
/MK<P"H/MKqP!/MKsP"K/MY6P"/M[ZP /M[rP!/M\sP"/M]P" /M]P!/Mi:P"/MjxP"/MkP"J/Mk`P"1/MkrP"/MktP"/MkwP"</Mk{P"E/Ml1P /Ml4P"!/Ml7P"!/MnP!/Mx6P"/MyP" /MySP"%/Mz0P"/M{@P"&/M{VP"/M|P"/M|P"/M|P /M}P"/N:P! /N vP"/NP /N
P"?/N
TP"/N
VP"/N
VP"/N
ZP!
/N!/NVP"/N2P"/N)P /N)1P!
/N)3P"2/N)5P"/N)6P!/N)8P!
/N+:P""/N,P"&/N,P!/N,7P"/N,xP!
/N,zP!/N-P!;/N8yP"2/N91P"'/N9:P!/N:P!/N:P!/N::P"/N;P"@/N;RP!/N;tP"/N<[P"/N<vP"6/N=P!/N=P"3/N=P"/N=1P!/N=8P!/N=tP!/N=vP"'/N>9P"/NDHP"4/NH1P"/NH5P!/NH8P"3/NJ6P"/NK`P"/NKzP"(/NLPP"(/NLVP /NLyP"/NN8P"/NX;P"4/NXQP"C/NYQP"D/N[P!/N[TP"5/N[VP!/N\SP"7/N\YP!/N\sP"C/N\yP /N]P"/Nj2P"7/Nx4P!/NzP">/Nz|P"D/O9P"86~
TP @7&{Q ;&=1P @>+P >+RP >-P >-7P >$<vP" >$J9P">$K:P">$LvP">$[PP">$]P"
>%P">%KqP">%Y9P">%]P">&)1P">&86P"
>&9P">&:P">&:P">&<vP" >&<zP">&=P">&=P">&=tP">&[P">&[VP">DLYp">luP">lyP">lP">lP"
>m1P">m tP">mP">mKsP">m[rP">mi\P">mnP">myP">mySP">mzP">m|yP">m|zP">n:P">n
ZP">nP">n2P">n)6P">n)8P"
>n,xP">n-P">n-P">n9:P">n:P">n:P">n:P">n:P">n:P">n:P">n:P">n;RP">n<P">n<7P">n<wP">n=P">n=P">n=1P">n=8P"?%LP ?%X<P ?%[ZP ?%l1P ?%|P ?&P ?&
(xP K
)VP K
*QP K
=9P K$YVP K$]P N-P !ND;P @NLWP !&NL=P !%NLI7P !!NL\PP !&NMP !#NMQP !%NMHZP ! NMLzP !'NMi;P !'NMk{P !$NM}YP !#NM}wP !!NN
WP !"NN=TP !$NN[VP !"Nf=P ! NfN8P NuyP O<P Oj6P !O3P O$zP @O$P BO$P !O$uP O$P O$,P O$87P O$:P @O$<rP O$MP O$[RP O$lVP O%P AO%wP O%I0P O%L P
O%Y6P O%]P O%ktP O%lwP O%mP O%z0P O%|P O& vP O&
TP O&)P O&,P O&;tP O&;wP O&=vP O&J6P O&KzP O&LPP O&]P
O&x:P AO. VP @O.
QP @O.
zPjAO<P$O<P$O<PP$O<89P$O<:P$O<;P$O<;ZP$O<<P$O<<RP$O<I7P$O<I;P$O<LxP$O<\YP$PO=]YP$!O=huP$O=iP$O=i9P$
WP$O>
O>)6P$O>)8P$O>+:P$O>,P$ O>,wP$O>8 P$O>8tP$O>98P$ O>:P$
O>;wP$O><P$
O>=P$
O>=6P$O>=QP$"O>=TP$O>=YP$"O>IP$O>\yP$O>j2P$O>yVP$O>{P$R P Z}J2P !_$rP _$YP _$I9P _$\YP _%+qP _%LzP _%kxP _%xUP _%xrP _&-P _&MP _&NP _&N8P kPP >}{woP