Poof read and fixed minor typos
parent
9de167ee9e
commit
b4ed0f993e
|
@ -49,7 +49,7 @@ RESTARTS CA MPAC +5 # GET GROUP NUMBER -1
|
|||
|
||||
GETPART2 CCS TEMPPHS # IS IT AN X.1 RESTART
|
||||
CCS A
|
||||
TCF ITSATBL # NO, IT'S A TABLE RESTART
|
||||
TCF ITSATBL # NO, ITS A TABLE RESTART
|
||||
|
||||
CA PRIO14 # IT IS AN X.1 RESTART, THEREFORE START
|
||||
TC FINDVAC # THE DISPLAY RESTART JOB
|
||||
|
@ -67,17 +67,17 @@ ITSAVAR MASK OCT1400 # IS IT TYPE B ?
|
|||
DCA PHSNAME1
|
||||
DXCH GOLOC
|
||||
|
||||
CA TEMPPHS # SEE IF THIS IS A JOB, TASK, OR A LONGCALL
|
||||
CA TEMPPHS # SEE IF THIS IS A JOB, TASK, OR A LONGCAL
|
||||
MASK OCT7
|
||||
AD MINUS2
|
||||
CCS A
|
||||
TCF ITSLNGCL # IT'S A LONGCALL
|
||||
TCF ITSLNGCL # ITS A LONGCALL
|
||||
|
||||
RTRNCADR TC SWRETURN # CAN'T GET HERE.
|
||||
RTRNCADR TC SWRETURN # CANT GET HERE
|
||||
# Page 1304
|
||||
TCF ITSAWAIT
|
||||
|
||||
TCF ITSAJOB # IT'S A JOB
|
||||
TCF ITSAJOB # ITS A JOB
|
||||
|
||||
ITSAWAIT CA WTLTCADR # SET UP WAITLIST CALL
|
||||
TS GOLOC -1
|
||||
|
@ -152,12 +152,12 @@ ITSLIKEB CA RTRNCADR # TYPE B, SO STORE RETURN IN
|
|||
|
||||
ITSAJOB NDX TEMP2G # NOW ADD THE PRIORITY AND LET'S GO
|
||||
CA PHSPRDT1
|
||||
CHKNOVAC TS GOLOC -1 # SAVE PRIO UNTIL WE SEE IF IT'S
|
||||
CHKNOVAC TS GOLOC -1 # SAVE PRIO UNTIL WE SEE IF ITS
|
||||
EXTEND # A FINDVAC OR A NOVAC
|
||||
BZMF ITSNOVAC
|
||||
|
||||
CAF FVACCADR # POSITIVE, SET UP FINDVAC CALL.
|
||||
XCH GOLOC -1 # PICK UP PRIO
|
||||
XCH GOLOC -1 # PICK UP PRIO,
|
||||
TC GOLOC -1 # AND GO
|
||||
|
||||
ITSNOVAC CAF NOVACADR # NEGATIVE,
|
||||
|
@ -192,7 +192,7 @@ CONTBL2 EXTEND # FIND OUT WHAT'S IN THE TABLE
|
|||
TCF ITSAJOB2
|
||||
|
||||
INCR A # MUST BE EITHER A WAITLIST OR LONGCALL
|
||||
TS GOLOC # LET'S STORE THE CORRECT CADR
|
||||
TS GOLOC # LET-S STORE THE CORRECT CADR
|
||||
|
||||
CA WTLTCADR # SET UP OUR EXIT TO WAITLIST
|
||||
TS GOLOC -1
|
||||
|
@ -252,7 +252,7 @@ ITSLGCL2 DXCH LONGTIME
|
|||
TCF IMEDIATE -3
|
||||
CCS LONGTIME +1
|
||||
TCF LONGCLCL
|
||||
NOOP # CAN'T GET HERE ************
|
||||
NOOP # CAN'T GET HERE *********
|
||||
TCF IMEDIATE -3
|
||||
TCF IMEDIATE
|
||||
|
||||
|
@ -303,7 +303,7 @@ PHSPART2 CA THREE # SET THE POINTER FOR THE SECOND HALF OF
|
|||
ADS POINTER # THE TABLE
|
||||
|
||||
CA RTRNCADR # THIS WILL BE OUR LAST TIME THROUGH THE
|
||||
TS GOLOC +2 # EVEN TABLE, SO AFTER IT GET THE NEXT
|
||||
TS GOLOC +2 # EVEN TABLE , SO AFTER IT GET THE NEXT
|
||||
# GROUP
|
||||
TCF CONTBL2 # SO LET'S GET THE SECOND ENTRY IN THE TBL
|
||||
|
||||
|
|
Loading…
Reference in New Issue