aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/words/ver.asm
blob: 3e0105a8b3804a810fd833ad560eb7fd64c0224e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
; ( -- ) 
; Tools
; print the version string

.if cpu_msp430==1
   HEADER(XT_DOT_VER,3,"ver",DOCOLON)
.endif

.if cpu_avr8==1
VE_DOT_VER:
    .dw $ff03
    .db "ver"
    .dw VE_HEAD
    .set VE_HEAD = VE_DOT_VER
XT_DOT_VER:
    .dw DO_COLON
PFA_DOT_VER:
.endif
    .dw XT_ENV_FORTHNAME
    .dw XT_ITYPE
    .dw XT_SPACE
    .dw XT_BASE
    .dw XT_FETCH

    .dw XT_ENV_FORTHVERSION
    .dw XT_DECIMAL
    .dw XT_S2D
    .dw XT_L_SHARP
    .dw XT_SHARP
    .dw XT_DOLITERAL
    .dw '.'
    .dw XT_HOLD
    .dw XT_SHARP_S
    .dw XT_SHARP_G
    .dw XT_TYPE
    .dw XT_BASE
    .dw XT_STORE
    .dw XT_SPACE
    .dw XT_ENV_CPU
    .dw XT_ITYPE

    .dw XT_EXIT