Fixes
This commit is contained in:
parent
b281e4c6b5
commit
be3c10d635
@ -54,7 +54,7 @@ ready:
|
|||||||
mov r4,-(sp)
|
mov r4,-(sp)
|
||||||
mov $buff,-(sp)
|
mov $buff,-(sp)
|
||||||
mov $01,-(sp)
|
mov $01,-(sp)
|
||||||
jsr __write
|
jsr pc,__write
|
||||||
add $06,sp
|
add $06,sp
|
||||||
mov (sp)+,r4
|
mov (sp)+,r4
|
||||||
mov (sp)+,r3
|
mov (sp)+,r3
|
||||||
|
|||||||
@ -11,12 +11,13 @@ strhp~:
|
|||||||
mov (sp)+,r1
|
mov (sp)+,r1
|
||||||
mov r0,-(sp)
|
mov r0,-(sp)
|
||||||
mov r1,reghp~
|
mov r1,reghp~
|
||||||
cmp r1,2f+2
|
cmp r1,2f
|
||||||
blos 1f
|
blos 1f
|
||||||
add $01777,r1
|
add $01777,r1
|
||||||
bic $01777,r1
|
bic $01777,r1
|
||||||
mov r1,-(sp)
|
mov r1,-(sp)
|
||||||
jsr __brk
|
mov r1,2f
|
||||||
|
jsr pc,__brk
|
||||||
tst (sp)+
|
tst (sp)+
|
||||||
tst r0
|
tst r0
|
||||||
blt 3f
|
blt 3f
|
||||||
@ -24,3 +25,5 @@ strhp~:
|
|||||||
3: mov $EHEAP,-(sp)
|
3: mov $EHEAP,-(sp)
|
||||||
jsr pc,trp~
|
jsr pc,trp~
|
||||||
rts pc
|
rts pc
|
||||||
|
.sect .data
|
||||||
|
2: .data2 0
|
||||||
|
|||||||
@ -6,7 +6,7 @@
|
|||||||
|
|
||||||
fat~:
|
fat~:
|
||||||
jsr pc,trp~
|
jsr pc,trp~
|
||||||
jsr __exit
|
jsr pc,__exit
|
||||||
|
|
||||||
trp~:
|
trp~:
|
||||||
mov r0,-(sp)
|
mov r0,-(sp)
|
||||||
@ -88,9 +88,9 @@ trp~:
|
|||||||
mov $013,-(sp)
|
mov $013,-(sp)
|
||||||
mov $buf,-(sp)
|
mov $buf,-(sp)
|
||||||
mov $2,-(sp)
|
mov $2,-(sp)
|
||||||
jsr __write
|
jsr pc,__write
|
||||||
add $6,sp
|
add $6,sp
|
||||||
jsr __exit
|
jsr pc,__exit
|
||||||
.sect .data
|
.sect .data
|
||||||
retar: .space 16
|
retar: .space 16
|
||||||
retend:
|
retend:
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user