M examples/d6.xyw → examples/d6.xyw

@@ -1,18 +1,12 @@ 
 .include "devices.xyw"
 
 ; Get random number and calculate modulo 6
-clock.random LDBw $6 modulo JSRw
+clock.random LDB $6 DIV POP
 
 ; Print result+1 and new line
-$31 ADD terminal.output STBw
-$0d terminal.output STBw
+$31 ADD terminal.output STB
+$0A terminal.output STB
 
 ; Terminate
-$0 system.state STBw
+$0 system.state STB
 
-; Calculate the modulo
-; a b -- a%b
-.label modulo
-    POPy POPx
-    PSHx PSHy PSHx PSHy DIV MUL SUB
-    RTS

M xywrun.c → xywrun.c

@@ -295,7 +295,7 @@ /* SHR */ OPC_SR1(0x0B, xyw_byte b = us_pop(), PUSH(ARG >> b));
             /* ADD */ OPC_SR2(0x0C, PUSH(a + b));
             /* SUB */ OPC_SR2(0x0D, PUSH(a - b));
             /* MUL */ OPC_SR2(0x0E, PUSH(a * b));
-            /* DIV */ OPC_SR2(0x0F, PUSH(a / b));
+            /* DIV */ OPC_SR2(0x0F, PUSH(a % b); PUSH(a / b));
             /* EQU */ OPC_SR2(0x10, PUSH(a == b));
             /* NEQ */ OPC_SR2(0x11, PUSH(a != b));
             /* GTH */ OPC_SR2(0x12, PUSH(a > b));