LOC Data_Segment GREG @ n IS $1 f IS $2 test IS $3 BOS GREG #3000000000000000 Bottom Of Stack SP GREG 0 Stackpointer LOC #100 GREG @ Fak SUB SP,SP,8 push RETA STO $0,SP,0 CMP test,n,1 Rekursionsende ? BP test,Rek nein: neuer Aufruf SET f,1 f=1 JMP Ende Rek SUB n,n,1 n=n-1 GO $0,Fak Rekursion ADD n,n,1 n=n+1 MUL f,f,n f = f*n Ende LDO $0,SP,0 pop RETA ADD SP,SP,8 GO $0,$0,0 R"ucksprung Main SET SP,BOS Initialisierung SET n,7 Parameter n=7 GO $0,Fak TRAP 0,Halt,0