Commit 0557450e authored by Anton Ertl's avatar Anton Ertl
Browse files

replaced ROT + SWAP with UNDER+, replaced other sequences with UNDER+ sequences

parent 9dfd83dc

arch/386/asm.fs

+1 −1
Original line number Diff line number Diff line
@@ -86,7 +86,7 @@ Variable .osize Variable .onow 


\ Extra-Werte compilieren                              01may95py

: bytes,  ( nr x n -- )

    0 ?DO  over 0< IF  +rel  swap 1+ swap  THEN  dup ,  $8 rshift

    0 ?DO  over 0< IF  +rel  1 under+  THEN  dup ,  $8 rshift

    LOOP   2drop ;

: opcode, ( opcode -- )

    .asize @ .anow @  <> IF  $67 ,  THEN

arch/386/ncex/ring.fs

+1 −1
Original line number Diff line number Diff line
@@ -118,7 +118,7 @@ S" Ring buffer index out of range!" exception constant RB-E-RANGE 
    ROT DROP 

  ELSE ( wrap around ) 			\ rb hp tp

    ROT @ 				\ hp tp length

    ROT + SWAP 				\ hp+l tp

    UNDER+ 				\ hp+l tp

  THEN 

  - ;

arch/amd64/asm.fs

+1 −1
Original line number Diff line number Diff line
@@ -95,7 +95,7 @@ Variable dquad? 
   

\ Extra-Werte compilieren                              01may95py

: bytes,  ( nr x n -- )

    0 ?DO  over 0< IF  +rel  swap 1+ swap  THEN  dup ,  $8 rshift

    0 ?DO  over 0< IF  +rel  1 under+  THEN  dup ,  $8 rshift

    LOOP   2drop ;

: rbytes, ( nr x n -- )

    >r here r@ + - r> bytes, ;

arch/amd64/disasm.fs

+2 −2
Original line number Diff line number Diff line
@@ -165,8 +165,8 @@ Create .disp ' noop , ' .8b , ' .32b , 
  cells .disp + perform  r> .[ .sib/reg .] ;

\ Register display                                     29may10py



: wcount ( addr -- addr' w ) dup uw@ >r 2 + r> ;

: wxcount ( addr -- addr' w ) dup sw@ >r 2 + r> ;

: wcount ( addr -- addr' w ) dup uw@ 2 under+ ;

: wxcount ( addr -- addr' w ) dup sw@ 2 under+ ;

: +8b  ( addr -- addr' )  count  .$bs ;

: +16b ( addr -- addr' )  wcount .$ds ;

arch/arm/asm.fs

+1 −1
Original line number Diff line number Diff line
@@ -37,7 +37,7 @@ HEX \ EVERYTHING BELOW IS IN HEXADECIMAL! 


\ Enumerations

: enumerate:  ( N start "name1" ... "nameN" -- )

   DUP ROT + SWAP ?DO   I CONSTANT  LOOP ;

   DUP UNDER+ ?DO   I CONSTANT  LOOP ;



\ operand types

6 70000000 enumerate: register shifted #immediate psr cxsf-mask offset