BID = 667925
Bodo K Neu hier
Beiträge: 22 Wohnort: Kassel
|
Hallo
Ich weiß ja nicht welchen Disambler Du benutzt aber ich bekomme das nicht hin mit MPlab.Wenn ich das mache bekomme ich nur
; PIC-Assembler-Listing by sprut 2002..2004
; C:\Dokumente und Einstellungen\Administrator\Desktop\rel41cusb\relais.HEX
; Adr. Code Marke Mnemonic
; ================================
ORG 0x0000
START
0000 2833 GOTO M0033
ORG 0x0004
INT
0004 00A0 MOVWF 0x20
0005 0E03 SWAPF STATUS,w
0006 00A1 MOVWF 0x21
0007 1E8C BTFSS 0x0C,5
0008 280E GOTO M000E
0009 081A MOVF 0x1A,w
000A 00A4 MOVWF 0x24
000B 2073 CALL M0073
000C 128C BCF 0x0C,5
000D 282E GOTO M002E
M000E
000E 110B BCF INTCON,T0IF
000F 0AA2 INCF 0x22,f
0010 3019 MOVLW 0x19
0011 0222 SUBWF 0x22,w
0012 1D03 BTFSS STATUS,Z
0013 282E GOTO M002E
0014 01A2 CLRF 0x22
0015 0AB0 INCF 0x30,f
0016 303C MOVLW 0x3C ; '<'
0017 0230 SUBWF 0x30,w
0018 1D03 BTFSS STATUS,Z
0019 282E GOTO M002E
001A 01B0 CLRF 0x30
001B 0AB1 INCF 0x31,f
001C 303C MOVLW 0x3C ; '<'
001D 0231 SUBWF 0x31,w
001E 1D03 BTFSS STATUS,Z
001F 282E GOTO M002E
0020 01B1 CLRF 0x31
0021 0AB2 INCF 0x32,f
0022 3018 MOVLW 0x18
0023 0232 SUBWF 0x32,w
0024 1D03 BTFSS STATUS,Z
0025 282E GOTO M002E
0026 01B2 CLRF 0x32
0027 0AB3 INCF 0x33,f
0028 3008 MOVLW 0x08
0029 0233 SUBWF 0x33,w
002A 1D03 BTFSS STATUS,Z
002B 282E GOTO M002E
002C 01B3 CLRF 0x33
002D 0AB3 INCF 0x33,f
M002E
002E 0E21 SWAPF 0x21,w
002F 0083 MOVWF STATUS
0030 0EA0 SWAPF 0x20,f
0031 0E20 SWAPF 0x20,w
0032 0009 RETFIE
M0033
0033 0185 CLRF 0x05 ; PORTA/TRISA
0034 1683 BSF STATUS,RP0
0035 30FF MOVLW 0xFF
0036 0085 MOVWF 0x05 ; PORTA/TRISA
0037 3006 MOVLW 0x06
0038 0086 MOVWF 0x06 ; PORTB/TRISB
0039 3006 MOVLW 0x06
003A 0081 MOVWF 0x01 ; TMR0/OPTION
003B 1683 BSF STATUS,RP0
003C 3020 MOVLW 0x20 ; ' '
003D 0098 MOVWF 0x18
003E 1283 BCF STATUS,RP0
003F 3090 MOVLW 0x90
0040 0098 MOVWF 0x18
0041 1683 BSF STATUS,RP0
0042 3029 MOVLW 0x29 ; ')'
0043 0099 MOVWF 0x19
0044 1118 BCF 0x18,2
0045 1283 BCF STATUS,RP0
0046 01A2 CLRF 0x22
0047 01B0 CLRF 0x30
0048 01B1 CLRF 0x31
0049 01B2 CLRF 0x32
004A 01B3 CLRF 0x33
004B 01A3 CLRF 0x23
004C 01A5 CLRF 0x25
004D 01A6 CLRF 0x26
004E 3007 MOVLW 0x07
004F 009F MOVWF 0x1F
0050 1683 BSF STATUS,RP0
0051 168C BSF 0x0C,5
0052 1283 BCF STATUS,RP0
0053 018C CLRF 0x0C
0054 170B BSF INTCON,EEIE
0055 168B BSF INTCON,T0IE
0056 178B BSF INTCON,GIE
M0057
0057 0805 MOVF 0x05,w ; PORTA/TRISA
0058 3903 ANDLW 0x03
0059 00A6 MOVWF 0x26
005A 1C25 BTFSS 0x25,0
005B 1006 BCF 0x06,0 ; PORTB/TRISB
005C 1CA5 BTFSS 0x25,1
005D 1186 BCF 0x06,3 ; PORTB/TRISB
005E 1D25 BTFSS 0x25,2
005F 1206 BCF 0x06,4 ; PORTB/TRISB
0060 1DA5 BTFSS 0x25,3
0061 1286 BCF 0x06,5 ; PORTB/TRISB
0062 1E25 BTFSS 0x25,4
0063 1306 BCF 0x06,6 ; PORTB/TRISB
0064 1EA5 BTFSS 0x25,5
0065 1386 BCF 0x06,7 ; PORTB/TRISB
0066 1825 BTFSC 0x25,0
0067 1406 BSF 0x06,0 ; PORTB/TRISB
0068 18A5 BTFSC 0x25,1
0069 1586 BSF 0x06,3 ; PORTB/TRISB
006A 1925 BTFSC 0x25,2
006B 1606 BSF 0x06,4 ; PORTB/TRISB
006C 19A5 BTFSC 0x25,3
006D 1686 BSF 0x06,5 ; PORTB/TRISB
006E 1A25 BTFSC 0x25,4
006F 1706 BSF 0x06,6 ; PORTB/TRISB
0070 1AA5 BTFSC 0x25,5
0071 1786 BSF 0x06,7 ; PORTB/TRISB
0072 2857 GOTO M0057
M0073
0073 1823 BTFSC 0x23,0
0074 287D GOTO M007D
0075 3073 MOVLW 0x73 ; 's'
0076 0224 SUBWF 0x24,w
0077 1D03 BTFSS STATUS,Z
0078 0008 RETURN
0079 1423 BSF 0x23,0
007A 3078 MOVLW 0x78 ; 'x'
007B 0099 MOVWF 0x19
007C 0008 RETURN
M007D
007D 0824 MOVF 0x24,w
007E 00A5 MOVWF 0x25
007F 1023 BCF 0x23,0
0080 0826 MOVF 0x26,w
0081 0099 MOVWF 0x19
0082 0008 RETURN
END.
; end of file
ja und was müßte ich da jetzt ändern für meinen Pic?
|