Trim whitespace
This commit is contained in:
James Harris
@ -13,11 +13,11 @@
|
||||
# 2009-05-21 RSB Changed a "TC BANKCALL" to "TC STOPRATE"
|
||||
# in INITSUB.
|
||||
#
|
||||
# The contents of the "Comanche055" files, in general, are transcribed
|
||||
# from scanned documents.
|
||||
# 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.
|
||||
# 2021113-051. April 1, 1969.
|
||||
#
|
||||
# This AGC program shall also be referred to as Colossus 2A
|
||||
#
|
||||
@ -136,14 +136,14 @@
|
||||
BANK 10
|
||||
SETLOC FRANDRES
|
||||
BANK
|
||||
|
||||
|
||||
EBANK= LST1
|
||||
|
||||
COUNT 05/START
|
||||
|
||||
COUNT 05/START
|
||||
|
||||
SLAP1 INHINT # FRESH START. COMES HERE FROM PINBALL.
|
||||
TC STARTSUB # SUBROUTINE DOES MOST OF THE WORK.
|
||||
|
||||
|
||||
STARTSW TCF SKIPSIM # PATCH....TCF STARTSIM...FOR SIMULATION
|
||||
STARTSIM CAF BIT14
|
||||
TC FINDVAC
|
||||
@ -151,20 +151,20 @@ SIM2CADR OCT 77777 # PATCH 2CADR (AND EBANK DESIGNATION) OF
|
||||
OCT 77777 # SIMULATION START ADDRESS.
|
||||
|
||||
SKIPSIM CA DSPTAB +11D
|
||||
MASK BITS4&6
|
||||
AD BIT15
|
||||
MASK BITS4&6
|
||||
AD BIT15
|
||||
TS DSPTAB +11D # REQUESTED FRESH START.
|
||||
|
||||
|
||||
CA ZERO # SAME STORY ON ZEROING FAILREG.
|
||||
TS ERCOUNT
|
||||
TS FAILREG
|
||||
TS FAILREG +1
|
||||
TS FAILREG +2
|
||||
TS REDOCTR
|
||||
|
||||
|
||||
CS PRIO12
|
||||
TS DSRUPTSW
|
||||
|
||||
|
||||
DOFSTART CAF ZERO # DO A FRESH START.
|
||||
TS ERESTORE # ***** MUST NOT BE REMOVED FROM DOFSTART
|
||||
TS SMODE # ***** MUST NOT BE REMOVED FROM DOFSTART
|
||||
@ -202,26 +202,26 @@ DOFSTART CAF ZERO # DO A FRESH START.
|
||||
|
||||
CS ZERO
|
||||
TS MODREG
|
||||
|
||||
|
||||
CAF PRIO30
|
||||
TS RESTREG
|
||||
|
||||
|
||||
CAF IM30INIF # FRESH START IMU INITIALIZATION.
|
||||
TS IMODES30
|
||||
|
||||
|
||||
CAF NEGONE
|
||||
TS OPTIND # KILL COARSE OPTICS
|
||||
|
||||
|
||||
CAF OPTINITF
|
||||
TS OPTMODES
|
||||
|
||||
|
||||
CAF IM33INIT
|
||||
TS IMODES33
|
||||
|
||||
|
||||
EXTEND # LET T5 IDLE.
|
||||
DCA T5IDLER
|
||||
DXCH T5LOC
|
||||
|
||||
|
||||
CA SWINIT
|
||||
TS STATE
|
||||
|
||||
@ -256,10 +256,10 @@ DOFSTART CAF ZERO # DO A FRESH START.
|
||||
EXTEND
|
||||
DCA SWINIT +10D
|
||||
DXCH STATE +10D
|
||||
|
||||
|
||||
ENDRSTRT TC POSTJUMP
|
||||
CADR DUMMYJOB +2 # PICKS UP AT RELINT. (IN A SWITCHED BANK.)
|
||||
|
||||
|
||||
MR.KLEAN INHINT
|
||||
EXTEND
|
||||
DCA NEG0
|
||||
@ -280,7 +280,7 @@ V37KLEAN EXTEND
|
||||
DCA NEG0
|
||||
DXCH -PHASE6
|
||||
TC Q
|
||||
|
||||
|
||||
OCT6200 OCT 6200
|
||||
|
||||
# Page 186
|
||||
@ -300,12 +300,12 @@ GOPROG INCR REDOCTR # ADVANCE RESTART COUNTER.
|
||||
EXTEND # STATE OF AGC WARNING BIT.
|
||||
BZF BUTTONS
|
||||
|
||||
CA BIT14 # IF AGC WARNING ON (BIT = 0), DO A
|
||||
EXTEND # FRESH START ON THE ASSUMPTION THAT
|
||||
CA BIT14 # IF AGC WARNING ON (BIT = 0), DO A
|
||||
EXTEND # FRESH START ON THE ASSUMPTION THAT
|
||||
RAND CHAN33 # WE ARE IN A RESTART LOOP.
|
||||
EXTEND
|
||||
BZF NONAVKEY +1
|
||||
|
||||
|
||||
BUTTONS TC LIGHTSET # MAKE FRESH START CHECKS BEFORE ERESTORE.
|
||||
|
||||
# ERASCHK TEMPORARILY STORES THE CONTENST OF TWO ERASABLE LOCATIONS, X
|
||||
@ -348,12 +348,12 @@ ELRSKIP CA FLAGWRD6 # RESTART AUTOPILOTS
|
||||
CS INTFLBIT
|
||||
MASK RASFLAG
|
||||
TS RASFLAG
|
||||
|
||||
|
||||
CA OPTMODES
|
||||
MASK OPTINITR
|
||||
AD BIT7
|
||||
TS OPTMODES
|
||||
|
||||
|
||||
CAF BIT6
|
||||
MASK IMODES33
|
||||
AD IM33INIT
|
||||
@ -368,17 +368,17 @@ ELRSKIP CA FLAGWRD6 # RESTART AUTOPILOTS
|
||||
BZF NOCOARSE
|
||||
TC IBNKCALL # IF NO ATT LAMP ON, RETURN ISS TO
|
||||
CADR SETCOARS # COARSE ALIGN.
|
||||
|
||||
|
||||
CAF SIX
|
||||
TC WAITLIST
|
||||
EBANK= CDUIND
|
||||
2CADR CA+ECE
|
||||
|
||||
|
||||
NOCOARSE CAF IFAILINH # LEAVE FAILURE INHIBITS INTACT ON
|
||||
MASK IMODES30 # HARDWARE RESTART. RESET ALL
|
||||
AD IM30INIR # FAILURE CODES.
|
||||
TS IMODES30
|
||||
|
||||
|
||||
CS FLAGWRD5
|
||||
MASK ENGONBIT
|
||||
CCS A
|
||||
@ -395,17 +395,17 @@ ENEMA INHINT
|
||||
CS INTMASK # RESET INTEGRATION BITS
|
||||
MASK RASFLAG
|
||||
TS RASFLAG
|
||||
|
||||
|
||||
CS FLAGWRD6 # IS TVC ON
|
||||
MASK OCT60000
|
||||
EXTEND
|
||||
BZMF GOPROG3 # NO
|
||||
|
||||
|
||||
CAF .5SEC # YES, CALL TVCEXEC TASK WHICH WAS KILLED
|
||||
TC WAITLIST # IN STARTSB2
|
||||
EBANK= BZERO
|
||||
2CADR TVCEXEC
|
||||
|
||||
|
||||
GOPROG3 CAF NUMGRPS # VERIFY PHASE TABLE AGREEMENTS
|
||||
PCLOOP TS MPAC +5
|
||||
DOUBLE
|
||||
@ -421,12 +421,12 @@ PCLOOP TS MPAC +5
|
||||
|
||||
CCS MPAC +5 # PROCESS ALL RESTART GROUPS.
|
||||
TCF PCLOOP
|
||||
|
||||
|
||||
TS MPAC +6 # SET TO +0.
|
||||
TC MMDSPLAY # DISPLAY MAJOR MODE
|
||||
|
||||
|
||||
INHINT # RELINT DONE IN MMDSPLAY
|
||||
|
||||
|
||||
CAE FLAGWRD6 # IS RCS DAP RUNNING (BITS 15 14 OF
|
||||
MASK OCT60000 # FLAGWORD6 = 01)
|
||||
EXTEND # YES, DO STOPRATE
|
||||
@ -446,16 +446,16 @@ NXTRST TS MPAC +5
|
||||
CCS PHASE1
|
||||
TCF PACTIVE # PNZ -- GROUP ACTIVE.
|
||||
TCF PINACT # +0 -- GROUP NOT RUNNING.
|
||||
|
||||
|
||||
PACTIVE TS MPAC
|
||||
INCR MPAC # ABS OF PHASE.
|
||||
INCR MPAC +6 # INDICATE GROUP DEMANDS PRESENT.
|
||||
CA RACTCADR
|
||||
TC SWCALL # MUST RETURN TO SWRETURN.
|
||||
|
||||
|
||||
PINACT CCS MPAC +5 # PROCESS ALL RESTART GROUPS.
|
||||
TCF NXTRST
|
||||
|
||||
|
||||
CCS MPAC +6 # NO, CHECK PHASE ACTIVITY FLAG
|
||||
TCF ENDRSTRT # PHASE ACTIVE
|
||||
CAF BIT15 # IS MODE -0
|
||||
@ -465,7 +465,7 @@ PINACT CCS MPAC +5 # PROCESS ALL RESTART GROUPS.
|
||||
TCF ENDRSTRT # YES
|
||||
PTBAD TC ALARM # SET ALARM TO SHOW PHASE TABLE FAILURE.
|
||||
OCT 1107
|
||||
|
||||
|
||||
TCF DOFSTART # IN R21.
|
||||
|
||||
# ********* ********* **********
|
||||
@ -525,7 +525,7 @@ STARTSB2 CAF OCT77603 # TURN OFF UPLINK ACTY, TEMP CAUTION, KR,
|
||||
EBANK= LST1
|
||||
CAF STARTEB
|
||||
TS EBANK # SET FOR E3
|
||||
|
||||
|
||||
CAF NEG1/2 # INITIALIZE WAITLIST DELTA-TS.
|
||||
TS LST1 +7
|
||||
TS LST1 +6
|
||||
@ -557,7 +557,7 @@ STARTSB2 CAF OCT77603 # TURN OFF UPLINK ACTY, TEMP CAUTION, KR,
|
||||
TS LST2 +13D
|
||||
TS LST2 +15D
|
||||
TS LST2 +17D
|
||||
|
||||
|
||||
CS ZERO # MAKE ALL EXECUTIVE REGISTER SETS
|
||||
TS PRIORITY # AVAILABLE.
|
||||
TS PRIORITY +12D
|
||||
@ -566,10 +566,10 @@ STARTSB2 CAF OCT77603 # TURN OFF UPLINK ACTY, TEMP CAUTION, KR,
|
||||
TS PRIORITY +48D
|
||||
TS PRIORITY +60D
|
||||
TS PRIORITY +72D
|
||||
|
||||
|
||||
TS DSRUPTSW
|
||||
TS NEWJOB # SHOWS NO ACTIVE JOBS.
|
||||
|
||||
|
||||
CAF VAC1ADRC # MAKE ALL VAC AREAS AVAILABLE.
|
||||
TS VAC1USE
|
||||
AD LTHVACA
|
||||
@ -580,16 +580,16 @@ STARTSB2 CAF OCT77603 # TURN OFF UPLINK ACTY, TEMP CAUTION, KR,
|
||||
TS VAC4USE
|
||||
AD LTHVACA
|
||||
TS VAC5USE
|
||||
|
||||
|
||||
CAF TEN # BLANK DSKY REGISTERS (PROGRAM,VERB,NOUN,
|
||||
# R1,R2,R3)
|
||||
DSPOFF TS MPAC
|
||||
DSPOFF TS MPAC
|
||||
CS BIT12
|
||||
INDEX MPAC
|
||||
TS DSPTAB
|
||||
CCS MPAC
|
||||
TCF DSPOFF
|
||||
|
||||
|
||||
TS DELAYLOC
|
||||
# Page 192
|
||||
TS DELAYLOC +1
|
||||
@ -616,34 +616,34 @@ DSPOFF TS MPAC
|
||||
TS FLAGWRD4 # KILL INTERFACE DISPLAYS
|
||||
CAF NOUTCON
|
||||
TS NOUT
|
||||
|
||||
|
||||
CAF BIT14
|
||||
MASK EXTVBACT
|
||||
TS EXTVBACT
|
||||
CAF LESCHK # SELF CHECK GO-TO REGISTER.
|
||||
TS SELFRET
|
||||
|
||||
|
||||
CS VD1
|
||||
TS DSPCOUNT
|
||||
|
||||
|
||||
TC Q
|
||||
|
||||
|
||||
T5IDLOC CA L # T5RUPT COMES HERE EVERY 163.84 SECS
|
||||
TCF NOQRSM +1 # WHEN NOBODY IS USING IT.
|
||||
|
||||
|
||||
EBANK= OGANOW
|
||||
T5IDLER 2CADR T5IDLOC
|
||||
|
||||
EBANK= OGANOW
|
||||
2CADR REDORCS
|
||||
|
||||
|
||||
EBANK= OGANOW
|
||||
2CADR REDOTVC
|
||||
|
||||
|
||||
EBANK= OGANOW
|
||||
2CADR REDOSAT
|
||||
# Page 193
|
||||
|
||||
|
||||
IFAILINH OCT 435
|
||||
LDNPHAS1 GENADR DNPHASE1
|
||||
LESCHK GENADR SELFCHK
|
||||
@ -666,7 +666,7 @@ SWINIT OCT 0
|
||||
OCT 0
|
||||
OCT 0
|
||||
OCT 0
|
||||
|
||||
|
||||
OCT 0
|
||||
OCT 00200
|
||||
OCT 0
|
||||
@ -701,20 +701,20 @@ SWINIT OCT 0
|
||||
BLOCK 02
|
||||
SETLOC FFTAG10
|
||||
BANK
|
||||
|
||||
|
||||
COUNT 02/P00
|
||||
|
||||
|
||||
GOTOP00H TC PHASCHNG # RESTART GOTOP00H
|
||||
OCT 14
|
||||
|
||||
|
||||
TC POSTJUMP
|
||||
CADR GOP00FIX
|
||||
BANK 10
|
||||
SETLOC VERB37
|
||||
BANK
|
||||
|
||||
|
||||
COUNT 04/P00
|
||||
|
||||
|
||||
GOP00FIX TC INITSUB
|
||||
TC CLEARMRK +2
|
||||
CAF V37N99
|
||||
@ -795,37 +795,37 @@ V37N99 VN 3799
|
||||
BLOCK 02
|
||||
SETLOC FFTAG10
|
||||
BANK
|
||||
|
||||
|
||||
COUNT 02/V37
|
||||
|
||||
|
||||
OCT24 MM 20
|
||||
OCT31 MM 25
|
||||
BANK 27
|
||||
SETLOC VERB37
|
||||
BANK
|
||||
|
||||
|
||||
COUNT 04/V37
|
||||
|
||||
V37 TS MMNUMBER # SAVE MAJOR MODE
|
||||
CAF PRIO30 # RESTART AT PINBALL PRIORITY
|
||||
TS RESTREG
|
||||
|
||||
|
||||
CA IMODES30 # IS IMU BEING INITIALIZED
|
||||
MASK BIT6
|
||||
CCS A
|
||||
TCF CANTR00
|
||||
|
||||
|
||||
CAF BIT13 # IS ENGINE ON
|
||||
EXTEND
|
||||
RAND DSALMOUT
|
||||
CCS A
|
||||
TCF R00TOP00 # YES, SET UP FOR P00
|
||||
|
||||
|
||||
CS FLAGWRD6 # NO, IS TVC DAP ON
|
||||
MASK OCT60000
|
||||
EXTEND
|
||||
BZMF ISITP00 # NO, CONTINUE WITH R00
|
||||
|
||||
|
||||
R00TOP00 INHINT
|
||||
CAF EBANK6
|
||||
# Page 198
|
||||
@ -840,7 +840,7 @@ R00TOP00 INHINT
|
||||
CAF 3.1SEC
|
||||
TC IBNKCALL
|
||||
CADR RCSDAPON +1
|
||||
|
||||
|
||||
TC IBNKCALL
|
||||
CADR TVCZAP # DISABLE TVC
|
||||
CAF ZERO
|
||||
@ -857,19 +857,19 @@ R00TOP00 INHINT
|
||||
ISITP00 CA MMNUMBER
|
||||
EXTEND
|
||||
BZF ISSERVON # YES, CHECK SERVICER STATUS
|
||||
|
||||
|
||||
CS FLAGWRD2 # NO, IS NODO V37 FLAG SET
|
||||
MASK NODOBIT
|
||||
CCS A
|
||||
TCF CHECKTAB # NO
|
||||
CANTR00 TC ALARM
|
||||
OCT 1520
|
||||
|
||||
|
||||
V37BAD TC RELDSP # RELEASES DISPLAY FROM ASTRONAUT
|
||||
|
||||
TC POSTJUMP # BRING BACK LAST NORMAL DISPLAY IF THERE
|
||||
CADR PINBRNCH # WAS ONE. OY
|
||||
|
||||
|
||||
CHECKTAB CA NOV37MM # THE NO. OF MM
|
||||
AGAINMM TS MPAC +1
|
||||
NDX MPAC +1
|
||||
@ -882,10 +882,10 @@ AGAINMM TS MPAC +1
|
||||
# Page 199
|
||||
TCF AGAINMM # YES, GET NEXT ONE
|
||||
TCF V37NONO # LAST TIME OR PASSED MM
|
||||
|
||||
|
||||
CA MPAC +1
|
||||
TS MINDEX # SAVE INDEX FOR LATER
|
||||
|
||||
|
||||
ISSERVON CS FLAGWRD7 # V37 FLAG SET -- I.E., IS SERVICER GOING
|
||||
MASK V37FLBIT
|
||||
CCS A
|
||||
@ -895,15 +895,15 @@ ISSERVON CS FLAGWRD7 # V37 FLAG SET -- I.E., IS SERVICER GOING
|
||||
CS AVEGBIT # YES TURN OFF AVERAGE G FLAG AND WAIT
|
||||
MASK FLAGWRD1 # FOR SERVICER TO RETURN TO CANV37
|
||||
TS FLAGWRD1
|
||||
|
||||
|
||||
TCF ENDOFJOB
|
||||
|
||||
|
||||
CANV37 CAF R00AD
|
||||
TS TEMPFLSH
|
||||
|
||||
|
||||
TC PHASCHNG
|
||||
OCT 14
|
||||
|
||||
|
||||
ROC TC INTPRET
|
||||
|
||||
CALL # WAIT FOR INTEGRATION TO FINISH
|
||||
@ -929,40 +929,40 @@ DUMMYAD EXIT
|
||||
|
||||
TC DOWNFLAG
|
||||
ADRES STIKFLAG
|
||||
|
||||
|
||||
# Page 200
|
||||
TC BANKCALL
|
||||
CADR UPACTOFF # TURN OFF UPLINK ACTIV LIGHT
|
||||
|
||||
|
||||
TC DOWNFLAG
|
||||
ADRES VHFRFLAG
|
||||
TC DOWNFLAG
|
||||
ADRES R21MARK
|
||||
|
||||
|
||||
CCS MMNUMBER # IS THIS A P00H REQUEST
|
||||
TCF NOUVEAU # NO, PICK UP NEW PROGRAM
|
||||
|
||||
|
||||
COUNT 04/P00
|
||||
|
||||
|
||||
P00H TC RELDSP # RELEASE DISPLAY SYSTEM
|
||||
CAF PRIO5 # SET VARIABLE RESTART REGISTER FOR P00.
|
||||
TS PHSPRDT2
|
||||
|
||||
TS PHSPRDT2
|
||||
|
||||
INHINT
|
||||
|
||||
|
||||
CS NODOBIT # TURN OFF NODOFLAG.
|
||||
MASK FLAGWRD2
|
||||
TS FLAGWRD2
|
||||
|
||||
|
||||
CA FIVE # SET 2.5 RESTART FOR STATEINT1
|
||||
TS L
|
||||
COM
|
||||
DXCH -PHASE2
|
||||
|
||||
|
||||
CS BIT7-8 # RESET IMUSE + KILL P20 BY TURNING OFF
|
||||
MASK FLAGWRD0
|
||||
TS FLAGWRD0 # RENDFLG
|
||||
|
||||
|
||||
CAF DNLADP00
|
||||
|
||||
COUNT 04/V37
|
||||
@ -974,7 +974,7 @@ SEUDOP00 TS DNLSTCOD # SET UP APPROPRIATE DOWNLIST CODE
|
||||
TS EBANKTEM
|
||||
MASK FLAGWRD1
|
||||
TS FLAGWRD1
|
||||
|
||||
|
||||
GROUPKIL TC IBNKCALL # KILL GROUPS 3,5,6
|
||||
CADR V37KLEAN
|
||||
|
||||
@ -983,13 +983,13 @@ GROUPKIL TC IBNKCALL # KILL GROUPS 3,5,6
|
||||
# Page 201
|
||||
TC IBNKCALL
|
||||
CADR P00KLEAN # REDUNDANT EXCEPT FOR GROUP 4.
|
||||
|
||||
|
||||
GOMOD CA MMNUMBER
|
||||
TS MODREG
|
||||
|
||||
|
||||
GOGOPROG TC POSTJUMP
|
||||
CADR GOPROG2
|
||||
|
||||
|
||||
RENDV00 CS MMNUMBER # IS NEW PROG = 20
|
||||
AD OCT24 # 20
|
||||
EXTEND
|
||||
@ -998,8 +998,8 @@ RENDV00 CS MMNUMBER # IS NEW PROG = 20
|
||||
RENDN00 CS MMNUMBER
|
||||
AD MODREG
|
||||
EXTEND
|
||||
BZF KILL20
|
||||
|
||||
BZF KILL20
|
||||
|
||||
CA FLAGWRD0 # IS RENDEZVOO FLAG SET
|
||||
MASK RNDVZBIT
|
||||
CCS A
|
||||
@ -1012,21 +1012,21 @@ P00FIZZ CAF RNDVZBIT
|
||||
KILL20 EXTEND # NO, KILL GROUPS 1 + 2
|
||||
DCA NEG0
|
||||
DXCH -PHASE1
|
||||
|
||||
|
||||
EXTEND
|
||||
DCA NEG0
|
||||
DXCH -PHASE2
|
||||
|
||||
|
||||
REV37 CAF V37QCAD # SET RESTART POINT
|
||||
TS TEMPFLSH
|
||||
|
||||
|
||||
TCF GOGOPROG
|
||||
|
||||
|
||||
|
||||
|
||||
STATQUO CS FLAGWRD1 # SET TRACKFLAG AND UPDATE FLAG
|
||||
MASK OCT120
|
||||
MASK OCT120
|
||||
ADS FLAGWRD1
|
||||
|
||||
|
||||
EXTEND # KILL GROUP 4
|
||||
DCA NEG0
|
||||
DXCH -PHASE4
|
||||
@ -1034,10 +1034,10 @@ STATQUO CS FLAGWRD1 # SET TRACKFLAG AND UPDATE FLAG
|
||||
# Page 202
|
||||
TCF GOMOD
|
||||
|
||||
NOUVEAU CAF RNDVZBIT
|
||||
NOUVEAU CAF RNDVZBIT
|
||||
MASK FLAGWRD0
|
||||
CCS A
|
||||
TCF +3
|
||||
TCF +3
|
||||
TC DOWNFLAG # NO, RESET IMUINUSE FLAG
|
||||
ADRES IMUSE # BIT 8 FLAG 0
|
||||
+3 INDEX MINDEX
|
||||
@ -1045,22 +1045,22 @@ NOUVEAU CAF RNDVZBIT
|
||||
|
||||
INHINT
|
||||
TCF SEUDOP00
|
||||
|
||||
|
||||
V37NONO TC FALTON # COME HERE IF MM REQUESTED DOESN'T EXIST
|
||||
TCF V37BAD
|
||||
|
||||
|
||||
OCT00010 EQUALS BIT4
|
||||
V37XEQ INHINT
|
||||
INDEX MINDEX
|
||||
CAF PREMM1
|
||||
CAF PREMM1
|
||||
TS MMTEMP # OBTAIN PRIORITY BITS 15-11
|
||||
TS CYR # SHIFT RIGHT TO BITS 14-10
|
||||
|
||||
|
||||
CA CYR
|
||||
MASK PRIO37
|
||||
TS PHSPRDT4 # PRESET GROUP 4 RESTART PRIORITY
|
||||
TS NEWPRIO # STORE PRIO FOR SPVAC
|
||||
|
||||
|
||||
CA MMTEMP # OBTAIN EBANK -- BITS 8, 9, 10 OF MMTEMP.
|
||||
EXTEND
|
||||
MP BIT8
|
||||
@ -1071,13 +1071,13 @@ V37XEQ INHINT
|
||||
TS BASETEMP
|
||||
MASK HI5
|
||||
ADS L
|
||||
|
||||
|
||||
CA BASETEMP # OBTAIN GENADR PORTION OF 2CADR.
|
||||
MASK LOW10
|
||||
AD BIT11
|
||||
|
||||
|
||||
TC SPVAC
|
||||
|
||||
|
||||
V37XEQC CA MMTEMP # UPON RETURN FROM FINDVAC PLACE THE
|
||||
MASK LOW7 # NEW MM IN MODREG (THE LOW 7 BITS OF
|
||||
TC NEWMODEA # PHSBRDT1)
|
||||
@ -1086,15 +1086,15 @@ V37XEQC CA MMTEMP # UPON RETURN FROM FINDVAC PLACE THE
|
||||
# FOR SUNDISK ONLY
|
||||
TC RELDSP # RELEASE DISPLAY
|
||||
TC ENDOFJOB # AND EXIT
|
||||
|
||||
|
||||
INITSUB EXTEND
|
||||
QXCH MPAC +1
|
||||
|
||||
|
||||
CAF EBANK6 # SET E6 FOR DEADBAND CODING
|
||||
TS EBANK # WILL BE RESET IN STARTSB2
|
||||
INHINT
|
||||
TC STOPRATE
|
||||
|
||||
|
||||
CA FLAGWRD9 # RESTORE DEADBAND
|
||||
MASK MAXDBBIT
|
||||
CCS A
|
||||
@ -1104,7 +1104,7 @@ INITSUB EXTEND
|
||||
TCF RAKE
|
||||
SETMAXER TC BANKCALL
|
||||
CADR SETMAXDB
|
||||
|
||||
|
||||
RAKE CAF ELEVEN # THIS PART CLEARS FLAGWORD BITS.
|
||||
+1 TS MPAC # LOOP COMES HERE
|
||||
INDEX MPAC
|
||||
@ -1116,14 +1116,14 @@ RAKE CAF ELEVEN # THIS PART CLEARS FLAGWORD BITS.
|
||||
CCS MPAC
|
||||
TCF RAKE +1 # GET THE NEXT FLAGWORD
|
||||
RELINT
|
||||
|
||||
|
||||
TC UPFLAG # NOW SET IMPULSW
|
||||
ADRES IMPULSW
|
||||
|
||||
|
||||
CA NEGONE
|
||||
TS OPTIND
|
||||
TC MPAC +1 # RETURN FROM INITSUB
|
||||
|
||||
|
||||
FLAGTABL OCT 0
|
||||
OCT 00040 # IDLEFAIL
|
||||
OCT 06000 # P21FLAG, STEERSW
|
||||
@ -1131,13 +1131,13 @@ FLAGTABL OCT 0
|
||||
OCT 0
|
||||
OCT 04140 # V59FLAG, ENGONFLG, 3AXISFLG
|
||||
OCT 10000 # STRULLSW
|
||||
OCT 16000
|
||||
OCT 16000
|
||||
OCT 0
|
||||
# Page 204
|
||||
OCT 42000 # SWTOVER, V94FLAG
|
||||
OCT 0
|
||||
OCT 0
|
||||
|
||||
|
||||
SETLOC VAC5LOC
|
||||
BANK
|
||||
VAC5STOR CA ZERO # INITIALIZE INDEX REGISTERS
|
||||
@ -1204,7 +1204,7 @@ V5OUT2 CA MPAC +3
|
||||
|
||||
CA NEWJOB
|
||||
TS VAC5 +22D
|
||||
|
||||
|
||||
CA NEWPRIO
|
||||
TS VAC5 +26D
|
||||
|
||||
@ -1240,7 +1240,7 @@ RCSADDR4 2CADR RCSATT
|
||||
# TO THE LOWEST MAJOR MODE WHICH IS THE LAST ENTRY IN EACH TABLE.
|
||||
#
|
||||
# THE FCADRMM TABLE CONTAINS THE FCADR OF THE STARTING JOB OF
|
||||
# THE MAJOR MODE. FOR EXAMPLE,
|
||||
# THE MAJOR MODE. FOR EXAMPLE,
|
||||
#
|
||||
# FCADRMM1 FCADR P79 # START OF P 79
|
||||
# FCADR PROG18 # START OF P 18
|
||||
@ -1335,7 +1335,7 @@ PREMM1 EQUALS
|
||||
OCT 27021 # MM 17 EBANK 6 PRIO 13
|
||||
OCT 27006 # MM 06 EBANK 4 PRIO 13
|
||||
OCT 41201 # MM 01 EBANK 5 PRIO 20
|
||||
|
||||
|
||||
# Page 208
|
||||
# THE FOLLOWING LIST IS FOR THE PURPOSE OF VERIFYING THAT THE EBA
|
||||
|
||||
@ -1364,7 +1364,7 @@ PREMM1 EQUALS
|
||||
EBANK= ESTROKER # EBANK SETTING REQUIRED BY MM 20
|
||||
EBANK= TIME2SAV # EBANK SETTING REQUIRED BY MM 06
|
||||
EBANK= QPLACE # EBANK SETTING REQUIRED BY MM 01
|
||||
|
||||
|
||||
# NOTE: THE FOLLOWING CONSTANT IS THE NUMBER OF ENTRIES IN EACH OF
|
||||
# ----- THE ABOVE LISTS-1 (I.E., THE NUMBER OF MAJOR MODES (EXCEPT P00)
|
||||
# THAT CAN BE CALLED FROM THE KEYBOARD MINUS ONE)
|
||||
@ -1432,21 +1432,21 @@ RME 2DEC 7178165 B-29 # 800 KM ABOVE EQ. RADIUS
|
||||
BANK 13
|
||||
SETLOC INTINIT
|
||||
BANK
|
||||
|
||||
|
||||
COUNT* $$/INTIN
|
||||
|
||||
|
||||
EBANK= RRECTCSM
|
||||
|
||||
|
||||
STATEUP SET BOF # EXTRAPOLATE CM STATE VECTOR
|
||||
VINTFLAG
|
||||
# Page 210
|
||||
ORBWFLAG # ALSO 6X6 W-MATRIX IF VALID
|
||||
+3 # FOR ORBITAL NAVIGATION
|
||||
SET
|
||||
SET
|
||||
DIM0FLAG
|
||||
CLEAR CALL
|
||||
PRECIFLG
|
||||
INTEGRV
|
||||
INTEGRV
|
||||
BON DLOAD
|
||||
SURFFLAG
|
||||
STATEND
|
||||
@ -1456,7 +1456,7 @@ STATEUP SET BOF # EXTRAPOLATE CM STATE VECTOR
|
||||
CLEAR CALL # EXTRAPOLATE LM STATE VECTOR
|
||||
VINTFLAG
|
||||
SETIFLGS # AND 6X6 W-MATRIX IF VALID
|
||||
BOF SET
|
||||
BOF SET
|
||||
RENDWFLG # FOR RENDEZVOUS NAVIGATION
|
||||
+2
|
||||
DIM0FLAG
|
||||
@ -1466,9 +1466,9 @@ STATEUP SET BOF # EXTRAPOLATE CM STATE VECTOR
|
||||
STATEND CLRGO
|
||||
NODOFLAG
|
||||
ENDINT
|
||||
|
||||
|
||||
# THIS VINT IS CALLED BY MIDTOAV1 AND 2
|
||||
|
||||
|
||||
THISVINT SET RVQ
|
||||
VINTFLAG
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user