/
/	SCCS File Type - KSOS Unix Emulator
/
/ 	What string
/
.data
<@(#)EKL	1.4\0>
.text
/***************************************************************
/
/COPYRIGHT:  1979, by Ford Aerospace and Communications Corp.
/ADDRESS:    Ford Aerospace and Communications Corp.
/            Western Development Laboratories
/            3939 Fabian Way
/            Palo Alto, California 94303
/            Attention: Software Technology Dept.
/            Mail Stop: V02
/
/CPCI:
/
/CPC:
/
/TAG:
/
/MODULE NAME:
/
/REFERENCES-
/  A Specs:
/  B5 Specs:
/
/HISTORY:
/  AUTHOR:
/  VERSION:  1.4 of 2/1/80
/  MODULE TYPE: KSOS Unix Emulator
/PRIVILEGES:
/
/SPECIAL NOTES:
/
/****************************************************************/
/-------------------------------------------------------------------------
/
/       FUNCTIONS       Kernel Call Interface;
/
/       PURPOSE         Make the proper emt instruction to call the Kernel.
/
/       INPUTS  {
/       }
/
/       OUTPUTS {
/       }
/
/       DESCRIPTION {
/       }
/
/       ASSERT {
/       }
/
/       EFFECT {
/       }
/
/----------------------------------------------------------------------
emt     = 104000^sys


Kbldseg          =       0.
Kclose           =       1.
Kcreate          =       2.
Kdevfun          =       3.
Kfork            =       4.
Kgetfs           =       5.
Kgetol           =       6.
Kgetps           =       7.
Kgetss           =       8.
Khalt            =       9.
Kintret          =      10.
Kinvoke          =      11.
Klink            =      12.
Kmount           =      13.
Knap             =      14.
Kopen            =      15.
Kpost            =      16.
Kread            =      17.
Kreceive         =      18.
Krelproc         =      19.
Krelseg          =      20.
Kremap           =      21.
Krndzvs          =      22.
Ktrmlock         =      23.
Ksetfs           =      24.
Ksetol           =      25.
Ksetps           =      26.
Ksetss           =      27.
Ksignal          =      28.
Kspawn           =      29.
Kunlink          =      30.
Kumount          =      31.
Kwkpctb          =      32.
Kwrite           =      33.
Ksetpil		 = 	34.





.globl _Kbldseg
_Kbldseg:
	emt	Kbldseg
	rts	pc

.globl _Kclose
_Kclose:
	emt	Kclose
	rts	pc

.globl _Kcreate
_Kcreate:
	emt	Kcreate
	rts	pc

.globl _Kdevfun
_Kdevfun:
	emt	Kdevfun
	rts	pc

.globl _Kfork
_Kfork:
	emt	Kfork
	rts	pc

.globl _Kgetfs
_Kgetfs:
	emt	Kgetfs
	rts	pc

.globl _Kgetol
_Kgetol:
	emt	Kgetol
	rts	pc

.globl _Kgetps
_Kgetps:
	emt	Kgetps
	rts	pc

.globl _Kgetss
_Kgetss:
	emt	Kgetss
	rts	pc

.globl _Khalt
_Khalt:
	emt	Khalt
	rts	pc

.globl _Kintret
_Kintret:
	tst     (sp)+           / call does not retrun, pop of return pc
	emt	Kintret
				/ call never returns but this code is just in
	tst     -(sp)           / case- if error reset stack pointer to pc.
	rts	pc

.globl _Kinvoke
_Kinvoke:
	emt	Kinvoke
	rts	pc

.globl _Klink
_Klink:
	emt	Klink
	rts	pc

.globl _Kmount
_Kmount:
	emt	Kmount
	rts	pc

.globl _Knap
_Knap:
	emt	Knap
	rts	pc

.globl _Kopen
_Kopen:
	emt	Kopen
	rts	pc

.globl _Kpost
_Kpost:
	emt	Kpost
	rts	pc

.globl _Kread
_Kread:
	emt	Kread
	rts	pc

.globl _Kreceive
_Kreceive:
	emt	Kreceive
	rts	pc

.globl _Krelproc
_Krelproc:
	emt	Krelproc
	rts	pc

.globl _Krelseg
_Krelseg:
	emt	Krelseg
	rts	pc

.globl _Kremap
_Kremap:
	emt	Kremap
	rts	pc

.globl _Krndzvs
_Krndzvs:
	emt	Krndzvs
	rts	pc

.globl _Ktrmlock
_Ktrmlock:
	emt	Ktrmlock
	rts	pc

.globl _Ksetfs
_Ksetfs:
	emt	Ksetfs
	rts	pc

.globl _Ksetol
_Ksetol:
	emt	Ksetol
	rts	pc

.globl _Ksetps
_Ksetps:
	emt	Ksetps
	rts	pc

.globl _Ksetss
_Ksetss:
	emt	Ksetss
	rts	pc

.globl _Ksignal
_Ksignal:
	emt	Ksignal
	rts	pc

.globl _Kspawn
_Kspawn:
	emt	Kspawn
	rts	pc

.globl _Kunlink
_Kunlink:
	emt	Kunlink
	rts	pc

.globl _Kumount
_Kumount:
	emt	Kumount
	rts	pc

.globl _Kwkpctb

_Kwkpctb:

	emt	Kwkpctb

	rts	pc

.globl _Kwrite
_Kwrite:
	emt	Kwrite
	rts	pc

.globl _Ksetpil
_Ksetpil:
	emt	Ksetpil
	rts	pc
