📄 glcd_t~1.lst
字号:
00FD 1487 00488 BSF PORTC,1
00FE 0831 00489 MOVFW 49
00FF 0008 00490 RETURN
0100 00491 READ@IT
0100 2142 00492 CALL READ@STATUS
0101 1487 00493 BSF PORTC,1
0102 1407 00494 BSF PORTC,0
0103 1683 00495 BSF 3,5
0104 30FF 00496 MOVLW 255
0105 0088 00497 MOVWF PORTD
0106 1283 00498 BCF 3,5
0107 1409 00499 BSF PORTE,0
0108 2909 00500 GOTO $ + 1
0109 0808 00501 MOVFW PORTD
010A 00B1 00502 MOVWF 49
010B 1009 00503 BCF PORTE,0
010C 1683 00504 BSF 3,5
010D 0188 00505 CLRF PORTD
010E 1283 00506 BCF 3,5
010F 1007 00507 BCF PORTC,0
0110 1087 00508 BCF PORTC,1
0111 0008 00509 RETURN
0112 00510 SETUP@LCD
0112 0064 00511 CLRWDT
0113 00B5 00512 MOVWF 53
0114 18A0 00513 BTFSC 32,1
0115 292D 00514 GOTO SKP@GCSIN
0116 1683 00515 BSF 3,5
0117 1009 00516 BCF PORTE,0
0118 1087 00517 BCF PORTC,1
0119 1007 00518 BCF PORTC,0
011A 1089 00519 BCF PORTE,1
011B 1109 00520 BCF PORTE,2
011C 0188 00521 CLRF PORTD
011D 1283 00522 BCF 3,5
011E 14A0 00523 BSF 32,1
011F 1009 00524 BCF PORTE,0
0120 1007 00525 BCF PORTC,0
0121 1087 00526 BCF PORTC,1
0122 01A5 00527 CLRF GLCD_XPOS
0123 30B8 00528 MOVLW 10111000B
0124 2142 00529 CALL READ@STATUS
0125 213D 00530 CALL TG@L
0126 3040 00531 MOVLW 01000000B
0127 2142 00532 CALL READ@STATUS
0128 213D 00533 CALL TG@L
0129 30C0 00534 MOVLW 11000000B
012A 213D 00535 CALL TG@L
012B 303F 00536 MOVLW 00111111B
012C 213D 00537 CALL TG@L
012D 00538 SKP@GCSIN
012D 1087 00539 BCF PORTC,1
012E 0835 00540 MOVFW 53
012F 0008 00541 RETURN
0130 00542 CHECK@PAGE
0130 00A6 00543 MOVWF 38
0131 3040 00544 MOVLW 64
0132 0226 00545 SUBWF 38,W
0133 1803 00546 SKPNC
0134 2939 00547 GOTO SKP@GCHK
0135 1089 00548 BCF PORTE,1
0136 0000 00549 NOP
0137 1509 00550 BSF PORTE,2
0138 0008 00551 RETURN
0139 00552 SKP@GCHK
0139 1489 00553 BSF PORTE,1
013A 0000 00554 NOP
013B 1109 00555 BCF PORTE,2
013C 0008 00556 RETURN
013D 1409 00557 TG@L BSF PORTE,0
013E 0088 00558 MOVWF PORTD
013F 2940 00559 GOTO $ + 1
0140 1009 00560 BCF PORTE,0
0141 0008 00561 RETURN
0142 1407 00562 READ@STATUS BSF PORTC,0
0143 1683 00563 BSF 3,5
0144 0188 00564 CLRF PORTD
0145 0388 00565 DECF PORTD,F
0146 1283 00566 BCF 3,5
0147 01A7 00567 CLRF 39
0148 1409 00568 R@SLP1 BSF PORTE,0
0149 294A 00569 GOTO $ + 1
014A 1009 00570 BCF PORTE,0
014B 294C 00571 GOTO $ + 1
014C 1F88 00572 BTFSS PORTD,7
014D 2950 00573 GOTO $ + 3
014E 0FA7 00574 INCFSZ 39,F
014F 2948 00575 GOTO R@SLP1
0150 1683 00576 BSF 3,5
0151 0188 00577 CLRF PORTD
0152 1283 00578 BCF 3,5
0153 1007 00579 BCF PORTC,0
0154 0008 00580 RETURN
0155 00581 MUL@8X8
0155 01B4 00582 CLRF 52
0156 01A7 00583 CLRF 39
0157 15A7 00584 BSF 39,3
0158 0CB3 00585 RRF 51,F
0159 00586 MPY@LP1
0159 1803 00587 SKPNC
015A 07B4 00588 ADDWF 52,F
015B 0CB4 00589 RRF 52,F
015C 0CB3 00590 RRF 51,F
015D 0BA7 00591 DECFSZ 39,F
015E 2959 00592 GOTO MPY@LP1
015F 0008 00593 RETURN
0160 00594 RSOUT@
0160 00595 C@READ
0160 1683 00596 BSF 3,5
0161 1703 00597 BSF 3,6
0162 178C 00598 BSF 396,EEPGD
0163 140C 00599 BSF 396,RD
0164 2965 00600 GOTO $ + 1
0165 1283 00601 BCF 3,5
0166 080C 00602 MOVFW 268
0167 298A 00603 GOTO I@NT
0168 01AA 00604 DL@MS CLRF 42
0169 00A9 00605 DLY@W MOVWF 41
016A 30FF 00606 MOVLW 255
016B 07A9 00607 ADDWF 41,F
016C 1C03 00608 SKPC
016D 07AA 00609 ADDWF 42,F
016E 1C03 00610 SKPC
016F 298A 00611 GOTO I@NT
0170 3003 00612 MOVLW 3
0171 00A8 00613 MOVWF 40
0172 30DF 00614 MOVLW 223
0173 2176 00615 CALL DLUS@W
0174 296A 00616 GOTO $ - 10
0175 01A8 00617 DL@US CLRF 40
0176 3EE8 00618 DLUS@W ADDLW 232
0177 00A7 00619 MOVWF 39
0178 09A8 00620 COMF 40,F
0179 30FC 00621 MOVLW 252
017A 1C03 00622 SKPC
017B 297F 00623 GOTO $ + 4
017C 07A7 00624 ADDWF 39,F
017D 1803 00625 SKPNC
017E 297C 00626 GOTO $ - 2
017F 07A7 00627 ADDWF 39,F
0180 0000 00628 NOP
0181 0FA8 00629 INCFSZ 40,F
0182 297C 00630 GOTO $ - 6
0183 1827 00631 BTFSC 39,0
0184 2985 00632 GOTO $ + 1
0185 1CA7 00633 BTFSS 39,1
0186 2989 00634 GOTO $ + 3
0187 0000 00635 NOP
0188 2989 00636 GOTO $ + 1
0189 0008 00637 RETURN
018A 1383 00638 I@NT BCF 3,7
018B 1283 00639 BCF 3,5
018C 1303 00640 BCF 3,6
018D 0000 00641 NOP
018E 0008 00642 RETURN
018F 00643 START@
018F 01A0 00644 CLRF 32
00010
00011 LIST
00000036 00012 XPOS EQU 54
00000037 00013 YPOS EQU 55
00000190 00014 F1_SOF EQU $ ; GLCD_T~1.BAS
00000190 00015 F2_SOF EQU $ ; PROTON_G4.INT
00000190 00016 F2_000069 EQU $ ; in [PROTON_G4.INT] ADCON1 = 7 ' Set PORTA and PORTE to all digital
0190 3007 00017 MOVLW 7
0191 1683 00018 BSF STATUS,5
00000001 00019 RAM_BANK = 1
0192 009F 00020 MOVWF ADCON1
00000193 00021 F2_EOF EQU $ ; PROTON_G4.INT
00000193 00022 F1_000010 EQU $ ; in [GLCD_T~1.BAS] Cls
0193 1283 00023 BCF STATUS,5
00000000 00024 RAM_BANK = 0
00025 F@CALL GLCD@CLS
00000196 00026 F1_000011 EQU $ ; in [GLCD_T~1.BAS] Print at 0 , 2 , "Graphic LCD Test"
0196 01A2 00027 CLRF GEN
0197 3002 00028 MOVLW 2
00029 F@CALL GLCD_CUR
019A 3047 00030 MOVLW 'G'
00031 F@CALL PRINT
019D 3072 00032 MOVLW 'r'
00033 F@CALL PRINT
01A0 3061 00034 MOVLW 'a'
00035 F@CALL PRINT
01A3 3070 00036 MOVLW 'p'
00037 F@CALL PRINT
01A6 3068 00038 MOVLW 'h'
00039 F@CALL PRINT
01A9 3069 00040 MOVLW 'i'
00041 F@CALL PRINT
01AC 3063 00042 MOVLW 'c'
00043 F@CALL PRINT
01AF 3020 00044 MOVLW ' '
00045 F@CALL PRINT
01B2 304C 00046 MOVLW 'L'
00047 F@CALL PRINT
01B5 3043 00048 MOVLW 'C'
00049 F@CALL PRINT
01B8 3044 00050 MOVLW 'D'
00051 F@CALL PRINT
01BB 3020 00052 MOVLW ' '
00053 F@CALL PRINT
01BE 3054 00054 MOVLW 'T'
00055 F@CALL PRINT
01C1 3065 00056 MOVLW 'e'
00057 F@CALL PRINT
01C4 3073 00058 MOVLW 's'
00059 F@CALL PRINT
01C7 3074 00060 MOVLW 't'
00061 F@CALL PRINT
01CA 00062 AGAIN
000001CA 00063 F1_000014 EQU $ ; in [GLCD_T~1.BAS] For Xpos = 0 to 63
01CA 01B6 00064 CLRF XPOS
01CB 00065 FR@LB2
01CB 3040 00066 MOVLW 64
01CC 0236 00067 SUBWF XPOS,W
00068 SET@PAGE NX@LB3
01CF 1803 00069 BTFSC STATUS,0
01D0 29E2 00070 GOTO NX@LB3
000001D1 00071 F1_000015 EQU $ ; in [GLCD_T~1.BAS] Ypos = SIN Xpos
01D1 0836 00072 MOVFW XPOS
00073 F@CALL SIN
01D4 00B7 00074 MOVWF YPOS
000001D5 00075 F1_000016 EQU $ ; in [GLCD_T~1.BAS] Plot Xpos , Ypos
01D5 0836 00076 MOVFW XPOS
01D6 00A2 00077 MOVWF GEN
01D7 0837 00078 MOVFW YPOS
00079 F@CALL LCD@PLOT
000001DA 00080 F1_000017 EQU $ ; in [GLCD_T~1.BAS] Delayms 10
01DA 300A 00081 MOVLW 10
00082 F@CALL DL@MS
000001DD 00083 F1_000018 EQU $ ; in [GLCD_T~1.BAS] Next
01DD 0AB6 00084 INCF XPOS,F
00085 SET@PAGE FR@LB2
01E0 1D03 00086 BTFSS STATUS,2
01E1 29CB 00087 GOTO FR@LB2
01E2 00088 NX@LB3
000001E2 00089 F1_000019 EQU $ ; in [GLCD_T~1.BAS] For Xpos = 0 to 63
01E2 01B6 00090 CLRF XPOS
01E3 00091 FR@LB4
01E3 3040 00092 MOVLW 64
01E4 0236 00093 SUBWF XPOS,W
00094 SET@PAGE NX@LB5
01E7 1803 00095 BTFSC STATUS,0
01E8 29FA 00096 GOTO NX@LB5
000001E9 00097 F1_000020 EQU $ ; in [GLCD_T~1.BAS] Ypos = SIN Xpos
01E9 0836 00098 MOVFW XPOS
00099 F@CALL SIN
01EC 00B7 00100 MOVWF YPOS
000001ED 00101 F1_000021 EQU $ ; in [GLCD_T~1.BAS] UnPlot Xpos , Ypos
01ED 0836 00102 MOVFW XPOS
01EE 00A2 00103 MOVWF GEN
01EF 0837 00104 MOVFW YPOS
00105 F@CALL LCD@UNPLOT
000001F2 00106 F1_000022 EQU $ ; in [GLCD_T~1.BAS] Delayms 10
01F2 300A 00107 MOVLW 10
00108 F@CALL DL@MS
000001F5 00109 F1_000023 EQU $ ; in [GLCD_T~1.BAS] Next
01F5 0AB6 00110 INCF XPOS,F
00111 SET@PAGE FR@LB4
01F8 1D03 00112 BTFSS STATUS,2
01F9 29E3 00113 GOTO FR@LB4
01FA 00114 NX@LB5
000001FA 00115 F1_000024 EQU $ ; in [GLCD_T~1.BAS] Goto Again
00116 F@JUMP AGAIN
000001FC 00117 F3_SOF EQU $ ; FONT.INC
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -