rjexp6.asm

显示屏相关程序实现显示屏点亮控制等功能.

CRLF  MACRO
      MOV  AH,02H
      MOV  DL,0DH
      INT  21H
      MOV  AH,02H
      MOV  DL,0AH
      INT  21H
ENDM
DATA  SEGMENT
MARK  DB ?
MESS  DB  '输入四位十六进制数,按回车键转化为二进制数,空格键结束!',0DH,0AH,'输入:$'
ERROR  DB 0DH,0AH, '输入错误!',0DH,0AH,'$'
DATA  ENDS
STACK  SEGMENT
STA  DW  32 DUP(?)
TOP  DW  ?
STACK  ENDS
CODE   SEGMENT
ASSUME  CS:CODE,DS:DATA,ES:DATA,SS:STACK
START:  MOV  AX,DATA
	     MOV  DS,AX
	     MOV  ES,AX
	     MOV  SP,TOP
HEAD:   CRLF
	     MOV  MARK,0
	     MOV  AH,09H
	     LEA  DX,MESS
	     INT  21H            ;显示提示输入的信息
	     CALL GETNUM         ;接收键入数值送DX
	     CMP  MARK,01H
	     JE   HEAD
	     MOV  CX,0010H       ;16位
	     MOV  BX,DX
TTT:    ROL  BX,1           ;循环左移1位
	     MOV  DL,BL
	     AND  DL,01H         ;屏蔽掉高7位
	     ADD  DL,30H
	     MOV  AH,02H
	     INT  21H            ;显示二进制位对应的ASCII字符
	     LOOP  TTT
	     JMP   HEAD
FINI:    MOV   AX,4C00H
	     INT   21H            ;返回DOS
GETNUM  PROC  NEAR           ;子程序,接收键入数值送DX
	     PUSH  CX
	     XOR   DX,DX
GGG:    MOV  AH,01H
	     INT  21H
	     CMP  AL,0DH          ;输入为回车,则进行转换
	     JE   PPP
	     CMP  AL,20H          ;输入为空格,则退回DOS
	     JE   FINI
	     CMP  AL,30H
	    JB   KKK
	    SUB  AL,30H
	    CMP  AL,0AH
	    JB   GETS
	    CMP AL,11H
	    JB   KKK
	    SUB  AL,07H
	CMP  AL,0FH
	    JBE  GETS          
	    CMP  AL,2AH
	    JB   KKK
	    CMP  AL,2FH
	    JA   KKK
	    SUB  AL,20H
GETS:   MOV  CL,04
	    SHL  DX,CL
	    XOR  AH,AH
	    ADD  DX,AX
	    JMP  GGG
KKK:    MOV  AH,09H
	    MOV  DX,OFFSET ERROR
	    INT  21H
	    MOV  MARK,01H
PPP:    PUSH  DX
	    CRLF
	    POP  DX
	    POP  CX
	    RET
GETNUM  ENDP
CODE   ENDS
		END START