gepe456.sdi

该应用软件可以实现大多数单片机的仿真实验

,,,; CONVERTED TASM PIC16F877 C:\PIC\GEPE456.ASM TO MPASM C:\ASMCNV\GEPE456.ASM 01-22-2001 22:15:32
,,,
,,,        list p=16F877,r=dec
,,,                            ;GEPE456.ASM 07SEP00 - JOHN BECKER - EPE LCD GRAPH DEMO 2 (MAIN DEMOS)
,,,
,,,#DEFINE   PAGE0 BCF H'03',5;STATUS bit 5
,,,#DEFINE   PAGE1 BSF H'03',5;STATUS bit 5
,,,
,,,INDF      EQU H'00'         ;page 0, 1, 2, 3
,,,OPSHUN    EQU H'01'         ;page 1, 3
,,,PCL       EQU H'02'         ;page 0, 1, 2, 3
,,,STATUS    EQU H'03'         ;page 0, 1, 2, 3
,,,FSR       EQU H'04'         ;page 0, 1, 2, 3
,,,
,,,PORTA     EQU H'05'         ;page 0
,,,TRISA     EQU H'05'         ;page 1
,,,PORTB     EQU H'06'         ;page 0, 2
,,,TRISB     EQU H'06'         ;page 1, 3
,,,PORTC     EQU H'07'         ;page 0
,,,TRISC     EQU H'07'         ;page 1
,,,PORTD     EQU H'08'         ;page 0
,,,TRISD     EQU H'08'         ;page 1
,,,PORTE     EQU H'09'         ;page 0
,,,TRISE     EQU H'09'         ;page 1
,,,INTCON    EQU H'0B'         ;page 0, 1, 2, 3
,,,EEDATA    EQU H'0C'         ;page 2
,,,EECON1    EQU H'0C'         ;page 3
,,,EEADR     EQU H'0D'         ;page 2
,,,
,,,LOOPB     EQU H'20'         ; general loop
,,,LOOPC     EQU H'21'         ; general loop
,,,LOOPD     EQU H'22'         ; general loop
,,,LOOPE     EQU H'23'         ; general loop
,,,STORE1    EQU H'24'         ; temp store
,,,TEMPA     EQU H'25'         ; temp store
,,,CLKCNT    EQU H'26'         ; counter for PAUSE val
,,,ADRLSB    EQU H'27'         ; low address
,,,ADRMSB    EQU H'28'         ; high address
,,,ATTRIB    EQU H'29'         ; ATTRIBUTE value
,,,BITVAL    EQU H'2A'         ; val of bit to be set/reset
,,,RDBYTE    EQU H'2B'         ; byte read from screen
,,,COUNT     EQU H'2C'         ; counter for BIRD loop, used also for waveform
,,,COLUMN    EQU H'2D'         ; column length holder
,,,QCKCOL    EQU H'2E'         ; quack bill column
,,,PEAKLO    EQU H'2F'         ; waveform peak lo (demo 11)
,,,PEAKHI    EQU H'30'         ; waveform peak hi (demo 11)
,,,LOBIT     EQU H'31'         ; waveform section (demo 11)
,,,LOOPLO    EQU H'32'         ; waveform section (demo 11)
,,,
,,,JOIN00    EQU H'34'         ; 1st store for BIRD roll-over join (right-hand edge bit)
,,,                            ; extends to $50 for JOIN32, used also for waveforms
,,,                            ; (64 for scope style)
,,,
,,,                            ;........FIXED VALUES FOR COMMANDS
,,,
,,,TXHOME    EQU H'40'         ; text home address command
,,,TXAREA    EQU H'41'         ; text area (columns) address command
,,,GRHOME    EQU H'42'         ; graphics home address command
,,,GRAREA    EQU H'43'         ; graphic area (columns) address command
,,,AWRON     EQU H'B0'         ; autowrite on command
,,,AWROFF    EQU H'B2'         ; autowrite off command
,,,OFFSET    EQU H'22'         ; offset command
,,,ADPSET    EQU H'24'         ; address set command
,,,PEEK      EQU H'E0'         ; screen peek command
,,,CSRPOS    EQU H'21'         ; set cursor position ommand
,,,
,,,                            ;........BIT VALUES
,,,
,,,W         EQU 0             ; working reg
,,,F         EQU 1             ; file reg
,,,Z         EQU 2             ; zero status
,,,C         EQU 0             ; CARRY status
,,,RP0       EQU 5             ; STATUS bank reg
,,,RP1       EQU 6             ; STATUS bank reg
,,,RD        EQU 0             ; EEPROM read flag
,,,EEPGD     EQU 7             ; EECON1 reg
,,,FS        EQU B'00000000'   ;FS mode set by bit 5: 1 = 6x8, 0 = 8x8
,,,                            ;8x8 needed for EPE demos
,,,
,,,                            ;..........
,,,
,,,          ORG 0
0000,2805,,          GOTO 5
,,,
,,,          ORG 5
,,,
0005,1283,,          BCF STATUS,RP0
0006,1303,,          BCF STATUS,RP1
0007,0185,,          CLRF PORTA
0008,0186,,          CLRF PORTB
0009,300F,,          MOVLW B'00001111' ; FS low, RST low, CD CE RD WR high
000A,0087,,          MOVWF PORTC
000B,0188,,          CLRF PORTD
000C,0189,,          CLRF PORTE
000D,1683,,          PAGE1
000E,30FF,,          MOVLW 255
000F,0085,,          MOVWF TRISA       ; PORTA as input
0010,0186,,          CLRF TRISB        ; PORTB as output
0011,3000,,          MOVLW FS
0012,0087,,          MOVWF TRISC       ; PORTC as output GRAPHIC LCD control/FS
0013,0188,,          CLRF TRISD        ; PORTD as output GRAPHIC LCD D0-D7
0014,0189,,          CLRF TRISE        ; PORTE as output
0015,3086,,          MOVLW B'10000110' ; pull-up Rs off (bit 7 hi), timer 1/25 sec
0016,0081,,          MOVWF OPSHUN      ; (for 3.2768MHz xtal)
0017,1283,,          PAGE0
0018,301F,,          MOVLW B'00011111' ; FS low, RST CD CE RD WR high
0019,0087,,          MOVWF PORTC
,,,
001A,256D,,          CALL PAUSIT
001B,28F0,,          GOTO GRAPHIC
,,,
001C,0782,TABLE1,TABLE1    ADDWF PCL,F
001D,3447,,          RETLW 'G'
001E,3452,,          RETLW 'R'
001F,3441,,          RETLW 'A'
0020,3450,,          RETLW 'P'
0021,3448,,          RETLW 'H'
0022,3449,,          RETLW 'I'
0023,3443,,          RETLW 'C'
0024,3420,,          RETLW ' '
0025,344C,,          RETLW 'L'
0026,3443,,          RETLW 'C'
0027,3444,,          RETLW 'D'
0028,3420,,          RETLW ' '
0029,3444,,          RETLW 'D'
002A,3445,,          RETLW 'E'
002B,344D,,          RETLW 'M'
002C,344F,,          RETLW 'O'
,,,
002D,3445,,          RETLW 'E'
002E,3450,,          RETLW 'P'
002F,3445,,          RETLW 'E'
0030,3420,,          RETLW ' '
0031,3453,,          RETLW 'S'
0032,3448,,          RETLW 'H'
0033,344F,,          RETLW 'O'
0034,3457,,          RETLW 'W'
0035,3453,,          RETLW 'S'
0036,3420,,          RETLW ' '
0037,3459,,          RETLW 'Y'
0038,344F,,          RETLW 'O'
0039,3455,,          RETLW 'U'
003A,3420,,          RETLW ' '
003B,3448,,          RETLW 'H'
003C,344F,,          RETLW 'O'
003D,3457,,          RETLW 'W'
003E,3421,,          RETLW '!'
,,,
003F,3454,,          RETLW 'T'
0040,3448,,          RETLW 'H'
0041,3449,,          RETLW 'I'
0042,3453,,          RETLW 'S'
0043,3420,,          RETLW ' '
0044,3449,,          RETLW 'I'
0045,3453,,          RETLW 'S'
0046,3420,,          RETLW ' '
0047,3450,,          RETLW 'P'
0048,3441,,          RETLW 'A'
0049,3447,,          RETLW 'G'
004A,3445,,          RETLW 'E'
004B,3420,,          RETLW ' '
004C,3432,,          RETLW '2'
,,,
004D,3451,,          RETLW 'Q'
004E,3455,,          RETLW 'U'
004F,3441,,          RETLW 'A'
0050,3443,,          RETLW 'C'
0051,344B,,          RETLW 'K'
,,,
0052,0782,AMPLIFIER,AMPLIFIER ADDWF PCL,F
0053,3480,,          RETLW H'80'       ; amp top left + first slope down (1
,,,
0054,3483,,          RETLW H'83'       ;amp input (2
0055,3486,,          RETLW H'86'       ;cap top
0056,3483,,          RETLW H'83'       ;amp input
0057,3483,,          RETLW H'83'       ;amp input
0058,3481,,          RETLW H'81'       ;amp left
0059,3482,,          RETLW H'82'       ;amp slope down
005A,3483,,          RETLW H'83'       ;amp output
005B,3486,,          RETLW H'86'       ;cap top
005C,3483,,          RETLW H'83'       ;amp output
,,,
005D,348B,,          RETLW H'8B'       ;word IN (3
005E,3487,,          RETLW H'87'       ;cap bot
005F,3489,,          RETLW H'89'       ;resistor top
0060,3400,,          RETLW H'00'
0061,3481,,          RETLW H'81'       ;amp left
0062,3484,,          RETLW H'84'       ;amp slope up
0063,3400,,          RETLW H'00'
0064,3487,,          RETLW H'87'       ;cap bot
0065,348C,,          RETLW H'8C'       ;1st part OUT
0066,348D,,          RETLW H'8D'       ;2nd part OUT
,,,
0067,3488,,          RETLW H'88'       ;resistor (4
0068,3400,,          RETLW H'00'
0069,3485,,          RETLW H'85'       ;amp bot left + first slope up
,,,
006A,3488,,          RETLW H'88'       ;resistor (5
006B,348A,,          RETLW H'8A'       ;resistor bot (6
006C,348E,,          RETLW H'8E'       ;0V (7
,,,
006D,0782,CGTABLE,CGTABLE   ADDWF PCL,F       ; EXTERNAL CG FONT DATA
,,,
006E,3480,,          RETLW B'10000000' ; CHARACTER $80
006F,34C0,,          RETLW B'11000000' ; amp top left + first slope down
0070,34A0,,          RETLW B'10100000'
0071,3490,,          RETLW B'10010000'
0072,3488,,          RETLW B'10001000'
0073,3484,,          RETLW B'10000100'
0074,3482,,          RETLW B'10000010'
0075,3481,,          RETLW B'10000001'
,,,
0076,3480,,          RETLW B'10000000' ; CHARACTER $81
0077,3480,,          RETLW B'10000000' ; amp left
0078,3480,,          RETLW B'10000000'
0079,3480,,          RETLW B'10000000'
007A,3480,,          RETLW B'10000000'
007B,3480,,          RETLW B'10000000'
007C,3480,,          RETLW B'10000000'
007D,3480,,          RETLW B'10000000'
,,,
007E,3480,,          RETLW B'10000000' ; CHARACTER $82
007F,3440,,          RETLW B'01000000' ; amp slope down
0080,3420,,          RETLW B'00100000'
0081,3410,,          RETLW B'00010000'
0082,3408,,          RETLW B'00001000'
0083,3404,,          RETLW B'00000100'
0084,3402,,          RETLW B'00000010'
0085,3401,,          RETLW B'00000001'
,,,
0086,3400,,          RETLW B'00000000' ; CHARACTER $83
0087,3400,,          RETLW B'00000000' ; amp output
0088,3400,,          RETLW B'00000000'
0089,3400,,          RETLW B'00000000'
008A,3400,,          RETLW B'00000000'
008B,3400,,          RETLW B'00000000'
008C,3400,,          RETLW B'00000000'
008D,34FF,,          RETLW B'11111111'
,,,
008E,3401,,          RETLW B'00000001' ; CHARACTER $84
008F,3402,,          RETLW B'00000010' ; amp slope up
0090,3404,,          RETLW B'00000100'
0091,3408,,          RETLW B'00001000'
0092,3410,,          RETLW B'00010000'
0093,3420,,          RETLW B'00100000'
0094,3440,,          RETLW B'01000000'
0095,3480,,          RETLW B'10000000'
,,,
0096,3481,,          RETLW B'10000001' ; CHARACTER $85
0097,3482,,          RETLW B'10000010' ; amp bot left + first slope up
0098,3484,,          RETLW B'10000100'
0099,3488,,          RETLW B'10001000'
009A,3490,,          RETLW B'10010000'
009B,34A0,,          RETLW B'10100000'
009C,34C0,,          RETLW B'11000000'
009D,3480,,          RETLW B'10000000'
,,,
009E,3400,,          RETLW B'00000000' ; CHARACTER $86
009F,3400,,          RETLW B'00000000' ; capacitor top
00A0,347A,,          RETLW B'01111010'
00A1,344A,,          RETLW B'01001010'
00A2,344A,,          RETLW B'01001010'
00A3,344A,,          RETLW B'01001010'
00A4,344A,,          RETLW B'01001010'
00A5,34CB,,          RETLW B'11001011'
,,,
00A6,344A,,          RETLW B'01001010' ; CHARACTER $87
00A7,344A,,          RETLW B'01001010' ; capacitor bot
00A8,344A,,          RETLW B'01001010'
00A9,344A,,          RETLW B'01001010'
00AA,344A,,          RETLW B'01001010'
00AB,347A,,          RETLW B'01111010'
00AC,3400,,          RETLW B'00000000'
00AD,3400,,          RETLW B'00000000'
,,,
00AE,3408,,          RETLW B'00001000' ; CHARACTER $88
00AF,3404,,          RETLW B'00000100' ; resistor
00B0,3402,,          RETLW B'00000010'
00B1,3401,,          RETLW B'00000001'
00B2,3402,,          RETLW B'00000010'
00B3,3404,,          RETLW B'00000100'
00B4,3408,,          RETLW B'00001000'
00B5,3410,,          RETLW B'00010000'
,,,
00B6,3402,,          RETLW B'00000010' ; CHARACTER $89
00B7,3402,,          RETLW B'00000010' ; resistor top
00B8,3402,,          RETLW B'00000010'
00B9,3402,,          RETLW B'00000010'
00BA,3402,,          RETLW B'00000010'
00BB,3404,,          RETLW B'00000100'
00BC,3408,,          RETLW B'00001000'
00BD,3410,,          RETLW B'00010000'
,,,
00BE,3408,,          RETLW B'00001000' ; CHARACTER $8A
00BF,3404,,          RETLW B'00000100' ; resistor bot
00C0,3402,,          RETLW B'00000010'
00C1,3402,,          RETLW B'00000010'
00C2,3402,,          RETLW B'00000010'
00C3,3402,,          RETLW B'00000010'
00C4,3402,,          RETLW B'00000010'
00C5,3400,,          RETLW B'00000000'
,,,
00C6,3400,,          RETLW B'00000000' ; CHARACTER $8B
00C7,3400,,          RETLW B'00000000' ; word IN
00C8,3492,,          RETLW B'10010010'