Home | History | Annotate | Line # | Download | only in bfin 
      1  1.1  christos # mach: bfin
      2  1.1  christos 
      3  1.1  christos .include "testutils.inc"
      4  1.1  christos 	start
      5  1.1  christos 
      6  1.1  christos 
      7  1.1  christos 	R0.H = -32768;
      8  1.1  christos 	R0.L = 0;
      9  1.1  christos 	R0 >>= 0x1;
     10  1.1  christos 
     11  1.1  christos 	_DBG R0;
     12  1.1  christos 	R7 = ASTAT;
     13  1.1  christos 	_DBG R7;
     14  1.1  christos 
     15  1.1  christos //DBGA ( R7.H , 0x0000 );
     16  1.1  christos //DBGA ( R7.L , 0x0000 );
     17  1.1  christos 	cc = az;
     18  1.1  christos 	r0 = cc;
     19  1.1  christos 	dbga( r0.l, 0);
     20  1.1  christos 	cc = an;
     21  1.1  christos 	r0 = cc;
     22  1.1  christos 	dbga( r0.l, 0);
     23  1.1  christos 	cc = av0;
     24  1.1  christos 	r0 = cc;
     25  1.1  christos 	dbga( r0.l, 0);
     26  1.1  christos 	cc = av0s;
     27  1.1  christos 	r0 = cc;
     28  1.1  christos 	dbga( r0.l, 0);
     29  1.1  christos 	cc = av1;
     30  1.1  christos 	r0 = cc;
     31  1.1  christos 	dbga( r0.l, 0);
     32  1.1  christos 	cc = av1s;
     33  1.1  christos 	r0 = cc;
     34  1.1  christos 	dbga( r0.l, 0);
     35  1.1  christos 
     36  1.1  christos 	R0.H = 0;
     37  1.1  christos 	R0.L = 1;
     38  1.1  christos 	R0 <<= 0x1f;
     39  1.1  christos 
     40  1.1  christos 	_DBG R0;
     41  1.1  christos 	R7 = ASTAT;
     42  1.1  christos 	_DBG R7;
     43  1.1  christos //DBGA ( R7.H , 0x0000 );
     44  1.1  christos //DBGA ( R7.L , 0x0002 );
     45  1.1  christos 	cc = az;
     46  1.1  christos 	r0 = cc;
     47  1.1  christos 	dbga( r0.l, 0);
     48  1.1  christos 	cc = an;
     49  1.1  christos 	r0 = cc;
     50  1.1  christos 	dbga( r0.l, 1);
     51  1.1  christos 	cc = av0;
     52  1.1  christos 	r0 = cc;
     53  1.1  christos 	dbga( r0.l, 0);
     54  1.1  christos 	cc = av0s;
     55  1.1  christos 	r0 = cc;
     56  1.1  christos 	dbga( r0.l, 0);
     57  1.1  christos 	cc = av1;
     58  1.1  christos 	r0 = cc;
     59  1.1  christos 	dbga( r0.l, 0);
     60  1.1  christos 	cc = av1s;
     61  1.1  christos 	r0 = cc;
     62  1.1  christos 	dbga( r0.l, 0);
     63  1.1  christos 
     64  1.1  christos 	R1.L = -1;
     65  1.1  christos 	R1.H = 32767;
     66  1.1  christos 	R0 = 31;
     67  1.1  christos 	R1 >>= R0;
     68  1.1  christos 
     69  1.1  christos 	_DBG R1;
     70  1.1  christos 	R7 = ASTAT;
     71  1.1  christos 	_DBG R7;
     72  1.1  christos //DBGA ( R7.H , 0x0000 );
     73  1.1  christos //DBGA ( R7.L , 0x0001 );
     74  1.1  christos 	cc = az;
     75  1.1  christos 	r0 = cc;
     76  1.1  christos 	dbga( r0.l, 1);
     77  1.1  christos 	cc = an;
     78  1.1  christos 	r0 = cc;
     79  1.1  christos 	dbga( r0.l, 0);
     80  1.1  christos 	cc = av0;
     81  1.1  christos 	r0 = cc;
     82  1.1  christos 	dbga( r0.l, 0);
     83  1.1  christos 	cc = av0s;
     84  1.1  christos 	r0 = cc;
     85  1.1  christos 	dbga( r0.l, 0);
     86  1.1  christos 	cc = av1;
     87  1.1  christos 	r0 = cc;
     88  1.1  christos 	dbga( r0.l, 0);
     89  1.1  christos 	cc = av1s;
     90  1.1  christos 	r0 = cc;
     91  1.1  christos 	dbga( r0.l, 0);
     92  1.1  christos 
     93  1.1  christos 	pass
     94