brenda
- 30th March 2007, 12:38
Hi,
Is there somebody can help me translate this routine to basic?
Subroutine_1A
movlw 0x08
movwf VarA
bsf STATUS,RP0 ; !!Bank Register-Bank(0/1)-Select
bsf PORTB,4 ; !!Bank!! PORTB - TRISB
bcf STATUS,RP0 ; !!Bank Register-Bank(0/1)-Select
Subroutine_1B
btfsc PORTB,4 ; !!Bank!! PORTB - TRISB
GoTo Subroutine_1B
clrf VarW
bsf VarA,7
GoTo Subroutine_1G
Subroutine_1C
bcf VarA,7
GoTo Subroutine_1G
Subroutine_1D
bcf STATUS,C
rrf VarW,F
btfsc PORTB,4 ; !!Bank!! PORTB - TRISB
bsf VarW,7
bsf VarA,6
GoTo Subroutine_1G
Subroutine_1E
bcf VarA,6
decfsz VarA,F
GoTo Subroutine_1D
bsf VarA,5
GoTo Subroutine_1G
Subroutine_1F
bcf VarA,5
movf VarW,W
movwf VarB
GoTo Subroutine_1I
Subroutine_1G
movlw 0x3F
btfsc VarA,7
movlw 0x11
movwf VarB
Subroutine_1H
decfsz VarB,F
GoTo Subroutine_1H
btfsc VarA,7
GoTo Subroutine_1C
btfsc VarA,6
GoTo Subroutine_1E
btfsc VarA,5
GoTo Subroutine_1F
GoTo Subroutine_1D
Subroutine_1I
retlw 0x00
What is exactly doing it?
Many Thanks,
brenda
Is there somebody can help me translate this routine to basic?
Subroutine_1A
movlw 0x08
movwf VarA
bsf STATUS,RP0 ; !!Bank Register-Bank(0/1)-Select
bsf PORTB,4 ; !!Bank!! PORTB - TRISB
bcf STATUS,RP0 ; !!Bank Register-Bank(0/1)-Select
Subroutine_1B
btfsc PORTB,4 ; !!Bank!! PORTB - TRISB
GoTo Subroutine_1B
clrf VarW
bsf VarA,7
GoTo Subroutine_1G
Subroutine_1C
bcf VarA,7
GoTo Subroutine_1G
Subroutine_1D
bcf STATUS,C
rrf VarW,F
btfsc PORTB,4 ; !!Bank!! PORTB - TRISB
bsf VarW,7
bsf VarA,6
GoTo Subroutine_1G
Subroutine_1E
bcf VarA,6
decfsz VarA,F
GoTo Subroutine_1D
bsf VarA,5
GoTo Subroutine_1G
Subroutine_1F
bcf VarA,5
movf VarW,W
movwf VarB
GoTo Subroutine_1I
Subroutine_1G
movlw 0x3F
btfsc VarA,7
movlw 0x11
movwf VarB
Subroutine_1H
decfsz VarB,F
GoTo Subroutine_1H
btfsc VarA,7
GoTo Subroutine_1C
btfsc VarA,6
GoTo Subroutine_1E
btfsc VarA,5
GoTo Subroutine_1F
GoTo Subroutine_1D
Subroutine_1I
retlw 0x00
What is exactly doing it?
Many Thanks,
brenda