Home | History | Annotate | Line # | Download | only in cr16
      1  1.1  christos # cr16 testcase for cbitw
      2  1.1  christos # mach:	 cr16
      3  1.1  christos 
      4  1.1  christos 	.include "testutils.inc"
      5  1.1  christos 
      6  1.1  christos 	start
      7  1.1  christos 
      8  1.1  christos 	.global cbitw
      9  1.1  christos cbitw:
     10  1.1  christos 	cbitw	$4,_y
     11  1.1  christos 	loadw   _y, r1
     12  1.1  christos 	cmpb    $0xef, r1
     13  1.1  christos 	beq ok1
     14  1.1  christos not_ok:
     15  1.1  christos 	fail
     16  1.1  christos 
     17  1.1  christos ok1:
     18  1.1  christos 	movd   $_y, (r1,r0)
     19  1.1  christos 	cbitw	$5,0(r1,r0)
     20  1.1  christos 	loadw   _y, r1
     21  1.1  christos 	cmpb    $0xcf, r1
     22  1.1  christos 	beq ok2
     23  1.1  christos 	br not_ok
     24  1.1  christos ok2:
     25  1.1  christos 
     26  1.1  christos 	movw   $_y, r1
     27  1.1  christos 	cbitw	$6,0(r1)
     28  1.1  christos 	loadw   _y, r1
     29  1.1  christos 	cmpb    $0x8f, r1
     30  1.1  christos 	beq ok3
     31  1.1  christos 	br not_ok
     32  1.1  christos ok3:
     33  1.1  christos 	pass
     34  1.1  christos 
     35  1.1  christos _y:	.word	0xff
     36