45 lines
1.2 KiB
Mathematica
45 lines
1.2 KiB
Mathematica
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
; ;
|
|
; Copyright 2001, 2010 Fidelity Information Services, Inc ;
|
|
; ;
|
|
; This source code contains the intellectual property ;
|
|
; of its copyright holder(s), and is made available ;
|
|
; under a license. If you do not know the terms of ;
|
|
; the license, please stop and do not read further. ;
|
|
; ;
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
loadvx ;load op codes
|
|
n (vxi,vxx,loadh)
|
|
k vxi,vxx
|
|
s lnr=0
|
|
s file=loadh("vxi.h") o file:read u file
|
|
loop r x i $zeof g fini
|
|
s rec=x,lnr=lnr+1
|
|
d proc
|
|
g loop
|
|
fini c file
|
|
q
|
|
proc i $e(x,"1")'="#" q
|
|
pr0 s x=$tr(x,$c(9)," ")
|
|
i x'?1"#define"1." "1"VXI_"1.AN1." "1"(0x"1.3AN1")".E s ec=1 g err
|
|
s y=$f(x,"VXI_"),x=$e(x,y,999)
|
|
s cd=$p(x," ",1),cdx="VXI_"_cd
|
|
f i=1:1:$l(cd) i $e(cd,i)?1U s cd=$e(cd,1,i-1)_$c($a(cd,i)+32)_$e(cd,i+1,999)
|
|
s val=$p($p($p(x,"(",2),")",1),"0x",2)
|
|
d hex2dec
|
|
i $d(vxx(val)) s ec=2 g err
|
|
i $d(vxi(cd)) s ec=3 g err
|
|
s vxi(cd)=val,vxi(cd,1)=cdx,vxx(val)=cd
|
|
q
|
|
err u "" w rec,!,"error code=",ec," line=",lnr,!
|
|
u file
|
|
q
|
|
hex2dec n n,x,i
|
|
s n=0,i=1
|
|
h2d1 s x=$e(val,i) i x="" s val=n q
|
|
i x?1U s x=$a(x)-55
|
|
e i x?1L s x=$a(x)-87
|
|
e i x'?1N b
|
|
s n=n*16+x,i=i+1
|
|
g h2d1
|