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