assembly - Time Base, assembler, PIC , propeller clock -
so, i'm doing propeller clock , should display hour , 1 name, using assembler , pic 18f4550. think fine. it's can't manage "make" right time base.
the pic works naturally @ 8 mhz.
what i'm trying create routine counts 1 min, after that, clock add 1 minute "minutes", , on (that part done).
the user set hour, 4 push buttons, , after set current hour, , press final push button. that's when time base kick in.
i think can't last part, need time base, because can't seem understand in assembler (in c# i'd bid while o while or maybe for).
one way see - maybe need make big delay - 1 lasts 60 seconds - can put in assembler language, or wrong?
thank in advance guys.
here's code clock:
list p = 18f4550 #include<p18f4550.inc> config wdt = off config mclre = on config debug = off config lvp = off config fosc = intosc_ec delay1 equ 0x00 delay2 equ 0x01 aux1 equ 0x02 aux2 equ 0x03 org 0 movlw b'01110111' ;8 mhz movwf osccon clrf porta clrf portb clrf trisb clrf aux1 clrf aux2 ;movwf b'01100100' ;movlw aux1 test btfss porta,4 goto test goto mainloop mainloop movlw b'00000001' addwf aux2,1 call k call retardo call re call retardo call o call retardo call nn call retardo call o call retardo call ss call retardo call mm call retardo call yy call retardo call gg call retardo ;movwf b'01100100' movlw b'00000011' cpfseq aux2,1 goto mainloop call opt goto test ;*******************letters**************** k movlw b'11111111' movwf portb call retardo movlw b'00001000' movwf portb call retardo movlw b'00010100' movwf portb call retardo movlw b'00100010' movwf portb call retardo movlw b'01000001' movwf portb call retardo movlw b'00000000' movwf portb call retardo return re movlw b'01111111' movwf portb call retardo movlw b'01001100' movwf portb call retardo movlw b'01001100' movwf portb call retardo movlw b'00110011' movwf portb call retardo movlw b'00000000' movwf portb call retardo return nn movlw b'01111111' movwf portb call retardo movlw b'00100000' movwf portb call retardo movlw b'00010000' movwf portb call retardo movlw b'00001000' movwf portb call retardo movlw b'00000100' movwf portb call retardo movlw b'01111111' movwf portb call retardo movlw b'00000000' movwf portb call retardo return o movlw b'00001000' movwf portb call retardo movlw b'00010100' movwf portb call retardo movlw b'00100010' movwf portb call retardo movlw b'01000001' movwf portb call retardo movlw b'00100010' movwf portb call retardo movlw b'00010100' movwf portb call retardo movlw b'00001000' movwf portb call retardo movlw b'00000000' movwf portb call retardo return ss movlw b'00010001' movwf portb call retardo movlw b'00101010' movwf portb call retardo movlw b'01000100' movwf portb call retardo movlw b'00000000' movwf portb call retardo return mm call retardo movlw b'01111111' movwf portb call retardo movlw b'00000010' movwf portb call retardo movlw b'00000100' movwf portb call retardo movlw b'00001000' movwf portb call retardo movlw b'00000100' movwf portb call retardo movlw b'00000010' movwf portb call retardo movlw b'01111111' movwf portb call retardo movlw b'00000000' movwf portb call retardo return yy movlw b'00000001' movwf portb call retardo movlw b'00000010' movwf portb call retardo movlw b'00000100' movwf portb call retardo movlw b'01111000' movwf portb call retardo movlw b'00000100' movwf portb call retardo movlw b'00000010' movwf portb call retardo movlw b'00000001' movwf portb call retardo movlw b'00000000' movwf portb call retardo return gg movlw b'01111001' movwf portb call retardo movlw b'00101010' movwf portb call retardo movlw b'00010100' movwf portb call retardo movlw b'00001000' movwf portb call retardo movlw b'00000000' movwf portb call retardo return opt movlw b'11111111' movwf portb call retardo call retardo call retardo call retardo call retardo call retardo call retardo call retardo call retardo clrf aux2 movlw b'00000000' movwf portb return ;*******number************ horas1 btfsc porta,0 goto cero1 cero1 btfsc porta,0 goto uno1 movlw b'00111110' movwf portb call retardo movlw b'01000001' movwf portb call retardo movlw b'01000001' movwf portb call retardo movlw b'00111110' movwf portb call retardo movlw b'00000000' movwf portb call retardo uno1 btfsc porta,0 goto cero1 movlw b'00010000' movwf portb call retardo movlw b'00100001' movwf portb call retardo movlw b'01111111' movwf portb call retardo movlw b'00000001' movwf portb call retardo movlw b'00000000' movwf portb call retardo horas2 btfsc porta,1 goto cero2 cero2 btfsc porta,1 goto uno2 movlw b'00111110' movwf portb call retardo movlw b'01000001' movwf portb call retardo movlw b'01000001' movwf portb call retardo movlw b'00111110' movwf portb call retardo movlw b'00000000' movwf portb call retardo uno2 btfsc porta,1 goto dos2 movlw b'00010000' movwf portb call retardo movlw b'00100001' movwf portb call retardo movlw b'01111111' movwf portb call retardo movlw b'00000001' movwf portb call retardo movlw b'00000000' movwf portb call retardo dos2 btfsc porta,1 goto tres2 movlw b'00110011' movwf portb call retardo movlw b'01000101' movwf portb call retardo movlw b'01001001' movwf portb call retardo movlw b'01110001' movwf portb call retardo movlw b'00000000' movwf portb call retardo tres2 btfsc porta,1 goto cuatro2 movlw b'01001001' movwf portb call retardo movlw b'01001001' movwf portb call retardo movlw b'01001001' movwf portb call retardo movlw b'00111110' movwf portb call retardo movlw b'00000000' movwf portb call retardo cuatro2 btfsc porta,1 goto cinco2 movlw b'01111000' movwf portb call retardo movlw b'00001000' movwf portb call retardo movlw b'00001000' movwf portb call retardo movlw b'01111111' movwf portb call retardo movlw b'00000000' movwf portb call retardo cinco2 btfsc porta,1 goto seis2 movlw b'01111001' movwf portb call retardo movlw b'01001001' movwf portb call retardo movlw b'01001001' movwf portb call retardo movlw b'01001111' movwf portb call retardo movlw b'00000000' movwf portb call retardo seis2 btfsc porta,1 goto siete2 movlw b'00111110' movwf portb call retardo movlw b'01000001' movwf portb call retardo movlw b'01001001' movwf portb call retardo movlw b'01001110' movwf portb call retardo movlw b'00000000' movwf portb call retardo siete2 btfsc porta,1 goto ocho2 movlw b'01000000' movwf portb call retardo movlw b'01001000' movwf portb call retardo movlw b'01111111' movwf portb call retardo movlw b'00001000' movwf portb call retardo movlw b'00000000' movwf portb call retardo ocho2 btfsc porta,1 goto nueve2 movlw b'00111110' movwf portb call retardo movlw b'01001001' movwf portb call retardo movlw b'01001001' movwf portb call retardo movlw b'00111110' movwf portb call retardo movlw b'00000000' movwf portb call retardo nueve2 btfsc porta,1 goto cero2 movlw b'00110001' movwf portb call retardo movlw b'01001001' movwf portb call retardo movlw b'01001001' movwf portb call retardo movlw b'00111110' movwf portb call retardo movlw b'00000000' movwf portb call retardo minutos1 btfsc porta,2 goto cerom1 cerom1 btfsc porta,2 goto unom1 movlw b'00111110' movwf portb call retardo movlw b'01000001' movwf portb call retardo movlw b'01000001' movwf portb call retardo movlw b'00111110' movwf portb call retardo movlw b'00000000' movwf portb call retardo unom1 btfsc porta,2 goto dosm1 movlw b'00010000' movwf portb call retardo movlw b'00100001' movwf portb call retardo movlw b'01111111' movwf portb call retardo movlw b'00000001' movwf portb call retardo movlw b'00000000' movwf portb call retardo dosm1 btfsc porta,2 goto tresm1 movlw b'00110011' movwf portb call retardo movlw b'01000101' movwf portb call retardo movlw b'01001001' movwf portb call retardo movlw b'01110001' movwf portb call retardo movlw b'00000000' movwf portb call retardo tresm1 btfsc porta,2 goto cuatrom1 movlw b'01001001' movwf portb call retardo movlw b'01001001' movwf portb call retardo movlw b'01001001' movwf portb call retardo movlw b'00111110' movwf portb call retardo movlw b'00000000' movwf portb call retardo cuatrom1 btfsc porta,2 goto cincom1 movlw b'01111000' movwf portb call retardo movlw b'00001000' movwf portb call retardo movlw b'00001000' movwf portb call retardo movlw b'01111111' movwf portb call retardo movlw b'00000000' movwf portb call retardo cincom1 btfsc porta,2 goto cerom1 movlw b'01111001' movwf portb call retardo movlw b'01001001' movwf portb call retardo movlw b'01001001' movwf portb call retardo movlw b'01001111' movwf portb call retardo movlw b'00000000' movwf portb call retardo minutos2 btfsc porta,3 goto cerom2 cerom2 btfsc porta,3 goto unom2 movlw b'00111110' movwf portb call retardo movlw b'01000001' movwf portb call retardo movlw b'01000001' movwf portb call retardo movlw b'00111110' movwf portb call retardo movlw b'00000000' movwf portb call retardo unom2 btfsc porta,3 goto dosm2 movlw b'00010000' movwf portb call retardo movlw b'00100001' movwf portb call retardo movlw b'01111111' movwf portb call retardo movlw b'00000001' movwf portb call retardo movlw b'00000000' movwf portb call retardo dosm2 btfsc porta,3 goto tresm2 movlw b'00110011' movwf portb call retardo movlw b'01000101' movwf portb call retardo movlw b'01001001' movwf portb call retardo movlw b'01110001' movwf portb call retardo movlw b'00000000' movwf portb call retardo tresm2 btfsc porta,3 goto cuatrom2 movlw b'01001001' movwf portb call retardo movlw b'01001001' movwf portb call retardo movlw b'01001001' movwf portb call retardo movlw b'00111110' movwf portb call retardo movlw b'00000000' movwf portb call retardo cuatrom2 btfsc porta,3 goto cincom2 movlw b'01111000' movwf portb call retardo movlw b'00001000' movwf portb call retardo movlw b'00001000' movwf portb call retardo movlw b'01111111' movwf portb call retardo movlw b'00000000' movwf portb call retardo cincom2 btfsc porta,3 goto seism2 movlw b'01111001' movwf portb call retardo movlw b'01001001' movwf portb call retardo movlw b'01001001' movwf portb call retardo movlw b'01001111' movwf portb call retardo movlw b'00000000' movwf portb call retardo seism2 btfsc porta,3 goto sietem2 movlw b'00111110' movwf portb call retardo movlw b'01000001' movwf portb call retardo movlw b'01001001' movwf portb call retardo movlw b'01001110' movwf portb call retardo movlw b'00000000' movwf portb call retardo sietem2 btfsc porta,3 goto ochom2 movlw b'01000000' movwf portb call retardo movlw b'01001000' movwf portb call retardo movlw b'01111111' movwf portb call retardo movlw b'00001000' movwf portb call retardo movlw b'00000000' movwf portb call retardo ochom2 btfsc porta,3 goto nuevem2 movlw b'00111110' movwf portb call retardo movlw b'01001001' movwf portb call retardo movlw b'01001001' movwf portb call retardo movlw b'00111110' movwf portb call retardo movlw b'00000000' movwf portb call retardo nuevem2 btfsc porta,3 goto cerom2 movlw b'00110001' movwf portb call retardo movlw b'01001001' movwf portb call retardo movlw b'01001001' movwf portb call retardo movlw b'00111110' movwf portb call retardo movlw b'00000000' movwf portb call retardo retardo decfsz delay1,1 goto retardo decfsz delay2,1 goto retardo return end
Comments
Post a Comment