;+-------------------------------------------------------------+
;                       KAY-1024 HiMem driver                  :
;                         v1.0  for Alasm                      :
;                      (C) Predator/Delirium Tremens           :
;                           2  1998                     :
;            special editing for Eraser/Delirium Tremens       :
;+-------------------------------------------------------------+

        ORG #7000
MEMDRV
ADAS    LD A,#04
ZAP     LD BC,#7FFD
        LD E,#1F
        LD D,A
        AND #48
        RLA
        LD L,A
        LD A,D
        AND #87
        OR #10
        JP #3899 ; ⮣  ⠢ ᫥. ࠣ:
                 ; OUT (C),A
                 ; LD B,E
                 ; OUT (C),L
                 ; RET
;--------
        LD HL,#C000
        PUSH HL
        JR ADAS
;--------
PREPOD  EXX
        PUSH HL
KAPS    CALL 0
        POP HL
        EXX
        RET
;--------
HIMEM   DEFB #CF
SYSPSH  DEFB ADAS+1-MEMDRV
DRVNAM  DEFB "KAY_"
STRTSH  DEFB ZAP-MEMDRV
;--------
SPCPROG LD HL,KAPS+1-MEMDRV
        ADD HL,BC
        EX DE,HL
        LD HL,ZAP-MEMDRV
        ADD HL,BC
        EX DE,HL
        LD (HL),E
        INC HL
        LD (HL),D
        RET
