1 ;--------------------------------------------------------
2 ; File Created by SDCC : FreeWare ANSI-C Compiler
3 ; Version 2.1.9Ga Sun Jan 16 17:31:26 2000
5 ;--------------------------------------------------------
7 ;--------------------------------------------------------
8 ; publics variables in this module
9 ;--------------------------------------------------------
10 .globl ___fsdiv_PARM_2
12 ;--------------------------------------------------------
13 ; special function registers
14 ;--------------------------------------------------------
15 ;--------------------------------------------------------
16 ; special function bits
17 ;--------------------------------------------------------
18 ;--------------------------------------------------------
20 ;--------------------------------------------------------
30 ;--------------------------------------------------------
31 ; overlayable items in internal ram
32 ;--------------------------------------------------------
34 ;--------------------------------------------------------
35 ; indirectly addressable internal ram data
36 ;--------------------------------------------------------
38 ;--------------------------------------------------------
40 ;--------------------------------------------------------
42 ;--------------------------------------------------------
44 ;--------------------------------------------------------
64 ;--------------------------------------------------------
65 ; global & static initialisations
66 ;--------------------------------------------------------
68 ;--------------------------------------------------------
70 ;--------------------------------------------------------
74 ; -----------------------------------------
76 ; -----------------------------------------
91 mov dptr,#___fsdiv_a1_1_1
104 mov dptr,#___fsdiv_a1_1_1
116 mov dptr,#(___fsdiv_fl1_1_1)
129 mov dptr,#___fsdiv_PARM_2
141 mov dptr,#(___fsdiv_fl2_1_1)
154 mov dptr,#(___fsdiv_fl1_1_1)
183 mov dptr,#___fsdiv_exp_1_1
187 ; Peephole 180 changed mov to clr
191 mov dptr,#(___fsdiv_fl2_1_1)
221 mov dptr,#___fsdiv_exp_1_1
227 mov dptr,#___fsdiv_exp_1_1
237 mov dptr,#___fsdiv_exp_1_1
243 mov dptr,#___fsdiv_exp_1_1
247 ; Peephole 180 changed mov to clr
253 mov dptr,#(___fsdiv_fl1_1_1)
264 ; Peephole 105 removed redundant mov
268 mov ___fsdiv_sloc0_1_0,a
269 mov dptr,#(___fsdiv_fl2_1_1)
271 mov ___fsdiv_sloc1_1_0,a
274 mov (___fsdiv_sloc1_1_0 + 1),a
277 mov (___fsdiv_sloc1_1_0 + 2),a
280 ; Peephole 105 removed redundant mov
281 mov (___fsdiv_sloc1_1_0 + 3),a
284 ; Peephole 105 removed redundant mov
286 xrl a,___fsdiv_sloc0_1_0
287 mov ___fsdiv_sloc1_1_0,a
289 mov dptr,#(___fsdiv_fl2_1_1)
291 mov ___fsdiv_sloc2_1_0,a
294 mov (___fsdiv_sloc2_1_0 + 1),a
297 mov (___fsdiv_sloc2_1_0 + 2),a
300 mov (___fsdiv_sloc2_1_0 + 3),a
301 mov a,___fsdiv_sloc2_1_0
302 orl a,(___fsdiv_sloc2_1_0 + 1)
303 orl a,(___fsdiv_sloc2_1_0 + 2)
304 orl a,(___fsdiv_sloc2_1_0 + 3)
305 ; Peephole 109 removed ljmp by inverse jump logic
309 ; Peephole 181 used 16 bit load of dptr
316 mov dptr,#(___fsdiv_fl1_1_1)
318 mov ___fsdiv_sloc2_1_0,a
321 mov (___fsdiv_sloc2_1_0 + 1),a
324 mov (___fsdiv_sloc2_1_0 + 2),a
327 mov (___fsdiv_sloc2_1_0 + 3),a
328 mov a,___fsdiv_sloc2_1_0
329 orl a,(___fsdiv_sloc2_1_0 + 1)
330 orl a,(___fsdiv_sloc2_1_0 + 2)
331 orl a,(___fsdiv_sloc2_1_0 + 3)
332 ; Peephole 109 removed ljmp by inverse jump logic
336 ; Peephole 3.a changed mov to clr
337 ; Peephole 3.b changed mov to clr
338 ; Peephole 3.b changed mov to clr
346 mov dptr,#(___fsdiv_fl1_1_1)
348 mov ___fsdiv_sloc2_1_0,a
351 mov (___fsdiv_sloc2_1_0 + 1),a
354 mov (___fsdiv_sloc2_1_0 + 2),a
357 mov (___fsdiv_sloc2_1_0 + 3),a
358 anl (___fsdiv_sloc2_1_0 + 2),#0x7f
359 mov (___fsdiv_sloc2_1_0 + 3),#0x00
360 mov dptr,#___fsdiv_mant1_1_1
361 mov a,___fsdiv_sloc2_1_0
364 mov a,(___fsdiv_sloc2_1_0 + 1)
367 orl a,(___fsdiv_sloc2_1_0 + 2)
371 mov a,(___fsdiv_sloc2_1_0 + 3)
374 mov dptr,#(___fsdiv_fl2_1_1)
376 mov ___fsdiv_sloc2_1_0,a
379 mov (___fsdiv_sloc2_1_0 + 1),a
382 mov (___fsdiv_sloc2_1_0 + 2),a
385 mov (___fsdiv_sloc2_1_0 + 3),a
386 anl (___fsdiv_sloc2_1_0 + 2),#0x7f
387 mov (___fsdiv_sloc2_1_0 + 3),#0x00
388 mov dptr,#___fsdiv_mant2_1_1
389 mov a,___fsdiv_sloc2_1_0
392 mov a,(___fsdiv_sloc2_1_0 + 1)
395 orl a,(___fsdiv_sloc2_1_0 + 2)
399 mov a,(___fsdiv_sloc2_1_0 + 3)
402 mov dptr,#___fsdiv_mant2_1_1
404 mov ___fsdiv_sloc2_1_0,a
407 mov (___fsdiv_sloc2_1_0 + 1),a
410 mov (___fsdiv_sloc2_1_0 + 2),a
413 mov (___fsdiv_sloc2_1_0 + 3),a
414 mov dptr,#___fsdiv_mant1_1_1
416 mov ___fsdiv_sloc3_1_0,a
419 mov (___fsdiv_sloc3_1_0 + 1),a
422 mov (___fsdiv_sloc3_1_0 + 2),a
425 mov (___fsdiv_sloc3_1_0 + 3),a
427 mov a,___fsdiv_sloc3_1_0
428 subb a,___fsdiv_sloc2_1_0
429 mov a,(___fsdiv_sloc3_1_0 + 1)
430 subb a,(___fsdiv_sloc2_1_0 + 1)
431 mov a,(___fsdiv_sloc3_1_0 + 2)
432 subb a,(___fsdiv_sloc2_1_0 + 2)
433 mov a,(___fsdiv_sloc3_1_0 + 3)
435 mov b,(___fsdiv_sloc2_1_0 + 3)
442 mov dptr,#___fsdiv_mant1_1_1
444 mov ___fsdiv_sloc3_1_0,a
447 mov (___fsdiv_sloc3_1_0 + 1),a
450 mov (___fsdiv_sloc3_1_0 + 2),a
453 mov (___fsdiv_sloc3_1_0 + 3),a
454 mov a,___fsdiv_sloc3_1_0
456 mov ___fsdiv_sloc3_1_0,a
457 mov a,(___fsdiv_sloc3_1_0 + 1)
459 mov (___fsdiv_sloc3_1_0 + 1),a
460 mov a,(___fsdiv_sloc3_1_0 + 2)
462 mov (___fsdiv_sloc3_1_0 + 2),a
463 mov a,(___fsdiv_sloc3_1_0 + 3)
465 mov (___fsdiv_sloc3_1_0 + 3),a
466 mov dptr,#___fsdiv_mant1_1_1
467 mov a,___fsdiv_sloc3_1_0
470 mov a,(___fsdiv_sloc3_1_0 + 1)
473 mov a,(___fsdiv_sloc3_1_0 + 2)
476 mov a,(___fsdiv_sloc3_1_0 + 3)
479 mov dptr,#___fsdiv_exp_1_1
482 mov ___fsdiv_sloc3_1_0,a
486 mov (___fsdiv_sloc3_1_0 + 1),a
487 mov dptr,#___fsdiv_exp_1_1
488 mov a,___fsdiv_sloc3_1_0
491 mov a,(___fsdiv_sloc3_1_0 + 1)
495 mov dptr,#___fsdiv_mask_1_1
496 ; Peephole 101 removed redundant mov
497 ; Peephole 180 changed mov to clr
503 ; Peephole 180 changed mov to clr
510 mov dptr,#___fsdiv_result_1_1
524 mov dptr,#___fsdiv_mask_1_1
526 mov ___fsdiv_sloc3_1_0,a
529 mov (___fsdiv_sloc3_1_0 + 1),a
532 mov (___fsdiv_sloc3_1_0 + 2),a
535 mov (___fsdiv_sloc3_1_0 + 3),a
536 mov a,___fsdiv_sloc3_1_0
537 orl a,(___fsdiv_sloc3_1_0 + 1)
538 orl a,(___fsdiv_sloc3_1_0 + 2)
539 orl a,(___fsdiv_sloc3_1_0 + 3)
544 mov dptr,#___fsdiv_mant2_1_1
546 mov ___fsdiv_sloc3_1_0,a
549 mov (___fsdiv_sloc3_1_0 + 1),a
552 mov (___fsdiv_sloc3_1_0 + 2),a
555 mov (___fsdiv_sloc3_1_0 + 3),a
556 mov dptr,#___fsdiv_mant1_1_1
558 mov ___fsdiv_sloc2_1_0,a
561 mov (___fsdiv_sloc2_1_0 + 1),a
564 mov (___fsdiv_sloc2_1_0 + 2),a
567 mov (___fsdiv_sloc2_1_0 + 3),a
569 mov a,___fsdiv_sloc2_1_0
570 subb a,___fsdiv_sloc3_1_0
571 mov a,(___fsdiv_sloc2_1_0 + 1)
572 subb a,(___fsdiv_sloc3_1_0 + 1)
573 mov a,(___fsdiv_sloc2_1_0 + 2)
574 subb a,(___fsdiv_sloc3_1_0 + 2)
575 mov a,(___fsdiv_sloc2_1_0 + 3)
577 mov b,(___fsdiv_sloc3_1_0 + 3)
584 mov dptr,#___fsdiv_mask_1_1
586 mov ___fsdiv_sloc3_1_0,a
589 mov (___fsdiv_sloc3_1_0 + 1),a
592 mov (___fsdiv_sloc3_1_0 + 2),a
595 mov (___fsdiv_sloc3_1_0 + 3),a
596 mov dptr,#___fsdiv_result_1_1
598 mov ___fsdiv_sloc2_1_0,a
601 mov (___fsdiv_sloc2_1_0 + 1),a
604 mov (___fsdiv_sloc2_1_0 + 2),a
607 mov (___fsdiv_sloc2_1_0 + 3),a
608 mov dptr,#___fsdiv_result_1_1
609 mov a,___fsdiv_sloc3_1_0
610 orl a,___fsdiv_sloc2_1_0
612 mov a,(___fsdiv_sloc3_1_0 + 1)
613 orl a,(___fsdiv_sloc2_1_0 + 1)
616 mov a,(___fsdiv_sloc3_1_0 + 2)
617 orl a,(___fsdiv_sloc2_1_0 + 2)
620 mov a,(___fsdiv_sloc3_1_0 + 3)
621 orl a,(___fsdiv_sloc2_1_0 + 3)
625 mov dptr,#___fsdiv_mant2_1_1
627 mov ___fsdiv_sloc3_1_0,a
630 mov (___fsdiv_sloc3_1_0 + 1),a
633 mov (___fsdiv_sloc3_1_0 + 2),a
636 mov (___fsdiv_sloc3_1_0 + 3),a
637 mov dptr,#___fsdiv_mant1_1_1
639 mov ___fsdiv_sloc2_1_0,a
642 mov (___fsdiv_sloc2_1_0 + 1),a
645 mov (___fsdiv_sloc2_1_0 + 2),a
648 mov (___fsdiv_sloc2_1_0 + 3),a
649 mov dptr,#___fsdiv_mant1_1_1
651 mov a,___fsdiv_sloc2_1_0
652 subb a,___fsdiv_sloc3_1_0
654 mov a,(___fsdiv_sloc2_1_0 + 1)
655 subb a,(___fsdiv_sloc3_1_0 + 1)
658 mov a,(___fsdiv_sloc2_1_0 + 2)
659 subb a,(___fsdiv_sloc3_1_0 + 2)
662 mov a,(___fsdiv_sloc2_1_0 + 3)
663 subb a,(___fsdiv_sloc3_1_0 + 3)
668 mov dptr,#___fsdiv_mant1_1_1
670 mov ___fsdiv_sloc3_1_0,a
673 mov (___fsdiv_sloc3_1_0 + 1),a
676 mov (___fsdiv_sloc3_1_0 + 2),a
679 mov (___fsdiv_sloc3_1_0 + 3),a
680 mov a,___fsdiv_sloc3_1_0
682 mov ___fsdiv_sloc3_1_0,a
683 mov a,(___fsdiv_sloc3_1_0 + 1)
685 mov (___fsdiv_sloc3_1_0 + 1),a
686 mov a,(___fsdiv_sloc3_1_0 + 2)
688 mov (___fsdiv_sloc3_1_0 + 2),a
689 mov a,(___fsdiv_sloc3_1_0 + 3)
691 mov (___fsdiv_sloc3_1_0 + 3),a
692 mov dptr,#___fsdiv_mant1_1_1
693 mov a,___fsdiv_sloc3_1_0
696 mov a,(___fsdiv_sloc3_1_0 + 1)
699 mov a,(___fsdiv_sloc3_1_0 + 2)
702 mov a,(___fsdiv_sloc3_1_0 + 3)
705 mov dptr,#___fsdiv_mask_1_1
707 mov ___fsdiv_sloc3_1_0,a
710 mov (___fsdiv_sloc3_1_0 + 1),a
713 mov (___fsdiv_sloc3_1_0 + 2),a
716 ; Peephole 106 removed redundant mov
717 mov (___fsdiv_sloc3_1_0 + 3),a
720 mov (___fsdiv_sloc3_1_0 + 3),a
721 mov a,(___fsdiv_sloc3_1_0 + 2)
723 mov (___fsdiv_sloc3_1_0 + 2),a
724 mov a,(___fsdiv_sloc3_1_0 + 1)
726 mov (___fsdiv_sloc3_1_0 + 1),a
727 mov a,___fsdiv_sloc3_1_0
729 ; Peephole 100 removed redundant mov
730 mov ___fsdiv_sloc3_1_0,a
731 mov dptr,#___fsdiv_mask_1_1
734 mov a,(___fsdiv_sloc3_1_0 + 1)
737 mov a,(___fsdiv_sloc3_1_0 + 2)
740 mov a,(___fsdiv_sloc3_1_0 + 3)
745 mov dptr,#___fsdiv_result_1_1
747 mov ___fsdiv_sloc3_1_0,a
750 mov (___fsdiv_sloc3_1_0 + 1),a
753 mov (___fsdiv_sloc3_1_0 + 2),a
756 mov (___fsdiv_sloc3_1_0 + 3),a
757 mov dptr,#___fsdiv_result_1_1
759 add a,___fsdiv_sloc3_1_0
761 ; Peephole 180 changed mov to clr
763 addc a,(___fsdiv_sloc3_1_0 + 1)
766 ; Peephole 180 changed mov to clr
768 addc a,(___fsdiv_sloc3_1_0 + 2)
771 ; Peephole 180 changed mov to clr
773 addc a,(___fsdiv_sloc3_1_0 + 3)
777 mov dptr,#___fsdiv_exp_1_1
786 mov dptr,#___fsdiv_result_1_1
788 mov ___fsdiv_sloc3_1_0,a
791 mov (___fsdiv_sloc3_1_0 + 1),a
794 mov (___fsdiv_sloc3_1_0 + 2),a
797 ; Peephole 105 removed redundant mov
798 mov (___fsdiv_sloc3_1_0 + 3),a
801 mov (___fsdiv_sloc3_1_0 + 3),a
802 mov a,(___fsdiv_sloc3_1_0 + 2)
804 mov (___fsdiv_sloc3_1_0 + 2),a
805 mov a,(___fsdiv_sloc3_1_0 + 1)
807 mov (___fsdiv_sloc3_1_0 + 1),a
808 mov a,___fsdiv_sloc3_1_0
810 ; Peephole 100 removed redundant mov
811 mov ___fsdiv_sloc3_1_0,a
812 mov dptr,#___fsdiv_result_1_1
815 mov a,(___fsdiv_sloc3_1_0 + 1)
818 mov a,(___fsdiv_sloc3_1_0 + 2)
821 mov a,(___fsdiv_sloc3_1_0 + 3)
824 mov dptr,#___fsdiv_result_1_1
826 mov ___fsdiv_sloc3_1_0,a
829 mov (___fsdiv_sloc3_1_0 + 1),a
832 mov (___fsdiv_sloc3_1_0 + 2),a
835 mov (___fsdiv_sloc3_1_0 + 3),a
836 mov dptr,#___fsdiv_result_1_1
837 mov a,___fsdiv_sloc3_1_0
840 mov a,(___fsdiv_sloc3_1_0 + 1)
843 anl a,(___fsdiv_sloc3_1_0 + 2)
847 mov a,(___fsdiv_sloc3_1_0 + 3)
850 mov dptr,#___fsdiv_exp_1_1
852 mov ___fsdiv_sloc3_1_0,a
855 mov (___fsdiv_sloc3_1_0 + 1),a
856 mov (___fsdiv_sloc3_1_0 + 2),___fsdiv_sloc3_1_0
857 mov a,(___fsdiv_sloc3_1_0 + 1)
860 xch a,(___fsdiv_sloc3_1_0 + 2)
862 xch a,(___fsdiv_sloc3_1_0 + 2)
864 xch a,(___fsdiv_sloc3_1_0 + 2)
865 mov (___fsdiv_sloc3_1_0 + 3),a
866 mov (___fsdiv_sloc3_1_0 + 1),#0x00
867 mov ___fsdiv_sloc3_1_0,#0x00
868 mov ___fsdiv_sloc2_1_0,___fsdiv_sloc1_1_0
869 ; Peephole 3.c changed mov to clr
870 ; Peephole 3.b changed mov to clr
872 mov (___fsdiv_sloc2_1_0 + 1),a
873 mov (___fsdiv_sloc2_1_0 + 2),a
874 mov (___fsdiv_sloc2_1_0 + 3),a
875 mov a,___fsdiv_sloc2_1_0
876 orl ___fsdiv_sloc3_1_0,a
877 mov a,(___fsdiv_sloc2_1_0 + 1)
878 orl (___fsdiv_sloc3_1_0 + 1),a
879 mov a,(___fsdiv_sloc2_1_0 + 2)
880 orl (___fsdiv_sloc3_1_0 + 2),a
881 mov a,(___fsdiv_sloc2_1_0 + 3)
882 orl (___fsdiv_sloc3_1_0 + 3),a
883 mov dptr,#___fsdiv_result_1_1
885 mov ___fsdiv_sloc2_1_0,a
888 mov (___fsdiv_sloc2_1_0 + 1),a
891 mov (___fsdiv_sloc2_1_0 + 2),a
894 mov (___fsdiv_sloc2_1_0 + 3),a
895 mov a,___fsdiv_sloc2_1_0
896 orl ___fsdiv_sloc3_1_0,a
897 mov a,(___fsdiv_sloc2_1_0 + 1)
898 orl (___fsdiv_sloc3_1_0 + 1),a
899 mov a,(___fsdiv_sloc2_1_0 + 2)
900 orl (___fsdiv_sloc3_1_0 + 2),a
901 mov a,(___fsdiv_sloc2_1_0 + 3)
902 orl (___fsdiv_sloc3_1_0 + 3),a
903 mov dptr,#(___fsdiv_fl1_1_1)
904 mov a,___fsdiv_sloc3_1_0
907 mov a,(___fsdiv_sloc3_1_0 + 1)
910 mov a,(___fsdiv_sloc3_1_0 + 2)
913 mov a,(___fsdiv_sloc3_1_0 + 3)
916 mov dptr,#(___fsdiv_fl1_1_1)
918 mov ___fsdiv_sloc3_1_0,a
921 mov (___fsdiv_sloc3_1_0 + 1),a
924 mov (___fsdiv_sloc3_1_0 + 2),a
927 ; Peephole 191 removed redundant mov
928 mov (___fsdiv_sloc3_1_0 + 3),a
929 mov dpl,___fsdiv_sloc3_1_0
930 mov dph,(___fsdiv_sloc3_1_0 + 1)
931 mov b,(___fsdiv_sloc3_1_0 + 2)
933 C$_fsdiv.c$139$1$1 ==.