📄 demo_led_8255.lst
字号:
0269 752311 189 MOV BUFF_LED2,#17
026C 752511 190 MOV BUFF_LED4,#17
A51 MACRO ASSEMBLER DEMO_LED_8255 05/30/2006 11:12:23 PAGE 4
026F 752611 191 MOV BUFF_LED5,#17
0272 3096FD 192 JNB KEYL2,$
0275 2148 193 JMP WAIT_KEYL1
0277 752801 194 KS12: MOV BUFF_LED7,#01
027A 752902 195 MOV BUFF_LED8,#02
027D 752211 196 MOV BUFF_LED1,#17
0280 752311 197 MOV BUFF_LED2,#17
0283 752511 198 MOV BUFF_LED4,#17
0286 752611 199 MOV BUFF_LED5,#17
0289 3096FD 200 JNB KEYL2,$
028C 2148 201 JMP WAIT_KEYL1
028E 752801 202 KS13: MOV BUFF_LED7,#01
0291 752903 203 MOV BUFF_LED8,#03
0294 752211 204 MOV BUFF_LED1,#17
0297 752311 205 MOV BUFF_LED2,#17
029A 752511 206 MOV BUFF_LED4,#17
029D 752611 207 MOV BUFF_LED5,#17
02A0 3096FD 208 JNB KEYL2,$
02A3 2148 209 JMP WAIT_KEYL1
02A5 752801 210 KS14: MOV BUFF_LED7,#01
02A8 752904 211 MOV BUFF_LED8,#04
02AB 752211 212 MOV BUFF_LED1,#17
02AE 752311 213 MOV BUFF_LED2,#17
02B1 752511 214 MOV BUFF_LED4,#17
02B4 752611 215 MOV BUFF_LED5,#17
02B7 3096FD 216 JNB KEYL2,$
02BA 2148 217 JMP WAIT_KEYL1
02BC 752801 218 KS15: MOV BUFF_LED7,#01
02BF 752905 219 MOV BUFF_LED8,#05
02C2 752211 220 MOV BUFF_LED1,#17
02C5 752311 221 MOV BUFF_LED2,#17
02C8 752511 222 MOV BUFF_LED4,#17
02CB 752611 223 MOV BUFF_LED5,#17
02CE 3096FD 224 JNB KEYL2,$
02D1 2148 225 JMP WAIT_KEYL1
02D3 752801 226 KS16: MOV BUFF_LED7,#01
02D6 752906 227 MOV BUFF_LED8,#06
02D9 752211 228 MOV BUFF_LED1,#17
02DC 752311 229 MOV BUFF_LED2,#17
02DF 752511 230 MOV BUFF_LED4,#17
02E2 752611 231 MOV BUFF_LED5,#17
02E5 3096FD 232 JNB KEYL2,$
02E8 2148 233 JMP WAIT_KEYL1
02EA 020360 234 SW5_OKA: JMP SW5_OK
02ED 02037C 235 SW6_OKA: JMP SW6_OK
02F0 E538 236 SW1_OK: MOV A,HOR
02F2 B4180C 237 CJNE A,#24,SW1_OVER
02F5 753800 238 MOV HOR,#00H
02F8 D297 239 SETB BEEP
02FA 120398 240 LCALL DEL
02FD C297 241 CLR BEEP
02FF 2148 242 JMP WAIT_KEYL1
0301 0538 243 SW1_OVER:INC HOR ;时加1
0303 D297 244 SETB BEEP
0305 120398 245 LCALL DEL
0308 C297 246 CLR BEEP
030A 2148 247 JMP WAIT_KEYL1
248
030C E538 249 SW2_OK: MOV A,HOR
030E B4000C 250 CJNE A,#00,SW2_OVER
0311 753817 251 MOV HOR,#23
0314 D297 252 SETB BEEP
0316 120398 253 LCALL DEL
0319 C297 254 CLR BEEP
031B 2148 255 JMP WAIT_KEYL1
031D 1538 256 SW2_OVER:DEC HOR ;时减1
A51 MACRO ASSEMBLER DEMO_LED_8255 05/30/2006 11:12:23 PAGE 5
031F D297 257 SETB BEEP
0321 120398 258 LCALL DEL
0324 C297 259 CLR BEEP
0326 2148 260 JMP WAIT_KEYL1
261
0328 E539 262 SW3_OK: MOV A,MIN
032A B43B0C 263 CJNE A,#59,SW3_OVER
032D 753900 264 MOV MIN,#00H
0330 D297 265 SETB BEEP
0332 120398 266 LCALL DEL
0335 C297 267 CLR BEEP
0337 2148 268 JMP WAIT_KEYL1
0339 0539 269 SW3_OVER:INC MIN ;分加1
033B D297 270 SETB BEEP
033D 120398 271 LCALL DEL
0340 C297 272 CLR BEEP
0342 2148 273 JMP WAIT_KEYL1
274
0344 E539 275 SW4_OK: MOV A,MIN
0346 B4000C 276 CJNE A,#00,SW4_OVER
0349 75393B 277 MOV MIN,#59
034C D297 278 SETB BEEP
034E 120398 279 LCALL DEL
0351 C297 280 CLR BEEP
0353 2148 281 JMP WAIT_KEYL1
0355 1539 282 SW4_OVER:DEC MIN ;分减1
0357 D297 283 SETB BEEP
0359 120398 284 LCALL DEL
035C C297 285 CLR BEEP
035E 2148 286 JMP WAIT_KEYL1
287
0360 E53A 288 SW5_OK: MOV A,SEC
0362 B43B0C 289 CJNE A,#59,SW5_OVER
0365 753A00 290 MOV SEC,#00H
0368 D297 291 SETB BEEP
036A 120398 292 LCALL DEL
036D C297 293 CLR BEEP
036F 2148 294 JMP WAIT_KEYL1
0371 053A 295 SW5_OVER:INC SEC ;秒加1
0373 D297 296 SETB BEEP
0375 120398 297 LCALL DEL
0378 C297 298 CLR BEEP
037A 2148 299 JMP WAIT_KEYL1
300
037C E53A 301 SW6_OK: MOV A,SEC
037E B4000C 302 CJNE A,#00,SW6_OVER
0381 75383B 303 MOV HOR,#59
0384 D297 304 SETB BEEP
0386 120398 305 LCALL DEL
0389 C297 306 CLR BEEP
038B 2148 307 JMP WAIT_KEYL1
038D 153A 308 SW6_OVER:DEC SEC ;时减1
038F D297 309 SETB BEEP
0391 120398 310 LCALL DEL
0394 C297 311 CLR BEEP
0396 2148 312 JMP WAIT_KEYL1
0398 7EC8 313 DEL: MOV R6,#200
039A 7DFF 314 DEL0: MOV R5,#0FFH
039C DDFE 315 DJNZ R5,$
039E 7DFF 316 MOV R5,#0FFH
03A0 DDFE 317 DJNZ R5,$
03A2 7DFF 318 MOV R5,#0FFH
03A4 DDFE 319 DJNZ R5,$
03A6 7DFF 320 MOV R5,#0FFH
03A8 DDFE 321 DJNZ R5,$
03AA 7DFF 322 MOV R5,#0FFH
A51 MACRO ASSEMBLER DEMO_LED_8255 05/30/2006 11:12:23 PAGE 6
03AC DDFE 323 DJNZ R5,$
03AE 7DFF 324 MOV R5,#0FFH
03B0 DDFE 325 DJNZ R5,$
03B2 DEE6 326 DJNZ R6,DEL0
03B4 22 327 RET
328
329
03B5 75F00A 330 BIN_BCD: MOV B,#10
03B8 84 331 DIV AB
03B9 22 332 RET
333
334 ;------------- T0 INTRRUPT 数码管扫描定时中断---------------------------
03BA C0E0 335 T0_INT: PUSH ACC
03BC C0D0 336 PUSH PSW
03BE C083 337 PUSH DPH
03C0 C082 338 PUSH DPL
03C2 758CF6 339 MOV TH0,#HIGH(65536-2500) ;T0=2.5MS
03C5 758A3C 340 MOV TL0,#LOW(65536-2500)
03C8 052A 341 INC BUFF_LED_LP
03CA E52A 342 MOV A,BUFF_LED_LP
03CC B40850 343 CJNE A,#08,CON_INT0
03CF 752A00 344 MOV BUFF_LED_LP,#00H
03D2 052C 345 INC BUFF_T0
03D4 E52C 346 MOV A,BUFF_T0
03D6 B43246 347 CJNE A,#50,CON_INT0 ;50*8*2.5MS=1S
03D9 752C00 348 MOV BUFF_T0,#00H
03DC 053A 349 INC SEC
03DE E53A 350 MOV A,SEC
03E0 B43C1E 351 CJNE A,#60,CONT_SCAN
03E3 753A00 352 MOV SEC,#00H
03E6 0539 353 INC MIN
03E8 E539 354 MOV A,MIN
03EA B43C14 355 CJNE A,#60,CONT_SCAN
03ED 753900 356 MOV MIN,#00H
03F0 0538 357 INC HOR
03F2 E538 358 MOV A,HOR
03F4 B4180A 359 CJNE A,#24,CONT_SCAN ;24:00:00时BEEP报时,
03F7 753800 360 MOV HOR,#00H
03FA D297 361 SETB beep
03FC 120398 362 lcall del
03FF C297 363 CLR beep
364
0401 E53A 365 CONT_SCAN:MOV A,SEC
0403 1203B5 366 LCALL BIN_BCD
0406 85F029 367 MOV BUFF_LED8,B
0409 F528 368 MOV BUFF_LED7,A
040B E539 369 MOV A,MIN
040D 1203B5 370 LCALL BIN_BCD
0410 85F026 371 MOV BUFF_LED5,B
0413 F525 372 MOV BUFF_LED4,A
0415 E538 373 MOV A,HOR
0417 1203B5 374 LCALL BIN_BCD
041A 85F023 375 MOV BUFF_LED2,B
041D F522 376 MOV BUFF_LED1,A
041F E52A 377 CON_INT0: MOV A,BUFF_LED_LP
378 ;MOV B,#08
379 ;DIV AB
380 ;MOV A,B
0421 23 381 RL A
0422 900426 382 MOV DPTR,#TAB_SCAN
0425 73 383 JMP @A+DPTR
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -