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, 1966Note 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