ryan/Apollo-11
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Proof read AOTMARK pages 0244-0261. I made several changes with space formatting and changed several -- to - to match scanned source code images.

Browse Source
This commit is contained in:
Froderick-Fronkensteen 2022-01-12 22:35:17 -05:00
parent dd9b5e33f2
commit d9314ede7c
1 changed files with 123 additions and 139 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

198
Luminary099/AOTMARK.agc
View File

@ -36,7 +36,7 @@
AOTMARK INHINT AOTMARK INHINT
CCS MARKSTAT # SEE IF AOTMARK BUSY CCS MARKSTAT # SEE IF AOTMARK BUSY
TC +2 # MARK SYSTEM BUSY -- DO ALARM TC +2 # MARK SYSTEM BUSY-DO ALARM
TC EXTVBCHK TC EXTVBCHK
TC POODOO TC POODOO
OCT 00105 OCT 00105
@ -44,11 +44,11 @@ AOTMARK INHINT
EXTVBCHK CAF SIX # SEE IF EXT. VERB WORKING EXTVBCHK CAF SIX # SEE IF EXT. VERB WORKING
MASK EXTVBACT MASK EXTVBACT
CCS A CCS A
TCF MKABORT # YES -- ABORT TCF MKABORT # YES-ABORT
CAF BIT2 # NO -- DISALLOW SOME EXTENDED VERB ACTION CAF BIT2 # NO-DISALLOW SOME EXTENDED VERB ACTION
ADS EXTVBACT # BIT2 RESET IN ENDMARK ADS EXTVBACT # BIT2 RESET IN ENDMARK
MKVAC CCS VAC1USE # LOOK FOR A VAC AREAD -- DO ABORT IF MKVAC CCS VAC1USE # LOOK FOR A VAC AREA-DO ABORT IF
TCF MKVACFND # NONE AVAILABLE TCF MKVACFND # NONE AVAILABLE
CCS VAC2USE CCS VAC2USE
TCF MKVACFND TCF MKVACFND
@ -59,7 +59,7 @@ MKVAC CCS VAC1USE # LOOK FOR A VAC AREAD -- DO ABORT IF
CCS VAC5USE CCS VAC5USE
TCF MKVACFND TCF MKVACFND
DXCH BUF2 DXCH BUF2
TC BAILOUT1 # ALL VAC AREAS OCCUPIED -- ABORT. TC BAILOUT1 # ALL VAC AREAS OCCUPIED - ABORT.
OCT 01207 OCT 01207
MKVACFND AD TWO MKVACFND AD TWO
@ -74,6 +74,7 @@ MKVACFND AD TWO
EBANK= XYMARK EBANK= XYMARK
2CADR GETDAT 2CADR GETDAT
RELINT RELINT
TCF SWRETURN TCF SWRETURN
# Page 245 # Page 245
@ -83,17 +84,16 @@ MKABORT DXCH BUF2
MKRELEAS CAF ZERO MKRELEAS CAF ZERO
XCH MARKSTAT # SET MARKSTAT TO ZERO XCH MARKSTAT # SET MARKSTAT TO ZERO
MASK LOW9 # PICK UP VAC AREA AOR MASK LOW9 # PICK UP VAC AREA ADR
CCS A CCS A
INDEX A INDEX A
TS 0 # SHOW MKVAC AREA AVAILABLE TS 0 # SHOW MKVAC AREA AVAILABLE
CAF ONE CAF ONE
TC IBNKCALL TC IBNKCALL
CADR GOODEND # GO WAKE UP CALLING JOB CADR GOODEND # GO WAKE UP CALLING JOB
# Page 246 # Page 246
KILLAOT CAF ZERO KILLAOT CAF ZERO
TS EXTVBACT # TERMINATE AOTMARK -- ALLOW EXT VERB TS EXTVBACT # TERMINATE AOTMARK-ALLOW EXT VERB
TC GOTOPOOH TC GOTOPOOH
GETDAT CS MARKSTAT # SET BIT12 TO DISCOURAGE MARKRUPT GETDAT CS MARKSTAT # SET BIT12 TO DISCOURAGE MARKRUPT
MASK BIT12 # BIT12 RESET AT GETMARK MASK BIT12 # BIT12 RESET AT GETMARK
@ -103,9 +103,9 @@ GETDAT CS MARKSTAT # SET BIT12 TO DISCOURAGE MARKRUPT
TC BANKCALL TC BANKCALL
CADR GOMARKF CADR GOMARKF
TCF KILLAOT # V34 -- DOES GOTOPOOH TCF KILLAOT # V34-DOES GOTOPOOH
TCF DODAT # V33 -- PROCEED -- USE THIS STAR FOR MARKS TCF DODAT # V33-PROCEED-USE THIS STAR FOR MARKS
ENTERDAT TCF GETDAT # ENTER -- REDISPLAY STAR CODE ENTERDAT TCF GETDAT # ENTER-REDISPLAY STAR CODE
DODAT CAF HIGH9 # PICK DETENT CODE FROM BITS7-9 OF AOTCODE DODAT CAF HIGH9 # PICK DETENT CODE FROM BITS7-9 OF AOTCODE
MASK AOTCODE # AND SEE IF CODE 1 TO 6 MASK AOTCODE # AND SEE IF CODE 1 TO 6
@ -114,7 +114,7 @@ DODAT CAF HIGH9 # PICK DETENT CODE FROM BITS7-9 OF AOTCODE
TS XYMARK # STORE DETENT TS XYMARK # STORE DETENT
EXTEND EXTEND
BZMF GETDAT # COAS CALIBRATION CODE - NO GOOD HERE BZMF GETDAT # COAS CALIBRATION CODE-NO GOOD HERE
AD NEG7 # SEE IF DETENT 7 FOR COAS AD NEG7 # SEE IF DETENT 7 FOR COAS
EXTEND EXTEND
@ -126,7 +126,7 @@ CODE7 CAF V06N87* # CODE 7, COAS SIGHTING, GET OPTIC AXIS
TC BANKCALL # AZ AND EL OF SIGHTING DEVICE FROM ASTRO TC BANKCALL # AZ AND EL OF SIGHTING DEVICE FROM ASTRO
CADR GOMARKF CADR GOMARKF
TCF KILLAOT # V34 -- DOES GOTOPOOH TCF KILLAOT # V34-DOES GOTOPOOH
TCF +2 # PROCEED TCF +2 # PROCEED
TCF CODE7 # ON ENTER, RECYCLE TCF CODE7 # ON ENTER, RECYCLE
EXTEND EXTEND
@ -145,31 +145,28 @@ CODE1TO6 INDEX XYMARK # INDEX AOT POSITION BY DET CODE
# Page 247 # Page 247
CA AOTAZ -1 CA AOTAZ -1
INDEX FIXLOC INDEX FIXLOC
TS 8D # STORE AZIMUTH IN VAC +8D TS 8D # STORE AZIMUTH IN VAC+8D
CA AOTAZ +1 # COMPENSATION FOR APPARENT ROTATION OF CA AOTAZ +1 # COMPENSATION FOR APPARENT ROTATION OF
EXTEND # AOT FIELD OF VIEW IN LEFT AND RIGHT EXTEND # AOT FIELD OF VIEW IN LEFT AND RIGTHT
INDEX FIXLOC # DETENTS IS STORED IN VAC +10D IN SP INDEX FIXLOC # DETENTS IS STORED IN VAC +10D IN SP
MSU 8D # PRECISION ONE'S COMPLEMENT MSU 8D # PRECISION ONES COMPLEMENT
COASCODE INDEX FIXLOC COASCODE INDEX FIXLOC
TS 10D # ROT ANGLE TS 10D # ROT ANGLE
TC INTPRET # COMPUTE X AND Y PLANE VECTORS TC INTPRET # COMPUTE X AND Y PLANE VECTORS
# Page 248 # Page 248
# THE OPTAXIS SUBROUTINE COMPUTES THE X AND Y MARK PLANE VECS AND # THE OPTAXIS SUBROUTINE COMPUTES THE X AND Y MARK PLANE VECS AND
# ROTATES THEM THRU THE APPARENT FIELD OF VIEW ROTATION UNIQUE TO AOT # AND ROTATES THEM THRU THE APPARENT FIELD OF VIEW ROTATION UNIQUE TO AOT
# OPTAXIS USES OANB TO COMPUTE THE OPTIC AXIS # OPTAXIS USES OANB TO COMPUTE THE OPTIC AXIS
# # INPUT-AZIMUTH ANGLE IN SINGLE PREC AT CDU SCALE IN 8D OF JOB VAC
# INPUT -- AZIMUTH ANGLE IN SINGLE PREC AT CDU SCALE IN 8D OF JOB VAC
# ELEVATION ANGLE IN SINGLE PREC AT CDU SCALE IN 9D OF JOB VAC # ELEVATION ANGLE IN SINGLE PREC AT CDU SCALE IN 9D OF JOB VAC
# ROTATION ANGLE IN SINGLE PREC IS COMP SCALED BY PI IN 10D OF VAC # ROTATION ANGLE IN SINGLE PREC IS COMP SCALED BY PI IN 10D OF VAC
# # OUTPUT-OPTIC AXIS VEC IN NB COORDS IN SCAXIS
# OUTPUT -- OPTIC AXIS VEC IN NG COORDS IN SCAXIS
# X-MARK PLANE 1/4VEC IN NB COORDS AT 18D OF JOB VAC # X-MARK PLANE 1/4VEC IN NB COORDS AT 18D OF JOB VAC
# Y-MARK PLANE 1/4VEC IN NB COORDS AT 12D OF JOB VAC # Y-MARK PLANE 1/4VEC IN NB COORDS AT 12D OF JOB VAC
OPTAXIS CALL # GO COMPUTE OA AN X AND Y PLANE VECS OPTAXIS CALL # GO COMPUTE OA AND X AND Y PLANE VECS
OANB OANB
SLOAD SR1 # LOAD APP ROTATION IN ONES COMP SLOAD SR1 # LOAD APP ROTATION IN ONES COMP
10D # RESCALE BY 2PI 10D # RESCALE BY 2PI
@ -192,15 +189,12 @@ OPTAXIS CALL # GO COMPUTE OA AN X AND Y PLANE VECS
STORE STARAD +6 STORE STARAD +6
EXIT EXIT
TCF GETMKS TCF GETMKS
# Page 249 # Page 249
# THE OANB SUBROUTINE COMPUTES THE OPTIC AXIS OF THE SIGHTING INSTRUMENT # THE OANB SUBROUTINE COMPUTES THE OPTIC AXIS OF THE SIGHTING INSTRUMENT
# FROM AZIMUTH AND ELEVATION INPUT FROM THE ASTRONAUT. # FROM AZIMUTH AND ELEVATION INPUT FROM THE ASTRONAUT.
# # INPUT- AZIMUTH ANGLE IN SINGLE PREC 2S COMP IN 8D OF JOB VAC
# INPUT -- AZIMUTH ANGLE IN SINGLE PREC 2'S COMP IN 8D OF JOB VAC # ELEVATION ANGLE IN SINGLE PREC 2S COMP IN 9D OF VAC
# ELEVATION ANGLE IN SINGLE PREC 2'S COMP IN 9D OF VAC # OUTPUT-OPTIC AXIS IN NB COORDS. IN SCAXIS
#
# OUTPUT -- OPTIC AXIS IN NB COORDS. IN SCAXIS
# X-PLANE 1/2VEC IN NB COORDS AT 24D OF VAC # X-PLANE 1/2VEC IN NB COORDS AT 24D OF VAC
# Y-PLANE 1/2VEC IN NB COORDS AT 18D OF VAC # Y-PLANE 1/2VEC IN NB COORDS AT 18D OF VAC
@ -220,16 +214,16 @@ OANB SETPD STQ
PDDL SIN # 1/2COS(ELV) PD 0-1 PDDL SIN # 1/2COS(ELV) PD 0-1
STADR STADR
STODL SCAXIS # OAX=1/2SIN(ELV) STODL SCAXIS # OAX=1/2SIN(ELV)
8D 8D # PICK UP AZ SP
RTB RTB
CDULOGIC CDULOGIC
PUSH COS PUSH COS
STORE 20D # STORE UYP(Y) 20-21 STORE 20D # STORE UYP(Y) 20-21
PDDL SIN # 1/2COS(AZ) PD 2-3 PDDL SIN # 1/2COS(AZ) PD 2-3
PUSH DCOMP # PUSH 1/2S IN (AZ) 4-5 PUSH DCOMP # PUSH 1/2SIN(AZ) 4-5
STODL 22D # STORE UYP(Z) 22-23 STODL 22D # STORE UYP(Z) 22-23
LO6ZEROS LO6ZEROS
STODL 18D # STORE UYP(X) 18-19 STODL 18D # STORE UYP(X) 18-19 UP 4-5
DMP SL1 DMP SL1
0 0
STODL SCAXIS +2 # OAY=1/2COS(ELV)SIN(AZ) STODL SCAXIS +2 # OAY=1/2COS(ELV)SIN(AZ)
@ -245,13 +239,11 @@ OANB SETPD STQ
# Page 250 # Page 250
# SURFSTAR COMPUTES A STAR VECTOR IN SM COORDINATES FOR LUNAR # SURFSTAR COMPUTES A STAR VECTOR IN SM COORDINATES FOR LUNAR
# SURFACE ALIGNMENT AND EXITS TO AVEIT TO AVERAGE STAR VECTORS. # SURFACE ALIGNMENT AND EXITS TO AVEIT TO AVERAGE STAR VECTORS.
#
# GIVEN X-MARK PLANE 1/4 VEC IN NB AT 18D OF LOCAL VAC # GIVEN X-MARK PLANE 1/4 VEC IN NB AT 18D OF LOCAL VAC
# Y-MARK PLANE 1/4 VEC IN NB AT 12D OF LOCAL VAC # Y-MARK PLANE 1/4 VEC IN NB AT 12D OF LOCAL VAC
# CURSOR SP 2COMP AT POSITION 1 OF INDEXED MARKVAC # CURSOR SP 2COMP AT POSITION 1 OF INDEXED MARKVAC
# SPIRAL SP 2COMP AT POSITION 3 OF INDEXED MARKVAC # SPIRAL SP 2COMP AT POSITION 3 OF INDEXED MARKVAC
# CDUY,Z,X AT POSITIONS 0,2,4 OF INDEXED MARKVAC # CDUY,Z,X AT POSITIONS 0,2,4 OF INDEXED MARKVAC
BANK 15 BANK 15
SETLOC P50S SETLOC P50S
BANK BANK
@ -265,7 +257,7 @@ SURFSTAR VLOAD*
CDULOGIC CDULOGIC
STORE 24D # STORE CURSOR FOR SPIRAL COMP (REVS) STORE 24D # STORE CURSOR FOR SPIRAL COMP (REVS)
BZE BZE
YZCHK # IF YROT ZERO -- SEE IF SROT ZERO YZCHK # IF YROT ZERO-SEE IF SROT ZERO
JUSTZY PUSH COS JUSTZY PUSH COS
PDDL SIN # 1/2COS(YROT) 0-1 PDDL SIN # 1/2COS(YROT) 0-1
VXSC PDDL # UP 0-1 1/8SIN(YROT)UXP 0-5 VXSC PDDL # UP 0-1 1/8SIN(YROT)UXP 0-5
@ -284,7 +276,7 @@ JUSTZY PUSH COS
ABOUTONE ABOUTONE
DMP DMP
DP1/12 DP1/12
STORE 26D # SEP=(360 + SPIRAL -CURSOR)/12 STORE 26D # SEP=(360 + SPIRAL - CURSOR)/12
SIN VXSC # UP 0-5 SIN VXSC # UP 0-5
VSL1 PDDL # 1/2SIN(SEP)(UPP X OA) 0-5 VSL1 PDDL # 1/2SIN(SEP)(UPP X OA) 0-5
26D 26D
@ -308,11 +300,10 @@ YZCHK SLOAD* BZE # YROT ZERO AND IF SROT ZERO FORCE STAR
YSZERO YSZERO
DLOAD GOTO DLOAD GOTO
24D 24D
JUSTZY # SROT NOT ZERO -- CONTINUE NORMALLY JUSTZY # SROT NOT ZERO-CONTINUE NORMALLY
YSZERO VLOAD GOTO YSZERO VLOAD GOTO
SCAXIS SCAXIS
JUSTOA JUSTOA
# Page 252 # Page 252
# THE GETMKS ROUTINE INITIALIZES THE SIGHTING MARK PROCEDURE # THE GETMKS ROUTINE INITIALIZES THE SIGHTING MARK PROCEDURE
@ -326,9 +317,9 @@ GETMKS CAF ZERO # INITIALIZE MARK ID REGISTER AND MARK CNT
PASTIT TC BANKCALL PASTIT TC BANKCALL
CADR GOMARK4 CADR GOMARK4
TCF KILLAOT # V34 -- DOES GOTOPOOH TCF KILLAOT # V34-DOES GOTOPOOH
TCF MARKCHEX # VB33 -- PROCEED, GOT MARKS, COMPUTE LOS TCF MARKCHEX # VB33-PROCEED, GOT MARKS, COMPUTE LOS
TCF GETDAT # ENTER -- RECYCLE TO V01N71 TCF GETDAT # ENTER-RECYCLE TO V01N71
MARKCHEX CS MARKSTAT # SET BIT12 TO DISCOURAGE MARKRUPT MARKCHEX CS MARKSTAT # SET BIT12 TO DISCOURAGE MARKRUPT
MASK BIT12 MASK BIT12
@ -338,27 +329,27 @@ MARKCHEX CS MARKSTAT # SET BIT12 TO DISCOURAGE MARKRUPT
CAF ZERO CAF ZERO
TS MKDEX # SET MKDEX ZERO FOR LOS VEC CNTR TS MKDEX # SET MKDEX ZERO FOR LOS VEC CNTR
CA MARKSTAT CA MARKSTAT
MASK PRIO3 # SEE IF LAST MK PART COMPLETE MASK PRIO3 # SEE IF LAST MK PARI COMPLETE
TS L TS L
CAF PRIO3 # BITS10 AND 11 CAF PRIO3 # BITS10 AND 11
EXTEND EXTEND
RXOR LCHAN RXOR LCHAN
EXTEND EXTEND
BZF AVESTAR # LAST PAIR COMPLETE -- TO COMPUTE LOS BZF AVESTAR # LAST PAIR COMPLETE-GO COMPUTE LOS
CNTCHK CCS MARKCNTR # NO PAIR SHOWING -- SEE IF PAIR IN HOLD CNTCHK CCS MARKCNTR # NO PAIR SHOWING-SEE IF PAIR IN HOLD
TCF +2 # PAIR BURIED -- DECREMENT COUNTER TCF +2 # PAIR BURIED-DECREMENT COUNTER
TCF MKALARM # NO PAIR -- ALARM TCF MKALARM # NO PAIR-ALARM
TS MARKCNTR # STORE DECREMENTED COUNTER TS MARKCNTR # STORE DECREMENTED COUNTER
AVESTAR CAF BIT12 # INITIALIZE MKDEX FOR STAR LOS COUNTER AVESTAR CAF BIT12 # INITIALIZE MKDEX FOR STAR LOS COUNTER
ADS MKDEX # MKDEX WAS INITIALIZED ZERO IN MARKCHEX ADS MKDEX # MKDEX WAS INITIALIZED ZERO IN MARKCHEX
CS MARKCNTR CS MARKCNTR
EXTEND EXTEND
MP SIX # GET C(L) = -6 MARKCNTR MP SIX # GET C(L) = - 6 MARKCNTR
CS XYMARK CS XYMARK
AD L # ADD -- MARK VAC ADR SET IN MARKCHEX AD L # ADD - MARK VAC ADR SET IN MARKCHEX
INDEX FIXLOC INDEX FIXLOC
TS X1 # JAM -- CDU ADR OF X-MARK IN X1 TS X1 # JAM - CDU ADR OF X-MARK IN X1
CA FIXLOC # SET PD POINTER TO ZERO CA FIXLOC # SET PD POINTER TO ZERO
TS PUSHLOC TS PUSHLOC
@ -370,7 +361,7 @@ AVESTAR CAF BIT12 # INITIALIZE MKDEX FOR STAR LOS COUNTER
SURFSTAR SURFSTAR
1,1 # PUT Y-MARK CDUS IN CDUSPOT FOR TRG*NBSM 1,1 # PUT Y-MARK CDUS IN CDUSPOT FOR TRG*NBSM
STOVL CDUSPOT STOVL CDUSPOT
12D # LOAD Y-PLANE VECTOR IN NG 12D # LOAD Y-PLANE VECTOR IN NB
CALL CALL
TRG*NBSM # CONVERT IT TO STABLE MEMBER TRG*NBSM # CONVERT IT TO STABLE MEMBER
PUSH VLOAD* PUSH VLOAD*
@ -399,28 +390,28 @@ AVEIT SLOAD PDVL # N(NUMBER OF VECS) IN 0-1
STORE STARSAV2 STORE STARSAV2
EXIT EXIT
CCS MARKCNTR # SEE IF ANOTHER MARK PAIR IN MKVAC CCS MARKCNTR # SEE IF ANOTHER MARK PAIR IN MKVAC
TCF AVESTAR -1 # THERE IS -- GO GET IT -- DECREMENT COUNTER TCF AVESTAR -1 # THERE IS-GO GET IT-DECREMENT COUNTER
ENDMARKS CAF FIVE # NO MORE MARKS -- TERMINATE AOTMARK ENDMARKS CAF FIVE # NO MORE MARKS-TERMINATE AOTMARK
INHINT INHINT
TC WAITLIST TC WAITLIST
EBANK= XYMARK EBANK= XYMARK
2CADR MKRELEAS 2CADR MKRELEAS
TC ENDMARK TC ENDMARK
MKALARM TC ALARM # NOT A PAIR TO PROCESS -- DO GETMKS MKALARM TC ALARM # NOT A PAIR TO PROCESS-DO GETMKS
OCT 111 OCT 111
TCF GETMKS TCF GETMKS
V01N71 VN 171 V01N71 VN 171
V06N87* VN 687 V06N87* VN 687
# Page 254 # Page 254
# MARKRUPT IS ENTERED FROM INTERRUPT LEAD-INS AND PROCESSES CHANNEL 16 # MARKRUPT IS ENTERED FROM INTERUPT LEAD-INS AND PROCESSES CHANNEL 16
# CAUSED BY X,Y MARK OR MARK REJECT OR BY THE RATE OF DESCENT SWITCH # CAUSED BY X,Y MARK OR MARK REJECT OR BY THE RATE OF DESCENT SWITCH
MARKRUPT TS BANKRUPT MARKRUPT TS BANKRUPT
CA CDUY # STORE CDUS AND TIME NOW -- THEN SEE IF CA CDUY # STORE CDUS AND TIME NOW-THEN SEE IF
TS ITEMP3 # WE NEED THEM TS ITEMP3 # WE NEED THEM
CA CDUZ CA CDUZ
TS ITEMP4 TS ITEMP4
@ -436,42 +427,41 @@ MARKRUPT TS BANKRUPT
EXTEND EXTEND
RAND NAVKEYIN RAND NAVKEYIN
CCS A CCS A
TCF +2 # ITS A LIVE ONE -- SEE IF ITS WANTED TCF +2 # ITS A LIVE ONE-SEE IF ITS WANTED
TCF SOMEKEY # ITS SOME OTHER KEY TCF SOMEKEY # ITS SOME OTHER KEY
CAF BIT12 # ARE WE ASKING FOR A MARK CAF BIT12 # ARE WE ASKING FOR A MARK
MASK MARKSTAT MASK MARKSTAT
CCS A CCS A
TC RESUME # DON'T WANT MARK OR MKREJECT -- DO NOTHING TC RESUME # DONT WANT MARK OR MKREJECT-DO NOTHING
CCS MARKSTAT # ARE MARKS BEING ACCEPTED CCS MARKSTAT # ARE MARKS BEING ACCEPTED
TCF FINDKEY # THEY ARE -- WHICH ONE IS IT TCF FINDKEY # THEY ARE-WHICH ONE IS IT
TC ALARM # MARKS NOT BEING ACCEPTED -- DO ALARM TC ALARM # MARKS NOT BEING ACCEPTED-DO ALARM
OCT 112 OCT 112
TC RESUME TC RESUME
FINDKEY CAF BIT5 # SEE IF MARK REJECT. FINDKEY CAF BIT5 # SEE IF MARK REJECT
EXTEND EXTEND
RAND NAVKEYIN RAND NAVKEYIN
CCS A CCS A
TCF MKREJ # IT'S A MARK REJECT TCF MKREJ # ITS A MARK REJECT
CAF BIT4 # SEE IF Y MARK CAF BIT4 # SEE IF Y MARK
EXTEND EXTEND
RAND NAVKEYIN RAND NAVKEYIN
CCS A CCS A
TCF YMKRUPT # IT'S A Y MARK TCF YMKRUPT # ITS A Y MARK
CAF BIT3 # SEE IF X MARK CAF BIT3 # SEE IF X MARK
EXTEND EXTEND
RAND NAVKEYIN RAND NAVKEYIN
# Page 255 # Page 255
CCS A CCS A
TCF XMKRUPT # IT'S A X MARK TCF XMKRUPT # ITS A X MARK
SOMEKEY CAF OCT140 # NOT MARK OR MKREJECT -- SEE IF DESCENT BITS SOMEKEY CAF OCT140 # NOT MARK OR MKREJECT-SEE IF DESCENT BITS
EXTEND EXTEND
RAND NAVKEYIN RAND NAVKEYIN
EXTEND EXTEND
@ -480,7 +470,7 @@ SOMEKEY CAF OCT140 # NOT MARK OR MKREJECT -- SEE IF DESCENT BITS
TC POSTJUMP # IF DESCENT BITS TC POSTJUMP # IF DESCENT BITS
CADR DESCBITS CADR DESCBITS
TC ALARM # NO INBITS IN CHANNEL 16. TC ALARM # NO INBITS IN CHANNEL 16
OCT 113 OCT 113
TC RESUME TC RESUME
@ -492,21 +482,21 @@ XMKRUPT CAF ZERO
YMKRUPT CAF ONE YMKRUPT CAF ONE
TS RUPTREG1 # SET Y MARK STORE INDEX TO ONE TS RUPTREG1 # SET Y MARK STORE INDEX TO ONE
CAF BIT11 CAF BIT11
TS XYMARK # SET MARK IDENTIFICATION TS XYMARK # SET MARK IDENTIFIATION
TC MARKTYPE # SEE IF SURFACE MARK TC MARKTYPE # SEE IF SURFACE MARK
TCF SURFSTOR # SURFACE MARK -- JUST STORE CDUS TCF SURFSTOR # SURFACE MARK-JUST STORE CDUS
CAF BIT14 # GOT A MARK -- SEE IF MARK PARI MADE CAF BIT14 # GOT A MARK-SEE IF MARK PAIR MADE
MASK MARKSTAT MASK MARKSTAT
EXTEND EXTEND
BZF VERIFYMK # NOT A PAIR, NORMAL PROCEDURE BZF VERIFYMK # NOT A PAIR, NORMAL PROCEDURE
CS MARKCNTR # GO A PAIR, SEE IF ANOTHER CAN BE MADE CS MARKCNTR # GOT A PAIR, SEE IF ANOTHER CAN BE MADE
AD FOUR # IF SO, INCREMENT POINTER, CLEAR BITS 10,11 AD FOUR # IF SO, INCREMENT POINTER,CLEAR BITS10,11
EXTEND EXTEND
BZMF 5MKALARM # HAVE FIVE MARK PAIRS -- DON'T ALLOW MARK BZMF 5MKALARM # HAVE FIVE MARK PAIRS-DONT ALLOW MARK
INCR MARKCNTR # OK FOR ANOTHER PAIR, INCR POINTER INCR MARKCNTR # OK FOR ANOTHER PAIR, INCR POINTER
CS PRIO23 # CLEAR BITS 10,11,14 FOR NEXT PAIR CS PRIO23 # CLEAR BITS10,11,14 FOR NEXT PAIR
MASK MARKSTAT MASK MARKSTAT
TS MARKSTAT TS MARKSTAT
@ -514,31 +504,29 @@ VERIFYMK CA XYMARK
MASK MARKSTAT MASK MARKSTAT
CCS A CCS A
TCF +2 # THIS MARK NOT DESIRED TCF +2 # THIS MARK NOT DESIRED
TCF VACSTOR # MARK DESIRED -- STORE CDUS TCF VACSTOR # MARK DESIRED - STORE CDUS
TC ALARM TC ALARM
OCT 114 OCT 114
TC RESUME # RESUME -- DISPLAY UNCHANGED -- WAIT FOR ACTION TC RESUME # RESUME-DISPLAY UNCHANGED-WAIT FOR ACTION
# Page 256 # Page 256
5MKALARM TC ALARM # ATTEMPTING TO MAKE MORE THAN 5 MK PAIRS 5MKALARM TC ALARM # ATTEMPTING TO MAKE MORE THAN 5 MK PAIRS
OCT 107 OCT 107
TC MARKTYPE # SEE IF SURFACE MARK TC MARKTYPE # SEE IF SURFACE MARK
TCF DSPV6N79 # IT IS TCF DSPV6N79 # IT IS
TC RESUME # DON'T CHANGE DISPLAY -- DO NOTHING TC RESUME # DONT CHANGE DISPLAY-DO NOTHING
# Page 257 # Page 257
MKREJ TC MARKTYPE # SEE IF SURFACE MKREJ TC MARKTYPE # SEE IF SURFACE
TCF SURFREJ # SURFACE -- JUST CHECK MARK COUNTER TCF SURFREJ # SURFACE-JUST CHECK MARK COUNTER
CAF PRIO3 # INFLIGHT -- SEE IF MARKS MADE CAF PRIO3 # INFLIGHT-SEE IF MARKS MADE
MASK MARKSTAT MASK MARKSTAT
CCS A CCS A
TCF REJECT # MARKS MADE -- REJECT ONE TCF REJECT # MARKS MADE-REJECT ONE
REJALM TC ALARM # NO MARK TO REJECT -- BAD PROCEDURE -- ALARM REJALM TC ALARM # NO MARK TO REJECT-BAD PROCEDURE-ALARM
OCT 115 OCT 115
TC RESUME # DESIRED ACTION DISPLAYED TC RESUME # DESIRED ACTION DISPLAYED
REJECT CS PRIO30 # ZERO BIT14, SHOW REJ., SEE IF MARK SINCE REJECT CS PRIO30 # ZERO BIT14,SHOW REJ.,SEE IF MARK SINCE
MASK MARKSTAT # LAST REJECT MASK MARKSTAT # LAST REJECT
AD BIT13 AD BIT13
XCH MARKSTAT XCH MARKSTAT
@ -546,27 +534,26 @@ REJECT CS PRIO30 # ZERO BIT14, SHOW REJ., SEE IF MARK SINCE
CCS A CCS A
TCF REJECT2 # ANOTHER REJECT SET BIT 10+11 TO ZERO TCF REJECT2 # ANOTHER REJECT SET BIT 10+11 TO ZERO
CS XYMARK # MARK MADE SINCE REJECT -- REJECT MARK IN 1D CS XYMARK # MARK MADE SINCE REJECT-REJECT MARK IN 1D
RENEWMK MASK MARKSTAT RENEWMK MASK MARKSTAT
TS MARKSTAT TS MARKSTAT
TCF REMARK # GO REQUEST NEW MARK ACTION TCF REMARK # GO REQUEST NEW MARK ACTION
REJECT2 CS PRIO3 # ON SECOND REJECT -- DISPLAY VB53 AGAIN REJECT2 CS PRIO3 # ON SECOND REJECT-DISPLAY VB53 AGAIN
TCF RENEWMK TCF RENEWMK
SURFREJ CCS MARKCNTR # IF MARK DECREMENT COUNTER SURFREJ CCS MARKCNTR # IF MARK DECREMENT COUNTER
TCF +2 TCF +2
TCF REJALM # NO MARKS TO REJECT -- ALARM TCF REJALM # NO MARKS TO REJECT-ALARM
TS MARKCNTR TS MARKCNTR
TC RESUME TC RESUME
# Page 258 # Page 258
# MARKTYPE TESTS TO SEE IF LEM ON LUNAR SURFACE. IF IT IS RETURN TO LOC+1 # MARKTYPE TESTS TO SEE IF LEM ON LUNAR SURFACE. IF IT IS RETURN TO LOC+1
MARKTYPE CS FLAGWRD8 # SURFFLAG ******** TEMPORARY ****** MARKTYPE CS FLAGWRD8 # SURFFLAG*******TEMPORARY*****
MASK BIT8 MASK BIT8
CCS A CCS A
INCR Q # IF SURFACE MARK RETURN TO LOC +1 INCR Q # IF SURFACE MARK REUTNR TO LOC +1
TC Q # IF INFLIGHT MARK RETURN TO LOC +2 TC Q # IF INFLIGHT MARK RETURN TO LOC +2
SURFSTOR CAF ZERO # FOR SURFACE MARK ZERO MARK KIND INDEX SURFSTOR CAF ZERO # FOR SURFACE MARK ZERO MARK KIND INDEX
@ -598,7 +585,7 @@ VACSTOR CAF LOW9
CA ITEMP5 CA ITEMP5
INDEX RUPTREG1 INDEX RUPTREG1
TS 4 # STORE CDUX TS 4 # STORE CDUX
TC MARKTYPE # IF SURFACE MARK -- JUST DO SURFJOB TC MARKTYPE # IF SURFACE MARK-JUST DO SURFJOB
TCF SURFJOB TCF SURFJOB
CAF BIT13 # CLEAR BIT13 TO SHOW MARK MADE CAF BIT13 # CLEAR BIT13 TO SHOW MARK MADE
@ -609,18 +596,16 @@ VACSTOR CAF LOW9
TS MARKSTAT TS MARKSTAT
MASK PRIO3 # SEE IF X, Y MARK MADE MASK PRIO3 # SEE IF X, Y MARK MADE
TS L TS L
# Page 259 # Page 259
CA PRIO3 CA PRIO3
EXTEND EXTEND
RXOR LCHAN RXOR LCHAN
CCS A CCS A
TCF REMARK # NOT PAIR YET, DISPLAY MARK ACTION TCF REMARK # NOT PAIR YET, DISPLAY MARK ACTION
CS MARKSTAT # MARK PAIR COMPLETE -- SET BIT14 CS MARKSTAT # MARK PAIR COMPLETE-SET BIT14
MASK BIT14 MASK BIT14
ADS MARKSTAT ADS MARKSTAT
TCF REMARK # GO DISPLAY V54 TCF REMARK # GO DISPLAY V54
# Page 260 # Page 260
REMARK CAF PRIO3 # BITS 10 AND 11 REMARK CAF PRIO3 # BITS 10 AND 11
MASK MARKSTAT MASK MARKSTAT
@ -632,15 +617,16 @@ SURFJOB CAF PRIO15
EBANK= XYMARK # REQUEST NEXT ACTION EBANK= XYMARK # REQUEST NEXT ACTION
2CADR CHANGEVB 2CADR CHANGEVB
TC RESUME TC RESUME
CHANGEVB TC MARKTYPE CHANGEVB TC MARKTYPE
TCF DSPV6N79 # SURFACE -- DISPLAY V 06 N 79 TCF DSPV6N79 # SURFACE-DISPLAY V 06 N 79
INDEX MKDEX # INFLIGHT -- PICK UP MARK VB INDEX INDEX MKDEX # INFLIGHT-PICK UP MARK VB INDEX
CAF MKVB54 CAF MKVB54
TC PASTIT # PASTE UP NEXT MK VERB DISPLAY TC PASTIT # PASTE UP NEXT MK VERB DISPLAY
# THE FOUR MKVBS ARE INDEXED -- THEIR ORDER CANNOT BE CHANGED # THE FOUR MKVBS ARE INDEXED-THEIR ORDER CANNOT BE CHANGED
MKVB54 VN 5471 # MAKE X OR Y MARK MKVB54 VN 5471 # MAKE X OR Y MARK
MKVB53 VN 5371 # MAKE Y MARK MKVB53 VN 5371 # MAKE Y MARK
@ -651,21 +637,20 @@ DP1/8 2DEC .125
OCT34 OCT 34 OCT34 OCT 34
V06N71 VN 671 V06N71 VN 671
V06N79* VN 679 V06N79* VN 679
# Page 261 # Page 261
# ROUTINE TO REQUEST CURSOR AND SPIRAL MEASUREMENTS # ROUTINE TO REQUEST CURSOR AND SPIRAL MEASUREMENTS
COUNT* $$/R59 COUNT* $$/R59
DSPV6N79 CAF V06N79* # CURSOR -- SPIRAL DISPLAY DSPV6N79 CAF V06N79* # CURSOR-SPIRAL DISPLAY
TC BANKCALL TC BANKCALL
CADR GOMARKF CADR GOMARKF
TCF KILLAOT # V34 -- DOES GOTOPOOH TCF KILLAOT # V34-DOES GOTOPOOH
TCF SURFEND # V33 -- PROCEED, END MARKING TCF SURFEND # V33-PROCEED, END MARKING
CAF BIT6 # IF V32(OCT40) IN MPAC DO RECYCLE CAF BIT6 # IF V32(OCT40) IN MPAC DO RECYCLE
MASK MPAC # OTHERWISE IT IS LOAD VB ENTER SO MASK MPAC # OTHERWISE IT IS LOAD VB ENTER SO
CCS A # RE-DISPLAY V06N79 CCS A # RE-DISPLAY V06N79
TCF SURFAGAN # VB32 -- RECYCLE TCF SURFAGAN # VB32-RECYCLE
TCF DSPV6N79 # ENTER TCF DSPV6N79 # ENTER
SURFEND CS BIT14 # SET BIT14 TO SHOW MARK END SURFEND CS BIT14 # SET BIT14 TO SHOW MARK END
@ -680,16 +665,15 @@ SURFAGAN CA CURSOR
INDEX MKDEX INDEX MKDEX
TS 3 # STORE SPIRAL TS 3 # STORE SPIRAL
CS MARKSTAT # IF BIT 14 SET -- END MARKING CS MARKSTAT # IF BIT 14 SET-END MARKING
MASK BIT14 MASK BIT14
EXTEND EXTEND
BZF MARKCHEX BZF MARKCHEX
CA MARKCNTR # THIS IS RECYCLE -- SEE IF 5 MARKS ALREADY CA MARKCNTR # THIS IS RECYCLE-SEE IF 5 MARKS ALREADY
AD ONE AD ONE
COM COM
AD FIVE AD FIVE
EXTEND EXTEND
BZMF 5MKALARM # CAN'T RECYCLE -- TOO MANY MARKS -- ALARM BZMF 5MKALARM # CANT RECYCLE-TO MANY MARKS-ALARM
INCR MARKCNTR # OF FOR RECYCLE -- INCR COUNTER INCR MARKCNTR # OF FOR RECYCLE-INCR COUNTER
TCF GETMKS +3 # GO DISPLAY MARK VB TCF GETMKS +3 # GO DISPLAY MARK VB