JOYBASICASM;*************************************
;* JOYSOFTWARE MIT AUFRUF UEBER	USR- *
;* FUNKTION.ANFANGSADRESSE 512 D IN  *
;* BASIC-MERKZELLE 772 D EINTRAGEN.  *
;*                        WERNER     *
;*************************************
;
;	*ABFRAGE UND AUSWERTUNG
;
MERK	EQU 023CH	;MERKZELLE
JOY1	EQU 023EH	;DATEN HEBEL 1
JOY2	EQU 023DH	;DATEN HEBEL 2
ABST	EQU 040H	;ABST.TAB
 	ORG 0240H
	DEFB 0		;UMCOD.TAB.
	DEFB 1
	DEFB 3
	DEFB 2
	DEFB 5
	DEFB 0
	DEFB 4
	DEFB 0
	DEFB 7
	DEFB 8
	DEFB 0
	DEFB 0
	DEFB 6
	DEFB 0
	DEFB 0
	DEFB 9
;
	ORG 0200H
	LD H,02
	IN A,(0FFH)	;ABFRAGE
	LD (MERK),A
	AND 0FH		;MASKE HEBEL 2
	ADD ABST
	LD L,A
	LD A,(HL)
	LD (JOY2),A
	LD A,(MERK)
	LD B,(04)
SCHIEB	SRL A		;DIV./16
	DJNZ SCHIEB
	ADD ABST
	LD L,A
	LD A,(HL)
	LD (JOY1),A
;
;*PARAMETERAUSTAUSCH VON UND AN BASIC*
;
	CALL 0C96FH	;PAR.UEBERG.IM
			;DE-REG.
	LD A,E		;PAR.AUSWERTUNG
	CP 1
	JR Z,JOYH1	;HEBEL 1 ODER 2?
	LD A,(JOY2)	;PARAM.AN BASIC
	LD B,A		;NW.TEIL HEBEL 2
	XOR A		;HW.TEIL HEBEL 2
	CALL 0D0B1H	;FUWER AN BASIC-
			;VARIABLE
	RET
JOYH1	LD A,(JOY1)	;VERGL.HEBEL2
	LD B,A		;NW.TEIL JOY1
	XOR A		;HW.TEIL JOY1
	CALL 0D0B1H
	RET
ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ