?? alrem.s,v
字號:
head 1.1;access;symbols;locks dls:1.1; strict;comment @# @;1.1date 97.09.21.19.27.40; author dls; state Dist;branches;next ;desc@@1.1log@pre-3e code@text@|J. Test 1/81|addressed signed long remainder: *dividend = *dividend % divisor .globl alrem .textalrem: link a6,#0 moveml #0x3800,sp@@- |need d2,d3,d4 registers movl #1,d4 |sign of result movl a6@@(8),a0 |a0 = dividend pointer movl a0@@,d0 |dividend bge 1$ negl d0 negl d41$: movl d0,d2 |save positive dividend movl a6@@(12),d1 |divisor bge 2$ negl d12$: cmpl #0x10000,d1 |divisor < 2 ** 16? bge 3$ |no, divisor must be < 2 ** 16 clrw d0 |d0 = swap d0 | dividend high divu d1,d0 |yes, divide movw d2,d0 |d0 = remainder high + quotient low divu d1,d0 |divide clrw d0 |d0 = swap d0 | remainder bra 6$ |return3$: movl d1,d3 |save divisor4$: asrl #1,d0 |shift dividend asrl #1,d1 |shift divisor andl #0x7FFFFFFF,d0 |assure positive andl #0x7FFFFFFF,d1 | sign bit cmpl #0x10000,d1 |divisor < 2 ** 16? bge 4$ |no, continue shift divu d1,d0 |yes, divide andl #0xFFFF,d0 |erase remainder movl d0,sp@@- |call ulmul with quotient movl d3,sp@@- | and saved divisor on stack jsr ulmul | as arguments addql #8,sp |restore sp cmpl d0,d2 |original dividend >= lmul result? jge 5$ |yes, quotient should be correct subl d3,d0 |no, fixup 5$: subl d2,d0 |calculate negl d0 | remainder6$: tstl d4 |sign of result bge 7$ negl d07$: movl d0,a0@@ |write result via pointer moveml sp@@+,#0x1C |restore registers unlk a6 rts@
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -