git.sur5r.net Git - cc65/blob - libsrc/plus4/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        "plus4.inc"
  12         .include        "../cbm/cbm.inc"
  13
  14 .code
  15
  16 initconio:
  17         jsr     SCREEN
  18         stx     xsize
  19         sty     ysize
  20         ldy     #15
  21 L1:     lda     fnkeys,y
  22         sta     FKEY_SPACE,y
  23         dey
  24         bpl     L1
  25         rts
  26
  27
  28 doneconio:
  29         ldx     #$39            ; Copy the original function keys
  30 L2:     lda     FKEY_ORIG,x
  31         sta     FKEY_SPACE,x
  32         dex
  33         bpl     L2
  34         rts
  35
  36 ; Function key table, readonly
  37
  38 .rodata
  39 fnkeys: .byte   $01, $01, $01, $01, $01, $01, $01, $01
  40         .byte   133, 137, 134, 138, 135, 139, 136, 140
  41