Source Code
|
These source-code files are part of a reconstructed copy of Sunrise 69, the
final release of the Block I Command Module (CM) Apollo Guidance Computer
(AGC) system test software.
They have been created via disassembly of binary dumps of original core rope
memory modules, part numbers 1003133-18, 1003133-19, 1003133-20, and 1003733-071.
Corresponding portions of code have been copied from Solarium 55 where applicable.
Extensive use was also made of the AGC Information Series documents, which were specifically
written about the Sunrise software.
Since only binary dumps (rather than listings) of Sunrise are available as source material,
all comments and labels are approximate.
They have been taken from other AGC programs where possible, or, in some places, written
from scratch to match what we believe would have been in the original listing.
|
006146,000002: ## Copyright: Public domain.
006147,000003: ## Filename: EXTENDED_VERBS_FOR_MODING.agc
006148,000004: ## Purpose: A section of Sunrise 69.
006149,000005: ## It is part of the reconstructed source code for the final
006150,000006: ## release of the Block I Command Module system test software. No
006151,000007: ## original listings of this program are available; instead, this
006152,000008: ## file was created via disassembly of dumps of Sunrise core rope
006153,000009: ## memory modules and comparison with the later Block I program
006154,000010: ## Solarium 55.
006155,000011: ## Assembler: yaYUL --block1
006156,000012: ## Contact: Ron Burkey <info@sandroid.org>.
006157,000013: ## Website: www.ibiblio.org/apollo/index.html
006158,000014: ## Mod history: 2023-06-19 MAS Created from Sunrise 45.
006159,000015:
006160,000016:
006161,000017: # VERB PLEASE PERFORM AND VERB PLEASE MARK ----- FLASH SHOULD BE TURNED ON
006162,000018: # (FLASHON) BY ROUTINE PASTING EITHER UP. FLASH IS TURNED OFF BY ENTER OF
006163,000019: # PLEASE PERFORM, OR ENTER OF PLEASE MARK.
006164,000020:
006165,000021: # BOTH FLASHON AND FLASHOFF MUST NOT BE USED IN INTERRUPTED STATE.
006166,000022:
006167,000023: # PLEASE PERFORM VERB AND PLEASE MARK VERB-----
006168,000024: # PRESSING ENTER INDICATES ACTION REQUESTED HAS
006169,000025: # BEEN PERFORMED, AND DOES SAME RECALL AS A COMPLETED LOAD. OPERATOR
006170,000026: # SHOULD DO VERB PROCEED WITHOUT DATA IF WISHES NOT TO PERFORM THE
006171,000027: # REQUESTED ACTION.
006172,000028:
006173,000029:
006174,000030:
006175,000031: # FAN-OUT
006176,000032:
006177,000033: 05,7740 SETLOC 13740
006178,000034:
006179,000035: 05,7740 06340 LST2FAN TC VBZERO # VB40 ZERO(USED WITH NOUN ICDU OR OCDU)
006180,000036: 05,7741 06343 TC VBCOARK # VB41 COARSE ALIGN(USED WITH NOUN ICDU
006181,000037: # OR OCDU)
006182,000038: 05,7742 06426 TC IMUFINEK # VB42 FINE ALIGN IMU
006183,000039: 05,7743 06457 TC IMULOCKK # VB43 LOCK IMU
006184,000040: 05,7744 06465 TC IMUATTCK # VB44 SET IMU TO ATTITUDE CONTROL
006185,000041: 05,7745 06510 TC IMUREENK # VB45 SET IMU TO RE-ENTRY CONTROL
006186,000042: 05,7746 06533 TC IMUCORK # VB46 RETURN IMU TO COARSE ALIGN
006187,000043: 05,7747 06336 TC ALM/END # VB47 OPTICAL TRACKER ON(NOT IN USE YET)
006188,000044: 05,7750 06606 TC GOLOADLV # VB50 PLEASE PERFORM
006189,000045: 05,7751 06336 TC ALM/END # VB51 PLEASE MARK(NOT IN USE YET)
006190,000046: 05,7752 06601 TC DOMKACPT # VB52 MARK ACCEPT
006191,000047: 05,7753 06612 TC RELO/IK # VV53 FREE (USED WITH NOUN ICDU OR OCDU)
006192,000048: 05,7754 06622 TC TORQGYRS # VB54 PULSE TORQUE GYROS
006193,000049: 05,7755 30000 NOOP # ILLEGAL VERB.
006194,000050: 05,7756 30000 NOOP # ILLEGAL VERB.
006195,000051: 05,7757 30000 NOOP # ILLEGAL VERB.
006196,000052: 05,7760 30000 NOOP # ILLEGAL VERB.
006197,000053: 05,7761 30000 NOOP # ILLEGAL VERB.
006198,000054: 05,7762 30000 NOOP # ILLEGAL VERB.
006199,000055: 05,7763 30000 NOOP # ILLEGAL VERB.
006200,000056: 05,7764 30000 NOOP # ILLEGAL VERB.
006201,000057: 05,7765 30000 NOOP # ILLEGAL VERB.
006202,000058: 05,7766 30000 NOOP # ILLEGAL VERB.
006203,000059: 05,7767 06336 TC ALM/END # ILLEGAL VERB.
006204,000060: 05,7770 06645 TC DOGDRIFT # VB70 PERFORM GYRO DRIFT TEST
006205,000061: 05,7771 06654 TC DOPIPTST # VB71 PERFORM PIPA SF TEST
006206,000062: 05,7772 30000 NOOP # ILLEGAL VERB.
006207,000063: 05,7773 30000 NOOP # ILLEGAL VERB.
006208,000064: 05,7774 30000 NOOP # ILLEGAL VERB.
006209,000065: 05,7775 30000 NOOP # ILLEGAL VERB.
006210,000066: 05,7776 30000 NOOP # ILLEGAL VERB.
Warning: Next code may overflow storage.
006211,000067: 05,7777 06336 TC ALM/END # ILLEGAL VERB.
006212,000068:
006213,000069: 05,6336 SETLOC ENDMARK
006214,000070:
006215,000071: 05,6336 03001 ALM/END TC FALTON
006216,000072: 05,6337 02115 TC ENDOFJOB
006217,000073:
006218,000074:
006219,000075: 05,6340 06346 VBZERO TC OP/INERT
006220,000076: 05,6341 06367 TC IMUZEROK # RETURN HERE IF NOUN = ICDU(20)
006221,000077: 05,6342 06336 TC ALM/END # RETURN HERE IF NOUN = OCDU(55)
006222,000078: # (NOT IN USE YET)
006223,000079:
006224,000080: 05,6343 06346 VBCOARK TC OP/INERT
006225,000081: 05,6344 06375 TC IMUCOARK # RETURN HERE IF NOUN = ICDU(20)
006226,000082: 05,6345 06547 TC OPTCOARK # RETURN HERE IF NOUN = OCDU(55)
006227,000083:
006228,000084:
006229,000085: # SUBROUTINE FOR CHECKING GIVEN NOUN IF APPROPRIATE.
006230,000086:
006231,000087: 05,6346 30001 OP/INERT XCH Q # RETURNS TO L+1 IF NOUN=ICDU(20)
006232,000088: 05,6347 50105 TS WDRET # RETURNS TO L+2 IF NOUN = OCDU(55)
006233,000089: 05,6350 46354 CS NNICDU # ALARMS IF ANY OTHER NOUN
006234,000090: 05,6351 60613 AD NOUNREG
006235,000091: 05,6352 10000 CCS A
006236,000092: 05,6353 06357 TC +4 # NN G/ 20
006237,000093: 05,6354 00020 NNICDU OCT 20
006238,000094: 05,6355 06336 TC ALM/END # NN L/ 20
006239,000095: 05,6356 00105 TC WDRET # NN = 20
006240,000096: 05,6357 46363 CS NNOCDU
006241,000097: 05,6360 60613 AD NOUNREG
006242,000098: 05,6361 10000 CCS A
006243,000099: 05,6362 06336 TC ALM/END # NN G/ 55
006244,000100: 05,6363 00055 NNOCDU OCT 55
006245,000101: 05,6364 06336 TC ALM/END # NN L/ 55
006246,000102: 05,6365 20105 INDEX WDRET # NN = 55
006247,000103: 05,6366 00001 TC 1
006248,000104:
006249,000105:
006250,000106: # KEYBOARD REQUEST TO ZERO IMU ENCODERS
006251,000107:
006252,000108: 05,6367 02516 IMUZEROK TC BANKCALL # ZERO ENCODERS.
006253,000109: 05,6370 21060 CADR IMUZERO +4
006254,000110:
006255,000111: 05,6371 02516 TC BANKCALL # STALL
006256,000112: 05,6372 21412 CADR IMUSTALL
006257,000113: 05,6373 06374 TC +1
006258,000114: 05,6374 07411 TC ENDMZERO
006259,000115:
006260,000116:
006261,000117: # KEYBOARD REQUEST TO COARSE ALIGN THE IMU
006262,000118:
006263,000119: 05,6375 03025 IMUCOARK TC GRABDSP # COARSE ALIGN FROM KEYBOARD.
006264,000120: 05,6376 03033 TC PREGBSY
006265,000121: 05,6377 36424 CAF VNLODCDU # CALL FOR THETAD LOAD
006266,000122: 05,6400 02670 TC NVSUB
006267,000123: 05,6401 03040 TC PRENVBSY
006268,000124: 05,6402 02722 TC ENDIDLE # STALL WAITING FOR THE LOAD
006269,000125: 05,6403 07641 TC ENDMKDSP
006270,000126: 05,6404 07345 TC ICSDEL # PROCEED - ASK FOR INCREMENTAL LOAD.
006271,000127:
006272,000128: 05,6405 36425 ICORK2 CAF IMUCOARV # RE-DISPLAY COARSE ALIGN VERB.
006273,000129: 05,6406 02670 TC NVSUB
006274,000130: 05,6407 03040 TC PRENVBSY
006275,000131: 05,6410 03107 TC FREEDSP # RELEASE THE DISPLAYS
006276,000132:
006277,000133: 05,6411 36423 CAF KGCOARSE
006278,000134: 05,6412 50713 TS KG
006279,000135: 05,6413 35500 CAF ZERO
006280,000136: 05,6414 50714 TS KH
006281,000137:
006282,000138: 05,6415 02516 TC BANKCALL # CALL MODE SWITCHING PROG
006283,000139: 05,6416 21113 CADR IMUCOARS
006284,000140:
006285,000141: 05,6417 02516 TC BANKCALL # STALL
006286,000142: 05,6420 21412 CADR IMUSTALL
006287,000143: 05,6421 02115 TC ENDOFJOB
006288,000144: 05,6422 02115 TC ENDOFJOB
006289,000145:
006290,000146: 05,6423 05605 KGCOARSE DEC .18
006291,000147: 05,6424 02522 VNLODCDU OCT 02522
006292,000148: 05,6425 04100 IMUCOARV OCT 04100
006293,000149:
006294,000150:
006295,000151: # KEYBOARD REQUEST TO FINE ALIGN AND GYRO TORQUE IMU
006296,000152:
006297,000153: 05,6426 03025 IMUFINEK TC GRABDSP # FINE ALIGN WITH GYRO TORQUING.
006298,000154: 05,6427 03033 TC PREGBSY
006299,000155: 05,6430 36455 CAF VNLODGYR # CALL FOR LOAD OF GYRO COMMANDS
006300,000156: 05,6431 02670 TC NVSUB
006301,000157: 05,6432 03040 TC PRENVBSY
006302,000158: 05,6433 02722 TC ENDIDLE # HOLD UP FOR THE DATA LOAD
006303,000159: 05,6434 07641 TC ENDMKDSP
006304,000160: 05,6435 06436 TC +1 # PROCEED WITHOUT A LOAD
006305,000161:
006306,000162: 05,6436 36456 CAF IMUFINEV # RE-DISPLAY OUR OWN VERB
006307,000163: 05,6437 02670 TC NVSUB
006308,000164: 05,6440 03040 TC PRENVBSY
006309,000165: 05,6441 03107 TC FREEDSP # RELEASE DISPLAYS
006310,000166:
006311,000167: 05,6442 02516 TC BANKCALL # CALL MODE SWITCH PROG
006312,000168: 05,6443 21165 CADR IMUFINE
006313,000169:
006314,000170: 05,6444 02516 TC BANKCALL # HIBERNATION
006315,000171: 05,6445 21412 CADR IMUSTALL
006316,000172: 05,6446 02115 TC ENDOFJOB
006317,000173: 05,6447 02516 TC BANKCALL # PINBALL LEFT COMMANDS IN OGC REGIST5RS
006318,000174: 05,6450 21440 CADR IMUPULSE
006319,000175: 05,6451 02516 TC BANKCALL # WAIT FOR PULSES TO GET OUT.
006320,000176: 05,6452 21412 CADR IMUSTALL
006321,000177: 05,6453 02115 TC ENDOFJOB
006322,000178: 05,6454 02115 TC ENDOFJOB
006323,000179:
006324,000180: 05,6455 02567 VNLODGYR OCT 02567
006325,000181: 05,6456 04200 IMUFINEV OCT 04200 # FINE ALIGN VERB
006326,000182:
006327,000183:
006328,000184: # KEYBOARD REQUEST TO LOCK THE IMU CDUS
006329,000185:
006330,000186: 05,6457 02516 IMULOCKK TC BANKCALL
006331,000187: 05,6460 21206 CADR IMULOCK
006332,000188:
006333,000189: 05,6461 02516 TC BANKCALL # STALL
006334,000190: 05,6462 21412 CADR IMUSTALL
006335,000191: 05,6463 02115 TC ENDOFJOB
006336,000192: 05,6464 02115 TC ENDOFJOB
006337,000193:
006338,000194:
006339,000195: # KEYBOARD REQUEST TO PUT IMU IN ATTITUDE CONTROL MODE
006340,000196:
006341,000197: 05,6465 03025 IMUATTCK TC GRABDSP # ATTITUDE CONTROL.
006342,000198: 05,6466 03033 TC PREGBSY
006343,000199: 05,6467 37407 CAF DELLOAD # ASK FOR DELTA ANGLE LOAD.
006344,000200: 05,6470 02670 TC NVSUB
006345,000201: 05,6471 03040 TC PRENVBSY
006346,000202: 05,6472 02722 TC ENDIDLE # STALL WAITING FOR LOAD
006347,000203: 05,6473 07641 TC ENDMKDSP
006348,000204: 05,6474 07375 TC ATTCABS # PROCEED - ASK FOR ABSOLUTE ANGLES.
006349,000205: 05,6475 07355 TC INCLOOP # ADD INCREMENTS TO DESIRED ANGLES.
006350,000206: 05,6476 07403 TC ATTCK2
006351,000207: 05,6477 03040 TC PRENVBSY
006352,000208:
006353,000209: 05,6500 03107 ATTCK3 TC FREEDSP # LET THE DISPLAYS GO
006354,000210:
006355,000211: 05,6501 02516 TC BANKCALL # CALL THE MODE SWITCH PROG
006356,000212: 05,6502 21223 CADR IMUATTC
006357,000213:
006358,000214: 05,6503 02516 TC BANKCALL # STALL
006359,000215: 05,6504 21412 CADR IMUSTALL
006360,000216: 05,6505 02115 TC ENDOFJOB
006361,000217: 05,6506 02115 TC ENDOFJOB
006362,000218:
006363,000219: 05,6507 04400 IMUATTCV OCT 04400
006364,000220:
006365,000221:
006366,000222: # KEYBOARD REQUEST TO PUT THE IMU IN RE-ENTRY CONTROL MODE
006367,000223:
006368,000224: 05,6510 03025 IMUREENK TC GRABDSP # RE-ENTRY.
006369,000225: 05,6511 03033 TC PREGBSY
006370,000226: 05,6512 36424 CAF VNLODCDU
006371,000227: 05,6513 02670 TC NVSUB
006372,000228: 05,6514 03040 TC PRENVBSY
006373,000229: 05,6515 02722 TC ENDIDLE # STALL FOR THE LOAD
006374,000230: 05,6516 07641 TC ENDMKDSP
006375,000231: 05,6517 06520 TC +1 # PROCEED
006376,000232:
006377,000233: 05,6520 36532 CAF IMUREENV # RE-DISPLAY VERB.
006378,000234: 05,6521 02670 TC NVSUB
006379,000235: 05,6522 03040 TC PRENVBSY
006380,000236: 05,6523 03107 TC FREEDSP # LET THE DISPLAYS GO
006381,000237:
006382,000238: 05,6524 02516 TC BANKCALL # CALL MODE SWITCH PROG
006383,000239: 05,6525 21217 CADR IMUREENT
006384,000240:
006385,000241: 05,6526 02516 TC BANKCALL # STALL
006386,000242: 05,6527 21412 CADR IMUSTALL
006387,000243: 05,6530 02115 TC ENDOFJOB
006388,000244: 05,6531 02115 TC ENDOFJOB
006389,000245:
006390,000246: 05,6532 04500 IMUREENV OCT 04500
006391,000247:
006392,000248:
006393,000249: # KEYBOARD REQUEST TO RETURN THE IMU TO COARSE ALIGN
006394,000250:
006395,000251: 05,6533 02516 IMUCORK TC BANKCALL # BACK TO COARSE ALIGN (FROM FINE).
006396,000252: 05,6534 21156 CADR IMURECOR
006397,000253:
006398,000254: 05,6535 02516 TC BANKCALL
006399,000255: 05,6536 21412 CADR IMUSTALL
006400,000256: 05,6537 02115 TC ENDOFJOB
006401,000257: 05,6540 02115 TC ENDOFJOB
006402,000258:
006403,000259:
006404,000260: # KEYBOARD REQUEST TO ZERO OPTICS CDUS
006405,000261:
006406,000262: 05,6541 02516 OPTZEROK TC BANKCALL # CALL MODE PROG
006407,000263: 05,6542 12547 CADR OPTZERO
006408,000264:
006409,000265: 05,6543 02516 TC BANKCALL # STALL
006410,000266: 05,6544 21410 CADR OPTSTALL
006411,000267: 05,6545 02115 TC ENDOFJOB
006412,000268: 05,6546 02115 TC ENDOFJOB
006413,000269:
006414,000270: 05,6547 OPTZERO = # INTERFACES NOT CURRENTLY WIRED *********
006415,000271:
006416,000272:
006417,000273: # TEMPORARY ROUTINE TO RUN THE OPTICS CDUS FROM THE KEYBOARD
006418,000274:
006419,000275: 05,6547 03025 OPTCOARK TC GRABDSP # SNATCH THEM DISPLAYS
006420,000276: 05,6550 03033 TC PREGBSY
006421,000277: 05,6551 36571 CAF VNLDOCDU # VERB-NOUN TO LOAD OPTICS CDUS
006422,000278: 05,6552 02670 TC NVSUB
006423,000279: 05,6553 03040 TC PRENVBSY
006424,000280: 05,6554 02722 TC ENDIDLE # WAIT FOR THE LOAD
006425,000281: 05,6555 07641 TC ENDMKDSP
006426,000282: 05,6556 06557 TC +1 # PROCEED
006427,000283:
006428,000284: 05,6557 36572 CAF OPTCOARV # RE-DISPLAY OUR OWN VERB
006429,000285: 05,6560 02670 TC NVSUB
006430,000286: 05,6561 03040 TC PRENVBSY
006431,000287: 05,6562 03107 TC FREEDSP # LET IT GO
006432,000288:
006433,000289: 05,6563 10723 CCS OPTIND
006434,000290: 05,6564 02115 TC ENDOFJOB
006435,000291: 05,6565 02115 TC ENDOFJOB
006436,000292: 05,6566 02115 TC ENDOFJOB
006437,000293:
006438,000294: 05,6567 50723 TS OPTIND # SNATCH OPTICS
006439,000295:
006440,000296: 05,6570 02115 TC ENDOFJOB
006441,000297:
006442,000298: 05,6571 02457 VNLDOCDU OCT 02457
006443,000299: 05,6572 04100 OPTCOARV OCT 04100
006444,000300:
006445,000301:
006446,000302: # KEYBOARD REQUEST TO ACTIVATE THE OPTICAL STAR TRACKER
006447,000303:
006448,000304: 05,6573 02516 OPTTRONK TC BANKCALL
006449,000305: 05,6574 12601 CADR OPTTRKON # CALL MODE SWITCHER
006450,000306:
006451,000307: 05,6575 02516 TC BANKCALL # STALL
006452,000308: 05,6576 21410 CADR OPTSTALL
006453,000309: 05,6577 02115 TC ENDOFJOB
006454,000310: 05,6600 02115 TC ENDOFJOB
006455,000311:
006456,000312: 05,6601 OPTTRKON = # NOT AVAILABLE JUST NOW
006457,000313:
006458,000314: 05,6601 20017 DOMKACPT INHINT
006459,000315: 05,6602 34516 CAF ONE
006460,000316: 05,6603 02124 TC WAITLIST
006461,000317: 05,6604 12240 CADR MKACCEPT # (CALLED IN KEYRUPT WHEN BUTTON AVAIL.)
006462,000318: 05,6605 02115 TC ENDOFJOB
006463,000319:
006464,000320: # PLEASE PERFORM VERB AND PLEASE MARK VERB ----- PRESSING ENTER INDICATES
006465,000321: # ACTION REQUESTED HAS BEEN PERFORMED, AND DOES SAME RECALL AS A COMPLETED
006466,000322: # LOAD. OPERATOR SHOULD DO VB PROCEED WITHOUT DATA IF HE WISHES NOT TO
006467,000323: # PERFORM THE REQUESTED ACTION.
006468,000324:
006469,000325: 05,6606 02516 GOLOADLV TC BANKCALL
006470,000326: 05,6607 50005 CADR FLASHOFF
006471,000327: 05,6610 02563 TC POSTJUMP
006472,000328: 05,6611 42637 CADR LOADLV
006473,000329:
006474,000330:
006475,000331: # KEYBOARD REQUEST TO RELEASE IMU OR OPTICS
006476,000332:
006477,000333: 05,6612 06346 RELO/IK TC OP/INERT
006478,000334: 05,6613 06617 TC IMURELK # RETURN HERE IF IMU
006479,000335: 05,6614 45500 CS ZERO # RETURN HERE IF OPTICS
006480,000336: 05,6615 50723 TS OPTIND
006481,000337: 05,6616 02115 TC ENDOFJOB
006482,000338:
006483,000339: 05,6617 45500 IMURELK CS ZERO
006484,000340: 05,6620 50704 TS CDUIND
006485,000341: 05,6621 02115 TC ENDOFJOB
006486,000342:
006487,000343:
006488,000344: # KEYBOARD REQUEST TO PULSE TORQUE IRIGA
006489,000345:
006490,000346:
006491,000347:
006492,000348: 05,6622 03025 TORQGYRS TC GRABDSP # GYRO TORQUING WITH NO MODE-SWITCH.
006493,000349: 05,6623 03033 TC PREGBSY
006494,000350: 05,6624 36455 CAF VNLODGYR
006495,000351: 05,6625 02670 TC NVSUB
006496,000352: 05,6626 03040 TC PRENVBSY
006497,000353: 05,6627 02722 TC ENDIDLE
006498,000354: 05,6630 07641 TC ENDMKDSP
006499,000355: 05,6631 06632 TC +1
006500,000356: 05,6632 36644 CAF TORQGYRV # RE-DISPLAY OUR OWN VERB
006501,000357: 05,6633 02670 TC NVSUB
006502,000358: 05,6634 03040 TC PRENVBSY
006503,000359: 05,6635 03107 TC FREEDSP
006504,000360: 05,6636 02516 TC BANKCALL
006505,000361: 05,6637 21440 CADR IMUPULSE
006506,000362: 05,6640 02516 TC BANKCALL # WAIT FOR PULSES TO GET OUT.
006507,000363: 05,6641 21412 CADR IMUSTALL
006508,000364: 05,6642 02115 TC ENDOFJOB
006509,000365: 05,6643 02115 TC ENDOFJOB
006510,000366:
006511,000367: 05,6644 05400 TORQGYRV OCT 05400
006512,000368:
006513,000369: 05,6645 06662 DOGDRIFT TC TESTMODE
006514,000370: 05,6646 20017 INHINT
006515,000371: 05,6647 36653 CAF TESTPRIO
006516,000372: 05,6650 02037 TC FINDVAC
006517,000373: 05,6651 60000 CADR LGNTEST1
006518,000374: 05,6652 02115 TC ENDOFJOB
006519,000375:
006520,000376: 05,6653 23000 TESTPRIO OCT 23000
006521,000377:
006522,000378: 05,6654 06662 DOPIPTST TC TESTMODE
006523,000379: 05,6655 20017 INHINT
006524,000380: 05,6656 36653 CAF TESTPRIO
006525,000381: 05,6657 02037 TC FINDVAC
006526,000382: 05,6660 60155 CADR PIPTEST1
006527,000383: 05,6661 02115 TC ENDOFJOB
006528,000384:
006529,000385: 05,6662 34477 TESTMODE CAF FIVE
006530,000386: 05,6663 70622 MASK MODREG
006531,000387: 05,6664 10000 CCS A
006532,000388: 05,6665 06336 TC ALM/END
006533,000389:
006534,000390: 05,6666 30001 XCH Q
006535,000391: 05,6667 51207 TS QPLACE
006536,000392:
006537,000393: 05,6670 35501 CAF FOUR
006538,000394: 05,6671 60622 AD MODREG
006539,000395: 05,6672 50622 TS MODREG
006540,000396: 05,6673 02516 TC BANKCALL
006541,000397: 05,6674 42001 CADR DSPMM
006542,000398:
006543,000399: 05,6675 01207 TC QPLACE
006544,000400:
006545,000401: 05,6676 ENDEXTVS =
006546,000402:
006547,000403: # PROVISION FOR COARSE ALIGN TO INCREMENTAL ANGLES.
006548,000404: 05,7345 SETLOC ENDSELFC
006549,000405:
006550,000406: 05,7345 37407 ICSDEL CAF DELLOAD
006551,000407: 05,7346 02670 TC NVSUB # REQUEST LOAD OF DELTA ICDU ANGLES.
006552,000408: 05,7347 03040 TC PRENVBSY
006553,000409: 05,7350 02722 TC ENDIDLE
006554,000410: 05,7351 07641 TC ENDMKDSP
006555,000411: 05,7352 06405 TC ICORK2 # PROCEED WITHOUT DATA HERE TOO.
006556,000412: 05,7353 07355 TC INCLOOP # LOOP TO INCREMENT THETAD FROM DSPTEM2.
006557,000413: 05,7354 06405 TC ICORK2 # RE-DISPLAY COARSE ALIGN VERB.
006558,000414:
006559,000415: 05,7355 30001 INCLOOP XCH Q # INCREMENTS THETADS IN 2S COMPLEMENT FROM
006560,000416: 05,7356 50114 TS MPAC # THREE ANGLE INCREMENTS IN DSPTEM2S.
006561,000417: 05,7357 37410 CAF LTHD+2
006562,000418: 05,7360 50076 TS BUF # SET UP FOR CDUINC.
006563,000419: 05,7361 35502 CAF TWO # THREE TIMES THROUGH.
006564,000420:
006565,000421: 05,7362 50115 INCLOOP2 TS MPAC +1
006566,000422: 05,7363 20000 INDEX A
006567,000423: 05,7364 30632 XCH DSPTEM2 # INCREMENT TO TEM2 FOR CDUINC.
006568,000424: 05,7365 50101 TS TEM2
006569,000425: 05,7366 02516 TC BANKCALL
006570,000426: 05,7367 21361 CADR CDUINC
006571,000427: 05,7370 10076 CCS BUF
006572,000428: 05,7371 50076 TS BUF
006573,000429: 05,7372 10115 CCS MPAC +1
006574,000430: 05,7373 07362 TC INCLOOP2
006575,000431:
006576,000432: 05,7374 00114 TC MPAC # RETURN WHEN FINISHED.
006577,000433:
006578,000434: # PROVISIONS FOR ABSOLUTE LOAD FOR IMU CDUS IN ATTITUDE CONTROL.
006579,000435:
006580,000436: 05,7375 36424 ATTCABS CAF VNLODCDU # ASK FOR ABSOLUTE CDU ANGLES.
006581,000437: 05,7376 02670 TC NVSUB
006582,000438: 05,7377 03040 TC PRENVBSY
006583,000439: 05,7400 02722 TC ENDIDLE
006584,000440: 05,7401 07641 TC ENDMKDSP
006585,000441: 05,7402 07403 TC ATTCK2
006586,000442:
006587,000443: 05,7403 36507 ATTCK2 CAF IMUATTCV
006588,000444: 05,7404 02670 TC NVSUB
006589,000445: 05,7405 03040 TC PRENVBSY
006590,000446: 05,7406 06500 TC ATTCK3
006591,000447:
006592,000448: 05,7407 02523 DELLOAD OCT 02523
006593,000449: 05,7410 00707 LTHD+2 ADRES THETAD +2
006594,000450:
006595,000451: 05,7411 20017 ENDMZERO INHINT
006596,000452: 05,7412 45067 CS ZLITBITS # TURN OFF ZEROING LIGHT TO SHOW COMPLETE.
006597,000453: 05,7413 70743 MASK DSPTAB +11D
006598,000454: 05,7414 64500 AD BIT15
006599,000455: 05,7415 50743 TS DSPTAB +11D
006600,000456: 05,7416 02115 TC ENDOFJOB
End of include-file EXTENDED_VERBS_FOR_MODING.agc. Parent file is MAIN.agc