This commit is contained in:
ceriel 1991-09-19 14:39:10 +00:00
parent b281e4c6b5
commit be3c10d635
3 changed files with 9 additions and 6 deletions

View file

@ -54,7 +54,7 @@ ready:
mov r4,-(sp)
mov $buff,-(sp)
mov $01,-(sp)
jsr __write
jsr pc,__write
add $06,sp
mov (sp)+,r4
mov (sp)+,r3

View file

@ -11,12 +11,13 @@ strhp~:
mov (sp)+,r1
mov r0,-(sp)
mov r1,reghp~
cmp r1,2f+2
cmp r1,2f
blos 1f
add $01777,r1
bic $01777,r1
mov r1,-(sp)
jsr __brk
mov r1,2f
jsr pc,__brk
tst (sp)+
tst r0
blt 3f
@ -24,3 +25,5 @@ strhp~:
3: mov $EHEAP,-(sp)
jsr pc,trp~
rts pc
.sect .data
2: .data2 0

View file

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