kjodle/Apollo-11
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Proof RESTART_TABLES(#252) (#376)

Browse Source 
* Proof P76

* 1) comma instead of period
2) -- to -
3) remove space after comma

* Proof RESTART_TABLES
This commit is contained in:
cai 2019-03-28 00:09:45 +08:00 committed by James Harris
parent 50d977a891
commit df1dd7cf58
1 changed files with 27 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
Comanche055/RESTART_TABLES.agc
View File

@ -40,7 +40,7 @@
# EACH USING THREE LOCATIONS. THE INFORMATION AS TO WHETHER IT IS A JOB, WAITLIST, OR A LONGCALL IS GIVEN BY THE
# WAY THINGS ARE PUT INTO THE TABLES.
#
# A JOB HAS ITS PRIORITY STORED IN A PRDTTAB OF THE CORRECT PHASE SPOT -- A POSITIVE PRIORITY INDICATES A
# A JOB HAS ITS PRIORITY STORED IN PRDTTAB OF THE CORRECT PHASE SPOT - A POSITIVE PRIORITY INDICATES A
# FINDVAC JOB, A NEGATIVE PRIORITY A NOVAC. THE 2CADR OF THE JOB IS STORED IN THE CADRTAB.
# FOR EXAMPLE,
#
@ -76,7 +76,7 @@
# TASK. EXAMPLES,
#
# OCT 77777 # THIS WILL CAUSE AN IMMEDIATE RESTART
# -2CADR ATASK # OF THE TASK "ATASK"
# -2CADR ATASK # OF THE TASK :ATASK:
#
# DEC 200 # IF THE TIME OF THE 2 SECONDS SINCE DUMMY
# -2CADR DUMMY # WAS PUT ON THE WAITLIST IS UP, IT WILL BEGIN
@ -112,7 +112,7 @@ SIZETAB TC 1.2SPOT -12006
TC 6.3SPOT -12004
1.2SPOT EQUALS 3.2SPOT
# ANY MORE GROUP 1.EVEN RESTART VALUES SHOULD GO HERE.
# ANY MORE GROUP 1.EVEN RESTART VALUES SHOULD GO HERE
1.3SPOT DEC 120 # THIS NUMBER MUST BE EQUAL C(JTAGTIME)
EBANK= AOG
@ -130,7 +130,7 @@ SIZETAB TC 1.2SPOT -12006
EBANK= ESTROKER
2CADR PIKUP20
# ANY MORE GROUP 1.ODD RESTART VALUES SHOULD GO HERE.
# ANY MORE GROUP 1.ODD RESTART VALUES SHOULD GO HERE
2.2SPOT EQUALS 1.2SPOT
@ -158,7 +158,7 @@ SIZETAB TC 1.2SPOT -12006
EBANK= MRKBUF2
2CADR REDOR22
# ANY MORE GROUP 2.ODD RESTART VALUES SHOULD GO HERE.
# ANY MORE GROUP 2.ODD RESTART VALUES SHOULD GO HERE
3.2SPOT EQUALS 4.2SPOT
@ -171,7 +171,6 @@ SIZETAB TC 1.2SPOT -12006
3.5SPOT DEC 0
DEC 0
DEC 0
3.7SPOT OCT 22000
EBANK= TEPHEM
2CADR MATRXJOB
@ -242,7 +241,7 @@ SIZETAB TC 1.2SPOT -12006
# Page 215
2CADR COMPVER # CALLS FOR OPTICS DATA AGAIN (STD LEADIN)
4.17SPOT OCT 16000
4.17SPOT OCT 16000 # PRELAUNCH AZIMUTH CHANGE
EBANK= XSM
2CADR AZMTHCG1
@ -250,7 +249,6 @@ SIZETAB TC 1.2SPOT -12006
-GENADR TIGBLNK # LONG CALL OF TIGBLNK BY P40,P41
EBANK= P40TMP
BBCON TIGBLNK
4.23SPOT OCT 12000 # PROTECT P40S/SV BY P40 P41
EBANK= TIG
2CADR P40S/SV
@ -292,7 +290,7 @@ SIZETAB TC 1.2SPOT -12006
# Page 216
2CADR S61.1A -1
4.47SPOT OCT 17000 # PROTECT HUNTEST ITERATION
4.47SPOT OCT 17000 # PROTECT HUNTEST ITERATION.
EBANK= AOG
2CADR PRE-HUNT
@ -413,7 +411,6 @@ SIZETAB TC 1.2SPOT -12006
5.31SPOT DEC 0
DEC 0
DEC 0
5.33SPOT OCT 20000
EBANK= XSM
2CADR RESCHNG
@ -466,7 +463,6 @@ SIZETAB TC 1.2SPOT -12006
# PROGRAM DESCRIPTION: NEWPHASE DATE: 11 NOV 1966
# MOD: 1 ASSEMBLY: SUNBURST REV
# MOD BY: COPPS LOG SECTION: PHASE TABLE MAINTENANCE
#
# FUNCTIONAL DESCRIPTION:
#
# NEWPHASE IS THE QUICK WAY TO MAKE A NON VARIABLE PHASE CHANGE. IT INCLUDES THE OPTION OF SETTING
@ -494,7 +490,6 @@ SIZETAB TC 1.2SPOT -12006
# (L+9) PHASE5
#
# CALLING SEQUENCE:
#
# EXAMPLE IS FOR PLACING A PHASE OF FIVE INTO GROUP THREE:
#
# 1) IF TBASE IS NOT TO BE SET:
@ -530,7 +525,6 @@ SIZETAB TC 1.2SPOT -12006
NEWPHASE INHINT
TS L # SAVE FOR FURTHER USE
NDX Q # OBTAIN THE GROUP NUMBER
CA 0
INCR Q # OBTAIN THE RETURN ADDRESS
@ -543,15 +537,12 @@ NEWPHASE INHINT
NUFAZ+10 INCR A # SET TBASE AND STORE PHASE CORRECTLY
TS L
CS TIME1 # SET TBASE
NDX TEMPG
TS TBASE1 -2
CS L # NOW PUT THE PHASE IN THE RIGHT TABLE LOC
NDX TEMPG
DXCH -PHASE1 -2
RELINT
TC Q # NOW RETURN TO CALLER