GAP: ASSEMBLE REVISION 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051 10:28 APR. 1,1969Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files were from the printout at the MIT Museum, with many thanks
to Deborah Douglas, the Museum's Curator of Science and Technology, for releasing
it to us. The printout was digitally photographed by Paul Fjeld. A team of
volunteers transcribed the source code manually from these images or, where
appropriate, modified already-transcribed but similar source Colossus 249 (Apollo 9)
source code to agree with the images from the printout. Note that the page images
presented online are of reduced quality, and that higher-quality images
are available. Report any conversion errors or legibility
problems in page images to info@sandroid.org.
Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051 10:28 APR. 1,1969Note that the date is the date of the printout, not the date of the program revision. |
009532,000002: ## Copyright: Public domain.
009533,000003: ## Filename: SXTMARK.agc
009534,000004: ## Purpose: Part of the source code for Comanche, build 055. It
009535,000005: ## is part of the source code for the Command Module's
009536,000006: ## (CM) Apollo Guidance Computer (AGC), Apollo 11.
009537,000007: ## Assembler: yaYUL
009538,000008: ## Reference: pp. 222-235
009539,000009: ## Contact: Ron Burkey <info@sandroid.org>,
009540,000010: ## Fabrizio Bernardini <fabrizio@spacecraft.it>
009541,000011: ## Website: http://www.ibiblio.org/apollo.
009542,000012: ## Mod history: 16/05/09 FB Transcription Batch 2 Assignment.
009543,000013: ## 2010-08-28 JL Fixed indentation.
009544,000014: ## 2016-12-10 RSB Proofed comments with octopus/ProoferComments
009545,000015: ## and fixed the errors found.
009546,000016: ## 2017-01-18 RSB Fixed comment-text errors noted while diff'ing
009547,000017: ## vs Colossus 249.
009548,000018: ## 2021-05-30 ABS 20/SXTMK -> 10/SXTMK
009549,000019: ##
009550,000020: ## The contents of the "Comanche055" files, in general, are transcribed
009551,000021: ## from scanned documents.
009552,000022: ##
009553,000023: ## Assemble revision 055 of AGC program Comanche by NASA
009554,000024: ## 2021113-051. April 1, 1969.
009555,000025: ##
009556,000026: ## This AGC program shall also be referred to as Colossus 2A
009557,000027: ##
009558,000028: ## Prepared by
009559,000029: ## Massachusetts Institute of Technology
009560,000030: ## 75 Cambridge Parkway
009561,000031: ## Cambridge, Massachusetts
009562,000032: ##
009563,000033: ## under NASA contract NAS 9-4065.
009564,000034: ##
009565,000035: ## Refer directly to the online document mentioned above for further
009566,000036: ## information. Please report any errors to info@sandroid.org.
009567,000037:
|
|
Page 222 |
009569,000039: # PROGRAM NAME - SXTMARK DATE - 5 APRIL 1967
009570,000040: # PROGRAM MODIFIED BY 258/278 PROGRAMMERS LOG SECTION SXTMARK
009571,000041: # MOD BY - R. MELANSON TO ADD DOCUMENTATION ASSEMBLY SUNDISK REV. 116
009572,000042: #
009573,000043: # FUNCTIONAL DESCRIPTION-
009574,000044:
009575,000045: # SXTMARK IS CALLED FROM INTERNAL ROUTINES WHICH MAY REQUIRE STAR OR LANDMARK MARKINGS BY THE ASTRONAUT. IF
009576,000046: # THE MARK SYSTEM IS NOT IN USE, SXTMARK RESERVES A VAC AREA FOR MARKING AND REQUESTS EXECUTION OF THE MKVB51
009577,000047: # ROUTINE VIA THE EXECUTIVE JOB PRIORITY LIST. R21 USES THIS ROUTINE TO DETERMINE IF THE MARK SYSTEM CAN BE
009578,000048: # USED. IF YES, SXTMARK RETURNS TO R21 TO PERFORM ITS OWN MARK REQUESTS VIA THE V51 FLASH.
009579,000049:
009580,000050: # CALLING SEQUENCE-
009581,000051:
009582,000052: # CAF (NO. MARK REQUESTS IN BITS 1-3 OF A)
009583,000053: # TC BANKCALL
009584,000054: # CADR SXTMARK
009585,000055:
009586,000056: # NORMAL EXIT MODE-
009587,000057:
009588,000058: # SWRETURN
009589,000059:
009590,000060: # ALARM OR ABORT EXIT MODE-
009591,000061:
009592,000062: # ABORT
009593,000063:
009594,000064: # OUTPUT-
009595,000065:
009596,000066: # 1) MARKSTAT CONTAINS MARK VALUE (BITS 14-12) AND VAC AREA ADDRESS
009597,000067: # 2) QPRET = VAC AREA POINTER VALUE
009598,000068: # 3) 1ST WORD OF RESERVED VAC AREA SET TO +0
009599,000069: # 4) PRIO32 PLACED IN A REGISTER
009600,000070:
009601,000071: # ERASABLE INITIALIZATION-
009602,000072:
009603,000073: # 1) BITS 1-3 OF A = NO. MARKS REQUESTED
009604,000074: # 2) BITS 2,3 OF EXTVBACT = 0
009605,000075: # 3) A VAC AREA MUST BE AVAILABLE (WORD 1 = ADDRESS OF VAC AREA)
009606,000076:
009607,000077: # DEBRIS-
009608,000078:
009609,000079: # A,Q,L,RUPTREG1,MARKSTAT,QPRET,BIT2 OF EXTVBACT
009610,000080:
009611,000081: 13,2036 BANK 13
009612,000082: 07,2000 SETLOC SXTMARKE
009613,000083: 07,2000 BANK
009614,000084:
009615,000085: 07,2002 E7,1725 EBANK= MRKBUF1
009616,000086: 07,2002 COUNT 07/SXTMK
009617,000087:
009618,000088: 07,2002 00004 SXTMARK INHINT
009619,000089: 07,2003 54070 TS RUPTREG1 # NUMBER OF MARKS WANTED
009620,000090:
009621,000091: 07,2004 36211 CAF SIX # BIT2 = MARKING SYSTEM IN USE
009622,000092: 07,2005 71044 MASK EXTVBACT # BIT3 = EXTENDED VERB IN PROGRESS
009623,000093: 07,2006 10000 CCS A
009624,000094: 07,2007 02013 TC MKABORT # SET THEREFORE ABORT
|
|
Page 223 |
009626,000096: 07,2010 35016 CAF BIT2 # NOT SET
009627,000097: 07,2011 27044 ADS EXTVBACT # SET IT, RESET IN ENDMARK
009628,000098: 07,2012 02015 TC MARKOK # YES, FIND VAC AREA
009629,000099:
009630,000100: 07,2013 07755 MKABORT TC BAILOUT
009631,000101: 07,2014 01211 OCT 01211
009632,000102: 07,2015 10400 MARKOK CCS VAC1USE # FIND VAC AREA
009633,000103: 07,2016 02031 TC MKVACFND
009634,000104: 07,2017 10454 CCS VAC2USE
009635,000105: 07,2020 02031 TC MKVACFND
009636,000106: 07,2021 10530 CCS VAC3USE
009637,000107: 07,2022 02031 TC MKVACFND
009638,000108: 07,2023 10604 CCS VAC4USE
009639,000109: 07,2024 02031 TC MKVACFND
009640,000110: 07,2025 10660 CCS VAC5USE
009641,000111: 07,2026 02031 TC MKVACFND
009642,000112: 07,2027 07755 TC BAILOUT
009643,000113: 07,2030 01207 OCT 01207
009644,000114:
009645,000115: 07,2031 65016 MKVACFND AD TWO # ADDRESS OF VAC AREA
009646,000116: 07,2032 55330 TS MARKSTAT
009647,000117: 07,2033 50000 INDEX A
009648,000118: 07,2034 54052 TS QPRET # STORE NEXT AVAILABLE MARK SLOT
009649,000119:
009650,000120: 07,2035 35021 CAF ZERO # SHOW VAC AREA OCCUPIED
009651,000121: 07,2036 51330 INDEX MARKSTAT
009652,000122: 07,2037 53777 TS 0 -1
009653,000123:
009654,000124: 07,2040 05364 TC CHECKMM # BACKUP MARK ROUTINE USES SXTMARK
009655,000125: 07,2041 00065 MM 53 B-14
009656,000126: 07,2042 12044 TCF +2
009657,000127: 07,2043 14675 TCF SWRETURN
009658,000128: 07,2044 05364 TC CHECKMM
009659,000129: 07,2045 00066 MM 54 B-14
009660,000130: 07,2046 12050 TCF +2
009661,000131: 07,2047 14675 TCF SWRETURN
009662,000132: 07,2050 35004 CAF BIT12 # DESIRED NUMBER OF MARKS IN 12-14
009663,000133: 07,2051 00006 EXTEND
009664,000134: 07,2052 70070 MP RUPTREG1
009665,000135: 07,2053 56001 XCH L
009666,000136: 07,2054 27330 ADS MARKSTAT
009667,000137:
009668,000138: 07,2055 37667 CAF PRIO32 # ENTER MARK JOB
009669,000139: 07,2056 05134 TC NOVAC
009670,000140: 07,2057 1330 EBANK= MARKSTAT
009671,000141: 07,2057 02347 16062 2CADR MKVB51
009672,000142:
009673,000143: 07,2061 00003 RELINT
009674,000144: 07,2062 14675 TCF SWRETURN # SAME AS MODEEXIT
009675,000145:
|
|
Page 224 |
009677,000147: # PROGRAM NAME - MKRELEAS DATE - 5 APRIL 1967
009678,000148: # PROGRAM MODIFIED BY 258/278 PROGRAMMERS LOG SECTION SXTMARK
009679,000149: # MOD BY - R. MELANSON TO ADD DOCUMENTATION ASSEMBLY SUNDISK REV. 116
009680,000150:
009681,000151: # FUNCTIONAL DESCRIPTION-
009682,000152:
009683,000153: # MKRELEAS IS EXECUTED BY INTERNAL ROUTINES TO RELEASE THE MARK SYSTEM TO MAKE IT AVAILABLE TO OTHER INTERNAL
009684,000154: # SYSTEM ROUTINES. IT ALSO CLEARS THE COARSE OPTICS FLAG BIT AND DISABLES THE OPTICS ERROR COUNTER.
009685,000155:
009686,000156: # CALLING SEQUENCE-
009687,000157:
009688,000158: # TC BANKCALL
009689,000159: # CADR MKRELEAS
009690,000160:
009691,000161: # NORMAL EXIT MODE-
009692,000162:
009693,000163: # SWRETURN
009694,000164:
009695,000165: # ALARM OR ABORT EXIT MODE- NONE
009696,000166:
009697,000167: # OUTPUT-
009698,000168:
009699,000169: # 1) BIT9 OPTMODES SET TO 0
009700,000170: # 2) OPTIND SET TO -1
009701,000171: # 3) 1ST WORD OF VAC AREA SET TO VAC ADDRESS TO SIGNIFY AVAILABILITY.
009702,000172: # 4) MARKSTAT CLEARED
009703,000173: # 5) BIT2 CHANNEL 12 SET TO 0
009704,000174:
009705,000175: # ERASABLE INITIALIZATION- NONE
009706,000176:
009707,000177: # DEBRIS-
009708,000178:
009709,000179: # A,MARKSTAT,BIT9 OPTMODES,OPTIND,BIT2 CHANNEL 12
009710,000180:
009711,000181: 07,2063 35021 MKRELEAS CAF ZERO # SHOW MARK SYSTEM NOW AVAILABLE
009712,000182: 07,2064 57330 XCH MARKSTAT
009713,000183: 07,2065 75046 MASK LOW9
009714,000184: 07,2066 10000 CCS A
009715,000185: 07,2067 50000 INDEX A
009716,000186: 07,2070 54000 TS 0
009717,000187: 07,2071 00004 MKRLEES INHINT
009718,000188: 07,2072 45007 CS BIT9 # COARSE OPTICS RETURN FLAG.
009719,000189: 07,2073 71331 MASK OPTMODES
009720,000190: 07,2074 55331 TS OPTMODES
009721,000191:
009722,000192: 07,2075 37716 CA NEGONE
009723,000193: 07,2076 55303 TS OPTIND # KILL COARS OPTICS
009724,000194:
009725,000195: 07,2077 45016 CS BIT2 # DISABLE OPTICS ERROR COUNTER
009726,000196: 07,2100 00006 EXTEND
009727,000197: 07,2101 03012 WAND CHAN12
009728,000198:
009729,000199: 07,2102 00003 RELINT
009730,000200: 07,2103 04675 TC SWRETURN
|
|
Page 225 |
009732,000202: # PROGRAM NAME - MARKRUPT DATE - 5 APRIL 1967
009733,000203: # PROGRAM MODIFIED BY 258/278 PROGRAMMERS LOG SECTION SXTMARK
009734,000204: # MOD BY - R. MELANSON TO ADD DOCUMENTATION ASSEMBLY SUNDISK REV. 116
009735,000205:
009736,000206: # FUNCTIONAL DESCRIPTION-
009737,000207: # MARKRUPT STORES CDUS,OPTICS AND TIME AND TRANSFERS CONTROL TO THE MARKIT,MARK REJECT OR KEYCOM ROUTINES IF
009738,000208: # BITS IN CHANNEL 16 ARE SET AS REQUIRED.
009739,000209:
009740,000210: # CALLING SEQUENCE-
009741,000211: # ROUTINE ENTERED VIA KEYRUPT2 WHEN MARK,MARK REJECT OR DSKY KEYS DEPRESSED BY THE OPERATOR.
009742,000212:
009743,000213: # NORMAL EXIT MODE-
009744,000214: # MARKIT, MKREJECT OR POSTJUMP ROUTINES (MARK, MARK REJECT OR DSKY CODE)
009745,000215:
009746,000216: # ALARM OR ABORT EXIT MODE-
009747,000217: # ALARM AND RESUME
009748,000218:
009749,000219: # OUTPUT-
009750,000220: # RUPTSTOR+5 = CDUT, RUPTSTOR+3 = CDUS, RUPTSTOR+2 = CDUY,
009751,000221: # RUPTREG3 = CDUZ, RUPTSTOR+6 = CDUX, RUPTSTOR+1 AND SAMPTIME+1 = TIME1,
009752,000222: # RUPTSTOR AND SAMPTIME = TIME2
009753,000223:
009754,000224: # ERASABLE INITIALIZATION-
009755,000225: # CDUT,CDUS,CDUY,CDUZ,CDUX,TIME2,TIME1,CHANNEL 16 BITS 6,7 OR 1-5
009756,000226:
009757,000227: # DEBRIS-
009758,000228: # A,QRUPT,RUPTREG3,SAMPTIME,SAMPTIME+1,RUPTSTOR TO RUPTSTOR+6 EXCEPT RUPTSTOR+4 (LOCATION 67)
009759,000229:
009760,000230: 07,2104 54016 MARKRUPT TS BANKRUPT # STORE CDUS AND OPTICS NOW
009761,000231: 07,2105 30035 CA CDUT
009762,000232: 07,2106 54362 TS MKCDUT
009763,000233: 07,2107 30036 CA CDUS
009764,000234: 07,2110 54360 TS MKCDUS
009765,000235: 07,2111 30033 CA CDUY
009766,000236: 07,2112 54357 TS MKCDUY
009767,000237: 07,2113 30034 CA CDUZ
009768,000238: 07,2114 54361 TS MKCDUZ
009769,000239: 07,2115 30032 CA CDUX
009770,000240: 07,2116 54363 TS MKCDUX
009771,000241: 07,2117 00006 EXTEND
009772,000242: 07,2120 30025 DCA TIME2 # GET TIME
009773,000243: 07,2121 52356 DXCH MKT2T1
009774,000244: 07,2122 00006 EXTEND
009775,000245: 07,2123 30356 DCA MKT2T1
009776,000246: 07,2124 52014 DXCH SAMPTIME # RUPT TIME FOR NOUN 65.
009777,000247:
009778,000248: 07,2125 56002 XCH Q
009779,000249: 07,2126 54012 TS QRUPT
009780,000250:
009781,000251: 07,2127 35012 CAF BIT6 # SEE IF MARK OR MKREJECT
|
|
Page 226 |
009783,000253: 07,2130 00006 EXTEND
009784,000254: 07,2131 02016 RAND NAVKEYIN
009785,000255: 07,2132 10000 CCS A
009786,000256: 07,2133 02430 TC MARKIT # ITS A MARK
009787,000257:
009788,000258: 07,2134 35011 CAF BIT7 # NOT A MARK, SEE IF MKREJECT
009789,000259: 07,2135 00006 EXTEND
009790,000260: 07,2136 02016 RAND NAVKEYIN
009791,000261: 07,2137 10000 CCS A
009792,000262: 07,2140 02301 TC MKREJECT # ITS A MARK REJECT
009793,000263:
009794,000264: 07,2141 34362 KEYCALL CAF OCT37 # NOT MARK OR MKREJECT, SEE IF KEYCODE
009795,000265: 07,2142 00006 EXTEND
009796,000266: 07,2143 02016 RAND NAVKEYIN
009797,000267: 07,2144 00006 EXTEND
009798,000268: 07,2145 12150 BZF +3 # IF NO INBITS
009799,000269: 07,2146 04701 TC POSTJUMP
009800,000270: 07,2147 17702 CADR KEYCOM # IT,S A KEY CODE, NOT A MARK.
009801,000271:
009802,000272: 07,2150 05650 +3 TC ALARM # ALARM IF NO INBITS
009803,000273: 07,2151 00113 OCT 113
009804,000274: 07,2152 05333 TC RESUME
009805,000275:
|
|
Page 227 |
009807,000277: # PROGRAM NAME - MARKCONT DATE - 19 SEPT 1967
009808,000278: # PROGRAM MODIFIED BY 258/278 PROGRAMMERS LOG SECTION SXTMARK
009809,000279: # MOD BY - R. MELANSON TO ADD DOCUMENTATION ASSEMBLY SUNDISK REV. 116
009810,000280:
009811,000281: # FUNCTIONAL DESCRIPTION-
009812,000282: # MARKCONT IS USED TO PERFORM A SPECIAL MARK FUNCTION FOR R21, TO EXECUTE A SPECIAL DISPLAY OF OPTICS AND TIME OR
009813,000283: # TO PERFORM A MARK OF A STAR OR LAND SIGHTING BASED UPON FLASHING V-N.
009814,000284:
009815,000285: # CALLING SEQUENCE-
009816,000286:
009817,000287: # FROM MARKDIF
009818,000288:
009819,000289: # NORMAL EXIT MODE-
009820,000290: # TASKOVER
009821,000291:
009822,000292: # ALARM OR ABORT EXIT MODE-
009823,000293: # ALARM AND TASKOVER
009824,000294:
009825,000295: # OUTPUT-
009826,000296: # 1) FOR R21-
009827,000297: # EBANK=EBANK7
009828,000298: # MRKBUF1 TO MRKBUF1+6 = TIME2,TIME1,CDUY,OPTICX,CDUZ,OPTICSY,CDUX OF CURRENT R21 MARK FUNCTION.
009829,000299: # MRKBUF2 TO MRKBUF2+6 CONTAINS PREVIOUS R21 MARK VALUES.
009830,000300: # 2) FOR SPECIAL DISPLAY JOB-
009831,000301: # RUPTREG1 AND MRKBUF1 = CDUS,RUPTREG2 AND MRKBUF1+1 = CDUT.
009832,000302: # RUPTREG3 AND MRKBUF1+2 = TIME2,RUPTREG4 AND MRKBUF1+3 = TIME1
009833,000303: # 3) FOR NORMAL MARKING-
009834,000304: # DECREMENT BITS14-12 OF MARKSTAT BY 1,
009835,000305: # BIT10 MARKSTAT SET TO 1, INCREMENT QPRET BY 7,
009836,000306: # STORE TIME2,TIME1,CDUY,CDUS,CDUZ,CDUT AND CDUX IN VAC+1 TO VAC+7
009837,000307:
009838,000308: # ERASABLE INITIALIZATION-
009839,000309: # 1) FOR R21-
009840,000310: # BIT14 OF STATE+2 =1, MRKBUF1 TO MRKBUF1+6, ITEMP1, RUPTREG3,
009841,000311: # RUPTSTOR TO RUPTSTOR+6 EXCEPT RUPTSTOR+4
009842,000312: # 2) FOR SPECIAL DISPLAY JOB-
009843,000313: # BIT14 OF STATE+2 =0, MARKSTAT =+0, RUPTREG1,RUPTREG2,RUPTREG3
009844,000314: # RUPTREG4,RUPTSTOR,RUPTSTOR+1,RUPTSTOR+3,RUPTSTOR+5,
009845,000315: # BIT12 OF STATE+5 (V59 FLAG), MRKBUF1 THRU MRKBUF1+3
009846,000316: # 3) FOR NORMAL MARKING-
009847,000317: # BIT14 OF STATE+2 =0, MARKSTAT =VAC ADDRESS,A REG,ITEMP1,RUPTREG3,
009848,000318: # RUPTSTOR TO RUPTSTOR+6 EXCEPT RUPTSTOR+4
009849,000319:
009850,000320: # DEBRIS-
009851,000321: # 1) FOR R21-
009852,000322: # A, ITEMP1, MRKBUF1, MRKBUF2
009853,000323: # 2) FOR SPECIAL DISPLAY JOB-
009854,000324: # A,RUPTREG1,RUPTREG2,RUPTREG3,RUPTREG4,MPAC TO MPAC+3
009855,000325: # 3) FOR NORMAL MARKING-
009856,000326: # A,MARKSTAT,ITEMP1,QPRET,VAC+1 TO VAC+7 OF VAC AREA IN USE
009857,000327:
|
|
Page 228 |
009859,000329: 07,2153 35002 MARKCONT CAF BIT14
009860,000330: 07,2154 70076 MASK STATE +2 # R21 MARK (SPECIAL MARKING FOR R21)
009861,000331: 07,2155 00006 EXTEND
009862,000332: 07,2156 12170 BZF MARKET # NOT SET THEREFORE REGULAR MARKING
009863,000333: 07,2157 36211 MARKIT1 CAF SIX # SPECIAL FOR R21
009864,000334: 07,2160 05606 TC GENTRAN # TRANSFER MRKBUF1 TO MRKBUF2
009865,000335: 07,2161 01725 ADRES MRKBUF1
009866,000336: 07,2162 01734 ADRES MRKBUF2
009867,000337:
009868,000338: 07,2163 36211 CAF SIX # TRANSFER CURRENT MARK DATA TO MARKBUF1
009869,000339: 07,2164 05606 TC GENTRAN
009870,000340: 07,2165 00355 ADRES MKT2T1
009871,000341: 07,2166 01725 ADRES MRKBUF1
009872,000342:
009873,000343: 07,2167 15324 TCF TASKOVER
009874,000344:
009875,000345: 07,2170 11330 MARKET CCS MARKSTAT # SEE IF MARKS CALLED FOR
009876,000346: 07,2171 02225 TC MARK2 # COLLECT MARKS
009877,000347:
009878,000348: 07,2172 35016 CAF TWO # IS MARKING SYSTEM IN USE (BIT2)
009879,000349: 07,2173 71044 MASK EXTVBACT
009880,000350: 07,2174 00006 EXTEND
009881,000351: 07,2175 12217 BZF MARKET3 # MARKING NOT CALLED FOR
009882,000352: 07,2176 35004 CAF BIT12
009883,000353: 07,2177 70101 MASK STATE +5 # V59FLAG
009884,000354: 07,2200 00006 EXTEND
009885,000355: 07,2201 12217 BZF MARKET3 # IF V59FLAG NOT SET-MARK UNCALLED FOR
009886,000356: 07,2202 35061 CAF PRIO5 # CALIBRATION MARK (SET) FOR P23
009887,000357: 07,2203 05134 TC NOVAC # SPECIAL DISPLAY JOB
009888,000358: 07,2204 E7,1725 EBANK= MRKBUF1
009889,000359: 07,2204 02426 76067 2CADR MARKDISP
009890,000360:
009891,000361: 07,2206 36211 CAF SIX
009892,000362: 07,2207 05606 TC GENTRAN # TRANSFER MARK DATA TO MARKDOWN
009893,000363: 07,2210 00355 ADRES MKT2T1
009894,000364: 07,2211 01674 ADRES MARKDOWN
009895,000365: 07,2212 36211 CAF SIX
009896,000366: 07,2213 05606 TC GENTRAN # TRANSFER MARK DATA TO MRKBUF1 FOR
009897,000367: 07,2214 00355 ADRES MKT2T1 # SPECIAL DISPLAY OF SHAFT AND TRUNNION
009898,000368: 07,2215 01725 ADRES MRKBUF1 # IF V59 ACTING
009899,000369: 07,2216 15324 TCF TASKOVER
009900,000370: 07,2217 05650 MARKET3 TC ALARM
009901,000371: 07,2220 00122 OCT 122 # MARKING NOT CALLED FOR
009902,000372: 07,2221 15324 TCF TASKOVER
009903,000373: 07,2222 05650 114ALM TC ALARM # MARK NOT WANTED
009904,000374: 07,2223 00114 OCT 114
009905,000375: 07,2224 15324 TCF TASKOVER
009906,000376:
|
|
Page 229 |
009908,000378: # STORE MARK DATA IN MKVAC AND INCREMENT POINTER
009909,000379:
009910,000380: 07,2225 67711 MARK2 AD 74K # SEE IF MARKS WANTED-REDUCE MARKS WANTED
009911,000381: 07,2226 00006 EXTEND
009912,000382: 07,2227 62222 BZMF 114ALM # MARK NOT WANTED-ALARM
009913,000383: 07,2230 55330 TS MARKSTAT
009914,000384: 07,2231 40000 COM
009915,000385: 07,2232 75006 MASK BIT10 # SET BIT10 TO ENABLE REJECT
009916,000386: 07,2233 27330 ADS MARKSTAT
009917,000387:
009918,000388: 07,2234 75046 MASK LOW9
009919,000389: 07,2235 54061 TS ITEMP1
009920,000390: 07,2236 50000 INDEX A
009921,000391: 07,2237 56052 XCH QPRET # PICK UP MARK SLOT-POINTER
009922,000392: 07,2240 54062 TS ITEMP2 # SAVE CURRENT POINTER
009923,000393: 07,2241 65023 AD SEVEN # INCREMENT POINTER
009924,000394: 07,2242 50061 INDEX ITEMP1
009925,000395: 07,2243 54052 TS QPRET # STORE ADVANCED POINTER
009926,000396:
009927,000397: 07,2244 00006 VACSTOR EXTEND
009928,000398: 07,2245 30356 DCA MKT2T1
009929,000399: 07,2246 50062 INDEX ITEMP2
009930,000400: 07,2247 52001 DXCH 0
009931,000401: 07,2250 30357 CA MKCDUY
009932,000402: 07,2251 50062 INDEX ITEMP2
009933,000403: 07,2252 54002 TS 2
009934,000404: 07,2253 30360 CA MKCDUS
009935,000405: 07,2254 50062 INDEX ITEMP2
009936,000406: 07,2255 54003 TS 3
009937,000407: 07,2256 30361 CA MKCDUZ
009938,000408: 07,2257 50062 INDEX ITEMP2
009939,000409: 07,2260 54004 TS 4
009940,000410: 07,2261 30362 CA MKCDUT
009941,000411: 07,2262 50062 INDEX ITEMP2
009942,000412: 07,2263 54005 TS 5
009943,000413: 07,2264 30363 CA MKCDUX
009944,000414: 07,2265 50062 INDEX ITEMP2
009945,000415: 07,2266 54006 TS 6
009946,000416:
009947,000417: 07,2267 37671 CAF PRIO34 # IF ALL MARKS MADE FLASH VB50
009948,000418: 07,2270 71330 MASK MARKSTAT
009949,000419: 07,2271 00006 EXTEND
009950,000420: 07,2272 12274 BZF +2
009951,000421: 07,2273 15324 TCF TASKOVER
009952,000422: 07,2274 37667 CAF PRIO32
009953,000423: 07,2275 05134 TC NOVAC
009954,000424: 07,2276 1330 EBANK= MARKSTAT
009955,000425: 07,2276 02422 16062 2CADR MKVB50
009956,000426:
009957,000427: 07,2300 15324 TCF TASKOVER
009958,000428:
|
|
Page 230 |
009960,000430: # PROGRAM NAME - MKREJECT DATE - 5 APRIL 1967
009961,000431: # PROGRAM MODIFIED BY 258/278 PROGRAMMERS LOG SECTION SXTMARK
009962,000432: # MOD BY - R. MELANSON TO ADD DOCUMENTATION ASSEMBLY SUNDISK REV. 116
009963,000433:
009964,000434: # FUNCTIONAL DESCRIPTION-
009965,000435: # ROUTINE ALLOWS OPERATOR TO REJECT MARK MADE PRIOR TO ACCEPTANCE AND ALLOWS A NEW MARK TO BE MADE BY ASTRONAUT
009966,000436:
009967,000437: # CALLING SEQUENCE-
009968,000438: # FROM MARKRUPT IF BIT7 OF CHANNEL 16 IS 1.
009969,000439:
009970,000440: # NORMAL EXIT MODE-
009971,000441: # RESUME
009972,000442:
009973,000443: # ALARM OR ABORT EXIT MODE-
009974,000444: # ALARM AND RESUME
009975,000445:
009976,000446: # OUTPUT-
009977,000447: # 1) FOR R21-
009978,000448: # MRKBUF1 SET TO -1
009979,000449: # 2) FOR NORMAL MARKING-
009980,000450: # BIT10 MARKSTAT =0, INCREMENT NO. MARKS BY 1, DECREMENT QPRET BY 7
009981,000451:
009982,000452: # ERASABLE INITIALIZATION-
009983,000453: # 1) FOR R21-
009984,000454: # BIT14 OF STATE+2 SET TO 1
009985,000455: # 2) FOR NORMAL MARKING-
009986,000456: # BIT14 OF STATE+2 SET TO 0, MARKSTAT,QPRET
009987,000457:
009988,000458: # DEBRIS-
009989,000459: # 1) FOR R21-
009990,000460: # A,MARKSTAT,EBANK
009991,000461: # 2) FOR NORMAL MARKING-
009992,000462: # A,MARKSTAT,ITEMP1,QPRET
009993,000463:
009994,000464: 07,2301 35002 MKREJECT CAF BIT14
009995,000465: 07,2302 70076 MASK STATE +2 # R21 MARK (SPECIAL MARKING FOR R21)
009996,000466: 07,2303 00006 EXTEND
009997,000467: 07,2304 12310 BZF MRKREJCT # NOT SET THEREFORE REGULAR REJECT
009998,000468: 07,2305 37716 CA NEGONE # -1 (FOR R22)
009999,000469: 07,2306 55725 TS MRKBUF1 # -0 IN TIME IS FLAG TO R22 SIGNIFYING A
010000,000470: 07,2307 05333 TC RESUME # REJECTED MARK
010001,000471: 07,2310 11330 MRKREJCT CCS MARKSTAT # SEE IF MARKS BEING ACCEPTED
010002,000472: 07,2311 02315 TC REJECT2
010003,000473: 07,2312 05650 TC ALARM # MARKS NOT BEING ACCEPTED
010004,000474: 07,2313 00112 OCT 112
010005,000475: 07,2314 05333 TC RESUME
010006,000476:
010007,000477: 07,2315 45006 REJECT2 CS BIT10 # SEE IF MARK HAD BEEN MADE SINCE LAST
010008,000478: 07,2316 71330 MASK MARKSTAT # REJECT, AND SET BIT10 TO ZERO TO
010009,000479: 07,2317 57330 XCH MARKSTAT # SHOW MARK REJECT
|
|
Page 231 |
010011,000481: 07,2320 75006 MASK BIT10
010012,000482: 07,2321 10000 CCS A
010013,000483: 07,2322 02326 TC REJECT3
010014,000484:
010015,000485: 07,2323 05650 TC ALARM # DONT ACCEPT TWO REJECTS TOGETHER
010016,000486: 07,2324 00110 OCT 110
010017,000487: 07,2325 05333 TC RESUME
010018,000488:
010019,000489: 07,2326 35046 REJECT3 CAF LOW9 # DECREMENT POINTER TO REJECT MARK
010020,000490: 07,2327 71330 MASK MARKSTAT
010021,000491: 07,2330 54061 TS ITEMP1
010022,000492: 07,2331 45023 CS SEVEN
010023,000493: 07,2332 50061 INDEX ITEMP1
010024,000494: 07,2333 26052 ADS QPRET # NEW POINTER
010025,000495:
010026,000496: 07,2334 35004 CAF BIT12 # INCREMENT MARKS WANTED AND IF FIELD
010027,000497: 07,2335 61330 AD MARKSTAT # IS NOW NON-ZERO, CHANGE TO VB51 TO
010028,000498: 07,2336 57330 XCH MARKSTAT # INDICATE MORE MARKS WANTED
010029,000499: 07,2337 77671 MASK PRIO34 # INDICATE MORE MARKS WANTED
010030,000500: 07,2340 10000 CCS A
010031,000501: 07,2341 05333 TC RESUME
010032,000502: 07,2342 37667 CAF PRIO32
010033,000503: 07,2343 05134 TC NOVAC
010034,000504: 07,2344 1330 EBANK= MARKSTAT
010035,000505: 07,2344 02347 16062 2CADR MKVB51
010036,000506:
010037,000507: 07,2346 05333 TC RESUME
010038,000508:
|
|
Page 232 |
010040,000510: # PROGRAM DESCRIPTION MKVB51 AND MKVB50
010041,000511:
010042,000512: # AUTHOR-BARNERT DATE-2-15-67 MOD-0
010043,000513: # PURPOSE FLASH V51N70,V51N43, OR V51 TO REQUEST MARKING,
010044,000514: # AND V50N25 R1=16 TO REQUEST TERMINATE MARKING
010045,000515:
010046,000516: # CALLING SEQUENCE AS JOB WITHIN SXTMARK
010047,000517:
010048,000518: # EXIT TO ENDMARK UPON RECEIPT OF V33, V34 CAUSES GOTOPOOH, ENTER
010049,000519: # RECYCLES THE DISPLAY
010050,000520:
010051,000521: # NOTE- SXTMARK AUTOMATICALLY CHANGES FROM CALLING MKVB51 TO MKVB50 WHEN
010052,000522: # SUFFICIENT MARKS HAVE BEEN MADE, AND THE REVERSE WHEN A MARK
010053,000523: # REJECT REDUCES THE NUMBER MADE BELOW THAT REQUIRED
010054,000524:
010055,000525: # SUBROUTINES CALLED- BANKCALL, GOMARK2, GOODEND, ENDMARK, WAITLIST
010056,000526:
010057,000527: # ALARM OR ABORT MODES - NONE
010058,000528:
010059,000529: # ERASABLE USED-VERBREG,MARKSTAT,QPRET,DSPTEM1
010060,000530:
010061,000531: # OUTPUT MARKSTAT = VAC ADDRESS
010062,000532:
010063,000533: # QPRET = NO. MARKS
010064,000534:
010065,000535: 07,2347 04662 MKVB51 TC BANKCALL # CLEAR DISPLAY FOR MARK VERB
010066,000536: 07,2350 20560 CADR KLEENEX
010067,000537: 07,2351 32427 CAF VB51 # DISPLAY MARK VB51
010068,000538: 07,2352 04662 TC BANKCALL
010069,000539: 07,2353 20572 CADR GOMARK4
010070,000540: 07,2354 12357 TCF TERMSXT # VB34-TERMINATE
010071,000541: 07,2355 12370 TCF ENTANSWR # V33-PROCEED-MARKING DONE
010072,000542: 07,2356 12416 TCF MKVB5X # ENTER-RECYCLE TO INITIAL MARK DISPLAY
010073,000543:
010074,000544: 07,2357 05536 TERMSXT TC CLEARMRK # CLEAR MARK ACTIVITY.
010075,000545:
010076,000546: 07,2360 05364 TC CHECKMM
010077,000547: 07,2361 00003 MM 03 B-14
010078,000548: 07,2362 12364 TCF +2
010079,000549: 07,2363 02366 TC TERMP03
010080,000550: 07,2364 04701 TC POSTJUMP
010081,000551: 07,2365 30205 CADR TERM52
010082,000552:
010083,000553: 07,2366 05546 TERMP03 TC UPFLAG
010084,000554: 07,2367 00032 ADRES TRM03FLG
010085,000555: 07,2370 35046 ENTANSWR CAF LOW9 # PUT VAC ADR IN MARKSTAT AND NO. OF
010086,000556: 07,2371 71330 MASK MARKSTAT # MARKS MADE IN QPRET BEFORE LEAVING
010087,000557: 07,2372 55330 TS MARKSTAT # SXTMARK
010088,000558: 07,2373 40000 COM
010089,000559: 07,2374 51330 INDEX MARKSTAT
010090,000560: 07,2375 60052 AD QPRET
|
|
Page 233 |
010092,000562: 07,2376 00006 EXTEND
010093,000563: 07,2377 62403 BZMF JAMIT # NO MARKS MADE, SHOW IT IN QPRET, R53
010094,000564: 07,2400 00006 EXTEND # WILL PICK IT UP AND RECYCLE
010095,000565: 07,2401 75004 MP BIT12 # THIS PUTS NUMBER MARKS-1 IN A
010096,000566: 07,2402 65017 AD ONE
010097,000567: 07,2403 51330 JAMIT INDEX MARKSTAT # STORE NO OF MARKS MADE
010098,000568: 07,2404 54052 TS QPRET
010099,000569: 07,2405 00004 INHINT # SERVICE OPTSTALL INTERFACE WITH
010100,000570: 07,2406 35022 CAF FIVE
010101,000571: 07,2407 05245 TC WAITLIST
010102,000572: 07,2410 1330 EBANK= MARKSTAT
010103,000573: 07,2410 02413 16062 2CADR ENDMARKS
010104,000574:
010105,000575: 07,2412 05534 TC ENDMARK # KNOCKS DOWN MARKING FLAG + DOES ENDOFJOB
010106,000576:
010107,000577: 07,2413 35017 ENDMARKS CAF ONE
010108,000578: 07,2414 04740 TC IBNKCALL
010109,000579: 07,2415 17550 CADR GOODEND
010110,000580: 07,2416 37671 MKVB5X CAF PRIO34
010111,000581: 07,2417 71330 MASK MARKSTAT # RE-DISPLAY VB51 IF MORE MARKS WANTED
010112,000582: 07,2420 10000 CCS A # AND VB50 IF ALL IN
010113,000583: 07,2421 12347 TCF MKVB51
010114,000584: 07,2422 34333 MKVB50 CAF R1D1 # OCT 16
010115,000585: 07,2423 55045 TS DSPTEM1
010116,000586: 07,2424 32426 CAF V50N25
010117,000587: 07,2425 12352 TCF MKVB51 +3
010118,000588:
010119,000589: 07,2426 14431 V50N25 VN 5025
010120,000590: 07,2427 14600 VB51 VN 5100
010121,000591: 07,2430 4362 OCT37 = LOW5
010122,000592:
010123,000593: # PROGRAM NAME - MARKIT DATE - 19 SEPT 1967
010124,000594:
010125,000595: # CALLING SEQUENCE
010126,000596: # FROM MARKRUPT IF CHAN 16 BIT 6 = 1
010127,000597:
010128,000598: # EXIT
010129,000599: # RESUME
010130,000600:
010131,000601: # INPUT
010132,000602: # CDUCHKWD. ALSO ALL INITIALIZATION FOR MARKCONT
010133,000603:
010134,000604: # OUTPUT
010135,000605: # MKT2T1,MKCDUX,MKCDUY,MKCDUZ,MKCDUS,MKCDUT
010136,000606:
010137,000607: # ALARM EXIT
010138,000608: # NONE
010139,000609:
010140,000610: 07,2430 11341 MARKIT CCS CDUCHKWD
010141,000611: 07,2431 12434 TCF +3 # DELAY OF CDUCHKWD CS IF PNZ
|
|
Page 234 |
010143,000613: 07,2432 12434 TCF +2
010144,000614: 07,2433 35021 CAF ZERO
010145,000615: 07,2434 65017 AD ONE # 10 MS IF NO CHECK
010146,000616: 07,2435 05245 TC WAITLIST
010147,000617: 07,2436 E7,1725 EBANK= MRKBUF1
010148,000618: 07,2436 02203 20067 2CADR MARKDIF
010149,000619:
010150,000620: 07,2440 15333 TCF RESUME
010151,000621:
010152,000622: 10,2000 SETLOC SXTMARK1
010153,000623: 10,2000 BANK
010154,000624:
010155,000625: 10,2203 COUNT 10/SXTMK
010156,000626:
010157,000627: # PROGRAM NAME - MARKDIF DATE- 19 SEPT 1967
010158,000628:
010159,000629: # CALLING SEQUENCE
010160,000630: # WAITLIST FROM MARKIT
010161,000631:
010162,000632: # EXIT
010163,000633: # TASKOVER OT IBNKCALL TO MARKCONT
010164,000634:
010165,000635: # INPUT
010166,000636: # OUTPUT FROM MARKIT, INPUT TO MARKCONT, CDUCHKWD
010167,000637:
010168,000638: # OUTPUT
010169,000639: # RUPTSTOR - RUPTSTOR+3, RUPTREG3, RUPTSTOR+5 - RUPTSTOR+6
010170,000640:
010171,000641: # ALARM EXIT
010172,000642: # ALARM AND TASKOVER
010173,000643:
010174,000644: 10,2203 31341 MARKDIF CA CDUCHKWD # IF DELAY CHECK IS ZERO OR NEG, ACP MARK
010175,000645: 10,2204 00006 EXTEND
010176,000646: 10,2205 62216 BZMF MKACPT
010177,000647: 10,2206 45017 CS BIT1
010178,000648: 10,2207 54354 TS MKNDX # SET INDEX -1
010179,000649: 10,2210 30363 CA MKCDUX
010180,000650: 10,2211 02220 TC DIFCHK # SEE IF VEHICLE RATE TO MUCH AT MARK
010181,000651: 10,2212 30357 CA MKCDUY
010182,000652: 10,2213 02220 TC DIFCHK
010183,000653: 10,2214 30361 CA MKCDUZ
010184,000654: 10,2215 02220 TC DIFCHK
010185,000655:
010186,000656: 10,2216 04740 MKACPT TC IBNKCALL
010187,000657: 10,2217 16153 CADR MARKCONT # MARK DATA OK, WHAT DO WE DO WITH IT
010188,000658:
010189,000659: 10,2220 24354 DIFCHK INCR MKNDX # INCREMENT INDEX
010190,000660:
010191,000661: 10,2221 00006 EXTEND
010192,000662: 10,2222 50354 INDEX MKNDX
|
|
Page 235 |
010194,000664: 10,2223 20032 MSU CDUX # GET MARK(ICDU) - CURRENT(ICDU)
010195,000665: 10,2224 10000 CCS A
010196,000666: 10,2225 12231 TCF +4
010197,000667: 10,2226 00002 TC Q
010198,000668: 10,2227 12231 TCF +2
010199,000669: 10,2230 00002 TC Q
010200,000670: 10,2231 67715 AD NEG2 # SEE IF DIFFERENCE GREATER THAN 3 BITS
010201,000671: 10,2232 00006 EXTEND
010202,000672: 10,2233 62230 BZMF -3 # NOT GREATER
010203,000673:
010204,000674: 10,2234 05650 TC ALARM # COUPLED WITH PROGRAM ALARM
010205,000675: 10,2235 00121 OCT 00121
010206,000676:
010207,000677: 10,2236 15324 TCF TASKOVER # DO NOT ACCEPT
010208,000678:
010209,000679:
End of include-file SXTMARK.agc. Parent file is MAIN.agc