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