Fixes
This commit is contained in:
parent
b281e4c6b5
commit
be3c10d635
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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:
|
||||
|
|
Loading…
Reference in a new issue