aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/1ms.asm
blob: f23951dd2c109c2681ed53cf3d3cb477d20d6d3b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
; ( -- )
; Time
; busy waits (almost) exactly 1 millisecond
VE_1MS:
    .dw $ff03
    .db "1ms",0
    .dw VE_HEAD
    .set VE_HEAD = VE_1MS
XT_1MS:
    .dw PFA_1MS
PFA_1MS:
    delay 1000
    jmp_ DO_NEXT