mirror of
https://github.com/dschmenk/PLASMA.git
synced 2026-04-27 03:18:02 +00:00
Minimal Super-HiRes library
This commit is contained in:
David Schmenk committed
1 parent
79f67ed832
commit
4990b2c98a
7 files changed
+264
-183
No files matched your search
@@ -1,183 +0,0 @@
|
||||
include "inc/cmdsys.plh"
|
||||
//
|
||||
// Apple II hardware constants.
|
||||
//
|
||||
const store80dis = $C000
|
||||
const store80en = $C001
|
||||
const vidctl = $C029
|
||||
const showgraphics = $C050
|
||||
const showtext = $C051
|
||||
const showfull = $C052
|
||||
const showmix = $C053
|
||||
const showpage1 = $C054
|
||||
const showpage2 = $C055
|
||||
const showlores = $C056
|
||||
const showhires = $C057
|
||||
const show40 = $C00C
|
||||
const show80 = $C00D
|
||||
const mapmain = $C000
|
||||
const mapaux = $C001
|
||||
const an3on = $C05E
|
||||
const an3off = $C05F
|
||||
const ena80 = $C07E
|
||||
const dis80 = $C07F
|
||||
const pixbuf = $2000
|
||||
const scbbuf = $9D00
|
||||
const palbuf = $9E00
|
||||
const scb640 = $80 // 640 PIXEL SUPER-HIRES
|
||||
const scb320 = $00 // 320 PIXEL SUPER-HIRES
|
||||
|
||||
word palette = $0000, $0007, $0070, $0077, $0700, $0707, $0770, $0
|
||||
word = $0CCC, $000F, $00F0, $00FF, $0F00, $0F0F, $0FF0, $0FFF
|
||||
|
||||
|
||||
asm shrInc(buff)
|
||||
!SOURCE "vmsrc/plvmzp.inc"
|
||||
GBASL = $26
|
||||
GBASH = $27
|
||||
GBASE = GBASL
|
||||
GCLR = $30
|
||||
STORE80DIS = $C000
|
||||
STORE80EN = $C001
|
||||
MAINWRT = $C004
|
||||
AUXWRT = $C005
|
||||
VIDCTL = $C029
|
||||
SHADOW = $C035
|
||||
end
|
||||
//
|
||||
// This gets copied to $0100!!!
|
||||
//
|
||||
asm auxRead
|
||||
STA $C003 ; READ AUX MEM
|
||||
LDA (GBASE),Y
|
||||
STA $C002 ; READ MAIN MEM
|
||||
RTS
|
||||
end
|
||||
//
|
||||
// Peek byte from SHR memory
|
||||
//
|
||||
asm shrPeek(addr)
|
||||
LDA ESTKL,X
|
||||
STA GBASL
|
||||
LDA ESTKH,X
|
||||
STA GBASH
|
||||
LDY #$00
|
||||
STY ESTKH,X
|
||||
PHP
|
||||
SEI
|
||||
LDA SHADOW
|
||||
AND #$F7
|
||||
STA SHADOW
|
||||
JSR $0100
|
||||
STA ESTKL,X
|
||||
LDA SHADOW
|
||||
ORA #$08
|
||||
STA SHADOW
|
||||
PLP
|
||||
RTS
|
||||
end
|
||||
//
|
||||
// Poke byte into SHR memory
|
||||
//
|
||||
asm shrPoke(addr, data)#0
|
||||
LDA ESTKL+1,X
|
||||
STA GBASL
|
||||
LDA ESTKH+1,X
|
||||
STA GBASH
|
||||
LDY #$00
|
||||
PHP
|
||||
SEI
|
||||
LDA SHADOW
|
||||
AND #$F7
|
||||
STA SHADOW
|
||||
LDA ESTKL+0,X
|
||||
STA AUXWRT
|
||||
STA (GBASE),Y
|
||||
STA MAINWRT
|
||||
LDA SHADOW
|
||||
ORA #$08
|
||||
STA SHADOW
|
||||
PLP
|
||||
INX
|
||||
INX
|
||||
RTS
|
||||
end
|
||||
//
|
||||
// Fill byte into SHR memory
|
||||
//
|
||||
asm shrFill(addr, data, len)#0
|
||||
LDA ESTKL+2,X
|
||||
STA GBASL
|
||||
LDA ESTKH+2,X
|
||||
STA GBASH
|
||||
LDY #$00
|
||||
PHP
|
||||
SEI
|
||||
LDA SHADOW
|
||||
AND #$F7
|
||||
STA SHADOW
|
||||
LDA ESTKL+1,X
|
||||
STA AUXWRT
|
||||
- STA (GBASE),Y
|
||||
INY
|
||||
BNE +
|
||||
INC GBASH
|
||||
+ DEC ESTKL+0,X
|
||||
BNE -
|
||||
DEC ESTKH+0,X
|
||||
BNE -
|
||||
STA MAINWRT
|
||||
LDA SHADOW
|
||||
ORA #$08
|
||||
STA SHADOW
|
||||
PLP
|
||||
INX
|
||||
INX
|
||||
RTS
|
||||
end
|
||||
export def shrPalette(pal, rgbptr)#0
|
||||
word palptr
|
||||
byte i
|
||||
|
||||
palptr = palbuf + pal * 32
|
||||
for i = 0 to 31
|
||||
shrPoke(palptr + i, ^(rgbptr + i))
|
||||
next
|
||||
end
|
||||
export def shrMode(mode)#0
|
||||
byte row, scb
|
||||
if mode
|
||||
//
|
||||
// Set super hires graphics
|
||||
//
|
||||
if mode == 640
|
||||
scb = scb640
|
||||
else
|
||||
scb = scb320
|
||||
fin
|
||||
for row = 0 to 199
|
||||
shrPoke(scbbuf + row, scb)
|
||||
shrRowPalette(row, palette)
|
||||
next
|
||||
^store80dis = 0 // Turn off 80 column mode
|
||||
^vidctl = ^vidctl | $80 // Turn on SHR mode
|
||||
return
|
||||
fin
|
||||
//
|
||||
// Set text mode
|
||||
//
|
||||
^vidctl = ^vidctl & $7F
|
||||
^showtext
|
||||
^showpage1
|
||||
^ena80 = 0
|
||||
^show40 = 0
|
||||
^mapmain = 0
|
||||
^an3off
|
||||
call($FC58, 0, 0, 0, 0) // home()
|
||||
end
|
||||
// Put read AUX mem routine in scary location
|
||||
memcpy($0100, @auxRead, 9)
|
||||
//
|
||||
// Keep module in memory
|
||||
//
|
||||
done
|
||||
@@ -275,3 +275,5 @@ cp inc/extheader.inc prodos/bld/inc/EXTHEADER.INC.TXT
|
||||
cp inc/extdefseg.inc prodos/bld/inc/EXTDEFSEG.INC.TXT
|
||||
|
||||
make -f dhgr.tk/makefile all
|
||||
|
||||
make -f shr.tk/makefile all
|
||||
@@ -0,0 +1,10 @@
|
||||
import shrlib
|
||||
predef shrPeek(addr)#1
|
||||
predef shrPoke(addr, data)#0
|
||||
predef shrSet(addr, data, len)#0
|
||||
predef shrPixel(x, y)#0
|
||||
predef shrColor(clr)#0
|
||||
predef shrSCB(row, scb)#0
|
||||
predef shrPalette(pal, rgbptr)#0
|
||||
predef shrMode(mode)#0
|
||||
end
|
||||
@@ -0,0 +1,199 @@
|
||||
include "inc/cmdsys.plh"
|
||||
//
|
||||
// Apple II hardware constants.
|
||||
//
|
||||
const vidctl = $C029
|
||||
const shadow = $C035
|
||||
const pixbuf = $2000
|
||||
const scbbuf = $9D00
|
||||
const palbuf = $9E00
|
||||
const scb640 = $80 // 640 PIXEL, PAL 0, NO INT
|
||||
const scb320 = $00 // 320 PIXEL, PAL 0, NO INT, NO FILL
|
||||
|
||||
word pal4BPP = $0000, $0007, $0070, $0077, $0700, $0707, $0770, $0777
|
||||
word = $0CCC, $000F, $00F0, $00FF, $0F00, $0F0F, $0FF0, $0FFF
|
||||
word pal2BPP = $0000, $0777, $0CCC, $0FFF, $0000, $0777, $0CCC, $0FFF
|
||||
word = $0000, $0777, $0CCC, $0FFF, $0000, $0777, $0CCC, $0FFF
|
||||
byte mask4BPP = $F0, $0F
|
||||
byte mask2BPP = $C0, $30, $0C, $03
|
||||
byte clr4BPPExp = $00, $11, $22, $33, $44, $55, $66, $77, $88, $99, $AA, $BB, $CC, $DD, $EE, $FF
|
||||
byte clr2BPPExp = $00, $55, $AA, $FF
|
||||
byte _clr
|
||||
word shrScanline[200]
|
||||
|
||||
asm shrInc(buff)
|
||||
!SOURCE "vmsrc/apple/plvmzp.inc"
|
||||
SHADOW = $C035
|
||||
MAINRD = $C002
|
||||
AUXRD = $C003
|
||||
MAINWRT = $C004
|
||||
AUXWRT = $C005
|
||||
end
|
||||
//
|
||||
// Peek byte from AUX memory
|
||||
// This gets copied to $0100!!!
|
||||
//
|
||||
asm _auxPeek(addr)#1
|
||||
STA AUXRD ; $0100
|
||||
LDA (ESTKH-1,X) ; $0103
|
||||
STA MAINRD ; $0105
|
||||
RTS ; $0108
|
||||
end
|
||||
asm _shrSetBits(addr, data, mask)#0
|
||||
LDY SHADOW ; $0109
|
||||
TYA
|
||||
AND #$F7
|
||||
STA SHADOW
|
||||
LDA ESTKL+2,X
|
||||
STA ESTKH+1,X
|
||||
LDA ESTKL+1,X
|
||||
STA AUXRD
|
||||
STA AUXWRT
|
||||
EOR (ESTKH+1,X)
|
||||
AND ESTKL+0,X
|
||||
EOR (ESTKH+1,X)
|
||||
STA (ESTKH+1,X)
|
||||
STA MAINRD
|
||||
STA MAINWRT
|
||||
STY SHADOW
|
||||
INX
|
||||
INX
|
||||
INX
|
||||
RTS
|
||||
end
|
||||
export asm shrPeek(addr)#1
|
||||
LDY SHADOW
|
||||
TYA
|
||||
AND #$F7
|
||||
STA SHADOW
|
||||
LDA ESTKL,X
|
||||
STA ESTKH-1,X
|
||||
JSR $0100
|
||||
STA ESTKL,X
|
||||
STY SHADOW
|
||||
LDY #$00
|
||||
STY ESTKH,X
|
||||
RTS
|
||||
end
|
||||
export asm shrSetBits(addr, data, mask)#0
|
||||
JMP $0109
|
||||
end
|
||||
//
|
||||
// Poke byte into SHR memory
|
||||
//
|
||||
export asm shrPoke(addr, data)#0
|
||||
LDY SHADOW
|
||||
TYA
|
||||
AND #$F7
|
||||
STA SHADOW
|
||||
LDA ESTKL+1,X
|
||||
STA ESTKH+0,X
|
||||
LDA ESTKL+0,X
|
||||
STA AUXWRT
|
||||
STA (ESTKH+0,X)
|
||||
STA MAINWRT
|
||||
STY SHADOW
|
||||
INX
|
||||
INX
|
||||
RTS
|
||||
end
|
||||
export asm shrSet(addr, data, len)#0
|
||||
LDA SHADOW
|
||||
AND #$F7
|
||||
STA SHADOW
|
||||
LDY ESTKL+2,X
|
||||
LDA #$00
|
||||
STA DSTL
|
||||
LDA ESTKH+2,X
|
||||
STA DSTH
|
||||
LDA ESTKL+1,X
|
||||
INC ESTKH+0,X
|
||||
STA AUXWRT
|
||||
- STA (DST),Y
|
||||
INY
|
||||
BNE +
|
||||
INC DSTH
|
||||
+ DEC ESTKL+0,X
|
||||
BNE -
|
||||
DEC ESTKH+0,X
|
||||
BNE -
|
||||
STA MAINWRT
|
||||
LDA SHADOW
|
||||
ORA #$08
|
||||
STA SHADOW
|
||||
INX
|
||||
INX
|
||||
INX
|
||||
RTS
|
||||
end
|
||||
export asm shrPixel(x, y)#0
|
||||
JMP $2000
|
||||
end
|
||||
export asm shrColor(clr)#0
|
||||
JMP $2000
|
||||
end
|
||||
def shrColor4BPP(clr)#0
|
||||
_clr = clr4BPPExp[clr & $0F]
|
||||
end
|
||||
def shrColor2BPP(clr)#0
|
||||
_clr = clr2BPPExp[clr & $03]
|
||||
end
|
||||
def shrPixel4BPP(x, y)#0
|
||||
shrSetBits(shrScanline[y] + (x >> 1), _clr, mask4BPP[x & 1])
|
||||
end
|
||||
def shrPixel2BPP(x, y)#0
|
||||
shrSetBits(shrScanline[y] + (x >> 2), _clr, mask2BPP[x & 3])
|
||||
end
|
||||
export def shrSCB(row, scb)#0
|
||||
shrPoke(scbbuf + row, scb)
|
||||
end
|
||||
export def shrPalette(idx, rgbptr)#0
|
||||
word palptr
|
||||
byte i
|
||||
|
||||
palptr = palbuf + idx * 32
|
||||
for i = 0 to 31
|
||||
shrPoke(palptr + i, ^(rgbptr + i))
|
||||
next
|
||||
end
|
||||
export def shrMode(mode)#0
|
||||
byte row, scb
|
||||
|
||||
if mode
|
||||
//
|
||||
// Set super hires graphics
|
||||
//
|
||||
^vidctl = ^vidctl | $C0 // Turn on linear SHR mode
|
||||
if mode == 640
|
||||
scb = scb640
|
||||
*(@shrPixel + 1) = @shrPixel2BPP
|
||||
*(@shrColor + 1) = @shrColor2BPP
|
||||
shrPalette(0, @pal2BPP)
|
||||
else
|
||||
scb = scb320
|
||||
*(@shrPixel + 1) = @shrPixel4BPP
|
||||
*(@shrColor + 1) = @shrColor4BPP
|
||||
shrPalette(0, @pal4BPP)
|
||||
fin
|
||||
for row = 0 to 199
|
||||
shrScanline[row] = $2000 + row * 160
|
||||
shrPoke(scbbuf + row, scb)
|
||||
next
|
||||
shrSet(pixbuf, 0, $7D00)
|
||||
else
|
||||
//
|
||||
// Set text mode
|
||||
//
|
||||
^vidctl = ^vidctl & $3F
|
||||
call($FC58, 0, 0, 0, 0) // home()
|
||||
fin
|
||||
end
|
||||
//
|
||||
// Put read AUX/SHR mem routines in scary location
|
||||
//
|
||||
memcpy($0100, @_auxPeek, @shrPeek - @_auxPeek)
|
||||
//
|
||||
// Keep module in memory
|
||||
//
|
||||
return modkeep
|
||||
done
|
||||
@@ -0,0 +1,22 @@
|
||||
.SUFFIXES =
|
||||
AFLAGS = -o $@
|
||||
|
||||
SHRLIB = shr.tk/libs/SHRLIB.REL
|
||||
|
||||
libs: $(SHRLIB)
|
||||
cp $(SHRLIB) prodos/sys
|
||||
|
||||
bld: $(SHRLIB)
|
||||
-mkdir prodos/bld/shr.tk/
|
||||
-mkdir prodos/bld/shr.tk/inc/
|
||||
cp shr.tk/inc/shrlib.plh prodos/bld/shr.tk/inc/SHRLIB.PLH.TXT
|
||||
cp shr.tk/shrtest.pla prodos/bld/shr.tk/SHRTEST.PLA.TXT
|
||||
|
||||
all: libs bld
|
||||
|
||||
clean:
|
||||
|
||||
$(SHRLIB): shr.tk/libs/shrlib.pla shr.tk/inc/shrlib.plh
|
||||
./xplasm -AMOW shr.tk/libs/shrlib.pla
|
||||
acme --setpc 4094 -o $(SHRLIB) shr.tk/libs/shrlib.a
|
||||
|
||||
@@ -0,0 +1,31 @@
|
||||
include "inc/cmdsys.plh"
|
||||
include "inc/lines.plh"
|
||||
include "shr.tk/inc/shrlib.plh"
|
||||
|
||||
//////////////////////////////////////////
|
||||
// //
|
||||
// Test Harness //
|
||||
// //
|
||||
//////////////////////////////////////////
|
||||
def shrTest#0
|
||||
word i
|
||||
|
||||
//
|
||||
// Super Hires Lines
|
||||
//
|
||||
setlineplot(@shrPixel)
|
||||
for i = 0 to 199 step 3
|
||||
shrColor(i)
|
||||
line(0,0,319,i)
|
||||
next
|
||||
for i = 319 downto 0 step 3
|
||||
shrColor(i)
|
||||
line(0,0,i,199)
|
||||
next
|
||||
end
|
||||
|
||||
shrMode(320)
|
||||
shrTest
|
||||
getc
|
||||
shrMode(0)
|
||||
done
|
||||
Reference in new issue
Block a user