1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
|
" Vim syntax file
" Language: JAL
" Version: 0.1
" Last Change: 2003 May 11
" Maintainer: Mark Gross <mark@thegnar.org>
" This is a syntax definition for the JAL language.
" It is based on the Source Forge compiler source code.
" https://sourceforge.net/projects/jal/
"
" TODO test.
" For version 5.x: Clear all syntax items
" For version 6.x: Quit when a syntax file was already loaded
if version < 600
syntax clear
elseif exists("b:current_syntax")
finish
endif
syn case ignore
syn sync lines=250
syn keyword picTodo NOTE TODO XXX contained
syn match picIdentifier "[a-z_$][a-z0-9_$]*"
syn match picLabel "^[A-Z_$][A-Z0-9_$]*"
syn match picLabel "^[A-Z_$][A-Z0-9_$]*:"me=e-1
syn match picASCII "A\='.'"
syn match picBinary "B'[0-1]\+'"
syn match picDecimal "D'\d\+'"
syn match picDecimal "\d\+"
syn match picHexadecimal "0x\x\+"
syn match picHexadecimal "H'\x\+'"
syn match picHexadecimal "[0-9]\x*h"
syn match picOctal "O'[0-7]\o*'"
syn match picComment ";.*" contains=picTodo
syn region picString start=+"+ end=+"+
syn keyword picRegister indf tmr0 pcl status fsr port_a port_b port_c port_d port_e x84_eedata x84_eeadr pclath intcon
syn keyword picRegister f877_tmr1l f877_tmr1h f877_t1con f877_t2con f877_ccpr1l f877_ccpr1h f877_ccp1con
syn keyword picRegister f877_pir1 f877_pir2 f877_pie1 f877_adcon1 f877_adcon0 f877_pr2 f877_adresl f877_adresh
syn keyword picRegister f877_eeadr f877_eedath f877_eeadrh f877_eedata f877_eecon1 f877_eecon2 f628_EECON2
syn keyword picRegister f877_rcsta f877_txsta f877_spbrg f877_txreg f877_rcreg f628_EEDATA f628_EEADR f628_EECON1
" Register --- bits
" STATUS
syn keyword picRegisterPart status_c status_dc status_z status_pd
syn keyword picRegisterPart status_to status_rp0 status_rp1 status_irp
" pins
syn keyword picRegisterPart pin_a0 pin_a1 pin_a2 pin_a3 pin_a4 pin_a5
syn keyword picRegisterPart pin_b0 pin_b1 pin_b2 pin_b3 pin_b4 pin_b5 pin_b6 pin_b7
syn keyword picRegisterPart pin_c0 pin_c1 pin_c2 pin_c3 pin_c4 pin_c5 pin_c6 pin_c7
syn keyword picRegisterPart pin_d0 pin_d1 pin_d2 pin_d3 pin_d4 pin_d5 pin_d6 pin_d7
syn keyword picRegisterPart pin_e0 pin_e1 pin_e2
syn keyword picPortDir port_a_direction port_b_direction port_c_direction port_d_direction port_e_direction
syn match picPinDir "pin_a[012345]_direction"
syn match picPinDir "pin_b[01234567]_direction"
syn match picPinDir "pin_c[01234567]_direction"
syn match picPinDir "pin_d[01234567]_direction"
syn match picPinDir "pin_e[012]_direction"
" INTCON
syn keyword picRegisterPart intcon_gie intcon_eeie intcon_peie intcon_t0ie intcon_inte
syn keyword picRegisterPart intcon_rbie intcon_t0if intcon_intf intcon_rbif
" TIMER
syn keyword picRegisterPart t1ckps1 t1ckps0 t1oscen t1sync tmr1cs tmr1on tmr1ie tmr1if
"cpp bits
syn keyword picRegisterPart ccp1x ccp1y
" adcon bits
syn keyword picRegisterPart adcon0_go adcon0_ch0 adcon0_ch1 adcon0_ch2
" EECON
syn keyword picRegisterPart eecon1_rd eecon1_wr eecon1_wren eecon1_wrerr eecon1_eepgd
syn keyword picRegisterPart f628_eecon1_rd f628_eecon1_wr f628_eecon1_wren f628_eecon1_wrerr
" usart
syn keyword picRegisterPart tx9 txen sync brgh tx9d
syn keyword picRegisterPart spen rx9 cren ferr oerr rx9d
syn keyword picRegisterPart TXIF RCIF
" OpCodes...
syn keyword picOpcode addlw andlw call clrwdt goto iorlw movlw option retfie retlw return sleep sublw tris
syn keyword picOpcode xorlw addwf andwf clrf clrw comf decf decfsz incf incfsz retiw iorwf movf movwf nop
syn keyword picOpcode rlf rrf subwf swapf xorwf bcf bsf btfsc btfss skpz skpnz setz clrz skpc skpnc setc clrc
syn keyword picOpcode skpdc skpndc setdc clrdc movfw tstf bank page HPAGE mullw mulwf cpfseq cpfsgt cpfslt banka bankb
syn keyword jalBoolean true false
syn keyword jalBoolean off on
syn keyword jalBit high low
syn keyword jalConstant Input Output all_input all_output
syn keyword jalConditional if else then elsif end if
syn keyword jalLabel goto
syn keyword jalRepeat for while forever loop
syn keyword jalStatement procedure function
syn keyword jalStatement return end volatile const var
syn keyword jalType bit byte
syn keyword jalModifier interrupt assembler asm put get
syn keyword jalStatement out in is begin at
syn keyword jalDirective pragma jump_table target target_clock target_chip name error test assert
syn keyword jalPredefined hs xt rc lp internal 16c84 16f84 16f877 sx18 sx28 12c509a 12c508
syn keyword jalPredefined 12ce674 16f628 18f252 18f242 18f442 18f452 12f629 12f675 16f88
syn keyword jalPredefined 16f876 16f873 sx_12 sx18 sx28 pic_12 pic_14 pic_16
syn keyword jalDirective chip osc clock fuses cpu watchdog powerup protection
syn keyword jalFunction bank_0 bank_1 bank_2 bank_3 bank_4 bank_5 bank_6 bank_7 trisa trisb trisc trisd trise
syn keyword jalFunction _trisa_flush _trisb_flush _trisc_flush _trisd_flush _trise_flush
syn keyword jalPIC local idle_loop
syn region jalAsm matchgroup=jalAsmKey start="\<assembler\>" end="\<end assembler\>" contains=jalComment,jalPreProc,jalLabel,picIdentifier, picLabel,picASCII,picDecimal,picHexadecimal,picOctal,picComment,picString,picRegister,picRigisterPart,picOpcode,picDirective,jalPIC
syn region jalAsm matchgroup=jalAsmKey start="\<asm\>" end=/$/ contains=jalComment,jalPreProc,jalLabel,picIdentifier, picLabel,picASCII,picDecimal,picHexadecimal,picOctal,picComment,picString,picRegister,picRigisterPart,picOpcode,picDirective,jalPIC
syn region jalPsudoVars matchgroup=jalPsudoVarsKey start="\<'put\>" end="/<is/>" contains=jalComment
syn match jalStringEscape contained "#[12][0-9]\=[0-9]\="
syn match jalIdentifier "\<[a-zA-Z_][a-zA-Z0-9_]*\>"
syn match jalSymbolOperator "[+\-/*=]"
syn match jalSymbolOperator "!"
syn match jalSymbolOperator "<"
syn match jalSymbolOperator ">"
syn match jalSymbolOperator "<="
syn match jalSymbolOperator ">="
syn match jalSymbolOperator "!="
syn match jalSymbolOperator "=="
syn match jalSymbolOperator "<<"
syn match jalSymbolOperator ">>"
syn match jalSymbolOperator "|"
syn match jalSymbolOperator "&"
syn match jalSymbolOperator "%"
syn match jalSymbolOperator "?"
syn match jalSymbolOperator "[()]"
syn match jalSymbolOperator "[\^.]"
syn match jalLabel "[\^]*:"
syn match jalNumber "-\=\<\d[0-9_]\+\>"
syn match jalHexNumber "0x[0-9A-Fa-f_]\+\>"
syn match jalBinNumber "0b[01_]\+\>"
" String
"wrong strings
syn region jalStringError matchgroup=jalStringError start=+"+ end=+"+ end=+$+ contains=jalStringEscape
"right strings
syn region jalString matchgroup=jalString start=+'+ end=+'+ oneline contains=jalStringEscape
" To see the start and end of strings:
syn region jalString matchgroup=jalString start=+"+ end=+"+ oneline contains=jalStringEscapeGPC
syn keyword jalTodo contained TODO
syn region jalComment start=/-- / end=/$/ oneline contains=jalTodo
syn region jalComment start=/--\t/ end=/$/ oneline contains=jalTodo
syn match jalComment /--\_$/
syn region jalPreProc start="include" end=/$/ contains=JalComment,jalToDo
if exists("jal_no_tabs")
syn match jalShowTab "\t"
endif
" Define the default highlighting.
" For version 5.7 and earlier: only when not done already
" For version 5.8 and later: only when an item doesn't have highlighting yet
if version >= 508 || !exists("did_jal_syn_inits")
if version < 508
let did_jal_syn_inits = 1
command -nargs=+ HiLink hi link <args>
else
command -nargs=+ HiLink hi def link <args>
endif
HiLink jalAcces jalStatement
HiLink jalBoolean Boolean
HiLink jalBit Boolean
HiLink jalComment Comment
HiLink jalConditional Conditional
HiLink jalConstant Constant
HiLink jalDelimiter Identifier
HiLink jalDirective PreProc
HiLink jalException Exception
HiLink jalFloat Float
HiLink jalFunction Function
HiLink jalPsudoVarsKey Function
HiLink jalLabel Label
HiLink jalMatrixDelimiter Identifier
HiLink jalModifier Type
HiLink jalNumber Number
HiLink jalBinNumber Number
HiLink jalHexNumber Number
HiLink jalOperator Operator
HiLink jalPredefined Constant
HiLink jalPreProc PreProc
HiLink jalRepeat Repeat
HiLink jalStatement Statement
HiLink jalString String
HiLink jalStringEscape Special
HiLink jalStringEscapeGPC Special
HiLink jalStringError Error
HiLink jalStruct jalStatement
HiLink jalSymbolOperator jalOperator
HiLink jalTodo Todo
HiLink jalType Type
HiLink jalUnclassified Statement
HiLink jalAsm Assembler
HiLink jalError Error
HiLink jalAsmKey Statement
HiLink jalPIC Statement
HiLink jalShowTab Error
HiLink picTodo Todo
HiLink picComment Comment
HiLink picDirective Statement
HiLink picLabel Label
HiLink picString String
HiLink picOpcode Keyword
HiLink picRegister Structure
HiLink picRegisterPart Special
HiLink picPinDir SPecial
HiLink picPortDir SPecial
HiLink picASCII String
HiLink picBinary Number
HiLink picDecimal Number
HiLink picHexadecimal Number
HiLink picOctal Number
HiLink picIdentifier Identifier
delcommand HiLink
endif
let b:current_syntax = "jal"
" vim: ts=8 sw=2
|
