Fix YaYUL Fatal Errors in Luminary099 (#665)
This commit is contained in:
@@ -204,7 +204,7 @@ NEXTINCL INDEX CTLIST
|
||||
XCH CTLIST # SET CTLIST TO NEGATIVE AND PLACE(CODING)
|
||||
COM # UNCOMPLEMENTED DNADR INTO A. (FOR LA)
|
||||
XCH CTLIST # (ST IN )
|
||||
+4 INCR A # (CTLIST)
|
||||
+4 INCR A # (CTLIST)
|
||||
TS DNECADR # SAVE DNADR
|
||||
AD MINTIME2 # TEST FOR TIME2 (NEG. OF ECADR)
|
||||
CCS A
|
||||
@@ -212,8 +212,8 @@ NEXTINCL INDEX CTLIST
|
||||
MINB1314 OCT 47777 # MINUS BIT 13 AND 14 (CAN'T GET HERE)
|
||||
TCF SETWO +1 # DON'T SET WORD ORDER CODE
|
||||
SETWO TC WOZERO # GO SET WORD ORDER CODE TO ZERO.
|
||||
+1 CA DNECADR # RELOAD A WITH THE DNADR.
|
||||
+2 AD MINB1314 # IS THIS A REGULAR DNADR?
|
||||
+1 CA DNECADR # RELOAD A WITH THE DNADR.
|
||||
+2 AD MINB1314 # IS THIS A REGULAR DNADR?
|
||||
EXTEND
|
||||
BZMF FETCH2WD # YES. (A MUST NEVER BE ZERO)
|
||||
AD MINB12 # NO. IS IT A POINTER (DNPTR) OR A
|
||||
@@ -310,7 +310,7 @@ NEXTINSL INDEX SUBLIST
|
||||
TS SUBLIST # SAVE A.
|
||||
CA NEGONE # SET SUBLIST TO MINUS
|
||||
XCH SUBLIST # RETRIEVE A.
|
||||
+4 INCR A
|
||||
+4 INCR A
|
||||
TS DNECADR # SAVE DNADR
|
||||
TCF SETWO +2 # GO USE COMMON CODING (PROLEMS WOULD
|
||||
# OCCUR IF THE PROGRAM ENCOUNTERED A
|
||||
@@ -392,7 +392,7 @@ SUBLIST EQUALS DNQ
|
||||
# Page 996
|
||||
DNDUMPI CA ZERO # INITIALIZE DOWNLINK
|
||||
TS DUMPLOC # ERASABLE DUMP
|
||||
+2 TC SENDID # GO SEND ID AND SYNCH BITS
|
||||
+2 TC SENDID # GO SEND ID AND SYNCH BITS
|
||||
CA LDNDUMP1 # SET DNTMGOTO
|
||||
TS DNTMGOTO # TO LOCATION FOR NEXT PASS
|
||||
CA TIME1 # PLACE TIME1
|
||||
|
Reference in New Issue
Block a user