aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/words/spaces.asm
blob: 7ecbcd8788b7b19b84d50688343ad18e2b821ee1 (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
; ( n -- ) 
; Character IO
; emits n space(s) (bl)

.if cpu_msp430==1
    HEADER(XT_SPACES,6,"spaces",DOCOLON)
.endif

.if cpu_avr8==1
VE_SPACES:
    .dw $ff06
    .db "spaces"
    .dw VE_HEAD
    .set VE_HEAD = VE_SPACES
XT_SPACES:
    .dw DO_COLON
PFA_SPACES:

.endif
;C SPACES   n --            output n spaces
;   BEGIN DUP 0> WHILE SPACE 1- REPEAT DROP ;
	.DW XT_ZERO, XT_MAX
SPCS1:  .DW XT_DUP,XT_DOCONDBRANCH
        DEST(SPCS2)
        .DW XT_SPACE,XT_1MINUS,XT_DOBRANCH
        DEST(SPCS1)
SPCS2:  .DW XT_DROP,XT_EXIT