DATA  SEGMENT
        TABL  DB        128,171,192,210,226,238,248,254,255
              DB        254,248,238,226,210,192,171,128
              DB        106,84,64,46,30,17,8,2,0
              DB        2,8,17,30,46,64,84,106
        DATA  ENDS
        CODE  SEGMENT
              ASSUME    CS:CODE, DS:DATA
      START:
              MOV       DX,DATA
              MOV       DS,DX
              MOV       DX,0C410H   ;290h
      NEXT1:  LEA       SI,TABL
              MOV       CL ,38
       NEXT:  MOV       AL,[SI]
              OUT       DX,AL
              INC       SI

              MOV       BX,3000
        AAA:  DEC       BX
              JNZ       AAA

              LOOP      NEXT

              MOV       AH,01H
              INT       16H
              JZ        NEXT1

              MOV       AX,4C00H
              INT       21H
        CODE  ENDS
              END       START