C8279 EQU 239H
D8279 EQU 238H
DATA SEGMENT
DATA ENDS
CODE SEGMENT
ASSUME CS:CODE,DS:CODE

  START:PUSH CS
POP DS
MOV DX,C8279
MOV AL,00H
MOV AL,34H
OUT DX,AL
NOP
MOV AL,0D1H
OUT DX,AL
TT:IN AL,DX
AND AL,0FH
JZ TT

MOV DX,C8279
MOV AL,00H
OUT DX,AL
MOV DX,D8279
IN AL,DX
AND AL,3FH
MOV AH,AL
LEA BX,LED
XLAT
OUT DX,AL
  MOV AL,AH

CMP AL,00H
JNE Z1
CALL NO1

Z1:CMP AL,01H
 JNE Z2
CALL NO2

Z2:CMP AL,02H
    JNE Z3
CALL NO3

Z3:CMP AL,03H
JNE Z4
CALL NO4

Z4:CMP AL,04H
JNE Z5
CALL NO5

Z5:CMP AL,05H
JNE Z6
CALL NO6

Z6:CMP AL,06H
JNE Z7
CALL NO7

Z7:CMP AL,07H
JNZ Z8
CALL NO8

Z8:CMP AL,08H
  jnz Z9
  CALL NO9
  
Z9:cmp al,09h
  jnz zn
    CALL N1O    
zn:nop
   hlt
NO1:MOV DX,200H
    MOV AL,7FH
    MOV CX,26
P:   OUT DX,AL
    CALL DLY
     DEC AL
     ROR AL,1
     CALL DLY
     LOOP P
     HLT

NO2:   MOV DX,200H
        MOV AL,0FFH
         MOV CX,25
     P1:OUT DX,AL
          DEC AL
          OUT DX,AL
         CALL DLY
         ROL AL,1
       LOOP P1
      HLT

NO3:MOV DX,200H
    MOV AL,7FH
    MOV CX,24
  P2:OUT DX,AL
     CALL DLY
     ROR AL,1
     LOOP P2
     HLT
   
NO4: MOV DX,200H
      MOV AL,0FEH
      MOV CX,24
   P3:OUT DX,AL
      CALL DLY
      ROL AL,1
      LOOP P3
  HLT 
   
NO5:mov dx,200h
      MOV CX,8
   A: MOV AL,0FFH
      OUT DX,AL
      call dly
      mov al,7Eh
    out dx,al
    call dly
   mov al,3ch
    out dx,al
    call dly
   mov al,18h
    out dx,al
   call dly
     mov al,00h
    out dx,al
    call dly
   LOOP A
HLT

NO6:mov dx,200h
     MOV CX,8
   xq:mov al,00h
   out dx,al
    call dly
    mov al,18h
   out dx,al
   call dly
   mov al,3ch
   out dx,al
   call dly
   mov al,7eh
   out dx,al
    call dly
   mov al,0ffh
   out dx,al
   call dly
LOOP xq
HLT

NO7:mov dx,200h
    MOV CX,16
 x2:    mov al,0fh
    out dx,al
   call dly
   mov al,0f0h
   out dx,al
   call dly
 LOOP x2
HLT
   
NO8:   MOV  DX,200H
       mov cx,2
    l:   nop
    X9:MOV  CX,3
        CALL  SA
        MOV  CX,3
       CALL  SB
        MOV  CX,3
       CALL  SC
       MOV  CX,3
       CALL  SD
       jmp X9
       loop l
       hlt
    SA:MOV  AL,3FH
        OUT  DX,AL
          CALL  DLY
         CALL  KK
         LOOP  SA
         NOP
          RET
    SB:MOV  AL,0CFH
        OUT  DX,AL
        CALL  DLY
        CALL  KK
        LOOP  SB
        NOP
        RET
    SC:MOV  AL,0F3H
       OUT  DX,AL
       CALL  DLY
        CALL  KK
        LOOP  SC
        NOP
       RET
    SD:MOV AL,0FCH
        OUT  DX,AL
       CALL  DLY
       CALL  KK 
        LOOP  SD
       NOP
   KK: MOV  AL,0FFH ;全滅
       OUT  DX,AL
       CALL  DLY
       RET
  
NO9:   
        MOV  DX,200H
       MOV  CX,10
    MX:MOV  AL,0FFH
     	OUT  DX,AL
       CALL  DLY
    MOV AL,00H
    OUT  DX,AL
     CALL  DLY
     LOOP  MX     
    RET
    
N1O:MOV DX,200H
      MOV AL,0FFH
     MOV CX,5
      CALL CC
    mov cx,8
      CALL FF
  CC:
      OUT DX,AL
      MOV AL,0C3H
      OUT DX,AL
      CALL DLY
      MOV AL,3CH
      OUT DX,AL
      CALL DLY
      LOOP CC
      RET
  FF: 
      MOV AL,33H
      OUT DX,AL
      CALL DLY
      MOV AL,0CCH
      OUT DX,AL
      CALL DLY
      loop ff
      ret
      
DLY:MOV SI,200
 L1:MOV DI,200
 L2:DEC DI
    JNZ L2
    DEC SI
    JNZ L1
    RET
    
    
   LED DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH,77h,7ch,39h,5eh,79h,71h
    
    CODE ENDS
    END START