Lines Matching +full:1 +full:l
9 * 1. Redistributions of source code must retain the above copyright
63 tst.l (TASK_MM-8,%a2)
64 jmi 1f
65 tst.l (TASK_MM-4,%a2)
66 jmi 1f
67 tst.l (TASK_MM,%a2)
69 1: printf ,"oops:%p,%p,%p\n",3,%a2@(TASK_MM-8),%a2@(TASK_MM-4),%a2@(TASK_MM)
70 2: clr.l %d0
99 clr.l %d1 | sign defaults to zero
100 tst.l %d0
102 jpl 1f | positive?
103 moveq #1,%d1
104 neg.l %d0
105 1: swap %d1
107 move.l %d1,(%a0)+ | set sign / exp
108 move.l %d0,(%a0)+ | set mantissa
109 clr.l (%a0)
110 subq.l #8,%a0 | restore %a0
116 clr.l (%a0)+
117 clr.l (%a0)+
118 clr.l (%a0)
119 subq.l #8,%a0
130 move.l %d0,%d1
131 lsl.l #8,%d0 | shift mantissa
132 lsr.l #8,%d1 | exponent / sign
133 lsr.l #7,%d1
140 9: move.l %d1,(%a0)+ | fp_ext.sign, fp_ext.exp
141 move.l %d0,(%a0)+ | high lword of fp_ext.mant
142 clr.l (%a0) | low lword = 0
143 subq.l #8,%a0
150 tst.l %d0
162 getuser.l %a1@(0),%d0,fp_err_ua2,%a1
163 getuser.l %a1@(4),%d1,fp_err_ua2,%a1
166 getuser.l (%a1)+,%d0,fp_err_ua2,%a1
167 move.l %d0,%d1
168 lsl.l #8,%d0 | shift high mantissa
169 lsl.l #3,%d0
170 lsr.l #8,%d1 | exponent / sign
171 lsr.l #7,%d1
178 9: move.l %d1,(%a0)+ | fp_ext.sign, fp_ext.exp
179 move.l %d0,(%a0)+
180 getuser.l (%a1)+,%d0,fp_err_ua2,%a1
181 move.l %d0,%d1
182 lsl.l #8,%d0
183 lsl.l #3,%d0
184 move.l %d0,(%a0)
186 lsr.l %d0,%d1
187 or.l %d1,-(%a0)
188 subq.l #4,%a0
195 tst.l %d0
210 | returns 0 in %d0 for a NaN, otherwise 1
213 printf PCONV,"e2e: %p(",1,%a0
216 move.l (%a0)+,%d0
219 move.l (%a0),%d0
223 subq.l #4,%a0
228 printf PCONV,"%p(",1,%a0
231 moveq #1,%d0
243 lsl.b #1,%d0 | check low bits
246 addq.l #1,(8,%a0)
248 addq.l #1,(4,%a0)
251 addq.w #1,(2,%a0)
252 9: printf PNORM,"%p(",1,%a0
259 jhi 1f | %d2 > 2, round to +infinity
260 tst.b (1,%a0) | to -inf
263 1: tst.b (1,%a0) | to +inf
271 move.l (4,%a0),%d0
274 clr.l %d0
280 subq.l #2,%a0
281 printf PNORM,"%p(",1,%a0
284 moveq #1,%d0
291 jcc 1f
295 1: move.w %d2,(%a0)+
299 lsl.l %d2,%d0
300 move.l %d0,(%a0)+
301 move.l (%a0),%d0
302 move.l %d0,%d1
303 lsl.l %d2,%d0
304 move.l %d0,(%a0)
307 lsr.l %d2,%d1
308 or.l %d1,-(%a0)
311 clr.l %d0
315 jcc 1f
317 lsl.l %d2,%d0
318 or.l %d0,(4,%a0)
320 1: addq.w #8,%d2
321 lsl.l %d2,%d0
323 lsr.l #8,%d0
324 or.l %d0,(4,%a0)
333 jcc 1f
337 1: move.w %d2,(%a0)+
338 ext.l %d1
340 clr.l (4,%a0)
342 jcs 1f
343 lsl.l %d1,%d0 | lower lword needs only to be shifted
344 move.l %d0,(%a0) | into the higher lword
346 clr.l %d0
354 1: neg.w %d1 | lower lword is splitted between
368 jcc 1f
372 1: move.w %d2,(%a0)+
373 ext.l %d1
377 1: clr.b (-4,%a0)
379 jcs 1f
381 lsl.l %d1,%d0
382 move.l %d0,(%a0)
384 1: neg.w %d1
387 2: lsl.l %d1,%d0
389 lsr.l #8,%d0
393 1: move.l %d0,%d1 | lower lword is splitted between
394 lsl.l %d2,%d0 | higher and lower lword
395 move.l %d0,(%a0)
396 move.l %d1,%d0
399 lsr.l %d2,%d0
400 move.l %d0,-(%a0)
404 move.l (%a0)+,%d0
406 1: tst.l (%a0)
408 moveq #1,%d0
409 2: subq.l #8,%a0
410 printf PCONV,"%p(",1,%a0
415 3: lsl.l #1,%d0
416 jeq 1b
438 printf PNORM,"ne: %p(",1,%a0
441 move.l (%a0)+,%d0
444 move.l (%a0),%d0
448 subq.l #4,%a0
453 printf PNORM,"%p(",1,%a0
467 lsl.b #1,%d0 | check low bits
470 addq.l #1,(8,%a0)
472 addq.l #1,(4,%a0)
474 addq.w #1,(2,%a0)
476 9: printf PNORM,"%p(",1,%a0
483 jhi 1f | %d2 > 2, round to +infinity
484 tst.b (1,%a0) | to -inf
487 1: tst.b (1,%a0) | to +inf
496 move.l (4,%a0),%d0
499 clr.l %d0
505 subq.l #2,%a0
506 printf PNORM,"%p(",1,%a0
515 jcc 1f
520 1: move.w %d2,(%a0)+
524 lsl.l %d2,%d0
525 move.l %d0,(%a0)+
526 move.l (%a0),%d0
527 move.l %d0,%d1
528 lsl.l %d2,%d0
529 move.l %d0,(%a0)
532 lsr.l %d2,%d1
533 or.l %d1,-(%a0)
536 clr.l %d0
540 jcc 1f
542 lsl.l %d2,%d0
543 or.l %d0,(4,%a0)
545 1: addq.w #8,%d2
546 lsl.l %d2,%d0
548 lsr.l #8,%d0
549 or.l %d0,(4,%a0)
558 jcc 1f
563 1: move.w %d2,(%a0)+
564 ext.l %d1
566 clr.l (4,%a0)
568 jcs 1f
569 lsl.l %d1,%d0 | lower lword needs only to be shifted
570 move.l %d0,(%a0) | into the higher lword
572 clr.l %d0
580 1: neg.w %d1 | lower lword is splitted between
594 jcc 1f
598 1: move.w %d2,(%a0)+
599 ext.l %d1
603 1: clr.b (-4,%a0)
605 jcs 1f
607 lsl.l %d1,%d0
608 move.l %d0,(%a0)
610 1: neg.w %d1
613 2: lsl.l %d1,%d0
615 lsr.l #8,%d0
621 move.l (%a0)+,%d0
623 1: tst.l (%a0)
625 2: subq.l #8,%a0
626 printf PNORM,"%p(",1,%a0
631 3: move.l %d0,%d1
632 lsl.l #1,%d1
634 clr.l (-4,%a0)
635 jra 1b
640 move.l %d0,(-4,%a0)
646 | 1: Round to zero
660 printf PNORM,"nd: %p(",1,%a0
663 move.l (%a0)+,%d2
672 addq.l #4,%a0
673 move.l (%a0),%d0 | low lword of mantissa
677 lsl.l %d1,%d0 | keep 11 low bits.
680 9: subq.l #8,%a0
681 printf PNORM,"%p(",1,%a0
692 tst.l %d0 | test guard bit
704 lsl.l #1,%d0 | check low bits
708 add.l #0x800,(%a0)
710 addq.l #1,-(%a0) | extend to high lword
711 jcc 1f | no overflow, good.
716 addq.w #1,-(%a0)
719 1: subq.l #4,%a0
720 printf PNORM,"%p(",1,%a0
744 jcc 1f
746 move.l (%a0),%d0
747 move.l %d0,%d1
748 lsr.l %d2,%d0
749 move.l %d0,(%a0)+
750 move.l (%a0),%d0
751 lsr.l %d2,%d0
754 lsl.l %d2,%d1
755 or.l %d1,%d0
756 move.l (%a0),%d1
757 move.l %d0,(%a0)
759 lsl.l %d2,%d1
764 1: sub.w #32,%d2
767 move.l (%a0),%d0
768 clr.l (%a0)+
769 move.l %d0,%d1
770 lsr.l %d2,%d0
774 tst.l (%a0)
775 jeq 1f
777 1: move.l %d0,(%a0)
778 lsl.l %d2,%d1
783 2: clr.l (%a0)+
784 clr.l (%a0)
785 moveq #1,%d0 | Smallest possible fraction,
789 tst.l (%a0)+
790 jne 1f
791 tst.l (%a0)
792 jne 1f
793 subq.l #8,%a0
794 printf PNORM,"%p(",1,%a0
803 1: fp_set_sr FPSR_EXC_UNFL | Set UNFL bit
804 clr.l (%a0)
805 clr.l -(%a0)
807 addq.l #6,%a0
808 moveq #1,%d0
814 jeq 1f
816 1: fp_set_sr FPSR_EXC_OVFL
819 1: move.w #0x7fff,(-2,%a0)
820 clr.l (%a0)+
821 clr.l (%a0)
822 2: subq.l #8,%a0
823 printf PNORM,"%p(",1,%a0
831 jne 1b
834 jeq 1b
836 moveq #-1,%d0
837 move.l %d0,(%a0)+
839 move.l %d0,(%a0)
843 subq.l #4,%a0
844 printf PNORM,"%p(",1,%a0
854 printf PNORM,"ns: %p(",1,%a0
857 addq.l #2,%a0
866 move.l (%a0)+,%d0 | get high lword of mantissa
868 tst.l (%a0) | check the low lword
869 jeq 1f
874 1: clr.l (%a0) | zap it from memory.
879 subq.l #8,%a0
880 printf PNORM,"%p(",1,%a0
887 subq.l #3,%a0
895 lsl.b #1,%d0 | check low bits
899 add.l #0x100,(%a0)
905 addq.w #1,-(%a0)
908 9: subq.l #4,%a0
909 printf PNORM,"%p(",1,%a0
932 move.l (%a0),%d0
933 move.l %d0,%d1
934 lsr.l %d2,%d0
935 move.l %d0,(%a0)+
939 lsl.l %d2,%d1
940 jeq 1f
943 1: tst.l (%a0)
949 2: clr.l (%a0)+
950 clr.l (%a0)
951 moveq #1,%d0 | Smallest possible fraction,
956 jeq 1f
958 1: fp_set_sr FPSR_EXC_OVFL
961 1: move.w #0x7fff,(-2,%a0)
962 clr.l (%a0)+
963 clr.l (%a0)
964 2: subq.l #8,%a0
965 printf PNORM,"%p(",1,%a0
973 jne 1b
976 jeq 1b
978 move.l #0xffffff00,(%a0)+
979 clr.l (%a0)
983 tst.l (%a0)+
984 jne 1f
985 tst.l (%a0)
986 jne 1f
987 subq.l #8,%a0
988 printf PNORM,"%p(",1,%a0
997 1: fp_set_sr FPSR_EXC_UNFL | Set UNFL bit
998 clr.l (%a0)
999 clr.l -(%a0)
1001 addq.l #6,%a0
1002 moveq #1,%d0
1006 subq.l #4,%a0
1007 printf PNORM,"%p(",1,%a0
1019 printf PNORM,"nsf: %p(",1,%a0
1022 addq.l #2,%a0
1026 move.l (%a0)+,%d0 | get high lword of mantissa
1028 tst.l (%a0) | check the low lword
1029 jeq 1f
1034 1: clr.l (%a0) | zap it from memory.
1039 subq.l #8,%a0
1040 printf PNORM,"%p(",1,%a0
1047 subq.l #3,%a0
1055 lsl.b #1,%d0 | check low bits
1059 add.l #0x100,(%a0)
1065 addq.w #1,-(%a0)
1068 9: subq.l #4,%a0
1069 printf PNORM,"%p(",1,%a0
1086 jeq 1f
1088 1: fp_set_sr FPSR_EXC_OVFL
1091 1: move.w #0x7fff,(-2,%a0)
1092 clr.l (%a0)+
1093 clr.l (%a0)
1094 2: subq.l #8,%a0
1095 printf PNORM,"%p(",1,%a0
1103 jne 1b
1106 jeq 1b
1108 move.l #0xffffff00,(%a0)+
1109 clr.l (%a0)
1113 subq.l #4,%a0
1114 printf PNORM,"%p(",1,%a0
1134 .set inf,(1<<(\b-1))-1 | i.e. MAXINT
1138 addq.l #2,%a0
1147 move.l (%a0),%d0
1148 move.l %d0,%d1
1149 lsl.l %d2,%d1
1151 tst.l (4,%a0)
1155 lsr.l %d2,%d0
1157 jne 1f
1160 printf PCONV,"-> %p\n",1,%d0
1162 1: neg.\s %d0
1163 jeq 1f
1165 1: printf PCONV,"-> %p\n",1,%d0
1174 lsr.l %d2,%d0
1177 tst.l %d1 | test guard bit
1181 lsl.l #1,%d1 | check low bits
1183 tst.l (4,%a0)
1186 addq.l #1,%d0
1204 move.l (4,%a0),%d1 | test guard bit
1206 lsl.l #1,%d1 | check low bits
1211 clr.l %d0
1212 tst.l (%a0)+
1213 jne 1f
1214 tst.l (%a0)
1216 1: subq.l #4,%a0
1220 clr.l %d0
1227 subq.\s #1,%d0
1231 addq.\s #1,%d0
1232 3: printf PCONV,"-> %p\n",1,%d0
1238 jeq 1f
1239 addq.\s #1,%d0
1240 1: printf PCONV,"-> %p\n",1,%d0
1244 tst.l (%a0)
1245 jne 1f
1246 tst.l (%a0)
1250 1: fp_tst_sr FPSR_EXC_SNAN
1251 jne 1f
1253 1: printf PCONV,"-> %p\n",1,%d0
1258 conv_ext2int l,32
1268 printf PCONV,"e2d: %p(",1,%a0
1271 move.l (%a0)+,%d2
1273 jne 1f
1275 move.l (%a0)+,%d0
1277 1: sub.w #0x3fff-0x3ff,%d2
1278 move.l (%a0)+,%d0
1282 lsl.l #7,%d2
1283 lsl.l #8,%d2
1284 move.l %d0,%d1
1285 lsl.l #1,%d0
1286 lsr.l #4,%d0
1287 lsr.l #8,%d0
1288 or.l %d2,%d0
1289 putuser.l %d0,(%a1)+,fp_err_ua2,%a1
1291 lsl.l %d0,%d1
1292 move.l (%a0),%d0
1293 lsr.l #4,%d0
1294 lsr.l #7,%d0
1295 or.l %d1,%d0
1296 putuser.l %d0,(%a1),fp_err_ua2,%a1
1298 getuser.l %a1@(-4),%d0,fp_err_ua2,%a1
1299 getuser.l %a1@(0),%d1,fp_err_ua2,%a1
1306 printf PCONV,"e2s: %p(",1,%a0
1309 move.l (%a0)+,%d1
1311 jne 1f
1313 move.l (%a0)+,%d0
1315 1: sub.w #0x3fff-0x7f,%d1
1316 move.l (%a0)+,%d0
1320 lsl.l #7,%d1
1321 lsl.l #8,%d1
1323 lsr.l #8,%d0
1324 or.l %d1,%d0
1325 printf PCONV,"%08x\n",1,%d0
1333 addq.l #8,%sp
1339 addq.l #8,%sp
1345 addq.l #8,%sp
1355 addq.l #8,%sp
1356 | printf ,"f: %p\n",1,%a0
1359 subq.w #1,%d0
1361 jne 1f
1364 1: jsr fp_normalize_double
1365 2:| printf ,"f: %p\n",1,%a0
1371 clr.l %d0
1372 addq.l #1,%a0
1374 jeq 1f
1376 1: cmp.w #0x7fff,(%a0)+ | exponent
1380 tst.l (%a0)+
1382 tst.l (%a0)
1387 move.l (%a0)+,%d2
1388 lsl.l #1,%d2 | ignore high bit
1390 tst.l (%a0)
1401 move.l (FPD_FPSR,FPDATA),%d0
1404 jne 1f
1407 1: bset #FPSR_AEXC_IOP,%d0 | set IOP bit
1409 jeq 1f
1411 1: btst #FPSR_EXC_UNFL,%d0 | EXC_UNFL
1412 jeq 1f
1414 jeq 1f
1416 1: btst #FPSR_EXC_DZ,%d0 | EXC_INEX1
1417 jeq 1f
1419 1: btst #FPSR_EXC_OVFL,%d0 | EXC_OVFL
1420 jne 1f
1422 jne 1f
1425 1: bset #FPSR_AEXC_INEX,%d0 | set INEX bit
1426 2: move.l %d0,(FPD_FPSR,FPDATA)
1429 move.l %d0,%d2
1430 lsr.l #5,%d0
1431 move.l %d0,%d1
1432 lsr.l #4,%d1
1433 or.l %d0,%d1
1435 move.l %d2,%d0
1436 lsr.l #6,%d0
1437 or.l %d1,%d0
1438 move.l %d2,%d1
1439 lsr.l #4,%d1
1442 move.l %d2,%d1
1443 lsr.l #7,%d1
1448 move.l %d2,(FPD_FPSR,FPDATA)
1452 jeq 1f
1454 1: jra fp_end