2 .SUBSPA $DATA$,QUAD=1,ALIGN=8,ACCESS=31
3 .SUBSPA $BSS$,QUAD=1,ALIGN=8,ACCESS=31,ZERO,SORT=82
5 .SUBSPA $LIT$,QUAD=0,ALIGN=8,ACCESS=44
6 .SUBSPA $CODE$,QUAD=0,ALIGN=8,ACCESS=44,CODE_ONLY
8 .IMPORT $$dyncall,MILLICODE
23 .EXPORT execute,ENTRY,PRIV_LEV=3,ARGW0=GR,RTNVAL=GR
26 .CALLINFO FRAME=0,NO_CALLS
28 addil L'buf-$global$,%r27
29 ldo R'buf-$global$(%r1),%r20
31 movb,<> %r26,%r26,L$0002
32 ldo R'L$0002(%r19),%r22
34 addil L'tab___2-$global$,%r27
35 ldo R'tab___2-$global$(%r1),%r23
36 addil L'optab-$global$,%r27
37 ldo R'optab-$global$(%r1),%r20
43 comib,>= 2,%r21,L$0009
80 .EXPORT main,ENTRY,PRIV_LEV=3,RTNVAL=GR
83 .CALLINFO FRAME=128,CALLS,SAVE_RP
92 addil L'optab-$global$,%r27
94 ldo R'optab-$global$(%r19),%r21
96 ldh R'optab-$global$(%r19),%r19
97 addil L'p-$global$,%r27
99 sth %r20,R'p-$global$(%r22)
100 ldo R'p-$global$(%r22),%r26
107 addil L'buf-$global$,%r27
109 ldo R'buf-$global$(%r19),%r26
111 .CALL ARGW0=GR,ARGW1=GR
113 ldo R'L$C0000(%r25),%r25
114 comib,=,n 0,%r28,L$0011