Proof P70-P71 #618 (#719)

Co-authored-by: James Harris <wopian@wopian.me>
This commit is contained in:
Atakan Suslu 2020-10-19 20:39:08 +03:00 committed by GitHub
parent c6cee02783
commit 4727e92aa1
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

@ -52,7 +52,7 @@ R10,R11A CS IMODES33 # IF LAMP TEST, DO NOT CHANGE LR LITES.
EXTEND
BZF 10,11
FLASHH? MASK FLGWRD11 # C(A) = 1 - HFLASH BIT
FLASHH? MASK FLGWRD11 # C(A) = 1 = HFLASH BIT
EXTEND
BZF FLASHV? # H FLASH OFF, SO LEAVE ALONE
@ -72,7 +72,7 @@ FLASHV? CA VFLSHBIT # VLASHBIT MUST BE BIT 2.
10,11 CA FLAGWRD9 # IS THE LETABORT FLAG SET ?
MASK LETABBIT
EXTEND
BZF LANDISP # NO. PROCEED TO R10.
BZF LANDISP # NO. PROCEED TO R10.
P71NOW? CS MODREG # YES. ARE WE IN P71 NOW?
# Page 830
@ -80,7 +80,7 @@ P71NOW? CS MODREG # YES. ARE WE IN P71 NOW?
EXTEND
BZF LANDISP # YES. PROCEED TO R10.
EXTEND # NO. IS AN ABORT STAGE COMMANDED?
EXTEND # NO. IS AN ABORT STAGE COMMANDED?
READ CHAN30
COM
TS L
@ -88,7 +88,7 @@ P71NOW? CS MODREG # YES. ARE WE IN P71 NOW?
CCS A
TCF P71A # YES.
P70NOW? CS MODREG # NO. ARE WE IN P70 NOW?
P70NOW? CS MODREG # NO. ARE WE IN P70 NOW?
AD 1DEC70
EXTEND
BZF LANDISP # YES. PROCEED TO R10.
@ -146,7 +146,7 @@ ABRTJASK CAF OCTAL27
MASK APSFLBIT
ADS FLGWRD10
CS DAPBITS # DAPBITS = OCT 640 = BITS 6, 8, 9
MASK DAPBOOLS # (TURN OFF ULLAGE, DRIFT, AND XOVINHIB
MASK DAPBOOLS # (TURN OFF: ULLAGE, DRIFT, AND XOVINHIB )
TS DAPBOOLS
CS FLAGWRD5 # SET ENGONFLG.
@ -167,6 +167,7 @@ ABRTJASK CAF OCTAL27
MASK R10FLBIT # CROSS-POINTER DISPLAY.
ADS FLAGWRD0 # THE FOLLOWING ENEMA WILL REMOVE THE
# DISPLAY INERTIAL DATA OUTBIT.
TC CLRADMOD # INSURE RADMODES PROPERLY SET FOR R29.
EXTEND # LOAD TEVENT FOR THE DOWNLINK.
@ -195,7 +196,6 @@ ABRTJASK CAF OCTAL27
COM
DXCH -PHASE4
# the 3 in OCT37774 could be something else, garbled
CAF OCT37774 # SET T5RUPT TO CALL DAPIDLER IN
TS TIME5 # 40 MILLISECONDS.
@ -272,20 +272,20 @@ P70INIT TC INTPRET
SET CALL
FLAP
COMMINIT
AXC,1 GOTO # RETURN HERE IN P70, SET X1 FOR DPS COEFF.
AXC,1 GOTO # RETURN HERE IN P70, SE X1 FOR DPS COEFF.
0D
BOTHPOLY
INJTARG AXC,1 # RETURN HERE IN P71, SET X1 FOR APS COEFF.
INJTARG AXC,1 # RETURN HERE IN P71, SET X1 FOR APS COEFF
8D
BOTHPOLY DLOAD* DMP # TGO D
ABTCOF,1
TGO
# Page 834
DAD* DMP
ABTCOF +2,1 # TGO(C+TGO )
ABTCOF +2,1 # TGO(C+TGO D)
TGO
DAD* DMP
ABTCOF +4,1 # TGO(B+TGO d))
ABTCOF +4,1 # TGO(B+TGO(C+TGO D))
TGO
DAD*
ABTCOF +6,1 # A+TGO(B+TGO(C+TGO D))
@ -295,7 +295,7 @@ BOTHPOLY DLOAD* DMP # TGO D
UPRATE # IF BIG ENOUGH, LEAVE ZDOTD AS IS .
DLOAD
VMIN
STORE ZDOTD # IF TOO SMALL, REPLCAE WITH MINIMUM.
STORE ZDOTD # IF TOO SMALL, REPLACE WITH MINIMUM.
UPRATE DLOAD
ABTRDOT
STCALL RDOTD # INITIALZE RDOTD.
@ -303,7 +303,7 @@ UPRATE DLOAD
ABS DSU
YLIM # /Y/-DYMAX
BMN SIGN # IF <0, XR<.5DEG, LEAVE YCO AT 0
YOK # IF >0, FIX SIGN OF DEFICIT. THIS IS YCO.
YOK # IF >0, FIX SIGN OF DEFICIT, THIS IS YCO.
Y
STORE YCO
YOK DLOAD DSU
@ -323,7 +323,7 @@ UPTHROT SET EXIT
TC PHASCHNG
OCT 04024
-3 TC BANKCALL # VERIFY THAT THE PANEL SWITCHES
-3 TC BANKCALL # VERIFY THAT THE PANEL SWITCHES
CADR P40AUTO # ARE PROPERLY SET.
TC THROTUP
@ -371,6 +371,7 @@ TGO1 = VGBODY
BANK 21
SETLOC R11
BANK
COUNT* $$/P70
LEGAL? CS MMNUMBER # IS THE DESIRED PGM ALREADY IN PROGRESS?
@ -387,7 +388,7 @@ LEGAL? CS MMNUMBER # IS THE DESIRED PGM ALREADY IN PROGRESS?
CA FLAGWRD7 # IS SERVICER ON THE AIR?
MASK AVEGFBIT
CCS A
TC Q # YES. ALL IS WELL.
TC Q # YES. ALL IS WELL.
ABORTALM TC FALTON
TC RELDSP
TC POSTJUMP
@ -399,7 +400,7 @@ ABORTALM TC FALTON
COUNT* $$/P70
# **********************************************************************
# ************************************************************************
TGOCOMP RTB DSU
LOADTIME
@ -421,14 +422,18 @@ THROTUP CAF BIT13
# ************************************************************************
10SECS 2DEC 1000
HINJECT 2DEC 18288 B-24 # 60,000 FEET EXPRESSED IN METERS.
(TGO)A 2DEC 37000 B-17
K(AT) 2DEC .02 # SCALING CONSTANT
WHICHADR REMADR ABRTABLE
# ************************************************************************
# Page 837
EBANK= DVCNTR
ATMAGAD 2CADR ATMAG
ORBMANAD ADRES ORBMANUV
ORBMANAD ADRES ORBMANUV