.include "devices.xyw"

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

; Print result+1 and new line
$31 ADD terminal.output STBw
$0d terminal.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