01# P63: THE LUNAR LANDING, BRAKING PHASE
02# *************************************
03
04COUNT*$$/P63
05
06P63LMTCPHASCHNG
07OCT04024
08
09TCBANKCALLDO IMU STATUS CHECK ROUTINE R02
10CADRR02BOTH
11
12CAFP63ADRESINITIALIZE WHICH FOR BURNBABY
13TSWHICH
14
15CAFDPSTHRSHINITIALIZE DVMON
16TSDVTHRUSH
17CAFFOUR
18TSDVCNTR
19
20CSONEINITIALIZE WCHPHASE AND FLPASS0
21TSWCHPHASE
22
23CAZERO
24TSFLPASS0
25
26CSBIT14
27EXTEND
28WANDCHAN12REMOVE TRACK-ENABLE DISCRETE.
29
30FLAGORGYTCINTPRETDIONYSIAN FLAG WAVING
31CLEARCLEAR
32NOTHROTL
33REDFLAG
34CLEARSET
35P64DISPSCATREDESHAS TREDES REACHED ZERO?
36EXTEND
37BZFRED-OVERYES: CLEAR REDESIGNATION FLAG
38
39CSFLAGWRD6NO: IS REDFLAG SET?
40MASKREDFLBIT
41EXTEND
42BZFREDES-OKYES: DO STATIC DISPLAY
43
44CAFV06N64OTHERWISE USE FLASHING DISPLAY
45TCBANKCALL
46CADRREFLASHR
47TCFGOTOPOOHTERMINATE
48TCFP64CEEDPROCEED PERMIT REDESIGNATIONS
49TCFP64DISPSRECYCLE
50# Page 815
51TCFENDLLJOB
52
53P64CEEDCAFZERO
54TSELINCR1
55TSAZINCR1
56
57TCUPFLAGENABLE REDESIGNATION LOGIC
58ADRESREDFLAG
59
60TCFENDOFJOB
61
62RED-OVERTCDOWNFLAG
63ADRESREDFLAG
64REDES-OKCAFV06N64
65# GUIDANCE FOR P66
66# **********************************************************
67
68P66VERTTCPOSTJUMP
69CADRP66VERTA
70
71P67VERTTCPHASCHNGTERMINATE GROUP 3.
72OCT00003
73
74TCINTPRET
75VLOADGOTO
76V
77VHORCOMP
78
79SETLOCP66LOC
80BANK
81COUNT*$$/F2DPS
82
83RODTASKCAFPRIO22
84TCFINDVAC
85EBANK=DVCNTR
862CADRRODCOMP
87
88TCFTASKOVER
89
90P66VERTATCPHASCHNGTERMINATE GROUP 3.
91OCT00003
92
93CAF1SEC
94TCTWIDDLE
95ADRESRODTASK
96
97# FLATOUT THROTTLES UP THE DESCENT ENGINE, AND IS CALLED AS A BASIC SUBROUTINE.
98
99FLATOUTCAFBIT134096 PULSES
100WHATOUTTSPIFPSETUSE PIFPSET SO FWEIGHT WILL BE ZERO
101CSZERO
102TSFCOLD
103TSPIF
104EXTEND
105QXCHRTNHOLD
106TCFDOIT
107
108# MASSMULT SCALES ACCELERATION, ARRIVING IN A AND L IN UNITS OF 2(-4) M/CS/CS, TO FORCE IN PULSE UNITS.
109
110MASSMULTEXTEND
111QXCHBUF
112DXCHMPAC
113TCDMP
114ADRESMASS
115TCDMPLEAVES PROPERLY SCALED FORCE IN MPAC
116ADRESSCALEFAC
117TCTPAGREE
118CAMPAC
119EXTEND
120BZF+3