;
; chkhrdl:
;
;  Checks if high rate downlink started properly. If not sets a flag to 
;  request reset.
;
; V0.00 21 Nov 95 Dnyanesh Mathur
;
;........................................................................
;
QSR_STR_CHKDL8::
    SETREG    R159  40
    PURGELST  R152                      ; Wait 205 ms
    BRANCHNR  0x4000  &CHKDL_EXIT       ; P8 should be busy
    GOTO      &CHKR0081
;
QSR_STR_CHKDL9::
    SETREG    R159  40
    PURGELST  R152                      ; Wait 205 ms
    BRANCHNR  0x4800  &CHKDL_EXIT       ; P9 should be busy
    GOTO      &CHKR0081
;
CHKR0081:
    BRANCHGT  R0081   0   &CHKDL_SKIPHR ; BAD > 0; Skip HR
    GOTO      &CHKDL_ERREXT             ; Set BAD

CHKDL_EXIT:
    SETREG   R0081    0                 ; Clear HR NOK Flag
    RTNQUE
;
CHKDL_SKIPHR:
    ADDREGD  R0081  0xFFFF              ; R81 <- R81 - 1
    RTNQUE
;
CHKDL_ERREXT:
    SETREG    R0081   3                 ; Set HR NOK flag
    SETREG    R0026   1                 ; Set "Save_Context" Flag
    RTNQUE
;........................................................................