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. |
037242,000002: ## Copyright: Public domain.
037243,000003: ## Filename: DUMMY_206_INITIALIZATION.agc
037244,000004: ## Purpose: A module for revision 0 of BURST120 (Sunburst). It
037245,000005: ## is part of the source code for the Lunar Module's
037246,000006: ## (LM) Apollo Guidance Computer (AGC) for Apollo 5.
037247,000007: ## Assembler: yaYUL
037248,000008: ## Contact: Ron Burkey <info@sandroid.org>.
037249,000009: ## Website: www.ibiblio.org/apollo/index.html
037250,000010: ## Mod history: 2016-09-30 RSB Created draft version.
037251,000011: ## 2016-10-30 RSB Finished transcription.
037252,000012: ## 2016-12-06 RSB Proofed comments with octopus/ProoferComments,
037253,000013: ## changes were made.
037254,000014:
![]() |
Page 869 |
037256,000016: # PROGRAM NAME - BEGIN206
037257,000017: # MOD. NO. 3
037258,000018: # MOD BY - D. LICKLY AND J. SAMPSON
037259,000019: # DATE - NOV. 22, 1966
037260,000020: # LOG SECTION - DUMMY 206 INITIALIZATION
037261,000021: # ASSEMBLY - SUNBURST REVISION 36
037262,000022:
037263,000023: # FUNCTIONAL DESCRIPTION - START UP TO TWO DELAYED JOBS OR TASKS AFTER SLAP1 FOR SIMULATION PURPOSES.
037264,000024:
037265,000025: # FIXED INITIALIZATION REQUIRED - PATCH STARTDT1 AND STARTDT2 TO REPRESENT THE TIME2,TIME1 VALUE AT THE TIME AT
037266,000026: # WHICH THE JOBS OR TASKS ARE TO BEGIN
037267,000027: # PATCH CADR1 AND CADR2 IF SOME OTHER TASKS THAN TASK1 AND TASK2 ARE TO BE USED
037268,000028: # PATCH CADR3 AND CADR4 TO THE 2CADR OF THE JOBS TO BE STARTED
037269,000029: # PATCH 206BEGIN TO TC ENDOFJOB IF ONLY ONLY ONE TASK OR JOB IS TO BE STARTED
037270,000030: # PATCH TASK1 AND TASK2 WITH DIFFERENT PRIORITIES IF DESIRED
037271,000031: # SUBROUTINES CALLED - FINDVAC, WAITLIST
037272,000032:
037273,000033: # NORMAL EXIT MODES - ENDOFJOB, TASKOVER
037274,000034:
037275,000035: # ALARM OR ABORT EXIT MODES - NONE
037276,000036:
037277,000037: # OUTPUT - 2 WAITLIST OR FINDVAC CALLS FOR THE 2CADRS PATCHED IN
037278,000038:
037279,000039: # ERASABLE INITIALIZATION REQUIRED - NONE
037280,000040:
037281,000041: # DEBRIS - ITEMP1, CENTRALS, ERASABLES IN SUBROUTINES CALLED
037282,000042:
037283,000043: # NOTES - SINCE ONLY THE LOW ORDER PART OF STARTDT1 AND STARTDT2 ARE USED OT COMPUTE THE DELTAT FOR WAITLIST, THE
037284,000044: # REQUIRED TASKS AND JOBS WILL BE CALLED WITHIN 163.84 SECONDS
037285,000045:
037286,000046:
037287,000047: 35,3546 BANK 35
037288,000048:
037289,000049: 35,3546 00004 BEGIN206 INHINT
037290,000050:
037291,000051: 35,3547 40025 CS TIME1 # PATCH SLAP1 TO COME HERE TO START UP TWO
037292,000052: 35,3550 63573 AD STARTDT1 +1 # DELAYED TASKS OR JOBS FOR SIMULATIONS
037293,000053: 35,3551 67746 AD BIT14
037294,000054: 35,3552 67746 AD BIT14
037295,000055: 35,3553 56061 XCH ITEMP1
037296,000056:
037297,000057: 35,3554 30061 CA ITEMP1
037298,000058: 35,3555 05663 TC WAITLIST
037299,000059: 35,3556 0061 EBANK= ITEMP1
037300,000060: 35,3556 03576 72060 CADR1 2CADR TASK1 # MAY BE PATCHED FOR ANOTHER TASK
037301,000061:
037302,000062: 35,3560 40025 206BEGIN CS TIME1 # PATCH TO TC ENDOFJOB TO START 1 TASK
037303,000063: 35,3561 63575 AD STARTDT2 +1
037304,000064: 35,3562 67746 AD BIT14
![]() |
Page 870 |
037306,000066: 35,3563 67746 AD BIT14
037307,000067: 35,3564 56061 XCH ITEMP1
037308,000068:
037309,000069: 35,3565 30061 CA ITEMP1
037310,000070: 35,3566 05663 TC WAITLIST
037311,000071: 35,3567 0061 EBANK= ITEMP1
037312,000072: 35,3567 03603 72060 CADR2 2CADR TASK2 # COULD BE PATCHED
037313,000073:
037314,000074: 35,3571 05567 TC ENDOFJOB
037315,000075:
037316,000076:
037317,000077: 35,3572 00000 01130 STARTDT1 2DEC 600 B-28 # PATCH
037318,000078:
037319,000079: 35,3574 00000 00310 STARTDT2 2DEC 200 B-28 # PATCH
037320,000080:
037321,000081: 35,3576 35641 TASK1 CAF PRIO15 # ..OR YOUR OWN PRIORITY..
037322,000082: 35,3577 05516 TC FINDVAC
037323,000083: 35,3600 77777 CADR3 OCT 77777 # BETTER PATCH A 2CADR HERE
037324,000084: 35,3601 77777 OCT 77777
037325,000085: 35,3602 05727 TC TASKOVER
037326,000086:
037327,000087: 35,3603 37746 TASK2 CAF PRIO20
037328,000088: 35,3604 05516 TC FINDVAC
037329,000089: 35,3605 77777 CADR4 OCT 77777 # ..HERE ALSO..
037330,000090: 35,3606 77777 OCT 77777
037331,000091: 35,3607 05727 TC TASKOVER
037332,000092:
End of include-file DUMMY_206_INITIALIZATION.agc. Parent file is MAIN.agc