Support for HGR or DHGR Images

Added a simple check of the horizontal resolution to decide if the HGR
or DHGR mode should be used.
This commit is contained in:
Mario Patiño 2013-06-29 19:02:47 +02:00
parent 04986c1900
commit ef32bf184c
1 changed files with 31 additions and 12 deletions

View File

@ -16,6 +16,7 @@ DESTY EQU $1B
DESTX EQU $1C DESTX EQU $1C
BUFFBMP EQU $1D BUFFBMP EQU $1D
BUFFDST EQU $1E BUFFDST EQU $1E
DHGR EQU $1F
SOURCE EQU $4000 SOURCE EQU $4000
@ -62,36 +63,54 @@ SAVEDST LDY DESTY
LDA BUFFDST LDA BUFFDST
LSR ; DERNIER DECALLAGE POUR 7EMEBIT LSR ; DERNIER DECALLAGE POUR 7EMEBIT
STA (MEM),Y STA (MEM),Y
LDA DHGR
BEQ HGR
BIT $C01C BIT $C01C
BPL PAGE2 BPL PAGE2
BIT $C054 BIT $C054
JMP S2 JMP S2
PAGE2 BIT $C055 PAGE2 BIT $C055
INY HGR INY
CPY #40 CPY #40
BNE S2 BNE S2
DEX DEX
CPX #$FF CPX #$FF
BEQ FIN BEQ FIN
STX DESTX STX DESTX
JSR READBMP ; SAUTE 2 OCTETS DANS BMP JSR READBMP ; SAUTE DES OCTETS DANS BMP
LDA DHGR
BEQ FILLD
JSR READBMP JSR READBMP
LDY #00 FILLD LDY #00
S2 STY DESTY S2 STY DESTY
LDA #06 LDA #06
STA COMPTD STA COMPTD
RTS RTS
FIN JMP END
DEBUT BIT $C050 DEBUT BIT $C050 ; GRAPHIQUES
BIT $C052 BIT $C052 ; PLEIN G.
BIT $C057 BIT $C057 ; HAUTE RESOLUTION
BIT $C05E BIT $C054 ; PAGE1
STA $C00D
STA $C001
BIT $C055
SEC LDA #00
STA DHGR
LDA SOURCE+$0E
CMP #$18
BNE DHGRINI
LDA SOURCE+$0F
CMP #$01
BNE DHGRINI
JMP GSTEST
DHGRINI BIT $C05E ; DOUBLE HR
STA $C00D ; 80 COLONNES
STA $C001 ; SET80STORE
BIT $C055 ; PAGE2
LDA #01
STA DHGR
GSTEST SEC
JSR $FE1F ; TEST GS (THX A.V.) JSR $FE1F ; TEST GS (THX A.V.)
BCS GO1 BCS GO1
@ -129,7 +148,7 @@ S3 DEC COMPTD ; 7 ROTATIONS
JSR SAVEDST JSR SAVEDST
S4 JMP BP S4 JMP BP
FIN PLA END PLA
PLA PLA
STA $C010 STA $C010
BF LDA $C000 BF LDA $C000