DIVTEST START   0x1000
        LDA     BETA
        LDT     GAMMA
        DIVR    T,A
        STA     ALPHA
LOOP    J       LOOP
ALPHA   RESW    1
BETA    WORD    10
GAMMA   WORD    111
        END     DIVTEST