made to work
This commit is contained in:
		
							parent
							
								
									a93d4a1e29
								
							
						
					
					
						commit
						e61d8f6356
					
				
					 2 changed files with 24 additions and 5 deletions
				
			
		| 
						 | 
				
			
			@ -1,6 +1,6 @@
 | 
			
		|||
.sect .text; .sect .rom; .sect .data; .sect .bss
 | 
			
		||||
 | 
			
		||||
.define begtext,begdata,begbss
 | 
			
		||||
.define begtext,begdata,begbss,syscal
 | 
			
		||||
.define hol0,.reghp,.limhp,.trppc,.ignmask
 | 
			
		||||
.define ERANGE,ESET,EHEAP,ECASE,EILLINS,EIDIVZ,EODDZ
 | 
			
		||||
.extern _end
 | 
			
		||||
| 
						 | 
				
			
			@ -14,6 +14,22 @@ EODDZ           = 19
 | 
			
		|||
ECASE           = 20
 | 
			
		||||
 | 
			
		||||
.sect .text
 | 
			
		||||
	.data1	0353
 | 
			
		||||
	.data1	0176	! jmp to begtext in 2 bytes. Assembler generates 3
 | 
			
		||||
			! bytes.
 | 
			
		||||
syscal: jmp 1f
 | 
			
		||||
grow:	jmp 2f
 | 
			
		||||
	jmp 2f
 | 
			
		||||
	.data2 -277, -277, -277, -277, -277, -277
 | 
			
		||||
2:
 | 
			
		||||
	mov ax,2088
 | 
			
		||||
1:
 | 
			
		||||
	int 5
 | 
			
		||||
	jmp 1f
 | 
			
		||||
	.space 100
 | 
			
		||||
1:
 | 
			
		||||
	ret
 | 
			
		||||
 | 
			
		||||
begtext:
 | 
			
		||||
	mov bx,sp
 | 
			
		||||
	mov cx,(bx)
 | 
			
		||||
| 
						 | 
				
			
			@ -26,6 +42,12 @@ begtext:
 | 
			
		|||
	push bx
 | 
			
		||||
	push cx
 | 
			
		||||
	xor bp,bp
 | 
			
		||||
	mov bx,_end
 | 
			
		||||
	mov cx,9
 | 
			
		||||
	add bx,1024
 | 
			
		||||
	shr bx,cl
 | 
			
		||||
	shl bx,cl
 | 
			
		||||
	call grow
 | 
			
		||||
	call    _m_a_i_n
 | 
			
		||||
	call	__exit
 | 
			
		||||
.sect	.data
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -1,13 +1,10 @@
 | 
			
		|||
.sect .text; .sect .rom; .sect .data; .sect .bss
 | 
			
		||||
.define syscal, sysal, sysn, sysnl, sysnx, sysc, syse, cerror, _errno
 | 
			
		||||
.define sysal, sysn, sysnl, sysnx, sysc, syse, cerror, _errno
 | 
			
		||||
 | 
			
		||||
.sect .bss
 | 
			
		||||
	.comm	_errno, 2
 | 
			
		||||
 | 
			
		||||
.sect .text
 | 
			
		||||
syscal:
 | 
			
		||||
	int	5
 | 
			
		||||
	ret
 | 
			
		||||
 | 
			
		||||
sysal:
 | 
			
		||||
	push	bp
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
	Add table
		
		Reference in a new issue