Assembly listing generated by yaYUL

Source Code

These source-code files are part of a reconstructed copy of Aurora 88, the final release of the Lunar Module (LM) Apollo Guidance Computer (AGC) system test software.

They have been created via disassembly of binary dumps of original core rope memory modules, part numbers 2003972-011, 2003972-091, and 2003972-111, belonging to Steve Jurvetson.

Since only binary dumps (rather than listings) of Aurora 88 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.

020109,000002: 020110,000003: 020111,000004: 020112,000005: 020113,000006: 020114,000007: 020115,000008: 020116,000009: 020117,000010: 020118,000011: 020119,000012: 020120,000013: 020121,000014: 020122,000015: 020123,000016: 020124,000017: 21,3105 020125,000018: 21,3105 E5,1400 020126,000019: 020127,000020: 020128,000021: < < < 020164,000057: 020165,000058: < 020482,000375: 020483,000376: 21,3476 020484,000377: 21,3477 020485,000378: 21,3500 020486,000379: 21,3501 020487,000380: 21,3502 020488,000381: 020489,000382: 21,3503 020490,000383: 21,3504 020491,000384: 020492,000385: 21,3505 020493,000386: 020494,000387: 21,3506 020495,000388: 020496,000389: 020497,000390: 020498,000391: < < < < < ## Copyright: Public domain. ## Filename: IMU_PERFORMANCE_TESTS_3.agc ## Purpose: A section of Aurora 88. ## It is part of the reconstructed source code for the final ## release of the Lunar Module system test software. No original ## listings of this program are available; instead, this file ## was created via disassembly of dumps of Aurora 88 core rope ## modules and comparison with other AGC programs. ## Assembler: yaYUL ## Contact: Ron Burkey <info@sandroid.org>. ## Website: www.ibiblio.org/apollo/index.html ## Mod history: 2023-06-30 MAS Created from Aurora 12. ## 2023-07-12 MAS Updated for Aurora 88. SETLOC ENDPREL1 EBANK= XSM >020129,000022: 21,3105 00006 SILVER EXTEND 23546 QXCH QPLACE # SHOULD BE ADDRESS OF STRTWACH 11615 CCS CALCDIR # 2F COMMAND IS POSITIVE THE MINUS TORQ 37642 CAF BIT9 # WINDING IS TO BE ENERGIZED 03113 TC +2 03115 TC TORK # COMMAND IS NEG SO USE PLUS WINDING 00006 EXTEND 05014 WOR 14C # SELECTS THE MINUS WINDING >020139,000032: 21,3115 37632 TORK CAF POSMAX 54047 TS GYROCTR # 16383 PULSES =2.8125 DEG LESS ONE PULSE 11617 CCS GYTOBETQ # C(K)= 1 FOR X, -0 FOR Y, -1FOR Z. 03124 TC SELECTX 05366 TC CCSHOLE 03134 TC SELECTZ 03130 TC SELECTY 8">020147,000040: 21,3124 33140 SELECTX CAF TORKX # BBITS 7AND 10 IN CHANNEL 14 WILL 00006 EXTEND # SELECT X GYRO AND TURN ON BCSW 1/3200 05014 WOR 14C # SSEC LATER BY CHANNEL OUTPUT DESIGN..... 01546 TC QPLACE 9">020152,000045: 21,3130 33141 SELECTY CAF TORKY # BBITS 8 AND 10 TO TORQ Y GYRO 00006 EXTEND 05014 WOR 14C 01546 TC QPLACE A">020157,000050: 21,3134 33142 SELECTZ CAF TORKZ # BBITS 7,8AND 10 TO TORQZ GYRO 00006 EXTEND 05014 WOR 14C 01546 TC QPLACE /a>020161,000054: 21,3140 01100 TORKX OCT 01100 /a>020162,000055: 21,3141 01200 TORKY OCT 01200 /a>020163,000056: 21,3142 01300 TORKZ OCT 01300 84B">020166,000059: 21,3143 37657 SAMODCHK CAF ZERO 55563 TS TESTNO 55550 TS RUN 03535 TC ZEROMODE 03561 TC OPRTRDLY 03631 TC COARZERO 03545 TC ZEROMAIN 03561 TC OPRTRDLY 03535 TC ZEROMODE 37657 CAF ZERO 03467 TC THETADLD 33717 CAF 45ANG 03467 TC THETADLD 03645 TC FNZEROFN 33721 CAF 90ANG 03467 TC THETADLD 33722 CAF 135ANG 03467 TC THETADLD 37657 CAF ZERO 03471 TC THETADLD +2 03645 TC FNZEROFN 33725 CAF 180ANG 54400 TS THETAD 54401 TS THETAD +1 33720 CAF 71ANG 03471 TC THETADLD +2 33726 CAF 225ANG 03467 TC THETADLD 37657 CAF ZERO 03467 TC THETADLD 37651 CAF TWO >020212,000105: 21,3202 55673 CHK2 TS CDUNDX 33727 CAF 170ANG 51673 INDEX CDUNDX 54400 TS THETAD 04063 TC BANKCALL 26055 CADR IMUCOARS 33723 CAF 10ANG 03410 TC CDURATE 33724 CAF 160ANG 03410 TC CDURATE 03433 TC CALCRATE 04063 TC BANKCALL 26716 CADR IMUSTALL 13353 TCF ENDTST03 03631 TC COARZERO 11673 CCS CDUNDX 13202 TCF CHK2 43717 CS 45ANG 03467 TC THETADLD 03645 TC FNZEROFN 43722 CS 135ANG 54400 TS THETAD 54401 TS THETAD +1 43720 CS 71ANG 03762 TC CHK3 03645 TC FNZEROFN 03631 TC COARZERO 03602 TC FINEZERO 03602 TC FINEZERO >020258,000151: 21,3237 43733 CHK5 CS 4+6BITS 00006 EXTEND 03012 WAND 12 37650 CAF FOUR 04451 TC WAITLIST 03250 42005 2CADR ECE1 33742 CAF ECE2CADR 04331 TC JOBSLEEP >020269,000162: 21,3250 33742 ECE1 CAF ECE2CADR 04335 TC JOBWAKE 04505 TC TASKOVER >020273,000166: 21,3253 46162 ECE2 CS SIX 61563 AD TESTNO 00006 EXTEND 63260 BZMF +2 13301 TCF CHKX 51563 INDEX TESTNO 33355 CAF ERCTRANG 54400 TS THETAD 54401 TS THETAD +1 54402 TS THETAD +2 37645 CAF BIT6 00006 EXTEND 05012 WOR 12 00004 INHINT 37651 CAF TWO 04451 TC WAITLIST 02624 22005 2CADR ATTCK2 00003 RELINT 03561 TC OPRTRDLY 25563 INCR TESTNO 13237 TCF CHK5 >020302,000195: 21,3301 03631 CHKX TC COARZERO 37657 CAF ZERO 55563 TS TESTNO 04063 TC BANKCALL 20246 CADR RRZERO 04063 TC BANKCALL 26712 CADR RADSTALL 13353 TCF ENDTST03 >020313,000206: 21,3311 51563 CHK6 INDEX TESTNO 33364 CAF RADECNTR 54424 TS TANG +1 54423 TS TANG 06000 TC INTPRET 77634 CALL 20362 RRDESNB 04063 TC BANKCALL 26712 CADR RADSTALL 13353 TCF ENDTST03 03554 TC RROPRDLY 25563 INCR TESTNO 47650 CS FOUR 61563 AD TESTNO 00006 EXTEND 63311 BZMF CHK6 37657 CAF ZERO 55563 TS TESTNO 54354 TS ALTRATE 54352 TS ALT 54353 TS ALT +1 47652 CS ONE 54351 TS DIDFLG >020346,000239: 21,3340 51563 CHK7 INDEX TESTNO 33371 CAF RRRATFPS 54360 TS FORVEL 54361 TS LATVEL 03554 TC RROPRDLY 25563 INCR TESTNO 47646 CS BIT5 67651 AD TWO 61563 AD TESTNO 00006 EXTEND 63340 BZMF CHK7 033">020361,000254: 21,3353 04063 ENDTST03 TC BANKCALL 30752 CADR ENDTEST E47">020368,000261: 21,3355 03013 ERCTRANG OCT 03013 02660 OCT 02660 01042 OCT 01042 00000 OCT 00000 76736 OCT 76736 75120 OCT 75120 74765 OCT 74765 452">020382,000275: 21,3364 01463 RADECNTR OCT 01463 01042 OCT 01042 00000 OCT 00000 76736 OCT 76736 76315 OCT 76315 053">020392,000285: 21,3371 00000 RRRATFPS OCT 00000 00001 OCT 00001 00002 OCT 00002 00004 OCT 00004 00010 OCT 00010 00020 OCT 00020 00040 OCT 00040 00100 OCT 00100 00200 OCT 00200 00237 OCT 00237 00400 OCT 00400 00545 OCT 00545 00544 OCT 00544 77540 OCT 77540 77232 OCT 77232 5">020409,000302: 21,3410 00006 CDURATE EXTEND 23546 QXCH QPLACE 55600 TS CDULIMIT 10067 CCS NEWJOB 04317 TC CHANG1 41600 CS CDULIMIT 51673 INDEX CDUNDX 60032 AD CDUX # CATCH FIRST PULSE 00006 EXTEND 63413 BZMF CDURATE +3 # LOOK AGAIN 51673 INDEX CDUNDX 30032 CAE CDUX 57576 XCH CDUREADF # CDU FINAL READING 57577 XCH CDUREADI # CDU INITIAL READING 05372 TC FINETIME 53574 DXCH CDUTIMEF # DP FINAL TIME 53572 DXCH CDUTIMEI # DP INITIAL READING 00003 RELINT 01546 TC QPLACE 445">020438,000331: 21,3433 00006 CALCRATE EXTEND 23546 QXCH QPLACE 53577 DXCH CDUREADF 00006 EXTEND 20001 MSU L 55700 TS CDUANG 06000 TC INTPRET 45345 DLOAD DSU 01574 CDUTIMEF 01572 CDUTIMEI 67206 PUSH SLOAD 01701 CDUANG 56261 SR DDV 00617 14D 45005 DMP RTB 03746 DEG/SEC 33524 SGNAGREE 00337 STORE DSPTEM2 77776 EXIT 0">020461,000354: 21,3456 33740 RATEDSP CAF V06N66X 05234 TC NVSBWAIT 05176 TC FLASHON 05042 TC ENDIDLE 13353 TCF ENDTST03 13465 TCF +2 13456 TCF RATEDSP 25550 INCR RUN 01546 TC QPLACE C44">020473,000366: 21,3467 54400 THETADLD TS THETAD 54401 TS THETAD +1 54402 TS THETAD +2 00006 EXTEND 23546 QXCH QPLACE 37656 CAF SEVEN /a>020481,000374: 21,3475 55551 THLD1 TS STOREPL 04063 TC BANKCALL 26055 CADR IMUCOARS 04063 TC BANKCALL 26716 CADR IMUSTALL 13353 TCF ENDTST03 11551 CCS STOREPL 03475 TC THLD1 03561 TC OPRTRDLY 01546 TC QPLACE 74E">020499,000392: 21,3507 00006 FINEALGN EXTEND 23546 QXCH QPLACE 04063 TC BANKCALL 26227 CADR IMUFINE 04063 TC BANKCALL 26716 CADR IMUSTALL 13353 TCF ENDTST03 01546 TC QPLACE 059">020511,000404: 21,3517 00006 CH30DSPY EXTEND 23546 QXCH QPLACE 33731 CAF OCT30 54142 TS MPAC +2 33734 CAF V01N10X 05234 TC NVSBWAIT 05176 TC FLASHON 05042 TC ENDIDLE 13353 TCF ENDTST03 13532 TCF +2 13521 TCF CH30DSPY +2 05202 TC FLASHOFF 25550 INCR RUN 01546 TC QPLACE 445">020531,000424: 21,3535 00006 ZEROMODE EXTEND 23546 QXCH QPLACE 04063 TC BANKCALL 26000 CADR IMUZERO 04063 TC BANKCALL 26716 CADR IMUSTALL 13353 TCF ENDTST03 01546 TC QPLACE 94E">020545,000438: 21,3545 43733 ZEROMAIN CS 4+6BITS 00006 EXTEND 03012 WAND 12 37646 CAF BIT5 00006 EXTEND 05012 WOR 12 00002 TC Q C59">020556,000449: 21,3554 00006 RROPRDLY EXTEND 23545 QXCH QPLAC 25550 INCR RUN 33737 CAF V06N40X 13565 TCF OPRTRDLY +4 C59">020567,000460: 21,3561 00006 OPRTRDLY EXTEND 23545 QXCH QPLAC 25550 INCR RUN 33736 CAF V06N20X 05234 TC NVSBWAIT 33741 CAF V33N00X 05234 TC NVSBWAIT 31550 CA RUN 73730 MASK 6LOW 05234 TC NVSBWAIT 05176 TC FLASHON 05042 TC ENDIDLE 13353 TCF ENDTST03 13600 TCF +2 13564 TCF OPRTRDLY +3 05202 TC FLASHOFF 01545 TC QPLAC 24F">020587,000480: 21,3602 00006 FINEZERO EXTEND 23545 QXCH QPLAC 04063 TC BANKCALL 26000 CADR IMUZERO 37651 CAF TWO 55512 TS EROPTN 37650 CAF FOUR 55544 TS POSITON 00004 INHINT 47641 CS BIT10 70061 MASK STATE 67641 AD BIT10 54061 TS STATE 00003 RELINT 04063 TC BANKCALL 30765 CADR LEMLAB 44E">020609,000502: 21,3622 05221 SAMODRTN TC GRABWAIT 13625 TCF +2 05234 TC NVSBWAIT 03747 TC DSPY30WT 330">020616,000509: 21,3626 03517 DSPYCH30 TC CH30DSPY 03535 TC ZEROMODE 01545 TC QPLAC 24F">020623,000516: 21,3631 37657 COARZERO CAF ZERO 54400 TS THETAD 54401 TS THETAD +1 54402 TS THETAD +2 00006 EXTEND 23546 QXCH QPLACE 04063 TC BANKCALL 26055 CADR IMUCOARS 04063 TC BANKCALL 26716 CADR IMUSTALL 13353 TCF ENDTST03 01546 TC QPLACE 64E">020640,000533: 21,3645 00006 FNZEROFN EXTEND 23545 QXCH QPLAC 03507 TC FINEALGN 30032 CAE CDUX 55576 TS CDUREADF 30033 CAE CDUY 55577 TS CDUREADI 30034 CAE CDUZ 55600 TS CDULIMIT 03535 TC ZEROMODE 13670 TCF FZF2 04451 TC WAITLIST 03665 42005 2CADR FZF1 33743 CAF FZF2CADR 04331 TC JOBSLEEP >020661,000554: 21,3665 33743 FZF1 CAF FZF2CADR 04335 TC JOBWAKE 04505 TC TASKOVER >020665,000558: 21,3670 31576 FZF2 CAE CDUREADF 00006 EXTEND 20032 MSU CDUX 54333 TS DSPTEM1 31577 CAE CDUREADI 00006 EXTEND 20033 MSU CDUY 54334 TS DSPTEM1 +1 31600 CAE CDULIMIT 00006 EXTEND 20034 MSU CDUZ 54335 TS DSPTEM1 +2 >020680,000573: 21,3704 33735 FZFDSP CAF V05N30X 05234 TC NVSBWAIT 05176 TC FLASHON 05042 TC ENDIDLE 13353 TCF ENDTST03 13713 TCF +2 13704 TCF FZFDSP 25550 INCR RUN 01545 TC QPLAC >020692,000585: 21,3715 00133 1ANG OCT 00133 E47">020693,000586: 21,3716 06000 33.75ANG OCT 06000 /a>020694,000587: 21,3717 10000 45ANG OCT 10000 /a>020695,000588: 21,3720 14477 71ANG OCT 14477 /a>020696,000589: 21,3721 20000 90ANG OCT 20000 >020697,000590: 21,3722 30000 135ANG OCT 30000 /a>020698,000591: 21,3723 01616 10ANG OCT 01616 >020699,000592: 21,3724 34344 160ANG OCT 34344 >020700,000593: 21,3725 40000 180ANG OCT 40000 >020701,000594: 21,3726 50000 225ANG OCT 50000 >020702,000595: 21,3727 36162 170ANG OCT 36162 >020704,000597: 21,3730 00077 6LOW OCT 77 /a>020705,000598: 21,3731 00030 OCT30 OCT 30 >020706,000599: 21,3732 00454 3SEC DEC 300 B-14 3">020707,000600: 21,3733 00050 4+6BITS OCT 00050 8">020709,000602: 21,3734 00110 V01N10X OCT 00110 8">020710,000603: 21,3735 00530 V05N30X OCT 00530 8">020711,000604: 21,3736 00620 V06N20X OCT 00620 8">020712,000605: 21,3737 00640 V06N40X OCT 00640 8">020713,000606: 21,3740 00666 V06N66X OCT 00666 8">020714,000607: 21,3741 03300 V33N00X OCT 03300 452">020716,000609: 21,3742 43253 ECE2CADR CADR ECE2 452">020717,000610: 21,3743 43670 FZF2CADR CADR FZF2 452">020718,000611: 21,3744 02500 OGCECADR ECADR OGC 3">020720,000613: 21,3745 00043 05000 DEG/SEC 2DEC 576000 B-28

MAS 2023: The following chunks of code (down to ENDIMUS3) were added as patches between Aurora 85 and Aurora 88. They were placed here at the end of the bank so as to not change addresses of existing symbols.

020725,000618: 
020726,000619: 21,3747           03545        DSPY30WT           TC       ZEROMAIN                              
020727,000620: 21,3750           37640                           CAF      BIT11                                 
020728,000621: 21,3751           04451                           TC       WAITLIST                              
020729,000622: 21,3752  E5,1400                                  EBANK=   XSM                                   
020730,000623: 21,3752           03756 42005                     2CADR    DSPY30                                
020731,000624: 
020732,000625: 21,3754           33761                           CAF      CH30WAKE                              
020733,000626: 21,3755           04331                           TC       JOBSLEEP                              
020734,000627: 
020735,000628: 21,3756           33761        DSPY30             CAF      CH30WAKE                              
020736,000629: 21,3757           04335                           TC       JOBWAKE                               
020737,000630: 21,3760           04505                           TC       TASKOVER                              
020738,000631: 
020739,000632: 21,3761           43626        CH30WAKE           CADR     DSPYCH30                              
020740,000633: 
020741,000634: 
020742,000635: 
020743,000636: 21,3762           00006        CHK3               EXTEND                                         
020744,000637: 21,3763           23547                           QXCH     QPLACES                               
020745,000638: 
020746,000639: 21,3764           03471                           TC       THETADLD   +2                         
020747,000640: 
020748,000641: 21,3765           37657                           CAF      ZERO                                  
020749,000642: 21,3766           03471                           TC       THETADLD   +2                         
020750,000643: 
020751,000644: 21,3767           01547                           TC       QPLACES                               
020752,000645: 
020753,000646: 21,3770                        ENDIMUS3           EQUALS                                         

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