rm1.asm

微机原理——接口应用编程源码

STACK SEGMENT STACK
      DW 64 DUP(?)
STACK ENDS
DATA SEGMENT
     TABLE1 DB "Normal:",00H
     TABLE2 DB "Alarm :",00H
DATA ENDS
CODE SEGMENT
   ASSUME CS:CODE,DS:DATA
START:  MOV AX,DATA
        MOV DS,AX
        OUT 00H,AL

        MOV AL,82H
        OUT 63H,AL
        MOV AL,00H
        OUT 60H,AL

A0:     CALL DALLY
	IN AL,00H

	MOV CH,AL
        CMP AL,80H
        JA  A7
        
        PUSH AX
        MOV AL,00H
        OUT 60H,AL
        JMP A8

A7:     MOV AL,03H
        OUT 60H,AL
        
        POP AX
A8:     MOV CL,04
        SHR AL,CL
        CMP AL,09H
        JG A1
        ADD AL, 30H
        JMP A2
A1:     ADD AL,37H
A2:     MOV AH,06H
        CMP CH,80H
	JA  A3
        MOV BX,OFFSET TABLE1
        JMP A4
A3:	MOV BX,OFFSET TABLE2
A4:     INT 10H
        MOV AH,01H
        INT 10H
        MOV AL,CH
        AND AL,0FH
        CMP AL,09H
        JG A5
	ADD AL,30H
        JMP A6
A5:     ADD AL,37H
A6:     MOV AH,01H
        INT 10H
        MOV AX,010DH
        INT 10H
        JMP START     
DALLY:  PUSH CX
        PUSH AX
        MOV CX,00FFH
M1:     MOV AX,0000H
        PUSH CX
        MOV CX,00FFH
M2:     MOV AX,0000H
        LOOP M2
        POP CX
        LOOP M1
        POP AX
        POP CX
        RET
    CODE ENDS
    END START