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.
BYTE ARRAY P = $00
P($D01A)=0 ; zapis wartości 0 do rejestru koloru i jasności "tła" COLBK
Y=10
X=20
WIDTH=40 ; przykład !!!
ADDR=X+(Y*WIDTH)
P(ADDR)=31 ; okrągłą liczba mersena w 1/4 wartości bajta :)
BYTE ARRAY DIST = [
$70 ; EMPTY ROW
$70 ; EMPTY ROW
$4D $00 $80 ; LMS - adres obszaru pamięci 0x8000
$04 $04 $04 $04 $04 $04 $04 $04
$04 $04 $04 $04 $04 $04 $04 $04
$04 $04 $04 $04 $04 $04 $04
$41 ; TU POWINIEN BYĆ PODANY ADRES DIST, ale zadziała bez]
CARD SDLSTL=$230 ; 560 dziesiętnie
CARD DL=$230
DL=DIST
SDLSTL=DIST
CARD ARRAY FY(30)
ADDR=X+(Y*WIDTH)
FOR Q=0 TO 24 DO FY(Q)=Q*40 OD
P(ADDREKR+FY(Y)+X)=31
BYTE C
BYTE Chr
PROC Main()
Graphics(1)
C=Peek($230)
Print(C)
Chr=GetD(7)
RETURN
MODULE
BYTE SAVMSCL = 88, ; lsb SCREEN
SAVMSCH = 89, ; msb SCREEN
R = $D20A, ; random
KEY = $2FC ; keyboard
CARD SCREEN
BYTE ARRAY P = $00
CARD ARRAY FY(30)
PROC WAIT=*(BYTE F)[$18$65$14$C5$14$D0$FC$60]
PROC INIT()
SCREEN=SAVMSCL+256*SAVMSCH
[96]
PROC MAIN()
GRAPHICS(1)
INIT()
WHILE KEY#28 DO
P(SCREEN) = R&31
WAIT(5)
OD
SNDRST()
GRAPHICS(0)
KEY=42
SET 764=40
[96]
? ADRES
* ADRES
BYTE ARRAY Array1 = [10 20 30 40 50]
BYTE POINTER Ptr
BYTE Variable
PROC Main()
Ptr = @Array1
Variable = (wartosc spod adresu na ktory wskazuje Ptr) <- tego nie wiem
RETURN
BYTE ARRAY Array1 = [10 20 30 40 50]
BYTE POINTER Ptr
BYTE Variable
PROC Main()
Ptr = Array1
Variable = Ptr^
PrintBE(Variable)
RETURN
Od 1 do 31 z 31