/DELTA MOD SYSTEM IN BLIP

*1000


TRANS,  2/          INPUT,OUTPUT

        CODER
        1
        BIT
        STATEC
        CODTC
        CVOLT

        DECOD
        BIT
        2
        STATED
        DECTC
        DVOLT

        BLEND

CODTC,  4
DECTC,  4
CVOLT,  2000
DVOLT,  2000
STATEC, 0
STATED, 0
BIT,    0



CODER,  5/INPUT,OUTPUT,STATE,TC,VOLT

        BLOUT
        ACUM;3
        CIA
        ACUM;1
        SPA/   SET BIT TO 0 OR 1
        SKP CLA
        CLA IAC
        PUT;2

        INBLIP

        DECOD
        2
        3
        IGSTAT
        4
        5

        BLEND

IGSTAT, 0



DECOD,  5/    INPUT,OUTPUT,STATE,TC,VOLT

        BLOUT
        ACUM;1
        SZA CLA/    + 0R - VOLT
        JMP NOZERO
        ACUM;5
        CIA
        SKP
NOZERO, ACUM;5
        DCA X

        INBLIP

        INTGR
        X
        2
        3
        4

        BLEND

X,      0




INTGR,  4/      INPUT,OUTPUT,STATE,TC
        BLOTNT
        LINIGR
        ACUM;1
        ASR
TC1,    0
        SHL
        0
        DCA IGTEM1
        ACUM;3
        ASR
TC2,    0
        SHL
        0
        CIA
        ACUM;3
        TAD IGTEM1
        JMP CONT

LINIGR, ACUM;4
        DCA TC1
        ACUM;4
        DCA TC2

CONT,   DCA IGTEM2
        TAD IGTEM2
        PUT;3/   UPDATE STATE
        TAD IGTEM2
        PUT;2

        INEND

IGTEM1, 0
IGTEM2, 0




$