URL
https://opencores.org/ocsvn/forwardcom/forwardcom/trunk
Subversion Repositories forwardcom
[/] [forwardcom/] [testsuite/] [tests_bool_bit.as] - Rev 164
Go to most recent revision | Compare with Previous | Blame | View Log
/************************** tests_bool_bit.as ******************************** Author: Agner Fog* date created: 2021-06-27* last modified: 2021-07-20* Version: 1.11* Project: ForwardCom Test suite, assembly code* Description: Test boolean and bit manipulation instructions with general* purpose registers** This test program will test boolean and bit manipulation instructions and* output a list of which instructions are working for int8, int16, int32,* and int64 operands.** Copyright 2021 GNU General Public License v. 3 http://www.gnu.org/licenses******************************************************************************/// Library functions in libc_light.liextern _puts: function reguse=3,0 // write string + linefeed to stdoutextern _printf: function reguse=0xF,0 // write formatted string to stdoutconst section read ip // read-only data section// Text strings:text1: int8 "\nForwardCom test suite\nTest general purpose register bit manipulation instructions" // intro text,int8 "\nPress Run to continue"int8 "\n int8 int16 int32 int64", 0 // and headingnewline: int8 "\n", 0 // newlinepress_run: int8 "\nPress Run to continue", 0format1: int8 "\n%-22s%3c%7c%7c%7c", 0 // format string for printing results// text strings for each instruction:text_and: int8 "and", 0text_or: int8 "or", 0text_xor: int8 "xor", 0text_shift_left: int8 "shift left", 0text_shift_right_signed: int8 "shift right signed", 0text_shift_right_unsigned: int8 "shift right unsigned", 0text_funnel_shift: int8 "funnel shift", 0text_rotate: int8 "rotate", 0text_clear_bit: int8 "clear_bit", 0text_set_bit: int8 "set_bit", 0text_toggle_bit: int8 "toggle_bit", 0text_test_bit: int8 "test_bit", 0text_test_bits_and: int8 "test_bits_and", 0text_test_bits_or: int8 "test_bits_or", 0text_compare: int8 "compare", 0text_bitscan: int8 "bitscan", 0text_roundp2: int8 "roundp2", 0text_popcount: int8 "popcount", 0text_truthtab3: int8 "truth_tab3", 0text_move_high: int8 "move high", 0text_insert_high: int8 "insert high", 0text_move_bits: int8 "move_bits", 0const endcode section execute // code section__entry_point function public_main function public/* register use:r0: bits indicating success for int8, int16, int32, int64r1: operandr2: operandr3: resultr4: scratchr6: int64 supported*/// print intro text and headingint64 r0 = address [text1] // calculate address of stringcall _puts // call puts. parameter is in r0breakpoint // debug breakpointint r1 = 1int capab2 = write_capabilities(r1, 0) // disable error trap for unknown instructions// arbitrary test data% A = 0x12345555% B = 0x5678CEFC% C = 0xABCDF0F0// Test andint32 r1 = Aint32 r2 = Bint8 r3 = r1 & r2 // int8 andint32 r0 = r3 == (A & B & 0xFF) // check result, set bit 0 if successint16 r3 = r1 & r2 // int16 andint32 r4 = r3 == (A & B & 0xFFFF) // check resultint32 r0 |= 2, mask = r4 // set bit 1 if successint32 r3 = r1 & r2 // int32 andint32 r4 = r3 == (A & B) // check resultint32 r0 |= 4, mask = r4 // set bit 2 if successint64 r1 <<= 32int64 r2 <<= 32int64 r1 |= 0x12345int64 r2 |= Cint64 r3 = r1 & r2 // 64 bit andint32 r4 = r3 == (0x12345 & C) // check lower half of resultuint64 r3 >>= 32 // shift down upper halfint64 r6 = r3 == (A & B) && r4 // check upper half of resultint32 r0 |= 8, mask = r6 // set bit 2 if successint64 r1 = address [text_and]call print_result// Test orint32 r1 = Aint32 r2 = Bint8 r3 = r1 | r2 // int8 orint32 r0 = r3 == ((A | B) & 0xFF) // check result, set bit 0 if successint16 r3 = r1 | r2 // int16 orint32 r4 = r3 == ((A | B) & 0xFFFF) // check resultint32 r0 |= 2, mask = r4 // set bit 1 if successint32 r3 = r1 | r2 // int32 orint32 r4 = r3 == (A | B) // check resultint32 r0 |= 4, mask = r4 // set bit 2 if successint64 r1 <<= 32int64 r2 <<= 32int64 r1 |= 0x12345int64 r2 |= Cint64 r3 = r1 | r2 // 64 bit orint32 r4 = r3 == (0x12345 | C) // check lower half of resultuint64 r3 >>= 32 // shift down upper halfint64 r6 = r3 == (A | B) && r4 // check upper half of resultint32 r0 |= 8, mask = r6 // set bit 2 if successint64 r1 = address [text_or]call print_result// Test xorint32 r1 = Aint32 r2 = Bint8 r3 = r1 ^ r2 // int8 xorint32 r0 = r3 == ((A ^ B) & 0xFF) // check result, set bit 0 if successint16 r3 = r1 ^ r2 // int16 xorint32 r4 = r3 == ((A ^ B) & 0xFFFF) // check resultint32 r0 |= 2, mask = r4 // set bit 1 if successint32 r3 = r1 ^ r2 // int32 xorint32 r4 = r3 == (A ^ B) // check resultint32 r0 |= 4, mask = r4 // set bit 2 if successint64 r1 <<= 32int64 r2 <<= 32int64 r1 |= 0x12345int64 r2 |= Cint64 r3 = r1 ^ r2 // 64 bit xorint32 r4 = r3 == (0x12345 ^ C) // check lower half of resultuint64 r3 >>= 32 // shift down upper halfint64 r6 = r3 == (A ^ B) && r4 // check upper half of resultint32 r0 |= 8, mask = r6 // set bit 2 if successint64 r1 = address [text_xor]call print_result// Test shift leftint32 r1 = Aint8 r3 = r1 << 3 // int8 shiftint32 r0 = r3 == (A << 3 & 0xFF) // check result, set bit 0 if successint8 r3 = r1 << 0 // int8 shiftint r0 = r3 == (A & 0xFF) && r0int16 r3 = r1 << 12 // int16 shiftint32 r4 = r3 == (A << 12 & 0xFFFF) // check result, set bit 0 if successint16 r3 = r1 << -1 // int16 shift overflowint r4 = (r3 == 0) && r4int32 r0 |= 2, mask = r4 // set bit 1 if successint r2 = 18int32 r3 = r1 << r2 // int32 shiftint32 r4 = r3 == (A << 18 & 0xFFFFFFFF) // check result, set bit 0 if successint32 r3 = r1 << 1 // int32 shiftint32 r4 = (r3 == (A << 1 & 0xFFFFFFFF)) && r4int32 r0 |= 4, mask = r4 // set bit 2 if successint64 r3 = r1 << 36 // int64 shiftint64 r4 = A << 36int64 r4 = r3 == r4uint64 r3 >>= 36int32 r4 = r3 == (A & 0x0FFFFFFF) && r4int32 r0 |= 8, mask = r4 // set bit 3 if successint64 r1 = address [text_shift_left]call print_result// Test shift right signedshiftrightsigned:int32 r1 = A%A1 = 0xA3int8 r3 = r1 >> 3 // int8 shiftint32 r0 = r3 == (A & 0xFF) >> 3 // check result, set bit 0 if successint8 r3 = r1 >> 0 // int8 shiftint r0 = r3 == (A & 0xFF) && r0int r2 = A1 // negative numberint8 r3 = r2 >> 3 // int8 shiftint32 r0 = r3 == (A1 >> 3 | 0xE0) && r0 // check result, set bit 0 if success%A2 = 0xBC62int16 r3 = r1 >> 9 // int16 shiftint32 r4 = r3 == (A & 0xFFFF) >> 9 // check result, set bit 0 if successint16 r3 = r1 >> 70 // int16 shift overflowint r4 = (r3 == 0) && r4int r2 = A2int16 r3 = r2 >> 3int32 r4 = r3 == (A2 >> 3 | 0xE000) && r4 // check result, set bit 0 if successint32 r0 |= 2, mask = r4 // set bit 1 if success%A3 = 0x81ABCD25int32 r1 = A3int r2 = 18int32 r3 = r1 >> r2 // int32 shiftuint32 r4 = r3 == (A3 >> 18 & 0xFFFFFFFF | 0xFFFFC000) // check result, set bit 0 if successint32 r3 = r1 >> 33 // overflow of signed shiftint32 r4 = (r3 == -1) && r4int32 r0 |= 4, mask = r4 // set bit 2 if success%A4 = 0x81ABCD2512345678int64 r1 = A4int64 r3 = r1 >> 35 // int64 shiftint64 r4 = A4 >> 35int64 r4 = r3 == r4int32 r0 |= 8, mask = r4 // set bit 3 if successint64 r1 = address [text_shift_right_signed]call print_result// Test shift right unsignedint32 r1 = A%A1 = 0xA3uint8 r3 = r1 >> 3 // int8 shiftint32 r0 = r3 == (A & 0xFF) >> 3 // check result, set bit 0 if successuint8 r3 = r1 >> 0 // int8 shiftint r0 = r3 == (A & 0xFF) && r0int r2 = A1 // negative numberuint8 r3 = r2 >> 3 // int8 shiftint32 r0 = r3 == A1 >> 3 && r0 // check result, set bit 0 if success%A2 = 0xBC62uint16 r3 = r1 >> 9 // int16 shiftint32 r4 = r3 == (A & 0xFFFF) >> 9 // check result, set bit 0 if successuint16 r3 = r1 >> 70 // int16 shift overflowint r4 = (r3 == 0) && r4int r2 = A2uint16 r3 = r2 >> 3int32 r4 = r3 == A2 >> 3 && r4 // check result, set bit 0 if successint32 r0 |= 2, mask = r4 // set bit 1 if success%A3 = 0x81ABCD25int32 r1 = A3int r2 = 18uint32 r3 = r1 >> r2 // int32 shiftuint32 r4 = r3 == (A3 >> 18 & 0xFFFFFFFF) // check result, set bit 0 if successuint32 r3 = r1 >> 33 // overflow of unsigned shiftint32 r4 = (r3 == 0) && r4int32 r0 |= 4, mask = r4 // set bit 2 if success%A4 = 0x81ABCD2512345678int64 r1 = A4uint64 r3 = r1 >> 35 // int64 shiftint64 r4 = A4 >>> 35int64 r4 = r3 == r4int32 r0 |= 8, mask = r4 // set bit 3 if successint64 r1 = address [text_shift_right_unsigned]call print_result// Test funnel shiftint r1 = Aint r2 = Bint8 r3 = funnel_shift(r1, r2, 5) // int8 shiftint r0 = r3 == ((A & 0xFF) >> 5 | (B << 3 & 0xFF)) // check result, set bit 0 if successint8 r3 = funnel_shift(r1, r2, 0) // int8 shiftint r0 = r3 == (A & 0xFF) && r0int8 r3 = funnel_shift(r1, r2, 8) // int8 shiftint r0 = r3 == 0 && r0int16 r3 = funnel_shift(r1, r2, 10) // int16 shiftint r4 = r3 == ((A & 0xFFFF) >> 10 | (B << 6 & 0xFFFF)) // check result, set bit 0 if successint32 r0 |= 2, mask = r4 // set bit 1 if successint32 r3 = funnel_shift(r1, r2, 21) // int32 shiftint64 r4 = r3 == ((A & 0xFFFFFFFF) >> 21 | (B << 11 & 0xFFFFFFFF)) // check result, set bit 0 if successint32 r0 |= 4, mask = r4 // set bit 2 if successint64 r3 = funnel_shift(r1, r2, 50) // int64 shiftint64 r4 = r3 == (A >> 50 | B << 14) // check result, set bit 0 if successint32 r0 |= 8, mask = r4 // set bit 3 if successint64 r1 = address [text_funnel_shift]call print_result// Test rotateint r1 = Bint8 r3 = rotate(r1, 2) // int8 rotateint r0 = r3 == ((B << 2 & 0xFF) | (B & 0xFF) >> 6)int8 r3 = rotate(r1, 0) // int8 rotateint r0 = r3 == (B & 0xFF) && r0int r2 = 0x1234int8 r3 = rotate(r1, r2) // int8 rotateint r0 = r3 == ((B << 4 & 0xFF) | (B & 0xFF) >> 4) && r0int16 r3 = rotate(r1, 0xabcd) // int16 rotateint r4 = r3 == ((B << 13 & 0xFFFF) | (B & 0xFFFF) >> 3)int32 r0 |= 2, mask = r4 // set bit 1 if successint32 r3 = rotate(r1, -21) // int32 rotateint64 r4 = r3 == ((B << 11 & 0xFFFFFFFF) | (B & 0xFFFFFFFF) >> 21)int32 r0 |= 4, mask = r4 // set bit 2 if successint64 r3 = rotate(r1, 34) // int64 rotateint64 r4 = r3 == ((B << 34) | (B >> 30))int32 r0 |= 8, mask = r4 // set bit 3 if successint64 r1 = address [text_rotate]call print_result// Test clear bitint64 r1 = -1int8 r3 = clear_bit(r1, 2) // int8 clear_bitint r0 = r3 == 0xFBint16 r3 = clear_bit(r1, 8) // int16 clear_bitint r4 = r3 == 0xFEFFint32 r0 |= 2, mask = r4 // set bit 1 if successint32 r3 = r1 & ~ (1 << 30)int32 r3 = clear_bit(r3, 31) // int32 clear_bitint32 r4 = r3 == 0x3FFFFFFFint32 r0 |= 4, mask = r4 // set bit 2 if successint64 r3 = clear_bit(r1, 41) // int64 clear_bitint64 r3 = clear_bit(r3, 41) // int64 clear_bituint64 r3 >>= 32int32 r4 = r3 == 0xFFFFFDFFint32 r0 |= 8, mask = r4 // set bit 3 if successint64 r1 = address [text_clear_bit]call print_result// Test set bitint64 r1 = 0int8 r3 = set_bit(r1, 2) // int8 set_bitint r0 = r3 == 4int16 r3 = set_bit(r1, 8) // int16 set_bitint r4 = r3 == 0x100int32 r0 |= 2, mask = r4 // set bit 1 if successint32 r3 = set_bit(r1, 31) // int32 set_bitint32 r3 = set_bit(r3, 31) // int32 set_bitint32 r4 = r3 == 0x80000000int32 r0 |= 4, mask = r4 // set bit 2 if successint64 r3 = set_bit(r1, 41) // int64 set_bituint64 r3 >>= 32int32 r4 = r3 == 0x200int32 r0 |= 8, mask = r4 // set bit 3 if successint64 r1 = address [text_set_bit]call print_result// Test toggle bitint64 r1 = 0int8 r3 = toggle_bit(r1, 2) // int8 toggle_bitint r0 = r3 == 4int16 r3 = toggle_bit(r1, 8) // int16 toggle_bitint r4 = r3 == 0x100int32 r0 |= 2, mask = r4 // set bit 1 if successint32 r3 = toggle_bit(r1, 31) // int32 toggle_bitint32 r3 = toggle_bit(r3, 31) // int32 toggle_bitint32 r4 = r3 == 0int32 r0 |= 4, mask = r4 // set bit 2 if successint64 r3 = toggle_bit(r1, 41) // int64 toggle_bituint64 r3 >>= 32int32 r4 = r3 == 0x200int32 r0 |= 8, mask = r4 // set bit 3 if successint64 r1 = address [text_toggle_bit]call print_resultint64 r0 = address [press_run] // press run to continuecall _printf // print stringbreakpoint// Test test_bitTest_test_bit:int32 r1 = 0x12345678int8 r3 = test_bit(r1, 4) // int8 test_bitint r0 = r3 == 1int8 r2 = test_bit(r1, 2)int r0 = r2 == 0 && r0int16 r3 = test_bit(r1, 9) // int16 test_bitint r4 = r3 == 1int16 r3 = test_bit(r1, 9), fallback = r2, options = 1int r4 = r3 == 0 && r4int16 r3 = test_bit(r1, 9), fallback = r2, options = 9int r4 = r3 == 1 && r4int r0 |= 2, mask = r4 // set bit 1 if successint32 r3 = test_bit(r1, 17) // int32 test_bitint r4 = r3 == 0int32 r2 = 0xF0int32 r3 = test_bit(r1, 18), mask = r2, options = 0x20int r4 = r3 == r2 && r4int r0 |= 4, mask = r4 // set bit 2 if successint64 r1 <<= 32int64 r3 = test_bit(r1, 38) // int64 test_bitint r4 = r3 == 1int32 r2 = 0x71int32 r3 = test_bit(r1, 75), mask = r2, fallback = r2, options = 0x20int r4 = r3 == 0x70 && r4int32 r3 = test_bit(r1, 75), mask = r2, fallback = r2, options = 0x24int r4 = r3 == 0x71 && r4int r0 |= 8, mask = r4 // set bit 3 if successint64 r1 = address [text_test_bit]call print_result// Test test_bits_andTest_test_bits_and:int32 r1 = 0x12345678int8 r3 = test_bits_and(r1, 0x58) // int8 test_bits_andint r0 = r3 == 1int16 r2 = test_bits_and(r1, 0x688) // int16 test_bits_andint r4 = r2 == 0int16 r3 = test_bits_and(r1, 0x688), fallback = r4, options = 2int r4 = r3 == 1 && r4int16 r3 = test_bits_and(r1, 0x688), fallback = r4, options = 7int r4 = r3 == 0 && r4int r0 |= 2, mask = r4 // set bit 1 if successint32 r3 = test_bits_and(r1, 0x12340678) // int32 test_bits_andint r4 = r3 == 1int32 r3 = test_bits_and(r1, 0x12346678)int r4 = r3 == 0 && r4int r0 |= 4, mask = r4 // set bit 2 if successint64 r1 <<= 32int64 r3 = test_bits_and(r1, 0x67 << 36) // int64 test_bits_andint r4 = r3 == 1int64 r3 = test_bits_and(r1, 0x6F << 36)int r4 = r3 == 0 && r4int r0 |= 8, mask = r4 // set bit 3 if successint64 r1 = address [text_test_bits_and]call print_result// Test test_bits_orTest_test_bits_or:int32 r1 = 0x12345678int8 r3 = test_bits_or(r1, 0xF0) // int8 test_bits_orint r0 = r3 == 1int16 r2 = test_bits_or(r1, 0x982) // int16 test_bits_orint r4 = r2 == 0int16 r3 = test_bits_or(r1, 0x982), fallback = r4, options = 3int r4 = r3 == 1 && r4int16 r3 = test_bits_or(r1, 0x688), fallback = r4, options = 3int r4 = r3 == 0 && r4int r0 |= 2, mask = r4 // set bit 1 if successint32 r3 = test_bits_or(r1, 0x10000000) // int32 test_bits_orint r4 = r3 == 1int32 r3 = test_bits_or(r1, 0)int r4 = r3 == 0 && r4int r0 |= 4, mask = r4 // set bit 2 if successint64 r1 <<= 32int64 r3 = test_bits_or(r1, 0xF << 36) // int64 test_bits_orint r4 = r3 == 1int r0 |= 8, mask = r4 // set bit 3 if successint64 r1 = address [text_test_bits_or]call print_result// test compare with mask and fallbacktest_compare:int32 r1 = 5int32 r2 = 0x56int8 r3 = compare(r1, r2), options=0, mask = r1// int8 compareint r0 = r3 == 4int16 r3 = compare(r1, r2), options=2, mask = r1, fallback = r1 // int16 compareint r4 = r3 == r1int16 r3 = compare(r1, r2), options=0x12, mask = r2, fallback = r1int r4 = r3 == r2 && r4int16 r3 = compare(r1, r2), options=0x20, mask = r1, fallback = r1int r4 = r3 == r1 && r4int r0 |= 2, mask = r4 // set bit 1 if successint32 r3 = compare(r1, r2), options=0x31, fallback = r1 // int32 compareint r4 = r3 == 0int r0 |= 4, mask = r4 // set bit 2 if successint64 r3 = compare(r1, r2), options=0x21, fallback = r1 // int64 compareint r4 = r3 == 1int64 r2 = r1 | 1 << 60int64 r3 = r1 == r2int r4 = r3 == 0 && r4int r0 |= 8, mask = r4 // set bit 3 if successint64 r1 = address [text_compare]call print_result// test bitscanint r1 = 0x23412345int8 r3 = bitscan(r1, 0) // int8 bitscanint r0 = r3 == 0int8 r3 = bitscan(r1, 1)int r0 = r3 == 6 && r0int r2 = 0int16 r3 = bitscan(r1, 1) // int16 bitscanint r4 = r3 == 13int16 r3 = bitscan(r2, 1) // zero inputint r4 = r3 == 0 && r4int16 r3 = bitscan(r2, 0x11)int r4 = r3 == 0xFFFF && r4int r0 |= 2, mask = r4 // set bit 1 if successint32 r3 = bitscan(r1, 1) // int32 bitscanint r4 = r3 == 29int r0 |= 4, mask = r4 // set bit 2 if successint64 r1 <<= 10int64 r3 = bitscan(r1, 1) // int64 bitscanint r4 = r3 == 29 + 10int64 r3 = bitscan(r2, 0x10) // zero inputint64 r4 = r3 == -1 && r4int r0 |= 8, mask = r4 // set bit 3 if successint64 r1 = address [text_bitscan]call print_result// test roundp2int r1 = 0x23412345int8 r3 = roundp2(r1, 0) // int8 roundp2int r0 = r3 == 0x40int8 r3 = roundp2(r1, 1)int r0 = r3 == 0x80int16 r3 = roundp2(r1, 0) // int16 roundp2int r4 = r3 == 0x2000int r2 = 0int16 r3 = roundp2(r2, 0) // zero inputint r4 = r3 == 0 && r4int16 r3 = roundp2(r2, 0x10) // zero inputint r4 = r3 == 0xFFFF && r4int r2 = 0x8001int16 r3 = roundp2(r2, 0)int r4 = r3 == 0x8000 && r4int16 r3 = roundp2(r2, 1) // overflowint r4 = r3 == 0 && r4int16 r3 = roundp2(r2, 0x21)int r4 = r3 == 0xFFFF && r4int r0 |= 2, mask = r4 // set bit 1 if successint32 r3 = roundp2(r1, 0) // int32 roundp2int32 r4 = r3 == 0x20000000int32 r3 = roundp2(r1, 1)int32 r4 = r3 == 0x40000000 && r4int r0 |= 4, mask = r4 // set bit 2 if successint64 r1 |= 1 << 40int64 r3 = roundp2(r1, 0) // int64 roundp2int64 r4 = r3 == 1 << 40int64 r3 = roundp2(r1, 1)int64 r4 = r3 == 1 << 41int r0 |= 8, mask = r4 // set bit 3 if successint64 r1 = address [text_roundp2]call print_result// Test popcountint r1 = 0x23412345int8 r3 = popcount(r1) // int8 popcountint r0 = r3 == 3int16 r3 = popcount(r1) // int16 popcountint r4 = r3 == 6int r0 |= 2, mask = r4 // set bit 1 if successint64 r1 |= 1 << 40int32 r3 = popcount(r1) // int32 popcountint r4 = r3 == 11int r0 |= 4, mask = r4 // set bit 2 if successint64 r3 = popcount(r1) // int64 popcountint r4 = r3 == 12int r0 |= 8, mask = r4 // set bit 3 if successint64 r1 = address [text_popcount]call print_result// Test truth_tab3int32 r1 = 0xAAAAAAAAint32 r2 = 0xCCCCCCCCint32 r3 = 0xF0F0F0F0int8 r4 = truth_tab3(r1, r2, r3, 0xF2) // A & ~ B | Cint r0 = r4 == 0xF2int16 r4 = truth_tab3(r1, r2, r3, 0xD8) // A ? B : Cint r5 = r4 == 0xD8D8int r6 = 0x12345int16 r4 = truth_tab3(r1, r2, r3, 0xD8), options = 1, mask = r6int r5 = r4 == 0 && r5int16 r4 = truth_tab3(r1, r2, r3, 0xD8), options = 2, mask = r6int r5 = r4 == 0x2344 && r5int r0 |= 2, mask = r5 // set bit 1 if successint32 r4 = truth_tab3(r1, r2, r3, 0x72) // A ? ~B : Cint32 r5 = r4 == 0x72727272int r0 |= 4, mask = r5 // set bit 2 if successint64 r3 |= 1 << 63int64 r4 = truth_tab3(r1, r2, r3, 0xFE) // A | B | Cint64 r5 = r4 == 0x80000000FEFEFEFEint64 r5 = test_bit(r4, 63), options = 1, fallback = r5int r0 |= 8, mask = r5 // set bit 3 if successint64 r1 = address [text_truthtab3]call print_result// Test move_bitsint32 r1 = 0int32 r2 = 0x12345678int8 r3 = move_bits(r1, r2, 2, 4, 3) // int8 move_bitsint r0 = r3 == 0x60int16 r3 = move_bits(r1, r2, 8, 0, 6) // int16 move_bitsint r4 = r3 == 0x16int r0 |= 2, mask = r4 // set bit 1 if successint32 r3 = move_bits(r1, r2, 0, 20, 12) // int32 move_bitsint32 r3 = move_bits(r3, r2, 16, 0, 8)int r4 = r3 == 0x67800034int r0 |= 4, mask = r4 // set bit 1 if successint64 r3 = move_bits(r1, r2, 20, 48, 8) // int64 move_bitsint64 r4 = r3 == 0x23000000000000int64 r3 = move_bits(r1, r3, 48, 0, 8)int64 r4 = r3 == 0x23 && r4int r0 |= 8, mask = r4 // set bit 3 if successint64 r1 = address [text_move_bits]call print_result// Test move highint64 r1 = 0xabcd1234 << 32int32 r4 = r1 == 0uint64 r1 >>= 32int32 r4 = r1 == 0xabcd1234 && r0int r0 = 0x70int r0 |= 8, mask = r4int64 r1 = address [text_move_high]call print_result// Test insert highint64 r1 = 0x12345678int64 r1 = insert_hi(r1, 0xabcdef98)int64 r4 = r1 == 0xabcdef9812345678int64 r1 >>= 32int32 r4 = (r1 == 0xabcdef98) && r4int r0 = 0x70int r0 |= 8, mask = r4int64 r1 = address [text_insert_high]call print_resultint64 r0 = address [newline]call _putsbreakpointint r0 = 0 // program return valuereturn // return from main_main endprint_result function// Print the result of a single test. Parameters:// r0: 4 bits indicating success for for int8, int16, int32, int64. 4 additional bits for printing space (instruction not supported)// r1: pointer to text string// set up parameter list for printfint64 sp -= 5*8 // allocate space on stackint64 [sp] = r1 // textint r4 = 'N'int r2 = r0 ? 'Y' : r4 // Y or Nint r5 = test_bit(r0, 4)int r2 = r5 ? ' ' : r2 // Y/N or spaceint64 [sp+0x08] = r2 // result for int8int r0 >>= 1int r2 = r0 ? 'Y' : r4 // Y or Nint r5 = test_bit(r0, 4)int r2 = r5 ? ' ' : r2 // Y/N or spaceint64 [sp+0x10] = r2 // result for int16int r0 >>= 1int r2 = r0 ? 'Y' : r4 // Y or Nint r5 = test_bit(r0, 4)int r2 = r5 ? ' ' : r2 // Y/N or spaceint64 [sp+0x18] = r2 // result for int32int r0 >>= 1int r2 = r0 ? 'Y' : r4 // Y or Nint r5 = test_bit(r0, 4)int r2 = r5 ? ' ' : r2 // Y/N or spaceint64 [sp+0x20] = r2 // result for int64int64 r0 = address [format1]int64 r1 = spcall _printfint64 sp += 5*8 // release parameter listreturnprint_result endcode end
Go to most recent revision | Compare with Previous | Blame | View Log