Source Code
|
These source-code files are part of a reconstructed copy of Comanche 72, the
first release of the Apollo Guidance Computer (AGC) Command Module (CM) software
for Apollo 13.
They have been adapted from sources files created from a listing of Comanche 55.
These source files were updated to match binary dumps of a set of Comanche 67 rope modules.
They were then further modified by applying known changes between Comanche 67 and Comanche 72.
A binary dump of module B2 of Comanche 72, part number 2010802-021, was also used
to validate changes made to banks 05-13. The resulting code assembles to have identical
memory-bank checksums as those specified in NASA drawing 2021153G; this gives reasonably
high confidence that the changes that have been made are correct. In places where
ambiguity exists, this ambiguity is discussed in "## Reconstruction:" comments.
Since no contemporary listings of Comanche 72 are available as source material,
all comments and labels are approximate.
They have been taken from other AGC programs where possible, or, in some places, written
from scratch to match what we believe would have been in the original listing.
|
009103,000002: ## Copyright: Public domain.
009104,000003: ## Filename: SXTMARK.agc
009105,000004: ## Purpose: A section of Comanche revision 072.
009106,000005: ## It is part of the reconstructed source code for the first
009107,000006: ## release of the software for the Command Module's (CM) Apollo
009108,000007: ## Guidance Computer (AGC) for Apollo 13. No original listings
009109,000008: ## of this program are available; instead, this file was recreated
009110,000009: ## from a printout of Comanche 055, binary dumps of a set of
009111,000010: ## Comanche 067 rope modules, and changelogs between Comanche 067
009112,000011: ## and 072. It has been adapted such that the resulting bugger words
009113,000012: ## exactly match those specified for Comanche 072 in NASA drawing
009114,000013: ## 2021153G, which gives relatively high confidence that the
009115,000014: ## reconstruction is correct.
009116,000015: ## Assembler: yaYUL
009117,000016: ## Contact: Ron Burkey <info@sandroid.org>.
009118,000017: ## Website: www.ibiblio.org/apollo/index.html
009119,000018: ## Mod history: 2024-05-13 MAS Created from Comanche 067.
009120,000019:
009121,000020: # PROGRAM NAME - SXTMARK DATE - 5 APRIL 1967
009122,000021: # PROGRAM MODIFIED BY 258/278 PROGRAMMERS LOG SECTION SXTMARK
009123,000022: # MOD BY - R. MELANSON TO ADD DOCUMENTATION ASSEMBLY SUNDISK REV. 116
009124,000023: #
009125,000024: # FUNCTIONAL DESCRIPTION-
009126,000025:
009127,000026: # SXTMARK IS CALLED FROM INTERNAL ROUTINES WHICH MAY REQUIRE STAR OR LANDMARK MARKINGS BY THE ASTRONAUT. IF
009128,000027: # THE MARK SYSTEM IS NOT IN USE, SXTMARK RESERVES A VAC AREA FOR MARKING AND REQUESTS EXECUTION OF THE MKVB51
009129,000028: # ROUTINE VIA THE EXECUTIVE JOB PRIORITY LIST. R21 USES THIS ROUTINE TO DETERMINE IF THE MARK SYSTEM CAN BE
009130,000029: # USED. IF YES, SXTMARK RETURNS TO R21 TO PERFORM ITS OWN MARK REQUESTS VIA THE V51 FLASH.
009131,000030:
009132,000031: # CALLING SEQUENCE-
009133,000032:
009134,000033: # CAF (NO. MARK REQUESTS IN BITS 1-3 OF A)
009135,000034: # TC BANKCALL
009136,000035: # CADR SXTMARK
009137,000036:
009138,000037: # NORMAL EXIT MODE-
009139,000038:
009140,000039: # SWRETURN
009141,000040:
009142,000041: # ALARM OR ABORT EXIT MODE-
009143,000042:
009144,000043: # ABORT
009145,000044:
009146,000045: # OUTPUT-
009147,000046:
009148,000047: # 1) MARKSTAT CONTAINS MARK VALUE (BITS 14-12) AND VAC AREA ADDRESS
009149,000048: # 2) QPRET = VAC AREA POINTER VALUE
009150,000049: # 3) 1ST WORD OF RESERVED VAC AREA SET TO +0
009151,000050: # 4) PRIO32 PLACED IN A REGISTER
009152,000051:
009153,000052: # ERASABLE INITIALIZATION-
009154,000053:
009155,000054: # 1) BITS 1-3 OF A = NO. MARKS REQUESTED
009156,000055: # 2) BITS 2,3 OF EXTVBACT = 0
009157,000056: # 3) A VAC AREA MUST BE AVAILABLE (WORD 1 = ADDRESS OF VAC AREA)
009158,000057:
009159,000058: # DEBRIS-
009160,000059:
009161,000060: # A,Q,L,RUPTREG1,MARKSTAT,QPRET,BIT2 OF EXTVBACT
009162,000061:
009163,000062: 13,2036 BANK 13
009164,000063: 07,2000 SETLOC SXTMARKE
009165,000064: 07,2000 BANK
009166,000065:
009167,000066: 07,2002 E7,1725 EBANK= MRKBUF1
009168,000067: 07,2002 COUNT 07/SXTMK
009169,000068:
009170,000069: 07,2002 00004 SXTMARK INHINT
009171,000070: 07,2003 54070 TS RUPTREG1 # NUMBER OF MARKS WANTED
009172,000071:
009173,000072: 07,2004 36211 CAF SIX # BIT2 = MARKING SYSTEM IN USE
009174,000073: 07,2005 71044 MASK EXTVBACT # BIT3 = EXTENDED VERB IN PROGRESS
009175,000074: 07,2006 10000 CCS A
009176,000075: 07,2007 02013 TC MKABORT # SET THEREFORE ABORT
009177,000076: 07,2010 35032 CAF BIT2 # NOT SET
009178,000077: 07,2011 27044 ADS EXTVBACT # SET IT, RESET IN ENDMARK
009179,000078: 07,2012 02015 TC MARKOK # YES, FIND VAC AREA
009180,000079:
009181,000080: 07,2013 07755 MKABORT TC BAILOUT
009182,000081: 07,2014 31211 OCT 31211
009183,000082: 07,2015 10400 MARKOK CCS VAC1USE # FIND VAC AREA
009184,000083: 07,2016 02031 TC MKVACFND
009185,000084: 07,2017 10454 CCS VAC2USE
009186,000085: 07,2020 02031 TC MKVACFND
009187,000086: 07,2021 10530 CCS VAC3USE
009188,000087: 07,2022 02031 TC MKVACFND
009189,000088: 07,2023 10604 CCS VAC4USE
009190,000089: 07,2024 02031 TC MKVACFND
009191,000090: 07,2025 10660 CCS VAC5USE
009192,000091: 07,2026 02031 TC MKVACFND
009193,000092: 07,2027 07755 TC BAILOUT
009194,000093: 07,2030 31207 OCT 31207
009195,000094:
009196,000095: 07,2031 65032 MKVACFND AD TWO # ADDRESS OF VAC AREA
009197,000096: 07,2032 55330 TS MARKSTAT
009198,000097: 07,2033 50000 INDEX A
009199,000098: 07,2034 54052 TS QPRET # STORE NEXT AVAILABLE MARK SLOT
009200,000099:
009201,000100: 07,2035 35035 CAF ZERO # SHOW VAC AREA OCCUPIED
009202,000101: 07,2036 51330 INDEX MARKSTAT
009203,000102: 07,2037 53777 TS 0 -1
009204,000103:
009205,000104: 07,2040 05400 TC CHECKMM # BACKUP MARK ROUTINE USES SXTMARK
009206,000105: 07,2041 00065 MM 53 B-14
009207,000106: 07,2042 12044 TCF +2
009208,000107: 07,2043 14711 TCF SWRETURN
009209,000108: 07,2044 05400 TC CHECKMM
009210,000109: 07,2045 00066 MM 54 B-14
009211,000110: 07,2046 12050 TCF +2
009212,000111: 07,2047 14711 TCF SWRETURN
009213,000112: 07,2050 35020 CAF BIT12 # DESIRED NUMBER OF MARKS IN 12-14
009214,000113: 07,2051 00006 EXTEND
009215,000114: 07,2052 70070 MP RUPTREG1
009216,000115: 07,2053 56001 XCH L
009217,000116: 07,2054 27330 ADS MARKSTAT
009218,000117:
009219,000118: 07,2055 37667 CAF PRIO32 # ENTER MARK JOB
009220,000119: 07,2056 05150 TC NOVAC
009221,000120: 07,2057 1330 EBANK= MARKSTAT
009222,000121: 07,2057 02347 16062 2CADR MKVB51
009223,000122:
009224,000123: 07,2061 00003 RELINT
009225,000124: 07,2062 14711 TCF SWRETURN # SAME AS MODEEXIT
009226,000125:
009227,000126: # PROGRAM NAME - MKRELEAS DATE - 5 APRIL 1967
009228,000127: # PROGRAM MODIFIED BY 258/278 PROGRAMMERS LOG SECTION SXTMARK
009229,000128: # MOD BY - R. MELANSON TO ADD DOCUMENTATION ASSEMBLY SUNDISK REV. 116
009230,000129:
009231,000130: # FUNCTIONAL DESCRIPTION-
009232,000131:
009233,000132: # MKRELEAS IS EXECUTED BY INTERNAL ROUTINES TO RELEASE THE MARK SYSTEM TO MAKE IT AVAILABLE TO OTHER INTERNAL
009234,000133: # SYSTEM ROUTINES. IT ALSO CLEARS THE COARSE OPTICS FLAG BIT AND DISABLES THE OPTICS ERROR COUNTER.
009235,000134:
009236,000135: # CALLING SEQUENCE-
009237,000136:
009238,000137: # TC BANKCALL
009239,000138: # CADR MKRELEAS
009240,000139:
009241,000140: # NORMAL EXIT MODE-
009242,000141:
009243,000142: # SWRETURN
009244,000143:
009245,000144: # ALARM OR ABORT EXIT MODE- NONE
009246,000145:
009247,000146: # OUTPUT-
009248,000147:
009249,000148: # 1) BIT9 OPTMODES SET TO 0
009250,000149: # 2) OPTIND SET TO -1
009251,000150: # 3) 1ST WORD OF VAC AREA SET TO VAC ADDRESS TO SIGNIFY AVAILABILITY.
009252,000151: # 4) MARKSTAT CLEARED
009253,000152: # 5) BIT2 CHANNEL 12 SET TO 0
009254,000153:
009255,000154: # ERASABLE INITIALIZATION- NONE
009256,000155:
009257,000156: # DEBRIS-
009258,000157:
009259,000158: # A,MARKSTAT,BIT9 OPTMODES,OPTIND,BIT2 CHANNEL 12
009260,000159:
009261,000160: 07,2063 35035 MKRELEAS CAF ZERO # SHOW MARK SYSTEM NOW AVAILABLE
009262,000161: 07,2064 57330 XCH MARKSTAT
009263,000162: 07,2065 75062 MASK LOW9
009264,000163: 07,2066 10000 CCS A
009265,000164: 07,2067 50000 INDEX A
009266,000165: 07,2070 54000 TS 0
009267,000166: 07,2071 00004 MKRLEES INHINT
009268,000167: 07,2072 45023 CS BIT9 # COARSE OPTICS RETURN FLAG.
009269,000168: 07,2073 71331 MASK OPTMODES
009270,000169: 07,2074 55331 TS OPTMODES
009271,000170:
009272,000171: 07,2075 37716 CA NEGONE
009273,000172: 07,2076 55303 TS OPTIND # KILL COARS OPTICS
009274,000173:
009275,000174: 07,2077 45032 CS BIT2 # DISABLE OPTICS ERROR COUNTER
009276,000175: 07,2100 00006 EXTEND
009277,000176: 07,2101 03012 WAND CHAN12
009278,000177:
009279,000178: 07,2102 00003 RELINT
009280,000179: 07,2103 04711 TC SWRETURN
009281,000180: # PROGRAM NAME - MARKRUPT DATE - 5 APRIL 1967
009282,000181: # PROGRAM MODIFIED BY 258/278 PROGRAMMERS LOG SECTION SXTMARK
009283,000182: # MOD BY - R. MELANSON TO ADD DOCUMENTATION ASSEMBLY SUNDISK REV. 116
009284,000183:
009285,000184: # FUNCTIONAL DESCRIPTION-
009286,000185: # MARKRUPT STORES CDUS,OPTICS AND TIME AND TRANSFERS CONTROL TO THE MARKIT,MARK REJECT OR KEYCOM ROUTINES IF
009287,000186: # BITS IN CHANNEL 16 ARE SET AS REQUIRED.
009288,000187:
009289,000188: # CALLING SEQUENCE-
009290,000189: # ROUTINE ENTERED VIA KEYRUPT2 WHEN MARK,MARK REJECT OR DSKY KEYS DEPRESSED BY THE OPERATOR.
009291,000190:
009292,000191: # NORMAL EXIT MODE-
009293,000192: # MARKIT, MKREJECT OR POSTJUMP ROUTINES (MARK, MARK REJECT OR DSKY CODE)
009294,000193:
009295,000194: # ALARM OR ABORT EXIT MODE-
009296,000195: # ALARM AND RESUME
009297,000196:
009298,000197: # OUTPUT-
009299,000198: # RUPTSTOR+5 = CDUT, RUPTSTOR+3 = CDUS, RUPTSTOR+2 = CDUY,
009300,000199: # RUPTREG3 = CDUZ, RUPTSTOR+6 = CDUX, RUPTSTOR+1 AND SAMPTIME+1 = TIME1,
009301,000200: # RUPTSTOR AND SAMPTIME = TIME2
009302,000201:
009303,000202: # ERASABLE INITIALIZATION-
009304,000203: # CDUT,CDUS,CDUY,CDUZ,CDUX,TIME2,TIME1,CHANNEL 16 BITS 6,7 OR 1-5
009305,000204:
009306,000205: # DEBRIS-
009307,000206: # A,QRUPT,RUPTREG3,SAMPTIME,SAMPTIME+1,RUPTSTOR TO RUPTSTOR+6 EXCEPT RUPTSTOR+4 (LOCATION 67)
009308,000207:
009309,000208: 07,2104 54016 MARKRUPT TS BANKRUPT # STORE CDUS AND OPTICS NOW
009310,000209: 07,2105 30035 CA CDUT
009311,000210: 07,2106 54361 TS MKCDUT
009312,000211: 07,2107 30036 CA CDUS
009313,000212: 07,2110 54357 TS MKCDUS
009314,000213: 07,2111 30033 CA CDUY
009315,000214: 07,2112 54356 TS MKCDUY
009316,000215: 07,2113 30034 CA CDUZ
009317,000216: 07,2114 54360 TS MKCDUZ
009318,000217: 07,2115 30032 CA CDUX
009319,000218: 07,2116 54362 TS MKCDUX
009320,000219: 07,2117 00006 EXTEND
009321,000220: 07,2120 30025 DCA TIME2 # GET TIME
009322,000221: 07,2121 52355 DXCH MKT2T1
009323,000222: 07,2122 00006 EXTEND
009324,000223: 07,2123 30355 DCA MKT2T1
009325,000224: 07,2124 52014 DXCH SAMPTIME # RUPT TIME FOR NOUN 65.
009326,000225:
009327,000226: 07,2125 56002 XCH Q
009328,000227: 07,2126 54012 TS QRUPT
009329,000228:
009330,000229: 07,2127 35026 CAF BIT6 # SEE IF MARK OR MKREJECT
009331,000230: 07,2130 00006 EXTEND
009332,000231: 07,2131 02016 RAND NAVKEYIN
009333,000232: 07,2132 10000 CCS A
009334,000233: 07,2133 02430 TC MARKIT # ITS A MARK
009335,000234:
009336,000235: 07,2134 35025 CAF BIT7 # NOT A MARK, SEE IF MKREJECT
009337,000236: 07,2135 00006 EXTEND
009338,000237: 07,2136 02016 RAND NAVKEYIN
009339,000238: 07,2137 10000 CCS A
009340,000239: 07,2140 02301 TC MKREJECT # ITS A MARK REJECT
009341,000240:
009342,000241: 07,2141 34362 KEYCALL CAF OCT37 # NOT MARK OR MKREJECT, SEE IF KEYCODE
009343,000242: 07,2142 00006 EXTEND
009344,000243: 07,2143 02016 RAND NAVKEYIN
009345,000244: 07,2144 00006 EXTEND
009346,000245: 07,2145 12150 BZF +3 # IF NO INBITS
009347,000246: 07,2146 04715 TC POSTJUMP
009348,000247: 07,2147 17702 CADR KEYCOM # IT,S A KEY CODE, NOT A MARK.
009349,000248:
009350,000249: 07,2150 05664 +3 TC ALARM # ALARM IF NO INBITS
009351,000250: 07,2151 00113 OCT 113
009352,000251: 07,2152 05347 TC RESUME
009353,000252:
009354,000253: # PROGRAM NAME - MARKCONT DATE - 19 SEPT 1967
009355,000254: # PROGRAM MODIFIED BY 258/278 PROGRAMMERS LOG SECTION SXTMARK
009356,000255: # MOD BY - R. MELANSON TO ADD DOCUMENTATION ASSEMBLY SUNDISK REV. 116
009357,000256:
009358,000257: # FUNCTIONAL DESCRIPTION-
009359,000258: # MARKCONT IS USED TO PERFORM A SPECIAL MARK FUNCTION FOR R21, TO EXECUTE A SPECIAL DISPLAY OF OPTICS AND TIME OR
009360,000259: # TO PERFORM A MARK OF A STAR OR LAND SIGHTING BASED UPON FLASHING V-N.
009361,000260:
009362,000261: # CALLING SEQUENCE-
009363,000262:
009364,000263: # FROM MARKDIF
009365,000264:
009366,000265: # NORMAL EXIT MODE-
009367,000266: # TASKOVER
009368,000267:
009369,000268: # ALARM OR ABORT EXIT MODE-
009370,000269: # ALARM AND TASKOVER
009371,000270:
009372,000271: # OUTPUT-
009373,000272: # 1) FOR R21-
009374,000273: # EBANK=EBANK7
009375,000274: # MRKBUF1 TO MRKBUF1+6 = TIME2,TIME1,CDUY,OPTICX,CDUZ,OPTICSY,CDUX OF CURRENT R21 MARK FUNCTION.
009376,000275: # MRKBUF2 TO MRKBUF2+6 CONTAINS PREVIOUS R21 MARK VALUES.
009377,000276: # 2) FOR SPECIAL DISPLAY JOB-
009378,000277: # RUPTREG1 AND MRKBUF1 = CDUS,RUPTREG2 AND MRKBUF1+1 = CDUT.
009379,000278: # RUPTREG3 AND MRKBUF1+2 = TIME2,RUPTREG4 AND MRKBUF1+3 = TIME1
009380,000279: # 3) FOR NORMAL MARKING-
009381,000280: # DECREMENT BITS14-12 OF MARKSTAT BY 1,
009382,000281: # BIT10 MARKSTAT SET TO 1, INCREMENT QPRET BY 7,
009383,000282: # STORE TIME2,TIME1,CDUY,CDUS,CDUZ,CDUT AND CDUX IN VAC+1 TO VAC+7
009384,000283:
009385,000284: # ERASABLE INITIALIZATION-
009386,000285: # 1) FOR R21-
009387,000286: # BIT14 OF STATE+2 =1, MRKBUF1 TO MRKBUF1+6, ITEMP1, RUPTREG3,
009388,000287: # RUPTSTOR TO RUPTSTOR+6 EXCEPT RUPTSTOR+4
009389,000288: # 2) FOR SPECIAL DISPLAY JOB-
009390,000289: # BIT14 OF STATE+2 =0, MARKSTAT =+0, RUPTREG1,RUPTREG2,RUPTREG3
009391,000290: # RUPTREG4,RUPTSTOR,RUPTSTOR+1,RUPTSTOR+3,RUPTSTOR+5,
009392,000291: # BIT12 OF STATE+5 (V59 FLAG), MRKBUF1 THRU MRKBUF1+3
009393,000292: # 3) FOR NORMAL MARKING-
009394,000293: # BIT14 OF STATE+2 =0, MARKSTAT =VAC ADDRESS,A REG,ITEMP1,RUPTREG3,
009395,000294: # RUPTSTOR TO RUPTSTOR+6 EXCEPT RUPTSTOR+4
009396,000295:
009397,000296: # DEBRIS-
009398,000297: # 1) FOR R21-
009399,000298: # A, ITEMP1, MRKBUF1, MRKBUF2
009400,000299: # 2) FOR SPECIAL DISPLAY JOB-
009401,000300: # A,RUPTREG1,RUPTREG2,RUPTREG3,RUPTREG4,MPAC TO MPAC+3
009402,000301: # 3) FOR NORMAL MARKING-
009403,000302: # A,MARKSTAT,ITEMP1,QPRET,VAC+1 TO VAC+7 OF VAC AREA IN USE
009404,000303:
009405,000304: 07,2153 35016 MARKCONT CAF BIT14
009406,000305: 07,2154 70076 MASK STATE +2 # R21 MARK (SPECIAL MARKING FOR R21)
009407,000306: 07,2155 00006 EXTEND
009408,000307: 07,2156 12170 BZF MARKET # NOT SET THEREFORE REGULAR MARKING
009409,000308: 07,2157 36211 MARKIT1 CAF SIX # SPECIAL FOR R21
009410,000309: 07,2160 05622 TC GENTRAN # TRANSFER MRKBUF1 TO MRKBUF2
009411,000310: 07,2161 01725 ADRES MRKBUF1
009412,000311: 07,2162 01734 ADRES MRKBUF2
009413,000312:
009414,000313: 07,2163 36211 CAF SIX # TRANSFER CURRENT MARK DATA TO MARKBUF1
009415,000314: 07,2164 05622 TC GENTRAN
009416,000315: 07,2165 00354 ADRES MKT2T1
009417,000316: 07,2166 01725 ADRES MRKBUF1
009418,000317:
009419,000318: 07,2167 15340 TCF TASKOVER
009420,000319:
009421,000320: 07,2170 11330 MARKET CCS MARKSTAT # SEE IF MARKS CALLED FOR
009422,000321: 07,2171 02225 TC MARK2 # COLLECT MARKS
009423,000322:
009424,000323: 07,2172 35032 CAF TWO # IS MARKING SYSTEM IN USE (BIT2)
009425,000324: 07,2173 71044 MASK EXTVBACT
009426,000325: 07,2174 00006 EXTEND
009427,000326: 07,2175 12217 BZF MARKET3 # MARKING NOT CALLED FOR
009428,000327: 07,2176 35020 CAF BIT12
009429,000328: 07,2177 70101 MASK STATE +5 # V59FLAG
009430,000329: 07,2200 00006 EXTEND
009431,000330: 07,2201 12217 BZF MARKET3 # IF V59FLAG NOT SET-MARK UNCALLED FOR
009432,000331: 07,2202 35075 CAF PRIO5 # CALIBRATION MARK (SET) FOR P23
009433,000332: 07,2203 05150 TC NOVAC # SPECIAL DISPLAY JOB
009434,000333: 07,2204 E7,1725 EBANK= MRKBUF1
009435,000334: 07,2204 02437 76067 2CADR MARKDISP
009436,000335:
009437,000336: 07,2206 36211 CAF SIX
009438,000337: 07,2207 05622 TC GENTRAN # TRANSFER MARK DATA TO MARKDOWN
009439,000338: 07,2210 00354 ADRES MKT2T1
009440,000339: 07,2211 01674 ADRES MARKDOWN
009441,000340: 07,2212 36211 CAF SIX
009442,000341: 07,2213 05622 TC GENTRAN # TRANSFER MARK DATA TO MRKBUF1 FOR
009443,000342: 07,2214 00354 ADRES MKT2T1 # SPECIAL DISPLAY OF SHAFT AND TRUNNION
009444,000343: 07,2215 01725 ADRES MRKBUF1 # IF V59 ACTING
009445,000344: 07,2216 15340 TCF TASKOVER
009446,000345: 07,2217 05664 MARKET3 TC ALARM
009447,000346: 07,2220 00122 OCT 122 # MARKING NOT CALLED FOR
009448,000347: 07,2221 15340 TCF TASKOVER
009449,000348: 07,2222 05664 114ALM TC ALARM # MARK NOT WANTED
009450,000349: 07,2223 00114 OCT 114
009451,000350: 07,2224 15340 TCF TASKOVER
009452,000351:
009453,000352: # STORE MARK DATA IN MKVAC AND INCREMENT POINTER
009454,000353:
009455,000354: 07,2225 67711 MARK2 AD 74K # SEE IF MARKS WANTED-REDUCE MARKS WANTED
009456,000355: 07,2226 00006 EXTEND
009457,000356: 07,2227 62222 BZMF 114ALM # MARK NOT WANTED-ALARM
009458,000357: 07,2230 55330 TS MARKSTAT
009459,000358: 07,2231 40000 COM
009460,000359: 07,2232 75022 MASK BIT10 # SET BIT10 TO ENABLE REJECT
009461,000360: 07,2233 27330 ADS MARKSTAT
009462,000361:
009463,000362: 07,2234 75062 MASK LOW9
009464,000363: 07,2235 54061 TS ITEMP1
009465,000364: 07,2236 50000 INDEX A
009466,000365: 07,2237 56052 XCH QPRET # PICK UP MARK SLOT-POINTER
009467,000366: 07,2240 54062 TS ITEMP2 # SAVE CURRENT POINTER
009468,000367: 07,2241 65037 AD SEVEN # INCREMENT POINTER
009469,000368: 07,2242 50061 INDEX ITEMP1
009470,000369: 07,2243 54052 TS QPRET # STORE ADVANCED POINTER
009471,000370:
009472,000371: 07,2244 00006 VACSTOR EXTEND
009473,000372: 07,2245 30355 DCA MKT2T1
009474,000373: 07,2246 50062 INDEX ITEMP2
009475,000374: 07,2247 52001 DXCH 0
009476,000375: 07,2250 30356 CA MKCDUY
009477,000376: 07,2251 50062 INDEX ITEMP2
009478,000377: 07,2252 54002 TS 2
009479,000378: 07,2253 30357 CA MKCDUS
009480,000379: 07,2254 50062 INDEX ITEMP2
009481,000380: 07,2255 54003 TS 3
009482,000381: 07,2256 30360 CA MKCDUZ
009483,000382: 07,2257 50062 INDEX ITEMP2
009484,000383: 07,2260 54004 TS 4
009485,000384: 07,2261 30361 CA MKCDUT
009486,000385: 07,2262 50062 INDEX ITEMP2
009487,000386: 07,2263 54005 TS 5
009488,000387: 07,2264 30362 CA MKCDUX
009489,000388: 07,2265 50062 INDEX ITEMP2
009490,000389: 07,2266 54006 TS 6
009491,000390:
009492,000391: 07,2267 37671 CAF PRIO34 # IF ALL MARKS MADE FLASH VB50
009493,000392: 07,2270 71330 MASK MARKSTAT
009494,000393: 07,2271 00006 EXTEND
009495,000394: 07,2272 12274 BZF +2
009496,000395: 07,2273 15340 TCF TASKOVER
009497,000396: 07,2274 37667 CAF PRIO32
009498,000397: 07,2275 05150 TC NOVAC
009499,000398: 07,2276 1330 EBANK= MARKSTAT
009500,000399: 07,2276 02422 16062 2CADR MKVB50
009501,000400:
009502,000401: 07,2300 15340 TCF TASKOVER
009503,000402:
009504,000403: # PROGRAM NAME - MKREJECT DATE - 5 APRIL 1967
009505,000404: # PROGRAM MODIFIED BY 258/278 PROGRAMMERS LOG SECTION SXTMARK
009506,000405: # MOD BY - R. MELANSON TO ADD DOCUMENTATION ASSEMBLY SUNDISK REV. 116
009507,000406:
009508,000407: # FUNCTIONAL DESCRIPTION-
009509,000408: # ROUTINE ALLOWS OPERATOR TO REJECT MARK MADE PRIOR TO ACCEPTANCE AND ALLOWS A NEW MARK TO BE MADE BY ASTRONAUT
009510,000409:
009511,000410: # CALLING SEQUENCE-
009512,000411: # FROM MARKRUPT IF BIT7 OF CHANNEL 16 IS 1.
009513,000412:
009514,000413: # NORMAL EXIT MODE-
009515,000414: # RESUME
009516,000415:
009517,000416: # ALARM OR ABORT EXIT MODE-
009518,000417: # ALARM AND RESUME
009519,000418:
009520,000419: # OUTPUT-
009521,000420: # 1) FOR R21-
009522,000421: # MRKBUF1 SET TO -1
009523,000422: # 2) FOR NORMAL MARKING-
009524,000423: # BIT10 MARKSTAT =0, INCREMENT NO. MARKS BY 1, DECREMENT QPRET BY 7
009525,000424:
009526,000425: # ERASABLE INITIALIZATION-
009527,000426: # 1) FOR R21-
009528,000427: # BIT14 OF STATE+2 SET TO 1
009529,000428: # 2) FOR NORMAL MARKING-
009530,000429: # BIT14 OF STATE+2 SET TO 0, MARKSTAT,QPRET
009531,000430:
009532,000431: # DEBRIS-
009533,000432: # 1) FOR R21-
009534,000433: # A,MARKSTAT,EBANK
009535,000434: # 2) FOR NORMAL MARKING-
009536,000435: # A,MARKSTAT,ITEMP1,QPRET
009537,000436:
009538,000437: 07,2301 35016 MKREJECT CAF BIT14
009539,000438: 07,2302 70076 MASK STATE +2 # R21 MARK (SPECIAL MARKING FOR R21)
009540,000439: 07,2303 00006 EXTEND
009541,000440: 07,2304 12310 BZF MRKREJCT # NOT SET THEREFORE REGULAR REJECT
009542,000441: 07,2305 37716 CA NEGONE # -1 (FOR R22)
009543,000442: 07,2306 55725 TS MRKBUF1 # -0 IN TIME IS FLAG TO R22 SIGNIFYING A
009544,000443: 07,2307 05347 TC RESUME # REJECTED MARK
009545,000444: 07,2310 11330 MRKREJCT CCS MARKSTAT # SEE IF MARKS BEING ACCEPTED
009546,000445: 07,2311 02315 TC REJECT2
009547,000446: 07,2312 05664 TC ALARM # MARKS NOT BEING ACCEPTED
009548,000447: 07,2313 00112 OCT 112
009549,000448: 07,2314 05347 TC RESUME
009550,000449:
009551,000450: 07,2315 45022 REJECT2 CS BIT10 # SEE IF MARK HAD BEEN MADE SINCE LAST
009552,000451: 07,2316 71330 MASK MARKSTAT # REJECT, AND SET BIT10 TO ZERO TO
009553,000452: 07,2317 57330 XCH MARKSTAT # SHOW MARK REJECT
009554,000453: 07,2320 75022 MASK BIT10
009555,000454: 07,2321 10000 CCS A
009556,000455: 07,2322 02326 TC REJECT3
009557,000456:
009558,000457: 07,2323 05664 TC ALARM # DONT ACCEPT TWO REJECTS TOGETHER
009559,000458: 07,2324 00110 OCT 110
009560,000459: 07,2325 05347 TC RESUME
009561,000460:
009562,000461: 07,2326 35062 REJECT3 CAF LOW9 # DECREMENT POINTER TO REJECT MARK
009563,000462: 07,2327 71330 MASK MARKSTAT
009564,000463: 07,2330 54061 TS ITEMP1
009565,000464: 07,2331 45037 CS SEVEN
009566,000465: 07,2332 50061 INDEX ITEMP1
009567,000466: 07,2333 26052 ADS QPRET # NEW POINTER
009568,000467:
009569,000468: 07,2334 35020 CAF BIT12 # INCREMENT MARKS WANTED AND IF FIELD
009570,000469: 07,2335 61330 AD MARKSTAT # IS NOW NON-ZERO, CHANGE TO VB51 TO
009571,000470: 07,2336 57330 XCH MARKSTAT # INDICATE MORE MARKS WANTED
009572,000471: 07,2337 77671 MASK PRIO34 # INDICATE MORE MARKS WANTED
009573,000472: 07,2340 10000 CCS A
009574,000473: 07,2341 05347 TC RESUME
009575,000474: 07,2342 37667 CAF PRIO32
009576,000475: 07,2343 05150 TC NOVAC
009577,000476: 07,2344 1330 EBANK= MARKSTAT
009578,000477: 07,2344 02347 16062 2CADR MKVB51
009579,000478:
009580,000479: 07,2346 05347 TC RESUME
009581,000480:
009582,000481: # PROGRAM DESCRIPTION MKVB51 AND MKVB50
009583,000482:
009584,000483: # AUTHOR-BARNERT DATE-2-15-67 MOD-0
009585,000484: # PURPOSE FLASH V51N70,V51N43, OR V51 TO REQUEST MARKING,
009586,000485: # AND V50N25 R1=16 TO REQUEST TERMINATE MARKING
009587,000486:
009588,000487: # CALLING SEQUENCE AS JOB WITHIN SXTMARK
009589,000488:
009590,000489: # EXIT TO ENDMARK UPON RECEIPT OF V33, V34 CAUSES GOTOPOOH, ENTER
009591,000490: # RECYCLES THE DISPLAY
009592,000491:
009593,000492: # NOTE- SXTMARK AUTOMATICALLY CHANGES FROM CALLING MKVB51 TO MKVB50 WHEN
009594,000493: # SUFFICIENT MARKS HAVE BEEN MADE, AND THE REVERSE WHEN A MARK
009595,000494: # REJECT REDUCES THE NUMBER MADE BELOW THAT REQUIRED
009596,000495:
009597,000496: # SUBROUTINES CALLED- BANKCALL, GOMARK2, GOODEND, ENDMARK, WAITLIST
009598,000497:
009599,000498: # ALARM OR ABORT MODES - NONE
009600,000499:
009601,000500: # ERASABLE USED-VERBREG,MARKSTAT,QPRET,DSPTEM1
009602,000501:
009603,000502: # OUTPUT MARKSTAT = VAC ADDRESS
009604,000503:
009605,000504: # QPRET = NO. MARKS
009606,000505:
009607,000506: 07,2347 04676 MKVB51 TC BANKCALL # CLEAR DISPLAY FOR MARK VERB
009608,000507: 07,2350 20560 CADR KLEENEX
009609,000508: 07,2351 32427 CAF VB51 # DISPLAY MARK VB51
009610,000509: 07,2352 04676 TC BANKCALL
009611,000510: 07,2353 20572 CADR GOMARK4
009612,000511: 07,2354 12357 TCF TERMSXT # VB34-TERMINATE
009613,000512: 07,2355 12370 TCF ENTANSWR # V33-PROCEED-MARKING DONE
009614,000513: 07,2356 12416 TCF MKVB5X # ENTER-RECYCLE TO INITIAL MARK DISPLAY
009615,000514:
009616,000515: 07,2357 05552 TERMSXT TC CLEARMRK # CLEAR MARK ACTIVITY.
009617,000516:
009618,000517: 07,2360 05400 TC CHECKMM
009619,000518: 07,2361 00003 MM 03 B-14
009620,000519: 07,2362 12364 TCF +2
009621,000520: 07,2363 02366 TC TERMP03
009622,000521: 07,2364 04715 TC POSTJUMP
009623,000522: 07,2365 30207 CADR TERM52
009624,000523:
009625,000524: 07,2366 05562 TERMP03 TC UPFLAG
009626,000525: 07,2367 00032 ADRES TRM03FLG
009627,000526: 07,2370 35062 ENTANSWR CAF LOW9 # PUT VAC ADR IN MARKSTAT AND NO. OF
009628,000527: 07,2371 71330 MASK MARKSTAT # MARKS MADE IN QPRET BEFORE LEAVING
009629,000528: 07,2372 55330 TS MARKSTAT # SXTMARK
009630,000529: 07,2373 40000 COM
009631,000530: 07,2374 51330 INDEX MARKSTAT
009632,000531: 07,2375 60052 AD QPRET
009633,000532: 07,2376 00006 EXTEND
009634,000533: 07,2377 62403 BZMF JAMIT # NO MARKS MADE, SHOW IT IN QPRET, R53
009635,000534: 07,2400 00006 EXTEND # WILL PICK IT UP AND RECYCLE
009636,000535: 07,2401 75020 MP BIT12 # THIS PUTS NUMBER MARKS-1 IN A
009637,000536: 07,2402 65033 AD ONE
009638,000537: 07,2403 51330 JAMIT INDEX MARKSTAT # STORE NO OF MARKS MADE
009639,000538: 07,2404 54052 TS QPRET
009640,000539: 07,2405 00004 INHINT # SERVICE OPTSTALL INTERFACE WITH
009641,000540: 07,2406 35036 CAF FIVE
009642,000541: 07,2407 05261 TC WAITLIST
009643,000542: 07,2410 1330 EBANK= MARKSTAT
009644,000543: 07,2410 02413 16062 2CADR ENDMARKS
009645,000544:
009646,000545: 07,2412 05550 TC ENDMARK # KNOCKS DOWN MARKING FLAG + DOES ENDOFJOB
009647,000546:
009648,000547: 07,2413 35033 ENDMARKS CAF ONE
009649,000548: 07,2414 04754 TC IBNKCALL
009650,000549: 07,2415 17550 CADR GOODEND
009651,000550: 07,2416 37671 MKVB5X CAF PRIO34
009652,000551: 07,2417 71330 MASK MARKSTAT # RE-DISPLAY VB51 IF MORE MARKS WANTED
009653,000552: 07,2420 10000 CCS A # AND VB50 IF ALL IN
009654,000553: 07,2421 12347 TCF MKVB51
009655,000554: 07,2422 34333 MKVB50 CAF R1D1 # OCT 16
009656,000555: 07,2423 55045 TS DSPTEM1
009657,000556: 07,2424 32426 CAF V50N25
009658,000557: 07,2425 12352 TCF MKVB51 +3
009659,000558:
009660,000559: 07,2426 14431 V50N25 VN 5025
009661,000560: 07,2427 14600 VB51 VN 5100
009662,000561: 07,2430 4362 OCT37 = LOW5
009663,000562:
009664,000563: # PROGRAM NAME - MARKIT DATE - 19 SEPT 1967
009665,000564:
009666,000565: # CALLING SEQUENCE
009667,000566: # FROM MARKRUPT IF CHAN 16 BIT 6 = 1
009668,000567:
009669,000568: # EXIT
009670,000569: # RESUME
009671,000570:
009672,000571: # INPUT
009673,000572: # CDUCHKWD. ALSO ALL INITIALIZATION FOR MARKCONT
009674,000573:
009675,000574: # OUTPUT
009676,000575: # MKT2T1,MKCDUX,MKCDUY,MKCDUZ,MKCDUS,MKCDUT
009677,000576:
009678,000577: # ALARM EXIT
009679,000578: # NONE
009680,000579:
009681,000580: 07,2430 11341 MARKIT CCS CDUCHKWD
009682,000581: 07,2431 12434 TCF +3 # DELAY OF CDUCHKWD CS IF PNZ
009683,000582: 07,2432 12434 TCF +2
009684,000583: 07,2433 35035 CAF ZERO
009685,000584: 07,2434 65033 AD ONE # 10 MS IF NO CHECK
009686,000585: 07,2435 05261 TC WAITLIST
009687,000586: 07,2436 E7,1725 EBANK= MRKBUF1
009688,000587: 07,2436 02203 20067 2CADR MARKDIF
009689,000588:
009690,000589: 07,2440 15347 TCF RESUME
009691,000590:
009692,000591: 10,2000 SETLOC SXTMARK1
009693,000592: 10,2000 BANK
009694,000593:
009695,000594: 10,2203 COUNT 10/SXTMK
009696,000595:
009697,000596: # PROGRAM NAME - MARKDIF DATE- 19 SEPT 1967
009698,000597:
009699,000598: # CALLING SEQUENCE
009700,000599: # WAITLIST FROM MARKIT
009701,000600:
009702,000601: # EXIT
009703,000602: # TASKOVER OT IBNKCALL TO MARKCONT
009704,000603:
009705,000604: # INPUT
009706,000605: # OUTPUT FROM MARKIT, INPUT TO MARKCONT, CDUCHKWD
009707,000606:
009708,000607: # OUTPUT
009709,000608: # RUPTSTOR - RUPTSTOR+3, RUPTREG3, RUPTSTOR+5 - RUPTSTOR+6
009710,000609:
009711,000610: # ALARM EXIT
009712,000611: # ALARM AND TASKOVER
009713,000612:
009714,000613: 10,2203 31341 MARKDIF CA CDUCHKWD # IF DELAY CHECK IS ZERO OR NEG, ACP MARK
009715,000614: 10,2204 00006 EXTEND
009716,000615: 10,2205 62216 BZMF MKACPT
009717,000616: 10,2206 45033 CS BIT1
009718,000617: 10,2207 54353 TS MKNDX # SET INDEX -1
009719,000618: 10,2210 30362 CA MKCDUX
009720,000619: 10,2211 02220 TC DIFCHK # SEE IF VEHICLE RATE TO MUCH AT MARK
009721,000620: 10,2212 30356 CA MKCDUY
009722,000621: 10,2213 02220 TC DIFCHK
009723,000622: 10,2214 30360 CA MKCDUZ
009724,000623: 10,2215 02220 TC DIFCHK
009725,000624:
009726,000625: 10,2216 04754 MKACPT TC IBNKCALL
009727,000626: 10,2217 16153 CADR MARKCONT # MARK DATA OK, WHAT DO WE DO WITH IT
009728,000627:
009729,000628: 10,2220 24353 DIFCHK INCR MKNDX # INCREMENT INDEX
009730,000629:
009731,000630: 10,2221 00006 EXTEND
009732,000631: 10,2222 50353 INDEX MKNDX
009733,000632: 10,2223 20032 MSU CDUX # GET MARK(ICDU) - CURRENT(ICDU)
009734,000633: 10,2224 10000 CCS A
009735,000634: 10,2225 12231 TCF +4
009736,000635: 10,2226 00002 TC Q
009737,000636: 10,2227 12231 TCF +2
009738,000637: 10,2230 00002 TC Q
009739,000638: 10,2231 67715 AD NEG2 # SEE IF DIFFERENCE GREATER THAN 3 BITS
009740,000639: 10,2232 00006 EXTEND
009741,000640: 10,2233 62230 BZMF -3 # NOT GREATER
009742,000641:
009743,000642: 10,2234 05664 TC ALARM # COUPLED WITH PROGRAM ALARM
009744,000643: 10,2235 00121 OCT 00121
009745,000644:
009746,000645: 10,2236 15340 TCF TASKOVER # DO NOT ACCEPT
009747,000646:
009748,000647:
End of include-file SXTMARK.agc. Parent file is MAIN.agc