;用8255控制八段數碼管

; 1. 啟動偉福軟件界面,連接好實驗儀
; 2. 8255的CS接CS0,
; 3. 8255的PORTA口的PA0~PA7接段碼A~H,
; 4. 8255的PORTC口的PC0~PC5接位碼G0~G5
; 5. 若程序運行正常,會在八段管上顯示 "123456"

             mode  equ  082h   ; 方式0，PA，PC輸出，PB輸入
             PortA equ  8000h  ; Port A
             PortB equ  8001h  ; Port B
             PortC equ  8002h  ; Port C
             CAddr equ  8003h  ; 控制字地址

             org   0000h
             mov   a, #mode
             mov   dptr, #CAddr
             movx  @dptr,a     ; 輸出控制字

EX_A:
             mov   b,#01H      ; 位碼,顯示最低位
             ;======== 顯示數字"6"
             mov   dptr,#LEDMAP
             mov   a,#6
             movc  a,@a+dptr   ; 取段碼
             mov   dptr,#PortA

             movx  @dptr,a     ; 段碼輸出到PortA
             mov   dptr,#PortC
             mov   a,b
             movx  @dptr,a     ; 位碼輸出到PORTC
             rl    a           ; 準備顯示下一位
             mov   b,a
             mov   r6,#1
             call  delay       ; 延時
             mov   a,#0
             movx  @dptr,a     ; 關閉顯示

             ;======== 顯示數字"5"
             mov   dptr,#LEDMAP
             mov   a,#5
             movc  a,@a+dptr   ; 取段碼
             mov   dptr,#PortA

             movx  @dptr,a     ; 段碼輸出到PortA
             mov   dptr,#PortC
             mov   a,b
             movx  @dptr,a     ; 位碼輸出到PORTC
             rl    a           ; 準備顯示下一位
             mov   b,a
             mov   r6,#1
             call  delay       ; 延時
             mov   a,#0
             movx  @dptr,a     ; 關閉顯示
             mov   r6,#1
             call  delay       ; 延時
             mov   a,#0
             movx  @dptr,a     ; 關閉顯示

             ;======== 顯示數字"4"
             mov   dptr,#LEDMAP
             mov   a,#4
             movc  a,@a+dptr   ; 取段碼
             mov   dptr,#PortA

             movx  @dptr,a     ; 段碼輸出到PortA
             mov   dptr,#PortC
             mov   a,b
             movx  @dptr,a     ; 位碼輸出到PORTC
             rl    a           ; 準備顯示下一位
             mov   b,a
             mov   r6,#1
             call  delay       ; 延時
             mov   a,#0
             movx  @dptr,a     ; 關閉顯示

             ;======== 顯示數字"3"
             mov   dptr,#LEDMAP
             mov   a,#3
             movc  a,@a+dptr   ; 取段碼
             mov   dptr,#PortA

             movx  @dptr,a     ; 段碼輸出到PortA
             mov   dptr,#PortC
             mov   a,b
             movx  @dptr,a     ; 位碼輸出到PORTC
             rl    a           ; 準備顯示下一位
             mov   b,a
             mov   r6,#1
             call  delay       ; 延時
             mov   a,#0
             movx  @dptr,a     ; 關閉顯示

             ;======== 顯示數字"2"
             mov   dptr,#LEDMAP
             mov   a,#2
             movc  a,@a+dptr   ; 取段碼
             mov   dptr,#PortA

             movx  @dptr,a     ; 段碼輸出到PortA
             mov   dptr,#PortC
             mov   a,b
             movx  @dptr,a     ; 位碼輸出到PORTC
             rl    a           ; 準備顯示下一位
             mov   b,a
             mov   r6,#1
             call  delay       ; 延時
             mov   a,#0
             movx  @dptr,a     ; 關閉顯示

             ;======== 顯示數字"1"
             mov   dptr,#LEDMAP
             mov   a,#1
             movc  a,@a+dptr   ; 取段碼
             mov   dptr,#PortA

             movx  @dptr,a     ; 段碼輸出到PortA
             mov   dptr,#PortC
             mov   a,b
             movx  @dptr,a     ; 位碼輸出到PORTC
             rl    a           ; 準備顯示下一位
             mov   b,a
             mov   r6,#1
             call  delay       ; 延時
             mov   a,#0
             movx  @dptr,a     ; 關閉顯示

             ljmp  EX_A        ; 循環執行

delay:
             mov   r7,#0
ddd:         djnz  r7,ddd
             djnz  r6,ddd
             ret
LEDMAP:                        ; 八段管顯示碼
       db    3fh, 06h, 5bh, 4fh, 66h, 6dh, 7dh, 07h
       db    7fh, 6fh, 77h, 7ch, 39h, 5eh, 79h, 71h
             end