Fix YaYUL Fatal Errors in Luminary099 (#665)
This commit is contained in:
@ -82,7 +82,7 @@ READACCS CS OCT37771 # THIS PIECE OF CODING ATTEMPTS TO
|
||||
CS ONE # OCCUR APPROXIMATELY 70 MILLISECONDS
|
||||
TCF +2 # FOLLOWING THE READACCS RUPT. THE 70 MS
|
||||
CA ONE # OFFSET WAS CHOSEN SO THAT THE PAXIS
|
||||
+2 ADS TIME5 # RUPT WOULD NOT OCCUR SIMULTANEOUSLY
|
||||
+2 ADS TIME5 # RUPT WOULD NOT OCCUR SIMULTANEOUSLY
|
||||
# WITH ANY OF THE 8 SUBSEQUENT R10,R11
|
||||
# INTERRUPTS -- THUS MINIMIZING THE POSS-
|
||||
# IBILITY OF LOSING DOWNRUPTS.
|
||||
@ -410,7 +410,7 @@ SERVIDLE EXTEND # DISCONNECT SERVICER FROM ALL GUIDANCE
|
||||
DCA NEG0
|
||||
DXCH -PHASE2
|
||||
|
||||
+4 EXTEND
|
||||
+4 EXTEND
|
||||
DCA NEG0
|
||||
DXCH -PHASE3
|
||||
|
||||
@ -424,7 +424,7 @@ SERVIDLE EXTEND # DISCONNECT SERVICER FROM ALL GUIDANCE
|
||||
DXCH -PHASE4
|
||||
|
||||
TCF WHIMPER # PERFORM A SOFTWARE RESTART AND PROCEED
|
||||
# TO GOTOP00H WHILE SERVICER CONTINUES TO
|
||||
# TO GOTOPOOH WHILE SERVICER CONTINUES TO
|
||||
# RUN, ALBEIT IN A GROUND STATE WHERE
|
||||
# ONLY STATE-VECTOR DEPENDENT FUNCTIONS
|
||||
# ARE MAINTAINED.
|
||||
@ -490,8 +490,8 @@ NORMLIZ2 CA EIGHTEEN
|
||||
TC ENDOFJOB
|
||||
|
||||
COPYCYC CA OCT24 # DEC 20
|
||||
+1 INHINT
|
||||
+2 MASK NEG1 # REDUCE BY 1 IF ODD
|
||||
+1 INHINT
|
||||
+2 MASK NEG1 # REDUCE BY 1 IF ODD
|
||||
TS ITEMP1
|
||||
EXTEND
|
||||
INDEX ITEMP1
|
||||
@ -543,7 +543,7 @@ PIPASR EXTEND
|
||||
# Page 870
|
||||
DCA TIME2
|
||||
DXCH PIPTIME1 # CURRENT TIME POSITIVE VALUE
|
||||
+3 CS ZERO # INITIALIZE THESE AT NEG. ZERO.
|
||||
+3 CS ZERO # INITIALIZE THESE AT NEG. ZERO.
|
||||
TS TEMX
|
||||
TS TEMY
|
||||
TS TEMZ
|
||||
@ -1344,7 +1344,7 @@ USEVF INDEX VSELECT*
|
||||
CA LRWVFZ # USE APPROPRIATE CONSTANT WEIGHT
|
||||
TCF WSTOR
|
||||
|
||||
-1 CA ZERO
|
||||
-1 CA ZERO
|
||||
WSTOR TS MPAC
|
||||
CS BIT7 # (=64D)
|
||||
AD MODREG
|
||||
@ -1355,7 +1355,7 @@ WSTOR TS MPAC
|
||||
CA LRWVFF
|
||||
TS MPAC
|
||||
|
||||
+3 CA EBANK7
|
||||
+3 CA EBANK7
|
||||
TS EBANK # CHANGE EBANKS
|
||||
|
||||
EBANK= ABVEL
|
||||
@ -1636,12 +1636,12 @@ POSGOOD CA PRIO23 # REDUCE PRIORITY FOR INTERPRETIVE COMPS.
|
||||
POSALARM CA OCT523
|
||||
TC BANKCALL
|
||||
CADR PRIOLARM # FLASH ALARM CODE
|
||||
TCF GOTOP00H # TERMINATE
|
||||
TCF GOTOPOOH # TERMINATE
|
||||
TCF +3 # PROCEED -- TRY AGAIN
|
||||
TCF ENDOFJOB # V 32 E TERMINATE R12
|
||||
TC ENDOFJOB
|
||||
|
||||
+3 CA BIT7 # SEE IF IN POS2 YET
|
||||
+3 CA BIT7 # SEE IF IN POS2 YET
|
||||
EXTEND
|
||||
RAND CHAN33
|
||||
EXTEND
|
||||
|
Reference in New Issue
Block a user