Source Code
|
These source-code files were transcribed from scans made from Don Eyles's personal
copy of BURST120 (SUNBURST 120). They were scanned at archive.org's Boston
facility, and the scanning was sponsored by Mike Stewart. The code was transcribed
from these scans by a team of volunteers who are referenced in the program
comments. Comments from the original source code are in ALL-CAPS, whereas
comments added later in transcription are in Mixed-Case. In some cases, where
similar code blocks exist in previously-transcribed AGC programs (primarily
Luminary 99, from Apollo 11) those code blocks were used as a starting point and
then corrected to agree with the BURST120 scans. The full scans are available
at the Virtual AGC
project's collection at archive.org, while more-convenient reduced-size (but reduced-quality)
images are available at
the main Virtual AGC website. Report any errors noted by creating an
issue report at the Virtual AGC
project's GitHub repository. Notations on the program listing read, in part:YUL SYSTEM FOR AGC: REVISION 0 OF PROGRAM BURST120 BY NASA 2021106-031 DEC 7, 1967 THIS LISTING IS A COPY OF A VERSION OF THE PROGRAM INTENDED FOR USE IN THE ON-BOARD PRIMARY GUIDANCE COMPUTER IN THE UNMANNED FLIGHT OF APOLLO LUNAR MODULE 1 --- THE AS206 MISSION.Note that the date is the date of the printout, not the date of the program revision. |
013168,000002: ## Copyright: Public domain.
013169,000003: ## Filename: UPDATE_PROGRAM_PART_2_OF_2.agc
013170,000004: ## Purpose: A module for revision 0 of BURST120 (Sunburst). It
013171,000005: ## is part of the source code for the Lunar Module's
013172,000006: ## (LM) Apollo Guidance Computer (AGC) for Apollo 5.
013173,000007: ## Assembler: yaYUL
013174,000008: ## Contact: Ron Burkey <info@sandroid.org>.
013175,000009: ## Website: www.ibiblio.org/apollo/index.html
013176,000010: ## Mod history: 2016-09-30 RSB Created draft version.
013177,000011: ## 2016-10-14 RSB Transcribed.
013178,000012: ## 2016-10-31 RSB Typos.
013179,000013: ## 2016-11-01 RSB More typos.
013180,000014: ## 2016-11-02 RSB Removed workaround I had added for TC without
013181,000015: ## an operand. Ended up supporting it in yaYUL
013182,000016: ## instead, since it had already been supported
013183,000017: ## for block 1 and BLK2 targets anyway.
013184,000018: ## 2016-12-05 RSB Comment-proofing pass with octopus/ProoferComments completed;
013185,000019: ## changes made.
013186,000020:
|
|
Page 321 |
013188,000022: 26,2000 BANK 26
013189,000023: 26,2000 E4,1677 EBANK= STBUFF
013190,000024: 26,2000 32515 UPPART2 CA UPE4
013191,000025: 26,2001 54003 TS EBANK
013192,000026: 26,2002 04133 TC CHECKMM
013193,000027: 26,2003 00027 OCT 27
013194,000028: 26,2004 02006 TC +2
013195,000029: 26,2005 02513 TC 21XCTALM
013196,000030: 26,2006 37763 CA ONE
013197,000031: 26,2007 55715 TS STCOUNT
013198,000032: 26,2010 04644 TC GRABWAIT
013199,000033: 26,2011 30144 CA MPAC
013200,000034: 26,2012 55721 TS UPVERB
013201,000035: 26,2013 30302 CA MODREG
013202,000036: 26,2014 55716 TS UPOLDMOD
013203,000037: 26,2015 04161 TC PHASCHNG
013204,000038: 26,2016 00076 OCT 00076 # 6.7 SPOT TO RESTORE OLD PROGRAM MODE.
013205,000039:
013206,000040: 26,2017 04117 TC NEWMODEX
013207,000041: 26,2020 00027 OCT 27
013208,000042: 26,2021 41721 CS UPVERB
013209,000043: 26,2022 62362 AD 21OCT75
013210,000044: 26,2023 00006 EXTEND
013211,000045: 26,2024 12030 BZF +4
013212,000046: 26,2025 30145 CA MPAC +1
013213,000047: 26,2026 55722 TS COMPNUMB
013214,000048: 26,2027 02052 TC UPIN +1
013215,000049: 26,2030 37763 UPNO33 CA ONE # CONTINUE V75
013216,000050: 26,2031 62523 AD ASTBFM1
013217,000051: 26,2032 54146 TS MPAC +2
013218,000052: 26,2033 32364 CA STATENV # UPDATE PROGRAM IS READY TO ACCEPT TARGET
013219,000053: 26,2034 04657 TC NVSBWAIT # UPDATE INDEX. FLASH V 21 N 01
013220,000054: 26,2035 04475 TC ENDIDLE # WAIT FOR V33, V34 OR DATA.
013221,000055: 26,2036 12463 TCF UPVERB34 # V34 TERMINATE UPDATE PROGRAM.
013222,000056: 26,2037 02030 TC UPNO33 # V33, IGNORE
013223,000057: 26,2040 37761 CA FOUR # OCTAL NO. IN STBUFF
013224,000058: 26,2041 55717 TS UPTEMP
013225,000059: 26,2042 31677 CA STBUFF
013226,000060: 26,2043 02473 TC UPRANGE # IS STBUFF GE 1 AND LE 4
013227,000061: 26,2044 02030 TC UPNO33 # NO, TRY AGAIN
013228,000062: 26,2045 51677 INDEX STBUFF # YES
013229,000063: 26,2046 32515 CA AOFC -1
013230,000064: 26,2047 55722 TS COMPNUMB
013231,000065: 26,2050 37762 CA TWO
013232,000066: 26,2051 55715 UPIN TS STCOUNT
013233,000067: 26,2052 32523 CA ASTBFM1
013234,000068: 26,2053 61715 AD STCOUNT
013235,000069: 26,2054 54146 TS MPAC +2
013236,000070: 26,2055 32364 CA STATENV # UPDATE PROGRAM IS READY TO ACCEPT THE
013237,000071: 26,2056 04657 TC NVSBWAIT # NEXT COMPONENT, FLASH V21 N01
|
|
Page 322 |
013239,000073: 26,2057 04475 TC ENDIDLE # WAIT FOR V33, V34 OR DATA.
013240,000074: 26,2060 12463 TCF UPVERB34 # V34 TERMINATE UPDATE PROGRAM.
013241,000075: 26,2061 02052 TC UPIN +1 # V33 , IGNORE
013242,000076: 26,2062 41715 CS STCOUNT # OCTAL NO.
013243,000077: 26,2063 61722 AD COMPNUMB
013244,000078: 26,2064 00006 EXTEND
013245,000079: 26,2065 12070 BZF +3
013246,000080: 26,2066 25715 INCR STCOUNT
013247,000081: 26,2067 02052 TC UPIN +1
013248,000082: 26,2070 32522 UPHERE CA UPAOFTP1
013249,000083: 26,2071 54146 TS MPAC +2
013250,000084: 26,2072 32353 CA OCTID # INDICATE TO GROUND THAT ALL COMPONENTS
013251,000085: 26,2073 04657 TC NVSBWAIT # HAVE BEEN RECEIVED BY FLASHING V21 N02.
013252,000086: 26,2074 04475 TC ENDIDLE # WAIT FOR V33, V34 OR DATA(COMPONENT NO.)
013253,000087: 26,2075 12463 TCF UPVERB34 # V34 TERMINATE UPDATE PROGRAM.
013254,000088: 26,2076 02107 TC UPSTORE # V33, VERIFY
013255,000089: 26,2077 31722 CA COMPNUMB # OCTAL IDENTIFIER
013256,000090: 26,2100 55717 TS UPTEMP
013257,000091: 26,2101 31720 CA UPTEMP1
013258,000092: 26,2102 02473 TC UPRANGE
013259,000093: 26,2103 02070 TC UPHERE # BAD OCTAL IDENTIFIER
013260,000094: 26,2104 31720 CA UPTEMP1
013261,000095: 26,2105 62523 AD ASTBFM1
013262,000096: 26,2106 02054 TC UPIN +3
013263,000097: 26,2107 04724 UPSTORE TC FREEDSP
013264,000098: 26,2110 00004 INHINT
013265,000099: 26,2111 40076 CS FLAGWRD2 # INVERT VERIFLAG FOR GROUND VERIFY
013266,000100: 26,2112 77756 MASK BIT6
013267,000101: 26,2113 54002 TS Q
013268,000102: 26,2114 47756 CS BIT6
013269,000103: 26,2115 70076 MASK FLAGWRD2
013270,000104: 26,2116 60002 AD Q
013271,000105: 26,2117 54076 TS FLAGWRD2
013272,000106: 26,2120 00003 RELINT
013273,000107: 26,2121 41721 CS UPVERB # IF A VERB 75 OR 76 UPDATE
013274,000108: 26,2122 62362 AD 21OCT75 # STAY IN P27 UNTIL UPDATE IS COMPLETED.
013275,000109: 26,2123 00006 EXTEND # (THIS IS DONE SO THAT NO OTHER UPDATES
013276,000110: 26,2124 62132 BZMF UPRETURN # WILL BE ALLOWED IF ORBIT INT IS ON)
013277,000111: 26,2125 04133 TC CHECKMM
013278,000112: 26,2126 00027 OCT 27
013279,000113: 26,2127 02132 TC UPRETURN
013280,000114: 26,2130 31716 CA UPOLDMOD # RESTORE PRE-P27 MODE
013281,000115: 26,2131 04122 TC NEWMODEX +3 # (THIS WILL CAUSE A RELINT)
013282,000116: 26,2132 00004 UPRETURN INHINT
013283,000117: 26,2133 37757 CA BIT5
013284,000118: 26,2134 70076 MASK FLAGWRD2
013285,000119: 26,2135 00006 EXTEND
013286,000120: 26,2136 12504 BZF XCTALMRM
013287,000121: 26,2137 42153 CS 21OCT64 # BEGIN STORING DATA FROM STBUFF
013288,000122: 26,2140 61721 AD UPVERB # YES, CONTINUE
013289,000123:
|
|
Page 323 |
013291,000125: 26,2141 50000 INDEX A
013292,000126: 26,2142 02143 TC +1
013293,000127: 26,2143 00006 EXTEND
013294,000128: 26,2144 31701 DCA STBUFF +1
013295,000129: 26,2145 02301 TC UPEND64
013296,000130: 26,2146 02311 TC UPEND67 # V67
013297,000131: 26,2147 02315 TC UPEND70 # V70
013298,000132: 26,2150 02323 TC UPEND71 # V71
013299,000133: 26,2151 02331 TC UPEND72 # V72
013300,000134: 26,2152 02341 TC UPEND73
013301,000135: 26,2153 00064 21OCT64 OCT 00064
013302,000136: 26,2154 02345 TC UPEND75 # V75
013303,000137: 26,2155 40076 UPEND76 CS FLAGWRD2 # IS ORBITAL INTEGRATION ON
013304,000138: 26,2156 77755 MASK BIT7
013305,000139: 26,2157 00006 EXTEND
013306,000140: 26,2160 12262 BZF SETUPRCK # YES, SET UP 3SEC CALL TO CHECK AGAIN
013307,000141: 26,2161 04161 TC PHASCHNG
013308,000142: 26,2162 05026 OCT 05026
013309,000143: 26,2163 33000 OCT 33000
013310,000144: 26,2164 00004 INHINT # INHINT BECAUSE PHASCHNG RELINTS AND BECA
013311,000145: # USE RESTARTED JOB WILL NEED IT.
013312,000146: 26,2165 00006 EXTEND # V76
013313,000147: 26,2166 31700 DCA STBUFF # NO, BEGIN LOAD OF UPDATE PARAMETERS
013314,000148: 26,2167 53211 DXCH REFRRECT
013315,000149: 26,2170 00006 EXTEND
013316,000150: 26,2171 31700 DCA STBUFF
013317,000151: 26,2172 53241 DXCH REFRCV
013318,000152: 26,2173 00006 EXTEND
013319,000153: 26,2174 31702 DCA STBUFF +2
013320,000154: 26,2175 53213 DXCH REFRRECT +2
013321,000155: 26,2176 00006 EXTEND
013322,000156: 26,2177 31702 DCA STBUFF +2
013323,000157: 26,2200 53243 DXCH REFRCV +2
013324,000158: 26,2201 00006 EXTEND
013325,000159: 26,2202 31704 DCA STBUFF +4
013326,000160: 26,2203 53215 DXCH REFRRECT +4
013327,000161: 26,2204 00006 EXTEND
013328,000162: 26,2205 31704 DCA STBUFF +4
013329,000163: 26,2206 53245 DXCH REFRCV +4
013330,000164: 26,2207 00006 EXTEND
013331,000165: 26,2210 31706 DCA STBUFF +6
013332,000166: 26,2211 53217 DXCH REFVRECT
013333,000167: 26,2212 00006 EXTEND
013334,000168: 26,2213 31706 DCA STBUFF +6
013335,000169: 26,2214 53247 DXCH REFVCV
013336,000170: 26,2215 00006 EXTEND
013337,000171: 26,2216 31710 DCA STBUFF +8D
013338,000172: 26,2217 53221 DXCH REFVRECT +2
013339,000173: 26,2220 00006 EXTEND
013340,000174: 26,2221 31710 DCA STBUFF +8D
|
|
Page 324 |
013342,000176: 26,2222 53251 DXCH REFVCV +2
013343,000177: 26,2223 00006 EXTEND
013344,000178: 26,2224 31712 DCA STBUFF +10D
013345,000179: 26,2225 53223 DXCH REFVRECT +4
013346,000180: 26,2226 00006 EXTEND
013347,000181: 26,2227 31712 DCA STBUFF +10D
013348,000182: 26,2230 53253 DXCH REFVCV +4
013349,000183: 26,2231 00006 EXTEND
013350,000184: 26,2232 31714 DCA STBUFF +12D
013351,000185: 26,2233 53257 DXCH TE
013352,000186: 26,2234 37767 CA ZERO
013353,000187: 26,2235 55224 TS DELTAV
013354,000188: 26,2236 55225 TS DELTAV +1
013355,000189: 26,2237 55226 TS DELTAV +2
013356,000190: 26,2240 55227 TS DELTAV +3
013357,000191: 26,2241 55230 TS DELTAV +4
013358,000192: 26,2242 55231 TS DELTAV +5
013359,000193: 26,2243 55232 TS NUV
013360,000194: 26,2244 55233 TS NUV +1
013361,000195: 26,2245 55234 TS NUV +2
013362,000196: 26,2246 55235 TS NUV +3
013363,000197: 26,2247 55236 TS NUV +4
013364,000198: 26,2250 55237 TS NUV +5
013365,000199: 26,2251 55254 TS REFTC
013366,000200: 26,2252 55255 TS REFTC +1
013367,000201: 26,2253 55260 TS REFXKEP
013368,000202: 26,2254 55261 TS REFXKEP +1
013369,000203: 26,2255 37746 CAF PRIO20 # SET UP JOB TO STORE NEW STATE FOR DWNTEL
013370,000204: 26,2256 05516 TC FINDVAC
013371,000205: 26,2257 E4,1566 EBANK= TDEC
013372,000206: 26,2257 02475 16064 2CADR UPDATINT
013373,000207:
013374,000208: 26,2261 12464 TCF UPVERB34 +1 # RESTORE PRE-P27 MODE AND EXIT UPDATE
013375,000209: 26,2262 32524 SETUPRCK CA 3SEC21
013376,000210: 26,2263 05663 TC WAITLIST
013377,000211: 26,2264 E4,1677 EBANK= STBUFF
013378,000212: 26,2264 02274 54064 2CADR UPDOAGN
013379,000213:
013380,000214: 26,2266 04161 TC PHASCHNG
013381,000215: 26,2267 47016 OCT 47016
013382,000216: 26,2270 00454 DEC 300 B-14
013383,000217: 26,2271 E4,1677 EBANK= STBUFF
013384,000218: 26,2271 02274 54064 2CADR UPDOAGN
013385,000219:
013386,000220: 26,2273 05567 TC ENDOFJOB
013387,000221: 26,2274 35651 UPDOAGN CA PRIO27
013388,000222: 26,2275 05505 TC NOVAC
013389,000223: 26,2276 E4,1677 EBANK= STBUFF
013390,000224: 26,2276 02132 54064 2CADR UPRETURN
|
|
Page 325 |
013392,000226: 26,2300 05727 TC TASKOVER
013393,000227: 26,2301 53206 UPEND64 DXCH UPGET
013394,000228: 26,2302 31677 CA STBUFF
013395,000229: 26,2303 55204 TS UPINDEX
013396,000230: 26,2304 35651 CA PRIO27
013397,000231: 26,2305 05516 TC FINDVAC
013398,000232: 26,2306 E4,1677 EBANK= STBUFF
013399,000233: 26,2306 02325 62064 2CADR MGETUP
013400,000234:
013401,000235: 26,2310 02471 TC UPQUIT
013402,000236: 26,2311 31677 UPEND67 CA STBUFF
013403,000237: 26,2312 55204 TS UPINDEX
013404,000238: 26,2313 05225 TC POSTJUMP
013405,000239: 26,2314 62202 CADR DOV67
013406,000240: 26,2315 31677 UPEND70 CA STBUFF
013407,000241: 26,2316 55204 TS UPINDEX
013408,000242: 26,2317 31700 CA STBUFF +1
013409,000243: 26,2320 55203 TS UPDT
013410,000244: 26,2321 05225 TC POSTJUMP
013411,000245: 26,2322 62153 CADR DOV70
013412,000246: 26,2323 31677 UPEND71 CA STBUFF
013413,000247: 26,2324 55204 TS UPINDEX
013414,000248: 26,2325 31700 CA STBUFF +1
013415,000249: 26,2326 55202 TS UPPHASE
013416,000250: 26,2327 05225 TC POSTJUMP
013417,000251: 26,2330 62155 CADR DOV71
013418,000252: 26,2331 31677 UPEND72 CA STBUFF
013419,000253: 26,2332 55204 TS UPINDEX
013420,000254: 26,2333 31700 CA STBUFF +1
013421,000255: 26,2334 55202 TS UPPHASE
013422,000256: 26,2335 31701 CA STBUFF +2
013423,000257: 26,2336 55203 TS UPDT
013424,000258: 26,2337 05225 TC POSTJUMP
013425,000259: 26,2340 62157 CADR DOV72
013426,000260: 26,2341 31677 UPEND73 CA STBUFF
013427,000261: 26,2342 55204 TS UPINDEX
013428,000262: 26,2343 05225 TC POSTJUMP
013429,000263: 26,2344 62165 CADR DOV73
013430,000264: 26,2345 04161 UPEND75 TC PHASCHNG
013431,000265: 26,2346 05026 OCT 05026
013432,000266: 26,2347 33000 OCT 33000
013433,000267: 26,2350 00004 INHINT # INHINT BECAUSE PHASCHNG RELINTS AND BECA
013434,000268: # USE RESTARTED JOB WILL NEED IT.
013435,000269: 26,2351 51722 INDEX COMPNUMB # V75
013436,000270: 26,2352 02352 TC -0 # FAN TO V75 ROUTINES
013437,000271: 26,2353 02102 OCTID OCT 02102
013438,000272: 26,2354 02417 TC I=4
013439,000273: 26,2355 00006 I=1 EXTEND
013440,000274: 26,2356 31701 DCA STBUFF +1
013441,000275: 26,2357 53755 DXCH RP
|
|
Page 326 |
013443,000277: 26,2360 02464 TC UPQUITRM # RESTORE PRE-P27 MODE AND EXIT UPDATE
013444,000278: 26,2361 02405 TC I=2
013445,000279: 26,2362 00075 21OCT75 OCT 75
013446,000280: 26,2363 02417 TC I=4
013447,000281: 26,2364 02101 STATENV OCT 2101
013448,000282: 26,2365 00006 I=3 EXTEND
013449,000283: 26,2366 31701 DCA STBUFF +1
013450,000284: 26,2367 53765 DXCH R1VEC
013451,000285: 26,2370 00006 EXTEND
013452,000286: 26,2371 31703 DCA STBUFF +3
013453,000287: 26,2372 53767 DXCH R1VEC +2
013454,000288: 26,2373 00006 EXTEND
013455,000289: 26,2374 31705 DCA STBUFF +5
013456,000290: 26,2375 53771 DXCH R1VEC +4
013457,000291: 26,2376 00006 EXTEND
013458,000292: 26,2377 31707 DCA STBUFF +7
013459,000293: 26,2400 53773 DXCH TINT
013460,000294: 26,2401 00006 EXTEND
013461,000295: 26,2402 31711 DCA STBUFF +9D
013462,000296: 26,2403 53775 DXCH RCO
013463,000297: 26,2404 02464 TC UPQUITRM # RESTORE PRE-P27 MODE AND EXIT UPDATE
013464,000298: 26,2405 00006 I=2 EXTEND
013465,000299: 26,2406 31701 DCA STBUFF +1
013466,000300: 26,2407 53757 DXCH CPT6/2
013467,000301: 26,2410 00006 EXTEND
013468,000302: 26,2411 31703 DCA STBUFF +3
013469,000303: 26,2412 53761 DXCH CPT6/2 +2
013470,000304: 26,2413 00006 EXTEND
013471,000305: 26,2414 31705 DCA STBUFF +5
013472,000306: 26,2415 53763 DXCH CPT6/2 +4
013473,000307: 26,2416 02464 TC UPQUITRM # RESTORE PRE-P27 MODE AND EXIT UPDATE
013474,000308: 26,2417 40076 I=4 CS FLAGWRD2 # IS ORBITAL INTEGRATION ON
013475,000309: 26,2420 77755 MASK BIT7
013476,000310: 26,2421 00006 EXTEND
013477,000311: 26,2422 12262 BZF SETUPRCK # YES
013478,000312: 26,2423 31700 CAE STBUFF +1
013479,000313: 26,2424 61257 AD TE +1
013480,000314: 26,2425 55714 TS STBUFF +13D
013481,000315: 26,2426 37767 CAF ZERO
013482,000316: 26,2427 61256 AD TE
013483,000317: 26,2430 55713 TS STBUFF +12D
013484,000318: 26,2431 37767 CA ZERO
013485,000319: 26,2432 54001 TS L
013486,000320: 26,2433 52025 DXCH TIME2
013487,000321: 26,2434 53712 DXCH STBUFF +10D
013488,000322: 26,2435 37766 CA FIVE
013489,000323: 26,2436 04246 TC NEWPHASE
013490,000324: 26,2437 00006 OCT 00006
013491,000325:
013492,000326: 26,2440 00004 I=4.CONT INHINT
|
|
Page 327 |
013494,000328: 26,2441 37767 CA ZERO
013495,000329: 26,2442 54146 TS MPAC +2 # FOR TPAGREE
013496,000330: 26,2443 00006 EXTEND
013497,000331: 26,2444 31714 DCA STBUFF +12D
013498,000332: 26,2445 53257 DXCH TE
013499,000333: 26,2446 31700 CA STBUFF +1
013500,000334: 26,2447 61712 AD STBUFF +11D
013501,000335: 26,2450 54001 TS L
013502,000336: 26,2451 37767 CA ZERO
013503,000337: 26,2452 61711 AD STBUFF +10D
013504,000338: 26,2453 52145 DXCH MPAC
013505,000339: 26,2454 07327 TC TPAGREE # FORCE SIGN AGREEMENT
013506,000340: 26,2455 52145 DXCH MPAC
013507,000341: 26,2456 20025 DAS TIME2 # NEW CLOCK
013508,000342: 26,2457 37765 CAF SEVEN # 6.7 SPOT TO RESTORE OLD PROGRAM MODE.
013509,000343: 26,2460 04246 TC NEWPHASE
013510,000344: 26,2461 00006 OCT 00006
013511,000345:
013512,000346: 26,2462 02464 TC UPQUITRM # RESTORE PRE-P27 MODE AND EXIT UPDATE
013513,000347: 26,2463 04724 UPVERB34 TC FREEDSP
013514,000348: 26,2464 04133 UPQUITRM TC CHECKMM # RESTORE MODE AND UPQUIT
013515,000349: 26,2465 00027 OCT 27
013516,000350: 26,2466 12471 TCF UPQUIT
013517,000351: 26,2467 31716 CA UPOLDMOD
013518,000352: 26,2470 04122 TC NEWMODEX +3
013519,000353:
013520,000354: 26,2471 05206 UPQUIT TC BANKCALL # SETS 6.0 SPOT AND DOES ENDOFJOB
013521,000355: 26,2472 62351 CADR ENDUP
013522,000356: 26,2473 00006 UPRANGE EXTEND
013523,000357: 26,2474 62503 BZMF UPRAUS # C(A) LE ZERO RETURN TO Q
013524,000358: 26,2475 40000 CS A
013525,000359: 26,2476 24000 INCR A
013526,000360: 26,2477 61717 AD UPTEMP
013527,000361: 26,2500 00006 EXTEND
013528,000362: 26,2501 62503 BZMF UPRAUS # C(A) GT C(LOC) RETURN TO Q
013529,000363: 26,2502 24002 INCR Q
013530,000364: 26,2503 00002 UPRAUS TC Q # C(A) LE C(LOC) AND GT 0 RETURN TO Q+1
013531,000365: 26,2504 04133 XCTALMRM TC CHECKMM
013532,000366: 26,2505 00027 OCT 27
013533,000367: 26,2506 12511 TCF +3
013534,000368: 26,2507 31716 CA UPOLDMOD
013535,000369: 26,2510 04122 TC NEWMODEX +3
013536,000370: 26,2511 04161 TC PHASCHNG
013537,000371: 26,2512 00006 OCT 00006
013538,000372: 26,2513 05206 21XCTALM TC BANKCALL
013539,000373: 26,2514 22053 CADR XACTALM
013540,000374:
013541,000375: 26,2515 02000 UPE4 OCT 2000
013542,000376: 26,2516 00003 AOFC OCT 00003
013543,000377: 26,2517 00007 OCT 00007
|
|
Page 328 |
013545,000379: 26,2520 00013 OCT 00013
013546,000380: 26,2521 00002 OCT 00002
013547,000381: 26,2522 02320 UPAOFTP1 ECADR UPTEMP1
013548,000382: 26,2523 02276 ASTBFM1 ECADR STBUFF -1
013549,000383: 26,2524 00454 3SEC21 DEC 300 B-14
End of include-file UPDATE_PROGRAM_PART_2_OF_2.agc. Parent file is MAIN.agc