Notations on the program listing read, in part:
YUL SYSTEM FOR BLK2: REVISION 0 OF PROGRAM RETRED44 BY NASA 2021100 JUL 9, 1965Note that the date is the date of the printout, not the date of the program revision.
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 Mike Higgins.
A team of volunteers performed the transcription and proof-reading. Note
that 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 section on archive.org. 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 BLK2: REVISION 0 OF PROGRAM RETRED44 BY NASA 2021100 JUL 9, 1965Note that the date is the date of the printout, not the date of the program revision. |
000563,000002: ## Copyright: Public domain.
000564,000003: ## Filename: INTERRUPT_LEAD_INS.agc
000565,000004: ## Purpose: Part of the source code for Retread 44 (revision 0). It was
000566,000005: ## the very first program for the Block II AGC, created as an
000567,000006: ## extensive rewrite of the Block I program Sunrise.
000568,000007: ## This file is intended to be a faithful transcription, except
000569,000008: ## that the code format has been changed to conform to the
000570,000009: ## requirements of the yaYUL assembler rather than the
000571,000010: ## original YUL assembler.
000572,000011: ## Reference: pp. 15-16
000573,000012: ## Assembler: yaYUL
000574,000013: ## Contact: Ron Burkey <info@sandroid.org>.
000575,000014: ## Website: www.ibiblio.org/apollo/index.html
000576,000015: ## Mod history: 2016-12-13 MAS Created from Aurora 12 version.
000577,000016: ## 2016-12-16 MAS Transcribed.
000578,000017: ## 2016-12-26 RSB Proofed comment text using octopus/ProoferComments,
000579,000018: ## but no errors found.
000580,000019:
|
|
Page 15 The log section name, INTERRUPT LEAD INS, is circled in red. |
000583,000022:
000584,000023: 4000 SETLOC 4000
000585,000024:
000586,000025: 4000 00004 INHINT # GO
000587,000026: 4001 34054 CAF GOBB
000588,000027: 4002 56006 XCH BBANK
000589,000028: 4003 12721 TCF GOPROG
000590,000029:
000591,000030: 4004 52011 DXCH ARUPT # T6RUPT
000592,000031: 4005 34055 CAF T6RPTBB
000593,000032: 4006 56006 XCH BBANK
000594,000033: 4007 14330 TCF RESUME +3 # ***FIX LATER***
000595,000034:
000596,000035: 4010 52011 DXCH ARUPT # T5RUPT
000597,000036: 4011 34056 CAF T5RPTBB
000598,000037: 4012 56006 XCH BBANK
000599,000038: 4013 14330 TCF RESUME +3 # ***FIX LATER***
000600,000039:
000601,000040: 4014 52011 DXCH ARUPT # T3RUPT
000602,000041: 4015 34057 CAF T3RPTBB
000603,000042: 4016 56006 XCH BBANK
000604,000043: 4017 14272 TCF T3RUPT
000605,000044:
000606,000045: 4020 52011 DXCH ARUPT # T4RUPT
000607,000046: 4021 34060 CAF T4RPTBB
000608,000047: 4022 56006 XCH BBANK
000609,000048: 4023 13052 TCF T4RUPT
000610,000049:
000611,000050: 4024 52011 DXCH ARUPT # KEYRUPT1
000612,000051: 4025 34061 CAF KEYRPTBB
000613,000052: 4026 56006 XCH BBANK
000614,000053: 4027 13153 TCF KEYRUPT1
000615,000054:
000616,000055: 4030 52011 DXCH ARUPT # KEYRUPT2
000617,000056: 4031 34061 CAF KEYRPTBB
000618,000057: 4032 56006 XCH BBANK
000619,000058: 4033 13175 TCF KEYRUPT2
000620,000059:
000621,000060: 4034 52011 DXCH ARUPT # UPRUPT
000622,000061: 4035 34061 CAF UPRPTBB
000623,000062: 4036 56006 XCH BBANK
000624,000063: 4037 13205 TCF UPRUPT
000625,000064:
000626,000065: 4040 52011 DXCH ARUPT # DOWNRUPT
000627,000066: 4041 34062 CAF DWNRPTBB
000628,000067: 4042 56006 XCH BBANK
000629,000068: 4043 14330 TCF RESUME +3 # ***FIX LATER***
000630,000069:
000631,000070: 4044 50017 RESUME # RADAR RUPT ****FIX LATER******
000632,000071:
000633,000072: 4050 SETLOC 4050
|
|
Page 16 |
000635,000074: 4050 50017 RESUME # HAND CONTROL RUPT ***FIX LATER****
000636,000075:
000637,000076:
000638,000077:
000639,000078: 4054 SETLOC 4054
000640,000079:
000641,000080:
000642,000081: 4054 E3,1400 EBANK= LST1 # RESTART USES E0, E3
000643,000082: 4054 02003 GOBB BBCON GOPROG
000644,000083:
000645,000084: 4055 0025 EBANK= TIME1
000646,000085: 4055 04000 T6RPTBB BBCON RESUME # ***FIX LATER***
000647,000086:
000648,000087: 4056 0025 EBANK= TIME1
000649,000088: 4056 04000 T5RPTBB BBCON RESUME # ***FIX LATER***
000650,000089:
000651,000090: 4057 E3,1400 EBANK= LST1
000652,000091: 4057 04003 T3RPTBB BBCON T3RUPT
000653,000092:
000654,000093: 4060 1020 EBANK= DSRUPTSW
000655,000094: 4060 02002 T4RPTBB BBCON T4RUPT
000656,000095:
000657,000096: 4061 0624 EBANK= KEYTEMP1
000658,000097: 4061 02001 KEYRPTBB BBCON KEYRUPT1
000659,000098:
000660,000099: 4062 4061 UPRPTBB = KEYRPTBB
000661,000100:
000662,000101: 4062 0025 EBANK= TIME1
000663,000102: 4062 04000 DWNRPTBB BBCON RESUME # ***FIX LATER ***
000664,000103:
000665,000104: 4063 ENDINTFF EQUALS
End of include-file INTERRUPT_LEAD_INS.agc. Parent file is MAIN.agc