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