📄 gepe456.lst
字号:
01A3 1E05 00583 BTFSS PORTA,4 ; check switch
MPASM 02.30 Released GEPE456.ASM 1-25-2001 12:25:31 PAGE 12
LOC OBJECT CODE LINE SOURCE TEXT
VALUE
01A4 29C4 00584 GOTO ENDDEMO2
00585
01A5 082D 00586 SQ4A MOVF COLUMN,W ; draw left
01A6 02A7 00587 SUBWF ADRLSB,F
01A7 1C03 00588 BTFSS STATUS,C
01A8 03A8 00589 DECF ADRMSB,F
00590
01A9 01A1 00591 CLRF LOOPC
01AA 0821 00592 SQ5 MOVF LOOPC,W
01AB 0424 00593 IORWF STORE1,W
01AC 2417 00594 CALL BITWRITE
01AD 1E05 00595 BTFSS PORTA,4 ; check switch
01AE 29C4 00596 GOTO ENDDEMO2
00597
01AF 2576 00598 CALL PAUSE2
01B0 0AA1 00599 INCF LOOPC,F
01B1 1DA1 00600 BTFSS LOOPC,3
01B2 29AA 00601 GOTO SQ5
00602
01B3 03A7 00603 DECF ADRLSB,F
01B4 01A1 00604 CLRF LOOPC
01B5 0821 00605 SQ6 MOVF LOOPC,W
01B6 0424 00606 IORWF STORE1,W
01B7 2417 00607 CALL BITWRITE
01B8 1E05 00608 BTFSS PORTA,4 ; check switch
01B9 29C4 00609 GOTO ENDDEMO2
00610
01BA 2576 00611 CALL PAUSE2
01BB 0AA1 00612 INCF LOOPC,F
01BC 1DA1 00613 BTFSS LOOPC,3
01BD 29B5 00614 GOTO SQ6
00615
01BE 3008 00616 MOVLW B'00001000' ; toggle between set/clear by bit 3
01BF 0724 00617 ADDWF STORE1,W
01C0 38F0 00618 IORLW B'11110000'
01C1 00A4 00619 MOVWF STORE1
00620
01C2 1A05 00621 BTFSC PORTA,4 ; check switch
01C3 2967 00622 GOTO SQUARE
00623
01C4 0008 00624 ENDDEMO2 RETURN
00625
00626 ;************* DEMO 3 HOW TO HIGHLIGHT TEXT ****************
00627
01C5 00628 DEMO3 ; ** FILL SELECTED GRAPHIC AREA WITH SELECTED ATTRIBUTE VALUE **
00629
01C5 3002 00630 MOVLW 2 ; set graphic address ($02xx)
01C6 00A8 00631 MOVWF ADRMSB
01C7 3000 00632 MOVLW 0 ; set column
01C8 254D 00633 CALL LINE0 ; set cell number for line stated
01C9 3010 00634 MOVLW 16 ; character quantity to be affected
01CA 00A1 00635 MOVWF LOOPC ;
01CB 30F5 00636 MOVLW B'11110101' ; attribute reverse *
MPASM 02.30 Released GEPE456.ASM 1-25-2001 12:25:31 PAGE 13
LOC OBJECT CODE LINE SOURCE TEXT
VALUE
01CC 00A9 00637 MOVWF ATTRIB
01CD 24BF 00638 CALL SETATTR ;
00639 ; * TRY THESE ATTRIBUTE OPTIONS:
00640 ; movlw %00000000 ; attribute normal
00641 ; movlw %11110101 ; attribute reverse
00642 ; movlw %00001000 ; attribute blink normal
00643 ; movlw %00001101 ; attribute blink reverse
00644
01CE 3002 00645 MOVLW 2 ; set graphic address ($02xx)
01CF 00A8 00646 MOVWF ADRMSB
01D0 3006 00647 MOVLW 6 ; set column
01D1 253B 00648 CALL LINE6 ; set cell number for line stated
01D2 3009 00649 MOVLW 9 ; character quantity
01D3 00A1 00650 MOVWF LOOPC ;
01D4 300D 00651 MOVLW B'00001101' ; attribute blink reverse
01D5 00A9 00652 MOVWF ATTRIB
01D6 24BF 00653 CALL SETATTR ;
00654
01D7 3002 00655 MOVLW 2 ; set graphic address ($02xx)
01D8 00A8 00656 MOVWF ADRMSB
01D9 3006 00657 MOVLW 6 ; set column
01DA 2538 00658 CALL LINE7 ; set cell number for line stated
01DB 3009 00659 MOVLW 9 ; character quantity
01DC 00A1 00660 MOVWF LOOPC ;
01DD 300D 00661 MOVLW B'00001101' ; attribute blink reverse
01DE 00A9 00662 MOVWF ATTRIB
01DF 24BF 00663 CALL SETATTR ;
00664
00665 ; ** SET FOR TEXT ATTRIBUTE MODE **
01E0 3084 00666 MOVLW B'10000100' ; text attribute mode
01E1 2514 00667 CALL SENDCMD ; send command
01E2 309C 00668 MOVLW B'10011100' ; text & graphic on, cursor & blink off
01E3 2514 00669 CALL SENDCMD ; send command
01E4 0008 00670 RETURN
00671
00672 ;*********** DEMO 4 SETTING CURSOR ************
00673
01E5 3097 00674 DEMO4 MOVLW B'10010111' ; text on, graphic off, cursor & blink on
01E6 2514 00675 CALL SENDCMD ; send command
00676
00677 ; set cursor position + type
01E7 300F 00678 MOVLW 15 ; set column
01E8 00A7 00679 MOVWF ADRLSB
01E9 3003 00680 MOVLW 3 ; set line
01EA 00A8 00681 MOVWF ADRMSB
01EB 2456 00682 CALL CSRADR
01EC 245A 00683 CALL CSRTYP ;set type (specified in sub-routine)
01ED 0008 00684 RETURN ; (from 1 to 8 lines high)
00685
00686 ;*********** DEMO 5 PANNING BETWEEN PAGES ************
00687
01EE 00688 DEMO5 ; ** SHIFT PAGE 1 LEFT TO REVEAL PAGE 2
00689
MPASM 02.30 Released GEPE456.ASM 1-25-2001 12:25:31 PAGE 14
LOC OBJECT CODE LINE SOURCE TEXT
VALUE
01EE 01A8 00690 CLRF ADRMSB ; TEXT HOME ADDRESS $00xx
01EF 3001 00691 MOVLW 1
01F0 00A7 00692 MOVWF ADRLSB ; set for PAGE 1 col 1
00693
01F1 3010 00694 MOVLW 16 ;
01F2 00A1 00695 MOVWF LOOPC
01F3 242B 00696 SL2 CALL CMDADR ; send command address
01F4 3040 00697 MOVLW TXHOME ;
01F5 2514 00698 CALL SENDCMD ; send command
00699
01F6 3005 00700 SL2A MOVLW 5 ; short pause
01F7 00A0 00701 MOVWF LOOPB
01F8 1E05 00702 WAIT2 BTFSS PORTA,4
01F9 2A12 00703 GOTO ENDDEMO5
01FA 256D 00704 CALL PAUSIT
01FB 0BA0 00705 DECFSZ LOOPB,F
01FC 29F8 00706 GOTO WAIT2
00707
01FD 0AA7 00708 INCF ADRLSB,F
01FE 0BA1 00709 DECFSZ LOOPC,F
01FF 29F3 00710 GOTO SL2
00711
0200 3011 00712 MOVLW 17 ; ** SHIFT PAGE 2 RIGHT TO REVEAL PAGE 1
0201 00A1 00713 MOVWF LOOPC
0202 3010 00714 MOVLW 16
0203 00A7 00715 MOVWF ADRLSB ; set for PAGE 2
0204 242B 00716 SL3 CALL CMDADR ; send command address
0205 3040 00717 MOVLW TXHOME ;
0206 2514 00718 CALL SENDCMD ; send command
00719
0207 3005 00720 SL3A MOVLW 5 ; short pause
0208 00A0 00721 MOVWF LOOPB
0209 1E05 00722 WAIT3 BTFSS PORTA,4
020A 2A12 00723 GOTO ENDDEMO5
020B 256D 00724 CALL PAUSIT
020C 0BA0 00725 DECFSZ LOOPB,F
020D 2A09 00726 GOTO WAIT3
00727
020E 03A7 00728 DECF ADRLSB,F
020F 0BA1 00729 DECFSZ LOOPC,F
0210 2A04 00730 GOTO SL3
0211 29EE 00731 GOTO DEMO5
00732
0212 0008 00733 ENDDEMO5 RETURN
00734
00735 ;*********** DEMO 6 SWITCHING BETWEEN PAGES ************
00736
0213 3080 00737 DEMO6 MOVLW B'10000000' ; (OR mode, Internal CG mode)
0214 2514 00738 CALL SENDCMD ; send command
00739
0215 00740 DEMO6A ;** CHANGE PAGE **
0215 01A8 00741 CLRF ADRMSB ; TEXT HOME ADDRESS $00xx
0216 3011 00742 MOVLW 17 ; set for PAGE 2
MPASM 02.30 Released GEPE456.ASM 1-25-2001 12:25:31 PAGE 15
LOC OBJECT CODE LINE SOURCE TEXT
VALUE
0217 00A7 00743 MOVWF ADRLSB
0218 01A1 00744 CLRF LOOPC
0219 242B 00745 SL1 CALL CMDADR ; send command address
021A 3040 00746 MOVLW TXHOME ;
021B 2514 00747 CALL SENDCMD ; send command
00748
021C 3005 00749 SL1A MOVLW 5 ; short pause
021D 00A0 00750 MOVWF LOOPB
021E 1E05 00751 WAIT BTFSS PORTA,4 ; check switch press
021F 2A28 00752 GOTO ENDDEMO6
0220 256D 00753 CALL PAUSIT
0221 0BA0 00754 DECFSZ LOOPB,F
0222 2A1E 00755 GOTO WAIT
00756
0223 0AA1 00757 INCF LOOPC,F
0224 01A7 00758 CLRF ADRLSB ; set for PAGE 1
0225 1CA1 00759 BTFSS LOOPC,1
0226 2A19 00760 GOTO SL1
0227 2A15 00761 GOTO DEMO6A
00762
0228 0008 00763 ENDDEMO6 RETURN
00764
00765 ;*********** DEMO 7 SETTING AND-OR-XOR MODES ***************
00766
0229 00767 DEMO7 ; ** FILL SELECTED GRAPHIC SCREEN AREA WITH VALUES FOR AND-OR-XOR **
00768
00769 ; first clear attribute data for text lines 0, 6 & 7 set in DEMO3
00770 ; but graphic data set in DEMO2 (SQUARE) not cleared
00771
0229 3080 00772 MOVLW B'10000000' ; clear text attribute mode
022A 2514 00773 CALL SENDCMD ; send command
00774
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -