LD   HL,D000H
      LD   A,01    ; 'A' v display kodu MZ700
      LD   (HL),A
      RET

      LD   BC,3000H
      LD   A,'A'   ; ASCII znak
      OUT  (C),A
      RET

      CALL VOPEN   ; prepnout banku na VRAM
      LD   HL,D000H
      LD   A,'A'   ; ASCII znak
      LD   (HL),A
      CALL VCLOSE  ; prepnout VRAM zpet na RAM
      RET
VOPEN:
      DI
      IN   A,(0E8H)
      OR   0C0H    ; textova VRAM
      OUT  (0E8H),A
      RET
VCLOSE：
      IN   A,(0E8H)
      AND  07FH
      OUT  (0E8H),A
      EI
      RET

      CALL VOPEN   ; prepnout banku na VRAM
      LD   HL,E000H
      LD   A,'A'   ; ASCII znak
      LD   (HL),A
      CALL VCLOSE  ; prepnout VRAM zpet
      RET
VOPEN:
      DI
      LD   A,07   
      OUT  (0B4H),A  ; sedmy segment E000-FFFF
      IN   A,(0B5H)
      LD   (OLDMB),A ; ulozit aktualni mapovani stránky
      LD   A,07   
      OUT  (0B4H),A
      LD   A,38H     ; na 38H je textova VRAM
      OUT  (0B5H),A
      RET
VCLOSE：
      LD   A,07   
      OUT  (0B4H),A  ; do 7. segmentu
      LD   A,(OLDMB) ; nastavime
      OUT  (0B5H),A  ; puvodni stranku
      EI
      RET
OLDMB:DEFB 0

1) počkej až bit 6 portu 1A01h spadne do 0.
2) pošli E6h na port 1900h.
3) počkej až bit 5 portu 1A01h spadne do 0.
4) IN data z portu 1900h. funčkní bajt (GRAPH,CAPSLOCK,KANA,SHIFT,CTRL...)
5) znovu počkej až bit 5 portu 1A01h spadne do 0.
6) IN data z portu 1900h.ASCII kód klávesy