From 8a774d50c9801f41e4daa2504815a6530c49ef65 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Mario=20Pati=C3=B1o?= <cybernesto@gmail.com>
Date: Tue, 23 Jul 2013 19:19:53 +0200
Subject: [PATCH] Added assembler conditions for ProDOS or DOS3.3 Versions

* Setting PRODOS EQU 0 assembles the code for DOS3.3 considering the 4
byte offset introduced. Setting it to 1 compiles for ProDOS keeping the
standard BMP offsets.
* Removed the wait for key handler to allow smooth transitions during
slideshows. Now restoring the text mode has to be taken care of by the
calling software.
---
 DISPLAY.S | 23 +++++++++++++++--------
 1 file changed, 15 insertions(+), 8 deletions(-)

diff --git a/DISPLAY.S b/DISPLAY.S
index a5945a2..a3956ba 100644
--- a/DISPLAY.S
+++ b/DISPLAY.S
@@ -18,6 +18,7 @@ BUFFBMP   EQU $1D
 BUFFDST   EQU $1E
 DHGR      EQU $1F
 
+PRODOS    EQU 1
 
 SOURCE    EQU $4000
 
@@ -62,7 +63,13 @@ DEBUT     BIT $C050      ; GRAPHIQUES
 
           LDA #00
           STA DHGR
+
+          DO PRODOS
           LDA SOURCE+$12
+          ELSE
+          LDA SOURCE+$0E
+          FIN
+
           CMP #$18
           BEQ GSTEST
 
@@ -73,6 +80,7 @@ DEBUT     BIT $C050      ; GRAPHIQUES
           STA $C05F
           STA $C00D
           STA $C05E
+
           CMP #$30
           BEQ MONO
           STA $C05F
@@ -95,7 +103,13 @@ GSTEST    SEC
           AND #$F0
           STA $C034      ; BORDURE NOIRE
 
+          DO PRODOS
 GO1       LDA SOURCE+$0A
+          ELSE
+GO1       LDA SOURCE+$06 ; DOS3.3 FICHIER
+          SEC
+          SBC #4
+          FIN
           CLC
           ADC OFFSET+1
           STA OFFSET+1
@@ -147,13 +161,6 @@ S2        STY DESTY
           STA COMPTD
           JMP BP
 
-FIN       STA $C010
-BF        LDA $C000
-          BPL BF
-          STA $C010
-          STA $C000
-          STA $C00C
-          BIT $C053
+FIN       STA $C000
           BIT $C054
-          BIT $C051
           RTS