6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-08-17 21:27:54 +00:00
Code Issues Projects Releases Wiki Activity

Fix wrong sysflags consts (outdated values)

Browse Source
This commit is contained in:
dschmenk
2015-11-15 13:11:10 -08:00
parent 1fa1f8b40b
commit 90643dce45
2 changed files with 10 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/samplesrc/hgr1.pla
View File

@@ -5,10 +5,12 @@ import cmdsys
// //
const restxt1 = $0001 const restxt1 = $0001
const restxt2 = $0002 const restxt2 = $0002
const reshgr1 = $0004 const resxtxt1 = $0004
const reshgr2 = $0008 const resxtxt2 = $0008
const resxhgr1 = $0010 const reshgr1 = $0010
const resxhgr2 = $0020 const reshgr2 = $0020
const resxhgr1 = $0040
const resxhgr2 = $0080
end end
sysflags reshgr1 // Reserve HGR page 1 sysflags reshgr1 // Reserve HGR page 1

6
src/samplesrc/hgr1test.pla
View File

@@ -1,5 +1,7 @@
import cmdsys import cmdsys
predef memset, memcpy, getc, heapalloc, heapmark, heaprelease predef memset, memcpy, heapalloc, heapmark, heaprelease
predef puts, putc, gets, getc
predef isugt, isuge, isult, isule
end end
import HGR1 import HGR1
end end
@@ -50,6 +52,7 @@ word = $02D0,$06D0,$0AD0,$0ED0,$12D0,$16D0,$1AD0,$1ED0
word = $0350,$0750,$0B50,$0F50,$1350,$1750,$1B50,$1F50 word = $0350,$0750,$0B50,$0F50,$1350,$1750,$1B50,$1F50
word = $03D0,$07D0,$0BD0,$0FD0,$13D0,$17D0,$1BD0,$1FD0 word = $03D0,$07D0,$0BD0,$0FD0,$13D0,$17D0,$1BD0,$1FD0
word hcolor[] = $0000,$552A,$2A55,$7F7F,$8080,$D5AA,$AAD5,$FFFF word hcolor[] = $0000,$552A,$2A55,$7F7F,$8080,$D5AA,$AAD5,$FFFF
word testval
// //
// def draw_scan(d8p8, scanptr) // def draw_scan(d8p8, scanptr)
// //
@@ -116,7 +119,6 @@ def draw_ground(page)
draw_scan((127 << fix_bits) / ip, hgrpage[page] + hgrscan[ip + 191 - view_height] + 2) draw_scan((127 << fix_bits) / ip, hgrpage[page] + hgrscan[ip + 191 - view_height] + 2)
next next
end end
draw_ground(page1) draw_ground(page1)
getc getc
^showpage1 ^showpage1