Trim whitespace
This commit is contained in:
@ -23,7 +23,7 @@
|
||||
# Notations on the hardcopy document read, in part:
|
||||
#
|
||||
# Assemble revision 055 of AGC program Comanche by NASA
|
||||
# 2021113-051. 10:28 APR. 1, 1969
|
||||
# 2021113-051. 10:28 APR. 1, 1969
|
||||
#
|
||||
# This AGC program shall also be referred to as
|
||||
# Colossus 2A
|
||||
@ -62,7 +62,7 @@ TCQ = Q+2 +1
|
||||
BANK
|
||||
|
||||
COUNT 10/PHASE
|
||||
|
||||
|
||||
SETUPDSP INHINT
|
||||
DXCH RUPTREG1 # SAVE CALLER'S RETURN 2CADR
|
||||
CAF PRIO30 # EITHER A TASK OR JOB CAN COME TO
|
||||
@ -196,7 +196,7 @@ DSPMMJOB EQUALS DSPMMJB
|
||||
# AD+4 # FOR GROUP 5 PHASE INFORMATION.
|
||||
|
||||
COUNT 02/PHASE
|
||||
|
||||
|
||||
2PHSCHNG INHINT # THE ENTRY FOR A DOUBLE PHASE CHANGE
|
||||
NDX Q
|
||||
CA 0
|
||||
@ -221,7 +221,7 @@ DSPMMJOB EQUALS DSPMMJB
|
||||
PHASCHNG INHINT
|
||||
CA ONE # INDICATES CAME FROM A PHASCHNG ENTRY
|
||||
TS TEMPSW2
|
||||
|
||||
|
||||
NDX Q
|
||||
CA 0
|
||||
INCR Q
|
||||
@ -304,7 +304,7 @@ BB EQUALS BBANK
|
||||
|
||||
EBANK= PHSNAME1
|
||||
COUNT 10/PHASE
|
||||
|
||||
|
||||
PHSCHNG2 LXCH TEMPBBCN
|
||||
CA TEMPSW
|
||||
MASK OCT7
|
||||
@ -395,12 +395,12 @@ CON2 LXCH TEMPBBCN
|
||||
BANK
|
||||
|
||||
COUNT 02/PHASE
|
||||
|
||||
|
||||
CHECKB MASK BIT12 # SINCE THIS IS OF TYPE B, THIS BIT SHOULD
|
||||
CCS A # BE HERE IF WE ARE TO GET A NEW PRIORITY
|
||||
TCF GETPRIO # IT IS, SO GET NEW PRIORITY
|
||||
|
||||
TCF OLDPRIO # IT ISN'T, USE THE OLD PRIORITY.
|
||||
|
||||
|
||||
|
||||
|
||||
|
Reference in New Issue
Block a user