Return to dotx.fs CVS log

Up to [gforth] / gforth / ec

Annotation of gforth/ec/dotx.fs, revision 1.1

1.1     ! pazsan      1: 
        !             2: 
        !             3: \ for 16 bit machines only
        !             4: 
        !             5: [IFUNDEF] 8>>
        !             6: : 8>> 8 rshift ;
        !             7: [THEN]
        !             8: 
        !             9: : .digit
        !            10:   $0f and
        !            11:    dup 9 u>
        !            12:    IF   
        !            13:         [ char A char 9 - 1- ] Literal +
        !            14:    THEN 
        !            15:   '0 + (emit) ;
        !            16: 
        !            17: : .w
        !            18:        dup 8>> 2/ 2/ 2/ 2/ .digit
        !            19:        dup 8>> .digit
        !            20:        dup 2/ 2/ 2/ 2/ .digit
        !            21:        .digit ;
        !            22: 
        !            23: : .x   
        !            24:        dup 8>> 8>> .w .w $20 (emit) ;
        !            25: 
        !            26: \ !! depth reibauen
        !            27: 
        !            28: : .sx
        !            29:   \ SP@ SP0 @ swap - 2/ 
        !            30:   depth
        !            31:   dup '< emit .x '> emit dup
        !            32:   0 ?DO dup pick .x 1- LOOP drop ;