aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/msp430/words/i.asm
blob: bd6b4ebe0ef7f795d84dcee15f5f0d08db8a907f (plain)
1
2
3
4
5
6
7
8
;C I        -- n   R: sys1 sys2 -- sys1 sys2
;C                  get the innermost loop index
        CODEHEADER(XT_I,1,"i")
        SUB     #2,PSP          ; make room in TOS
        MOV     TOS,0(PSP)
        MOV     INDEX,TOS       ; index = loopctr - fudge
        SUB     LIMIT,TOS
        NEXT