Jeśli chcesz wziąć udział w dyskusjach na forum - zaloguj się. Jeżeli nie masz loginu - poproś o członkostwo.
Vanilla 1.1.4 jest produktem Lussumo. Więcej informacji: Dokumentacja, Forum.
if (blockTimer[y][x] = BT_NULL) then blockTimer[y][x] := BT_TRIGGER;
const INDX_0 = 40;
Test(10);
procedure Test(offset : byte);
begin
CRT_Goto(INDX_0 + 123 + 20 + offset);
end;
procedure Test(offset : byte);
begin
CRT_Goto(INDX_0 + 143 + offset);
end;
procedure Test(offset : byte);
begin
CRT_Goto(183 + offset);
end;
procedure CRT_Goto(offset : integer);
begin
CRT_cursor := CRT_vram + offset;
end;
const INDX_0 = 40;
var CRT_cursor, CRT_vram: word;
procedure CRT_Goto(offset : integer);
begin
CRT_cursor := CRT_vram + offset;
end;
procedure Test(offset : byte);
begin
CRT_Goto(INDX_0 + 123 + 20 + offset);
end;
begin
Test(10);
end.
-code:$address adres uruchomienia programu
-data:$address adres pamięci dla zmiennych, tablic
-stack:$address adres pamięci dla stosu programowego (64 bajty)
-zpage:$address adres na stronie zerowej dla zmiennych (24 bajty)
214 lines compiled, 1.01 sec, 5738 tokens, 613 idents, 180 blocks, 7 types
1 warning(s) issued
25 note(s) issued
ZPFREE: $0000..$007F / $00D8..$00FF
RUNLIB: $20CF..$20D3
SYSTEM: $20F2..$20F5
CRT: $20F6..$2109
CODE: $2000..$215B
DATA: $215C..$2220
-stack:address Software stack hex address (size = 64 bytes)
-zpage:address Variables on the zero page hex address (size = 24 bytes)
procedure Pause; assembler; overload;
(*
@description:
Delay program execution (1/50 second).
*)
asm
{ lda:cmp:req :rtclok+2
};
end;
procedure Pause; assembler; overload;
(*
@description:
Delay program execution (1/50 second).
*)
asm
{ lda:cmp:req :rtclok+2
};
end;
