Byte8.inc

Переключить прокрутку окна
Загрузить этот исходный код

;
 ;  Исходный код среды исполнения ПВТ-ОО.
 ;
 ;  Этот исходный код является частью проекта ПВТ-ОО.
 ;
 ;  Copyright © 2021 Малик Разработчик
 ;
 ;  Это свободная программа: вы можете перераспространять её и/или
 ;  изменять её на условиях Меньшей Стандартной общественной лицензии GNU в том виде,
 ;  в каком она была опубликована Фондом свободного программного обеспечения;
 ;  либо версии 3 лицензии, либо (по вашему выбору) любой более поздней версии.
 ;
 ;  Эта программа распространяется в надежде, что она может быть полезна,
 ;  но БЕЗО ВСЯКИХ ГАРАНТИЙ; даже без неявной гарантии ТОВАРНОГО ВИДА
 ;  или ПРИГОДНОСТИ ДЛЯ ОПРЕДЕЛЁННЫХ ЦЕЛЕЙ. Подробнее см. в Меньшей Стандартной
 ;  общественной лицензии GNU.
 ;
 ;  Вы должны были получить копию Меньшей Стандартной общественной лицензии GNU
 ;  вместе с этой программой. Если это не так, см.
 ;  <http://www.gnu.org/licenses/>.
;

; <fold avt.lang.Byte8 (natives)>

    method avt.lang.Byte8$max$byte8$byte8$, \
                value0, byte8, \
                value1, byte8  ; returns byte8 <fold >
                menter
                lverify value0, TAG_BYTE8
                lverify value1, TAG_BYTE8
                vmovq   xmm0, [.value0]
                vmovq   xmm1, [.value1]
                vpmaxsb xmm0, xmm0, xmm1
                call    inst$b8push
                mleavex
                eleave
    ; </fold>

    method avt.lang.Byte8$maxUnsigned$byte8$byte8$, \
                value0, byte8, \
                value1, byte8  ; returns byte8 <fold >
                menter
                lverify value0, TAG_BYTE8
                lverify value1, TAG_BYTE8
                vmovq   xmm0, [.value0]
                vmovq   xmm1, [.value1]
                vpmaxub xmm0, xmm0, xmm1
                call    inst$b8push
                mleavex
                eleave
    ; </fold>

    method avt.lang.Byte8$min$byte8$byte8$, \
                value0, byte8, \
                value1, byte8  ; returns byte8 <fold >
                menter
                lverify value0, TAG_BYTE8
                lverify value1, TAG_BYTE8
                vmovq   xmm0, [.value0]
                vmovq   xmm1, [.value1]
                vpminsb xmm0, xmm0, xmm1
                call    inst$b8push
                mleavex
                eleave
    ; </fold>

    method avt.lang.Byte8$minUnsigned$byte8$byte8$, \
                value0, byte8, \
                value1, byte8  ; returns byte8 <fold >
                menter
                lverify value0, TAG_BYTE8
                lverify value1, TAG_BYTE8
                vmovq   xmm0, [.value0]
                vmovq   xmm1, [.value1]
                vpminub xmm0, xmm0, xmm1
                call    inst$b8push
                mleavex
                eleave
    ; </fold>

    method avt.lang.Byte8$rotateLeft$byte8$int$, \
                value, byte8, \
                bits, int  ; returns byte8 <fold >
                menter
                lverify value, TAG_BYTE8
                lverify bits, TAG_INT
                mov     r1d, [.bits]
                and     r1d, $07
                mov     r2d, $08
                sub     r2d, r1d
                vmovq   xmm3, [.value]
                vmovd   xmm2, r2d
                vmovd   xmm1, r1d
                vpmovzxbw xmm3, xmm3
                vpsllw  xmm0, xmm3, xmm1
                vpsrlw  xmm3, xmm3, xmm2
                vpor    xmm0, xmm0, xmm3
                vpand   xmm0, xmm0, [s8.00]
                vpxor   xmm3, xmm0, xmm0
                vpackuswb xmm0, xmm0, xmm3
                call    inst$b8push
                mleavex
                eleave
    ; </fold>

    method avt.lang.Byte8$rotateRight$byte8$int$, \
                value, byte8, \
                bits, int  ; returns byte8 <fold >
                menter
                lverify value, TAG_BYTE8
                lverify bits, TAG_INT
                mov     r1d, [.bits]
                and     r1d, $07
                mov     r2d, $08
                sub     r2d, r1d
                vmovq   xmm3, [.value]
                vmovd   xmm2, r2d
                vmovd   xmm1, r1d
                vpmovzxbw xmm3, xmm3
                vpsrlw  xmm0, xmm3, xmm1
                vpsllw  xmm3, xmm3, xmm2
                vpor    xmm0, xmm0, xmm3
                vpand   xmm0, xmm0, [s8.00]
                vpxor   xmm3, xmm0, xmm0
                vpackuswb xmm0, xmm0, xmm3
                call    inst$b8push
                mleavex
                eleave
    ; </fold>

    method avt.lang.Byte8$high$byte8$, \
                value, byte8  ; returns byte4 <fold >
                menter
                lverify value, TAG_BYTE8
                b4load  [.value+$04]
                mleavex
                eleave
    ; </fold>

    method avt.lang.Byte8$create$byte4$byte4$, \
                value0, byte4, \
                value1, byte4  ; returns byte8 <fold >
                menter
                lverify value0, TAG_BYTE4
                lverify value1, TAG_BYTE4
                bload   [.value0+$00]
                bload   [.value0+$01]
                bload   [.value0+$02]
                bload   [.value0+$03]
                bload   [.value1+$00]
                bload   [.value1+$01]
                bload   [.value1+$02]
                bload   [.value1+$03]
                newvectorb8
                mleavex
                eleave
    ; </fold>

    method avt.lang.Byte8$create$byte2$byte2$byte2$byte2$, \
                value0, byte2, \
                value1, byte2, \
                value2, byte2, \
                value3, byte2  ; returns byte8 <fold >
                menter
                lverify value0, TAG_BYTE2
                lverify value1, TAG_BYTE2
                lverify value2, TAG_BYTE2
                lverify value3, TAG_BYTE2
                bload   [.value0+$00]
                bload   [.value0+$01]
                bload   [.value1+$00]
                bload   [.value1+$01]
                bload   [.value2+$00]
                bload   [.value2+$01]
                bload   [.value3+$00]
                bload   [.value3+$01]
                newvectorb8
                mleavex
                eleave
    ; </fold>

    method avt.lang.Byte8$setElement$byte8$int$byte$, \
                value, byte8, \
                index, int, \
                element, byte  ; returns byte8 <fold >
                menter
                lverify value, TAG_BYTE8
                lverify index, TAG_INT
                lverify element, TAG_INT
                mov     r0d, [.index]
                cmp     r0d, $00
                jl      .L.000
                cmp     r0d, $08
                jl      .L.001
        .L.000: call    inst$throwVectorIndexOutOfBoundsException
        .L.001: mov     r1d, [.element]
                mov     byte[.value+r0*1], r1b
                b4load  [.value]
                mleavex
                eleave
    ; </fold>

    method avt.lang.Byte8$toShort4Bits$byte8$, \
                value, byte8  ; returns short4 <fold >
                menter
                lverify value, TAG_BYTE8
                s4load  [.value]
                mleavex
                eleave
    ; </fold>

    method avt.lang.Byte8$toInt2Bits$byte8$, \
                value, byte8  ; returns int2 <fold >
                menter
                lverify value, TAG_BYTE8
                i2load  [.value]
                mleavex
                eleave
    ; </fold>

    method avt.lang.Byte8$toLongBits$byte8$, \
                value, byte8  ; returns long <fold >
                menter
                lverify value, TAG_BYTE8
                lload   [.value]
                mleaveq
                eleave
    ; </fold>
; </fold>