BUFF?DB100?DUP(?)
N?EQU$-BUFF
Y?DB0
Z?DW0
START:?PUSH?CS POPDS PUSH?CS POPES LEADI,BUFF MOVAL,31 MOVCX,N CLD @1: STOSB ADDAL,2 LOOP?@1 LEASI,BUFF MOVCX,N CLD @2: LODSB CBW CMPAX,0 JBE@3 INCY ADDZ,AX @3: LOOP?@2 MOVAL,Y CBW CALL?DSPAX2 MOVAX,Z CALL?DSPAX2 MOVAL,Y CBW CALL?DSPAX10 MOVAX,Z CALL?DSPAX10 MOVAH,4CH INT21H ;================================ DSPAX2?PROC?NEAR PUSH?AX PUSH?BX PUSH?CX PUSH?DX PUSHF XORCX,CX MOVBX,2 @DSPAX2_1: XORDX,DX DIVBX INCCX ORDX,30H PUSH?DX CMPAX,0 JNE@DSPAX2_1 MOVAH,2 @DISPAX2_2: POPDX CMPDL,3AH JB@DISPAX2_3 ADDDL,7 @DISPAX2_3: INT21H LOOP?@DISPAX2_2 MOVDL,32 INT21H POPF POPDX POPCX POPBX POPAX RET DSPAX2?ENDP;================================
DSPAX10?PROC?NEAR PUSH?AX PUSH?BX PUSH?CX PUSH?DX PUSHF XORCX,CX MOVBX,10 @DSPAX10_1: XORDX,DX DIVBX INCCX ORDX,30H PUSH?DX CMPAX,0 JNE@DSPAX10_1 MOVAH,2@DISPAX10_2:
POPDX CMPDL,3AH JB@DISPAX10_3 ADDDL,7@DISPAX10_3:
INT21H LOOP?@DISPAX10_2 MOVDL,32 INT21H POPF POPDX POPCX POPBX POPAX RET DSPAX10?ENDP;================================
CODE?ENDS
ENDSTART