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.
This commit is contained in:
Mario Patiño 2013-07-03 19:02:39 +02:00
parent 4daa2c94df
commit f6d6f4fb3f
3 changed files with 16 additions and 20 deletions

View File

@ -24,25 +24,21 @@ SOURCE EQU $4000
JMP DEBUT JMP DEBUT
CALC TXA ; CALCUL ADRESSE LIGNE (X) HIRES CALC TXA ; CALCUL ADRESSE LIGNE (X) HIRES
AND #$C0 ASL
TAY
AND #$F0
BPL C1
ORA #$05
C1 BCC C2
ORA #$0A
C2 ASL
ASL
STA MEM STA MEM
LSR TYA
LSR AND #$0E
ORA MEM ADC #$10
STA MEM ASL MEM
TXA ROL
STA MEM+1
ASL
ASL
ASL
ROL MEM+1
ASL
ROL MEM+1
ASL
ROR MEM
LDA MEM+1
AND #$1F
ORA #$20
STA MEM+1 STA MEM+1
RTS RTS
@ -57,9 +53,9 @@ S1 STY SRCY
STA COMPTS STA COMPTS
RTS RTS
SAVEDST LDY DESTY SAVEDST LDX DESTX
LDX DESTX
JSR CALC JSR CALC
LDY DESTY
LDA BUFFDST LDA BUFFDST
LSR ; DERNIER DECALLAGE POUR 7EMEBIT LSR ; DERNIER DECALLAGE POUR 7EMEBIT
STA (MEM),Y STA (MEM),Y

Binary file not shown.

BIN
Samples/IMAGE.BMP Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 7.0 KiB