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 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ