; Low level stuff for screen output/console input
;
- .export initconio, doneconio
- .exportzp CURS_X, CURS_Y
- .import xsize, ysize
+ .exportzp CURS_X, CURS_Y
- .include "c128.inc"
- .include "../cbm/cbm.inc"
-
-.bss
-keyvec: .res 2
-
-
-.code
-
-initconio:
-
-; Save the old vector
-
- lda KeyStoreVec
- sta keyvec
- lda KeyStoreVec+1
- sta keyvec+1
-
-; Set the new vector. I can only hope that this works for other C128
-; versions...
-
- lda #<$C6B7
- ldx #>$C6B7
-
-SetVec: sei
- sta KeyStoreVec
- stx KeyStoreVec+1
- cli
- rts
-
-doneconio:
- lda keyvec
- ldx keyvec+1
- bne SetVec
+ .include "c128.inc"