mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-11-16 23:20:43 +00:00
58 lines
1.0 KiB
ArmAsm
58 lines
1.0 KiB
ArmAsm
;====================
|
|
; Hardware Detect
|
|
|
|
; simplified version for disk2
|
|
|
|
hardware_detect:
|
|
|
|
;=======================
|
|
; Hardware Detect Model
|
|
;=======================
|
|
; Yes Michaelangel007 I will eventually update linux_logo 6502
|
|
|
|
jsr detect_appleii_model
|
|
|
|
lda APPLEII_MODEL
|
|
cmp 'g'
|
|
bne not_iigs
|
|
|
|
is_a_iigs:
|
|
; set background color to black instead of blue
|
|
lda NEWVIDEO
|
|
and #%00011111 ; bit 7 = 0 -> IIgs Apple II-compat video modes
|
|
; bit 6 = 0 -> IIgs 128K memory map same as IIe
|
|
; bit 5 = 0 -> IIgs DHGR is color, not mono
|
|
; bits 0-4 unchanged
|
|
sta NEWVIDEO
|
|
lda #$F0
|
|
sta TBCOLOR ; white text on black background
|
|
lda #$00
|
|
sta CLOCKCTL ; black border
|
|
sta CLOCKCTL ; set twice for VidHD
|
|
|
|
not_iigs:
|
|
|
|
|
|
;======================
|
|
; detect mockingboard
|
|
|
|
lda #0
|
|
sta SOUND_STATUS
|
|
|
|
PT3_ENABLE_APPLE_IIC = 1
|
|
|
|
jsr mockingboard_detect
|
|
bcc mockingboard_notfound
|
|
|
|
mockingboard_found:
|
|
|
|
lda SOUND_STATUS
|
|
ora #SOUND_MOCKINGBOARD
|
|
sta SOUND_STATUS
|
|
|
|
mockingboard_notfound:
|
|
|
|
rts
|
|
|
|
.include "pt3_lib_mockingboard.inc"
|