ASSEMBLE REVISION 249 OF AGC PROGRAM COLOSSUS BY NASA 2021111-041 20'35 OCT. 28,1968Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
This is the source-code for the Apollo 9 Command Module's Guidance Computer.
These files were derived originally from the scan from MIT's Dibner Institute's
now-discontinued website titled "History of Recent Science and Technology", which
in turn was originally created by Gary Neff, though his high-quality scans were
unfortunately reduced in legibility when presented online.
The markings on the front of the
printout imply that it was the original AGC developer Norm Brodeur's copy.
A scan by Ron Burkey has superceded it, made from a more-legible copy from the collection of original
AGC developer Fred Martin. The source code was transcribed from
those images by Ron Burkey. 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:ASSEMBLE REVISION 249 OF AGC PROGRAM COLOSSUS BY NASA 2021111-041 20'35 OCT. 28,1968Note that the date is the date of the printout, not the date of the program revision. |
009317,000002: ## Copyright: Public domain.
009318,000003: ## Filename: SXTMARK.agc
009319,000004: ## Purpose: Part of the source code for Colossus, build 249.
009320,000005: ## It is part of the source code for the Command Module's (CM)
009321,000006: ## Apollo Guidance Computer (AGC), for Apollo 9.
009322,000007: ## Assembler: yaYUL
009323,000008: ## Reference: pp. 216-229.
009324,000009: ## Contact: Ron Burkey <info@sandroid.org>.
009325,000010: ## Website: www.ibiblio.org/apollo.
009326,000011: ## Mod history: 08/07/04 RSB. Began data entry.
009327,000012: ## 2010-10-24 JL Pseudo-label indentation fixes.
009328,000013: ## 2017-01-05 RSB Page numbers now agree with those on the
009329,000014: ## original harcopy, as opposed to the PDF page
009330,000015: ## numbers in 1701.pdf.
009331,000016: ## 2017-01-20 RSB Cross-diff'd comment text (not whitespace)
009332,000017: ## vs the already-proofed corresponding Colossus
009333,000018: ## 237 and Comanche 55 source-code files
009334,000019: ## and corrected errors found.
009335,000020: ## 2021-05-30 ABS 20/SXTMK -> 10/SXTMK
009336,000021: ##
009337,000022: ## The contents of the "Colossus249" files, in general, are transcribed
009338,000023: ## from a scanned copy of the program listing. Notations on this
009339,000024: ## document read, in part:
009340,000025: ##
009341,000026: ## Assemble revision 249 of AGC program Colossus by NASA
009342,000027: ## 2021111-041. October 28, 1968.
009343,000028: ##
009344,000029: ## This AGC program shall also be referred to as
009345,000030: ## Colossus 1A
009346,000031: ##
009347,000032: ## Prepared by
009348,000033: ## Massachusetts Institute of Technology
009349,000034: ## 75 Cambridge Parkway
009350,000035: ## Cambridge, Massachusetts
009351,000036: ## under NASA contract NAS 9-4065.
009352,000037: ##
009353,000038: ## Refer directly to the online document mentioned above for further information.
009354,000039: ## Please report any errors (relative to the scanned pages) to info@sandroid.org.
009355,000040: ##
009356,000041: ## In some cases, where the source code for Luminary 131 overlaps that of
009357,000042: ## Colossus 249, this code is instead copied from the corresponding Luminary 131
009358,000043: ## source file, and then is proofed to incorporate any changes.
009359,000044:
|
|
Page 216 |
009361,000046: # PROGRAM NAME - SXTMARK DATE - 5 APRIL 1967
009362,000047: # PROGRAM MODIFIED BY 258/278 PROGRAMMERS LOG SECTION SXTMARK
009363,000048: # MOD BY - R. MELANSON TO ADD DOCUMENTATION ASSEMBLY SUNDISK REV. 116
009364,000049: #
009365,000050: # FUNCTIONAL DESCRIPTION-
009366,000051:
009367,000052: # SXTMARK IS CALLED FROM INTERNAL ROUTINES WHICH MAY REQUIRE STAR OR LANDMARK MARKINGS BY THE ASTRONAUT. IF
009368,000053: # THE MARK SYSTEM IS NOT IN USE, SXTMARK RESERVES A VAC AREA FOR MARKING AND REQUESTS EXECUTIONOF THE MKVB51
009369,000054: # ROUTINE VIA THE EXECUTIVE JOB PRIORITY LIST. R21 USES THIS ROUTINE TO DETERMINE IF THE MARK SYSTEM CAN BE
009370,000055: # USED. IF YES, SXTMARK RETURNS TO R21 TO PERFORM ITS OWN MARK REQUESTS VIA THE V51 FLASH.
009371,000056:
009372,000057: # CALLING SEQUENCE-
009373,000058:
009374,000059: # CAF (NO. MARK REQUESTS IN BITS 1-3 OF A)
009375,000060: # TC BANKCALL
009376,000061: # CADR SXTMARK
009377,000062:
009378,000063: # NORMAL EXIT MODE-
009379,000064:
009380,000065: # SWRETURN
009381,000066:
009382,000067: # ALARM OR ABORT EXIT MODE-
009383,000068:
009384,000069: # ABORT
009385,000070:
009386,000071: # OUTPUT-
009387,000072:
009388,000073: # 1) MARKSTAT CONTAINS MARK VALUE (BITS 14-12) AND VAC AREA ADDRESS
009389,000074: # 2) QPRET = VAC AREA POINTER VALUE
009390,000075: # 3) 1ST WORD OF RESERVED VAC AREA SET TO +0
009391,000076: # 4) PRIO32 PLACED IN A REGISTER
009392,000077:
009393,000078: # ERASABLE INITIALIZATION-
009394,000079:
009395,000080: # 1) BITS 1-3 OF A = NO. MARKS REQUESTED
009396,000081: # 2) BITS 2,3 OF EXTVBACT = 0
009397,000082: # 3) A VAC AREA MUST BE AVAILABLE (WORD 1 = ADDRESS OF VAC AREA)
009398,000083:
009399,000084: # DEBRIS-
009400,000085:
009401,000086: # A,Q,L,RUPTREG1,MARKSTAT,QPRET,BIT2 OF EXTVBACT
009402,000087:
009403,000088: 13,2036 BANK 13
009404,000089: 07,2000 SETLOC SXTMARKE
009405,000090: 07,2000 BANK
009406,000091:
009407,000092: 07,2002 E7,1725 EBANK= MRKBUF1
009408,000093: 07,2002 COUNT 07/SXTMK
009409,000094:
009410,000095: 07,2002 00004 SXTMARK INHINT
009411,000096: 07,2003 54070 TS RUPTREG1 # NUMBER OF MARKS WANTED
009412,000097:
009413,000098: 07,2004 36211 CAF SIX # BIT2 = MARKING SYSTEM IN USE
009414,000099: 07,2005 71044 MASK EXTVBACT # BIT3 = EXTENDED VERB IN PROGRESS
009415,000100: 07,2006 10000 CCS A
009416,000101: 07,2007 02013 TC MKABORT # SET THEREFORE ABORT
|
|
Page 217 |
009418,000103: 07,2010 34711 CAF BIT2 # NOT SET
009419,000104: 07,2011 27044 ADS EXTVBACT # SET IT, RESET IN ENDMARK
009420,000105: 07,2012 02015 TC MARKOK # YES, FIND VAC AREA
009421,000106:
009422,000107: 07,2013 05604 MKABORT TC BAILOUT
009423,000108: 07,2014 01211 OCT 01211
009424,000109: 07,2015 10400 MARKOK CCS VAC1USE # FIND VAC AREA
009425,000110: 07,2016 02031 TC MKVACFND
009426,000111: 07,2017 10454 CCS VAC2USE
009427,000112: 07,2020 02031 TC MKVACFND
009428,000113: 07,2021 10530 CCS VAC3USE
009429,000114: 07,2022 02031 TC MKVACFND
009430,000115: 07,2023 10604 CCS VAC4USE
009431,000116: 07,2024 02031 TC MKVACFND
009432,000117: 07,2025 10660 CCS VAC5USE
009433,000118: 07,2026 02031 TC MKVACFND
009434,000119: 07,2027 05604 TC BAILOUT
009435,000120: 07,2030 01207 OCT 01207
009436,000121:
009437,000122: 07,2031 64711 MKVACFND AD TWO # ADDRESS OF VAC AREA
009438,000123: 07,2032 55330 TS MARKSTAT
009439,000124: 07,2033 50000 INDEX A
009440,000125: 07,2034 54052 TS QPRET # STORE NEXT AVAILABLE MARK SLOT
009441,000126:
009442,000127: 07,2035 34714 CAF ZERO # SHOW VAC AREA OCCUPIED
009443,000128: 07,2036 51330 INDEX MARKSTAT
009444,000129: 07,2037 53777 TS 0 -1
009445,000130:
009446,000131: 07,2040 05253 TC CHECKMM # BACKUP MARK ROUTINE USES SXTMARK
009447,000132: 07,2041 00065 MM 53 B-14
009448,000133: 07,2042 12044 TCF +2
009449,000134: 07,2043 14570 TCF SWRETURN
009450,000135: 07,2044 05253 TC CHECKMM
009451,000136: 07,2045 00066 MM 54 B-14
009452,000137: 07,2046 12050 TCF +2
009453,000138: 07,2047 14570 TCF SWRETURN
009454,000139: 07,2050 34677 CAF BIT12 # DESIRED NUMBER OF MARKS IN 12-14
009455,000140: 07,2051 00006 EXTEND
009456,000141: 07,2052 70070 MP RUPTREG1
009457,000142: 07,2053 56001 XCH L
009458,000143: 07,2054 27330 ADS MARKSTAT
009459,000144:
009460,000145: 07,2055 37667 CAF PRIO32 # ENTER MARK JOB
009461,000146: 07,2056 05027 TC NOVAC
009462,000147: 07,2057 1330 EBANK= MARKSTAT
009463,000148: 07,2057 02346 16062 2CADR MKVB51
009464,000149:
009465,000150: 07,2061 00003 RELINT
009466,000151: 07,2062 14570 TCF SWRETURN # SAME AS MODEEXIT
009467,000152:
|
|
Page 218 |
009469,000154: # PROGRAM NAME - MKRELEAS DATE - 5 APRIL 1967
009470,000155: # PROGRAM MODIFIED BY 258/278 PROGRAMMERS LOG SECTION SXTMARK
009471,000156: # MOD BY - R. MELANSON TO ADD DOCUMENTATION ASSEMBLY SUNDISK REV. 116
009472,000157:
009473,000158: # FUNCTIONAL DESCRIPTION-
009474,000159:
009475,000160: # MKRELEAS IS EXECUTED BY INTERNAL ROUTINES TO RELEASE THE MARK SYSTEM TO MAKE IT AVAILABLE TO OTHER INTERNAL
009476,000161: # SYSTEM ROUTINES. IT ALSO CLEARS THE COARSE OPTICS FLAG BIT AND DISABLES THE OPTICS ERROR COUNTER.
009477,000162:
009478,000163: # CALLING SEQUENCE-
009479,000164:
009480,000165: # TC BANKCALL
009481,000166: # CADR MKRELEAS
009482,000167:
009483,000168: # NORMAL EXIT MODE-
009484,000169:
009485,000170: # SWRETURN
009486,000171:
009487,000172: # ALARM OR ABORT EXIT MODE - NONE
009488,000173:
009489,000174: # OUTPUT-
009490,000175:
009491,000176: # 1) BIT9 OPTMODES SET TO 0
009492,000177: # 2) OPTIND SET TO -1
009493,000178: # 3) 1ST WORD OF VAC AREA SET TO VAC ADDRESS TO SIGNIFY AVAILABILITY.
009494,000179: # 4) MARKSTAT CLEARED
009495,000180: # 5) BIT2 CHANNEL 12 SET TO 0
009496,000181:
009497,000182: # ERASABLE INITIALIZATION- NONE
009498,000183:
009499,000184: # DEBRIS-
009500,000185:
009501,000186: # A,MARKSTAT,BIT9 OPTMODES,OPTIND,BIT2 CHANNEL 12
009502,000187:
009503,000188: 07,2063 34714 MKRELEAS CAF ZERO # SHOW MARK SYSTEM NOW AVAILABLE
009504,000189: 07,2064 57330 XCH MARKSTAT
009505,000190: 07,2065 10000 CCS A
009506,000191: 07,2066 50000 INDEX A
009507,000192: 07,2067 54000 TS 0
009508,000193: 07,2070 00004 MKRLEES INHINT
009509,000194: 07,2071 44702 CS BIT9 # COARSE OPTICS RETURN FLAG.
009510,000195: 07,2072 71331 MASK OPTMODES
009511,000196: 07,2073 55331 TS OPTMODES
009512,000197:
009513,000198: 07,2074 37716 CA NEGONE
009514,000199: 07,2075 55303 TS OPTIND # KILL COARS OPTICS
009515,000200:
009516,000201: 07,2076 44711 CS BIT2 # DISABLE OPTICS ERROR COUNTER
009517,000202: 07,2077 00006 EXTEND
009518,000203: 07,2100 03012 WAND CHAN12
009519,000204:
009520,000205: 07,2101 00003 RELINT
009521,000206: 07,2102 04570 TC SWRETURN
|
|
Page 219 |
009523,000208: # PROGRAM NAME - MARKRUPT DATE - 5 APRIL 1967
009524,000209: # PROGRAM MODIFIED BY 258/278 PROGRAMMERS LOG SECTION SXTMARK
009525,000210: # MOD BY - R. MELANSON TO ADD DOCUMENTATION ASSEMBLY SUNDISK REV. 116
009526,000211:
009527,000212: # FUNCTIONAL DESCRIPTION-
009528,000213:
009529,000214: # MARKRUPT STORES CDUS,OPTICS AND TIME AND TRANSFERS CONTROL TO THE MARKIT,MARK REJECT OR KEYCOM ROUTINES IF
009530,000215: # BITS IN CHANNEL 16 ARE SET AS REQUIRED.
009531,000216:
009532,000217: # CALLING SEQUENCE-
009533,000218:
009534,000219: # ROUTINE ENTERED VIA KEYRUPT2 WHEN MARK,MARK REJECT OR DSKY KEYS DEPRESSED BY THE OPERATOR.
009535,000220:
009536,000221: # NORMAL EXIT MODE-
009537,000222:
009538,000223: # MARKIT, MKREJECT OR POSTJUMP ROUTINES (MARK, MARK REJECT OR DSKY CODE)
009539,000224:
009540,000225: # ALARM OR ABORT EXIT MODE-
009541,000226:
009542,000227: # ALARM AND RESUME
009543,000228:
009544,000229: # OUTPUT-
009545,000230:
009546,000231: # RUPTSTOR+5 = CDUT, RUPTSTOR+3 = CDUS, RUPTSTOR+2 = CDUY,
009547,000232: # RUPTREG3 = CDUZ, RUPTSTOR+6 = CDUX, RUPTSTOR+1 AND SAMPTIME+1 = TIME1,
009548,000233: # RUPTSTOR AND SAMPTIME = TIME2
009549,000234:
009550,000235: # ERASABLE INITIALIZATION-
009551,000236:
009552,000237: # CDUT,CDUS,CDUY,CDUZ,CDUX,TIME2,TIME1,CHANNEL 16 BITS 6,7 OR 1-5
009553,000238:
009554,000239: # DEBRIS-
009555,000240:
009556,000241: # A,QRUPT,RUPTREG3,SAMPTIME,SAMPTIME+1,RUPTSTOR TO RUPTSTOR+6 EXCEPT RUPTSTOR+4 (LOCATION 67)
009557,000242:
009558,000243: 07,2103 54016 MARKRUPT TS BANKRUPT # STORE CDUS AND OPTICS NOW
009559,000244: 07,2104 30035 CA CDUT
009560,000245: 07,2105 54362 TS MKCDUT
009561,000246: 07,2106 30036 CA CDUS
009562,000247: 07,2107 54360 TS MKCDUS
009563,000248: 07,2110 30033 CA CDUY
009564,000249: 07,2111 54357 TS MKCDUY
009565,000250: 07,2112 30034 CA CDUZ
009566,000251: 07,2113 54361 TS MKCDUZ
009567,000252: 07,2114 30032 CA CDUX
009568,000253: 07,2115 54363 TS MKCDUX
009569,000254: 07,2116 00006 EXTEND
009570,000255: 07,2117 30025 DCA TIME2 # GET TIME
009571,000256: 07,2120 52356 DXCH MKT2T1
009572,000257: 07,2121 00006 EXTEND
009573,000258: 07,2122 30356 DCA MKT2T1
009574,000259: 07,2123 52014 DXCH SAMPTIME # RUPT TIME FOR NOUN 65.
009575,000260:
009576,000261: 07,2124 56002 XCH Q
009577,000262: 07,2125 54012 TS QRUPT
009578,000263:
009579,000264: 07,2126 34705 CAF BIT6 # SEE IF MARK OR MKREJECT
|
|
Page 220 |
009581,000266: 07,2127 00006 EXTEND
009582,000267: 07,2130 02016 RAND NAVKEYIN
009583,000268: 07,2131 10000 CCS A
009584,000269: 07,2132 02427 TC MARKIT # ITS A MARK
009585,000270:
009586,000271: 07,2133 34704 CAF BIT7 # NOT A MARK, SEE IF MKREJECT
009587,000272: 07,2134 00006 EXTEND
009588,000273: 07,2135 02016 RAND NAVKEYIN
009589,000274: 07,2136 10000 CCS A
009590,000275: 07,2137 02300 TC MKREJECT # ITS A MARK REJECT
009591,000276:
009592,000277: 07,2140 34362 KEYCALL CAF OCT37 # NOT MARK OR MKREJECT, SEE IF KEYCODE
009593,000278: 07,2141 00006 EXTEND
009594,000279: 07,2142 02016 RAND NAVKEYIN
009595,000280: 07,2143 00006 EXTEND
009596,000281: 07,2144 12147 BZF +3 # IF NO INBITS
009597,000282: 07,2145 04574 TC POSTJUMP
009598,000283: 07,2146 17622 CADR KEYCOM # IT,S A KEY CODE, NOT A MARK.
009599,000284:
009600,000285: 07,2147 05537 +3 TC ALARM # ALARM IF NO INBITS
009601,000286: 07,2150 00113 OCT 113
009602,000287: 07,2151 05222 TC RESUME
009603,000288:
|
|
Page 221 |
009605,000290: # PROGRAM NAME - MARKCONT DATE - 19 SEPT 1967
009606,000291: # PROGRAM MODIFIED BY 258/278 PROGRAMMERS LOG SECTION SXTMARK
009607,000292: # MOD BY - R. MELANSON TO ADD DOCUMENTATION ASSEMBLY SUNDISK REV. 116
009608,000293:
009609,000294: # FUNCTIONAL DESCRIPTION-
009610,000295:
009611,000296: # MARKCONT IS USED TO PERFORM A SPECIAL MARK FUNCTION FOR R21, TO EXECUTE A SPECIAL DISPLAY OF OPTICS AND TIME OR
009612,000297: # TO PERFORM A MARK OF A STAR OR LAND SIGHTING BASED UPON FLASHING V-N.
009613,000298:
009614,000299: # CALLING SEQUENCE-
009615,000300:
009616,000301: # FROM MARKDIF
009617,000302:
009618,000303: # NORMAL EXIT MODE-
009619,000304:
009620,000305: # TASKOVER
009621,000306:
009622,000307: # ALARM OR ABORT EXIT MODE-
009623,000308:
009624,000309: # ALARM AND TASKOVER
009625,000310:
009626,000311: # OUTPUT-
009627,000312:
009628,000313: # 1) FOR R21-
009629,000314: # EBANK=EBANK7
009630,000315: # MRKBUF1 TO MRKBUF1+6 = TIME2,TIME1,CDUY,OPTICX,CDUZ,OPTICSY,CDUX OF CURRENT R21 MARK FUNCTION.
009631,000316: # MRKBUF2 TO MRKBUF2+6 CONTAINS PREVIOUS R21 MARK VALUES.
009632,000317: # 2) FOR SPECIAL DISPLAY JOB-
009633,000318: # RUPTREG1 AND MRKBUF1 = CDUS,RUPTREG2 AND MRKBUF1+1 = CDUT.
009634,000319: # RUPTREG3 AND MRKBUF1 +2 = TIME2,RUPTREG4 AND MRKBUF1+3 = TIME1
009635,000320: # 3) FOR NORMAL MARKING-
009636,000321: # DECREMENT BITS14-12 OF MARKSTAT BY 1,
009637,000322: # BIT10 MARKSTAT SET TO 1, INCREMENT QPRET BY 7,
009638,000323: # STORE TIME2,TIME1,CDUY,CDUS,CDUZ,CDUT AND CDUX IN VAC+1 TO VAC+7
009639,000324:
009640,000325: # ERASABLE INITIALIZATION-
009641,000326:
009642,000327: # 1) FOR R21-
009643,000328: # BIT14 OF STATE+2 =1, MRKBUF1 TO MRKBUF1+6, ITEMP1, RUPTREG3,
009644,000329: # RUPTSTOR TO RUPTSTOR+6 EXCEPT RUPTSTOR+4
009645,000330: # 2) FOR SPECIAL DISPLAY JOB-
009646,000331: # BIT14 OF STATE+2 =0, MARKSTAT =+0, RUPTREG1,RUPTREG2,RUPTREG3
009647,000332: # RUPTREG4,RUPTSTOR,RUPTSTOR+1,RUPTSTOR+3,RUPTSTOR+5,
009648,000333: # BIT12 OF STATE+5 (V59 FLAG), MRKBUF1 THRU MRKBUF1+3
009649,000334: # 3) FOR NORMAL MARKING-
009650,000335: # BIT14 OF STATE+2 =0, MARKSTAT =VAC ADDRESS, A REG, ITEMP1, RUPTREG3,
009651,000336: # RUPTSTOR TO RUPTSTOR+6 EXCEPT RUPTSTOR+4
009652,000337:
009653,000338: # DEBRIS-
009654,000339:
009655,000340: # 1) FOR R21-
009656,000341: # A, ITEMP1, MRKBUF1, MRKBUF2
009657,000342: # 2) FOR SPECIAL DISPLAY JOB-
009658,000343: # A,RUPTREG1,RUPTREG2,RUPTREG3,RUPTREG4,MPAC TO MPAC+3
009659,000344: # 3) FOR NORMAL MARKING-
009660,000345: # A,MARKSTAT,ITEMP1,QPRET,VAC+1 TO VAC+7 OF VAC AREA IN USE
009661,000346:
|
|
Page 222 |
009663,000348: 07,2152 34675 MARKCONT CAF BIT14
009664,000349: 07,2153 70076 MASK STATE +2 # R21 MARK (SPECIAL MARKING FOR R21)
009665,000350: 07,2154 00006 EXTEND
009666,000351: 07,2155 12167 BZF MARKET # NOT SET THEREFORE REGULAR MARKING
009667,000352: 07,2156 36211 MARKIT1 CAF SIX # SPECIAL FOR R21
009668,000353: 07,2157 05475 TC GENTRAN # TRANSFER MRKBUF1 TO MRKBUF2
009669,000354: 07,2160 01725 ADRES MRKBUF1
009670,000355: 07,2161 01734 ADRES MRKBUF2
009671,000356:
009672,000357: 07,2162 36211 CAF SIX # TRANSFER CURRENT MARK DATA TO MARKBUF1
009673,000358: 07,2163 05475 TC GENTRAN
009674,000359: 07,2164 00355 ADRES MKT2T1
009675,000360: 07,2165 01725 ADRES MRKBUF1
009676,000361:
009677,000362: 07,2166 15213 TCF TASKOVER
009678,000363:
009679,000364: 07,2167 11330 MARKET CCS MARKSTAT # SEE IF MARKS CALLED FOR
009680,000365: 07,2170 02224 TC MARK2 # COLLECT MARKS
009681,000366:
009682,000367: 07,2171 34711 CAF TWO # IS MARKING SYSTEM IN USE (BIT2)
009683,000368: 07,2172 71044 MASK EXTVBACT
009684,000369: 07,2173 00006 EXTEND
009685,000370: 07,2174 12216 BZF MARKET3 # MARKING NOT CALLED FOR
009686,000371: 07,2175 34677 CAF BIT12
009687,000372: 07,2176 70101 MASK STATE +5 # V59FLAG
009688,000373: 07,2177 00006 EXTEND
009689,000374: 07,2200 12216 BZF MARKET3 # IF V59FLAG NOT SET-MARK UNCALLED FOR
009690,000375: 07,2201 34754 CAF PRIO5 # CALIBRATION MARK (SET) FOR P23
009691,000376: 07,2202 05027 TC NOVAC # SPECIAL DISPLAY JOB
009692,000377: 07,2203 E7,1725 EBANK= MRKBUF1
009693,000378: 07,2203 02405 76067 2CADR MARKDISP
009694,000379:
009695,000380: 07,2205 36211 CAF SIX
009696,000381: 07,2206 05475 TC GENTRAN # TRANSFER MARK DATA TO MARKDOWN
009697,000382: 07,2207 00355 ADRES MKT2T1
009698,000383: 07,2210 01674 ADRES MARKDOWN
009699,000384: 07,2211 36211 CAF SIX
009700,000385: 07,2212 05475 TC GENTRAN # TRANSFER MARK DATA TO MRKBUF1 FOR
009701,000386: 07,2213 00355 ADRES MKT2T1 # SPECIAL DISPLAY OF SHAFT AND TRUNNION
009702,000387: 07,2214 01725 ADRES MRKBUF1 # IF V59 ACTING
009703,000388: 07,2215 15213 TCF TASKOVER
009704,000389: 07,2216 05537 MARKET3 TC ALARM
009705,000390: 07,2217 00122 OCT 122 # MARKING NOT CALLED FOR
009706,000391: 07,2220 15213 TCF TASKOVER
009707,000392: 07,2221 05537 114ALM TC ALARM # MARK NOT WANTED
009708,000393: 07,2222 00114 OCT 114
009709,000394: 07,2223 15213 TCF TASKOVER
009710,000395:
|
|
Page 223 |
009712,000397: # STORE MARK DATA IN MKVAC AND INCREMENT POINTER
009713,000398:
009714,000399: 07,2224 67711 MARK2 AD 74K # SEE IF MARKS WANTED-REDUCE MARKS WANTED
009715,000400: 07,2225 00006 EXTEND
009716,000401: 07,2226 62221 BZMF 114ALM # MARK NOT WANTED-ALARM
009717,000402: 07,2227 55330 TS MARKSTAT
009718,000403: 07,2230 40000 COM
009719,000404: 07,2231 74701 MASK BIT10 # SET BIT10 TO ENABLE REJECT
009720,000405: 07,2232 27330 ADS MARKSTAT
009721,000406:
009722,000407: 07,2233 74741 MASK LOW9
009723,000408: 07,2234 54061 TS ITEMP1
009724,000409: 07,2235 50000 INDEX A
009725,000410: 07,2236 56052 XCH QPRET # PICK UP MARK SLOT-POINTER
009726,000411: 07,2237 54062 TS ITEMP2 # SAVE CURRENT POINTER
009727,000412: 07,2240 64716 AD SEVEN # INCREMENT POINTER
009728,000413: 07,2241 50061 INDEX ITEMP1
009729,000414: 07,2242 54052 TS QPRET # STORE ADVANCED POINTER
009730,000415:
009731,000416: 07,2243 00006 VACSTOR EXTEND
009732,000417: 07,2244 30356 DCA MKT2T1
009733,000418: 07,2245 50062 INDEX ITEMP2
009734,000419: 07,2246 52001 DXCH 0
009735,000420: 07,2247 30357 CA MKCDUY
009736,000421: 07,2250 50062 INDEX ITEMP2
009737,000422: 07,2251 54002 TS 2
009738,000423: 07,2252 30360 CA MKCDUS
009739,000424: 07,2253 50062 INDEX ITEMP2
009740,000425: 07,2254 54003 TS 3
009741,000426: 07,2255 30361 CA MKCDUZ
009742,000427: 07,2256 50062 INDEX ITEMP2
009743,000428: 07,2257 54004 TS 4
009744,000429: 07,2260 30362 CA MKCDUT
009745,000430: 07,2261 50062 INDEX ITEMP2
009746,000431: 07,2262 54005 TS 5
009747,000432: 07,2263 30363 CA MKCDUX
009748,000433: 07,2264 50062 INDEX ITEMP2
009749,000434: 07,2265 54006 TS 6
009750,000435:
009751,000436: 07,2266 37671 CAF PRIO34 # IF ALL MARKS MADE FLASH VB50
009752,000437: 07,2267 71330 MASK MARKSTAT
009753,000438: 07,2270 00006 EXTEND
009754,000439: 07,2271 12273 BZF +2
009755,000440: 07,2272 15213 TCF TASKOVER
009756,000441: 07,2273 37667 CAF PRIO32
009757,000442: 07,2274 05027 TC NOVAC
009758,000443: 07,2275 1330 EBANK= MARKSTAT
009759,000444: 07,2275 02421 16062 2CADR MKVB50
009760,000445:
009761,000446: 07,2277 15213 TCF TASKOVER
009762,000447:
|
|
Page 224 |
009764,000449: # PROGRAM NAME - MKREJECT DATE - 5 APRIL 1967
009765,000450: # PROGRAM MODIFIED BY 258/278 PROGRAMMERS LOG SECTION SXTMARK
009766,000451: # MOD BY - R. MELANSON TO ADD DOCUMENTATION ASSEMBLY SUNDISK REV. 116
009767,000452:
009768,000453: # FUNCTIONAL DESCRIPTION-
009769,000454:
009770,000455: # ROUTINE ALLOWS OPERATOR TO REJECT MARK MADE PRIOR TO ACCEPTANCE AND ALLOWS A NEW MARK TO BE MADE BY ASTRONAUT
009771,000456:
009772,000457: # CALLING SEQUENCE-
009773,000458:
009774,000459: # FROM MARKRUPT IF BIT7 OF CHANNEL 16 IS 1.
009775,000460:
009776,000461: # NORMAL EXIT MODE-
009777,000462:
009778,000463: # RESUME
009779,000464:
009780,000465: # ALARM OR ABORT EXIT MODE-
009781,000466:
009782,000467: # ALARM AND RESUME
009783,000468:
009784,000469: # OUTPUT-
009785,000470:
009786,000471: # 1) FOR R21-
009787,000472: # MRKBUF1 SET TO -1
009788,000473: # 2) FOR NORMAL MARKING-
009789,000474: # BIT10 MARKSTAT =0, INCREMENT NO. MARKS BY 1, DECREMENT QPRET BY 7
009790,000475:
009791,000476: # ERASABLE INITIALIZATION-
009792,000477:
009793,000478: # 1) FOR R21-
009794,000479: # BIT14 OF STATE+2 SET TO 1
009795,000480: # 2) FOR NORMAL MARKING-
009796,000481: # BIT14 OF STATE+2 SET TO 0, MARKSTAT,QPRET
009797,000482:
009798,000483: # DEBRIS-
009799,000484:
009800,000485: # 1) FOR R21-
009801,000486: # A,MARKSTAT,EBANK
009802,000487: # 2) FOR NORMAL MARKING-
009803,000488: # A,MARKSTAT,ITEMP1,QPRET
009804,000489:
009805,000490: 07,2300 34675 MKREJECT CAF BIT14
009806,000491: 07,2301 70076 MASK STATE +2 # R21 MARK (SPECIAL MARKING FOR R21)
009807,000492: 07,2302 00006 EXTEND
009808,000493: 07,2303 12307 BZF MRKREJCT # NOT SET THEREFORE REGULAR REJECT
009809,000494: 07,2304 37716 CA NEGONE # -1 (FOR R22)
009810,000495: 07,2305 55725 TS MRKBUF1 # -0 IN TIME IS FLAG TO R22 SIGNIFYING A
009811,000496: 07,2306 05222 TC RESUME # REJECTED MARK
009812,000497: 07,2307 11330 MRKREJCT CCS MARKSTAT # SEE IF MARKS BEING ACCEPTED
009813,000498: 07,2310 02314 TC REJECT2
009814,000499: 07,2311 05537 TC ALARM # MARKS NOT BEING ACCEPTED
009815,000500: 07,2312 00112 OCT 112
009816,000501: 07,2313 05222 TC RESUME
009817,000502:
009818,000503: 07,2314 44701 REJECT2 CS BIT10 # SEE IF MARK HAD BEEN MADE SINCE LAST
009819,000504: 07,2315 71330 MASK MARKSTAT # REJECT, AND SET BIT10 TO ZERO TO
009820,000505: 07,2316 57330 XCH MARKSTAT # SHOW MARK REJECT
|
|
Page 225 |
009822,000507: 07,2317 74701 MASK BIT10
009823,000508: 07,2320 10000 CCS A
009824,000509: 07,2321 02325 TC REJECT3
009825,000510:
009826,000511: 07,2322 05537 TC ALARM # DONT ACCEPT TWO REJECTS TOGETHER
009827,000512: 07,2323 00110 OCT 110
009828,000513: 07,2324 05222 TC RESUME
009829,000514:
009830,000515: 07,2325 34741 REJECT3 CAF LOW9 # DECREMENT POINTER TO REJECT MARK
009831,000516: 07,2326 71330 MASK MARKSTAT
009832,000517: 07,2327 54061 TS ITEMP1
009833,000518: 07,2330 44716 CS SEVEN
009834,000519: 07,2331 50061 INDEX ITEMP1
009835,000520: 07,2332 26052 ADS QPRET # NEW POINTER
009836,000521:
009837,000522: 07,2333 34677 CAF BIT12 # INCREMENT MARKS WANTED AND IF FIELD
009838,000523: 07,2334 61330 AD MARKSTAT # IS NOW NON-ZERO, CHANGE TO VB51 TO
009839,000524: 07,2335 57330 XCH MARKSTAT # INDICATE MORE MARKS WANTED
009840,000525: 07,2336 77671 MASK PRIO34 # INDICATE MORE MARKS WANTED
009841,000526: 07,2337 10000 CCS A
009842,000527: 07,2340 05222 TC RESUME
009843,000528: 07,2341 37667 CAF PRIO32
009844,000529: 07,2342 05027 TC NOVAC
009845,000530: 07,2343 1330 EBANK= MARKSTAT
009846,000531: 07,2343 02346 16062 2CADR MKVB51
009847,000532:
009848,000533: 07,2345 05222 TC RESUME
009849,000534:
|
|
Page 226 |
009851,000536: # PROGRAM DESCRIPTION MKVB51 AND MKVB50
009852,000537:
009853,000538: # AUTHOR- BARNERT DATE-2-15-67 MOD-0
009854,000539: # PURPOSE FLASH V51N70,V51N43, OR V51 TO REQUEST MARKING,
009855,000540: # AND V50N25 R1=16 TO REQUEST TERMINATE MARKING
009856,000541:
009857,000542: # CALLING SEQUENCE AS JOB WITHIN SXTMARK
009858,000543:
009859,000544: # EXIT TO ENDMARK UPON RECEIPT OF V33, V34 CAUSES GOTOPOOH, ENTER
009860,000545: # RECYCLES THE DISPLAY
009861,000546:
009862,000547: # NOTE- SXTMARK AUTOMATICALLY CHANGES FROM CALLING MKVB51 TO MKVB50 WHEN
009863,000548: # SUFFICIENT MARKS HAVE BEEN MADE, AND THE REVERSE WHEN A MARK
009864,000549: # REJECT REDUCES THE NUMBER MADE BELOW THAT REQUIRED
009865,000550:
009866,000551: # SUBROUTINES CALLED- BANKCALL, GOMARK2, GOODEND, ENDMARK, WAITLIST
009867,000552:
009868,000553: # ALARM OR ABORT MODES - NONE
009869,000554:
009870,000555: # ERASABLE USED-VERBREG, MARKSTAT, QPRET, DSPTEM1
009871,000556:
009872,000557: # OUTPUT MARKSTAT = VAC ADDRESS
009873,000558:
009874,000559: # QPRET = NO. MARKS
009875,000560:
009876,000561: 07,2346 04555 MKVB51 TC BANKCALL # CLEAR DISPLAY FOR MARK VERB
009877,000562: 07,2347 20464 CADR KLEENEX
009878,000563: 07,2350 32426 CAF VB51 # DISPLAY MARK VB51
009879,000564: 07,2351 04555 TC BANKCALL
009880,000565: 07,2352 20476 CADR GOMARK4
009881,000566: 07,2353 12356 TCF TERMSXT # VB34-TERMINATE
009882,000567: 07,2354 12367 TCF ENTANSWR # V33-PROCEED-MARKING DONE
009883,000568: 07,2355 12415 TCF MKVB5X # ENTER-RECYCLE TO INITIAL MARK DISPLAY
009884,000569:
009885,000570: 07,2356 05425 TERMSXT TC CLEARMRK # CLEAR MARK ACTIVITY.
009886,000571:
009887,000572: 07,2357 05253 TC CHECKMM
009888,000573: 07,2360 00003 MM 03 B-14
009889,000574: 07,2361 12363 TCF +2
009890,000575: 07,2362 02365 TC TERMP03
009891,000576: 07,2363 04574 TC POSTJUMP
009892,000577: 07,2364 30176 CADR TERM52
009893,000578:
009894,000579: 07,2365 05435 TERMP03 TC UPFLAG
009895,000580: 07,2366 00032 ADRES TRM03FLG
009896,000581: 07,2367 34741 ENTANSWR CAF LOW9 # PUT VAC ADR IN MARKSTAT AND NO. OF
009897,000582: 07,2370 71330 MASK MARKSTAT # MARKS MADE IN QPRET BEFORE LEAVING
009898,000583: 07,2371 55330 TS MARKSTAT # SXTMARK
009899,000584: 07,2372 40000 COM
009900,000585: 07,2373 51330 INDEX MARKSTAT
009901,000586: 07,2374 60052 AD QPRET
|
|
Page 227 |
009903,000588: 07,2375 00006 EXTEND
009904,000589: 07,2376 62402 BZMF JAMIT # NO MARKS MADE, SHOW IT IN QPRET, R53
009905,000590: 07,2377 00006 EXTEND # WILL PICK IT UP AND RECYCLE
009906,000591: 07,2400 74677 MP BIT12 # THIS PUTS NUMBER MARKS-1 IN A
009907,000592: 07,2401 64712 AD ONE
009908,000593: 07,2402 51330 JAMIT INDEX MARKSTAT # STORE NO OF MARKS MADE
009909,000594: 07,2403 54052 TS QPRET
009910,000595: 07,2404 00004 INHINT # SERVICE OPTSTALL INTERFACE WITH
009911,000596: 07,2405 34715 CAF FIVE
009912,000597: 07,2406 05140 TC WAITLIST
009913,000598: 07,2407 1330 EBANK= MARKSTAT
009914,000599: 07,2407 02412 16062 2CADR ENDMARKS
009915,000600:
009916,000601: 07,2411 05423 TC ENDMARK # KNOCKS DOWN MARKING FLAG + DOES ENDOFJOB
009917,000602:
009918,000603: 07,2412 34712 ENDMARKS CAF ONE
009919,000604: 07,2413 04633 TC IBNKCALL
009920,000605: 07,2414 17467 CADR GOODEND
009921,000606: 07,2415 37671 MKVB5X CAF PRIO34
009922,000607: 07,2416 71330 MASK MARKSTAT # RE-DISPLAY VB51 IF MORE MARKS WANTED
009923,000608: 07,2417 10000 CCS A # AND VB50 IF ALL IN
009924,000609: 07,2420 12346 TCF MKVB51
009925,000610: 07,2421 34333 MKVB50 CAF R1D1 # OCT 16
009926,000611: 07,2422 55045 TS DSPTEM1
009927,000612: 07,2423 32425 CAF V50N25
009928,000613: 07,2424 12351 TCF MKVB51 +3
009929,000614:
009930,000615: 07,2425 14431 V50N25 VN 5025
009931,000616: 07,2426 14600 VB51 VN 5100
009932,000617: 07,2427 4362 OCT37 = LOW5
009933,000618:
009934,000619: # PROGRAM NAME - MARKIT DATE- 19 SEPT 1967
009935,000620:
009936,000621: # CALLING SEQUENCE
009937,000622:
009938,000623: # FROM MARKRUPT IF CHAN 16 BIT 6 = 1
009939,000624:
009940,000625: # EXIT
009941,000626:
009942,000627: # RESUME
009943,000628:
009944,000629: # INPUT
009945,000630:
009946,000631: # CDUCHKWD. ALSO ALL INITIALIZATION FOR MARKCONT
009947,000632:
009948,000633: # OUTPUT
009949,000634:
009950,000635: # MKT2T1,MKCDUX,MKCDUY,MKCDUZ,MKCDUS,MKCDUT
009951,000636:
009952,000637: # ALARM EXIT
009953,000638:
009954,000639: # NONE
009955,000640:
009956,000641: 07,2427 11341 MARKIT CCS CDUCHKWD
009957,000642: 07,2430 12433 TCF +3 # DELAY OF CDUCHKWD CS IF PNZ
|
|
Page 228 |
009959,000644: 07,2431 12433 TCF +2
009960,000645: 07,2432 34714 CAF ZERO
009961,000646: 07,2433 64712 AD ONE # 10 MS IF NO CHECK
009962,000647: 07,2434 05140 TC WAITLIST
009963,000648: 07,2435 E7,1725 EBANK= MRKBUF1
009964,000649: 07,2435 02203 20067 2CADR MARKDIF
009965,000650:
009966,000651: 07,2437 15222 TCF RESUME
009967,000652:
009968,000653: 10,2000 SETLOC SXTMARK1
009969,000654: 10,2000 BANK
009970,000655:
009971,000656: 10,2203 COUNT 10/SXTMK
009972,000657:
009973,000658: # PROGRAM NAME - MARKDIF DATE- 19 SEPT 1967
009974,000659:
009975,000660: # CALLING SEQUENCE
009976,000661:
009977,000662: # WAITLIST FROM MARKIT
009978,000663:
009979,000664: # EXIT
009980,000665:
009981,000666: # TASKOVER OT IBNKCALL TO MARKCONT
009982,000667:
009983,000668: # INPUT
009984,000669:
009985,000670: # OUTPUT FROM MARKIT, INPUT TO MARKCONT, CDUCHKWD
009986,000671:
009987,000672: # OUTPUT
009988,000673:
009989,000674: # RUPTSTOR - RUPTSTOR+3, RUPTREG3, RUPTSTOR+5 - RUPTSTOR+6
009990,000675:
009991,000676: # ALARM EXIT
009992,000677:
009993,000678: # ALARM AND TASKOVER
009994,000679:
009995,000680: 10,2203 31341 MARKDIF CA CDUCHKWD # IF DELAY CHECK IS ZERO OR NEG, ACP MARK
009996,000681: 10,2204 00006 EXTEND
009997,000682: 10,2205 62216 BZMF MKACPT
009998,000683: 10,2206 44712 CS BIT1
009999,000684: 10,2207 54354 TS MKNDX # SET INDEX -1
010000,000685: 10,2210 30363 CA MKCDUX
010001,000686: 10,2211 02220 TC DIFCHK # SEE IF VEHICLE RATE TO MUCH AT MARK
010002,000687: 10,2212 30357 CA MKCDUY
010003,000688: 10,2213 02220 TC DIFCHK
010004,000689: 10,2214 30361 CA MKCDUZ
010005,000690: 10,2215 02220 TC DIFCHK
010006,000691:
010007,000692: 10,2216 04633 MKACPT TC IBNKCALL
010008,000693: 10,2217 16152 CADR MARKCONT # MARK DATA OK, WHAT DO WE DO WITH IT
010009,000694:
010010,000695: 10,2220 24354 DIFCHK INCR MKNDX # INCREMENT INDEX
010011,000696:
010012,000697: 10,2221 00006 EXTEND
010013,000698: 10,2222 50354 INDEX MKNDX
|
|
Page 229 |
010015,000700: 10,2223 20032 MSU CDUX # GET MARK(ICDU) - CURRENT(ICDU)
010016,000701: 10,2224 10000 CCS A
010017,000702: 10,2225 12231 TCF +4
010018,000703: 10,2226 00002 TC Q
010019,000704: 10,2227 12231 TCF +2
010020,000705: 10,2230 00002 TC Q
010021,000706: 10,2231 67715 AD NEG2 # SEE IF DIFFERENCE GREATER THAN 3 BITS
010022,000707: 10,2232 00006 EXTEND
010023,000708: 10,2233 62230 BZMF -3 # NOT GREATER
010024,000709:
010025,000710: 10,2234 05537 TC ALARM # COUPLED WITH PROGRAM ALARM
010026,000711: 10,2235 00121 OCT 00121
010027,000712:
010028,000713: 10,2236 15213 TCF TASKOVER # DO NOT ACCEPT
010029,000714:
End of include-file SXTMARK.agc. Parent file is MAIN.agc