---------------------------------------------------------------------
- Callable functions in the INTERNAL Jaguar Operating System (TOS)  -
-  Roine Stenberg '95                                              -
- Last update 960219 for V. 1.08                                    -
---------------------------------------------------------------------
- All constants are taken from JSERVER.INC                          -
- All registers are saved that are used by JagOS                    -  
---------------------------------------------------------------------

1. Ask JagOS version number.
   Ver:	1.06

	move.l	JS_GETVER,a0
	jsr	(a0)
	cmp.l	#'1.08',d0
	bge	yes			* Yes, version 1.08 OR HIGHER!

---------------------------------------------------------------------
		
2. Scan Computer keyboard. (DC.W header 0010 must be used also.)
   Ver:	1.08

	move.l	JS_GETKEY,a0
	jsr	(a0)
	cmp.l	#$ffffffff,d0		* Something wrong - no key pressed.
	beq	no_char
	cmp.b	#$??,d0			* Normal Atari _scancodes_ from $FFFC02
	beq	yes_press

---------------------------------------------------------------------

3. Tell computer to abort command polling.
   (DC.W header 0010 must be used also.)
   Ver: 1.08
   
   	move.l	JS_ABORT,a0
   	jsr	(a0)
	cmp.l	#$ffffffff,d0		* Something wrong - abort failed.
	beq	no_abort
---------------------------------------------------------------------
