Apple-2-Tools/VBMP
1
0
Fork 0
mirror of https://github.com/cybernesto/VBMP.git synced 2025-01-19 18:29:58 +00:00
Code Issues Projects Releases Wiki Activity
VBMP/DISPLAY.S

164 lines
3.0 KiB
ArmAsm
Raw Normal View History

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.
2013-06-29 18:57:48 +02:00
***********************
* Apple II BMP Viewer *
* Arnaud Coqui}re *
* Mario Patino *
***********************
initial commit Original code from the Steve Jobs Hommage written by Arnaud Cocquière. http://www.ctrl-pomme-reset.fr/2011/10/11/hommage/
2013-06-29 18:15:04 +02:00
LST OFF
ORG $1000
MEM EQU $06
COMPTS EQU $18
COMPTD EQU $19
SRCY EQU $1A
DESTY EQU $1B
DESTX EQU $1C
BUFFBMP EQU $1D
BUFFDST EQU $1E
Support for HGR or DHGR Images Added a simple check of the horizontal resolution to decide if the HGR or DHGR mode should be used.
2013-06-29 19:02:47 +02:00
DHGR EQU $1F
initial commit Original code from the Steve Jobs Hommage written by Arnaud Cocquière. http://www.ctrl-pomme-reset.fr/2011/10/11/hommage/
2013-06-29 18:15:04 +02:00
SOURCE EQU $4000
JMP DEBUT
CALC TXA ; CALCUL ADRESSE LIGNE (X) HIRES
ASL
Replaced hi-res address calculation Replaced hi-res address calculation with the optimized new Woz calculation <http://www.txbobsc.com/aal/1986/aal8612.html#a9> Swapped the order of Y and X register initialisation in SAVEDST because Y is used in the Woz routine. Added the image of Jonathan Mak in the ProDOS Disk image and the samples folder.
2013-07-03 19:02:39 +02:00
TAY
AND #$F0
BPL C1
ORA #$05
C1 BCC C2
ORA #$0A
C2 ASL
initial commit Original code from the Steve Jobs Hommage written by Arnaud Cocquière. http://www.ctrl-pomme-reset.fr/2011/10/11/hommage/
2013-06-29 18:15:04 +02:00
ASL
Replaced hi-res address calculation Replaced hi-res address calculation with the optimized new Woz calculation <http://www.txbobsc.com/aal/1986/aal8612.html#a9> Swapped the order of Y and X register initialisation in SAVEDST because Y is used in the Woz routine. Added the image of Jonathan Mak in the ProDOS Disk image and the samples folder.
2013-07-03 19:02:39 +02:00
STA MEM
TYA
AND #$0E
ADC #$10
ASL MEM
ROL
initial commit Original code from the Steve Jobs Hommage written by Arnaud Cocquière. http://www.ctrl-pomme-reset.fr/2011/10/11/hommage/
2013-06-29 18:15:04 +02:00
STA MEM+1
RTS
READBMP LDY SRCY
OFFSET LDA SOURCE,Y
STA BUFFBMP
INY
BNE S1
INC OFFSET+2
S1 STY SRCY
LDA #07
STA COMPTS
RTS
Replaced hi-res address calculation Replaced hi-res address calculation with the optimized new Woz calculation <http://www.txbobsc.com/aal/1986/aal8612.html#a9> Swapped the order of Y and X register initialisation in SAVEDST because Y is used in the Woz routine. Added the image of Jonathan Mak in the ProDOS Disk image and the samples folder.
2013-07-03 19:02:39 +02:00
SAVEDST LDX DESTX
initial commit Original code from the Steve Jobs Hommage written by Arnaud Cocquière. http://www.ctrl-pomme-reset.fr/2011/10/11/hommage/
2013-06-29 18:15:04 +02:00
JSR CALC
Replaced hi-res address calculation Replaced hi-res address calculation with the optimized new Woz calculation <http://www.txbobsc.com/aal/1986/aal8612.html#a9> Swapped the order of Y and X register initialisation in SAVEDST because Y is used in the Woz routine. Added the image of Jonathan Mak in the ProDOS Disk image and the samples folder.
2013-07-03 19:02:39 +02:00
LDY DESTY
initial commit Original code from the Steve Jobs Hommage written by Arnaud Cocquière. http://www.ctrl-pomme-reset.fr/2011/10/11/hommage/
2013-06-29 18:15:04 +02:00
LDA BUFFDST
LSR ; DERNIER DECALLAGE POUR 7EMEBIT
STA (MEM),Y
Support for HGR or DHGR Images Added a simple check of the horizontal resolution to decide if the HGR or DHGR mode should be used.
2013-06-29 19:02:47 +02:00
LDA DHGR
BEQ HGR
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.
2013-06-29 18:57:48 +02:00
BIT $C01C
BPL PAGE2
BIT $C054
JMP S2
PAGE2 BIT $C055
Support for HGR or DHGR Images Added a simple check of the horizontal resolution to decide if the HGR or DHGR mode should be used.
2013-06-29 19:02:47 +02:00
HGR INY
initial commit Original code from the Steve Jobs Hommage written by Arnaud Cocquière. http://www.ctrl-pomme-reset.fr/2011/10/11/hommage/
2013-06-29 18:15:04 +02:00
CPY #40
BNE S2
DEX
CPX #$FF
BEQ FIN
STX DESTX
Support for HGR or DHGR Images Added a simple check of the horizontal resolution to decide if the HGR or DHGR mode should be used.
2013-06-29 19:02:47 +02:00
JSR READBMP ; SAUTE DES OCTETS DANS BMP
LDA DHGR
BEQ FILLD
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.
2013-06-29 18:57:48 +02:00
JSR READBMP
Support for HGR or DHGR Images Added a simple check of the horizontal resolution to decide if the HGR or DHGR mode should be used.
2013-06-29 19:02:47 +02:00
FILLD LDY #00
initial commit Original code from the Steve Jobs Hommage written by Arnaud Cocquière. http://www.ctrl-pomme-reset.fr/2011/10/11/hommage/
2013-06-29 18:15:04 +02:00
S2 STY DESTY
LDA #06
STA COMPTD
RTS
Support for HGR or DHGR Images Added a simple check of the horizontal resolution to decide if the HGR or DHGR mode should be used.
2013-06-29 19:02:47 +02:00
FIN JMP END
initial commit Original code from the Steve Jobs Hommage written by Arnaud Cocquière. http://www.ctrl-pomme-reset.fr/2011/10/11/hommage/
2013-06-29 18:15:04 +02:00
Support for HGR or DHGR Images Added a simple check of the horizontal resolution to decide if the HGR or DHGR mode should be used.
2013-06-29 19:02:47 +02:00
DEBUT BIT $C050 ; GRAPHIQUES
BIT $C052 ; PLEIN G.
BIT $C057 ; HAUTE RESOLUTION
BIT $C054 ; PAGE1
initial commit Original code from the Steve Jobs Hommage written by Arnaud Cocquière. http://www.ctrl-pomme-reset.fr/2011/10/11/hommage/
2013-06-29 18:15:04 +02:00
Support for HGR or DHGR Images Added a simple check of the horizontal resolution to decide if the HGR or DHGR mode should be used.
2013-06-29 19:02:47 +02:00
LDA #00
STA DHGR
ProDOS adaption The original version was intended for use with DOS3.3 and it considered the 4 byte header displacement produced by it. To be able to use it under ProDOS this consideration had to be removed. Also some soft switches were reset.
2013-07-02 19:02:13 +02:00
LDA SOURCE+$12
Support for HGR or DHGR Images Added a simple check of the horizontal resolution to decide if the HGR or DHGR mode should be used.
2013-06-29 19:02:47 +02:00
CMP #$18
Support for Chat Mauve Mode Added monochrome and color DHGR initialization depending on the horizontal resolution. 560x192x1 images are displayed in JACE without color fringes. Should be tested with real hardware.
2013-06-29 19:06:10 +02:00
BEQ GSTEST
STA $C00C
BIT $C05E ; DOUBLE HR
STA $C05F
STA $C05E
STA $C05F
STA $C00D
STA $C05E
CMP #$30
BEQ MONO
STA $C05F
STA $C05E
STA $C05F
STA $C05E
MONO STA $C001 ; SET80STORE
Support for HGR or DHGR Images Added a simple check of the horizontal resolution to decide if the HGR or DHGR mode should be used.
2013-06-29 19:02:47 +02:00
BIT $C055 ; PAGE2
LDA #01
STA DHGR
GSTEST SEC
initial commit Original code from the Steve Jobs Hommage written by Arnaud Cocquière. http://www.ctrl-pomme-reset.fr/2011/10/11/hommage/
2013-06-29 18:15:04 +02:00
JSR $FE1F ; TEST GS (THX A.V.)
BCS GO1
LDA $C036
AND #$7F
STA $C036 ; VITESSE LENTE
LDA $C034 ;
AND #$F0
STA $C034 ; BORDURE NOIRE
ProDOS adaption The original version was intended for use with DOS3.3 and it considered the 4 byte header displacement produced by it. To be able to use it under ProDOS this consideration had to be removed. Also some soft switches were reset.
2013-07-02 19:02:13 +02:00
GO1 LDA SOURCE+$0A
initial commit Original code from the Steve Jobs Hommage written by Arnaud Cocquière. http://www.ctrl-pomme-reset.fr/2011/10/11/hommage/
2013-06-29 18:15:04 +02:00
ADC OFFSET+1
STA OFFSET+1
LDA #00
STA BUFFDST
STA SRCY
STA DESTY
LDX #191
STX DESTX
small corrections COMPTS is already initialized with READBMP. COMPTD has to be initialized instead. Otherwise a small shift appears in the image. This was not visible on the original demo picture because of the surrounding black background. Removed one unnecessary assignment to BUFFDST since it was already written on screen and will be overwritten thereafter.
2013-06-29 18:26:58 +02:00
LDA #06
STA COMPTD
initial commit Original code from the Steve Jobs Hommage written by Arnaud Cocquière. http://www.ctrl-pomme-reset.fr/2011/10/11/hommage/
2013-06-29 18:15:04 +02:00
JSR READBMP
BP ASL BUFFBMP
ROR BUFFDST
DEC COMPTS ; 8 DECALLAGES
BPL S3
JSR READBMP
S3 DEC COMPTD ; 7 ROTATIONS
BPL S4
JSR SAVEDST
S4 JMP BP
Support for HGR or DHGR Images Added a simple check of the horizontal resolution to decide if the HGR or DHGR mode should be used.
2013-06-29 19:02:47 +02:00
END PLA
initial commit Original code from the Steve Jobs Hommage written by Arnaud Cocquière. http://www.ctrl-pomme-reset.fr/2011/10/11/hommage/
2013-06-29 18:15:04 +02:00
PLA
STA $C010
BF LDA $C000
BPL BF
STA $C010
ProDOS adaption The original version was intended for use with DOS3.3 and it considered the 4 byte header displacement produced by it. To be able to use it under ProDOS this consideration had to be removed. Also some soft switches were reset.
2013-07-02 19:02:13 +02:00
STA $C000
STA $C00C
BIT $C053
BIT $C054
initial commit Original code from the Steve Jobs Hommage written by Arnaud Cocquière. http://www.ctrl-pomme-reset.fr/2011/10/11/hommage/
2013-06-29 18:15:04 +02:00
BIT $C051
RTS
Reference in New Issue Copy Permalink