Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
;NOTES***********************************************************
;COMMON CATHODE SEGMENTS DISPLAY "HELP"
;COMMON CATHODES SHOULD CONNECT TO PORTA ACORDING TO THIS TABLE
;SEGMENTS STARTING FROM LEFT TO RIGHT
;SEG4 SEG3 SEG2 SEG1
;H E L P
;RA0 RA1 RA2 RA3
;SEGMENT PINS SHOULD CONNECT TO PORTB ACORDING TO THIS TABLE
;SAME PINS LINKS TO OTHER SEGMENT PINS
;SEGMENT A-RB0
;SEGMENT B-RB1
;SEGMENT C-RB2
;SEGMENT D-RB3
;SEGMENT E-RB4
;SEGMENT F-RB5
;SEGMENT G-RB6
;DELAY SHOULD BE ABOUT 10MS
;****************************************************************
HELLO MOVLW B'00001' ;TURN ON RA0 & OFF OTHERS
MOVWF PORTA
MOVLW B'1110011' ;DISPLAY LETTER P
MOVWF PORTB
CALL DELAY
MOVLW B'00010' ;TURN ON RA1 & OFF OTHERS
MOVWF PORTA
MOVLW B'0111000' ;DISPLAY LETTER L
MOVWF PORTB
CALL DELAY
MOVLW B'00100' ;TURN ON RA2 & OFF OTHERS
MOVWF PORTA
MOVLW B'1111001' ;DISPLAY LETTER E
MOVWF PORTB
CALL DELAY
MOVLW B'01000' ;TURN ON RA3 & OFF OTHERS
MOVWF PORTA
MOVLW B'1110110' ;DISPLAY LETTER H
MOVWF PORTB
CALL DELAY
GOTO HELLO
Device 16F877
Xtal = 4
Dim Number As Byte
Initialization:
TRISB = %00000000 ' Make PORTB all outputs
Number = 0 '
Main:
Number = 0
Repeat ' Create a loop
Inc Number ' Increment the Number register
GoSub Encode_Segment_Display ' Convert to segment data and display it
DelaymS 500 ' Small delay to slow down counting
Until Number = 4 ' Loop until number = 4, then reset
Goto Main ' Loop forever
Encode_Segment_Display:
SELECT Number
CASE 1
PORTB = %01110110
CASE 2
PORTB = %01111001
CASE 3
PORTB = %00111000
CASE 4
PORTB = %01110011
ENDSELECT
Return