*PART6


INPSP,  0
        JMS I LISKP
LSKP,   0
        JMS I INPSP





NULPSP, 0
        DCA INPUT
        IAC
        DCA FLAG
        JMS I LSKP
        0
        SKP
        JMP I LERR/       INTRODUCE ERROR
        CLA
        DCA FLAG
        TAD INPUT/        NO ERROR
        JMP I NULPSP


FLAG,   0
LISKP,  IDPSKP
INPUT,  0
LERR,   ADDNUM



ADDNUM, CLA
        TAD ERRBIT
        JMP I NULPSP

ERRBIT, 2000




INVNUM, CLA
        TAD INPUT
        CIA
        JMP I NULPSP




IDPSKP, 0
        CLA CLL
        TAD GOLSB
        CIA
        DCA LSB
        CML RAL
        TAD GOMSB
        CIA
        DCA MSB
        JMS I IDPSKP




DPSKP,  0
        ISZ DPSKP/    SKP OVER ARGUMENT
        ISZ LSB
        JMP I DPSKP/  NO SKP
        ISZ MSB
        JMP I DPSKP/  NO SKP
        ISZ DPSKP/    SKP

        CLA CLL/   REINIT COUNT TO PERIOD
        TAD PERLSB
        CIA
        DCA LSB
        CML RAL
        TAD PERMSB
        CIA
        DCA MSB

        JMP I DPSKP



LSB,    0
MSB,    0
PERLSB, 400/       PERIOD
PERMSB, 0
GOLSB,  1000/        FIRST INTERVALL(GONUM)
GOMSB,  0







INULLC, 0
        JMS I INULLC


NULLC,  0
        JMP I NULLC



INULLD, 0
        ISZ INULLD
        JMS I INULLD

NULLD,  0
        ISZ NULLD
        JMP I NULLD



PAUSE