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.

036624,000002:                                                                                                  ## Copyright:   Public domain.
036625,000003:                                                                                                  ## Filename:    DUMMY_206_INITIALIZATION.agc
036626,000004:                                                                                                  ## Purpose:     A section of Sunburst revision 37, or Shepatin revision 0.
036627,000005:                                                                                                  ##              It is part of an early development version of the software
036628,000006:                                                                                                  ##              for Apollo Guidance Computer (AGC) on the unmanned Lunar
036629,000007:                                                                                                  ##              Module (LM) flight Apollo 5. Sunburst 37 was the program
036630,000008:                                                                                                  ##              upon which Don Eyles's offline development program Shepatin
036631,000009:                                                                                                  ##              was based; the listing herein transcribed was actually for
036632,000010:                                                                                                  ##              the equivalent revision 0 of Shepatin.
036633,000011:                                                                                                  ##              This file is intended to be a faithful transcription, except
036634,000012:                                                                                                  ##              that the code format has been changed to conform to the
036635,000013:                                                                                                  ##              requirements of the yaYUL assembler rather than the
036636,000014:                                                                                                  ##              original YUL assembler.
036637,000015:                                                                                                  ## Reference:   pp. 812-813
036638,000016:                                                                                                  ## Assembler:   yaYUL
036639,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
036640,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
036641,000019:                                                                                                  ## Mod history: 2017-05-24 MAS  Created from Sunburst 120.
036642,000020:                                                                                                  ##              2017-06-06 HG   Transcribed
036643,000021:                                                                                                  ##              2017-06-23 RSB  Proofed comment text with
036644,000022:                                                                                                  ##                              octopus/ProoferComments.
036645,000023: 

Page 812

036647,000025:                                                                                                  #  PROGRAM NAME - BEGIN206
036648,000026:                                                                                                  #  MOD. NO. 3
036649,000027: 
036650,000028:                                                                                                  #  MOD BY - D. LICKLY AND J. SAMPSON
036651,000029:                                                                                                  #  DATE - NOV. 22, 1966
036652,000030:                                                                                                  #  LOG SECTION - DUMMY 206 INITIALIZATION
036653,000031:                                                                                                  #  ASSEMBLY - SUNBURST REVISION 36
036654,000032: 
036655,000033:                                                                                                  #  FUNCTIONAL DESCRIPTION - START UP TO TWO DELAYED JOBS OR TASKS AFTER SLAP1 FOR SIMULATION PURPOSES.
036656,000034: 
036657,000035:                                                                                                  #  FIXED INITIALIZATION REQUIRED - PATCH STARTDT1 AND STARTDT2 TO REPRESENT THE TIME2,TIME1 VALUE AT THE TIME AT
036658,000036:                                                                                                  #                                    WHICH THE JOBS OR TASKS ARE TO BEGIN
036659,000037:                                                                                                  #                                  PATCH CADR1 AND CADR2 IF SOME OTHER TASKS THAN TASK1 AND TASK2 ARE TO BE USED
036660,000038:                                                                                                  #                                  PATCH CADR3 AND CADR4 TO THE 2CADR OF THE JOBS TO BE STARTED
036661,000039:                                                                                                  #                                  PATCH 206BEGIN TO TC ENDOFJOB IF ONLY ONLY ONE TASK OR JOB IS TO BE STARTED
036662,000040:                                                                                                  #                                  PATCH TASK1 AND TASK2 WITH DIFFERENT PRIORITIES IF DESIRED
036663,000041:                                                                                                  #  SUBROUTINES CALLED - FINDVAC, WAITLIST
036664,000042: 
036665,000043:                                                                                                  #  NORMAL EXIT MODES - ENDOFJOB, TASKOVER
036666,000044: 
036667,000045:                                                                                                  #  ALARM OR ABORT EXIT MODES - NONE
036668,000046: 
036669,000047:                                                                                                  #  OUTPUT - 2 WAITLIST OR FINDVAC CALLS FOR THE 2CADRS PATCHED IN
036670,000048: 
036671,000049:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED - NONE
036672,000050: 
036673,000051:                                                                                                  #  DEBRIS - ITEMP1, CENTRALS, ERASABLES IN SUBROUTINES CALLED
036674,000052: 
036675,000053:                                                                                                  #  NOTES - SINCE ONLY THE LOW ORDER PART OF STARTDT1 AND STARTDT2 ARE USED OT COMPUTE THE DELTAT FOR WAITLIST, THE
036676,000054:                                                                                                  #    REQUIRED TASKS AND JOBS WILL BE CALLED WITHIN 163.84 SECONDS
036677,000055: 
036678,000056: 
036679,000057: 35,3524                                           BANK     35                                    
036680,000058: 
036681,000059: 35,3524           00004        BEGIN206           INHINT                                         
036682,000060: 
036683,000061: 35,3525           40025                           CS       TIME1                                 #  PATCH SLAP1 TO COME HERE TO START UP TWO
036684,000062: 35,3526           63551                           AD       STARTDT1   +1                         #    DELAYED TASKS OR JOBS FOR SIMULATIONS
036685,000063: 35,3527           67740                           AD       BIT14                                 
036686,000064: 35,3530           67740                           AD       BIT14                                 
036687,000065: 35,3531           56061                           XCH      ITEMP1                                
036688,000066: 
036689,000067: 35,3532           30061                           CA       ITEMP1                                
036690,000068: 35,3533           05701                           TC       WAITLIST                              
036691,000069: 35,3534     0061                                  EBANK=   ITEMP1                                
036692,000070: 35,3534           03554 72060  CADR1              2CADR    TASK1                                 #  MAY BE PATCHED FOR ANOTHER TASK
036693,000071: 
036694,000072: 35,3536           40025        206BEGIN           CS       TIME1                                 #  PATCH TO TC ENDOFJOB TO START 1 TASK
036695,000073: 35,3537           63553                           AD       STARTDT2   +1                         
036696,000074: 35,3540           67740                           AD       BIT14                                 
036697,000075: 

Page 813

036699,000077: 35,3541           67740                           AD       BIT14                                 
036700,000078: 35,3542           56061                           XCH      ITEMP1                                
036701,000079: 
036702,000080: 35,3543           30061                           CA       ITEMP1                                
036703,000081: 35,3544           05701                           TC       WAITLIST                              
036704,000082: 35,3545     0061                                  EBANK=   ITEMP1                                
036705,000083: 35,3545           03561 72060  CADR2              2CADR    TASK2                                 #  COULD BE PATCHED
036706,000084: 
036707,000085: 35,3547           05605                           TC       ENDOFJOB                              
036708,000086: 
036709,000087: 
036710,000088: 35,3550           00000 01130  STARTDT1           2DEC     600        B-28                       #  PATCH
036711,000089: 
036712,000090: 35,3552           00000 00310  STARTDT2           2DEC     200        B-28                       #  PATCH
036713,000091: 
036714,000092: 35,3554           35657        TASK1              CAF      PRIO15                                #  ..OR YOUR OWN PRIORITY..
036715,000093: 35,3555           05534                           TC       FINDVAC                               
036716,000094: 35,3556           77777        CADR3              OCT      77777                                 #  BETTER PATCH A 2CADR HERE
036717,000095: 35,3557           77777                           OCT      77777                                 
036718,000096: 35,3560           05745                           TC       TASKOVER                              
036719,000097: 
036720,000098: 35,3561           37740        TASK2              CAF      PRIO20                                
036721,000099: 35,3562           05534                           TC       FINDVAC                               
036722,000100: 35,3563           77777        CADR4              OCT      77777                                 #  ..HERE ALSO..
036723,000101: 35,3564           77777                           OCT      77777                                 
036724,000102: 35,3565           05745                           TC       TASKOVER                              

End of include-file DUMMY_206_INITIALIZATION.agc.  Parent file is MAIN.agc