;===========================================================
; VDPLOOK.ASM
; Kijkt hoe lang de VDP over een COPY-commando doet
; 12-1992 RM/FCS

        ORG   0C000H

SS:     DI
        XOR   A
        LD    HL,0F3EAH
        LD    (HL),A
        INC   HL
        LD    (HL),A
        LD    A,5
        CALL  5FH
        LD    A,50            ; lijn van lijn-interrupt. Hier zie je een balk
        OUT   (99H),A         ;  op het beeld, als het goed is.
        LD    A,19+128
        OUT   (99H),A
        LD    HL,0FD9AH
        PUSH  HL
        LD    DE,OLDHK
        LD    BC,5
        LDIR
        EX    DE,HL
        LD    C,3
        POP   DE
        LDIR
        CALL  BITJE
        EI
JJ:     LD    A,(0FBEDH)
        AND   1
        JR    NZ,JJ
        DI
        CALL  BITJE
        LD    HL,OLDHK
        LD    DE,0FD9AH
        LD    BC,3
        LDIR
        EI
        XOR   A
        JP    5FH

BITJE:  LD    HL,0F3DFH       ; line-int. bitje
        LD    A,(HL)
        XOR   16
        LD    (HL),A
        OUT   (99H),A
        LD    A,128
        OUT   (99H),A
        RET

READY:  LD    A,2
        OUT   (99H),A
        LD    A,15 OR 128
        OUT   (99H),A
        CALL  READY3
        XOR   A
        OUT   (99H),A
        LD    A,15 OR 128
        OUT   (99H),A
        RET
READY3: LD    BC,0F9BH
        LD    A,32
        OUT   (99H),A
        LD    A,17 OR 128
        OUT   (99H),A
CHECK:  IN    A,(99H)
        RRA
        JR    C,CHECK
        RET


INTERR: PUSH  AF
        LD    DE,256+15+128
        LD    C,99H
        OUT   (C),D
        OUT   (C),E
        IN    A,(C)
        DEC   D
        OUT   (C),D
        OUT   (C),E
        RRA
        JR    NC,OLDH

        CALL  READY
        LD    A,9             ;Zet achtergrond
        OUT   (99H),A
        LD    A,135
        OUT   (99H),A

        LD    HL,C_BAL        ; Kopieer
        OTIR
        CALL  READY           ; Wacht tot kopieren is afgelopen
;       LD    A,10
;       OUT   (99H),A
;       LD    A,135
;       OUT   (99H),A
;       LD    HL,C_KAR
;       OTIR
;       CALL  READY
        XOR   A               ; achtergrond weer goed
        OUT   (99H),A
        LD    A,135
        OUT   (99H),A

OLDH:   POP   AF
OLDHK:  DB    0C9H,0C9H,0C9H,0C9H,0C9H
        JP    INTERR


C_KAR:  DB    0,0,0,1,0,0,0,2,24,0,32,0,0,0,0D0H
C_SCR1: DB    0,0,0,1,240,0,180,3,16,0,32,0,0,0,0D0H
C_SCR2: DB    32,0,180,1,16,0,180,3,224,0,32,0,0,0,0D0H
ZWART:  DB    0,0,0,0,0,0,0,0,0,0,0C0H
C_BAL:  DB    0,0,0,1,0,0,0,0,16,0,16,0,0,0,98H
C_BAL2: DB    0,0,0,1,0,0,0,0,0,0,16,0,0,0,98H



0,0,0,0,0,0,0,0,0,0C0H
C_BAL:  DB    0,0,0,1,0,0,0,0,16,0,16,0,0,0,98H
C_BAL2: DB    0,0,0,1,0,0,0,0,0,0,16,0,0