RESTART TABLES

Scanned pages: 238-243
# Copyright:  Public domain.
# Filename:  RESTART_TABLES.agc
# Purpose:   Part of the source code for Luminary 1A build 099.
#    It is part of the source code for the Lunar Module's (LM)
#    Apollo Guidance Computer (AGC), for Apollo 11.
# Assembler:  yaYUL
# Contact:  Ron Burkey <info@sandroid.org>.
# Website:  www.ibiblio.org/apollo.
# Pages:  238-243
# Mod history:  2009-05-10 SN   (Sergio Navarro).  Started adapting
#        from the Luminary131/ file of the same
#        name, using Luminary099 page images.
#
# This source code has been transcribed or otherwise adapted from
# digitized images of a hardcopy from the MIT Museum.  The digitization
# was performed by Paul Fjeld, and arranged for by Deborah Douglas of
# the Museum.  Many thanks to both.  The images (with suitable reduction
# in storage size and consequent reduction in image quality as well) are
# available online at www.ibiblio.org/apollo.  If for some reason you
# find that the images are illegible, contact me at info@sandroid.org
# about getting access to the (much) higher-quality images which Paul
# actually created.
#
# Notations on the hardcopy document read, in part:
#
#  Assemble revision 001 of AGC program LMY99 by NASA 2021112-061
#  16:27 JULY 14, 1969

# Page 238
# RESTART TABLES
# ------------------
#
# THERE ARE TWO FORMS OF RESTART TABLES FOR EACH GROUP.  THEY ARE KNOWN AS THE EVEN RESTART TABLES AND THE ODD
# RESTART TABLES.  THE ODD TABLES HAVE ONLY ONE ENTRY OF THREE LOCATIONS WHILE THE EVEN TABLES HAVE TWO ENTRIES
# EACH USING THREE LOCATIONS. THE INFORMATION AS TO WHETHER IT IS A JOB, WAITLIST, OR A LONGCALL IS GIVEN BY THE
# WAY THINGS ARE PUT INTO THE TABLES.
#      A JOB HAS ITS PRIORITY STORED IN PRDTTAB OF THE CORRECT PHASE SPOT - A POSITIVE PRIORITY INDICATES A
# FINDVAC JOB, A NEGATIVE PRIORITY A NOVAC.  THE 2CADR OF THE JOB IS STORED IN THE CADRTAB.
# FOR EXAMPLE,
#
# 5.7SPOT  OCT  23000
#    2CADR  SOMEJOB
#
# A RESTART OF GROUP 5 WITH PHASE SEVEN WOULD THEN CAUSE SOMEJOB TO BE RESTARTED AS A FINDVAC WITH PRIORITY 23.
#
# 5.5SPOT  OCT  -23000
#    2CADR  ANYJOB
#
# HERE A RESTART OF GROUP 5 WITH PHASE 7 WOULD CAUSE ANYJOB TO BE RESTARTED AS A NOVAC WITH PRIORITY 23.
# A LONGCALL HAS ITS GENADR OF ITS 2CADR STORED NEGATIVELY AND ITS BBCON STORED POSITIVELY.  IN ITS PRDTTAB IS
# PLACED THE LOCATION OF A DP REGISTER THAT CONTAINS THE DELTA TIME THAT LONGCALL HAD BEEN ORIGINALLY STARTED
# WITH.  EXAMPLE,
#
# 3.6SPOT  GENADR  DELTAT
#         -GENADR  LONGTASK
#    BBCON  LONGTASK
#
#    OCT  31000
#    2CADR  JOBAGAIN
#
# THIS WOULD START UP LONGTASK AT THE APPROPRIATE TIME, OR IMMEDIATELY IF THE TIME HAD ALREADY PASSED. IT SHOULD
# BE NOTED THAT IF DELTAT IS IN A SWITCHED E BANK, THIS INFORMATOIN SHOULD BE IN THE BBCON OFTHE 2CADR OF THE
# TASK.  FROM ABOVE, WE SEE THAT THE SECOND PART OF THIS PHASE WOULD BE STARTED AS A JOB WITH A PRIORITY OF 31.
#
# WAITLIST CALLS ARE IDENTIFIED BY THE FACT THAT THEIR 2CADR IS STORED NEGATIVELY. IF PRDTTAB OF THE PHASE SPOT
# IS POSITIVE, THEN IT CONTAINS THE DELTA TIME, IF PRDTTAB IS NEGATIVE THEN IT IS THE -GENADR OF AN ERASABLE
# LOCATION CONTAINING THE DELTA TIME, THAT IS, THE TIME IS STORED INDIRECTLY.  IT SHOULD BE NOTED AS ABOVE, THAT
# IF THE TIME IS STORED INDIRECTLY, THE BBCON MUST CONTAIN THE NECESSARY E BANK INFORMATION IF APPLICABLE.  WITH
# WAITLIST WE HAVE ONE FURTHER OPTION, IF -0 IS STORED IN PRDTTAB, IT WILL CAUSE AN IMMEDIATE RESTART OF THE
# TASK.  EXAMPLES,
#
#    OCT  77777    # THIS WILL CAUSE AN IMMEDIATE RESTART
#         -2CADR  ATASK    # OF THE TASK :ATASK:
#
#    DEC  200    # IF THE TIME OF THE 2 SECONDS SINCE DUMMY
#         -2CADR  DUMMY    # WAS PUT ON THE WAITLIST IS UP, IT WILL BEGIN
#          # IN 10 MS, OTHERWISE IT WILL BEGIN WHEN
#          # IT NORMALLY WOULD HAVE BEGUN.
# Page 239
#         -GENADR  DTIME    # WHERE DTIME CONTAINS THE DELTA TIME
#         -2CADR  TASKTASK  # OTHERWISE THIS IS AS ABOVE
#
# ***** NOW THE TABLES THEMSELVES *****

    BANK  01
    SETLOC  RESTART
    BANK

PRDTTAB    EQUALS  12000    # USED TO FIND THE PRIORITY OR DELTATIME
CADRTAB    EQUALS  12001    # THIS AND THE NEXT RELATIVE LOC CONTAIN
          # RESTART 2CADR

    COUNT*  $$/RSTAB  # TABLES IN BANK 1.
SIZETAB    TC  1.2SPOT -12006
    TC  1.3SPOT -12004
    TC  2.2SPOT -12006
    TC  2.3SPOT  -12004
    TC  3.2SPOT -12006
    TC  3.3SPOT -12004
    TC  4.2SPOT -12006
    TC  4.3SPOT -12004
    TC  5.2SPOT -12006
    TC  5.3SPOT -12004
    TC  6.2SPOT -12006
    TC  6.3SPOT -12004
1.2SPOT    OCT  21000    # A DUMMY EXAMPLE TO BE REPLACED AS SOON
    EBANK=  STATE
    2CADR  ENDOFJOB  # AS THERE IS A LEGITIMATE 1.2SPOT

    DEC  100
    EBANK=  STATE
    2CADR  TASKOVER

# ANY MORE GROUP 1.EVEN RESTART VALUES SHOULD GO HERE

1.3SPOT         -GENADR  SAVET-30
    EBANK=  DVCNTR
         -2CADR  ULLGTASK

# ANY MORE GROUP 1.ODD RESTART VALUES SHOULD GO HERE

2.2SPOT    EQUALS  1.2SPOT
# ANY MORE GROUP 2.EVEN RESTART VALUES SHOULD GO HERE

2.3SPOT    GENADR  600SECS
         -GENADR  STATEINT
    EBANK=  RRECTCSM
    BBCON  STATEINT

# Page 240
2.5SPOT    OCT  05000
    EBANK=  RRECTCSM
    2CADR  STATINT1

2.7SPOT    DEC  1500
    EBANK=  LOSCOUNT
         -2CADR  P20LEMC1

2.11SPOT  OCT  14000
    EBANK=  P21TIME
    2CADR  P25LEM1

2.13SPOT  OCT  10000
    EBANK=  LOSCOUNT
    2CADR  RELINUS

2.15SPOT  OCT  26000
    EBANK=  LOSCOUNT
    2CADR  R22RSTRT

2.17SPOT  OCT  77777
    EBANK=  VGPREV
         -2CADR  REDO2.17

2.21SPOT  DEC  25
    EBANK=  DVCNTR
         -2CADR  R10,R11

# ANY MORE GROUP 2.ODD RESTART VALUES SHOULD GO HERE.

3.2SPOT    EQUALS  1.2SPOT
# ANY MORE GROUP 3.EVEN RESTART VALUES SHOULD GO HERE

3.3SPOT         -GENADR  ZOOMTIME
    EBANK=  DVCNTR
         -2CADR  ZOOM

3.5SPOT    OCT  20000
    EBANK=  TTOGO
    2CADR  S40.13

# ANY MORE GROUP 3.ODD RESTART VALUES SHOULD GO HERE

4.2SPOT    DEC  2500
    EBANK=  TTOGO
         -2CADR  TIG-5

    OCT  77777
    EBANK=  TTOGO
# Page 241
         -2CADR  REDO4.2

# ANY MORE GROUP 4.EVEN RESTART VALUES SHOULD GO HERE

4.3SPOT    OCT  25000
    EBANK=  DVCNTR
    2CADR  GOABORT

4.5SPOT    DEC  50
    EBANK=  TTOGO
         -2CADR  ULLAGOFF

4.7SPOT    DEC  500
    EBANK=  DVCNTR
         -2CADR  TIG-0

4.11SPOT       -GENADR  TGO +1
    EBANK=  DVCNTR
         -2CADR  ENGOFTSK

4.13SPOT  OCT  12000
    EBANK=  TRKMKCNT
    2CADR  POSTBURN

4.15SPOT  DEC  500
    EBANK=  TTOGO
         -2CADR  TIG-30

4.17SPOT  OCT  77777
    EBANK=  DVCNTR
         -2CADR  TIG-5

4.21SPOT  OCT  13000
    EBANK=  STAR
    2CADR  R51.1 +1

4.23SPOT  OCT  77777
    EBANK=  DVCNTR
         -2CADR  IGNITION

4.25SPOT  GENADR  SAVET-30
         -GENADR  TIG-35
    EBANK=  SAVET-30
    BBCON  TIG-35

4.27SPOT  OCT  52777
    EBANK=  DVCNTR
    2CADR  P70A

# Page 242
4.31SPOT  OCT  52777
    EBANK=  DVCNTR
    2CADR  P71A

4.33SPOT  OCT  46777
    EBANK=  DVCNTR
    2CADR  GOP00FIX

4.35SPOT  OCT  46777
    EBANK=  DVCNTR
    2CADR  GOPOODOO

4.37SPOT  OCT  52777
    EBANK=  WHICH
    2CADR  COMFAIL

# ANY MORE 4.ODD RESTART VALUES SHOULD GO HERE.

5.2SPOT    OCT  22000
    EBANK=  DVCNTR
    2CADR  NORMLIZE

    DEC  200
    EBANK=  DVCNTR
         -2CADR  REREADAC

5.4SPOT    DEC  200
    EBANK=  DVCNTR
         -2CADR  REREADAC

    OCT  20000
    EBANK=  DVCNTR
    2CADR  SERVICER

# ANY MORE GROUP 5.EVEN RESTART VALUES SHOULD GO HERE

5.3SPOT    DEC  200
    EBANK=  DVCNTR
         -2CADR  REREADAC

5.5SPOT    OCT  77777
    EBANK=  DVCNTR
         -2CADR  REDO5.5

5.7SPOT    OCT  77777
    EBANK=  DVCNTR
# Page 243
         -2CADR  BIBIBIAS

# ANY MORE GROUP 5.ODD RESTART VALUES SHOULD GO HERE

6.2SPOT    EQUALS  1.2SPOT
6.3SPOT    DEC  100
    EBANK=  TIG
         -2CADR  CLOKTASK

6.5SPOT    OCT  30000    # PROTECT INCREMENTING OF TIME2,TIME1 BY
    EBANK=  TEPHEM    # P27(UPDATE PROGRAM) VIA V70 OR V73.
    2CADR  TIMEDIDR

6.7SPOT    OCT  17000
    EBANK=  VGPREV
    2CADR  REDO6.7