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

Add keyboard pauses to test harness

Browse Source
This commit is contained in:
David Schmenk 2024-09-18 13:32:19 -07:00
parent aa03e5bdab
commit 39a5d98f93
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/samplesrc/dcgrtest.pla
View File

@ -238,6 +238,7 @@ def dcgrCompSprite#0
dcgrMemBl7(0, i * SPRH, sprite7w, SPRH, sprite7[i], sprite7span)
dcgrMemBl7(sprite7w, i * SPRH, sprite7w, SPRH, sprite7msk[i], sprite7span)
next
getc
end
////////////////////////////////////////////////////////////////
// //
@ -275,6 +276,14 @@ def dcgrTest#0
backblk, backspan = dcgrAllocBl7Mem(SCR_WIDTH, SPRH)
dcgrSurfMem(OP_SRC, SPRH, backblk, backspan)
dcgrScrBl7(0, SLIDEY, backspan >> 2, SPRH)
dcgrSurfScr(OP_SRC)
dcgrColor(CLR_WHITE)
dcgrHLin(0, 139, SLIDEY)
dcgrHLin(0, 139, SLIDEY+SPRH-1)
dcgrVLin(SLIDEY, SLIDEY+SPRH-1, 0)
dcgrVLin(SLIDEY, SLIDEY+SPRH-1, 139)
getc
dcgrMemBl7(0, SLIDEY, backspan >> 2, SPRH, backblk, backspan)
restrblk, restrspan = dcgrAllocBl7Mem(SPRW, SPRH)
restr7w = restrspan >> 2
restrw = restr7w * 7