initial
[fpgammix.git] / workloads / ledfun.mms
blob31776f469f559df1113513996f145e93f20fa85a
1 n       GREG
2 x       GREG
4         LOC     #100
5 Main    SETL    x,0
6 2H      PUT     255,x
7         INCL    x,1
8         JMP     Pause
10 Pause   SETML   n,1
11 1H      SUB     n,n,1
12         BNZ     n,1B
13         JMP     2B