Genic Clubguide, 00-00-00
ORG &H9000
;
JP INTERR
;
;
JUMPER: DEFB 255
;
;
DEFB " (C)1990 Parallax - C.Cremers. "
DEFB "Screen split test-programma !! "
;
;
INTERR:
DI ; GEEN ANDERE INTERRUPTS ERDOORHEEN.
LD A,(JUMPER)
OR A
JP Z,LIJN ; JUMPER ONGELIJK 0, DUS
; DEZE INTERRUPT IS OP DE LIJN.
ONDER:
XOR A
LD (JUMPER),A ; DE VOLGENDE INTERRUPT IS WEL OP DE
; LIJN
LD A,100 ; ZET DE LIJN IN REGISTER #19
OUT (&H99),A
LD A,19
OR 128
OUT (&H99),A
;
;-------Hier komen de VDP-registers van boven.
;
LD A,0 ; ZET VDP(24) OP 0.
OUT (&H99),A
LD A,23 ; REGISTER #23
OR 128
OUT (&H99),A
;
;-------Einde veranderde VDP-registers van boven.
;
LD A,(&HF3DF) ; OUDE WAARDE VAN VDP(0)
OR 16 ; ZET [IE1] OP 1.
LD (&HF3DF),A
OUT (&H99),A
LD A,128
OUT (&H99),A
RET ; SPRING TERUG
;
LIJN:
; DEZE ROUTINE WORDT UITGEVOERD OP
; LIJN 100 (IETS LAGER !)
LD A,255
LD (JUMPER),A
LD A,(&HF3DF)
RES 4,A ; RESET [IE1]
LD (&HF3DF),A
OUT (&H99),A
LD A,128
OUT (&H99),A
;
;-------De veranderde registers onder de lijn.
;
LD A,128 ; VDP(24)=128
OUT (&H99),A
LD A,23 ; REGISTER #23
OR 128
OUT (&H99),A
;
;-------Einde veranderde registers onder de lijn.
;
RET
;
;
|
