y.asm

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

STACK SEGMENT STACK
   DW 64 DUP(?)
STACK ENDS
DATA SEGMENT
   TABLE DW -1,261,293,329,261
         DW 261,293,329,261
         DW 329,349,39
         DW 329,349,39
         DW 392,440,392,329,329,261
         DW 392,440,392,329,329,261
         DW 329,261,392
         DW 329,261,392,0
   msg db 'hello,$'
DATA ENDS
CODE SEGMENT
     ASSUME CS:CODE,DS:DATA
BEG: MOV AX,DATA
     MOV DS,AX
     ;PUSH DS
     mov ah,06h
     mov bx,offset msg
     int 10h
     MOV DX,63H   ;8255 kongzhizi
     MOV AL,82H
     OUT 63H,AL
 OPEN: MOV DX,61H   ;B in A out
      IN AL,DX
      or al,00000001B
      out 61h,al
      ;MOV DX,60H
      ;OUT DX,AL
      ;mov ah,06h
      ;mov bx,offset msg
      ;int 10h
      ;JMP MM
      MOV DX,0043H   ;8253 kongzhizi
      MOV AL,10110110B
      OUT DX,AL
AGA: MOV SI,OFFSET TABLE
mov ax,06h
mov bx,offset msg
int 10h
LAST: CMP WORD PTR[SI],0
      JE AGA
      MOV DX,11H
      MOV AX,0BD04H
      DIV WORD PTR[SI]
      OUT 42H,AL
      MOV AL,AH
      OUT 42H,AL
      CALL DELLY
      ADD SI,2
      mov ah,06h
      mov bx,offset msg
      int 10h
      cmp al,00000000B
      Jz  CLOSE 
      JMP LAST
CLOSE:IN AL,61H
      AND AL,11111100B
     OUT 61H,AL
     MOV AH,4CH
     INT 21H
DELLY PROC
      PUSH AX
      PUSH CX
      MOV CX,0FFFFH
   M: MOV AX,0000H
      LOOP M
      POP CX
      POP AX
      RET
DELLY ENDP
CODE ENDS
     END BEG