559 lines
12 KiB
Plaintext
559 lines
12 KiB
Plaintext
![]() |
# Copyright: Public domain.
|
||
|
# Filename: RESTART_TABLES.agc
|
||
|
# Purpose: Part of the source code for Comanche, build 055. It
|
||
|
# is part of the source code for the Command Module's
|
||
|
# (CM) Apollo Guidance Computer (AGC), Apollo 11.
|
||
|
# Assembler: yaYUL
|
||
|
# Reference: pp. 211-221
|
||
|
# Contact: Ron Burkey <info@sandroid.org>,
|
||
|
# Fabrizio Bernardini <fabrizio@spacecraft.it>
|
||
|
# Website: http://www.ibiblio.org/apollo.
|
||
|
# Mod history: 2009-05-16 FB Transcription Batch 2 Assignment.
|
||
|
# 2009-05-20 RSB Added a missing comment mark. Corrected mismarked
|
||
|
# Page 217 -> 220.
|
||
|
# 2009-05-21 RSB Fixed value of 5.21SPOT.
|
||
|
#
|
||
|
# The contents of the "Comanche055" files, in general, are transcribed
|
||
|
# from scanned documents.
|
||
|
#
|
||
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||
|
# 2021113-051. April 1, 1969.
|
||
|
#
|
||
|
# This AGC program shall also be referred to as Colossus 2A
|
||
|
#
|
||
|
# Prepared by
|
||
![]() |
# Massachusetts Institute of Technology
|
||
![]() |
# 75 Cambridge Parkway
|
||
|
# Cambridge, Massachusetts
|
||
|
#
|
||
|
# under NASA contract NAS 9-4065.
|
||
|
#
|
||
|
# Refer directly to the online document mentioned above for further
|
||
|
# information. Please report any errors to info@sandroid.org.
|
||
|
|
||
|
# Page 211
|
||
|
# RESTART TABLES
|
||
|
# --------------
|
||
|
#
|
||
|
# THERE ARE TWO FORMS OF RESTART TABLES FOR EACH GROUP. THEY ARE KNOWN AS THE EVEN RESTART TABLES AND THE ODD
|
||
|
# RESTART TABLES. THE ODD TABLES HAVE ONLY ONE ENTRY OF THREE LOCATIONS WHILE THE EVEN TABLES HAVE TWO ENTRIES
|
||
|
# 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 IN TO THE TABLES.
|
||
|
#
|
||
|
# A JOB HAS ITS PRIORITY STORED IN A 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,
|
||
|
#
|
||
|
# 5.7SPOT OCT 23000
|
||
|
# 2CADR SOMEJOB
|
||
|
#
|
||
|
# A RESTART OF GROUP 5 WITH PHASE SEVEN WOULD THEN CAUSE SOMEJOB TO BE RESTARTED AS A FINDVAC WITH PRIORITY 23.
|
||
|
#
|
||
|
# 5.5SPOT OCT -23000
|
||
|
# 2CADR ANYJOB
|
||
|
#
|
||
|
# HERE A RESTART OF GROUP 5 WITH PHASE 7 WOULD CAUSE ANYJOB TO BE RESTARTED AS A NOVAC WITH PRIORITY 23.
|
||
|
# A LONGCALL HAS ITS GENADR OF ITS 2CADR STORED NEGATIVELY AND ITS BBCON STORED POSITIVELY. IN ITS PRDTTAB IS
|
||
|
# PLACED THE LOCATION OF A DP REGISTER THAT CONTAINS THE DELTA TIME THAT LONGCALL HAD BEEN ORIGINALLY STARTED
|
||
|
# WITH. EXAMPLE,
|
||
|
#
|
||
|
# 3.6SPOT GENADR DELTAT
|
||
|
# -GENADR LONGTASK
|
||
|
# BBCON LONGTASK
|
||
|
|
||
|
# OCT 31000
|
||
|
# 2CADR JOBAGAIN
|
||
|
#
|
||
|
# THIS WOULD START UP LONGTASK AT THE APPROPRIATE TIME, OR IMMEDIATELY IF THE TIME HAD ALREADY PASSED. IT SHOULD
|
||
|
# BE NOTED THAT IF DELTAT IS IN A SWITCHED E BANK, THIS INFORMATION SHOULD BE IN THE BBCON OF THE 2CADR OF THE
|
||
|
# TASK. FROM ABOVE, WE SEE THAT THE SECOND PART OF THIS PHASE WOULD BE STARTED AS A JOB WITH A PRIORITY OF 31.
|
||
|
#
|
||
|
# WAITLIST CALLS ARE IDENTIFIED BY THE FACT THAT THEIR 2CADR IS STORED NEGATIVELY. IF PRDTTAB OF THE PHASE SPOT
|
||
|
# IS POSITIVE, THEN IT CONTAINS THE DELTA TIME, IF PRDTTAB IS NEGATIVE THEN IT IS THE -GENADR OF AN ERASABLE
|
||
|
# LOCATION CONTAINING THE DELTA TIME, THAT IS, THE TIME IS STORED INDIRECTLY. IT SHOULD BE NOTED AS ABOVE, THAT
|
||
|
# IF THE TIME IS STORED INDIRECTLY, THE BBCON MUST CONTAIN THE NECESSARY E BANK INFORMATION IF APPLICABLE. WITH
|
||
|
# WAITLIST WE HAVE ONE FURTHER OPTION, IF -0 IS STORED IN PRDTTAB, IT WILL CAUSE AN IMMEDIATE RESTART OF THE
|
||
|
# TASK. EXAMPLES,
|
||
|
#
|
||
|
# OCT 77777 # THIS WILL CAUSE AN IMMEDIATE RESTART
|
||
|
# -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
|
||
|
# # IN 10 MS, OTHERWISE IT WILL BEGIN WHEN
|
||
|
# # IT NORMALLY WOULD HAVE BEGUN.
|
||
|
# Page 212
|
||
|
# -GENADR DTIME # WHERE DTIME CONTAINS THE DELTA TIME
|
||
|
# -2CADR TASKTASK # OTHERWISE THIS IS AS ABOVE
|
||
|
#
|
||
|
# ***** NOW THE TABLES THEMSELVES *****
|
||
|
|
||
|
BANK 01
|
||
|
SETLOC RESTART
|
||
|
BANK
|
||
|
|
||
|
COUNT 01/RSTAB
|
||
|
|
||
|
PRDTTAB EQUALS 12000 # USED TO FIND THE PRIORITY OR DELTATIME
|
||
|
CADRTAB EQUALS 12001 # THIS AND THE NEXT RELATIVE LOC CONTAIN
|
||
|
# RESTART 2CADR
|
||
|
|
||
|
SIZETAB TC 1.2SPOT -12006
|
||
|
TC 1.3SPOT -12004
|
||
|
TC 2.2SPOT -12006
|
||
|
TC 2.3SPOT -12004
|
||
|
TC 3.2SPOT -12006
|
||
|
TC 3.3SPOT -12004
|
||
|
TC 4.2SPOT -12006
|
||
|
TC 4.3SPOT -12004
|
||
|
TC 5.2SPOT -12006
|
||
|
TC 5.3SPOT -12004
|
||
|
TC 6.2SPOT -12006
|
||
|
TC 6.3SPOT -12004
|
||
|
1.2SPOT EQUALS 3.2SPOT
|
||
|
|
||
|
# ANY MORE GROUP 1.EVEN RESTART VALUES SHOULD GO HERE.
|
||
|
|
||
|
1.3SPOT DEC 120 # THIS NUMBER MUST BE EQUAL C(JTAGTIME)
|
||
|
EBANK= AOG
|
||
|
-2CADR SETJTAG
|
||
|
|
||
|
1.5SPOT OCT 10000
|
||
|
EBANK= DAPDATR1
|
||
|
2CADR REDO40.9
|
||
|
|
||
|
1.7SPOT OCT 10000
|
||
|
EBANK= ESTROKER
|
||
|
2CADR RELINUS
|
||
|
|
||
|
1.11SPOT OCT 10000
|
||
|
EBANK= ESTROKER
|
||
|
2CADR PIKUP20
|
||
|
|
||
|
# ANY MORE GROUP 1.ODD RESTART VALUES SHOULD GO HERE.
|
||
|
|
||
|
2.2SPOT EQUALS 1.2SPOT
|
||
|
|
||
|
# ANY MORE GROUP 2.EVEN RESTART VALUES SHOULD GO HERE
|
||
|
# Page 213
|
||
|
|
||
|
2.3SPOT GENADR 600SECS
|
||
|
-GENADR STATEINT
|
||
|
EBANK= RRECTCSM
|
||
|
BBCON STATEINT
|
||
|
|
||
|
2.5SPOT OCT 05000
|
||
|
EBANK= RRECTCSM
|
||
|
2CADR STATINT1
|
||
|
|
||
|
2.7SPOT OCT 10000
|
||
|
EBANK= MRKBUF2
|
||
|
2CADR R22
|
||
|
|
||
|
2.11SPOT OCT 14000
|
||
|
EBANK= LANDMARK
|
||
|
2CADR V94ENTER
|
||
|
|
||
|
2.13SPOT OCT 10000
|
||
|
EBANK= MRKBUF2
|
||
|
2CADR REDOR22
|
||
|
|
||
|
# ANY MORE GROUP 2.ODD RESTART VALUES SHOULD GO HERE.
|
||
|
|
||
|
3.2SPOT EQUALS 4.2SPOT
|
||
|
|
||
|
# ANY MORE GROUP 3.EVEN RESTART VALUES SHOULD GO HERE
|
||
|
|
||
|
3.3SPOT OCT 20000
|
||
|
EBANK= TGO
|
||
|
2CADR S40.13
|
||
|
|
||
|
3.5SPOT DEC 0
|
||
|
DEC 0
|
||
|
DEC 0
|
||
|
|
||
|
3.7SPOT OCT 22000
|
||
|
EBANK= TEPHEM
|
||
|
2CADR MATRXJOB
|
||
|
|
||
|
3.11SPOT OCT 22000
|
||
|
EBANK= TEPHEM
|
||
|
2CADR REP11
|
||
|
|
||
|
3.13SPOT OCT 22000
|
||
|
EBANK= TEPHEM
|
||
|
2CADR REP11A
|
||
|
|
||
|
3.15SPOT -GENADR TGO +1
|
||
|
EBANK= TGO
|
||
|
-2CADR ENGINOFF
|
||
|
|
||
|
# Page 214
|
||
|
# ANY MORE GROUP 3.ODD RESTART VALUES SHOULD GO HERE
|
||
|
|
||
|
4.2SPOT OCT 77777
|
||
|
EBANK= TIG
|
||
|
-2CADR PRECHECK
|
||
|
|
||
|
OCT 30000
|
||
|
EBANK= DELVIMU
|
||
|
2CADR P47BODY
|
||
|
|
||
|
4.4SPOT OCT 77777
|
||
|
EBANK= TIG
|
||
|
-2CADR PRECHECK
|
||
|
|
||
|
DEC 2996
|
||
|
EBANK= DAPDATR1
|
||
|
-2CADR TTG/0
|
||
|
|
||
|
4.6SPOT OCT 77777
|
||
|
EBANK= TIG
|
||
|
-2CADR PRECHECK
|
||
|
|
||
|
DEC 2496
|
||
|
EBANK= TIG
|
||
|
-2CADR TIG-5
|
||
|
|
||
|
# ANY MORE GROUP 4.EVEN RESTART VALUES SHOULD GO HERE
|
||
|
|
||
|
4.3SPOT DEC 40
|
||
|
EBANK= PACTOFF
|
||
|
-2CADR DOTVCON
|
||
|
|
||
|
4.5SPOT DEC 160
|
||
|
EBANK= PACTOFF
|
||
|
-2CADR DOSTRULL
|
||
|
|
||
|
4.7SPOT DEC 500
|
||
|
EBANK= PACTOFF
|
||
|
-2CADR TIG-0
|
||
|
|
||
|
4.11SPOT DEC 250
|
||
|
EBANK= DAPDATR1
|
||
|
-2CADR V97E40.6
|
||
|
|
||
|
4.13SPOT DEC 200
|
||
|
EBANK= WHOCARES
|
||
|
-2CADR R40ENABL
|
||
|
|
||
|
4.15SPOT OCT 16000 # PRELAUNCH OPTICAL VERIFICATION
|
||
|
EBANK= OGC
|
||
|
# Page 215
|
||
|
2CADR COMPVER # CALLS FOR OPTICS DATA AGAIN (STD LEADIN)
|
||
|
|
||
|
4.17SPOT OCT 16000
|
||
|
EBANK= XSM
|
||
|
2CADR AZMTHCG1
|
||
|
|
||
|
4.21SPOT GENADR P40TMP # DELTA TIME USED IN SETTING UP
|
||
|
-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
|
||
|
|
||
|
4.25SPOT OCT 24000
|
||
|
EBANK= BESTI
|
||
|
2CADR PROG52
|
||
|
|
||
|
4.27SPOT DEC 250
|
||
|
EBANK= PACTOFF
|
||
|
-2CADR DOTVCRCS
|
||
|
|
||
|
4.31SPOT OCT 13000
|
||
|
EBANK= STAR
|
||
|
2CADR R51 +1
|
||
|
|
||
|
4.33SPOT DEC 2100 # PROTECT CONTINUING JOB TO START P63
|
||
|
EBANK= AOG
|
||
|
-2CADR WAKEP62
|
||
|
|
||
|
4.35SPOT OCT 12000
|
||
|
EBANK= DAPDATR1
|
||
|
2CADR POSTBURN
|
||
|
|
||
|
4.37SPOT DEC 500
|
||
|
EBANK= TIG
|
||
|
-2CADR TIGAVEG
|
||
|
|
||
|
4.41SPOT OCT 17000 # PROTECT DISPLAY JOB IN P67
|
||
|
EBANK= AOG
|
||
|
2CADR P67.1
|
||
|
|
||
|
4.43SPOT -GENADR S61DT # PROTECT TASK TO START PREREAD,ENTRY
|
||
|
EBANK= S61DT # S61.1C WILL CHANGE EBANK=EB7 FOR PREREAD
|
||
|
-2CADR S61.1C
|
||
|
|
||
|
4.45SPOT OCT 13000 # PROTECT CONTINUING JOB S61.1
|
||
|
EBANK= AOG # (ENTRY IMU ALIGNMENT)
|
||
|
# Page 216
|
||
|
2CADR S61.1A -1
|
||
|
|
||
|
4.47SPOT OCT 17000 # PROTECT HUNTEST ITERATION
|
||
|
EBANK= AOG
|
||
|
2CADR PRE-HUNT
|
||
|
|
||
|
4.51SPOT OCT 77777 # PROTECT FDAI ATTITUDE
|
||
|
EBANK= BODY3 # ERROR DISPLAY IN P11
|
||
|
-2CADR ATERTASK
|
||
|
|
||
|
4.53SPOT DEC -0
|
||
|
EBANK= END-E7 # EBANK7 FOR TIG
|
||
|
-2CADR V97ETASK
|
||
|
|
||
|
4.55SPOT OCT 13000 # PROTECT P65 RESPONSIVE DISPLAY.
|
||
|
EBANK= RTINIT
|
||
|
2CADR P65.1
|
||
|
|
||
|
4.57SPOT -GENADR P40TMP
|
||
|
EBANK= P40TMP
|
||
|
-2CADR TIGON
|
||
|
|
||
|
4.61SPOT OCT 77777
|
||
|
EBANK= PACTOFF
|
||
|
-2CADR IGNITION
|
||
|
|
||
|
4.63SPOT OCT 77777
|
||
|
EBANK= PACTOFF
|
||
|
-2CADR DOSPSOFF
|
||
|
|
||
|
4.65SPOT DEC 10
|
||
|
EBANK= TIG
|
||
|
-2CADR TIG-5
|
||
|
|
||
|
4.67SPOT DEC -0
|
||
|
EBANK= CSMMASS
|
||
|
-2CADR V97TTASK
|
||
|
|
||
|
4.71SPOT DEC 250
|
||
|
EBANK= DAPDATR1 # (FOR RCSDAPON)
|
||
|
-2CADR V97TRCS
|
||
|
|
||
|
4.73SPOT DEC -0
|
||
|
EBANK= V97VCNTR
|
||
|
-2CADR V97PTASK
|
||
|
|
||
|
4.75SPOT DEC -0
|
||
|
EBANK= DAPDATR1
|
||
|
-2CADR SPSOFF97
|
||
|
|
||
|
# Page 217
|
||
|
4.77SPOT DEC -0
|
||
|
EBANK= PACTOFF
|
||
|
-2CADR TIG-0
|
||
|
|
||
|
# ANY MORE GROUP 4.ODD RESTART VALUES SHOULD GO HERE
|
||
|
|
||
|
5.2SPOT OCT 32000
|
||
|
EBANK= DVCNTR
|
||
|
2CADR NORMLIZE
|
||
|
|
||
|
DEC 200
|
||
|
EBANK= AOG
|
||
|
-2CADR REREADAC
|
||
|
|
||
|
5.4SPOT OCT 20000
|
||
|
EBANK= DVCNTR
|
||
|
2CADR SERVICER
|
||
|
|
||
|
DEC 200
|
||
|
EBANK= AOG
|
||
|
-2CADR REREADAC
|
||
|
|
||
|
# ANY MORE GROUP 5.EVEN RESTART VALUES SHOULD GO HERE
|
||
|
|
||
|
5.3SPOT DEC 200
|
||
|
EBANK= AOG
|
||
|
-2CADR REREADAC
|
||
|
|
||
|
5.5SPOT OCT 77777
|
||
|
EBANK= AOG
|
||
|
-2CADR REDO5.5
|
||
|
|
||
|
5.7SPOT OCT 20000 # USED BY PRELAUNCH
|
||
|
EBANK= XSM
|
||
|
2CADR RSTGTS1
|
||
|
|
||
|
5.11SPOT OCT 77777
|
||
|
EBANK= XSM
|
||
|
-2CADR ALLOOP1
|
||
|
|
||
|
5.13SPOT OCT 20000
|
||
|
EBANK= XSM
|
||
|
2CADR WTLISTNT
|
||
|
|
||
|
5.15SPOT OCT 20000
|
||
|
EBANK= XSM
|
||
|
2CADR RESTEST1
|
||
|
|
||
|
5.17SPOT OCT 20000
|
||
|
EBANK= XSM
|
||
|
# Page 218
|
||
|
2CADR GEOSTRT4
|
||
|
|
||
|
5.21SPOT OCT 22000
|
||
|
EBANK= XSM
|
||
|
2CADR ALFLT1
|
||
|
|
||
|
5.23SPOT OCT 77777
|
||
|
EBANK= XSM
|
||
|
-2CADR SPECSTS
|
||
|
|
||
|
5.25SPOT OCT 20000
|
||
|
EBANK= XSM
|
||
|
2CADR RESTEST3
|
||
|
|
||
|
5.27SPOT OCT 20000
|
||
|
EBANK= XSM
|
||
|
2CADR RESTAIER
|
||
|
|
||
|
5.31SPOT DEC 0
|
||
|
DEC 0
|
||
|
DEC 0
|
||
|
|
||
|
5.33SPOT OCT 20000
|
||
|
EBANK= XSM
|
||
|
2CADR RESCHNG
|
||
|
|
||
|
5.35SPOT DEC 0
|
||
|
2DEC 0
|
||
|
|
||
|
5.37SPOT OCT 77777
|
||
|
EBANK= AOG
|
||
|
-2CADR CHEKAVEG
|
||
|
|
||
|
5.41SPOT OCT 77777 # TO PROTECT PREREAD AT TIG-30A
|
||
|
EBANK= DVCNTR # TIG-15 T+60
|
||
|
-2CADR PREREAD
|
||
|
|
||
|
# ANY MORE GROUP 5.ODD RESTART VALUES SHOULD GO HERE
|
||
|
|
||
|
6.2SPOT OCT 77777 # USED BY P40 AFTER GIMB DR TST TO REPOS'N
|
||
|
EBANK= AK # ENGINE UNTIL TVCDAPON
|
||
|
-2CADR PRE40.6
|
||
|
|
||
|
DEC 100
|
||
|
EBANK= TTOGO
|
||
|
-2CADR CLOKTASK
|
||
|
|
||
|
# ANY MORE 6.ODD RESTART VALUES SHOULD GO HERE
|
||
|
# Page 219
|
||
|
|
||
|
6.3SPOT DEC 100
|
||
|
EBANK= TIG
|
||
|
-2CADR CLOKTASK
|
||
|
|
||
|
6.5SPOT OCT 30000 # PROTECT INCREMENTING OF TIME2,TIME1 BY
|
||
|
EBANK= TEPHEM # P27(UPDATE PROGRAM)
|
||
|
2CADR TIMEDIDR
|
||
|
|
||
|
6.7SPOT OCT 0
|
||
|
OCT 0
|
||
|
OCT 0
|
||
|
|
||
|
6.11SPOT -GENADR CM/GYMDT # PROTECT TASK TO READ CDUS.
|
||
|
EBANK= CM/GYMDT # FOR ENTRY DAP
|
||
|
-2CADR READGYMB
|
||
|
|
||
|
6.13SPOT DEC 0
|
||
|
DEC 0
|
||
|
DEC 0
|
||
|
|
||
|
# Page 220
|
||
|
# 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
|
||
|
# TBASE OF THE GROUP. IF TBASE IS TO BE SET, -C(TIME1) IS STORED IN THE TBASE TABLE AS FOLLOWS:
|
||
|
#
|
||
|
# (L-1) TBASE0
|
||
|
# (L) TBASE1 (IF GROUP=1)
|
||
|
# (L+1)
|
||
|
# (L+2) TBASE2 (IF GROUP=2)
|
||
|
# -----
|
||
|
# (L+6) TBASE4 (IF GROUP=4)
|
||
|
# (L+7)
|
||
|
# (L+8) TBASE5 (IF GROUP=5)
|
||
|
#
|
||
|
# IN ANY CASE, THE NEGATIVE OF THE PHASE, FOLLOWED (IN THE NEXT REGISTER) BY THE PHASE, IS STORED IN THE
|
||
|
# PHASE TABLE AS FOLLOWS:
|
||
|
#
|
||
|
# (L) -PHASE1 (IF GROUP=1)
|
||
|
# (L+1) PHASE1
|
||
|
# (L+2) -PHASE2 (IF GROUP=2)
|
||
|
# (L+3) PHASE2
|
||
|
# -----
|
||
|
# (L+7) PHASE4
|
||
|
# (L+8) -PHASE5 (IF GROUP=5)
|
||
|
# (L+9) PHASE5
|
||
|
#
|
||
|
# CALLING SEQUENCE:
|
||
|
#
|
||
|
# EXAMPLE IS FOR PLACING A PHASE OF FIVE INTO GROUP THREE:
|
||
|
#
|
||
|
# 1) IF TBASE IS NOT TO BE SET:
|
||
|
# L-1 CA FIVE
|
||
|
# L TC NEWPHASE
|
||
|
# L+1 OCT 00003
|
||
|
#
|
||
|
# 2) IF TBASE IS TO BE SET:
|
||
|
# L-1 CS FIVE
|
||
|
# L TC NEWPHASE
|
||
|
# L+1 OCT 00003
|
||
|
#
|
||
|
# SUBROUTINES CALLED: NONE
|
||
|
#
|
||
|
# NORMAL EXIT MODE: AT L+2 OF CALLING SEQUENCE
|
||
|
#
|
||
|
# ALARM OR ABORT EXITS: NONE
|
||
|
#
|
||
|
# OUTPUT: PHASE TABLE AND TBASE TABLE UPDATED
|
||
|
#
|
||
|
# ERASABLE INITIALIZATION REQ'D: NONE
|
||
|
# Page 221
|
||
|
# DEBRIS: A,L,TEMPG
|
||
|
|
||
|
# *** WARNING *** THIS PROGRAM IS TO BE PLACED IN FIXED-FIXED AND UNSWITCHED ERASABLE.
|
||
|
|
||
|
BLOCK 02
|
||
|
SETLOC FFTAG1
|
||
|
BANK
|
||
|
|
||
|
COUNT* $$/PHASE
|
||
|
|
||
|
NEWPHASE INHINT
|
||
|
|
||
|
TS L # SAVE FOR FURTHER USE
|
||
|
|
||
|
NDX Q # OBTAIN THE GROUP NUMBER
|
||
|
CA 0
|
||
|
INCR Q # OBTAIN THE RETURN ADDRESS
|
||
|
DOUBLE # SAVE THE GROUP IN A FORM USED FOR
|
||
|
TS TEMPG # INDEXING
|
||
|
|
||
|
CCS L # SEE IF WE ARE TO SET TBASE
|
||
|
TCF +7 # NO, THE DELTA T WAS POSITIVE
|
||
|
TCF +6
|
||
|
|
||
|
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
|
||
|
|
||
|
|