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
 MM: 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,00000001B
      ;jnz MM
      JMP LAST
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