6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-01-09 13:33:26 +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
Show Stats 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 restxt2 = $0002
const reshgr1 = $0004
const reshgr2 = $0008
const resxhgr1 = $0010
const resxhgr2 = $0020
const resxtxt1 = $0004
const resxtxt2 = $0008
const reshgr1 = $0010
const reshgr2 = $0020
const resxhgr1 = $0040
const resxhgr2 = $0080
end
sysflags reshgr1 // Reserve HGR page 1

6
src/samplesrc/hgr1test.pla
View File

@ -1,5 +1,7 @@
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
import HGR1
end
@ -50,6 +52,7 @@ 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 testval
//
// 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)
next
end
draw_ground(page1)
getc
^showpage1