# Copyright: Public domain. # Filename: INTERRUT_LEAD_INS.agc # Purpose: Part of the source code for Luminary 1A build 099. # It is part of the source code for the Lunar Module's (LM) # Apollo Guidance Computer (AGC), for Apollo 11. # Assembler: yaYUL # Contact: Onno Hommes . # Website: www.ibiblio.org/apollo. # Pages: 0153-0154 # Mod history: 2009-05-14 OH Transcribed from page images. # # This source code has been transcribed or otherwise adapted from # digitized images of a hardcopy from the MIT Museum. The digitization # was performed by Paul Fjeld, and arranged for by Deborah Douglas of # the Museum. Many thanks to both. The images (with suitable reduction # in storage size and consequent reduction in image quality as well) are # available online at www.ibiblio.org/apollo. If for some reason you # find that the images are illegible, contact me at info@sandroid.org # about getting access to the (much) higher-quality images which Paul # actually created. # # Notations on the hardcopy document read, in part: # # Assemble revision 001 of AGC program LMY99 by NASA 2021112-061 # 16:27 JULY 14, 1969 # Page 153 SETLOC 4000 COUNT* $$/RUPTS # FIX-FIX LEAD INS INHINT # GO CAF GOBB XCH BBANK TCF GOPROG DXCH ARUPT # T6RUPT EXTEND DCA T6ADR DTCB DXCH ARUPT # T5RUPT - AUTOPILOT EXTEND DCA T5ADR DTCB DXCH ARUPT # T3RUPT CAF T3RPTBB XCH BBANK TCF T3RUPT DXCH ARUPT # T4RUPT CAF T4RPTBB XCH BBANK TCF T4RUPT DXCH ARUPT # KEYRUPT1 CAF KEYRPTBB XCH BBANK TCF KEYRUPT1 DXCH ARUPT # KEYRUPT2 CAF MKRUPTBB XCH BBANK TCF MARKRUPT DXCH ARUPT # UPRUPT CAF UPRPTBB XCH BBANK TCF UPRUPT DXCH ARUPT # DOWNRUPT CAF DWNRPTBB XCH BBANK TCF DODOWNTM DXCH ARUPT # RADAR RUPT CAF RDRPTBB # Page 154 XCH BBANK TCF RADAREAD DXCH ARUPT # RUPT10 IS USED ONLY BY LANDING GUIDANCE CA RUPT10BB XCH BBANK TCF PITFALL EBANK= LST1 # RESTART USES E0, E3 GOBB BBCON GOPROG EBANK= PERROR T6ADR 2CADR DOT6RUPT EBANK= LST1 T3RPTBB BBCON T3RUPT EBANK= KEYTEMP1 KEYRPTBB BBCON KEYRUPT1 EBANK= AOTAZ MKRUPTBB BBCON MARKRUPT UPRPTBB = KEYRPTBB EBANK= DNTMBUFF DWNRPTBB BBCON DODOWNTM EBANK= RADMODES RDRPTBB BBCON RADAREAD EBANK= M11 T4RPTBB BBCON T4RUPT EBANK= ELVIRA RUPT10BB BBCON PITFALL