;All Keyboard Code written by George Hotz ;The LCD Code was "Adapted" from Ubicom's VP device sx28l,osc4mhz,turbo,stackx_optionx reset main2 key equ $0C temp equ $0D temp2 equ $0E stat equ $0F lcd_temp equ $08 lcd_count equ $09 dlycnt1 equ $0A dlycnt2 equ $0B lcd_control = ra lcd_ = ra.0 ; This ra output could be used ; for backlight or contrast. lcd_RS = rb.0 ; 0 = instruction, 1 = data lcd_RW = ra.2 ; 0 = write, 1 = read lcd_E = ra.3 ; 1,1-->0 is the LCD enable lcd_data = rb lcd_DB4 = rb.4 ; DB4 = Data bus line 4 (LSB) lcd_DB5 = rb.5 lcd_DB6 = rb.6 lcd_DB7 = rb.7 ; DB7 = Data bus line 7 (MSB) ; LCD Definitions ; LCD_Interface Constants. ; Commands LCD_Clear equ %00000001 LCD_Cursor_Home equ %00000010 LCD_Entry_Mode equ %00000100 LCD_Display_control equ %00001000 LCD_Cursor equ %00010000 LCD_Function equ %00100000 LCD_Set_CGRam equ %01000000 LCD_Set_DDRam equ %10000000 ; Control Bits LCD_S equ %00000001 ; Display Shift LCD_B equ %00000000 ; Cursor Blink LCD_ID equ %00000010 ; Cursor Position Decrement LCD_C equ %00000000 ; Cursor off/ on LCD_RL equ %00000100 ; Cursor direction (Right = 1 left =0) LCD_F equ %00000100 ; Character resolution 1= 5x10, 0= 5x7 LCD_D equ %00000100 ; Display 0n = 1 off = 0 LCD_SC equ %00001000 ; Shift 0=cursor 1=diaplay LCD_N equ %00001000 ; Number od lines 0 for 1 line LCD_DL equ %00010000 ; Data lines 0 for 4 data lines 1 for 8 data lines LCD_BF equ %10000000 ; Busy Flag, 0 = not busy LCD_Delay equ 255 org 0 main2 mode $0f mov stat,#0 call keyreset mov !rb,#%11110000 call @lcd_init mov W, #LCD_Clear ; Clear the screen call @lcd_write_command call @lcd_wait_busy ; Wait for the LCD main call scankey ;Gets one key call NCS ;Sets Num, Caps, or Scroll lock in var stat cja key,#$90,main mov w,key jmp @go2it back2it mov key,w cje key,#0,main call LCD ;Prints to LCD jmp main ;-----------------Start of Subroutines-------------------- ;---------For LCD---------------- LCD mov W, key call @lcd_write_data call @lcd_wait_busy ; Wait jnb stat.3,erend; mov W, #32 call @lcd_write_data call @lcd_wait_busy ; Wait mov W, #69 call @lcd_write_data call @lcd_wait_busy ; Wait mov W, #88 call @lcd_write_data call @lcd_wait_busy ; Wait mov W, #84 call @lcd_write_data call @lcd_wait_busy ; Wait mov w,#LCD_Delay erend ret ;-------End For LCD-------------- NCS mov temp2,key mov temp,stat cjne temp2,#$58,Caps jb stat.2,Caps2 setb stat.2 jmp Caps Caps2 snb stat.2 clrb stat.2 Caps cjne temp2,#$77,Num jb stat.1,Num2 setb stat.1 jmp Num Num2 snb stat.1 clrb stat.1 Num cjne temp2,#$7E,Scroll jb stat.0,Scroll2 setb stat.0 jmp Scroll Scroll2 snb stat.0 clrb stat.0 Scroll cje temp,stat,ng mov key,#$ED call tbyte mov w,stat and w,#%00000111 mov key,w call tbyte ng ret keyreset mov key,#$FF call tbyte call rbyte cje key,#$AA,go jmp main2 go ret scankey ;Carry on for ext, Byte in key call rbyte cjne key,#$E0,noext call rbyte call rbyte call rbyte call rbyte setb stat.3 ret noext call rbyte call rbyte clrb stat.3 ret rbyte call ignore mov temp,#8 again jb ra.0,again stc jb ra.1,noclc clc noclc rr key again2 jnb ra.0,again2 djnz temp,again call ignore call ignore ret ignore jb ra.0,ignore ;After Falling Edge ignore2 jnb ra.0,ignore2 ;After Rising Edge ret tbyte mov temp2,#0 mov !RA,#%00000001 mov RA,#0 fall jb ra.0,fall ;After Falling Edge mov temp,#8 send1 jnb ra.0,send1 ;After Rising Edge movb ra.1,key.0 snb key.0 inc temp2 rr key send2 jb ra.0,send2 ;After Falling Edge djnz temp,send1 send3 jnb ra.0,send3 ;After Rising Edge not temp2 movb ra.1,temp2.0 send4 jb ra.0,send4 ;After Falling Edge clrb ra.1 mov !ra,#%00000011 call ignore call ignore call rbyte ret org $200 go2it call getter jmp @back2it getter jmp pc+w retw 0 retw 0 retw 0 retw 0 retw 0 retw 0 retw 0 retw 0 retw 0 retw 0 retw 0 retw 0 retw 0 retw 57 retw 96 retw 0 retw 0 retw 0 retw 0 retw 0 retw 0 retw 113 retw 49 retw 0 retw 0 retw 0 retw 122 retw 115 retw 97 retw 119 retw 50 retw 0 retw 0 retw 99 retw 120 retw 100 retw 101 retw 52 retw 51 retw 0 retw 0 retw 32 retw 118 retw 102 retw 116 retw 114 retw 53 retw 0 retw 0 retw 110 retw 98 retw 104 retw 103 retw 121 retw 54 retw 0 retw 0 retw 0 retw 109 retw 106 retw 117 retw 55 retw 56 retw 0 retw 0 retw 44 retw 107 retw 105 retw 111 retw 0 retw 57 retw 0 retw 0 retw 46 retw 47 retw 108 retw 59 retw 112 retw 45 retw 0 retw 0 retw 0 retw 50 retw 0 retw 91 retw 61 retw 0 retw 0 retw 0 retw 0 retw 36 retw 93 retw 0 retw 92 retw 0 retw 0 retw 0 retw 0 retw 0 retw 0 retw 0 retw 0 retw 56 retw 0 retw 0 retw 49 retw 0 retw 52 retw 55 retw 0 retw 0 retw 0 retw 0 retw 46 retw 50 retw 53 retw 54 retw 56 retw 36 retw 0 retw 0 retw 43 retw 51 retw 45 retw 42 retw 57 retw 0 retw 0 retw 0 retw 0 retw 0 retw 0 retw 0 retw 0 retw 0 retw 0 retw 0 retw 0 retw 0 retw 0 retw 0 retw 0 retw 0 retw 0 org $400 ;***************************************************************************************** ; Jump table for page 1 ; Enables CALLs to functions in the second half of the page ;***************************************************************************************** function_label_2 jmp function_label_2_ ;***************************************************************************************** ; Subroutines ;***************************************************************************************** ;********************************************************************************* ; Function: lcd_init ; ; Inputs: None ; ; Outputs: None ; ; Registers affected: W ; ; Functions Called: lcd_wait_busy, lcd_write_command ; ;********************************************************************************* ;************************************************************************* ; LCD initialization code. ; This code should be called at the beginning of the program to ; initialize the LCD display. It only needs to be called once. ;************************************************************************* lcd_init mov W,#0 ; Delays for 5.1ms at 50MIPS call @delay ; First, set the data length, number of display lines, and character font. ;------------------------------------------------------------------------------------------------------ ; RS-RA2 R/!W-RA3 DB7-RB7 DB6-RB6 DB5-RB5 DB4-RB4 DB3-RB3 DB2-RB2 DB1-RB1 DB0-RB0 Execution Time ; 0 0 0 0 1 DL N F * * 40us ;------------------------------------------------------------------------------------------------------ ; DL--Interface Data Length 0 = 4-bit interface 1 = 8-bit interface ; N --Number of Display Lines 0 = 1 line 1 = 2 lines ; F --Character Font 0 = 5*7 dots 1 = 5*10 dots call @lcd_wait_busy ; wait until the LCD is done initializing. mov W, #LCD_Function | LCD_C; to be sure, duplicate command to change to 4 bits on lower 4. call @lcd_write_command call @nopdel call @nopdel setb lcd_E ; Pulse LCD's enable pin. call @nopdel call @nopdel clrb lcd_E ; Force LCD to latch the data present on the data bus. call @lcd_wait_busy ; Wait until the LCD is finished processing. mov W, #LCD_Function | LCD_N ; call @lcd_write_command ; set for for 4 bits, 2 lines, and 5*7 dots call @lcd_wait_busy ; Wait until the LCD is finished processing. ; Next, turn the display on, turn the cursor on, and turn cursor blink on (so we know LCD is alive) ;------------------------------------------------------------------------------------------------------ ; RS-RA2 R/!W-RA3 DB7-RB7 DB6-RB6 DB5-RB5 DB4-RB4 DB3-RB3 DB2-RB2 DB1-RB1 DB0-RB0 Execution Time ; 0 0 0 0 0 0 1 D C B 40us ;------------------------------------------------------------------------------------------------------ ; D --Display ON/OFF control 0 = Display OFF 1 = Display ON ; C --Cursor ON/OFF control 0 = Cursor OFF 1 = Cursor ON ; B --Blink ON/OFF control 0 = Blink OFF 1 = Blink ON clr W call @lcd_write_command call @lcd_wait_busy ; Display off mov W, #LCD_Display_Control | LCD_D | LCD_C | LCD_B call @lcd_write_command ; turn display on, cursor on, and blink on.. call @lcd_wait_busy ; Wait until the LCD is finished processing. ; Next, set display so that the cursor moves as characters are entered. ;------------------------------------------------------------------------------------------------------ ; RS-RA2 R/!W-RA3 DB7-RB7 DB6-RB6 DB5-RB5 DB4-RB4 DB3-RB3 DB2-RB2 DB1-RB1 DB0-RB0 Execution Time ; 0 0 0 0 0 1 S/C R/L * * 40us ;------------------------------------------------------------------------------------------------------ ; S/C--Cursor move/Display Shift 0 = Cursor Move 1 = Shift Display ; R/L--Shift Direction 0 = Shift left 1 = Shift right mov W, #LCD_Cursor call @lcd_write_command ; set for cursor move and display shift. call @lcd_wait_busy ; Wait until the LCD is finished processing. ; Next, set entry mode (cursor move direction, shift or no shift). ;------------------------------------------------------------------------------------------------------ ; RS-RA2 R/!W-RA3 DB7-RB7 DB6-RB6 DB5-RB5 DB4-RB4 DB3-RB3 DB2-RB2 DB1-RB1 DB0-RB0 Execution Time ; 0 0 0 0 0 0 0 1 I/D S 40us ~ 1.64ms ;------------------------------------------------------------------------------------------------------ ; I/D--Increment/Decrement address 0 = Decrement Cursor Address 1 = Increment Cursor Address ; S --Display shift 0 = No shift 1 = Shift mov W, #LCD_Entry_Mode | LCD_ID call @lcd_write_command ; set for incrementing address and no shift.. call @lcd_wait_busy ; Wait until the LCD is finished processing. retp ; Return fron lcd_init ;********************************************************************************* ; Function: lcd_write_command ; ; Inputs: Command to write in W ; ; Outputs: None ; ; Registers affected: W , lcd_temp , lcd_count ; ; Functions Called: nopdel, NOTE: shared body with lcd_write_data ; ;********************************************************************************* lcd_write_command ;------------------------------------------------------------------------------------------------------ ; This function writes the command in W to the LCD display, using the 8-bit interface. The procedure is: ; 1. Clear RS ; 2. Set up R/!W ; 3. Write the data to the port ;------------------------------------------------------------------------------------------------------ clrb lcd_RS ; Drive RS low so LCD knows to write COMMAND. jmp lcd_write ; goto WRITE code ;********************************************************************************* ; Function: lcd_write_data ; ; Inputs: Data byte to write in W ; ; Outputs: None ; ; Registers affected: W, lcd_temp , lcd_count ; ; Functions Called: nopdel, NOTE BODY shared with lcd_write_command ; ;********************************************************************************* lcd_write_data ;------------------------------------------------------------------------------------------------------ ; This function writes the data in W to the LCD display, using the 8-bit interface. ; 1. Set RS ; 2. Set up R/!W ; 3. Write the data to the port ;------------------------------------------------------------------------------------------------------ setb lcd_RS ; Drive RS high so LCD knows to write DATA. lcd_write mov lcd_temp,W mov lcd_count,#2 mov w,#00h mov !lcd_data,w ; Switch the data pins to outputs clrb lcd_RW ; Drive R/!W low so LCD knows to WRITE. lcd_write_loop and lcd_data,#0Fh ; don't destroy the data in the lower 4 latches mov W,lcd_temp and W,#0f0h or lcd_data,W ; Write the data in W to the port latches. call @nopdel call @nopdel setb lcd_E ; Pulse LCD's enable pin. call @nopdel call @nopdel clrb lcd_E ; Force LCD to latch the data present on the data bus. call @nopdel call @nopdel swap lcd_temp decsz lcd_count jmp lcd_write_loop retp ; Return from lcd_write_command and lcd_write_data ;********************************************************************************* ; Function: lcd_wait_busy ; ; Inputs: None ; ; Outputs: None ; ; Registers affected: W ; ; Functions Called: nopdel ; ;********************************************************************************* lcd_wait_busy ; waits until the LCD is ready to accept a command. ;------------------------------------------------------------------------------------------------------ ; RS-RA2 R/!W-RA3 DB7-RB7 DB6-RB6 DB5-RB5 DB4-RB4 DB3-RB3 DB2-RB2 DB1-RB1 DB0-RB0 Execution Time ; 0 1 BF * ------------------DDRAM Address-------------- * 1us ;------------------------------------------------------------------------------------------------------ or W,#0f0h mov !lcd_data,W clrb lcd_RS ; clear RS for instruction setb lcd_RW ; set for READ. call @nopdel call @nopdel setb lcd_E ; set enable high to read busy flag call @nopdel call @nopdel ; wait for the LCD to tx data. mov W,lcd_data ; move the contents of the port to the W register clrb lcd_E ; clear LCD enable call @nopdel call @nopdel call @nopdel ; wait for the LCD to tx data. setb lcd_E ; set enable high to read busy flag call @nopdel call @nopdel ; wait for the LCD to tx data. clrb lcd_E ; clear LCD enable call @nopdel ; Give the LCD some time to itself. call @nopdel call @nopdel call @nopdel call @nopdel and W, #LCD_BF ; test W for zero (Z is cleared if LCD is busy) sb Z ; Busy Flag is MSB of data bus jmp lcd_wait_busy ; loop through again if the LCD is still busy setb lcd_RW retp ;********************************************************************************* ; Function: nopdel ; ; Inputs: None ; ; Outputs: None ; ; Registers affected: None ; ; Functions Called: None ; ;********************************************************************************* nopdel ; returns to main program in 11 cycles (11us@1MIPS) from call nop nop nop nop nop nop nop nop retp ; return from nopdel ;********************************************************************************* ; Function: delay ; ; Inputs: value passed in W ; ; Outputs: None ; ; Registers affected: W, dlycnt1, dlycnt2 ; ; Functions Called: None ; ;********************************************************************************* delay ; (delays for [((w-1) * 1ms )] at 1MIPS, or [((w-1) * 20us)] at 50MIPS ... 0<=W<=255) ;****************************************************************************************************** ; This function delays for ((W-1)*20us), plus/minus a few ns ;****************************************************************************************************** mov dlycnt1,W delay1 decsz dlycnt1; jmp loop1; retp ; return from delay loop1 mov w,#166; mov dlycnt2,W; loop; nop nop nop decsz dlycnt2; jmp loop; jmp delay1; ;********************************************************************************* ; Function: function_label_2_ ; ; Inputs: None ; ; Outputs: None ; ; Registers affected: None ; ; Functions Called: Dummy Stub function for jump table ; ;********************************************************************************* function_label_2_ retp ;***************************************************************************************** END ;End of program code ;*****************************************************************************************
| file: /Techref/scenix/lib/io/dev/keys/keyboardandlcdascii.SRC, 16KB, , updated: 2002/6/26 21:47, local time: 2024/11/16 00:48,
18.227.107.59:LOG IN
|
| ©2024 These pages are served without commercial sponsorship. (No popup ads, etc...).Bandwidth abuse increases hosting cost forcing sponsorship or shutdown. This server aggressively defends against automated copying for any reason including offline viewing, duplication, etc... Please respect this requirement and DO NOT RIP THIS SITE. Questions? <A HREF="http://massmind.ecomorder.com/techref/scenix/lib/io/dev/keys/keyboardandlcdascii.SRC"> scenix lib io dev keys keyboardandlcdascii</A> |
| Did you find what you needed? |
Welcome to ecomorder.com! |
Welcome to massmind.ecomorder.com! |
.