6-22.asm

自己写的一些MASM的小程序

;把数划分为20, 5, 2, 1
DATA	SEGMENT
NUM     DW 0133H,0D5FH,1234H
CUNT    EQU  ($-NUM)/TYPE NUM
NUM20   DB  CUNT  DUP(?)
NUM5    DB  CUNT  DUP(?)
NUM2    DB  CUNT  DUP(?)
NUM1    DB  CUNT  DUP(?)
DATA	ENDS
STACK1	SEGMENT PARA STACK
	DW  100H DUP(0)
STACK1	ENDS
COSEG	SEGMENT
	ASSUME CS:COSEG,DS:DATA,SS:STACK1
START:  MOV AX,DATA
        MOV DS,AX
        MOV CX,CUNT
        MOV SI,0H
        MOV DI,0H
LOP:    MOV AX,NUM[SI]
        CALL SHAN
        ADD SI,2H
        LOOP LOP
        MOV AH,4CH
	INT 21H
SHAN    PROC
        PUSH CX
        MOV BL,14H
        DIV BL
        MOV NUM20[DI],AL
        MOV CL,8
        SAR AX,CL
        MOV BL,05H
        DIV BL
        MOV NUM5[DI],AL
        MOV CL,8
        SAR AX,CL
        MOV BL,02H
        DIV BL
        MOV NUM2[DI],AL
        MOV CL,8
        SAR AX,CL
        MOV BL,01H    
        DIV BL
        MOV NUM1[DI],AL
        INC DI
        POP CX    
        RET
SHAN    ENDP
COSEG	ENDS
	END START