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

*** empty log message ***

Browse source
This commit is contained in:
ceriel 1986-07-22 14:49:46 +00:00
parent a067d1bc0d
commit 729774d6f8
2 changed files with 23 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

37
mach/m68k4/libem/ara.s
View file

@ -12,26 +12,25 @@
! a1 : base address
.sect .text
.aar:
move.l (sp)+,d2 ! return address
move.l (sp)+,a0 ! descriptor address
move.l (sp)+,d0 ! index
move.l (sp)+,a1 ! base address
move.l 4(sp),a0 ! descriptor address
move.l 8(sp),d0 ! index
move.l 12(sp),a1 ! base address
sub.l (a0),d0 ! index - lower bound : relative index
move.l 8(a0),-(sp) ! # bytes / element
move.l d0,-(sp)
jsr .mlu
add.l d1,a1 ! address of element
move.l (sp)+,a0 ! return address
add.l #12,sp ! pop arguments
move.l a1,-(sp) ! returned on stack
move.l d2,-(sp)
rts
jmp (a0)
.lar:
! register usage: like .aar
move.l (sp)+,d2 ! return address
move.l (sp)+,a0
move.l (sp)+,d0
move.l (sp)+,a1
move.l 4(sp),a0
move.l 8(sp),d0
move.l 12(sp),a1
sub.l (a0),d0
move.l d0,-(sp)
move.l 8(a0),d0
@ -39,6 +38,8 @@
jsr .mlu
add.l d1,a1 ! address of element
add.l 8(a0),a1 ! a1++ because of predecrement
move.l (sp)+,a0 ! return address
add.l #12,sp ! pop parameters
clr.l d1 !?nodig?
asr #1,d0
bne 3f
@ -57,23 +58,22 @@
move.l -(a1),-(sp) ! 4n byte element (n = 1,2,...)
dbf d0,1b
5:
move.l d2,-(sp)
rts
jmp (a0)
.sar:
!register usage: same as lar
move.l (sp)+,d2
move.l (sp)+,a0
move.l (sp)+,d0
move.l (sp)+,a1
move.l 4(sp),a0
move.l 8(sp),d0
move.l 12(sp),a1
sub.l (a0),d0
move.l d0,-(sp)
move.l 8(a0),d0 ! # bytes / element
move.l d0,-(sp)
jsr .mlu
add.l d1,a1
move.l (sp)+,a0 ! return address
add.l #12,sp ! pop parameters
clr.l d1 !?nodig?
asr #1,d0
bne 3f
@ -92,7 +92,6 @@
move.l (sp)+,(a1)+ ! 4n byte element (n = 1,2,...)
dbf d0,1b
4:
move.l d2,-(sp)
rts
jmp (a0)
.align 2

7
mach/m68k4/libem/printf.s
View file

@ -1,11 +1,14 @@
.sect .text;.sect .rom;.sect .data;.sect .bss
.define _printn
.define _printf
.extern _printf
.sect .text;.sect .rom;.sect .data;.sect .bss
.sect .text
_putchar:
move.l #1,-(sp)
pea 9(sp)
lea 8(sp),a0
move.l 8(sp),d0
move.b d0,(a0)
move.l a0,-(sp)
move.l #1,-(sp)
jsr _write
add.l #12,sp