mirror of https://github.com/cybernesto/VBMP.git
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:
parent
04986c1900
commit
ef32bf184c
43
DISPLAY.S
43
DISPLAY.S
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue