6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2024-06-01 19:41:36 +00:00
Code Issues Projects Releases Wiki Activity

modkeep some libraries so PLFORTH can link to them

Browse Source
This commit is contained in:
David Schmenk 2023-12-28 13:31:42 -08:00
parent 677869ed4c
commit 9aa0ab68ee
5 changed files with 28 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/libsrc/apple/conio.pla
View File

@ -403,4 +403,5 @@ when MACHID & MACHID_MODEL
break
otherwise // MACHID_II puts("Found MACHID_MODEL = $"); putb(MACHID & MACHID_MODEL); putln
wend
return modkeep
done

21
src/libsrc/apple/dgrlib.pla
View File

@ -52,10 +52,10 @@ end
//
export asm dgrPlot(x, y)#0
; GET ROW BUFFER ADDRESSES
LDA $3000
LDA $3000
STA SRCL
LDA $3001
STA SRCH
STA SRCH
STX ESP
LDA ESTKL,X ; Y COORD
AND #$FE
@ -84,10 +84,10 @@ end
//
export asm dgrHLin(x1, x2, y)#0
; GET ROW BUFFER ADDRESSES
LDA $3000
LDA $3000
STA SRCL
LDA $3001
STA SRCH
STA SRCH
STX ESP
LDA ESTKL+1,X ; X2 COORD
STA TMPH
@ -126,10 +126,10 @@ end
//
export asm dgrVLin(y1, y2, x)#0
; GET ROW BUFFER ADDRESSES
LDA $3000
LDA $3000
STA SRCL
LDA $3001
STA SRCH
STA SRCH
STX ESP
LDA ESTKL+2,X ; Y1 COORD
PHP
@ -165,10 +165,10 @@ end
//
export asm dgrBLT(x, y, width, height, src)#0
; GET ROW BUFFER ADDRESSES
LDA $3000
LDA $3000
STA DSTL
LDA $3001
STA DSTH
STA DSTH
LDA ESTKL,X ; SPRITE
STA SRCL
LDA ESTKH,X
@ -325,10 +325,10 @@ end
//
export asm dgrTile(x, y, src)#0
; GET ROW BUFFER ADDRESSES
LDA $3000
LDA $3000
STA DSTL
LDA $3001
STA DSTH
STA DSTH
STX ESP
LDA ESTKL,X ; TILE
STA SRCL
@ -607,4 +607,5 @@ dgrTile:1 = @drawbuff
dgrTile:6 = @drawbuff+1
// Put read AUX mem routine in scary location
memcpy($0100, @auxRead, 9)
return modkeep
done

1
src/libsrc/apple/fileio.pla
View File

@ -479,4 +479,5 @@ when MACHID & MACHID_MODEL
break
otherwise // Apple ][
wend
return modkeep
done

21
src/libsrc/apple/grlib.pla
View File

@ -45,10 +45,10 @@ end
//
export asm grPlot(x, y)#0
; GET ROW BUFFER ADDRESSES
LDA $3000
LDA $3000
STA SRCL
LDA $3001
STA SRCH
STA SRCH
LDA ESTKL,X ; Y COORD
AND #$FE
TAY
@ -78,10 +78,10 @@ end
//
export asm grHLin(x1, x2, y)#0
; GET ROW BUFFER ADDRESSES
LDA $3000
LDA $3000
STA SRCL
LDA $3001
STA SRCH
STA SRCH
LDA ESTKL+1,X ; X2 COORD
STA TMPH
LDA ESTKL+0,X ; Y COORD
@ -120,10 +120,10 @@ end
//
export asm grVLin(y1, y2, x)#0
; GET ROW BUFFER ADDRESSES
LDA $3000
LDA $3000
STA SRCL
LDA $3001
STA SRCH
STA SRCH
LDA ESTKL+2,X ; Y1 COORD
- AND #$FE
TAY
@ -160,10 +160,10 @@ end
//
export asm grBLT(x, y, width, height, src)#0
; GET ROW BUFFER ADDRESSES
LDA $3000
LDA $3000
STA DSTL
LDA $3001
STA DSTH
STA DSTH
LDA ESTKL,X ; SPRITE
STA SRCL
LDA ESTKH,X
@ -252,10 +252,10 @@ end
//
export asm grTile(x, y, src)#0
; GET ROW BUFFER ADDRESSES
LDA $3000
LDA $3000
STA DSTL
LDA $3001
STA DSTH
STA DSTH
STX ESP
LDA ESTKL,X ; TILE
STA SRCL
@ -513,4 +513,5 @@ grBLT:1 = @drawbuff
grBLT:6 = @drawbuff+1
grTile:1 = @drawbuff
grTile:6 = @drawbuff+1
return modkeep
done

7
src/libsrc/lines.pla
View File

@ -249,7 +249,7 @@ asm _hlineB
end
//def vline(y1, y2, dy2, x, dx2, sx)#0
// var dxy2, y
//
//
// err = dx2 - dy2 / 2
// dxy2 = dx2 - dy2
// for y = y1 to y2
@ -386,7 +386,7 @@ def vmajorspans(x1, y1, x2, y2, dx, dy, sx)#0
end
export def linespans(x1, y1, x2, y2)#0
var dx, dy, dx2, dy2, halflen, rem, sx, sy
sx = 1
sy = 1
dx = x2 - x1
@ -430,7 +430,7 @@ export def setlineplot(p)#0
end
export def line(x1, y1, x2, y2)#0
var sx, sy, dx2, dy2
sx = 1
sy = 1
dx2 = (x2 - x1) * 2
@ -503,4 +503,5 @@ _vlineB:6 = @err
_vlineB:9 = @err
_vlineB:13 = @err.1
_vlineB:16 = @err.1
return modkeep
done