mirror of
https://github.com/chrislgarry/Apollo-11.git
synced 2025-02-13 16:24:37 +00:00
finished though pg 965
This commit is contained in:
serialhex
parent
60d9cea338
commit
5a50655fa6
1 changed files with 95 additions and 104 deletions
|
|
@ -1203,21 +1203,21 @@ S52.3 STQ
|
||||||
QMAJ
|
QMAJ
|
||||||
|
|
||||||
# Page 955
|
# Page 955
|
||||||
# NAME -- R52 (AUTOMATIC OPTICS POSITIONING ROUTINE)
|
# NAME -R52 (AUTOMATIC OPTICS POSITIONING ROUTINE)
|
||||||
#
|
#
|
||||||
# FUNCTION -- POINT THE AOT APTICS AXIS BY MANEUVERING THE LEM TO A NAVIGATION
|
# FUNCTION-POINT THE AOT OPTIC AXIS BY MANEUVERING THE LEM TO A NAVIGATION
|
||||||
# STAR SELECTED BY ALIGNMENT PROGRAMS OR DSKY INPUT
|
# STAR SELECTED BY ALIGNMENT PROGRAMS OR DSKY INPUT
|
||||||
#
|
#
|
||||||
# CALLING -- CALL R52
|
# CALLING -CALL R52
|
||||||
#
|
#
|
||||||
# INPUT -- BESTI AND BESTJ (STAR CODES TIMES 6)
|
# INPUT -BESTI AND BESTJ (STAR CODES TIMES 6)
|
||||||
#
|
#
|
||||||
# OUTPUT -- STAR CODE IN BITS 1-6, DETENT CODE IN BITS 7-9
|
# OUTPUT -STAR CODE IN BITS1-6, DETENT CODE IN BITS 7-9
|
||||||
# (NO CHECK IS MADE TO INSURE THE DETENT CODE TO BE VALID)
|
# (NO CHECK IS MADE TO INSURE THE DETENT CODE TO BE VALID)
|
||||||
# POINTVSM-1/2 UNIT NAV STAR VEC IN SM
|
# POINTVSM-1/2 UNIT NAV STAR VEC IN SM
|
||||||
# SCAXIS-AOT OPTIC AXIS VEC IN NB X-Z PLANE
|
# SCAXIS-AOT OPTIC AXIS VEC IN NB X-Z PLANE
|
||||||
#
|
#
|
||||||
# SUBROUT -- R60LEM
|
# SUBROUT -R60LEM
|
||||||
|
|
||||||
COUNT* $$/R52
|
COUNT* $$/R52
|
||||||
R52 STQ EXIT
|
R52 STQ EXIT
|
||||||
|
|
@ -1232,9 +1232,9 @@ R52 STQ EXIT
|
||||||
R52A CAF V01N70
|
R52A CAF V01N70
|
||||||
TC BANKCALL
|
TC BANKCALL
|
||||||
CADR GOFLASH # DISPLAY STARCODE AND WAIT FOR RESPONSE
|
CADR GOFLASH # DISPLAY STARCODE AND WAIT FOR RESPONSE
|
||||||
TC GOTOPOOH # V34 -- TERMINATE
|
TC GOTOPOOH # V34-TERMINATE
|
||||||
TCF R52B # V33 -- PROCEED TO ORIENT LEM
|
TCF R52B # V33-PROCEED TO ORIENT LEM
|
||||||
TCF R52A # ENTER -- SELECT NEW STARCODE -- RECYCLE
|
TCF R52A # ENTER-SELECT NEW STARCODE-RECYCLE
|
||||||
|
|
||||||
R52B TC DOWNFLAG
|
R52B TC DOWNFLAG
|
||||||
ADRES 3AXISFLG # BIT6 OF FLAGWRD5 ZERO TO ALLOW VECPOINT
|
ADRES 3AXISFLG # BIT6 OF FLAGWRD5 ZERO TO ALLOW VECPOINT
|
||||||
|
|
@ -1259,7 +1259,7 @@ R52B TC DOWNFLAG
|
||||||
CA AOTAZ -1 # PICK UP AZ CORRESPONDING TO DETENT
|
CA AOTAZ -1 # PICK UP AZ CORRESPONDING TO DETENT
|
||||||
TS L
|
TS L
|
||||||
EBANK= XSM
|
EBANK= XSM
|
||||||
CA EBANK5 # CHANGE TO EBANK5 BUT DON'T DISTURB L
|
CA EBANK5 # CHANGE TO EBANK5 BUT DONT DISTURB L
|
||||||
TS EBANK
|
TS EBANK
|
||||||
CA BIT13 # SET ELV TO 45 DEG
|
CA BIT13 # SET ELV TO 45 DEG
|
||||||
XCH L # SET C(A)=AZ, C(L)=45 DEG
|
XCH L # SET C(A)=AZ, C(L)=45 DEG
|
||||||
|
|
@ -1268,12 +1268,12 @@ R52B TC DOWNFLAG
|
||||||
GETAZEL CAF V06N87 # CODE 0 OR 7, GET AZ AND EL KEY IN
|
GETAZEL CAF V06N87 # CODE 0 OR 7, GET AZ AND EL KEY IN
|
||||||
TC BANKCALL
|
TC BANKCALL
|
||||||
CADR GOFLASH
|
CADR GOFLASH
|
||||||
TC GOTOPOOH # V34 -- TERMINATE
|
TC GOTOPOOH # V34-TERMINATE
|
||||||
TCF +2 # PROCEED -- CALC OPTIC AXIS
|
TCF +2 # PROCEED-CALC OPTIC AXIS
|
||||||
TCF GETAZEL # ENTER -- RECYCLE
|
TCF GETAZEL # ENTER-RECYCLE
|
||||||
|
|
||||||
EXTEND
|
EXTEND
|
||||||
DCA AZ # PICK UP AZ AND EL IN SP 2'S COMP
|
DCA AZ # PICK UP AZ AND EL IN SP 2S COMP
|
||||||
AZEL INDEX FIXLOC # JAM AZ AND EL IN 8 AND 9 OF VAC
|
AZEL INDEX FIXLOC # JAM AZ AND EL IN 8 AND 9 OF VAC
|
||||||
DXCH 8D
|
DXCH 8D
|
||||||
TC INTPRET
|
TC INTPRET
|
||||||
|
|
@ -1290,7 +1290,7 @@ AZEL INDEX FIXLOC # JAM AZ AND EL IN 8 AND 9 OF VAC
|
||||||
TC BANKCALL
|
TC BANKCALL
|
||||||
CADR R60LEM # GO TORQUE LEM OPTIC AXIS TO STAR LOS
|
CADR R60LEM # GO TORQUE LEM OPTIC AXIS TO STAR LOS
|
||||||
|
|
||||||
CAF HIGH9 # IF COAS CALIBRATION CODE 0. RECYCLE
|
CAF HIGH9 # IF COAS CALIBRATION CODE 0. RECYCLE
|
||||||
MASK STARCODE
|
MASK STARCODE
|
||||||
EXTEND
|
EXTEND
|
||||||
BZF R52A
|
BZF R52A
|
||||||
|
|
@ -1312,16 +1312,16 @@ V06N87 VN 687
|
||||||
COUNT* $$/R59
|
COUNT* $$/R59
|
||||||
|
|
||||||
R59 CS FLAGWRD3
|
R59 CS FLAGWRD3
|
||||||
MASK REFSMBIT # IF REFSMMAT FLAG CLEAR BYPASS STAR ACQUIRE
|
MASK REFSMBIT # IF REFSMMAT FLAG CLEAR BYPASS STAR AQUIR
|
||||||
CCS A
|
CCS A
|
||||||
TCF R59OUT # NO REFSMMAT GO TO AOTMARK
|
TCF R59OUT # NO REFSMMAT GO TO AOTMARK
|
||||||
|
|
||||||
CAF V01N70* # SELECT STAR CODE FOR ACQUISITION
|
CAF V01N70* # SELECT STAR CODE FOR ACQUISITION
|
||||||
TC BANKCALL
|
TC BANKCALL
|
||||||
CADR GOFLASH
|
CADR GOFLASH
|
||||||
TC GOTOPOOH # V34 -- TERMINATE
|
TC GOTOPOOH # V34-TERMINATE
|
||||||
TCF R59A # V33 -- PROCEED
|
TCF R59A # V33-PROCEED
|
||||||
TCF R59 # V32 -- RECYCLE
|
TCF R59 # V32-RECYCLE
|
||||||
|
|
||||||
R59A CS HIGH9 # GRAB STARCODE FOR INDEX
|
R59A CS HIGH9 # GRAB STARCODE FOR INDEX
|
||||||
MASK AOTCODE
|
MASK AOTCODE
|
||||||
|
|
@ -1348,7 +1348,7 @@ R59A CS HIGH9 # GRAB STARCODE FOR INDEX
|
||||||
STORE STAR # TEMP STORE STAR VEC(NB)
|
STORE STAR # TEMP STORE STAR VEC(NB)
|
||||||
EXIT
|
EXIT
|
||||||
|
|
||||||
CAF BIT1 # INITIALIZE AZ POSITION COD TO 1 (-60)
|
CAF BIT1 # INITIALIZE AZ POSITION CODE TO 1 (-60)
|
||||||
TS POSCODE
|
TS POSCODE
|
||||||
|
|
||||||
EBANK= XYMARK
|
EBANK= XYMARK
|
||||||
|
|
@ -1381,7 +1381,7 @@ INCAZ CA EBANK7
|
||||||
|
|
||||||
DSU BPL
|
DSU BPL
|
||||||
DEG30 # SEE IF STAR IN AOT FIELD-OF-VIEW
|
DEG30 # SEE IF STAR IN AOT FIELD-OF-VIEW
|
||||||
NXAX # NOT IN FIELD -- TRY NEXT POSITION
|
NXAX # NOT IN FIELD - TRY NEXT POSITION
|
||||||
DLOAD DSU # SEE IF STAR AT FIELD CENTER
|
DLOAD DSU # SEE IF STAR AT FIELD CENTER
|
||||||
24D
|
24D
|
||||||
DEG.5
|
DEG.5
|
||||||
|
|
@ -1395,20 +1395,20 @@ INCAZ CA EBANK7
|
||||||
SCAXIS # OA
|
SCAXIS # OA
|
||||||
VXV UNIT
|
VXV UNIT
|
||||||
XUNIT
|
XUNIT
|
||||||
PUSH VXV # OA X UNITX PD 0-5
|
PUSH VXV # OA X UNITX PD 0-5
|
||||||
SCAXIS
|
SCAXIS
|
||||||
VCOMP
|
VCOMP
|
||||||
UNIT PDVL # UNIT(OA X (OA X UNITX)) PD 6-11
|
UNIT PDVL # UNIT(OA X(OA X UNITX)) PD 6-11
|
||||||
SCAXIS
|
SCAXIS
|
||||||
VXV UNIT
|
VXV UNIT
|
||||||
STAR
|
STAR
|
||||||
PUSH DOT # 1/2(OA X STAR) PD 12-17
|
PUSH DOT # 1/2(OA X STAR) PD 12-17
|
||||||
0 # DOT WITH 1/2(OA X UNITX) FOR YROT
|
0 # DOT WITH 1/2(OA X UNITX) FOR YROT
|
||||||
SL1 ARCCOS
|
SL1 ARCCOS
|
||||||
STOVL 26D # STORE THET SCALED IN REVS
|
STOVL 26D # STORE THET SCALED IN REVS
|
||||||
# Page 959
|
# Page 959
|
||||||
DOT # UP 12-17, UP 6-11 FOR C2
|
DOT # UP 12-17, UP 6-11 FOR C2
|
||||||
BPL DLOAD # IF THET NEG -- GET 360-THET
|
BPL DLOAD # IF THET NEG-GET 360-THET
|
||||||
R59D
|
R59D
|
||||||
ABOUTONE
|
ABOUTONE
|
||||||
DSU
|
DSU
|
||||||
|
|
@ -1431,7 +1431,7 @@ R59D SLOAD SR1
|
||||||
TCF 79DISP # GO DISPLAY CURSOR-SPIRAL-POS CODE
|
TCF 79DISP # GO DISPLAY CURSOR-SPIRAL-POS CODE
|
||||||
|
|
||||||
ZSPCR EXIT
|
ZSPCR EXIT
|
||||||
CAF ZERO # STAR ALMOST OPTIC AXIS, ZERO CURSOR
|
CAF ZERO # STAR ALMOST OPTIC AXIS,ZERO CURSOR
|
||||||
TS CURSOR # AND SPIRAL ANGLES
|
TS CURSOR # AND SPIRAL ANGLES
|
||||||
TS SPIRAL
|
TS SPIRAL
|
||||||
TCF 79DISP
|
TCF 79DISP
|
||||||
|
|
@ -1444,22 +1444,22 @@ NXAX EXIT
|
||||||
BZMF R59ALM # THIS STAR NOT AT ANY POSITION
|
BZMF R59ALM # THIS STAR NOT AT ANY POSITION
|
||||||
TCF INCAZ
|
TCF INCAZ
|
||||||
|
|
||||||
R59ALM TC ALARM # THIS STAR CAN'T BE LOCATED IN AOT FIELD
|
R59ALM TC ALARM # THIS STAR CANT BE LOCATED IN AOT FIELD
|
||||||
OCT 404
|
OCT 404
|
||||||
CAF VB05N09 # DISPLAY ALARM
|
CAF VB05N09 # DISPLAY ALARM
|
||||||
TC BANKCALL
|
TC BANKCALL
|
||||||
CADR GOFLASH
|
CADR GOFLASH
|
||||||
TCF GOTOPOOH # VB34 -- TERMINATE
|
TCF GOTOPOOH # VB34-TERMINATE
|
||||||
TCF R59OUT # VB33 -- PROCEED, GO WITHOUT ACQUIRE
|
TCF R59OUT # VB33-PROCEED, GO WITHOUT ACQUIRE
|
||||||
TCF R59 # VB32 -- RECYCLE AND TRY ANOTHER STAR
|
TCF R59 # VB32-RECYCLE AND TRY ANOTHER STAR
|
||||||
|
|
||||||
79DISP CAF V06N79 # DISPLAY CURSOR, SPIRAL AND POS CODE
|
79DISP CAF V06N79 # DISPLAY CURSOR, SPIRAL AND POS CODE
|
||||||
TC BANKCALL
|
TC BANKCALL
|
||||||
CADR GOFLASH
|
CADR GOFLASH
|
||||||
TCF GOTOPOOH # V34 -- TERMINATE
|
TCF GOTOPOOH # V34-TERMINATE
|
||||||
# Page 960
|
# Page 960
|
||||||
TCF R59E # V33 -- PROCEED TO MARK ROUTINE
|
TCF R59E # V33-PROCEED TO MARK ROUTINE
|
||||||
TCF R59 # V32 -- RECYCLE TO TOP OF R59 AGAIN
|
TCF R59 # V32-RECYCLE TO TOP OF R59 AGAIN
|
||||||
|
|
||||||
R59E CAF SEVEN # GET DETENT CODE CORRESPONDING TO POSCODE
|
R59E CAF SEVEN # GET DETENT CODE CORRESPONDING TO POSCODE
|
||||||
MASK POSCODE
|
MASK POSCODE
|
||||||
|
|
@ -1480,31 +1480,31 @@ R59OUT TC BANKCALL # GO TO AOTMARK FOR SIGHTING
|
||||||
V01N70* VN 170
|
V01N70* VN 170
|
||||||
V06N79 VN 679
|
V06N79 VN 679
|
||||||
DEG30 2DEC .083333333 # 30 DEGREES
|
DEG30 2DEC .083333333 # 30 DEGREES
|
||||||
DEG.5 2DEC .00138888 # .5 DEGREES SCALED IN REVS.
|
DEG.5 2DEC .00138888 # .5 DEGREES SCALED IN REVS
|
||||||
DEG60 OCT 12525 # 60 DEG CDU SCALING
|
DEG60 OCT 12525 # 60 DEG CDU SCALING
|
||||||
CURSOR EQUALS GDT/2
|
CURSOR EQUALS GDT/2
|
||||||
SPIRAL EQUALS GDT/2 +2
|
SPIRAL EQUALS GDT/2 +2
|
||||||
POSCODE EQUALS GDT/2 +4
|
POSCODE EQUALS GDT/2 +4
|
||||||
|
|
||||||
# Page 961
|
# Page 961
|
||||||
# NAME -- PLANET
|
# NAME - PLANET
|
||||||
# FUNCTION -- TO PROVIDE THE REFERENCE VECTOR FOR THE SIGHTED CELESTIAL
|
# FUNCTION -TO PROVIDE THE REFERENCE VECTOR FOR THE SIGHTED CELESTIAL
|
||||||
# BODY. STARS ARE FETCHED FROM THE CATALOG, SUN, EARTH AND
|
# BODY. STARS ARE FETCHED FROM THE CATALOG,SUN,EARTH AND
|
||||||
# MOON ARE COMPUTED BY LOCSAM, PLANET VECTORS ARE ENTERED
|
# MOON ARE COMPUTED BY LOCSAM,PLANET VECTORS ARE ENTERED
|
||||||
# BY DSKY INPUT.
|
# BY DSKY INPUT
|
||||||
# CALL -- CALL
|
# CALL - CALL
|
||||||
# PLANET
|
# PLANET
|
||||||
# INPUT -- TIME IN MPAC
|
# INPUT - TIME IN MPAC
|
||||||
# OUTPUT -- VECTOR IN MPAC
|
# OUTPUT - VECTOR IN MPAC
|
||||||
# SUBROUTINES -- LOCSAM
|
# SUBROUTINES - LOCSAM
|
||||||
# DEBRIS -- VAC, STARAD - STARAD +17
|
# DEBRIS - VAC .STARAD - STARAD +17
|
||||||
|
|
||||||
SETLOC P50S
|
SETLOC P50S
|
||||||
BANK
|
BANK
|
||||||
COUNT* $$/P51
|
COUNT* $$/P51
|
||||||
|
|
||||||
PLANET STOVL TSIGHT
|
PLANET STOVL TSIGHT
|
||||||
ZEROVEC
|
ZEROVEC # ZERO N88 DISPLAY VEC
|
||||||
STORE STARAD
|
STORE STARAD
|
||||||
STQ EXIT
|
STQ EXIT
|
||||||
GCTR
|
GCTR
|
||||||
|
|
@ -1561,41 +1561,35 @@ CALSAM DLOAD CALL
|
||||||
GCTR
|
GCTR
|
||||||
DEC227 DEC 227
|
DEC227 DEC 227
|
||||||
VNPLANV VN 0688
|
VNPLANV VN 0688
|
||||||
PIPSRINE = PIPASR +3 # EBANK NOT 4 SO DON'T LOAD PIPTIME1
|
PIPSRINE = PIPASR +3 # EBANK NOT 4 SO DONT LOAD PIPTIME1
|
||||||
|
|
||||||
# Page 963
|
# Page 963
|
||||||
# GRAVITY VECTOR DETERMINATION ROUTINE
|
# GRAVITY VECTOR DETERMINATION ROUTINE
|
||||||
# BY KEN VINCENT
|
# BY KEN VINCENT
|
||||||
#
|
# FOR DETAILED DESCRIPTION SEE 504GSOP 5.6.3.2.5
|
||||||
# FOR DETAILED DESCRIPTION SEE 504GSOP 5.6.3.2.5.
|
# THIS PROGRAM FINDS THE DIRECTION OF THE MOONS GRAVITY
|
||||||
#
|
# WHILE THE LM IS ON THE MOONS SURFACE. IT WILL BE USED
|
||||||
# THIS PROGRAM FINDS THE DIRECTION OF THE MOON'S GRAVITY
|
# FOR LUNAR SURFACE ALIGNMENT. THE GRAVITY VECTOR IS
|
||||||
# WHILE THE LM IS IN THE MOON'S SURFACE. IT WILL BE USED
|
|
||||||
# FOR LUNAR SURFACE ALIGNMENT. THE GRAVITY VECTOR IS
|
|
||||||
# DETERMINED BY READING THE PIPAS WITH THE IMU AT TWO
|
# DETERMINED BY READING THE PIPAS WITH THE IMU AT TWO
|
||||||
# PARTICULAR ORIENTATIONS. THE TWO READINGS ARE AVERAGED
|
# PARTICULAR ORIENTATIONS. THE TWO READINGS ARE AVERAGED
|
||||||
# AND UNITIZED AND TRANSFORMED TO NB COORDINATES. THE TWO
|
# AND UNITIZED AND TRANSFORMED TO NB COORDINATES. THE TWO
|
||||||
# ORIENTATIONS WERE CHOSEN TO REDUCE BIAS ERRORS IN THE
|
# ORIENTATION WERE CHOSEN TO REDUCE BIAS ERRORS IN THE
|
||||||
# READINGS.
|
# READINGS.
|
||||||
#
|
#
|
||||||
# CALL --
|
# CALL-
|
||||||
# TC BANKCALL
|
# TC BANKCALL
|
||||||
# CADR GVDETER
|
# CADR GVDETER
|
||||||
#
|
# INPUTS-
|
||||||
# INPUTS --
|
# PIPAS,CDUS
|
||||||
# PIPAS, CDUS
|
# OUTPUTS-
|
||||||
#
|
# STARSAV1 = UNIT GRAVITY
|
||||||
# OUTPUTS --
|
# GSAV = DITTO
|
||||||
# STARSAV1 = UNIT GRAVITY
|
# GRAVBIT = 1
|
||||||
# GSAV = DITTO
|
# SUBROUTINES-
|
||||||
# GRAVBIT = 1
|
# PIPASR,IMUCOARS,IMUFINE,IMUSTALL,1/PIPA,DELAYJOB,CDUTRIG,
|
||||||
#
|
# *NBSM* ,*SNMB*, CALCGA,FOFLASH
|
||||||
# SUBROUTINES --
|
# DEBRIS-
|
||||||
# PIPASR, IMUCOARS, IMUFINE, IMUSTALL, 1/PIPA, DELAYJOB, CDUTRIG,
|
# VAC,SAC,STARAD,XSM,XNB,THETAD,DELV,COSCDU,SINCDU
|
||||||
# *NBSM*, *SNMB*, CALCGA, GOFLASH
|
|
||||||
#
|
|
||||||
# DEBRIS --
|
|
||||||
# VAC, SAC, STARAD, XSM, XNB, THETAD, DELV, COSCDU, SINCDU
|
|
||||||
|
|
||||||
GVDETER CAF 42DEG
|
GVDETER CAF 42DEG
|
||||||
TS THETAD
|
TS THETAD
|
||||||
|
|
@ -1608,38 +1602,36 @@ GVDETER CAF 42DEG
|
||||||
REFSMFLG
|
REFSMFLG
|
||||||
LUNG
|
LUNG
|
||||||
|
|
||||||
# FIND GIMBAL ANGLES WHICH ROTATE SM 180 DEG ABOUT G VEC
|
# FIND GIMBAL ANGLES WHICH ROTATE SM 180 DEG ABOUT G VEC
|
||||||
#
|
#
|
||||||
# DEFINE G COOR SYS
|
# DEFINE G COOR SYS
|
||||||
# _
|
# _
|
||||||
# [ X ] [ UNIT G ]
|
# X UNIT G
|
||||||
# * [ _ ] [ _ ]
|
# * _ _
|
||||||
# M = [ Y ] = [ UNITEZSM * X ]
|
# M= Y = UNITEZSM * X )
|
||||||
# [ _ ] [ _ _ ]
|
# _ _ _
|
||||||
# [ Z ] [ UNIT( X * Y )]
|
# Z UNIT( X * Y )
|
||||||
#
|
# THEN ROTATED SM WRT PRESENT IS
|
||||||
# THEN ROTATED SM WRT PRESENT IS
|
|
||||||
#
|
#
|
||||||
# Page 964
|
# Page 964
|
||||||
# [ 1 0 0 ]
|
# 1, 0 , 0
|
||||||
# * *T [ ] * * *
|
# * *T * * *
|
||||||
# XSM = M [ 0 -1 0 ] M = 2 (X X ) - 1/2 I
|
# XSM = M 0, -1 , 0 M = 2 (X X ) - 1/2 I *
|
||||||
# [ ] I J
|
# I J
|
||||||
# [ 0 0 -1 ]
|
# 0, 0 ,-1
|
||||||
#
|
#
|
||||||
# ALSO NB WRT PRES SM IS
|
# ALSO NB WRT PRES SM IS
|
||||||
#
|
#
|
||||||
# * * *
|
# * * *
|
||||||
# XNB = NBSM I
|
# XNB = NBSM I
|
||||||
#
|
# * *
|
||||||
# * *
|
# GIMBAL ANGLES = CALCGA( XSM , XNB )
|
||||||
# GIMBAL ANGLES = CALCGA( XSM, XNB )
|
|
||||||
|
|
||||||
SETLOC P50S
|
SETLOC P50S
|
||||||
BANK
|
BANK
|
||||||
COUNT* $$/P57
|
COUNT* $$/P57
|
||||||
AXT,1 SSP # X1=18
|
AXT,1 SSP # X1=18
|
||||||
18D # S1=6
|
18D # S1= 6
|
||||||
S1 # X2, -2
|
S1 # X2, -2
|
||||||
6D
|
6D
|
||||||
LXC,2
|
LXC,2
|
||||||
|
|
@ -1650,7 +1642,7 @@ GRAVEL VLOAD* CALL
|
||||||
STORE XNB +18D,1
|
STORE XNB +18D,1
|
||||||
VLOAD
|
VLOAD
|
||||||
STAR
|
STAR
|
||||||
LXC,2 VXSC* # COMPLEMENT -- UNITX ARE BACKWARD --
|
LXC,2 VXSC* # COMPLEMENT- UNITX ARE BACKWARD -
|
||||||
X2
|
X2
|
||||||
STAR +6,2 # OUTER PRODUCT
|
STAR +6,2 # OUTER PRODUCT
|
||||||
VSL2 LXC,2
|
VSL2 LXC,2
|
||||||
|
|
@ -1684,8 +1676,8 @@ GRAVEL VLOAD* CALL
|
||||||
TC BANKCALL
|
TC BANKCALL
|
||||||
CADR GOFLASH
|
CADR GOFLASH
|
||||||
TC GOTOPOOH
|
TC GOTOPOOH
|
||||||
TCF PROGRAV # VB33 -- PROCEED
|
TCF PROGRAV # VB33-PROCEED
|
||||||
TC UPFLAG # VB32 -- RECYCLE -- STORE GRAV AND DO IT AGAIN
|
TC UPFLAG # VB32-RECYCLE-STORE GRAV AND DO IT AGAIN
|
||||||
ADRES FREEFLAG # AND SET FREEFLAG TO SHOW RECYCLE
|
ADRES FREEFLAG # AND SET FREEFLAG TO SHOW RECYCLE
|
||||||
|
|
||||||
PROGRAV TC PHASCHNG
|
PROGRAV TC PHASCHNG
|
||||||
|
|
@ -1696,7 +1688,7 @@ PROGRAV TC PHASCHNG
|
||||||
STARSAV1
|
STARSAV1
|
||||||
STORE GSAV
|
STORE GSAV
|
||||||
EXIT
|
EXIT
|
||||||
CAF FREEFBIT # IF FREEFLAG SET, RE-COMPUTE GRAVITY
|
CAF FREEFBIT # IF FREEFLAG SET, RE-COMPUTE GRAVITY.
|
||||||
MASK FLAGWRD0
|
MASK FLAGWRD0
|
||||||
CCS A
|
CCS A
|
||||||
TCF GVDETER # SET
|
TCF GVDETER # SET
|
||||||
|
|
@ -2338,4 +2330,3 @@ LSORIENT STQ VLOAD
|
||||||
XSMD
|
XSMD
|
||||||
STCALL YSMD
|
STCALL YSMD
|
||||||
QMAJ
|
QMAJ
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Add table
Reference in a new issue