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
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
LSR
LSR
ORA MEM
STA MEM
TXA
STA MEM+1
ASL
ASL
ASL
ROL MEM+1
ASL
ROL MEM+1
ASL
ROR MEM
LDA MEM+1
AND #$1F
ORA #$20
TYA
AND #$0E
ADC #$10
ASL MEM
ROL
STA MEM+1
RTS
@ -57,9 +53,9 @@ S1 STY SRCY
STA COMPTS
RTS
SAVEDST LDY DESTY
LDX DESTX
SAVEDST LDX DESTX
JSR CALC
LDY DESTY
LDA BUFFDST
LSR ; DERNIER DECALLAGE POUR 7EMEBIT
STA (MEM),Y

Binary file not shown.

BIN
Samples/IMAGE.BMP Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 7.0 KiB