org 1000h
DEC L
JR C,NULLAS
DEC L
LD E,H
LD BC,500H
JR C,EGYES
KETTES
LD E,5
EGYES
LD A,E
INC E
OUT (0B5H),A
IN A,(0B6H)
RRCA
RL C
DJNZ EGYES
JR VISSZA
NULLAS
LD A,8
OUT (0B5H),A
IN A,(0B5H)
BIT 6,A
JR NZ,UG
SET 4,C
UG
LD A,7
OUT (0B5H),A
IN A,(0B5H)
BIT 3,A
JR NZ,UG1
SET 3,C
UG1
BIT 1,A
JR NZ,UG2
SET 2,C
UG2
BIT 5,A
JR NZ,UG3
SET 1,C
UG3
BIT 2,A
JR NZ,UG4
SET 0,C
UG4
LD L,C
RET
Ezt BASIC ALLOCATE építeném.
LET A=USR(JOY,012)
és mint a LET A=JOY(012) értéket adná vissza.
Csak ZZZIP talán gyorsabb.
Ötlet, valamit javítani?