Source Code

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