https://ibb.co/37N5mTZhttps://ibb.co/4M30t3pTřeba to vzbudí zvědavost. Trochu jsem pokročil a postavil dva I/O moduly, ten s 8255 je v podstatě kopie Jiiirova UPI. Druhý je volně adresovatelný, dobře se hodí pro oživování. V assembleru jsem zatím vykódil posuvný registr (asi jako shiftout na Arduinu), Nejsem v tom moc kovaný, tady je kód a prosím, klidně mi ho rozthejte, poplivejte a vylepšete
. Chtěl bych univerzální rutinu, které by se dala jako vstupní parametr adresa portu, počet byte k přenesení a startovací adresa. Já k tomu mám ještě daleko.
Kód:
; shift out 4 bytes
; all 8255 ports as output
INIT8255 EQU 10000000b
CW8255 EQU 7fh ; 8255 control word register
PORTA EQU 1fh ; port A data register
PORTB EQU 3fh ; port B data register
PORTC EQU 5fh ; port C data register
.ORG 9000h
INIT: LD a,INIT8255
OUT (cw8255),a
XOR a
OUT (porta),a
OUT (portb),a
or 4; Strobe HIGH
OUT (portc),a
LD hl,data
CALL TXDATA
RET
DATA: DB 08fh,044h,0c0h,0ffh
TXDATA: LD b,4
NEXTBYTE: LD c,(hl)
CALL shiftout
INC hl
DJNZ nextbyte
RET
SHIFTOUT: PUSH af
PUSH bc
LD b,8
NEXTBIT: XOR a
RRC c
ADC a,0
OUT (portc),a
OR 2
OUT (portc),a
DJNZ nextbit
AND 1
OR 4
OUT (portc),a
POP bc
POP af
RET
Přihlásit se
Registrovat
OC Wiki 
OC GitHub 
FAQ
Hledat
Takze aktivne ne.