No system-calls from libem

This commit is contained in:
ceriel 1992-06-30 16:39:47 +00:00
parent d1b1defbb7
commit f86c403a53
4 changed files with 7 additions and 9 deletions

View file

@ -1,7 +1,7 @@
.sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text
.sect .text
.define prf~
.extern save~,retu~,hol0,_printf
.extern save~,retu~,hol0,printf~
! $Header$
prf~:

View file

@ -1,10 +1,8 @@
.sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text
.sect .text
.define _printf
.define printf~
! $Header$
write = 4
printf~:
mov r2,-(sp)
mov r3,-(sp)
@ -54,7 +52,7 @@ ready:
mov r4,-(sp)
mov $buff,-(sp)
mov $01,-(sp)
jsr pc,__write
jsr pc,WRITE
add $06,sp
mov (sp)+,r4
mov (sp)+,r3

View file

@ -17,7 +17,7 @@ strhp~:
bic $01777,r1
mov r1,-(sp)
mov r1,2f
jsr pc,__brk
jsr pc,BRK
tst (sp)+
tst r0
blt 3f

View file

@ -6,7 +6,7 @@
fat~:
jsr pc,trp~
jsr pc,__exit
jsr pc,EXIT
trp~:
mov r0,-(sp)
@ -88,9 +88,9 @@ trp~:
mov $013,-(sp)
mov $buf,-(sp)
mov $2,-(sp)
jsr pc,__write
jsr pc,WRITE
add $6,sp
jsr pc,__exit
jsr pc,EXIT
.sect .data
retar: .space 16
retend: