雙模輪胎硫化機(jī)機(jī)械手控制系統(tǒng)設(shè)計(jì)
雙模輪胎硫化機(jī)機(jī)械手控制系統(tǒng)設(shè)計(jì),雙模,輪胎,硫化,機(jī)械手,控制系統(tǒng),設(shè)計(jì)
雙模輪胎定型硫化機(jī)控制系統(tǒng)程序清單
;微機(jī)控制系統(tǒng)譯碼器地址分配
PCTL82551 EQU 1FFFH
PCC82551 EQU 1FFEH
PCB82551 EQU 1FFDH
PCA82551 EQU 1FFCH
PCTL82552 EQU 9FFFH
PCC82552 EQU 9FFEH
PCB82552 EQU 9FFDH
PCA82552 EQU 9FFCH
LS8279 EQU 0BFFFH
LS6264 EQU 3FFFH
LS2764 EQU 3FFFH
ADC0809LW EQU 5FF8H
ADC0809WW EQU 5FF9H
ADC0809LY EQU 5FFAH
ADC0809WY EQU 5FFBH
DAC0832ZC EQU 0DFF8H
DAC0832ZF EQU 0DFF9H
DAC0832JC EQU 0DFFAH
DAC0832JF EQU 0DFFBH
;外部RAM地址分配
CDATALW EQU 00H;內(nèi)溫采樣數(shù)據(jù)存儲首地址
CDATAWW EQU 05H;外溫采樣數(shù)據(jù)存儲首地址
CDATALY EQU 10H;內(nèi)壓采樣數(shù)據(jù)存儲首地址
CDATAWY EQU 15H;外壓采樣數(shù)據(jù)存儲首地址
SETTEMPLWMAX EQU 20H;內(nèi)溫上限給定值地址
SETTEMPWWMAX EQU 25H;外溫上限給定值地址
SETTEMPWYMAX EQU 30H;內(nèi)壓上限給定值地址
SETTEMPWYMAX EQU 35H;外壓上限給定值地址
SETTEMPLWMIN EQU 40H內(nèi)溫下限給定值地址
SETTEMPWWMIN EQU 45H外溫下限給定值地址
SETTEMPLYMIN EQU 50H;內(nèi)壓下限給定值地址
SETTEMPWYMIN EQU 55H;外壓下限給定值地址
DPLBUFF EQU 70H;顯示緩沖七首地址
ALARMAX EQU 80H;硫化時(shí)間數(shù)據(jù)存儲首地址
ORG 0000H
LJMP MAIN
ORG 003H
LJMP BAOJING
ORG 0013H
LJMP KEY
;主程序
ORG 0100H
MAIN:MOV SPK,#69H
MOV A,9AH;設(shè)置8255工作方式
MOV DPTR,#PCTL82551
MOVX@DPTR,A
MOV A,#80H
MOVDPTR,#PCTL82552
MOVX@DPTP,A
;清給定值存儲單元
MOV RO,#20H
MOV R1,#40H
MOV A,#00H
CLEAR1:MOVX@R0,A
INC R0
DJNZ R1,CLEAR1
;清數(shù)據(jù)采樣單元
MOV R0,#00H
MOV R1,#20H
MOV A,#00H
CLEAR2:MOVX@R0,A
INC R0
DJNZ R1,CLEAR2
;清顯示緩沖區(qū)
MOV R0,#70H
MOV R1,#10H
MOV A,#00H
CLEAR3:MOVX@R0,A
INC R0
DJNZ R1,CLEAR3
;8279初始化
MOV DPTR,#LS8279;指向控制端口
MOV A,#0D1H
MOVX@DPTR,A 清除FIFO.RAM和顯示RAMA
GAIN: MOVX A,·DPTR
JB ACC.7,AGAIN
MOV A,#40H
MOVX@DPTR,A ;置鍵盤顯示器工作方式
MOV A,#34H
MOVX@DPTR,A;置分頻命令字
SETB T1;外部中斷1,下降沿觸發(fā)
SETB EA ;CPU中斷允許
SETB EX1 ;INT1中斷允許
SETB IT0 ;外部中斷0,下降沿觸發(fā)
SETB EA ;CPU中斷允許
SETB EX0 ;INT0中斷允許
L1:AJMP L1
;自動(dòng)硫化過程序
LIUHUA: ACALL LIU1 ;機(jī)械手下降1
ACALL LIU2; 機(jī)械手張開
ACALL LIU3 ;機(jī)械手上升
ACALL LIU4; 機(jī)械手轉(zhuǎn)入
ACALL LIU5 機(jī)械手下降2
ACALL LIU7;機(jī)械手上升
ACALL LIU3 ;機(jī)械手上升
ACALL LIU8 ;機(jī)械手轉(zhuǎn)出
ACALL LIU9;合模1
ACALL LIU10 ;二次定型
ACALL LIU11 ;合模2
ACALL LIUHUAFUWU; 硫化服務(wù)程序
ACALL LIU12;蒸汽室放氣
ACALL LIU13;膠囊放氣
ACALL LIU14 ;開模
ACALL LIU15 ;中心機(jī)構(gòu)上升
ACALL LIU16 ;卸胎機(jī)構(gòu)進(jìn)入
ACALL LIU17 ;上環(huán)上升
ACALL LIU18 ;卸胎機(jī)構(gòu)上升
ACALL LIU19 ;中心機(jī)構(gòu)下降
ACALL LIU20; 卸胎機(jī)構(gòu)下降
ACALL LIU21 ;卸胎機(jī)構(gòu)退出
ACLLL LIU22 ;卸胎機(jī)構(gòu)翻轉(zhuǎn)
ACALL LIU23 ;卸胎機(jī)構(gòu)復(fù)位
RET1
;機(jī)械手下降1
LIU: MOV A,#01H ;輸出
MOV DPTR,#PCA82552
MOVX@DPTR,A
MOV DPTR,#PCA82551 ;輸入
LOOP1:MOVX A,·DPTR
CJNE A,#0FEH,LOOP1 ;檢測
RET
機(jī)械手張開
LIU2: MOV A,#20H; 輸出
MOV DPTR,·PCA82552
MOVX·DPTR,A
MOV DPTR,#PVA82551;輸入
LOOP2: MOVX A,·DPTR
CJNE A,#0EFH,LOOP2;檢測
RET
; 機(jī)械手轉(zhuǎn)入
LIU4: MOV A,#04H ;輸出
MOV DPTR ,#PCA82552 MOVX@DPRT A
MOV DPTR,#PCA82551;輸入
LOOP4:MOVXA,·DPTR
CJNE A,#0FCH,LOOP4; 檢測
RET
;機(jī)械手下降2
LIU5:MOV A,#01H;輸出
MOV DPTR,#PCA82552
MOVX@DPTR,A
MOV DPTR ,#PCA82551;輸入
LOOP5:MOVX A,·DPTR
CJNE A,#0CFH,LOOP5 ;檢測
RET
;一次定型
LIU6: MOV A,#O2H;輸出
MOV DPTR,#PCB82552
MOVX·DPTR,A
MOV DPTR,#DAC0832JC
MOV A,#0FFH
MOVX@DPTR,A
MOV DPTR,#PCB82551; 輸入
LOOP6:MOVX A,·DPTR
CJNE A,#0FCH,LOOP6; 檢測
RET
;機(jī)械手收縮
LIU7:MOV A,#10H;輸出
MOV DPTR,#PCA82552
MOVX@DPTR ,A
MOV DPTR,#PCA82551; 輸入
LOOP7: MOVX A,·DPTR
CJNE A,30DFH, LOOP7; 檢測
RET
;機(jī)械手轉(zhuǎn)出
LIU8:MOV A,#08H;輸出
MOV DPTR,#PCA82552
MOVX@DPTR,A
MOV DPTR,#PCA82551; 輸入
LOOP8: MOVX A·DPTR
CJNE A,#0F7H, LOOP8;檢測
RET
;合模1
LIU9: MOV A,80H;輸出
MOV DPTR,#PCA82552
MOVX@DPTR,A
MOV DPTR#PCB82551; 輸入
LOOP9: MOVX A,·DPTR
CJNE A,#0FEH,LOOP9; 檢測
RET
;二次定型
LIU10: MOV A,#01H;輸出
MOV DPTR,#PCB85552
MOVX@DPTR ,A
MOV ,A #OFFH
MOV DPTR,#DAC0832JC
MOVX·DPTR,A
MOV DPTR,#PCB82551;輸入
LOOP10: MOVX A,·DPTR
CJNE A,#0F7H,LOOP10 ;檢測
RET
合模2
LIU11: MOV A,#80H;輸出
MOV DPTR,#PCA82552
MOVX@DPTR,A
MOV DPTR,#PCB82551;輸入 LOOP11:
MOVX A,·DPTR CJNE A,H0EFH,LOOP11; 檢測
RET
;蒸汽室放氣 LIU12: MOV A,#OFFH;輸出
MOV DPTR ,#DAC0832ZF
MOVX@DPTR ,A
MOV DPTR,#ADC0809W; 輸入
LOOP12: MOVX A,·DPTR
CJNE A,#01LH,LOOP12;檢測
RET
;膠囊放氣 LIU13: MOV A,#0FFH; 輸出
MOV DPTR ,#DAC0809LWJF
MOVX@DPTR,A
MOV DPTR,#ADC0809LW;輸入
LOOP13: MOVX A,·DPTR
CJNEA,#01H,LOOP13; 檢測
;開模
LIU14:MOV A,#40H;輸出
MOV DPTR,#PCA82552
MOVX@DPTR,A
MOV DPTR,#PCA82551;輸入
LOOP14:MOVX A,·DPTR
CJNE A,#7FH,LOOP14;檢測
RET
;中心機(jī)構(gòu)上升
LIU15:MOV A,#04H; 輸出
MOV DPTR,#PCB82552
MOVX@DPTR ,A
MOV DPTR ,#PCB82551;輸入
LOOP15:MOVX A,·DPTR;檢測
CJNE A,#ODFH,LOOP15
RET
;卸胎機(jī)構(gòu)進(jìn)入
LIU16:MOV A,#10H;輸出
MOV DPTR,#PCB82552
MOVX@DPTR,A MOV DPTR,#PCB82551; 輸入
LOOP16: MOVX A,·DPTR
CJNE A,#7FH,LOOP16;檢測
RET
;上環(huán)上升
LIU 17:MOV A,#0FFH; 輸出
MOV DPTR,#DAC0832JF
MOVX@DPTR,A
MOVX@DPTR,A
MOV A,01H
MOV DPTR,#PCB82552
MOVX@DPTR ,A
MOV DPTR,#PCC82551; 輸入
LOOP17: MOVX A,·DPTR
CJNE A,#0DFH,LOOP17; 檢測
RET
;卸胎機(jī)構(gòu)上升
LIU18: MOC A#40H;輸出
MOV DPTR ,#PCB82552
MOVX@DPTR,A MOV
DPTR,#PCB82551;輸入
LOOP18: MOVX A,·DPTR
CJNE A,#0FDH,LOOP18;檢測
RET
;中心機(jī)構(gòu)下降
LIU19:MOV A,#80H;輸入
MOV DPTR,#PCB82552
MOVX@DPTR,A
MOV DPTR,#PCC82551;輸入
LOOP19:MOVX A,·DPTR
CJNE A,#0FCH,LOOP19;檢測
RET
;卸胎機(jī)構(gòu)下降
LIU20:MOV A,#80H;輸入
MOV DPTR,#PCB82552
MOVX@DPTR,A
MOV DPTR,#PCC82551;輸入
LOOP20:MOVX A,·DPTR
CJNE A,#0FCH,LOOP20;檢測
RET
;卸胎機(jī)構(gòu)退出
LIU21:MOV A,#20H; 輸出
MOV DPTR ,#PCB82552
MOVX@DPTR,A
MOV DPTR,#PCC82551;輸入
LOOP21:MOVX A,·DPTR
CJNE A,#0FEH,LOOP21;檢測
RET
卸胎機(jī)構(gòu)翻轉(zhuǎn)
LIU22:MOV A,#20H; 輸出
MOV DPTR ,#PCB82552
MOVX@DPTR,A
MOV DPTR,#PCC82551;輸入
LOOP21:MOVX A,·DPTR
CJNE A,#0FEH,LOOP22;檢測
RET
;卸胎機(jī)構(gòu)復(fù)位
LIU23:MOV A,#02H; 輸出
MOV DPTR,#PCC82552
MOVX·DPTR,A
MOV DPTR,#PCC8551;輸入
LOOP23:MOVX A,·DPTR
CJNE A,OEFH,LOOP23;檢測
RET
;硫化服務(wù)程序
LIUHUAFUWU: MOV R0,80H
DL4:MOV R2,81H
DL3:MOV R3,82H
DL2:MOV DPTR #ADC0809LW;啟動(dòng)內(nèi)溫檢測
MOVX@DPTR,A
ACALL YANSHI;延時(shí)
MOVX A·DPTR 數(shù)據(jù)輸入
MOV 00H,A 數(shù)據(jù)送存儲區(qū)
MOV R2,A
ACALL ZHUANHUAI1; 數(shù)據(jù)轉(zhuǎn)換
MOV 70H,R7
MOV 71H,R6
MOV72H,R5
ACALL DISP; 內(nèi)溫顯示
ACALL LWFW;調(diào)內(nèi)溫服務(wù)程序
MOV DPTR,#ADC0809WW;啟動(dòng)外溫檢測
MOVX@DPTR,A
ACALL YANSHI 延時(shí)
MOVX A,·DPTR;數(shù)據(jù)輸入
MOV 05H,A 數(shù)據(jù)送存儲區(qū)
MOV R2,A
ACALL ZHUANHUAN1;數(shù)據(jù)轉(zhuǎn)換
MOV 70H,R7
MOV 71H,R6
MOV 72H,R5
ACALL DISP; 外溫顯示
ACALL WWFW ;調(diào)外溫服務(wù)程序
MOV DPTR,#ADC0809LY;啟動(dòng)內(nèi)壓檢測
MOVX@DPRT,A
ACALL YANSHI; 延時(shí)
MOVX A,·DPRT; 數(shù)據(jù)輸入
MOV 10H,A ; 數(shù)據(jù)送存儲區(qū)
MOV R2,A ACALL ZHUANHUAN1;數(shù)據(jù)轉(zhuǎn)換
MOV 70H,R7
MOV 71H,R6
MOV 72H,R5
ACALL DISP; 數(shù)據(jù)顯示
ACALL LYFW; 調(diào)內(nèi)壓服務(wù)程序
MOV DPTR,#ADC0809WY;啟動(dòng)外壓檢測
MOVX@DPTR,A
ACALL YANSHI ;延時(shí)
MOVX A,·DPTR; 數(shù)據(jù)輸入
MOV 15H,A 數(shù)據(jù)送存儲區(qū)
MOV R2,A
ACALL ZHUANHUANI1;數(shù)據(jù)轉(zhuǎn)換
MOV 70H,R7
MOV 71H,R6
MOV 72H,R5
ACALL DISP ;外壓顯示
ACALL WYFW;調(diào)外壓服務(wù)程序
DJNE R3,DL2
DJNZ R2,DL3
DJNZ, R0,DL4
RET
;二進(jìn)制與BCD碼的轉(zhuǎn)換程序
ZHUANHUANI1: MOV,A R2;原二進(jìn)制數(shù)送A中
MOV B,#64H;設(shè)定除數(shù)為100D
DIV ABL A/100商于A ,余數(shù)于B
MOV R5,A ;A中百位BCD碼送R5中
MOV A,0AH 設(shè)定除數(shù)為10D
XCH A,B ;除數(shù)與被除數(shù)交換歸位
DIV AB; A/10D商于B,余數(shù)于A
MOV R6,A; A中十位BCD碼送R6中
MOV R7,B;B中個(gè)位BCD碼送R7中
RET
;BCD碼與二進(jìn)制數(shù)的轉(zhuǎn)換程序
ZHUANHUANI2:MOV A,R6;原十位BCD碼送A中
MOV B,#0AH; 設(shè)定乘數(shù)為10D
MUL AB
ADD A,R7; 個(gè)位數(shù)加十位數(shù)
MOV R6,A
MOV A,R; 百位BCD 碼送A 中
MOV B,#64H;設(shè)定乘數(shù)為100D
MUL AB
ADD A,R6
MOV R2,A 所得二進(jìn)制數(shù)送R2中
;內(nèi)溫服務(wù)程序
LWFW: MOV A,00H; 檢測內(nèi)溫送A
CJNE A,40H,LOOP24;內(nèi)溫不等于下限,轉(zhuǎn)LOOP24
AJMP EOF1;內(nèi)溫等于下限,轉(zhuǎn)EOF1
LOOP24: MOV R0,A;暫存現(xiàn)內(nèi)溫
CLR A; A清0
RLC A;將CY移入A0
JNZ SLW; CY不等于0,內(nèi)溫底于下限,轉(zhuǎn)升溫程序
MOV A,R0;恢復(fù)內(nèi)溫
CJNE A,20H,LOOP25;內(nèi)溫不等于上限,轉(zhuǎn)LOOP25
AJMP EOF1; 內(nèi)溫等于上限,轉(zhuǎn)EOF1
LOOP25:CLRA; A清0
RLC A; CY送A0
JZ JLW CY等于0,內(nèi)溫高于上限,轉(zhuǎn)降內(nèi)溫程序
EOF1: RET
SLW: MOV A,#0FFH;升內(nèi)溫程序
MOV DPTR,#DAC0832JC
MOVX@DPTR,A
AJMP EOF1
JLW: MOV A,#0FFH; 降內(nèi)溫程序
MOV DPTR,#DAC0832JF
MOVX·DPTR,A AJMP EOF1
;外溫服務(wù)程序 WWFW: MOV A,05H;檢測外溫送A
CJNE A,45H,
LOOP26;內(nèi)溫不等于下限,轉(zhuǎn)EOF2
LOOP26:MOV R0,A 暫存現(xiàn)內(nèi)溫
CLR A; A清0
RLC A; CY等于A0
JNZ SWW; CY不等于0,外溫底于下限,轉(zhuǎn)升溫程序
MOV A,R0; 恢復(fù)外溫
CJNE A,25H,,LOOP27; 外溫不等于上限,轉(zhuǎn)入LOOP27
AJMP EOF2;外溫等于上限值,轉(zhuǎn)EOF2
LOOP27: CLRA; A清0
RLC A;CY移A0
JZ JWW;CY等于0,內(nèi)溫高于上限,轉(zhuǎn)降外溫程序
EOF2:RET
SWW:MOV A,#0FFH;升溫程序
MOV DPTR,#DAC0832ZC
MOVX@DPTR,A
AJMP EOF2
JWW:MOV A,#0FFH;降外溫程序
MOV DPTR,#DAC0832ZF
MOVX@DPTR,A
AJMP EOF2;內(nèi)壓服務(wù)程序
LYFW:MOV A,10H;檢測內(nèi)壓送 A
CJNE A,50H,LOOP28;內(nèi)壓不等于下限,轉(zhuǎn)LOOP強(qiáng)8
AJMP EOF3;內(nèi)壓等于下限值,轉(zhuǎn)EOF3
LOOP28:MOV R0,A;保存內(nèi)壓值
CLR A;A清0
RLC A;CY移入A。0
JNZ SLY;CY不等于0,內(nèi)壓低于下限,轉(zhuǎn)升內(nèi)壓程序
MOV A,R0;恢復(fù)內(nèi)溫
CJNE A,30H,LOOP29;內(nèi)壓不等于上限,轉(zhuǎn)LOOP29
AJMP EOF3;內(nèi)壓等于上限值,轉(zhuǎn)EOF3
LOOP29:CLR A;A 清0
RLC A;CY移入A。0
JZ JLY;CY等于0,內(nèi)壓高于上限,轉(zhuǎn)降內(nèi)壓程序
EOF3:RET
SLY:MOV A,#0FFH; 升內(nèi)壓程序
MOV DPTR,#DAC0832JC
MOVX@DPTR,A
AJMP EOF3
JLY:MOVA ,#0FFH;降內(nèi)壓程序
MOV DPTR,#DACO832JF
MOVX@DPTR,A
AJMP EOF3
WYFW:MOV A,15H;檢測外壓送A
CJNE A,60H,LOOP30;外壓不等于下限,轉(zhuǎn)LOOP30
AJMP EOF4;外壓等于下限值,轉(zhuǎn)EOF4
LOOP30:MOV R0,A;保存外壓值
CLR A;A清0
RLC A;CY移入A。0
JNZ SWY;CY不等于0,外壓于直下限轉(zhuǎn)內(nèi)溫程序
MOV A,R0;恢復(fù)外壓
CJNE A,35H,LOOP31;外壓不等于上限,轉(zhuǎn)LOOP31
AJMP EOF4;外壓等于上限值,轉(zhuǎn)EOF4
LOOP31:CLR A;A清0
RLC A;CY移入A。0
JZ JWY ;CY等于0,外高于上限,轉(zhuǎn)升內(nèi)溫程序
EOF4:RET
SWY:MOV A,#0FFH;升外壓程序
MOV DPTR,#DAC0832ZC
MOVX@DPTR,A
AJMP EOF4
JWY:MOV A,#0FFH;降外壓程序
MOV DPTR,#DAC0832ZF
MOVX@DPTR,A
AJMP EOF4;延事子程序
YANSHI:MOV R1,#15H
DL1:NOP
NOP
DJNZ R1,DL1
RET;顯示子程序
DISP:MOV DPTR,#LS8279;指向控制端口
MOV A,#90H
MOVX@DPTR,A;置寫顯示RAM命令字
MOV R0#70H;置字形碼存放區(qū)首地址
MOV R7,#08H;顯示8位數(shù)
MOV R7,#08H;顯示8位數(shù)
MOV DPTR,#0BFFEH;指向數(shù)據(jù)端口
LP1:MOV A,@R0;取字形碼
MOVX@DPTR,A; 字形碼送8279顯示RAM
INC R0
DJNZ R7,LP1;8個(gè)字形碼顯示送完,繼續(xù)
RET;鍵盤輸入中斷服務(wù)程序
KEY:RUSH PSW
MOV DPTR,#0BFFEH;指向控制端口
MOV A,#40H;置讀FIFO。RAM命令字
MOVX@DPTR,A
MOV DPTR,#0BFFEH;指向數(shù)據(jù)端口
MOVX A,@DPTR;讀入鍵值
CLR C;CY清0
SUBB A,#40H;讀入的鍵值減40H
JNC KS;CY不等于0,轉(zhuǎn)KS
MOV DPTR,#KPRG;KPRG為鍵功能程序入口地址表首地址
MOV B,#03H
MUL AB
JMP@A+DPTR;鍵功能程序散轉(zhuǎn)
RE:RETI
KS:MOV DPTR,#K;K為鍵功能程序入口地址表首地址
MOV B,#03H
MUL AB
JMP@A+DPTR;鍵功能程序散轉(zhuǎn)
AJMP RE;KPRG鍵功能程序散轉(zhuǎn)表
KPRG:LJMP KPRG0
LJMP KPRG1
LJMP KPRG2
LJMP KPRG3
LJMP KPRG4
LJMP KPRG5
LJMP KPRG6
LJMP KPRG7
LJMP KPRG8
LJMP KPRG9
LJMP KPRG10
LJMP KPRG11
LJMP KPRG12
LJMP KPRG13
LJMP KPRG14
LJMP KPRG15
LJMP KPRG16
LJMP KPRG17
LJMP KPRG18
LJMP KPRG19
LJMP KPRG20
LJMP KPRG21
LJMP KPRG22
KPRG0:ACALL LIUHUA;KPRG0 功能程序
AJMP RE
KPRG1:MOV A,#01H;KPRG1 功能程序
MOV DPTR,#PCA82552
MOVX@DPTR,A
AJMP RE
KPRG2:MOV A,#20H;KPRG2 功能程序
MOV DPTR,#PCA82552
MOVX@DPTR,A
AJMP RE
KPRG3:MOV A,#02H;KPRG3 功能程序
MOV DPTR,#PCA82552
MOVX@DPTR,A
AJMP RE
KPRG4:MOV A,#04H;KPRG4 功能程序
MOV DPTR,#PCA82552
MOVX@DPTR,A
AJMP RE
KPRG5:MOV A,#02H;KPTG5 功能程序
MOVX@DPTR,A
AJMP RE
KPRG6:MOV A,#0FFH;KPRG6 功能程序
MOV DPTR,#DAC0832JC
MOVX@DPTR,A
AJMP RE
KPRG7:MOV A,#10H;KPRG7 功能程序
MOV DPTR,#PCA82552
MOVX@DPTR,A
AJMP RE
KPRG8:MOV A,#08H;KPRG8 功能程序
MOV DPTR,#PCA82552
MOVX@DPTR,A
AJMP RE
KPRG9:MOV A,#80H;KPRG9 功能程序
MOV DPTR,#PCA82552
MOVX@DPTR,A
AJMP RE
KPRG10:MOV A,#0FFH;KPTG10 功能程序
MOV DPTR,#DAC0832ZC
MOVX@DPTR,A
AJMP RE
KPRG11:MOV A.#0FFH;KPRG11 功能程序
MOV DPTR,#DAC0832ZF
MOVX@DPTR,A
AJMP RE
KPRG12:MOV A,#0FFH;KPRG12 功能程序
MOV DPTR,#DAC0832JF
MOVX@DPTR,A
AJMP RE
KPRG13:MOV A,#0FFH;KPRG13 功能程序
MOV DPTR,#DAC0832ZF
MOVX@DPTR,A
MOV DPTR,#ADC0809WY
L12:MOVX A,@DPTR
CJNE A,#01H,L12
MOV DPTR,#ADC0809LY
L13:MOVX A,@DPTR
CJNE A,#01H,L13
MOV A,#40H
MOV DPTR,#PCA82552
MOVX@DPTR,A
AJMP RE
DPRG14:MOV A,#04H;KPRG14 功能程序
MOV DPTR,#PCB82552
MOVX@DPTR,A
AJMP RE
KPRG15:MOV A,#10H;KPRG15 功能程序
MOV DPTR,#PCB82552
MOVX@DPTR,A
AJMP RE
KPRG16:MOV A,#0FFH;KPRG16 功能程序
MOV DPTR,#DAC0832JF
MOVX@DPTR,A
MOV A,#01H
MOV DPTR,#PCB82552
MOVX@DPTR,A
AJMP RE
KPRG17:MOV A,#40H;KPRG17 功能程序
MOV DPTR,#PCB82552
MOVX@DPTR,A
AJMP RE
KPRG18:MOV A,#08H;KPRG19 功能程序
MOV DPTR,#PCB82552
MOVX@DPTR,A
AJMP RE
KPTG19:MOV A,#80H;KPRG19 功能程序
MOV DPTR,#PCB82552
MOVX@DPTR,A
AJMP RE
KPRG20:MOV A,#20H;KPRG20 功能程序
MOV DPTR,#PCB82552
MOVX@DPTR,A
AJMP RE
KPRG21:MOV A,#01H;KPRG21 功能程序
MOVX@DPTR,A
AJMP RE
KPRG22:MOV A,#02H;KPRG22 功能程序
MOV DPTR,#PCC82552
MOVX@DPTR,A
AJMP RE;K鍵功能散轉(zhuǎn)表
K:LJMP K0
LJMP K1
LJMP K2
LJMP K3
LJMP K4
LJMP K5
LJMP K6
LJMP K7
LJMP K8
LJMP K9
K0: MOV B,@00H;K0 功能程序
SJMP KSS
K1: MOV B,@01H;K1 功能程序
SJMP KSS
K2: MOV B,@02H;K2 功能程序
SJMP KSS
K3: MOV B,@03H;K3 功能程序
SJMP KSS
K4: MOV B,@04H;K4 功能程序
SJMP KSS
K5: MOV B,@05H;K5 功能程序
SJMP KSS
K6: MOV B,@06H;K6 功能程序
SJMP KSS
K7: MOV B,@07H;K7 功能程序
SJMP KSS
K8: MOV B,@08H;K8 功能程序
SJMP KSS
K9: MOV B,@09H;K9 功能程序
KSS:ACALL DISP;調(diào)顯示字程序
MOV R0#80H
MOV R1#03H
L11:MOV R0,B
INC R0
DJNZ R1,L11
MOV R5,82H
MOV R6,82H
MOV R7,80H
ACALL ZHUANHUSL2;調(diào)轉(zhuǎn)換程序
AJMP RE;報(bào)警程序
BAOJING:PUSH PSW
MOV A,#00H
MOV P0,A
POOP PSW
RETI
END
收藏