Subject:
change an asm pic file
From:
"bob bob" ####@####.####
Date:
1 Oct 2001 23:06:18 -0000
Message-Id: <F179xHHrK5pyBIi6Iag00003569@hotmail.com>
hello!
can you help mi to change this asm file
can you change this asm file for he fonctionnaly in mode
pge/pge and no octete/octete this is for my student
thanks
; Generated by WinDis84, (c) Nigel Goodwin 1998.
LIST P=16F84, F=INHX8M
include "P16F84.inc"
ORG 0x0000
GOTO Label_0001
Label_0016 BSF STATUS , RP0
BSF EECON1 , 00
BCF STATUS , RP0
MOVF EEDATA , W
RETURN
Label_0030 MOVWF EEDATA
BSF STATUS , RP0
BCF INTCON , GIE
BSF EECON1 , 02
MOVLW 0x55
MOVWF EECON2
MOVLW 0xAA
MOVWF EECON2
BSF EECON1 , 01
Label_0002 BTFSC EECON1 , 01
GOTO Label_0002
BCF STATUS , RP0
RETURN
Label_0017 MOVWF EEDATA
COMF EEDATA , f
MOVLW 0x7F
TRIS PORTB
MOVLW 0x80
IORWF 0x0E , f
BCF PORTB , 07
MOVLW 0x08
MOVWF 0x0C
Label_0004 CALL Label_0003
MOVF EEDATA , W
ANDLW 0x80
XORWF 0x0E , f
XORWF PORTB , W
XORWF PORTB , f
RLF EEDATA , f
DECFSZ 0x0C , f
GOTO Label_0004
CALL Label_0003
MOVF 0x0E , W
XORWF PORTB , W
XORWF PORTB , f
CALL Label_0003
MOVLW 0xFF
TRIS PORTB
MOVLW 0x28
CALL Label_0005
RETURN
Label_0006 BTFSC PORTB , 07
GOTO Label_0006
MOVLW 0x2A
CALL Label_0005
MOVLW 0x09
MOVWF 0x0C
Label_0007 BCF STATUS , C
BTFSC PORTB , 07
BSF STATUS , C
RLF EEDATA , f
CALL Label_0003
DECFSZ 0x0C , f
GOTO Label_0007
RRF EEDATA , f
MOVLW 0x28
CALL Label_0005
COMF EEDATA , f
MOVF EEDATA , W
RETURN
Label_0003 MOVLW 0x1A
Label_0005 MOVWF 0x0F
Label_0008 DECFSZ 0x0F , f
GOTO Label_0008
RETURN
Label_0028 CALL Label_0009
CALL Label_000A
MOVLW 0x0E
ANDWF 0x0E , W
MOVWF 0x10
MOVLW 0xA1
XORWF 0x10 , W
CALL Label_000B
CALL Label_000C
CALL Label_000D
MOVWF EEDATA
CALL Label_000E
CALL Label_000F
MOVF EEDATA , W
RETURN
Label_002D MOVWF EEDATA
CALL Label_0009
MOVF EEDATA , W
CALL Label_000B
CALL Label_000C
CALL Label_000F
BTFSS 0x0E , 06
GOTO Label_0010
Label_0011 CALL Label_000A
MOVLW 0xA0
CALL Label_000B
CALL Label_000C
CALL Label_000F
BTFSS 0x0E , 06
GOTO Label_0011
Label_0010 RETURN
Label_0009 CALL Label_000A
MOVLW 0x0E
ANDWF 0x0E , W
MOVWF 0x10
MOVLW 0xA0
XORWF 0x10 , W
CALL Label_000B
CALL Label_000C
BTFSS 0x0E , 06
GOTO Label_0012
MOVF EEADR , W
CALL Label_000B
CALL Label_000C
Label_0012 RETURN
Label_0027 BCF STATUS , C
RRF 0x14 , f
BTFSC STATUS , C
BSF 0x0E , 04
BCF STATUS , C
RRF 0x13 , f
BTFSC STATUS , C
BSF 0x14 , 07
MOVLW 0x48
SUBWF 0x14 , f
BTFSS STATUS , C
DECF 0x13 , f
MOVLW 0x01
SUBWF 0x13 , f
MOVF 0x14 , W
MOVWF EEADR
BCF STATUS , C
RLF 0x13 , f
MOVLW 0xF1
ANDWF 0x0E , f
MOVF 0x13 , W
IORWF 0x0E , f
RETURN
Label_000A MOVLW 0xCF
TRIS PORTB
BSF PORTB , 05
BSF PORTB , 04
CALL Label_0013
BCF PORTB , 04
CALL Label_0013
BCF PORTB , 05
CALL Label_0013
BSF PORTB , 04
RETURN
Label_000F BCF PORTB , 05
BCF PORTB , 04
CALL Label_0013
BSF PORTB , 05
CALL Label_0013
BSF PORTB , 04
CALL Label_0013
MOVLW 0xFF
TRIS PORTB
RETURN
Label_000C MOVLW 0xDF
TRIS PORTB
BCF PORTB , 05
CALL Label_0013
BSF PORTB , 05
BCF 0x0E , 06
BTFSS PORTB , 04
BSF 0x0E , 06
BCF PORTB , 05
MOVLW 0xCF
TRIS PORTB
RETURN
Label_000E MOVLW 0xCF
TRIS PORTB
BCF PORTB , 05
BSF PORTB , 04
CALL Label_0013
BSF PORTB , 05
CALL Label_0013
BCF PORTB , 05
RETURN
Label_000B MOVWF 0x0D
MOVLW 0x08
MOVWF 0x0C
Label_0014 BCF PORTB , 05
BTFSS 0x0D , 07
BCF PORTB , 04
BTFSC 0x0D , 07
BSF PORTB , 04
CALL Label_0013
BSF PORTB , 05
CALL Label_0013
BCF PORTB , 05
RLF 0x0D , f
DECFSZ 0x0C , f
GOTO Label_0014
BSF PORTB , 04
RETURN
Label_000D MOVLW 0xDF
TRIS PORTB
MOVLW 0x08
MOVWF 0x0C
CLRF 0x0D
Label_0015 BCF PORTB , 05
CALL Label_0013
BSF PORTB , 05
CALL Label_0013
RLF 0x0D , f
BCF 0x0D , 00
BTFSC PORTB , 04
BSF 0x0D , 00
DECFSZ 0x0C , f
GOTO Label_0015
BCF PORTB , 05
MOVF 0x0D , W
RETURN
Label_0013 NOP
NOP
NOP
NOP
NOP
NOP
NOP
RETURN
Label_0001 CLRF PORTB
CLRF PORTA
BSF STATUS , RP0
MOVLW 0x7F
MOVWF OPTION_REG
BCF STATUS , RP0
CLRF EEADR
CALL Label_0016
MOVWF 0x10
Label_0018 INCF EEADR , f
CALL Label_0016
CALL Label_0017
DECFSZ 0x10 , f
GOTO Label_0018
Label_0026 MOVLW 0x90
MOVWF 0x16
MOVLW 0x00
MOVWF 0x17
Label_001D MOVF 0x16 , W
CALL Label_0017
MOVF 0x17 , W
CALL Label_0017
CALL Label_0006
MOVWF 0x11
CALL Label_0006
MOVWF 0x12
CALL Label_0006
MOVWF 0x13
CALL Label_0006
MOVWF 0x14
CALL Label_0006
MOVWF 0x15
MOVLW 0xBC
XORWF 0x11 , W
BTFSC STATUS , Z
GOTO Label_0019
MOVLW 0xEE
XORWF 0x11 , W
BTFSC STATUS , Z
GOTO Label_001A
MOVLW 0xDE
XORWF 0x11 , W
BTFSC STATUS , Z
GOTO Label_001B
MOVLW 0xAA
XORWF 0x11 , W
BTFSC STATUS , Z
GOTO Label_001C
MOVLW 0x6E
MOVWF 0x16
CLRF 0x17
GOTO Label_001D
Label_0019 MOVLW 0xB0
XORWF 0x12 , W
BTFSC STATUS , Z
GOTO Label_001E
MOVLW 0x20
XORWF 0x12 , W
BTFSC STATUS , Z
GOTO Label_001F
MOVLW 0x40
XORWF 0x12 , W
BTFSC STATUS , Z
GOTO Label_0020
MOVLW 0x70
XORWF 0x12 , W
BTFSC STATUS , Z
GOTO Label_0021
MOVLW 0x80
XORWF 0x12 , W
BTFSC STATUS , Z
GOTO Label_0022
MOVLW 0xC0
XORWF 0x12 , W
BTFSC STATUS , Z
GOTO Label_0023
MOVLW 0xD0
XORWF 0x12 , W
BTFSC STATUS , Z
GOTO Label_0024
MOVLW 0x6D
MOVWF 0x16
CLRF 0x17
GOTO Label_001D
Label_001F MOVF 0x12 , W
CALL Label_0017
CALL Label_0006
CALL Label_0006
CALL Label_0006
CALL Label_0006
MOVLW 0x2C
MOVWF 0x18
Label_0025 CALL Label_0003
DECFSZ 0x18 , f
GOTO Label_0025
GOTO Label_0026
Label_0020 MOVF 0x12 , W
CALL Label_0017
CALL Label_0003
CALL Label_0003
GOTO Label_0026
Label_001E MOVF 0x12 , W
CALL Label_0017
CALL Label_0027
Label_0029 CALL Label_0028
CALL Label_0017
BCF STATUS , C
RRF 0x0E , f
INCF EEADR , f
BTFSC STATUS , Z
INCF 0x0E , f
BCF STATUS , C
RLF 0x0E , f
DECFSZ 0x15 , f
GOTO Label_0029
GOTO Label_0026
Label_0021 MOVF 0x12 , W
CALL Label_0017
CALL Label_0003
CALL Label_0003
GOTO Label_0026
Label_0022 MOVLW 0x20
MOVWF FSR
Label_002A MOVLW 0x7F
CALL Label_0017
CALL Label_0006
MOVWF INDF
INCF FSR , f
DECFSZ 0x15 , f
GOTO Label_002A
GOTO Label_0026
Label_0023 MOVF 0x12 , W
CALL Label_0017
MOVLW 0x20
MOVWF FSR
Label_002B MOVF INDF , W
CALL Label_0017
INCF FSR , f
DECFSZ 0x15 , f
GOTO Label_002B
GOTO Label_0026
Label_0024 MOVLW 0x20
MOVWF FSR
MOVF 0x15 , W
MOVWF 0x18
Label_002C MOVLW 0x2F
CALL Label_0017
CALL Label_0006
MOVWF INDF
INCF FSR , f
DECFSZ 0x15 , f
GOTO Label_002C
MOVLW 0x20
MOVWF FSR
CALL Label_0027
Label_002E MOVF INDF , W
CALL Label_002D
BCF STATUS , C
RRF 0x0E , f
INCF EEADR , f
BTFSC STATUS , Z
INCF 0x0E , f
BCF STATUS , C
RLF 0x0E , f
INCF FSR , f
DECFSZ 0x18 , f
GOTO Label_002E
GOTO Label_0026
Label_001C MOVLW 0x20
MOVWF FSR
MOVF 0x15 , W
MOVWF 0x18
Label_002F CALL Label_0006
MOVWF INDF
INCF FSR , f
DECFSZ 0x15 , f
GOTO Label_002F
MOVLW 0x20
MOVWF FSR
CLRF EEADR
MOVF 0x18 , W
CALL Label_0030
Label_0031 MOVF INDF , W
INCF EEADR , f
CALL Label_0030
INCF FSR , f
DECFSZ 0x18 , f
GOTO Label_0031
GOTO Label_0026
Label_001A MOVLW 0x20
MOVWF FSR
MOVF 0x15 , W
MOVWF 0x18
Label_0032 CALL Label_0006
MOVWF INDF
INCF FSR , f
DECFSZ 0x15 , f
GOTO Label_0032
MOVF 0x14 , W
MOVWF EEADR
MOVF 0x13 , W
MOVWF 0x0E
BCF STATUS , C
RLF 0x0E , f
MOVLW 0x20
MOVWF FSR
Label_0033 MOVF INDF , W
CALL Label_002D
RRF 0x0E , f
INCF FSR , f
INCF EEADR , f
BTFSC STATUS , Z
INCF 0x0E , f
RLF 0x0E , f
DECFSZ 0x18 , f
GOTO Label_0033
GOTO Label_0026
Label_001B MOVF 0x14 , W
MOVWF EEADR
MOVF 0x13 , W
MOVWF 0x0E
BCF STATUS , C
RLF 0x0E , f
Label_0034 CALL Label_0028
CALL Label_0017
BCF STATUS , C
RRF 0x0E , f
INCF EEADR , f
BTFSC STATUS , Z
INCF 0x0E , f
BCF STATUS , C
RLF 0x0E , f
DECFSZ 0x15 , f
GOTO Label_0034
GOTO Label_0026
Label_0035 GOTO Label_0035
ORG 0x2000
DATA 0x0F
DATA 0x0F
DATA 0x0F
DATA 0x0F
ORG 0x2007
DATA 0x01
ORG 0x2100
DATA 0x07
DATA 0x3F
DATA 0x65
DATA 0x25
DATA 0x08
DATA 0x36
DATA 0x04
DATA 0x6C
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
DATA 0xFF
end
_________________________________________________________________
Téléchargez MSN Explorer gratuitement à l'adresse
http://explorer.msn.fr/intl.asp