- #define bl (__mulint_PARM_2)
- #define bh (__mulint_PARM_2 + 1)
- __mulint_PARM_2:
- __muluint_PARM_2: ; obsolete
- __mulsint_PARM_2: ; obsolete
-
- .globl __mulint_PARM_2
- .globl __muluint_PARM_2 ; obsolete
- .globl __mulsint_PARM_2 ; obsolete
-
- .ds 2
-#endif
-
- .area CSEG (CODE)
-
- ; globbered registers none
-
- mov a,dpl ; 1 al
- mov b,bl ; 2 bl
- mul ab ; 4 al * bl
- xch a,dpl ; 1 store low-byte of return value, fetch al
- push b ; 2
-
- mov b,bh ; 2 bh
- mul ab ; 4 al * bh
- pop b ; 2
- add a,b ; 1
- xch a,dph ; 1 ah -> acc
-
- mov b,bl ; 2 bl
- mul ab ; 4 ah * bl
- add a,dph ; 1
- mov dph,a ; 1
- ret ; 2
- ; 30
+ #define bl (__mulint_PARM_2)
+ #define bh (__mulint_PARM_2 + 1)
+__mulint_PARM_2:
+
+ .globl __mulint_PARM_2
+
+ .ds 2
+#endif
+
+ .area CSEG (CODE)
+
+ ; globbered registers none
+
+ mov a,dpl ; 1 al
+ mov b,bl ; 2 bl
+ mul ab ; 4 al * bl
+ xch a,dpl ; 1 store low-byte of return value, fetch al
+ push b ; 2
+
+ mov b,bh ; 2 bh
+ mul ab ; 4 al * bh
+ pop b ; 2
+ add a,b ; 1
+ xch a,dph ; 1 ah -> acc
+
+ mov b,bl ; 2 bl
+ mul ab ; 4 ah * bl
+ add a,dph ; 1
+ mov dph,a ; 1
+ ret ; 2
+ ; 30