Code: Select all
procedure setchar();
begin
asm("
lda #$00
sta $fb
lda #$10
sta $fc
lda #1
ldy #0
sta ($fb),y
");
end;
Moderator: Moderators
Code: Select all
procedure setchar();
begin
asm("
lda #$00
sta $fb
lda #$10
sta $fc
lda #1
ldy #0
sta ($fb),y
");
end;
Code: Select all
p1 := $1000;
asm("
lda #1
ldy #0
sta (p1),y
");