git.sur5r.net Git - cc65/blob - libsrc/c128/conio.s

   1 ;
   2 ; Ullrich von Bassewitz, 06.08.1998
   3 ;
   4 ; Low level stuff for screen output/console input
   5 ;
   6
   7         .export         initconio, doneconio
   8         .exportzp       CURS_X, CURS_Y
   9         .import         xsize, ysize
  10
  11         .include        "c128.inc"
  12         .include        "../cbm/cbm.inc"
  13
  14 .bss
  15 keyvec: .res    2
  16
  17
  18 .code
  19
  20 initconio:
  21
  22 ; Save the old vector
  23
  24         lda     KeyStoreVec
  25         sta     keyvec
  26         lda     KeyStoreVec+1
  27         sta     keyvec+1
  28
  29 ; Set the new vector. I can only hope that this works for other C128
  30 ; versions...
  31
  32         lda     #<$C6B7
  33         ldx     #>$C6B7
  34
  35 SetVec: sei
  36         sta     KeyStoreVec
  37         stx     KeyStoreVec+1
  38         cli
  39         rts
  40
  41 doneconio:
  42         lda     keyvec
  43         ldx     keyvec+1
  44         bne     SetVec
  45