Source Code
|
These source-code files were transcribed from scans made from Don Eyles's personal
copy of BURST120 (SUNBURST 120). They were scanned at archive.org's Boston
facility, and the scanning was sponsored by Mike Stewart. The code was transcribed
from these scans by a team of volunteers who are referenced in the program
comments. Comments from the original source code are in ALL-CAPS, whereas
comments added later in transcription are in Mixed-Case. In some cases, where
similar code blocks exist in previously-transcribed AGC programs (primarily
Luminary 99, from Apollo 11) those code blocks were used as a starting point and
then corrected to agree with the BURST120 scans. The full scans are available
at the Virtual AGC
project's collection at archive.org, while more-convenient reduced-size (but reduced-quality)
images are available at
the main Virtual AGC website. Report any errors noted by creating an
issue report at the Virtual AGC
project's GitHub repository. Notations on the program listing read, in part:YUL SYSTEM FOR AGC: REVISION 0 OF PROGRAM BURST120 BY NASA 2021106-031 DEC 7, 1967 THIS LISTING IS A COPY OF A VERSION OF THE PROGRAM INTENDED FOR USE IN THE ON-BOARD PRIMARY GUIDANCE COMPUTER IN THE UNMANNED FLIGHT OF APOLLO LUNAR MODULE 1 --- THE AS206 MISSION.Note that the date is the date of the printout, not the date of the program revision. |
037248,000002: ## Copyright: Public domain.
037249,000003: ## Filename: DUMMY_206_INITIALIZATION.agc
037250,000004: ## Purpose: A module for revision 0 of BURST120 (Sunburst). It
037251,000005: ## is part of the source code for the Lunar Module's
037252,000006: ## (LM) Apollo Guidance Computer (AGC) for Apollo 5.
037253,000007: ## Assembler: yaYUL
037254,000008: ## Contact: Ron Burkey <info@sandroid.org>.
037255,000009: ## Website: www.ibiblio.org/apollo/index.html
037256,000010: ## Mod history: 2016-09-30 RSB Created draft version.
037257,000011: ## 2016-10-30 RSB Finished transcription.
037258,000012: ## 2016-12-06 RSB Proofed comments with octopus/ProoferComments,
037259,000013: ## changes were made.
037260,000014:
|
|
Page 869 |
037262,000016: # PROGRAM NAME - BEGIN206
037263,000017: # MOD. NO. 3
037264,000018: # MOD BY - D. LICKLY AND J. SAMPSON
037265,000019: # DATE - NOV. 22, 1966
037266,000020: # LOG SECTION - DUMMY 206 INITIALIZATION
037267,000021: # ASSEMBLY - SUNBURST REVISION 36
037268,000022:
037269,000023: # FUNCTIONAL DESCRIPTION - START UP TO TWO DELAYED JOBS OR TASKS AFTER SLAP1 FOR SIMULATION PURPOSES.
037270,000024:
037271,000025: # FIXED INITIALIZATION REQUIRED - PATCH STARTDT1 AND STARTDT2 TO REPRESENT THE TIME2,TIME1 VALUE AT THE TIME AT
037272,000026: # WHICH THE JOBS OR TASKS ARE TO BEGIN
037273,000027: # PATCH CADR1 AND CADR2 IF SOME OTHER TASKS THAN TASK1 AND TASK2 ARE TO BE USED
037274,000028: # PATCH CADR3 AND CADR4 TO THE 2CADR OF THE JOBS TO BE STARTED
037275,000029: # PATCH 206BEGIN TO TC ENDOFJOB IF ONLY ONLY ONE TASK OR JOB IS TO BE STARTED
037276,000030: # PATCH TASK1 AND TASK2 WITH DIFFERENT PRIORITIES IF DESIRED
037277,000031: # SUBROUTINES CALLED - FINDVAC, WAITLIST
037278,000032:
037279,000033: # NORMAL EXIT MODES - ENDOFJOB, TASKOVER
037280,000034:
037281,000035: # ALARM OR ABORT EXIT MODES - NONE
037282,000036:
037283,000037: # OUTPUT - 2 WAITLIST OR FINDVAC CALLS FOR THE 2CADRS PATCHED IN
037284,000038:
037285,000039: # ERASABLE INITIALIZATION REQUIRED - NONE
037286,000040:
037287,000041: # DEBRIS - ITEMP1, CENTRALS, ERASABLES IN SUBROUTINES CALLED
037288,000042:
037289,000043: # NOTES - SINCE ONLY THE LOW ORDER PART OF STARTDT1 AND STARTDT2 ARE USED OT COMPUTE THE DELTAT FOR WAITLIST, THE
037290,000044: # REQUIRED TASKS AND JOBS WILL BE CALLED WITHIN 163.84 SECONDS
037291,000045:
037292,000046:
037293,000047: 35,3546 BANK 35
037294,000048:
037295,000049: 35,3546 00004 BEGIN206 INHINT
037296,000050:
037297,000051: 35,3547 40025 CS TIME1 # PATCH SLAP1 TO COME HERE TO START UP TWO
037298,000052: 35,3550 63573 AD STARTDT1 +1 # DELAYED TASKS OR JOBS FOR SIMULATIONS
037299,000053: 35,3551 67746 AD BIT14
037300,000054: 35,3552 67746 AD BIT14
037301,000055: 35,3553 56061 XCH ITEMP1
037302,000056:
037303,000057: 35,3554 30061 CA ITEMP1
037304,000058: 35,3555 05663 TC WAITLIST
037305,000059: 35,3556 0061 EBANK= ITEMP1
037306,000060: 35,3556 03576 72060 CADR1 2CADR TASK1 # MAY BE PATCHED FOR ANOTHER TASK
037307,000061:
037308,000062: 35,3560 40025 206BEGIN CS TIME1 # PATCH TO TC ENDOFJOB TO START 1 TASK
037309,000063: 35,3561 63575 AD STARTDT2 +1
037310,000064: 35,3562 67746 AD BIT14
|
|
Page 870 |
037312,000066: 35,3563 67746 AD BIT14
037313,000067: 35,3564 56061 XCH ITEMP1
037314,000068:
037315,000069: 35,3565 30061 CA ITEMP1
037316,000070: 35,3566 05663 TC WAITLIST
037317,000071: 35,3567 0061 EBANK= ITEMP1
037318,000072: 35,3567 03603 72060 CADR2 2CADR TASK2 # COULD BE PATCHED
037319,000073:
037320,000074: 35,3571 05567 TC ENDOFJOB
037321,000075:
037322,000076:
037323,000077: 35,3572 00000 01130 STARTDT1 2DEC 600 B-28 # PATCH
037324,000078:
037325,000079: 35,3574 00000 00310 STARTDT2 2DEC 200 B-28 # PATCH
037326,000080:
037327,000081: 35,3576 35641 TASK1 CAF PRIO15 # ..OR YOUR OWN PRIORITY..
037328,000082: 35,3577 05516 TC FINDVAC
037329,000083: 35,3600 77777 CADR3 OCT 77777 # BETTER PATCH A 2CADR HERE
037330,000084: 35,3601 77777 OCT 77777
037331,000085: 35,3602 05727 TC TASKOVER
037332,000086:
037333,000087: 35,3603 37746 TASK2 CAF PRIO20
037334,000088: 35,3604 05516 TC FINDVAC
037335,000089: 35,3605 77777 CADR4 OCT 77777 # ..HERE ALSO..
037336,000090: 35,3606 77777 OCT 77777
037337,000091: 35,3607 05727 TC TASKOVER
037338,000092:
End of include-file DUMMY_206_INITIALIZATION.agc. Parent file is MAIN.agc