BSD 4_3 development

[unix-history] / usr / contrib / icon / port / distr / rsg.u1

proc main
       local   0,001000,x
       local   1,000020,line
       local   2,000020,plist
       local   3,000000,define
       local   4,000000,generate
       local   5,000000,grammar
       local   6,000000,source
       local   7,000000,comment
       local   8,000000,prompter
       local   9,000000,error
       local   10,000000,defs
       local   11,000000,table
       local   12,000000,charset
       local   13,000000,i
       local   14,000000,s
       local   15,000000,tswitch
       local   16,000000,limit
       local   17,000000,integer
       local   18,000000,stop
       local   19,000000,ifile
       local   20,000000,prompt
       local   21,000000,in
       local   22,000000,pop
       local   23,000000,writes
       local   24,000000,read
       local   25,000000,close
       con     0,010000,2,154,142
       con     1,010000,1,074
       con     2,010000,2,162,142
       con     3,010000,1,076
       con     4,010000,2,166,142
       con     5,010000,1,174
       con     6,010000,2,156,154
       con     7,010000,1,012
       con     8,010000,0
       con     9,010000,6,046,154,143,141,163,145
       con     10,010000,6,046,165,143,141,163,145
       con     11,010000,6,046,144,151,147,151,164
       con     12,020000,10,060,061,062,063,064,065,066,067,070,071
       con     13,002000,0
       con     14,002000,1
       con     15,010000,2,055,164
       con     16,010000,2,055,154
       con     17,010000,18,165,163,141,147,145,072,040,133,055,164,135,040,133,055,154,040,156,135
       con     18,010000,1,134
       declend
       file    rsg.icn
       line    10
       mark    L1
       pnull
       var     2
       pnull
       var     3
       var     4
       var     5
       var     6
       var     7
       var     8
       var     9
       line    12
       llist   7
       asgn
       unmark  1
lab L1
       mark    L2
       pnull
       var     10
       var     11
       pnull
       line    13
       invoke  1
       asgn
       unmark  1
lab L2
       mark    L3
       pnull
       pnull
       var     10
       str     0
       line    14
       subsc
       pnull
       pnull
       str     1
       llist   1
       llist   1
       asgn
       unmark  1
lab L3
       mark    L4
       pnull
       pnull
       var     10
       str     2
       line    15
       subsc
       pnull
       pnull
       str     3
       llist   1
       llist   1
       asgn
       unmark  1
lab L4
       mark    L5
       pnull
       pnull
       var     10
       str     4
       line    16
       subsc
       pnull
       pnull
       str     5
       llist   1
       llist   1
       asgn
       unmark  1
lab L5
       mark    L6
       pnull
       pnull
       var     10
       str     6
       line    17
       subsc
       pnull
       pnull
       str     7
       llist   1
       llist   1
       asgn
       unmark  1
lab L6
       mark    L7
       pnull
       pnull
       var     10
       str     8
       line    18
       subsc
       pnull
       pnull
       str     8
       llist   1
       llist   1
       asgn
       unmark  1
lab L7
       mark    L8
       pnull
       pnull
       var     10
       str     9
       line    19
       subsc
       pnull
       pnull
       var     12
       keywd   10
       invoke  1
       llist   1
       llist   1
       asgn
       unmark  1
lab L8
       mark    L9
       pnull
       pnull
       var     10
       str     10
       line    20
       subsc
       pnull
       pnull
       var     12
       keywd   21
       invoke  1
       llist   1
       llist   1
       asgn
       unmark  1
lab L9
       mark    L10
       pnull
       pnull
       var     10
       str     11
       line    21
       subsc
       pnull
       pnull
       var     12
       cset    12
       invoke  1
       llist   1
       llist   1
       asgn
       unmark  1
lab L10
       mark    L11
       pnull
       var     13
       int     13
       line    22
       asgn
       unmark  1
lab L11
       mark    L12
lab L13
       line    23
       mark    L0
       pnull
       var     13
       pnull
       var     0
       size
       numlt
       unmark  1
       mark    L13
       mark    L16
       pnull
       var     14
       mark    L17
       pnull
       var     0
       pnull
       var     13
       dup
       int     14
       line    24
       plus
       asgn
       subsc
       esusp
       goto    L18
lab L17
       unmark  2
       pnull
       goto    L15
lab L18
       asgn
       unmark  1
lab L16
       mark    L0
       var     14
       eret
       mark    L20
       ccase
       str     15
       line    26
       eqv
       unmark  1
       pop
       pnull
       var     15
       int     14
       asgn
       goto    L19
lab L20
       mark    L21
       ccase
       str     16
       line    27
       eqv
       unmark  1
       pop
       pnull
       var     16
       mark    L22
       var     17
       pnull
       var     0
       pnull
       var     13
       dup
       int     14
       plus
       asgn
       subsc
       invoke  1
       esusp
       goto    L23
lab L22
       var     18
       str     17
       invoke  1
lab L23
       asgn
       goto    L19
lab L21
       pop
       var     18
       str     17
       line    28
       invoke  1
lab L19
lab L14
       unmark  1
       goto    L13
lab L15
       unmark  1
lab L12
       mark    L24
       pnull
       var     19
       pnull
       line    31
       keywd   9
       llist   1
       asgn
       unmark  1
lab L24
       mark    L25
       pnull
       var     20
       str     8
       line    32
       asgn
       unmark  1
lab L25
       mark    L26
lab L27
       line    33
       mark    L0
       pnull
       var     21
       var     22
       var     19
       invoke  1
       asgn
       unmark  1
       mark    L27
       mark    L30
lab L31
       line    34
       mark    L31
       mark    L34
       mark    L0
       pnull
       pnull
       var     20
       line    35
       size
       int     13
       numne
       unmark  1
       var     23
       var     20
       invoke  1
       unmark  1
lab L34
       mark    L35
       pnull
       var     1
       mark    L36
       var     24
       var     21
       line    36
       invoke  1
       esusp
       goto    L37
lab L36
       unmark  2
       pnull
       goto    L33
lab L37
       asgn
       unmark  1
lab L35
       mark    L38
lab L39
       line    37
       mark    L0
       pnull
       pnull
       var     1
       pnull
       int     14
       neg
       subsc
       str     18
       lexeq
       unmark  1
       mark    L39
       pnull
       var     1
       mark    L42
       pnull
       pnull
       var     1
       int     14
       pnull
       int     14
       neg
       sect
       var     24
       var     21
       invoke  1
       cat
       esusp
       goto    L43
lab L42
       unmark  1
       pnull
       goto    L41
lab L43
       asgn
lab L40
       unmark  1
       goto    L39
lab L41
       unmark  1
lab L38
       pnull
       var     2
       line    38
       bang
       var     1
       invoke  1
lab L32
       unmark  1
       goto    L31
lab L33
       unmark  1
lab L30
       var     25
       var     21
       line    40
       invoke  1
lab L28
       unmark  1
       goto    L27
lab L29
       unmark  1
lab L26
       pnull
       line    42
       pfail
       end
proc comment
       local   0,001000,line
       con     0,002000,1
       con     1,010000,1,043
       declend
       file    rsg.icn
       line    44
       mark    L1
       mark    L0
       pnull
       pnull
       var     0
       int     0
       line    45
       subsc
       str     1
       lexeq
       unmark  1
       mark    L2
       pnull
       pret
lab L2
       line    45
       pfail
       unmark  1
lab L1
       pnull
       line    46
       pfail
       end
proc define
       local   0,001000,line
       local   1,000000,defs
       local   2,000000,tab
       local   3,000000,find
       local   4,000000,move
       local   5,000000,alts
       con     0,010000,1,074
       con     1,010000,4,076,072,072,075
       con     2,002000,4
       con     3,002000,0
       declend
       file    rsg.icn
       line    48
       mark    L1
       mark    L2
       var     0
       line    49
       bscan
       pnull
       pnull
       var     1
       pushn1
       pnull
       str     0
       line    50
       tabmat
       var     2
       var     3
       str     1
       invoke  1
       invoke  1
       invoke  2
       subsc
       pushn1
       var     4
       int     2
       invoke  1
       var     5
       var     2
       int     3
       invoke  1
       invoke  1
       invoke  2
       asgn
       line    49
       escan
       pret
lab L2
       line    49
       pfail
       unmark  1
lab L1
       pnull
       line    51
       pfail
       end
proc defnon
       local   0,001000,sym
       local   1,000000,chars
       local   2,000000,cset
       local   3,000000,tab
       local   4,000000,charset
       local   5,000000,name
       local   6,000000,query
       local   7,000000,nonterm
       con     0,010000,1,047
       con     1,002000,1
       con     2,010000,1,077
       con     3,002000,0
       declend
       file    rsg.icn
       line    53
       mark    L1
       mark    L2
       var     0
       line    54
       bscan
       pnull
       str     0
       line    55
       tabmat
       pop
       pnull
       var     1
       var     2
       var     3
       pnull
       int     1
       line    56
       neg
       invoke  1
       invoke  1
       asgn
       pop
       pnull
       str     0
       line    57
       tabmat
       line    54
       escan
       unmark  1
       mark    L4
       var     4
       var     1
       line    59
       invoke  1
       pret
lab L4
       line    59
       pfail
       goto    L3
lab L2
       mark    L5
       var     0
       line    60
       bscan
       pnull
       str     2
       line    61
       tabmat
       pop
       pnull
       var     5
       var     3
       int     3
       line    62
       invoke  1
       asgn
       line    60
       escan
       unmark  1
       mark    L7
       var     6
       var     5
       line    64
       invoke  1
       pret
lab L7
       line    64
       pfail
       goto    L6
lab L5
       mark    L8
       var     7
       var     0
       line    65
       invoke  1
       pret
lab L8
       line    65
       pfail
lab L6
lab L3
       unmark  1
lab L1
       pnull
       line    66
       pfail
       end
proc error
       local   0,001000,line
       local   1,000000,write
       con     0,010000,21,052,052,052,040,145,162,162,157,156,145,157,165,163,040,154,151,156,145,072,040,040
       declend
       file    rsg.icn
       line    68
       mark    L1
       var     1
       str     0
       var     0
       line    69
       invoke  2
       unmark  1
lab L1
       mark    L2
       mark    L3
       pnull
       line    70
       pret
lab L3
       line    70
       pfail
       unmark  1
lab L2
       pnull
       line    71
       pfail
       end
proc gener
       local   0,001000,goal
       local   1,000020,pending
       local   2,000020,genstr
       local   3,000020,symbol
       local   4,000000,nonterm
       local   5,000000,get
       local   6,000000,tswitch
       local   7,000000,write
       local   8,000000,symimage
       local   9,000000,listimage
       local   10,000000,type
       local   11,000000,writes
       local   12,000000,read
       local   13,000000,defs
       local   14,000000,limit
       con     0,010000,0
       con     1,010000,6,163,164,162,151,156,147
       con     2,010000,7,143,150,141,162,163,145,164
       con     3,010000,5,161,165,145,162,171
       con     4,010000,22,052,052,052,040,163,165,160,160,154,171,040,163,164,162,151,156,147,040,146,157,162,040
       con     5,010000,2,040,040
       con     6,010000,26,052,052,052,040,156,157,040,166,141,154,165,145,040,146,157,162,040,161,165,145,162,171,040,164,157,040
       con     7,010000,7,156,157,156,164,145,162,155
       con     8,010000,29,052,052,052,040,165,156,144,145,146,151,156,145,144,040,156,157,156,164,145,162,155,151,156,141,154,072,040,040,074
       con     9,010000,1,076
       con     10,010000,31,052,052,052,040,145,170,143,145,163,163,151,166,145,040,163,171,155,142,157,154,163,040,162,145,155,141,151,156,151,156,147
       declend
       file    rsg.icn
       line    73
       mark    L1
lab L2
       line    75
       mark    L2
       mark    L5
       pnull
       var     1
       pnull
       var     4
       var     0
       line    76
       invoke  1
       llist   1
       asgn
       unmark  1
lab L5
       mark    L6
       pnull
       var     2
       str     0
       line    77
       asgn
       unmark  1
lab L6
       mark    L7
lab L8
       line    78
       mark    L0
       pnull
       var     3
       var     5
       var     1
       invoke  1
       asgn
       unmark  1
       mark    L8
       mark    L11
       mark    L0
       pnull
       var     6
       line    79
       nonnull
       unmark  1
       var     7
       keywd   6
       var     2
       var     8
       var     3
       invoke  1
       var     9
       var     1
       invoke  1
       invoke  4
       unmark  1
lab L11
       mark    L0
       var     10
       var     3
       line    80
       invoke  1
       eret
       mark    L13
       ccase
       str     1
       line    81
       eqv
       unmark  1
       pop
       pnull
       var     2
       dup
       var     3
       cat
       asgn
       goto    L12
lab L13
       mark    L14
       ccase
       str     2
       line    82
       eqv
       unmark  1
       pop
       pnull
       var     2
       dup
       pnull
       pnull
       var     3
       field   chars
       random
       cat
       asgn
       goto    L12
lab L14
       mark    L15
       ccase
       str     3
       line    83
       eqv
       unmark  1
       pop
       mark    L16
       var     11
       str     4
       pnull
       var     3
       line    84
       field   name
       str     5
       invoke  3
       unmark  1
lab L16
       pnull
       var     2
       dup
       mark    L17
       var     12
       pnull
       line    85
       invoke  1
       esusp
       goto    L18
lab L17
       mark    L19
       var     7
       line    86
       keywd   6
       str     6
       pnull
       var     3
       field   name
       invoke  3
       unmark  1
lab L19
       mark    L20
       mark    L0
       var     2
       line    87
       psusp
       efail
       unmark  1
lab L20
       unmark  1
       unmark  1
       goto    L3
       goto    L10
lab L18
       line    85
       cat
       asgn
       goto    L12
lab L15
       mark    L21
       ccase
       str     7
       line    91
       eqv
       unmark  1
       pop
       mark    L22
       pnull
       var     1
       mark    L23
       pnull
       pnull
       pnull
       pnull
       var     13
       pnull
       var     3
       line    92
       field   name
       subsc
       nonnull
       random
       var     1
       lconcat
       esusp
       goto    L24
lab L23
       mark    L25
       var     7
       line    93
       keywd   6
       str     8
       pnull
       var     3
       field   name
       str     9
       invoke  4
       unmark  1
lab L25
       mark    L26
       mark    L0
       var     2
       line    94
       psusp
       efail
       unmark  1
lab L26
       unmark  2
       unmark  1
       goto    L3
       goto    L10
lab L24
       line    92
       asgn
       unmark  1
lab L22
       mark    L0
       pnull
       pnull
       var     1
       line    97
       size
       pnull
       var     14
       nonnull
       numgt
       unmark  1
       mark    L27
       var     7
       line    98
       keywd   6
       str     10
       invoke  2
       unmark  1
lab L27
       mark    L28
       mark    L0
       var     2
       line    99
       psusp
       efail
       unmark  1
lab L28
       unmark  1
       unmark  1
       goto    L3
       goto    L10
       goto    L12
lab L21
       efail
lab L12
lab L9
       unmark  1
       goto    L8
lab L10
       unmark  1
lab L7
       mark    L0
       var     2
       line    105
       psusp
       efail
lab L3
       unmark  1
       goto    L2
lab L4
       unmark  1
lab L1
       pnull
       line    107
       pfail
       end
proc generate
       local   0,001000,line
       local   1,000020,goal
       local   2,000020,count
       local   3,000000,tab
       local   4,000000,upto
       local   5,000000,move
       local   6,000000,pos
       local   7,000000,integer
       local   8,000000,write
       local   9,000000,gener
       con     0,010000,1,074
       con     1,020000,1,076
       con     2,002000,1
       con     3,002000,0
       declend
       file    rsg.icn
       line    109
       mark    L1
       mark    L2
       var     0
       line    111
       bscan
       pnull
       str     0
       line    112
       tabmat
       pop
       pnull
       var     1
       int     2
       line    113
       limit
       mark    L0
       var     3
       var     4
       cset    1
       invoke  1
       invoke  1
       lsusp
       asgn
       pop
       var     5
       int     2
       line    114
       invoke  1
       pop
       pnull
       var     2
       mark    L4
       var     6
       int     3
       line    115
       invoke  1
       pop
       int     2
       esusp
       goto    L5
lab L4
       var     7
       var     3
       int     3
       invoke  1
       invoke  1
lab L5
       asgn
       line    111
       escan
       unmark  1
       mark    L6
       mark    L0
       var     2
       line    118
       limit
       mark    L0
       var     8
       var     9
       var     1
       invoke  1
       invoke  1
       lsusp
       pop
lab L7
       efail
lab L8
       unmark  1
lab L6
       mark    L9
       pnull
       line    119
       pret
lab L9
       line    119
       pfail
       goto    L3
lab L2
       line    121
       pfail
lab L3
       unmark  1
lab L1
       pnull
       line    122
       pfail
       end
proc getrhs
       local   0,001000,a
       local   1,000020,rhs
       local   2,000000,sform
       con     0,010000,0
       con     1,010000,1,174
       con     2,002000,1
       declend
       file    rsg.icn
       line    124
       mark    L1
       pnull
       var     1
       str     0
       line    126
       asgn
       unmark  1
lab L1
       mark    L2
       mark    L0
       pnull
       var     1
       dup
       pnull
       var     2
       pnull
       var     0
       line    127
       bang
       invoke  1
       str     1
       cat
       cat
       asgn
       pop
lab L3
       efail
lab L4
       unmark  1
lab L2
       mark    L5
       mark    L6
       pnull
       var     1
       int     2
       pnull
       int     2
       line    128
       neg
       sect
       pret
lab L6
       line    128
       pfail
       unmark  1
lab L5
       pnull
       line    129
       pfail
       end
proc grammar
       local   0,001000,line
       local   1,000020,file
       local   2,000020,out
       local   3,000000,name
       local   4,000000,tab
       local   5,000000,find
       local   6,000000,move
       local   7,000000,open
       local   8,000000,write
       local   9,000000,pwrite
       local   10,000000,close
       con     0,010000,2,055,076
       con     1,002000,2
       con     2,002000,0
       con     3,010000,1,167
       con     4,010000,16,052,052,052,040,143,141,156,156,157,164,040,157,160,145,156,040
       con     5,002000,1
       con     6,010000,1,074
       con     7,010000,1,076
       declend
       file    rsg.icn
       line    131
       mark    L1
       mark    L2
       var     0
       line    133
       bscan
       pnull
       var     3
       var     4
       var     5
       str     0
       line    134
       invoke  1
       invoke  1
       asgn
       pop
       var     6
       int     1
       line    135
       invoke  1
       pop
       pnull
       var     1
       var     4
       int     2
       line    136
       invoke  1
       asgn
       pop
       pnull
       var     2
       mark    L4
       pnull
       pnull
       var     1
       line    137
       size
       int     2
       numeq
       unmark  1
       keywd   14
       goto    L5
lab L4
       mark    L6
       var     7
       var     1
       str     3
       line    138
       invoke  2
       esusp
       goto    L7
lab L6
       mark    L8
       var     8
       line    139
       keywd   6
       str     4
       var     1
       invoke  3
       unmark  1
lab L8
       line    140
       pfail
lab L7
lab L5
       line    137
       asgn
       line    133
       escan
       unmark  1
       mark    L9
       mark    L10
       pnull
       pnull
       var     3
       line    145
       size
       int     2
       numeq
       esusp
       goto    L11
lab L10
       mark    L12
       pnull
       pnull
       var     3
       int     5
       subsc
       str     6
       lexeq
       pop
       pnull
       pnull
       var     3
       pnull
       int     5
       neg
       subsc
       str     7
       lexeq
       esusp
       goto    L13
lab L12
       line    145
       pfail
lab L13
lab L11
       unmark  1
lab L9
       mark    L14
       var     9
       var     3
       var     2
       line    146
       invoke  2
       unmark  1
lab L14
       mark    L15
       mark    L0
       pnull
       pnull
       var     1
       line    147
       size
       int     2
       numne
       unmark  1
       var     10
       var     2
       invoke  1
       unmark  1
lab L15
       mark    L16
       pnull
       line    148
       pret
lab L16
       line    148
       pfail
       goto    L3
lab L2
       line    150
       pfail
lab L3
       unmark  1
lab L1
       pnull
       line    151
       pfail
       end
proc listimage
       local   0,001000,a
       local   1,000020,s
       local   2,000020,x
       local   3,000000,symimage
       con     0,010000,0
       declend
       file    rsg.icn
       line    153
       mark    L1
       pnull
       var     1
       str     0
       line    155
       asgn
       unmark  1
lab L1
       mark    L2
       mark    L0
       pnull
       var     2
       pnull
       var     0
       line    156
       bang
       asgn
       pop
       mark    L0
       pnull
       var     1
       dup
       var     3
       var     2
       line    157
       invoke  1
       cat
       asgn
       unmark  1
lab L3
       efail
lab L4
       unmark  1
lab L2
       mark    L5
       mark    L6
       var     1
       line    158
       pret
lab L6
       line    158
       pfail
       unmark  1
lab L5
       pnull
       line    159
       pfail
       end
proc alts
       local   0,001000,defn
       local   1,000020,alist
       local   2,000000,put
       local   3,000000,syms
       local   4,000000,tab
       local   5,000000,many
       local   6,000000,move
       con     0,020000,1,174
       con     1,002000,1
       declend
       file    rsg.icn
       line    161
       mark    L1
       pnull
       var     1
       pnull
       line    163
       llist   0
       asgn
       unmark  1
lab L1
       mark    L2
       var     0
       line    164
       bscan
lab L3
       line    164
       mark    L0
       var     2
       var     1
       var     3
       var     4
       var     5
       pnull
       cset    0
       compl
       invoke  1
       invoke  1
       invoke  1
       invoke  2
       unmark  1
       mark    L3
       var     6
       int     1
       invoke  1
lab L4
       unmark  1
       goto    L3
lab L5
       escan
       unmark  1
lab L2
       mark    L6
       mark    L7
       var     1
       line    165
       pret
lab L7
       line    165
       pfail
       unmark  1
lab L6
       pnull
       line    166
       pfail
       end
proc prompter
       local   0,001000,line
       local   1,000000,prompt
       con     0,002000,1
       con     1,010000,1,075
       con     2,002000,2
       con     3,002000,0
       declend
       file    rsg.icn
       line    168
       mark    L1
       mark    L0
       pnull
       pnull
       var     0
       int     0
       line    169
       subsc
       str     1
       lexeq
       unmark  1
       mark    L2
       pnull
       var     1
       pnull
       var     0
       int     2
       int     3
       line    170
       sect
       asgn
       unmark  1
lab L2
       mark    L3
       pnull
       line    171
       pret
lab L3
       line    171
       pfail
       unmark  1
lab L1
       pnull
       line    173
       pfail
       end
proc pwrite
       local   0,001000,name
       local   1,001000,ofile
       local   2,000020,nt
       local   3,000020,a
       local   4,000040,builtin
       local   5,000000,sort
       local   6,000000,defs
       local   7,000000,write
       local   8,000000,getrhs
       con     0,010000,2,154,142
       con     1,010000,2,162,142
       con     2,010000,2,166,142
       con     3,010000,2,156,154
       con     4,010000,0
       con     5,010000,6,046,154,143,141,163,145
       con     6,010000,6,046,165,143,141,163,145
       con     7,010000,6,046,144,151,147,151,164
       con     8,002000,0
       con     9,002000,1
       con     10,010000,1,074
       con     11,010000,4,076,072,072,075
       con     12,002000,2
       con     13,010000,3,072,072,075
       con     14,010000,28,052,052,052,040,165,156,144,145,146,151,156,145,144,040,156,157,156,164,145,162,155,151,156,141,154,072,040,040
       declend
       file    rsg.icn
       line    175
       init?   L1
       mark    L1
       pnull
       var     4
       pnull
       str     0
       str     1
       str     2
       str     3
       str     4
       str     5
       str     6
       str     7
       line    178
       llist   8
       asgn
       unmark  1
lab L1
       mark    L2
       mark    L3
       pnull
       pnull
       var     0
       line    179
       size
       int     8
       numeq
       unmark  1
       mark    L5
       pnull
       var     3
       var     5
       var     6
       line    180
       invoke  1
       asgn
       unmark  1
lab L5
       mark    L0
       pnull
       var     2
       pnull
       var     3
       line    181
       bang
       asgn
       pop
       mark    L0
       mark    L8
       mark    L0
       pnull
       pnull
       var     2
       int     9
       line    182
       subsc
       pnull
       var     4
       bang
       lexeq
       unmark  1
       unmark  2
       goto    L6
       unmark  1
lab L8
       var     7
       var     1
       str     10
       pnull
       var     2
       int     9
       line    183
       subsc
       str     11
       var     8
       pnull
       var     2
       int     12
       subsc
       invoke  1
       invoke  5
       unmark  1
lab L6
       efail
lab L7
       goto    L4
lab L3
       mark    L9
       var     7
       var     1
       var     0
       str     13
       var     8
       pnull
       pnull
       var     6
       pnull
       var     0
       int     12
       pnull
       int     9
       line    186
       neg
       sect
       subsc
       nonnull
       invoke  1
       invoke  4
       esusp
       goto    L10
lab L9
       var     7
       str     14
       var     0
       line    187
       invoke  2
lab L10
lab L4
       unmark  1
lab L2
       pnull
       line    188
       pfail
       end
proc sform
       local   0,001000,alt
       local   1,000020,s
       local   2,000020,x
       local   3,000000,type
       con     0,010000,0
       con     1,010000,6,163,164,162,151,156,147
       con     2,010000,7,156,157,156,164,145,162,155
       con     3,010000,1,074
       con     4,010000,1,076
       con     5,010000,7,143,150,141,162,163,145,164
       con     6,010000,2,074,047
       con     7,010000,2,047,076
       declend
       file    rsg.icn
       line    190
       mark    L1
       pnull
       var     1
       str     0
       line    192
       asgn
       unmark  1
lab L1
       mark    L2
       mark    L0
       pnull
       var     2
       pnull
       var     0
       line    193
       bang
       asgn
       pop
       mark    L0
       pnull
       var     1
       dup
       mark    L0
       var     3
       var     2
       line    194
       invoke  1
       eret
       mark    L6
       ccase
       str     1
       line    195
       eqv
       unmark  1
       pop
       var     2
       goto    L5
lab L6
       mark    L7
       ccase
       str     2
       line    196
       eqv
       unmark  1
       pop
       pnull
       pnull
       str     3
       pnull
       var     2
       field   name
       cat
       str     4
       cat
       goto    L5
lab L7
       mark    L8
       ccase
       str     5
       line    197
       eqv
       unmark  1
       pop
       pnull
       pnull
       str     6
       pnull
       var     2
       field   chars
       cat
       str     7
       cat
       goto    L5
lab L8
       efail
lab L5
       line    194
       cat
       asgn
       unmark  1
lab L3
       efail
lab L4
       unmark  1
lab L2
       mark    L9
       mark    L10
       var     1
       line    199
       pret
lab L10
       line    199
       pfail
       unmark  1
lab L9
       pnull
       line    200
       pfail
       end
proc source
       local   0,001000,line
       local   1,000000,push
       local   2,000000,ifile
       local   3,000000,in
       local   4,000000,open
       local   5,000000,file
       local   6,000000,tab
       local   7,000000,write
       con     0,010000,1,100
       con     1,002000,0
       con     2,010000,16,052,052,052,040,143,141,156,156,157,164,040,157,160,145,156,040
       declend
       file    rsg.icn
       line    202
       mark    L1
       mark    L2
       var     0
       line    203
       bscan
       pnull
       str     0
       tabmat
       pop
       var     1
       var     2
       var     3
       invoke  2
       pop
       pnull
       var     3
       mark    L3
       var     4
       pnull
       var     5
       var     6
       int     1
       line    204
       invoke  1
       asgn
       invoke  1
       esusp
       goto    L4
lab L3
       mark    L5
       var     7
       line    205
       keywd   6
       str     2
       var     5
       invoke  3
       unmark  1
lab L5
       line    206
       pfail
lab L4
       line    204
       asgn
       line    203
       escan
       pret
lab L2
       line    203
       pfail
       unmark  1
lab L1
       pnull
       line    209
       pfail
       end
proc symimage
       local   0,001000,x
       local   1,000000,type
       con     0,010000,6,163,164,162,151,156,147
       con     1,010000,7,156,157,156,164,145,162,155
       con     2,010000,1,074
       con     3,010000,1,076
       con     4,010000,7,143,150,141,162,163,145,164
       con     5,010000,2,074,047
       con     6,010000,2,047,076
       declend
       file    rsg.icn
       line    211
       mark    L1
       mark    L2
       mark    L0
       var     1
       var     0
       line    212
       invoke  1
       eret
       mark    L4
       ccase
       str     0
       line    213
       eqv
       unmark  1
       pop
       var     0
       goto    L3
lab L4
       mark    L5
       ccase
       str     1
       line    214
       eqv
       unmark  1
       pop
       pnull
       pnull
       str     2
       pnull
       var     0
       field   name
       cat
       str     3
       cat
       goto    L3
lab L5
       mark    L6
       ccase
       str     4
       line    215
       eqv
       unmark  1
       pop
       pnull
       pnull
       str     5
       pnull
       var     0
       field   chars
       cat
       str     6
       cat
       goto    L3
lab L6
       efail
lab L3
       line    212
       pret
lab L2
       line    212
       pfail
       unmark  1
lab L1
       pnull
       line    217
       pfail
       end
proc syms
       local   0,001000,alt
       local   1,000020,slist
       local   2,000000,put
       local   3,000000,tab
       local   4,000000,many
       local   5,000000,defnon
       local   6,000000,upto
       local   7,000000,move
       con     0,020000,1,074
       con     1,002000,2
       con     2,010000,1,074
       con     3,020000,1,076
       con     4,002000,1
       declend
       file    rsg.icn
       line    219
       mark    L1
       pnull
       var     1
       pnull
       line    221
       llist   0
       asgn
       unmark  1
lab L1
       mark    L2
       var     0
       line    222
       bscan
lab L3
       line    222
       mark    L0
       var     2
       var     1
       mark    L6
       var     3
       var     4
       pnull
       cset    0
       compl
       invoke  1
       invoke  1
       esusp
       goto    L7
lab L6
       var     5
       int     1
       pnull
       str     2
       line    223
       tabmat
       var     3
       var     6
       cset    3
       invoke  1
       invoke  1
       var     7
       int     4
       invoke  1
       invoke  3
       invoke  1
lab L7
       line    222
       invoke  2
lab L4
       unmark  1
       goto    L3
lab L5
       escan
       unmark  1
lab L2
       mark    L8
       mark    L9
       var     1
       line    224
       pret
lab L9
       line    224
       pfail
       unmark  1
lab L8
       pnull
       line    225
       pfail
       end