Karoshi MSX Community

;SCREEN MODE
;IN [HL]=MODE POINTER


VDPREG          EQU     $F3DF           ;VDP REG (0) RAM address

SCREEN_MODE:    LD      BC,$8099       
SCRMDJR0:       OUTI
                INC     B
                OUT     [C],B
                INC     B
                BIT     3,B
                JR      Z,SCRMDJR0
               
                LD      DE,VDPREG+8   ;refresh VDP RAM image
                LD      BC,$0008
                LDDR
                RET
               
SCREEN2:        DB      $02,$E2,$06,$FF,$03,$36,$07,$01         ;SCREEN 2 - 16X16 NOMAG
SCREEN1:        DB      $00,$E2,$06,$80,$00,$36,$07,$01         ; SCREEN 1 - "  "  "  "
SCREEN12:       DB      $02,$E2,$06,$9F,$00,$36,$07,$01        ; HYBRID MODE - " " " "