aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/msp430/words/fill.asm
blob: 66e77400b8047db0fe2cd6f8b8cf198ed2dd9c0f (plain)
1
2
3
4
5
6
7
8
9
10
11
12
;C FILL   c-addr u char --  fill memory with char
        CODEHEADER(XT_FILL,4,"fill")
        MOV     @PSP+,X     ; count
        MOV     @PSP+,W     ; address
        CMP     #0,X
        JZ      FILL_X
FILL_1: MOV.B   TOS,0(W)    ; store char in memory
        ADD     #1,W
        SUB     #1,X
        JNZ     FILL_1
FILL_X: MOV     @PSP+,TOS   ; pop new TOS
        NEXT