From 04986c1900c5cc425b3e67059089d7866df2eeb1 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Mario=20Pati=C3=B1o?= <cybernesto@gmail.com>
Date: Sat, 29 Jun 2013 18:57:48 +0200
Subject: [PATCH] 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.
---
 DISPLAY.S | 18 ++++++++++++++++--
 1 file changed, 16 insertions(+), 2 deletions(-)

diff --git a/DISPLAY.S b/DISPLAY.S
index 96d0654..db461dd 100644
--- a/DISPLAY.S
+++ b/DISPLAY.S
@@ -1,3 +1,8 @@
+***********************
+* Apple II BMP Viewer *
+* Arnaud Coqui}re     *
+* Mario Patino        *
+***********************
 
           LST OFF
           ORG $1000
@@ -57,6 +62,11 @@ SAVEDST   LDY DESTY
           LDA BUFFDST
           LSR            ; DERNIER DECALLAGE POUR 7EMEBIT
           STA (MEM),Y
+          BIT $C01C
+          BPL PAGE2
+          BIT $C054
+          JMP S2
+PAGE2     BIT $C055
           INY
           CPY #40
           BNE S2
@@ -64,7 +74,8 @@ SAVEDST   LDY DESTY
           CPX #$FF
           BEQ FIN
           STX DESTX
-          JSR READBMP    ; SAUTE 1 OCTET DANS BMP
+          JSR READBMP    ; SAUTE 2 OCTETS DANS BMP
+          JSR READBMP
           LDY #00
 S2        STY DESTY
           LDA #06
@@ -74,8 +85,11 @@ S2        STY DESTY
 
 DEBUT     BIT $C050
           BIT $C052
-          BIT $C054
           BIT $C057
+          BIT $C05E
+          STA $C00D
+          STA $C001
+          BIT $C055
 
           SEC
           JSR $FE1F      ; TEST GS (THX A.V.)