Otwarcie ekranu w trybie graficznym (GRAPHICS): Różnice pomiędzy wersjami
Przejdź do nawigacji
Przejdź do wyszukiwania
Nie podano opisu zmian |
"bez okna tekstowego" jest odwrotnie niż w BASICu |
||
| Linia 24: | Linia 24: | ||
lda #>dev | lda #>dev | ||
sta icbufa+1,x | sta icbufa+1,x | ||
lda #% | lda #%00001100 ; bez okna tekstowego, odczyt/zapis | ||
sta icax1,x | sta icax1,x | ||
lda #$03 ; otworz | lda #$03 ; otworz | ||
Wersja z 7 mar 2013, 18:13
Procedura przełącza ekran w wybrany tryb graficzny. W przykładzie może to być tryb Graphics 9 (wywołanie przez JSR GR9) lub Graphics 15 (wywołanie przez JSR GR15). Jako kanał I/O dla grafiki używany jest IOCB 6, ale równie dobrze może to być dowolny inny.
;
; (c) Lizard
;
iccmd = $0342
icbufa = $0344
icax1 = $034a
icax2 = $034b
;
gr9 lda #9
bne gr
;
gr15 lda #15
;
gr pha
ldx #$60 ; IOCB #6
lda #$0c ; zamknij
jsr cioexe
pla
sta icax2,x ; tryb
lda #<dev ; identyfikator urzadzenia
sta icbufa,x
lda #>dev
sta icbufa+1,x
lda #%00001100 ; bez okna tekstowego, odczyt/zapis
sta icax1,x
lda #$03 ; otworz
cioexe sta iccmd,x
jmp jciomain
;
dev .by "S:" $9b