📄 main.lst
字号:
263 0001C 0E45 JBS PORT5,1
264 0001D 056A INC KEY1CONT ; KEY1PROGRAM
265 0001E 0E85 JBS PORT5,2
266 0001F 056B INC KEY2CONT ; KEY2PROGRAM
267 00020 0EC5 JBS PORT5,3
268 00021 056C INC KEY3CONT ; KEY3PROGRAM
269 00022 12E2 CALL CLEARKEYCON
270
271
272 00023 1864 MOV A,@100 ;立即数需要设置
273 00024 0129 SUB A,KEY0CONT
274 00025 0E03 JBS R3,0
275 00026 142C JMP KEY1LABEL
276 00027 1864 MOV A,@100
277 00028 012A SUB A,KEY1CONT
278 00029 0E03 JBS R3,0
279 0002A 143F JMP KEY4LABEL ;BIT0:MODELABEL
280 0002B 1443 JMP KEY6LABEL;BIT0ANDBIT1:DOWNLABEL
281 0002C KEY1LABEL:
282 0002C 1864 MOV A,@100
283 0002D 012A SUB A,KEY1CONT
284 0002E 0E03 JBS R3,0
285 0002F 1431 JMP KEY2LABEL
286 00030 0A61 BS KEYFLAG,1;BIT1:RIGHTLABEL
287 00031 KEY2LABEL:
288 00031 1864 MOV A,@100
289 00032 012B SUB A,KEY2CONT
290 00033 0E03 JBS R3,0
291 00034 143A JMP KEY3LABEL
292 00035 1864 MOV A,@100
293 00036 012C SUB A,KEY3CONT
294 00037 0E03 JBS R3,0
295 00038 1441 JMP KEY5LABEL;BIT2:LEFTLABEL
296 00039 1445 JMP KEY7LABEL;BIT2ANDBIT3:UPLABEL
297 0003A KEY3LABEL:
298 0003A 1864 MOV A,@100
299 0003B 012C SUB A,KEY3CONT
300 0003C 0C03 JBC R3,0
301 0003D 0B21 BS KEYFLAG,4;BIT3:MODELABEL ;3
302
303 0003E 144B JMP INIRETEN
304 0003F KEY4LABEL:
305 0003F 0A21 BS KEYFLAG,0
306 00040 144B JMP INIRETEN
307 00041 KEY5LABEL:
308 00041 0AE1 BS KEYFLAG,3
309 00042 144B JMP INIRETEN
310 00043 KEY6LABEL:
311 00043 0AA1 BS KEYFLAG,2
312 00044 144B JMP INIRETEN
313 00045 KEY7LABEL:
314 00045 0B61 BS KEYFLAG,5
315 00046 144B JMP INIRETEN
316
317 00047 DISINC:
318 00047 0405 MOV A,PORT5
319 00048 1B0F XOR A,@0X0F
320 00049 0C83 JBC R3,Z
321 0004A 092D BC FLAGSTATUS,4
322
323 0004B INIRETEN:
324
325 0004B 1806 MOV A,@0X06
326 0004C 0041 MOV RTCC,A
327 0004D 072F SWAPA STACK_S ;Restore the SAVED value of STATUS
328 0004E 0043 MOV R3,A
329 0004F 072E SWAPA STACK_A
330 ;BS RF,0
331 00050 0013 RETI
332 ;JMP INT_RET
333
334 ;===========================
335 ;=============mainprogram===
336 ;===========================
337 ;ORG 0x20
338
339
340 00051 MAIN:
341 00051 1811 MOV A,@0X11
342 00052 000E IOW IOCE
343 00053 18D3 MOV A,@0B11010011
344 00054 0006 IOW PORT6
345 00055 0886 BC PORT6,2
346 00056 0AC6 BS PORT6,3
347 00057 0B46 BS PORT6,5
348
349
350
351 ;MOV A,@0XA0
352 ;MOV SLAVE,A
353 ;MOV A,@0X1E
354 ;MOV ADDR,A
355 ;MOV A,@0X38
356 ;MOV DATAO,A
357
358 ; CALL WRBYTE
359
360 ; MOV A,@0XA0
361 ; MOV SLAVE,A
362 ; MOV A,@0X1E
363 ; MOV ADDR,A
364 ;
365 ; CALL RDBYTE
366
367 00058 00E3 CLR SYSTEMH
368 00059 00E0 CLR SYSTEML
369 0005A 00F6 CLR TABALFLAG
370 0005B 00E1 CLR KEYFLAG
371 0005C 00ED CLR FLAGSTATUS
372 ; CLR KEYER
373 0005D 00E4 CLR KEYTEMP
374 0005E 00E9 CLR KEY0CONT
375 0005F 00EA CLR KEY1CONT
376 00060 00EB CLR KEY2CONT
377 00061 00EC CLR KEY3CONT
378 00062 00E5 CLR KEY0CONTBUFER
379 00063 00E6 CLR KEY1CONTBUFER
380 00064 00E7 CLR KEY2CONTBUFER
381 00065 00E8 CLR KEY3CONTBUFER
382 00066 0B43 BS R3,5
383 00067 11C6 CALL E2PROM
384
385
386 00068 185F MOV A,@0X5F
387 00069 005D MOV TABALCOUNT,A
388 0006A 01DD dec TABALCOUNT
389 0006B 01DD dec TABALCOUNT
390 0006C 1800 MOV A,@0
391 0006D 005C MOV TABALPTR,A
392 0006E 18DE MOV A,@0XDE
393 0006F 0057 MOV SLAVE,A
394 00070 TFTINI:
395 00070 185A MOV A,@0X5A
396 00071 041C MOV A,TABALPTR
397 00072 0B43 BS R3,5
398 00073 1000 CALL TABAL
399
400 00074 0058 MOV ADDR,A
401 00075 055C INC TABALPTR
402
403 00076 041C MOV A,TABALPTR
404 00077 1000 CALL TABAL
405 00078 005A MOV DATAO,A
406 00079 0943 BC R3,5
407 0007A 12C2 CALL WRBYTE
408 0007B 055C INC TABALPTR
409
410 0007C 05DD DJZ TABALCOUNT
411 0007D 1470 JMP TFTINI
412
413
414 0007E 1800 MOV A,@0B00000000
415 0007F 0005 IOW PORT5
416 00080 0A05 BS PORT5,0
417 00081 0A45 BS PORT5,1
418 00082 0A85 BS PORT5,2
419 00083 0AC5 BS PORT5,3
420 ;BS PORT5,4
421 ;BS PORT5,5
422 ;BS PORT5,6
423 ;BS PORT5,7
424 00084 18FF MOV A,@0B11111111 ; Force SDA line as input
425 00085 0005 IOW PORT5
426
427 00086 18D8 MOV A,@0XD8
428 00087 0057 MOV SLAVE,A
429 00088 181E MOV A,@0X1E
430 00089 0058 MOV ADDR,A
431 0008A 0430 MOV A,TFTBRIGHT
432 0008B 11ED CALL TEMPTOVOL
433 0008C 1F39 ADD A,@0X39 ;
434 0008D 005A MOV DATAO,A ;DA4*BRIGHT
435 0008E 12C2 CALL WRBYTE
436
437 0008F 18D8 MOV A,@0XD8
438 00090 0057 MOV SLAVE,A
439 00091 181F MOV A,@0X1F
440 00092 0058 MOV ADDR,A
441 00093 0431 MOV A,TFTCONTRAST
442 00094 11ED CALL TEMPTOVOL
443 00095 1F53 ADD A,@0X53 ;0
444 00096 005A MOV DATAO,A
445 00097 12C2 CALL WRBYTE
446
447 00098 18D8 MOV A,@0XD8
448 00099 0057 MOV SLAVE,A
449 0009A 1820 MOV A,@0X20
450 0009B 0058 MOV ADDR,A
451 0009C 0432 MOV A,TFTCOLOR
452 0009D 11ED CALL TEMPTOVOL
453 0009E 1F75 ADD A,@0X75
454 0009F 005A MOV DATAO,A
455 000A0 12C2 CALL WRBYTE
456
457 000A1 12FC CALL OSDINITIAL
458 000A2 08C6 BC PORT6,3
459 000A3 0946 BC PORT6,5
460 000A4 TCCPRO:
461 000A4 0004 WDTC
462
463 000A5 1806 MOV A,@0X06
464 000A6 0041 MOV RTCC ,A
465
466 000A7 1841 MOV A,@0X41
467 000A8 0002 CONTW
468 000A9 1801 MOV A,@0X01
469 000AA 000F IOW IOCF
470 000AB 0010 ENI
471
472 000AC KEY_SCAN:
473 000AC 0EED JBS FLAGSTATUS,3
474 000AD 14B2 JMP $+5
475 000AE 180A MOV A,@10
476 000AF 0123 SUB A,SYSTEMH
477 000B0 0C03 JBC R3,C
478 000B1 152E JMP CLOSEOSD
479
480 000B2 1800 MOV A,@0
481 000B3 0324 XOR A,KEYTEMP
482 000B4 0C83 JBC R3,Z
483 000B5 14BA JMP $+5
484 000B6 1828 MOV A,@40
485 000B7 0123 SUB A,SYSTEMH
486 000B8 0C03 JBC R3,C
487 000B9 152E JMP CLOSEOSD
488 000BA 0421 MOV A,KEYFLAG
489 000BB 0020 TBL
490 000BC 14AC JMP KEY_SCAN;0
491 000BD 1512 JMP MODELABEL;1
492 000BE 1506 JMP RIGHTLABEL;2
493 000BF 0000 NOP ;3
494 000C0 14E4 JMP DOWNLABEL;4
495 000C1 0000 NOP ;5
496 000C2 0000 NOP ;6
497 000C3 0000 NOP ;7
498 000C4 14FA JMP LEFTLABEL;8
499 000C5 DELAY:
500 000C5 18FA MOV A,@250 ;9
501 000C6 005E MOV TABALCOUNT2,A;10
502 000C7 DELAY1:
503 000C7 0000 NOP
504 000C8 0000 NOP
505 000C9 05DE DJZ TABALCOUNT2
506 000CA 14C7 JMP DELAY1
507
508 000CB 0012 RET;15
509 000CC 0B43 BS R3,5
510 000CD 1638 JMP ENTERLABEL;16:ENTER
511 000CE UPLABEL:
512 000CE 00E3 CLR SYSTEMH
513 000CF 00EB CLR KEY2CONT ;17
514 000D0 00E7 CLR KEY2CONTBUFER ;18
515 000D1 00EC CLR KEY3CONT ;19
516 000D2 00E8 CLR KEY3CONTBUFER ;20
517 000D3 00E1 CLR KEYFLAG ;21
518 ;CLR KEYBUFFER
519 000D4 0B2D BS FLAGSTATUS,4 ;22
520
521 000D5 1801 MOV A,@1 ;23
522 000D6 0324 XOR A,KEYTEMP ;24
523 000D7 0E83 JBS R3,Z ;判恶⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -