        ENTRY   AANS
BFCMD:  EQU     07154
AANS    PUSH    D       ;SAVE REGS
        PUSH    H
        LXI     H,BFCMD ;POINT TO ANS BUFFER
        XRA     A       ;CLEAR [A]
AANS1   MOV     D,A     ;SAVE [A]
        MOV     A,M     ;GET BYTE OF ANS
        SUI     "0"     ;IS IT NUMERIC
        JC      AANSEX  ;NO - ALL DONE
        CPI     10
        JNC     AANSEX  ;NO - ALL DONE
        MOV     E,A     ;SAVE NEW DIGIT
        MOV     A,D     ;RESTORE [A]
        ADD     A       ;*2
        ADD     A       ;*4
        ADD     D       ;*5
        ADD     A       ;*10
        ADD     E       ;ADD DIGIT
        INX     H       ;ADV POINTER
        JMP     AANS1   ;LOOP
AANSEX  MOV     A,D     ;RESTORE [A]
        POP     H       ;RETORE REGS
        POP     D
        RET
        END

