Apple-2gs-SW/xrick2gs
1
0
Fork 0
mirror of https://github.com/dwsJason/xrick2gs.git synced 2025-08-15 14:27:19 +00:00
Code Issues Projects Releases Wiki Activity

blit.s: more routines for full screen image presents, SCBs, and palettes. import a macros file, to try and get ORCA lup to work

Browse Source
This commit is contained in:
dwsJason
2018-08-31 23:24:12 -04:00
parent 4721fc2336
commit b36cab1c12
2 changed files with 125 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

124
asm/blit.s
View File

@@ -8,9 +8,133 @@
longa on
longi on
mcopy asm:unroll.macros
Dummy5 start BLITCODE
end
PresentPalette start BLITCODE
phb
phk
plb
tsc
sta stack
tdc
sta dp
*---------------------
clc
lda #$9E00
peiloop anop
tcd
adc #$00FF
tcs
_pushpage
inc a
cmp #$A000
bcs done
jmp peiloop
*---------------------
done anop
lda dp
tcd
lda stack
tcs
plb
rtl
stack ds 2
dp ds 2
end
PresentSCB start BLITCODE
phb
phk
plb
tsc
sta stack
tdc
sta dp
*---------------------
lda #$9D00
tcd
lda #$9DFF
tcs
lcla &ct
&ct seta 128
.loop
&ct seta &ct-1
pei &ct*2
aif &ct,^loop
*---------------------
lda dp
tcd
lda stack
tcs
plb
rtl
stack ds 2
dp ds 2
end
PresentFrameBuffer start BLITCODE
phb
phk
plb
tsc
sta stack
tdc
sta dp
*---------------------
clc
lda #$2000
peiloop anop
tcd
adc #$00FF
tcs
_pushpage
inc a
cmp #$9d00
bcs done
jmp peiloop
*---------------------
done anop
lda dp
tcd
lda stack
tcs
plb
rtl
stack ds 2
dp ds 2
end
*
* void DrawRect(short x, short y, short width, short height)
*

1
asm/unroll.macros Normal file
View File

@@ -0,0 +1 @@
MACRO