Merge branch 'master' of https://github.com/chrislgarry/Apollo-11 into proposed
This commit is contained in:
@ -230,7 +230,7 @@ RATES DLOAD DSU
|
||||
STORE PRATE # B * 2(8)
|
||||
BMN DLOAD # B>0 NOT PERMITTED
|
||||
CHKBMAG
|
||||
#Page 848
|
||||
# Page 848
|
||||
HI6ZEROS
|
||||
STCALL PRATE
|
||||
PROK
|
||||
|
@ -66,7 +66,7 @@ AFDUMP TC MASSMULT
|
||||
|
||||
WHERETO CA EBANK5 # INITIALIZE L*WCR*T AND H*GHCR*T FROM
|
||||
TS EBANK # PAD LOADED ERASABLES IN W-MATRIX
|
||||
#Page 794
|
||||
# Page 794
|
||||
EBANK= LOWCRIT
|
||||
EXTEND
|
||||
DCA LOWCRIT
|
||||
@ -117,7 +117,7 @@ DOPIF TC FASTCHNG
|
||||
TS FCOLD
|
||||
DXCH PIF
|
||||
EXTEND
|
||||
#Page 795
|
||||
# Page 795
|
||||
DCS FP
|
||||
DAS PIF # PIF = FC - FP, NEVER EQUALS +0
|
||||
|
||||
@ -167,7 +167,7 @@ FWCOMP CAF 2SECS
|
||||
MASK LOW8 # MAKE SURE SMALL AND POSITIVE
|
||||
ZL
|
||||
EXTEND
|
||||
#Page 796
|
||||
# Page 796
|
||||
DV Q
|
||||
EXTEND
|
||||
MP PIF
|
||||
@ -214,7 +214,7 @@ MASSMULT EXTEND
|
||||
TC BUF
|
||||
DXCH MPAC +1
|
||||
TC BUF
|
||||
#Page 797
|
||||
# Page 797
|
||||
# CONSTANTS --
|
||||
|
||||
FEXTRA = BIT13 # FEXT +5.13309020 E+4
|
||||
|
Reference in New Issue
Block a user