# Copyright: Public domain. # Filename: ALARM_AND_ABORT.agc # Purpose: Part of the source code for Comanche, build 055. It # is part of the source code for the Command Module's # (CM) Apollo Guidance Computer (AGC), Apollo 11. # Assembler: yaYUL # Reference: pp. 1493-1496 # Contact: Ron Burkey # Website: http://www.ibiblio.org/apollo. # Mod history: 2009-05-07 RSB Adapted from Colossus249 file of the same # name, and page images. Corrected various # typos in the transcription of program # comments, and these should be back-ported # to Colossus249. # # The contents of the "Comanche055" files, in general, are transcribed # from scanned documents. # # Assemble revision 055 of AGC program Comanche by NASA # 2021113-051. April 1, 1969. # # This AGC program shall also be referred to as Colossus 2A # # Prepared by # Massachusetts Institute of Technology # 75 Cambridge Parkway # Cambridge, Massachusetts # # under NASA contract NAS 9-4065. # # Refer directly to the online document mentioned above for further # information. Please report any errors to info@sandroid.org. # Page 1493 # THE FOLLOWING SUBROUTINE MAY BE CALLED TO DISPLAY A NON-ABORTIVE ALARM CONDITION. IT MAY BE CALLED # EITHER IN INTERRUPT OR UNDER EXECUTIVE CONTROL. # # CALLING SEQUENCE IS AS FOLLOWS: # # TC ALARM # OCT NNNNN # # (RETURNS HERE) BLOCK 02 SETLOC FFTAG7 BANK EBANK= FAILREG COUNT 02/ALARM # ALARM TURNS ON THE PROGRAM ALARM LIGHT, BUT DOES NOT DISPLAY. ALARM INHINT CA Q ALARM2 TS ALMCADR INDEX Q CA 0 BORTENT TS L PRIOENT CA BBANK +1 EXTEND ROR SUPERBNK # ADD SUPER BITS. TS ALMCADR +1 LARMENT CA Q # STORE RETURN FOR ALARM TS ITEMP1 CA LOC TS LOCALARM CA BANKSET TS BANKALRM CHKFAIL1 CCS FAILREG # IS ANYTHING IN FAILREG TCF CHKFAIL2 # YES TRY NEXT REG LXCH FAILREG TCF PROGLARM # TURN ALARM LIGHT ON FOR FIRST ALARM CHKFAIL2 CCS FAILREG +1 TCF FAIL3 LXCH FAILREG +1 TCF MULTEXIT FAIL3 CA FAILREG +2 # Page 1494 MASK POSMAX CCS A TCF MULTFAIL LXCH FAILREG +2 TCF MULTEXIT PROGLARM CS DSPTAB +11D MASK OCT40400 ADS DSPTAB +11D MULTEXIT XCH ITEMP1 # OBTAIN RETURN ADDRESS IN A RELINT INDEX A TC 1 MULTFAIL CA L AD BIT15 TS FAILREG +2 TCF MULTEXIT # PRIOLARM DISPLAYS V05N09 VIA PRIODSPR WITH 3 RETURNS TO THE USER FROM THE ASTRONAUT AT CALL LOC +1,+2,+3 AND # AN IMMEDIATE RETURN TO THE USER AT CALL LOC +4. EXAMPLE FOLLOWS, # CAF OCTXX # ALARM CODE # TC BANKCALL # CADR PRIOLARM # # ... ... # ... ... # ... ... # ASTRONAUT RETURN # TC PHASCHNG # IMMEDIATE RETURN TO USER. RESTART # OCT X.1 # PHASE CHANGE FOR PRIO DISPLAY BANK 10 SETLOC DISPLAYS BANK COUNT 10/DSPLA PRIOLARM INHINT # * * * KEEP IN DISPLAY ROUTINES BANK TS L # SAVE ALARM CODE CA BUF2 # 2 CADR OF PRIOLARM USER TS ALMCADR CA BUF2 +1 TC PRIOENT +1 # * LEAVE L ALONE -2SEC DEC -200 # *** DONT MOVE CAF V05N09 TCF PRIODSPR # Page 1495 BLOCK 02 SETLOC FFTAG13 BANK COUNT 02/ALARM BAILOUT INHINT CA Q TS ALMCADR TC BANKCALL CADR VAC5STOR INDEX ALMCADR CAF 0 TC BORTENT OCT40400 OCT 40400 INHINT WHIMPER CA TWO AD Z TS BRUPT RESUME TC POSTJUMP # RESUME SENDS CONTROL HERE CADR ENEMA SETLOC FFTAG7 BANK POODOO INHINT CA Q TS ALMCADR TC BANKCALL CADR VAC5STOR # STORE ERASABLES FOR DEBUGGING PURPOSES. INDEX ALMCADR CAF 0 ABORT2 TC BORTENT OCT77770 OCT 77770 # DONT MOVE CA V37FLBIT # IS AVERAGE G ON MASK FLAGWRD7 CCS A TC WHIMPER -1 # YES. DONT DO POODOO. DO BAILOUT. TC DOWNFLAG ADRES STATEFLG TC DOWNFLAG # Page 1496 ADRES REINTFLG TC DOWNFLAG ADRES NODOFLAG TC BANKCALL CADR MR.KLEAN TC WHIMPER CCSHOLE INHINT CA Q TS ALMCADR TC BANKCALL CADR VAC5STOR CA OCT1103 TC ABORT2 OCT1103 OCT 1103 CURTAINS INHINT CA Q TC ALARM2 OCT217 OCT 00217 TC ALMCADR # RETURN TO USER DOALARM EQUALS ENDOFJOB # CALLING SEQUENCE FOR VARALARM # # CAF (ALARM) # TC VARALARM # # VARALARM TURNS ON PROGRAM ALARM LIGHT BUT DOES NOT DISPLAY VARALARM INHINT TS L # SAVE USERS ALARM CODE CA Q # SAVE USERS Q TS ALMCADR TC PRIOENT OCT14 OCT 14 # DONT MOVE TC ALMCADR # RETURN TO USER ABORT EQUALS BAILOUT # *** TEMPORARY UNTIL ABORT CALLS OUT