Skip to main content

Browse the archive

Revision 4e5d304eb7cd5589b924ffb8b423b6f15511b35d authored by Ron Burkey on 20 October 2018, 17:47:00 UTC, committed by Ron Burkey on 20 October 2018, 17:47:00 UTC 
The sample Block I AGC program TRIVIUM, found at the very end of one of
 
the recently-added documents about YUL, was transcribed.  Because the
original program contained a deliberate error in YUL (as well as some
constructs that have unintentionally become errors in yaYUL), I've
provided it in two forms:  TRIVIUM (which matches the original scan,
to the extent feasible) and TRIVIUM-repaired (which has the deliberate
and unintentional errors fixed, but otherwise retains the identical
functionality of the original).
1 parent c6c292e
Raw File
ISZS.f 
C     COPYRIGHT       NONE.  THIS CODE IS IN THE PUBLIC DOMAIN.
C     FILENAME        GEMINICATCHUPANDRENDEZVOUSPROGRAM/ISZS.F
C     PURPOSE         THIS IS PART OF THE ORIGINAL 1965 SIMULATION
C                     PROGRAM FOR THE GEMINI 7/6 MISSION
C                     CATCH-UP AND RENDEZVOUS FLIGHT PHASES.
C                     THIS PARTICULAR FILE CONTAINS ONLY THE
C                     IVISZS SUBROUTINE.
C     WEBSITE         WWW.IBIBLIO.ORG/APOLLO
C     HISTORY         2010-08-14 RSB  BEGAN TRANSCRIBING FROM
C                                     THE SCANNED PDF REPORT.
C
C     REFER TO MAIN.F FOR MORE-DETAILED INTRODUCTORY COMMENTS.
C
C     FROM PAGE 172 OF THE REPORT 
      SUBROUTINE IVISZS(LDI22,LC5,CSTZ,CT,LDO11,LDO12,LDO13,CDVXZ,CDVYZ,
     1CDVZZ,LDI25,LDI26,LDI31,LC1,LC1J)
301   IF (LDI22)  2,302,2
302   IF (LC5) 308,323,308
323   CSTZ=CT+23.
303   LDO12=0
      LDO13=4095
      LDO11=4095
304   LDO12=4095
      LDO11=4095
305   LDO13=0
      LD011=4095
306   LC5=4095
307   CDVXZ=0.
      CDVYZ=0.
      CDVZZ=0.
      GO TO 2
308   IF (LDI25) 345,309,345
309   IF (LDI26) 345,310,345
310   IF (LDI31) 345,346,345
345   IF (CSTZ-CT) 346,2,2
346   LC1=0
      LC5=0
347   LC1J=-4095
2     RETURN
      END(1,1,0,0,0,0,1,1,0,0,0,0,0,0,0)
back to top