URL
https://opencores.org/ocsvn/mcip_open/mcip_open/trunk
Subversion Repositories mcip_open
[/] [mcip_open/] [trunk/] [Hi_MCIPopen.ASM] - Rev 2
Compare with Previous | Blame | View Log
;******************************************************************************; *; Filename: Hi_MCIPopen.asm *; Description: ASM program for MCIPopen implementation example *; Date: 07/25/2015 *; File Version: 1 *; Tool: MPLAB IDE v8.83 *; *; Author: Ibrahim MEZZAH *; Company: Ferhat Abbas University - Algeria *; *;******************************************************************************; *; Files Required: P18F4410.INC *; *;******************************************************************************LIST P=18F4410 ;directive to define processor#include <P18F4410.INC> ;processor specific variable definitions; Oscillator Selection:CONFIG OSC = LP ;LP; LCD defines /////////////////////////////////////////#define LCD_DATA_PRT 0xF8B ;/*PRTC*/#define LCD_DATA_PORT 0x8B#define LCD_TRIS_DATA_PORT 0x94#define LCD_INST_PORT 0x8C ;/*PRTD*/#define LCD_TRIS_INST_PORT 0x95#define RW_PIN 5 ;/* PORT for RW */#define RS_PIN 6 ;/* PORT for RS */#define E_PIN 7 ;/* PORT for E */#define FOUR_BIT 0x28 ;0b00101000#define CLEAR 0x01 ;0b00000001#define CURSOR_HOME 0x02 ;0b00000010#define MODE_SET 0x06 ;0b00000110#define DISPLAY_ON_C 0x0e ;0b00001110#define DISPLAY_ON_B 0x0f ;0b00001111#define DISPLAY_ON 0x0c ;0b00001100#define DISPLAY_OFF 0x08 ;0b00001000#define SHIFT_D_R 0x1c ;0b00011100#define SHIFT_D_L 0x18 ;0b00011000#define SHIFT_C_R 0x14 ;0b00010100#define SHIFT_C_L 0x10 ;0b00010000#define access 0CBLOCK 0x080WREG_TEMP1 ;variable used for context savingSTATUS_TEMP1 ;variable used for context savingBSR_TEMP1 ;variable used for context savingWREG_TEMP2 ;variable used for context savingSTATUS_TEMP2 ;variable used for context savingBSR_TEMP2 ;variable used for context savingWREG_TEMP3 ;variable used for context savingSTATUS_TEMP3 ;variable used for context savingBSR_TEMP3 ;variable used for context savingWREG_TEMP4 ;variable used for context savingSTATUS_TEMP4 ;variable used for context savingBSR_TEMP4 ;variable used for context savingENDCCBLOCK 0x009 ;variables in access RAMe1e2e3e4LCD_commandLCD_dataENDC;******************************************************************************;Reset vector; This code will start executing when a reset occurs.ORG 0x0000goto Main ;go to start of main codeMain:;------------------------------------------------------------------------------; I/O ports configuration;------------------------------------------------------------------------------MOVLW 0x0fMOVWF LCD_TRIS_DATA_PORT,0CLRF LCD_INST_PORT,0MOVLW 0x1fMOVWF LCD_TRIS_INST_PORT,0MOVLW 0x0fCLRF LATAMOVWF TRISACLRF TRISB;------------------------------------------------------------------------------; LCD Initialisation;------------------------------------------------------------------------------MOVLW 0x30MOVWF LCD_DATA_PORT,0BSF LCD_INST_PORT,E_PIN,0NOPNOPBCF LCD_INST_PORT,E_PIN,0CALL Delay1_6msCALL Delay1_6msBSF LCD_INST_PORT,E_PIN,0NOPNOPBCF LCD_INST_PORT,E_PIN,0CALL Delay42usCALL Delay42usBSF LCD_INST_PORT,E_PIN,0NOPNOPBCF LCD_INST_PORT,E_PIN,0CALL Delay42usCALL Delay42usMOVLW 0x20MOVWF LCD_DATA_PORT,0BSF LCD_INST_PORT,E_PIN,0NOPNOPBCF LCD_INST_PORT,E_PIN,0CALL Delay42usCALL Delay42usMOVLW FOUR_BITMOVWF LCD_command,accessCALL CommandCALL Delay42usCALL Delay42usMOVLW DISPLAY_OFFMOVWF LCD_command,accessCALL CommandCALL Delay42usCALL Delay42usMOVLW DISPLAY_ONMOVWF LCD_command,accessCALL CommandCALL Delay42usCALL Delay42usMOVLW MODE_SETMOVWF LCD_command,accessCALL CommandCALL Delay42usCALL Delay42usMOVLW CLEARMOVWF LCD_command,accessCALL CommandCALL Delay1_6msCALL Delay1_6ms;------------------------------------------------------------------------------; END LCD Initialisation;------------------------------------------------------------------------------; Displaying "Hello MCIP!"MOVLW 0x03MOVWF LCD_data,accessCALL Set_addressCALL Delay42usMOVLW 'H'MOVWF LCD_data,accessCALL DisplayCALL Delay42usMOVLW 'e'MOVWF LCD_data,accessCALL DisplayCALL Delay42usMOVLW 'l'MOVWF LCD_data,accessCALL DisplayCALL Delay42usMOVLW 'l'MOVWF LCD_data,accessCALL DisplayCALL Delay42usMOVLW 'o'MOVWF LCD_data,accessCALL DisplayCALL Delay42usMOVLW ' 'MOVWF LCD_data,accessCALL DisplayCALL Delay42usMOVLW 'M'MOVWF LCD_data,accessCALL DisplayCALL Delay42usMOVLW 'C'MOVWF LCD_data,accessCALL DisplayCALL Delay42usMOVLW 'I'MOVWF LCD_data,accessCALL DisplayCALL Delay42usMOVLW 'P'MOVWF LCD_data,accessCALL DisplayCALL Delay42usMOVLW '!'MOVWF LCD_data,accessCALL DisplayCALL Delay42us;--------------------MOVLW 0x53MOVWF LCD_data,accessCALL Set_addressCALL Delay42usMOVLW '<'MOVWF LCD_data,accessCALL DisplayCALL Delay42usMOVLW '<'MOVWF LCD_data,accessCALL DisplayCALL Delay42usMOVLW 0x63MOVWF LCD_data,accessCALL Set_addressCALL Delay42usMOVLW '<'MOVWF LCD_data,accessCALL DisplayCALL Delay42usMOVLW '<'MOVWF LCD_data,accessCALL DisplayCALL Delay42us;----------------------; ~ 2second delayMOVLW 0x22MOVWF e4,accessloop21:CALL Delay58msDECFSZ e4,1,accessBRA loop21MOVLW 0x80MOVWF LATBlooplooop:RLNCF LATB,1,0MOVLW SHIFT_D_LMOVWF LCD_command,accessCALL CommandMOVLW 0x0fANDWF PORTA,0,0MOVWF e4,0INCF e4,1,0loop_3x58ms:CALL Delay58ms;CALL Delay58msDECF e4,1,0TSTFSZ e4,0BRA loop_3x58msBRA looplooop; Fuctions:;---------------------------------; Delay 42us *********************Delay42us:;save working registersmovff STATUS,STATUS_TEMP1movff WREG,WREG_TEMP1movff BSR,BSR_TEMP1MOVLW 0xACMOVWF e1,accessloop10:INCFSZ e1,1,accessBRA loop10;restore working registersmovff BSR_TEMP1,BSRmovff WREG_TEMP1,WREGmovff STATUS_TEMP1,STATUSRETURN;******** end Delay 40us **********;----------------------------------;---------------------------------; Delay 1.6ms ********************Delay1_6ms:;save working registersmovff STATUS,STATUS_TEMP2movff WREG,WREG_TEMP2movff BSR,BSR_TEMP2MOVLW 0x25MOVWF e2,accessloop3:CALL Delay42usDECFSZ e2,1,accessBRA loop3;restore working registersmovff BSR_TEMP2,BSRmovff WREG_TEMP2,WREGmovff STATUS_TEMP2,STATUSRETURN;******** end Delay1.6ms **********;----------------------------------;---------------------------------; Delay 58ms *********************Delay58ms:;save working registersmovff STATUS,STATUS_TEMP3movff WREG,WREG_TEMP3movff BSR,BSR_TEMP3MOVLW 0x24MOVWF e3,accessloop4:CALL Delay1_6msDECFSZ e3,1,accessBRA loop4;restore working registersmovff BSR_TEMP3,BSRmovff WREG_TEMP3,WREGmovff STATUS_TEMP3,STATUSRETURN;******** end Delay 58ms **********;----------------------------------;----------------------------------; send a command to the LCD *******Command:;save working registersmovff STATUS,STATUS_TEMP4movff WREG,WREG_TEMP4movff BSR,BSR_TEMP4MOVFF LCD_command,LCD_DATA_PRTBSF LCD_INST_PORT,E_PIN,0NOPNOPNOPBCF LCD_INST_PORT,E_PIN,0SWAPF LCD_DATA_PORT,1,0NOPNOPNOPNOPNOPNOPNOPNOPNOPNOPNOPBSF LCD_INST_PORT,E_PIN,0NOPNOPNOPBCF LCD_INST_PORT,E_PIN,0;restore working registersmovff BSR_TEMP4,BSRmovff WREG_TEMP4,WREGmovff STATUS_TEMP4,STATUSRETURN;****** end send command **********;----------------------------------;----------------------------------; send data to the LCD ************Display:;save working registersmovff STATUS,STATUS_TEMP4movff WREG,WREG_TEMP4movff BSR,BSR_TEMP4MOVFF LCD_data,LCD_DATA_PRTBSF LCD_INST_PORT,RS_PIN,0BSF LCD_INST_PORT,E_PIN,0NOPNOPNOPBCF LCD_INST_PORT,E_PIN,0SWAPF LCD_DATA_PORT,1,0NOPNOPNOPNOPNOPNOPNOPNOPNOPNOPNOPBSF LCD_INST_PORT,E_PIN,0NOPNOPNOPBCF LCD_INST_PORT,E_PIN,0BCF LCD_INST_PORT,RS_PIN,0;restore working registersmovff BSR_TEMP4,BSRmovff WREG_TEMP4,WREGmovff STATUS_TEMP4,STATUSRETURN;******** end send data ***********;----------------------------------;----------------------------------; Set an address to the LCD *******Set_address:;save working registersmovff STATUS,STATUS_TEMP4movff WREG,WREG_TEMP4movff BSR,BSR_TEMP4MOVLW 0x80IORWF LCD_data,1,accessMOVFF LCD_data,LCD_DATA_PRTBSF LCD_INST_PORT,E_PIN,0NOPNOPNOPBCF LCD_INST_PORT,E_PIN,0SWAPF LCD_DATA_PORT,1,0NOPNOPNOPNOPNOPNOPNOPNOPNOPNOPNOPBSF LCD_INST_PORT,E_PIN,0NOPNOPNOPBCF LCD_INST_PORT,E_PIN,0;restore working registersmovff BSR_TEMP4,BSRmovff WREG_TEMP4,WREGmovff STATUS_TEMP4,STATUSRETURN;******** end set address *********;----------------------------------;******************************************************************************;End of programEND