Assembly listing generated by yaYUL

Source Code

These source-code files are part of a reconstructed copy of Corona 261, the final, flown release of the Block I Command Module (CM) Apollo Guidance Computer (AGC) software for the AS-202 mission.

They have been created via disassembly of binary dumps of the original core rope memory modules actually flown on the mission, part numbers 1003733-171, 1003733-241, 1003733-191, 1003733-211, 1003733-221, and 1003733-241. The source code for the Apollo 4 and 6 software, Solarium 55, was used as a starting point, since it was directly derived from Corona and (at least in theory) only minimally modified.

Since only binary dumps (rather than listings) of Corona 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.

003690,000002: 003691,000003: 003692,000004: 003693,000005: 003694,000006: 003695,000007: 003696,000008: 003697,000009: 003698,000010: 003699,000011: 003700,000012: 003701,000013: 003702,000014: 003703,000015: 003704,000016: 003705,000017: 003706,000018: 003707,000019: 003708,000020: 2046 < 003715,000027: 2053 003716,000028: 2054 003717,000029: 2055 003718,000030: 2056 003719,000031: 2057 003720,000032: < 003749,000061: < 003755,000067: 003770,000082: 003771,000083: 04,6021 003772,000084: 04,6022 003773,000085: 04,6023 003774,000086: 003775,000087: 04,6024 003776,000088: 04,6025 003777,000089: 04,6026 003778,000090: < 003800,000112: 04,6045 003801,000113: 003802,000114: 04,6046 < 003984,000296: 04,6246 003985,000297: 04,6247 003986,000298: 04,6250 003987,000299: 04,6251 003988,000300: 04,6252 003989,000301: 04,6253 003990,000302: 04,6254 004076,000388: 004077,000389: 04,6342 004078,000390: 04,6343 004079,000391: 04,6344 004080,000392: 04,6345 004081,000393: 04,6346 004082,000394: 04,6347 004083,000395: 04,6350 004084,000396: 004085,000397: 004086,000398: 04,6352 004087,000399: 04,6353 004088,000400: 04,6354 004089,000401: 04,6355 004090,000402: 004091,000403: 004092,000404: 004093,000405: 004094,000406: 004095,000407: 004096,000408: 004097,000409: 004098,000410: 004099,000411: 004100,000412: 004101,000413: 004102,000414: 004103,000415: 2133 004104,000416: < < < < < < < ## Copyright: Public domain. ## Filename: EXECUTIVE.agc ## Purpose: A section of Corona revision 261. ## It is part of the source code for the Apollo Guidance Computer ## (AGC) for AS-202. No original listings of this software are ## available; instead, this file was created via disassembly of ## the core rope modules actually flown on the mission. ## Assembler: yaYUL ## Contact: Ron Burkey <info@sandroid.org>. ## Website: www.ibiblio.org/apollo/index.html ## Mod history: 2023-05-27 MAS Created from Solarium 55. # EXECUTIVE PROGRAMS # --------- -------- BANK 1 3">003709,000021: 2046 50577 FINDVAC TS NEWPRIO # PROGRAM TO FIND AN AVAILABLE VAC 30001 XCH Q 02065 TC EXECCOM # COMMON FF EXECUTIVE SUBROUTINE. 06004 TC FINDVAC2 # OFF TO EXECUTIVE BANK. /a>003714,000026: 2052 50577 NOVAC TS NEWPRIO # ENTRY EXCLUSIVELY FOR BASIC JOBS NOT 30001 XCH Q # REQUIRING A VAC AREA. 02065 TC EXECCOM # COMMON FF EXECUTIVE SUBROUTINE. 35501 CAF ZERO # ZERO PD FIELD IN PUSHLOC. 50574 TS EXECTEM3 06027 TC NOVAC2 5">003721,000033: 2060 50573 JOBWAKE TS EXECTEM2 # ENTRY HERE TO RE-ACTIVATE A SLEEPING JOB 10001 CCS Q # RETURN ADDRESS - 1 TO WTEXIT. 50600 TS WTEXIT # SHARES FINAL PORTION OF FINDVAC, NOVAC. 02071 TC EXECSW # COMMON EXEC BANK-SWITCH SUBROUTINE. 06110 TC JOBWAKE2 D">003727,000039: 2065 50600 EXECCOM TS WTEXIT # EXIT ADDRESS 20000 INDEX A # PICK UP JOB OR TASK ADDRESS. 30000 CAF 0 # (USED BY FINDVAC, NOVAC, AND WAITLIST) 50573 TS EXECTEM2 >003732,000044: 2071 32075 EXECSW CAF EXECBANK 30015 XCH BANKREG # CALL IN EXEC BANK, SAVING RETURN. 50572 TS EXECTEM1 00001 TC Q E4B">003737,000049: 2075 10004 EXECBANK CADR FINDVAC2 143">003739,000051: 2076 50015 FOUNDVAC TS BANKREG # COMES HERE TO RETURN FROM FINDVAC, 20600 INDEX WTEXIT # NOVAC, OR JOBWAKE. 00001 TC 1 # CALLS TO FINDVAC BEGIN HERE, SNATCHING AN AVAILABLE VAC AREA. SETLOC 10000 # EXEC/WAITLIST BANK. /a>003748,000060: 04,6000 06705 SLAPB TC SLAP1 443">003750,000062: 04,6001 07347 KEYRUPTC TC KEYRUPT1 # STANDARD LOC, DONT MOVE 442">003752,000064: 04,6002 06653 MODROUTB TC MODROUT # STANDARD LOC, DONT MOVE /a>003754,000066: 04,6003 06525 SVCT3 TC SVCT3X # STANDARD LOC. 332">003756,000068: 04,6004 10216 FINDVAC2 CCS VAC1USE # C(VAC1USE) = TC VAC1USE IF VAC1 IS 06020 TC FV1 # AVAILABLE, OR +0 IF IT IS IN USE. 10272 CCS VAC2USE 06020 TC FV1 # THE FIRST CCS WITH +0 JUMPS TO THE 10346 CCS VAC3USE # CORRESPONDING TC ORDER. 06020 TC FV1 10422 CCS VAC4USE 06020 TC FV1 10476 CCS VAC5USE 06020 TC FV1 03052 TC ABORT # NO VAC AREAS AVAILABLE. 01201 OCT 01201 04,6020 65503 FV1 AD TWO # TO FORM ADDRESS OF ASSIGNED VAC AREA. 50574 TS EXECTEM3 60577 AD NEWPRIO # ) STORE ADDRESS OF VAC1 IN LOW-ORDER 50577 TS NEWPRIO # ) 9 BITS OF NEWPRIO. 35501 CAF ZERO # ) 20574 INDEX EXECTEM3 # ) STORE +0 IN VAC1USE, INDICATING USE. 47777 TS 0 -1 # ) >003779,000091: 04,6027 36042 NOVAC2 CAF LASTADR # RELATIVE ADDRESS OF LAST REGISTER SET. 50601 TS LOCCTR 10000 CCS A 06037 TC +5 # PNZ AND -0 ONLY. F4B">003784,000096: 04,6033 40573 12BITSOK CS EXECTEM2 # COMES HERE IF JOB ADDRESS LESS THAN 6K. 06067 TC LOCSET 03052 TC ABORT # NO REGISTER SETS AVAILABLE. 01202 OCT 01202 20601 +5 INDEX LOCCTR # THIS LOOP FINDS THE FIRST AVAILABLE 10124 CCS PRIORITY # STORAGE AREA FOR CORE REGISTERS FOR 06105 TC NOVAC3 # THE NEW JOB. 2">003793,000105: 04,6042 00070 LASTADR DEC 56 B-14 # EIGHT SETS OF EIGHT REGISTERS. 06105 TC NOVAC3 # NNZ MEANS JOB ASLEEP HERE. # NOW THAT REGISTER SETS HAVE BEEN FOUND FOR THE NEW JOB, INITIALIZE THEM AND SET NEWJOB IF CALLED FOR. /a>003799,000111: 04,6044 20601 CORSW INDEX LOCCTR # (COMES HERE WITH C(A) = 0). TURN OFF OVF 50122 TS OVFIND 60577 AD NEWPRIO # SET UP PRIORITY FOR NEW JOB. 534">003803,000115: 04,6047 20601 JOBWAKE4 INDEX LOCCTR # JOB WAKING ENTERS HERE TO FINISH UP. 50124 TS PRIORITY # STORE NEW PRIORITY 32261 CAF BANKMASK 70573 MASK EXECTEM2 60574 AD EXECTEM3 # PUSHLOC 20601 INDEX LOCCTR 50123 TS PUSHLOC 36316 CAF EXEC70K # CREATE PROPER 12 BIT ADDRESS. 70573 MASK EXECTEM2 # SEE IF HIGH THREE BITS ZERO. 10000 CCS A 06063 TC +2 # NEEDS SPECIAL TREATMENT IF C(A) NOT ZERO 06033 TC 12BITSOK 30573 XCH EXECTEM2 74606 MASK LOW10 64373 AD 6K 40000 COM >003821,000133: 04,6067 20601 LOCSET INDEX LOCCTR 50120 TS LOC 20215 INDEX NEWJOB 40124 CS PRIORITY # TEST WHETHER NEW JOB HAS HIGHER 60577 AD NEWPRIO # PRIORITY THAN PREVIOUS HIGHEST 10000 CCS A 40601 CS LOCCTR # NEW JOB HAS HIGHER PRIORITY. 06102 TC NEWHIGH # SET NEWJOB, LEAVING LOCCTR UNCHANGED. 06100 TC +1 # -0 IF PRIORITIES = AND BOTH ARE NOVACS. 2">003832,000144: 04,6100 30572 NOWAKE2 XCH EXECTEM1 4">003833,000145: 04,6101 02076 ENDFIND TC FOUNDVAC 8">003835,000147: 04,6102 40000 NEWHIGH COM # SET NEWJOB AND RETURN TO CALLER. 50215 TS NEWJOB 06100 TC ENDFIND -1 >003839,000151: 04,6105 44513 NOVAC3 CS EIGHT # COMES HERE TO EXAMINE NEXT REGISTER SET. 60601 AD LOCCTR 06030 TC NOVAC2 +1 # THE JOBWAKE ROUTINE REACTIVES A SLEEPING JOB, SETTING IT TO BEGIN AT THE GIVEN WAKE ADDRESS. 532">003846,000158: 04,6110 36042 JOBWAKE2 CAF LASTADR # BEGIN SEARCH FOR REGISTER SET CONTAINING 50601 TS LOCCTR # SLEEPING JOB. WAKE ADDRESS IS IN LOC IN 10000 CCS A # CADR FORM, AS PLACED THERE BY JOBSLEEP. 20601 INDEX LOCCTR # PNZ AND -0 ONLY. SEE IF THIS JOB ASLEEP. 10124 CCS PRIORITY # THIS CCS CANT GO TO TC NOWAKE . 06140 TC JOBWAKE3 # PNZ - ACTIVE JOB PRESENT. +0 IMPOSSIBLE. 06143 TC NOWAKE # ALARM - SLEEPING JOB NOT FOUND. 06121 TC +2 # INACTIVE JOB FOUND. 06140 TC JOBWAKE3 # -0 - NOT IN USE. 40573 +2 CS EXECTEM2 # SEE IF THIS IS THE DESIRED SLEEPING JOB. 20601 INDEX LOCCTR 60120 AD LOC 10000 CCS A 06140 TC JOBWAKE3 # SEARCH NEXT SET IF NOT AT END. 03070 TC CCSHOLE 06140 TC JOBWAKE3 34606 CAF LOW10 # SET UP EXECTEM3 AND PRIORITY SO WE CAN 20601 INDEX LOCCTR # FINISH AT STANDARD CORSW . 70123 MASK PUSHLOC # PROTECT PD SETTING. 50574 TS EXECTEM3 20601 INDEX LOCCTR # RE-COMPLEMENT PRIORITY AND FINISH UP. 40124 CS PRIORITY 50577 TS NEWPRIO 06047 TC JOBWAKE4 533">003876,000188: 04,6140 44513 JOBWAKE3 CS EIGHT # ADVANCE TO NEXT REGISTER SET. 60601 AD LOCCTR 06111 TC JOBWAKE2 +1 >003880,000192: 04,6143 50601 NOWAKE TS LOCCTR # SET LOCCTR = +0 TO SHOW NO JOB WAS 06100 TC NOWAKE2 # AWAKENED. # A NEW JOB, OF HIGHER PRIORITY THAN THE PRESENT ONE, CAUSES THE RELA- # TIVE ADDRESS (9, 18, ..., 63) OF THE NEW JOB CORE REGISTERS TO BE # PLACED IN REGISTER NEWJOB , WHERE IT IS TESTED BY THE INTERPRETER. # THE RESULTING BRANCH TO CHANJOB, BELOW, CAUSES A TRADE BETWEEN THE # CORE REGISTERS OF THE PRESENT AND NEW JOBS. SETLOC FOUNDVAC +3 >003892,000204: 2101 20017 CHANG1 INHINT # BASIC JOBS COME HERE WHEN C(NEWJOB) 32075 CAF EXECBANK # NON-ZERO. START BY CALLING IN EXECUTIVE 30015 XCH BANKREG # BANK AND SAVING RETURN BANK CODE. 40000 COM 50061 TS BANKSET 30123 XCH PUSHLOC # BLANK OUT THE HIGH-ORDER 4 BITS IN 74606 MASK LOW10 # PUSHLOC SO THE BANK BITS CAN BE PACKED 50123 TS PUSHLOC # WITH IT 40001 CS Q # FOR RETURN, SHOWING THIS WAS A BASIC JOB 06145 TC CHANJOB # OFF TO BANK 0 >003903,000215: 2113 10066 CHANG2 CCS NEWEQIND # INTERPRETIVE INTERRUPTS START HERE, 00001 TC Q # PROVIDED THE LOAD INDICATOR ISNT ON 20017 INHINT 32075 CAF EXECBANK # CALL IN EXECUTIVE BANK. 50015 TS BANKREG 30120 XCH LOC 06145 TC CHANJOB # WITH C(A) PNZ, SHOWING WE WERE IN INTERP # RETER SETLOC NOWAKE +2 2">003913,000225: 04,6145 20215 CHANJOB INDEX NEWJOB # TO BEGIN SWAP OF CORE REGISTERS 30120 XCH LOC 50120 TS LOC # SAVE PROPER 12 BIT ADDRESS 30124 XCH PRIORITY 20215 INDEX NEWJOB 30124 XCH PRIORITY 50124 TS PRIORITY 74607 MASK LOW9 # TO GET FIXLOC 50067 TS FIXLOC 64511 AD BIT6 # SET UP VACLOC ( = FIXLOC + 32D ) 50070 TS VACLOC 40061 CS BANKSET # SAVE BANK 60123 AD PUSHLOC # AND PUSHLOC IN SAME WORD 20215 INDEX NEWJOB 30123 XCH PUSHLOC 50123 TS PUSHLOC 74606 MASK LOW10 30123 XCH PUSHLOC 40000 COM 60123 AD PUSHLOC # WE NOW HAVE COMPLEMNT OF BANK BITS 50061 TS BANKSET 40121 CS ADRLOC # SAVE MODE AND COMPLEMENT OF ADRLOC IN 60000 DOUBLE # SAME WORD. ADRLOC MUST BE SHIFTED 2 60000 DOUBLE # PLACES TO MAKE ROOM FOR MODE 60065 AD MODE # -0, -1, OR -2 20215 INDEX NEWJOB 30121 XCH ADRLOC 50021 TS SR 74473 MASK THREE # SAVE LOW 2 BITS 64341 AD NEG3 # THIS RESULTS IN EITHER -0, -1, OR -2 50065 TS MODE 40021 CS SR 40021 CS SR 50121 TS ADRLOC 10122 CCS OVFIND # SAVE C(ORDER) POSITIVE IF C(OVFIND) = 0 06212 TC +2 # AND NEGATIVE OTHERWISE 06214 TC +3 40063 CS ORDER 06215 TC +2 30063 XCH ORDER 20215 INDEX NEWJOB 30122 XCH OVFIND 50063 TS ORDER 10000 CCS A # DETERMINE NEW SETTING OF OVFIND 35501 CAF ZERO # TO ZERO 06226 TC OVFSET 40063 CS ORDER # ORDER WAS NEGATIVE, MAKE IT POSITIVE 50063 TS ORDER 34516 CAF ONE # TO SET OVFIND >003966,000278: 04,6226 50122 OVFSET TS OVFIND 30115 XCH MPAC # TRADE C(MPAC TO MPAC+2) 20215 INDEX NEWJOB 30115 XCH MPAC 50115 TS MPAC 30116 XCH MPAC +1 20215 INDEX NEWJOB 30116 XCH MPAC +1 50116 TS MPAC +1 30117 XCH MPAC +2 20215 INDEX NEWJOB 30117 XCH MPAC +2 50117 TS MPAC +2 35501 CAF ZERO 50066 TS NEWEQIND # MAKE SURE LOAD INDICATOR OFF. /a>003983,000295: 04,6245 50215 SETNJ TS NEWJOB 20016 RELINT # ENABLE INTERRUPT 10120 CCS LOC # C(LOC) PNZ FOR INTERPRETIVE JOBS. 35501 CAF ZERO 04026 TC DANZIG +2 # RETURN TO INTERPRETER 64516 AD ONE # GET ABS(LOC) AND RETURN TO BASIC 50062 TS ADDRWD 40061 CS BANKSET # GET DESIRED BANKBITS E47">003991,000303: 04,6255 02122 ENDCHANG TC BASICALL SETLOC CHANG2 +7D # TAKE UP WHERE WE LEFT OFF IN FIXED-FIXED C4C">003995,000307: 2122 50015 BASICALL TS BANKREG 00062 TC ADDRWD F42">003998,000310: 2124 32075 ENDOFJOB CAF EXECBANK # NORMAL ENDJOB ENTRY. 50015 TS BANKREG 06256 TC ENDJOB1 550">004002,000314: 2127 50120 JOBSLEEP TS LOC # ENTRY HERE TO DE-ACTIVE THIS JOB. 32075 CAF EXECBANK # LOC IS SET TO THE AWAKENING ADDRESS 50015 TS BANKREG # SO THE SUBSEQUENT JOBWAKE CAN FIND 06267 TC JOBSLP1 # THE PROPER REGISTER SET. SETLOC ENDCHANG +1 1">004009,000321: 04,6256 20017 ENDJOB1 INHINT # INTERPRETIVE JOBS FINISH WITH RTB 45501 CS ZERO # TO ENDJOB1 50100 TS BUF +1 # ENDJOB USES BUF, BUF +1, AND BUF +2. 30124 XCH PRIORITY 74607 MASK LOW9 # RESTORE AVAILABILITY OF VAC1 BY SETTING 10000 CCS A # C(VAC1USE) NON-ZERO 20000 INDEX A 50000 TS 0 06274 TC EJSCAN # ENDJOB NEED NOT EXAMINE FIRST REG. SET. 1">004020,000332: 04,6267 20017 JOBSLP1 INHINT # FINISH JOB SLEEP AND START ENDJOB-TYPE 40124 CS PRIORITY # SCAN. COMPLEMENTED PRIORITY REGISTER 50124 TS PRIORITY # SHOWS JOB IS ASLEEP. 45501 CS ZERO # INITIALIZE SEARCH FOR HIGHEST PRIORITY. 50100 TS BUF +1 # SCAN FOR THE ACTIVE JOB OF HIGHEST PRIORITY. >004029,000341: 04,6274 10134 EJSCAN CCS PRIORITY +8D # EACH PRIORITY REGISTER (PRIORITY +8N) 06341 TC EJ1 # IS SCANNED. ITS CONTENTS ARE EITHER 03070 TC CCSHOLE 06300 TC +1 # 2. NNZ - AN INACTIVE PRIORITY NUMBER. 10144 CCS PRIORITY +16D # OR 3. -0 - NOT IN USE. 06341 TC EJ1 # IF PNZ, CONTROL IS TRANSFERRED TO EJ1 03070 TC CCSHOLE 06304 TC +1 # PARED WITH THE PREVIOUS HIGHEST 10154 CCS PRIORITY +24D # PRIORITY FOUND. THE CONTENTS OF Q 06341 TC EJ1 # SERVE TO LOCATE THE CCS WHICH WAS 03070 TC CCSHOLE 06310 TC +1 # NEWJOB IS SET TO THE RELATIVE ADDRESS 10164 CCS PRIORITY +32D # OF THE REGISTER SET WITH THE HIGHTEST 06341 TC EJ1 # ACTIVE PRIORITY AT THE END OF THE SCAN. 03070 TC CCSHOLE 06314 TC +1 10174 CCS PRIORITY +40D 06341 TC EJ1 B">004051,000363: 04,6316 70000 EXEC70K OCT 70000 06320 TC +1 10204 CCS PRIORITY +48D 06341 TC EJ1 >004056,000368: 04,6322 67653 -CCSPR -CCS PRIORITY 06324 TC +1 10214 CCS PRIORITY +56D 06341 TC EJ1 03070 TC CCSHOLE 06330 TC +1 10077 CCS BUF # IF BUF = 0, THE SCAN WAS PART OF 06333 TC +2 # A PRIORITY CHANGE IN WHICH THE NEW 06245 TC SETNJ # PRIORITY IS HIGHEST. GO SET NEWJOB = 0. 20000 INDEX A # PICK UP CCS INSTRUCTION TO GET NEWJOB 27777 CAF 0 -1 # SELECT CCS INSTRUCTION. 66322 AD -CCSPR 50215 TS NEWJOB # RELATIVE ADDRESS ONLY. 30120 XCH LOC # (NO MEANING FOR ENDOFJOB). 06145 TC CHANJOB 04,6341 50101 EJ1 TS BUF +2 # STORE NEW PRIORITY 60100 AD BUF +1 # - OLD PRIORITY 10000 CCS A 30001 XCH Q # IF NEW PRIORITY IS LARGER 06351 TC EJ2 30000 NOOP # IF OLD PRIORITY IS LARGER 20001 INDEX Q # OR EQUAL 00002 TC 2 04,6351 50077 EJ2 TS BUF # SAVE C(Q) TO LOCATE HIGHEST PRIORITY 40101 CS BUF +2 # JOB AT END OF SCAN. 50100 TS BUF +1 20077 INDEX BUF 00002 TC 2 # THE FOLLOWING ROUTINE IS AVAILABLE TO CHANGE THE PRIORITY OF A JOB WHILE IT IS RUNNING UNDER EXECUTIVE # CONTROL (IE, IN CORE SET 0). CALLING SEQUENCE IS AS FOLLOWS (NO INHINT NECESSARY): # CAF NEWPRIO PRIORITY IN BITS 10-14 - ZERO ELSEWHERE. # L TC PRIOCHNG # RETURN IS TO L+1 IMMEDIATELY UNLESS A JOB OF STILL HIGHER PRIORITY IS PRESENT, IN WHICH CASE IT GOES TO CHANJOB # BEFORE RETURNING. SETLOC JOBSLEEP +4 E47">004105,000417: 2133 20017 PRIOCHNG INHINT # PREPARE Q, BANK, AND PUSHLOC (ALA 50577 TS NEWPRIO # CHANG1) IN CASE WE HAVE TO CHANGE JOBS. 40001 CS Q 50120 TS LOC 32075 CAF EXECBANK 30015 XCH BANKREG 06356 TC PRIOCH2 # OFF TO EXECUTIVE BANK. SETLOC EJ2 +5 2">004115,000427: 04,6356 40000 PRIOCH2 COM 50061 TS BANKSET 30123 XCH PUSHLOC 74606 MASK LOW10 50123 TS PUSHLOC 34607 CAF LOW9 # MAKE UP NEW PRIORITY WORD, LEAVING 70124 MASK PRIORITY # POSSIBLE VAC ADDRESS INTACT. 60577 AD NEWPRIO 50124 TS PRIORITY 40000 COM # INITIALIZE BUF +1 TO - THIS PRIORITY FOR 50100 TS BUF +1 # SEARCH FOR HIGHEST PRIORITY. 35501 CAF ZERO # SET BUF TO ZERO AS A FLAG FOR END OF 50077 TS BUF # SCAN. 06274 TC EJSCAN # SCAN FOR HIGHEST PRIORITY. # LIST OF PROGRAM PRIORITIES SETLOC PRIOCHNG +7 /a>004137,000449: 2142 4505 PRIO1 EQUALS BIT10 /a>004138,000450: 2142 4504 PRIO2 EQUALS BIT11 /a>004139,000451: 2142 03000 PRIO3 OCT 03000 /a>004140,000452: 2143 4503 PRIO4 EQUALS BIT12 /a>004141,000453: 2143 05000 PRIO5 OCT 05000 030">004142,000454: 2144 2143 OCT05000 EQUALS PRIO5 /a>004143,000455: 2144 4373 PRIO6 EQUALS 6K /a>004144,000456: 2144 07000 PRIO7 OCT 07000 >004145,000457: 2145 4502 PRIO10 EQUALS BIT13 >004146,000458: 2145 11000 PRIO11 OCT 11000 >004147,000459: 2146 12000 PRIO12 OCT 12000 >004148,000460: 2147 13000 PRIO13 OCT 13000 >004149,000461: 2150 14000 PRIO14 OCT 14000 >004150,000462: 2151 15000 PRIO15 OCT 15000 >004151,000463: 2152 16000 PRIO16 OCT 16000 >004152,000464: 2153 17000 PRIO17 OCT 17000 >004153,000465: 2154 4501 PRIO20 EQUALS BIT14 >004154,000466: 2154 21000 PRIO21 OCT 21000 >004155,000467: 2155 22000 PRIO22 OCT 22000 >004156,000468: 2156 23000 PRIO23 OCT 23000 >004157,000469: 2157 24000 PRIO24 OCT 24000 >004158,000470: 2160 25000 PRIO25 OCT 25000 >004159,000471: 2161 26000 PRIO26 OCT 26000 >004160,000472: 2162 27000 PRIO27 OCT 27000 >004161,000473: 2163 30000 PRIO30 OCT 30000 >004162,000474: 2164 31000 PRIO31 OCT 31000 >004163,000475: 2165 32000 PRIO32 OCT 32000 >004164,000476: 2166 33000 PRIO33 OCT 33000 >004165,000477: 2167 34000 PRIO34 OCT 34000 >004166,000478: 2170 35000 PRIO35 OCT 35000 >004167,000479: 2171 36000 PRIO36 OCT 36000 >004168,000480: 2172 37000 PRIO37 OCT 37000 Parent file is MAIN.agc