M-03

Description #

M-03: Modulo N

M-03.af #

PROGRAM LIST
File : M-03

*** P1
AC “<10→n> → n?” HLT
x=0 GOTO1
Min0F Min01 10 Min02
GSBP2
LBL1
“<n→10> → n?” HLT
Min02 10 Min01 AC
Min0F
GSBP2

       ···46 steps

*** P2
LBL1
AC “Input <x>” HLT
Min03 0 Min00 Min04
LBL2
MR03 ÷ MR01 = INT
Min05
x=0 GOTO3
MR03 - MR05 × MR01 =
GSBP3
MR05 Min03
ISZ GOTO2
LBL3
MR03
GSBP3
AC
x=F GOTO4
“<10→ AR01 >” PAUSE
MR04 HLT
GOTO1
LBL4
“ AR02 →10>” PAUSE
MR04 HLT
GOTO1

       ···69 steps

*** P3
× MR02 X^y MR00 =
M+04
       ···7 steps