r3 is now scratch
This commit is contained in:
		
							parent
							
								
									2962e93407
								
							
						
					
					
						commit
						f7fbe11132
					
				
					 9 changed files with 17 additions and 22 deletions
				
			
		|  | @ -8,8 +8,8 @@ | ||||||
| 	.sect .text | 	.sect .text | ||||||
| 
 | 
 | ||||||
| .aar: | .aar: | ||||||
| 	movd 8(sp), r7 | 	movd 8(sp), r3 | ||||||
| 	subd 0(4(sp)), r7 | 	subd 0(4(sp)), r3 | ||||||
| 	muld 8(4(sp)), r7 | 	muld 8(4(sp)), r3 | ||||||
| 	addd r7, 12(sp) | 	addd r3, 12(sp) | ||||||
| 	ret 8 | 	ret 8 | ||||||
|  |  | ||||||
|  | @ -7,9 +7,9 @@ | ||||||
| 
 | 
 | ||||||
| 	.sect .text | 	.sect .text | ||||||
| 
 | 
 | ||||||
| !r7 will save return addres | !r3 will save return addres | ||||||
| .cii:	 | .cii:	 | ||||||
| 	movd tos, r7 | 	movd tos, r3 | ||||||
| 	cmpqd 4, tos | 	cmpqd 4, tos | ||||||
| 	bne 3f | 	bne 3f | ||||||
| 	movd tos, r0 | 	movd tos, r0 | ||||||
|  | @ -23,7 +23,7 @@ | ||||||
| 	movd EILLINS, tos | 	movd EILLINS, tos | ||||||
| 	jsr @.trp
 | 	jsr @.trp
 | ||||||
| 4: | 4: | ||||||
| 	movd r7, tos | 	movd r3, tos | ||||||
| 	ret 0 | 	ret 0 | ||||||
| 1:	 | 1:	 | ||||||
| 	movxbd 0(sp), 0(sp) | 	movxbd 0(sp), 0(sp) | ||||||
|  |  | ||||||
|  | @ -7,7 +7,7 @@ | ||||||
| 
 | 
 | ||||||
| 	.sect .text | 	.sect .text | ||||||
| 
 | 
 | ||||||
| .cms:	movd tos, r7		!return addres | .cms:	movd tos, r3		!return addres | ||||||
| 	addr 4(sp), r1 | 	addr 4(sp), r1 | ||||||
| 	movd r1, r2 | 	movd r1, r2 | ||||||
| 	addd 0(sp), r2 | 	addd 0(sp), r2 | ||||||
|  | @ -23,7 +23,7 @@ | ||||||
| 	xord r1, r1 | 	xord r1, r1 | ||||||
| 4: | 4: | ||||||
| 	adjspd r0 | 	adjspd r0 | ||||||
| 	movd r7, tos | 	movd r3, tos | ||||||
| 	ret 0 | 	ret 0 | ||||||
| 2: | 2: | ||||||
| 	movd 1, r1 | 	movd 1, r1 | ||||||
|  |  | ||||||
|  | @ -7,7 +7,7 @@ | ||||||
| 
 | 
 | ||||||
| 	.sect .text | 	.sect .text | ||||||
| 
 | 
 | ||||||
| .cmu:	movd tos, r7		!return addres | .cmu:	movd tos, r3		!return addres | ||||||
| 	addr 4(sp), r1 | 	addr 4(sp), r1 | ||||||
| 	movd r1, r2 | 	movd r1, r2 | ||||||
| 	addd 0(sp), r2 | 	addd 0(sp), r2 | ||||||
|  | @ -24,7 +24,7 @@ | ||||||
| 	xord r1, r1 | 	xord r1, r1 | ||||||
| 4: | 4: | ||||||
| 	adjspd r0 | 	adjspd r0 | ||||||
| 	movd r7, tos | 	movd r3, tos | ||||||
| 	ret 0 | 	ret 0 | ||||||
| 1:	 | 1:	 | ||||||
| 	movd 1, r1 | 	movd 1, r1 | ||||||
|  |  | ||||||
|  | @ -10,7 +10,6 @@ | ||||||
| !r0 contains index | !r0 contains index | ||||||
| !r1 contains pointer to csb descriptor | !r1 contains pointer to csb descriptor | ||||||
| .csb: | .csb: | ||||||
| 	save[r2,r3] |  | ||||||
| 	movd 4(r1), r2		!number of entries | 	movd 4(r1), r2		!number of entries | ||||||
| 	cmpqd 0, r2 | 	cmpqd 0, r2 | ||||||
| 	beq 3f | 	beq 3f | ||||||
|  | @ -23,7 +22,6 @@ | ||||||
| 3:				!r1 now contains right pointer | 3:				!r1 now contains right pointer | ||||||
| 	cmpqd 0, 0(r1)		!test destination addres | 	cmpqd 0, 0(r1)		!test destination addres | ||||||
| 	beq 4f | 	beq 4f | ||||||
| 	restore[r2,r3] |  | ||||||
| 	movd 0(r1), tos		!jump to destination | 	movd 0(r1), tos		!jump to destination | ||||||
| 	ret 4 | 	ret 4 | ||||||
| 2: | 2: | ||||||
|  | @ -32,5 +30,4 @@ | ||||||
| 4: | 4: | ||||||
| 	movd ECASE, tos | 	movd ECASE, tos | ||||||
| 	jsr @.trp
 | 	jsr @.trp
 | ||||||
| 	restore[r2,r3] |  | ||||||
| 	ret 0 | 	ret 0 | ||||||
|  |  | ||||||
|  | @ -8,7 +8,6 @@ | ||||||
| 	.sect .text | 	.sect .text | ||||||
| 
 | 
 | ||||||
| .exg: | .exg: | ||||||
| 	save [r2,r3] |  | ||||||
| 	addr 8(sp), r3 | 	addr 8(sp), r3 | ||||||
| 	movd r3, r2 | 	movd r3, r2 | ||||||
| 	addd r0, r3 | 	addd r0, r3 | ||||||
|  | @ -19,5 +18,4 @@ | ||||||
| 	addr 4(r2), r2 | 	addr 4(r2), r2 | ||||||
| 	addr 4(r3), r3 | 	addr 4(r3), r3 | ||||||
| 	acbd -4, r0, 1b | 	acbd -4, r0, 1b | ||||||
| 	restore[r2,r3] |  | ||||||
| 	ret 0 | 	ret 0 | ||||||
|  |  | ||||||
|  | @ -8,7 +8,7 @@ | ||||||
| 	.sect .text | 	.sect .text | ||||||
| 
 | 
 | ||||||
| .los: | .los: | ||||||
| 	movd tos, r7 | 	movd tos, r3 | ||||||
| 	movd tos, r0 | 	movd tos, r0 | ||||||
| 	movd tos, r1 | 	movd tos, r1 | ||||||
| 	cmpqd 1, r0 | 	cmpqd 1, r0 | ||||||
|  | @ -21,7 +21,7 @@ | ||||||
| 	movd 0(r1), tos | 	movd 0(r1), tos | ||||||
| 	acbd -4, r0, 3b | 	acbd -4, r0, 3b | ||||||
| 4: | 4: | ||||||
| 	movd r7, tos | 	movd r3, tos | ||||||
| 	ret 0 | 	ret 0 | ||||||
| 1:	 | 1:	 | ||||||
| 	movzbd 0(r1), tos | 	movzbd 0(r1), tos | ||||||
|  |  | ||||||
|  | @ -6,9 +6,9 @@ | ||||||
| 
 | 
 | ||||||
| 
 | 
 | ||||||
| .strhp: | .strhp: | ||||||
| 	movd    tos,r7 | 	movd    tos,r3 | ||||||
| 	movd    tos,r0 | 	movd    tos,r0 | ||||||
| 	movd	r7,tos | 	movd	r3,tos | ||||||
| 	movd    r0,@.reghp
 | 	movd    r0,@.reghp
 | ||||||
| !	cmpd    r0,@.limhp
 | !	cmpd    r0,@.limhp
 | ||||||
| !	blo	I2 | !	blo	I2 | ||||||
|  |  | ||||||
|  | @ -8,7 +8,7 @@ | ||||||
| 	.sect .text | 	.sect .text | ||||||
| 
 | 
 | ||||||
| .sts: | .sts: | ||||||
| 	movd tos, r7 | 	movd tos, r3 | ||||||
| 	movd tos, r0 | 	movd tos, r0 | ||||||
| 	movd tos, r1 | 	movd tos, r1 | ||||||
| 	cmpqd 1, r0 | 	cmpqd 1, r0 | ||||||
|  | @ -20,7 +20,7 @@ | ||||||
| 	addqd 4, r1 | 	addqd 4, r1 | ||||||
| 	acbd -4, r0, 3b | 	acbd -4, r0, 3b | ||||||
| 4: | 4: | ||||||
| 	movd r7, tos | 	movd r3, tos | ||||||
| 	ret 0 | 	ret 0 | ||||||
| 1:	 | 1:	 | ||||||
| 	movb tos, 0(r1) | 	movb tos, 0(r1) | ||||||
|  |  | ||||||
		Loading…
	
	Add table
		
		Reference in a new issue