📄 glcd_t~1.lst
字号:
0000418C 00240 N2400 = 16780
00000041 00241 N2400H = 65
000000BC 00242 T4800 = 188
000040BC 00243 N4800 = 16572
00000040 00244 N4800H = 64
00000054 00245 T9600 = 84
00004054 00246 N9600 = 16468
00000040 00247 N9600H = 64
0000818C 00248 OT2400 = 33164
000000A0 00249 OT2400H = 160
0000832D 00250 OT1200 = 33581
000000A0 00251 OT1200H = 160
00008054 00252 OT9600 = 32852
000000A0 00253 OT9600H = 160
00008CF1 00254 OT300 = 36081
000000A0 00255 OT300H = 160
0000C18C 00256 ON2400 = 49548
000000C1 00257 ON2400H = 193
0000C32D 00258 ON1200 = 49965
000000C3 00259 ON1200H = 195
0000C054 00260 ON9600 = 49236
000000C0 00261 ON9600H = 192
0000CCF1 00262 ON300 = 52465
000000CC 00263 ON300H = 204
00000001 00264 HOME = 1
00000007 00265 BELL = 7
00000008 00266 BKSP = 8
00000009 00267 TAB = 9
0000000D 00268 CR = 13
0000 00269 ORG 0
0000 0000 00270 NOP
0001 3001 00271 MOVLW HIGH START@
0002 008A 00272 MOVWF 10
0003 298F 00273 GOTO START@
0004 00274 ORG 4
0004 00A7 00275 SIN MOVWF 39
0005 397F 00276 SIN@A ANDLW 127
0006 1B27 00277 BTFSC 39,6
0007 3C80 00278 SUBLW 128
0008 200D 00279 CALL SI@G
0009 1BA7 00280 BTFSC 39,7
000A 3C00 00281 SUBLW 0
000B 00A7 00282 MOVWF 39
000C 0008 00283 RETURN
000D 018A 00284 SI@G CLRF 10
000E 0782 00285 ADDWF 2,F
000F 3400 3403 3406 00286 DT 0,3,6,9,12,16,19,22,25,28,31
3409 340C 3410
3413 3416 3419
341C 341F
001A 3422 3425 3428 00287 DT 34,37,40,43,46,49,51,54,57,60
342B 342E 3431
3433 3436 3439
343C
0024 343F 3441 3444 00288 DT 63,65,68,71,73,76,78,81,83,85
3447 3449 344C
344E 3451 3453
3455
002E 3458 345A 345C 00289 DT 88,90,92,94,96,98,100,102,104
345E 3460 3462
3464 3466 3468
0037 346A 346B 346D 00290 DT 106,107,109,111,112,113,115,116,117
346F 3470 3471
3473 3474 3475
0040 3476 3478 3479 00291 DT 118,120,121,122,122,123,124,125
347A 347A 347B
347C 347D
0048 347D 347E 347E 00292 DT 125,126,126,126,127,127,127,127
347E 347F 347F
347F 347F
0050 00293 GLCD@CLS
0050 10A0 00294 BCF 32,1
0051 2112 00295 CALL SETUP@LCD
0052 1089 00296 BCF PORTE,1
0053 1109 00297 BCF PORTE,2
0054 303E 00298 MOVLW 00111110B
0055 213D 00299 CALL TG@L
0056 01B3 00300 CLRF 51
0057 1087 00301 GLD@L1 BCF PORTC,1
0058 0833 00302 MOVFW 51
0059 38B8 00303 IORLW 10111000B
005A 2142 00304 CALL READ@STATUS
005B 213D 00305 CALL TG@L
005C 01B4 00306 CLRF 52
005D 1087 00307 GLCD@L2 BCF PORTC,1
005E 0834 00308 MOVFW 52
005F 3840 00309 IORLW 01000000B
0060 2142 00310 CALL READ@STATUS
0061 213D 00311 CALL TG@L
0062 0103 00312 CLRW
0063 1087 00313 BCF PORTC,1
0064 2142 00314 CALL READ@STATUS
0065 1487 00315 BSF PORTC,1
0066 213D 00316 CALL TG@L
0067 0AB4 00317 INCF 52,F
0068 1F34 00318 BTFSS 52,6
0069 285D 00319 GOTO GLCD@L2
006A 0AB3 00320 INCF 51,F
006B 1DB3 00321 BTFSS 51,3
006C 2857 00322 GOTO GLD@L1
006D 1087 00323 BCF PORTC,1
006E 10A0 00324 BCF 32,1
006F 2112 00325 CALL SETUP@LCD
0070 298A 00326 GOTO I@NT
0071 00327 GLCD_CUR
0071 2112 00328 CALL SETUP@LCD
0072 00A5 00329 MOVWF GLCD_XPOS
0073 1089 00330 BCF PORTE,1
0074 0000 00331 NOP
0075 1109 00332 BCF PORTE,2
0076 14A0 00333 BSF 32,1
0077 303F 00334 MOVLW 00111111B
0078 213D 00335 CALL TG@L
0079 30B8 00336 MOVLW 10111000B
007A 0422 00337 IORWF 34,W
007B 2142 00338 CALL READ@STATUS
007C 213D 00339 CALL TG@L
007D 0825 00340 MOVFW GLCD_XPOS
007E 00B3 00341 MOVWF 51
007F 3006 00342 MOVLW 6
0080 2155 00343 CALL MUL@8X8
0081 0833 00344 MOVFW 51
0082 2130 00345 CALL CHECK@PAGE
0083 0833 00346 MOVFW 51
0084 397F 00347 ANDLW 127
0085 00A5 00348 MOVWF GLCD_XPOS
0086 3840 00349 IORLW 01000000B
0087 2142 00350 CALL READ@STATUS
0088 213D 00351 CALL TG@L
0089 298A 00352 GOTO I@NT
00000008 00353 LCD_DTPORT = PORTD
00000004 00354 LCD_DTPIN = 4
00000007 00355 LCD_RSPORT = PORTC
00000001 00356 LCD_RSPIN = 1
00000007 00357 LCD_RWPORT = PORTC
00000000 00358 LCD_RWPIN = 0
00000009 00359 LCD_ENPORT = PORTE
00000000 00360 LCD_ENPIN = 0
00000009 00361 LCD_CS1PORT = PORTE
00000001 00362 LCD_CS1PIN = 1
00000009 00363 LCD_CS2PORT = PORTE
00000002 00364 LCD_CS2PIN = 2
00000001 00365 LCD_TYPE = 1
00000000 00366 LCD_CS_INVERTED = 0
008A 2112 00367 PRINT CALL SETUP@LCD
008B 00AE 00368 MOVWF 46
008C 0825 00369 MOVFW GLCD_XPOS
008D 2130 00370 CALL CHECK@PAGE
008E 082B 00371 MOVFW 43
008F 00A3 00372 MOVWF 35
0090 082C 00373 MOVFW 44
0091 00A4 00374 MOVWF 36
0092 082E 00375 MOVFW 46
0093 00B3 00376 MOVWF 51
0094 3006 00377 MOVLW 6
0095 2155 00378 CALL MUL@8X8
0096 30FC 00379 MOVLW LOW FONT
0097 0733 00380 ADDWF 51,W
0098 1703 00381 BSF 3,6
0099 008D 00382 MOVWF 269
009A 3001 00383 MOVLW HIGH FONT
009B 1803 00384 SKPNC
009C 3E01 00385 ADDLW 1
009D 1303 00386 BCF 3,6
009E 0734 00387 ADDWF 52,W
009F 1703 00388 BSF 3,6
00A0 008F 00389 MOVWF 271
00A1 1303 00390 BCF 3,6
00A2 3006 00391 MOVLW 6
00A3 00B3 00392 MOVWF 51
00A4 2160 00393 GLCD_L2 CALL C@READ
00A5 00AB 00394 MOVWF 43
00A6 20B6 00395 CALL LCDWRITE
00A7 1703 00396 BSF 3,6
00A8 0A8D 00397 INCF 269,F
00A9 1903 00398 SKPNZ
00AA 0A8F 00399 INCF 271,F
00AB 1303 00400 BCF 3,6
00AC 0BB3 00401 DECFSZ 51,F
00AD 28A4 00402 GOTO GLCD_L2
00AE 1489 00403 BSF PORTE,1
00AF 1509 00404 BSF PORTE,2
00B0 0823 00405 MOVFW 35
00B1 00AB 00406 MOVWF 43
00B2 0824 00407 MOVFW 36
00B3 00AC 00408 MOVWF 44
00B4 00409 LCD_DONE
00B4 082E 00410 MOVFW 46
00B5 298A 00411 GOTO I@NT
00B6 00412 LCDWRITE
00B6 082B 00413 MOVFW 43
00B7 1087 00414 BCF PORTC,1
00B8 2142 00415 CALL READ@STATUS
00B9 1487 00416 BSF PORTC,1
00BA 213D 00417 CALL TG@L
00BB 0AA5 00418 INCF GLCD_XPOS,F
00BC 3080 00419 MOVLW 128
00BD 0225 00420 SUBWF GLCD_XPOS,W
00BE 1803 00421 SKPNC
00BF 01A5 00422 CLRF GLCD_XPOS
00C0 0825 00423 MOVFW GLCD_XPOS
00C1 2130 00424 CALL CHECK@PAGE
00C2 1087 00425 BCF PORTC,1
00C3 0825 00426 MOVFW GLCD_XPOS
00C4 2142 00427 CALL READ@STATUS
00C5 293D 00428 GOTO TG@L
00C6 00429 LCD@PLOT
00C6 1520 00430 BSF 32,2
00C7 28C9 00431 GOTO $ + 2
00C8 00432 LCD@UNPLOT
00C8 1120 00433 BCF 32,2
00C9 2112 00434 CALL SETUP@LCD
00CA 20DD 00435 CALL GETBIT@POS
00CB 01B0 00436 CLRF 48
00CC 0AA2 00437 INCF 34,F
00CD 1403 00438 SETC
00CE 0DB0 00439 RLF 48,F
00CF 0BA2 00440 DECFSZ 34,F
00D0 28CE 00441 GOTO $ - 2
00D1 0830 00442 MOVFW 48
00D2 1D20 00443 BTFSS 32,2
00D3 28D6 00444 GOTO $ + 3
00D4 0431 00445 IORWF 49,W
00D5 28D8 00446 GOTO $ + 3
00D6 3AFF 00447 XORLW 255
00D7 0531 00448 ANDWF 49,W
00D8 1087 00449 BCF PORTC,1
00D9 2142 00450 CALL READ@STATUS
00DA 1487 00451 BSF PORTC,1
00DB 213D 00452 CALL TG@L
00DC 298A 00453 GOTO I@NT
00DD 00454 GETBIT@POS
00DD 00AE 00455 MOVWF 46
00DE 2130 00456 CALL CHECK@PAGE
00DF 1003 00457 CLRC
00E0 0C22 00458 RRF 34,W
00E1 00AF 00459 MOVWF 47
00E2 1003 00460 CLRC
00E3 0CAF 00461 RRF 47,F
00E4 1003 00462 CLRC
00E5 0CAF 00463 RRF 47,F
00E6 3007 00464 MOVLW 7
00E7 05A2 00465 ANDWF 34,F
00E8 30B8 00466 MOVLW 10111000B
00E9 042F 00467 IORWF 47,W
00EA 2142 00468 CALL READ@STATUS
00EB 213D 00469 CALL TG@L
00EC 3040 00470 MOVLW 01000000B
00ED 042E 00471 IORWF 46,W
00EE 2142 00472 CALL READ@STATUS
00EF 213D 00473 CALL TG@L
00F0 082E 00474 MOVFW 46
00F1 28F2 00475 GOTO READ@BYTE
00F2 00476 READ@BYTE
00F2 00B2 00477 MOVWF 50
00F3 2100 00478 CALL READ@IT
00F4 3040 00479 MOVLW 01000000B
00F5 0432 00480 IORWF 50,W
00F6 2142 00481 CALL READ@STATUS
00F7 213D 00482 CALL TG@L
00F8 2100 00483 CALL READ@IT
00F9 3040 00484 MOVLW 01000000B
00FA 0432 00485 IORWF 50,W
00FB 2142 00486 CALL READ@STATUS
00FC 213D 00487 CALL TG@L
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -