Source Code

These source-code files were obtained by digitally photographing the Colossus 237 program listing from the private collection of original AGC developer Fred Martin, and then modifying pre-existing Colossus 249 (Apollo 9) source files to incorporate changes. Note that the page images presented online are of reduced quality, and that additional images are available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 237 OF AGC PROGRAM COLOSSUS 
	BY NASA 2021111-031  1:17 AUG. 24, 1968

001006,000002:                                                                                                 #  Copyright:    Public domain.
001007,000003:                                                                                                 #  Filename:     TAGS_FOR_RELATIVE_SETLOC_AND_BLANK_BANK_CARDS.agc
001008,000004:                                                                                                 #  Purpose:      Part of the source code for Colossus build 237.
001009,000005:                                                                                                 #                This is for the Command Module's (CM) Apollo Guidance
001010,000006:                                                                                                 #                Computer (AGC), we believe for Apollo 8.
001011,000007:                                                                                                 #  Assembler:    yaYUL
001012,000008:                                                                                                 #  Contact:      Sergio Navarro <sergionavarrog@gmail.com>
001013,000009:                                                                                                 #  Website:      www.ibiblio.org/apollo/index.html
001014,000010:                                                                                                 #  Page scans:   www.ibiblio.org/apollo/ScansForConversion/Colossus237/
001015,000011:                                                                                                 #  Mod history:  2009-10-21 SN   Adapted from corresponding Colossus 249 file.
001016,000012:                                                                                                 #                 2011-01-17 JL   Renamed to match 237 module name. Minor fixes.
001017,000013: 
001018,000014:                                                                                                 # # Page 25
001019,000015: 
001020,000016: ???????                        FIXED             MEMORY   120000     -          167777          
001021,000017: ???????                                          COUNT    BANKSUM                               
001022,000018: 
001023,000019:                                                                                                 #            MODULE 1 CONTAINS BANKS 0 THROUGH 5
001024,000020: 
001025,000021:    4000                                          BLOCK    02                                    
001026,000022:    4000                        FFTAG1            EQUALS                                         
001027,000023:    4000                        FFTAG2            EQUALS                                         
001028,000024:    4000                        FFTAG3            EQUALS                                         
001029,000025:    4000                        FFTAG4            EQUALS                                         
001030,000026:    4000                        FFTAG7            EQUALS                                         
001031,000027:    4000                        FFTAG8            EQUALS                                         
001032,000028:    4000                        FFTAG9            EQUALS                                         
001033,000029:    4000                        FFTAG10           EQUALS                                         
001034,000030:    4000                        FFTAG12           EQUALS                                         
001035,000031:    4000                                          BNKSUM   02                                    
001036,000032: 
001037,000033: 
001038,000034:    6000                                          BLOCK    03                                    
001039,000035:    6000                        FFTAG5            EQUALS                                         
001040,000036:    6000                        FFTAG6            EQUALS                                         
001041,000037:    6000                                          BNKSUM   03                                    
001042,000038: 
001043,000039: 
001044,000040: 00,2000                                          BANK     00                                    
001045,000041: 00,2000                        DLAYJOB           EQUALS                                         
001046,000042: 00,2000                                          BNKSUM   00                                    
001047,000043: 
001048,000044: 
001049,000045: 01,2000                                          BANK     01                                    
001050,000046: 01,2000                        RESTART           EQUALS                                         
001051,000047: 01,2000                                          BNKSUM   01                                    
001052,000048: 
001053,000049: 
001054,000050: 04,2000                                          BANK     4                                     
001055,000051: 04,2000                        VERB37            EQUALS                                         
001056,000052: 04,2000                        CONICS1           EQUALS                                         
001057,000053: 04,2000                        PINBALL4          EQUALS                                         
001058,000054: 04,2000                        R36LM             EQUALS                                         
001059,000055: 04,2000                        INTPRET2          EQUALS                                         
001060,000056: 04,2000                        IMUCAL1           EQUALS                                         
001061,000057: 04,2000                        STBLEORB          EQUALS                                         
001062,000058: 04,2000                        E/PROG            EQUALS                                         
001063,000059: 04,2000                        MIDDGIM           EQUALS                                         
001064,000060: 04,2000                                          BNKSUM   04                                    
001065,000061: 
001066,000062:                                                                                                 # # Page 26
001067,000063: 
001068,000064: 05,2000                                          BANK     5                                     
001069,000065: 05,2000                        FRANDRES          EQUALS                                         
001070,000066: 05,2000                        DOWNTELM          EQUALS                                         
001071,000067: 05,2000                        DAPMASS           EQUALS                                         
001072,000068: 05,2000                                          BNKSUM   05                                    
001073,000069: 
001074,000070: 
001075,000071:                                                                                                 #            MODULE 2 CONTAINS BANKS 6 THROUGH 13
001076,000072: 
001077,000073: 06,2000                                          BANK     6                                     
001078,000074: 06,2000                        IMUCOMP           EQUALS                                         
001079,000075: 06,2000                        T4RUP             EQUALS                                         
001080,000076: 06,2000                        IMUCAL2           EQUALS                                         
001081,000077: 06,2000                                          BNKSUM   06                                    
001082,000078: 
001083,000079: 
001084,000080: 07,2000                                          BANK     7                                     
001085,000081: 07,2000                        SXTMARKE          EQUALS                                         
001086,000082: 07,2000                        R02               EQUALS                                         
001087,000083: 07,2000                        MODESW            EQUALS                                         
001088,000084: 07,2000                        XANG              EQUALS                                         
001089,000085: 07,2000                        KEYRUPT           EQUALS                                         
001090,000086: 07,2000                                          BNKSUM   07                                    
001091,000087: 
001092,000088: 
001093,000089: 10,2000                                          BANK     10                                    
001094,000090: 10,2000                        DISPLAYS          EQUALS                                         
001095,000091: 10,2000                        PHASETAB          EQUALS                                         
001096,000092: 10,2000                        COMGEOM2          EQUALS                                         
001097,000093: 10,2000                        SXTMARK1          EQUALS                                         
001098,000094: 10,2000                        P60S4             EQUALS                                         
001099,000095: 10,2000                        OPTDRV            EQUALS                                         
001100,000096: 10,2000                                          BNKSUM   10                                    
001101,000097: 
001102,000098: 
001103,000099: 11,2000                                          BANK     11                                    
001104,000100: 11,2000                        ORBITAL           EQUALS                                         
001105,000101: 11,2000                        ORBITAL1          EQUALS                                         #  CONSTANTS
001106,000102: 11,2000                        INTVEL            EQUALS                                         
001107,000103: 11,2000                        S52/2             EQUALS                                         
001108,000104: 11,2000                                          BNKSUM   11                                    
001109,000105: 
001110,000106: 
001111,000107: 12,2000                                          BANK     12                                    
001112,000108: 12,2000                        CONICS            EQUALS                                         
001113,000109:                                                                                                 # # Page 27
001114,000110: 12,2000                                          BNKSUM   12                                    
001115,000111: 
001116,000112: 
001117,000113: 13,2000                                          BANK     13                                    
001118,000114: 13,2000                        P76LOC            EQUALS                                         
001119,000115: 13,2000                        LATLONG           EQUALS                                         
001120,000116: 13,2000                        INTINIT           EQUALS                                         
001121,000117: 13,2000                        SR52/1            EQUALS                                         
001122,000118: 13,2000                        ORBITAL2          EQUALS                                         
001123,000119: 13,2000                                          BNKSUM   13                                    
001124,000120: 
001125,000121:                                                                                                 #  SPACER
001126,000122: 
001127,000123:                                                                                                 #            MODULE 3 CONTAINS BANKS 14 THROUGH 21
001128,000124: 
001129,000125: 14,2000                                          BANK     14                                    
001130,000126: 14,2000                        STARTAB           EQUALS                                         
001131,000127: 14,2000                        RT53              EQUALS                                         
001132,000128: 14,2000                        P50S1             EQUALS                                         
001133,000129: 14,2000                                          BNKSUM   14                                    
001134,000130: 
001135,000131: 
001136,000132: 15,2000                                          BANK     15                                    
001137,000133: 15,2000                        P50S              EQUALS                                         
001138,000134: 15,2000                        ETRYDAP           EQUALS                                         
001139,000135: 15,2000                        S52/3             EQUALS                                         
001140,000136: 15,2000                                          BNKSUM   15                                    
001141,000137: 
001142,000138: 
001143,000139: 16,2000                                          BANK     16                                    
001144,000140: 16,2000                        P40S1             EQUALS                                         
001145,000141: 16,2000                        DAPROLL           EQUALS                                         
001146,000142: 16,2000                        P50S2             EQUALS                                         
001147,000143: 16,2000                                          BNKSUM   16                                    
001148,000144: 
001149,000145: 
001150,000146: 17,2000                                          BANK     17                                    
001151,000147: 17,2000                        DAPS4             EQUALS                                         
001152,000148: 17,2000                        DAPS5             EQUALS                                         
001153,000149: 17,2000                        DAPS7             EQUALS                                         
001154,000150: 17,2000                                          BNKSUM   17                                    
001155,000151: 
001156,000152: 
001157,000153: 20,2000                                          BANK     20                                    
001158,000154:                                                                                                 # # Page 28
001159,000155: 20,2000                        DAPS6             EQUALS                                         
001160,000156: 20,2000                        DAPS1             EQUALS                                         
001161,000157: 20,2000                        DAPS2             EQUALS                                         
001162,000158: 20,2000                                          BNKSUM   20                                    
001163,000159: 
001164,000160: 
001165,000161: 21,2000                                          BANK     21                                    
001166,000162: 21,2000                        DAPS3             EQUALS                                         
001167,000163: 21,2000                        MYSUBS            EQUALS                                         
001168,000164: 21,2000                                          BNKSUM   21                                    
001169,000165: 
001170,000166: 
001171,000167:                                                                                                 #            MODULE 4 CONTAINS BANKS 22 THROUGH 27
001172,000168: 
001173,000169: 22,2000                                          BANK     22                                    
001174,000170: 22,2000                        RTBCODES          EQUALS                                         
001175,000171: 22,2000                        RTBCODE1          EQUALS                                         
001176,000172: 22,2000                        DAPS8             EQUALS                                         
001177,000173: 22,2000                        APOPERI           EQUALS                                         
001178,000174: 22,2000                        P40S5             EQUALS                                         
001179,000175: 22,2000                        KALCMON2          EQUALS                                         
001180,000176: 22,2000                        KALCMON1          EQUALS                                         
001181,000177: 22,2000                                          BNKSUM   22                                    
001182,000178: 
001183,000179: 
001184,000180: 23,2000                                          BANK     23                                    
001185,000181: 23,2000                        P20S2             EQUALS                                         
001186,000182: 23,2000                        INFLIGHT          EQUALS                                         
001187,000183: 23,2000                        COMGEOM1          EQUALS                                         
001188,000184: 23,2000                        POWFLITE          EQUALS                                         
001189,000185: 23,2000                        POWFLIT1          EQUALS                                         
001190,000186: 23,2000                        RENDGUID          EQUALS                                         
001191,000187: 23,2000                        POWFLIT2          EQUALS                                         
001192,000188: 23,2000                        R30LOC            EQUALS                                         
001193,000189: 23,2000                        P11FOUR           EQUALS                                         
001194,000190: 23,2000                                          BNKSUM   23                                    
001195,000191: 
001196,000192: 
001197,000193: 24,2000                                          BANK     24                                    
001198,000194: 24,2000                        LOADDAP           EQUALS                                         
001199,000195: 24,2000                        P40S              EQUALS                                         
001200,000196: 24,2000                                          BNKSUM   24                                    
001201,000197: 
001202,000198: 
001203,000199: 25,2000                                          BANK     25                                    
001204,000200:                                                                                                 # # Page 29
001205,000201: 25,2000                        REENTRY           EQUALS                                         
001206,000202: 25,2000                                          BNKSUM   25                                    
001207,000203: 
001208,000204: 
001209,000205: 26,2000                                          BANK     26                                    
001210,000206: 26,2000                        INTPRET1          EQUALS                                         
001211,000207: 26,2000                        REENTRY1          EQUALS                                         
001212,000208: 26,2000                        P60S              EQUALS                                         
001213,000209: 26,2000                        P60S1             EQUALS                                         
001214,000210: 26,2000                        P60S2             EQUALS                                         
001215,000211: 26,2000                        P60S3             EQUALS                                         
001216,000212: 26,2000                        PLANTIN           EQUALS                                         #  LUNAR ROT
001217,000213: 26,2000                        EPHEM             EQUALS                                         
001218,000214: 26,2000                        P05P06            EQUALS                                         
001219,000215: 26,2000                        26P50S            EQUALS                                         
001220,000216: 26,2000                                          BNKSUM   26                                    
001221,000217: 
001222,000218: 
001223,000219: 
001224,000220: 27,2000                                          BANK     27                                    
001225,000221: 27,2000                        TOF-FF            EQUALS                                         
001226,000222: 27,2000                        TOF-FF1           EQUALS                                         
001227,000223: 27,2000                        MANUVER           EQUALS                                         
001228,000224: 27,2000                        MANUVER1          EQUALS                                         
001229,000225: 27,2000                        VECPT             EQUALS                                         
001230,000226: 27,2000                        UPDATE1           EQUALS                                         
001231,000227: 27,2000                        UPDATE2           EQUALS                                         
001232,000228: 27,2000                        R22S1             EQUALS                                         
001233,000229: 27,2000                        P60S5             EQUALS                                         
001234,000230: 27,2000                                          BNKSUM   27                                    
001235,000231: 
001236,000232: 
001237,000233:                                                                                                 #            MODULE 5 CONTAINS BANKS 30 THROUGH 35
001238,000234: 
001239,000235: 30,2000                                          BANK     30                                    
001240,000236: 30,2000                        IMUSUPER          EQUALS                                         
001241,000237: 30,2000                        LOWSUPER          EQUALS                                         
001242,000238: 30,2000                        FCSTART           EQUALS                                         #  STANDARD LOCATION FOR THIS.  (FOR EXTVB)
001243,000239: 30,2000                        LOPC              EQUALS                                         
001244,000240: 30,2000                        P20S1             EQUALS                                         
001245,000241: 30,2000                        P20S6             EQUALS                                         
001246,000242: 30,2000                        P40S3             EQUALS                                         
001247,000243: 30,2000                        R35A              EQUALS                                         
001248,000244: 30,2000                                          BNKSUM   30                                    
001249,000245: 
001250,000246: 
001251,000247: 31,2000                                          BANK     31                                    
001252,000248:                                                                                                 # # Page 30
001253,000249: 31,2000                        R35               EQUALS                                         
001254,000250: 31,2000                        RT23              EQUALS                                         
001255,000251: 31,2000                        P30S1A            EQUALS                                         
001256,000252: 31,2000                        R34               EQUALS                                         
001257,000253: 31,2000                                          BNKSUM   31                                    
001258,000254: 
001259,000255: 
001260,000256: 32,2000                                          BANK     32                                    
001261,000257: 32,2000                        MSGSCAN1          EQUALS                                         
001262,000258: 32,2000                        RTE               EQUALS                                         
001263,000259: 32,2000                        DELRSPL1          EQUALS                                         
001264,000260: 32,2000                        IMUCAL3           EQUALS                                         
001265,000261: 32,2000                                          BNKSUM   32                                    
001266,000262: 
001267,000263: 
001268,000264: 33,2000                                          BANK     33                                    
001269,000265: 33,2000                        TESTLEAD          EQUALS                                         
001270,000266: 33,2000                        IMUCAL            EQUALS                                         
001271,000267: 33,2000                                          BNKSUM   33                                    
001272,000268: 
001273,000269: 
001274,000270: 34,2000                                          BANK     34                                    
001275,000271: 34,2000                        P11ONE            EQUALS                                         
001276,000272: 34,2000                        P20S3             EQUALS                                         
001277,000273: 34,2000                        P20S4             EQUALS                                         
001278,000274: 34,2000                        RTECON            EQUALS                                         
001279,000275: 34,2000                                          BNKSUM   34                                    
001280,000276: 
001281,000277: 
001282,000278: 35,2000                                          BANK     35                                    
001283,000279: 35,2000                        RTECON1           EQUALS                                         
001284,000280: 35,2000                        CSI/CDH           EQUALS                                         
001285,000281: 35,2000                        P30S1             EQUALS                                         
001286,000282: 35,2000                        P30S              EQUALS                                         
001287,000283: 35,2000                        R31               EQUALS                                         
001288,000284: 35,2000                        P17S1             EQUALS                                         
001289,000285: 35,2000                                          BNKSUM   35                                    
001290,000286: 
001291,000287: 
001292,000288:                                                                                                 #            MODULE 6 CONTAINS BANKS 36 THROUGH 43
001293,000289: 
001294,000290: 36,2000                                          BANK     36                                    
001295,000291: 36,2000                        MEASINC           EQUALS                                         
001296,000292: 36,2000                        MEASINC1          EQUALS                                         
001297,000293: 36,2000                        P17S              EQUALS                                         
001298,000294: 36,2000                        RTE1              EQUALS                                         
001299,000295: 36,2000                                          BNKSUM   36                                    
001300,000296: 
001301,000297:                                                                                                 # # Page 31
001302,000298: 
001303,000299: 37,2000                                          BANK     37                                    
001304,000300: 37,2000                        P20S              EQUALS                                         
001305,000301: 37,2000                        BODYATT           EQUALS                                         
001306,000302: 37,2000                        RENDEZ            EQUALS                                         
001307,000303: 37,2000                        SERVICES          EQUALS                                         
001308,000304: 37,2000                        P11TWO            EQUALS                                         
001309,000305: 37,2000                                          BNKSUM   37                                    
001310,000306: 
001311,000307: 
001312,000308: 40,2000                                          BANK     40                                    
001313,000309: 40,2000                        PINSUPER          EQUALS                                         
001314,000310: 40,2000                        SELFSUPR          EQUALS                                         
001315,000311: 40,2000                        PINBALL1          EQUALS                                         
001316,000312: 40,2000                                          BNKSUM   40                                    
001317,000313: 
001318,000314: 
001319,000315: 41,2000                                          BANK     41                                    
001320,000316: 41,2000                        PINBALL2          EQUALS                                         
001321,000317: 41,2000                                          BNKSUM   41                                    
001322,000318: 
001323,000319: 
001324,000320: 42,2000                                          BANK     42                                    
001325,000321: 42,2000                        SBAND             EQUALS                                         
001326,000322: 42,2000                        PINBALL3          EQUALS                                         
001327,000323: 42,2000                        EXTVBS            EQUALS                                         
001328,000324: 42,2000                                          BNKSUM   42                                    
001329,000325: 
001330,000326: 
001331,000327: 43,2000                                          BANK     43                                    
001332,000328: 43,2000                        SELFCHEC          EQUALS                                         
001333,000329: 43,2000                        EXTVERBS          EQUALS                                         
001334,000330: 43,2000                                          BNKSUM   43                                    
001335,000331: 
001336,000332: 
001337,000333: 43,2000  26,3331               HI6ZEROS          EQUALS   ZEROVECS                              #  ZERO VECTOR ALWAYS IN HIGH MEMORY
001338,000334: 43,2000  04,3452               LO6ZEROS          EQUALS   ZEROVEC                               #  ZERO VECTOR ALWAYS IN LOW MEMORY
001339,000335: 43,2000  26,3327               HIDPHALF          EQUALS   UNITX                                 
001340,000336: 43,2000  04,3450               LODPHALF          EQUALS   XUNIT                                 
001341,000337: 43,2000  26,3321               HIDP1/4           EQUALS   DP1/4TH                               
001342,000338: 43,2000  04,3476               LODP1/4           EQUALS   D1/4                                  #  2DEC .25
001343,000339: 43,2000  26,3327               HIUNITX           EQUALS   UNITX                                 
001344,000340: 43,2000  26,3325               HIUNITY           EQUALS   UNITY                                 
001345,000341: 43,2000  26,3323               HIUNITZ           EQUALS   UNITZ                                 
001346,000342: 43,2000  04,3450               LOUNITX           EQUALS   XUNIT                                 #  2DEC .5
001347,000343: 43,2000  04,3446               LOUNITY           EQUALS   YUNIT                                 #  2DEC 0
001348,000344:                                                                                                 # # Page 32
001349,000345: 43,2000  04,3444               LOUNITZ           EQUALS   ZUNIT                                 #  2DEC 0
001350,000346: 43,2000  11,3706               3/4LOWDP          EQUALS   3/4                                   #  2DEC 3.0 B-2
001351,000347: 43,2000  30,2000                                 SBANK=   LOWSUPER                              
001352,000348: 
001353,000349: 
001354,000350:                                                                                                 #  ROPE-SPECIFIC ASSIGNS OBVIATING NEED TO CHECK COMPUTER FLAG IN DETVRUZVING INTEGRATION AREA ENTRIES
001355,000351: 
001356,000352: 43,2000  13,3036               OTHPREC           EQUALS   LEMPREC                               
001357,000353: 43,2000  13,2711               ATOPOTH           EQUALS   ATOPLEM                               
001358,000354: 43,2000  13,2636               ATOPTHIS          EQUALS   ATOPCSM                               
001359,000355: 43,2000  0000173               MOONTHIS          EQUALS   CMOONFLG                              
001360,000356: 43,2000  0000174               MOONOTH           EQUALS   LMOONFLG                              
001361,000357: 43,2000  13,2651               MOVATHIS          EQUALS   MOVEACSM                              
001362,000358: 43,2000  35,3204               STATEST           EQUALS   V83CALL                               #  * TEMPORARY
001363,000359: 43,2000  13,3022               THISPREC          EQUALS   CSMPREC                               
001364,000360: 43,2000  26,3327               THISAXIS          =        UNITX                                 
001365,000361: 43,2000     4747               ERASID            EQUALS   LOW10                                 #  DOWNLINK ERASABLE DUMP ID
001366,000362: 43,2000     6214               DELAYNUM          EQUALS   THREE                                 
001367,000363:                                                                                                 #  ****************************************************************************************************************
001368,000364: 
001369,000365:                                                                                                 #     THE FOLLOWING ECADRS ARE DEFINED TO FACILITATE EBANK SWITCHING. THEY ALSO MAKE IT EASIER FOR
001370,000366:                                                                                                 #  ERASABLE CONTROL TO REARRANGE ERASABLE MEMORY WITHOUT DISRUPTING THE PROGRAMS WHICH SET EBANKS.
001371,000367:                                                                                                 #  PRIOR TO ROPE RELEASE FIXED MEMORY CAN BE SAVED BY SETTING EACH EBXXXX =EBANKX (X=4,5,6,7).EBANKX OF COURSE
001372,000368:                                                                                                 #  WILL BE THE BANK WHERE THE ERASABLES REFERENCED IN EBXXXX WILL BE STORED.
001373,000369: 
001374,000370: 07,2000                                          BANK     7                                     
001375,000371: 07,2000  E7,1674                                 EBANK=   MARKDOWN                              
001376,000372: 07,2000           03674        EBMARKDO          ECADR    MARKDOWN                              
001377,000373: 07,2001  E7,1725                                 EBANK=   MRKBUF1                               
001378,000374: 07,2001           03725        EBMRKBUF          ECADR    MRKBUF1                               
001379,000375: 
001380,000376: 24,2000                                          BANK     24                                    
001381,000377: 24,2000  E7,1431                                 EBANK=   DVCNTR                                
001382,000378: 24,2000           03431        EBDVCNTR          ECADR    DVCNTR                                
001383,000379: 24,2001  E7,1672                                 EBANK=   P40TMP                                
001384,000380: 24,2001           03672        EBP40TMP          ECADR    P40TMP                                
001385,000381: 
001386,000382: 34,2000                                          BANK     34                                    
001387,000383: 34,2000  E7,1431                                 EBANK=   DVCNTR                                
001388,000384: 34,2000           03431        EBDVCNT           ECADR    DVCNTR                                
001389,000385: 34,2001  E5,1426                                 EBANK=   QPLACES                               
001390,000386: 34,2001           02426        EBQPLACE          ECADR    QPLACES                               
001391,000387: 
001392,000388: 37,2000                                          BANK     37                                    
001393,000389: 37,2000     1231                                 EBANK=   RN1                                   
001394,000390: 37,2000           01231        EBRN1             ECADR    RN1                                   
001395,000391: 
001396,000392:                                                                                                 #  ****************************************************************************************************************
001397,000393: 
001398,000394:                                                                                                 # # Page 33
001399,000395: 
001400,000396:                                                                                                 #  SUBROUTINE CALLS
001401,000397: 
001402,000398: 37,2001                                          SUBRO    KILERASE                              
001403,000399: 37,2001                                          SUBRO    KOOLADE                               
001404,000400: 37,2001                                          SUBRO    SMOOCH                                
001405,000401: 37,2001                                          SUBRO    PANDORA                               
001406,000402: 37,2001                                          SUBRO    DAPCSM                                
001407,000403: 37,2001                                          SUBRO    SATRAP                                
001408,000404: 
001409,000405: 
001410,000406:                                                                                                 #  *** END OF MAIN PROGRAM ***

End of include-file TAGS_FOR_RELATIVE_SETLOC_AND_BLANK_BANK_CARDS.agc.  Parent file is MAIN.agc