aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/words/const-fold-depth.asm
blob: 40b80eb62dacf1820e8d2cc96bf9f62a3a85232b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
; ( flagset -- n )  
; Tools
; constant fold depth
VE_CONSTFOLDDEPTH:
    .dw $ff0a
    .db "cfolddepth"
    .dw VE_HEAD
    .set VE_HEAD = VE_CONSTFOLDDEPTH
XT_CONSTFOLDDEPTH:
    .dw DO_COLON
PFA_CONSTFOLDDEPTH:
    .dw XT_DOLITERAL
    .dw $7000
    .dw XT_AND
    .dw XT_DOLITERAL
    .dw 12
    .dw XT_RSHIFT
    .dw XT_EXIT