swh:1:snp:92f3f585b9ae79620ad8c41a332d6329b31fd381
Tip revision: 078c79d8734a9ed2860303a7c1662004284fe853 authored by Ron Burkey on 07 August 2022, 15:04:04 UTC
Fixed a potential string-overflow bug in yaASM. Removed timestamps from
Fixed a potential string-overflow bug in yaASM. Removed timestamps from
Tip revision: 078c79d
DUMMY_206_INITIALIZATION.agc
### FILE="Main.annotation"
## Copyright: Public domain.
## Filename: DUMMY_206_INITIALIZATION.agc
## Purpose: A module for revision 0 of BURST120 (Sunburst). It
## is part of the source code for the Lunar Module's
## (LM) Apollo Guidance Computer (AGC) for Apollo 5.
## Assembler: yaYUL
## Contact: Ron Burkey <info@sandroid.org>.
## Website: www.ibiblio.org/apollo/index.html
## Mod history: 2016-09-30 RSB Created draft version.
## 2016-10-30 RSB Finished transcription.
## 2016-12-06 RSB Proofed comments with octopus/ProoferComments,
## changes were made.
## Page 869
# PROGRAM NAME - BEGIN206
# MOD. NO. 3
# MOD BY - D. LICKLY AND J. SAMPSON
# DATE - NOV. 22, 1966
# LOG SECTION - DUMMY 206 INITIALIZATION
# ASSEMBLY - SUNBURST REVISION 36
# FUNCTIONAL DESCRIPTION - START UP TO TWO DELAYED JOBS OR TASKS AFTER SLAP1 FOR SIMULATION PURPOSES.
# FIXED INITIALIZATION REQUIRED - PATCH STARTDT1 AND STARTDT2 TO REPRESENT THE TIME2,TIME1 VALUE AT THE TIME AT
# WHICH THE JOBS OR TASKS ARE TO BEGIN
# PATCH CADR1 AND CADR2 IF SOME OTHER TASKS THAN TASK1 AND TASK2 ARE TO BE USED
# PATCH CADR3 AND CADR4 TO THE 2CADR OF THE JOBS TO BE STARTED
# PATCH 206BEGIN TO TC ENDOFJOB IF ONLY ONLY ONE TASK OR JOB IS TO BE STARTED
# PATCH TASK1 AND TASK2 WITH DIFFERENT PRIORITIES IF DESIRED
# SUBROUTINES CALLED - FINDVAC, WAITLIST
# NORMAL EXIT MODES - ENDOFJOB, TASKOVER
# ALARM OR ABORT EXIT MODES - NONE
# OUTPUT - 2 WAITLIST OR FINDVAC CALLS FOR THE 2CADRS PATCHED IN
# ERASABLE INITIALIZATION REQUIRED - NONE
# DEBRIS - ITEMP1, CENTRALS, ERASABLES IN SUBROUTINES CALLED
# NOTES - SINCE ONLY THE LOW ORDER PART OF STARTDT1 AND STARTDT2 ARE USED OT COMPUTE THE DELTAT FOR WAITLIST, THE
# REQUIRED TASKS AND JOBS WILL BE CALLED WITHIN 163.84 SECONDS
BANK 35
BEGIN206 INHINT
CS TIME1 # PATCH SLAP1 TO COME HERE TO START UP TWO
AD STARTDT1 +1 # DELAYED TASKS OR JOBS FOR SIMULATIONS
AD BIT14
AD BIT14
XCH ITEMP1
CA ITEMP1
TC WAITLIST
EBANK= ITEMP1
CADR1 2CADR TASK1 # MAY BE PATCHED FOR ANOTHER TASK
206BEGIN CS TIME1 # PATCH TO TC ENDOFJOB TO START 1 TASK
AD STARTDT2 +1
AD BIT14
## Page 870
AD BIT14
XCH ITEMP1
CA ITEMP1
TC WAITLIST
EBANK= ITEMP1
CADR2 2CADR TASK2 # COULD BE PATCHED
TC ENDOFJOB
STARTDT1 2DEC 600 # PATCH
STARTDT2 2DEC 200 # PATCH
TASK1 CAF PRIO15 # ..OR YOUR OWN PRIORITY..
TC FINDVAC
CADR3 OCT 77777 # BETTER PATCH A 2CADR HERE
OCT 77777
TC TASKOVER
TASK2 CAF PRIO20
TC FINDVAC
CADR4 OCT 77777 # ..HERE ALSO..
OCT 77777
TC TASKOVER