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
  TAB DW -1
   msg db 'hello,$'
DATA ENDS
CODE SEGMENT
     ASSUME CS:CODE,DS:DATA
BEG: MOV AX,DATA
     MOV DS,AX
  
     MOV DX,63H   ;8255 kongzhizi
     MOV AL,82H
     OUT DX,AL 
     MOV DX,0043H   ;8253 KONGZHIZI
     MOV AL,10110110B
     OUT DX,AL
 AA: MOV DX,61H  ;B IN A OUT
     IN AL,DX
     
     AND AL,00000001B
     JZ CLOSE
  
AGA: MOV SI,OFFSET TABLE
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
      MOV DX,61H
      IN AL,DX
      AND AL,00000001B
      JZ CLOSE
       
      JMP LAST
CLOSE:MOV SI,OFFSET TAB
      MOV DX,11H
      MOV AX,0BD04H
      DIV WORD PTR[SI]
      OUT 42H,AL
      MOV AL,AH
     OUT 42H,AL
     CALL DELLY
    
    JMP AA
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