%Global register
x   GREG    0
y   GREG    0
z   GREG    0

a   IS      $4
b   IS      $5
c   IS      $6



    LOC #100

    PREFIX  :Multiplikation:

tmpRJ   IS  $1

x1      IS  $3
x2      IS  $4
x3      IS  $5





mult    GET tmpRJ,:rJ
        MUL x1,x1,x2
        MUL x2,x2,x3
        MUL x3,x3,x3

        PUSHJ   x1-1,:Addition:add

        PUT :rJ,tmpRJ
        POP 2,0
    PREFIX :


    PREFIX  :Addition:

x1      IS  $0
x2      IS  $1

add     ADD :x,x1,x1
        ADD :y,x2,x2


        POP 0,0
    PREFIX  :

    PREFIX :Substraktion:
tmpRJ   IS  $1

x1      IS  $3
x2      IS  $4
x3      IS  $5

sub     GET tmpRJ,:rJ

        SUB x1,x3,x2

        PUSHJ   x1-1,:Shift:shift
        PUT :rJ,tmpRJ
        POP 0,0
    PREFIX  :

        PREFIX  :Shift:
x       IS  $0
y       IS  $1
z       IS  $2

shift       SET x,5
        SLU x,x,16
        ADD x,y,0
        POP 0,0
    PREFIX  :


    %%%%%%MAIN%%%%%%
Main    SET     a,2
        SET     b,3
        SET     c,4
        PUSHJ   a-4,:Multiplikation:mult
        PUSHJ   a-4,:Substraktion:sub
        JMP     Main