DISCUL2:
  MOV  P1,#0
  CLR   WRR
  SETB  WRR
  DJNZ  R5,DISCUL2
  MOV  ADDRL,#0C8H
  MOV  ADDRH,#04FH    
  MOV   R4,#30
  LCALL  DISRED             
  MOV  ADDRL,#077H
  MOV  ADDRH,#046H        
  MOV   R4,#50
  LCALL  DISRED                    
  MOV  ADDRL,#086H
  MOV  ADDRH,#046H           
  MOV  R4,#50
  LCALL  DISRED              
  MOV  ADDRL,#0E5H
  MOV  ADDRH,#041H
  MOV  R4,#60
  LCALL  DISRED          
  MOV  ADDRL,#04CH
  MOV  ADDRH,#044H
  MOV  R4,#55
  LCALL  DISRED             
  MOV  ADDRL,#0C3H
  MOV  ADDRH,#045H
  MOV  R4,#52
  LCALL  DISRED          
  MOV  ADDRL,#018H
  MOV  ADDRH,#04BH
  MOV  R4,#25
  LCALL  DISCCO
  MOV  ADDRL,#06FH
  MOV  ADDRH,#03FH
  MOV  R4,#25
  LCALL  DISCCO
  MOV   ADDRL,#0CEH
  MOV   ADDRH,#03AH
  MOV  R4,#25
  LCALL  DISCCO
  MOV   ADDRL,#07DH
  MOV   ADDRH,#031H
  MOV   R4,#35
  LCALL  DISCCO
  MOV   ADDRL,#08CH
  MOV   ADDRH,#031H
  MOV   R4,#50
  LCALL  DISCCO
  MOV   ADDRL,#093H
  MOV   ADDRH,#02AH
  MOV   R4,#60
  LCALL  DISCCO
  MOV   ADDRL,#0C0H
  MOV   ADDRH,#048H
  MOV   R4,#20
  LCALL  DISBLU
  MOV   ADDRL,#00FH
  MOV   ADDRH,#036H
  MOV   R4,#20
  LCALL  DISBLU
  MOV   ADDRL,#016H
  MOV   ADDRH,#02FH
  MOV   R4,#30
  LCALL  DISBLU
  MOV   ADDRL,#015H
  MOV   ADDRH,#021H
  MOV   R4,#35
  LCALL  DISBLU
  MOV   ADDRL,#0CCH
  MOV   ADDRH,#01EH
  MOV   R4,#40
  LCALL  DISBLU
  MOV   ADDRL,#023H
  MOV   ADDRH,#013H
  MOV   R4,#50
  LCALL   DISBLU

  MOV  FCOLOR,#4
  MOV  ADDBL,#06DH
  MOV  ADDBH,#01
  MOV  CODEN,#04
  LCALL  WRCHINA
  MOV  FCOLOR,#0
  MOV  BCOLOR,#3
  MOV  CODEN,#10H
  LCALL  WRNUN
  MOV  CODEN,#02
  LCALL  WRCHINA
  LCALL  WRCHINA
  MOV  A,#4
  ADD  A,ADDBL
  MOV  ADDBL,A
  MOV  FCOLOR,#6
  MOV  CODEN,#04
  LCALL  WRCHINA
  MOV  FCOLOR,#0
  MOV  CODEN,#11H
  LCALL  WRNUN
  MOV  CODEN,#02
  LCALL  WRCHINA
  LCALL  WRCHINA
  MOV  A,#4
  ADD  A,ADDBL
  MOV  ADDBL,A
  MOV  FCOLOR,#1
  MOV  CODEN,#04
  LCALL  WRCHINA
  MOV  FCOLOR,#0
  MOV  CODEN,#12H
  LCALL  WRNUN
  MOV  CODEN,#02
  LCALL  WRCHINA
  LCALL  WRCHINA
  
  MOV  CODEN,#0
  MOV  ADDBL,#097H
  MOV  ADDBH,#01FH
  LCALL  WRCHINA
  LCALL  WRCHINA
  MOV  CODEN,#0AH
  LCALL  WRNUN
  MOV  CODEN,#0
  LCALL  WRCHINA
  LCALL  WRCHINA
  MOV  CODEN,#0BH
  LCALL  WRNUN
  MOV  CODEN,#0
  LCALL  WRCHINA
  LCALL  WRCHINA
  MOV  CODEN,#0CH
  LCALL  WRNUN
  MOV   CODEN,#0
  LCALL  WRCHINA
  LCALL  WRCHINA
  MOV   CODEN,#0DH
  LCALL  WRNUN
  MOV  CODEN,#0
  LCALL  WRCHINA
  LCALL  WRCHINA
  MOV  CODEN,#0EH
  LCALL  WRNUN
  MOV   CODEN,#0
  LCALL  WRCHINA
  LCALL  WRCHINA
  MOV   CODEN,#0FH
  LCALL  WRNUN

  MOV  ADDBL,#042H
  MOV  ADDBH,#06
  MOV  CODEN,#7
  LCALL  WRNUN
  MOV  CODEN,#0
  LCALL  WRNUN
  MOV  CODEN,#0
  LCALL  WRNUN
  MOV  CODEN,#6
  LCALL  DISPOP
  MOV  CODEN,#5
  LCALL  DISPOP
  MOV  CODEN,#4
  LCALL  DISPOP
  MOV  CODEN,#3
  LCALL  DISPOP
  MOV  CODEN,#2
  LCALL  DISPOP
  MOV  CODEN,#1
  LCALL  DISPOP
  MOV  CODEN,#0
  LCALL  DISPOP
 
  RET

DISPOP:
  MOV  A,#45H
  ADD  A,ADDBL
  MOV  ADDBL,A
  MOV  A,#3
  ADDC A,ADDBH
  MOV  ADDBH,A
  LCALL  WRNUN
  MOV  CODEN,#0
  LCALL  WRNUN
  MOV  CODEN,#0
  LCALL   WRNUN
  RET
 
DISBLU:
  LCALL  SETADDR
  MOV  R5,#3
DISBLU1:
  MOV  P1,#024H
  CLR  WRR
  SETB WRR
  MOV  P1,#092H
  CLR  WRR
  SETB WRR
  MOV  P1,#049H
  CLR   WRR
  SETB  WRR
  DJNZ  R5,DISBLU1
  MOV   A,#120
  ADD   A,ADDRL
  MOV   ADDRL,A
  CLR   A
  ADDC  A,ADDRH
  MOV   ADDRH,A
  DJNZ  R4,DISBLU
  RET
DISCCO:
  LCALL  SETADDR
  MOV  R5,#3
DISCC1:
  MOV   P1,#0DBH
  CLR  WRR
  SETB  WRR
  MOV   P1,#06DH
  CLR   WRR
  SETB  WRR
  MOV   P1,#0B6H
  CLR   WRR
  SETB  WRR
  DJNZ  R5,DISCC1
  MOV   A,#120
  ADD   A,ADDRL
  MOV   ADDRL,A
  CLR   A
  ADDC  A,ADDRH
  MOV   ADDRH,A
  DJNZ  R4,DISCCO
  RET
  
DISRED:
  NOP           ;MOV  R4,#30
DISCUL4:
  LCALL  SETADDR
  MOV  R5,#3
DISCUL3:
  MOV  P1,#092H
  CLR   WRR
  SETB  WRR
  MOV  P1,#049H
  CLR   WRR
  SETB  WRR
  MOV  P1,#024H
  CLR   WRR
  SETB  WRR
  DJNZ  R5,DISCUL3
  MOV   A,#120
  ADD   A,ADDRL
  MOV   ADDRL,A
  CLR   A
  ADDC  A,ADDRH
  MOV   ADDRH,A
  DJNZ  R4,DISCUL4
  RET


;;===============================================================================
;顯示同一顏色
DISME:
  MOV  A,#0
  CJNE A,FCOLOR,DISME1
  MOV  P1,#0
  CLR   WRR
  SETB  WRR
  CLR   WRR
  SETB  WRR
  CLR   WRR
  SETB  WRR
  RET
DISME1:
  MOV  A,#1
  CJNE A,FCOLOR,DISME2
  MOV  P1,#024H
  CLR   WRR
  SETB  WRR
  MOV  P1,#092H
  CLR   WRR
  SETB  WRR
  MOV  P1,#049H
  CLR   WRR
  SETB  WRR
  RET
DISME2:
  MOV  A,#2
  CJNE A,FCOLOR,DISME3
  MOV  P1,#049H
  CLR  WRR
  SETB WRR
  MOV  P1,#024H
  CLR   WRR
  SETB  WRR
  MOV  P1,#092H
  CLR   WRR
  SETB  WRR
  RET
DISME3:
  MOV  A,#3
  CJNE  A,FCOLOR,DISME4
  MOV  P1,#06DH
  CLR   WRR
  SETB  WRR
  MOV  P1,#0B6H
  CLR   WRR
  SETB  WRR
  MOV  P1,#0DBH
  CLR   WRR
  SETB  WRR
  RET
DISME4:
  MOV  A,#4
  CJNE A,FCOLOR,DISME5
  MOV  P1,#092H
  CLR   WRR
  SETB  WRR
  MOV  P1,#049H
  CLR   WRR
  SETB  WRR
  MOV  P1,#24H
  CLR   WRR
  SETB   WRR
  RET
DISME5:
  MOV  A,#5
  CJNE  A,FCOLOR,DISME6
  MOV  P1,#0B6H
  CLR   WRR
  SETB  WRR
  MOV  P1,#0DBH
  CLR   WRR
  SETB  WRR
  MOV  P1,#06DH
  CLR   WRR
  SETB  WRR
  RET
DISME6:
  MOV  A,#6
  CJNE A,FCOLOR,DISME7
  MOV  P1,#0DBH
  CLR   WRR
  SETB  WRR
  MOV  P1,#06DH
  CLR   WRR
  SETB  WRR
  MOV  P1,#0B6H
  CLR   WRR
  SETB  WRR
  RET
DISME7:
  MOV  P1,#0FFH
  CLR  WRR
  SETB WRR
  CLR  WRR
  SETB  WRR
  CLR  WRR
  SETB  WRR
  RET

;;================================================================================
;清屏
CLREA:
  MOV  ADDRL,#0