Hello,
I was curious how I set the pallette for this mode? Here's some source code I wrote to display some pixels on the screen. I believe the problem is that the palette is all blue, so nothing shows up... thanks.
-----------------------
; screen 6 test...
db $fe
dw start
dw eof
dw exec
org $8800
start:
vidoffset: equ $98
exec:
di
; set graphics 5 (sceen 6)
ld a, 00001000b
out (vidoffset + 1), a
ld a, $80
out (vidoffset + 1), a
ld a, $00
out (vidoffset + 1), a
ld a, $81
out (vidoffset + 1), a
; set register 14 to 0
ld a, $00
out (vidoffset + 1), a
ld a,$8e
out (vidoffset + 1), a
; set pointer to $0
ld a, 00011111b
out (vidoffset + 1), a
ld a, $82
out (vidoffset + 1), a
; set address (write to $0)
ld a, $00
out (vidoffset + 1), a
ld a, $00
out (vidoffset + 1), a
; write some random pixels to $0
ld a, 01011010b
out (vidoffset), a
ld a, $0F
out (vidoffset), a
.loop: jp &.loop
eof: ret
|