Source Code

These source code files have been transcribed or otherwise adapted from digitized images of a hardcopy from the private collection of Don Eyles. The digitization was performed by archive.org, and transcription was performed by a team of volunteers. Note that the page images presented online are of reduced quality, and that the original high-quality images are available at archive.org. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

    473423A YUL SYSTEM FOR BLK2: REVISION 12 of PROGRAM AURORA BY DAP GROUP   NOV 10, 1966
Note that the date is the date of the printout, not the date of the program revision.

014715,000002:                                                                                                  ## Copyright:    Public domain.
014716,000003:                                                                                                  ## Filename:     ALARM_AND_ABORT.agc
014717,000004:                                                                                                  ## Purpose:      Part of the source code for Aurora (revision 12).
014718,000005:                                                                                                  ## Assembler:    yaYUL
014719,000006:                                                                                                  ## Contact:      Ron Burkey <info@sandroid.org>.
014720,000007:                                                                                                  ## Website:      https://www.ibiblio.org/apollo.
014721,000008:                                                                                                  ## Pages:        366-367
014722,000009:                                                                                                  ## Mod history:  2016-09-20 JL   Created.
014723,000010:                                                                                                  ##               2016-10-18 MAS  Transcribed.
014724,000011:                                                                                                  ##               2016-12-08 RSB  Proofed comments with octopus/ProoferComments
014725,000012:                                                                                                  ##                               but no errors found.
014726,000013: 
014727,000014:                                                                                                  ## This source code has been transcribed or otherwise adapted from
014728,000015:                                                                                                  ## digitized images of a hardcopy from the private collection of 
014729,000016:                                                                                                  ## Don Eyles.  The digitization was performed by archive.org.
014730,000017: 
014731,000018:                                                                                                  ## Notations on the hardcopy document read, in part:
014732,000019: 
014733,000020:                                                                                                  ##       473423A YUL SYSTEM FOR BLK2: REVISION 12 of PROGRAM AURORA BY DAP GROUP
014734,000021:                                                                                                  ##       NOV 10, 1966
014735,000022: 
014736,000023:                                                                                                  ##       [Note that this is the date the hardcopy was made, not the
014737,000024:                                                                                                  ##       date of the program revision or the assembly.]
014738,000025: 
014739,000026:                                                                                                  ## The scan images (with suitable reduction in storage size and consequent 
014740,000027:                                                                                                  ## reduction in image quality) are available online at 
014741,000028:                                                                                                  ##       https://www.ibiblio.org/apollo.  
014742,000029:                                                                                                  ## The original high-quality digital images are available at archive.org:
014743,000030:                                                                                                  ##       https://archive.org/details/aurora00dapg
014744,000031: 

Page 366

014746,000033:                                                                                                  #           THE FOLLOWING SUBROUTINE MAY BE CALLED TO DISPLAY A NON-ABORTIVE ALARM CONDITION. IT MAY BE CALLED
014747,000034:                                                                                                  #  EITHER IN INTERRUPT OR UNDER EXECUTIVE CONTROL.
014748,000035: 
014749,000036:                                                                                                  #           CALLING SEQUENCE IS AS FOLLOWS:
014750,000037: 
014751,000038:                                                                                                  #           TC     ALARM
014752,000039:                                                                                                  #           OCT    AAANN           ALARM NO. NN IN GENERAL AREA AAA.
014753,000040:                                                                                                  #                                  (RETURNS HERE)
014754,000041: 
014755,000042:    5413                                           SETLOC   ENDPINBF                              
014756,000043:    5413     1363                                  EBANK=   FAILREG                               
014757,000044: 
014758,000045:    5413           00004        ALARM              INHINT                                         
014759,000046:    5414           56002                           XCH      Q                                     
014760,000047:    5415           54077                           TS       RUPTREG4                              
014761,000048: 
014762,000049:    5416           11363                           CCS      FAILREG                               #  SEE IF ONE FAILURE HAS OCCURRED SINCE
014763,000050:                                                                                                  #   THE LAST ERROR RESET.
014764,000051:    5417           05425                           TC       MULTFAIL                              #  YES - INDICATE MULTIPLE FAILURES.
014765,000052:    5420           05430                           TC       NEWALARM                              #  FIRST SINCE RESET.
014766,000053: 
014767,000054:    5421           30077        MULTEXIT           CA       RUPTREG4                              #  FREE RUPTREG4 BEFORE RELINT.
014768,000055:    5422           00003                           RELINT                                         
014769,000056:    5423           50000                           INDEX    A                                     
014770,000057:    5424           00001                           TC       1                                     #  RETURN TO CALLER.
014771,000058: 
014772,000059:    5425           66042        MULTFAIL           AD       OCT40001                              #  BIT 15 = 1 INDICATES MULTIPLE FAILURES.
014773,000060:    5426           55363                           TS       FAILREG                               
014774,000061:    5427           05421                           TC       MULTEXIT                              
014775,000062: 
014776,000063:    5430           05440        NEWALARM           TC       PROGLARM                              #  TURN ON THE PROGRAM ALARM LIGHT.
014777,000064: 
014778,000065:    5431           34535                           CAF      PRIO37                                
014779,000066:    5432           04363                           TC       NOVAC                                 
014780,000067:    5433           02773 02002                     2CADR    DOALARM                               #  CALL (SEPARATE) JOB FOR DISPLAY.
014781,000068: 
014782,000069:    5435           50077                           INDEX    RUPTREG4                              
014783,000070:    5436           30000                           CAF      0                                     
014784,000071:    5437           05426                           TC       MULTFAIL   +1                         
014785,000072: 

The "OUT0" register mentioned below was the Block 1 method of talking to the DSKY. The comment had not yet been updated for Block 2.

014788,000075:    5440           45445        PROGLARM           CS       OCT40400                              #  TURN ON PROGRAM ALARM LIGHT VIA OUT0.
014789,000076:    5441           70322                           MASK     DSPTAB     +11D                       
014790,000077:    5442           65445                           AD       OCT40400                              
014791,000078:    5443           54322                           TS       DSPTAB     +11D                       
014792,000079:    5444           00002                           TC       Q                                     
014793,000080: 
014794,000081:    5445           40400        OCT40400           OCT      40400                                 
014795,000082: 

Page 367

014797,000084:                                                                                                  #           THE FOLLOWING ROUTINE IS CALLED TO INITIATE AN ABORT. FAILREG IS SET (ACCORDING TO THE MULTIPLE
014798,000085:                                                                                                  #  FAILURES CONVENTION) AND A RE-START IS INITIATED BY TC-SELF. THIS IS CALLED ONLY UNDER RARE CIRCUMSTANCES.
014799,000086: 
014800,000087:    5446           00004        ABORT              INHINT                                         #  MAY BE CALLED IN INTERRUPT OR UNDER EXEC
014801,000088:    5447           50002                           INDEX    Q                                     #  PICK UP FAILURE CODE.
014802,000089:    5450           30000                           CAF      0                                     
014803,000090:    5451           54065                           TS       ITEMP1                                
014804,000091: 
014805,000092:    5452           11363                           CCS      FAILREG                               #  SEE IF THIS IS A MULTIPLE FAILURE.
014806,000093:    5453           05456                           TC       SETMULTF                              #  SET BIT 15 TO INDICATE YES.
014807,000094:    5454           05460                           TC       NEWABORT                              #  FIRST FAILURE.
014808,000095: 
014809,000096:    5455           05455        WHIMPER            TC       WHIMPER                               #  NOT WITH A BANG...
014810,000097: 
014811,000098:    5456           66042        SETMULTF           AD       OCT40001                              #  RESTORE AND SET BIT 15.
014812,000099:    5457           05462                           TC       +3                                    
014813,000100: 
014814,000101:    5460           05440        NEWABORT           TC       PROGLARM                              #  FIRST FAILURE - TURN ON ALARM LIGHT.
014815,000102:    5461           56065                           XCH      ITEMP1                                
014816,000103:    5462           55363                 +3        TS       FAILREG                               
014817,000104:    5463           05455                           TC       WHIMPER                               #  UNIVERSAL ABORT LOCATION.
014818,000105: 
014819,000106:    5464           56002        CCSHOLE            XCH      Q                                     
014820,000107:    5465           55364                           TS       SFAIL                                 
014821,000108: 
014822,000109:    5466           05446                           TC       ABORT                                 
014823,000110:    5467           01103                           OCT      1103                                  
014824,000111: 
014825,000112:    5470                        ENDFAILF           EQUALS                                         
014826,000113: 
014827,000114:                                                                                                  #           JOB WHICH CALLS NVSUB FOR ALARM DISPLAY.
014828,000115: 
014829,000116: 01,2773                                           SETLOC   ENDWAITS                              
014830,000117: 
014831,000118: 01,2773           05317        DOALARM            TC       GRABWAIT                              #  DISPLAY FAILREG.
014832,000119: 01,2774           32777                           CAF      FAILDISP                              
014833,000120: 01,2775           05332                           TC       NVSBWAIT                              
014834,000121: 
014835,000122: 01,2776           04437                           TC       EJFREE                                #  FREE DISPLAY AND END JOB.
014836,000123: 
014837,000124: 01,2777           00531        FAILDISP           OCT      00531                                 
014838,000125: 
014839,000126: 01,3000                        ENDFAILS           EQUALS                                         

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