Posted By
spieler
on 2021-04-03
07:44:03
|  Re: madpascal and plus4 rs232
serial send_receiving :
------------------------------
// ACIA DATA = $fd00;
// ACIA STATUS = $fd01;
// ACIA COMMAND = $fd02;
// ACIA CONTROL = $fd03;
program seriel;
var
i,y : byte;
procedure seriell_send_empfang(); assembler;
asm {
cli
lda #$09
sta $fd02
lda #$1e
sta $fd03
lda $fd
sta $fd00
check:
lda $fd01
and #$10
beq check
lda $fd00
sta $fc
};
end;
begin
i:=65;
while True do begin
pause(10);
poke($fd,i); // adresse $fd = send_data
seriell_send_empfang();
poke($c00,peek($fc)-96); // adresse $fc = empfang_data
i:=i+1;
if i=91 then begin
i:=65;
end;
end;
end.
---------------------------------
|
