6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2024-12-29 01:30:22 +00:00
Code Issues Projects Releases Wiki Activity

Merge branch 'master' of https://github.com/dschmenk/PLASMA

Browse Source
This commit is contained in:
Dave Schmenk 2019-12-14 17:43:29 -08:00
commit d3c1b8881a
3 changed files with 66 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
images/apple/PLASMA2-SYS.PO
View File

Binary file not shown.

BIN
images/apple/PLASMA2.2mg
View File

Binary file not shown.

66
src/samplesrc/hgr1test.pla
View File

@ -20,6 +20,54 @@ const hgr2 = $4000
const page1 = 0
const page2 = 1
word hgrpage[] = hgr1, hgr2
byte hgradrl[] = $00,$00,$00,$00,$00,$00,$00,$00
word = $80,$80,$80,$80,$80,$80,$80,$80
word = $00,$00,$00,$00,$00,$00,$00,$00
word = $80,$80,$80,$80,$80,$80,$80,$80
word = $00,$00,$00,$00,$00,$00,$00,$00
word = $80,$80,$80,$80,$80,$80,$80,$80
word = $00,$00,$00,$00,$00,$00,$00,$00
word = $80,$80,$80,$80,$80,$80,$80,$80
word = $28,$28,$28,$28,$28,$28,$28,$28
word = $A8,$A8,$A8,$A8,$A8,$A8,$A8,$A8
word = $28,$28,$28,$28,$28,$28,$28,$28
word = $A8,$A8,$A8,$A8,$A8,$A8,$A8,$A8
word = $28,$28,$28,$28,$28,$28,$28,$28
word = $A8,$A8,$A8,$A8,$A8,$A8,$A8,$A8
word = $28,$28,$28,$28,$28,$28,$28,$28
word = $A8,$A8,$A8,$A8,$A8,$A8,$A8,$A8
word = $50,$50,$50,$50,$50,$50,$50,$50
word = $D0,$D0,$D0,$D0,$D0,$D0,$D0,$D0
word = $50,$50,$50,$50,$50,$50,$50,$50
word = $D0,$D0,$D0,$D0,$D0,$D0,$D0,$D0
word = $50,$50,$50,$50,$50,$50,$50,$50
word = $D0,$D0,$D0,$D0,$D0,$D0,$D0,$D0
word = $50,$50,$50,$50,$50,$50,$50,$50
word = $D0,$D0,$D0,$D0,$D0,$D0,$D0,$D0
byte hgradrh[] = $00,$04,$08,$0C,$10,$14,$18,$1C
word = $00,$04,$08,$0C,$10,$14,$18,$1C
word = $01,$05,$09,$0D,$11,$15,$19,$1D
word = $01,$05,$09,$0D,$11,$15,$19,$1D
word = $02,$06,$0A,$0E,$12,$16,$1A,$1E
word = $02,$06,$0A,$0E,$12,$16,$1A,$1E
word = $03,$07,$0B,$0F,$13,$17,$1B,$1F
word = $03,$07,$0B,$0F,$13,$17,$1B,$1F
word = $00,$04,$08,$0C,$10,$14,$18,$1C
word = $00,$04,$08,$0C,$10,$14,$18,$1C
word = $01,$05,$09,$0D,$11,$15,$19,$1D
word = $01,$05,$09,$0D,$11,$15,$19,$1D
word = $02,$06,$0A,$0E,$12,$16,$1A,$1E
word = $02,$06,$0A,$0E,$12,$16,$1A,$1E
word = $03,$07,$0B,$0F,$13,$17,$1B,$1F
word = $03,$07,$0B,$0F,$13,$17,$1B,$1F
word = $00,$04,$08,$0C,$10,$14,$18,$1C
word = $00,$04,$08,$0C,$10,$14,$18,$1C
word = $01,$05,$09,$0D,$11,$15,$19,$1D
word = $01,$05,$09,$0D,$11,$15,$19,$1D
word = $02,$06,$0A,$0E,$12,$16,$1A,$1E
word = $02,$06,$0A,$0E,$12,$16,$1A,$1E
word = $03,$07,$0B,$0F,$13,$17,$1B,$1F
word = $03,$07,$0B,$0F,$13,$17,$1B,$1F
word hgrscan[] = $0000,$0400,$0800,$0C00,$1000,$1400,$1800,$1C00
word = $0080,$0480,$0880,$0C80,$1080,$1480,$1880,$1C80
word = $0100,$0500,$0900,$0D00,$1100,$1500,$1900,$1D00
@ -45,11 +93,29 @@ word = $02D0,$06D0,$0AD0,$0ED0,$12D0,$16D0,$1AD0,$1ED0
word = $0350,$0750,$0B50,$0F50,$1350,$1750,$1B50,$1F50
word = $03D0,$07D0,$0BD0,$0FD0,$13D0,$17D0,$1BD0,$1FD0
word hcolor[] = $0000,$552A,$2A55,$7F7F,$8080,$D5AA,$AAD5,$FFFF
word ball0[9] = $0000, $1800, $3C00, $7E00, $7E00, $3C00, $1800, $0000
def hgrBLT(page, x, y, w, h, pSrc)#0
word pDst
byte i
repeat
pDst = hgrscan[y] | page + x
for i = 0 to w - 1
pDst->[i] = pSrc->[i]
next
pSrc = pSrc + w
y++
h--
until not h
end
memset(hgr1, 0, $2000) // Clear HGR page 1
^showpage1
^showfull
^showhires
^showgraphics
hgrBlt(hgrpage[0], 20, 100, 2, 8, @ball0)
getc
^showpage1
^showtext