! Copyright (C) 2011 Erik Charlebois.
! See http://factorcode.org/license.txt for BSD license.
-USING: kernel namespaces words math math.order locals math.bitwise io.binary make ;
+USING: endian kernel make math math.bitwise ;
IN: cpu.ppc.assembler
! This vocabulary implements the V2.06B Power ISA found at http://www.power.org.
! 2.4 Branch Instructions
GENERIC: B ( target_addr/label -- )
-M: integer B ( target_addr -- ) -2 shift 0 0 18 i-insn ;
+M: integer B -2 shift 0 0 18 i-insn ;
GENERIC: BL ( target_addr/label -- )
-M: integer BL ( target_addr -- ) -2 shift 0 1 18 i-insn ;
+M: integer BL -2 shift 0 1 18 i-insn ;
: BA ( target_addr -- ) -2 shift 1 0 18 i-insn ;
: BLA ( target_addr -- ) -2 shift 1 1 18 i-insn ;
GENERIC: BC ( bo bi target_addr/label -- )
-M: integer BC ( bo bi target_addr -- ) -2 shift 0 0 16 b-insn ;
+M: integer BC -2 shift 0 0 16 b-insn ;
: BCA ( bo bi target_addr -- ) -2 shift 1 0 16 b-insn ;
: BCL ( bo bi target_addr -- ) -2 shift 0 1 16 b-insn ;
: ISEL ( rt ra rb bc -- ) 15 0 31 a-insn ;
! 3.3.12 Fixed-Point Logical Instructions
-: ANDI. ( ra rs ui -- ) [ swap ] dip 28 d-insn ;
-: ANDIS. ( ra rs ui -- ) [ swap ] dip 29 d-insn ;
-: ORI ( ra rs ui -- ) [ swap ] dip 24 d-insn ;
-: ORIS ( ra rs ui -- ) [ swap ] dip 25 d-insn ;
-: XORI ( ra rs ui -- ) [ swap ] dip 26 d-insn ;
-: XORIS ( ra rs ui -- ) [ swap ] dip 27 d-insn ;
-: AND ( ra rs rb -- ) [ swap ] dip 28 0 31 x-insn ;
-: AND. ( ra rs rb -- ) [ swap ] dip 28 1 31 x-insn ;
-: OR ( ra rs rb -- ) [ swap ] dip 444 0 31 x-insn ;
-: OR. ( ra rs rb -- ) [ swap ] dip 444 1 31 x-insn ;
-: XOR ( ra rs rb -- ) [ swap ] dip 316 0 31 x-insn ;
-: XOR. ( ra rs rb -- ) [ swap ] dip 316 1 31 x-insn ;
-: NAND ( ra rs rb -- ) [ swap ] dip 476 0 31 x-insn ;
-: NAND. ( ra rs rb -- ) [ swap ] dip 476 1 31 x-insn ;
-: NOR ( ra rs rb -- ) [ swap ] dip 124 0 31 x-insn ;
-: NOR. ( ra rs rb -- ) [ swap ] dip 124 1 31 x-insn ;
-: ANDC ( ra rs rb -- ) [ swap ] dip 60 0 31 x-insn ;
-: ANDC. ( ra rs rb -- ) [ swap ] dip 60 1 31 x-insn ;
-: EQV ( ra rs rb -- ) [ swap ] dip 284 0 31 x-insn ;
-: EQV. ( ra rs rb -- ) [ swap ] dip 284 1 31 x-insn ;
-: ORC ( ra rs rb -- ) [ swap ] dip 412 0 31 x-insn ;
-: ORC. ( ra rs rb -- ) [ swap ] dip 412 1 31 x-insn ;
-: CMPB ( ra rs rb -- ) [ swap ] dip 508 0 31 x-insn ;
+: ANDI. ( ra rs ui -- ) swapd 28 d-insn ;
+: ANDIS. ( ra rs ui -- ) swapd 29 d-insn ;
+: ORI ( ra rs ui -- ) swapd 24 d-insn ;
+: ORIS ( ra rs ui -- ) swapd 25 d-insn ;
+: XORI ( ra rs ui -- ) swapd 26 d-insn ;
+: XORIS ( ra rs ui -- ) swapd 27 d-insn ;
+: AND ( ra rs rb -- ) swapd 28 0 31 x-insn ;
+: AND. ( ra rs rb -- ) swapd 28 1 31 x-insn ;
+: OR ( ra rs rb -- ) swapd 444 0 31 x-insn ;
+: OR. ( ra rs rb -- ) swapd 444 1 31 x-insn ;
+: XOR ( ra rs rb -- ) swapd 316 0 31 x-insn ;
+: XOR. ( ra rs rb -- ) swapd 316 1 31 x-insn ;
+: NAND ( ra rs rb -- ) swapd 476 0 31 x-insn ;
+: NAND. ( ra rs rb -- ) swapd 476 1 31 x-insn ;
+: NOR ( ra rs rb -- ) swapd 124 0 31 x-insn ;
+: NOR. ( ra rs rb -- ) swapd 124 1 31 x-insn ;
+: ANDC ( ra rs rb -- ) swapd 60 0 31 x-insn ;
+: ANDC. ( ra rs rb -- ) swapd 60 1 31 x-insn ;
+: EQV ( ra rs rb -- ) swapd 284 0 31 x-insn ;
+: EQV. ( ra rs rb -- ) swapd 284 1 31 x-insn ;
+: ORC ( ra rs rb -- ) swapd 412 0 31 x-insn ;
+: ORC. ( ra rs rb -- ) swapd 412 1 31 x-insn ;
+: CMPB ( ra rs rb -- ) swapd 508 0 31 x-insn ;
: EXTSB ( ra rs -- ) swap 0 954 0 31 x-insn ;
: EXTSB. ( ra rs -- ) swap 0 954 1 31 x-insn ;
: EXTSH ( ra rs -- ) swap 0 922 0 31 x-insn ;
: CNTLZD ( ra rs -- ) swap 0 58 0 31 x-insn ;
: CNTLZD. ( ra rs -- ) swap 0 58 1 31 x-insn ;
: POPCNTD ( ra rs -- ) swap 0 506 0 31 x-insn ;
-: BPERMD ( ra rs rb -- ) [ swap ] dip 252 0 31 x-insn ;
+: BPERMD ( ra rs rb -- ) swapd 252 0 31 x-insn ;
! 3.3.13.1 Fixed-Point Rotate and Shift Instructions
: RLWINM ( ra rs sh mb me -- ) [ swap ] 3dip 0 21 m-insn ;
tri* 3 swap 1 30 md-insn ;
! 3.3.13.2 Fixed-Point Shift Instructions
-: SLW ( ra rs rb -- ) [ swap ] dip 24 0 31 x-insn ;
-: SLW. ( ra rs rb -- ) [ swap ] dip 24 1 31 x-insn ;
-: SRW ( ra rs rb -- ) [ swap ] dip 536 0 31 x-insn ;
-: SRW. ( ra rs rb -- ) [ swap ] dip 536 1 31 x-insn ;
-: SRAWI ( ra rs sh -- ) [ swap ] dip 824 0 31 x-insn ;
-: SRAWI. ( ra rs sh -- ) [ swap ] dip 824 1 31 x-insn ;
-: SRAW ( ra rs rb -- ) [ swap ] dip 792 0 31 x-insn ;
-: SRAW. ( ra rs rb -- ) [ swap ] dip 792 1 31 x-insn ;
+: SLW ( ra rs rb -- ) swapd 24 0 31 x-insn ;
+: SLW. ( ra rs rb -- ) swapd 24 1 31 x-insn ;
+: SRW ( ra rs rb -- ) swapd 536 0 31 x-insn ;
+: SRW. ( ra rs rb -- ) swapd 536 1 31 x-insn ;
+: SRAWI ( ra rs sh -- ) swapd 824 0 31 x-insn ;
+: SRAWI. ( ra rs sh -- ) swapd 824 1 31 x-insn ;
+: SRAW ( ra rs rb -- ) swapd 792 0 31 x-insn ;
+: SRAW. ( ra rs rb -- ) swapd 792 1 31 x-insn ;
! 3.3.13.2.1 64-bit Fixed-Point Shift Instructions
-: SLD ( ra rs rb -- ) [ swap ] dip 27 0 31 x-insn ;
-: SLD. ( ra rs rb -- ) [ swap ] dip 27 1 31 x-insn ;
-: SRD ( ra rs rb -- ) [ swap ] dip 539 0 31 x-insn ;
-: SRD. ( ra rs rb -- ) [ swap ] dip 539 1 31 x-insn ;
-: SRAD ( ra rs rb -- ) [ swap ] dip 794 0 31 x-insn ;
-: SRAD. ( ra rs rb -- ) [ swap ] dip 794 1 31 x-insn ;
+: SLD ( ra rs rb -- ) swapd 27 0 31 x-insn ;
+: SLD. ( ra rs rb -- ) swapd 27 1 31 x-insn ;
+: SRD ( ra rs rb -- ) swapd 539 0 31 x-insn ;
+: SRD. ( ra rs rb -- ) swapd 539 1 31 x-insn ;
+: SRAD ( ra rs rb -- ) swapd 794 0 31 x-insn ;
+: SRAD. ( ra rs rb -- ) swapd 794 1 31 x-insn ;
: SRADI ( ra rs sh -- )
- [ swap ] dip [ 0x1f bitand ] [ -5 shift ] bi
+ swapd [ 0x1f bitand ] [ -5 shift ] bi
413 swap 0 31 xs-insn ;
: SRADI. ( ra rs sh -- )
- [ swap ] dip [ 0x1f bitand ] [ -5 shift ] bi
+ swapd [ 0x1f bitand ] [ -5 shift ] bi
413 swap 1 31 xs-insn ;
! 3.3.14 BCD Assist Instructions
: EFSCFD ( rt rb -- ) 0 swap 719 4 evx-insn ;
! 10.0 Legacy Move Assist Instruction
-: DLMZB ( ra rs rb -- ) [ swap ] dip 0 78 31 x-insn ; deprecated
-: DLMZB. ( ra rs rb -- ) [ swap ] dip 1 78 31 x-insn ; deprecated
+: DLMZB ( ra rs rb -- ) swapd 0 78 31 x-insn ; deprecated
+: DLMZB. ( ra rs rb -- ) swapd 1 78 31 x-insn ; deprecated
! 11.0 Legacy Integer Multiply-Accumulate Instructions
: MACCHW ( rt ra rb -- ) 0 172 0 4 xo-insn ; deprecated
: CLRLDI. ( ra rs n -- ) 0 swap RLDICL. ;
: CLRRDI ( ra rs n -- ) 0 swap 63 swap - RLDICR ;
: CLRRDI. ( ra rs n -- ) 0 swap 63 swap - RLDICR. ;
-: CLRLSLDI ( ra rs b n -- ) swap over - RLDIC ;
-: CLRLSLDI. ( ra rs b n -- ) swap over - RLDIC. ;
+: CLRLSLDI ( ra rs b n -- ) tuck - RLDIC ;
+: CLRLSLDI. ( ra rs b n -- ) tuck - RLDIC. ;
! E.7.2 Operations on Words
: EXTLWI ( ra rs n b -- ) swap 0 1 - RLWINM ;
projects / factor.git / blobdiff