Assembly listing generated by yaYUL

Source Code

These source-code files are part of a reconstructed copy of Comanche 72/3 (AKA Manche72 revision 3), the final, flown mission release of the Apollo Guidance Computer (AGC) Command Module (CM) software for Apollo 13.

The starting point was the source code of Comanche 72 (itself previously reconstructed). Comanche 72 source code was then modified by incorporating changes known from contemporary documentation to have been made between revisions 72 and 72/3. The resulting code assembles to have identical memory-bank checksums as those specified in NASA drawing 2021153G; this gives reasonably high confidence that the changes that have been made are correct. In places where ambiguity exists, this ambiguity is discussed in "## Reconstruction:" comments.

Since no contemporary listings of Comanche 72/3 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.

059291,000002: 059292,000003: 059293,000004: 059294,000005: 059295,000006: 059296,000007: 059297,000008: 059298,000009: 059299,000010: 059300,000011: 059301,000012: 059302,000013: 059303,000014: 059304,000015: 059305,000016: 059306,000017: 059307,000018: 059308,000019: 5535 059309,000020: 4000 059310,000021: 4000 059311,000022: 059312,000023: 5535 E3,1471 059313,000024: 059314,000025: 059315,000026: 059316,000027: 5535 059317,000028: < 059421,000132: 07,2674 059422,000133: 07,2675 059423,000134: 07,2676 059424,000135: 059425,000136: 07,2677 < 059746,000457: 07,3260 059747,000458: 059748,000459: 07,3261 059749,000460: 07,3262 059750,000461: 07,3263 059751,000462: 07,3264 059752,000463: 07,3265 059753,000464: 07,3266 059754,000465: < 060061,000772: 07,3601 060062,000773: 07,3602 060063,000774: 07,3603 060064,000775: 07,3604 060065,000776: 07,3605 060066,000777: 07,3606 060067,000778: 060068,000779: 060069,000780: 07,3610 060070,000781: 07,3611 060071,000782: < < 060203,000914: 060204,000915: 26,3660 060205,000916: < 060241,000952: 060242,000953: 060243,000954: 060244,000955: 060245,000956: 060246,000957: 060247,000958: 060248,000959: 060249,000960: 060250,000961: 060251,000962: 060252,000963: ## Copyright: Public domain. ## Filename: IMU_MODE_SWITCHING_ROUTINES.agc ## Purpose: A section of Manche72 revision 3. ## It is part of the reconstructed source code for the final, flown ## release of the software for the Command Module's (CM) Apollo ## Guidance Computer (AGC) for Apollo 13. No original listings ## of this program are available; instead, this file was recreated ## from a reconstructed copy of Comanche 072. It has been adapted ## such that the resulting bugger words exactly match those ## specified for Manche72 revision 3 in NASA drawing 2021153G, ## which gives relatively high confidence that the reconstruction ## is correct. ## Assembler: yaYUL ## Contact: Ron Burkey <info@sandroid.org>. ## Website: www.ibiblio.org/apollo/index.html ## Mod history: 2024-05-19 MAS Created from Comanche 072. BLOCK 02 SETLOC FFTAG3 BANK EBANK= COMMAND # FIXED-FIXED ROUTINES. COUNT 02/IMODE 455">059318,000029: 5535 35035 ZEROICDU CAF ZERO # ZERO ICDU COUNTERS. 54032 TS CDUX 54033 TS CDUY 54034 TS CDUZ 00002 TC Q 5">059324,000035: 5542 5023 SPSCODE = BIT9 # IMU ZEROING ROUTINE. BANK 11 SETLOC MODESW BANK COUNT 07/IMODE F">059334,000045: 07,2577 00004 IMUZERO INHINT # ROUTINE TO ZERO ICDUS. 41036 CS DSPTAB +11D # DONT ZERO CDUS IF IMU IN GIMBAL LOCK AND 75047 MASK BITS4&6 # COARSE ALIGN (GIMBAL RUNAWAY PROTECTION) 10000 CCS A 12607 TCF IMUZEROA 05664 TC ALARM # IF SO. 00206 OCT 00206 13542 TCF CAGETSTJ +4 # IMMEDIATE FAILURE. F41">059345,000056: 07,2607 03536 IMUZEROA TC CAGETSTJ # DO ALL THE WORK. 41321 CS IMODES33 # DISABLE DAP AUTO AND HOLD MODES 75051 MASK SUPER011 # BIT5 FOR GROUND 27321 ADS IMODES33 41320 CS IMODES30 # INHIBIT ICDUFAIL AND IMUFAIL (IN CASE WE 75775 MASK BITS3&4 # JUST CAME OUT OF COARSE ALIGN). 27320 ADS IMODES30 45047 CS BITS4&6 # SEND ZERO ENCODE WITH COARSE AND ERROR 00006 EXTEND # COUNTER DISABLED. 03012 WAND CHAN12 03151 TC NOATTOFF # TURN OFF NO ATT LAMP. 35027 CAF BIT5 00006 EXTEND 05012 WOR CHAN12 05535 TC ZEROICDU 35026 CAF BIT6 # WAIT 320 MS TO GIVE AGS ADEQUATE TIME TO 05261 TC WAITLIST # RECEIVE ITS PULSE TRAIN. EBANK= CDUIND 02642 16063 2CADR IMUZERO2 41320 CS IMODES30 # SEE IF IMU OPERATING AND ALARM IF NOT. 75023 MASK BIT9 10000 CCS A 12640 TCF MODEEXIT 05664 TC ALARM 00210 OCT 210 954">059380,000091: 07,2640 00003 MODEEXIT RELINT # GENERAL MODE-SWITCHING EXIT. 14711 TCF SWRETURN F32">059383,000094: 07,2642 03524 IMUZERO2 TC CAGETEST 05535 TC ZEROICDU # ZERO CDUX, CDUY, CDUZ 45027 CS BIT5 # REMOVE ZERO DISCRETE. 00006 EXTEND 03012 WAND CHAN12 35021 CAF BIT11 # WAIT 10 SECS FOR CTRS TO FIND GIMBALS 05306 TC VARDELAY F33">059393,000104: 07,2651 03524 IMUZERO3 TC CAGETEST 45775 CS BITS3&4 # REMOVE IMUFAIL AND ICDUFAIL INHIBIT. 71320 MASK IMODES30 55320 TS IMODES30 45051 CS SUPER011 # ENABLE DAP AUTO AND HOLD MODES 71321 MASK IMODES33 # BIT5 FOR GROUND 55321 TS IMODES33 04754 TC IBNKCALL # SET ISS WARNING IF EITHER OF ABOVE ARE 14665 CADR SETISSW # PRESENT. 13514 TCF ENDIMU # IMU COARSE ALIGN MODE. 253">059409,000120: 07,2663 00004 IMUCOARS INHINT 03536 TC CAGETSTJ 03027 TC SETCOARS 36211 CAF SIX 05261 TC WAITLIST EBANK= CDUIND 02673 16063 2CADR COARS 12640 TCF MODEEXIT /a>059420,000131: 07,2673 03524 COARS TC CAGETEST 35026 CAF BIT6 # ENABLE ALL THREE ISS CDU ERROR COUNTERS 00006 EXTEND 05012 WOR CHAN12 35032 CAF TWO # SET CDU INDICATOR >059426,000137: 07,2700 55474 COARS1 TS CDUIND 51474 INDEX CDUIND # COMPUTE THETAD - THETAA IN 1:S 31155 CA THETAD # COMPLEMENT FORM 00006 EXTEND 51474 INDEX CDUIND 20032 MSU CDUX 00006 EXTEND 75017 MP BIT13 # SHIFT RIGHT 2 56001 XCH L # ROUND 60000 DOUBLE 54061 TS ITEMP1 12715 TCF +2 26001 ADS L 51474 INDEX CDUIND # DIFFERENCE TO BE COMPUTED 23471 LXCH COMMAND 11474 CCS CDUIND 02700 TC COARS1 35032 CAF TWO # MINIMUM OF 4 MS WAIT 05306 TC VARDELAY >059449,000160: 07,2723 03524 COARS2 TC CAGETEST # DONT CONTINUE IF CAGED. 54061 TS ITEMP1 # SETS TO +0. 35032 CAF TWO # SET CDU INDICATOR 55474 +3 TS CDUIND 51474 INDEX CDUIND 11471 CCS COMMAND # NUMBER OF PULSES REQUIRED 02735 TC COMPOS # GREATER THAN MAX ALLOWED 02744 TC NEXTCDU +1 03002 TC COMNEG 02744 TC NEXTCDU +1 >059461,000172: 07,2735 63624 COMPOS AD -COMMAX # COMMAX = MAX NUMBER OF PULSES ALLOWED 00006 EXTEND # MINUS ONE 63012 BZMF COMZERO 51474 INDEX CDUIND 55471 TS COMMAND # REDUCE COMMAND BY MAX NUMBER OF PULSES 43625 CS -COMMAX- # ALLOWED 5">059468,000179: 07,2743 24061 NEXTCDU INCR ITEMP1 65034 AD NEG0 51474 INDEX CDUIND 54050 TS CDUXCMD # SET UP COMMAND REGISTER. 11474 CCS CDUIND 02726 TC COARS2 +3 10061 CCS ITEMP1 # SEE IF ANY PULSES TO GO OUT. 13016 TCF SENDPULS 05303 TC FIXDELAY # WAIT FOR GIMBALS TO SETTLE. 00226 DEC 150 B-14 35032 CAF TWO # AT END OF COMMAND, CHECK TO SEE THAT 3">059483,000194: 07,2756 54061 CHKCORS TS ITEMP1 # GIMBALS ARE WITHIN 2 DEGREES OF THETAD. 50000 INDEX A 30032 CA CDUX 00006 EXTEND 50061 INDEX ITEMP1 21155 MSU THETAD 10000 CCS A 12773 TCF COARSERR 12770 TCF CORSCHK2 12773 TCF COARSERR B32">059494,000205: 07,2770 10061 CORSCHK2 CCS ITEMP1 12756 TCF CHKCORS 13514 TCF ENDIMU # END OF COARSE ALIGNMENT. 252">059498,000209: 07,2773 63001 COARSERR AD COARSTOL # 2 DEGREES. 00006 EXTEND 62770 BZMF CORSCHK2 05664 TC ALARM # COARSE ALIGN ERROR. 00211 OCT 211 13522 TCF IMUBAD F4C">059507,000218: 07,3001 77511 COARSTOL DEC -.01111 # 2 DEGREES SCALED AT HALF-REVOLUTIONS >059509,000220: 07,3002 63624 COMNEG AD -COMMAX 00006 EXTEND 63012 BZMF COMZERO 40000 COM 51474 INDEX CDUIND 55471 TS COMMAND 33625 CA -COMMAX- 02743 TC NEXTCDU F">059518,000229: 07,3012 35035 COMZERO CAF ZERO 51474 INDEX CDUIND 57471 XCH COMMAND 02743 TC NEXTCDU C53">059523,000234: 07,3016 37707 SENDPULS CAF 13,14,15 00006 EXTEND 05014 WOR CHAN14 33626 CAF 600MS 12722 TCF COARS2 -1 # THEN TO VARDELAY >059529,000240: 07,3023 35026 CA+ECE CAF BIT6 # ENABLE ALL THREE ISS CDU ERROR COUNTERS 00006 EXTEND 05012 WOR CHAN12 05340 TC TASKOVER 253">059534,000245: 07,3027 35030 SETCOARS CAF BIT4 # BYPASS IF ALREADY IN COARSE ALIGN 00006 EXTEND 02012 RAND CHAN12 10000 CCS A 00002 TC Q 45026 CS BIT6 # CLEAR ISS ERROR COUNTERS 00006 EXTEND 03012 WAND CHAN12 45022 CS BIT10 # KNOCK DOWN GYRO ACTIVITY 00006 EXTEND 03014 WAND CHAN14 45035 CS ZERO 54047 TS GYROCMD 35030 CAF BIT4 # PUT ISS IN COARSE ALIGN 00006 EXTEND 05012 WOR CHAN12 41036 CS DSPTAB +11D # TURN ON NO ATT LAMP 73072 MASK OCT40010 27036 ADS DSPTAB +11D 41321 CS IMODES33 # DISABLE DAP AUTO AND HOLD MODES 75026 MASK BIT6 27321 ADS IMODES33 41320 CS IMODES30 # DISABLE IMUFAIL 75030 MASK BIT4 27320 ADS IMODES30 452">059566,000277: 07,3060 45027 RNDREFDR CS BIT5 # KNOCK DOWN TRACK FLAG 70075 MASK FLAGWRD1 54075 TS FLAGWRD1 45015 CS BIT15 # KNOCK DOWN DRIFT FLAG 70076 MASK FLAGWRD2 54076 TS FLAGWRD2 45017 CS BIT13 # KNOCK DOWN REFSMMAT FLAG 70077 MASK FLAGWRD3 54077 TS FLAGWRD3 00002 TC Q 130">059580,000291: 07,3072 40010 OCT40010 OCT 40010 # IMU FINE ALIGN MODE SWITCH. 5">059584,000295: 07,3073 00004 IMUFINE INHINT 03536 TC CAGETSTJ # SEE IF IMU BEING CAGED. 45043 CS BITS4-5 # RESET ZERO AND COARSE 00006 EXTEND 03012 WAND CHAN12 45026 CS BIT6 # INSURE DAP AUTO AND HOLD MODES ENABLED 71321 MASK IMODES33 55321 TS IMODES33 03151 TC NOATTOFF 35022 CAF BIT10 # IMU FAIL WAS INHIBITED DURING THE 05261 TC WAITLIST # PRESUMABLY PRECEDING COARSE ALIGN. LEAVE EBANK= CDUIND 03117 16063 2CADR IFAILOK # IT ON FOR THE FIRST 5 SECS OF FINE ALIGN 35056 CAF 2SECS 05261 TC WAITLIST EBANK= CDUIND 03115 16063 2CADR IMUFINED 12640 TCF MODEEXIT 544">059609,000320: 07,3115 03524 IMUFINED TC CAGETEST # SEE THAT NO ONE HAS CAGED THE IMU. 13514 TCF ENDIMU B">059612,000323: 07,3117 03531 IFAILOK TC CAGETSTQ # ENABLE IMU FIAL UNLESS IMU BEING CAGED. 15340 TCF TASKOVER # IT IS. 35030 CAF BIT4 # DONT RESET IMU FAIL INHIBIT IF SOMEONE 00006 EXTEND # HAS GONE INTO COARSE ALIGN. 02012 RAND CHAN12 10000 CCS A 15340 TCF TASKOVER 41320 CS IMODES30 # RESET IMUFAIL. 75017 MASK BIT13 27320 ADS IMODES30 45030 CS BIT4 B32">059625,000336: 07,3132 71320 PFAILOK2 MASK IMODES30 55320 TS IMODES30 04754 TC IBNKCALL # THE ISS WARNING LIGHT MAY COME ON NOW 14665 CADR SETISSW # THAT THE INHIBIT HAS BEEN REMOVED. 15340 TCF TASKOVER B">059631,000342: 07,3137 03531 PFAILOK TC CAGETSTQ # ENABLE PIP FAIL PROG ALARM. 15340 TCF TASKOVER 41320 CS IMODES30 # RESET IMU AND PIPA FAIL BITS. 75022 MASK BIT10 27320 ADS IMODES30 41321 CS IMODES33 75017 MASK BIT13 27321 ADS IMODES33 45027 CS BIT5 13132 TCF PFAILOK2 646">059645,000356: 07,3151 43072 NOATTOFF CS OCT40010 # SUBROUTINE TO TURN OFF NO ATT LAMP. 71036 MASK DSPTAB +11D 65015 AD BIT15 55036 TS DSPTAB +11D 00002 TC Q # ROUITNES TO INITIATE AND TERMINATE PROGRAM USE OF THE PIPAS. NO IMUSTALL REQUIRED IN EITHER CASE. >059653,000364: 07,3156 45035 PIPUSE CS ZERO 54037 TS PIPAX 54040 TS PIPAY 54041 TS PIPAZ 1">059658,000369: 07,3162 03531 PIPUSE1 TC CAGETSTQ # DO NOT ENABLE PIPA FAIL IF IMU IS CAGED 14711 TCF SWRETURN 00004 INHINT 45033 CS BIT1 # IF PIPA FAILS FROM NOW ON (UNTIL 71320 MASK IMODES30 # PIPFREE), LIGHT ISS WARNING. 55320 TS IMODES30 532">059666,000377: 07,3170 04754 PIPFREE2 TC IBNKCALL # ISS WARNING MIGHT COME ON NOW. 14665 CADR SETISSW # (OR GO OFF ON PIPFREE). 12640 TCF MODEEXIT 5">059671,000382: 07,3173 00004 PIPFREE INHINT # PROGRAM DONE WITH PIPAS. DONT LIGHT 41320 CS IMODES30 # ISS WARNING. 75033 MASK BIT1 27320 ADS IMODES30 75022 MASK BIT10 # IF PIP FAIL ON, DO PROG ALSRM AND RESET 10000 CCS A # ISS WARNING. 12640 TCF MODEEXIT 05664 TC ALARM 00212 OCT 212 00004 INHINT 13170 TCF PIPFREE2 # THE FOLLOWING ROUTINE TORQUES THE IRIGS ACCORDING TO DOUBLE PRECISION INPUTS IN THE SIX REGISTERS # BEGINNING AT THE ECADR ARRIVING IN A. THE MINIMUM SIZE OF ANY PULSE TRAIN IS 16 PULSES (.25 CDU COUNTS). THE # UNSENT PORTION OF THE COMMAND IS LEFT INTACT IN THE INPUT COMMAND REGISTERS. EBANK= 1400 # VARIABLE, ACTUALLY. 345">059693,000404: 07,3206 54161 IMUPULSE TS MPAC +5 # SAVE ARRIVING ECADR. 03536 TC CAGETSTJ # DONT PROCEED IF IMU BEING CAGED. 11304 CCS LGYRO # SEE IF GYROS BUSY. 03252 TC GYROBUSY # SLEEP. 54156 TS MPAC +2 35026 CAF BIT6 # ENABLE THE POWER SUPPLY. 00006 EXTEND 05014 WOR CHAN14 35031 CAF FOUR >059705,000416: 07,3217 05261 GWAKE2 TC WAITLIST # (IF A JOB WAS PUT TO SLEEP, THE POWER EBANK= CDUIND # SUPPLY IS LEFT ON BY THE WAKING JOB). 03270 16063 2CADR STRTGYRO 30161 CA MPAC +5 # SET UP EBANK, SAVING CALLER'S EBANK FOR 56003 XCH EBANK # RESTORATION ON RETURN. 56161 XCH MPAC +5 55304 TS LGYRO # RESERVES GYROS. 74373 MASK LOW8 54061 TS ITEMP1 35032 CAF TWO # FORCE SIGN AGREEMENT ON INPUTS. 245">059717,000428: 07,3231 54157 GYROAGRE TS MPAC +3 60000 DOUBLE 60061 AD ITEMP1 54160 TS MPAC +4 00006 EXTEND 50000 INDEX A 31401 DCA 1400 52155 DXCH MPAC 07226 TC TPAGREE 52155 DXCH MPAC 50160 INDEX MPAC +4 53401 DXCH 1400 10157 CCS MPAC +3 13231 TCF GYROAGRE 30161 CA MPAC +5 # RESTORE CALLER'S EBANK. 54003 TS EBANK 12640 TCF MODEEXIT # ROUTINES TO ALLOW TORQUING BY ONLY ONE JOB AT A TIME. 359">059739,000450: 07,3252 00006 GYROBUSY EXTEND # SAVE RETURN 2FCADR. 30134 DCA BUF2 52155 DXCH MPAC 550">059742,000453: 07,3255 33267 REGSLEEP CAF LGWAKE 15211 TCF JOBSLEEP /a>059745,000456: 07,3257 11304 GWAKE CCS LGYRO # WHEN AWAKENED, SEE IF GYROS STILL BUSY. 13255 TCF REGSLEEP # IF SO, SLEEP SOME MORE. 54156 TS MPAC +2 00006 EXTEND 30155 DCA MPAC 52134 DXCH BUF2 # RESTORE SWRETURN INFO. 35033 CAF ONE 13217 TCF GWAKE2 >059755,000466: 07,3267 17257 LGWAKE CADR GWAKE # GYRO-TORQUING WAITLIST TASKS. 24F">059759,000470: 07,3270 43511 STRTGYRO CS GDESELCT # DE-SELECT LAST GYRO. 00006 EXTEND 03014 WAND CHAN14 03524 TC CAGETEST 232">059765,000476: 07,3274 31304 STRTGYR2 CA LGYRO # JUMP ON PHASE COUNTER IN BITS 13-14. 00006 EXTEND 75030 MP BIT4 50000 INDEX A 13301 TCF +1 03316 TC GSELECT # =0. DO Y GYRO. 00202 OCT 00202 03316 TC GSELECT # =1. DO Z GYRO. 00302 OCT 00302 03314 TC GSELECT -2 # =2. DO X GYRO. 00100 OCT 00100 35035 CAF ZERO # =3. DONE 55304 TS LGYRO 33267 CAF LGWAKE # WAKE A POSSIBLE SLEEPING JOB. 05215 TC JOBWAKE 4">059784,000495: 07,3313 13115 NORESET TCF IMUFINED # DO NOT RESET POWER SUPPLY 45031 -2 CS FOUR # SPECIAL ENTRY TO REGRESS LGYRO FOR X. 27304 ADS LGYRO 4">059788,000499: 07,3316 50002 GSELECT INDEX Q # SELECT GYRO. 30000 CAF 0 # PACKED WORD CONTAINS GYRO SELECT BITS 54064 TS ITEMP4 # AND INCREMENT TO LGYRO. 75037 MASK SEVEN 65017 AD BIT13 27304 ADS LGYRO 54003 TS EBANK 74373 MASK LOW8 54061 TS ITEMP1 45037 CS SEVEN 70064 MASK ITEMP4 54064 TS ITEMP4 00006 EXTEND # MOVE DP COMMAND TO RUPTREGS FOR TESTING. 50061 INDEX ITEMP1 31401 DCA 1400 52071 DXCH RUPTREG1 10070 CCS RUPTREG1 13352 TCF MAJ+ 13342 TCF +2 13472 TCF MAJ- 10071 CCS RUPTREG2 13347 TCF MIN+ 13274 TCF STRTGYR2 13467 TCF MIN- 13274 TCF STRTGYR2 >059818,000529: 07,3347 63403 MIN+ AD -GYROMIN # SMALL POSITIVE COMMAND. SEE IF AT LEAST 00006 EXTEND # 16 GYRO PULSES. 63274 BZMF STRTGYR2 >059822,000533: 07,3352 00006 MAJ+ EXTEND # DEFINITE POSITIVE OUTPUT. 33513 DCA GYROFRAC 20071 DAS RUPTREG1 30064 CA ITEMP4 # SELECT POSITIVE TORQUING FOR THIS GYRO. 00006 EXTEND 05014 WOR CHAN14 36043 CAF LOW7 # LEAVE NUMBER OF POSSIBLE 8192 AUGMENTS 70071 MASK RUPTREG2 # TO INITIAL COMMAND IN MAJOR PART OF LONG 56071 XCH RUPTREG2 # TERM STORAGE AND TRUNCATED FRACTION >059833,000544: 07,3363 00006 GMERGE EXTEND # IN MINOR PART. THE MAJOR PART WILL BE 75024 MP BIT8 # COUNTED DOWN TO ZERO IN THE COURSE OF 54062 TS ITEMP2 # PUTTING OUT THE ENTIRE COMMAND. 30070 CA RUPTREG1 00006 EXTEND 75023 MP BIT9 54070 TS RUPTREG1 30001 CA L 00006 EXTEND 75016 MP BIT14 26062 ADS ITEMP2 # INITIAL COMMAND. 00006 EXTEND # SEE IF MORE THAN ONE PULSE TRAIN NEEDED 30071 DCA RUPTREG1 # (MORE THAN 16383 PULSES). 67716 AD MINUS1 10000 CCS A 13426 TCF LONGGYRO 94E">059850,000561: 07,3403 77601 -GYROMIN OCT -176 # MAY BE ADJUSTED TO SPECIFY MINIMUM CMD 13410 TCF +4 35016 CAF BIT14 26062 ADS ITEMP2 35035 CAF ZERO 50061 +4 INDEX ITEMP1 53401 DXCH 1400 30062 CA ITEMP2 # ENTIRE COMMAND. 7">059860,000571: 07,3413 54047 LASTSEG TS GYROCMD 00006 EXTEND 75022 MP BIT10 # WAITLIST DT 66214 AD THREE # TRUNCATION AND PHASE UNCERTAINTIES. 05261 TC WAITLIST EBANK= CDUIND 03270 16063 2CADR STRTGYRO 954">059868,000579: 07,3422 35022 GYROEXIT CAF BIT10 00006 EXTEND 05014 WOR CHAN14 15340 TCF TASKOVER 24F">059873,000584: 07,3426 50061 LONGGYRO INDEX ITEMP1 53401 DXCH 1400 # INITIAL COMMAND OUT PLUS N AUGMENTS OF 35016 CAF BIT14 # 8192. INITIAL COMMAND IS AT LEAST 8192. 60062 AD ITEMP2 54047 TS GYROCMD >059879,000590: 07,3433 00006 AUG3 EXTEND # GET WAITLIST DT TO TIME WHEN TRAIN IS 75022 MP BIT10 # ALMOST OUT. 67714 AD NEG3 05261 TC WAITLIST EBANK= CDUIND 03442 16063 2CADR 8192AUG 13422 TCF GYROEXIT 7">059888,000599: 07,3442 03524 8192AUG TC CAGETEST 35030 CAF BIT4 00006 EXTEND 02012 RAND CHAN12 10000 CCS A 13522 TCF IMUBAD 31304 CA LGYRO # ADD 8192 PULSES TO GYROCMD 54003 TS EBANK 74373 MASK LOW8 54061 TS ITEMP1 50061 INDEX ITEMP1 # SEE IF THIS IS THE LAST AUG. 11400 CCS 1400 13462 TCF AUG2 # MORE TO COME. 35016 CAF BIT14 26047 ADS GYROCMD 13414 TCF LASTSEG +1 >059908,000619: 07,3462 50061 AUG2 INDEX ITEMP1 55400 TS 1400 35016 CAF BIT14 26047 ADS GYROCMD 13433 TCF AUG3 # COMPUTE DT. >059914,000625: 07,3467 63403 MIN- AD -GYROMIN # POSSIBLE NEGATIVE OUTPUT. 00006 EXTEND 63274 BZMF STRTGYR2 >059918,000629: 07,3472 00006 MAJ- EXTEND # DEFINITE NEGATIVE OUTPUT. 43513 DCS GYROFRAC 20071 DAS RUPTREG1 30064 CA ITEMP4 # SELECT NEGATIVE TORQUING FOR THIS GYRO. 65023 AD BIT9 00006 EXTEND 05014 WOR CHAN14 40070 CS RUPTREG1 # SET UP RUPTREGS TO FALL INTO GMERGE. 54070 TS RUPTREG1 # ALL NUMBERS PUT INTO GYROCMD ARE 40071 CS RUPTREG2 # POSITIVE - BIT9 OF CHAN 14 DETERMINES 76043 MASK LOW7 # THE SIGN OF THE COMMAND. 40000 COM 56071 XCH RUPTREG2 40000 COM 13363 TCF GMERGE 354">059936,000647: 07,3511 01700 GDESELCT OCT 1700 # TURN OFF SELECT AND ACTIVITY BITS. 143">059938,000649: 07,3512 00000 00034 GYROFRAC 2DEC .215 B-21 # IMU MODE SWITCHING ROUTINES COME HERE WHEN ACTION COMPLETE. >059942,000653: 07,3514 00006 ENDIMU EXTEND # MODE IS BAD IF CAGE HAS OCCURED OR IF 00011 READ DSALMOUT # ISS WARNING IS ON. 75033 MASK BIT1 10000 CCS A 13522 TCF IMUBAD 4">059948,000659: 07,3521 13550 IMUGOOD TCF GOODEND # WITH C(A) = 0. >059950,000661: 07,3522 35035 IMUBAD CAF ZERO 13545 TCF BADEND 354">059953,000664: 07,3524 35026 CAGETEST CAF BIT6 # SUBROUTINE TO TERMINATE IMU MODE 71320 MASK IMODES30 # SWITCH IF IMU HAS BEEN CAGED. 10000 CCS A 13522 TCF IMUBAD # DIRECTLY. 00002 TC Q # WITH C(A) = +0. 451">059959,000670: 07,3531 41320 CAGETSTQ CS IMODES30 # SKIP IF IMU NOT BEING CAGED. 75026 MASK BIT6 10000 CCS A 24002 INCR Q 00002 TC Q 44A">059965,000676: 07,3536 41320 CAGETSTJ CS IMODES30 # IF DURING MODE SWITCH INITIALIZATION 75026 MASK BIT6 # IT IS FOUND THAT THE IMU IS BEING CAGED, 10000 CCS A # SET IMUCADR TO -0 TO INDICATE OPERATION 00002 TC Q # COMPLETE BUT FAILED. RETURN IMMEDIATELY 45035 CS ZERO # TO SWRETURN. 55322 TS IMUCADR 12640 TCF MODEEXIT # GENERALIZED MODE SWITCHING TERMINATION. ENTER AT GOODEND FOR SUCCESSFUL COMPLETION OF AN I/O OPERATION # OR AT BADEND FOR AN UNSUCCESSFUL ONE. C(A) OR ARRIVAL =0 FOR IMU, 1 FOR OPTICS. >059976,000687: 07,3545 54071 BADEND TS RUPTREG2 # DEVICE INDEX. 45035 CS ZERO # FOR FAILURE. 13552 TCF GOODEND +2 4">059980,000691: 07,3550 54071 GOODEND TS RUPTREG2 45033 CS ONE # FOR SUCCESS. 54072 TS RUPTREG3 50071 INDEX RUPTREG2 # SEE IF USING PROGRAM ASLEEP. 11322 CCS MODECADR 13557 TCF +2 # YES - WAKE IT UP. 13567 TCF ENDMODE # IF 0, PROGRAM NOT IN YET. 35035 CAF ZERO # WAKE SLEEPING PROGRAM. 50071 INDEX RUPTREG2 57322 XCH MODECADR 05215 TC JOBWAKE 40072 CS RUPTREG3 # ADVANCE LOC IF SUCCESSFUL. 50064 INDEX LOCCTR 26164 ADS LOC 15340 TCF TASKOVER 5">060000,000711: 07,3567 30072 ENDMODE CA RUPTREG3 # -0 INDICATES OPERATION COMPLETE BUT 50071 INDEX RUPTREG2 # UNSUCCESSFUL - -1 INDICATES COMPLETE AND 55322 TS MODECADR # SUCCESSFUL. 15340 TCF TASKOVER # GENERAL STALLING ROUTINE. USING PROGRAMS COME HERE TO WAIT FOR I/O COMPLETION. # PROGRAM DESCRIPTION DATE - 21 FEB 1967 # LOG SECTION IMU MODE SWITCHING # MOD BY - R. MELANSON TO ADD DOCUMENTATION ASSEMBLY SUNDISK REV. 82 # FUNCTIONAL DESCRIPTION - # TO DELAY FURTHER EXECUTION OF THE CALLING ROUTINE UNTIL ITS SELECTED # I/O FUNCTION IS COMPLETE. THE FOLLOWING CHECKS ON THE CALLING ROUTINE:S # MODECADR ARE MADE AND ACTED UPON. # 1) +0 INDICATES INCOMPLETE I/O OPERATION. CALLING ROUTINE IS PUT TO # SLEEP. # 2) -1 INDICATES COMPLETED I/O OPERATION. STALL BYPASSES JOBSLEEP # CALL AND RETURNS TO CALLING ROUTINE AT L+3 # 3) -0 INDICATES COMPLETED I/O WITH FAILURE. STALL CLEARS MODECADR # AND RETURNS TO CALLING ROUTINE AT L+2. # 4) VALUE GREATER THAN 0 INDICATES TWO ROUTINES CALLING FOR USE OF # SAME DEVICE. STALL EXITS TO ABORT WHICH EXECUTES A PROGRAM # RESTART WHICH IN TURN CLEARS ALL MODECADR REGISTERS. # CALLING SEQUENCE - # L TC BANKCALL # L+1 CADR (ONE OF 5 STALL ADDRESSES I.E. IMUSTALL, OPTSTALL, RADSTALL, # AOTSTALL, OR ATTSTALL) # NORMAL-EXIT MODE - # TCF JOBSLEEP OR TCF MODEXIT # ALARM OR ABORT EXIT MODE - # TC ABORT # OUTPUT - # MODECADR=CADR IF JOBSLEEP # MODECADR=+0 IF I/O COMPLETE # BUF2=L+3 IF I/O COMPLETE AND GOOD. # BUF2=L+2 IF I/O COMPLETE BUT FAILED. # ERASABLE INITIALIZATION - # BUF2 CONTAINS RETURN ADDRESS PLUS 1,(L+2) # BUF2+1 CONTAINS FBANK VALUE OF CALLING ROUTINE. # MODECADR OF CALLING ROUTINE CONTAINS +0,-1,-0 OR CADR RETURN ADDRESS. # DEBRIS - # RUPTREG2 AND CALLING ROUTINE MODECADR. C4C">060050,000761: 07,3573 35033 AOTSTALL CAF ONE # AOT. 03600 TC STALL C4C">060053,000764: 07,3575 35032 RADSTALL CAF TWO 13600 TCF STALL C4C">060056,000767: 07,3577 07,3573 OPTSTALL EQUALS AOTSTALL C4C">060058,000769: 07,3577 35035 IMUSTALL CAF ZERO # IMU. /a>060060,000771: 07,3600 00004 STALL INHINT 54071 TS RUPTREG2 # SAVE DEVICE INDEX. 50000 INDEX A # SEE IF OPERATION COMPLETE. 11322 CCS MODECADR 13622 TCF MODABORT # ALLOWABLE STATES ARE +0, -1, AND -0. 13616 TCF MODESLP # OPERATION INCOMPLETE. 13612 TCF MODEGOOD # COMPLETE AND GOOD IF = -1. 07,3607 50071 MG2 INDEX RUPTREG2 # COMPLETE AND FAILED IF -0. RESET TO +0. 55322 TS MODECADR # RETURN TO CALLER. 12640 TCF MODEEXIT F44">060072,000783: 07,3612 10000 MODEGOOD CCS A # MAKE SURE INITIAL STATE -1. 13622 TCF MODABORT 24133 INCR BUF2 # IF SO, INCREMENT RETURN ADDRESS AND 13607 TCF MG2 # RETURN IMMEDIATELY, SETTING CADR = +0. 0">060078,000789: 07,3616 04725 MODESLP TC MAKECADR # CALL FROM SWITCHABLE FIXED ONLY. 50071 INDEX RUPTREG2 55322 TS MODECADR 15211 TCF JOBSLEEP 254">060083,000794: 07,3622 05725 MODABORT TC POODOO # TWO PROGRAMS USING SAME DEVICE. 21210 OCT 21210 # CONSTANTS FOR MODE SWITCHING ROUTINES 4">060088,000799: 07,3624 5775 BITS3&4 = OCT14 6">060089,000800: 07,3624 5047 BITS4&6 = OCT50 5">060090,000801: 07,3624 5043 BITS4-5 EQUALS BITS4&5 C47">060091,000802: 07,3624 5024 IMUSEFLG EQUALS BIT8 # INTERPRETER SWITCH 7. 8">060092,000803: 07,3624 77500 -COMMAX DEC -191 B-14 82D">060093,000804: 07,3625 77477 -COMMAX- DEC -192 B-14 /a>060094,000805: 07,3626 00074 600MS DEC 60 B-14 230">060095,000806: 07,3627 07,3073 IMUFIN20 = IMUFINE 2">060096,000807: 07,3627 31325 GOMANUR CA ATTCADR # IS KALCMANU FREE 00006 EXTEND 13634 BZF +3 05725 TC POODOO # NO 21210 OCT 21210 # 2 TRYING TO USE SAME DEVICE 00006 +3 EXTEND 30134 DCA BUF2 53326 DXCH ATTCADR # SAVE FINAL RETURN FOR KALCMAN3 30006 CA BBANK 75037 MASK SEVEN 27326 ADS ATTCADR +1 30167 CA PRIORITY 77674 MASK PRIO37 55327 TS ATTPRIO # SAVE USERS PRIO 33651 CAF KALEBCON # SET EBANK FOR KALCMAN3 54003 TS EBANK 04715 TC POSTJUMP 44000 CADR KALCMAN3 F4E">060118,000829: 07,3651 03261 KALEBCON ECADR BCDU # PROGRAM DESCRIPTION # IMU STATUS CHECK ROUTINE R02 (SUBROUTINE UTILITY) # MOD NO - 1 # MOD BY - N.BRODEUR # FUNCTIONAL DESCRIPTION # TO CHECK WHETHER IMU IS ON AND IF ON WHETHER IT IS ALIGNED TO AN # ORIENTATION KNOWN BY THE CMC. TO REQUEST SELECTION OF THE APPROPRIATE # PROGRAM IF THE IMU IS OFF OR NOT ALIGNED TO AN ORIENTATION KNOWN BY THE # CMC. CALLED THROUGH BANKCALL # CALLING SEQUENCE - # L TC BANKCALL # L+1 CADR R02BOTH # SUBROUTINES CALLED # VARALARM # FLAGUP # NORMAL EXIT MODES # AT L+2 OF CALLING SEQUENCE # ALARM OR ABORT EXIT MODES # GOTOPOOH, WITH ALARM # ERASABLE INITIALIZATION REQUIRED # NONE # DEBRIS # CENTRALS - A,Q,L BANK 34 SETLOC R02 BANK COUNT 04/R02 # COUNT* /a>060156,000867: 07,3652 00063 DEC51 DEC 51 B-14 8">060157,000868: 07,3653 35017 R02BOTH CAF BIT13 70077 MASK STATE +3 # REFSMFLG 10000 CCS A 03667 TC R02ZERO # ZERO IMUS 31320 CA IMODES30 75023 MASK BIT9 # IS ISS INITIALIZED 00006 EXTEND 13664 BZF +2 45030 CS BIT4 # SEND IMU ALARM CODE 210 63672 AD OCT220 # SEND REFSMM ALARM 05770 TC VARALARM 04106 TC GOTOPOOH F">060172,000883: 07,3667 05562 R02ZERO TC UPFLAG 00007 ADRES IMUSE 14711 TCF SWRETURN >060175,000886: 07,3672 00220 OCT220 OCT 220 # PROGRAM DESCRIPTION P06 10FEB67 # TRANSFER THE ISS/CMC FROM THE OPERATE TO THE STANDBY CONDITION. # THE NORMAL CONDITION OF READINESS OF THE GNCS WHEN NOT IN USE IS STANDBY. IN THIS CONDITION THE IMU # HEATER POWER IS ON. THE IMU OPERATE POWER IS OFF. THE COMPUTER POWER IS ON. THE OPTICS POWER IS OFF. THE # CMC STANDBY ON THE MAIN AND LEB DISKYS IS ON. # CALLING SEQUENCE: # ASTRONAUT REQUEST THROUGH DSKY V37E 06E. # SUBROUTINES CALLED: # GOPERF1 # BANKCALL # FLAGDOWN # PRESTAND PREPARES FOR STANDBY BY SNAPSHOTTING THE SCALER AND TIME1 TIME2 # THE LOW 5 BITS OF THE SCALER ARE INSPECTED TO INSURE COMPATABILITY # BETWEEN THE SCALER READING AND THE TIME1 TIME2 READING. SETLOC P05P06 BANK 1150 EBANK= TIME2SAV COUNT* $$/P06 26,3657 05562 P06 TC UPFLAG # SET NODOV37 BIT 00054 ADRES NODOFLAG E44">060206,000917: 26,3661 00004 PRESTAND INHINT 00006 EXTEND 30025 DCA TIME2 # SNAPSHOT TIME1 TIME2 53151 DXCH TIME2SAV 03716 TC SCALPREP 03661 TC PRESTAND # T1,T2,SCALER NOT COMPATIBLE 52155 DXCH MPAC # T1,T2 AND SCALER OK 53153 DXCH SCALSAVE # STORE SCALER 00004 INHINT 04676 TC BANKCALL 17060 CADR RNDREFDR # REFSMM, DRIFT, TRACK FLAGS DOWN 05574 TC DOWNFLAG 00007 ADRES IMUSE # IMUSE DOWN 05574 TC DOWNFLAG 00010 ADRES RNDVZFLG # RNDVZFLG DOWN 35021 CAF BIT11 00006 EXTEND 05013 WOR CHAN13 # SET STANDBY ENABLE BIT 05426 TC PHASCHNG # SET RESTART TO POSTAND WHEN STANDBY 07024 OCT 07024 # RECOVERS 20000 OCT 20000 1152 EBANK= SCALSAVE 03736 54062 2CADR POSTAND 35052 CAF OCT62 04676 TC BANKCALL 21045 CADR GOPERF1 13710 TCF -3 13710 TCF -4 13710 TCF -5 /a>060240,000951: 26,3716 5052 OCT62 EQUALS .5SEC # DEC 50 = OCT 62 # THE LOW 5 BITS OF THE SCALER READS 10000 FOR THE FIRST INTERVAL AFTER A # T1 INCREMENT. IF SCALPREP DETECTS THIS INTERVAL THE T1,T2 AND SCALER # DATA ARE NOT COMPATABLE AND RETURN IS TO L+1 FOR ANOTHER READING OF THE # DATA. OTHERWISE, THE RETURN IS TO L+2 TO PROCEED. ROUTINE ALSO PREPARES # THE SCALER READING FOR COMPUTATION OF THE INCREMENT TO UPDATE T1T2. (THE # 10 MS BIT (BIT 6) OF THE SCALER IS INCREMENTED 5 MS OUT OF PHASE FROM # T1.) ADDITION OF 5 MS (BIT 5) TO THE SCALER READING HAS THE EFFECT OF # ADJUSTING BIT 6 IN THE SCALER TO BE IN PHASE WITH BIT 1 OF T1. THE LOW 5 # BITS OF THE SCALER READING ARE THEN SET TO ZERO, TO TRUNCATE THE SCALER # DATA TO 10 MS. RESULTS ARE STORED IN MPAC, +1. 550">060253,000964: 26,3716 00006 SCALPREP EXTEND 22156 QXCH MPAC +2 04554 TC FINETIME +1 00003 RELINT 52155 DXCH MPAC 35027 CA BIT5 # ADD 5 MS TO THE SCALER READING. 54001 TS L 35035 CA ZERO 20155 DAS MPAC 44362 CS LOW5 # SET LOW 5 BITS OF (SCALER+5MS) TO ZERO 70155 MASK MPAC +1 # AND STORE RESULTS IN MPAC,+1. 56155 XCH MPAC +1 74362 MASK LOW5 # TEST LOW 5 BITS OF SCALER FOR THE FIRST # INTERVAL AFTER THE T1 INCREMENT # (NOW = 00000, SINCE BIT 5 ADDED). 10000 CCS A # IS IT 1ST INTERVAL AFTER T1 INCREMENT 24156 INCR MPAC +2 # NO 00156 TC MPAC +2 # YES # POSTAND RECOVERS TIME AFTER STANDBY. THE SCALER IS SNAPSHOTTED AND THE # TIME1 TIME2 COUNTER IS SET TO ZERO. THE LOW 5 BITS OF THE SCALER ARE # INSPECTED TO INSURE COMPATABILITY BETWEEN THE SCALER READING AND THE # CLEARING OF THE TIME COUNTER. IT THEN COMPUTES THE DIFFERENCE IN SCALER # VALUES (IN DP) AND ADDS THIS TO THE PREVIOUSLY SNAPSHOTTED VALUES OF # TIME1 TIME2 AND PLACES THIS NEW TIME INTO THE TIME1 TIME2 COUNTER. COUNT* $$/P05 4">060281,000992: 26,3736 45021 POSTAND CS BIT11 # RECOVER TIME AFTER STANDBY. 00006 EXTEND 03013 WAND CHAN13 # CLEAR STANDBY ENABLE BIT 00004 INHINT 35035 CA ZERO 54001 TS L 52025 DXCH TIME2 # CLEAR TIME1 TIME2 03716 TC SCALPREP # STORE SCALER IN MPAC, MPAC+1 03741 TC POSTAND +3 # T1,T2,SCALER NOT COMPATIBLE 00006 EXTEND # T1,T2 AND SCALER OK 41153 DCS SCALSAVE 20155 DAS MPAC # FORM DP DIFFERENCE OF POSTSTANDBY SCALER 35022 CAF BIT10 # MINUS PRESTANDBY SCALER AND SHIFT RIGHT 07256 TC SHORTMP # 5 TO ALIGN BITS WITH TIME1 TIME2. 35035 CAF ZERO 54156 TS MPAC +2 # NEEDED FOR TP AGREE 07226 TC TPAGREE # MAKE DP DIFF AGREE 10154 CCS MPAC 03765 TC POSTCOM # IF DP DIFF NET +, NO SCALER OVERFLOW 03765 TC POSTCOM # BETWEEN PRE AND POST STANDBY. 03763 TC +1 # IF DP DIFF NET -, SCALER OVERFLOWED. ADD 35022 CAF BIT10 # BIT 10 TO HIGH DIFF TO CORRECT. 26154 ADS MPAC D">060304,001015: 26,3765 00006 POSTCOM EXTEND # C(MPAC,+1) IS MAGNITUDE OF DELTA SCALER. 31151 DCA TIME2SAV # PRESTANDBY TIME1 TIME2 20155 DAS MPAC 07226 TC TPAGREE # FORCE SIGN AGREEMENT 52155 DXCH MPAC # UPDATED VALUE FOR T1,T2. 20025 DAS TIME2 # LOAD UPDATED VALUE INTO T1,T2, WITH 05574 TC DOWNFLAG # CLEAR NODOFLAG 00054 ADRES NODOFLAG 04106 TC GOTOPOOH IMU_MODE_SWITCHING_ROUTINES.agc. Parent file is MAIN.agc