?? 1.19無聯機有錯誤碼版本.asm
字號:
;正式版,采用簡化的抄表聯絡,解決顯示及存取E2PROM的BUG,提高鍵盤響應速度.
;非聯機狀態P2.2為高電平
;將聯機改為中斷方式,可連續讀取抄表器數據
;為與網抄兼容,不采用校驗,發送命令時TB8=1,SM2=0
;加大存儲容量,最多可存36戶
;每戶分配128字節存儲空間
;兼容485網抄,發送機號時主機波特率為4800
;;;;2009-10-11改紅外抄表器程序,接收單相射頻卡電表數據;;;;;;;
CWADD1 EQU 2C00H ;寫指令代碼地址(E1)
CRADD1 EQU 2D00H ;讀狀態字地址(E1)
DWADD1 EQU 2E00H ;寫顯示數據地址(E1)
DRADD1 EQU 2F00H ;讀顯示數據地址(E1)
CWADD2 EQU 4C00H ;寫指令代碼地址(E2)
CRADD2 EQU 4D00H ;讀狀態字地址(E2)
DWADD2 EQU 4E00H ;寫顯示數據地址(E2)
DRADD2 EQU 4F00H ;讀顯示數據地址(E2)
DOG BIT P2.7 ;喂狗線
CTRL232 BIT P2.2 ;MAX232控制線
SCTRL BIT P3.2 ;串口控制(0-封鎖紅外發射接收;1-開啟紅外發射接收)
BUSY BIT P3.3 ;微打忙輸出標志(1-忙)
SCL BIT P3.5 ;24C64的時鐘端
SDA BIT P3.4 ;24C64的數據端
DISMOD BIT 00H ;顯示模式(0-正常顯示;1-反白顯示)
FINISH BIT 02H ;當前操作完成標志(不管成功,失敗)
SUCCESS BIT 03H ;當前操作成功標志
RECSUC BIT 05H ;串行接收成功
STATE EQU 10H ;系統狀態標志(0-待機狀態;1-抄表狀態;2-查詢狀態;3-設置狀態;4-聯機狀態)
KEYNUM EQU 11H ;鍵號
DAT16H EQU 12H
DAT16L EQU 22H
ADDRH EQU 13H
ADDRL EQU 14H ;讀寫AT24C64的首地址
DINT EQU 15H ;15-16H(BCD碼)
DSMALL EQU 17H ;BCD碼
KINBUF EQU 18H ;鍵盤輸入緩沖區,4字節
DISBUF EQU 1CH ;4字節
; 20H,21H用于位定義
JIHAOH EQU 23H ;機號高位(兩位BCD碼)
JIHAOL EQU 24H ;機號低位
DLCNT EQU 25H ;延時計數值
COUNT EQU 26H ;讀寫24C02數據個數
COUNT2 EQU 27H
TMP EQU 28H
; 程序變量定義,根據用戶平臺提供的內部資源修改
COM EQU 29H ;指令碼寄存器
DAT1 EQU 2AH ;數據寄存器
O_XL EQU 2BH ;列地址(0~77H)
O_YL EQU 2CH ;在顯示字符時定義為頁地址 D1,D0: 頁地址
;并且 D7: 字符體 D7=0為6x8點陣
; D7=1為8x8點陣
;在繪點顯示時定義為行地址(0-31)
;其中 D7:為點標志 "1"為置點
; "0"為清點
CODE EQU 2DH ;字符代碼
COUNT1 EQU 2EH ;計數器1
PARA1 EQU 3DH ;液晶模塊參數 MGLS12232
SCNT EQU 2FH ;串行接收計數
DATNUM EQU 30H ;數據個數
DAT EQU 40H ;數據存儲區
ORG 0000H
LJMP START
ORG 0023H
;LJMP SFW ;串口中斷
ORG 0030H
START: MOV SP,#0E0H
MOV TMOD,#20H ;設置定時器1為模式2(自動再裝入)
MOV TH1,#0E8H
MOV TL1,#0E8H
SETB TR1; ;啟動定時器1工作
MOV SCON,#050H ;設置串行口為模式1, 1起; 8數; 1結束
MOV PCON,#00H ;波特率在11.0592M時為1200波特
LCALL INT ;液晶初始化子程序
LCALL CLEAR ;清顯示RAM子程序(清屏)
LCALL DISTITL ;標題顯示程序段
LCALL CLEAR
LCALL DISTITL ;顯示標題程序段
CLR DISMOD ;正常顯示 0:正常,1反白
MOV STATE,#00H ;待機狀態 STATE EQU 10H 系統狀態標志(0-待機狀態;1-抄表狀態;2-查詢狀態;3-設置狀態;4-聯機狀態)
MOV JIHAOH,#00H
MOV JIHAOL,#01H
CLR SUCCESS ;SUCCESS BIT 03H ;當前操作成功標志
CLR FINISH ;FINISH BIT 02H ;當前操作完成標志(不管成功,失敗)
CLR RECSUC ;RECSUC BIT 05H ;串行接收成功
SCAN: MOV A,STATE
CJNE A,#00H,TSTAT00;非待機狀態則轉
;==================================================================================待機狀態=====================-
LJMP DSTATE0 ;待機狀態
TSTAT00:LJMP TSTATE1
DSTATE0:LCALL SCANKEY ; 調鍵盤掃描程序,鍵值存KEYNUM中,無鍵值則KEYNUM中存'0FFH'
MOV A,KEYNUM
CJNE A,#0FFH,DKEY0 ;有鍵值則轉
LCALL DLY10MS
LJMP SCAN ;無鍵按下
DKEY0: CJNE A,#00H,DKEY01;抄表鍵
;---------------------------------------------------------------待機狀態-抄表鍵(00H)------------------------------
LJMP DKEY00
DKEY01: LJMP DKEY1
DKEY00: MOV STATE,#01H ;設置為抄表狀態
MOV JIHAOH,#00H
MOV JIHAOL,#01H
;MOV HUHAO,#01H
;CLR FLAG
CLR FINISH
CLR SUCCESS
LCALL CLEAR
CLR DISMOD
LCALL DISJH ;顯示"機號"
SETB DISMOD
LCALL DISJIHAO ;反白顯示機號
CLR DISMOD
MOV O_YL,#00H
MOV O_XL,#00H
MOV CODE,#06H
LCALL CCW_PR ;"抄"
MOV O_YL,#00H
MOV O_XL,#10H
MOV CODE,#07H
LCALL CCW_PR ;"表"
LJMP SCAN
DKEY1: CJNE A,#01H,DKEY02;查詢鍵
;-------------------------------------------------------------待機狀態-查詢鍵(01H)------------------------------------
LJMP DKEY03
DKEY02: LJMP DKEY2
DKEY03: MOV STATE,#02H ;設置為查詢狀態
MOV JIHAOH,#00H
MOV JIHAOL,#01H
CLR FINISH
CLR SUCCESS
LCALL CLEAR
CLR DISMOD
LCALL DISJH ;顯示"機號"
SETB DISMOD
LCALL DISJIHAO ;反白顯示機號
MOV O_YL,#00H
MOV O_XL,#00H
MOV CODE,#1BH
LCALL CCW_PR ;"查"
MOV O_YL,#00H
MOV O_XL,#10H
MOV CODE,#1CH
LCALL CCW_PR ;"詢"
LJMP SCAN
DKEY2: CJNE A,#02H,DKEY04;設置表號鍵
;-----------------------------------------------------------待機狀態-設置鍵(02H)-----------------------------
LJMP DKEY05
DKEY04: LJMP DKEY3
DKEY05: MOV STATE,#03H ;設置為設置狀態
MOV JIHAOH,#00H
MOV JIHAOL,#01H
CLR FINISH
CLR SUCCESS
LCALL CLEAR
CLR DISMOD
LCALL DISJH ;顯示"機號"
SETB DISMOD
LCALL DISJIHAO ;反白顯示機號
MOV O_YL,#00H
MOV O_XL,#00H
MOV CODE,#13H
LCALL CCW_PR ;"設"
MOV O_YL,#00H
MOV O_XL,#10H
MOV CODE,#14H
LCALL CCW_PR ;"置"
LJMP SCAN
DKEY3: CJNE A,#09H,DKEY06;聯機鍵
;-----------------------------------------------------------待機狀態-聯機鍵(09H)-----------------------
LJMP DKEY07
DKEY06: LJMP DKEY4
DKEY07: LCALL DLY10MS
LCALL KEXAM
JNZ DKEY07 ;等鍵放開
MOV STATE,#04H ;聯機狀態
LJMP SCAN;BGLIANJ
DKEY4: CJNE A,#07H,DKEY6
;-----------------------------------------------------待機狀態-返回鍵(07H)----------------------------
DKEY09: ;返回鍵
CLR ES
CLR EA
LCALL CLEAR
LCALL DISTITL ;標題顯示程序段
DKEY6: LJMP SCAN
TSTATE1:CJNE A,#01H,TSTAT10 ;非抄表狀態則轉
;=============================================================================抄表狀態======================
LJMP DSTATE1 ;抄表狀態
TSTAT10:LJMP TSTATE2
DSTATE1:LCALL SCANKEY
MOV A,KEYNUM
CJNE A,#0FFH,DKEY10
LCALL DLY10MS
LJMP SCAN ;無鍵按下
DKEY10: CJNE A,#00H,DKEY11;有鍵按下
;----------------------------------------------------抄表狀態-抄表鍵(00H)----------------------------
CKEY10:
JNB FINISH,DOCHAOB
LJMP SCAN ;
DOCHAOB:LJMP BGNCB ;跳轉到開始抄表
DKEY11: CJNE A,#01H,DKEY12
;---------------------------------------------------抄表狀態-查詢鍵(01H)----------------------------
CKEY11:
MOV STATE,#02H ;設置為查詢狀態
;MOV HUHAO,#01H ;當前機號不變,戶號01
;CLR FLAG
CLR FINISH
CLR SUCCESS
LCALL CLEAR
CLR DISMOD
LCALL DISJH ;"顯示機號"
;LCALL DISHH ;"顯示戶號"
SETB DISMOD
LCALL DISJIHAO ;反白顯示機號
CLR DISMOD
;LCALL DISHUHAO ;顯示戶號
MOV O_YL,#00H
MOV O_XL,#00H
MOV CODE,#1BH
LCALL CCW_PR ;"查"
MOV O_YL,#00H
MOV O_XL,#10H
MOV CODE,#1CH
LCALL CCW_PR ;"詢"
LJMP SCAN
DKEY12: CJNE A,#02H,DKEY13
;--------------------------------------------------抄表狀態-設置鍵(02H)
CKEY12:
MOV STATE,#03H ;設置為設置狀態
CLR FINISH
CLR SUCCESS
LCALL CLEAR
CLR DISMOD
LCALL DISJH ;"顯示機號"
SETB DISMOD
LCALL DISJIHAO ;反白顯示機號
CLR DISMOD
MOV O_YL,#00H
MOV O_XL,#00H
MOV CODE,#13H
LCALL CCW_PR ;"設"
MOV O_YL,#00H
MOV O_XL,#10H
MOV CODE,#14H
LCALL CCW_PR ;"置"
LJMP SCAN
DKEY13: CJNE A,#03H,DKEY14
;-----------------------------------------------抄表狀態-百位鍵(03H)---------------------
JNB FINISH,KEY131
LJMP EDSCAN
KEY131: LCALL KEYBW ;調百位鍵處理函數
LJMP EDSCAN
DKEY14: CJNE A,#04H,DKEY15
;----------------------------------------------抄表狀態-十位鍵(04H)-----------------------
JNB FINISH,KEY141
LJMP EDSCAN
KEY141: LCALL KEYSW ;調十位鍵處理函數
LJMP EDSCAN
DKEY15: CJNE A,#05H,DKEY16
;---------------------------------------------抄表狀態-個位鍵(05H)-------------------------
JNB FINISH,KEY151
LJMP EDSCAN
KEY151: LCALL KEYGW ;調個位鍵處理函數
LJMP EDSCAN
DKEY16: CJNE A,#06H,DKEY17
;--------------------------------------------抄表狀態-消除鍵(06H)-------------------------
CKEY16:
JNB FINISH,KEY161
LJMP SCAN
KEY161: MOV JIHAOH,#00H
MOV JIHAOL,#01H
SETB DISMOD
LCALL DISJIHAO
LJMP SCAN
DKEY17: CJNE A,#07H,DKEY18
;--------------------------------------------抄表狀態-返回鍵(07H)---------------------------
CKEY17:
MOV STATE,#00H
MOV JIHAOH,#00H
MOV JIHAOL,#01H
;MOV HUHAO,#01H
CLR ES
CLR EA
LCALL CLEAR
LCALL DISTITL
LJMP SCAN
DKEY18: CJNE A,#08H,CKYLS
;--------------------------------------------抄表狀態-確定鍵(08H)----------------------------
LJMP CKEY18
CKYLS:LJMP SCAN
CKEY18:
JNB FINISH,LS02
JNB SUCCESS,RECB
RECB: CLR FINISH
CLR SUCCESS
LCALL CLEAR
CLR DISMOD
LCALL DISJH
SETB DISMOD
LCALL DISJIHAO
CLR DISMOD
MOV O_YL,#00H
MOV O_XL,#00H
MOV CODE,#06H
LCALL CCW_PR ;"抄"
MOV O_YL,#00H
MOV O_XL,#10H
MOV CODE,#07H
LCALL CCW_PR ;"表"
LJMP SCAN
LS02: LJMP BGNCB
TSTATE2:CJNE A,#02H,TSTAT20
;========================================================================================查詢狀態================================
LJMP DSTATE2
TSTAT20:LJMP TSTATE3
DSTATE2:LCALL SCANKEY ;查詢狀態
MOV A,KEYNUM
CJNE A,#0FFH,DKEY20
LCALL DLY10MS
LJMP SCAN ;無鍵按下
DKEY20: CJNE A,#01H,DKEY21
;----------------------------------------------------------------查詢狀態-查詢鍵(01H)--------------------------
CKEY20:
JB FINISH,KEY201
LJMP BGINQ
KEY201: LJMP SCAN
DKEY21: CJNE A,#02H,DKEY22
;----------------------------------------------------------------查詢狀態-設置鍵--------------------------------
CKEY21: MOV STATE,#03H ;設置為設置狀態
MOV JIHAOH,#00H
MOV JIHAOL,#01H
CLR FINISH
CLR SUCCESS
LCALL CLEAR
CLR DISMOD
LCALL DISJH ;顯示"機號"
SETB DISMOD
LCALL DISJIHAO ;反白顯示機號
MOV O_YL,#00H
MOV O_XL,#00H
MOV CODE,#13H
LCALL CCW_PR ;"設"
MOV O_YL,#00H
MOV O_XL,#10H
MOV CODE,#14H
LCALL CCW_PR ;"置"
LJMP SCAN
DKEY22: CJNE A,#03H,DKEY23
;-----------------------------------------------------------------查詢狀態-百位鍵------------------------------
JNB FINISH,KEY221
LJMP EDSCAN
KEY221: LCALL KEYBW ;調百位鍵處理函數
LJMP EDSCAN
DKEY23: CJNE A,#04H,DKEY24
;-----------------------------------------------------------------查詢狀態-十位鍵-------------------------------
JNB FINISH,KEY231
LJMP EDSCAN
KEY231: LCALL KEYSW ;調十位鍵處理函數
LJMP EDSCAN
DKEY24: CJNE A,#05H,DKEY25
;----------------------------------------------------------------查詢狀態-個位鍵---------------------------------
JNB FINISH,KEY240
LJMP EDSCAN
KEY240: LCALL KEYGW ;調個位鍵處理函數
LJMP EDSCAN
DKEY25: CJNE A,#06H,DKEY26
;---------------------------------------------------------------查詢狀態-消除鍵-----------------------------------
CKEY25:
JNB FINISH,KEY251
LJMP SCAN
KEY251: MOV JIHAOH,#00H
MOV JIHAOL,#01H
SETB DISMOD
LCALL DISJIHAO
LJMP SCAN
DKEY26: CJNE A,#07H,DKEY27
;--------------------------------------------------------------查詢狀態-返回鍵-------------------------------------
CKEY26: MOV STATE,#00H
MOV JIHAOH,#00H
MOV JIHAOL,#01H
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -