Fixes
This commit is contained in:
		
							parent
							
								
									b281e4c6b5
								
							
						
					
					
						commit
						be3c10d635
					
				
					 3 changed files with 9 additions and 6 deletions
				
			
		| 
						 | 
				
			
			@ -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…
	
	Add table
		
		Reference in a new issue