DATAEREA  SEGMENT
           A  DB        0C0H,0F9H,0A4H,0B0H,099H,092H,082H,0F8H,080H,098H
       BUFFH  DB        ?
       BUFFL  DB        ?
    DATAEREA  ENDS
     PROGNAM  SEGMENT
        MAIN  PROC      FAR
              ASSUME    CS:PROGNAM,DS:DATAEREA,ES:DATAEREA
      START:
              PUSH      DS
              SUB       AX,AX
              PUSH      AX

              MOV       AX,DATAEREA
              MOV       DS,AX
              MOV       ES,AX

              MOV       DX,28BH
              MOV       AL,80H
              OUT       DX,AL
              MOV       CX,99
       REP1:
              CMP       CX,01
              JNB       NOSUBCX
              ADD       CX,100
    NOSUBCX:
              DEC       CX
              SUB       BX,BX
              MOV       AX,CX
              MOV       BL,10
              DIV       BL
              MOV       BL,AH
              MOV       AH,A[BX]
              MOV       BUFFH,AH
              MOV       BL,AL
              MOV       AH,A[BX]
              MOV       BUFFL,AH
              MOV       DX,500
    REPDRAW:
              PUSH      DX
              MOV       AL,BUFFH
              MOV       DX,288H
              OUT       DX,AL

              MOV       AL,02H
              MOV       DX,28AH
              OUT       DX,AL
                           ;sleep
              PUSH      CX
              MOV       CX,1
              CALL      DELAY
              POP       CX

              MOV       AL,BUFFL
              MOV       DX,288H
              OUT       DX,AL

              MOV       AL,01H
              MOV       DX,28AH
              OUT       DX,AL

;sleep
              PUSH      CX
              MOV       CX,1
              CALL      DELAY
              POP       CX
              POP       DX
              DEC       DX
              CMP       DX,0
              JNE       REPDRAW

              PUSH      CX
              MOV       CX,10
              CALL      DELAY
              POP       CX


              MOV       AH,0BH
              INT       21H
              CMP       AL ,00H

              JE        REP1
       EXIT:
              RET
       DELAY  PROC      NEAR
              PUSH      SI
              PUSH      DI
              MOV       DI,60000
     DELAY0:  MOV       SI,CX
    DELAY01:  DEC       SI
              JNZ       DELAY01
              DEC       DI
              JNZ       DELAY0
              POP       DI
              POP       SI
              RET
       DELAY  ENDP
        MAIN  ENDP
     PROGNAM  ENDS
              END       START