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.
|
012620,000002: ## Copyright: Public domain.
012621,000003: ## Filename: ALARM_AND_ABORT.agc
012622,000004: ## Purpose: A section of Sunburst revision 37, or Shepatin revision 0.
012623,000005: ## It is part of an early development version of the software
012624,000006: ## for Apollo Guidance Computer (AGC) on the unmanned Lunar
012625,000007: ## Module (LM) flight Apollo 5. Sunburst 37 was the program
012626,000008: ## upon which Don Eyles's offline development program Shepatin
012627,000009: ## was based; the listing herein transcribed was actually for
012628,000010: ## the equivalent revision 0 of Shepatin.
012629,000011: ## This file is intended to be a faithful transcription, except
012630,000012: ## that the code format has been changed to conform to the
012631,000013: ## requirements of the yaYUL assembler rather than the
012632,000014: ## original YUL assembler.
012633,000015: ## Reference: pp. 300-302
012634,000016: ## Assembler: yaYUL
012635,000017: ## Contact: Ron Burkey <info@sandroid.org>.
012636,000018: ## Website: www.ibiblio.org/apollo/index.html
012637,000019: ## Mod history: 2017-05-24 MAS Created from Sunburst 120.
012638,000020: ## 2017-06-01 TVB Transcribed
012639,000021: ## 2017-06-13 HG Fix operator TCF -> TC
012640,000022: ## Remove tabs
012641,000023: ## 2017-06-22 RSB Proofed comment text with
012642,000024: ## octopus/ProoferComments.
012643,000025: ## 2021-05-30 ABS Fixed a page marker comment.
012644,000026:
|
|
Page 300 |
012646,000028:
012647,000029: 4725 BLOCK 02
012648,000030: 4725 4725 BZFHOLE EQUALS CCSHOLE
012649,000031:
012650,000032: 4725 00004 CCSHOLE INHINT
012651,000033: 4726 30002 CA Q
012652,000034: 4727 55342 TS ALMCADR
012653,000035:
012654,000036: 4730 06003 TC ABORT2
012655,000037: 4731 01103 OCT 1103
012656,000038:
012657,000039: 4732 00004 CURTAINS INHINT # SAVE 2CADR OF USER FOR CURTAINS DISPLAY
012658,000040: 4733 30002 CA Q # ***MAY CHANGE FOR NEW ALARM ROUTINE*****
012659,000041: 4734 55342 TS ALMCADR
012660,000042:
012661,000043: 4735 04747 TC ALARM2
012662,000044: 4736 00310 OCT 00310
012663,000045:
012664,000046: 4737 00004 JETENTRY INHINT
012665,000047: 4740 34743 CAF CURTBB
012666,000048: 4741 56006 XCH BBANK
012667,000049: 4742 12000 TCF FORGETIT
012668,000050:
012669,000051: 4743 E3,1400 EBANK= LST1
012670,000052: 4743 16003 CURTBB BBCON FORGETIT
012671,000053: 07,2061 BANK 07
012672,000054:
012673,000055: 07,2061 04621 LARMLARM TC GRABDSP
012674,000056: 07,2062 05605 TC ENDOFJOB
012675,000057:
012676,000058: 07,2063 04633 DOALARM TC GRABWAIT # DISPLAY FAILREG.
012677,000059: 07,2064 32067 CAF FAILDISP
012678,000060: 07,2065 04646 TC NVSBWAIT
012679,000061:
012680,000062: 07,2066 05604 TC EJFREE # FREE DISPLAY AND END JOB.
012681,000063:
012682,000064: 07,2067 00550 FAILDISP OCT 00550
012683,000065:
012684,000066: 07,2070 04744 JETABORT TC ALARM
012685,000067: 07,2071 00312 OCT 00312
012686,000068:
012687,000069: 07,2072 14737 TCF JETENTRY
012688,000070:
012689,000071: # ALARM IS CALLED EITHER IN INTERRUPT OR UNDER EXECUTIVE CONTROL
012690,000072:
012691,000073: # CALLING SEQUENCE,
012692,000074:
012693,000075: # TC ALARM
012694,000076: # OCT AAANN ALARM NO. NN IN GENERAL AREA AAA.
012695,000077:
012696,000078: # (RETURNS HERE)
012697,000079:
|
|
Page 301 |
012699,000081:
012700,000082: # *** FAILREG AND VN DECISIONS STILL TO BE MADE***
012701,000083: 4744 BLOCK 02
012702,000084: 4744 00004 ALARM INHINT
012703,000085:
012704,000086: 4745 30002 CA Q
012705,000087: 4746 55342 TS ALMCADR
012706,000088:
012707,000089: 4747 50002 ALARM2 INDEX Q
012708,000090:
012709,000091: 4750 30000 CA 0
012710,000092: 4751 54001 BORTENT TS L # STORE RETURN -1 IN L
012711,000093:
012712,000094: 4752 30006 CA BBANK
012713,000095: 4753 55343 TS ALMCADR +1
012714,000096:
012715,000097: 4754 30002 CA Q
012716,000098: 4755 54073 TS RUPTREG4
012717,000099:
012718,000100: 4756 11363 CHKFAIL1 CCS FAILREG # IS ANYTHING IN FAILREG
012719,000101: 4757 14762 TCF CHKFAIL2 # YES TRY NEXT REG
012720,000102: 4760 23363 LXCH FAILREG
012721,000103: 4761 14774 TCF PROGLARM # TURN ALARM LIGHT ON FOR FIRST ALARM
012722,000104:
012723,000105: 4762 11364 CHKFAIL2 CCS FAILREG +1
012724,000106: 4763 14766 TCF FAIL3
012725,000107: 4764 23364 LXCH FAILREG +1
012726,000108: 4765 14777 TCF MULTEXIT
012727,000109:
012728,000110: 4766 31365 FAIL3 CA FAILREG +2
012729,000111: 4767 77735 MASK POSMAX
012730,000112: 4770 10000 CCS A
012731,000113: 4771 15007 TCF MULTFAIL
012732,000114:
012733,000115: 4772 23365 LXCH FAILREG +2
012734,000116: 4773 14777 TCF MULTEXIT
012735,000117:
012736,000118: 4774 40326 PROGLARM CS DSPTAB +11D
012737,000119: 4775 76006 MASK OCT40400
012738,000120: 4776 26326 ADS DSPTAB +11D
012739,000121:
012740,000122: 4777 35676 MULTEXIT CAF PRIO37
012741,000123: 5000 05523 TC NOVAC
012742,000124: 5001 1363 EBANK= FAILREG
012743,000125: 5001 02061 16002 2CADR LARMLARM
012744,000126:
012745,000127: 5003 56073 XCH RUPTREG4
012746,000128: 5004 00003 RELINT
012747,000129: 5005 50000 INDEX A
012748,000130: 5006 00001 TC 1
012749,000131:
012750,000132: 5007 30001 MULTFAIL CA L
012751,000133: 5010 67737 AD BIT15
|
|
Page 302 |
012753,000135: 5011 57365 XCH FAILREG +2
012754,000136: 5012 77735 MASK POSMAX
012755,000137: 5013 55364 TS FAILREG +1
012756,000138:
012757,000139: 5014 14777 TCF MULTEXIT
012758,000140:
012759,000141: 6000 BLOCK 03
012760,000142: 6000 00004 ABORT INHINT
012761,000143: 6001 30002 CA Q
012762,000144: 6002 55342 TS ALMCADR
012763,000145:
012764,000146: 6003 50002 ABORT2 INDEX Q
012765,000147: 6004 30000 CAF 0
012766,000148: 6005 04751 TC BORTENT
012767,000149:
012768,000150: 6006 40400 OCT40400 OCT 40400
012769,000151: 6007 16007 WHIMPER TCF WHIMPER
End of include-file ALARM_AND_ABORT.agc. Parent file is MAIN.agc