mirror of
https://github.com/cc65/cc65.git
synced 2024-11-02 18:06:48 +00:00
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
|
||
|
|
|