Source Code

These source-code files were transcribed from a printout in Don Eyles's personal collection, scanned by archive.org, and financially sponsored by Peter McDermott. A team of volunteers performed the transcription and proof-reading. The scanned page images are available at the Virtual AGC Project website, as well as higher-quality (but much larger) images at the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating "issues" at the Virtual AGC Project's GitHub Repository.

Notations on the program listing read, in part:

	YUL SYSTEM FOR AGC: NEW PROGRAM SHEPATIN BY EYLES
	DEC 13, 1966

	THIS PROGRAM WAS ASSEMBLED AS A VERSION OF REVISION 37 
        OF PROGRAM SUNBURST BY LEM GROUP
Note that the date is the date of the printout, not the date of the program revision.

012617,000002:                                                                                                  ## Copyright:   Public domain.
012618,000003:                                                                                                  ## Filename:    ALARM_AND_ABORT.agc
012619,000004:                                                                                                  ## Purpose:     A section of Sunburst revision 37, or Shepatin revision 0.
012620,000005:                                                                                                  ##              It is part of an early development version of the software
012621,000006:                                                                                                  ##              for Apollo Guidance Computer (AGC) on the unmanned Lunar
012622,000007:                                                                                                  ##              Module (LM) flight Apollo 5. Sunburst 37 was the program
012623,000008:                                                                                                  ##              upon which Don Eyles's offline development program Shepatin
012624,000009:                                                                                                  ##              was based; the listing herein transcribed was actually for
012625,000010:                                                                                                  ##              the equivalent revision 0 of Shepatin.
012626,000011:                                                                                                  ##              This file is intended to be a faithful transcription, except
012627,000012:                                                                                                  ##              that the code format has been changed to conform to the
012628,000013:                                                                                                  ##              requirements of the yaYUL assembler rather than the
012629,000014:                                                                                                  ##              original YUL assembler.
012630,000015:                                                                                                  ## Reference:   pp. 300-302
012631,000016:                                                                                                  ## Assembler:   yaYUL
012632,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
012633,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
012634,000019:                                                                                                  ## Mod history: 2017-05-24 MAS  Created from Sunburst 120.
012635,000020:                                                                                                  ##              2017-06-01 TVB  Transcribed
012636,000021:                                                                                                  ##              2017-06-13 HG   Fix operator TCF -> TC
012637,000022:                                                                                                  ##                              Remove tabs
012638,000023:                                                                                                  ##              2017-06-22 RSB  Proofed comment text with
012639,000024:                                                                                                  ##                              octopus/ProoferComments.
012640,000025: 

Page 300

012642,000027: 
012643,000028:    4725                                           BLOCK    02                                    
012644,000029:    4725     4725               BZFHOLE            EQUALS   CCSHOLE                               
012645,000030: 
012646,000031:    4725           00004        CCSHOLE            INHINT                                         
012647,000032:    4726           30002                           CA       Q                                     
012648,000033:    4727           55342                           TS       ALMCADR                               
012649,000034: 
012650,000035:    4730           06003                           TC       ABORT2                                
012651,000036:    4731           01103                           OCT      1103                                  
012652,000037: 
012653,000038:    4732           00004        CURTAINS           INHINT                                         #  SAVE 2CADR OF USER FOR CURTAINS DISPLAY
012654,000039:    4733           30002                           CA       Q                                     #  ***MAY CHANGE FOR NEW ALARM ROUTINE*****
012655,000040:    4734           55342                           TS       ALMCADR                               
012656,000041: 
012657,000042:    4735           04747                           TC       ALARM2                                
012658,000043:    4736           00310                           OCT      00310                                 
012659,000044: 
012660,000045:    4737           00004        JETENTRY           INHINT                                         
012661,000046:    4740           34743                           CAF      CURTBB                                
012662,000047:    4741           56006                           XCH      BBANK                                 
012663,000048:    4742           12000                           TCF      FORGETIT                              
012664,000049: 
012665,000050:    4743  E3,1400                                  EBANK=   LST1                                  
012666,000051:    4743           16003        CURTBB             BBCON    FORGETIT                              
012667,000052: 07,2061                                           BANK     07                                    
012668,000053: 
012669,000054: 07,2061           04621        LARMLARM           TC       GRABDSP                               
012670,000055: 07,2062           05605                           TC       ENDOFJOB                              
012671,000056: 
012672,000057: 07,2063           04633        DOALARM            TC       GRABWAIT                              #  DISPLAY FAILREG.
012673,000058: 07,2064           32067                           CAF      FAILDISP                              
012674,000059: 07,2065           04646                           TC       NVSBWAIT                              
012675,000060: 
012676,000061: 07,2066           05604                           TC       EJFREE                                #  FREE DISPLAY AND END JOB.
012677,000062: 
012678,000063: 07,2067           00550        FAILDISP           OCT      00550                                 
012679,000064: 
012680,000065: 07,2070           04744        JETABORT           TC       ALARM                                 
012681,000066: 07,2071           00312                           OCT      00312                                 
012682,000067: 
012683,000068: 07,2072           14737                           TCF      JETENTRY                              
012684,000069: 
012685,000070:                                                                                                  #  ALARM IS CALLED EITHER IN INTERRUPT OR UNDER EXECUTIVE CONTROL
012686,000071: 
012687,000072:                                                                                                  #  CALLING SEQUENCE,
012688,000073: 
012689,000074:                                                                                                  #                TC      ALARM
012690,000075:                                                                                                  #                OCT     AAANN           ALARM NO. NN IN GENERAL AREA AAA.
012691,000076: 
012692,000077:                                                                                                  #                                        (RETURNS HERE)
012693,000078: 

Page 301

012695,000080: 
012696,000081:                                                                                                  #  *** FAILREG AND VN DECISIONS STILL TO BE MADE***
012697,000082:    4744                                           BLOCK    02                                    
012698,000083:    4744           00004        ALARM              INHINT                                         
012699,000084: 
012700,000085:    4745           30002                           CA       Q                                     
012701,000086:    4746           55342                           TS       ALMCADR                               
012702,000087: 
012703,000088:    4747           50002        ALARM2             INDEX    Q                                     
012704,000089: 
012705,000090:    4750           30000                           CA       0                                     
012706,000091:    4751           54001        BORTENT            TS       L                                     #  STORE RETURN -1 IN L
012707,000092: 
012708,000093:    4752           30006                           CA       BBANK                                 
012709,000094:    4753           55343                           TS       ALMCADR    +1                         
012710,000095: 
012711,000096:    4754           30002                           CA       Q                                     
012712,000097:    4755           54073                           TS       RUPTREG4                              
012713,000098: 
012714,000099:    4756           11363        CHKFAIL1           CCS      FAILREG                               #  IS ANYTHING IN FAILREG
012715,000100:    4757           14762                           TCF      CHKFAIL2                              #  YES TRY NEXT REG
012716,000101:    4760           23363                           LXCH     FAILREG                               
012717,000102:    4761           14774                           TCF      PROGLARM                              #  TURN ALARM LIGHT ON FOR FIRST ALARM
012718,000103: 
012719,000104:    4762           11364        CHKFAIL2           CCS      FAILREG    +1                         
012720,000105:    4763           14766                           TCF      FAIL3                                 
012721,000106:    4764           23364                           LXCH     FAILREG    +1                         
012722,000107:    4765           14777                           TCF      MULTEXIT                              
012723,000108: 
012724,000109:    4766           31365        FAIL3              CA       FAILREG    +2                         
012725,000110:    4767           77735                           MASK     POSMAX                                
012726,000111:    4770           10000                           CCS      A                                     
012727,000112:    4771           15007                           TCF      MULTFAIL                              
012728,000113: 
012729,000114:    4772           23365                           LXCH     FAILREG    +2                         
012730,000115:    4773           14777                           TCF      MULTEXIT                              
012731,000116: 
012732,000117:    4774           40326        PROGLARM           CS       DSPTAB     +11D                       
012733,000118:    4775           76006                           MASK     OCT40400                              
012734,000119:    4776           26326                           ADS      DSPTAB     +11D                       
012735,000120: 
012736,000121:    4777           35676        MULTEXIT           CAF      PRIO37                                
012737,000122:    5000           05523                           TC       NOVAC                                 
012738,000123:    5001     1363                                  EBANK=   FAILREG                               
012739,000124:    5001           02061 16002                     2CADR    LARMLARM                              
012740,000125: 
012741,000126:    5003           56073                           XCH      RUPTREG4                              
012742,000127:    5004           00003                           RELINT                                         
012743,000128:    5005           50000                           INDEX    A                                     
012744,000129:    5006           00001                           TC       1                                     
012745,000130: 
012746,000131:    5007           30001        MULTFAIL           CA       L                                     
012747,000132:    5010           67737                           AD       BIT15                                 
012748,000133:                                                                                                  ##PAGE302
012749,000134:    5011           57365                           XCH      FAILREG    +2                         
012750,000135:    5012           77735                           MASK     POSMAX                                
012751,000136:    5013           55364                           TS       FAILREG    +1                         
012752,000137: 
012753,000138:    5014           14777                           TCF      MULTEXIT                              
012754,000139: 
012755,000140:    6000                                           BLOCK    03                                    
012756,000141:    6000           00004        ABORT              INHINT                                         
012757,000142:    6001           30002                           CA       Q                                     
012758,000143:    6002           55342                           TS       ALMCADR                               
012759,000144: 
012760,000145:    6003           50002        ABORT2             INDEX    Q                                     
012761,000146:    6004           30000                           CAF      0                                     
012762,000147:    6005           04751                           TC       BORTENT                               
012763,000148: 
012764,000149:    6006           40400        OCT40400           OCT      40400                                 
012765,000150:    6007           16007        WHIMPER            TCF      WHIMPER                               

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