;
; ************************************************
; *                                              *
; * RAMBLK.ASM                                   *
; *                                              *
; * Testa att blocka in HR minne fr}n asembler   *
; *                                              *
; * Detta program visar de rutiner som anv{nds   *
; * f|r att blocka in eller ut HR minnet i 806   *
; * fr}n assembler. F_PAGE talar om vilket fys-  *
; * iskt 4k block ( 0-31 ) som det g{ller och    *
; * L_PAGE talar om p} vilken logisk 4k area     *
; * det skall hamna ( 0-15 ). DI beh|vs endast   *
; * om man blockar in n}got |ver BASIC DOS OPT-  *
; * IONSPROM eller systemvariavler.              *
; *                                              *
; ************************************************
;
F_PAGE   EQU   0              ; Fysiskt minne
L_PAGE   EQU   12             ; Logiskt minne
MPORT    EQU   52             ; Minnestabellport


         ORG   0FB00H         ; Dosbuf 6
START    DI
         LD    A,F_PAGE       ; Logisk area 0-4k i 128 k minnet
         LD    B,L_PAGE*16    ; Fysiskt minne 0C000H
         SET   7,A            ; Markerar block in
         LD    C,MPORT        ; Minestabellport
         OUT   (C),A          ;
         RET
         NOP
         NOP
         NOP
         NOP
         DI
         LD    A,F_PAGE
         LD    B,L_PAGE*16
         RES   7,A            ; Markera block out
         LD    C,MPORT
         OUT   (C),A
         RET
;        
         END   START