Otwarcie ekranu w trybie graficznym (GRAPHICS)

From Atariki

Wersja z dnia 16:26, 18 lip 2006 KMK (Dyskusja | wkład) (hategoria) ← Previous diff		Wersja z dnia 16:30, 18 lip 2006 KMK (Dyskusja | wkład) Next diff →
Linia 14:		Linia 14:
	gr15 lda #15		gr15 lda #15
-	gr ldx #$60	+	gr pha
		+	ldx #$60 ; IOCB #6
		+	lda #$0c ; zamknij
		+	jsr cioexe
		+	pla
	sta icax2,x ; tryb		sta icax2,x ; tryb
-	lda #$03 ; otworz	+	lda #<dev ; identyfikator urzadzenia
-	sta iccmd,x	+
-	lda #<dev ; co?	+
	sta icbufa,x		sta icbufa,x
	lda #>dev		lda #>dev
Linia 24:		Linia 26:
	lda #%00011100 ; bez okna tekstowego, odczyt/zapis		lda #%00011100 ; bez okna tekstowego, odczyt/zapis
	sta icax1,x		sta icax1,x
		+	lda #$03 ; otworz
		+	cioexe sta iccmd,x
	jmp jciomain		jmp jciomain

---

Wersja z dnia 16:30, 18 lip 2006

;
; (c) Lizard 
;
iccmd   =   $0342
icbufa  =   $0344
icax1   =   $034a
icax2   =   $034b
jciomain =  $e456

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 #%00011100  ; bez okna tekstowego, odczyt/zapis
        sta icax1,x
        lda #$03        ; otworz
cioexe  sta iccmd,x
        jmp jciomain

dev     .by "S:" $9b