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