mirror of https://github.com/cybernesto/VBMP.git
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:
parent
adbe3ed622
commit
8a774d50c9
23
DISPLAY.S
23
DISPLAY.S
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue