SevenOfAces/Apollo-Guidance-Computer
1
1
Fork 0
mirror of https://github.com/chrislgarry/Apollo-11.git synced 2025-02-13 16:24:37 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Proof-read Comanche055\P40-P47 (pg. 0716-0736))

Browse source
This commit is contained in:
arda-guler 2021-11-17 16:57:03 +03:00
parent 4ed1904211
commit 149d275f8e
1 changed files with 93 additions and 124 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

217
Comanche055/P40-P47.agc
View file

@ -1494,15 +1494,15 @@ S40.2,3 VLOAD MXV
TSTRXUT
VXV VCOMP
0
VSL1 PDVL # 2 RF/SC IN PDL 12D
VSL1 PDVL # 2 RF/SC IN PDL 12D
XSCREF
VXM VSL1
0
STOVL XSCREF # X OF PREF. IMU,X OF SC IN REF COOR. AT 2
STOVL XSCREF # X OF PREF IMU,X OF SC IN REF COOR. AT 2
YSCREF
VXM VSL1
0
STOVL YSCREF # Y OF PREF. IMU,Y OF SC IN REF COOR. AT 2
STOVL YSCREF # Y OF PREF.IMU,Y OF SC IN REF COOR. AT 2
ZSCREF
VXM VSL1
0
@ -1547,49 +1547,32 @@ YBIAS 2DEC +.00263888889 # YAW MECH BIAS (+0.95 DEG, THRUST ON)
PBIAS 2DEC -.00597222222 # PITCH MECH BIAS (-2.15 DEG, THRUST ON)
# REFERENCE, TRW 68.6520.3.3-40 27 FEB, 1968
# REFERENCE, TRW 68.6520.3.3-40 27FEB,1968
# PROGRAM DESCRIPTION S41.1 DATE 8 DEC 66
# PROGRAM DESCRIPTION S41.1 DATE 8DEC66
# MOD NO 1 LOG SECTION P40-P47
# MOD BY ZELDIN
#
# FUNCTIONAL DESCRIPTION
#
# COMPUTE VELOCITY TO BE GAINED INITIALLY IN REF COORDS.
# TO CONTROL COORDS.
#
# CALLING SEQUENCE
#
# L CALL
# L+1 S41.1
#
# NORMAL EXIT MODE
#
# AT L +2 OF CALLING SEQUENCE
#
# SUBROUTINES CALLED:
#
# CALCSMSC
# CDUTRIG
#
# ALARM OR ABORT MODES
#
# NONE
#
# ERASABLE INITIALIZATION REQUIRED
#
# VG IN REF. COORD. PDL L POINTER AT L+5. S41.1 WILL RETURN WITH
# VG IN REF. COORD. PDL L POINTER AT L+5 .S41.1 WILL RETURN WITH
# POINTER AT L (L MUST BE LESS THAN OR = TO 14D)
#
# OUTPUT
#
# MPAC CONTAINS VG IN CONTROL COORDS VECT. B7 M/CS
#
# MPAC CONTAINS VG IN CONTROL COORDS VECT. B7M/CS
# DEBRIS:
#
# QTEMP TEMP ERASABLE
# QPRET
COUNT 22/S41.1
SETLOC P40S5
@ -1611,32 +1594,32 @@ S41.1 STQ CALL
TENBNK14 2DEC 10. B-4
# Page 719
# NAME S40.8 -- CROSS PRODUCT STEERING
# NAME S40.8 - CROSS PRODUCT STEERING
# FUNCTION (1) UPDATES THE VELOCITY-TO-BE-GAINED VECTOR.
# (2) GENERATES ANGULAR RATE STEERING COMMANDS FOR AUTOPILOT.
# (3) ESTABLISHES ENGINE CUT-OFF SIGNALS AT APPROPRIATE TIMES.
# (4) INITIATES THRUST-FAIL ROUTINE, R40
# CALLING SEQ CALL S40.6
# INPUT VGPREV LAST VALUE OF THE VELOCITY-TO-BE-GAINED VECTOR
# PRIOR TO UPDATING IN METERS/CS AT +7.
# DELVREF CHANGE IN VEHICLE VELOCITY SINCE LAST MEASUREMENT
# IN METERS/CS AT +7.
# BDT EFFECT OF RATE OF CHANGE OF REQUIRED VELOCITY AND
# GRAVITY DURING DT UPON VELOCITY-TO-BE-GAINED IN
# METERS/CS AT +7.
# CSTEER A SCALAR OF THE STEERING LAW, SC.AT B+1, USED FOR
# SPS AIMPOINT STEERING MANEUVERS.
# IDLEFAIL A FLAG TO INHIBIT (IDLE) THE THRUST-FAIL ROUTINE.
# STEERSW A SWITCH TO PRECLUDE NEEDLESS CONDUCT OF STEERING.
# CALLING SEQ CALL S40.8
# INPUT VGPREV - LAST VALUE OF THE VELOCITY-TO-BE-GAINED VECTOR
# PRIOR TO UPDATING IN METERS/CS AT +7.
# DELVREF - CHANGE IN VEHICLE VELOCITY SINCE LAST MEASUREMENT
# IN METERS/CS AT +7.
# BDT - EFFECT OF RATE OF CHANGE OF REQUIRED VELOCITY AND
# GRAVITY DURING DT UPON VELOCITY-TO-BE-GAINED IN
# METERS/CS AT +7.
# CSTEER - A SCALAR OF THE STEERING LAW, SC.AT B+1, USED FOR
# SPS AIMPOINT STEERING MANEUVERS
# IDLEFAIL - A FLAG TO INHIBIT (IDLE) THE THRUST-FAIL ROUTINE
# STEERSW - A SWITCH TO PRECLUDE NEEDLESS CONDUCT OF STEERING
# REFSMMAT, DAPDATR1, PIPTIME
# EREPFRAC, ETDECAY, KPRIMEDT FOR TVC.
# OUTPUT TTOGO TIME REMAINING FOR ENGINE BURN IN CS AT +28.
# OMEGAC DP VECTOR RATE COMMAND, SC.AT 1/(2TVCDT) REVS/SEC.
# OUTPUT TTOGO - TIME REMAINING FOR ENGINE BURN IN CS AT +28
# OMEGAC - DP VECTOR RATE COMMAND, SC.AT 1/(2TVCDT) REVS/SEC
# VG, VGPREV, VGDISP, TGO, TIG, SCALED AS NOTED IN CODING
# STEERSW, IMPULSW, NVWORD1
# REPFRAC, CNTR, VCNTR, VCNTRTMP FOR TVC (R40 INTERFACING)
# DEBRIS OMEGAXC, +1
# SUBROUTINES USED: *SMNB*, ALARM
# DEBRIS OMEGAXC,+1
# SUBROUTINES USED - *SMNB* , ALARM
SETLOC P40S1
BANK
@ -1646,12 +1629,12 @@ TENBNK14 2DEC 10. B-4
S40.8 SETPD STQ
SPBIT1 00D
QTEMP
VLOAD BVSU # CONSTRUCT DELVG, SC.AT B+7 M/CS
VLOAD BVSU # CONSTRUCT DELVG, SC.AT B+7 M/CS
DELVREF
BDT
VAD
VGPREV
STORE VG # VELOCITY-TO-BE-GAINED, SC.AT B+7 M/CS
STORE VG # VELOCITY-TO-BE-GAINED, SC.AT B+7 M/CS
ABVAL
STORE VGDISP # FOR DISPLAY PURPOSES
@ -1794,34 +1777,33 @@ LOTHRUST BON VLOAD # THRUST FAILURE (LO-OR-NO) INDICATED
QTEMP # RESTARTS OK
# Page 723
# NAME S40.9 -- VTOGAIN (AIMPOINT MANEUVERS ONLY)
# NAME S40.9 - VTOGAIN (AIMPOINT MANEUVERS ONLY)
# FUNCTION (1) GENERATES REQUIRED VELOCITY AND VELOCITY-TO-BE-GAINED
# VECTORS FOR USE DURING AIMPOINT MANEUVERS.
# VECTORS FOR USE DURING AIMPOINT MANEUVERS
# (2) UPDATES THE B VECTOR WHICH IS USED IN THE FINAL
# CALCULATION OF EXTRAPOLATING THE VELOCITY-TO-BE-GAINED.
# CALCULATION OF EXTRAPOLATING THE VELOCITY-TO-BE-GAINED
# CALLING SEQ VIA FINDVEC AS NEW JOB.
# INPUT RNIT ACTIVE VEHICLE RADIUS VECTOR IN METERS AT +29.
# VNIT ACTIVE VEHICLE VELOCITY VECTOR IN METERS/CS AT +7.
# VRPREV LAST COMPUTED VELOCITY REQUIRED VECTOR IN
# METERS/CS AT +7.
# NONTIG TIME OF IGN. USED IN TARGETTING ROUTINES B+28
# DELLT4 TRANSFER TIME FROM PIPTIME TO TARGET B+28
# TNIT TIME OF RNIT AND VNIT IN CS AT +28
# GDT/2 HALF OF VELOCITY GAINED IN DELTA T TIME DUE TO
# ACCELERATION OF GRAVITY IN METERS/CS AT +7.
# DELVREF CHANGE IN VELOCITY DURING LAST 2 SEC IN
# METERS/CS AT +7.
# INPUT RNIT - ACTIVE VEHICLE RADIUS VECTOR IN METERS AT +29.
# VNIT - ACTIVE VEHICLE VELOCITY VECTOR IN METERS/CS AT +7.
# VRPREV - LAST COMPUTED VELOCITY REQUIRED VECTOR IN
# METERS/CS AT +7.
# NONTIG - TIME OF IGN. USED IN TARGETTING ROUTINES%+28"
# DELLT4 - TRANSFER TIME FROM PIPTIME TO TARGET%+28"
# TNIT - TIME OF RNIT AND VNIT IN CS AT +28
# GDT/2 - HALF OF VELOCITY GAINED IN DELTA T TIME DUE TO
# ACCELERATION OF GRAVITY IN METERS/CS AT +7.
# DELVREF - CHANGE IN VELOCITY DURING LAST 2 SEC IN
# METERS/CS AT +7.
# NORMSW SET=CENTRAL ANGLE BETWEEN RTARG AND RTIG IS BETWEEN
# 165 TO 195 DEGREES.
# 165 TO 195 DEGREES
# RESET=CENTRAL ANGLE OUTSIDE CONE DESCRIBED ABOVE.
# OUTPUT VGTEMP VELOCITY TO BE GAINED VECTOR IN METERS/CS AT +7.
# COGA INPUT OF INITIAL GUESS FOR LAMBERT FROM S40.1
# OR PREVIOUS PASS THRU S40.9.
# GOBL/2 OBLATENESS TERM IN AVG GRAV CALC: GOBL*RSQ/MU
# VRPREV/ VELOCITY REQUIRED VECTOR IN METERS/CS AT +7.
# BDT B VECTOR IN METERS/CS AT +7.
# SUBROUTINES USED -- INITVEL
# OUTPUT VGTEMP - VELOCITY TO BE GAINED VECTOR IN METERS/CS AT +7.
# COGA - INPUT OF INITIAL GUESS FOR LAMBERT FROM S40.1
# OR PREVIOUS PASS THRU S40.9.
# GOBL/2 - OBLATENESS TERM IN AVG GRAV CALC: GOBL*RSQ/MU
# VRPREV - VELOCITY REQUIRED VECTOR IN METERS/CS AT +7.
# BDT - B VECTOR IN METERS/CS AT +7.
# SUBROUTINES USED - INITVEL
SETLOC P40S1
BANK
@ -1878,7 +1860,7 @@ FIRSTTME SLOAD DCOMP
34D
VXSC VAD
GOBL/2
VGTEMP # NOTE: NO TEST IS MADE TO SUBTRACT GOBL
VGTEMP # NOTE NO TEST IS MADE TO SUBTRACT GOBL
STORE VGTEMP # INSIDE 165-195 DEGREE CONE AREA.
MOONCASE EXIT
TC PHASCHNG
@ -1892,7 +1874,7 @@ COPY40.9 TC INTPRET
STORE VRPREV
CLEAR EXIT
FIRSTFLG
-2 CS ONE # REDO40.9 (RESTART) ENTRY TO END S40.9
-2 CS ONE # REDO40.9 (RESTART) ENTRY TO END S40.9
TS NBRCYCLS
ENDS40.9 TC PHASCHNG
OCT 00001
@ -1907,7 +1889,7 @@ REDO40.9 TC INTPRET # S40.9 RESTARTS COME HERE TO GRACEFULLY
STOVL NBRCYCLS # RATHER THAN LOSE TIME OF BRAND NEW
VGPREV # PASS -- QUICK OLD DATA BETTER THAN
STORE VGTEMP # NONE) NOW CAN GO THRU SETUP.9
EXIT # WITHOUT DISTURBING VGPREV.
EXIT # WITHOUT DISTURBING VGPREV
TCF ENDS40.9 -2 # STORE 0,0 COVERED NBRCYCLS,P -- FIX UP S
200CSHI 2DEC 200 B-12
@ -1919,30 +1901,25 @@ EP4(45)L 2DEC .125
EP4(10)L 2DEC .027777777
# Page 726
# NAME: S40.13 -- TIMEBURN
#
# NAME: S40.13 - TIMEBURN
# FUNCTION (1) DETERMINE WHETHER A GIVEN COMBINATION OF VELOCITY-TO-
# BE-GAINED AND ENGINE CHOICE RESULT IN A BURN TIME SUFFICIENT
# TO ALLOW STEERING AT THE VEHICLE DURING THE BURN, AND
# (2) THE MAGNITUDE OF THE RESULTING BURN TIME -- IF IT IS SHORT --
# AND THE ASSOCIATED TIME OF THE ENGINE OFF SIGNAL.
#
# CALLING SEQUENCE VIA FINDVAC AS A NEW JOB
#
# INPUT VGTIG -- VELOCITY TO BE GAINED VECTOR (METERS/CS) AT +7
# WEIGHT/G -- MASS OF VEHICLE IN KGM AT TIG
# F -- ENGINE THRUST IN M.NEWTONS AT +7
# MDOT -- RATE OF DECREASE OF VEHICLE MASS DURING ENGINE BURN
# IN KILOGRAMS/CENTISECOND AT +3. THIS SCALING MAY
# REQUIRE MODIFICATION FOR SATURN BURNS.
#
# OUTPUT IMPULSW ZERO FOR STEERING
# ONE FOR ATTITUDE HOLD
# TGO TIME TO BURN IN CENTISECONDS AT +14
# THE QUANTITY M.NEWTON SHALL BE USED TO EXPRESS WEIGHT IN TERMS OF
# (KILOGRAM*METER)/(CENTISECOND*CENTISECOND)
# (1) M.NEWTON = (10000) NEWTONS.
# (2) THE MAGNITUDE OF THE RESULTING BURN TIME - IF IT IS SHORT -
# AND THE ASSOCIATED TIME OF THE ENGINE-OFF SIGNAL.
# CALLING SEQ VIA FINDVAC AS A NEW JOB.
# INPUT VGTIG - VELOCITY TO BE GAINED VECTOR (METERS/CS) AT +7
# WEIGHT/G - MASS OF VEHICLE IN KGM AT TIG
# F - ENGINE THRUST IN M.NEWTONS AT +7
# MDOT - RATE OF DECREASE OF VEHICLE MASS DURING ENGINE BURN
# IN KILOGRAMS/CENTISECOND AT +3. THIS SCALING MAY
# REQUIRE MODIFICATION FOR SATURN BURNS.
# OUTPUT IMPULSW - ZERO FOR STEERING
# - ONE FOR ATTITUDE HOLD
# TGO - TIME TO BURN IN CENTISECONDS AT +14
# THE QUANTITY M.NEWTON SHALL BE USED TO EXPRESS WEIGHT IN TERMS OF
# (KILOGRAM*METER)/(CENTISECOND*CENTISECOND)
# (1) M.NEWTON = (10000) NEWTONS
EBANK= TGO
COUNT 16/40.13
@ -1995,7 +1972,7 @@ S40.130 BDSU
S40.131 DLOAD DMP # TGO LESS THAN 100 CS
WEIGHT/G
DAD DDV
K2VAL # M.NEWTON CS AT +24
K2VAL # M.NEWTON-CS AT +24
K3VAL # M.NEWTON AT +10
S40.132 EXIT
EBANK= TGO
@ -2022,15 +1999,16 @@ NOTADDUL TC INTPRET
K1VAL = EK1VAL # DP PAD LOAD B+23 NEWTON-SEC/E+2
K2VAL = EK2VAL # DP PAD LOAD B+23 NEWTON-SEC/E+2
K3VAL = EK3VAL # DP PAD LOAD B+09 NEWTONS/E+4
K3VAL = EK3VAL # SP PAD LOAD B+09 NEWTONS/E+4
1SEC2D 2DEC 100.0 B-14 # 100.0 CS AT +14
# Page 728
3.5SEC 2DEC 350.0 B-13 # 350 CS AT +13
3.5SEC 2DEC 350.0 B-13 # 350.0 CS AT +13
5SECOND 2DEC 500.0 B-14 # 500.0 CS AT +14
S40.135 2DEC 69.6005183 B-23 # IMPULSE FROM 7.96 SECS OF 2-JET FIRING
# 7.96 (199.6)COS(10) LB-SEC, SC.AT
#
# 7.96(199.6)COS(10) LB-SEC, SC.AT
# B+23 NEWTON-SEC/E+2 (7 SEC ULLAGE
# TO GO, PLUS 0.96 SEC FROM PIPTIME)
@ -2038,42 +2016,34 @@ S40.135 2DEC 69.6005183 B-23 # IMPULSE FROM 7.96 SECS OF 2-JET FIRING
# NAME S40.6 GIMBAL DRIVE TEST AND/OR GIMBAL TRIM
# MOD NO 5 DATE 9 MARCH, 1967
# MOD BY ENGEL LOG SECTION P40-P47
#
# FUNCTIONAL DESCRIPTION
# GIMBAL DRIVE TEST....0,+2,-2,0 DEGREE ENGINE COMMANDS, AT 2 SECOND
# INTERVALS, FIRST IN PITCH, THEN IN YAW. ASTRONAUT VERIFICATION
# OF GIMBAL MOTION ON GPI
# GIMBAL TRIM....AFTER A 4 SECOND DELAY, ENGINE COMMANDED TO
# GIMBAL TRIM....AFTER A 4 SECOND DELAY,ENGINE COMMANDED TO
# PRE-COMPUTED TRIM POSITION. ASTRONAUT VERIFICATION ON GPI.
# PRE40.6....RESTART ENTRY TO RE-DO S40.6, ONLY IF RCS IS ON --- IF TVC
# IS NOT ON --- PRIMARILY TO GET ACTUATORS TRIMMED FOR IGNITION.
# PRE40.6....RESTART ENTRY TO RE-DO S40.6, ONLY IF RCS IS ON - IF TVC
# IS NOT ON - PRIMARILY TO GET ACTUATORS TRIMMED FOR IGNITION.
# BYPASS 4 SEC DELAY. SPEED IS CRITICAL NEAR IGNITION.
# IF TVC IS ON (TVCDAPON OR LATER) THEN REDOTVC WILL TAKE CARE
# IF TVC IS ON (TVCDAPON OR LATER) THEN REDOTVC WILL TAKE CARE
# OF RESTARTING ACTUATORS.
#
# CALLING SEQUENCE....
# WAITLIST, WITH 2CADR FOR S40.6 (OR PRE40.6), WITH EBANK= CNTR
#
# NORMAL EXIT MODE -- FIXDELAY, TASKOVER
#
# WAITLIST, WITH 2CADR FOR S40.6 (OR PRE40.6), WITH EBANK= CNTR
# NORMAL EXIT MODE - FIXDELAY, TASKOVER
# SUBROUTINES CALLED....
# OUTPUT (INTERNAL)
# FIXDELAY
#
# ALARM OR ABORT EXIT MODES --- NONE
#
# ALARM OR ABORT EXIT MODES - NONE
# ERASABLE INITIALIZATION REQUIRED
# CNTR = +0, NORMALLY SET BY THE P40 CALL AT TST,TRIM.
# MRKRTMP....POSITIVE FOR GIMBAL DRIVE TEST AND GIMBAL TRIM (BOTH)
# NEGATIVE FOR GIMBAL TRIM ONLY
# PACTOFF, YACTOFF SC.AT 85.41 ARCSEC/BIT (V48N48 P, YTRIM)
# "SC CONT" SWITCH AT "CMC" (A/P CONTROL SWITCH AT "GNC")
# PACTOFF, YACTOFF SC.AT 85.41 ARCSEC/BIT (V48N48 P,YTRIM)
# ..SC CONT.. SWITCH AT ..CMC.. (A/P CONTROL SWITCH AT ..GNC..)
# ACTIVE SPS GIMBAL MOTOR POWER(S), PITCH, YAW
#
# OUTPUT
# TVCYAW, TVCPITCH (BITS RELEASED)
# TVC ENABLE AND OPTICS ERROR COUNTER ENABLE
#
# TVC ENABLE AND OPTICS ERROR COUNTER ENABLE
# DEBRIS
# TBMPR60, CNTR
@ -2095,7 +2065,7 @@ PRE40.6 CS FLAGWRD6 # RESTART ENTRY TO S40.6 (DO NOT PERMIT
TS MRKRTMP
CAF BIT1 # FOR REVISED S40.6 TIMING FOR RESTARTS...
TS CNTR # TO INDICATE A RESTART ENTRY (CNTR 1S
TS CNTR # TO INDICATE A RESTART ENTRY (CNTR IS
# NORMALLY +0, BY S40.6)
EBANK= CNTR
@ -2103,7 +2073,7 @@ S40.6 CS ZERO # INHIBIT OPTICS ACTIVITY
TS OPTIND
CS BIT2 # DISENABLE OPTICS ERROR COUNTERS (ZERO,
EXTEND # AND INHIBIT PULSE TRANSMISSION --
EXTEND # AND INHIBIT PULSE TRANSMISSION -
WAND CHAN12 # NORMAL STATE)
CAF OCT02200 # TVC ENABLE (SPS SERVO AMPS SEE DAC
@ -2139,7 +2109,7 @@ GIMDTEST CAF +2ACTDEG # GIMBAL DRIVE TEST, 1ST INCREMENT
CAF +2ACTDEG # 3RD INCREMENT (LEAVES GIMBAL AT -0)
TC OUTPUT
CS CNTR # CHECK FOR COMPLETION OF YAW TEST.
CS CNTR # CHECK FOR COMPLETION OF YAW TEST
# Page 731
CCS A
TCF GIMTRIM # COMPLETED, GO TO GIMBAL TRIM ROUTINE
@ -2182,7 +2152,7 @@ OCT02200 OCT 02200 # BITS 8,11 FOR CHANNEL 12 TVC/OPTICS
-4ACTDEG DEC -168 # -2(+2ACTDEG), WHOLE BITS, NO ROUNDUP
+2ACTDEG DEC +84 # +2 DEG, SC.AT 85.41 ARCSEC/BIT (+84D)
# CALLED BY "DONOUN46" (VERB 48), OR DIRECTLY BY "FRESHDAP" (RCS DAP) VIA IBNKCALL
# CALLED BY ..DONOUN46.. (VERB 48), OR DIRECTLY BY ..FRESHDAP.. (RCS DAP) VIA IBNKCALL
COUNT 20/S41.2
@ -2251,7 +2221,7 @@ TOGETHER CS FLAGWRD7 # ATTACHED, SET FLAG FOR INTEGRATION
TCF +2
CS ONE
COM
TS ACORBD # MINUS FOR A-C, PLUS FOR B-D
TS ACORBD # MINUS FOR A-C,PLUS FOR B-D
CA DAPDATR2
MASK BIT10
@ -2285,7 +2255,7 @@ BDFAIL CA DAPDATR2
TS RBDFAIL
TC Q
# DAPFIG ENTRY VIA TC POSTJUMP AS JOB FROM "STABLISH" (VERB 46)
# DAPFIG ENTRY VIA TC POSTJUMP AS JOB FROM ..STABLISH.. (VERB 46)
BANK 42
SETLOC EXTVBS
@ -2312,13 +2282,13 @@ RCSDAPUP INHINT # CALL TO ACTIVATE RCSDAP, AND RETURN
CADR RCSDAPON
RELINT
TCF ENDFIG # CAME IN VIA V46, GO OUT VIA GOPIN
NODAPUP EXTEND # T5 IDLE FOR NODAP (DON'T WORRY ABOUT T)
NODAPUP EXTEND # T5 IDLE FOR NODAP (DONT WORRY ABOUT T)
DCA T5IDLDAP
DXCH T5LOC
TC DOWNFLAG # RESET T5-USAGE FLAGS FOR NODAP
ADRES DAPBIT1 # BIT 15 FLAG 6 = 0
ADRES DAPBIT1 # BIT 15 FLAG 6 = 0
TC DOWNFLAG
ADRES DAPBIT2 # BIT 14 FLAG 6 = 0
ADRES DAPBIT2 # BIT 14 FLAG 6 = 0
INHINT
TC IBNKCALL # ZERO JET CHANNELS IN 14 MS AND THEN
CADR ZEROJET # LEAVE THE T6 CLOCK DISABLED.
@ -2331,6 +2301,7 @@ ENDFIG TC POSTJUMP # CAME IN VIA V46, GO OUT VIA GOPIN
EBANK= PACTOFF
T5IDLDAP 2CADR T5IDLOC
SBANK= LOWSUPER
BANK 17
SETLOC DAPS6
@ -2341,7 +2312,7 @@ DEC46 DEC 46
# Page 735
# CALLED BY "DONOUN47" (VERB 48), OR DIRECTLY BY "FRESHDAP" (RCS DAP)
# CALLED BY ..DONOUN47.. (VERB 48), OR DIRECTLY BY ..FRESHDAP.. (RCS DAP)
S40.14 CAE IXX # RCS ENTRY
EXTEND
MP CONTONE
@ -2425,5 +2396,3 @@ RCSDAPON CAF 0.6SECT5 # 0.6 SEC ALLOWS TVCEXEC/ROLLDAP TO DIE
TS FLAGWRD6 # KILLS TVCEXEC AND ROLLDAP STARTS
TC Q # RETURN TO CALLER (TVCDAPOF OR RCSDAPUP)