Eine aufbereitete Darstellung der Quelle

 
     
 
 
Anforderungen  |   Konzepte  |   Entwurf  |   Entwicklung  |   Qualitätssicherung  |   Lebenszyklus  |   Steuerung
 
 
 
 

Benutzer

Quelle  RESTART_TABLES.agc   Sprache: Apollo

 

# 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

Messung V0.5 in Prozent
C=65 H=100 G=84

¤ Dauer der Verarbeitung: 0.10 Sekunden  (vorverarbeitet am  2026-10-12) ¤

*© Formatika GbR, Deutschland






Wurzel

Suchen

PVS Prover

Isabelle Prover

NIST Cobol Testsuite

Cephes Mathematical Library

Vienna Development Method

Haftungshinweis

Die Informationen auf dieser Webseite wurden nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit, noch Qualität der bereit gestellten Informationen zugesichert.

Bemerkung:

Die farbliche Syntaxdarstellung und die Messung sind noch experimentell.






                                                                                                                                                                                                                                                                                                                                                                                                     


Neuigkeiten

     Aktuelles
     Motto des Tages

Open Source Software

     Quellcodebibliothek
     Eigene Quellcodes
     Fremde Quellcodes
     Suchen

Jenseits des Üblichen ....
    

Besucherstatistik

Besucherstatistik

Statistik
#Sources=1128594
#Domains=1976912