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.
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.
|
014720,000002: ## Copyright: Public domain.
014721,000003: ## Filename: ALARM_AND_ABORT.agc
014722,000004: ## Purpose: Part of the source code for Aurora (revision 12).
014723,000005: ## Assembler: yaYUL
014724,000006: ## Contact: Ron Burkey <info@sandroid.org>.
014725,000007: ## Website: https://www.ibiblio.org/apollo.
014726,000008: ## Pages: 366-367
014727,000009: ## Mod history: 2016-09-20 JL Created.
014728,000010: ## 2016-10-18 MAS Transcribed.
014729,000011: ## 2016-12-08 RSB Proofed comments with octopus/ProoferComments
014730,000012: ## but no errors found.
014731,000013:
014732,000014: ## This source code has been transcribed or otherwise adapted from
014733,000015: ## digitized images of a hardcopy from the private collection of
014734,000016: ## Don Eyles. The digitization was performed by archive.org.
014735,000017:
014736,000018: ## Notations on the hardcopy document read, in part:
014737,000019:
014738,000020: ## 473423A YUL SYSTEM FOR BLK2: REVISION 12 of PROGRAM AURORA BY DAP GROUP
014739,000021: ## NOV 10, 1966
014740,000022:
014741,000023: ## [Note that this is the date the hardcopy was made, not the
014742,000024: ## date of the program revision or the assembly.]
014743,000025:
014744,000026: ## The scan images (with suitable reduction in storage size and consequent
014745,000027: ## reduction in image quality) are available online at
014746,000028: ## https://www.ibiblio.org/apollo.
014747,000029: ## The original high-quality digital images are available at archive.org:
014748,000030: ## https://archive.org/details/aurora00dapg
014749,000031:
|
|
Page 366 |
014751,000033: # THE FOLLOWING SUBROUTINE MAY BE CALLED TO DISPLAY A NON-ABORTIVE ALARM CONDITION. IT MAY BE CALLED
014752,000034: # EITHER IN INTERRUPT OR UNDER EXECUTIVE CONTROL.
014753,000035:
014754,000036: # CALLING SEQUENCE IS AS FOLLOWS:
014755,000037:
014756,000038: # TC ALARM
014757,000039: # OCT AAANN ALARM NO. NN IN GENERAL AREA AAA.
014758,000040: # (RETURNS HERE)
014759,000041:
014760,000042: 5413 SETLOC ENDPINBF
014761,000043: 5413 1363 EBANK= FAILREG
014762,000044:
014763,000045: 5413 00004 ALARM INHINT
014764,000046: 5414 56002 XCH Q
014765,000047: 5415 54077 TS RUPTREG4
014766,000048:
014767,000049: 5416 11363 CCS FAILREG # SEE IF ONE FAILURE HAS OCCURRED SINCE
014768,000050: # THE LAST ERROR RESET.
014769,000051: 5417 05425 TC MULTFAIL # YES - INDICATE MULTIPLE FAILURES.
014770,000052: 5420 05430 TC NEWALARM # FIRST SINCE RESET.
014771,000053:
014772,000054: 5421 30077 MULTEXIT CA RUPTREG4 # FREE RUPTREG4 BEFORE RELINT.
014773,000055: 5422 00003 RELINT
014774,000056: 5423 50000 INDEX A
014775,000057: 5424 00001 TC 1 # RETURN TO CALLER.
014776,000058:
014777,000059: 5425 66042 MULTFAIL AD OCT40001 # BIT 15 = 1 INDICATES MULTIPLE FAILURES.
014778,000060: 5426 55363 TS FAILREG
014779,000061: 5427 05421 TC MULTEXIT
014780,000062:
014781,000063: 5430 05440 NEWALARM TC PROGLARM # TURN ON THE PROGRAM ALARM LIGHT.
014782,000064:
014783,000065: 5431 34535 CAF PRIO37
014784,000066: 5432 04363 TC NOVAC
014785,000067: 5433 02773 02002 2CADR DOALARM # CALL (SEPARATE) JOB FOR DISPLAY.
014786,000068:
014787,000069: 5435 50077 INDEX RUPTREG4
014788,000070: 5436 30000 CAF 0
014789,000071: 5437 05426 TC MULTFAIL +1
014790,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. |
014793,000075: 5440 45445 PROGLARM CS OCT40400 # TURN ON PROGRAM ALARM LIGHT VIA OUT0.
014794,000076: 5441 70322 MASK DSPTAB +11D
014795,000077: 5442 65445 AD OCT40400
014796,000078: 5443 54322 TS DSPTAB +11D
014797,000079: 5444 00002 TC Q
014798,000080:
014799,000081: 5445 40400 OCT40400 OCT 40400
014800,000082:
|
|
Page 367 |
014802,000084: # THE FOLLOWING ROUTINE IS CALLED TO INITIATE AN ABORT. FAILREG IS SET (ACCORDING TO THE MULTIPLE
014803,000085: # FAILURES CONVENTION) AND A RE-START IS INITIATED BY TC-SELF. THIS IS CALLED ONLY UNDER RARE CIRCUMSTANCES.
014804,000086:
014805,000087: 5446 00004 ABORT INHINT # MAY BE CALLED IN INTERRUPT OR UNDER EXEC
014806,000088: 5447 50002 INDEX Q # PICK UP FAILURE CODE.
014807,000089: 5450 30000 CAF 0
014808,000090: 5451 54065 TS ITEMP1
014809,000091:
014810,000092: 5452 11363 CCS FAILREG # SEE IF THIS IS A MULTIPLE FAILURE.
014811,000093: 5453 05456 TC SETMULTF # SET BIT 15 TO INDICATE YES.
014812,000094: 5454 05460 TC NEWABORT # FIRST FAILURE.
014813,000095:
014814,000096: 5455 05455 WHIMPER TC WHIMPER # NOT WITH A BANG...
014815,000097:
014816,000098: 5456 66042 SETMULTF AD OCT40001 # RESTORE AND SET BIT 15.
014817,000099: 5457 05462 TC +3
014818,000100:
014819,000101: 5460 05440 NEWABORT TC PROGLARM # FIRST FAILURE - TURN ON ALARM LIGHT.
014820,000102: 5461 56065 XCH ITEMP1
014821,000103: 5462 55363 +3 TS FAILREG
014822,000104: 5463 05455 TC WHIMPER # UNIVERSAL ABORT LOCATION.
014823,000105:
014824,000106: 5464 56002 CCSHOLE XCH Q
014825,000107: 5465 55364 TS SFAIL
014826,000108:
014827,000109: 5466 05446 TC ABORT
014828,000110: 5467 01103 OCT 1103
014829,000111:
014830,000112: 5470 ENDFAILF EQUALS
014831,000113:
014832,000114: # JOB WHICH CALLS NVSUB FOR ALARM DISPLAY.
014833,000115:
014834,000116: 01,2773 SETLOC ENDWAITS
014835,000117:
014836,000118: 01,2773 05317 DOALARM TC GRABWAIT # DISPLAY FAILREG.
014837,000119: 01,2774 32777 CAF FAILDISP
014838,000120: 01,2775 05332 TC NVSBWAIT
014839,000121:
014840,000122: 01,2776 04437 TC EJFREE # FREE DISPLAY AND END JOB.
014841,000123:
014842,000124: 01,2777 00531 FAILDISP OCT 00531
014843,000125:
014844,000126: 01,3000 ENDFAILS EQUALS
End of include-file ALARM_AND_ABORT.agc. Parent file is MAIN.agc