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.
This commit is contained in:
Mario Patiño 2013-07-23 19:19:53 +02:00
parent adbe3ed622
commit 8a774d50c9
1 changed files with 15 additions and 8 deletions

View File

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