Apple-2-Tools/4cade
1
0
Fork 0
mirror of https://github.com/a2-4am/4cade.git synced 2024-06-07 03:29:30 +00:00
Code Issues Projects Releases Wiki Activity

.

Browse Source
This commit is contained in:
4am 2018-10-31 22:41:49 -04:00
parent 66b33dfd2f
commit 0db950038c
1 changed files with 4 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/fx/fx.hgr.common.a
View File

@ -33,22 +33,19 @@ HGRBlockCopy
; in: A = HGR row / 8 (0x00..0x17)
; Y = HGR column (0x00..0x27)
; out: Y preserved
; X = #$FF
; X = #$00
; Z set
; all other flags and registers clobbered
sty @y
asl
asl
asl
jsr HGRCalc
clc
ldx #$08
@y=*+1
ldy #$FD ; modified at runtime
@loop
lda ($3c),y
sta ($26),y
lda $27
clc
adc #$04
sta $27
eor #$60
@ -61,22 +58,19 @@ HGRBlockToWhite
; in: A = HGR row / 8 (0x00..0x17)
; Y = HGR column (0x00..0x27)
; out: Y preserved
; X = #$FF
; X = #$00
; Z set
; all other flags and registers clobbered
sty @y
asl
asl
asl
jsr HGRCalc
clc
ldx #$08
@y=*+1
ldy #$FD ; modified at runtime
@loop
lda #$7F
sta ($26),y
lda $27
clc
adc #$04
sta $27
eor #$60