Added DTV detection code by Marco van den Heuvel.
git-svn-id: svn://svn.cc65.org/cc65/trunk@4580 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
@@ -5,10 +5,12 @@
|
|||||||
; Ullrich von Bassewitz, 2005-11-27
|
; Ullrich von Bassewitz, 2005-11-27
|
||||||
;
|
;
|
||||||
|
|
||||||
|
|
||||||
.include "zeropage.inc"
|
.include "zeropage.inc"
|
||||||
|
|
||||||
.include "em-kernel.inc"
|
.include "em-kernel.inc"
|
||||||
.include "em-error.inc"
|
.include "em-error.inc"
|
||||||
|
.import _get_ostype
|
||||||
|
|
||||||
|
|
||||||
.macpack generic
|
.macpack generic
|
||||||
@@ -71,8 +73,26 @@ curpage: .word $0000 ; Page
|
|||||||
;
|
;
|
||||||
|
|
||||||
INSTALL:
|
INSTALL:
|
||||||
lda #$01
|
|
||||||
sta $d03f ; Enable extended register access
|
; Check for a DTV
|
||||||
|
|
||||||
|
ldx #1
|
||||||
|
stx $d03f
|
||||||
|
ldx $d040
|
||||||
|
cpx $d000
|
||||||
|
bne @present
|
||||||
|
inc $d000
|
||||||
|
cpx $d040
|
||||||
|
beq @present
|
||||||
|
dec $d000
|
||||||
|
|
||||||
|
; DTV not found
|
||||||
|
|
||||||
|
lda #<EM_ERR_NO_DEVICE
|
||||||
|
ldx #>EM_ERR_NO_DEVICE
|
||||||
|
rts
|
||||||
|
|
||||||
|
@present:
|
||||||
ldx #$FF
|
ldx #$FF
|
||||||
stx curpage+1 ; Invalidate curpage
|
stx curpage+1 ; Invalidate curpage
|
||||||
inx ; X = 0
|
inx ; X = 0
|
||||||
|
|||||||
Reference in New Issue
Block a user