# fr30 testcase for and $Rj,$Ri, and $Rj,@$Ri
# mach(): fr30
.include "testutils.inc"
START
.text
.global and
and:
; Test and $Rj,$Ri
mvi_h_gr 0xaaaaaaaa,r7
mvi_h_gr 0x55555555,r8
set
.define .and
! #bytes in cx
! save di; it might be a register variable
.text
.and:
pop bx ! return address
mov dx,di
mov di,sp
add di,cx
sar cx,#1
1:
pop ax
and ax,(di)
st
/**
* Redistribution and use of this software and associated documentation
* ("Software"), with or without modification, are permitted provided
* that the following conditions are met:
*
* 1
package com.javapatterns.interpreter;
public class And extends Expression
{
private Expression left, right;
public And(Expression left, Expression right)
{
this.left = le
# fr30 testcase for and $Rj,$Ri, and $Rj,@$Ri
# mach(): fr30
.include "testutils.inc"
START
.text
.global and
and:
; Test and $Rj,$Ri
mvi_h_gr 0xaaaaaaaa,r7
mvi_h_gr 0x55555555,r8
set
