ex612.asm

汇编的例子利用汇编工具可编译通过不知是否有

DATA1	SEGMENT
	MSG1 DB	13, 10, "Iteration: "
	NUM1 DB	'1', "$"
	MSG2 DB	13, 10, "Alphabet: $"
	NUM2 DB	'A', " $"
	MSG3 DB	13, 10, "Type digits, then press ENTER: $"
DATA1	ENDS
CODE1	SEGMENT 'code'
	ASSUME  CS:CODE1, DS:DATA1
START:	MOV AX, DATA1
	MOV DS, AX

        MOV CX, 9
	MOV AH, 09H
	MOV DX, OFFSET MSG1
	.REPEAT
	  INT 21H
	  INC NUM1
	.UNTILCXZ

        MOV DX, OFFSET MSG2
	INT 21H
	MOV AH, 09H
	MOV DX, OFFSET NUM2
	.REPEAT
	  INT 21H
	  INC NUM2
	.UNTIL NUM2 > 'Z'

        MOV AH, 09H
	MOV DX, OFFSET MSG3
	INT 21H
	.WHILE  1
	  MOV AH, 07H
	  INT 21H
	  .BREAK .IF AL == 13
	  .CONTINUE .IF (AL<'0') || (AL>'9')
	  MOV DL, AL
	  MOV AH, 02H
	  INT 21H
	.ENDW

        MOV AX, 4C00H
	INT 21H
CODE1	ENDS
	END START