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
SKIPN.s 
*       COPYRIGHT       NONE.  THIS CODE IS IN THE PUBLIC DOMAIN.
*       FILENAME        GEMINICATCHUPANDRENDEZVOUSPROGRAM/SKIPN.S
*       PURPOSE         THIS IS PART OF THE ORIGINAL 1965 SIMULATION
*                       PROGRAM FOR THE GEMINI 7/6 MISSION
*                       CATCH-UP AND RENDEZVOUS FLIGHT PHASES.
*                       THIS PARTICULAR FILE CONTAINS THE IBM
*                       7090/7094 ASSEMBLY-LANGUAGE SUBROUTINE
*                       CALLED SKPN.
*       WEBSITE         WWW.IBIBLIO.ORG/APOLLO
*       HISTORY         2010-08-14 RSB  BEGAN TRANSCRIBING FROM
*                                       THE SCANNED PDF REPORT.
*
*       REFER TO MAIN.F FOR MORE-DETAILED INTRODUCTORY COMMENTS.
*
*       FROM PAGE 176 OF THE REPORT 
        ENTRY   SKPN
 SKPN   SXA     RTN,1
        SXA     RTN+1,2
        CLA*    1,4
        PDX     0,1
        CLA*    2,4
        PDX     0,2
        CLA     CH+2,2
        ADD*    3,4
        ARS     18
        STA     A
 A      RDS     **
        XEC     CH+4,2
        XEC     CH+6,2
        XEC     CH+8,2
        TRA     A
        TIX     A,1,1
 RTN    AXT     0,1
        AXT     0,2
        TRA     4,4
 CH     OCT     2200000000
        OCT     1200000000
        RCHB    CW1
        RCHA    CW1
        TCOB    A+2
        TCOA    A+2
        TEFB    RTN-1
        TEFA    RTN-1
 CW1    IORP    0,0,0
        IOCD    0,0,0
        END
back to top