;=============================================
B_MOV8W:;個位的9位分為3份,放到3個筆段寄存器的最高2位去
MOV TTL,A
BTS0 R.0
BSET SEG0H.0
RLCM TTL
RLCM SEG0;左移2位,一共8位
RLCM TTL
RLCM SEG0
BTS0 TTL.7
BSET SEG1H.0 ;每3位的頭1位是到高字節寄存器
RLCM TTL;白白左移1位,
RLCM TTL;左移2位,
RLCM SEG1
RLCM TTL
RLCM SEG1
BTS0 TTL.7
BSET SEG2H.0
RLCM TTL;白白左移1位,
RLCM TTL;左移2位,
RLCM SEG2
RLCM TTL
RLCM SEG2
ret
B_MOV8WA:
MOV TTL,A
BTS0 R.0
BSET FC
BTS1 R.0
BCLR FC
RLCM SEG0
RLCM TTL
RLCM SEG0;左移2位,一共8位
RLCM TTL
RLCM SEG0
RLCM TTL;左移2位,
RLCM SEG1
RLCM TTL
RLCM SEG1
RLCM TTL
RLCM SEG1
RLCM TTL
RLCM SEG2
RLCM TTL;左移2位,
RLCM SEG2
RLCM TTL
RLCM SEG2
ret
;============================================================
ISR:; 中斷服務子程序
PUSH
B_T0ISR:
BTS1 FT0IRQ
JMP B_POP
BCLR FT0IRQ
MOV_ P1M,#00H
BTS0 FPSD;顯示采用雙向倒相方式進行
JMP B_1111;但是,似乎單向方式也是一樣的.
;試驗證明,采用反相方式是更加穩定的.
MBZ0 XSJS
JMP @F
BCLR FP50
BTS0 SEG0H.0
BSET FP50 ;B2
;-----如果是使用 MOV P5,A,就要預先有一個寄存器來轉移這個數據
MOV_ P2,SEG0;F,A,B,F,A,B,*
BSET FP17M
BSET FP17
INCMS XSJS
JMP B_TC0;B_LOOP
@@:
MBC01 XSJS
JMP @F
BCLR FP50
BTS0 SEG1H.0
BSET FP50 ;C2
MOV_ P2,SEG1;E,G,C,E,G,C,*
BSET FP16M
BSET FP16
INCMS XSJS
JMP B_TC0;B_LOOP
@@:
BCLR FP50
BTS0 SEG2H.0
BSET FP50 ;LO
MOV_ P2,SEG2;*,D4,*,DP3,D3,*,COL
BSET FP15M
BSET FP15
CLR XSJS
BSET FPSD
JMP B_TC0
B_1111:
MBZ0 XSJS
JMP @F
BSET FP50 ;LO
BTS0 SEG0H.0
BCLR FP50
MOV A,SEG0;F,A,B,F,A,B,*
XOR A,#0FFH
MOV P2,A
BSET FP17M
BCLR FP17
INCMS XSJS
JMP B_TC0;B_LOOP
@@:
MBC01 XSJS
JMP @F
BSET FP50 ;LO
BTS0 SEG1H.0
BCLR FP50
MOV A,SEG1;E,G,C,E,G,C,*
XOR A,#0FFH
MOV P2,A
BSET FP16M
BCLR FP16
INCMS XSJS
JMP B_TC0;B_LOOP
@@:
BSET FP50 ;LO
BTS0 SEG2H.0
BCLR FP50
MOV A,SEG2;*,D4,*,DP3,D3,*,COL
XOR A,#0FFH
MOV P2,A
BSET FP15M
BCLR FP15
CLR XSJS
BCLR FPSD
B_TC0:
MOV_ T0C,#131
INCMS SZ03S
CMPRS1 SZ03S,#50;25;/50;30
JMP B_POP
CLR SZ03S
BSET FK03S
;///5*30=150,
INCMS SZ05S
CMPRS1 SZ05S,#3;5
JMP B_POP
CLR SZ05S
CPLF_ FSS05S
BSET FK05S
BSET FK03S
;-----------------------------------
B_POP:;2604 退出中斷
POP
RETI
;*************************************************
B_KEY:
RET
;==================================================
B_ADZH:
RET
;=======================================
B_READ:;AD 通知讀數
RET
;================================================================
B_ADCULI:
RET
;================================================================
B_OUT:
RET
;==================================================================
B_ZBLED:
RET
;準備顯示數據
MBZ0F KEYJS
JMP B_XSAD
BTS0 FK2S
JMP @F
BTS0 FSS05S
JMP B_XSXXX
@@:
MBC01 KEYJS
JMP @F
MOV_ TTL,HIL
MOV_ TTH,HIH
JMP B_HEX_BCD
@@:
MBC02 KEYJS
JMP @F
MOV_ TTL,LOL
MOV_ TTH,LOH
JMP B_HEX_BCD
@@:
MBC03 KEYJS
JMP B_XSAD
MOV_ XSQW,#11110111B ;-
JMP B_GGG
B_XSAD:
BTS1 F_DIS
RET
BCLR F_DIS
BTS1 FHHH
JMP @F
MOV_ XSQW,#01100001B
MOV XSBW,A
MOV XSSW,A
MOV XSGW,A
RET
@@:
MOV_ TTL,DVL
MOV_ TTH,DVH
JMP B_HEX_BCD
B_XSXXX:
MBC01 KEYJS
JMP @F
MOV_ XSQW,#01100001B;/H
JMP B_GGG
@@:
MBC02 KEYJS
JMP @F
MOV_ XSQW,#00111101B;/L
JMP B_GGG
@@:
MBC03 KEYJS
RET
MOV_ XSQW,#01110000B;/P
B_GGG:
MOV_ XSBW,#11110111B ;-
MOV XSSW,A
MOV XSGW,A
RET
;====================================
B_HEX_BCD:;轉換為十進制BCD碼
CLR TQW
CLR TBW
CLR TSW
B_BCD0:
CLR R
MOV A,TTL
SUB A,#100
MOV TTL,A
MOV A,TTH
SBC A,R
MOV TTH,A
BTS1 FC
JMP @F
B_BCD1:
INCMS TBW
NOP
CMPRS1 TBW,#10
JMP B_BCD0
CLR TBW
INCMS TQW
JMP B_BCD0
@@:
MOV A,#100
ADD TTL,A
X_BCD1:
MOV A,TTL
SUB A,#10
BTS1 FC
JMP @F
MOV TTL,A
INCMS TSW
JMP X_BCD1
@@:
MOV A,TTL
; MOV XSGW,A
; MOV A,TGW
CALL LED_TABLE
MOV XSGW,A
MOV A,TSW
CALL LED_TABLE
MOV XSSW,A
MOV A,TBW
CALL LED_TABLE
MOV XSBW,A
MOV A,TQW
CALL LED_TABLE
MOV XSQW,A
RET
;========================================
B_LEDXS:
RET
;===================================
ENDP
(完成----我無法上傳壓縮包文件,僅可以分幾次完成一份文章!)
