;
; ************************************************
; *                                              *
; * HRINOUT.ASM                                  *
; *                                              *
; *                                              *
; * Dessa rutiner anv{ndes av BASIC programmen   *
; * HRLOAD.BAC och HRSAVE.BAC f|r att blocka in  *
; * valfritt 4k block av HR minnet p} adress     *
; * 49152  ( C000H ).   Ursprung: RAMBLK.ASM     *
; *                                              *
; * Version 1.0    MOK Systemutveckling 831122   *
; *                                              *
; *                                              *
; ************************************************
;
MPORT    EQU   52             ; Minnestabellport
PLACE    EQU   12             ; 12 * 4 = 48k
;
         ORG   0FB00H         ; Dosbuf 6
START    DI
         PUSH  DE
         PUSH  BC
         PUSH  AF
         PUSH  HL
;
         LD    A,E            ; Logisk area 0-4k i 128 k minnet
         LD    B,PLACE*16     ; Fysiskt minne 0C000H
         SET   7,A            ; Markerar block in
         LD    C,MPORT        ; Minestabellport
         OUT   (C),A          ;
         POP   HL
         POP   AF
         POP   BC
         POP   DE
         EI
         RET
         NOP
         NOP
         NOP
         NOP
START2   DI
         PUSH  DE
         PUSH  BC
         PUSH  AF
         PUSH  HL
         LD    A,E     
         LD    B,PLACE*16 
         RES   7,A            ; Markera block out
         LD    C,MPORT
         OUT   (C),A
         POP   HL
         POP   AF    
         POP   BC
         POP   DE
         EI
         RET
;        
         END   START
