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.
|
036631,000002: ## Copyright: Public domain.
036632,000003: ## Filename: DUMMY_206_INITIALIZATION.agc
036633,000004: ## Purpose: A section of Sunburst revision 37, or Shepatin revision 0.
036634,000005: ## It is part of an early development version of the software
036635,000006: ## for Apollo Guidance Computer (AGC) on the unmanned Lunar
036636,000007: ## Module (LM) flight Apollo 5. Sunburst 37 was the program
036637,000008: ## upon which Don Eyles's offline development program Shepatin
036638,000009: ## was based; the listing herein transcribed was actually for
036639,000010: ## the equivalent revision 0 of Shepatin.
036640,000011: ## This file is intended to be a faithful transcription, except
036641,000012: ## that the code format has been changed to conform to the
036642,000013: ## requirements of the yaYUL assembler rather than the
036643,000014: ## original YUL assembler.
036644,000015: ## Reference: pp. 812-813
036645,000016: ## Assembler: yaYUL
036646,000017: ## Contact: Ron Burkey <info@sandroid.org>.
036647,000018: ## Website: www.ibiblio.org/apollo/index.html
036648,000019: ## Mod history: 2017-05-24 MAS Created from Sunburst 120.
036649,000020: ## 2017-06-06 HG Transcribed
036650,000021: ## 2017-06-23 RSB Proofed comment text with
036651,000022: ## octopus/ProoferComments.
036652,000023:
|
|
Page 812 |
036654,000025: # PROGRAM NAME - BEGIN206
036655,000026: # MOD. NO. 3
036656,000027:
036657,000028: # MOD BY - D. LICKLY AND J. SAMPSON
036658,000029: # DATE - NOV. 22, 1966
036659,000030: # LOG SECTION - DUMMY 206 INITIALIZATION
036660,000031: # ASSEMBLY - SUNBURST REVISION 36
036661,000032:
036662,000033: # FUNCTIONAL DESCRIPTION - START UP TO TWO DELAYED JOBS OR TASKS AFTER SLAP1 FOR SIMULATION PURPOSES.
036663,000034:
036664,000035: # FIXED INITIALIZATION REQUIRED - PATCH STARTDT1 AND STARTDT2 TO REPRESENT THE TIME2,TIME1 VALUE AT THE TIME AT
036665,000036: # WHICH THE JOBS OR TASKS ARE TO BEGIN
036666,000037: # PATCH CADR1 AND CADR2 IF SOME OTHER TASKS THAN TASK1 AND TASK2 ARE TO BE USED
036667,000038: # PATCH CADR3 AND CADR4 TO THE 2CADR OF THE JOBS TO BE STARTED
036668,000039: # PATCH 206BEGIN TO TC ENDOFJOB IF ONLY ONLY ONE TASK OR JOB IS TO BE STARTED
036669,000040: # PATCH TASK1 AND TASK2 WITH DIFFERENT PRIORITIES IF DESIRED
036670,000041: # SUBROUTINES CALLED - FINDVAC, WAITLIST
036671,000042:
036672,000043: # NORMAL EXIT MODES - ENDOFJOB, TASKOVER
036673,000044:
036674,000045: # ALARM OR ABORT EXIT MODES - NONE
036675,000046:
036676,000047: # OUTPUT - 2 WAITLIST OR FINDVAC CALLS FOR THE 2CADRS PATCHED IN
036677,000048:
036678,000049: # ERASABLE INITIALIZATION REQUIRED - NONE
036679,000050:
036680,000051: # DEBRIS - ITEMP1, CENTRALS, ERASABLES IN SUBROUTINES CALLED
036681,000052:
036682,000053: # NOTES - SINCE ONLY THE LOW ORDER PART OF STARTDT1 AND STARTDT2 ARE USED OT COMPUTE THE DELTAT FOR WAITLIST, THE
036683,000054: # REQUIRED TASKS AND JOBS WILL BE CALLED WITHIN 163.84 SECONDS
036684,000055:
036685,000056:
036686,000057: 35,3524 BANK 35
036687,000058:
036688,000059: 35,3524 00004 BEGIN206 INHINT
036689,000060:
036690,000061: 35,3525 40025 CS TIME1 # PATCH SLAP1 TO COME HERE TO START UP TWO
036691,000062: 35,3526 63551 AD STARTDT1 +1 # DELAYED TASKS OR JOBS FOR SIMULATIONS
036692,000063: 35,3527 67740 AD BIT14
036693,000064: 35,3530 67740 AD BIT14
036694,000065: 35,3531 56061 XCH ITEMP1
036695,000066:
036696,000067: 35,3532 30061 CA ITEMP1
036697,000068: 35,3533 05701 TC WAITLIST
036698,000069: 35,3534 0061 EBANK= ITEMP1
036699,000070: 35,3534 03554 72060 CADR1 2CADR TASK1 # MAY BE PATCHED FOR ANOTHER TASK
036700,000071:
036701,000072: 35,3536 40025 206BEGIN CS TIME1 # PATCH TO TC ENDOFJOB TO START 1 TASK
036702,000073: 35,3537 63553 AD STARTDT2 +1
036703,000074: 35,3540 67740 AD BIT14
036704,000075:
|
|
Page 813 |
036706,000077: 35,3541 67740 AD BIT14
036707,000078: 35,3542 56061 XCH ITEMP1
036708,000079:
036709,000080: 35,3543 30061 CA ITEMP1
036710,000081: 35,3544 05701 TC WAITLIST
036711,000082: 35,3545 0061 EBANK= ITEMP1
036712,000083: 35,3545 03561 72060 CADR2 2CADR TASK2 # COULD BE PATCHED
036713,000084:
036714,000085: 35,3547 05605 TC ENDOFJOB
036715,000086:
036716,000087:
036717,000088: 35,3550 00000 01130 STARTDT1 2DEC 600 B-28 # PATCH
036718,000089:
036719,000090: 35,3552 00000 00310 STARTDT2 2DEC 200 B-28 # PATCH
036720,000091:
036721,000092: 35,3554 35657 TASK1 CAF PRIO15 # ..OR YOUR OWN PRIORITY..
036722,000093: 35,3555 05534 TC FINDVAC
036723,000094: 35,3556 77777 CADR3 OCT 77777 # BETTER PATCH A 2CADR HERE
036724,000095: 35,3557 77777 OCT 77777
036725,000096: 35,3560 05745 TC TASKOVER
036726,000097:
036727,000098: 35,3561 37740 TASK2 CAF PRIO20
036728,000099: 35,3562 05534 TC FINDVAC
036729,000100: 35,3563 77777 CADR4 OCT 77777 # ..HERE ALSO..
036730,000101: 35,3564 77777 OCT 77777
036731,000102: 35,3565 05745 TC TASKOVER
End of include-file DUMMY_206_INITIALIZATION.agc. Parent file is MAIN.agc