( factorial with fixed-point )
|0100
#0005
{
,&f STR2 DUP2 ,&n STR2
#0001 NEQ2 #04 MUL JMP #0001 JMP2r
,&n LDR2 STH2k
#0001 SUB2 ,&f LDR2 DUP2 JSR2
STH2r DUP2 ,&n STR2 MUL2
JMP2r
&f $2 &n $2
} STH2r DUP2 JSR2
#18 DEO ( 120 )
BRK