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