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         jsr     SCREEN
  22         inx
  23         stx     xsize
  24         iny
  25         sty     ysize
  26
  27 ; Save the old vector
  28
  29         lda     KeyStoreVec
  30         sta     keyvec
  31         lda     KeyStoreVec+1
  32         sta     keyvec+1
  33
  34 ; Set the new vector. I can only hope that this works for other C128
  35 ; versions...
  36
  37         lda     #<$C6B7
  38         ldx     #>$C6B7
  39
  40 SetVec: sei
  41         sta     KeyStoreVec
  42         stx     KeyStoreVec+1
  43         cli
  44         rts
  45
  46 doneconio:
  47         lda     keyvec
  48         ldx     keyvec+1
  49         bne     SetVec
  50