mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-24 08:54:17 +00:00
Upload
Digital Research
This commit is contained in:
20
CPM OPERATING SYSTEMS/CPM 68K/1.0X SOURCES/v101/clib/aldiv.s
Normal file
20
CPM OPERATING SYSTEMS/CPM 68K/1.0X SOURCES/v101/clib/aldiv.s
Normal file
@@ -0,0 +1,20 @@
|
||||
.globl _ldiv
|
||||
.globl _aldiv
|
||||
.globl aldiv
|
||||
.text
|
||||
_aldiv:
|
||||
aldiv:
|
||||
~~aldiv:
|
||||
~l2=12
|
||||
~al1=8
|
||||
link R14,#-2
|
||||
move.l 12(R14),-(sp)
|
||||
move.l 8(R14),R8
|
||||
move.l (R8),-(sp)
|
||||
jsr _ldiv
|
||||
cmpm.l (sp)+,(sp)+
|
||||
move.l 8(R14),R9
|
||||
move.l R0,(R9)
|
||||
L1:
|
||||
unlk R14
|
||||
rts
|
||||
Reference in New Issue
Block a user