Софт для УКНЦ

[Alex_K]

Собственно мой код (есть в АС.MAC):
Определение SY:

        CALL    LOGD
        SUB     R4,R5
        SUB     #6,R5
        MOV     @R5,R5
        CALL    OUTR50

Определение DK:

        CALL    LOGD
        SUB     R4,R5
        CMP     -(R5),-(R5)
14$:    CMP     (R5)+,#^RDK
        BNE     14$
        SUB     R4,R5
        CMP     -(R5),-(R5)
        MOV     -(R5),R5
        CALL    OUTR50

Подпрограмма LOGD:

LOGD:   MOV     @#54,R5
        ADD     404(R5),R5
        MOV     R5,R4
1$:     CMP     (R4)+,#-1
        BNE     1$
        TST     -(R4)
        SUB     R5,R4
        ASR     R4
        RETURN