aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/j.asm
blob: 30ba24bfc7edefe5ed63b8c8878d38236924c4ef (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
; ( -- n ) (R: loop-sys1 loop-sys2 -- loop-sys1 loop-sys2)
; Compiler
; loop counter of outer loop
VE_J:
    .dw $FF01
    .db "j",0
    .dw VE_HEAD
    .set VE_HEAD = VE_J
XT_J:
    .dw DO_COLON
PFA_J:
    .dw XT_RP_FETCH
    .dw XT_DOLITERAL
    .dw 7
    .dw XT_PLUS
    .dw XT_FETCH
    .dw XT_RP_FETCH
    .dw XT_DOLITERAL
    .dw 9
    .dw XT_PLUS
    .dw XT_FETCH
    .dw XT_PLUS
    .dw XT_EXIT