1a2,7
> 
> !!%external%string(255)%fn%spec cliparam
> !!%external%integer%fn%spec cputime
> 
> %string(255)cliparam = "adec"
> 
12c18
< %constinteger WHICH='.imp'
---
> %constinteger WHICH=M'.imp'
47,48c53,54
< %external%routine%spec EDI(%record(edfile)%name main,sec,
<                          %string(255) message)
---
> !!%external%routine%spec EDI(%record(edfile)%name main,sec,
> !!                         %string(255) message)
51,61c57,71
< %external%routine%spec DEFINE PARAM %alias "PAM_DEFSTRING" %c
<           (%string(255) name, %name variable, %integer flags)
< %external%routine%spec DEFINE INT PARAM %alias "PAM_DEFINT" %c
<           (%string(255) name, %name variable, %integer flags)
< %external%routine%spec DEFINE BOOLEAN PARAMS %alias "PAM_DEFBOOL" %c
<     (%string(255) name, %name variable, %integer flags)
< %external%routine%spec PROCESS PARAMETERS %alias "PAM_PROCESS"(%string(255) parm)
< %external%routine%spec CONNECT EDFILE(%record(edfile)%name f)
< %external%routine%spec DISCONNECT EDFILE(%record(edfile)%name f)
< %external%string(8)%fnspec DATE
< %external%string(5)%fnspec TIME
---
> !!%external%routine%spec DEFINE PARAM %alias "PAM_DEFSTRING" %c
> !!          (%string(255) name, %name variable, %integer flags)
> !!%external%routine%spec DEFINE INT PARAM %alias "PAM_DEFINT" %c
> !!          (%string(255) name, %name variable, %integer flags)
> !!%external%routine%spec DEFINE BOOLEAN PARAMS %alias "PAM_DEFBOOL" %c
> !!    (%string(255) name, %name variable, %integer flags)
> !!%external%routine%spec PROCESS PARAMETERS %alias "PAM_PROCESS"(%string(255)!! parm)
> !!%external%routine%spec CONNECT EDFILE(%record(edfile)%name f)
> !!%external%routine%spec DISCONNECT EDFILE(%record(edfile)%name f)
> !!%external%string(8)%fnspec DATE
> !!%external%string(5)%fnspec TIME
> 
> %string(8) DATE = "02/02/02"
> %string(5) TIME = "02:02"
> %integer CPUTIME = 123
267,271c277,281
<   define boolean params( %c
<   "ARR,LOOP,CAP,OVER,ASS,STRASS,SASS,BASS,LINE,DIAG,TRACE,STACK,".%C
<   "CHECK,SYS,STRICT,VOL,HALF,LOW,EDIT,RUN,FORCE,LOG,WARN,NONS,PERM,NEW,".%C
<   "CODE,DICT,EXP,MAP,TT,LIST",control,0)
<   process parameters(parm)
---
> !!  define boolean params( %c
> !!  "ARR,LOOP,CAP,OVER,ASS,STRASS,SASS,BASS,LINE,DIAG,TRACE,STACK,".%C
> !!  "CHECK,SYS,STRICT,VOL,HALF,LOW,EDIT,RUN,FORCE,LOG,WARN,NONS,PERM,NEW,".%C
> !!  "CODE,DICT,EXP,MAP,TT,LIST",control,0)
> !!  process parameters(parm)
296,300c306,310
<   define param("SOURCE",mainfile,nodefault)
<   define param("OFILE",objfile,newgroup)
<   define param("LFILE",listfile,0)
<   define int param("IDents",dictlim,newgroup)
<   define int param("KBytes",finalbound,0)
---
> !!  define param("SOURCE",mainfile,nodefault)
> !!  define param("OFILE",objfile,newgroup)
> !!  define param("LFILE",listfile,0)
> !!  define int param("IDents",dictlim,newgroup)
> !!  define int param("KBytes",finalbound,0)
307c317
<   connect edfile(file(main))
---
> !!  connect edfile(file(main))
465c475
< %const%byte%array CHARINIT(0:CMAX) = 
---
> %OWN%byte%array CHARINIT(0:CMAX) = 
581c591
< %const%short%array DICTINIT(41*6:PREMAX*6+5) = 
---
> %own%short%array DICTINIT(41*6:PREMAX*6+5) = 
1389c1399
<     edi(file(main),file(main+1),rep);  !main+1 to keep editor happy
---
> !!    edi(file(main),file(main+1),rep);  !main+1 to keep editor happy
2341,2349c2351,2358
< ![Note: sets HI after LO -- see dummy params in VALOK]
< %record(identinfo)%name tp==typecell(t)
<   %if tp_type = t # inttype %start;  !basetype
<     lo = 0;  hi = tp_size
<   %else
<     %if tp[1]_mode # litmode %then lo = minint %c
<     %else lo = tp[1]_val
<     %if tp[2]_mode # litmode %then hi = maxint %c
<     %else hi = tp[2]_val
---
> ![Note: sets HI after LO -- see dummy params in VALOK] 
>   %if dict(t)_type = t # inttype %start;  !basetype
>     lo = 0;  hi = dict(t)_size
>   %else
>     %if dict(t+1)_mode # litmode %then lo = minint %c
>     %else lo = dict(t+1)_val
>     %if dict(t+2)_mode # litmode %then hi = maxint %c
>     %else hi = dict(t+2)_val
2478c2487
< %const%short%array PRIMCODE(1:396) <- 
---
> %own%short%array PRIMCODE(1:396) = 
2548c2557
<     set code longword(dx[1]_val);  !lower
---
>     set code longword(dict(x+1)_val);  !lower
2552c2561
<     set code longword(dx[2]_val);  !upper
---
>     set code longword(dict(x+2)_val);  !upper
5010c5019
<       disconnect edfile(cur)
---
> !!      disconnect edfile(cur)
5634,5637c5643,5646
<         %if wp[1]_mode # litmode %then get bounds(wp[1]_type,lo,hi) %c
<         %else lo = wp[1]_val
<         %if wp[2]_mode # litmode %then get bounds(wp[2]_type,hi,hi) %c
<         %else hi = wp[2]_val
---
>         %if dict(wanted+1)_mode # litmode %then get bounds(dict(wanted+1)_type,lo,hi) %c
>         %else lo = dict(wanted+1)_val
>         %if dict(wanted+2)_mode # litmode %then get bounds(dict(wanted+2)_type,hi,hi) %c
>         %else hi = dict(wanted+2)_val
5643,5646c5652,5655
<           %if tp[1]_mode # litmode %then get bounds(tp[1]_type,l,h) %c
<           %else l = tp[1]_val
<           %if tp[2]_mode # litmode %then get bounds(tp[2]_type,h,h) %c
<           %else h = tp[2]_val
---
>           %if dict(t+1)_mode # litmode %then get bounds(dict(t+1)_type,l,h) %c
>           %else l = dict(t+1)_val
>           %if dict(t+2)_mode # litmode %then get bounds(dict(t+2)_type,h,h) %c
>           %else h = dict(t+2)_val
5964c5973
<     %if fxp[1]_mode # litmode %start;  !non-literal lower
---
>     %if dict(ftp_xtype+1)_mode # litmode %start;  !non-literal lower
5966c5975
<       item = 0 %and value = axp[1]_val %if axp[1]_mode = litmode
---
>       item = 0 %and value = dict(atp_xtype+1)_val %if dict(atp_xtype+1)_mode = litmode
5970c5979
<     %if fxp[2]_mode # litmode %start;  !non-literal upper
---
>     %if dict(ftp_xtype+2)_mode # litmode %start;  !non-literal upper
5972c5981
<       item = 0 %and value = axp[2]_val %if axp[2]_mode = litmode
---
>       item = 0 %and value = dict(atp_xtype+2)_val %if dict(atp_xtype+2)_mode = litmode
7293c7302
<           %and ditem[-1]_val = lo
---
>           %and dict(item-1)_val = lo
8173c8182
<     define param("INC",cur_name,nodefault)
---
> !!    define param("INC",cur_name,nodefault)
8175c8184
<     connect edfile(cur)
---
> !!    connect edfile(cur)
8332c8341
<     disconnect edfile(file(main))
---
> !!    disconnect edfile(file(main))
