6-19.asm

自己写的一些MASM的小程序

;输出"倒三角"*
DATA	SEGMENT
STRING  DB 'PLEASE ENTER A NUMBER BETWEEN 1 TO 9:','$'
STRING1 DB 0AH,0DH,'$'
STRING2 DB  'THE NUMBER MUST BE 1 TO 9!!!!!',0AH,0DH,'$'
  DATA1  DB  0
  DATA2  DB  0 
  DA1    DB  0
  DA2    DB  0  
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
        XOR AX,AX
        XOR BX,BX
        XOR CX,CX
        XOR DX,DX
        MOV DX,OFFSET STRING
        MOV AH,09H
        INT 21H
        MOV AH,01H
        INT 21H
        MOV DATA1,AL
        SUB DATA1,30H
        MOV  DL,DATA1
        CMP  DL,01H
        JC   ERROR
        CMP  DL,10
        JNC  ERROR
        TEST DATA1,01H
        JNE LOP
        INC DATA1
        JMP LOP
ERROR:  MOV DX,OFFSET STRING1
        MOV AH,09H
        INT 21H
        MOV DX,OFFSET STRING2
        MOV AH,09H
        INT 21H
        JMP START
LOP:    MOV DH,DATA1
        MOV DA1,DH
        MOV DH,DATA2
        MOV DA2,DH
LOP2:   MOV DH,DA1
        MOV DATA1,DH
        MOV DH,DA2
        MOV DATA2,DH
        MOV DX,OFFSET STRING1
        MOV AH,09H
        INT 21H
LOP4:   TEST DATA2,0FFH
        JE LOP3
        MOV DL,' '
        MOV AH,02H
        INT 21H
        MOV DL,' '
        MOV AH,02H
        INT 21H
        DEC DATA2
        JMP LOP4
LOP3:   MOV DL,'*'
        MOV AH,02H
        INT 21H
        MOV DL,' '
        MOV AH,02H
        INT 21H
        DEC DATA1
        TEST DATA1,0FFH
        JNE LOP3
LOP5:    DEC DA1
        TEST DA1,0FFH
        JE ENDO
LOP1:   DEC DA1
        INC DA2
        TEST DA1,0FFH
        JNE LOP2
ENDO:   MOV AH,4CH
	INT 21H
COSEG	ENDS
	END START