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 GROUPNote 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