4k2.asm

自己写的汇编程序 有时钟功能,可重置时钟,是我自己觉得写的不错的1个程序

PUBLIC  SND

DATA 	SEGMENT PARA PUBLIC 'DATA'
BUF     DB  100
        DB  ?
        DB  100 DUP(?)
TIP21	DB 'ENTER THE CHARS:    '
	DB '$'
TIP22	DB 'THE MAX ASCII IS    '
	DB '$'
ANS     DB ?
AGAIN2  DB  '   PRESS ANY KEY TO COUNINUE. PRESS ESC TO EXIT.  '
        DB  '$'
DATA 	ENDS

STACK	SEGMENT PARA PUBLIC 'STACK'
	DB 200 DUP(?)
STACK	ENDS

CODE 	SEGMENT PARA PUBLIC 'CODE'
     	ASSUME CS:CODE,DS:DATA,SS:STACK

SND	PROC NEAR

	PUSH  AX
        PUSH  CX
        PUSH  DX
        PUSH  DI
GO2:    MOV   AH,06H
        MOV   BH,07
        MOV   CX,0
        MOV   DX,184FH
        INT   10H         ;清屏       
        MOV   AH,2
        MOV   DH,0
        MOV   DL,0
        MOV   BH,0
        INT   10H          ;光标控制

	MOV AH,9
	LEA DX,TIP21
	INT 21H
	MOV AH,0AH
	LEA DX,BUF
	INT 21H
	LEA SI,BUF
	INC SI
	MOV CL,[SI]
	MOV CH,0
	INC SI
	MOV DL,[SI]
BJ:	INC SI
	MOV AL,[SI]
	CMP DL,AL
	JA  NEXT2
	XCHG DL,AL
NEXT2:	NOP
	LOOP BJ
	MOV   ANS,DL 
      
        MOV   AH,2
        MOV   DH,4
        MOV   DL,0
        MOV   BH,0
        INT   10H          ;光标控制

	MOV   AH,9
	LEA DX,TIP22
	INT 21H
	MOV AH,2
	MOV DL,ANS
	INT 21H

        MOV   AH,2
        MOV   DH,8
        MOV   DL,0
        MOV   BH,0
        INT   10H
        LEA   DX,AGAIN2
        MOV   AH,9
        INT   21H
	MOV AH,1
	INT 21H
	CMP AL,1BH
	JZ  EXIT
	JMP GO2
EXIT:   POP   DI
        POP   DX
        POP   CX
        POP   AX
	RET
SND	ENDP
CODE	ENDS
	END