Pre-launch Review
AOTMARK
Scanned pages: 244-261
# Copyright: Public domain.# Filename: AOTMARK.agc# Purpose: Part of the source code for Luminary 1A build 099.# It is part of the source code for the Lunar Module's (LM)# Apollo Guidance Computer (AGC), for Apollo 11.# Assembler: yaYUL# Contact: Ron Burkey <info@sandroid.org>.# Website: www.ibiblio.org/apollo.# Pages: 244-261# Mod history: 2009-05-10 SN (Sergio Navarro). Started adapting# from the Luminary131/ file of the same# name, using Luminary099 page images.## This source code has been transcribed or otherwise adapted from# digitized images of a hardcopy from the MIT Museum. The digitization# was performed by Paul Fjeld, and arranged for by Deborah Douglas of# the Museum. Many thanks to both. The images (with suitable reduction# in storage size and consequent reduction in image quality as well) are# available online at www.ibiblio.org/apollo. If for some reason you# find that the images are illegible, contact me at info@sandroid.org# about getting access to the (much) higher-quality images which Paul# actually created.## Notations on the hardcopy document read, in part:## Assemble revision 001 of AGC program LMY99 by NASA 2021112-061# 16:27 JULY 14, 1969
# Page 244 BANK 12 SETLOC AOTMARK1 BANK
EBANK= XYMARK COUNT* $$/MARK
AOTMARK INHINT CCS MARKSTAT # SEE IF AOTMARK BUSY TC +2 # MARK SYSTEM BUSY -- DO ALARM TC EXTVBCHK TC POODOO OCT 00105
EXTVBCHK CAF SIX # SEE IF EXT. VERB WORKING MASK EXTVBACT CCS A TCF MKABORT # YES -- ABORT
CAF BIT2 # NO -- DISALLOW SOME EXTENDED VERB ACTION ADS EXTVBACT # BIT2 RESET IN ENDMARKMKVAC CCS VAC1USE # LOOK FOR A VAC AREAD -- DO ABORT IF TCF MKVACFND # NONE AVAILABLE CCS VAC2USE TCF MKVACFND CCS VAC3USE TCF MKVACFND CCS VAC4USE TCF MKVACFND CCS VAC5USE TCF MKVACFND DXCH BUF2 TC BAILOUT1 # ALL VAC AREAS OCCUPIED -- ABORT. OCT 01207
MKVACFND AD TWO TS MARKSTAT # STORE VAC ADR IN LOW 9 OF MARKSTAT
CAF ZERO INDEX MARKSTAT TS 0 -1 # ZERO IN VACUSE REG TO SHOW VAC OCCUPIED
CAF PRIO15 TC FINDVAC # SET UP JOB FOR GETDAT EBANK= XYMARK 2CADR GETDAT
RELINT TCF SWRETURN# Page 245MKABORT DXCH BUF2 TC BAILOUT1 # CONFLICT WITH EXTENDED VERB OCT 01211
MKRELEAS CAF ZERO XCH MARKSTAT # SET MARKSTAT TO ZERO MASK LOW9 # PICK UP VAC AREA AOR CCS A INDEX A TS 0 # SHOW MKVAC AREA AVAILABLE CAF ONE TC IBNKCALL CADR GOODEND # GO WAKE UP CALLING JOB
# Page 246KILLAOT CAF ZERO TS EXTVBACT # TERMINATE AOTMARK -- ALLOW EXT VERB TC GOTOPOOHGETDAT CS MARKSTAT # SET BIT12 TO DISCOURAGE MARKRUPT MASK BIT12 # BIT12 RESET AT GETMARK ADS MARKSTAT
CAF V01N71 # DISPLAY DETENT AND STAR CODE TC BANKCALL CADR GOMARKF
TCF KILLAOT # V34 -- DOES GOTOPOOH TCF DODAT # V33 -- PROCEED -- USE THIS STAR FOR MARKSENTERDAT TCF GETDAT # ENTER -- REDISPLAY STAR CODE
DODAT CAF HIGH9 # PICK DETENT CODE FROM BITS7-9 OF AOTCODE MASK AOTCODE # AND SEE IF CODE 1 TO 6 EXTEND MP BIT9 TS XYMARK # STORE DETENT
EXTEND BZMF GETDAT # COAS CALIBRATION CODE - NO GOOD HERE
AD NEG7 # SEE IF DETENT 7 FOR COAS EXTEND BZF CODE7
TCF CODE1TO6
CODE7 CAF V06N87* # CODE 7, COAS SIGHTING, GET OPTIC AXIS TC BANKCALL # AZ AND EL OF SIGHTING DEVICE FROM ASTRO CADR GOMARKF
TCF KILLAOT # V34 -- DOES GOTOPOOH TCF +2 # PROCEED TCF CODE7 # ON ENTER, RECYCLE EXTEND DCA AZ # PICK UP AZ AND EL IN SP 25 COMP INDEX FIXLOC DXCH 8D # STORE IN 8D AND 9D OF LOCAL VAC CAF ZERO # BACKUP SYSTEM TO BE USED TCF COASCODE # ZERO APPARENT ROTATION
CODE1TO6 INDEX XYMARK # INDEX AOT POSITION BY DET CODE CA AOTEL -1 INDEX FIXLOC TS 9D # STORE ELEVATION IN VAC+9D
INDEX XYMARK # INDEX DET CODE 1,2 OR 3# Page 247 CA AOTAZ -1 INDEX FIXLOC TS 8D # STORE AZIMUTH IN VAC +8D
CA AOTAZ +1 # COMPENSATION FOR APPARENT ROTATION OF EXTEND # AOT FIELD OF VIEW IN LEFT AND RIGHT INDEX FIXLOC # DETENTS IS STORED IN VAC +10D IN SP MSU 8D # PRECISION ONE'S COMPLEMENTCOASCODE INDEX FIXLOC TS 10D # ROT ANGLE
TC INTPRET # COMPUTE X AND Y PLANE VECTORS
# Page 248# THE OPTAXIS SUBROUTINE COMPUTES THE X AND Y MARK PLANE VECS AND# ROTATES THEM THRU THE APPARENT FIELD OF VIEW ROTATION UNIQUE TO AOT# OPTAXIS USES OANB TO COMPUTE THE OPTIC AXIS## 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# ROTATION ANGLE IN SINGLE PREC IS COMP SCALED BY PI IN 10D OF VAC## OUTPUT -- OPTIC AXIS VEC IN NG COORDS IN SCAXIS# 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
OPTAXIS CALL # GO COMPUTE OA AN X AND Y PLANE VECS OANB SLOAD SR1 # LOAD APP ROTATION IN ONES COMP 10D # RESCALE BY 2PI PUSH SIN # 1/2SIN(ROT) 0-1 PDDL COS PUSH VXSC # 1/2COS(ROT) 2-3 18D PDDL VXSC # 1/4COS(ROT)UYP 4-9 0 24D # 1/4SIN(ROT)UXP BVSU STADR # UP 4-9 STODL 12D # YPNB=1/4(COS(ROT)UYP-SIN(ROT)UXP) VXSC PDDL # UP 2-3 UP 0-1 FOR EXCHANGE 24D # 1/4COS(ROT)UXP PUSH 0-5 VXSC VAD # 1/4SIN(ROT)UYP 18D # UP 0-5 STADR STOVL 18D # XPNB=1/4(COS(ROT)UXP+SIN(ROT)UYP) LO6ZEROS # INITIALIZE AVE STAR VEC ACCUMULATOR STORE STARAD +6 EXIT TCF GETMKS
# Page 249# THE OANB SUBROUTINE COMPUTES THE OPTIC AXIS OF THE SIGHTING INSTRUMENT# FROM AZIMUTH AND ELEVATION INPUT FROM THE ASTRONAUT.## INPUT -- AZIMUTH ANGLE IN SINGLE PREC 2'S COMP IN 8D OF JOB VAC# ELEVATION ANGLE IN SINGLE PREC 2'S COMP IN 9D OF VAC## OUTPUT -- OPTIC AXIS IN NB COORDS. IN SCAXIS# X-PLANE 1/2VEC IN NB COORDS AT 24D OF VAC# Y-PLANE 1/2VEC IN NB COORDS AT 18D OF VAC
BANK 05 SETLOC AOTMARK2 BANK
COUNT* $$/MARK
OANB SETPD STQ 0 GCTR # STORE RETURN SLOAD RTB 9D # PICK UP SP ELV CDULOGIC PUSH COS PDDL SIN # 1/2COS(ELV) PD 0-1 STADR STODL SCAXIS # OAX=1/2SIN(ELV) 8D RTB CDULOGIC PUSH COS STORE 20D # STORE UYP(Y) 20-21 PDDL SIN # 1/2COS(AZ) PD 2-3 PUSH DCOMP # PUSH 1/2S IN (AZ) 4-5 STODL 22D # STORE UYP(Z) 22-23 LO6ZEROS STODL 18D # STORE UYP(X) 18-19 DMP SL1 0 STODL SCAXIS +2 # OAY=1/2COS(ELV)SIN(AZ) DMP SL1 # UP 2-3 STADR # UP 0-1 STOVL SCAXIS +4 # OAZ=1/2COS(ELV)COS(AZ) 18D # LOAD UYP VEC VXV UNIT SCAXIS # UXP VEC=UYP X OA STORE 24D # STORE UXP GOTO GCTR# Page 250# SURFSTAR COMPUTES A STAR VECTOR IN SM COORDINATES FOR LUNAR# SURFACE ALIGNMENT AND EXITS TO AVEIT TO AVERAGE STAR VECTORS.## 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# CURSOR SP 2COMP AT POSITION 1 OF INDEXED MARKVAC# SPIRAL SP 2COMP AT POSITION 3 OF INDEXED MARKVAC# CDUY,Z,X AT POSITIONS 0,2,4 OF INDEXED MARKVAC
BANK 15 SETLOC P50S BANK COUNT* $$/R59
SURFSTAR VLOAD* 0,1 # PUT X-MARK CDUS IN CDUSPOT FOR TRG*NBSM STORE CDUSPOT SLOAD* RTB 1,1 # PICK UP YROT CDULOGIC STORE 24D # STORE CURSOR FOR SPIRAL COMP (REVS) BZE YZCHK # IF YROT ZERO -- SEE IF SROT ZEROJUSTZY PUSH COS PDDL SIN # 1/2COS(YROT) 0-1 VXSC PDDL # UP 0-1 1/8SIN(YROT)UXP 0-5 18D VXSC VSU # UP 0-5 12D # UYP UNIT VXV SCAXIS UNIT PUSH SLOAD* RTB 3,1 # PICK UP SPIRAL CDULOGIC STORE 26D # STORE SPIRAL (REVS) DSU DAD 24D ABOUTONE DMP DP1/12 STORE 26D # SEP=(360 + SPIRAL -CURSOR)/12 SIN VXSC # UP 0-5 VSL1 PDDL # 1/2SIN(SEP)(UPP X OA) 0-5 26D COS VXSC SCAXIS VSL1 VAD # UP 0-5JUSTOA UNIT CALL TRG*NBSM STCALL 24D # STAR VEC IN SM AVEIT # GO AVERAGE# Page 251ABOUTONE 2DEC .99999999
DP1/12 EQUALS DEG30 # .08333333 BANK 7 SETLOC AOTMARK1 BANK COUNT* $$/MARKYZCHK SLOAD* BZE # YROT ZERO AND IF SROT ZERO FORCE STAR 3,1 # ALONG OPTIC AXIS YSZERO DLOAD GOTO 24D JUSTZY # SROT NOT ZERO -- CONTINUE NORMALLYYSZERO VLOAD GOTO SCAXIS JUSTOA
# Page 252# THE GETMKS ROUTINE INITIALIZES THE SIGHTING MARK PROCEDURE
GETMKS CAF ZERO # INITIALIZE MARK ID REGISTER AND MARK CNT TS XYMARK TS MARKCNTR CAF LOW9 # ZERO BITS10 TO 15 RETAINING MKVAC ADR MASK MARKSTAT TS MARKSTAT CAF MKVB54* # DISPLAY VB54 INITIALLYPASTIT TC BANKCALL CADR GOMARK4
TCF KILLAOT # V34 -- DOES GOTOPOOH TCF MARKCHEX # VB33 -- PROCEED, GOT MARKS, COMPUTE LOS TCF GETDAT # ENTER -- RECYCLE TO V01N71
MARKCHEX CS MARKSTAT # SET BIT12 TO DISCOURAGE MARKRUPT MASK BIT12 ADS MARKSTAT MASK LOW9 TS XYMARK # JAM MARK VAC ADR IN XYMARK FOR AVESTAR CAF ZERO TS MKDEX # SET MKDEX ZERO FOR LOS VEC CNTR CA MARKSTAT MASK PRIO3 # SEE IF LAST MK PART COMPLETE TS L CAF PRIO3 # BITS10 AND 11 EXTEND RXOR LCHAN EXTEND BZF AVESTAR # LAST PAIR COMPLETE -- TO COMPUTE LOSCNTCHK CCS MARKCNTR # NO PAIR SHOWING -- SEE IF PAIR IN HOLD TCF +2 # PAIR BURIED -- DECREMENT COUNTER TCF MKALARM # NO PAIR -- ALARM TS MARKCNTR # STORE DECREMENTED COUNTER
AVESTAR CAF BIT12 # INITIALIZE MKDEX FOR STAR LOS COUNTER ADS MKDEX # MKDEX WAS INITIALIZED ZERO IN MARKCHEX CS MARKCNTR EXTEND MP SIX # GET C(L) = -6 MARKCNTR CS XYMARK AD L # ADD -- MARK VAC ADR SET IN MARKCHEX INDEX FIXLOC TS X1 # JAM -- CDU ADR OF X-MARK IN X1
CA FIXLOC # SET PD POINTER TO ZERO TS PUSHLOC
TC INTPRET# Page 253 BON VLOAD* SURFFLAG # IF ON SURFACE COMPUTE VEC AT SURFSTAR SURFSTAR 1,1 # PUT Y-MARK CDUS IN CDUSPOT FOR TRG*NBSM STOVL CDUSPOT 12D # LOAD Y-PLANE VECTOR IN NG CALL TRG*NBSM # CONVERT IT TO STABLE MEMBER PUSH VLOAD* 0,1 # PUT X-MARK CDUS IN CDUSPOT FOR TRG*NBSM STOVL CDUSPOT 18D # LOAD X-PLANE VECTOR IN NB CALL TRG*NBSM # CONVERT IT TO STABLE-MEMBER VXV UNIT # UNIT(XPSM * YPSM) STADR STORE 24D
AVEIT SLOAD PDVL # N(NUMBER OF VECS) IN 0-1 MKDEX 24D # LOAD CURRENT VECTOR VSR3 V/SC 0 STODL 24D # VEC/N 0 DSU DDV DP1/8 # (N-1)/N VXSC VAD STARAD +6 # ADD VEC TO PREVIOUSLY AVERAGED VECTOR 24D # (N-1)/N AVESTVEC + VEC/N STORE STARAD +6 # AVERAGE STAR VECTOR STORE STARSAV2 EXIT CCS MARKCNTR # SEE IF ANOTHER MARK PAIR IN MKVAC TCF AVESTAR -1 # THERE IS -- GO GET IT -- DECREMENT COUNTERENDMARKS CAF FIVE # NO MORE MARKS -- TERMINATE AOTMARK INHINT TC WAITLIST EBANK= XYMARK 2CADR MKRELEAS
TC ENDMARK
MKALARM TC ALARM # NOT A PAIR TO PROCESS -- DO GETMKS OCT 111 TCF GETMKS
V01N71 VN 171V06N87* VN 687
# Page 254# MARKRUPT IS ENTERED FROM INTERRUPT LEAD-INS AND PROCESSES CHANNEL 16# CAUSED BY X,Y MARK OR MARK REJECT OR BY THE RATE OF DESCENT SWITCH
MARKRUPT TS BANKRUPT CA CDUY # STORE CDUS AND TIME NOW -- THEN SEE IF TS ITEMP3 # WE NEED THEM CA CDUZ TS ITEMP4 CA CDUX TS ITEMP5 EXTEND DCA TIME2 DXCH ITEMP1 XCH Q TS QRUPT
CAF OCT34 # SEE IF X OR Y MARK OR MKREJECT EXTEND RAND NAVKEYIN CCS A TCF +2 # ITS A LIVE ONE -- SEE IF ITS WANTED TCF SOMEKEY # ITS SOME OTHER KEY
CAF BIT12 # ARE WE ASKING FOR A MARK MASK MARKSTAT CCS A TC RESUME # DON'T WANT MARK OR MKREJECT -- DO NOTHING
CCS MARKSTAT # ARE MARKS BEING ACCEPTED TCF FINDKEY # THEY ARE -- WHICH ONE IS IT TC ALARM # MARKS NOT BEING ACCEPTED -- DO ALARM OCT 112 TC RESUME
FINDKEY CAF BIT5 # SEE IF MARK REJECT. EXTEND RAND NAVKEYIN CCS A TCF MKREJ # IT'S A MARK REJECT
CAF BIT4 # SEE IF Y MARK EXTEND RAND NAVKEYIN CCS A
TCF YMKRUPT # IT'S A Y MARK
CAF BIT3 # SEE IF X MARK EXTEND RAND NAVKEYIN
# Page 255 CCS A TCF XMKRUPT # IT'S A X MARK
SOMEKEY CAF OCT140 # NOT MARK OR MKREJECT -- SEE IF DESCENT BITS EXTEND RAND NAVKEYIN EXTEND BZF +3 # IF NO BITS
TC POSTJUMP # IF DESCENT BITS CADR DESCBITS
TC ALARM # NO INBITS IN CHANNEL 16. OCT 113
TC RESUME
XMKRUPT CAF ZERO TS RUPTREG1 # SET X MARK STORE INDEX TO ZERO CAF BIT10 TCF +4YMKRUPT CAF ONE TS RUPTREG1 # SET Y MARK STORE INDEX TO ONE CAF BIT11 TS XYMARK # SET MARK IDENTIFICATION
TC MARKTYPE # SEE IF SURFACE MARK TCF SURFSTOR # SURFACE MARK -- JUST STORE CDUS
CAF BIT14 # GOT A MARK -- SEE IF MARK PARI MADE MASK MARKSTAT EXTEND BZF VERIFYMK # NOT A PAIR, NORMAL PROCEDURE CS MARKCNTR # GO A PAIR, SEE IF ANOTHER CAN BE MADE AD FOUR # IF SO, INCREMENT POINTER, CLEAR BITS 10,11 EXTEND BZMF 5MKALARM # HAVE FIVE MARK PAIRS -- DON'T ALLOW MARK INCR MARKCNTR # OK FOR ANOTHER PAIR, INCR POINTER CS PRIO23 # CLEAR BITS 10,11,14 FOR NEXT PAIR MASK MARKSTAT TS MARKSTAT
VERIFYMK CA XYMARK MASK MARKSTAT CCS A TCF +2 # THIS MARK NOT DESIRED TCF VACSTOR # MARK DESIRED -- STORE CDUS TC ALARM OCT 114 TC RESUME # RESUME -- DISPLAY UNCHANGED -- WAIT FOR ACTION
# Page 2565MKALARM TC ALARM # ATTEMPTING TO MAKE MORE THAN 5 MK PAIRS OCT 107 TC MARKTYPE # SEE IF SURFACE MARK TCF DSPV6N79 # IT IS TC RESUME # DON'T CHANGE DISPLAY -- DO NOTHING
# Page 257MKREJ TC MARKTYPE # SEE IF SURFACE TCF SURFREJ # SURFACE -- JUST CHECK MARK COUNTER
CAF PRIO3 # INFLIGHT -- SEE IF MARKS MADE MASK MARKSTAT CCS A TCF REJECT # MARKS MADE -- REJECT ONEREJALM TC ALARM # NO MARK TO REJECT -- BAD PROCEDURE -- ALARM OCT 115 TC RESUME # DESIRED ACTION DISPLAYED
REJECT CS PRIO30 # ZERO BIT14, SHOW REJ., SEE IF MARK SINCE MASK MARKSTAT # LAST REJECT AD BIT13 XCH MARKSTAT MASK BIT13 CCS A TCF REJECT2 # ANOTHER REJECT SET BIT 10+11 TO ZERO
CS XYMARK # MARK MADE SINCE REJECT -- REJECT MARK IN 1DRENEWMK MASK MARKSTAT TS MARKSTAT TCF REMARK # GO REQUEST NEW MARK ACTION
REJECT2 CS PRIO3 # ON SECOND REJECT -- DISPLAY VB53 AGAIN TCF RENEWMK
SURFREJ CCS MARKCNTR # IF MARK DECREMENT COUNTER TCF +2 TCF REJALM # NO MARKS TO REJECT -- ALARM TS MARKCNTR TC RESUME
# Page 258# MARKTYPE TESTS TO SEE IF LEM ON LUNAR SURFACE. IF IT IS RETURN TO LOC+1
MARKTYPE CS FLAGWRD8 # SURFFLAG ******** TEMPORARY ****** MASK BIT8 CCS A INCR Q # IF SURFACE MARK RETURN TO LOC +1 TC Q # IF INFLIGHT MARK RETURN TO LOC +2
SURFSTOR CAF ZERO # FOR SURFACE MARK ZERO MARK KIND INDEX TS RUPTREG1
CS MARKSTAT # SET BITS10,11 TO SHOW SURFACE MARK MASK PRIO3 # FOR MARKCHEX ADS MARKSTAT
VACSTOR CAF LOW9 MASK MARKSTAT # STORE MARK VAC ADR IN RUPTREG2 TS RUPTREG2 EXTEND DCA ITEMP1 # PICK UP MARKTIME DXCH TSIGHT # STORE LAST MARK TIME CA MARKCNTR # 6 X MARKCNTR FOR STORE INDEX EXTEND MP SIX XCH L # GET INDEX FROM LOW ORDER PART AD RUPTREG2 # SET CDU STORE INDEX TO MARKVAC ADS RUPTREG1 # INCREMENT VAC PICKUP BY MARK FOR FLIGHT TS MKDEX # STORE HERE IN CASE OF SURFACE MARK CA ITEMP3 INDEX RUPTREG1 TS 0 # STORE CDUY CA ITEMP4 INDEX RUPTREG1 TS 2 # STORE CDUZ CA ITEMP5 INDEX RUPTREG1 TS 4 # STORE CDUX TC MARKTYPE # IF SURFACE MARK -- JUST DO SURFJOB TCF SURFJOB
CAF BIT13 # CLEAR BIT13 TO SHOW MARK MADE AD XYMARK # SET MARK ID IN MARKSTAT COM MASK MARKSTAT AD XYMARK TS MARKSTAT MASK PRIO3 # SEE IF X, Y MARK MADE TS L
# Page 259 CA PRIO3 EXTEND RXOR LCHAN CCS A TCF REMARK # NOT PAIR YET, DISPLAY MARK ACTION CS MARKSTAT # MARK PAIR COMPLETE -- SET BIT14 MASK BIT14 ADS MARKSTAT TCF REMARK # GO DISPLAY V54
# Page 260REMARK CAF PRIO3 # BITS 10 AND 11 MASK MARKSTAT EXTEND MP BIT6 # SHIFT MARK IDS TO BE 0 TO 3 FOR INDEX TS MKDEX # STORE VERB INDEXSURFJOB CAF PRIO15 TC NOVAC # ENTER JOB TO CHANGE DISPLAY TO EBANK= XYMARK # REQUEST NEXT ACTION 2CADR CHANGEVB
TC RESUME
CHANGEVB TC MARKTYPE TCF DSPV6N79 # SURFACE -- DISPLAY V 06 N 79 INDEX MKDEX # INFLIGHT -- PICK UP MARK VB INDEX CAF MKVB54 TC PASTIT # PASTE UP NEXT MK VERB DISPLAY
# THE FOUR MKVBS ARE INDEXED -- THEIR ORDER CANNOT BE CHANGED
MKVB54 VN 5471 # MAKE X OR Y MARKMKVB53 VN 5371 # MAKE Y MARKMKVB52 VN 5271 # MAKE X MARKMKVB54* VN 5471 # MAKE X OR Y MARKDP1/8 2DEC .125
OCT34 OCT 34V06N71 VN 671V06N79* VN 679
# Page 261# ROUTINE TO REQUEST CURSOR AND SPIRAL MEASUREMENTS COUNT* $$/R59
DSPV6N79 CAF V06N79* # CURSOR -- SPIRAL DISPLAY TC BANKCALL CADR GOMARKF
TCF KILLAOT # V34 -- DOES GOTOPOOH TCF SURFEND # V33 -- PROCEED, END MARKING CAF BIT6 # IF V32(OCT40) IN MPAC DO RECYCLE MASK MPAC # OTHERWISE IT IS LOAD VB ENTER SO CCS A # RE-DISPLAY V06N79 TCF SURFAGAN # VB32 -- RECYCLE TCF DSPV6N79 # ENTER
SURFEND CS BIT14 # SET BIT14 TO SHOW MARK END MASK MARKSTAT AD BIT14 TS MARKSTAT
SURFAGAN CA CURSOR INDEX MKDEX # HOLDS VAC AREA POINTER FOR SURF MARKING TS 1 # STORE CURSOR SP 2COMP CA SPIRAL INDEX MKDEX TS 3 # STORE SPIRAL
CS MARKSTAT # IF BIT 14 SET -- END MARKING MASK BIT14 EXTEND BZF MARKCHEX CA MARKCNTR # THIS IS RECYCLE -- SEE IF 5 MARKS ALREADY AD ONE COM AD FIVE EXTEND BZMF 5MKALARM # CAN'T RECYCLE -- TOO MANY MARKS -- ALARM INCR MARKCNTR # OF FOR RECYCLE -- INCR COUNTER TCF GETMKS +3 # GO DISPLAY MARK VB