        .FUNC   DTONEDET,0
        .PRIVATE RETADDR
STAT    .EQU    0C2H
DTONE   .EQU    1H
        POP     HL
        LD      (RETADDR),HL
        POP     HL              ;CORRECT STACK
        POP     HL
        LD      HL,0            ;FALSE
        IN      A,(STAT)        ;READ STATUS
        AND     DTONE           ;CHECK FOR DIAL TONE
        JP      NZ,DONE          
        LD      HL,1            ;TRUE
DONE    PUSH    HL
        LD      HL,(RETADDR)
        JP      (HL)
        .END

