1
function [stk,txt,top]=sci_mod()
5
x=stk(top-1)(1);mx=stk(top-1)(3);nx=stk(top-1)(4)
6
y=stk(top)(1);my=stk(top)(3);ny=stk(top)(4)
7
if mx=='1'&nx=='1' then
8
stk=list('pmodulo'+rhsargs([stk(top-1)(1),stk(top)(1)]),'0',my,ny,'1')
9
elseif my=='1'&ny=='1' then
10
stk=list('pmodulo'+rhsargs([stk(top-1)(1),stk(top)(1)]),'0',mx,nx,'1')
11
elseif my==mx&ny==nx then
12
stk=list('pmodulo'+rhsargs([stk(top-1)(1),stk(top)(1)]),'0',mx,nx,'1')
14
stk=list('pmodulo'+rhsargs([stk(top-1)(1),stk(top)(1)]),'0','?','?','1')