aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/msp430/words/j.asm
blob: 74e9d58c4cc70ecafd14dd2a474b6d802df580f8 (plain)
1
2
3
4
5
6
7
8
9

;C J        -- n   R: 4*sys -- 4*sys
;C                  get the second loop index
        CODEHEADER(XT_J,1,"j")
        SUB     #2,PSP          ; make room in TOS
        MOV     TOS,0(PSP)
        MOV     @RSP,TOS        ; index = loopctr - fudge
        SUB     2(RSP),TOS
        NEXT