?? 帶(- . )輸入健自動左移程序4字節bcd碼版.asm
字號:
QQ BIT 01H ;回車置0顯存空
QB BIT 02H ;小數點
QA BIT 03H ;有(X. )數
QC BIT 04H ;有"-"
QS BIT 05H ;有"-0"
GG BIT 06H ;顯存滿
ST BIT 07H ;整數夠長
QDE EQU 21H ;整數長度
QDB EQU 22H ;小數長度
QQQ EQU 23H ;總長6字節顯示段碼(徐最高字節符號位)
QSS EQU 24H ;輸入的健值
ODB EQU 25H ;記錄區指針
OBB EQU 26H ;用戶定義
;***********************************
;入口:QSS健值;輸出十進制BCD數在42H(千百)41H(十個).43H-44H(4位小數)
; 45H(符號正00H,負0FFH)
;顯示段碼在36H(符號位).....30H共7字節
;-----復位------OK!-----經驗證------------
ORG 00H
LJMP ASDA
ORG 30H
; 上電復位初始化
ASDA: MOV QSS, #00H
MOV QQQ, #00H
MOV QDB, #00H
MOV QDE, #00H
MOV 20H, #00H ;清標志
MOV R0, #38H ;清段碼區
MOV R2, #9 ;9字節(每位顯示占1字節)
xx: MOV @R0, #0FFH
DEC R0
DJNZ R2, XX ;清段碼區
MOV R0, #45H ;清記錄數據區
MOV R2, #13
XC: MOV @R0, #00H
DEC R0
DJNZ R2, XC
MOV ODB, #40H ;初始記錄區指針
MOV R0, #30H ;弟1位顯示0
MOV @R0, #0C0H ;0C0H=0
;*********************************
; 輸入健值:
mov qss, #0 ;顯示
Acall key
MOV QSS, #5
ACALL KEY
MOV QSS, #0
ACALL KEY
MOV QSS, #2
ACALL KEY
MOV QSS, #12
ACALL KEY
MOV QSS, #0
ACALL KEY
MOV QSS, #3
ACALL KEY
MOV QSS, #0
ACALL KEY
MOV QSS, #5
ACALL KEY
MOV QSS, #6
ACALL KEY
MOV QSS, #2
ACALL KEY
MOV QSS, #9
ACALL KEY
MOV QSS, #10
ACALL KEY
AA:
MOV R0, 42H
MOV R1, 41H
MOV R2, 43H
MOV R3, 44H
sjmp $
;*************************************
KEY: MOV A, QSS ;健值QSS
CJNE A, #10, DDL ;不是回車
ACALL CCSA ;轉十進制BCD數
ACALL FIL2
RET
DDL: JB QQ, OPA ;顯存不空
CJNE A, #11, DDS ;是"-"健?
SETB QC ;有"-"
MOV @R0, #0BFH ;弟1位上顯"-"
RET
DDS: CJNE A, #0, FVC ;是0健?
JNB QC, MMX ;無"-"標志返回
JNB QS, BEC ;無"-0"
ACALL DDIP ;不移動,顯示當前
SETB QS ;有"-0"
RET
BEC: ACALL XXM ;左移動1次
SETB QS ;有"-0"
ACALL DDIP ;顯示當前數
MMX: RET
FVC: CJNE A, #12, OPK ;是"."健?
SETB QB ;有"."標志
SETB QA ;"X."
SETB QQ ;置顯存不空
ACALL JJJ ;弟1位加小數點
RET
OPK: JNB QC, BBD ;無"-"標志
JNB QS, JJKB ;有"-0"?
SETB QQ ;置顯存不空不移動
ACALL DDIP ;顯示當前數
INC QDE ;整數長度加1
INC QQQ ;總長加1
ACALL CABS ;記錄數據
RET
JJKB: ACALL XXM ;左移動1次
INC QDE ;整數長度加
INC QQQ ;總長加1
SETB QQ ;置顯存不空
ACALL DDIP ;顯示當前數
ACALL CABS ;記錄數據
RET
BBD: INC QDE ;整數長度加1
INC QQQ ;總長加1
SETB QQ ;置顯存不空
ACALL DDIP ;顯示當前數
ACALL CABS ;記錄數據
RET
;-----------------------------------------
OPA: JB GG, FFX ;顯存滿不再輸入
CJNE A, #12, DDE ;不是小數點移動1次
;-------是小數點-不移動------------------
CVC: JB QB,FFX ;有"."返回
SETB QB ;置有小數點
SETB QA ;置有(X. )數
ACALL JJJ ;弟1位加小數點
FFX: RET
DDE: ACALL XXM ;左移動1次
ASD: JNB QA, XZA ;有(X. ) ?
INC QDB ;小數長度加1
INC QQQ ;總長加1
ACALL DDIP ;顯示當前數
ACALL CABS ;記錄數據
MOV A, QDB ;判小數長度
CJNE A, #4, LLK ;未夠4字節
SETB GG ;滿
LLK: RET
XZA: INC QDE ;整數長度加1
INC QQQ ;總長加1
ACALL DDIP ;顯示當前數
ACALL CABS ;記錄數據
MOV A, QDE ;判整數長度
CJNE A, #4,BBB ;未夠4字節
SETB ST ;整數滿
BBB: RET
;*******************************************
;---------左移1次顯示數據----------------------
XXM: MOV R0, #36H ;左移
DKE1: DEC R0 ;指向下個顯存單元(左移動)
MOV A, @R0 ;取顯示數
INC R0 ;顯示左移1位
MOV @R0, A ;35H-->36H...
DEC R0 ;指向顯存35H單元...
CJNE R0,#30H,DKE1 ;左移完7位顯示
RET
;----------在弟1位加小數點-----------------
JJJ: MOV R0, #30H ;在弟1位加小數點
MOV A, @R0
CLR ACC.7
MOV @R0, A
RET
;-----------顯示當前數------------
DDIP: MOV R0, #30H ;顯示當前數
MOV A, QSS
MOV DPTR, #TAB
MOVC A, @A+DPTR
MOV @R0, A ;在弟1位
RET
;---------記錄健值------------
CABS: MOV A, QSS ;健值
CJNE A, #12, PCAD
SJMP SOUT ;不記錄
PCAD: CJNE A, #11, ASDB
SJMP SOUT ;不記錄
ASDB: CJNE A, #10, PPUT
SJMP SOUT ;不記錄
PPUT: MOV R1, ODB ;指針
CJNE R1,#38H,MNP ;判界
MOV ODB, #40H ;初始記錄區指針
MNP: MOV @R1, A ;記錄健值
DEC ODB
SOUT: RET
;***************************************
CCSA: MOV R1, #40H ;記錄區指針
MOV R0, #41H ;BCD區41H.42H整數區
MOV R2, #2H
MOV A, QDE ;整長
JZ FDS ;全為小數
;--------整數+小數---------------------
MOV A, #41H
SUBB A, QDE ;得到整數最尾位址
MOV OBB, A
CJNE A, #40H,DAS
;----只有1位數據-------------
MOV R1, #40H ;地址
MOV A, @R1 ;取數
MOV @R0, A ;存入整數區41H
SJMP OKP
;----有2位數據--------------
DAS: CJNE A, #3FH,FSS ;可合1字節
MOV R1, #40H
ACALL GBKS ;合1字節
SJMP OKP
;-------有3位數據-----------
FSS: CJNE A, #3EH,DES
MOV R0, #41H
MOV R1, OBB ;可合1.5字節
MOV A, @R1
MOV B, A
INC R1
MOV A, @R1
ORL A, B
MOV @R0, A
INC R0
INC R1
MOV A, @R1 ;取數
MOV @R0, A
SJMP OKP
;--------有4位數據----------
DES: MOV R4, #2 ;可以合2字節
MOV R1, #40H
MOV R0, #42H
FFD: ACALL GBKS ;合1字節
DEC R0
DEC R0
DJNZ R4, FFD
OKP: MOV A, OBB
DEC A ;指向最高位小數
MOV R1, A ;小數指針
SJMP FDS ;處理小數
GBKS: MOV A, @R1 ;合1字節
SWAP A
MOV B, A
DEC R1
MOV A, @R1 ;取數
ORL A, B
MOV @R0, A
INC R0
DEC R1
RET
;-------------處理小數------------------
FDS: MOV R0, #43H
FDC: MOV A, @R1 ;處理小數
SWAP A
MOV B, A
DEC R1
MOV A, @R1
ORL A, B ;合1字節
MOV @R0, A ;存(43H..44H)是小數
DEC R1
INC R0
DJNZ R2, FDC
JNB QC, XDD ;無" -"
MOV 45H, #0FFH
XDD: RET
;**************************************************
;----------清顯區-所有標志---------
FIL2: MOV R2, #9
MOV R0, #38H
PPH: MOV @R0, #0FFH
DEC R0
DJNZ R2, PPH ;清段碼區
MOV R0, #40H ;清記錄健值區
MOV R2, #8
XCV: MOV @R0, #00H
DEC R0
DJNZ R2, XCV
MOV 20H, #00 ;清所有標志位
MOV 21H, #00 ;整數長度
MOV 22H, #00 ;小數長度
MOV 23H, #00 ;總長
MOV 24H, #00 ;輸入的健值
RET
TAB:
DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H, 0FFH, 0BFH,7FH;共陽
;顯示 0 1 2 3 4 5 6 7 8 9 回車 - .
;健值 0 1 2 3 4 5 6 7 8 9 10 11 12
;*************************************************************
;-------------掃描4位顯示-----------------------------------------
DISP: MOV R0, #30H ;顯示單元指針
MOV R2, #0F7H ;位
LOP1: MOV P0, #0FFH ;關顯示
MOV A, @R0 ;取數
MOV P0, A ;送段
MOV P1, R2 ;送位
ACALL D1MS
INC R0 ;調顯示單元指針
MOV A, R2 ;調位
RR A
MOV R2, A ;左移,保存位
JB ACC.7, LOP1 ;掃描完4位
RET
;--------------延時1MS----------------
D1MS: MOV R7,#0AH ;1MS
LOOP1: MOV R6,#32H
LOOP2: DJNZ R6,LOOP2
DJNZ R7,LOOP1
RET
END
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -