ORIG 1000

DEVICE  EQU 18

INT     STJ INTE
        ENT4 45
        JAN 1F
        DEC4 1
1H      ST4 0,5(1:1)
        ENTX 0
        CHAR
        STX 0,5(2:5)
INTE    JMP *

CALC    STJ ECALC
        ENT5 AEQ
        ENTA 0,2
        JMP INT

        ENT5 BEQ
        ENTA 0,3
        JMP INT

        J2NZ 2F

        ENT1 ROOTS
        J3NZ 1F
        MOVE INF(6)
        JMP 3F
1H      MOVE NO(3)
        JMP 3F
2H      ENNA 0,3
        MUL =0=
        ENTX 0,3
        ST2 0
        DIV 0
        ENT5 XEQ
        JMP INT
3H      OUT BUF(DEVICE)
        JBUS *(DEVICE)
ECALC   JMP *

START   NOP
        ENT2 -11
        ENT3 33
        JMP CALC
        ENT2 3
        ENT3 6
        JMP CALC
        ENT2 10
        ENT3 0
        JMP CALC
        ENT2 0
        ENT3 1
        JMP CALC
        ENT2 0
        ENT3 0
        JMP CALC

        HLT
BUF     ALF    A=
AEQ     ALF
        ALF    B=
BEQ     ALF
ROOTS   ALF    X=
XEQ     ALF

        ORIG AEQ+25

INF     ALF    IN
        ALF FINIT
        ALF E NUM
        ALF BER O
        ALF F ROO
        ALF TS
NO      ALF    NO
        ALF  ROOT
        ALF S

        END START