Posted By
spieler
on 2021-04-03
10:39:06
|  Re: madpascal and plus4 rs232
send from tera-term to plus4 eee..qqq
and ABCDE....send from plus4 to teraterm
// ACIA DATA = $fd00;
// ACIA STATUS = $fd01;
// ACIA COMMAND = $fd02;
// ACIA CONTROL = $fd03;
program seriel;
const
EMPTY = $20;
SCREEN_ADDR = $0c00;
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
FillChar(pointer(SCREEN_ADDR), 24 * 40, EMPTY);
i:=65;
y:=0;
while True do begin
pause(20);
i:=i+1;
if i=91 then begin
i:=65;
end;
poke($fd,i);
seriell_send_empfang();
y:=y+1;
if y=40 then begin
y:=0;
FillChar(pointer(SCREEN_ADDR), 24 * 40, EMPTY);
end;
poke($c00+y,peek($fc)-96);
end;
end.
|
