ON 20080330@7:23:31 AM at page:
http://www.piclist.com/techref/io/led/8x7s8pin.htm#39537.3079976852
kyoji anekawa nonomura[kan-MMM-UA4] Questions:
I get together, and a letter may make a mistake of my not understanding English.
Is nine columns of indication possible by the following contents?
Because I was able to enter with a tab cord, the gap of the head of a line may disappear.
I get together, and a letter may make a mistake of my not understanding English.
Is nine columns of indication possible by the following contents?
Because I was able to enter with a tab cord, the gap of the space between the lines may disappear.
;LEDMPX　coment　|B is bank
isrled movlw b'11111111' ;ALL hi
bsf STATUS,RP0 ;Bank 1 (RP1 is clr) |B1
movwf TRISB ;portb hi inp
;
bcf STATUS,RP0 ;Bank 0 (RP1 is clr) |B0
movf BITPOS,W ;digit is 1
movwf PORTB ;portb digit=1 seg=0
; dig=9 a0=1
movf BUFPTR,W ;read point
movwf FSR ;indirect
movf INDF,W ;seg data
andwf BITPOS,W ;digit mask
btfss STATUS,Z ;seg=h is ?
goto _Fon ;
;
_Foff
bsf PORTA,0 ;seg0 is port-A0 1=off
bsf STATUS,RP0 ;Bank 1 (RP1 is clr) |B1
bsf TRISA,0 ;port-a0 input hiinp
bcf STATUS,RP0 ;Bank 0 (RP1 is clr) |B0
goto _9end
_Fon
bcf PORTA,0 ;seg1 is port-A0 0=on
bsf STATUS,RP0 ;Bank 1 (RP1 is clr) |B1
bcf TRISA,0 ;port-a0 output loinp
bcf STATUS,RP0 ;Bank 0 (RP1 is clr) |B0
_9end
movwf BITPOS,W ;digit read 0=9digit
iorwf INDF,W ;segdata add　
xorlw b'11111111' ;invert
bsf STATUS,RP0 ;Bank 1 (RP1 is clr) |B1
movwf TRISB ;portb hiinp & loinp
; ;
bcf STATUS,RP0 ;Bank 0 (RP1 is clr) |B0
movf BITPOS,W ;digit data
btfss STATUS,Z ;all zero？
goto isrnxt ;not next digit
;
_9dig
bsf PORTA,0 ;9dig is port-A0　1=on
bsf STATUS,RP0 ;Bank 1 (RP1 is clr) |B1
bcf TRISA,0 ;port-a0　output loinp
bcf STATUS,RP0 ;Bank 0 (RP1 is clr) |B0
movlw b'00000001' ;digit is 1 reset
movwf BITPOS ;digit write
movlw DIGIT0 ;seg data top
movwf BUFPTR ;pointa write
goto israll ;next flow
isrnxt incf BUFPTR,f ;seg pointa +1
bcf STATUS,C ;cl cal
rlf BITPOS,f ;sift left
goto israll ;next flow
;next flow is on time & etc process
ON 20080330@8:35:03 PM at page:
http://www.piclist.com/techref/io/led/8x7s8pin.htm#
kyoji anekawa nonomura[kan-MMM-UA4] I have agreed to maintain this page.
ON 20080330@8:40:33 PM at page:
http://www.piclist.com/techref/io/led/8x7s8pin.htm#
kyoji anekawa nonomura[kan-MMM-UA4] change
|Replace: '' with: ''
ON 20080331@4:57:18 AM at page:
http://www.piclist.com/techref/io/led/8x7s8pin.htm#39537.3079976852
kyoji anekawa nonomura[kan-MMM-UA4] Replied to post 39537.3079976852 by kan-MMM-UA4
|Insert ';I arrange it a little.
init_
movlw b'11111111' ;ALL Hi
bsf STATUS,RP0 ;Bank 1 (RP1 is clr) |B1
movwf TRISB ;PORTB Hi inp
bsf PORTA,0 ;PORTA,0 Hi inp
bcf STATUS,RP0 ;Bank 0 (RP1 is clr) |B0
goto digitstart ;1Digit Start
;
isrled
;Loop
;PORTB
movf BITPOS,W ;Digit=1
movwf PORTB ;PortB Digit=1 Segment=0
;PORTA,0
bcf PORTA,0 ;Flbit=0 Segment on,Digit off
btfsc STATUS,Z ;Digit9=ALL,0 is Z1 to Next,Z0 to Jmp
bsf PORTA,0 ;Flbit=1 Digit on J |
;dig=9 a0=1 ; Segment off J
;
;TRISB
movf BUFPTR,W ;Read Point
movwf FSR ;Indirect
movf INDF,W ;Segment Data
iorwf BITPOS,W ;Digit Add
xorlw b'11111111' ;Invert 0=Output 1=Input
bsf STATUS,RP0 ;Bank 1 (RP1 is clr) |B1
movwf TRISB ;Segment TRISB
bcf STATUS,RP0 ;Bank 0 (RP1 is clr) |B0
;
;TRISA,0
movf INDF,W ;Segment Data
andwf BITPOS,W ;Digit Mask
bsf STATUS,RP0 ;Bank 1 (RP1 is clr) |B1
bsf TRISA,0 ;Flbit=1 Input
btfsc STATUS,Z ;seg*dig=0 is Z1 to nxt,Z0 to jmp
bcf TRISA,0 ;Flbit=0 Output J |
bcf STATUS,RP0 ;Bank 0 (RP1 is clr) |B0 J
;
;9Digit
movf BITPOS,W ;Digit Data
btfss STATUS,Z ;ALL,0？ is Z1 to nxt,Z0 to jmp
goto isrnxt ;End Digit J @ |
; | |
digitstart | |
;1Digit | |
movlw b'00000001' ;Digitreset1 | J
movwf BITPOS ;Digit write |
movlw DIGIT0 ;Segment Data |
movwf BUFPTR ;Pointa Write |
goto israll ;Next Flow |
;NextDigit |
isrnxt
incf BUFPTR,f ;DigitPointa +1J
bcf STATUS,C ;cl carry
rlf BITPOS,f ;Shift Left
goto israll ;Next Flow
;
israll
;next flow is on time & etc prosses
goto isrled
end
' at: ''
kyoji anekawa nonomura of MNTECLAB asks:
I get together, and a letter may make a mistake of my not understanding English.
Is nine columns of indication possible by the following contents?
Because I was able to enter with a tab cord, the gap of the head of a line may disappear.
I get together, and a letter may make a mistake of my not understanding English.
Is nine columns of indication possible by the following contents?
Because I was able to enter with a tab cord, the gap of the space between the lines may disappear.
;LEDMPX　coment　|B is bank
isrled movlw b'11111111' ;ALL hi
bsf STATUS,RP0 ;Bank 1 (RP1 is clr) |B1
movwf TRISB ;portb hi inp
;
bcf STATUS,RP0 ;Bank 0 (RP1 is clr) |B0
movf BITPOS,W ;digit is 1
movwf PORTB ;portb digit=1 seg=0
; dig=9 a0=1
movf BUFPTR,W ;read point
movwf FSR ;indirect
movf INDF,W ;seg data
andwf BITPOS,W ;digit mask
btfss STATUS,Z ;seg=h is ?
goto _Fon ;
;
_Foff
bsf PORTA,0 ;seg0 is port-A0 1=off
bsf STATUS,RP0 ;Bank 1 (RP1 is clr) |B1
bsf TRISA,0 ;port-a0 input hiinp
bcf STATUS,RP0 ;Bank 0 (RP1 is clr) |B0
goto _9end
_Fon
bcf PORTA,0 ;seg1 is port-A0 0=on
bsf STATUS,RP0 ;Bank 1 (RP1 is clr) |B1
bcf TRISA,0 ;port-a0 output loinp
bcf STATUS,RP0 ;Bank 0 (RP1 is clr) |B0
_9end
movwf BITPOS,W ;digit read 0=9digit
iorwf INDF,W ;segdata add　
xorlw b'11111111' ;invert
bsf STATUS,RP0 ;Bank 1 (RP1 is clr) |B1
movwf TRISB ;portb hiinp & loinp
; ;
bcf STATUS,RP0 ;Bank 0 (RP1 is clr) |B0
movf BITPOS,W ;digit data
btfss STATUS,Z ;all zero？
goto isrnxt ;not next digit
;
_9dig
bsf PORTA,0 ;9dig is port-A0　1=on
bsf STATUS,RP0 ;Bank 1 (RP1 is clr) |B1
bcf TRISA,0 ;port-a0　output loinp
bcf STATUS,RP0 ;Bank 0 (RP1 is clr) |B0
movlw b'00000001' ;digit is 1 reset
movwf BITPOS ;digit write
movlw DIGIT0 ;seg data top
movwf BUFPTR ;pointa write
goto israll ;next flow
isrnxt incf BUFPTR,f ;seg pointa +1
bcf STATUS,C ;cl cal
rlf BITPOS,f ;sift left
goto israll ;next flow
;next flow is on time & etc process
ON 20080331@5:07:41 AM at page:
http://www.piclist.com/techref/io/led/8x7s8pin.htm#
kyoji anekawa nonomura[kan-MMM-UA4] I have agreed to maintain this page.
ON 20080331@5:11:01 AM at page:
http://www.piclist.com/techref/io/led/8x7s8pin.htm#
kyoji anekawa nonomura[kan-MMM-UA4] edited the page. Difference:
http://www.piclist.com/techref/diff.asp?url=H:\techref\io\led\8x7s8pin.htm&version=12
ON 20080331@5:21:24 AM at page:
http://www.piclist.com/techref/io/led/8x7s8pin.htm#38606.4318634259
kyoji anekawa nonomura[kan-MMM-UA4] Replied to post 38606.4318634259 by http://www.piclist.org/techref/postbot.asp?by=time&id=piclist/2002/05/17/142811a TARGET=_top
|Insert 'init_
movlw b'11111111' ;ALL Hi
bsf STATUS,RP0 ;Bank 1 (RP1 is clr) |B1
movwf TRISB ;PORTB Hi inp
bsf PORTA,0 ;PORTA,0 Hi inp
bcf STATUS,RP0 ;Bank 0 (RP1 is clr) |B0
goto digitstart ;1Digit Start
;
isrled
;Loop
;PORTB
movf BITPOS,W ;Digit=1
movwf PORTB ;PortB Digit=1 Segment=0
;PORTA,0
bcf PORTA,0 ;Flbit=0 Segment on,Digit off
btfsc STATUS,Z ;Digit9=ALL,0 is Z1 to Next,Z0 to Jmp
bsf PORTA,0 ;Flbit=1 Digit on J |
;dig=9 a0=1 ; Segment off J
;
;TRISB
movf BUFPTR,W ;Read Point
movwf FSR ;Indirect
movf INDF,W ;Segment Data
iorwf BITPOS,W ;Digit Add
xorlw b'11111111' ;Invert 0=Output 1=Input
bsf STATUS,RP0 ;Bank 1 (RP1 is clr) |B1
movwf TRISB ;Segment TRISB
bcf STATUS,RP0 ;Bank 0 (RP1 is clr) |B0
;
;TRISA,0
movf INDF,W ;Segment Data
andwf BITPOS,W ;Digit Mask
bsf STATUS,RP0 ;Bank 1 (RP1 is clr) |B1
bsf TRISA,0 ;Flbit=1 Input
btfsc STATUS,Z ;seg*dig=0 is Z1 to nxt,Z0 to jmp
bcf TRISA,0 ;Flbit=0 Output J |
bcf STATUS,RP0 ;Bank 0 (RP1 is clr) |B0 J
;
;9Digit
movf BITPOS,W ;Digit Data
btfss STATUS,Z ;ALL,0H is Z1 to nxt,Z0 to jmp
goto isrnxt ;End Digit J @ |
; | |
digitstart | |
;1Digit | |
movlw b'00000001' ;Digitreset1 | J
movwf BITPOS ;Digit write |
movlw DIGIT0 ;Segment Data |
movwf BUFPTR ;Pointa Write |
goto israll ;Next Flow |
;NextDigit |
isrnxt
incf BUFPTR,f ;DigitPointa +1 J
bcf STATUS,C ;cl carry
rlf BITPOS,f ;Shift Left
goto israll ;Next Flow
;
israll
;next flow is on time & etc prosses
goto isrled
end
' at: ''
PICList post "Part reducement"
ON 20080331@5:23:06 AM at page:
http://www.piclist.com/techref/io/led/8x7s8pin.htm#
kyoji anekawa nonomura[kan-MMM-UA4] edited the page. Difference:
http://www.piclist.com/techref/diff.asp?url=H:\techref\io\led\8x7s8pin.htm&version=16
ON 20080331@5:36:08 AM at page:
http://www.piclist.com/techref/io/led/8x7s8pin.htm#39538.2334143519
kyoji anekawa nonomura[kan-MMM-UA4] Says
init_
movlw b'11111111' ;ALL Hi
bsf STATUS,RP0 ;Bank 1 (RP1 is clr) |B1
movwf TRISB ;PORTB Hi inp
bsf PORTA,0 ;PORTA,0 Hi inp
bcf STATUS,RP0 ;Bank 0 (RP1 is clr) |B0
goto digitstart ;1Digit Start
;
isrled
;Loop
;PORTB
movf BITPOS,W ;Digit=1
movwf PORTB ;PortB Digit=1 Segment=0
;PORTA,0
bcf PORTA,0 ;Flbit=0 Segment on,Digit off
btfsc STATUS,Z ;Digit9=ALL,0 is Z1 to Next,Z0 to Jmp
bsf PORTA,0 ;Flbit=1 Digit on J |
;dig=9 a0=1 ; Segment off J
;
;TRISB
movf BUFPTR,W ;Read Point
movwf FSR ;Indirect
movf INDF,W ;Segment Data
iorwf BITPOS,W ;Digit Add
xorlw b'11111111' ;Invert 0=Output 1=Input
bsf STATUS,RP0 ;Bank 1 (RP1 is clr) |B1
movwf TRISB ;Segment TRISB
bcf STATUS,RP0 ;Bank 0 (RP1 is clr) |B0
;
;TRISA,0
movf INDF,W ;Segment Data
andwf BITPOS,W ;Digit Mask
bsf STATUS,RP0 ;Bank 1 (RP1 is clr) |B1
bsf TRISA,0 ;Flbit=1 Input
btfsc STATUS,Z ;seg*dig=0 is Z1 to nxt,Z0 to jmp
bcf TRISA,0 ;Flbit=0 Output J |
bcf STATUS,RP0 ;Bank 0 (RP1 is clr) |B0 J
;
;9Digit
movf BITPOS,W ;Digit Data
btfss STATUS,Z ;ALL,0？ is Z1 to nxt,Z0 to jmp
goto isrnxt ;End Digit J @ |
; | |
digitstart | |
;1Digit | |
movlw b'00000001' ;Digitreset1 | J
movwf BITPOS ;Digit write |
movlw DIGIT0 ;Segment Data |
movwf BUFPTR ;Pointa Write |
goto israll ;Next Flow |
;NextDigit |
isrnxt; |
incf BUFPTR,f ;DigitPointa +1 J
bcf STATUS,C ;cl carry
rlf BITPOS,f ;Shift Left
goto israll ;Next Flow
;
israll
;next flow is on time & etc prosses
goto isrled
end
ON 20080331@5:36:43 AM at page:
http://www.piclist.com/techref/io/led/8x7s8pin.htm#39538.2334143519
kyoji anekawa nonomura[kan-MMM-UA4] removed post 39538.2334143519
|Delete '
init_
movlw b'11111111' ;ALL Hi
bsf STATUS,RP0 ;Bank 1 (RP1 is clr) |B1
movwf TRISB ;PORTB Hi inp
bsf PORTA,0 ;PORTA,0 Hi inp
bcf STATUS,RP0 ;Bank 0 (RP1 is clr) |B0
goto digitstart ;1Digit Start
;
isrled
;Loop
;PORTB
movf BITPOS,W ;Digit=1
movwf PORTB ;PortB Digit=1 Segment=0
;PORTA,0
bcf PORTA,0 ;Flbit=0 Segment on,Digit off
btfsc STATUS,Z ;Digit9=ALL,0 is Z1 to Next,Z0 to Jmp
bsf PORTA,0 ;Flbit=1 Digit on J |
;dig=9 a0=1 ; Segment off J
;
;TRISB
movf BUFPTR,W ;Read Point
movwf FSR ;Indirect
movf INDF,W ;Segment Data
iorwf BITPOS,W ;Digit Add
xorlw b'11111111' ;Invert 0=Output 1=Input
bsf STATUS,RP0 ;Bank 1 (RP1 is clr) |B1
movwf TRISB ;Segment TRISB
bcf STATUS,RP0 ;Bank 0 (RP1 is clr) |B0
;
;TRISA,0
movf INDF,W ;Segment Data
andwf BITPOS,W ;Digit Mask
bsf STATUS,RP0 ;Bank 1 (RP1 is clr) |B1
bsf TRISA,0 ;Flbit=1 Input
btfsc STATUS,Z ;seg*dig=0 is Z1 to nxt,Z0 to jmp
bcf TRISA,0 ;Flbit=0 Output J |
bcf STATUS,RP0 ;Bank 0 (RP1 is clr) |B0 J
;
;9Digit
movf BITPOS,W ;Digit Data
btfss STATUS,Z ;ALL,0？ is Z1 to nxt,Z0 to jmp
goto isrnxt ;End Digit J @ |
; | |
digitstart | |
;1Digit | |
movlw b'00000001' ;Digitreset1 | J
movwf BITPOS ;Digit write |
movlw DIGIT0 ;Segment Data |
movwf BUFPTR ;Pointa Write |
goto israll ;Next Flow |
;NextDigit |
isrnxt; |
incf BUFPTR,f ;DigitPointa +1 J
bcf STATUS,C ;cl carry
rlf BITPOS,f ;Shift Left
goto israll ;Next Flow
;
israll
;next flow is on time & etc prosses
goto isrled
end
'
ON 20080331@5:39:43 AM at page:
http://www.piclist.com/techref/io/led/8x7s8pin.htm#39538.2359027778
kyoji anekawa nonomura[kan-MMM-UA4] Says