1  %control 0
        O LINE   1 "regression-bugs-tmp/vax-lib.imp"
        z CONTROL 0000

     2  %externalroutine printstring(%string(255) text)
        O LINE   2 "regression-bugs-tmp/vax-lib.imp"
        $ DEF    PRINTSTRING (_PRINTSTRING) p1=V_00ad a/tf=7 b/format=0 c/ostate=23  type=0 (<type:0>) form=7 (routine) special=0 (<special:0>) linkage=3 (external) spec=0 indirect=0 unass=1
           { START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
              $ DEF    TEXT p1=V_00ae a/tf=31 b/format=ff c/ostate=0  type=3 (string) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
           } FINISH ) {lev=1}

     3     %integer p, l
           O LINE   3 "regression-bugs-tmp/vax-lib.imp"
           $ DEF    P p1=V_00af a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
           $ DEF    L p1=V_00b0 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

     4     p = 0;  l = length(text)
           O LINE   4 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   P
           N PUSHI  #0x00000000
           S ASSVAL
           O LINE   4 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   L
           @ PUSH   LENGTH
           @ PUSH   TEXT
           p ASSPAR
           E CALL  
           S ASSVAL

     5     %while p # l %cycle
           O LINE   5 "regression-bugs-tmp/vax-lib.imp"
           : LOCATE L_0003
           @ PUSH   P
           @ PUSH   L
           ? JUMPIF = L_0004

     6        p = p+1;  printsymbol(charno(text, p))
           O LINE   6 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   P
           @ PUSH   P
           N PUSHI  #0x00000001
           + ADD   
           S ASSVAL
           O LINE   6 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   PRINTSYMBOL
           @ PUSH   CHARNO
           @ PUSH   TEXT
           p ASSPAR
           @ PUSH   P
           p ASSPAR
           E CALL  
           p ASSPAR
           E CALL  

     7     %repeat
           O LINE   7 "regression-bugs-tmp/vax-lib.imp"
           B REPEAT L_0003
           : LOCATE L_0004

     8  %end
           O LINE   8 "regression-bugs-tmp/vax-lib.imp"
        ; END    _PRINTSTRING {lev=1 --> 0}

     9  %externalroutine read string(%string(255)%name s)
        O LINE   9 "regression-bugs-tmp/vax-lib.imp"
        $ DEF    READSTRING (_READSTRING) p1=V_00ae a/tf=7 b/format=0 c/ostate=23  type=0 (<type:0>) form=7 (routine) special=0 (<special:0>) linkage=3 (external) spec=0 indirect=0 unass=1
           { START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
              $ DEF    S p1=V_00af a/tf=32 b/format=ff c/ostate=0  type=3 (string) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
           } FINISH ) {lev=1}

    10     %integer sym, qu
           O LINE   10 "regression-bugs-tmp/vax-lib.imp"
           $ DEF    SYM p1=V_00b0 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
           $ DEF    QU p1=V_00b1 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

    11     s = ""
           O LINE   11 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   S
           ' PUSHS  ""
           S ASSVAL

    12     %cycle
           O LINE   12 "regression-bugs-tmp/vax-lib.imp"
           : LOCATE L_0003

    13        readsymbol(sym)
           O LINE   13 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   READSYMBOL
           @ PUSH   SYM
           p ASSPAR
           E CALL  

    14     %repeat %until sym # nl %and sym # ' '
           O LINE   14 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   SYM
           N PUSHI  #0x0000000a
           ? JUMPIF = L_0005
           @ PUSH   SYM
           N PUSHI  #0x00000020
           ? JUMPIF # L_0004
           : LOCATE L_0005
           B REPEAT L_0003
           : LOCATE L_0004

    15     %signal 3,2,sym %unless sym='"' %or sym = ''''
           O LINE   15 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   SYM
           N PUSHI  #0x00000022
           ? JUMPIF = L_0004
           @ PUSH   SYM
           N PUSHI  #0x00000027
           ? JUMPIF = L_0004
           N PUSHI  #0x00000002
           @ PUSH   SYM
           e EVENT  0003
           : LOCATE L_0004

    16     qu = sym
           O LINE   16 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   QU
           @ PUSH   SYM
           S ASSVAL

    17     %cycle
           O LINE   17 "regression-bugs-tmp/vax-lib.imp"
           : LOCATE L_0003

    18        readsymbol(sym)
           O LINE   18 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   READSYMBOL
           @ PUSH   SYM
           p ASSPAR
           E CALL  

    19        %if sym = qu %start
           O LINE   19 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   SYM
           @ PUSH   QU
           ? JUMPIF # L_0007

    20           %exit %if nextsymbol # qu
           O LINE   20 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   NEXTSYMBOL
           E CALL  
           @ PUSH   QU
           ? JUMPIF = L_000a
           F GOTO   L_0004
           : LOCATE L_000a

    21           readsymbol(sym)
           O LINE   21 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   READSYMBOL
           @ PUSH   SYM
           p ASSPAR
           E CALL  

    22           %finish
           O LINE   22 "regression-bugs-tmp/vax-lib.imp"
           : LOCATE L_0007

    23        s=s.tostring(sym)
           O LINE   23 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   S
           @ PUSH   S
           @ PUSH   TOSTRING
           @ PUSH   SYM
           p ASSPAR
           E CALL  
           . CONCAT
           S ASSVAL

    24     %repeat
           O LINE   24 "regression-bugs-tmp/vax-lib.imp"
           B REPEAT L_0003
           : LOCATE L_0004

    25  %end
    26  
           O LINE   25 "regression-bugs-tmp/vax-lib.imp"
        ; END    _READSTRING {lev=1 --> 0}

    27  %externalstring(1)%fn nextitem
        O LINE   27 "regression-bugs-tmp/vax-lib.imp"
        $ DEF    NEXTITEM (_NEXTITEM) p1=V_00af a/tf=38 b/format=1 c/ostate=33  type=3 (string) form=8 (function) special=0 (<special:0>) linkage=3 (external) spec=0 indirect=1 unass=1
           { START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
           } FINISH ) {lev=1}

    28    %result=tostring(nextsymbol)
           O LINE   28 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   TOSTRING
           @ PUSH   NEXTSYMBOL
           E CALL  
           p ASSPAR
           E CALL  
           V RESULT

    29  %end
    30  
           O LINE   29 "regression-bugs-tmp/vax-lib.imp"
        ; END    _NEXTITEM {lev=1 --> 0}

    31  %externalroutine skipitem
        O LINE   31 "regression-bugs-tmp/vax-lib.imp"
        $ DEF    SKIPITEM (_SKIPITEM) p1=V_00b0 a/tf=7 b/format=0 c/ostate=23  type=0 (<type:0>) form=7 (routine) special=0 (<special:0>) linkage=3 (external) spec=0 indirect=0 unass=1
           { START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
           } FINISH ) {lev=1}

    32     %integer s
           O LINE   32 "regression-bugs-tmp/vax-lib.imp"
           $ DEF    S p1=V_00b1 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

    33     readsymbol(s)
           O LINE   33 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   READSYMBOL
           @ PUSH   S
           p ASSPAR
           E CALL  

    34  %end
    35  
           O LINE   34 "regression-bugs-tmp/vax-lib.imp"
        ; END    _SKIPITEM {lev=1 --> 0}

    36  %externalroutine readitem(%string(1)%name s)
        O LINE   36 "regression-bugs-tmp/vax-lib.imp"
        $ DEF    READITEM (_READITEM) p1=V_00b1 a/tf=7 b/format=0 c/ostate=23  type=0 (<type:0>) form=7 (routine) special=0 (<special:0>) linkage=3 (external) spec=0 indirect=0 unass=1
           { START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
              $ DEF    S p1=V_00b2 a/tf=32 b/format=1 c/ostate=0  type=3 (string) form=2 (name) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
           } FINISH ) {lev=1}

    37  %integer k
           O LINE   37 "regression-bugs-tmp/vax-lib.imp"
           $ DEF    K p1=V_00b3 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

    38   readsymbol(K); s=tostring(k)
           O LINE   38 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   READSYMBOL
           @ PUSH   K
           p ASSPAR
           E CALL  
           O LINE   38 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   S
           @ PUSH   TOSTRING
           @ PUSH   K
           p ASSPAR
           E CALL  
           S ASSVAL

    39  %end
    40  
           O LINE   39 "regression-bugs-tmp/vax-lib.imp"
        ; END    _READITEM {lev=1 --> 0}

    41  %externalstring(63)%fn itos(%integer n, p)
        O LINE   41 "regression-bugs-tmp/vax-lib.imp"
        $ DEF    ITOS (_ITOS) p1=V_00b2 a/tf=38 b/format=3f c/ostate=33  type=3 (string) form=8 (function) special=0 (<special:0>) linkage=3 (external) spec=0 indirect=1 unass=1
           { START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
              $ DEF    N p1=V_00b3 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
              $ DEF    P p1=V_00b4 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
           } FINISH ) {lev=1}

    42     %string(255) answer
           O LINE   42 "regression-bugs-tmp/vax-lib.imp"
           $ DEF    ANSWER p1=V_00b5 a/tf=31 b/format=ff c/ostate=0  type=3 (string) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

    43     %byteintegerarray a(0:64)
           O LINE   43 "regression-bugs-tmp/vax-lib.imp"
           $ DEF    A p1=V_00b6 a/tf=1b b/format=2 c/ostate=100  type=1 (integer) form=11 (array) special=1 (byte-integer) linkage=0 (auto) spec=0 indirect=0 unass=0
           N PUSHI  #0x00000000
           N PUSHI  #0x00000040
           d DIM    0001 0001

    44     %integer sign, sym, pt, val
           O LINE   44 "regression-bugs-tmp/vax-lib.imp"
           $ DEF    SIGN p1=V_00b7 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
           $ DEF    SYM p1=V_00b8 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
           $ DEF    PT p1=V_00b9 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
           $ DEF    VAL p1=V_00ba a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

    45     val = p
           O LINE   45 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   VAL
           @ PUSH   P
           S ASSVAL

    46     %if p > 0 %then p = p+1 %else p = -p
           O LINE   46 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   P
           N PUSHI  #0x00000000
           ? JUMPIF <= L_0004
           @ PUSH   P
           @ PUSH   P
           N PUSHI  #0x00000001
           + ADD   
           S ASSVAL
           F GOTO   L_0003
           : LOCATE L_0004
           @ PUSH   P
           @ PUSH   P
           U NEGATE
           S ASSVAL
           : LOCATE L_0003

    47     p = 63 %if p > 63
           O LINE   47 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   P
           N PUSHI  #0x0000003f
           ? JUMPIF <= L_0004
           @ PUSH   P
           N PUSHI  #0x0000003f
           S ASSVAL
           : LOCATE L_0004

    48     sign = ' '
           O LINE   48 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   SIGN
           N PUSHI  #0x00000020
           S ASSVAL

    49     sign = 0 %if val <= 0
           O LINE   49 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   VAL
           N PUSHI  #0x00000000
           ? JUMPIF > L_0004
           @ PUSH   SIGN
           N PUSHI  #0x00000000
           S ASSVAL
           : LOCATE L_0004

    50     pt = 0
           O LINE   50 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   PT
           N PUSHI  #0x00000000
           S ASSVAL

    51     %if n < 0 %start
           O LINE   51 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   N
           N PUSHI  #0x00000000
           ? JUMPIF >= L_0004

    52        sign = '-'
           O LINE   52 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   SIGN
           N PUSHI  #0x0000002d
           S ASSVAL

    53        %if n = 16_80000000 %start
           O LINE   53 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   N
           N PUSHI  #0x80000000
           ? JUMPIF # L_0007

    54           string(addr(a(pt))) = "8463847412"
           O LINE   54 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   STRING
           @ PUSH   ADDR
           @ PUSH   A
           @ PUSH   PT
           a ACCESS
           p ASSPAR
           E CALL  
           p ASSPAR
           E CALL  
           ' PUSHS  "8463847412"
           S ASSVAL

    55           pt = pt + 10
           O LINE   55 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   PT
           @ PUSH   PT
           N PUSHI  #0x0000000a
           + ADD   
           S ASSVAL

    56           -> set
           O LINE   56 "regression-bugs-tmp/vax-lib.imp"
           J JUMP   L_00bb

    57           %finish
           O LINE   57 "regression-bugs-tmp/vax-lib.imp"
           : LOCATE L_0007

    58        n = -n
           O LINE   58 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   N
           @ PUSH   N
           U NEGATE
           S ASSVAL

    59        %finish
           O LINE   59 "regression-bugs-tmp/vax-lib.imp"
           : LOCATE L_0004

    60     %cycle
           O LINE   60 "regression-bugs-tmp/vax-lib.imp"
           : LOCATE L_0003

    61        sym = n-n//10*10
           O LINE   61 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   SYM
           @ PUSH   N
           @ PUSH   N
           N PUSHI  #0x0000000a
           / QUOT  
           N PUSHI  #0x0000000a
           * MUL   
           - SUB   
           S ASSVAL

    62        pt = pt+1
           O LINE   62 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   PT
           @ PUSH   PT
           N PUSHI  #0x00000001
           + ADD   
           S ASSVAL

    63        a(pt) = sym+'0'
           O LINE   63 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   A
           @ PUSH   PT
           a ACCESS
           @ PUSH   SYM
           N PUSHI  #0x00000030
           + ADD   
           S ASSVAL

    64        n = n//10
           O LINE   64 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   N
           @ PUSH   N
           N PUSHI  #0x0000000a
           / QUOT  
           S ASSVAL

    65     %repeat %until n = 0
           O LINE   65 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   N
           N PUSHI  #0x00000000
           ? JUMPIF = L_0004
           B REPEAT L_0003
           : LOCATE L_0004

    66    set:
           O LINE   66 "regression-bugs-tmp/vax-lib.imp"
           L LABEL  L_00bb

    67     %if sign # 0 %start
           O LINE   67 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   SIGN
           N PUSHI  #0x00000000
           ? JUMPIF = L_0004

    68        pt = pt+1;  a(pt) = sign
           O LINE   68 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   PT
           @ PUSH   PT
           N PUSHI  #0x00000001
           + ADD   
           S ASSVAL
           O LINE   68 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   A
           @ PUSH   PT
           a ACCESS
           @ PUSH   SIGN
           S ASSVAL

    69     %finish
           O LINE   69 "regression-bugs-tmp/vax-lib.imp"
           : LOCATE L_0004

    70     %while pt < p %cycle
           O LINE   70 "regression-bugs-tmp/vax-lib.imp"
           : LOCATE L_0003
           @ PUSH   PT
           @ PUSH   P
           ? JUMPIF >= L_0004

    71        pt = pt+1;  a(pt) = ' '
           O LINE   71 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   PT
           @ PUSH   PT
           N PUSHI  #0x00000001
           + ADD   
           S ASSVAL
           O LINE   71 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   A
           @ PUSH   PT
           a ACCESS
           N PUSHI  #0x00000020
           S ASSVAL

    72     %repeat
           O LINE   72 "regression-bugs-tmp/vax-lib.imp"
           B REPEAT L_0003
           : LOCATE L_0004

    73     answer = ""
           O LINE   73 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   ANSWER
           ' PUSHS  ""
           S ASSVAL

    74     %cycle
           O LINE   74 "regression-bugs-tmp/vax-lib.imp"
           : LOCATE L_0003

    75        answer = answer.tostring(a(pt))
           O LINE   75 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   ANSWER
           @ PUSH   ANSWER
           @ PUSH   TOSTRING
           @ PUSH   A
           @ PUSH   PT
           a ACCESS
           p ASSPAR
           E CALL  
           . CONCAT
           S ASSVAL

    76        pt = pt-1
           O LINE   76 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   PT
           @ PUSH   PT
           N PUSHI  #0x00000001
           - SUB   
           S ASSVAL

    77     %repeat %until pt = 0
           O LINE   77 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   PT
           N PUSHI  #0x00000000
           ? JUMPIF = L_0004
           B REPEAT L_0003
           : LOCATE L_0004

    78     %result = answer
           O LINE   78 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   ANSWER
           V RESULT

    79  %end
           O LINE   79 "regression-bugs-tmp/vax-lib.imp"
        ; END    _ITOS {lev=1 --> 0}

    80  %externalroutine write(%integer n, p)
        O LINE   80 "regression-bugs-tmp/vax-lib.imp"
        $ DEF    WRITE (_WRITE) p1=V_00b3 a/tf=7 b/format=0 c/ostate=23  type=0 (<type:0>) form=7 (routine) special=0 (<special:0>) linkage=3 (external) spec=0 indirect=0 unass=1
           { START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
              $ DEF    N p1=V_00b4 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
              $ DEF    P p1=V_00b5 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
           } FINISH ) {lev=1}

    81     space %and p = p-1 %while p > 62
           O LINE   81 "regression-bugs-tmp/vax-lib.imp"
           : LOCATE L_0003
           @ PUSH   P
           N PUSHI  #0x0000003e
           ? JUMPIF <= L_0004
           @ PUSH   SPACE
           E CALL  
           @ PUSH   P
           @ PUSH   P
           N PUSHI  #0x00000001
           - SUB   
           S ASSVAL
           B REPEAT L_0003
           : LOCATE L_0004

    82     printstring(itos(n, p))
           O LINE   82 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   PRINTSTRING
           @ PUSH   ITOS
           @ PUSH   N
           p ASSPAR
           @ PUSH   P
           p ASSPAR
           E CALL  
           p ASSPAR
           E CALL  

    83  %end
           O LINE   83 "regression-bugs-tmp/vax-lib.imp"
        ; END    _WRITE {lev=1 --> 0}

    84  %externalroutine poctal(%integer n)
        O LINE   84 "regression-bugs-tmp/vax-lib.imp"
        $ DEF    POCTAL (_POCTAL) p1=V_00b4 a/tf=7 b/format=0 c/ostate=23  type=0 (<type:0>) form=7 (routine) special=0 (<special:0>) linkage=3 (external) spec=0 indirect=0 unass=1
           { START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
              $ DEF    N p1=V_00b5 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
           } FINISH ) {lev=1}

    85     %integer j
           O LINE   85 "regression-bugs-tmp/vax-lib.imp"
           $ DEF    J p1=V_00b6 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

    86     %for j = 30, -3, 0 %cycle
           O LINE   86 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   J
           N PUSHI  #0x00000003
           U NEGATE
           N PUSHI  #0x00000000
           N PUSHI  #0x0000001e
           f FOR    L_0003

    87        printsymbol(n>>j&7+'0')
           O LINE   87 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   PRINTSYMBOL
           @ PUSH   N
           @ PUSH   J
           ] RSH   
           N PUSHI  #0x00000007
           & AND   
           N PUSHI  #0x00000030
           + ADD   
           p ASSPAR
           E CALL  

    88     %repeat
           O LINE   88 "regression-bugs-tmp/vax-lib.imp"
           B REPEAT L_0003
           : LOCATE L_0004

    89  %end
    90  
           O LINE   89 "regression-bugs-tmp/vax-lib.imp"
        ; END    _POCTAL {lev=1 --> 0}

    91  %externalroutine read(%integer address, parm)
        O LINE   91 "regression-bugs-tmp/vax-lib.imp"
        $ DEF    READ (_READ) p1=V_00b5 a/tf=7 b/format=0 c/ostate=23  type=0 (<type:0>) form=7 (routine) special=0 (<special:0>) linkage=3 (external) spec=0 indirect=0 unass=1
           { START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
              $ DEF    ADDRESS p1=V_00b6 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
              $ DEF    PARM p1=V_00b7 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
           } FINISH ) {lev=1}

    92     %integer type, sign, sym, limit, digit
           O LINE   92 "regression-bugs-tmp/vax-lib.imp"
           $ DEF    TYPE p1=V_00b8 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
           $ DEF    SIGN p1=V_00b9 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
           $ DEF    SYM p1=V_00ba a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
           $ DEF    LIMIT p1=V_00bb a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
           $ DEF    DIGIT p1=V_00bc a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

    93     %longreal value, exp, base
           O LINE   93 "regression-bugs-tmp/vax-lib.imp"
           $ DEF    VALUE p1=V_00bd a/tf=21 b/format=4 c/ostate=0  type=2 (real) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
           $ DEF    EXP p1=V_00be a/tf=21 b/format=4 c/ostate=0  type=2 (real) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
           $ DEF    BASE p1=V_00bf a/tf=21 b/format=4 c/ostate=0  type=2 (real) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

    94     %string(255) s
           O LINE   94 "regression-bugs-tmp/vax-lib.imp"
           $ DEF    S p1=V_00c0 a/tf=31 b/format=ff c/ostate=0  type=3 (string) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

    95     base = 10.0
           O LINE   95 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   BASE
           D PUSHR  code=0 len=4 "10.0"
           S ASSVAL

    96     type = parm>>24
           O LINE   96 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   TYPE
           @ PUSH   PARM
           N PUSHI  #0x00000018
           ] RSH   
           S ASSVAL

    97     %if type # 16_10 %and type#64 %and type # 16_23 %andc
    98                                        type # 16_24 %start
           O LINE   97 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   TYPE
           N PUSHI  #0x00000010
           ? JUMPIF = L_0004
           @ PUSH   TYPE
           N PUSHI  #0x00000040
           ? JUMPIF = L_0004
           @ PUSH   TYPE
           N PUSHI  #0x00000023
           ? JUMPIF = L_0004
           @ PUSH   TYPE
           N PUSHI  #0x00000024
           ? JUMPIF = L_0004

    99        %signal  5,5,type %unless type = 16_11 %or type = 16_12
           O LINE   99 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   TYPE
           N PUSHI  #0x00000011
           ? JUMPIF = L_0007
           @ PUSH   TYPE
           N PUSHI  #0x00000012
           ? JUMPIF = L_0007
           N PUSHI  #0x00000005
           @ PUSH   TYPE
           e EVENT  0005
           : LOCATE L_0007

   100     %finish
           O LINE   100 "regression-bugs-tmp/vax-lib.imp"
           : LOCATE L_0004

   101     %if type = 64 %start; ! string
           O LINE   101 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   TYPE
           N PUSHI  #0x00000040
           ? JUMPIF # L_0004

   102        limit = parm&16_00ffffff -1;    ! max length
           O LINE   102 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   LIMIT
           @ PUSH   PARM
           N PUSHI  #0x00ffffff
           & AND   
           N PUSHI  #0x00000001
           - SUB   
           S ASSVAL

   103        s="";  digit = 0
           O LINE   103 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   S
           ' PUSHS  ""
           S ASSVAL
           O LINE   103 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   DIGIT
           N PUSHI  #0x00000000
           S ASSVAL

   104        %cycle
           O LINE   104 "regression-bugs-tmp/vax-lib.imp"
           : LOCATE L_0006

   105           readsymbol(sym)
           O LINE   105 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   READSYMBOL
           @ PUSH   SYM
           p ASSPAR
           E CALL  

   106        %repeat %until sym#' ' %and sym # nl
           O LINE   106 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   SYM
           N PUSHI  #0x00000020
           ? JUMPIF = L_0008
           @ PUSH   SYM
           N PUSHI  #0x0000000a
           ? JUMPIF # L_0007
           : LOCATE L_0008
           B REPEAT L_0006
           : LOCATE L_0007

   107        %cycle
           O LINE   107 "regression-bugs-tmp/vax-lib.imp"
           : LOCATE L_0006

   108           s = s.tostring(sym)
           O LINE   108 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   S
           @ PUSH   S
           @ PUSH   TOSTRING
           @ PUSH   SYM
           p ASSPAR
           E CALL  
           . CONCAT
           S ASSVAL

   109           digit=digit+1
           O LINE   109 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   DIGIT
           @ PUSH   DIGIT
           N PUSHI  #0x00000001
           + ADD   
           S ASSVAL

   110           sym = nextsymbol
           O LINE   110 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   SYM
           @ PUSH   NEXTSYMBOL
           E CALL  
           S ASSVAL

   111           %exit %if sym = ' ' %or sym = nl
           O LINE   111 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   SYM
           N PUSHI  #0x00000020
           ? JUMPIF = L_000b
           @ PUSH   SYM
           N PUSHI  #0x0000000a
           ? JUMPIF # L_000a
           : LOCATE L_000b
           F GOTO   L_0007
           : LOCATE L_000a

   112           skipsymbol
           O LINE   112 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   SKIPSYMBOL
           E CALL  

   113        %repeat
           O LINE   113 "regression-bugs-tmp/vax-lib.imp"
           B REPEAT L_0006
           : LOCATE L_0007

   114        %signal 1,3 %if digit > limit
           O LINE   114 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   DIGIT
           @ PUSH   LIMIT
           ? JUMPIF <= L_0007
           N PUSHI  #0x00000003
           e EVENT  0001
           : LOCATE L_0007

   115        string(address) = s
           O LINE   115 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   STRING
           @ PUSH   ADDRESS
           p ASSPAR
           E CALL  
           @ PUSH   S
           S ASSVAL

   116        %return
           O LINE   116 "regression-bugs-tmp/vax-lib.imp"
           R RETURN

   117        %finish
   118  
           O LINE   117 "regression-bugs-tmp/vax-lib.imp"
           : LOCATE L_0004

   119     sign = 1
           O LINE   119 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   SIGN
           N PUSHI  #0x00000001
           S ASSVAL

   120     %cycle
           O LINE   120 "regression-bugs-tmp/vax-lib.imp"
           : LOCATE L_0003

   121        sym = nextsymbol
           O LINE   121 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   SYM
           @ PUSH   NEXTSYMBOL
           E CALL  
           S ASSVAL

   122        %if sym = '-' %start
           O LINE   122 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   SYM
           N PUSHI  #0x0000002d
           ? JUMPIF # L_0007

   123           %signal 3,1,sym %if sign < 0
           O LINE   123 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   SIGN
           N PUSHI  #0x00000000
           ? JUMPIF >= L_000a
           N PUSHI  #0x00000001
           @ PUSH   SYM
           e EVENT  0003
           : LOCATE L_000a

   124           sign = -1
           O LINE   124 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   SIGN
           N PUSHI  #0x00000001
           U NEGATE
           S ASSVAL

   125           skipsymbol;  sym = nextsymbol
           O LINE   125 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   SKIPSYMBOL
           E CALL  
           O LINE   125 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   SYM
           @ PUSH   NEXTSYMBOL
           E CALL  
           S ASSVAL

   126           %exit
           O LINE   126 "regression-bugs-tmp/vax-lib.imp"
           F GOTO   L_0004

   127        %finish
           O LINE   127 "regression-bugs-tmp/vax-lib.imp"
           : LOCATE L_0007

   128        %exit %if sym # ' ' %and sym # nl
           O LINE   128 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   SYM
           N PUSHI  #0x00000020
           ? JUMPIF = L_0007
           @ PUSH   SYM
           N PUSHI  #0x0000000a
           ? JUMPIF = L_0007
           F GOTO   L_0004
           : LOCATE L_0007

   129        skipsymbol
           O LINE   129 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   SKIPSYMBOL
           E CALL  

   130     %repeat
           O LINE   130 "regression-bugs-tmp/vax-lib.imp"
           B REPEAT L_0003
           : LOCATE L_0004

   131  more:
           O LINE   131 "regression-bugs-tmp/vax-lib.imp"
           L LABEL  L_00c1

   132     value = 0
           O LINE   132 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   VALUE
           N PUSHI  #0x00000000
           S ASSVAL

   133     limit = int(base)
           O LINE   133 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   LIMIT
           @ PUSH   INT
           @ PUSH   BASE
           p ASSPAR
           E CALL  
           S ASSVAL

   134     digit = -1; sym = sym - 32 %if 'a'<= sym <= 'z'
           O LINE   134 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   DIGIT
           N PUSHI  #0x00000001
           U NEGATE
           S ASSVAL
           O LINE   134 "regression-bugs-tmp/vax-lib.imp"
           N PUSHI  #0x00000061
           @ PUSH   SYM
           " JUMPIFD > L_0004
           N PUSHI  #0x0000007a
           ? JUMPIF > L_0004
           @ PUSH   SYM
           @ PUSH   SYM
           N PUSHI  #0x00000020
           - SUB   
           S ASSVAL
           : LOCATE L_0004

   135     digit = sym-'0' %if '0' <= sym <= '9'
           O LINE   135 "regression-bugs-tmp/vax-lib.imp"
           N PUSHI  #0x00000030
           @ PUSH   SYM
           " JUMPIFD > L_0004
           N PUSHI  #0x00000039
           ? JUMPIF > L_0004
           @ PUSH   DIGIT
           @ PUSH   SYM
           N PUSHI  #0x00000030
           - SUB   
           S ASSVAL
           : LOCATE L_0004

   136     digit = sym -'A'+10 %if 'A'<=sym<='Z'
           O LINE   136 "regression-bugs-tmp/vax-lib.imp"
           N PUSHI  #0x00000041
           @ PUSH   SYM
           " JUMPIFD > L_0004
           N PUSHI  #0x0000005a
           ? JUMPIF > L_0004
           @ PUSH   DIGIT
           @ PUSH   SYM
           N PUSHI  #0x00000041
           - SUB   
           N PUSHI  #0x0000000a
           + ADD   
           S ASSVAL
           : LOCATE L_0004

   137     %signal 3,1,sym %unless 0 <= digit < limit %or
   138                                (sym = '.' %and type&16_20 # 0)
           O LINE   137 "regression-bugs-tmp/vax-lib.imp"
           N PUSHI  #0x00000000
           @ PUSH   DIGIT
           " JUMPIFD > L_0005
           @ PUSH   LIMIT
           ? JUMPIF < L_0004
           : LOCATE L_0005
           @ PUSH   SYM
           N PUSHI  #0x0000002e
           ? JUMPIF # L_0005
           @ PUSH   TYPE
           N PUSHI  #0x00000020
           & AND   
           N PUSHI  #0x00000000
           ? JUMPIF # L_0004
           : LOCATE L_0005
           N PUSHI  #0x00000001
           @ PUSH   SYM
           e EVENT  0003
           : LOCATE L_0004

   139     %while 0 <= digit < limit %cycle
           O LINE   139 "regression-bugs-tmp/vax-lib.imp"
           : LOCATE L_0003
           N PUSHI  #0x00000000
           @ PUSH   DIGIT
           " JUMPIFD > L_0004
           @ PUSH   LIMIT
           ? JUMPIF >= L_0004

   140        skipsymbol
           O LINE   140 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   SKIPSYMBOL
           E CALL  

   141        value = value*base+digit
           O LINE   141 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   VALUE
           @ PUSH   VALUE
           @ PUSH   BASE
           * MUL   
           @ PUSH   DIGIT
           + ADD   
           S ASSVAL

   142        sym = nextsymbol
           O LINE   142 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   SYM
           @ PUSH   NEXTSYMBOL
           E CALL  
           S ASSVAL

   143        digit = -1; sym=sym-32 %if 'a'<=sym<='z'
           O LINE   143 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   DIGIT
           N PUSHI  #0x00000001
           U NEGATE
           S ASSVAL
           O LINE   143 "regression-bugs-tmp/vax-lib.imp"
           N PUSHI  #0x00000061
           @ PUSH   SYM
           " JUMPIFD > L_0007
           N PUSHI  #0x0000007a
           ? JUMPIF > L_0007
           @ PUSH   SYM
           @ PUSH   SYM
           N PUSHI  #0x00000020
           - SUB   
           S ASSVAL
           : LOCATE L_0007

   144        digit = sym-'0' %if '0'<=sym<='9'
           O LINE   144 "regression-bugs-tmp/vax-lib.imp"
           N PUSHI  #0x00000030
           @ PUSH   SYM
           " JUMPIFD > L_0007
           N PUSHI  #0x00000039
           ? JUMPIF > L_0007
           @ PUSH   DIGIT
           @ PUSH   SYM
           N PUSHI  #0x00000030
           - SUB   
           S ASSVAL
           : LOCATE L_0007

   145        digit = sym-'A'+10 %if 'A'<=sym<='Z'
           O LINE   145 "regression-bugs-tmp/vax-lib.imp"
           N PUSHI  #0x00000041
           @ PUSH   SYM
           " JUMPIFD > L_0007
           N PUSHI  #0x0000005a
           ? JUMPIF > L_0007
           @ PUSH   DIGIT
           @ PUSH   SYM
           N PUSHI  #0x00000041
           - SUB   
           N PUSHI  #0x0000000a
           + ADD   
           S ASSVAL
           : LOCATE L_0007

   146     %repeat
           O LINE   146 "regression-bugs-tmp/vax-lib.imp"
           B REPEAT L_0003
           : LOCATE L_0004

   147     %if sym = '_' %start
           O LINE   147 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   SYM
           N PUSHI  #0x0000005f
           ? JUMPIF # L_0004

   148        base = value
           O LINE   148 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   BASE
           @ PUSH   VALUE
           S ASSVAL

   149        skipsymbol
           O LINE   149 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   SKIPSYMBOL
           E CALL  

   150        sym = nextsymbol
           O LINE   150 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   SYM
           @ PUSH   NEXTSYMBOL
           E CALL  
           S ASSVAL

   151        ->more
           O LINE   151 "regression-bugs-tmp/vax-lib.imp"
           J JUMP   L_00c1

   152     %finish
           O LINE   152 "regression-bugs-tmp/vax-lib.imp"
           : LOCATE L_0004

   153     %if sym = '.' %and limit = 10  %and type&16_20 # 0 %start
           O LINE   153 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   SYM
           N PUSHI  #0x0000002e
           ? JUMPIF # L_0004
           @ PUSH   LIMIT
           N PUSHI  #0x0000000a
           ? JUMPIF # L_0004
           @ PUSH   TYPE
           N PUSHI  #0x00000020
           & AND   
           N PUSHI  #0x00000000
           ? JUMPIF = L_0004

   154        skipsymbol
           O LINE   154 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   SKIPSYMBOL
           E CALL  

   155        exp = 0.1
           O LINE   155 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   EXP
           D PUSHR  code=0 len=3 "0.1"
           S ASSVAL

   156        %cycle
           O LINE   156 "regression-bugs-tmp/vax-lib.imp"
           : LOCATE L_0006

   157           sym = nextsymbol
           O LINE   157 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   SYM
           @ PUSH   NEXTSYMBOL
           E CALL  
           S ASSVAL

   158           %exit %unless '0' <= sym <= '9'
           O LINE   158 "regression-bugs-tmp/vax-lib.imp"
           N PUSHI  #0x00000030
           @ PUSH   SYM
           " JUMPIFD > L_000b
           N PUSHI  #0x00000039
           ? JUMPIF <= L_000a
           : LOCATE L_000b
           F GOTO   L_0007
           : LOCATE L_000a

   159           value = value+(sym-'0')*exp
           O LINE   159 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   VALUE
           @ PUSH   VALUE
           @ PUSH   SYM
           N PUSHI  #0x00000030
           - SUB   
           @ PUSH   EXP
           * MUL   
           + ADD   
           S ASSVAL

   160           exp = exp*0.1
           O LINE   160 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   EXP
           @ PUSH   EXP
           D PUSHR  code=0 len=3 "0.1"
           * MUL   
           S ASSVAL

   161           skipsymbol
           O LINE   161 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   SKIPSYMBOL
           E CALL  

   162        %repeat
           O LINE   162 "regression-bugs-tmp/vax-lib.imp"
           B REPEAT L_0006
           : LOCATE L_0007

   163     %finish
           O LINE   163 "regression-bugs-tmp/vax-lib.imp"
           : LOCATE L_0004

   164     %if sym = '@' %and limit = 10 %and type&16_20 # 0 %start
           O LINE   164 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   SYM
           N PUSHI  #0x00000040
           ? JUMPIF # L_0004
           @ PUSH   LIMIT
           N PUSHI  #0x0000000a
           ? JUMPIF # L_0004
           @ PUSH   TYPE
           N PUSHI  #0x00000020
           & AND   
           N PUSHI  #0x00000000
           ? JUMPIF = L_0004

   165        skipsymbol
           O LINE   165 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   SKIPSYMBOL
           E CALL  

   166        read(addr(sym), 16_10<<24)
           O LINE   166 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   READ
           @ PUSH   ADDR
           @ PUSH   SYM
           p ASSPAR
           E CALL  
           p ASSPAR
           N PUSHI  #0x00000010
           N PUSHI  #0x00000018
           [ LSH   
           p ASSPAR
           E CALL  

   167        value = value*10.0^sym
           O LINE   167 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   VALUE
           @ PUSH   VALUE
           D PUSHR  code=0 len=4 "10.0"
           @ PUSH   SYM
           x REXP  
           * MUL   
           S ASSVAL

   168     %finish
           O LINE   168 "regression-bugs-tmp/vax-lib.imp"
           : LOCATE L_0004

   169     value = -value %if sign < 0
           O LINE   169 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   SIGN
           N PUSHI  #0x00000000
           ? JUMPIF >= L_0004
           @ PUSH   VALUE
           @ PUSH   VALUE
           U NEGATE
           S ASSVAL
           : LOCATE L_0004

   170     %if type&16_10 # 0 %start;       !integral
           O LINE   170 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   TYPE
           N PUSHI  #0x00000010
           & AND   
           N PUSHI  #0x00000000
           ? JUMPIF = L_0004

   171        sym = int(value)
           O LINE   171 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   SYM
           @ PUSH   INT
           @ PUSH   VALUE
           p ASSPAR
           E CALL  
           S ASSVAL

   172        %if type = 16_10 %start
           O LINE   172 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   TYPE
           N PUSHI  #0x00000010
           ? JUMPIF # L_0007

   173           integer(address) = sym
           O LINE   173 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   INTEGER
           @ PUSH   ADDRESS
           p ASSPAR
           E CALL  
           @ PUSH   SYM
           S ASSVAL

   174        %else %if type = 16_12
           O LINE   174 "regression-bugs-tmp/vax-lib.imp"
           F GOTO   L_0006
           : LOCATE L_0007
           @ PUSH   TYPE
           N PUSHI  #0x00000012
           ? JUMPIF # L_0007

   175           byteinteger(address) = sym
           O LINE   175 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   BYTEINTEGER
           @ PUSH   ADDRESS
           p ASSPAR
           E CALL  
           @ PUSH   SYM
           S ASSVAL

   176        %else
           O LINE   176 "regression-bugs-tmp/vax-lib.imp"
           F GOTO   L_0006
           : LOCATE L_0007

   177           shortinteger(address) = sym
           O LINE   177 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   SHORTINTEGER
           @ PUSH   ADDRESS
           p ASSPAR
           E CALL  
           @ PUSH   SYM
           S ASSVAL

   178        %finish
           O LINE   178 "regression-bugs-tmp/vax-lib.imp"
           : LOCATE L_0006

   179     %else %if type = 16_23
           O LINE   179 "regression-bugs-tmp/vax-lib.imp"
           F GOTO   L_0003
           : LOCATE L_0004
           @ PUSH   TYPE
           N PUSHI  #0x00000023
           ? JUMPIF # L_0004

   180        real(address) = value
           O LINE   180 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   REAL
           @ PUSH   ADDRESS
           p ASSPAR
           E CALL  
           @ PUSH   VALUE
           S ASSVAL

   181     %else
           O LINE   181 "regression-bugs-tmp/vax-lib.imp"
           F GOTO   L_0003
           : LOCATE L_0004

   182        longreal(address) = value
           O LINE   182 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   LONGREAL
           @ PUSH   ADDRESS
           p ASSPAR
           E CALL  
           @ PUSH   VALUE
           S ASSVAL

   183     %finish
           O LINE   183 "regression-bugs-tmp/vax-lib.imp"
           : LOCATE L_0003

   184  %end
   185  
           O LINE   184 "regression-bugs-tmp/vax-lib.imp"
        ; END    _READ {lev=1 --> 0}

   186  %externalroutine  phex(%integer n)
        O LINE   186 "regression-bugs-tmp/vax-lib.imp"
        $ DEF    PHEX (_PHEX) p1=V_00b6 a/tf=7 b/format=0 c/ostate=23  type=0 (<type:0>) form=7 (routine) special=0 (<special:0>) linkage=3 (external) spec=0 indirect=0 unass=1
           { START  ( FORMAL PARAMETERS  {lev=1 --> 2, nested=0 --> 1}
              $ DEF    N p1=V_00b7 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
           } FINISH ) {lev=1}

   187     %integer j,k
           O LINE   187 "regression-bugs-tmp/vax-lib.imp"
           $ DEF    J p1=V_00b8 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0
           $ DEF    K p1=V_00b9 a/tf=11 b/format=1 c/ostate=0  type=1 (integer) form=1 (simple) special=0 (<special:0>) linkage=0 (auto) spec=0 indirect=0 unass=0

   188     %for j = 1, 1, 8 %cycle
           O LINE   188 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   J
           N PUSHI  #0x00000001
           N PUSHI  #0x00000008
           N PUSHI  #0x00000001
           f FOR    L_0003

   189        k = (n>>28)&15;  n = n<<4
           O LINE   189 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   K
           @ PUSH   N
           N PUSHI  #0x0000001c
           ] RSH   
           N PUSHI  #0x0000000f
           & AND   
           S ASSVAL
           O LINE   189 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   N
           @ PUSH   N
           N PUSHI  #0x00000004
           [ LSH   
           S ASSVAL

   190        %if k > 9 %then k = k-10+'A' %else k = k+'0'
           O LINE   190 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   K
           N PUSHI  #0x00000009
           ? JUMPIF <= L_0007
           @ PUSH   K
           @ PUSH   K
           N PUSHI  #0x0000000a
           - SUB   
           N PUSHI  #0x00000041
           + ADD   
           S ASSVAL
           F GOTO   L_0006
           : LOCATE L_0007
           @ PUSH   K
           @ PUSH   K
           N PUSHI  #0x00000030
           + ADD   
           S ASSVAL
           : LOCATE L_0006

   191        printsymbol(k)
           O LINE   191 "regression-bugs-tmp/vax-lib.imp"
           @ PUSH   PRINTSYMBOL
           @ PUSH   K
           p ASSPAR
           E CALL  

   192     %repeat
           O LINE   192 "regression-bugs-tmp/vax-lib.imp"
           B REPEAT L_0003
           : LOCATE L_0004

   193  %end
   194  
           O LINE   193 "regression-bugs-tmp/vax-lib.imp"
        ; END    _PHEX {lev=1 --> 0}

   195  %begin
        O LINE   195 "regression-bugs-tmp/vax-lib.imp"
        H BEGIN  _lev0id0 {lev=0 --> 1}

   196  %end
   197  
           O LINE   196 "regression-bugs-tmp/vax-lib.imp"
        ; END    _lev0id0 {lev=1 --> 0}

   198  %endoffile
        O LINE   198 "regression-bugs-tmp/vax-lib.imp"
        ; END     {lev=0 --> -1}