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.
PROC Start()
BYTE ARRAY DLI = [72 ... 104 64]
CARD ADRES = 512
Graphics(24)
ADRES = @DLI
...
RETURN
PROC START()
BYTE ARRAY DLI =
[72 169 222
141 10 212
141 24 208
104 64]
BYTE KLAWISZ = 764
CARD DLPTR = 560
BYTE POINTER Q
Graphics(24)
PokeC(512,DLI)
Q = DLPTR+102
Q^==+128
POKE(54286,192)
WHILE KLAWISZ=255 DO OD
KLAWISZ = 255
Graphics(0)
RETURN
PROC DLI()
[72 ... 104 64]
pha
lda #222
sta WSYNC
sta COLPF2 ;kolor tła
pla
rti
PROC DLI()
[72 ... 104 64]
PROC START()
CARD DLIPTR = 512
PrintCE(DLIPTR)
DLIPTR = DLI
PrintCE(DLIPTR)
RETURN
; Uwaga: kod wyłącznie do zilustrowania przykładu
; NIE DO UŻYTKU w celach edukacyjnych :-D
PROC START()
BYTE ARRAY A = [1 2 3 4]
CARD X,I
BYTE J
X = @A
FOR I = X-4 TO X-1 DO
J = PEEK(I)
PRINTBE(J)
OD
PRINTE("-------")
FOR I = A TO A+3 DO
J = PEEK(I)
PRINTBE(J)
OD
RETURN
PROC START()
BYTE ARRAY A = [1 2 3 4]
PRINTF("%H %H",A, @A)
RETURN
Cosi:
Chyba nigdy nie będę programował grafiki na Atari... Próbowałem zrobić proste przerwanie DLI w Action!Od 1 do 21 z 21