From 149d275f8e8a663d84902109850e72929c19a074 Mon Sep 17 00:00:00 2001 From: arda-guler Date: Wed, 17 Nov 2021 16:57:03 +0300 Subject: [PATCH] Proof-read Comanche055\P40-P47 (pg. 0716-0736)) --- Comanche055/P40-P47.agc | 217 +++++++++++++++++----------------------- 1 file changed, 93 insertions(+), 124 deletions(-) diff --git a/Comanche055/P40-P47.agc b/Comanche055/P40-P47.agc index 828982a..537794c 100644 --- a/Comanche055/P40-P47.agc +++ b/Comanche055/P40-P47.agc @@ -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) - -