mirror of
https://github.com/cc65/cc65.git
synced 2024-07-05 06:28:57 +00:00
53dd513176
which included commits to RCS files with non-trunk default branches. git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81
42 lines
671 B
ArmAsm
42 lines
671 B
ArmAsm
;
|
|
; Ullrich von Bassewitz, 06.08.1998
|
|
;
|
|
; Low level stuff for screen output/console input
|
|
;
|
|
|
|
.export initconio, doneconio
|
|
.exportzp CURS_X, CURS_Y
|
|
.import xsize, ysize
|
|
|
|
.include "plus4.inc"
|
|
.include "../cbm/cbm.inc"
|
|
|
|
.code
|
|
|
|
initconio:
|
|
jsr SCREEN
|
|
stx xsize
|
|
sty ysize
|
|
ldy #15
|
|
L1: lda fnkeys,y
|
|
sta FKEY_SPACE,y
|
|
dey
|
|
bpl L1
|
|
rts
|
|
|
|
|
|
doneconio:
|
|
ldx #$39 ; Copy the original function keys
|
|
L2: lda FKEY_ORIG,x
|
|
sta FKEY_SPACE,x
|
|
dex
|
|
bpl L2
|
|
rts
|
|
|
|
; Function key table, readonly
|
|
|
|
.rodata
|
|
fnkeys: .byte $01, $01, $01, $01, $01, $01, $01, $01
|
|
.byte 133, 137, 134, 138, 135, 139, 136, 140
|
|
|