Source Code

These source-code files were obtained by digitally photographing a Solarium 55 (Apollo 6) program listing from the American Computer Museum in Bozeman, Montana. Photography was by Ron Burkey, with assistance from museum curator George Keremedjiev and Montana State University curator Kim Scott. The listing originally belonged to Eldon C. Hall, who donated it to the museum. Volunteers then manually typed in the source code or else modified similar pre-existing Colossus 249 (Apollo 9) source files to incorporate changes, although this transcription was principally done by Jim Lawton and corrected by Ron Burkey. Notations on the program listing read, in part:

        YUL SYSTEM FOR AGC4: REVISION 0 OF PROGRAM SOLRUM55
	BY NASA 1021108-021                    DEC. 4, 1966
Note that the date is the date of the printout, not the date of the program revision.

Due to statements by Jay Sampson, the original contractor from AC Electronics who created Solarium 54 (Apollo 4) from the earlier Corona (AS-202 mission) program, it is believed that Solarium 54 and Solarium 55 (Apollo 6) are actually identical programs. The change in numbering, from 54 to 55, is believed to be for some administrative purpose. Thus, it is believed that the source-code represented here is equally appropriate for both Apollo 4 and Apollo 6 missions.

009079,000002:                                                                                                  ## Copyright:   Public domain.
009080,000003:                                                                                                  ## Filename:    EXTENDED_VERBS_FOR_MODING.agc
009081,000004:                                                                                                  ## Purpose:     Part of the source code for Solarium build 55. This
009082,000005:                                                                                                  ##              is for the Command Module's (CM) Apollo Guidance
009083,000006:                                                                                                  ##              Computer (AGC), for Apollo 6.
009084,000007:                                                                                                  ## Assembler:   yaYUL --block1
009085,000008:                                                                                                  ## Contact:     Jim Lawton <jim DOT lawton AT gmail DOT com>
009086,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
009087,000010:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Solarium055/
009088,000011:                                                                                                  ## Mod history: 2009-10-08 JL   Created.
009089,000012:                                                                                                  ##              2009-08-19 RSB  Typos.
009090,000013:                                                                                                  ##              2016-08-23 RSB  More of the same.
009091,000014:                                                                                                  ##              2016-12-28 RSB  Proofed comment text using octopus/ProoferComments,
009092,000015:                                                                                                  ##                              and fixed errors found.
009093,000016: 

Page 235

009095,000018: 
009096,000019:                                                                                                  #  VERB PLEASE PERFORM AND VERB PLEASE MARK ----- FLASH SHOULD BE TURNED ON
009097,000020:                                                                                                  #  (FLASHON) BY ROUTINE PASTING EITHER UP. FLASH IS TURNED OFF BY ENTER OF
009098,000021:                                                                                                  #  PLEASE PERFORM, OR ENTER OF PLEASE MARK.
009099,000022: 
009100,000023:                                                                                                  #  BOTH FLASHON AND FLASHOFF MUST NOT BE USED IN INTERRUPTED STATE.
009101,000024: 
009102,000025:                                                                                                  #  PLEASE PERFORM VERB AND PLEASE MARK VERB-----
009103,000026:                                                                                                  #  PRESSING ENTER INDICATES ACTION REQUESTED HAS
009104,000027:                                                                                                  #  BEEN PERFORMED, AND DOES SAME RECALL AS A COMPLETED LOAD. OPERATOR
009105,000028:                                                                                                  #  SHOULD DO VERB PROCEED WITHOUT DATA IF WISHES NOT TO PERFORM THE
009106,000029:                                                                                                  #  REQUESTED ACTION.
009107,000030: 
009108,000031: 
009109,000032: 
009110,000033:                                                                                                  #  FAN-OUT
009111,000034: 
009112,000035: 05,6000                                           SETLOC   12000                                 
009113,000036: 
009114,000037: 05,6000                        PINTEST            EQUALS                                         #  THIS MUST = 05,6000 FOR PINBALL
009115,000038:                                                                                                  #  VERIFICATION.  DO NOT MOVE WITHOUT
009116,000039:                                                                                                  #  INFORMING ALAN GREEN.
009117,000040: 
009118,000041: 05,6000           06077        LST2FAN            TC       VBZERO                                #  VB40 ZERO(USED WITH NOUN ICDU OR OCDU)
009119,000042: 05,6001           06102                           TC       VBCOARK                               #  VB41 COARSE ALIGN(USED WITH NOUN ICDU
009120,000043:                                                                                                  #             OR OCDU)
009121,000044: 05,6002           06220                           TC       IMUFINEK                              #  VB42 FINE ALIGN IMU
009122,000045: 05,6003           06253                           TC       IMULOCKK                              #  VB43 LOCK IMU
009123,000046: 05,6004           06262                           TC       IMUATTCK                              #  VB44 SET IMU TO ATTITUDE CONTROL
009124,000047: 05,6005           06316                           TC       IMUREENK                              #  VB45 SET IMU TO RE-ENTRY CONTROL
009125,000048: 05,6006           06352                           TC       IMUCORK                               #  VB46  RETURN IMU TO COARSE ALIGN
009126,000049: 05,6007           06075                           TC       ALM/END                               #  VB47 OPTICAL TRACKER ON(NOT IN USE YET)
009127,000050: 05,6010           06437                           TC       GOLOADLV                              #  VB50 PLEASE PERFORM
009128,000051: 05,6011           06437                           TC       GOLOADLV                              #  VB51 PLEASE MARK
009129,000052: 05,6012           06415                           TC       DOMKREJ                               #  VB52 MARK REJECT (UNTIL BUTTON AVAIL.)
009130,000053: 05,6013           06444                           TC       RELO/IK                               #  VV53 FREE  (USED WITH NOUN ICDU OR OCDU)
009131,000054: 05,6014           06454                           TC       TORQGYRS                              #  VB54 PULSE TORQUE GYROS
009132,000055: 05,6015           06502                           TC       ALINTIME                              #  VB55 ALIGN TIME
009133,000056: 05,6016           07014                           TC       GOSHOSUM                              #  VB56 PERFORMS BANKSUM
009134,000057: 05,6017           06752                           TC       SYSTEST                               #  VB57 DO SYSTEM TEST
009135,000058: 05,6020           06545                           TC       PRESTAND                              #  VB60 PREPARE FOR STANDBY
009136,000059: 05,6021           06652                           TC       POSTAND                               #  VB61 RECOVER FROM STANBBY
009137,000060: 05,6022           30000                           NOOP                                           #  ILLEGAL VERB.
009138,000061: 05,6023           30000                           NOOP                                           #  ILLEGAL VERB.
009139,000062: 05,6024           30000                           NOOP                                           #  ILLEGAL VERB.
009140,000063: 05,6025           30000                           NOOP                                           #  ILLEGAL VERB.
009141,000064: 05,6026           30000                           NOOP                                           #  ILLEGAL VERB.
009142,000065: 05,6027           30000                           NOOP                                           #  ILLEGAL VERB.
009143,000066: 05,6030           06075                           TC       ALM/END                               
009144,000067: 05,6031           06043                           TC       71JUMPTO                              #  VERB 71 IS TFFMIN UPDATE
009145,000068: 05,6032           06045                           TC       ABRTJPTO                              #  VERB 72 ABORTS

Page 236

009147,000070: 05,6033           30000                           NOOP                                           #  ILLEGAL VERB.
009148,000071: 05,6034           06075                           TC       ALM/END                               
009149,000072: 05,6035           07016                           TC       EXTRAI/O                              #  VB75 MANUAL INPUT/OUTPUT OPTIONS.
009150,000073: 05,6036           06041                           TC       76JUMPTO                              #  VERB 76 IS STATE VECTOR UPDATE
009151,000074: 05,6037           05720                           TC       POSTJUMP                              #  VERB 77 IS L/O TIME UPDATE
009152,000075: 05,6040           26761                           CADR     77UPDATE                              
009153,000076: 05,6041           05720        76JUMPTO           TC       POSTJUMP                              
009154,000077: 05,6042           26753                           CADR     76UPDATE                              
009155,000078: 05,6043           05720        71JUMPTO           TC       POSTJUMP                              
009156,000079: 05,6044           26757                           CADR     71UPDATE                              
009157,000080: 05,6045           05720        ABRTJPTO           TC       POSTJUMP                              
009158,000081: 05,6046           64477                           CADR     ABORTRPT                              
009159,000082: 
009160,000083: 05,6047           34514        TESTXACT           CAF      BIT3                                  
009161,000084: 05,6050           70645                           MASK     EXTVBACT                              
009162,000085: 05,6051           10000                           CCS      A                                     
009163,000086: 05,6052           06062                           TC       XACTALM                               
009164,000087: 
009165,000088: 05,6053           44514        XACT1              CS       BIT3                                  
009166,000089: 05,6054           20017                           INHINT                                         
009167,000090: 05,6055           70645                           MASK     EXTVBACT                              
009168,000091: 05,6056           64514                           AD       BIT3                                  
009169,000092: 05,6057           50645                           TS       EXTVBACT                              
009170,000093: 05,6060           20016                           RELINT                                         
009171,000094: 05,6061           00001                           TC       Q                                     
009172,000095: 
009173,000096: 05,6062           03233        XACTALM            TC       FALTON                                
009174,000097: 05,6063           02124                           TC       ENDOFJOB                              
009175,000098: 
009176,000099: 05,6064           03362        TERMEXTV           TC       FREEDSP                               #  IF WE GET A TERMINATE INSTEAD OF A LOAD.
009177,000100: 
009178,000101: 05,6065           06067        ENDEXTVB           TC       XACT0                                 
009179,000102: 05,6066           02124                           TC       ENDOFJOB                              
009180,000103: 
009181,000104: 05,6067           44514        XACT0              CS       BIT3                                  
009182,000105: 05,6070           20017                           INHINT                                         
009183,000106: 05,6071           70645                           MASK     EXTVBACT                              
009184,000107: 05,6072           50645                           TS       EXTVBACT                              
009185,000108: 05,6073           20016                           RELINT                                         
009186,000109: 05,6074           00001                           TC       Q                                     
009187,000110: 
009188,000111: 
009189,000112: 
009190,000113: 05,6075           03233        ALM/END            TC       FALTON                                
009191,000114: 05,6076           06065                           TC       ENDEXTVB                              
009192,000115: 
009193,000116: 
009194,000117: 
009195,000118: 05,6077           06105        VBZERO             TC       OP/INERT                              
009196,000119: 05,6100           06126                           TC       IMUZEROK                              #  RETURN HERE IF NOUN = ICDU(20)

Page 237

009198,000121: 05,6101           06075                           TC       ALM/END                               #  RETURN HERE IF NOUN = OCDU(55)
009199,000122:                                                                                                  #          (NOT IN USE YET)
009200,000123: 
009201,000124: 05,6102           06105        VBCOARK            TC       OP/INERT                              
009202,000125: 05,6103           06142                           TC       IMUCOARK                              #  RETURN HERE IF NOUN = ICDU(20)
009203,000126: 05,6104           06367                           TC       OPTCOARK                              #  RETURN HERE IF NOUN = OCDU(55)
009204,000127: 

Page 238

009206,000129: 
009207,000130:                                                                                                  #        SUBROUTINE FOR CHECKING GIVEN NOUN IF APPROPRIATE.
009208,000131: 
009209,000132: 05,6105           30001        OP/INERT           XCH      Q                                     #  RETURNS TO L+1 IF NOUN=ICDU(20)
009210,000133: 05,6106           50106                           TS       WDRET                                 #  RETURNS TO L+2 IF NOUN = OCDU(55)
009211,000134: 05,6107           46113                           CS       NNICDU                                #    ALARMS IF ANY OTHER NOUN
009212,000135: 05,6110           60603                           AD       NOUNREG                               
009213,000136: 05,6111           10000                           CCS      A                                     
009214,000137: 05,6112           06116                           TC       +4                                    #  NN G/ 20
009215,000138: 05,6113           00020        NNICDU             OCT      20                                    
009216,000139: 05,6114           06075                           TC       ALM/END                               #  NN L/ 20
009217,000140: 05,6115           00106                           TC       WDRET                                 #  NN = 20
009218,000141: 05,6116           46122                           CS       NNOCDU                                
009219,000142: 05,6117           60603                           AD       NOUNREG                               
009220,000143: 05,6120           10000                           CCS      A                                     
009221,000144: 05,6121           06075                           TC       ALM/END                               #  NN G/ 55
009222,000145: 05,6122           00055        NNOCDU             OCT      55                                    
009223,000146: 05,6123           06075                           TC       ALM/END                               #  NN L/ 55
009224,000147: 05,6124           20106                           INDEX    WDRET                                 #  NN = 55
009225,000148: 05,6125           00001                           TC       1                                     
009226,000149: 

Page 239

009228,000151: 
009229,000152:                                                                                                  #  KEYBOARD REQUEST TO ZERO IMU ENCODERS
009230,000153: 
009231,000154: 05,6126           06047        IMUZEROK           TC       TESTXACT                              #  ZERO ENCODERS.
009232,000155: 05,6127           05654                           TC       BANKCALL                              
009233,000156: 05,6130           30000                           CADR     IMUZERO                               
009234,000157: 
009235,000158: 05,6131           05654                           TC       BANKCALL                              #  STALL
009236,000159: 05,6132           30331                           CADR     IMUSTALL                              
009237,000160: 05,6133           06134                           TC       +1                                    
009238,000161: 
009239,000162: 05,6134           20017        ENDMZERO           INHINT                                         
009240,000163: 05,6135           45070                           CS       ZLITBITS                              #  TURN OFF ZEROING LIGHT TO SHOW COMPLETE.
009241,000164: 05,6136           70723                           MASK     DSPTAB     +11D                       
009242,000165: 05,6137           64500                           AD       BIT15                                 
009243,000166: 05,6140           50723                           TS       DSPTAB     +11D                       
009244,000167: 05,6141           06065                           TC       ENDEXTVB                              
009245,000168: 

Page 240

009247,000170: 
009248,000171:                                                                                                  #  KEYBOARD REQUEST TO COARSE ALIGN THE IMU
009249,000172: 
009250,000173: 05,6142           06047        IMUCOARK           TC       TESTXACT                              #  COARSE ALIGN FROM KEYBOARD.
009251,000174: 05,6143           03302                           TC       GRABDSP                               
009252,000175: 05,6144           03310                           TC       PREGBSY                               
009253,000176: 05,6145           36165                           CAF      VNLODCDU                              #  CALL FOR THETAD LOAD
009254,000177: 05,6146           03100                           TC       NVSUB                                 
009255,000178: 05,6147           03315                           TC       PRENVBSY                              
009256,000179: 05,6150           03136                           TC       ENDIDLE                               #  STALL WAITING FOR THE LOAD
009257,000180: 05,6151           06064                           TC       TERMEXTV                              
009258,000181: 05,6152           06167                           TC       ICSDEL                                #  PROCEED - ASK FOR INCREMENTAL LOAD.
009259,000182: 
009260,000183: 05,6153           36166        ICORK2             CAF      IMUCOARV                              #  RE-DISPLAY COARSE ALIGN VERB.
009261,000184: 05,6154           03100                           TC       NVSUB                                 
009262,000185: 05,6155           03315                           TC       PRENVBSY                              
009263,000186: 05,6156           03362                           TC       FREEDSP                               #  RELEASE THE DISPLAYS
009264,000187: 
009265,000188: 05,6157           05654                           TC       BANKCALL                              #  CALL MODE SWITCHING PROG
009266,000189: 05,6160           30104                           CADR     IMUCOARS                              
009267,000190: 
009268,000191: 05,6161           05654                           TC       BANKCALL                              #  STALL
009269,000192: 05,6162           30331                           CADR     IMUSTALL                              
009270,000193: 05,6163           06065                           TC       ENDEXTVB                              
009271,000194: 05,6164           06065                           TC       ENDEXTVB                              
009272,000195: 
009273,000196: 05,6165           02522        VNLODCDU           OCT      02522                                 
009274,000197: 05,6166           04100        IMUCOARV           OCT      04100                                 
009275,000198: 

Page 241

009277,000200: 
009278,000201:                                                                                                  #        PROVISION FOR COARSE ALIGN TO INCREMENTAL ANGLES.
009279,000202: 
009280,000203: 05,6167           36216        ICSDEL             CAF      DELLOAD                               
009281,000204: 05,6170           03100                           TC       NVSUB                                 #  REQUEST LOAD OF DELTA ICDU ANGLES.
009282,000205: 05,6171           03315                           TC       PRENVBSY                              
009283,000206: 05,6172           03136                           TC       ENDIDLE                               
009284,000207: 05,6173           06064                           TC       TERMEXTV                              
009285,000208: 05,6174           06153                           TC       ICORK2                                #  PROCEED WITHOUT DATA HERE TOO.
009286,000209: 05,6175           06177                           TC       INCLOOP                               #  LOOP TO INCREMENT THETAD FROM DSPTEM2.
009287,000210: 05,6176           06153                           TC       ICORK2                                #  RE-DISPLAY COARSE ALIGN VERB.
009288,000211: 
009289,000212: 05,6177           30001        INCLOOP            XCH      Q                                     #  INCREMENTS THETADS IN 2S COMPLEMENT FROM
009290,000213: 05,6200           50115                           TS       MPAC                                  #   THREE ANGLE INCREMENTS IN DSPTEM2S.
009291,000214: 05,6201           36217                           CAF      LTHD+2                                
009292,000215: 05,6202           50077                           TS       BUF                                   #  SET UP FOR CDUINC.
009293,000216: 05,6203           35503                           CAF      TWO                                   #  THREE TIMES THROUGH.
009294,000217: 
009295,000218: 05,6204           50116        INCLOOP2           TS       MPAC       +1                         
009296,000219: 05,6205           20000                           INDEX    A                                     
009297,000220: 05,6206           30621                           XCH      DSPTEM2                               #  INCREMENT TO TEM2 FOR CDUINC.
009298,000221: 05,6207           05654                           TC       BANKCALL                              
009299,000222: 05,6210           30361                           CADR     CDUINC                                
009300,000223: 05,6211           10077                           CCS      BUF                                   
009301,000224: 05,6212           50077                           TS       BUF                                   
009302,000225: 05,6213           10116                           CCS      MPAC       +1                         
009303,000226: 05,6214           06204                           TC       INCLOOP2                              
009304,000227: 
009305,000228: 05,6215           00115                           TC       MPAC                                  #  RETURN WHEN FINISHED.
009306,000229: 
009307,000230: 05,6216           02523        DELLOAD            OCT      02523                                 
009308,000231: 05,6217           00702        LTHD+2             ADRES    THETAD     +2                         
009309,000232: 

page 242

009311,000234: 
009312,000235:                                                                                                  #  KEYBOARD REQUEST TO FINE ALIGN AND GYRO TORQUE IMU
009313,000236: 
009314,000237: 05,6220           06047        IMUFINEK           TC       TESTXACT                              #  FINE ALIGN WITH GYRO TORQUING.
009315,000238: 05,6221           03302                           TC       GRABDSP                               
009316,000239: 05,6222           03310                           TC       PREGBSY                               
009317,000240: 05,6223           36251                           CAF      VNLODGYR                              #  CALL FOR LOAD OF GYRO COMMANDS
009318,000241: 05,6224           03100                           TC       NVSUB                                 
009319,000242: 05,6225           03315                           TC       PRENVBSY                              
009320,000243: 05,6226           03136                           TC       ENDIDLE                               #  HOLD UP FOR THE DATA LOAD
009321,000244: 05,6227           06064                           TC       TERMEXTV                              
009322,000245: 05,6230           06231                           TC       +1                                    #  PROCEED WITHOUT A LOAD
009323,000246: 
009324,000247: 05,6231           36252                           CAF      IMUFINEV                              #  RE-DISPLAY OUR OWN VERB
009325,000248: 05,6232           03100                           TC       NVSUB                                 
009326,000249: 05,6233           03315                           TC       PRENVBSY                              
009327,000250: 05,6234           03362                           TC       FREEDSP                               #  RELEASE DISPLAYS
009328,000251: 
009329,000252: 05,6235           05654                           TC       BANKCALL                              #  CALL MODE SWITCH PROG
009330,000253: 05,6236           30143                           CADR     IMUFINE                               
009331,000254: 
009332,000255: 05,6237           05654                           TC       BANKCALL                              #  HIBERNATION
009333,000256: 05,6240           30331                           CADR     IMUSTALL                              
009334,000257: 05,6241           06065                           TC       ENDEXTVB                              
009335,000258: 05,6242           36500                           CAF      LGYROBIN                              #  PINBALL LEFT COMMANDS IN OGC REGIST5RS
009336,000259: 05,6243           05654                           TC       BANKCALL                              
009337,000260: 05,6244           31433                           CADR     GYRODPNT                              
009338,000261: 
009339,000262: 05,6245           05654                           TC       BANKCALL                              #  WAIT FOR PULSES TO GET OUT.
009340,000263: 05,6246           30331                           CADR     IMUSTALL                              
009341,000264: 05,6247           06065                           TC       ENDEXTVB                              
009342,000265: 05,6250           06065                           TC       ENDEXTVB                              
009343,000266: 
009344,000267: 05,6251           02567        VNLODGYR           OCT      02567                                 
009345,000268: 05,6252           04200        IMUFINEV           OCT      04200                                 #  FINE ALIGN VERB
009346,000269: 

Page 243

009348,000271: 
009349,000272:                                                                                                  #  KEYBOARD REQUEST TO LOCK THE IMU CDUS
009350,000273: 
009351,000274: 05,6253           06047        IMULOCKK           TC       TESTXACT                              
009352,000275: 05,6254           05654                           TC       BANKCALL                              
009353,000276: 05,6255           30205                           CADR     IMULOCK                               
009354,000277: 
009355,000278: 05,6256           05654                           TC       BANKCALL                              #  STALL
009356,000279: 05,6257           30331                           CADR     IMUSTALL                              
009357,000280: 05,6260           06065                           TC       ENDEXTVB                              
009358,000281: 05,6261           06065                           TC       ENDEXTVB                              
009359,000282: 

page 244

009361,000284: 
009362,000285:                                                                                                  #  KEYBOARD REQUEST TO PUT IMU IN ATTITUDE CONTROL MODE
009363,000286: 
009364,000287: 05,6262           06047        IMUATTCK           TC       TESTXACT                              #  ATTITUDE CONTROL.
009365,000288: 05,6263           03302                           TC       GRABDSP                               
009366,000289: 05,6264           03310                           TC       PREGBSY                               
009367,000290: 05,6265           36216                           CAF      DELLOAD                               #  ASK FOR DELTA ANGLE LOAD.
009368,000291: 05,6266           03100                           TC       NVSUB                                 
009369,000292: 05,6267           03315                           TC       PRENVBSY                              
009370,000293: 05,6270           03136                           TC       ENDIDLE                               #  STALL WAITING FOR LOAD
009371,000294: 05,6271           06064                           TC       TERMEXTV                              
009372,000295: 05,6272           06306                           TC       ATTCABS                               #  PROCEED - ASK FOR ABSOLUTE ANGLES.
009373,000296: 05,6273           06177                           TC       INCLOOP                               #  ADD INCREMENTS TO DESIRED ANGLES.
009374,000297: 
009375,000298: 05,6274           36315        ATTCK2             CAF      IMUATTCV                              
009376,000299: 05,6275           03100                           TC       NVSUB                                 
009377,000300: 05,6276           03315                           TC       PRENVBSY                              
009378,000301: 05,6277           03362                           TC       FREEDSP                               #  LET THE DISPLAYS GO
009379,000302: 
009380,000303: 05,6300           05654                           TC       BANKCALL                              #  CALL THE MODE SWITCH PROG
009381,000304: 05,6301           30223                           CADR     IMUATTC                               
009382,000305: 
009383,000306: 05,6302           05654                           TC       BANKCALL                              #  STALL
009384,000307: 05,6303           30331                           CADR     IMUSTALL                              
009385,000308: 05,6304           06065                           TC       ENDEXTVB                              
009386,000309: 05,6305           06065                           TC       ENDEXTVB                              
009387,000310: 
009388,000311:                                                                                                  #  PROVISIONS FOR ABSOLUTE LOAD FOR IMU CDUS IN ATTITUDE CONTROL.
009389,000312: 
009390,000313: 05,6306           36165        ATTCABS            CAF      VNLODCDU                              #  ASK FOR ABSOLUTE CDU ANGLES.
009391,000314: 05,6307           03100                           TC       NVSUB                                 
009392,000315: 05,6310           03315                           TC       PRENVBSY                              
009393,000316: 05,6311           03136                           TC       ENDIDLE                               
009394,000317: 05,6312           06064                           TC       TERMEXTV                              
009395,000318: 05,6313           06274                           TC       ATTCK2                                
009396,000319: 05,6314           06274                           TC       ATTCK2                                #  SECOND PROCEED WITHOUT DATA.
009397,000320: 
009398,000321: 05,6315           04400        IMUATTCV           OCT      04400                                 
009399,000322: 

Page 245

009401,000324: 
009402,000325:                                                                                                  #  KEYBOARD REQUEST TO PUT THE IMU IN RE-ENTRY CONTROL MODE
009403,000326: 
009404,000327: 05,6316           06047        IMUREENK           TC       TESTXACT                              #  RE-ENTRY.
009405,000328: 05,6317           03302                           TC       GRABDSP                               
009406,000329: 05,6320           03310                           TC       PREGBSY                               
009407,000330: 05,6321           36216                           CAF      DELLOAD                               #  LOAD INCREMENTAL ANGLES.
009408,000331: 05,6322           03100                           TC       NVSUB                                 
009409,000332: 05,6323           03315                           TC       PRENVBSY                              
009410,000333: 05,6324           03136                           TC       ENDIDLE                               #  STALL FOR THE LOAD
009411,000334: 05,6325           06064                           TC       TERMEXTV                              
009412,000335: 05,6326           06342                           TC       REENTABS                              #  PROCEED - ASK FOR ABSOLUTE LOAD.
009413,000336: 05,6327           06177                           TC       INCLOOP                               
009414,000337: 
009415,000338: 05,6330           36351        REENTK2            CAF      IMUREENV                              #  RE-DISPLAY VERB.
009416,000339: 05,6331           03100                           TC       NVSUB                                 
009417,000340: 05,6332           03315                           TC       PRENVBSY                              
009418,000341: 05,6333           03362                           TC       FREEDSP                               #  LET THE DISPLAYS GO
009419,000342: 
009420,000343: 05,6334           05654                           TC       BANKCALL                              #  CALL MODE SWITCH PROG
009421,000344: 05,6335           30216                           CADR     IMUREENT                              
009422,000345: 
009423,000346: 05,6336           05654                           TC       BANKCALL                              #  STALL
009424,000347: 05,6337           30331                           CADR     IMUSTALL                              
009425,000348: 05,6340           06065                           TC       ENDEXTVB                              
009426,000349: 05,6341           06065                           TC       ENDEXTVB                              
009427,000350: 
009428,000351: 05,6342           36165        REENTABS           CAF      VNLODCDU                              #  REQUEST ABSOLUTE ANGLES.
009429,000352: 05,6343           03100                           TC       NVSUB                                 
009430,000353: 05,6344           03315                           TC       PRENVBSY                              
009431,000354: 05,6345           03136                           TC       ENDIDLE                               
009432,000355: 05,6346           06064                           TC       TERMEXTV                              #  TERMINATE
009433,000356: 05,6347           06330                           TC       REENTK2                               
009434,000357: 05,6350           06330                           TC       REENTK2                               
009435,000358: 05,6351           04500        IMUREENV           OCT      04500                                 
009436,000359: 

Page 246

009438,000361: 
009439,000362:                                                                                                  #  KEYBOARD REQUEST TO RETURN THE IMU TO COARSE ALIGN
009440,000363: 
009441,000364: 05,6352           06047        IMUCORK            TC       TESTXACT                              #  BACK TO COARSE ALIGN (FROM FINE).
009442,000365: 05,6353           05654                           TC       BANKCALL                              
009443,000366: 05,6354           30134                           CADR     IMURECOR                              
009444,000367: 
009445,000368: 05,6355           05654                           TC       BANKCALL                              
009446,000369: 05,6356           30331                           CADR     IMUSTALL                              
009447,000370: 05,6357           06065                           TC       ENDEXTVB                              
009448,000371: 05,6360           06065                           TC       ENDEXTVB                              
009449,000372: 

Page 247

009451,000374: 
009452,000375:                                                                                                  #  KEYBOARD REQUEST TO ZERO OPTICS CDUS
009453,000376: 
009454,000377: 05,6361           05654        OPTZEROK           TC       BANKCALL                              #  CALL MODE PROG
009455,000378: 05,6362           12367                           CADR     OPTZERO                               
009456,000379: 
009457,000380: 05,6363           05654                           TC       BANKCALL                              #  STALL
009458,000381: 05,6364           30327                           CADR     OPTSTALL                              
009459,000382: 05,6365           06065                           TC       ENDEXTVB                              
009460,000383: 05,6366           06065                           TC       ENDEXTVB                              
009461,000384: 
009462,000385: 05,6367                        OPTZERO            =                                              #  INTERFACES NOT CURRENTLY WIRED *********
009463,000386: 

Page 248

009465,000388: 
009466,000389:                                                                                                  #  TEMPORARY ROUTINE TO RUN THE OPTICS CDUS FROM THE KEYBOARD
009467,000390: 
009468,000391: 05,6367           03302        OPTCOARK           TC       GRABDSP                               #  SNATCH THEM DISPLAYS
009469,000392: 05,6370           03310                           TC       PREGBSY                               
009470,000393: 05,6371           36406                           CAF      VNLDOCDU                              #  VERB-NOUN TO LOAD OPTICS CDUS
009471,000394: 05,6372           03100                           TC       NVSUB                                 
009472,000395: 05,6373           03315                           TC       PRENVBSY                              
009473,000396: 05,6374           03136                           TC       ENDIDLE                               #  WAIT FOR THE LOAD
009474,000397: 05,6375           06064                           TC       TERMEXTV                              
009475,000398: 05,6376           06377                           TC       +1                                    #  PROCEED
009476,000399: 
009477,000400: 05,6377           36166                           CAF      OPTCOARV                              #  RE-DISPLAY OUR OWN VERB
009478,000401: 05,6400           03100                           TC       NVSUB                                 
009479,000402: 05,6401           03315                           TC       PRENVBSY                              
009480,000403: 05,6402           03362                           TC       FREEDSP                               #  LET IT GO
009481,000404: 
009482,000405: 05,6403           35501                           CAF      ZERO                                  
009483,000406: 05,6404           50703                           TS       OPTIND                                #  SNATCH OPTICS
009484,000407: 
009485,000408: 05,6405           06065                           TC       ENDEXTVB                              
009486,000409: 
009487,000410: 05,6406           02457        VNLDOCDU           OCT      02457                                 
009488,000411: 05,6407  05,6166               OPTCOARV           EQUALS   IMUCOARV                              #  DIFFERENT NOUNS.
009489,000412: 

Page 249

009491,000414: 
009492,000415:                                                                                                  #  KEYBOARD REQUEST TO ACTIVATE THE OPTICAL STAR TRACKER
009493,000416: 
009494,000417: 05,6407           05654        OPTTRONK           TC       BANKCALL                              
009495,000418: 05,6410           12415                           CADR     OPTTRKON                              #  CALL MODE SWITCHER
009496,000419: 
009497,000420: 05,6411           05654                           TC       BANKCALL                              #  STALL
009498,000421: 05,6412           30327                           CADR     OPTSTALL                              
009499,000422: 05,6413           06065                           TC       ENDEXTVB                              
009500,000423: 05,6414           06065                           TC       ENDEXTVB                              
009501,000424: 
009502,000425: 05,6415                        OPTTRKON           =                                              #  NOT AVAILABLE JUST NOW
009503,000426: 
009504,000427: 05,6415           20017        DOMKREJ            INHINT                                         #  DO 10 MS WAITLIST CALL TO MK REJECT PROG
009505,000428: 05,6416           40735                           CS       MARKSTAT                              #  MARK REJECT IS ENABLED ONLY IF BIT10
009506,000429: 05,6417           74505                           MASK     BIT10                                 #  OF MARKSTAT = 1.
009507,000430: 05,6420           10000                           CCS      A                                     
009508,000431: 05,6421           06075                           TC       ALM/END                               
009509,000432: 
009510,000433: 05,6422           34516                           CAF      ONE                                   
009511,000434: 05,6423           02173                           TC       WAITLIST                              
009512,000435: 05,6424           30611                           CADR     MKREJECT                              #  (CALLED IN KEYRUPT WHEN BUTTON AVAIL.)
009513,000436: 05,6425           32261                           CAF      HI5                                   #  MARK REJECT ROUTINE WILL RE-PASTE VB51
009514,000437: 05,6426           70735                           MASK     MARKSTAT                              #  IF ALL MARKS WERE IN.
009515,000438: 05,6427           10000                           CCS      A                                     
009516,000439: 05,6430           06432                           TC       +2                                    
009517,000440: 05,6431           02124                           TC       ENDOFJOB                              
009518,000441: 
009519,000442: 05,6432           20016                           RELINT                                         
009520,000443: 05,6433           05654                           TC       BANKCALL                              #  RE-DISPLAY VB 51 SINCE MORE MARKS
009521,000444: 05,6434           14000                           CADR     FLASHON                               #  REQUIRED.
009522,000445: 05,6435           05720                           TC       POSTJUMP                              
009523,000446: 05,6436           30755                           CADR     REMKVB51                              
009524,000447: 
009525,000448:                                                                                                  #  PLEASE PERFORM VERB AND PLEASE MARK VERB ----- PRESSING ENTER INDICATES
009526,000449:                                                                                                  #  ACTION REQUESTED HAS BEEN PERFORMED, AND DOES SAME RECALL AS A COMPLETED
009527,000450:                                                                                                  #  LOAD.  OPERATOR SHOULD DO VB PROCEED WITHOUT DATA IF HE WISHES NOT TO
009528,000451:                                                                                                  #  PERFORM THE REQUESTED ACTION.
009529,000452: 
009530,000453: 05,6437           05654        GOLOADLV           TC       BANKCALL                              
009531,000454: 05,6440           14003                           CADR     FLASHOFF                              
009532,000455: 05,6441           06067                           TC       XACT0                                 
009533,000456: 05,6442           05720                           TC       POSTJUMP                              
009534,000457: 05,6443           16006                           CADR     LOADLV1                               
009535,000458: 

Page 250

009537,000460: 
009538,000461:                                                                                                  #  KEYBOARD REQUEST TO RELEASE IMU OR OPTICS
009539,000462: 
009540,000463: 05,6444           06105        RELO/IK            TC       OP/INERT                              
009541,000464: 05,6445           06451                           TC       IMURELK                               #  RETURN HERE IF IMU
009542,000465: 05,6446           45501                           CS       ZERO                                  #  RETURN HERE IF OPTICS
009543,000466: 05,6447           50703                           TS       OPTIND                                
009544,000467: 05,6450           02124                           TC       ENDOFJOB                              
009545,000468: 
009546,000469: 05,6451           45501        IMURELK            CS       ZERO                                  
009547,000470: 05,6452           50677                           TS       CDUIND                                
009548,000471: 05,6453           02124                           TC       ENDOFJOB                              
009549,000472: 

Page 251

009551,000474: 
009552,000475:                                                                                                  #  KEYBOARD REQUEST TO PULSE TORQUE IRIGA
009553,000476: 
009554,000477: 
009555,000478: 
009556,000479: 05,6454           06047        TORQGYRS           TC       TESTXACT                              #  GYRO TORQUING WITH NO MODE-SWITCH.
009557,000480: 05,6455           03302                           TC       GRABDSP                               
009558,000481: 05,6456           03310                           TC       PREGBSY                               
009559,000482: 05,6457           36251                           CAF      VNLODGYR                              
009560,000483: 05,6460           03100                           TC       NVSUB                                 
009561,000484: 05,6461           03315                           TC       PRENVBSY                              
009562,000485: 05,6462           03136                           TC       ENDIDLE                               
009563,000486: 05,6463           06064                           TC       TERMEXTV                              
009564,000487: 05,6464           06465                           TC       +1                                    
009565,000488: 05,6465           36501                           CAF      TORQGYRV                              #  RE-DISPLAY OUR OWN VERB
009566,000489: 05,6466           03100                           TC       NVSUB                                 
009567,000490: 05,6467           03315                           TC       PRENVBSY                              
009568,000491: 05,6470           03362                           TC       FREEDSP                               
009569,000492: 05,6471           36500                           CAF      LGYROBIN                              
009570,000493: 05,6472           05654                           TC       BANKCALL                              
009571,000494: 05,6473           31433                           CADR     GYRODPNT                              
009572,000495: 05,6474           05654                           TC       BANKCALL                              #  WAIT FOR PULSES TO GET OUT.
009573,000496: 05,6475           30331                           CADR     IMUSTALL                              
009574,000497: 05,6476           06065                           TC       ENDEXTVB                              
009575,000498: 05,6477           06065                           TC       ENDEXTVB                              
009576,000499: 
009577,000500: 05,6500           01520        LGYROBIN           ADRES    OGC                                   
009578,000501: 05,6501           05400        TORQGYRV           OCT      05400                                 
009579,000502: 

Page 252

009581,000504: 
009582,000505:                                                                                                  #  ALIGN TIME
009583,000506: 05,6502           36544        ALINTIME           CAF      VNLODDT                               #  USES NVSUBMON. DOES NOT TEST DSPLOCK.
009584,000507: 05,6503           50110                           TS       NVTEMP                                #  DOES NOT KILL MONITOR.
009585,000508: 05,6504           03121                           TC       NVSUBMON                              
009586,000509: 05,6505           02124                           TC       ENDOFJOB                              #  IN CASE OF ALARM IN LOAD REQUEST SET UP.
009587,000510: 05,6506           03136                           TC       ENDIDLE                               
009588,000511: 05,6507           02124                           TC       ENDOFJOB                              #  TERMINATE
009589,000512: 05,6510           02124                           TC       ENDOFJOB                              #  PROCEED WITHOUT DATA
009590,000513: 05,6511           20017        UPDATIME           INHINT                                         #  DELTA TIME IS IN DSPTEM1, +1.
009591,000514: 05,6512           35501                           CAF      ZERO                                  
009592,000515: 05,6513           50117                           TS       MPAC       +2                         #  NEEDED FOR TP AGREE
009593,000516: 05,6514           30036                           XCH      TIME1                                 #  LO ORDER TIME
009594,000517: 05,6515           60617                           AD       DSPTEM1    +1                         
009595,000518: 05,6516           50116                           TS       MPAC       +1                         
009596,000519: 05,6517           35501                           CAF      ZERO                                  
009597,000520: 05,6520           60616                           AD       DSPTEM1                               
009598,000521: 05,6521           60035                           AD       TIME2                                 #  HI ORDER TIME
009599,000522: 05,6522           30115                           XCH      MPAC                                  
009600,000523: 05,6523           05654                           TC       BANKCALL                              
009601,000524: 05,6524           07154                           CADR     TPAGREE                               
009602,000525: 05,6525           30115                           XCH      MPAC                                  
009603,000526: 05,6526           30035                           XCH      TIME2                                 
009604,000527: 05,6527           30116                           XCH      MPAC       +1                         
009605,000528: 05,6530           30036                           XCH      TIME1                                 
009606,000529: 05,6531           10000                           CCS      A                                     
009607,000530: 05,6532           06534                           TC       +2                                    
009608,000531: 05,6533           06542                           TC       ENDALINE                              
009609,000532: 05,6534           34516                           CAF      ONE                                   #  TIME1 WAS INCREMENTED SINCE PICKUP
009610,000533: 05,6535           60036                           AD       TIME1                                 
009611,000534: 05,6536           50036                           TS       TIME1                                 
009612,000535: 05,6537           06542                           TC       ENDALINE                              
009613,000536: 05,6540           60035                           AD       TIME2                                 
009614,000537: 05,6541           30035                           XCH      TIME2                                 
009615,000538: 05,6542           20016        ENDALINE           RELINT                                         
009616,000539: 05,6543           02124                           TC       ENDOFJOB                              
009617,000540: 
009618,000541: 05,6544           02124        VNLODDT            OCT      02124                                 #  V/N FOR LOAD DELTA TIME
009619,000542: 

Page 253

009621,000544: 
009622,000545:                                                                                                  #  PREPARE FOR STANDBY OPERATION
009623,000546: 
009624,000547:                                                                                                  #  PRESTAND PREPARES FOR STANDBY BY SNAPSHOTTING IN1, TIME1, TIME2 AS SOON 
009625,000548:                                                                                                  #  AS IN1 CHANGES. IT DOES THIS BY CONTIUOUS WAITLIST REQUESTS UNTIL A
009626,000549:                                                                                                  #  CHANGE IN IN1 IS DETECTED.
009627,000550: 
009628,000551:                                                                                                  #  POSTAND RECOVERS TIME AFTER STANDBY. IT WAITS FOR A CHANGE IN IN1 (JUST
009629,000552:                                                                                                  #  AS PRESTAND DOES), THEN COMPUTES THE DIFFERENCE BETWEEN IN1 VALUES(FULL
009630,000553:                                                                                                  #  16 BITS), ADDS THIS TO THE PREVIOUSLY SNAPSHOTTED VALUES OF TIME1, TIME2
009631,000554:                                                                                                  #  AND PLACES THIS NEW TIME INTO TIME1, TIME2 COUNTERS.
009632,000555: 
009633,000556: 
009634,000557: 
009635,000558:                                                                                                  #  BIT1 OF IN1LOSAV = LAST VALUE OF BIT1 OF IN1
009636,000559: 05,6545           20017        PRESTAND           INHINT                                         #  PREPARE TIME FOR STANDBY
009637,000560: 05,6546           34516                           CAF      ONE                                   
009638,000561: 05,6547           02173                           TC       WAITLIST                              
009639,000562: 05,6550           12552                           CADR     PRESTBY                               
009640,000563: 05,6551           02124                           TC       ENDOFJOB                              
009641,000564: 
009642,000565: 05,6552           30005        PRESTBY            XCH      IN1                                   #  CALLED BY WAITLIST
009643,000566: 05,6553           74516                           MASK     BIT1                                  #  PUT BIT1 OF IN1 INTO BIT1 OF IN1LOSAV
009644,000567: 05,6554           50032                           TS       LPRUPT                                
009645,000568: 05,6555           44516                           CS       BIT1                                  
009646,000569: 05,6556           71103                           MASK     IN1LOSAV                              
009647,000570: 05,6557           60032                           AD       LPRUPT                                
009648,000571: 05,6560           51103                           TS       IN1LOSAV                              
009649,000572:                                                                                                  #  CALLED BY WAITLIST EVERY 10 MSEC
009650,000573: 05,6561           30005        PRESTBY1           XCH      IN1                                   #  UNTIL A CHANGE IN IN1 IS DETECTED.
009651,000574: 05,6562           30001                           XCH      Q                                     #  PUT ALL 16 BITS OF IN1 INTO Q
009652,000575: 05,6563           40036                           CS       TIME1                                 #  SNAPSHOT TIME1
009653,000576: 05,6564           31101                           XCH      TIME1SAV                              
009654,000577: 05,6565           40035                           CS       TIME2                                 #  SNAPSHOT TIME2
009655,000578: 05,6566           31100                           XCH      TIME2SAV                              
009656,000579: 05,6567           30001                           XCH      Q                                     #  PUT ALL 16 BITS OF IN1 INTO A
009657,000580: 05,6570           06603                           TC       IN1LOOK                               
009658,000581: 05,6571           06577                           TC       PRESTBY2                              #  RETURNS HERE IF NO CHANGE IN IN1
009659,000582: 05,6572           30572                           XCH      IN1HITEM                              #  RETURNS HERE IF IN1 HAS CHANGED
009660,000583: 05,6573           51102                           TS       IN1HISAV                              
009661,000584: 05,6574           30573                           XCH      IN1LOTEM                              #  DONE WITH BIT1 OF IN1LOSAV, DONT PROTECT
009662,000585: 05,6575           51103                           TS       IN1LOSAV                              
009663,000586: 05,6576           02256                           TC       TASKOVER                              
009664,000587: 
009665,000588: 05,6577           34516        PRESTBY2           CAF      ONE                                   #  PERPETUATES WAITLIST REQUEST EVERY 
009666,000589: 05,6600           02173                           TC       WAITLIST                              #  10 MSEC UNTIL INI CHANGES.
009667,000590: 05,6601           12561                           CADR     PRESTBY1                              
009668,000591: 05,6602           02256                           TC       TASKOVER                              
009669,000592: 

Page 254

009671,000594: 
009672,000595:                                                                                                  #  IN1LOOK RETURNS TO L+1 IF IN1 HAS NOT CHANGED SINCE LAST EXAMINATION.
009673,000596:                                                                                                  #  IT RETURNS TO L+2 IF IN1 HAS CHANGED SINCE LAST EXAMINATION, WITH
009674,000597:                                                                                                  #  BITS 16-8 OF IN1 IN BITS 9-1 OF IN1HITEM, AND BITS 7-1 OF IN1
009675,000598:                                                                                                  #  IN BITS 14-8 OF IN1LOTEM.
009676,000599: 
009677,000600: 05,6603           50573        IN1LOOK            TS       IN1LOTEM                              
009678,000601: 05,6604           35504                           CAF      NEG0                                  
009679,000602: 05,6605           50572                           TS       IN1HITEM                              #  PUT +1 FOR OF, -1 FOR UF, -0 FOR NEITHER
009680,000603: 05,6606           30001                           XCH      Q                                     
009681,000604: 05,6607           50574                           TS       LOOKRET                               
009682,000605: 05,6610           34516                           CAF      BIT1                                  
009683,000606: 05,6611           70573                           MASK     IN1LOTEM                              
009684,000607: 05,6612           50032                           TS       LPRUPT                                #  NEW VALUE OF BIT1 OF IN1
009685,000608: 05,6613           34516                           CAF      BIT1                                  
009686,000609: 05,6614           71103                           MASK     IN1LOSAV                              #  LAST VALUE OF BIT1 OF IN1
009687,000610: 05,6615           25777                           EXTEND                                         
009688,000611: 05,6616           60032                           SU       LPRUPT                                
009689,000612: 05,6617           10000                           CCS      A                                     
009690,000613: 05,6620           06624                           TC       IN1PREP                               #  IN1 HAS CHANGED
009691,000614: 05,6621           03062                           TC       CCSHOLE                               
009692,000615: 05,6622           06624                           TC       IN1PREP                               #  IN1 HAS CHANGED
009693,000616: 05,6623           00574                           TC       LOOKRET                               #  IN1 HAS NOT CHANGED. RETURN TO L+1.
009694,000617: 05,6624           30003        IN1PREP            XCH      LP                                    
009695,000618: 05,6625           50032                           TS       LPRUPT                                #  STORE LP
009696,000619: 05,6626           30573                           XCH      IN1LOTEM                              
009697,000620: 05,6627           25777                           EXTEND                                         
009698,000621: 05,6630           44507                           MP       BIT8                                  #  SHIFTS RIGHT 7
009699,000622: 05,6631           30572                           XCH      IN1HITEM                              #  PUTS BITS7-1 OF IN1 INTO BITS 14-8 OF LP
009700,000623: 05,6632           10000                           CCS      A                                     #  PUTS BITS14-8 OF IN1 INTO BITS7-1 OF A
009701,000624: 05,6633           34507                           CAF      BIT8                                  #  PUTS BIT16 OF IN1 INTO BIT9 OF A
009702,000625: 05,6634           06636                           TC       +2                                    
009703,000626: 05,6635           44507                           CS       BIT8                                  
009704,000627: 05,6636           60572                           AD       IN1HITEM                              #  PUTS BIT15 OF IN1 INTO BIT8 OF A
009705,000628: 05,6637           74607                           MASK     LOW9                                  
009706,000629: 05,6640           50572                           TS       IN1HITEM                              
009707,000630: 05,6641           30003                           XCH      LP                                    
009708,000631: 05,6642           76651                           MASK     B14-B8                                #  BIT14 THRU BIT8
009709,000632: 05,6643           50573                           TS       IN1LOTEM                              
009710,000633: 05,6644           34516                           CAF      BIT1                                  
009711,000634: 05,6645           25777                           EXTEND                                         
009712,000635: 05,6646           40032                           MP       LPRUPT                                #  RESTORE LP
009713,000636: 05,6647           20574                           INDEX    LOOKRET                               
009714,000637: 05,6650           00001                           TC       1                                     #  RETURN TO L+2
009715,000638: 05,6651           37600        B14-B8             OCT      37600                                 
009716,000639: 

Page 255

009718,000641: 
009719,000642:                                                                                                  #  RECOVER FROM STANDBY OPERATION
009720,000643: 
009721,000644: 05,6652           20017        POSTAND            INHINT                                         #  RECOVER TIME AFTER STANDBY
009722,000645: 05,6653           34516                           CAF      ONE                                   
009723,000646: 05,6654           02173                           TC       WAITLIST                              
009724,000647: 05,6655           12657                           CADR     POSTBY                                
009725,000648: 05,6656           02124                           TC       ENDOFJOB                              
009726,000649: 
009727,000650: 05,6657           30005        POSTBY             XCH      IN1                                   #  CALLED BY WAITLIST
009728,000651: 05,6660           74516                           MASK     BIT1                                  #  PUT BIT1 OF IN1 INTO BIT1 OF IN1LOSAV
009729,000652: 05,6661           50032                           TS       LPRUPT                                
009730,000653: 05,6662           44516                           CS       BIT1                                  
009731,000654: 05,6663           71103                           MASK     IN1LOSAV                              
009732,000655: 05,6664           60032                           AD       LPRUPT                                
009733,000656: 05,6665           51103                           TS       IN1LOSAV                              
009734,000657:                                                                                                  #  CALLED BY WAITLIST EVERY 10 MSEC UNTIL
009735,000658: 05,6666           30005        POSTBY1            XCH      IN1                                   #  A CHANGE IN IN1 IS DETECTED.
009736,000659: 05,6667           30001                           XCH      Q                                     #  PUT ALL 16 BITS OF IN1 INTO Q
009737,000660: 05,6670           35501                           CAF      ZERO                                  
009738,000661: 05,6671           50036                           TS       TIME1                                 #  ZERO TIME1, TIME2 IN ANTICIPATION
009739,000662: 05,6672           50035                           TS       TIME2                                 #  OF UPDATING.
009740,000663: 05,6673           30001                           XCH      Q                                     #  PUT ALL 16 BITS OF IN1 INTO A
009741,000664: 05,6674           06603                           TC       IN1LOOK                               
009742,000665: 05,6675           06724                           TC       POSTBY2                               #  RETURNS HERE IF IN1 HAS NOT CHANGED
009743,000666: 05,6676           44516                           CS       BIT1                                  #  RETURNS HERE IF IN1 HAS CHANGED
009744,000667: 05,6677           71103                           MASK     IN1LOSAV                              #  FORM DP DIFFERENCE OF C(IN1) TAKEN AFTER
009745,000668: 05,6700           40000                           COM                                            #  STANDBY MINUS C(IN1) TAKEN BEFORE
009746,000669: 05,6701           60573                           AD       IN1LOTEM                              #  STANDBY. THIS DIFF IS IN THE BITS
009747,000670: 05,6702           51105                           TS       IN1LODIF                              #  CORRESPONDING TO TIME1, TIME2.
009748,000671: 05,6703           35501                           CAF      ZERO                                  
009749,000672: 05,6704           60572                           AD       IN1HITEM                              
009750,000673: 05,6705           25777                           EXTEND                                         
009751,000674: 05,6706           61102                           SU       IN1HISAV                              
009752,000675: 05,6707           10000                           CCS      A                                     
009753,000676: 05,6710           64516                           AD       ONE                                   #  DIFF IS +
009754,000677: 05,6711           06713                           TC       +2                                    
009755,000678: 05,6712           06720                           TC       DIFFNEG                               #  DIFF IS -NZ, ADD BIT10 TO HI PART
009756,000679: 05,6713           51104        DIFFCOM            TS       IN1HIDIF                              
009757,000680: 05,6714           32166                           CAF      PRIO33                                #  GO TO EXEC TO FINISH UP
009758,000681: 05,6715           02052                           TC       NOVAC                                 #  GO TO EXEC TO FINISH UP
009759,000682: 05,6716           12730                           CADR     POSTBY3                               
009760,000683: 05,6717           02256                           TC       TASKOVER                              
009761,000684: 
009762,000685: 05,6720           64516        DIFFNEG            AD       ONE                                   
009763,000686: 05,6721           40000                           COM                                            
009764,000687: 05,6722           64505                           AD       BIT10                                 
009765,000688: 05,6723           06713                           TC       DIFFCOM                               
009766,000689: 
009767,000690: 05,6724           34516        POSTBY2            CAF      ONE                                   #  PERPETUATES WAITLIST REQUEST EVERY
009768,000691: 05,6725           02173                           TC       WAITLIST                              #  10 MSEC UNTIL INI CHANGES.

Page 256

009770,000693: 05,6726           12666                           CADR     POSTBY1                               
009771,000694: 05,6727           02256                           TC       TASKOVER                              
009772,000695: 
009773,000696: 
009774,000697: 
009775,000698: 05,6730           41101        POSTBY3            CS       TIME1SAV                              #  CALLED BY EXEC
009776,000699: 05,6731           61105                           AD       IN1LODIF                              #  TIME WAS STORED COMP
009777,000700: 05,6732           50116                           TS       MPAC       +1                         
009778,000701: 05,6733           35501                           CAF      ZERO                                  
009779,000702: 05,6734           61104                           AD       IN1HIDIF                              
009780,000703: 05,6735           25777                           EXTEND                                         
009781,000704: 05,6736           61100                           SU       TIME2SAV                              #  TIME WAS STORED COMP
009782,000705: 05,6737           50115                           TS       MPAC                                  
009783,000706: 05,6740           06741                           TC       +1                                    #  JUST IN CASE OF OF
009784,000707: 05,6741           35501                           CAF      ZERO                                  #  MAKES TPAGREE SAFE FOR DPAGREE
009785,000708: 05,6742           50117                           TS       MPAC       +2                         
009786,000709: 05,6743           05654                           TC       BANKCALL                              
009787,000710: 05,6744           07154                           CADR     TPAGREE                               
009788,000711: 05,6745           30116                           XCH      MPAC       +1                         
009789,000712: 05,6746           50617                           TS       DSPTEM1    +1                         
009790,000713: 05,6747           30115                           XCH      MPAC                                  
009791,000714: 05,6750           50616                           TS       DSPTEM1                               
009792,000715: 05,6751           06511                           TC       UPDATIME                              
009793,000716: 

Page 257

009795,000718: 
009796,000719:                                                                                                  #        SELECT AND INITIATE DESIRED SYSTEM TEST PROGRAM.
009797,000720: 
009798,000721: 05,6752           03302        SYSTEST            TC       GRABDSP                               #  FIXED BY THE PHANTI
009799,000722: 05,6753           03310                           TC       PREGBSY                               
009800,000723: 05,6754           10612                           CCS      MODREG                                #  MUST NOT BE RUNNING ANYTHING.
009801,000724: 05,6755           07146                           TC       XVBOUT                                
009802,000725: 
009803,000726: 05,6756           02362                           TC       NEWMODE                               #  FOR SYSTEM TEST.
009804,000727: 05,6757           00007                           OCT      07                                    
009805,000728: 
009806,000729: 05,6760           37013        REDO               CAF      LQPL                                  #  ASK FOR TEST OPTION (1 - 7).
009807,000730: 05,6761           50117                           TS       MPAC       +2                         
009808,000731: 05,6762           37012                           CAF      TESTNV                                
009809,000732: 05,6763           03100                           TC       NVSUB                                 
009810,000733: 05,6764           03315                           TC       PRENVBSY                              
009811,000734: 05,6765           03136                           TC       ENDIDLE                               
009812,000735: 05,6766           07146                           TC       XVBOUT                                
009813,000736: 05,6767           06760                           TC       REDO                                  
009814,000737: 
009815,000738: 05,6770           20017                           INHINT                                         
009816,000739: 05,6771           34501                           CAF      PRIO20                                
009817,000740: 05,6772           02046                           TC       FINDVAC                               
009818,000741: 05,6773           12775                           CADR     TSELECT                               
009819,000742: 05,6774           02124                           TC       ENDOFJOB                              #  LEAVING DISPLAY GRABBED FOR SYSTEM TEST.
009820,000743: 
009821,000744: 05,6775           35362        TSELECT            CAF      SEVEN                                 
009822,000745: 05,6776           71225                           MASK     QPLACE                                #  SAFETY PLAY.
009823,000746: 05,6777           20000                           INDEX    A                                     
009824,000747: 05,7000           37002                           CAF      TESTCADR                              
009825,000748: 05,7001           05723                           TC       BANKJUMP                              
009826,000749: 
009827,000750: 05,7002           12075        TESTCADR           CADR     ALM/END                               #  0  ILLEGAL.
009828,000751: 05,7003           24511                           CADR     GYDRFT                                #  1 GYRO DRIFT TEST.
009829,000752: 05,7004           24606                           CADR     ACCELTST                              #  2  PIPA SCALE FACTOR DETERMINATION.
009830,000753: 05,7005           24000                           CADR     ALGNTST                               #  3  IMU ALIGNMENT TEST
009831,000754: 05,7006           24372                           CADR     IMUCHK                                #  4  IMU CHECK.
009832,000755: 05,7007           24203                           CADR     GYROTORK                              #  5  GYRO TORQUING TEST.
009833,000756: 05,7010           23421                           CADR     CCHK                                  #  6  C RELAY CHECK.
009834,000757: 05,7011           23534                           CADR     DCHECK                                #  7  DSKY CHECK.
009835,000758: 
009836,000759: 05,7012           02101        TESTNV             OCT      02101                                 
009837,000760: 05,7013           01225        LQPL               ADRES    QPLACE                                
009838,000761: 05,7014           05720        GOSHOSUM           TC       POSTJUMP                              #  START ROUTINE TO DISPLAY SUM OF EACH
009839,000762: 05,7015           23025                           CADR     SHOWSUM                               #  BANK ON DSKY
009840,000763: 

Page 258

009842,000765: 
009843,000766:                                                                                                  #        VERB 75 ALLOWS THE GROUND TO PERFORM SOME I/O OPERATIONS WITH THE DSKY. FOUR OPTIONS ARE
009844,000767:                                                                                                  #  MECHANIZED FOR FLIGHT 501 (WITH MAJOR MODES DURING WHICH ALLOWED) -
009845,000768:                                                                                                  #        1       GIMBAL MOTOR POWER ON                   MAJOR MODES 0X.
009846,000769:                                                                                                  #        2       GIMBAL MOTOR POWER OFF                  MAJOR MODES 0X.
009847,000770:                                                                                                  #        3       LIFT-OFF (AND GUIDANCE RELEASE).        MAJOR MODES 01 AND 04.
009848,000771:                                                                                                  #        4       S4B-SM SEPARATE                         MAJOR MODE 14.
009849,000772:                                                                                                  #        5       FDAI ALIGN.                             MAJOR MODES 0X.
009850,000773: 
009851,000774: 05,7016           03302        EXTRAI/O           TC       GRABDSP                               
009852,000775: 05,7017           03310                           TC       PREGBSY                               
009853,000776: 05,7020           37143        75RELOAD           CAF      LV75TEMP                              #  ASK FOR FUNCTION NUMBER.
009854,000777: 05,7021           50117                           TS       MPAC       +2                         
009855,000778: 05,7022           37144                           CAF      STATENV                               
009856,000779: 05,7023           03100                           TC       NVSUB                                 
009857,000780: 05,7024           03315                           TC       PRENVBSY                              
009858,000781: 05,7025           03136                           TC       ENDIDLE                               
009859,000782: 05,7026           07146                           TC       XVBOUT                                
009860,000783: 05,7027           07020                           TC       75RELOAD                              
009861,000784: 
009862,000785: 05,7030           10616                           CCS      V75TEMP                               #  MAKE SURE FUNCTION NUMBER IS LEGIT.
009863,000786: 05,7031           07035                           TC       +4                                    
009864,000787: 05,7032           07020                           TC       75RELOAD                              
009865,000788: 05,7033           07020                           TC       75RELOAD                              
009866,000789: 05,7034           07020                           TC       75RELOAD                              
009867,000790: 
009868,000791: 05,7035           77141                 +4        MASK     75HI12                                
009869,000792: 05,7036           10000                           CCS      A                                     
009870,000793: 05,7037           07020                           TC       75RELOAD                              
009871,000794: 
009872,000795: 05,7040           20616                           INDEX    V75TEMP                               
009873,000796: 05,7041           07041                           TC       +0                                    
009874,000797: 05,7042           07066                           TC       75FN1                                 
009875,000798: 05,7043           07075                           TC       75FN2                                 
009876,000799: 05,7044           07104                           TC       75FN3                                 
009877,000800: 
009878,000801: 05,7045           07052                           TC       75FN4                                 
009879,000802: 05,7046           07124                           TC       75FN5                                 
009880,000803: 05,7047           07020                           TC       75RELOAD                              
009881,000804: 05,7050           07020                           TC       75RELOAD                              
009882,000805: 05,7051           07020                           TC       75RELOAD                              
009883,000806: 

Page 259

009885,000808: 
009886,000809:                                                                                                  #        FUNCTION 4 - DO S4B SEPARATE.
009887,000810: 
009888,000811: 05,7052           02346        75FN4              TC       CHECKMM                               #  NO MODE 13 PLANNED.
009889,000812: 05,7053           00014                           OCT      14                                    
009890,000813: 05,7054           07145                           TC       MALAPROP                              
009891,000814: 
009892,000815: 05,7055           20017                           INHINT                                         
009893,000816: 05,7056           34507                           CAF      BIT8                                  
009894,000817: 05,7057           70646                           MASK     FLAGWRD1                              
009895,000818: 05,7060           10000                           CCS      A                                     
009896,000819: 05,7061           07146                           TC       XVBOUT                                #  SWITCH SET - FUNCTION ALREADY DONE.
009897,000820: 
009898,000821: 05,7062           32160                           CAF      PRIO25                                
009899,000822: 05,7063           02046                           TC       FINDVAC                               
009900,000823: 05,7064           64336                           CADR     S4BSMSEP                              
009901,000824: 
009902,000825: 05,7065           07146                           TC       XVBOUT                                
009903,000826: 
009904,000827:                                                                                                  #        FUNCTION 1 - GIMBAL MOTOR POWER ON - DURING PRE-LAUNCH ONLY.
009905,000828: 
009906,000829: 05,7066           37140        75FN1              CAF      75MASK                                
009907,000830: 05,7067           70612                           MASK     MODREG                                
009908,000831: 05,7070           10000                           CCS      A                                     
009909,000832: 05,7071           07145                           TC       MALAPROP                              
009910,000833: 
009911,000834: 05,7072           03373                           TC       RELAYON                               
009912,000835: 05,7073           40200                           OCT      40200                                 
009913,000836: 
009914,000837: 05,7074           07146                           TC       XVBOUT                                
009915,000838: 
009916,000839:                                                                                                  #        FUNCTION 2 - GIMBAL MOTOR POWER OFF - DURING PRE-LAUNCH ONLY.
009917,000840: 
009918,000841: 05,7075           37140        75FN2              CAF      75MASK                                
009919,000842: 05,7076           70612                           MASK     MODREG                                
009920,000843: 05,7077           10000                           CCS      A                                     
009921,000844: 05,7100           07145                           TC       MALAPROP                              
009922,000845: 
009923,000846: 05,7101           03405                           TC       RELAYOFF                              
009924,000847: 05,7102           40200                           OCT      40200                                 
009925,000848: 
009926,000849: 05,7103           07146                           TC       XVBOUT                                
009927,000850: 

Page 260

009929,000852: 
009930,000853:                                                                                                  #        FUNCTION 3 - DO LIFT-OFF IF IN MAJOR MODE 04
009931,000854: 
009932,000855: 05,7104           02346        75FN3              TC       CHECKMM                               #  TEST IF PLATFORM IS INERTIAL (MM 04)
009933,000856: 05,7105           00004                           OCT      4                                     
009934,000857: 05,7106           07120                           TC       CHECKM02                              #  IT IS NOT. TEST IF STILL GYROCOMPASSING
009935,000858: 
009936,000859: 05,7107           20017                 +3        INHINT                                         
009937,000860: 05,7110           34515                           CAF      BIT2                                  
009938,000861: 05,7111           70646                           MASK     FLAGWRD1                              
009939,000862: 05,7112           10000                           CCS      A                                     
009940,000863: 05,7113           07146                           TC       XVBOUT                                
009941,000864: 
009942,000865: 05,7114           32157                           CAF      PRIO24                                
009943,000866: 05,7115           02046                           TC       FINDVAC                               
009944,000867: 05,7116           64000                           CADR     LIFTOFF                               
009945,000868: 
009946,000869: 05,7117           07146                           TC       XVBOUT                                
009947,000870: 
009948,000871: 05,7120           02346        CHECKM02           TC       CHECKMM                               #  CHECK IF GYROCOMPASSING
009949,000872: 05,7121           00002                           OCT      00002                                 
009950,000873: 05,7122           07145                           TC       MALAPROP                              #  NOT INERTIAL OR GYROCOMPASSING
009951,000874: 05,7123           07107                           TC       75FN3      +3                         
009952,000875: 
009953,000876:                                                                                                  #        FUNCTION 5 - FDAI ALIGN ON.
009954,000877: 
009955,000878: 05,7124           37140        75FN5              CAF      75MASK                                
009956,000879: 05,7125           70612                           MASK     MODREG                                
009957,000880: 05,7126           10000                           CCS      A                                     
009958,000881: 05,7127           07145                           TC       MALAPROP                              
009959,000882: 05,7130           03373                           TC       RELAYON                               
009960,000883: 05,7131           40400                           OCT      40400                                 
009961,000884: 05,7132           20017                           INHINT                                         
009962,000885: 05,7133           37142                           CAF      10SECS75                              #  TURN OFF IN 10 SECONDS.
009963,000886: 05,7134           02173                           TC       WAITLIST                              
009964,000887: 05,7135           50172                           CADR     FDOFTSK1                              
009965,000888: 05,7136           07146                           TC       XVBOUT                                
009966,000889: 05,7137           77715        -.5SEC75           DEC      -50        B-14                       
009967,000890: 05,7140           00070        75MASK             OCT      70                                    
009968,000891: 05,7141           77770        75HI12             OCT      77770                                 
009969,000892: 05,7142           01750        10SECS75           DEC      1000       B-14                       
009970,000893: 05,7143           00616        LV75TEMP           ADRES    V75TEMP                               
009971,000894: 

Page 261

009973,000896: 
009974,000897:                                                                                                  #  THE FOLLOWING PROGRAM IMPLEMENTS MAJOR MODE 27 OF FLIGHT 501 - STATE VECTOR UPDATE.
009975,000898: 13,6753                                           BANK     13                                    
009976,000899: 13,6753           03430        76UPDATE           TC       FLAG1DWN                              #  TURN OFF UPDAOFLG TO ALLOW ANOTHER V76
009977,000900: 13,6754           20000                           OCT      20000                                 
009978,000901: 13,6755           47174                           CS       MINUS14D                              #  PICK UP NO OF COMPONENTS FOR V76
009979,000902: 13,6756           06762                           TC       DATUPDAT                              
009980,000903: 13,6757           34515        71UPDATE           CAF      BIT2                                  #  PICK UP NO OF COMPONENTS FOR V71
009981,000904: 13,6760           06762                           TC       DATUPDAT                              
009982,000905: 13,6761           34516        77UPDATE           CAF      BIT1                                  #  PICK UP NO OF COMPONENTS FOR V71
009983,000906: 13,6762           50115        DATUPDAT           TS       MPAC                                  #  COMES HERE WITH NO OF COMPONENTS IN A
009984,000907: 13,6763           02346                           TC       CHECKMM                               #  IS THIS P24
009985,000908: 13,6764           00024                           OCT      24                                    
009986,000909: 13,6765           07062                           TC       CK4MM14                               #  NO,SEE IF IT IS P14
009987,000910: 13,6766           40612        STUFMODE           CS       MODREG                                
009988,000911: 13,6767           51116                           TS       UPOLDMD                               #  PUT OLD MODE IN REGISTER FOR DOWNLINK
009989,000912: 13,6770           36754                           CAF      76UPDATE   +1                         
009990,000913: 13,6771           70646                           MASK     FLAGWRD1                              
009991,000914: 13,6772           10000                           CCS      A                                     #  IS UPDATFLG SET
009992,000915: 13,6773           07203                           TC       XACTALM7                              #  YES, TURN ON CHECK FAIL AND EXIT
009993,000916: 13,6774           32567                           CAF      LDNLST2                               #  NO, SET UP UPDATE DOWNLIST
009994,000917: 13,6775           50672                           TS       DNLSTADR                              
009995,000918: 13,6776           30115                           XCH      MPAC                                  
009996,000919: 13,6777           51117                           TS       COMPNUMB                              
009997,000920: 13,7000           02362                           TC       NEWMODE                               
009998,000921: 13,7001           00027                           OCT      27                                    
009999,000922: 13,7002           47132                           CS       LSTBUFF                               
010000,000923: 13,7003           51122                           TS       -UPADR                                #  INITIALIZE LOOP
010001,000924: 13,7004           03302                           TC       GRABDSP                               
010002,000925: 13,7005           03310                           TC       PREGBSY                               
010003,000926: 13,7006           34516                           CAF      BIT1                                  
010004,000927: 13,7007           51123        NEXTCOMP           TS       STCNTR                                
010005,000928: 13,7010           41122        OHWELL             CS       -UPADR                                
010006,000929: 13,7011           50117                           TS       MPAC       +2                         
010007,000930: 13,7012           37201                           CAF      STATENV7                              
010008,000931: 13,7013           03100                           TC       NVSUB                                 #  SET UP FOR COMPONENT LOAD
010009,000932: 13,7014           03315                           TC       PRENVBSY                              
010010,000933: 13,7015           03136                           TC       ENDIDLE                               #  WAIT FOR INPUT
010011,000934: 13,7016           07167                           TC       ENDUPDAT                              #  V34 E, TERMINATE
010012,000935: 13,7017           07010                           TC       OHWELL                                #  V33E, MAKES NO SENSE, RECYCLE
010013,000936: 13,7020           44516                           CS       ONE                                   #  COMPONENT LOADED
010014,000937: 13,7021           61122                           AD       -UPADR                                
010015,000938: 13,7022           51122                           TS       -UPADR                                #  CHANGE LOAD ADDRESS
010016,000939: 13,7023           02346                           TC       CHECKMM                               #  ARE WE STILL IN P27
010017,000940: 13,7024           00027                           OCT      27                                    
010018,000941: 13,7025           07167                           TC       ENDUPDAT                              #  NO, TIME HAS RUN OUT, EXIT
010019,000942: 13,7026           41123                           CS       STCNTR                                #  YES, CONTINUE
010020,000943: 13,7027           61117                           AD       COMPNUMB                              
010021,000944: 13,7030           10000                           CCS      A                                     #  WAS THAT THE LAST COMPONENT
010022,000945: 13,7031           40000                           CS       A                                     #  NO, CALCULATE NEW STCNTR
010023,000946: 13,7032           61117                           AD       COMPNUMB                              

Page 262

010025,000948: 13,7033           07007                           TC       NEXTCOMP                              #  RECYCLE
010026,000949: 13,7034           37202        NEXTCHGE           CAF      L-UPADR                               #  YES, SET UP FOR OCTAL ID IF NEEDED
010027,000950: 13,7035           50117                           TS       MPAC       +2                         
010028,000951: 13,7036           37055                           CAF      OCT1DNV                               
010029,000952: 13,7037           03100                           TC       NVSUB                                 #  DISPLAY VERIFICATION V21N02
010030,000953: 13,7040           03315                           TC       PRENVBSY                              
010031,000954: 13,7041           03136                           TC       ENDIDLE                               #  WAIT FOR INPUT
010032,000955: 13,7042           07167                           TC       ENDUPDAT                              #  V34E, TERMINATE
010033,000956: 13,7043           07066                           TC       UPDTDONE                              #  V33E, UPDATE VERIFIED
010034,000957: 13,7044           11122                           CCS      -UPADR                                #  IS OCTAL ID PNZ
010035,000958: 13,7045           07051                           TC       +4                                    #  YES, TEST FURTHER
010036,000959: 13,7046           07034                           TC       NEXTCHGE                              #  NO, BAD ID, RECYCLE
010037,000960: 13,7047           07034                           TC       NEXTCHGE                              #  NO, BAD ID, RECYCLE
010038,000961: 13,7050           07034                           TC       NEXTCHGE                              #  NO, BAD ID, RECYCLE
010039,000962: 13,7051           41117                           CS       COMPNUMB                              
010040,000963: 13,7052           61122                           AD       -UPADR                                
010041,000964: 13,7053           10000                           CCS      A                                     #  IS ID TOO BIG
010042,000965: 13,7054           07034                           TC       NEXTCHGE                              #  YES, BAD ID, RECYCLE
010043,000966: 13,7055           02102        OCT1DNV            OCT      02102                                 #  CANNOT COME HERE
010044,000967: 13,7056           30000                           NOOP                                           #  NO, GOOD ID
010045,000968: 13,7057           11122                           CCS      -UPADR                                #  NO, GOOD ID
010046,000969: 13,7060           67132                           AD       LSTBUFF                               
010047,000970: 13,7061           07011                           TC       OHWELL     +1                         
010048,000971: 13,7062           02346        CK4MM14            TC       CHECKMM                               #  COMES HERE TO SEE IF IN P14
010049,000972: 13,7063           00014                           OCT      14                                    
010050,000973: 13,7064           07203                           TC       XACTALM7                              #  NO, TURN ON CHECK FAIL
010051,000974: 13,7065           06766                           TC       STUFMODE                              #  YES, SAVE MODE AND START P27
010052,000975: 13,7066           11117        UPDTDONE           CCS      COMPNUMB                              #  COMES HERE AFTER VERIFIED UPDATE
010053,000976: 13,7067           10000                           CCS      A                                     #  TEST NO OF COMPONENTS TO TELL WHICH UPDT
010054,000977: 13,7070           07143                           TC       TESTMORE                              
010055,000978: 13,7071           20017        77CONTIN           INHINT                                         #  1 COMPONENT, V77 UPDATE
010056,000979: 13,7072           31074                           XCH      DTEPOCH    +1                         
010057,000980: 13,7073           61100                           AD       STBUFF                                #  ADD TO DTEPOCH
010058,000981: 13,7074           50117                           TS       MPAC       +2                         
010059,000982: 13,7075           35501                           CAF      ZERO                                  
010060,000983: 13,7076           61073                           AD       DTEPOCH                               
010061,000984: 13,7077           50116                           TS       MPAC       +1                         
010062,000985: 13,7100           35501                           CAF      ZERO                                  
010063,000986: 13,7101           50115                           TS       MPAC                                  
010064,000987: 13,7102           05654                           TC       BANKCALL                              #  FORCE SIGN AGREEMENT
010065,000988: 13,7103           07154                           CADR     TPAGREE                               
010066,000989: 13,7104           35501                           CAF      ZERO                                  
010067,000990: 13,7105           50616                           TS       DSPTEM1                               #  INITIALIZE REGISTERS FOR CLOCK INCREMENT
010068,000991: 13,7106           41100                           CS       STBUFF                                
010069,000992: 13,7107           50617                           TS       DSPTEM1    +1                         
010070,000993: 13,7110           30116                           XCH      MPAC       +1                         
010071,000994: 13,7111           51073                           TS       DTEPOCH                               #  REPLACE WITH NEW DTEPOCH
010072,000995: 13,7112           30117                           XCH      MPAC       +2                         
010073,000996: 13,7113           51074                           TS       DTEPOCH    +1                         
010074,000997: 13,7114           20017        ALLDONE            INHINT                                         #  STANDARD EXIT FOR SUCCESSFUL UPDATES

Page 263

010076,000999: 13,7115           40645                           CS       STATE                                 #  INVERT VERIFLAG ON COMPLETED UPDATES
010077,001000: 13,7116           74511                           MASK     BIT6                                  
010078,001001: 13,7117           50001                           TS       Q                                     
010079,001002: 13,7120           44511                           CS       BIT6                                  
010080,001003: 13,7121           70645                           MASK     STATE                                 
010081,001004: 13,7122           60001                           AD       Q                                     
010082,001005: 13,7123           50645                           TS       STATE                                 
010083,001006: 13,7124           20016                           RELINT                                         
010084,001007: 13,7125           02346                           TC       CHECKMM                               
010085,001008: 13,7126           00027                           OCT      27                                    
010086,001009: 13,7127           07133                           TC       +4                                    #  NO, DO NOT CHANGE PRESENT PROGRAM
010087,001010: 13,7130           41116                           CS       UPOLDMD                               #  YES, RESTORE P14 OR P24
010088,001011: 13,7131           02364                           TC       NEWMODE    +2                         
010089,001012: 13,7132           01100        LSTBUFF            ADRES    STBUFF                                
010090,001013: 13,7133           32566                           CAF      LDNLST1                               #  RESTORE FLIGHT DOWNLINK LIST
010091,001014: 13,7134           50672                           TS       DNLSTADR                              
010092,001015: 13,7135           03362                           TC       FREEDSP                               
010093,001016: 13,7136           11117                           CCS      COMPNUMB                              #  WAS THIS A V77 UPDATE
010094,001017: 13,7137           10000                           CCS      A                                     
010095,001018: 13,7140           02124                           TC       ENDOFJOB                              #  NO, FINISHED
010096,001019: 13,7141           05720                           TC       POSTJUMP                              #  YES, GO INCREMENT CLOCK
010097,001020: 13,7142           12511                           CADR     UPDATIME                              
010098,001021: 13,7143           10000        TESTMORE           CCS      A                                     #  IF NOT V77, WHICH UPDATE WAS IT
010099,001022: 13,7144           07152                           TC       76CONTIN                              #  V76, CONTINUE AT 76CONTIN
010100,001023: 13,7145           31100        71CONTIN           XCH      STBUFF                                #  V71, LOAD TFFMIN
010101,001024: 13,7146           51676                           TS       TFFMIN                                
010102,001025: 13,7147           31101                           XCH      STBUFF     +1                         
010103,001026: 13,7150           51677                           TS       TFFMIN     +1                         
010104,001027: 13,7151           07114                           TC       ALLDONE                               #  GO TO STANDARD EXIT
010105,001028: 13,7152           03416        76CONTIN           TC       FLAG1UP                               #  SET UPDATFLG
010106,001029: 13,7153           20000                           OCT      20000                                 
010107,001030: 13,7154           34513                           CAF      BIT4                                  
010108,001031: 13,7155           71116                           MASK     UPOLDMD                               
010109,001032: 13,7156           10000                           CCS      A                                     #  WAS OLD PROGRAM P14 OR P24
010110,001033: 13,7157           07114                           TC       ALLDONE                               #  P24, GO TO STANDARD EXIT
010111,001034: 13,7160           41114                           CS       STBUFF     +12D                       #  P14, LOAD UPTIME
010112,001035: 13,7161           40000                           CS       A                                     
010113,001036: 13,7162           51671                           TS       UPTIME                                
010114,001037: 13,7163           41115                           CS       STBUFF     +13D                       
010115,001038: 13,7164           40000                           CS       A                                     
010116,001039: 13,7165           51672                           TS       UPTIME     +1                         
010117,001040: 13,7166           07114                           TC       ALLDONE                               #  GO TO STANDARD EXIT
010118,001041: 13,7167           02346        ENDUPDAT           TC       CHECKMM                               #  COMES HERE ON V34E
010119,001042: 13,7170           00027                           OCT      27                                    #  IS IT STILL P27
010120,001043: 13,7171           07175                           TC       +4                                    #  NO, DO NOT CHANGE PRESENT PROGRAM
010121,001044: 13,7172           41116                           CS       UPOLDMD                               #  YES, RESTORE P14 OR P24
010122,001045: 13,7173           02364                           TC       NEWMODE    +2                         
010123,001046: 13,7174           77761        MINUS14D           OCT      77761                                 
010124,001047: 13,7175           32566                           CAF      LDNLST1                               #  RESTORE DOWNLIST
010125,001048: 13,7176           50672                           TS       DNLSTADR                              

Page 264

010127,001050: 13,7177           03362                           TC       FREEDSP                               
010128,001051: 13,7200           02124                           TC       ENDOFJOB                              #  THATS IT, THERE AINT NO MORE
010129,001052: 13,7201           02101        STATENV7           OCT      02101                                 
010130,001053: 13,7202           01122        L-UPADR            ADRES    -UPADR                                
010131,001054: 13,7203           05720        XACTALM7           TC       POSTJUMP                              
010132,001055: 13,7204           12062                           CADR     XACTALM                               
010133,001056: 05,7144                                           BANK     5                                     
010134,001057: 05,7144           02101        STATENV            OCT      02101                                 
010135,001058: 05,7145           03233        MALAPROP           TC       FALTON                                
010136,001059: 05,7146           03362        XVBOUT             TC       FREEDSP                               
010137,001060: 05,7147           02124                           TC       ENDOFJOB                              
010138,001061: 05,7150           02362        REDO5.20           TC       NEWMODE                               
010139,001062: 05,7151           00024                           OCT      24                                    
010140,001063: 05,7152           02124                           TC       ENDOFJOB                              
010141,001064: 05,7153                        ENDEXTVS           =                                              

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