MOV A,#VALUE

        MOV B,#100          ;A=100's
        DIV AB
        ADD A,#48
        CALL WRITE_TEXT
        MOV A,B
        MOV B,#10
        DIV AB              ;A=10's ... B=1's
        ADD A,#48
        CALL WRITE_TEXT
        MOV A,B
        ADD A,#48
        CALL WRITE_TEXT