; 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:
- 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