📄 gepe456.lst
字号:
00385
0107 2349 00386 DEM11 CALL DEMO11 ; shifting waveform demo - horizontal
0108 2569 00387 CALL WAITOFF ; wait until switch released
00388
0109 23C7 00389 DEM12 CALL DEMO12 ; shifting waveform demo - scope style
010A 2569 00390 CALL WAITOFF ; wait until switch released
00391
010B 28F0 00392 GOTO GRAPHIC ; end of demo, restart from beginning
00393
00394 ;****** DEMO 1 CREATE & SHOW SYMBOLS AS TEXT CHARACTERS **********
00395
010C 3094 00396 DEMO1 MOVLW B'10010100' ; text on, graphic off, cursor & blink off
010D 2514 00397 CALL SENDCMD ; send command
00398
00399 ; SETUP USER CG RAM
010E 3078 00400 MOVLW 120 ; 15 char x 8 byte = 120
010F 00A1 00401 MOVWF LOOPC ;
0110 24A2 00402 CALL SETCG ;
00403
0111 01A8 00404 CIRCUIT CLRF ADRMSB ; SHOW SYMBOLS
0112 3005 00405 MOVLW 5 ; set column
0113 254A 00406 CALL LINE1 ; set cell number for line stated
0114 3001 00407 MOVLW 1 ; character quantity
0115 00A1 00408 MOVWF LOOPC ;
0116 01A0 00409 CLRF LOOPB ;
0117 24C9 00410 CALL SHOWCG ;
00411
0118 01A8 00412 CLRF ADRMSB
0119 3001 00413 MOVLW 1 ; set column
011A 2547 00414 CALL LINE2 ; set cell number for line stated
011B 3009 00415 MOVLW 9 ; character quantity
011C 00A1 00416 MOVWF LOOPC ;
011D 24C9 00417 CALL SHOWCG ;
00418
011E 01A8 00419 CLRF ADRMSB
011F 3001 00420 MOVLW 1 ; set column
0120 2544 00421 CALL LINE3 ; set cell number for line stated
0121 300A 00422 MOVLW 10 ; character quantity
0122 00A1 00423 MOVWF LOOPC ;
0123 24C9 00424 CALL SHOWCG ;
MPASM 02.30 Released GEPE456.ASM 1-25-2001 12:25:31 PAGE 9
LOC OBJECT CODE LINE SOURCE TEXT
VALUE
00425
0124 01A8 00426 CLRF ADRMSB
0125 3003 00427 MOVLW 3 ; set column
0126 2541 00428 CALL LINE4 ; set cell number for line stated
0127 3003 00429 MOVLW 3 ; character quantity
0128 00A1 00430 MOVWF LOOPC ;
0129 24C9 00431 CALL SHOWCG ;
00432
012A 01A8 00433 CLRF ADRMSB
012B 3003 00434 MOVLW 3 ; set column
012C 253E 00435 CALL LINE5 ; set cell number for line stated
012D 3001 00436 MOVLW 1 ; character quantity
012E 00A1 00437 MOVWF LOOPC ;
012F 24C9 00438 CALL SHOWCG ;
00439
0130 01A8 00440 CLRF ADRMSB
0131 3003 00441 MOVLW 3 ; set column
0132 253B 00442 CALL LINE6 ; set cell number for line stated
0133 3001 00443 MOVLW 1 ; character quantity
0134 00A1 00444 MOVWF LOOPC ;
0135 24C9 00445 CALL SHOWCG ;
00446
0136 01A8 00447 CLRF ADRMSB
0137 3003 00448 MOVLW 3 ; set column
0138 2538 00449 CALL LINE7 ; set cell number for line stated
0139 3001 00450 MOVLW 1 ; character quantity
013A 00A1 00451 MOVWF LOOPC ;
013B 24C9 00452 CALL SHOWCG ;
00453
013C 00454 WORDS ; SHOW TEXT
013C 01A8 00455 CLRF ADRMSB
013D 3000 00456 MOVLW 0 ; set column
013E 254D 00457 CALL LINE0 ; set cell number for line stated
013F 3010 00458 MOVLW 16 ; character quantity
0140 00A1 00459 MOVWF LOOPC ;
0141 01A0 00460 CLRF LOOPB ; clear table loop counter
0142 24B2 00461 CALL SHWTXT ;
00462
0143 01A8 00463 CLRF ADRMSB
0144 3006 00464 MOVLW 6 ; set column
0145 253B 00465 CALL LINE6 ; set cell number for line stated
0146 300A 00466 MOVLW 10 ; character quantity
0147 00A1 00467 MOVWF LOOPC ; table loop counter remains at last call val
0148 24B2 00468 CALL SHWTXT ;
00469
0149 01A8 00470 CLRF ADRMSB
014A 3006 00471 MOVLW 6 ; set column
014B 2538 00472 CALL LINE7 ; set cell number for line stated
014C 3008 00473 MOVLW 8 ; character quantity
014D 00A1 00474 MOVWF LOOPC ; table loop counter remains at last call val
014E 24B2 00475 CALL SHWTXT ;
00476
014F 01A8 00477 CLRF ADRMSB ; THIS GOES INTO PAGE 2
MPASM 02.30 Released GEPE456.ASM 1-25-2001 12:25:31 PAGE 10
LOC OBJECT CODE LINE SOURCE TEXT
VALUE
0150 3011 00478 MOVLW 17 ; set column
0151 2544 00479 CALL LINE3 ; set cell number for line stated
0152 300E 00480 MOVLW 14 ; character quantity
0153 00A1 00481 MOVWF LOOPC ; table loop counter remains at last call val
0154 24B2 00482 CALL SHWTXT ;
0155 0008 00483 RETURN
00484
00485 ;********** DEMO 2 BIT SETTING/CLEARING DEMO ****************
00486
0156 3080 00487 DEMO2 MOVLW B'10000000' ; internal CG RAM mode, OR mode
0157 2514 00488 CALL SENDCMD ; send command
00489
0158 01A8 00490 CLRF ADRMSB ; TEXT HOME ADDRESS $00xx
0159 01A7 00491 CLRF ADRLSB ; set for PAGE 1
015A 242B 00492 CALL CMDADR ; send command address
015B 3040 00493 MOVLW TXHOME ;
015C 2514 00494 CALL SENDCMD ; send command
00495
015D 309C 00496 MOVLW B'10011100' ; text & graphic on, cursor & blink off
015E 2514 00497 CALL SENDCMD ; send command
00498
00499 ; ** SET SINGLE CENTRE BIT **
015F 300C 00500 MOVLW 12 ; set column number
0160 00A7 00501 MOVWF ADRLSB
0161 3017 00502 MOVLW 23 ; set graph line
0162 254F 00503 CALL GLINE ; multiply by line length to get address
0163 30F8 00504 MOVLW B'11111000' ; set bit 0
0164 2417 00505 CALL BITWRITE
00506
0165 30F8 00507 MOVLW B'11111000' ; bits 0-2 indicate bit affected
0166 00A4 00508 MOVWF STORE1 ; bit 3 high set, low = clear
00509
00510 ; ** DRAW SQUARE **
0167 300B 00511 SQUARE MOVLW 11 ; set column number
0168 00A7 00512 MOVWF ADRLSB
0169 301E 00513 MOVLW 30 ; set graph line
016A 254F 00514 CALL GLINE ; multiply by line length to get address
00515
016B 3010 00516 MOVLW 16
016C 00A1 00517 MOVWF LOOPC
016D 0824 00518 SQ1 MOVF STORE1,W ; draw up
016E 2417 00519 CALL BITWRITE
016F 1E05 00520 BTFSS PORTA,4 ; check switch
0170 29C4 00521 GOTO ENDDEMO2
00522
0171 2576 00523 CALL PAUSE2
0172 082D 00524 MOVF COLUMN,W
0173 02A7 00525 SUBWF ADRLSB,F
0174 1C03 00526 BTFSS STATUS,C
0175 03A8 00527 DECF ADRMSB,F
0176 0BA1 00528 DECFSZ LOOPC,F
0177 296D 00529 GOTO SQ1
00530
MPASM 02.30 Released GEPE456.ASM 1-25-2001 12:25:31 PAGE 11
LOC OBJECT CODE LINE SOURCE TEXT
VALUE
0178 1E05 00531 BTFSS PORTA,4 ; check switch
0179 29C4 00532 GOTO ENDDEMO2
00533
017A 082D 00534 SQ1A MOVF COLUMN,W ; draw right
017B 3E01 00535 ADDLW 1
017C 07A7 00536 ADDWF ADRLSB,F
017D 1803 00537 BTFSC STATUS,C
017E 0AA8 00538 INCF ADRMSB,F
00539
017F 3008 00540 MOVLW 8
0180 00A1 00541 MOVWF LOOPC
0181 0321 00542 SQ2 DECF LOOPC,W
0182 0424 00543 IORWF STORE1,W
0183 2417 00544 CALL BITWRITE
0184 1E05 00545 BTFSS PORTA,4 ; check switch
0185 29C4 00546 GOTO ENDDEMO2
00547
0186 2576 00548 CALL PAUSE2
0187 0BA1 00549 DECFSZ LOOPC,F
0188 2981 00550 GOTO SQ2
00551
0189 0AA7 00552 INCF ADRLSB,F
018A 3008 00553 MOVLW 8
018B 00A1 00554 MOVWF LOOPC
018C 0321 00555 SQ3 DECF LOOPC,W
018D 0424 00556 IORWF STORE1,W
018E 2417 00557 CALL BITWRITE
018F 1E05 00558 BTFSS PORTA,4 ; check switch
0190 29C4 00559 GOTO ENDDEMO2
00560
0191 2576 00561 CALL PAUSE2
0192 0BA1 00562 DECFSZ LOOPC,F
0193 298C 00563 GOTO SQ3
00564
0194 1E05 00565 BTFSS PORTA,4 ; check switch
0195 29C4 00566 GOTO ENDDEMO2
00567
0196 3010 00568 SQ3A MOVLW 16 ; draw down
0197 00A1 00569 MOVWF LOOPC
0198 0824 00570 SQ4 MOVF STORE1,W
0199 2417 00571 CALL BITWRITE
019A 1E05 00572 BTFSS PORTA,4 ; check switch
019B 29C4 00573 GOTO ENDDEMO2
00574
019C 2576 00575 CALL PAUSE2
019D 082D 00576 MOVF COLUMN,W
019E 07A7 00577 ADDWF ADRLSB,F
019F 1803 00578 BTFSC STATUS,C
01A0 0AA8 00579 INCF ADRMSB,F
01A1 0BA1 00580 DECFSZ LOOPC,F
01A2 2998 00581 GOTO SQ4
00582
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -