Code: Select all
BR Main
A: .WORD d#0
B: .WORD d#0
Uitk: .WORD d#0
Main: DECI A,d
DECI B,d
LOADA A,d
SUBA d#0,i
BREQ End
LOADA B,d
SUBA d#0,i
BREQ End
Mult: LOADA Uitk,d
ADDA A,d
STOREA Uitk,d
LOADA B,d
SUBA d#1,i
STOREA B,d
BRNE Mult
End: DECO Uitk,d
STOP
.END