Notations on the program listing read, in part:
GAP: ASSEMBLE REVISION 56 OF AGC PROGRAM ZERLINA BY ZOROASTER 9:12 OCT. 21,1970Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files were transcribed from a printout in Don Eyles's personal
collection, scanned by archive.org, and financially sponsored by Linden Sims.
A team of volunteers performed the transcription and proof-reading. The scanned
page images are available at
the Virtual AGC Project website, as well as higher-quality (but much larger)
images at
the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating
"issues" at
the Virtual AGC Project's GitHub Repository. Notations on the program listing read, in part: GAP: ASSEMBLE REVISION 56 OF AGC PROGRAM ZERLINA BY ZOROASTER 9:12 OCT. 21,1970Note that the date is the date of the printout, not the date of the program revision. |
011251,000002: ## Copyright: Public domain.
011252,000003: ## Filename: AOTMARK.agc
011253,000004: ## Purpose: A log section of Zerlina 56, the final revision of
011254,000005: ## Don Eyles's offline development program for the variable
011255,000006: ## guidance period servicer. It also includes a new P66 with LPD
011256,000007: ## (Landing Point Designator) capability, based on an idea of John
011257,000008: ## Young's. Neither of these advanced features were actually flown,
011258,000009: ## but Zerlina was also the birthplace of other big improvements to
011259,000010: ## Luminary including the terrain model and new (Luminary 1E)
011260,000011: ## analog display programs. Zerlina was branched off of Luminary 145,
011261,000012: ## and revision 56 includes all changes up to and including Luminary
011262,000013: ## 183. It is therefore quite close to the Apollo 14 program,
011263,000014: ## Luminary 178, where not modified with new features.
011264,000015: ## Reference: pp. 251-267
011265,000016: ## Assembler: yaYUL
011266,000017: ## Contact: Ron Burkey <info@sandroid.org>.
011267,000018: ## Website: www.ibiblio.org/apollo/index.html
011268,000019: ## Mod history: 2017-07-28 MAS Created from Luminary 210.
011269,000020: ## 2017-08-19 MAS Updated for Zerlina 56.
011270,000021:
|
|
Page 251 |
011272,000023: 12,2000 BANK 12
011273,000024: 07,2000 SETLOC AOTMARK1
011274,000025: 07,2000 BANK
011275,000026:
011276,000027: 07,2000 E7,1551 EBANK= XYMARK
011277,000028: 07,2000 COUNT* $$/MARK
011278,000029:
011279,000030: 07,2000 00004 AOTMARK INHINT
011280,000031: 07,2001 11307 CCS MARKSTAT # SEE IF AOTMARK BUSY
011281,000032: 07,2002 02004 TC +2 # MARK SYSTEM BUSY-DO ALARM
011282,000033: 07,2003 02006 TC EXTVBCHK
011283,000034: 07,2004 05653 TC POODOO
011284,000035: 07,2005 20105 OCT 20105
011285,000036:
011286,000037: 07,2006 36254 EXTVBCHK CAF SIX # SEE IF EXT. VERB WORKING
011287,000038: 07,2007 71043 MASK EXTVBACT
011288,000039: 07,2010 10000 CCS A
011289,000040: 07,2011 12044 TCF MKABORT # YES-ABORT
011290,000041:
011291,000042: 07,2012 34752 CAF BIT2 # NO-DISALLOW SOME EXTENDED VERB ACTION
011292,000043: 07,2013 27043 ADS EXTVBACT # BIT2 RESET IN ENDMARK
011293,000044: 07,2014 10400 MKVAC CCS VAC1USE # LOOK FOR A VAC AREA-DO ABORT IF
011294,000045: 07,2015 12031 TCF MKVACFND # NONE AVAILABLE
011295,000046: 07,2016 10454 CCS VAC2USE
011296,000047: 07,2017 12031 TCF MKVACFND
011297,000048: 07,2020 10530 CCS VAC3USE
011298,000049: 07,2021 12031 TCF MKVACFND
011299,000050: 07,2022 10604 CCS VAC4USE
011300,000051: 07,2023 12031 TCF MKVACFND
011301,000052: 07,2024 10660 CCS VAC5USE
011302,000053: 07,2025 12031 TCF MKVACFND
011303,000054: 07,2026 52134 DXCH BUF2
011304,000055: 07,2027 05717 TC BAILOUT1 # ALL VAC AREAS OCCUPIED - ABORT.
011305,000056: 07,2030 31207 OCT 31207
011306,000057:
011307,000058: 07,2031 64752 MKVACFND AD TWO
011308,000059: 07,2032 55307 TS MARKSTAT # STORE VAC ADR IN LOW 9 OF MARKSTAT
011309,000060:
011310,000061: 07,2033 34755 CAF ZERO
011311,000062: 07,2034 51307 INDEX MARKSTAT
011312,000063: 07,2035 53777 TS 0 -1 # ZERO IN VACUSE REG TO SHOW VAC OCCUPIED
011313,000064:
011314,000065: 07,2036 35025 CAF PRIO15
011315,000066: 07,2037 05105 TC FINDVAC # SET UP JOB FOR GETDAT
011316,000067: 07,2040 E7,1551 EBANK= XYMARK
011317,000068: 07,2040 02063 16067 2CADR GETDAT
011318,000069:
011319,000070:
011320,000071: 07,2042 00003 RELINT
011321,000072: 07,2043 14631 TCF SWRETURN
011322,000073:
|
|
Page 252 |
011324,000075: 07,2044 52134 MKABORT DXCH BUF2
011325,000076: 07,2045 05717 TC BAILOUT1 # CONFLICT WITH EXTENDED VERB
011326,000077: 07,2046 31211 OCT 31211
011327,000078:
011328,000079: 07,2047 34755 MKRELEAS CAF ZERO
011329,000080: 07,2050 57307 XCH MARKSTAT # SET MARKSTAT TO ZERO
011330,000081: 07,2051 75004 MASK LOW9 # PICK UP VAC AREA ADR
011331,000082: 07,2052 10000 CCS A
011332,000083: 07,2053 50000 INDEX A
011333,000084: 07,2054 54000 TS 0 # SHOW MKVAC AREA AVAILABLE
011334,000085: 07,2055 34753 CAF ONE
011335,000086: 07,2056 04674 TC IBNKCALL
011336,000087: 07,2057 17664 CADR GOODEND # GO WAKE UP CALLING JOB
011337,000088:
|
|
Page 253 |
011339,000090: 07,2060 34755 KILLAOT CAF ZERO
011340,000091: 07,2061 55043 TS EXTVBACT # TERMINATE AOTMARK-ALLOW EXT VERB
011341,000092: 07,2062 06001 TC GOTOPOOH
011342,000093: 07,2063 41307 GETDAT CS MARKSTAT # SET BIT12 TO DISCOURAGE MARKRUPT
011343,000094: 07,2064 74740 MASK BIT12 # BIT12 RESET AT GETMARK
011344,000095: 07,2065 27307 ADS MARKSTAT
011345,000096:
011346,000097: 07,2066 32330 CAF V01N71 # DISPLAY DETENT AND STAR CODE
011347,000098: 07,2067 04616 TC BANKCALL
011348,000099: 07,2070 20334 CADR GOMARKF
011349,000100:
011350,000101: 07,2071 12060 TCF KILLAOT # V34-DOES GOTOPOOH
011351,000102: 07,2072 12074 TCF DODAT # V33-PROCEED-USE THIS STAR FOR MARKS
011352,000103: 07,2073 12063 ENTERDAT TCF GETDAT # ENTER-REDISPLAY STAR CODE
011353,000104:
011354,000105: 07,2074 37756 DODAT CAF HIGH9 # PICK DETENT CODE FROM BITS7-9 OF AOTCODE
011355,000106: 07,2075 70734 MASK AOTCODE # AND SEE IF CODE 1 TO 6
011356,000107: 07,2076 00006 EXTEND
011357,000108: 07,2077 74743 MP BIT9
011358,000109: 07,2100 55551 TS XYMARK # STORE DETENT
011359,000110:
011360,000111: 07,2101 00006 EXTEND
011361,000112: 07,2102 62063 BZMF GETDAT # COAS CALIBRATION CODE-NO GOOD HERE
011362,000113:
011363,000114: 07,2103 65661 AD NEG7 # SEE IF DETENT 7 FOR COAS
011364,000115: 07,2104 00006 EXTEND
011365,000116: 07,2105 12107 BZF CODE7
011366,000117:
011367,000118: 07,2106 12123 TCF CODE1TO6
011368,000119:
011369,000120: 07,2107 32331 CODE7 CAF V06N87* # CODE 7, COAS SIGHTING, GET OPTIC AXIS
011370,000121: 07,2110 04616 TC BANKCALL # AZ AND EL OF SIGHTING DEVICE FROM ASTRO
011371,000122: 07,2111 20334 CADR GOMARKF
011372,000123:
011373,000124: 07,2112 12060 TCF KILLAOT # V34-DOES GOTOPOOH
011374,000125: 07,2113 12115 TCF +2 # PROCEED
011375,000126: 07,2114 12107 TCF CODE7 # ON ENTER, RECYCLE
011376,000127: 07,2115 00006 EXTEND
011377,000128: 07,2116 31345 DCA AZ # PICK UP AZ AND EL IN SP 2S COMP
011378,000129: 07,2117 50120 INDEX FIXLOC
011379,000130: 07,2120 52011 DXCH 8D # STORE IN 8D AND 9D OF LOCAL VAC
011380,000131: 07,2121 34755 CAF ZERO # BACKUP SYSTEM TO BE USED
011381,000132: 07,2122 12137 TCF COASCODE # ZERO APPARENT ROTATION
011382,000133:
011383,000134: 07,2123 51551 CODE1TO6 INDEX XYMARK # INDEX AOT POSITION BY DET CODE
011384,000135: 07,2124 31411 CA AOTEL -1
011385,000136: 07,2125 50120 INDEX FIXLOC
011386,000137: 07,2126 54011 TS 9D # STORE ELEVATION IN VAC+9D
011387,000138:
011388,000139: 07,2127 51551 INDEX XYMARK # INDEX DET CODE 1,2 OR 3
|
|
Page 254 |
011390,000141: 07,2130 31403 CA AOTAZ -1
011391,000142: 07,2131 50120 INDEX FIXLOC
011392,000143: 07,2132 54010 TS 8D # STORE AZIMUTH IN VAC +8D
011393,000144:
011394,000145: 07,2133 31405 CA AOTAZ +1 # COMPENSATION FOR APPARENT ROTATION OF
011395,000146: 07,2134 00006 EXTEND # AOT FIELD OF VIEW IN LEFT AND RIGTHT
011396,000147: 07,2135 50120 INDEX FIXLOC # DETENTS IS STORED IN VAC +10D IN SP
011397,000148: 07,2136 20010 MSU 8D # PRECISION ONES COMPLEMENT
011398,000149: 07,2137 50120 COASCODE INDEX FIXLOC
011399,000150: 07,2140 54012 TS 10D # ROT ANGLE
011400,000151:
011401,000152: 07,2141 06051 TC INTPRET # COMPUTE X AND Y PLANE VECTORS
011402,000153:
|
|
Page 255 |
011404,000155: # THE OPTAXIS SUBROUTINE COMPUTES THE X AND Y MARK PLANE VECS AND
011405,000156: # AND ROTATES THEM THRU THE APPARENT FIELD OF VIEW ROTATION UNIQUE TO AOT
011406,000157: # OPTAXIS USES OANB TO COMPUTE THE OPTIC AXIS
011407,000158: # INPUT-AZIMUTH ANGLE IN SINGLE PREC AT CDU SCALE IN 8D OF JOB VAC
011408,000159: # ELEVATION ANGLE IN SINGLE PREC AT CDU SCALE IN 9D OF JOB VAC
011409,000160: # ROTATION ANGLE IN SINGLE PREC 1S COMP SCALED BY PI IN 10D OF VAC
011410,000161: # OUTPUT-OPTIC AXIS VEC IN NB COORDS IN SCAXIS
011411,000162: # X-MARK PLANE 1/4VEC IN NB COORDS AT 18D OF JOB VAC
011412,000163: # Y-MARK PLANE 1/4VEC IN NB COORDS AT 12D OF JOB VAC
011413,000164:
011414,000165:
011415,000166: 07,2142 77624 OPTAXIS CALL # GO COMPUTE OA AND X AND Y PLANE VECS
011416,000167: 07,2143 10530 OANB
011417,000168: 07,2144 70535 SLOAD SR1 # LOAD APP ROTATION IN ONES COMP
011418,000169: 07,2145 00013 10D # RESCALE BY 2PI
011419,000170: 07,2146 73406 PUSH SIN # 1/2SIN(ROT) 0-1
011420,000171: 07,2147 71525 PDDL COS
011421,000172: 07,2150 74206 PUSH VXSC # 1/2COS(ROT) 2-3
011422,000173: 07,2151 00023 18D
011423,000174: 07,2152 74325 PDDL VXSC # 1/4COS(ROT)UYP 4-9
011424,000175: 07,2153 00001 0
011425,000176: 07,2154 00031 24D # 1/4SIN(ROT)UXP
011426,000177: 07,2155 45445 BVSU STADR # UP 4-9
011427,000178: 07,2156 63762 STODL 12D # YPNB=1/4(COS(ROT)UYP-SIN(ROT)UXP)
011428,000179: 07,2157 65361 VXSC PDDL # UP 2-3 UP 0-1 FOR EXCHANGE
011429,000180: 07,2160 00031 24D # 1/4COS(ROT)UXP PUSH 0-5
011430,000181: 07,2161 53361 VXSC VAD # 1/4SIN(ROT)UYP
011431,000182: 07,2162 00023 18D # UP 0-5
011432,000183: 07,2163 77626 STADR
011433,000184: 07,2164 53754 STOVL 18D # XPNB=1/4(COS(ROT)UXP+SIN(ROT)UYP)
011434,000185: 07,2165 24007 LO6ZEROS # INITIALIZE AVE STAR VEC ACCUMULATOR
011435,000186: 07,2166 02715 STORE STARAD +6
011436,000187: 07,2167 77776 EXIT
011437,000188: 07,2170 12202 TCF GETMKS
011438,000189:
|
|
Page 256 |
011440,000191: # THE OANB SUBROUTINE COMPUTES THE OPTIC AXIS OF THE SIGHTING INSTRUMENT
011441,000192: # FROM AZIMUTH AND ELEVATION INPUT FROM THE ASTRONAUT.
011442,000193: # INPUT- AZIMUTH ANGLE IN SINGLE PREC 2S COMP IN 8D OF JOB VAC
011443,000194: # ELEVATION ANGLE IN SINGLE PREC 2S COMP IN 9D OF VAC
011444,000195: # OUTPUT-OPTIC AXIS IN NB COORDS. IN SCAXIS
011445,000196: # X-PLANE 1/2VEC IN NB COORDS AT 24D OF VAC
011446,000197: # Y-PLANE 1/2VEC IN NB COORDS AT 18D OF VAC
011447,000198:
011448,000199: 05,3414 BANK 05
011449,000200: 04,2000 SETLOC AOTMARK2
011450,000201: 04,2000 BANK
011451,000202:
011452,000203: 04,2530 COUNT* $$/MARK
011453,000204:
011454,000205: 04,2530 44001 OANB SETPD STQ
011455,000206: 04,2531 00001 0
011456,000207: 04,2532 02736 GCTR # STORE RETURN
011457,000208: 04,2533 47135 SLOAD RTB
011458,000209: 04,2534 00012 9D # PICK UP SP ELV
011459,000210: 04,2535 21560 CDULOGIC
011460,000211: 04,2536 71406 PUSH COS
011461,000212: 04,2537 73525 PDDL SIN # 1/2COS(ELV) PD 0-1
011462,000213: 04,2540 77626 STADR
011463,000214: 04,2541 60012 STODL SCAXIS # OAX=1/2SIN(ELV)
011464,000215: 04,2542 00011 8D # PICK UP AZ SP
011465,000216: 04,2543 77634 RTB
011466,000217: 04,2544 21560 CDULOGIC
011467,000218: 04,2545 71406 PUSH COS
011468,000219: 04,2546 00025 STORE 20D # STORE UYP(Y) 20-21
011469,000220: 04,2547 73525 PDDL SIN # 1/2COS(AZ) PD 2-3
011470,000221: 04,2550 57406 PUSH DCOMP # PUSH 1/2SIN(AZ) 4-5
011471,000222: 04,2551 14027 STODL 22D # STORE UYP(Z) 22-23
011472,000223: 04,2552 24007 LO6ZEROS
011473,000224: 04,2553 14023 STODL 18D # STORE UYP(X) 18-19 UP 4-5
011474,000225: 04,2554 72405 DMP SL1
011475,000226: 04,2555 00001 0
011476,000227: 04,2556 17767 STODL SCAXIS +2 # OAY=1/2COS(ELV)SIN(AZ)
011477,000228: 04,2557 72405 DMP SL1 # UP 2-3
011478,000229: 04,2560 77626 STADR # UP 0-1
011479,000230: 04,2561 50006 STOVL SCAXIS +4 # OAZ=1/2COS(ELV)COS(AZ)
011480,000231: 04,2562 00023 18D # LOAD UYP VEC
011481,000232: 04,2563 53435 VXV UNIT
011482,000233: 04,2564 03765 SCAXIS # UXP VEC=UYP X OA
011483,000234: 04,2565 00031 STORE 24D # STORE UXP
011484,000235: 04,2566 77650 GOTO
011485,000236: 04,2567 02736 GCTR
011486,000237:
|
|
Page 257 |
011488,000239: # SURFSTAR COMPUTES A STAR VECTOR IN SM COORDINATES FOR LUNAR
011489,000240: # SURFACE ALIGNMENT AND EXITS TO AVEIT TO AVERAGE STAR VECTORS.
011490,000241: # GIVEN X-MARK PLANE 1/4 VEC IN NB AT 18D OF LOCAL VAC
011491,000242: # Y-MARK PLANE 1/4 VEC IN NB AT 12D OF LOCAL VAC
011492,000243: # CURSOR SP 2COMP AT POSITION 1 OF INDEXED MARKVAC
011493,000244: # SPIRAL SP 2COMP AT POSITION 3 OF INDEXED MARKVAC
011494,000245: # CDUY,Z,X AT POSITIONS 0,2,4 OF INDEXED MARKVAC
011495,000246: 15,2000 BANK 15
011496,000247: 15,2000 SETLOC P50S
011497,000248: 15,2000 BANK
011498,000249: 15,2000 COUNT* $$/R59
011499,000250:
011500,000251: 15,2000 77773 SURFSTAR VLOAD*
011501,000252: 15,2001 00001 0,1 # PUT X-MARK CDUS IN CDUSPOT FOR TRG*NBSM
011502,000253: 15,2002 00766 STORE CDUSPOT
011503,000254: 15,2003 47133 SLOAD* RTB
011504,000255: 15,2004 00002 1,1 # PICK UP YROT
011505,000256: 15,2005 21560 CDULOGIC
011506,000257: 15,2006 00031 STORE 24D # STORE CURSOR FOR SPIRAL COMP (REVS)
011507,000258: 15,2007 77654 BZE
011508,000259: 15,2010 16171 YZCHK # IF YROT ZERO-SEE IF SROT ZERO
011509,000260: 15,2011 71406 JUSTZY PUSH COS
011510,000261: 15,2012 73525 PDDL SIN # 1/2COS(YROT) 0-1
011511,000262: 15,2013 65361 VXSC PDDL # UP 0-1 1/8SIN(YROT)UXP 0-5
011512,000263: 15,2014 00023 18D
011513,000264: 15,2015 52361 VXSC VSU # UP 0-5
011514,000265: 15,2016 00015 12D # UYP
011515,000266: 15,2017 47256 UNIT VXV
011516,000267: 15,2020 03765 SCAXIS
011517,000268: 15,2021 41456 UNIT PUSH
011518,000269: 15,2022 47133 SLOAD* RTB
011519,000270: 15,2023 00004 3,1 # PICK UP SPIRAL
011520,000271: 15,2024 21560 CDULOGIC
011521,000272: 15,2025 00033 STORE 26D # STORE SPIRAL (REVS)
011522,000273: 15,2026 43225 DSU DAD
011523,000274: 15,2027 00031 24D
011524,000275: 15,2030 32047 ABOUTONE
011525,000276: 15,2031 77605 DMP
011526,000277: 15,2032 32474 DP1/12
011527,000278: 15,2033 00033 STORE 26D # SEP=(360 + SPIRAL - CURSOR)/12
011528,000279: 15,2034 74356 SIN VXSC # UP 0-5
011529,000280: 15,2035 65372 VSL1 PDDL # 1/2SIN(SEP)(UPP X OA) 0-5
011530,000281: 15,2036 00033 26D
011531,000282: 15,2037 74346 COS VXSC
011532,000283: 15,2040 03765 SCAXIS
011533,000284: 15,2041 53372 VSL1 VAD # UP 0-5
011534,000285: 15,2042 45056 JUSTOA UNIT CALL
011535,000286: 15,2043 47671 TRG*NBSM
011536,000287: 15,2044 34031 STCALL 24D # STAR VEC IN SM
011537,000288: 15,2045 16276 AVEIT # GO AVERAGE
011538,000289:
|
|
Page 258 |
011540,000291: 15,2046 37777 37775 ABOUTONE 2DEC .99999999
011541,000292:
011542,000293: 15,2050 15,2473 DP1/12 EQUALS DEG30 # .08333333
011543,000294: 07,2171 BANK 7
011544,000295: 07,2000 SETLOC AOTMARK1
011545,000296: 07,2000 BANK
011546,000297: 07,2171 COUNT* $$/MARK
011547,000298: 07,2171 53133 YZCHK SLOAD* BZE # YROT ZERO AND IF SROT ZERO FORCE STAR
011548,000299: 07,2172 00004 3,1 # ALONG OPTIC AXIS
011549,000300: 07,2173 16177 YSZERO
011550,000301: 07,2174 52145 DLOAD GOTO
011551,000302: 07,2175 00031 24D
011552,000303: 07,2176 32011 JUSTZY # SROT NOT ZERO-CONTINUE NORMALLY
011553,000304: 07,2177 52175 YSZERO VLOAD GOTO
011554,000305: 07,2200 03765 SCAXIS
011555,000306: 07,2201 32042 JUSTOA
011556,000307:
|
|
Page 259 |
011558,000309: # THE GETMKS ROUTINE INITIALIZES THE SIGHTING MARK PROCEDURE
011559,000310:
011560,000311: 07,2202 34755 GETMKS CAF ZERO # INITIALIZE MARK ID REGISTER AND MARK CNT
011561,000312: 07,2203 55551 TS XYMARK
011562,000313: 07,2204 55550 TS MARKCNTR
011563,000314: 07,2205 35004 CAF LOW9 # ZERO BITS10 TO 15 RETAINING MKVAC ADR
011564,000315: 07,2206 71307 MASK MARKSTAT
011565,000316: 07,2207 55307 TS MARKSTAT
011566,000317: 07,2210 32613 CAF MKVB54* # DISPLAY VB54 INITIALLY
011567,000318: 07,2211 04616 PASTIT TC BANKCALL
011568,000319: 07,2212 20345 CADR GOMARK4
011569,000320:
011570,000321: 07,2213 12060 TCF KILLAOT # V34-DOES GOTOPOOH
011571,000322: 07,2214 12216 TCF MARKCHEX # VB33-PROCEED, GOT MARKS, COMPUTE LOS
011572,000323: 07,2215 12063 TCF GETDAT # ENTER-RECYCLE TO V01N71
011573,000324:
011574,000325: 07,2216 41307 MARKCHEX CS MARKSTAT # SET BIT12 TO DISCOURAGE MARKRUPT
011575,000326: 07,2217 74740 MASK BIT12
011576,000327: 07,2220 27307 ADS MARKSTAT
011577,000328: 07,2221 75004 MASK LOW9
011578,000329: 07,2222 55551 TS XYMARK # JAM MARK VAC ADR IN XYMARK FOR AVESTAR
011579,000330: 07,2223 34755 CAF ZERO
011580,000331: 07,2224 55552 TS MKDEX # SET MKDEX ZERO FOR LOS VEC CNTR
011581,000332: 07,2225 31307 CA MARKSTAT
011582,000333: 07,2226 75015 MASK PRIO3 # SEE IF LAST MK PARI COMPLETE
011583,000334: 07,2227 54001 TS L
011584,000335: 07,2230 35015 CAF PRIO3 # BITS10 AND 11
011585,000336: 07,2231 00006 EXTEND
011586,000337: 07,2232 06001 RXOR LCHAN
011587,000338: 07,2233 00006 EXTEND
011588,000339: 07,2234 12241 BZF AVESTAR # LAST PAIR COMPLETE-GO COMPUTE LOS
011589,000340: 07,2235 11550 CNTCHK CCS MARKCNTR # NO PAIR SHOWING-SEE IF PAIR IN HOLD
011590,000341: 07,2236 12240 TCF +2 # PAIR BURIED-DECREMENT COUNTER
011591,000342: 07,2237 12325 TCF MKALARM # NO PAIR-ALARM
011592,000343: 07,2240 55550 TS MARKCNTR # STORE DECREMENTED COUNTER
011593,000344:
011594,000345: 07,2241 34740 AVESTAR CAF BIT12 # INITIALIZE MKDEX FOR STAR LOS COUNTER
011595,000346: 07,2242 27552 ADS MKDEX # MKDEX WAS INITIALIZED ZERO IN MARKCHEX
011596,000347: 07,2243 41550 CS MARKCNTR
011597,000348: 07,2244 00006 EXTEND
011598,000349: 07,2245 76254 MP SIX # GET C(L) = -6 MARKCNTR
011599,000350: 07,2246 41551 CS XYMARK
011600,000351: 07,2247 60001 AD L # ADD - MARK VAC ADR SET IN MARKCHEX
011601,000352: 07,2250 50120 INDEX FIXLOC
011602,000353: 07,2251 54046 TS X1 # JAM - CDU ADR OF X-MARK IN X1
011603,000354:
011604,000355: 07,2252 30120 CA FIXLOC # SET PD POINTER TO ZERO
011605,000356: 07,2253 54166 TS PUSHLOC
011606,000357:
011607,000358: 07,2254 06051 TC INTPRET
|
|
Page 260 |
011609,000360: 07,2255 76614 BON VLOAD*
011610,000361: 07,2256 04307 SURFFLAG # IF ON SURFACE COMPUTE VEC AT SURFSTAR
011611,000362: 07,2257 32000 SURFSTAR
011612,000363: 07,2260 00002 1,1 # PUT Y-MARK CDUS IN CDUSPOT FOR TRG*NBSM
011613,000364: 07,2261 24766 STOVL CDUSPOT
011614,000365: 07,2262 00015 12D # LOAD Y-PLANE VECTOR IN NB
011615,000366: 07,2263 77624 CALL
011616,000367: 07,2264 47671 TRG*NBSM # CONVERT IT TO STABLE MEMBER
011617,000368: 07,2265 76606 PUSH VLOAD*
011618,000369: 07,2266 00001 0,1 # PUT X-MARK CDUS IN CDUSPOT FOR TRG*NBSM
011619,000370: 07,2267 24766 STOVL CDUSPOT
011620,000371: 07,2270 00023 18D # LOAD X-PLANE VECTOR IN NB
011621,000372: 07,2271 77624 CALL
011622,000373: 07,2272 47671 TRG*NBSM # CONVERT IT TO STABLE-MEMBER
011623,000374: 07,2273 53435 VXV UNIT # UNIT(XPSM * YPSM)
011624,000375: 07,2274 77626 STADR
011625,000376: 07,2275 77746 STORE 24D
011626,000377:
011627,000378: 07,2276 63335 AVEIT SLOAD PDVL # N(NUMBER OF VECS) IN 0-1
011628,000379: 07,2277 03553 MKDEX
011629,000380: 07,2300 00031 24D # LOAD CURRENT VECTOR
011630,000381: 07,2301 70322 VSR3 V/SC
011631,000382: 07,2302 00001 0
011632,000383: 07,2303 14031 STODL 24D # VEC/N
011633,000384: 07,2304 00001 0
011634,000385: 07,2305 56225 DSU DDV
011635,000386: 07,2306 16615 DP1/8 # (N-1)/N
011636,000387: 07,2307 53361 VXSC VAD
011637,000388: 07,2310 02715 STARAD +6 # ADD VEC TO PREVIOUSLY AVERAGED VECTOR
011638,000389: 07,2311 00031 24D # (N-1)/N AVESTVEC + VEC/N
011639,000390: 07,2312 02715 STORE STARAD +6 # AVERAGE STAR VECTOR
011640,000391: 07,2313 02767 STORE STARSAV2
011641,000392: 07,2314 77776 EXIT
011642,000393: 07,2315 11550 CCS MARKCNTR # SEE IF ANOTHER MARK PAIR IN MKVAC
011643,000394: 07,2316 12240 TCF AVESTAR -1 # THERE IS-GO GET IT-DECREMENT COUNTER
011644,000395: 07,2317 34756 ENDMARKS CAF FIVE # NO MORE MARKS-TERMINATE AOTMARK
011645,000396: 07,2320 00004 INHINT
011646,000397: 07,2321 05214 TC WAITLIST
011647,000398: 07,2322 E7,1551 EBANK= XYMARK
011648,000399: 07,2322 02047 16067 2CADR MKRELEAS
011649,000400:
011650,000401:
011651,000402: 07,2324 05503 TC ENDMARK
011652,000403:
011653,000404: 07,2325 05600 MKALARM TC ALARM # NOT A PAIR TO PROCESS-DO GETMKS
011654,000405: 07,2326 00111 OCT 111
011655,000406: 07,2327 12202 TCF GETMKS
011656,000407:
011657,000408: 07,2330 00307 V01N71 VN 171
011658,000409: 07,2331 01527 V06N87* VN 687
011659,000410:
|
|
Page 261 |
011661,000412: # MARKRUPT IS ENTERED FROM INTERUPT LEAD-INS AND PROCESSES CHANNEL 16
011662,000413: # CAUSED BY X,Y MARK OR MARK REJECT OR BY THE RATE OF DESCENT SWITCH
011663,000414:
011664,000415: 07,2332 54016 MARKRUPT TS BANKRUPT
011665,000416: 07,2333 30033 CA CDUY # STORE CDUS AND TIME NOW-THEN SEE IF
011666,000417: 07,2334 54063 TS ITEMP3 # WE NEED THEM
011667,000418: 07,2335 30034 CA CDUZ
011668,000419: 07,2336 54064 TS ITEMP4
011669,000420: 07,2337 30032 CA CDUX
011670,000421: 07,2340 54065 TS ITEMP5
011671,000422: 07,2341 00006 EXTEND
011672,000423: 07,2342 30025 DCA TIME2
011673,000424: 07,2343 52062 DXCH ITEMP1
011674,000425: 07,2344 56002 XCH Q
011675,000426: 07,2345 54012 TS QRUPT
011676,000427:
011677,000428: 07,2346 34776 CAF OCT140 # SEE IF ROD INPUT HAS BEEN MADE
011678,000429: 07,2347 00006 EXTEND
011679,000430: 07,2350 02016 RAND NAVKEYIN
011680,000431: 07,2351 00006 EXTEND
011681,000432: 07,2352 62355 BZMF MARKEY? # NO, MUST BE A MARKRUPT
011682,000433:
011683,000434: 07,2353 04635 TC POSTJUMP # DESCENT BITS
011684,000435: 07,2354 46501 CADR DESCBITS # DOESN'NT COME BACK
011685,000436:
011686,000437: 07,2355 34740 MARKEY? CAF BIT12 # ARE WE ASKING FOR MARK?
011687,000438: 07,2356 71307 MASK MARKSTAT
011688,000439: 07,2357 10000 CCS A
011689,000440: 07,2360 05301 TC RESUME # DONT WANT MARK OR MKREJECT-DO NOTHING
011690,000441:
011691,000442: 07,2361 11307 CCS MARKSTAT # ARE MARKS BEING ACCEPTED
011692,000443: 07,2362 12366 TCF FINDKEY # THEY ARE-WHICH ONE IS IT
011693,000444: 07,2363 05600 TC ALARM # MARKS NOT BEING ACCEPTED-DO ALARM
011694,000445: 07,2364 00112 OCT 112
011695,000446: 07,2365 05301 TC RESUME
011696,000447:
011697,000448: 07,2366 34747 FINDKEY CAF BIT5 # SEE IF MARK REJECT
011698,000449: 07,2367 00006 EXTEND
011699,000450: 07,2370 02016 RAND NAVKEYIN
011700,000451: 07,2371 10000 CCS A
011701,000452: 07,2372 12453 TCF MKREJ # ITS A MARK REJECT
011702,000453:
011703,000454: 07,2373 34750 CAF BIT4 # SEE IF Y MARK
011704,000455: 07,2374 00006 EXTEND
011705,000456: 07,2375 02016 RAND NAVKEYIN
011706,000457: 07,2376 10000 CCS A
011707,000458:
011708,000459: 07,2377 12414 TCF YMKRUPT # ITS A Y MARK
011709,000460:
011710,000461: 07,2400 34751 CAF BIT3 # SEE IF X MARK
|
|
Page 262 |
011712,000463: 07,2401 00006 EXTEND
011713,000464: 07,2402 02016 RAND NAVKEYIN
011714,000465: 07,2403 10000 CCS A
011715,000466: 07,2404 12410 TCF XMKRUPT # ITS A X MARK
011716,000467:
011717,000468: 07,2405 05600 TC ALARM # NO INBITS IN CHANNEL 16
011718,000469: 07,2406 00113 OCT 113
011719,000470:
011720,000471: 07,2407 05301 TC RESUME
011721,000472:
011722,000473: 07,2410 34755 XMKRUPT CAF ZERO
011723,000474: 07,2411 54070 TS RUPTREG1 # SET X MARK STORE INDEX TO ZERO
011724,000475: 07,2412 34742 CAF BIT10
011725,000476: 07,2413 12417 TCF +4
011726,000477: 07,2414 34753 YMKRUPT CAF ONE
011727,000478: 07,2415 54070 TS RUPTREG1 # SET Y MARK STORE INDEX TO ONE
011728,000479: 07,2416 34741 CAF BIT11
011729,000480: 07,2417 55551 TS XYMARK # SET MARK IDENTIFIATION
011730,000481:
011731,000482: 07,2420 02506 TC MARKTYPE # SEE IF SURFACE MARK
011732,000483: 07,2421 12513 TCF SURFSTOR # SURFACE MARK-JUST STORE CDUS
011733,000484:
011734,000485: 07,2422 34736 CAF BIT14 # GOT A MARK-SEE IF MARK PAIR MADE
011735,000486: 07,2423 71307 MASK MARKSTAT
011736,000487: 07,2424 00006 EXTEND
011737,000488: 07,2425 12436 BZF VERIFYMK # NOT A PAIR, NORMAL PROCEDURE
011738,000489: 07,2426 41550 CS MARKCNTR # GOT A PAIR, SEE IF ANOTHER CAN BE MADE
011739,000490: 07,2427 64751 AD FOUR # IF SO, INCREMENT POINTER,CLEAR BITS10,11
011740,000491: 07,2430 00006 EXTEND
011741,000492: 07,2431 62446 BZMF 5MKALARM # HAVE FIVE MARK PAIRS-DONT ALLOW MARK
011742,000493: 07,2432 25550 INCR MARKCNTR # OK FOR ANOTHER PAIR, INCR POINTER
011743,000494: 07,2433 47723 CS PRIO23 # CLEAR BITS10,11,14 FOR NEXT PAIR
011744,000495: 07,2434 71307 MASK MARKSTAT
011745,000496: 07,2435 55307 TS MARKSTAT
011746,000497:
011747,000498: 07,2436 31551 VERIFYMK CA XYMARK
011748,000499: 07,2437 71307 MASK MARKSTAT
011749,000500: 07,2440 10000 CCS A
011750,000501: 07,2441 12443 TCF +2 # THIS MARK NOT DESIRED
011751,000502: 07,2442 12520 TCF VACSTOR # MARK DESIRED - STORE CDUS
011752,000503: 07,2443 05600 TC ALARM
011753,000504: 07,2444 00114 OCT 114
011754,000505: 07,2445 05301 TC RESUME # RESUME-DISPLAY UNCHANGED-WAIT FOR ACTION
011755,000506:
011756,000507: 07,2446 05600 5MKALARM TC ALARM # ATTEMPTING TO MAKE MORE THAN 5 MK PAIRS
011757,000508: 07,2447 00107 OCT 107
011758,000509: 07,2450 02506 TC MARKTYPE # SEE IF SURFACE MARK
011759,000510: 07,2451 12621 TCF DSPV6N79 # IT IS
011760,000511: 07,2452 05301 TC RESUME # DONT CHANGE DISPLAY-DO NOTHING
011761,000512:
|
|
Page 263 |
011763,000514: 07,2453 02506 MKREJ TC MARKTYPE # SEE IF SURFACE
011764,000515: 07,2454 12501 TCF SURFREJ # SURFACE-JUST CHECK MARK COUNTER
011765,000516:
011766,000517: 07,2455 35015 CAF PRIO3 # INFLIGHT-SEE IF MARKS MADE
011767,000518: 07,2456 71307 MASK MARKSTAT
011768,000519: 07,2457 10000 CCS A
011769,000520: 07,2460 12464 TCF REJECT # MARKS MADE-REJECT ONE
011770,000521: 07,2461 05600 REJALM TC ALARM # NO MARK TO REJECT-BAD PROCEDURE-ALARM
011771,000522: 07,2462 00115 OCT 115
011772,000523: 07,2463 05301 TC RESUME # DESIRED ACTION DISPLAYED
011773,000524:
011774,000525: 07,2464 44355 REJECT CS PRIO30 # ZERO BIT14,SHOW REJ.,SEE IF MARK SINCE
011775,000526: 07,2465 71307 MASK MARKSTAT # LAST REJECT
011776,000527: 07,2466 64737 AD BIT13
011777,000528: 07,2467 57307 XCH MARKSTAT
011778,000529: 07,2470 74737 MASK BIT13
011779,000530: 07,2471 10000 CCS A
011780,000531: 07,2472 12477 TCF REJECT2 # ANOTHER REJECT SET BIT 10+11 TO ZERO
011781,000532:
011782,000533: 07,2473 41551 CS XYMARK # MARK MADE SINCE REJECT-REJECT MARK IN 1D
011783,000534: 07,2474 71307 RENEWMK MASK MARKSTAT
011784,000535: 07,2475 55307 TS MARKSTAT
011785,000536: 07,2476 12571 TCF REMARK # GO REQUEST NEW MARK ACTION
011786,000537:
011787,000538: 07,2477 45015 REJECT2 CS PRIO3 # ON SECOND REJECT-DISPLAY VB53 AGAIN
011788,000539: 07,2500 12474 TCF RENEWMK
011789,000540:
011790,000541: 07,2501 11550 SURFREJ CCS MARKCNTR # IF MARK DECREMENT COUNTER
011791,000542: 07,2502 12504 TCF +2
011792,000543: 07,2503 12461 TCF REJALM # NO MARKS TO REJECT-ALARM
011793,000544: 07,2504 55550 TS MARKCNTR
011794,000545: 07,2505 05301 TC RESUME
011795,000546:
|
|
Page 264 |
011797,000548:
011798,000549:
011799,000550: # MARKTYPE TESTS TO SEE IF LEM ON LUNAR SURFACE. IF IT IS RETURN TO LOC+1
011800,000551:
011801,000552: 07,2506 40104 MARKTYPE CS FLAGWRD8 # SURFFLAG*******TEMPORARY*****
011802,000553: 07,2507 74744 MASK BIT8
011803,000554: 07,2510 10000 CCS A
011804,000555: 07,2511 24002 INCR Q # IF SURFACE MARK REUTNR TO LOC +1
011805,000556: 07,2512 00002 TC Q # IF INFLIGHT MARK RETURN TO LOC +2
011806,000557:
011807,000558: 07,2513 34755 SURFSTOR CAF ZERO # FOR SURFACE MARK ZERO MARK KIND INDEX
011808,000559: 07,2514 54070 TS RUPTREG1
011809,000560:
011810,000561: 07,2515 41307 CS MARKSTAT # SET BITS10,11 TO SHOW SURFACE MARK
011811,000562: 07,2516 75015 MASK PRIO3 # FOR MARKCHEX
011812,000563: 07,2517 27307 ADS MARKSTAT
011813,000564:
011814,000565: 07,2520 35004 VACSTOR CAF LOW9
011815,000566: 07,2521 71307 MASK MARKSTAT # STORE MARK VAC ADR IN RUPTREG2
011816,000567: 07,2522 54071 TS RUPTREG2
011817,000568: 07,2523 00006 EXTEND
011818,000569: 07,2524 30062 DCA ITEMP1 # PICK UP MARKTIME
011819,000570: 07,2525 53562 DXCH TSIGHT # STORE LAST MARK TIME
011820,000571: 07,2526 31550 CA MARKCNTR # 6 X MARKCNTR FOR STORE INDEX
011821,000572: 07,2527 00006 EXTEND
011822,000573: 07,2530 76254 MP SIX
011823,000574: 07,2531 56001 XCH L # GET INDEX FROM LOW ORDER PART
011824,000575: 07,2532 60071 AD RUPTREG2 # SET CDU STORE INDEX TO MARKVAC
011825,000576: 07,2533 26070 ADS RUPTREG1 # INCREMENT VAC PICKUP BY MARK FOR FLIGHT
011826,000577: 07,2534 55552 TS MKDEX # STORE HERE IN CASE OF SURFACE MARK
011827,000578: 07,2535 30063 CA ITEMP3
011828,000579: 07,2536 50070 INDEX RUPTREG1
011829,000580: 07,2537 54000 TS 0 # STORE CDUY
011830,000581: 07,2540 30064 CA ITEMP4
011831,000582: 07,2541 50070 INDEX RUPTREG1
011832,000583: 07,2542 54002 TS 2 # STORE CDUZ
011833,000584: 07,2543 30065 CA ITEMP5
011834,000585: 07,2544 50070 INDEX RUPTREG1
011835,000586: 07,2545 54004 TS 4 # STORE CDUX
011836,000587: 07,2546 02506 TC MARKTYPE # IF SURFACE MARK-JUST DO SURFJOB
011837,000588: 07,2547 12576 TCF SURFJOB
011838,000589:
011839,000590: 07,2550 34737 CAF BIT13 # CLEAR BIT13 TO SHOW MARK MADE
011840,000591: 07,2551 61551 AD XYMARK # SET MARK ID IN MARKSTAT
011841,000592: 07,2552 40000 COM
011842,000593: 07,2553 71307 MASK MARKSTAT
011843,000594: 07,2554 61551 AD XYMARK
011844,000595: 07,2555 55307 TS MARKSTAT
011845,000596: 07,2556 75015 MASK PRIO3 # SEE IF X, Y MARK MADE
011846,000597: 07,2557 54001 TS L
011847,000598:
|
|
Page 265 |
011849,000600: 07,2560 35015 CA PRIO3
011850,000601: 07,2561 00006 EXTEND
011851,000602: 07,2562 06001 RXOR LCHAN
011852,000603: 07,2563 10000 CCS A
011853,000604: 07,2564 12571 TCF REMARK # NOT PAIR YET, DISPLAY MARK ACTION
011854,000605: 07,2565 41307 CS MARKSTAT # MARK PAIR COMPLETE-SET BIT14
011855,000606: 07,2566 74736 MASK BIT14
011856,000607: 07,2567 27307 ADS MARKSTAT
011857,000608: 07,2570 12571 TCF REMARK # GO DISPLAY V54
011858,000609:
|
|
Page 266 |
011860,000611: 07,2571 35015 REMARK CAF PRIO3 # BITS 10 AND 11
011861,000612: 07,2572 71307 MASK MARKSTAT
011862,000613: 07,2573 00006 EXTEND
011863,000614: 07,2574 74746 MP BIT6 # SHIFT MARK IDS TO BE 0 TO 3 FOR INDEX
011864,000615: 07,2575 55552 TS MKDEX # STORE VERB INDEX
011865,000616: 07,2576 35025 SURFJOB CAF PRIO15
011866,000617: 07,2577 05072 TC NOVAC # ENTER JOB TO CHANGE DISPLAY TO
011867,000618: 07,2600 E7,1551 EBANK= XYMARK # REQUEST NEXT ACTION
011868,000619: 07,2600 02603 16067 2CADR CHANGEVB
011869,000620:
011870,000621:
011871,000622: 07,2602 05301 TC RESUME
011872,000623:
011873,000624: 07,2603 02506 CHANGEVB TC MARKTYPE
011874,000625: 07,2604 12621 TCF DSPV6N79 # SURFACE-DISPLAY V 06 N 79
011875,000626: 07,2605 51552 INDEX MKDEX # INFLIGHT-PICK UP MARK VB INDEX
011876,000627: 07,2606 32610 CAF MKVB54
011877,000628: 07,2607 02211 TC PASTIT # PASTE UP NEXT MK VERB DISPLAY
011878,000629:
011879,000630: # THE FOUR MKVBS ARE INDEXED-THEIR ORDER CANNOT BE CHANGED
011880,000631:
011881,000632: 07,2610 15507 MKVB54 VN 5471 # MAKE X OR Y MARK
011882,000633: 07,2611 15307 MKVB53 VN 5371 # MAKE Y MARK
011883,000634: 07,2612 15107 MKVB52 VN 5271 # MAKE X MARK
011884,000635: 07,2613 15507 MKVB54* VN 5471 # MAKE X OR Y MARK
011885,000636: 07,2614 04000 00000 DP1/8 2DEC .125
011886,000637:
011887,000638: 07,2616 00034 OCT34 OCT 34
011888,000639: 07,2617 01507 V06N71 VN 671
011889,000640: 07,2620 01517 V06N79* VN 679
011890,000641:
|
|
Page 267 |
011892,000643: # ROUTINE TO REQUEST CURSOR AND SPIRAL MEASUREMENTS
011893,000644: 07,2621 COUNT* $$/R59
011894,000645:
011895,000646: 07,2621 32620 DSPV6N79 CAF V06N79* # CURSOR-SPIRAL DISPLAY
011896,000647: 07,2622 04616 TC BANKCALL
011897,000648: 07,2623 20334 CADR GOMARKF
011898,000649:
011899,000650: 07,2624 12060 TCF KILLAOT # V34-DOES GOTOPOOH
011900,000651: 07,2625 12633 TCF SURFEND # V33-PROCEED, END MARKING
011901,000652: 07,2626 34746 CAF BIT6 # IF V32(OCT40) IN MPAC DO RECYCLE
011902,000653: 07,2627 70154 MASK MPAC # OTHERWISE IT IS LOAD VB ENTER SO
011903,000654: 07,2630 10000 CCS A # RE-DISPLAY V06N79
011904,000655: 07,2631 12637 TCF SURFAGAN # VB32-RECYCLE
011905,000656: 07,2632 12621 TCF DSPV6N79 # ENTER
011906,000657:
011907,000658: 07,2633 44736 SURFEND CS BIT14 # SET BIT14 TO SHOW MARK END
011908,000659: 07,2634 71307 MASK MARKSTAT
011909,000660: 07,2635 64736 AD BIT14
011910,000661: 07,2636 55307 TS MARKSTAT
011911,000662:
011912,000663: 07,2637 31235 SURFAGAN CA CURSOR
011913,000664: 07,2640 51552 INDEX MKDEX # HOLDS VAC AREA POINTER FOR SURF MARKING
011914,000665: 07,2641 54001 TS 1 # STORE CURSOR SP 2COMP
011915,000666: 07,2642 31236 CA SPIRAL
011916,000667: 07,2643 51552 INDEX MKDEX
011917,000668: 07,2644 54003 TS 3 # STORE SPIRAL
011918,000669:
011919,000670: 07,2645 41307 CS MARKSTAT # IF BIT 14 SET-END MARKING
011920,000671: 07,2646 74736 MASK BIT14
011921,000672: 07,2647 00006 EXTEND
011922,000673: 07,2650 12216 BZF MARKCHEX
011923,000674: 07,2651 31550 CA MARKCNTR # THIS IS RECYCLE-SEE IF 5 MARKS ALREADY
011924,000675: 07,2652 64753 AD ONE
011925,000676: 07,2653 40000 COM
011926,000677: 07,2654 64756 AD FIVE
011927,000678: 07,2655 00006 EXTEND
011928,000679: 07,2656 62446 BZMF 5MKALARM # CANT RECYCLE-TO MANY MARKS-ALARM
011929,000680: 07,2657 25550 INCR MARKCNTR # OF FOR RECYCLE-INCR COUNTER
011930,000681: 07,2660 12205 TCF GETMKS +3 # GO DISPLAY MARK VB
011931,000682:
End of include-file AOTMARK.agc. Parent file is MAIN.agc