; Naam     : SETVDP
; Fucktie  : Zet de VDP op schrijven of lezen
; Invoer   : HL = VRAM-adres, B = >bit 0 pagina >bit 6 schrijven(0) of lezen(1)
; Uitvoer  : C = datalees of dataschrijfpoort
; Verandert: AF,BC
SETVDP: LD    C,&H99
        LD    A,H
        AND   &HC0
        PUSH  BC
        RES   6,B
        OR    B
        RLCA
        RLCA
        OUT   (C),A
        LD    A,14 OR 128
        OUT   (C),A
        LD    A,H
        OUT   (C),L
        POP   BC
        RES   0,B
        AND   &H3F
        OR    B
        XOR   64
        OUT   (C),A
        DEC   C
        RET

; Naam     : SETRD
; Fucktie  : Zet de VDP op lezen
; Invoer   : HL = VRAM-adres
; Uitvoer  : -
; Verandert: AF
; Opmerking: Kan allen de eerste 64Kb van het VRAM aan, is wel stukken sneller
SETRD:  LD    A,H
        AND   &B1100
        RLCA
        RLCA
        OUT   (&H99),A
        LD    A,14 OR 128
        OUT   (&H99),A
        LD    A,L
        OUT   (&H99),A
        LD    A,H
        AND   &B0011
        OUT   (&H99),A
        RET

; Naam     : SETWRT
; Fucktie  : Zet de VDP op schrijven
; Invoer   : HL = VRAM-adres
; Uitvoer  : -
; Verandert: AF
; Opmerking: Kan allen de eerste 64Kb van het VRAM aan
SETWRT: LD    A,H
        AND   &B1100
        RLCA
        RLCA
        OUT   (&H99),A
        LD    A,14 OR 128
        OUT   (&H99),A
        LD    A,L
        OUT   (&H99),A
        LD    A,H
        AND   &B0011
        OR    &B0100
        OUT   (&H99),A
        RET
L
        OUT   (&H99),A
        LD    A,H
        AND   &B0011
        OR    &B0100
        OUT   (&H99),A