mirror of https://github.com/cybernesto/VBMP.git
DHGR Support
Modified the code to use Double Hi-Res Graphics instead of High-Res. For 560 bits/row two fill bytes are used in the BMP and have to be jumped.
This commit is contained in:
parent
112761239f
commit
04986c1900
18
DISPLAY.S
18
DISPLAY.S
|
@ -1,3 +1,8 @@
|
||||||
|
***********************
|
||||||
|
* Apple II BMP Viewer *
|
||||||
|
* Arnaud Coqui}re *
|
||||||
|
* Mario Patino *
|
||||||
|
***********************
|
||||||
|
|
||||||
LST OFF
|
LST OFF
|
||||||
ORG $1000
|
ORG $1000
|
||||||
|
@ -57,6 +62,11 @@ SAVEDST LDY DESTY
|
||||||
LDA BUFFDST
|
LDA BUFFDST
|
||||||
LSR ; DERNIER DECALLAGE POUR 7EMEBIT
|
LSR ; DERNIER DECALLAGE POUR 7EMEBIT
|
||||||
STA (MEM),Y
|
STA (MEM),Y
|
||||||
|
BIT $C01C
|
||||||
|
BPL PAGE2
|
||||||
|
BIT $C054
|
||||||
|
JMP S2
|
||||||
|
PAGE2 BIT $C055
|
||||||
INY
|
INY
|
||||||
CPY #40
|
CPY #40
|
||||||
BNE S2
|
BNE S2
|
||||||
|
@ -64,7 +74,8 @@ SAVEDST LDY DESTY
|
||||||
CPX #$FF
|
CPX #$FF
|
||||||
BEQ FIN
|
BEQ FIN
|
||||||
STX DESTX
|
STX DESTX
|
||||||
JSR READBMP ; SAUTE 1 OCTET DANS BMP
|
JSR READBMP ; SAUTE 2 OCTETS DANS BMP
|
||||||
|
JSR READBMP
|
||||||
LDY #00
|
LDY #00
|
||||||
S2 STY DESTY
|
S2 STY DESTY
|
||||||
LDA #06
|
LDA #06
|
||||||
|
@ -74,8 +85,11 @@ S2 STY DESTY
|
||||||
|
|
||||||
DEBUT BIT $C050
|
DEBUT BIT $C050
|
||||||
BIT $C052
|
BIT $C052
|
||||||
BIT $C054
|
|
||||||
BIT $C057
|
BIT $C057
|
||||||
|
BIT $C05E
|
||||||
|
STA $C00D
|
||||||
|
STA $C001
|
||||||
|
BIT $C055
|
||||||
|
|
||||||
SEC
|
SEC
|
||||||
JSR $FE1F ; TEST GS (THX A.V.)
|
JSR $FE1F ; TEST GS (THX A.V.)
|
||||||
|
|
Loading…
Reference in New Issue