d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Fixed wrong mlu4.s

Browse source
This commit is contained in:
ceriel 1987-04-23 14:47:28 +00:00
parent 41da733a19
commit 90c699f418
1 changed files with 5 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
mach/pdp/libem/mlu4.s
View file

@ -5,20 +5,18 @@
mlu4~: mlu4~:
jsr pc,save~ jsr pc,save~
clr r0 clr r1
mov 02(sp),r1 mov 02(sp),r0
mov 06(sp),r3 mov 06(sp),r3
mul r3,r0 mul r3,r0
tst r3 tst r3
bge 1f bge 1f
ashc $15.,r0 add 02(sp),r0
1: mov 02(sp),r3 1: mov 02(sp),r3
clr r2 mul 04(sp),r3
mul 04(sp),r2
add r3,r0 add r3,r0
mov 06(sp),r3 mov 06(sp),r3
clr r2 mul (sp),r3
mul (sp),r2
add r3,r0 add r3,r0
add $010,sp add $010,sp
jmp retu~ jmp retu~