ryan/Apollo-11
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Trim whitespace

Browse Source
This commit is contained in:
James Harris
2016-12-28 16:11:25 +00:00
parent 7c33b5996c
commit 4f3a1d4374
166 changed files with 5357 additions and 5357 deletions
Download Patch File Download Diff File Expand all files Collapse all files

258
Luminary099/T4RUPT_PROGRAM.agc
View File

@@ -24,38 +24,38 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 155
BANK 12
SETLOC T4RUP
BANK
EBANK= M11
COUNT* $$/T4RPT
T4RUPT TS BANKRUPT
EXTEND
QXCH QRUPT
CCS DSRUPTSW # GOES 7(-1)0 AROUND AND AROUND
TCF NORMT4 +1
TCF NORMT4
TCF QUIKDSP
NORMT4 CAF SEVEN
TS RUPTREG1
TS DSRUPTSW
BLOCK 02
SETLOC FFTAG10
BANK
COUNT* $$/T4RPT
100MRUPT = OCT37766 # (DEC 16374)
# RELTAB IS A PACKED TABLE. RELAYWORD CODE IN UPPER 4 BITS, RELAY CODE
# IN LOWER 5 BITS.
RELTAB OCT 04025
OCT 10003
OCT 14031
@@ -75,12 +75,12 @@ RELTAB11 OCT 60000
BANK 12
SETLOC T4RUP
BANK
COUNT* $$/T4RPT
CDRVE CCS DSPTAB +11D
TC DSPOUT
TC DSPOUT
XCH DSPTAB +11D
MASK LOW11
TS DSPTAB +11D
@@ -89,7 +89,7 @@ CDRVE CCS DSPTAB +11D
WRITE OUT0
TC HANG20
# Page 157
# Page 157
# DSPOUT PROGRAM, PUTS OUT DISPLAYS
DSPOUTSB TS NOUT
@@ -111,7 +111,7 @@ TABLNTH OCT 12 # DEC 10, LENGTH OF DSPTAB
TS DSRUPTEM # IF DSRUPTEM=-0, 1ST PASS THRU DSPTAB
CAF TABLNTH # (DSPCNT=0).+0 INTO DSRUPTEM. PASS AGAIN
TCF DSPSCAN -1
DSPLAY AD ONE
INDEX DSPCNT
TS DSPTAB # REPLACE POSITIVELY
@@ -123,21 +123,21 @@ DSPLAY AD ONE
AD DSRUPTEM
EXTEND
WRITE OUT0
TCF Q+1
DSPOUT CCS FLAGWRD5 # IS DSKY FLAG ON
CAF ZERO # NO
TCF NODSPOUT # NO
CCS NOUT # YES
TC DSPOUTSB
TCF NODSPOUT # NO DISPLAY REQUESTS
HANG20 CS 14,11,9
ADS DSRUPTSW
CAF 20MRUPT
SETTIME4 TS TIME4
# Page 158
@@ -163,7 +163,7 @@ PROCEEDE CA IMODES33 # MONITOR FOR PROCEED BUTTON
MASK BIT14
CCS A
TCF T4JUMP # WAS ON -- NOW OFF
CAF CHRPRIO # WAS OFF -- NOW ON
TC NOVAC
EBANK= DSPCOUNT
@@ -183,7 +183,7 @@ T4JUMP INDEX RUPTREG1
TCF RRAUTCHK
TCF IMUMON
TCF DAPT4S
20MRUPT = OCT37776 # (DEC 16382)
# Page 160
@@ -191,15 +191,15 @@ T4JUMP INDEX RUPTREG1
NODSPOUT EXTEND
WRITE OUT0
CAF 120MRUPT #SET FOR NEXT CCRIVE
TCF SETTIME4
QUIKDSP CAF BIT14
MASK DSRUPTSW
EXTEND
BZF QUIKOFF # WROTE LAST TIME, NOW TURN OFF RELAYS.
CCS NOUT
TC DSPOUTSB
TCF NODSPY # NOUT=0 OR BAD RETURN FROM DSPOUTSB
@@ -211,29 +211,29 @@ QUIKRUPT ADS DSRUPTSW
CAF BIT9
ADS DSRUPTSW
TC RESUME
NODSPY EXTEND
WRITE OUT0
SYNCT4 CAF 20MRUPT
ADS TIME4
CAF BIT9
ADS DSRUPTSW
CCS DSRUPTSW
TC RESUME
OCT37737 OCT 37737
TC SYNCT4
TC RESUME
QUIKOFF EXTEND
WRITE OUT0
CAF BIT14 # RESET DSRUPTSW TO SEND DISPLAY NEXT PASS
TCF QUIKRUPT
14,11,9 OCT 22400
# Page 161
@@ -277,20 +277,20 @@ IMUMON CA IMODES30 # SEE IF THERE HAS BEEN A CHANGE IN THE
MASK 30RDMSK
EXTEND
BZF TNONTEST # NO CHANGE IN STATUS
TS RUPTREG1 # SAVE BITS WHICH HAVE CHANGED.
LXCH IMODES30 # UPDATE IMODES30.
EXTEND
RXOR LCHAN
TS IMODES30
CS ONE
XCH RUPTREG1
EXTEND
# Page 162
BZMF TLIM # CHANGE IN IMU TEMP.
TCF NXTIFBIT # BEGIN BIT SCAN.
-1 AD ONE # (RE-ENTERS HERE FROM NXTIFAIL.)
NXTIFBIT INCR RUPTREG1 # ADVANCE BIT POSITION NUMBER.
+1 DOUBLE
@@ -303,7 +303,7 @@ NXTIFBIT INCR RUPTREG1 # ADVANCE BIT POSITION NUMBER.
MASK IMODES30
INDEX RUPTREG1
TC IFAILJMP
NXTIFAIL CCS RUPTREG2 # PROCESS ANY ADDITIONAL CHANGES.
TCF NXTIFBIT -1
@@ -362,33 +362,33 @@ TNONTEST CS IMODES30 # AFTER PROCESSING ALL CHANGES, SEE IF IT
MASK BIT7 # IS TIME TO ACT ON A TURN-ON SEQUENCE.
CCS A
TCF C33TEST # NO -- EXAMINE CHANNEL 33.
CAF BIT8 # SEE IF FIRST SAMPLE OR SECOND.
MASK IMODES30
CCS A
TCF PROCTNON # REACT AFTER A SECOND SAMPLE.
CAF BIT8 # IF FIRST SAMPLE, SET BIT TO REACT NEXT
ADS IMODES30 # TIME.
TCF C33TEST
# PROCESS IMU TURN-ON REQUESTS AFTER WAITING 1 SAMPLE FOR ALL SIGNALS TO ARRIVE.
PROCTNON CS BITS7&8
MASK IMODES30
TS IMODES30
MASK BIT14 # SEE IF TURN-ON REQUEST.
CCS A
TCF OPONLY # OPERATE ON ONLY.
CS IMODES30 # IF TURN-ON REQUEST, WE SHOUD HAVE IMU
MASK BIT9 # OPERATE.
CCS A
TCF +3
TC ALARM # ALARM IF NOT
OCT 213
+3 TC CAGESUB
CAF 90SECS
TC WAITLIST
@@ -396,54 +396,54 @@ PROCTNON CS BITS7&8
2CADR ENDTNON
TCF C33TEST
RETNON CAF 90SECS
TC VARDELAY
ENDTNON CS BIT2 # RESET TURN-ON REQUEST FAIL BIT.
MASK IMODES30
XCH IMODES30
MASK BIT2 # IF IT WAS OFF, SEND ISS DELAY COMPLETE.
EXTEND
BZF ENDTNON2
CAF BIT14 # IF IT WAS ON AND TURN-ON REQUEST NOW.
# Page 165
MASK IMODES30 # PRESENT, RE-ENTER 90 SEC DELAY IN WL.
EXTEND
BZF RETNON
CS FLAGWRD0 # IF IT IS NOT ON NOW, SEE IF A PROG WAS
MASK IMUSEBIT # WAITING.
CCS A
TCF TASKOVER
TC POSTJUMP
CADR IMUBAD # UNSUCCESSFUL TURN-ON.
ENDTNON2 CAF BIT15 # SEND ISS DELAY COMPLETE.
EXTEND
WOR CHAN12
TC IBNKCALL # TURN OFF NO ATT LAMP.
CADR NOATTOFF
UNZ2 TC ZEROICDU
CS BITS4&5 # REMOVE ZERO AND COARSE.
EXTEND
WAND CHAN12
CAF BIT11 # WAIT 10 SECS FOR CTRS TO FIND GIMBALS
TC VARDELAY
ISSUP CS OCT54 # REMOVE CAGING, IMU FAIL INHIBIT BIT, AND
MASK IMODES30 # ICDUFAIL INHIBIT FLAGS.
TS IMODES30
CS BIT6 # ENABLE DAP
MASK IMODES33
TS IMODES33
CS FLAGWRD2 # TEST DRIFTFLG: IF ON DO NOTHING BECAUSE
MASK DRFTBIT # IMUCOMP SHOUD BE ALL SET UP (RESTART
EXTEND # WITH IMUSE DOWN). IF OFF, SET DRIFTFLG
@@ -451,47 +451,47 @@ ISSUP CS OCT54 # REMOVE CAGING, IMU FAIL INHIBIT BIT, AND
ADS FLAGWRD2 # GOING (FRESH START OR ISS TURN-ON).
CA TIME1
XCH 1/PIPADT # CANNOT GET HERE IF RESTART WITH IMUSE UP
TC SETISSW # ISS WARNING MIGHT HAVE BEEN INHIBITED.
CS BIT15 # REMOVE IMU DELAY COMPLETE DISCRETE.
EXTEND
WAND CHAN12
CAF 4SECS # DON'T ENABLE PROG ALARM ON PIP FAIL FOR
# Page 166
TC WAITLIST # ANOTHER 4 SECS.
EBANK= CDUIND
2CADR PFAILOK
TCF TASKOVER
OPONLY CAF BIT4 # IF OPERATE ON ONLY, AND WE ARE IN COARSE
EXTEND # ALIGN, DON'T ZERO THE CDUS BECAUSE WE
RAND CHAN12 # MIGHT BE IN GIMBAL LOCK.
CCS A
TCF C33TEST
CAF IMUSEBIT # OTHERWISE, ZERO THE COUNTERS.
MASK FLAGWRD0 # UNLESS SOMEONE IS USING TH IMU.
CCS A
TCF C33TEST
TC CAGESUB2 # SET TURNON FLAGS.
ISSZERO TC IBNKCALL # TURN OFF NO ATT LAMP.
CADR NOATTOFF # IMU CAGE OFF ENTRY.
CAF BIT5 # ISS CDU ZERO
EXTEND
WOR CHAN12
TC ZEROICDU
CAF BIT6 # WAIT 300 MS. FOR AGS TO RECEIVE SIGNAL.
TC WAITLIST
EBANK= M11
2CADR UNZ2
TCF C33TEST
# Page 167
@@ -534,19 +534,19 @@ C33TEST CA IMODES33 # SEE IF RELEVANT CHAN33 BITS HAVE
RXOR LCHAN
EXTEND
BZF GLOCKMON # ON NO CHANGE.
TS RUPTREG1 # SAVE BITS WHICH HAVE CHANGED.
LXCH IMODES33
EXTEND
RXOR LCHAN
TS IMODES33 # UPDATED IMODES33.
CAF ZERO
XCH RUPTREG1
DOUBLE
# Page 168
TCF NXTIBT +1 # SCAN FOR BIT CHANGES.
-1 AD ONE
NXTIBT INCR RUPTREG1
+1 DOUBLE
@@ -593,11 +593,11 @@ GLOCKMON CCS CDUZ
TCF SETGLOCK # 70 DEGREES.
TCF GLOCKCHK
TCF SETGLOCK
GLOCKCHK AD -70DEGS
EXTEND
BZMF SETGLOCK -1 # NO LOCK.
AD -15DEGS # SEE IF ABS(MGA) GREATER THAN 85 DEGREES
EXTEND
BZMF NOGIMRUN
@@ -607,34 +607,34 @@ GLOCKCHK AD -70DEGS
RAND CHAN12
CCS A
TCF NOGIMRUN
TC IBNKCALL
CADR SETCOARS
CAF SIX # ENABLE ISS ERROR COUNTERS IN 60 MS.
TC WAITLIST
# Page 170
EBANK= CDUIND
2CADR CA+ECE
NOGIMRUN CAF BIT6 # TURN ON GIMBAL LOCK LAMP.
TCF SETGLOCK
-1 CAF ZERO
SETGLOCK AD DSPTAB +11D # SEE IF PRESENT STATE OF GIMBAL LOCK LAMP
MASK BIT6 # AGREES WITH DESIRED STATE BY HALF ADDING
EXTEND # THE TWO.
BZF GLOCKOK # OK AS IS.
MASK DSPTAB +11D # IF OFF, DON'T TURN ON IF IMU BEING CAGED.
CCS A
TCF GLAMPTST # TURN OFF UNLESS LAMP TEST IN PROGRESS.
CAF BIT6
MASK IMODES30
CCS A
TCF GLOCKOK
GLINVERT CS DSPTAB +11D # INVERT GIMBAL LOCK LAMP.
MASK BIT6
AD BIT15 # TO INDICATE CHANGE IN DSPTAB +11D.
@@ -673,19 +673,19 @@ GLAMPTST TC LAMPTEST # TURN OFF UNLESS LAMP TEST IN PROGRESS.
TLIM MASK POSMAX # REMOVE BIT FROM WORD OF CHANGES AND SET
TS RUPTREG2 # DSKY TEMP LAMP ACCORDINGLY.
CCS IMODES30
TCF TEMPOK
TCF TEMPOK
CAF BIT4 # TURN ON LAMP.
EXTEND
WOR DSALMOUT
TCF NXTIFAIL
TEMPOK TC LAMPTEST # IF TEMP NOW OK, DON'T TURN OFF LAMP IF
TCF NXTIFAIL # LAMP TEST IN PROGRESS.
CS BIT4
EXTEND
WAND DSALMOUT # TURN OFF LAMP
@@ -725,19 +725,19 @@ ITURNON CAF BIT2 # IF DELAY REQUEST HAS GONE OFF
MASK IMODES30 # PREMATURELY, DO NOT PROCESS ANY CHANGES
CCS A # UNTIL THE CURRENT 90 SEC WAIT EXPIRES.
TCF NXTIFAIL
CAF BIT14 # SEE IF JUST ON OR OFF.
MASK IMODES30
EXTEND
BZF ITURNON2 # IF JUST ON.
CAF BIT15
EXTEND # SEE IF DELAY PRESENT DISCRETE HAS BEEN
RAND CHAN12 # SENT. IF SO, ACTION COMPLETE
EXTEND
BZF +2
TCF NXTIFAIL
CAF BIT2 # IF NOT, SET BIT TO INDICATE REQUEST NOT
ADS IMODES30 # PRESENT FOR FULL DURATION.
TC ALARM
@@ -751,7 +751,7 @@ ITURNON2 CS IMODES30 # SET BIT7 TO INDICATE WAIT OF 1 SAMPLE
CAF RRINIT
TS RADMODES
TCF NXTIFAIL
RRINIT OCT 00102
# Page 174
@@ -782,11 +782,11 @@ IMUCAGE CCS A # NO ACTION OF GOING OFF.
CS OCT77000 # TERMINATE ICDU, RCDU, GYRO PULSE TRAINS
EXTEND
WAND CHAN14
CS OCT272 # KNOCK DOWN DISPLAY INERTIAL DATA, IMU
EXTEND # ERROR COUNTER ENABLE, ZERO ICDU, COARSE
WAND CHAN12 # ALIGN ENABLE, RR ERROR COUNTER ENABLE.
CS ENGONBIT # INSURE ENGONFLG IS CLEAR.
MASK FLAGWRD5
TS FLAGWRD5
@@ -796,9 +796,9 @@ IMUCAGE CCS A # NO ACTION OF GOING OFF.
AD BIT14
EXTEND
WRITE DSALMOUT # FORCE BIT14=1, BIT13=0.
TC CAGESUB1
TC IBNKCALL # KNOCK DOWN TRACK, REFSMMAT, DRIFT FLAGS
CADR RNDREFDR
@@ -808,7 +808,7 @@ IMUCAGE CCS A # NO ACTION OF GOING OFF.
# Page 175
TS CDUZCMD
TS GYROCMD
CS OCT740 # HAVING WAITED AT LEAST 27 MCT FROM
EXTEND # GYRO PULSE TRAIN TERMINATION, WE CAN
WAND CHAN14 # DE-SELECT THE GYROS.
@@ -826,7 +826,7 @@ IMUCAGE CCS A # NO ACTION OF GOING OFF.
# CALLING SEQUENCE: BY IMUMON WHEN BIT 9 OF CHANNEL 30 CHANGES.
#
# JOBS OR TAKS INITIATED: NONE.
#
#
# SUBROUTINES CALLED: ALARM, IF ISS IS TURNED OFF WHILE IN USE.
#
# ERASABLE INITIALIZATION: ON FRESH START AND RESTART, BIT 9 OF IMODES30 IS SET TO 1 EXCEPT WHEN THE GIMBAL LOCK
@@ -840,14 +840,14 @@ IMUCAGE CCS A # NO ACTION OF GOING OFF.
IMUOP EXTEND
BZF IMUOP2
CS IMODES33 # DISABLE DAP
MASK BIT6
ADS IMODES33
TC IBNKCALL # KNOCK DOWN TRACK, REFSMMAT, DRIFT FLAGS
CADR RNDREFDR
CS BITS7&8 # KNOCK DOWN RENDEZVOUS, IMUUSE FLAGS
MASK FLAGWRD0
XCH FLAGWRD0 # IF GOING OFF, ALARM IF PROG USING IMU.
@@ -855,11 +855,11 @@ IMUOP EXTEND
MASK IMUSEFLG
CCS A
TCF NXTIFAIL
TC ALARM
OCT 214
TCF NXTIFAIL
IMUOP2 CAF BIT2 # SEE IF FAILED ISS TURN-ON SEQ IN PROG.
MASK IMODES30
CCS A
@@ -893,19 +893,19 @@ PIPFAIL CCS A # SET BIT10 IN IMODES30 SO ALL ISS WARNING
XCH IMODES30
MASK -BIT10
ADS IMODES30
TC SETISSW
CS IMODES30 # IF PIP FAIL DOESN'T LIGHT ISS WARNING, DO
MASK BIT1 # A PROGRAM ALARM IF IMU OPERATING BUT NOT
CCS A # CAGED OR BEING TURNED ON.
TCF NXTFL33
CA IMODES30
MASK OCT1720
CCS A
TCF NXTFL33 # ABOVE CONDITION NOT MET.
TC ALARM
OCT 212
TCF NXTFL33
@@ -935,14 +935,14 @@ PIPFAIL CCS A # SET BIT10 IN IMODES30 SO ALL ISS WARNING
DNTMFAST CCS A # DO PROG ALARM IF TM TOO FAST.
TCF NXTFL33
TC ALARM
OCT 1105
TCF NXTFL33
UPTMFAST CCS A # SAME AS DNLINK TOO FAST WITH DIFFERENT
TCF NXTFL33 # ALARM CODE.
TC ALARM
OCT 1106
TCF NXTFL33
@@ -994,18 +994,18 @@ SETISSW CAF OCT15 # SET ISS WARNING USING THE FAIL BITS IN
MASK OCT15000
CCS A
TCF ISSWON # FAILURE.
ISSWOFF CAF BIT1 # DON'T TURN OFF ISS WARNING IF LAMP TEST
MASK IMODES33 # IN PROGRESS.
# Page 180
CCS A
TC Q
CS BIT1
EXTEND
WAND DSALMOUT
TC Q
ISSWON EXTEND
QXCH ITEMP6
TC VARALARM # TELL EVERYONE WHAT CAUSED THE ISS WARNING
@@ -1013,28 +1013,28 @@ ISSWON EXTEND
EXTEND
WOR DSALMOUT
TC ITEMP6
CAGESUB CS BITS6&15 # SET OUTBITS AND INTERNAL FLAGS FOR
EXTEND # SYSTEM TURN-ON OR CAGE. DISABLE THE
WAND CHAN12 # ERROR COUNTER AND REMOVE THE IMU DELAY COMP.
CAF BITS4&5 # SEND ZERO AND COARSE.
EXTEND
WOR CHAN12
CAGESUB1 CS DSPTAB +11D # TURN ON NO ATT LAMP
MASK OC40010
ADS DSPTAB +11D
CAGESUB2 CS IMODES30 # SET FLAGS TO INDICATE CAGING OR TURN-ON
MASK OCT75 # AND INHIBIT ALL ISS WARNING INFO
ADS IMODES30
CS IMODES33 # DISABLE DAP AUTO AND HOLD MODES
MASK BIT6
ADS IMODES33
TC Q
IMUFAIL EQUALS SETISSW
ICDUFAIL EQUALS SETISSW
@@ -1047,18 +1047,18 @@ IFAILJMP TCF ITURNON # CHANNEL 30 DISPATCH.
TCF IMUCAGE
30RDMSK OCT 76400 # (BIT 10 NOT SAMPLED HERE).
TCF IMUOP
C33JMP TCF PIPFAIL # CHANNEL 33 DISPATCH.
TCF DNTMFAST
TCF UPTMFAST
# SUBROUTINE TO SKIP IF LAMP TEST NOT IN PROGRESS.
LAMPTEST CS IMODES33 # BIT 1 OF IMODES33 = 1 IF LAMP TEST IN
MASK BIT1 # PROGRESS.
CCS A
INCR Q
TC Q
33RDMSK EQUALS PRIO16
OC40010 OCT 40010
OCT54 OCT 54
@@ -1115,7 +1115,7 @@ RRAUTCHK CA RADMODES # SEE IF CHANGE IN RR AUTO MODE BIT.
MASK AUTOMBIT
EXTEND
BZF RRCDUCHK
LXCH RADMODES # UPDATE RADMODES.
EXTEND
RXOR LCHAN
@@ -1127,12 +1127,12 @@ RRAUTCHK CA RADMODES # SEE IF CHANGE IN RR AUTO MODE BIT.
CA OCT10001 # SET RRCDUZRO AND TURNON BITS.
ADS RADMODES
# Page 183
# Page 183
CAF ONE
TC WAITLIST
EBANK= LOSCOUNT
2CADR RRTURNON
TCF NORRGMON
OCT05776 OCT 5776
@@ -1174,19 +1174,19 @@ OCT05776 OCT 5776
-3 CS BIT2
EXTEND
WAND CHAN12 # AT TURNON, DISABLE CDU ERROR COUNTERS.
RRCDUCHK CA RADMODES # LAST SAMPLED BIT IN RADMODES.
EXTEND
RXOR CHAN30
MASK RCDUFBIT
EXTEND
BZF RRGIMON
CAF AUTOMBIT # IF RR NOT IN AUTO MODE, DON'T CHANGE BIT
MASK RADMODES # 7 OF RADMODES. IF THIS WERE NOT DONE,
CCS A # THE TRACKER FAIL MIGHT COME ON WHEN
TCF NORRGMON # JUST READING LR DATA.
CAF RCDUFBIT # SET BIT 7 OF RADMODES FOR SETTRKF.
# Page 185
LXCH RADMODES # UPDATE RADMODES.
@@ -1210,7 +1210,7 @@ TRKFLCDU TC SETTRKF # UPDATE TRAKER FAIL LAMP ON DSKY.
# PROGRAM NAME: RRGIMON
#
# FUNCTIONAL DESCRIPTION:
# RRGIMON IS THE RR GIMBAL LIMIT MONITOR. INITIALLY THE FOLLOWING IS
# RRGIMON IS THE RR GIMBAL LIMIT MONITOR. INITIALLY THE FOLLOWING IS
# CHECKED: REMOD, RR CDU'S BEING ZEROED, REPOSITION, AND RR
# NOT IN AUTO MODE (RADMODES BITS 14, 13, 11, 2). IF ANY OF THESE
# EXIST THE PROGRAM EXITS TO GPMATRIX. IF NONE ARE PRESENT RRLIMCHK
@@ -1276,7 +1276,7 @@ MONREPOS CAF REPOSBIT # SET FLAG TO SHOW REPOSITION IN PROGRESS.
TC WAITLIST
EBANK= LOSCOUNT
2CADR DORREPOS
TCF NORRGMON
OCT32002 OCT 32002
@@ -1325,30 +1325,30 @@ DAPT4S EQUALS GPMATRIX
GPMATRIX CAE CDUZ # SINGLE ENTRY POINT
TC SPSIN # SIN(CDUZ) = SIN(MG)
TS M11 # SCALED AT 1
CAE CDUZ
TC SPCOS # COS(CDUZ) = COS(MG)
TS COSMG # SCALED AT 1 (ONLY A FACTOR)
CAE CDUX
CAE CDUX
TC SPSIN # SIN(CDUX) = SIN(OG)
TS M22 # SCALED AT 1 (ALSO IS MR22)
CS M22
# Page 189
EXTEND
MP COSMG # -SIN(OG)COS(MG)
TS M31 # SCALED AT 1
CAE CDUX
CAE CDUX
TC SPCOS # COS(CDUX) = COS(OG)
TS M32 # SCALED AT 1 (ALSO IS MR23)
EXTEND
MP COSMG # COS(OG)COS(MG)
TS M21 # SCALED AT 1
TC RESUME
NORRGMON EQUALS DAPT4S
NORRGMON EQUALS DAPT4S
ENDDAPT4 EQUALS RESUME