[BACK]Return to asm.fs CVS log [TXT] [DIR] Up to [gforth] / gforth / arch / r8c

Diff for /gforth/arch/r8c/asm.fs between versions 1.8 and 1.9

version 1.8, 2006/02/26 20:16:10 version 1.9, 2006/03/04 20:11:14
Line 35  require asm/target.fs Line 35  require asm/target.fs
       VARIABLE <S-OPND>        VARIABLE <S-OPND>
       VARIABLE <D-OPND>        VARIABLE <D-OPND>
   
 \ for tests only                             hfs 07:47 04/24/92  
   
  : 2hex. dup base @ >r  hex 0 <# # # #> type bl emit r> base ! ;  
  : 4hex. dup base @ >r  hex 0 <# # # # # #> type bl emit r> base ! ;  
  : hfs cr ." hurah" ;  
  : opc. <OPC> 4 dump ;  
  : m. <M> c@ 2hex. <M> 1+ c@ 2hex. ;  
 \ for tests only  
   
  : ssave SP@ SSP ! ;   : ssave SP@ SSP ! ;
   
  : RESET       ( clears all variables )   : RESET       ( clears all variables )
Line 67  require asm/target.fs Line 58  require asm/target.fs
    DUP -$80   $7F   WITHIN ;     DUP -$80   $7F   WITHIN ;
  : >8B?  ( n -- n f ) 8B? 0= ;   : >8B?  ( n -- n f ) 8B? 0= ;
   
    $07    CONSTANT abs3  
  : abs3?  ( n -- n f ) DUP abs3 u< ;  
  : >abs3? ( n -- n f ) abs3? 0= ;  
   
    $0ff   CONSTANT abs8     $0ff   CONSTANT abs8
  : abs8?  ( n -- n f ) DUP abs8 u< ;   : abs8?  ( n -- n f ) DUP abs8 u< ;
  : >abs8? ( n -- n f ) abs8? 0= ;   : >abs8? ( n -- n f ) abs8? 0= ;
Line 87  require asm/target.fs Line 74  require asm/target.fs
   
 \ address-modes hfs  \ address-modes hfs
   
  %0000 0 M: R0    ' R0 alias R0L ' R0  alias C   %0000 0 M: R0    ' R0 alias R0L  ' R0 alias R2R0  ' R0  alias C
  %0001 0 M: R1    ' R1 alias R0H ' R1  alias D   %0001 0 M: R1    ' R1 alias R0H  ' R1 alias R3R1  ' R1  alias D
  %0010 0 M: R2    ' R2 alias R1L ' R2  alias Z   %0010 0 M: R2    ' R2 alias R1L                   ' R2  alias Z
  %0011 0 M: R3    ' R3 alias R1H ' R3  alias S   %0011 0 M: R3    ' R3 alias R1H                   ' R3  alias S
  %0100 0 M: A0                   ' A0  alias B   %0100 0 M: A0                    ' A0 alias A1A0  ' A0  alias B
  %0101 0 M: A1                   ' A1  alias O   %0101 0 M: A1                                     ' A1  alias O
  %0110 0 M: [A0]                ' [A0] alias I   %0110 0 M: [A0]                                  ' [A0] alias I
  %0111 0 M: [A1]                ' [A1] alias U   %0111 0 M: [A1]                                  ' [A1] alias U
  %1010 0 M: [SB]   %1010 0 M: [SB]
  %1011 0 M: [FB]   %1011 0 M: [FB]
  %1111 0 M: abs:16   %1111 0 M: abs:16
Line 218  require asm/target.fs Line 205  require asm/target.fs
   
  : ,ctrl     <M> 1+ C@ $0F and 4 lshift   : ,ctrl     <M> 1+ C@ $0F and 4 lshift
              <M> 1+ C@ $F0 and 4 rshift OR %10000000 or <M> 1+ C! ;               <M> 1+ C@ $F0 and 4 rshift OR %10000000 or <M> 1+ C! ;
   
  : rh1,      <OPC> 2 + c@ <OPC> c!  
              <OPC> 3 + c@ $F0 and <M> 1+ c@ $0F and or  <M> 1+ c! ;  
 \ ----------------------------------------------------------------------------------------------  \ ----------------------------------------------------------------------------------------------
 \ ----------------------------------------------------------------------------------------------  \ ----------------------------------------------------------------------------------------------
  : GROUP1.B: CREATE C,              ( opc  -- )   : GROUP.1B: CREATE C,                 ( opc  -- )
              DOES>  c@ X C,               DOES> c@ X C,
              opnd?  
              IF >8B?  ABORT" displacement > 8 Bit" X C,  THEN  
              RESET ;               RESET ;
  %01101000 GROUP1.B: JGEU ' JGEU alias JC   %00000100 GROUP.1B: nop
  %01101001 GROUP1.B: JGTU  \ ----------------------------------------------------------------------------------------------
  %01101010 GROUP1.B: JEQ  ' JEQ  alias JZ   : GROUP.1B.l8: CREATE C,              ( opc  -- )
  %01101011 GROUP1.B: JN               DOES> c@ X C,
  %01101100 GROUP1.B: JLTU ' JLTU alias JNC               opnd? 0= ABORT" label expected"
  %01101101 GROUP1.B: JLEU               >8B?  ABORT" label > 8 Bit" X C,
  %01101110 GROUP1.B: JNE  ' JNE  alias JNZ               RESET ;
  %01101111 GROUP1.B: JPZ   %01101000 GROUP.1B.l8: JGEU ' JGEU alias JC
  %11111110 GROUP1.B: JMP.B   %01101001 GROUP.1B.l8: JGTU
 \ ----------------------------------------------------------------------------------------------   %01101010 GROUP.1B.l8: JEQ  ' JEQ  alias JZ
  : GROUP1.W: CREATE C,              ( opc  -- )   %01101011 GROUP.1B.l8: JN
              DOES>  c@ X C,   %01101100 GROUP.1B.l8: JLTU ' JLTU alias JNC
              opnd?   %01101101 GROUP.1B.l8: JLEU
              IF X , THEN   %01101110 GROUP.1B.l8: JNE  ' JNE  alias JNZ
    %01101111 GROUP.1B.l8: JPZ
    %11111110 GROUP.1B.l8: JMP.B
   \ ----------------------------------------------------------------------------------------------
    : GROUP.1B.l16: CREATE C,              ( opc  -- )
                DOES> c@ X C,
                opnd? 0= ABORT" label expected"
                X ,
                RESET ;
    %11110100 GROUP.1B.l16: JMP.W
   \ ----------------------------------------------------------------------------------------------
    : GROUP.2B: CREATE C, C,           ( opc opc  -- )
                DOES>  dup c@ X C, 1+ c@ X C,
              RESET ;               RESET ;
  %11110100 GROUP1.W: JMP.W   %11101001 %01111100 GROUP.2B: smovb.b
    %11101000 %01111100 GROUP.2B: smovf.b
    %11101010 %01111100 GROUP.2B: sstr.b
   
    %11101001 %01111101 GROUP.2B: smovb.w
    %11101000 %01111101 GROUP.2B: smovf.w
    %11101010 %01111101 GROUP.2B: sstr.w
 \ ----------------------------------------------------------------------------------------------  \ ----------------------------------------------------------------------------------------------
  : GROUP2.B: CREATE C, C,           ( opc opc  -- )   : GROUP.2B.l8: CREATE C, C,         ( opc opc  -- )
              DOES>  dup c@ X C, 1+ c@ X C,               DOES>  dup c@ X C, 1+ c@ X C,
              opnd?               opnd? 0= ABORT" label expected"
              IF >8B?  ABORT" displacement > 8 Bit" X C, THEN               >8B?  ABORT" label > 8 Bit" X C,
              RESET ;               RESET ;
  %11001000 %01111101 GROUP2.B: JLE   %11001000 %01111101 GROUP.2B.l8: JLE
  %11001001 %01111101 GROUP2.B: JO   %11001001 %01111101 GROUP.2B.l8: JO
  %11001010 %01111101 GROUP2.B: JGE   %11001010 %01111101 GROUP.2B.l8: JGE
  %11001100 %01111101 GROUP2.B: JGT   %11001100 %01111101 GROUP.2B.l8: JGT
  %11001101 %01111101 GROUP2.B: JNO   %11001101 %01111101 GROUP.2B.l8: JNO
  %11001110 %01111101 GROUP2.B: JLT   %11001110 %01111101 GROUP.2B.l8: JLT
 \ ----------------------------------------------------------------------------------------------  \ ----------------------------------------------------------------------------------------------
  : GROUP2.F: CREATE C, C,           ( opc opc  -- )   : GROUP.2B.F: CREATE C, C,           ( opc opc  -- )
              DOES>   dup c@ X C, 1+ c@ <M> 1+ C@ or X C,               DOES>   dup c@ X C, 1+ c@ <M> 1+ C@ or X C,
              RESET ;               RESET ;
  %00000101 %11101011 GROUP2.F: FCLR   %00000101 %11101011 GROUP.2B.F: FCLR
  %00000100 %11101011 GROUP2.F: FSET   %00000100 %11101011 GROUP.2B.F: FSET
 \ ----------------------------------------------------------------------------------------------  \ ----------------------------------------------------------------------------------------------
  : ctrl,R    opnd? <d-opnd> !   : ctrl,R    opnd? <d-opnd> !
              ctrl,               ctrl,
Line 276  require asm/target.fs Line 276  require asm/target.fs
  : ctrl,[SB] opnd? <d-opnd> !   : ctrl,[SB] opnd? <d-opnd> !
              ctrl, ,[SB]               ctrl, ,[SB]
              >opc OPC,               >opc OPC,
              d-opnd?  
              IF >abs8? IF %1110 <M> 1+ C@ $F0 AND OR <M> 1+ C! THEN  
              ELSE ." displacement expected" ABORT THEN  
              abs8? IF X C, ELSE X , THEN ;               abs8? IF X C, ELSE X , THEN ;
   
  : ctrl,[FB] opnd? <d-opnd> !   : ctrl,[FB] opnd? <d-opnd> !
              ctrl, ,[An]               ctrl, ,[FB]
              >opc OPC,               >opc OPC,
              d-opnd?               >8B? ABORT" displacement > 8 Bit"
              IF >8B? ABORT" displacement > 8 Bit"  
              ELSE ." displacement expected" ABORT THEN  
              X C, ;               X C, ;
   
  : ctrl,abs:16 opnd? <d-opnd> !   : ctrl,abs:16 opnd? <d-opnd> !
              ctrl, ,abs:16               ctrl, ,abs:16
              >opc OPC,               >opc OPC,
              d-opnd?  
              0= ABORT" operand expected"  
              X , ;               X , ;
   
  Table: st-control-reg   Table: st-control-reg
Line 366  require asm/target.fs Line 359  require asm/target.fs
              X C, ;               X C, ;
   
  : #,ctrl    #, ,ctrl   : #,ctrl    #, ,ctrl
              <M> 1+ C@ %01111111 and <M> 1+ C!               <M> 1+ C@ %01110000 and <M> 1+ C!
              >opc OPC,               >opc OPC,
              X , ;               X , ;
   
Line 421  require asm/target.fs Line 414  require asm/target.fs
   
 \ ----------------------------------------------------------------------------------------------  \ ----------------------------------------------------------------------------------------------
  : (R)    <OPC> 1+ c@ <M> 1+ c@ 4 rshift or <M> 1+ c!   : (R)    <OPC> 1+ c@ <M> 1+ c@ 4 rshift or <M> 1+ c!
           >opc OPC,            >opc OPC, ;
           opnd? IF 8B? IF X C, ELSE X , THEN THEN ;  
   
   
  : ([An]) <OPC> 1+ c@ <M> 1+ c@ 4 rshift or <M> 1+ c!   : ([An]) <OPC> 1+ c@ <M> 1+ c@ 4 rshift or <M> 1+ c!
Line 442  require asm/target.fs Line 434  require asm/target.fs
            <opc> c@ %01111101 = <opc> 1+ c@ %00101101 = and   \ $12345 [a1] jmpi.w             <opc> c@ %01111101 = <opc> 1+ c@ %00101101 = and   \ $12345 [a1] jmpi.w
            or             or
            IF   opnd? IF 8B? IF X C, ELSE ta, THEN THEN             IF   opnd? IF 8B? IF X C, ELSE ta, THEN THEN
            ELSE opnd? IF 8B? IF X C, ELSE X ,  THEN THEN THEN ;             ELSE opnd? IF 8B? IF X C, ELSE X , THEN THEN THEN ;
   
  : ([SB])  <OPC> 1+ c@ <M> 1+ c@ 4 rshift or <M> 1+ c!   : ([SB])  <OPC> 1+ c@ <M> 1+ c@ 4 rshift or <M> 1+ c!
            opnd?             opnd? <d-opnd> !
            IF >abs8? IF %1110 <M> 1+ C@ $F0 AND OR <M> 1+ C! THEN             ,[SB]
            ELSE ." displacement expected" ABORT THEN  
            >opc OPC,             >opc OPC,
            8B? IF X C, ELSE X , THEN ;             8B? IF X C, ELSE X , THEN ;
   
  : ([FB])  <OPC> 1+ c@ <M> 1+ c@ 4 rshift or <M> 1+ c!   : ([FB])  <OPC> 1+ c@ <M> 1+ c@ 4 rshift or <M> 1+ c!
            opnd?             opnd? <d-opnd> !
            IF >8B? ABORT" displacement > 8 Bit"             ,[FB]
            ELSE ." displacement expected" ABORT THEN  
            >opc OPC,             >opc OPC,
            X C, ;             X C, ;
   
  : (abs:16) <OPC> 1+ c@ <M> 1+ c@ 4 rshift or <M> 1+ c!   : (abs:16) <OPC> 1+ c@ <M> 1+ c@ 4 rshift or <M> 1+ c!
            opnd? 0= ABORT" operand expected"             opnd? <d-opnd> !
              ,abs:16
            >opc OPC,             >opc OPC,
            X , ;             X , ;
   
Line 526  require asm/target.fs Line 517  require asm/target.fs
  : q#,[sb]   opnd? <d-opnd> !   : q#,[sb]   opnd? <d-opnd> !
              q#, ,[sb]               q#, ,[sb]
              >opc OPC,               >opc OPC,
              d-opnd?  
              IF >abs8? IF %1110 <M> 1+ C@ $F0 AND OR <M> 1+ C! THEN  
              ELSE ." displacement expected" ABORT THEN  
              abs8? IF X C, ELSE X , THEN ;               abs8? IF X C, ELSE X , THEN ;
   
  : q#,[fb]   opnd? <d-opnd> !   : q#,[fb]   opnd? <d-opnd> !
              q#, ,[fb]               q#, ,[fb]
              >opc OPC,               >opc OPC,
              d-opnd?  
              IF >8B? ABORT" displacement > 8 Bit"  
              ELSE ." displacement expected" ABORT THEN  
              X C, ;               X C, ;
   
  : q#,abs:16 opnd? <d-opnd> !   : q#,abs:16 opnd? <d-opnd> !
              q#, ,abs:16               q#, ,abs:16
              >opc OPC,               >opc OPC,
              d-opnd?  
              0= ABORT" operand expected"  
              X , ;               X , ;
  Table: quick   Table: quick
         #   , R0     ' q#,R TAB,        #   , R1     ' q#,R TAB,          #   , R0     ' q#,R TAB,        #   , R1     ' q#,R TAB,
Line 881  require asm/target.fs Line 864  require asm/target.fs
  generic %00010000 %01110111  %11111111 %10001001 GROUP4: xor.w   generic %00010000 %01110111  %11111111 %10001001 GROUP4: xor.w
   
 \ ----------------------------------------------------------------------------------------------  \ ----------------------------------------------------------------------------------------------
  : R1H,R      rh1, r,r ;   : r1h,      <OPC> 1 + c@ $F0 and <M> 1+ c@ $0F and or <M> 1+ c! ;
   
  : R1H,[An]   rh1, r,[An] ;   : R1H,R      r1h, r,r ;
   
  : R1H,[SB]   rh1, r,[SB] ;   : R1H,[An]   r1h, r,[An] ;
   
  : R1H,[FB]   rh1, r,[FB] ;   : R1H,[SB]   r1h, r,[SB] ;
   
  : R1H,abs:16 rh1, r,abs:16 ;   : R1H,[FB]   r1h, r,[FB] ;
   
    : R1H,abs:16 r1h, r,abs:16 ;
   
   \ ----------------------------------------------------------------------------------------------
    : rot#        CASE
                    1 of $00 endof
                    2 of $10 endof
                    3 of $20 endof
                    4 of $30 endof
                    5 of $40 endof
                    6 of $50 endof
                    7 of $60 endof
                    8 of $70 endof
                   -1 of $80 endof
                   -2 of $90 endof
                   -3 of $A0 endof
                   -4 of $B0 endof
                   -5 of $C0 endof
                   -6 of $D0 endof
                   -7 of $E0 endof
                   -8 of $F0 endof
                   abort
                  ENDCASE ;
   
    : rot#,       s-opnd? 0= ABORT" operand expected"
                  <OPC> 2 + c@ <OPC> c!
                  s-opnd? d-opnd? and IF swap THEN
                  rot# <M> 1+ c@ $0F and or <M> 1+ c! ;
   
    : rot#,R      rot#,
                  >opc OPC, ;
   
    : rot#,[An]   opnd? <d-opnd> !
                  rot#, ,[An]
                  >opc OPC,
                  d-opnd?
                  IF abs8? IF X C, ELSE X , THEN THEN ;
   
    : rot#,[SB]   opnd? <d-opnd> !
                  rot#, ,[SB]
                  >opc OPC,
                  abs8? IF X C, ELSE X , THEN ;
   
    : rot#,[FB]   opnd? <d-opnd> !
                  rot#, ,[FB]
                  >opc OPC,
                  >8B? ABORT" displacement > 8 Bit"
                  X C, ;
   
    : rot#,abs:16 opnd? <d-opnd> !
                  rot#, ,abs:16
                  >opc OPC,
                  X , ;
   
  Table: r1h-group   Table: rot-group
          R1H , R0L    '  R1H,R TAB,          R1H , R0H    ' R1H,R TAB,           R1H , R0L    '  R1H,R TAB,          R1H , R0H    ' R1H,R TAB,
          R1H , R1L    '  R1H,R TAB,          R1H , R3     ' R1H,R TAB,           R1H , R1L    '  R1H,R TAB,          R1H , R3     ' R1H,R TAB,
          R1H , A0     '  R1H,R TAB,          R1H , A1     ' R1H,R TAB,           R1H , A0     '  R1H,R TAB,          R1H , A1     ' R1H,R TAB,
          R1H , [A0]   '  R1H,[An] TAB,       R1H , [A1]   ' R1H,[An] TAB,           R1H , [A0]   '  R1H,[An] TAB,       R1H , [A1]   ' R1H,[An] TAB,
          R1H , [SB]   '  R1H,[SB] TAB,       R1H , [FB]   ' R1H,[FB] TAB,           R1H , [SB]   '  R1H,[SB] TAB,       R1H , [FB]   ' R1H,[FB] TAB,
          R1H , abs:16 '  R1H,abs:16 TAB,           R1H , abs:16 '  R1H,abs:16 TAB,
              # , R0L    ' rot#,R TAB,            # , R0H    ' rot#,R TAB,
              # , R1L    ' rot#,R TAB,            # , R3     ' rot#,R TAB,
              # , A0     ' rot#,R TAB,            # , A1     ' rot#,R TAB,
              # , [A0]   ' rot#,[An] TAB,         # , [A1]   ' rot#,[An] TAB,
              # , [SB]   ' rot#,[SB] TAB,         # , [FB]   ' rot#,[FB] TAB,
              # , abs:16 ' rot#,abs:16 TAB,
  ;TABLE   ;TABLE
   
  r1h-group %11101111 %01110101 %11101111 %01110101 GROUP4: shl.w   rot-group %00001111 %11100001 %01101111 %01110101 GROUP4: rot.w
  r1h-group %11111111 %01110101 %11111111 %01110101 GROUP4: sha.w   rot-group %00001111 %11101001 %11101111 %01110101 GROUP4: shl.w
    rot-group %00001111 %11110001 %11111111 %01110101 GROUP4: sha.w
  r1h-group %11101111 %01110100 %11101111 %01110100 GROUP4: shl.b  
  r1h-group %11111111 %01110100 %11111111 %01110100 GROUP4: sha.b   rot-group %00001111 %11100000 %01101111 %01110100 GROUP4: rot.b
    rot-group %00001111 %11101000 %11101111 %01110100 GROUP4: shl.b
 \ to do hfs   rot-group %00001111 %11110000 %11111111 %01110100 GROUP4: sha.b
 \   #      %00000000 %11100001 GROUP2: rot.w  
 \   #      %00000000 %11110001 GROUP2: sha.w  
 \   #      %00000000 %11101001 GROUP2: shl.w  
 \   #      %00000000 %11100000 GROUP2: rot.b  
 \   #      %00000000 %11110000 GROUP2: sha.b  
 \   #      %00000000 %11101000 GROUP2: shl.b  
   
 \ ----------------------------------------------------------------------------------------------  \ ----------------------------------------------------------------------------------------------
  ' noop alias bit   ' noop alias bit
Line 925  require asm/target.fs Line 961  require asm/target.fs
               %00000111 and                %00000111 and
               X c, ;                X c, ;
   
  : bit,[An]   bit, ." geht noch nicht" abort ,[An] ;   : bit[An]    <OPC> 1+ c@ $F0 AND <M> 1+ c@ 4 rshift or <M> 1+ c!
                 <M> 1+ C@ $0F AND
                 CASE
                 %0110 of opnd?  \ [A0]
                          IF abs8? IF %1000 ELSE %1100 THEN
                          <M> 1+ C@ $F0 AND OR <M> 1+ C! THEN
                       endof
                 %0111 of opnd?  \ [A1]
                          IF abs8? IF %1001 ELSE %1101 THEN
                          <M> 1+ C@ $F0 AND OR <M> 1+ C! THEN
                       endof
                 ENDCASE
                 >opc OPC,
                 opnd?
                 IF abs8? IF X C, ELSE X , THEN THEN ;
   
  : bit,[SB]   bit, ." geht noch nicht" abort ,[SB] ;   : bit,[SB]   opnd? <d-opnd> !
                 bit, ,[SB]
                 3 lshift swap %00000111 and or
                 >abs8? IF %1110 <M> 1+ C@ $F0 AND OR <M> 1+ C! THEN
                 >opc OPC,
                 abs8? IF X C, ELSE X , THEN ;
   
  : bit,[FB]   bit, ." geht noch nicht" abort ,[FB] ;   : bit,[FB]   opnd? <d-opnd> !
                 bit, ,[FB]
                 >opc OPC,
                 3 lshift swap %00000111 and or
                 >8B? ABORT" displacement > 8 Bit"
                 X C, ;
   
  : bit,abs:16 opnd? <d-opnd> !   : bit,abs:16 opnd? <d-opnd> !
               bit, ,abs:16                bit, ,abs:16
Line 941  require asm/target.fs Line 1001  require asm/target.fs
          bit , R0     '  bit,R TAB,          bit , R1     ' bit,R TAB,           bit , R0     '  bit,R TAB,          bit , R1     ' bit,R TAB,
          bit , R2     '  bit,R TAB,          bit , R3     ' bit,R TAB,           bit , R2     '  bit,R TAB,          bit , R3     ' bit,R TAB,
          bit , A0     '  bit,R TAB,          bit , A1     ' bit,R TAB,           bit , A0     '  bit,R TAB,          bit , A1     ' bit,R TAB,
          bit , [A0]   '  bit,[An] TAB,       bit , [A1]   ' bit,[An] TAB,                 [A0]   '   bit[An] TAB,             [A1]   '  bit[An] TAB,
          bit , [SB]   '  bit,[SB] TAB,       bit , [FB]   ' bit,[FB] TAB,           bit , [SB]   '  bit,[SB] TAB,       bit , [FB]   ' bit,[FB] TAB,
          bit , abs:16 '  bit,abs:16 TAB,           bit , abs:16 '  bit,abs:16 TAB,
  ;TABLE   ;TABLE
   
  bit-group %01001111 %01111110 GROUP2: band   bit-group %01001111 %01111110 GROUP2: band
  bit-group %10001111 %01111110 GROUP2: bclr   bit-group %10001111 %01111110 GROUP2: bclr:g
  bit-group %01011111 %01111110 GROUP2: bnand   bit-group %01011111 %01111110 GROUP2: bnand
  bit-group %01111111 %01111110 GROUP2: bnor   bit-group %01111111 %01111110 GROUP2: bnor
  bit-group %10101111 %01111110 GROUP2: bnot   bit-group %10101111 %01111110 GROUP2: bnot:g
  bit-group %00111111 %01111110 GROUP2: bntst   bit-group %00111111 %01111110 GROUP2: bntst
  bit-group %11011111 %01111110 GROUP2: bnxor   bit-group %11011111 %01111110 GROUP2: bnxor
  bit-group %01101111 %01111110 GROUP2: bor   bit-group %01101111 %01111110 GROUP2: bor
  bit-group %10011111 %01111110 GROUP2: bset   bit-group %10011111 %01111110 GROUP2: bset:g
  bit-group %10111111 %01111110 GROUP2: btst   bit-group %10111111 %01111110 GROUP2: btst:g
  bit-group %00001111 %01111110 GROUP2: btstc   bit-group %00001111 %01111110 GROUP2: btstc
  bit-group %00011111 %01111110 GROUP2: btsts   bit-group %00011111 %01111110 GROUP2: btsts
  bit-group %11001111 %01111110 GROUP2: bxor   bit-group %11001111 %01111110 GROUP2: bxor
Line 967  require asm/target.fs Line 1027  require asm/target.fs
   ' A0 Alias w    ' A0 Alias w
   ' [A1] Alias [ip]    ' [A1] Alias [ip]
   ' [A0] Alias [w]    ' [A0] Alias [w]
   
 \ ----------------------------------------------------------------------------------------------  \ ----------------------------------------------------------------------------------------------
   
          $68 Constant u<           $68 Constant u<
Removed from v.1.8  
changed lines
  Added in v.1.9

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>