6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-04-07 16:41:59 +00:00
Code Issues Projects Releases Wiki Activity

Update tests

Browse Source
This commit is contained in:
David Schmenk 2024-10-06 12:48:10 -07:00
parent b671d73a22
commit ba0f11e3a5
3 changed files with 24 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/inc/dcgrlib.plh
View File

@ -41,5 +41,5 @@ import dcgrlib
predef dcgrOp(op)#0
predef dcgrSurfScr(op)#0
predef dcgrSurfMem(op, memh, memptr, memspan)#0
predef dcgrMode(mode)
predef dcgrMode(mode)#1
end

19
src/libsrc/apple/dcgrlib.pla
View File

@ -1827,7 +1827,22 @@ def dcgrTileMem(tileptr, memptr, memspan)#0
byte h, v
word rowptr
for h = 0 to 3
//
// AUX half of memptr
//
for h = 0 to 1
rowptr = memptr + h
for v = 0 to 7
^rowptr = tileptr->[v]
rowptr = rowptr + memspan
next
tileptr = tileptr + 8
next
//
// MEM half of memptr
//
memptr = memptr + memspan / 2
for h = 0 to 1
rowptr = memptr + h
for v = 0 to 7
^rowptr = tileptr->[v]
@ -2044,7 +2059,7 @@ export def dcgrSurfMem(op, memh, memptr, memspan)#0
dcgrOpMem(opMem)
fin
end
export def dcgrMode(mode)
export def dcgrMode(mode)#1
if mode >= 0
^page1m
^showfull

6
src/samplesrc/dcgrtest.pla
View File

@ -258,6 +258,9 @@ def dcgrTest#0
//
j = 0
while ^$C000 < 128
//
// Convert compiled sprite into tile set
//
dcgrMemBl7Tile(0, 0, backblk, sprite7[j], sprite7span)
dcgrMemBl7Tile(1, 0, backblk + 32, sprite7[j], sprite7span)
dcgrMemBl7Tile(2, 0, backblk + 64, sprite7[j], sprite7span)
@ -266,6 +269,9 @@ def dcgrTest#0
dcgrMemBl7Tile(1, 8, backblk + 160, sprite7[j], sprite7span)
dcgrMemBl7Tile(2, 8, backblk + 192, sprite7[j], sprite7span)
dcgrMemBl7Tile(3, 8, backblk + 224, sprite7[j], sprite7span)
//
// Fill screen wil tiles matching compiled sprite
//
for i = 0 to 19
tilestr[i] = i & $03
next