MY8255_A    EQU  9C60H
MY8255_B    EQU  9C61H
MY8255_C    EQU  9C62H
MY8255_MODE EQU  9C63H
STACK SEGMENT STACK
      DW 256 DUP(?)
STACK ENDS
DATA  SEGMENT
TABLE  DB 01H,03H,02H,06H,04H,0CH,08H,09H  
DATA  ENDS
CODE SEGMENT
     ASSUME  CS:CODE,DS:DATA

START:  MOV AX,DATA
        MOV DS,AX

MAIN:   MOV DX,MY8255_MODE             
        MOV AL,80H
        OUT DX,AL
A1:     MOV BX,OFFSET TABLE
        MOV CX,0008H                           
A2:     MOV AL,[BX]
        MOV DX,MY8255_B              
        OUT DX,AL
        CALL DALLY                  
        INC BX                                      
        LOOP A2
        CALL BREAK
        JMP A1

DALLY:  PUSH CX
        PUSH AX                   
        MOV CX,0FFFH
A3:     MOV AX,5000H
A4:     DEC AX
        JNZ A4
        LOOP A3
        POP AX
        POP CX
	RET	

BREAK PROC  NEAR 
        MOV AH,06H
        MOV DL,0FFH
        INT 21H
        JE  RETURN
        MOV AX,4C00H
        INT 21H
RETURN:RET
BREAK ENDP

CODE  ENDS
      END START