.include "devices.xyw"

; Get random number and calculate modulo 6
clock.random LDBw $6 modulo JSRw

; Print result+1 and new line
$31 ADD console.output STBw
$0d console.output STBw

; Terminate
$0 system.state STBw

; Calculate the modulo
; a b -- a%b
.label modulo
    POPy POPx
    PSHx PSHy PSHx PSHy DIV MUL SUB
    RTS