#include <p16f873.inc> ; processor specific variable definitions #define parse_state_offset 0x5 cblock 0x20 parse_state, parse_char endc cblock buffer endc push macro x movlw x movwf INDF incf FSR, f endm movlw buffer movwf FSR push 'o' push 'f' push 'f' ; push 's' ; push 'e' ; push 't' push'\0' movlw buffer - 1 movwf FSR start clrf parse_state again incf FSR, f ;read next character movfw INDF call parse movfw parse_state ;still initial state? skpnz goto again sublw parse_state_offset-1 ;comand code? skpnc goto match incfsz parse_state, w ;error? goto again goto p_error ; ... ; match nop nop nop goto start p_error nop nop goto start ;-------------- keywords list --------------------- ; Case Sensitive ; Incomplete words match ; Whitespaces: ' ', '\t', 0x0D, 0x0A ; Delimiters: 0, ' ', '\t', 0x0D, 0x0A ; ; Keywords codes: ; 0x1 offset ; 0x2 echo ; 0x3 on ; 0x4 off ;*********************************************** ; Simple parser for command names ; ; Input: ; w next character in a string ; parse_state current state ; Output: ; parse_state contains current state: ; 0 - initial state ; 1...(parse_state_offset-1) - command code ; parse_state_offset...0xFE - next state ; 0xFF - error (not matched) ; Temporary: ; parse_char, parse_state ; Usage: ; 1)clrf parse_state ; 2)call parse with a new character ; 3)check parse_state and perform actions ; 4)repeat from 2) ; Note: ; 1) The parser takes one character as a look-ahead. ; When a command name matches, parse_char contains ; the first character AFTER the name. If it should ; be checked also, initialize and call parse once more ; with the same character first, then others as usually. ; 2) Size of state table is approximately 4 instructions ; per each character of the total characters number ; (e.g. total for commands "read" and "set" is 7, ; i.e state table is about 21 instructions) ; ;*********************************************** parse movwf parse_char ;save new character movfw parse_state ;check if current state is zero skpz goto parse2 movfw parse_char ;then skip whitespaces addlw -' ' ;accumulator == ' ' ? skpnz retlw 0 ;return if equal addlw ' ' - '\t' ;restore accumulator and check if equals '\t' skpnz retlw 0 ;return if equal addlw '\t' - 0x0D ;restore accumulator and check if equals 0x0D skpnz retlw 0 ;return if equal addlw 0x0D - 0x0A ;restore accumulator and check if equals 0x0A skpnz retlw 0 ;return if equal parse2 call parse_table iorlw 0 ;check if w == 0 (look ahead for delimiter succesful) skpz movwf parse_state ;store new state return ;*********************************************** ; State Table ; ; Input: ; parse_state -> current state + parse_state_offset ; Output: ; w -> new state + parse_state_offset ; ; Note ; Zero parse_state means initial state ;*********************************************** parse_table movlw high(parse_table_start) movwf PCLATH movfw parse_state ;read current state skpnz ;is it inital? goto parse_state0 addlw -parse_state_offset-1 ;remove offset ;jump table with automatic block boundary workaround addlw low(parse_table_start) skpnc incf PCLATH, f movwf PCL ;-> takeoff parse_state_delimiter ;called from state table to check for end of name movwf parse_state movfw parse_char addlw -0 ;accumulator == 0 ? skpnz retlw 0 ;return if equal addlw 0 - ' ' ;restore accumulator and check if equals ' ' skpnz retlw 0 ;return if equal addlw ' ' - '\t' ;restore accumulator and check if equals '\t' skpnz retlw 0 ;return if equal addlw '\t' - 0x0D ;restore accumulator and check if equals 0x0D skpnz retlw 0 ;return if equal addlw 0x0D - 0x0A ;restore accumulator and check if equals 0x0A skpnz retlw 0 ;return if equal retlw 0xFF parse_table_start ;---------------- jump table start ---------------- goto parse_state1 goto parse_state2 goto parse_state3 goto parse_state4 goto parse_state5 goto parse_state6 goto parse_state7 goto parse_state8 goto parse_state9 goto parse_state10 goto parse_state11 ;---------------- jump table end ------------------ ;--------------- state table start ---------------- parse_state0 movf parse_char, w addlw -'o' skpnz retlw 0x6 addlw 'o'-'e' skpnz retlw 0xC retlw 0xFF parse_state1 movf parse_char, w addlw -'f' skpnz retlw 0x7 addlw 'f'-'n' skpnz retlw 0x10 goto parse_state11 parse_state2 movf parse_char, w addlw -'f' skpnz retlw 0x8 retlw 0xFF parse_state3 movf parse_char, w addlw -'s' skpnz retlw 0x9 movlw 0x4 goto parse_state_delimiter parse_state4 movf parse_char, w addlw -'e' skpnz retlw 0xA goto parse_state6 parse_state5 movf parse_char, w addlw -'t' skpnz retlw 0xB parse_state6 movlw 0x1 goto parse_state_delimiter parse_state7 movf parse_char, w addlw -'c' skpnz retlw 0xD goto parse_state10 parse_state8 movf parse_char, w addlw -'h' skpnz retlw 0xE goto parse_state10 parse_state9 movf parse_char, w addlw -'o' skpnz retlw 0xF parse_state10 movlw 0x2 goto parse_state_delimiter parse_state11 movlw 0x3 goto parse_state_delimiter ;--------------- state table end ------------------ ; Generated by www.piclist.com/cgi-bin/keyword.exe (version April 21, 2000) ; Fri Apr 21 09:47:08 2000 GMT end
file: /Techref/piclist/codegen/keyword_example.htm, 5KB, , updated: 2002/1/3 19:37, local time: 2024/10/4 01:12,
3.238.82.77:LOG IN ©2024 PLEASE DON'T RIP! THIS SITE CLOSES OCT 28, 2024 SO LONG AND THANKS FOR ALL THE FISH!
|
©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://www.piclist.com/techref/piclist/codegen/keyword_example.htm"> Example </A> |
Did you find what you needed? |
PICList 2024 contributors:
o List host: MIT, Site host massmind.org, Top posters @none found - Page Editors: James Newton, David Cary, and YOU! * Roman Black of Black Robotics donates from sales of Linistep stepper controller kits. * Ashley Roll of Digital Nemesis donates from sales of RCL-1 RS232 to TTL converters. * Monthly Subscribers: Gregg Rew. on-going support is MOST appreciated! * Contributors: Richard Seriani, Sr. |
Welcome to www.piclist.com! |
.