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