qdq2.asm

来自「微机原理——接口应用编程源码」· 汇编 代码 · 共 95 行

stack segment stack
 dw 64 dup(?)
stack ends
data segment
data ends
code segment
  assume cs:code,ds:data
start: mov ax,data
  mov ds,ax
  mov dx,63h
  mov ax,89h
  out dx,al
  
lp:mov dx,62h
  in  al,dx
  mov ah,al
  cmp al,07H
  jz x1
  cmp al,0BH
  jz x2
  cmp al,0DH
  jz x3
  cmp al,0EH
  jz x4
  cmp al,0FH
  jz lp
  jmp exit
  
exit:  mov dx,61h
  mov al,6Dh
  out dx,al
  mov dx,60h
  mov al,07h
  out dx,al
  jmp lp
x1:mov dx,61h
   mov al,06H
   out dx,al
   mov al,ah
   mov dx,60h
   out dx,al
   jmp aa 
x2:mov dx,61h
   mov al,5BH
   out dx,al
   mov al,ah
   mov dx,60h
   out dx,al
   jmp aa
x3:mov dx,61h
   mov al,4FH
   out dx,al
   mov al,ah
   mov dx,60h
   out dx,al
   jmp aa
x4:mov dx,61h
   mov al,66H
   out dx,al
   mov al,ah
   mov dx,60h
   out dx,al
  jmp aa
;exit:
 ;  mov dx,61h
  ; mov al,6dh
   ;out
   ;mov al,ah
   ;out dx,al
 ;  jmp aa
   



aa:call delly
   mov al,0fh
   mov dx,60h
   out dx,al
   jz lp  
delly proc
 push ax
 push cx
 mov cx,0ffffh
m:mov ax,0000h
  loop m
  pop  cx
  pop  ax
  ret
delly endp
;exit:mov ax,4C00H
;   int 21h
code ends
  end start