ack/mach/mantra/int/mloopc

.sect .text
.sect .rom
.sect .data
.retaddr:
	.data4	0
.sect .bss
.sect .text
!THIS FILE CONTAINS THE SYSTEM CALLS FOR PMDS-II AS SUBROUTINES FOR THE
!EM-INTERPRETER. a5 CONTAINS A POINTER TO THE RETURN AREA . EACH SUBROUTINE
!EXPECTS ITS DATA IN THE FORM EM PRODUCES AND GIVES ITS RESULTS AS EM 
!REQUIRES.
!THE PMDS-II REQUIRES THE ARGUMENTS ON THE STACK AS 4 BYTE INTEGERS  OR
!POINTERS , AND USES THE C-CALLING CONVENTION. THE 2 BYTE WORDS 4 BYTE
!POINTERS VERSION HAS TO DO SOME CONVERSION FIRST .

_Xexit:		move.l	(sp)+,.retaddr
#ifndef lword
		bsr	st241
#endif
		jsr	__exit

_Xfork:		move.l	(sp)+,.retaddr
		jsr	_fork
		tst.l	d0
		blt	2f
		bne	1f
		jsr	_getpid
		mov	d1,-(sp)	!PID OF PARENT IN d1
		mov	#1,-(sp)	!(PID OF CHILD IN D0),FLAG 1 IN CHILD
		bra	0f
1:		mov	d0,-(sp)	!PID OF CHILD IN d0
		cl	-(sp)		!FLAG 0 IN PARENT
0:		cl	-(sp)
		bra	3f
2:		move.l	_errno,d0
		mov	d0,-(sp)
		mov	d0,-(sp)
3:		move.l	.retaddr,a0
		jmp	(a0)
!_Xfork is special

_Xread:		move.l	(sp)+,.retaddr
#ifndef lword
		bsr	st241
#endif
		jsr	_read
sys0:		lea	12(sp),sp
		cmp.l	#-1,d0
		bne	1f
		move.l	_errno,d0
		mov	d0,-(sp)
		mov	d0,-(sp)
		bra	2f
1:		move.l	d0,-(sp)
		cl	-(sp)
2:		move.l	.retaddr,a0
		jmp	(a0)

_Xwrite:	move.l	(sp)+,.retaddr
#ifndef lword
		bsr	st241
#endif
		jsr	_write
		bra	sys0

_Xopen:		move.l	(sp)+,.retaddr
#ifndef lword
		bsr	st243
#endif
		jsr	_open
sys1:		lea	8(sp),sp
sys5:		cmp.l	#-1,d0
		bne	1f
		move.l	_errno,d0
		mov	d0,-(sp)
		mov	d0,-(sp)
		bra	2f
1:		mov	d0,-(sp)
		cl	-(sp)
2:		move.l	.retaddr,a0
		jmp	(a0)

_Xclose:	move.l	(sp)+,.retaddr
#ifndef lword
		bsr	st241
#endif
		jsr	_close
sys3:		lea	4(sp),sp
sys4:		cmp.l	#-1,d0
		bne	1f
		move.l	_errno,d0
		mov	d0,-(sp)
		mov	d0,-(sp)
		bra	2f
1:		cl	-(sp)
2:		move.l	.retaddr,a0
		jmp	(a0)

_Xwait:		move.l	(sp)+,.retaddr
.sect .data
xxxx:
	.data4 0, 0
.sect .text
		move.l	#xxxx,-(sp)
		jsr	_wait
		add.l	#4,sp
sys6:		cmp.l	#-1,d0
		bne	1f
		move.l	_errno,d0
		mov	d0,-(sp)
		mov	d0,-(sp)
		bra	2f
1:		mov	xxxx+4,-(sp)		! ??
		mov	xxxx,-(sp)
		cl	-(sp)
2:		move.l	.retaddr,a0
		jmp	(a0)

_Xcreat:	move.l	(sp)+,.retaddr
#ifndef lword
		bsr	st243
#endif
		jsr	_creat
		bra	sys1

_Xlink:		move.l	(sp)+,.retaddr
		jsr	_link
		lea	8(sp),sp
		bra	sys4

_Xunlink:	move.l	(sp)+,.retaddr
		jsr	_unlink
		bra	sys3

_Xchdir:	move.l	(sp)+,.retaddr
		jsr	_chdir
		bra	sys3

_Xmknod:	move.l	(sp)+,.retaddr
#ifndef lword
		bsr	st244
#endif
		jsr	_mknod
		lea	12(sp),sp
		bra	sys4

_Xchmod:	move.l	(sp)+,.retaddr
#ifndef lword
		bsr	st243
#endif
		jsr	_chmod
		lea	8(sp),sp
		bra	sys4

_Xchown:	move.l	(sp)+,.retaddr
#ifndef lword
		bsr	st244
#endif
		jsr	_chown
		lea	12(sp),sp
		bra	sys4

_Xbreak:	move.l	(sp)+,.retaddr
		jsr	_brk
		lea	4(sp),sp
		cmp.l	#-1,d0
		bne	1f
		move.l	_errno,d0
		mov	d0,-(sp)
		mov	d0,-(sp)
		bra	2f
1:		move.l	-4(sp),nd
		cl	-(sp)
2:		move.l	.retaddr,a0
		jmp	(a0)

	.sect .data
nd:	.data4	endbss
	.sect .text

_Xstat:		move.l	(sp)+,.retaddr
		jsr	_stat
		lea	8(sp),sp
		bra	sys4

_Xlseek:	move.l	(sp)+,.retaddr
#ifndef lword
		bsr	st245
#endif
		jsr	_lseek
		lea	12(sp),sp
		cmp.l	#-1,d0
		bne	1f
		move.l	_errno,d0
		mov	d0,-(sp)
		mov	d0,-(sp)
		bra	2f
1:		move.l	d0,-(sp)
		cl	-(sp)
2:		move.l	.retaddr,a0
		jmp	(a0)

_Xgetpid:	move.l	(sp)+,.retaddr
		jsr	_getpid
		mov	d0,-(sp)
		move.l	.retaddr,a0
		jmp	(a0)

_Xmount:	move.l	(sp)+,.retaddr
#ifndef lword
		bsr	st246
#endif
		jsr	_mount
		lea	12(sp),sp
		bra	sys4

_Xumount:	move.l	(sp)+,.retaddr
		jsr	_umount
		bra	sys3

_Xsetuid:	move.l	(sp)+,.retaddr
#ifndef lword
		bsr	st241
#endif
		jsr	_setuid
		bra	sys3

_Xgetuid:	move.l	(sp)+,.retaddr
		jsr	_getuid
sys7:		mov	d1,-(sp)
		mov	d0,-(sp)
		move.l	.retaddr,a0
		jmp	(a0)

_Xstime:	move.l	(sp)+,.retaddr
		jsr	_stime
		bra	sys3

_Xptrace:	move.l	(sp)+,.retaddr
#ifndef lword
		bsr	st247
#endif
		jsr	_ptrace
		lea	16(sp),sp
		bra	sys5

_Xalarm:	move.l	(sp)+,.retaddr
#ifndef lword
		sub.l	#2,sp
		clr.w	(sp)
#endif
		jsr	_alarm
		lea	4(sp),sp
		mov	d0,-(sp)
		move.l	.retaddr,a0
		jmp	(a0)

_Xfstat:	move.l	(sp)+,.retaddr
#ifndef lword
		bsr	st241
#endif
		jsr	_fstat
		lea	8(sp),sp
		bra	sys4

_Xpause:	jsr	_pause
		rts

_Xutime:	move.l	(sp)+,.retaddr
		jsr	_utime
		lea	8(sp),sp
		bra	sys4

_Xaccess:	move.l	(sp)+,.retaddr
#ifndef lword
		bsr	st243
#endif
		jsr	_access
		lea	8(sp),sp
		bra	sys4

_Xnice:		move.l	(sp)+,.retaddr
#ifndef lword
		bsr	241
#endif
		jsr	_nice
		move.l	.retaddr,(sp)
		rts

_Xftime:	move.l	(sp)+,.retaddr
		jsr	_ftime
		bra	sys3

_Xsync:		jsr	_sync
		rts

_Xkill:		move.l	(sp)+,.retaddr
#ifndef lword
		bsr	st248
#endif
		jsr	_kill
		lea	4(sp),sp
		bra	sys4

_Xdup:		move.l	(sp)+,.retaddr
#ifndef lword
		bsr	st248
#endif
		jsr	_dup
		bra	sys1

_Xpipe:		move.l	(sp)+,.retaddr
		move.l	#xxxx,-(sp)
		jsr	_pipe
		add.l	#4,sp
		bra	sys6

_Xtimes:	move.l	(sp)+,.retaddr
		jsr	_times
		move.l	.retaddr,a0
		add.l	#4,sp
		jmp	(a0)

_Xprofil:	move.l	(sp)+,.retaddr
		jsr	_profil
		move.l	.retaddr,a0
		lea	16(sp),sp
		jmp	(a0)

_Xsetgid:	move.l	(sp)+,.retaddr
#ifndef	lword
		bsr	st241 
#endif
		jsr	_setgid
		bra	sys3

_Xgetgid:	move.l	(sp)+,.retaddr
		jsr	_getpid
		bra	sys7

_Xsignal:	move.l	(sp)+,.retaddr
		mov	(sp)+,d4
		extend	d4
		move.l	d4,-(sp)
		jsr	_signal
		lea	8(sp),sp		!remove arguments
		cmp.l	#-1,d0
		bne	1f
		move.l	_errno,d0
		mov	d0,-(sp)
		mov	d0,-(sp)
		bra	2f
1:
 		mov	d0,-(sp)
		cl	-(sp)
2:
		move.l	.retaddr,a0
		jmp	(a0)

_Xacct:		move.l	(sp)+,.retaddr
		jsr	_acct
		bra	sys3
!_Xlock:		move.l	(sp)+,.retaddr
!#ifndef	lword
!		bsr	st241
!#endif
!		jsr	_lock
!		bra	sys3

_Xioctl:	move.l	(sp)+,.retaddr
#ifndef	lword
		bsr	st248
#endif
		jsr	_ioctl
		lea	12(sp),sp
		bra	sys4

!_Xmpxcall:	move.l	(sp)+,.retaddr
!#ifndef	lword
!		bsr	st241
!#endif
!		trap	#0
!	.data2	56
!		lea	12(sp),sp
!		bra	sys4

_Xexece:	move.l	(sp)+,.retaddr
		jsr	_execve
		lea	12(sp),sp
		bra	sys4

_Xumask:	move.l	(sp)+,.retaddr
#ifndef	lword
		bsr	st241
#endif
		jsr	_umask
		add.l	#4,sp
		mov	d0,-(sp)
		move.l	.retaddr,a0
		jmp	(a0)

_Xchroot:	move.l	(sp)+,.retaddr
		jsr	_chroot
		bra	sys3


!----------------------------------------------------------------------------
!		STACK ADJUSTMENT FOR THE TWO BYTE INTERPRETER
!-----------------------------------------------------------------------------
#ifndef lword

st241:		sub.l	#2,sp
		move.l	2(sp),(sp)
		move.w	6(sp),d0
		ext.l	d0
		move.l	d0,4(sp)
		rts

st243:		sub.l	#2,sp
		move.l	2(sp),(sp)
		move.l	6(sp),4(sp)
		move.w	10(sp),d0
		ext.l	d0
		move.l	d0,8(sp)
		rts

st244:		move.l	(sp),-(sp)
		move.l	8(sp),4(sp)
		move.w	12(sp),d0
		ext.l	d0
		move.l	d0,8(sp)
		move.w	16(sp),d0
		ext.l	d0
		move.l	d0,12(sp)
		rts

st245:		move.l	(sp),-(sp)
		move.w	8(sp),d0
		ext.l	d0
		move.l	d0,4(sp)
		move.l	10(sp),8(sp)
		move.w	14(sp),d0
		ext.l	d0
		move.l	d0,12(sp)
		rts

st246:		sub.l	#2,sp
		move.l	2(sp),(sp)
		move.l	6(sp),4(sp)
		move.l	10(sp),8(sp)
		move.w	14(sp),d0
		ext.l	d0
		move.l	d0,12(sp)
		rts

st247:		sub.l	#6,sp
		move.l	6(sp),(sp)
		move.w	10(sp),d0
		ext.l	d0
		move.l	d0,4(sp)
		move.w	12(sp),d0
		ext.l	d0
		move.l	d0,8(sp)
		move.l	14(sp),12(sp)
		move.w	18(sp),d0
		ext.l	d0
		move.l	d0,16(sp)
		rts

st248:		move.l	(sp),-(sp)
		move.w	8(sp),d0
		ext.l	d0
		move.l	d0,4(sp)
		move.w	10(sp),d0
		ext.l	d0
		move.l	d0,8(sp)
		rts

#endif
Adapted to new assembler 1986-12-09 11:13:14 +00:00			`.sect .text`
			`.sect .rom`
			`.sect .data`
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`.retaddr:`
			`.data4 0`
Adapted to new assembler 1986-12-09 11:13:14 +00:00			`.sect .bss`
			`.sect .text`
* empty log message * 1984-07-23 11:49:00 +00:00			`!THIS FILE CONTAINS THE SYSTEM CALLS FOR PMDS-II AS SUBROUTINES FOR THE`
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`!EM-INTERPRETER. a5 CONTAINS A POINTER TO THE RETURN AREA . EACH SUBROUTINE`
* empty log message * 1984-07-23 11:49:00 +00:00			`!EXPECTS ITS DATA IN THE FORM EM PRODUCES AND GIVES ITS RESULTS AS EM`
1 - signal did not clear the stack properly. 2 - lseek did not return correct. 1984-12-18 17:12:12 +00:00			`!REQUIRES.`
			`!THE PMDS-II REQUIRES THE ARGUMENTS ON THE STACK AS 4 BYTE INTEGERS OR`
			`!POINTERS , AND USES THE C-CALLING CONVENTION. THE 2 BYTE WORDS 4 BYTE`
			`!POINTERS VERSION HAS TO DO SOME CONVERSION FIRST .`
* empty log message * 1984-07-23 11:49:00 +00:00
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`_Xexit: move.l (sp)+,.retaddr`
* empty log message * 1984-07-23 11:49:00 +00:00			`#ifndef lword`
			`bsr st241`
			`#endif`
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`jsr __exit`
* empty log message * 1984-07-23 11:49:00 +00:00
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`_Xfork: move.l (sp)+,.retaddr`
			`jsr _fork`
			`tst.l d0`
			`blt 2f`
* empty log message * 1984-07-23 11:49:00 +00:00			`bne 1f`
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`jsr _getpid`
* empty log message * 1984-07-23 11:49:00 +00:00			`mov d1,-(sp) !PID OF PARENT IN d1`
			`mov #1,-(sp) !(PID OF CHILD IN D0),FLAG 1 IN CHILD`
			`bra 0f`
			`1: mov d0,-(sp) !PID OF CHILD IN d0`
			`cl -(sp) !FLAG 0 IN PARENT`
			`0: cl -(sp)`
			`bra 3f`
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`2: move.l _errno,d0`
			`mov d0,-(sp)`
* empty log message * 1984-07-23 11:49:00 +00:00			`mov d0,-(sp)`
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`3: move.l .retaddr,a0`
* empty log message * 1984-07-23 11:49:00 +00:00			`jmp (a0)`
renamed systemcalls 1987-03-30 09:39:38 +00:00			`!_Xfork is special`
* empty log message * 1984-07-23 11:49:00 +00:00
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`_Xread: move.l (sp)+,.retaddr`
* empty log message * 1984-07-23 11:49:00 +00:00			`#ifndef lword`
			`bsr st241`
			`#endif`
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`jsr _read`
			`sys0: lea 12(sp),sp`
			`cmp.l #-1,d0`
			`bne 1f`
			`move.l _errno,d0`
* empty log message * 1984-07-23 11:49:00 +00:00			`mov d0,-(sp)`
			`mov d0,-(sp)`
			`bra 2f`
			`1: move.l d0,-(sp)`
			`cl -(sp)`
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`2: move.l .retaddr,a0`
* empty log message * 1984-07-23 11:49:00 +00:00			`jmp (a0)`

Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`_Xwrite: move.l (sp)+,.retaddr`
* empty log message * 1984-07-23 11:49:00 +00:00			`#ifndef lword`
			`bsr st241`
			`#endif`
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`jsr _write`
* empty log message * 1984-07-23 11:49:00 +00:00			`bra sys0`

Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`_Xopen: move.l (sp)+,.retaddr`
* empty log message * 1984-07-23 11:49:00 +00:00			`#ifndef lword`
			`bsr st243`
			`#endif`
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`jsr _open`
			`sys1: lea 8(sp),sp`
			`sys5: cmp.l #-1,d0`
			`bne 1f`
			`move.l _errno,d0`
* empty log message * 1984-07-23 11:49:00 +00:00			`mov d0,-(sp)`
			`mov d0,-(sp)`
			`bra 2f`
			`1: mov d0,-(sp)`
			`cl -(sp)`
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`2: move.l .retaddr,a0`
* empty log message * 1984-07-23 11:49:00 +00:00			`jmp (a0)`

Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`_Xclose: move.l (sp)+,.retaddr`
* empty log message * 1984-07-23 11:49:00 +00:00			`#ifndef lword`
			`bsr st241`
			`#endif`
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`jsr _close`
			`sys3: lea 4(sp),sp`
			`sys4: cmp.l #-1,d0`
			`bne 1f`
			`move.l _errno,d0`
* empty log message * 1984-07-23 11:49:00 +00:00			`mov d0,-(sp)`
			`mov d0,-(sp)`
			`bra 2f`
			`1: cl -(sp)`
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`2: move.l .retaddr,a0`
* empty log message * 1984-07-23 11:49:00 +00:00			`jmp (a0)`

Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`_Xwait: move.l (sp)+,.retaddr`
			`.sect .data`
			`xxxx:`
			`.data4 0, 0`
			`.sect .text`
			`move.l #xxxx,-(sp)`
			`jsr _wait`
			`add.l #4,sp`
			`sys6: cmp.l #-1,d0`
			`bne 1f`
			`move.l _errno,d0`
* empty log message * 1984-07-23 11:49:00 +00:00			`mov d0,-(sp)`
			`mov d0,-(sp)`
			`bra 2f`
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`1: mov xxxx+4,-(sp) ! ??`
			`mov xxxx,-(sp)`
* empty log message * 1984-07-23 11:49:00 +00:00			`cl -(sp)`
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`2: move.l .retaddr,a0`
* empty log message * 1984-07-23 11:49:00 +00:00			`jmp (a0)`

Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`_Xcreat: move.l (sp)+,.retaddr`
* empty log message * 1984-07-23 11:49:00 +00:00			`#ifndef lword`
			`bsr st243`
			`#endif`
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`jsr _creat`
* empty log message * 1984-07-23 11:49:00 +00:00			`bra sys1`

Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`_Xlink: move.l (sp)+,.retaddr`
			`jsr _link`
			`lea 8(sp),sp`
* empty log message * 1984-07-23 11:49:00 +00:00			`bra sys4`

Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`_Xunlink: move.l (sp)+,.retaddr`
			`jsr _unlink`
* empty log message * 1984-07-23 11:49:00 +00:00			`bra sys3`

Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`_Xchdir: move.l (sp)+,.retaddr`
			`jsr _chdir`
* empty log message * 1984-07-23 11:49:00 +00:00			`bra sys3`

Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`_Xmknod: move.l (sp)+,.retaddr`
* empty log message * 1984-07-23 11:49:00 +00:00			`#ifndef lword`
			`bsr st244`
			`#endif`
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`jsr _mknod`
			`lea 12(sp),sp`
* empty log message * 1984-07-23 11:49:00 +00:00			`bra sys4`

Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`_Xchmod: move.l (sp)+,.retaddr`
* empty log message * 1984-07-23 11:49:00 +00:00			`#ifndef lword`
			`bsr st243`
			`#endif`
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`jsr _chmod`
			`lea 8(sp),sp`
* empty log message * 1984-07-23 11:49:00 +00:00			`bra sys4`

Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`_Xchown: move.l (sp)+,.retaddr`
* empty log message * 1984-07-23 11:49:00 +00:00			`#ifndef lword`
			`bsr st244`
			`#endif`
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`jsr _chown`
			`lea 12(sp),sp`
* empty log message * 1984-07-23 11:49:00 +00:00			`bra sys4`

Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`_Xbreak: move.l (sp)+,.retaddr`
			`jsr _brk`
			`lea 4(sp),sp`
			`cmp.l #-1,d0`
			`bne 1f`
			`move.l _errno,d0`
* empty log message * 1984-07-23 11:49:00 +00:00			`mov d0,-(sp)`
			`mov d0,-(sp)`
			`bra 2f`
			`1: move.l -4(sp),nd`
			`cl -(sp)`
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`2: move.l .retaddr,a0`
* empty log message * 1984-07-23 11:49:00 +00:00			`jmp (a0)`

Adapted to new assembler 1986-12-09 11:13:14 +00:00			`.sect .data`
			`nd: .data4 endbss`
			`.sect .text`
* empty log message * 1984-07-23 11:49:00 +00:00
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`_Xstat: move.l (sp)+,.retaddr`
			`jsr _stat`
			`lea 8(sp),sp`
* empty log message * 1984-07-23 11:49:00 +00:00			`bra sys4`

Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`_Xlseek: move.l (sp)+,.retaddr`
* empty log message * 1984-07-23 11:49:00 +00:00			`#ifndef lword`
			`bsr st245`
			`#endif`
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`jsr _lseek`
			`lea 12(sp),sp`
			`cmp.l #-1,d0`
			`bne 1f`
			`move.l _errno,d0`
* empty log message * 1984-07-23 11:49:00 +00:00			`mov d0,-(sp)`
			`mov d0,-(sp)`
			`bra 2f`
1 - signal did not clear the stack properly. 2 - lseek did not return correct. 1984-12-18 17:12:12 +00:00			`1: move.l d0,-(sp)`
* empty log message * 1984-07-23 11:49:00 +00:00			`cl -(sp)`
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`2: move.l .retaddr,a0`
* empty log message * 1984-07-23 11:49:00 +00:00			`jmp (a0)`

Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`_Xgetpid: move.l (sp)+,.retaddr`
			`jsr _getpid`
* empty log message * 1984-07-23 11:49:00 +00:00			`mov d0,-(sp)`
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`move.l .retaddr,a0`
* empty log message * 1984-07-23 11:49:00 +00:00			`jmp (a0)`

Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`_Xmount: move.l (sp)+,.retaddr`
* empty log message * 1984-07-23 11:49:00 +00:00			`#ifndef lword`
			`bsr st246`
			`#endif`
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`jsr _mount`
			`lea 12(sp),sp`
* empty log message * 1984-07-23 11:49:00 +00:00			`bra sys4`

Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`_Xumount: move.l (sp)+,.retaddr`
			`jsr _umount`
* empty log message * 1984-07-23 11:49:00 +00:00			`bra sys3`

Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`_Xsetuid: move.l (sp)+,.retaddr`
* empty log message * 1984-07-23 11:49:00 +00:00			`#ifndef lword`
			`bsr st241`
			`#endif`
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`jsr _setuid`
* empty log message * 1984-07-23 11:49:00 +00:00			`bra sys3`

Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`_Xgetuid: move.l (sp)+,.retaddr`
			`jsr _getuid`
			`sys7: mov d1,-(sp)`
* empty log message * 1984-07-23 11:49:00 +00:00			`mov d0,-(sp)`
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`move.l .retaddr,a0`
* empty log message * 1984-07-23 11:49:00 +00:00			`jmp (a0)`

Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`_Xstime: move.l (sp)+,.retaddr`
			`jsr _stime`
* empty log message * 1984-07-23 11:49:00 +00:00			`bra sys3`

Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`_Xptrace: move.l (sp)+,.retaddr`
* empty log message * 1984-07-23 11:49:00 +00:00			`#ifndef lword`
			`bsr st247`
			`#endif`
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`jsr _ptrace`
			`lea 16(sp),sp`
* empty log message * 1984-07-23 11:49:00 +00:00			`bra sys5`

Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`_Xalarm: move.l (sp)+,.retaddr`
* empty log message * 1984-07-23 11:49:00 +00:00			`#ifndef lword`
			`sub.l #2,sp`
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`clr.w (sp)`
* empty log message * 1984-07-23 11:49:00 +00:00			`#endif`
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`jsr _alarm`
			`lea 4(sp),sp`
* empty log message * 1984-07-23 11:49:00 +00:00			`mov d0,-(sp)`
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`move.l .retaddr,a0`
* empty log message * 1984-07-23 11:49:00 +00:00			`jmp (a0)`

Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`_Xfstat: move.l (sp)+,.retaddr`
* empty log message * 1984-07-23 11:49:00 +00:00			`#ifndef lword`
			`bsr st241`
			`#endif`
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`jsr _fstat`
			`lea 8(sp),sp`
* empty log message * 1984-07-23 11:49:00 +00:00			`bra sys4`

Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`_Xpause: jsr _pause`
* empty log message * 1984-07-23 11:49:00 +00:00			`rts`

Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`_Xutime: move.l (sp)+,.retaddr`
			`jsr _utime`
			`lea 8(sp),sp`
* empty log message * 1984-07-23 11:49:00 +00:00			`bra sys4`

Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`_Xaccess: move.l (sp)+,.retaddr`
* empty log message * 1984-07-23 11:49:00 +00:00			`#ifndef lword`
yet another bug fix 1987-04-07 09:57:50 +00:00			`bsr st243`
* empty log message * 1984-07-23 11:49:00 +00:00			`#endif`
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`jsr _access`
			`lea 8(sp),sp`
* empty log message * 1984-07-23 11:49:00 +00:00			`bra sys4`

Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`_Xnice: move.l (sp)+,.retaddr`
* empty log message * 1984-07-23 11:49:00 +00:00			`#ifndef lword`
			`bsr 241`
			`#endif`
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`jsr _nice`
			`move.l .retaddr,(sp)`
* empty log message * 1984-07-23 11:49:00 +00:00			`rts`

Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`_Xftime: move.l (sp)+,.retaddr`
			`jsr _ftime`
* empty log message * 1984-07-23 11:49:00 +00:00			`bra sys3`

Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`_Xsync: jsr _sync`
* empty log message * 1984-07-23 11:49:00 +00:00			`rts`

Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`_Xkill: move.l (sp)+,.retaddr`
* empty log message * 1984-07-23 11:49:00 +00:00			`#ifndef lword`
			`bsr st248`
			`#endif`
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`jsr _kill`
			`lea 4(sp),sp`
* empty log message * 1984-07-23 11:49:00 +00:00			`bra sys4`

Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`_Xdup: move.l (sp)+,.retaddr`
* empty log message * 1984-07-23 11:49:00 +00:00			`#ifndef lword`
			`bsr st248`
			`#endif`
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`jsr _dup`
* empty log message * 1984-07-23 11:49:00 +00:00			`bra sys1`

Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`_Xpipe: move.l (sp)+,.retaddr`
			`move.l #xxxx,-(sp)`
			`jsr _pipe`
			`add.l #4,sp`
* empty log message * 1984-07-23 11:49:00 +00:00			`bra sys6`

Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`_Xtimes: move.l (sp)+,.retaddr`
			`jsr _times`
			`move.l .retaddr,a0`
			`add.l #4,sp`
* empty log message * 1984-07-23 11:49:00 +00:00			`jmp (a0)`

Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`_Xprofil: move.l (sp)+,.retaddr`
			`jsr _profil`
			`move.l .retaddr,a0`
			`lea 16(sp),sp`
* empty log message * 1984-07-23 11:49:00 +00:00			`jmp (a0)`

Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`_Xsetgid: move.l (sp)+,.retaddr`
* empty log message * 1984-07-23 11:49:00 +00:00			`#ifndef lword`
			`bsr st241`
			`#endif`
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`jsr _setgid`
* empty log message * 1984-07-23 11:49:00 +00:00			`bra sys3`

Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`_Xgetgid: move.l (sp)+,.retaddr`
			`jsr _getpid`
* empty log message * 1984-07-23 11:49:00 +00:00			`bra sys7`

Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`_Xsignal: move.l (sp)+,.retaddr`
* empty log message * 1984-07-23 11:49:00 +00:00			`mov (sp)+,d4`
			`extend d4`
			`move.l d4,-(sp)`
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`jsr _signal`
some fixes 1987-10-16 17:57:09 +00:00			`lea 8(sp),sp !remove arguments`
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`cmp.l #-1,d0`
			`bne 1f`
			`move.l _errno,d0`
* empty log message * 1984-07-23 11:49:00 +00:00			`mov d0,-(sp)`
			`mov d0,-(sp)`
1 - signal did not clear the stack properly. 2 - lseek did not return correct. 1984-12-18 17:12:12 +00:00			`bra 2f`
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`1:`
			`mov d0,-(sp)`
1 - signal did not clear the stack properly. 2 - lseek did not return correct. 1984-12-18 17:12:12 +00:00			`cl -(sp)`
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`2:`
			`move.l .retaddr,a0`
* empty log message * 1984-07-23 11:49:00 +00:00			`jmp (a0)`

Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`_Xacct: move.l (sp)+,.retaddr`
			`jsr _acct`
* empty log message * 1984-07-23 11:49:00 +00:00			`bra sys3`
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`!_Xlock: move.l (sp)+,.retaddr`
			`!#ifndef lword`
			`! bsr st241`
			`!#endif`
			`! jsr _lock`
			`! bra sys3`
* empty log message * 1984-07-23 11:49:00 +00:00
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`_Xioctl: move.l (sp)+,.retaddr`
* empty log message * 1984-07-23 11:49:00 +00:00			`#ifndef lword`
			`bsr st248`
			`#endif`
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`jsr _ioctl`
			`lea 12(sp),sp`
* empty log message * 1984-07-23 11:49:00 +00:00			`bra sys4`

Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`!_Xmpxcall: move.l (sp)+,.retaddr`
renamed systemcalls 1987-03-30 09:39:38 +00:00			`!#ifndef lword`
			`! bsr st241`
			`!#endif`
			`! trap #0`
			`! .data2 56`
			`! lea 12(sp),sp`
			`! bra sys4`
* empty log message * 1984-07-23 11:49:00 +00:00
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`_Xexece: move.l (sp)+,.retaddr`
			`jsr _execve`
			`lea 12(sp),sp`
* empty log message * 1984-07-23 11:49:00 +00:00			`bra sys4`

Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`_Xumask: move.l (sp)+,.retaddr`
* empty log message * 1984-07-23 11:49:00 +00:00			`#ifndef lword`
			`bsr st241`
			`#endif`
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`jsr _umask`
			`add.l #4,sp`
* empty log message * 1984-07-23 11:49:00 +00:00			`mov d0,-(sp)`
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`move.l .retaddr,a0`
* empty log message * 1984-07-23 11:49:00 +00:00			`jmp (a0)`

Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`_Xchroot: move.l (sp)+,.retaddr`
			`jsr _chroot`
* empty log message * 1984-07-23 11:49:00 +00:00			`bra sys3`


			`!----------------------------------------------------------------------------`
			`! STACK ADJUSTMENT FOR THE TWO BYTE INTERPRETER`
			`!-----------------------------------------------------------------------------`
			`#ifndef lword`

			`st241: sub.l #2,sp`
			`move.l 2(sp),(sp)`
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`move.w 6(sp),d0`
* empty log message * 1984-07-23 11:49:00 +00:00			`ext.l d0`
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`move.l d0,4(sp)`
* empty log message * 1984-07-23 11:49:00 +00:00			`rts`

			`st243: sub.l #2,sp`
			`move.l 2(sp),(sp)`
			`move.l 6(sp),4(sp)`
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`move.w 10(sp),d0`
* empty log message * 1984-07-23 11:49:00 +00:00			`ext.l d0`
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`move.l d0,8(sp)`
* empty log message * 1984-07-23 11:49:00 +00:00			`rts`

			`st244: move.l (sp),-(sp)`
			`move.l 8(sp),4(sp)`
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`move.w 12(sp),d0`
			`ext.l d0`
			`move.l d0,8(sp)`
* empty log message * 1984-07-23 11:49:00 +00:00			`move.w 16(sp),d0`
			`ext.l d0`
			`move.l d0,12(sp)`
			`rts`

			`st245: move.l (sp),-(sp)`
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`move.w 8(sp),d0`
* empty log message * 1984-07-23 11:49:00 +00:00			`ext.l d0`
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`move.l d0,4(sp)`
			`move.l 10(sp),8(sp)`
			`move.w 14(sp),d0`
* empty log message * 1984-07-23 11:49:00 +00:00			`ext.l d0`
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`move.l d0,12(sp)`
* empty log message * 1984-07-23 11:49:00 +00:00			`rts`

			`st246: sub.l #2,sp`
			`move.l 2(sp),(sp)`
			`move.l 6(sp),4(sp)`
			`move.l 10(sp),8(sp)`
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`move.w 14(sp),d0`
* empty log message * 1984-07-23 11:49:00 +00:00			`ext.l d0`
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`move.l d0,12(sp)`
* empty log message * 1984-07-23 11:49:00 +00:00			`rts`

			`st247: sub.l #6,sp`
			`move.l 6(sp),(sp)`
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`move.w 10(sp),d0`
* empty log message * 1984-07-23 11:49:00 +00:00			`ext.l d0`
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`move.l d0,4(sp)`
			`move.w 12(sp),d0`
* empty log message * 1984-07-23 11:49:00 +00:00			`ext.l d0`
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`move.l d0,8(sp)`
			`move.l 14(sp),12(sp)`
			`move.w 18(sp),d0`
* empty log message * 1984-07-23 11:49:00 +00:00			`ext.l d0`
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`move.l d0,16(sp)`
* empty log message * 1984-07-23 11:49:00 +00:00			`rts`

			`st248: move.l (sp),-(sp)`
Ported to other m68000 systems 1987-03-31 09:23:20 +00:00			`move.w 8(sp),d0`
			`ext.l d0`
			`move.l d0,4(sp)`
yet another bug fix 1987-04-07 09:57:50 +00:00			`move.w 10(sp),d0`
* empty log message * 1984-07-23 11:49:00 +00:00			`ext.l d0`
			`move.l d0,8(sp)`
			`rts`

			`#endif`