📄 tiaoshi.lst
字号:
349 000FB 0323 xor a,count0
350 000FC 0E83 jbs psw,z
351 000FD 1500 jmp disp0_next4
352 000FE 0946 bc port6,5
353 000FF 0012 ret
354 00100 disp0_next4: ; 第六灯最暗
355 00100 1805 mov a,@5
356 00101 0323 xor a,count0
357 00102 0E83 jbs psw,z
358 00103 1506 jmp disp0_next5
359 00104 0946 bc port6,5
360 00105 0012 ret
361 00106 disp0_next5: ; 第七灯最暗
362 00106 1806 mov a,@6
363 00107 0323 xor a,count0
364 00108 0E83 jbs psw,z
365 00109 0012 ret
366 0010A 0845 bc port5,1
367 0010B 0012 ret
368
369 ;----------------------------------------------------------------------
370 ;可变计数器，决定占空比
371 ;-----------------------------------------------------------------------
372 0010C bian_loop:
373
374 0010C 0553 inc temp3
375 0010D 1864 mov a,@0x64
376 0010E 0313 xor a,temp3
377 0010F 0E83 jbs psw,z
378 00110 0012 ret
379 00111 00D3 clr temp3
380 00112 0560 inc count3
381 00113 1807 mov a,@7
382 00114 0320 xor a,count3
383 00115 0E83 jbs psw,z
384 00116 0012 ret
385 00117 00E0 clr count3
386 00118 184B mov a,@75
387 00119 0053 mov temp3,a
388 0011A 0012 ret
389 0011B bian1_loop:
390 0011B 0554 inc temp2
391 0011C 1864 mov a,@0x64
392 0011D 0314 xor a,temp2
393 0011E 0E83 jbs psw,z
394 0011F 0012 ret
395 ;jmp bian_next1
396 00120 00D4 clr temp2
397 00121 0561 inc count2
398 00122 1807 mov a,@7
399 00123 0321 xor a,count2
400 00124 0E83 jbs psw,z
401 00125 0012 ret
402 ;jmp bian_next1
403 00126 00E1 clr count2
404 00127 1832 mov a,@50
405 00128 0054 mov temp2,a
406 00129 0012 ret
407 0012A bian2_loop:
408 0012A 0555 inc temp1
409 0012B 1864 mov a,@0x64
410 0012C 0315 xor a,temp1
411 0012D 0E83 jbs psw,z
412 0012E 0012 ret
413 ;jmp bian_next2
414 0012F 00D5 clr temp1
415 00130 0562 inc count1
416 00131 1807 mov a,@7
417 00132 0322 xor a,count1
418 00133 0E83 jbs psw,z
419 00134 0012 ret
420 ;jmp bian_next2
421 00135 00E2 clr count1
422 00136 1819 mov a,@25
423 00137 0055 mov temp1,a
424 00138 0012 ret
425 00139 bian3_loop:
426 00139 0556 inc temp0
427 0013A 1864 mov a,@0x64
428 0013B 0316 xor a,temp0
429 0013C 0E83 jbs psw,z
430 0013D 0012 ret
431 0013E 00D6 clr temp0
432 0013F 0563 inc count0
433 00140 1807 mov a,@7
434 00141 0323 xor a,count0
435 00142 0E83 jbs psw,z
436 00143 0012 ret
437 00144 00E3 clr count0
438 00145 1800 mov a,@0
439 00146 0056 mov temp0,a
440 00147 0012 ret
441 ;----------------------------------------------------------------------
442 ;按键扫描程序
443 ;----------------------------------------------------------------------
444 00148 key_scan:
445 00148 117D call delay
446 00149 0406 mov a,port6 ; 读取P6口
447 0014A 1A02 and a,@0x02
448 0014B 1B02 xor a,@0x02
449 0014C 0E83 jbs psw,z ; 键值是否一样
450 0014D 157B jmp key_next ; 否，清0
451 0014E 0C5B jbc flag,1 ; 否，是否已经响应过
452 0014F 0012 ret
453 00150 055A inc count
454 00151 1804 mov a,@4
455 00152 031A xor a,count
456 00153 0E83 jbs psw,z
457 00154 1556 jmp key_next1
458 00155 00DA clr count
459 00156 key_next1:
460 00156 0080 clra
461 00157 031A xor a,count
462 00158 0E83 jbs psw,z
463 00159 155F jmp key_next2
464 0015A 181E mov a,@30
465 0015B 005E mov time0,a
466 0015C 041E mov a,time0
467 0015D 005C mov time,a
468 0015E 1579 jmp time_out
469 0015F key_next2:
470 0015F 1801 mov a,@1
471 00160 031A xor a,count
472 00161 0E83 jbs psw,z
473 00162 1568 jmp key_next3
474 00163 180A mov a,@10
475 00164 005E mov time0,a
476 00165 041E mov a,time0
477 00166 005C mov time,a
478 00167 1579 jmp time_out
479 00168 key_next3:
480 00168 1802 mov a,@2
481 00169 031A xor a,count
482 0016A 0E83 jbs psw,z
483 0016B 1571 jmp key_next4
484 0016C 1806 mov a,@6
485 0016D 005E mov time0,a
486 0016E 041E mov a,time0
487 0016F 005C mov time,a
488 00170 1579 jmp time_out
489 00171 key_next4:
490 00171 1803 mov a,@3
491 00172 031A xor a,count
492 00173 0E83 jbs psw,z
493 00174 0012 ret
494 00175 1801 mov a,@1
495 00176 005E mov time0,a
496 00177 041E mov a,time0
497 00178 005C mov time,a
498
499 00179 time_out:
500 00179 0A5B bs flag,1
501 0017A 0012 ret
502 0017B key_next:
503 0017B 085B bc flag,1
504 0017C 0012 ret
505 ;-----------------------------------------------------------------------------------
506 ;延时子程序
507 ;-----------------------------------------------------------------------------------
508 0017D delay:
509 0017D 1805 mov a,@5
510 0017E 0057 mov r_x1,a
511 0017F d1:
512 0017F 18FA mov a,@250
513 00180 0058 mov r_x2,a
514 00181 d2:
515 00181 0000 nop
516 00182 05D8 djz r_x2
517 00183 1581 jmp d2
518 00184 05D7 djz r_x1
519 00185 157F jmp d1
520 00186 0012 ret
521 end
0 Error(s), 0 Warning(s), 0 User Message(s)⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -