aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/words/key.asm
blob: 06a4b474ba0908019e35275379de2870aa6ec4bc (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
; ( -- c ) 
; Character IO
; fetch key vector and execute it, should leave a single character on TOS

.if cpu_msp430==1
    DEFER(XT_KEY,3,"key")
.endif

.if cpu_avr8==1
VE_KEY:
    .dw $ff03
    .db "key",0
    .dw VE_HEAD
    .set VE_HEAD = VE_KEY
XT_KEY:
    .dw PFA_DODEFER1
PFA_KEY:
.endif
    .dw USER_KEY
    .dw XT_UDEFERFETCH
    .dw XT_UDEFERSTORE