        HP 9100A Program Listing - created: 04/18/2009 12:25:20.227
        ===========================================================

	The Emulator works correctly if it shows 1, 2, 3 in the Z, Y, X register flashing.
	This is the same program as the original HP9100A used to check hardware.


        Line   Instruction
        __________________
        0.0    arc
        0.1    hyper 
        0.2    SET FLAG
        0.3    CLEAR
        0.4    3
        0.5    .
        0.6    1
        0.7    4
        0.8    1
        0.9    5
        0.a    9
        0.b    2
        0.c    6
        0.d    5
        1.0    3
        1.1    6
        1.2    0
        1.3    PUSH up
        1.4    PI
        1.5    IF x=y
        1.6    1
        1.7    9
        1.8    STOP
        1.9    SQRT(x)
        1.a    Y->()
        1.b    e
        1.c    ROLL down
        1.d    SQRT(x)
        2.0    ROLL up
        2.1    x
        2.2    e
        2.3    CHG SIGN
        2.4    +
        2.5    ENTER EXP
        2.6    CHG SIGN
        2.7    9
        2.8    |y|
        2.9    IF x>y
        2.a    2
        2.b    d
        2.c    STOP
        2.d    xswapy
        3.0    IF x<y
        3.1    3
        3.2    4
        3.3    STOP
        3.4    .
        3.5    7
        3.6    8
        3.7    PUSH up
        3.8    7
        3.9    8
        3.a    ENTER EXP
        3.b    CHG SIGN
        3.c    1
        3.d    -
        4.0    IF x>y
        4.1    CLEAR x
        4.2    ROLL up
        4.3    IF x=y
        4.4    STOP
        4.5    STOP
        4.6    IF x<y
        4.7    STOP
        4.8    STOP
        4.9    PUSH down
        4.a    IF x>y
        4.b    STOP
        4.c    STOP
        4.d    IF FLAG
        5.0    STOP
        5.1    STOP
        5.2    SET FLAG
        5.3    PI
        5.4    int x
        5.5    PUSH up
        5.6    yswap()
        5.7    e
        5.8    PUSH down
        5.9    int x
        5.a    PUSH up
        5.b    CLEAR x
        5.c    e
        5.d    IF x=y
        6.0    PI
        6.1    xswapy
        6.2    /
        6.3    PUSH down
        6.4    PUSH up
        6.5    sin x
        6.6    x->()
        6.7    e
        6.8    arc
        6.9    sin x
        6.a    cos x
        6.b    x->()
        6.c    f
        6.d    arc
        7.0    cos x
        7.1    tax x
        7.2    arc
        7.3    tax x
        7.4    -
        7.5    |y|
        7.6    xswapy
        7.7    PUSH up
        7.8    ENTER EXP
        7.9    CHG SIGN
        7.a    9
        7.b    IF x<y
        7.c    STOP
        7.d    STOP
        8.0    3
        8.1    xswapy
        8.2    3
        8.3    e^x
        8.4    ln x
        8.5    -
        8.6    ENTER EXP
        8.7    CHG SIGN
        8.8    9
        8.9    |y|
        8.a    IF x<y
        8.b    STOP
        8.c    STOP
        8.d    3
        9.0    hyper 
        9.1    sin x
        9.2    arc
        9.3    hyper 
        9.4    sin x
        9.5    hyper 
        9.6    cos x
        9.7    arc
        9.8    hyper 
        9.9    cos x
        9.a    hyper 
        9.b    tax x
        9.c    arc
        9.d    hyper 
        a.0    tax x
        a.1    log x
        a.2    xswapy
        a.3    1
        a.4    0
        a.5    ln x
        a.6    x
        a.7    PUSH down
        a.8    e^x
        a.9    PUSH up
        a.a    3
        a.b    -
        a.c    |y|
        a.d    ENTER EXP
        b.0    CHG SIGN
        b.1    9
        b.2    xswapy
        b.3    IF x>y
        b.4    STOP
        b.5    STOP
        b.6    RCL
        b.7    TO POLAR
        b.8    ROLL down
        b.9    -
        b.a    |y|
        b.b    ENTER EXP
        b.c    CHG SIGN
        b.d    9
        c.0    IF x<y
        c.1    STOP
        c.2    STOP
        c.3    PI
        c.4    xswapy
        c.5    3
        c.6    /
        c.7    PUSH down
        c.8    xswapy
        c.9    TO RECT
        c.a    ACC -
        c.b    +
        c.c    PUSH down
        c.d    int x
        d.0    PUSH up
        d.1    2
        d.2    ACC +
        d.3    xswapy
        d.4    RCL
        d.5    PUSH up
        d.6    3
        d.7    END ' PAUSE differences to the original diagnostic card
        d.8    END ' PAUSE loop removed
        d.9    END ' PAUSE
        d.a    END ' GO TO()()
        d.b    END ' 0
        d.c    END ' 0
        d.d    END

