PIC microcontroller controls HT1621 LCD program
;THIS PROGRAM IS FOR HT1621 LCD DISPLAY
;VDD=5.0V IF VDD < 5.0V PLEASE USE A DELAY
;RECEIVE AND TRANSMIT BY TR' TIME
;
FSREQU4H
RBEQU6H
GENR0EQU09H
GENR1EQU0AH
WD_RGEQU0BH
;
; THE REGISTERS OF LCD DISPLAY DATA
DA_AG0EQU10H; SEG0 - SEG1
DA_AGFEQU1FH; SEG30 - SEG31
;
; RB BITS
CSEQU0; ENABLE BIT
WDAEQU1; DATA PORT
WCLKEQU2; WRITE CLOCK
RCLKEQU3; READ CLOCK
;
; THE VALUE OF LCD WORK MODE
BISAEQU52H; 1/3 BISA 4 COM
;
;----------------
; THE TABLE OF HT1621 WORK MODE VALUE
ON_VALUE
ADDWF2
RETLW06H; LCD ON
RETLW02H; SYS ON
RETLW10H; TONE OFF
RETLWBISA; BISA 1/3 4 COM
RETLW28H; 32K XTAL
RETLW0AH; WDT DISABLE
RETLW00H; /IRQ DISABLE
RETLW0C6H; NORMAL MODE
;-------
; TRANSMIT BITS SUBROUTINE
; FIRSTLY TRANSMIT HIGH BIT OF BYTE
TRAM_DATA
MOVWF GENR0
BCF RB, WCLK
RLF WD_RG
BTFSS 3, 0
GOTO $+3
BSF RB, WDA
GOTO $+2
BCF RB, WDA
NOP
NOP
BSF RB, WCLK
NOP
NOP
NOP
NOP
NOP
BCF RB, WCLK
DECFSZ GENR0
GOTO TRAM_DATA+1
RETLW 0
;-------
; RECEIVING BITS SUBROUTINE
; FIRSTLY RECEIVE HIGH BIT OF BYTE
RCIV_DATA
BCF RB, RCLK
NOP
NOP
NOP
NOP
BSF RB, RCLK
NOP
NOP
BTFSS RB, WDA
GOTO $+3
BSF 3, 0
GOTO $+2
BCF 3, 0
RLF 0H
DECFSZ GENR0
GOTO RCIV_DATA
RETLW 0
;
;-------
; TRANSMIT CONTROL CODES OF LCD DISPLAY SUBROUTINE
ON_LCD
MOVWF GENR1
MOVLW 80H; HI_W3BITS: 100
MOVWF WD_RG
MOVLW 3
CALL TRAM_DATA
ON_LCD0
MOVLW 7H
SUBWF GENR1, W
MOVLW 00H; HI_W1BIT: 0
BTFSC 3, 0
MOVLW 10H; HI_W1BIT: 1
MOVWF WD_RG
MOVLW 1H
CALL TRAM_DATA
MOVFW GENR1
CALL ON_VALUE; LO_8BITS
MOVWF WD_RG
MOVLW 8
CALL TRAM_DATA
DECFSZ GENR1
GOTO ON_LCD0
RETLW 0
;
; TRANSMIT DISPLAY DATAES SUBROUTINE
DIS_DATA
MOVWF GENR1
MOVLW 0A0H
MOVWF WD_RG; WRITE CONTROL
MOVLW 3H
CALL TRAM_DATA
MOVLW 00
MOVWF WD_RG; WRITE ADDRESS
MOVLW 6H
CALL TRAM_DATA
;MOVLW DA_AG0-1
;MOVWFFSR
DIS_DATA0
INCFFSR
MOVFW 0H
MOVWF WD_RG; DISPLAY CODE
MOVLW 8
CALL TRAM_DATA
DECFSZ GENR1; DISPLAY WHICH SEGMENT REGISTER
GOTO DIS_DATA0
RETLW 0H
;===========================
;
; BECAUSE IN THE HT1621 COMMAND CODE 'HIGH BIT AND MEMORY
; ADDRESS CODE 'HIGH-BIT IS FIRSTLY TRANSMITTED, AND
; DATA 'LOW-BIT IS FIRSTLY TRANSMITTED AND RECEIVED, BUT
; THIS PROGRAM FIRSTLY TRANSMIT AND RECEIVE HIGH-BIT.
; PLEASE TO ATTENATE DISPLAY DATAES ASSEMBLE 'MODE.
;
; INITIALIZE PORT_B
MOVLW 0F0H
TRIS RB
MOVLW 0FH
MOVWF RB
MOVLW 4; CPU OSC = 4MHz
OPTION
;
; SET HT1621 WORK MODE
BCF RB, CS; CS = 0
MOVLW 8H
CALL ON_LCD; TRANSMIT HT1621 WORK MODE VALUE
MOVLW 0FH
IOR WF RB; CS = 1
NOP
;
;===========================
; WRITE OPERATION
; DISPLAY DATA PUT IN DA_AG0(10H) REGISTER TO DA_AGF(1FH) REGISTER
BCF RB, CS; CS = 0
MOVLW DA_AG0-1; DISPLAY SEGMENT REGISTER
MOVWF FSR
MOVLW 10H; 32 SEGMENTS
call DIS_DATA
MOVLW 0FH; CS = 1
IOR WF RB
;
;===========================
; READ OPERATION
MOVLW 0C0H
MOVWF WD_RG; WRITE CONTROL
BCF RB, CS
MOVLW 3H
CALL TRAM_DATA
MOVLW 00
MOVWF WD_RG; WRITE ADDRESS
MOVLW 6H
CALL TRAM_DATA
;
; READ OUT DATAES PUT IN DA_AG0(10H) TO DA_AGF(1FH) REGISTER
BSF RB, WCLK
MOVLW 10H; 32 SEGMENTS
MOVWF GENR1
MOVLW DA_AG0
MOVWF FSR
BCF RB, RCLK; RCLK = 0
AG_RD
BSF GENR0, 3; READ BYTES
CALL RCIV_DATA
;
INCFFSR
DECFSZ GENR1
GOTO AG_RD
;
MOVLW 0FH
IOR WF RB
;
;
Laptop power adapter charger for Macbook, Macbook Air and Macbook Pro.
45w, 60w, 80w charger with Magsafe 1 or Magsafe 2 connector.
Four replacement ac plugs for your choices, US / EU / UK / AU plug as your requirement.
Stable output and high charging efficiency.
Elegant outlook design as original one, touch smoothly and comfortable.
Easy carry if you want to take your computer outside for business or travel.
Original charger is good, but as a replacement, our product has more reasonable price when your original charger is broken.
And, the market of the replacement adapters becomes bigger and bigger. People would rather buy a copy one then the original because of the price.
But at the same time, people worry about that they will buy something defective. So the problem comes, how to buy a good quality one with a good price?
As a professional power adapter manufacturer, we have excellent R&D team, skilled staffs and responsible after-sale service. All your benefits can be under protected after you buy products for our company.
Our certificates :ISO9001:2008 & ISO14001:2004 , CCC , CE , FCC , ROHS.
All our products has 1 year warranty. In other words, if you get the dad products which are not damaged physically from us in one year, we will replace you the new one or the whole bulk order.
Macbook Adapter,45W Adapter For Macbook,45W Charger For Macbook,60W Charger For Macbook,Macbook Charger
Shenzhen Waweis Technology Co., Ltd. , https://www.waweis.com