2 .IMPORT $$dyncall,MILLICODE
15 .EXPORT execute,ENTRY,PRIV_LEV=3,ARGW0=GR,RTNVAL=GR
18 .CALLINFO FRAME=0,NO_CALLS
20 addil L'buf-$global$,%r27
21 ldo R'buf-$global$(%r1),%r20
23 movb,<> %r26,%r26,L$0002
24 ldo R'L$0002(%r19),%r22
26 addil L'tab___2-$global$,%r27
27 ldo R'tab___2-$global$(%r1),%r23
28 addil L'optab-$global$,%r27
29 ldo R'optab-$global$(%r1),%r20
35 comib,>= 2,%r21,L$0009
69 .EXPORT main,ENTRY,PRIV_LEV=3,RTNVAL=GR
72 .CALLINFO FRAME=128,CALLS,SAVE_RP
81 addil L'optab-$global$,%r27
83 ldo R'optab-$global$(%r19),%r21
85 ldh R'optab-$global$(%r19),%r19
86 addil L'p-$global$,%r27
88 sth %r20,R'p-$global$(%r22)
89 ldo R'p-$global$(%r22),%r26
96 addil L'buf-$global$,%r27
98 ldo R'buf-$global$(%r19),%r26
100 .CALL ARGW0=GR,ARGW1=GR
102 ldo R'L$C0000(%r25),%r25
103 comib,=,n 0,%r28,L$0011