Đề tài Rơle số bảo vệ cách điện

h đặt năm Func_reg=8 Gọi chương trình đặt mode ret XÁC ĐỊNH PHÍM FUNC ĐƯỢC NHẤN Yes Yes Yes Yes Yes Yes Yes Yes Func_reg=11 Gọi chương trình xem LSử cách điện sẽ hiện ra LCD thông tin về LS cđ mới nhất Yes No No No No No No No No No Tăng thanh ghi Func_reg Func_reg=9 Gọi chương trình đặt Uo Yes Func_reg=10 Gọi chương trình đặt Rph Yes 3. Lưu đồ chương trình phục vụ phím FUNC: 4. Lưu đồ chương trình phục vụ phím INC: Func_reg=3 Gọi chương trình tăng giờ (tăng hour_reg trong RAM nội) Func_reg=4 Gọi chương trình tăng phút (tăng min_reg trong RAM nội) Func_reg=5 Gọi chương trình tăng ngày (tăng day_reg trong RAM nội) Func_reg=6 Gọi chương trình tăng tháng (tăng month_reg trong RAM nội) Func_reg=7 Gọi chương trình tăng năm (tăng year_reg trong RAM nội) Func_reg=8 Gọi chương trình đổi mode (mode trong RAM nội) Func_reg=9 Gọi chương trình tăng Uo (tăng Uo trong RAM nội) Func_reg=10 Gọi chương trình tăng Rph (tăng Rph trong RAM nội) Func_reg=11 Gọi chương trình xem LSử cách điện tiếp theo trong EEPROM ret XÁC ĐỊNH PHÍM INC ĐƯỢC NHẤN Yes Yes Yes Yes Yes Yes Yes Yes Yes No No No No No No No No No 5. Lưu đồ chương trình phục vụ phím DEC: Func_reg=3 Gọi chương trình giảm giờ (tăng hour_reg trong RAM nội) Func_reg=4 Gọi chương trình giảm phút (tăng min_reg trong RAM nội) Func_reg=5 Gọi chương trình giảm ngày (tăng day_reg trong RAM nội) Func_reg=6 Gọi chương trình giảm tháng (tăng month_reg trong RAM nội) Func_reg=7 Gọi chương trình giảm năm (tăng year_reg trong RAM nội) Func_reg=8 Gọi chương trình đổi mode (mode trong RAM nội) Func_reg=9 Gọi chương trình giảm Uo (tăng Uo trong RAM nội) Func_reg=10 Gọi chương trình giảm Rph (tăng Rph trong RAM nội) Func_reg=11 Gọi chương trình xem LSử cách điện trước đó trong EEPROM ret XÁC ĐỊNH PHÍM DEC ĐƯỢC NHẤN Yes Yes Yes Yes Yes Yes Yes Yes Yes No No No No No No No No 6. Lưu đồ chương trình phục vụ phím OK: Func_reg=3 Gọi chương trình OK giờ (tăng hour_reg trong RAM nội) Func_reg=4 Gọi chương trình OK phút (tăng min_reg trong RAM nội) Func_reg=5 Gọi chương trình OK ngày (tăng day_reg trong RAM nội) Func_reg=6 Gọi chương trình OK tháng (tăng month_reg trong RAM nội) Func_reg=7 Gọi chương trình OK năm (tăng year_reg trong RAM nội) Func_reg=8 Gọi chương trình OK mode (mode trong RAM nội) Func_reg=9 Gọi chương trình OK Uo (tăng Uo trong RAM nội) Func_reg=10 Gọi chương trình OK Rph (tăng Rph trong RAM nội) ret XÁC ĐỊNH PHÍM OK ĐƯỢC NHẤN Yes Yes Yes Yes Yes Yes Yes Yes No No No No No No No 7. Chương trình phục vụ ngắt RTC RTC_srv Cất các thanh ghi sẽ sử dụng vào ngăn xếp. Cờ Run_f=1? Có phút mới chưa? Đọc thời gian hiển thị thời gian trên LCD Đo Rcđ So sánh với ngưỡng tác động cắt động cơ khỏi lưới nếu có sự cố về các điện. Sáng các đèn báo Hiển thị Rcđ trên LCD, trên LED RETI Lấy các thanh ghi đã cất vào ngăn xếp ra. Đọc thanh ghi C của RTC để xoá cờ. Yes No No Yes 8. Chương trình phục vụ ngắt truyền tin SC_SRV Gọi chương trình phục vụ nhận byte RI=1 TI=1 Gọi chương trình phục vụ ngắttruyền Cấm các ngắt khác Cho phép các ngắt khác Đọc thanh ghi C của RTC Reti Yes Yes No No Nhận byte Xoá RI Chuyển SBUF vào Acc r0 trỏ vào digit0;push acc; mov a,đẽm; add a,ro; mov ro,a;pop acc; mov @r0,a Xoá cờ Recei_f Xoá demRxD Recei_f=1 A=2fh A=23h Dựng cờ Recei_f Xoá demRxD demRxD=20 Gọi chương trình giải mã và thực hiện bản tin Ret Yes Yes Yes Yes No No No No Ngắt nhận Tăng demTxD Mov a,demTxD A=10? R0 trỏ vào digit0 Mov ,@r0+A Mov SUBF,A ret II. Thiết kế giao diện trên PC: Khi có sự kiện oncom Đọc bản tin đó về Cắt ra byte mã bản tin Mã BT=03 Mã BT=05 Mã BT=06 Nhận bản tin là các thông số quá trình viết lên các đối tượng hiển thị tương ứng Nhận bản tin là lịch sử cách điện viết lên các đối tượng hiển thị tương ứng lưu lại và vẽ đồ thị Nhận bản tin là mode chạy của rơle,cùng Uo&Rph viết lên các đối tượng hiển thị tương ứng Có phải là bt nhận không Thoát Đánh giá kết quả Sau bốn tháng thực hiện đề tài đã được hoàn thành và đạt được những kết quả sau: + Đo được cách điện của động cơ, ngay khi động cơ khi động cơ làm việc. + Độ chính xác mà thiết bị đạt được trong miền cách điện cần bảo vệ là ±10kW. + Hiển thị kết quả đo được trên LCD trên LED và truyền lên máy tính. + Tác động bảo vệ kịp thời chính xác. + Ghi được lịch sử cách điện truyền lên máy tính vẽ ra đồ thị về lịch sử cách điện + Có thể cài đặt cho thiết bị từ bàn phím, từ máy tính trung tâm Như vậythiết bị đã đáp ứng được tất cả những yêu cầu đã đặt ra. Mục tiêu đặt ra trong thời gian tới: Thêm một số tính năng cho thiết bị: Có thể tuyến tính hoá từng đoạn cho dải đo để thiết bị có thể sử dụng để bảo vệ cách điện cho nhiều đối tượng có yêu cầu về ngưỡng an toàn của cách điện khác nhau. Tiến hành nghiên cứu thành bộ hoá cho Rơle số bảo vệ động cơ, máy phát... PHỤ LỤC I. Chương trình phần mềm cho Vi điều khiển của Rơle số bảo vệ cách điện. 1 ; CHUONG TRINH PHAN MEM CUA ROLE CACH DIEN 2;***************************************************************** 3; KHAI BAO BIEN 4; CAC BIEN O RAM TRONG: 5; Cac bien trong vung RAM dinh bit: 6;-------------------------------------------------------------------------------------- 7 ZOV equ 00h ;co bao phep chia cho 0 hoac phep 8 ;tru bi tran 9 runf equ 01h ;co bao Role dang o function RUN(F1) 10 mode equ 02h ;co bao mode chay cua Role(1/0Doclap /Songsong) 11 cof equ 03h ;co su dung cho viec hien thi dau nhap nhay 12 13 safe_f equ 04h ;co bao trang thai an toan cua Rcd 14 warning_f equ 05h ;co baotrang thai canh bao cua Rcd 15 fault_f equ 06h ;co bao trang thai su co cua Rcd 16 Ttotrip_f equ 07h ;co bao dang trong thoi gian to trip 17 18 Receiving equ 08h ;co bao dang nhan ban tin 19 trans equ 09h ;co bao dang truyen ban tin 20;==================================================== 21 digit0 equ 08h 22 digit1 equ 09h 23 digit2 equ 0ah 24 digit3 equ 0bh 25 digit4 equ 0ch 26 digit5 equ 0dh 27 digit6 equ 0eh 28 digit7 equ 0fh 29 digit8 equ 10h 30 digit9 equ 11h 31 digit10 equ 12h 32 digit11 equ 13h 33;======================================== 34 demTxD equ 57h 35 demRxD equ 58h 36 Ghichu equ 59h 37 vitriLCD equ 5ah ;dung cho viec hien thi R cd tren LCD 38;======================================== 39; Cac bien thoi gian thuc: 40 min_reg equ 5bh ;o nho chua bien phut 41 hour_reg equ 5ch ;o nho chua bien gio 42 day_reg equ 5dh ;o nho chua bien ngay 43 month_reg equ 5eh ;o nho chua bien thang 44 year_reg equ 5fh ;o nho chua bien nam 45;============================================== 46; Cac bien dung cho viec canh do: 47 48 Rphi equ 60h ;byte cao cua Rp(dien tro phu o mach do) 49 Rplo equ 61h ;byte thap cua Rp(dien tro phu o mach do) 50 51 U0hi equ 62h ;byte cao cua U0(dien ap dat o mach do) 52 U0lo equ 63h ;byte thap cua U0(dien ap dat o mach do) 53 54 Rcdhi equ 64h ;o nho chua byte cao cua Rcd 55 Rcdlo equ 65h ;o nho chua byte thap cua Rcd 56 57 Nxhi equ 66h ; byte cao so xung dem duoc tu 7109 58 Nxlo equ 67h ; byte thap so xung dem duoc tu 7109 59 60 Rmin_hi equ 68h ;chua byte cao cua gia tri Rcd min 61 Rmin_lo equ 69h ;chua byte thap cua gia tri Rcd min 62 ;khi Init Rmin duoc khoi tao =65.53M =FFFFh va duoc 63 ;khoi tao lai sau moi lan vao EEPROM 64 65 fpt_hi equ 6ah ;filepointer tro vao cuoi file CSDL trong 66 fpt_lo equ 6bh ;EEPROM duoc luu giu trong sau 67 ;moi lan ghi EEPROM duoc lay ra khi Init 68 ;========================================================= 69 func_reg equ 6ch ;demxac dinh function khi doi thoai phim 70 Dem_totrip equ 6dh ;bien dem so lan do Rcd khi to trip 71;===================================================== 72; cac bien phuc vu tinh toan truyen nhan du lieu 73; cac o nho dung cho chuong trinh Hextodec(2 byte) 74; & chuong trinh display5d: 75 76 PR0 equ 6Eh 77 PR1 equ 6Fh 78 PR2 equ 70h 79 PR3 equ 71h 80 81 X0 equ 72h 82 X1 equ 73h 83 X2 equ 74h 84 X3 equ 75h 85 86 Y0 equ 76h 87 Y1 equ 77h 88 Y2 equ 78h 89 Y3 equ 79h 90 91 Z0 equ 7ah 92 Z1 equ 7bh 93 Z2 equ 7ch 94 Z3 equ 7dh 95 Z4 equ 7eh 96 Z5 equ 7fh 97 98 XL equ X0 99 XH equ X1 100 101 YL equ Y0 102 YH equ Y1 103 104 ZL equ Z0 105 ZH equ Z1 106 107 Bytehi equ XH 108 Bytelo equ XL 109 110 X equ XL 111;====================================================== 112 ;CAC BIEN HANG: 113 stack equ 2fh ;dia chi dau cua ngan xep ngan xep 114 ;------------------------------------------------------------------ 115 ; Cac bien dung cho LCD: 116 LCD_RS equ P2.4 ;Chan 4 cua LCD 117 LCD_RW equ P3.5 ;Chan 5 cua LCD 118 LCD_E equ P2.5 ;Chan 6 cua LCD 119; Cac ma lenh dieu khien LCD: 120 ConFig equ 38H 121 EntryMode equ 06H 122 HomeCur equ 02H 123 ClearDsp equ 01H 124 OffDsp equ 0CH 125 shiftl equ 18h 126 ;=============================== 127; Cac bien dung cho hien thi LED: 128 129 Data equ P1.6 130 Clock equ P1.5 131;================================================== 132;=================================================== 133; KHAI BAO NGAT 134 135 org 00h 136 0000 020100 ljmp Start 137 138 org 03h 139 0003 020330 ljmp RTC_Srv 140 141 142 org 0bh 143 000B 00 nop 144 000C 32 reti 145 146 org 13h 147 0013 020676 ljmp KEY_Srv 148 149 150 org 1bh 151 001B 00 nop 152 001C 32 reti 153 154 org 23h 155 0023 0201D2 ljmp Serial_int_Srv 156 157 org 2bh 158 002B 00 nop 159 002C 32 reti 160;===================================== 161;====================================== 162 org 100h 163 Start: 164 0100 C2AF clr EA ;cam tat ca cac ngat goi den chuong trinh 165 0102 75812F mov sp,#stack 166 0105 1210CC lcall tre_800ms ;chong nhieu he thong khi poweron 167 0108 120121 lcall InitRAM ;Khoi tao cac bien trong RAM noi 168 010B 12014F lcall InitRTC ;Khoi dong cho RTC 169 010E 12015C lcall InitLCD ;Khoi dong cho LCD 170 0111 1201BC lcall Init_SC ;init serial communication 171 0114 1201B1 lcall Initngat 172 173 0117 75A0CF mov P2,#0cfh 174 011A 120708 lcall run ;goi chuong trinh RUN(F1) 175 011D D2AF setb EA ;cho phep ngat goi den chuong trinh 176 Here: ;chờ ngắt tới để phục vụ 177 011F 80FE sjmp Here 178 ;======================================= 179 InitRAM: 180 0121 756C01 mov func_reg,#01h ;khoi tao cho o nho func_reg=1 181 ;ban dau may chay o che do run(F1) 182 0124 904010 mov dptr,#4010h 183 0127 E0 movx a,@dptr 184 0128 13 rrc a 185 0129 9202 mov mode,C 186 187 012B A3 inc dptr 188 012C E0 movx a,@dptr 189 012D F562 mov U0hi,a 190 012F A3 inc dptr 191 0130 E0 movx a,@dptr 192 0131 F563 mov U0lo,a 193 194 0133 A3 inc dptr 195 0134 E0 movx a,@dptr 196 0135 F560 mov Rphi,a 197 0137 A3 inc dptr 198 0138 E0 movx a,@dptr 199 0139 F561 mov Rplo,a 200 201 013B A3 inc dptr 202 013C E0 movx a,@dptr 203 013D F56A mov fpt_hi,a 204 013F A3 inc dptr 205 0140 E0 movx a,@dptr 206 0141 F56B mov fpt_lo,a 207 208 0143 7568FF mov Rmin_hi,#0ffh ;khoi tao cho Rmin=65535ohm (ffffh)de 209 0146 7569FF mov Rmin_lo,#0ffh ;gia tri do dau tien cua Rcd se la Rmin 210 211 0149 755800 mov demRxD,#00h 212 014C C208 clr Receiving 213 014E 22 ret 214;=================================== 215 InitRTC: 216 014F 90400A mov dptr,#400ah 217 0152 742F mov a,#2fh 218 0154 F0 movx @dptr,a ;viet ma config(khoi dong oscillator 219 ;rate=500ms(2Hz))vao thanh ghi A 220 0155 A3 inc dptr 221 0156 741E mov a,#1eh 222 0158 F0 movx @dptr,a ;viet ma config(update 1 giay,bin,24h) 223 ;vao thanh ghi B 224 0159 A3 inc dptr 225 015A E0 movx a,@dptr ;doc ma co o thanh ghi C de khoi dong 226 015B 22 ret 227;==================================== 228 ;subroutine initLCD 229;==================================== 230 InitLCD: 231 015C C0E0 push acc 232 015E C2A4 clr LCD_RS 233 0160 C2B5 clr LCD_RW 234 0162 C2A5 clr LCD_E 235 0164 7430 mov a,#30h 236 0166 F580 mov p0,a 237 0168 00 nop 238 0169 D2A5 setb LCD_E 239 016B 00 nop 240 016C 00 nop 241 016D 00 nop 242 016E C2A5 clr LCD_E 243 0170 7404 mov a,#4 244 0172 12100B lcall delay_ms 245;================================= 246 0175 7430 mov a,#30h 247 0177 F580 mov p0,a 248 0179 00 nop 249 017A D2A5 setb LCD_E 250 017C 00 nop 251 017D 00 nop 252 017E 00 nop 253 017F C2A5 clr LCD_E 254 0181 7401 mov a,#1 255 0183 12100B lcall delay_ms 256 ;======================== 257 0186 7430 mov a,#30h 258 0188 F580 mov p0,a 259 018A 00 nop 260 018B D2A5 setb LCD_E 261 018D 00 nop 262 018E 00 nop 263 018F 00 nop 264 0190 C2A5 clr LCD_E 265 0192 7401 mov a,#1 266 0194 12100B lcall delay_ms 267;================================================= 268 0197 120E75 lcall busyflag 269 019A 7438 mov a,#ConFig 270 019C 120E61 lcall writecommand 271 019F 740C mov a,#OffDsp 272 01A1 120E61 lcall writecommand 273 01A4 7401 mov a,#ClearDsp 274 01A6 120E61 lcall writecommand 275 01A9 7406 mov a,#EntryMode 276 01AB 120E61 lcall writecommand 277 01AE D0E0 pop acc 278 01B0 22 ret 279;=============================================== 280 Initngat: 281 01B1 D2A8 setb EX0 ;cho phep ngat ngoai 0(Int0_ngat cua RTC) 282 01B3 D288 setb IT0 ;tin hieu ngat ngoai 0 la suon xuong 283 01B5 D2AA setb EX1 ;cho phep ngat ngoai 1(Int1_ngat cua phim) 284 01B7 D28A setb IT1 ;tin hieu ngat ngoai 1 la suon xuong 285 01B9 D2AC setb IE.4 ;ES cho phep ngat truyen tin 286 01BB 22 ret 294;============================================ 295;======================================================= 296 ; subroutine Sc_ini 297 ; this routine initializes the hardware 298 ; set up serial port with a 11.0592 MHz crystal, 299 ; use timer 1 for 9600 baud serial communications 300 ;temer0 dem tan so 301 ; timer1 timer0 302 ;GATE C/T M1 M0 ' GATE C/T M1 M0 (TMOD) 303 ;0 0 1 0 0 1 0 1 304;======================================================= 305 Init_SC: 306 01BC E587 mov a,pcon 307 01BE C2E7 clr acc.7 308 01C0 F587 mov PCON,a ;SMOD = 0 (toc do tran timer1:32) 309 01C2 758925 mov TMOD,#25h ;Timer 1 Clock Baud rate mode 2(8bit autoreload) 310 ;timer0 la counter 16bit(mode 1) 311 01C5 758DFD mov TH1,#0fdh ;9600 bps 312 01C8 759850 mov SCON,#50h ;Serial Port Control mode 1: 8-bit UART 313 01CB D28E setb TR1 ;Timer 1 runs from here 314 01CD C298 clr RI 315 01CF C299 clr TI 316 01D1 22 ret 317;=========================================== 318;=========================================== 319 Serial_int_Srv: 320 01D2 C2AF clr EA 321 01D4 C0E0 push acc 322 01D6 C0F0 push b 323 01D8 C000 push 0 324 01DA C001 push 1 325 01DC C002 push 2 326 01DE C003 push 3 327 01E0 C004 push 4 328 01E2 C005 push 5 329 01E4 C006 push 6 330 01E6 C007 push 7 331 01E8 30010E jnb runf,Thoat 332 01EB 209808 jb RI,Nhanbyte 333 01EE 309908 jnb TI,Thoat 334 01F1 120319 lcall TRUYEN 335 01F4 8003 sjmp Thoat 336 Nhanbyte: 337 01F6 120218 lcall NHANBantin 338 Thoat: 339 01F9 C298 clr RI 340 01FB C299 clr TI 341 01FD D007 pop 7 342 01FF D006 pop 6 343 0201 D005 pop 5 344 0203 D004 pop 4 345 0205 D003 pop 3 346 0207 D002 pop 2 347 0209 D001 pop 1 348 020B D000 pop 0 349 020D D0F0 pop b 350 020F D0E0 pop acc 351 0211 90400C mov dptr,#400ch 352 0214 E0 movx a,@dptr ;doc thanh ghi C de xoa co UF o RTC. 353 0215 D2AF setb EA 354 0217 32 reti 355 ;============================== 356 NHANBantin: 357 0218 C298 clr RI 358 021A E599 mov a,SBUF 359 021C 20080D jb Receiving,dangnhan 360 021F B42309 cjne a,#23h,Btin_fail 361 0222 C2A8 clr EX0 362 0224 C2AA clr EX1 363 0226 D208 setb Receiving 364 0228 755800 mov demRxD,#00h 365 Btin_fail: 366 022B 22 ret 367 dangnhan: 368 022C B42F08 cjne a,#2fh,Con_BTin 369 022F 12024E lcall Doc_Thuchien_BTin 370 0232 D2A8 setb EX0 371 0234 D2AA setb EX1 372 0236 22 ret 373 Con_BTin: 374 0237 C0E0 push acc 375 376 0239 7408 mov a,#digit0 377 023B 2558 add a,demRxD 378 023D F8 mov r0,a 379 380 023E D0E0 pop acc 381 382 0240 F6 mov @r0,a 383 0241 0558 inc demRxD 384 0243 E558 mov a,demRxD 385 0245 B40C05 cjne a,#12,noproblem 386 0248 C208 clr Receiving 387 024A 755800 mov demRxD,#00h 388 noproblem: 389 024D 22 ret 390 ;=================================== 391 Doc_Thuchien_BTin: 392 024E E508 mov a,digit0 393 0250 B4012C cjne a,#01h,no_askme 394 0253 E509 mov a,digit1 395 0255 B40510 cjne a,#05h,no_Receive 396 let_Receive: 397 0258 E50A mov a,digit2 398 025A B40504 cjne a,#05h,no_Re_Tgian 399 025D 120280 lcall Nhan_Tgian 400 0260 22 ret 401 no_Re_Tgian: 402 0261 B40603 cjne a,#06h,no_Re_Mode 403 0264 1202A9 lcall Nhan_Mode 404 no_Re_Mode: 405 0267 22 ret 406 ;--------------------------------------------------------------- 407 no_Receive: 408 0268 E509 mov a,digit1 409 026A B40412 cjne a,#04h,no_askme 410 026D 1202D7 lcall let_Trans 411 412 0270 750801 mov digit0,#01h 413 0273 750905 mov digit1,#05h 414 415 0276 D209 setb trans 416 0278 7557FF mov demTxD,#0ffh 417 418 027B 7423 mov a,#23h 419 027D F599 mov SBUF,a 420 no_askme: 421 027F 22 ret 422 ;====================================== 423 Nhan_Tgian: 424 0280 850B5C mov hour_reg,digit3 425 0283 850C5B mov min_reg,digit4 426 0286 850D5D mov day_reg,digit5 427 0289 850E5E mov month_reg,digit6 428 028C 850F5F mov year_reg,digit7 429 028F 904002 mov dptr,#4002h 430 0292 E55B mov a,min_reg 431 0294 F0 movx @dptr,a 432 0295 A3 inc dptr 433 0296 A3 inc dptr 434 0297 E55C mov a,hour_reg 435 0299 F0 movx @dptr,a 436 029A A3 inc dptr 437 029B A3 inc dptr 438 029C A3 inc dptr 439 029D E55D mov a,day_reg 440 029F F0 movx @dptr,a 441 02A0 A3 inc dptr 442 02A1 E55E mov a,month_reg 443 02A3 F0 movx @dptr,a 444 02A4 A3 inc dptr 445 02A5 E55F mov a,year_reg 446 02A7 F0 movx @dptr,a 447 02A8 22 ret 448 ;======================================= 449 Nhan_Mode: 450 02A9 E50B mov a,digit3 451 02AB 13 rrc a 452 02AC 9202 mov mode,c 453 02AE 20021E jb mode,Docl 454 02B1 850C62 mov U0hi,digit4 455 02B4 850D63 mov U0lo,digit5 456 02B7 850E60 mov Rphi,digit6 457 02BA 850F61 mov Rplo,digit7 458 02BD 904011 mov dptr,#4011h 459 02C0 E562 mov a,U0hi 460 02C2 F0 movx @dptr,a 461 02C3 A3 inc dptr 462 02C4 E563 mov a,U0lo 463 02C6 F0 movx @dptr,a 464 02C7 A3 inc dptr 465 02C8 E560 mov a,Rphi 466 02CA F0 movx @dptr,a 467 02CB A3 inc dptr 468 02CC E560 mov a,Rphi 469 02CE F0 movx @dptr,a 470 Docl: 471 02CF 904010 mov dptr,#4010h 472 02D2 A202 mov c,mode 473 02D4 33 rlc a 474 02D5 F0 movx @dptr,a 475 02D6 22 ret 476 ;================================================== 477 let_Trans: 478 02D7 E50A mov a,digit2 479 02D9 B4031F cjne a,#03h,no_Tra_Proccess 480 02DC 750A03 mov digit2,#03h 481 02DF 85640B mov digit3,Rcdhi 482 02E2 85650C mov digit4,Rcdlo 483 02E5 E590 mov a,P1 484 02E7 5410 anl a,#10h 485 02E9 F50D mov digit5,a 486 02EB 855C0E mov digit6,hour_reg 487 02EE 855B0F mov digit7,min_reg 488 02F1 855D10 mov digit8,day_reg 489 02F4 855E11 mov digit9,month_reg 490 02F7 855F12 mov digit10,year_reg 491 02FA 22 ret 492 no_Tra_Proccess: 493 02FB B40401 cjne a,#04h,no_Tra_CSDL 494 495 496 497 02FE 22 ret 498 no_Tra_CSDL: 499 02FF B40616 cjne a,#06h,no_Tra_Mode 500 0302 750A06 mov digit2,#06h ;sap xep ban tin :Doc len MODE 501 0305 7400 mov a,#00h 502 0307 A202 mov c,mode 503 0309 33 rlc a 504 030A F50B mov digit3,a 505 030C 85620C mov digit4,U0hi 506 030F 85630D mov digit5,U0lo 507 0312 85600E mov digit6,Rphi 508 0315 85610F mov digit7,Rplo 509 no_Tra_Mode: 510 0318 22 ret 511;============================================= 512 TRUYEN: 513 0319 C299 clr TI 514 031B 0557 inc demTxD 515 031D E557 mov a,demTxD 516 031F B40C09 cjne a,#12,Chua_truyen_het 517 0322 D2A8 setb EX0 518 0324 D2AA setb EX1 519 0326 755700 mov demTxD,#00h 520 0329 8004 sjmp Da_truyen_het 521 Chua_truyen_het: 522 032B 2408 add a,#digit0 523 mov a,@r0+a 524 032D F599 mov SBUF,a 525 Da_truyen_het: 526 032F 22 ret 527 528;======================================= 287;========================================= 288 ;Chuong trinh phuc vu ngat cua RTC 289 ;RTC moi giay goi ngat mot lan 290 ;Moi khi co phut moi thuc hien update thoi gian vao VXL 291 ;va hien thi len LCD 292 ;Do Rcd Hien thi tren LCD va LED 293 ;kiem tra Rcd xu ly va ghi lai ;============================================= 529 RTC_Srv: 530 0330 C2AA clr EX1 531 0332 90400C mov dptr,#400ch 532 0335 E0 movx a,@dptr ;doc thanh ghi C de xoa co UF. 533 534 0336 200103 jb runf,update 535 0339 020426 ljmp not_update 536 update: 537 033C B203 cpl cof 538 033E 200302 jb cof,nhap 539 0341 800C sjmp nhay 540 nhap: 541 0343 7442 mov a,#42h 542 0345 120E57 lcall placecursor 543 0348 743A mov a,#3ah ;viet ":" len LCD. 544 034A 120E90 lcall writedata 545 034D 800A sjmp Doctgian 546 nhay: 547 034F 7442 mov a,#42h 548 0351 120E57 lcall placecursor 549 0354 7420 mov a,#20h ;viet blank len LCD. 550 0356 120E90 lcall writedata 551 Doctgian: 552 0359 7443 mov a,#43h ;Hien thi phut hien tai... 553 035B 120E57 lcall placecursor ;tren LCD 554 035E 904002 mov dptr,#4002h ;dia chi cua thanh ghi phut 555 0361 E0 movx a,@dptr ;doc thanh ghi phut 556 0362 F55B mov min_reg,a 557 0364 120EBA lcall Hien_2digit 558 0367 7440 mov a,#40h ;Hien thi gio hien tai... 559 0369 120E57 lcall placecursor ;tren LCD 560 036C A3 inc dptr 561 036D A3 inc dptr ;4004h 562 036E E0 movx a,@dptr ;doc thanh ghi gio 563 036F F55C mov hour_reg,a 564 0371 120EBA lcall Hien_2digit 565 0374 7446 mov a,#46h ;Hien thi ngay hien tai... 566 0376 120E57 lcall placecursor ;tren LCD 567 0379 A3 inc dptr 568 037A A3 inc dptr 569 037B A3 inc dptr ;4007h 570 037C E0 movx a,@dptr ;doc thanh ghi ngay 571 037D F55D mov day_reg,a 572 037F 120EBA lcall Hien_2digit 573 574 0382 7449 mov a,#49h ;Hien thi thang hien tai... 575 0384 120E57 lcall placecursor ;tren LCD 576 0387 A3 inc dptr ;4008h 577 0388 E0 movx a,@dptr ;doc thanh ghi thang 578 0389 F55E mov month_reg,a 579 038B 120EBA lcall Hien_2digit 580 581 038E 744C mov a,#4ch ;Hien thi nam hien tai... 582 0390 120E57 lcall placecursor ;tren LCD 583 0393 A3 inc dptr ;4009h 584 0394 E0 movx a,@dptr ;doc thanh ghi nam 585 0395 F55F mov year_reg,a 586 0397 120EBA lcall Hien_2digit 587 ;********************************************** 588 DoRcd: 589 039A D297 setb P1.7 ;chuan bi doc p1.3 590 039C 00 nop 591 039D 00 nop 592 Wait_Status_lo: 593 039E 00 nop 594 039F 2097FC jb P1.7,Wait_Status_lo ;neu thay o muc cao thi cho 595 03A2 00 nop 596 Wait_status_hi: 597 03A3 3097FD jnb P1.7,Wait_status_hi ;thay o muc thap van cho bat suon len 598 03A6 758CF7 mov TH0,#0f7h ;gap duoc suon len thi nap -2051(f7fd) vao 599 03A9 758AFD mov TL0,#0fdh ;de Timer0 dem tu gia tri do 600 03AC D28C setb TR0 ;khoi dong Timer0 601 demtiep: 602 03AE 2097FD jb P1.7,demtiep ;cho bat suon xuong 603 03B1 C28C clr TR0 ;gap suon xuong thi dung bo dem 604 03B3 858C66 mov Nxhi,TH0 ;doc ket qua dem cua T0(TH0,TL0) 605 03B6 858A67 mov Nxlo,TL0 ;vao Nx(Nxhi,Nxlo) 606 03B9 744F mov a,#4fh 607 03BB 120E57 lcall placecursor 608 03BE 120EA4 lcall prtLCD 609 03C1 20202020 db " ",0h 2000 610 03C7 856673 mov bytehi,Nxhi 611 03CA 856772 mov bytelo,Nxlo 612 03CD 120EF9 lcall hextodec 613 03D0 7F4F mov r7,#4fh 614 03D2 120ED9 lcall display5d 615 616 ;Tinh Rcd: Rcd=(U0*5063/Nx)-Rp 617 03D5 30020C jnb mode,Tinhtoan ;Kiem tra xem dang chay o che 618 03D8 756201 mov U0hi,#01h ;do nao neu chay o che do doc lap 619 03DB 756327 mov U0lo,#27h ;thi dat U0=297(V)=>0129h 620 03DE 756002 mov Rphi,#02h ;va Rp=755(k)=>02F8h 621 03E1 7561F8 mov Rplo,#0F8h 622 Tinhtoan: 623 03E4 856372 mov XL,U0lo ;Nhan U0 voi 5063 624 03E7 856273 mov XH,U0hi 625 03EA 757713 mov YH,#13h ;(5063=>13C7h) 626 03ED 75