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

Squeeze native 6502 call back in

Browse Source
This commit is contained in:
David Schmenk 2014-06-06 21:29:55 -07:00
parent 82ef510624
commit 84e96156a3
4 changed files with 231 additions and 171 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

93
src/a1cmd.pla
View File

@ -1,5 +1,9 @@
const MODADDR = $1000
const inbuff = $200
const freemem = $0006
;
; CFFA1 addresses.
;
const CFFADest = $00
const CFFAFileName = $02
const CFFAOldName = $04
@ -11,7 +15,7 @@ const CFFAEntryPtr = $0B
; Pedefined functions.
;
predef home, gotoxy, viewport, crout, cout, prstr, cin, rdstr
predef syscall
predef syscall, call
predef markheap, allocheap, allocalignheap, releaseheap, availheap
predef memset, memcpy
predef uword_isgt, uword_isge, uword_islt, uword_isle
@ -33,6 +37,7 @@ byte putsstr[] = "PUTS"
byte getcstr[] = "GETC"
byte getsstr[] = "GETS"
byte sysstr[] = "SYSCALL"
byte callstr[] = "CALL"
byte hpmarkstr[] = "HEAPMARK"
byte hpalignstr[] = "HEAPALLOCALIGN"
byte hpallocstr[] = "HEAPALLOC"
@ -54,6 +59,7 @@ word = @putsstr, @prstr
word = @getcstr, @cin
word = @getsstr, @rdstr
word = @sysstr, @syscall
word = @callstr, @call
word = @hpmarkstr, @markheap
word = @hpallocstr,@allocheap
word = @hpalignstr,@allocalignheap
@ -85,10 +91,10 @@ byte hexchar[] = '0','1','2','3','4','5','6','7','8','9','A','B','C','D','E',
word systemflags = 0
word heap
word symtbl, lastsym
byte perr, lerr
byte perr
word cmdptr
;
; CALL SOS
; CALL CFFA1 API ENTRYPOINT
; SYSCALL(CMD)
;
asm syscall
@ -97,12 +103,54 @@ asm syscall
TAX
JSR $900C
LDX ESP
STA ESTKL,X
LDY #$00
STA ESTKL,X
STY ESTKH,X
RTS
end
;
; CALL 6502 ROUTINE
; CALL(AREG, XREG, YREG, STATUS, ADDR)
;
asm call
REGVALS = SRC
PHP
LDA ESTKL,X
STA TMPL
LDA ESTKH,X
STA TMPH
INX
LDA ESTKL,X
PHA
INX
LDA ESTKL,X
TAY
INX
LDA ESTKL+1,X
PHA
LDA ESTKL,X
INX
STX ESP
TAX
PLA
PLP
JSR JMPTMP
PHP
STA REGVALS+0
STX REGVALS+1
STY REGVALS+2
PLA
STA REGVALS+3
LDX ESP
LDA #<REGVALS
LDY #>REGVALS
STA ESTKL,X
STY ESTKH,X
PLP
RTS
JMPTMP JMP (TMP)
end
;
; QUIT TO MONITOR
;
asm quit
@ -224,7 +272,7 @@ asm uword_isge
CMP ESTKL,X
LDA ESTKH+1,X
SBC ESTKH,X
+ BCC +
BCC +
DEY
+ STY ESTKL+1,X
STY ESTKH+1,X
@ -237,7 +285,7 @@ asm uword_isle
CMP ESTKL+1,X
LDA ESTKH,X
SBC ESTKH+1,X
+ BCC +
BCC +
DEY
+ STY ESTKL+1,X
STY ESTKH+1,X
@ -250,7 +298,7 @@ asm uword_isgt
CMP ESTKL+1,X
LDA ESTKH,X
SBC ESTKH+1,X
+ BCC +
BCC +
INY
+ STY ESTKL+1,X
STY ESTKH+1,X
@ -263,7 +311,7 @@ asm uword_islt
CMP ESTKL,X
LDA ESTKH+1,X
SBC ESTKH,X
+ BCC +
BCC +
INY
+ STY ESTKL+1,X
STY ESTKH+1,X
@ -638,16 +686,17 @@ end
; DCI table routines,
;
def addtbl(dci, val, last)
word tblentry
tblentry = *last
while ^dci & $80
^*last = ^dci
*last = *last + 1
dci = dci + 1
^tblentry = ^dci
tblentry = tblentry + 1
dci = dci + 1
loop
^*last = ^dci
*last = *last + 1
**last = val
*last = *last + 2
^*last = 0
(tblentry).0 = ^dci
(tblentry):1 = val
*last = tblentry + 3
^*last = 0
end
;
; Symbol table routines.
@ -678,7 +727,7 @@ def lookupextern(esd, index)
if (esd).0 & $10 and (esd).1 == index
addr = lookupsym(sym)
if !addr
lerr = $81
perr = $81
cout('?')
prstr(@str)
crout
@ -714,7 +763,6 @@ def loadmod(mod)
word deftbl, deflast
word moddep, rld, esd, sym
byte str[17], filename[17]
lerr = 0
;
; Read the RELocatable module header (first 128 bytes)
;
@ -842,12 +890,9 @@ def loadmod(mod)
fin
esd = esd + 3
loop
else
perr = perr | 0x100
return -perr
fin
if lerr
return -lerr
if perr
return -perr
fin
;
; Call init routine if it exists.
@ -950,7 +995,7 @@ end
;
; Get heap start
;
heap = *$0006
heap = *freemem
;
; Print some startup info.
;

134
src/cmd.pla
View File

@ -17,7 +17,7 @@ const resxhgr2 = $0020
; Pedefined functions.
;
predef home, gotoxy, viewport, crout, cout, prstr, cin, rdstr
predef syscall
predef syscall, call
predef markheap, allocheap, allocalignheap, releaseheap, availheap
predef memset, memcpy
predef uword_isgt, uword_isge, uword_islt, uword_isle
@ -35,6 +35,7 @@ byte putsstr[] = "PUTS"
byte getcstr[] = "GETC"
byte getsstr[] = "GETS"
byte sysstr[] = "SYSCALL"
byte callstr[] = "CALL"
byte hpmarkstr[] = "HEAPMARK"
byte hpalignstr[] = "HEAPALLOCALIGN"
byte hpallocstr[] = "HEAPALLOC"
@ -56,6 +57,7 @@ word = @putsstr, @prstr
word = @getcstr, @cin
word = @getsstr, @rdstr
word = @sysstr, @syscall
word = @callstr, @call
word = @hpmarkstr, @markheap
word = @hpallocstr,@allocheap
word = @hpalignstr,@allocalignheap
@ -87,7 +89,7 @@ word heap
word lastsym = symtbl
word xheap = $0800
word systemflags = 0
byte perr, lerr
byte perr
word cmdptr
;
; Utility functions
@ -119,12 +121,56 @@ asm syscall
JSR $BF00
CMD: !BYTE 00
PARAMS: !WORD 0000
STA ESTKL,X
LDY #$00
STA ESTKL,X
STY ESTKH,X
RTS
end
;
; CALL 6502 ROUTINE
; CALL(AREG, XREG, YREG, STATUS, ADDR)
;
asm call
REGVALS = SRC
PHP
LDA ESTKL,X
STA TMPL
LDA ESTKH,X
STA TMPH
INX
LDA ESTKL,X
PHA
INX
LDA ESTKL,X
TAY
INX
LDA ESTKL+1,X
PHA
LDA ESTKL,X
INX
STX ESP
TAX
PLA
BIT ROMEN
PLP
JSR JMPTMP
PHP
BIT LCRDEN+LCBNK2
STA REGVALS+0
STX REGVALS+1
STY REGVALS+2
PLA
STA REGVALS+3
LDX ESP
LDA #<REGVALS
LDY #>REGVALS
STA ESTKL,X
STY ESTKH,X
PLP
RTS
JMPTMP JMP (TMP)
end
;
; CALL LOADED SYSTEM PROGRAM
;
asm exec
@ -143,8 +189,7 @@ end
;
asm reboot
BIT ROMEN
LDA #$00
STA $3F4 ; INVALIDATE POWER-UP BYTE
DEC $3F4 ; INVALIDATE POWER-UP BYTE
JMP ($FFFC) ; RESET
end
;
@ -325,13 +370,6 @@ asm viewport
INX
INX
BNE VTAB
; STX ESP
; BIT ROMEN
; JSR $FB5B
; BIT LCRDEN+LCBNK2
; LDX ESP
; INX
; RTS
end
;
; SET VIEWPORT RELATIVE CURSOR POSITION
@ -472,7 +510,7 @@ asm uword_isge
CMP ESTKL,X
LDA ESTKH+1,X
SBC ESTKH,X
+ BCC +
BCC +
DEY
+ STY ESTKL+1,X
STY ESTKH+1,X
@ -485,7 +523,7 @@ asm uword_isle
CMP ESTKL+1,X
LDA ESTKH,X
SBC ESTKH+1,X
+ BCC +
BCC +
DEY
+ STY ESTKL+1,X
STY ESTKH+1,X
@ -498,7 +536,7 @@ asm uword_isgt
CMP ESTKL+1,X
LDA ESTKH,X
SBC ESTKH+1,X
+ BCC +
BCC +
INY
+ STY ESTKL+1,X
STY ESTKH+1,X
@ -511,7 +549,7 @@ asm uword_islt
CMP ESTKL,X
LDA ESTKH+1,X
SBC ESTKH,X
+ BCC +
BCC +
INY
+ STY ESTKL+1,X
STY ESTKH+1,X
@ -737,15 +775,6 @@ def setpfx(path)
perr = syscall($C6, @params)
return path
end
def online
byte params[4]
params.0 = 2
params.1 = 0
params:2 = databuff
perr = syscall($C5, @params)
return databuff
end
def open(path, buff)
byte params[6]
@ -823,9 +852,6 @@ def releaseheap(newheap)
heap = newheap;
return @newheap - heap;
end
def availxheap(void)
return $BF00 - xheap;
end
def allocxheap(size)
word xaddr
xaddr = xheap
@ -859,6 +885,9 @@ def allocxheap(size)
fin
return xaddr
end
;def availxheap(void)
; return $BF00 - xheap;
;end
;def markxheap
; return xheap
;end
@ -893,16 +922,17 @@ end
; loop
;end
def addtbl(dci, val, last)
word tblentry
tblentry = *last
while ^dci & $80
^*last = ^dci
*last = *last + 1
dci = dci + 1
^tblentry = ^dci
tblentry = tblentry + 1
dci = dci + 1
loop
^*last = ^dci
*last = *last + 1
**last = val
*last = *last + 2
^*last = 0
(tblentry).0 = ^dci
(tblentry):1 = val
*last = tblentry + 3
^*last = 0
end
;
; Symbol table routines.
@ -933,7 +963,7 @@ def lookupextern(esd, index)
if (esd).0 & $10 and (esd).1 == index
addr = lookupsym(sym)
if !addr
lerr = $81
perr = $81
cout('?')
prstr(@str)
crout
@ -974,7 +1004,6 @@ def loadmod(mod)
word moddep, rld, esd, sym
byte defbank, str[16], filename[64]
byte header[128]
lerr = 0
;
; Read the RELocatable module header (first 128 bytes)
;
@ -1060,7 +1089,7 @@ def loadmod(mod)
defaddr = allocxheap(rld - bytecode)
modend = bytecode
else
defbank = 0
defbank = 0
defaddr = bytecode
fin
;
@ -1131,12 +1160,9 @@ def loadmod(mod)
; Free up the end-of-module in main memory.
;
releaseheap(modend)
else
perr = perr | 0x100
return -perr
fin
if lerr
return -lerr
if perr
return -perr
fin
;
; Call init routine if it exists.
@ -1150,10 +1176,15 @@ end
; Command mode
;
def volumes
byte params[4]
word strbuf
byte i
strbuf = online()
params.0 = 2
params.1 = 0
params:2 = databuff
perr = syscall($C5, @params)
strbuf = databuff
for i = 0 to 15
^strbuf = ^strbuf & $0F
if ^strbuf
@ -1195,7 +1226,7 @@ def catalog(optpath)
fin
for i = firstblk to entriesblk
type = ^entry
if type <> 0
if type
len = type & $0F
^entry = len
prstr(entry)
@ -1220,7 +1251,7 @@ def catalog(optpath)
else
filecnt = 0
fin
until filecnt == 0
until !filecnt
close(refnum)
crout()
return 0
@ -1273,7 +1304,6 @@ def resetmemfiles
;
; Set memory bitmap
;
;memclr($BF58, 24)
memset($BF58, 24, 0)
^$BF58 = $CF
^$BF6F = $01
@ -1322,11 +1352,11 @@ def execmod(modfile)
end
heap = *freemem
stodci(@stdlibstr, $0280)
addmod($0280, 1)
stodci(@stdlibstr, heap)
addmod(heap, 1)
while *stdlibsym
stodci((stdlibsym):0, $0280)
addsym($0280, (stdlibsym):2)
stodci((stdlibsym):0, heap)
addsym(heap, (stdlibsym):2)
stdlibsym = stdlibsym + 4
loop
resetmemfiles()

100
src/rod.pla
View File

@ -1,8 +1,8 @@
import STDLIB
predef romcall, puts
predef call, puts
end
;
; ROMCALL return register structure.
; CALL return register structure.
;
const acc = 0
const xreg = 1
@ -28,84 +28,28 @@ const hgr1=$2000
const hgr2=$4000
const page1=0
const page2=1
byte exitmsg[] = "PRESS ANY KEY TO EXIT.\n"
byte goodbye[] = "THAT'S ALL FOLKS!\n"
byte exitmsg[] = "Press any key to exit.\n"
byte goodbye[] = "That's all, folks!\n"
byte i, j, k, w, fmi, fmk, color
asm equates
;*
;* BANK SWITCHED MEM
;*
LCRDEN = $C080
LCWTEN = $C081
ROMEN = $C082
LCRWEN = $C083
LCBNK2 = $00
LCBNK1 = $08
!SOURCE "plvm02zp.inc"
end
;
; CALL 6502 ROUTINE
; ROMCALL(AREG, XREG, YREG, STATUS, ADDR)
;
asm romcall
PHP
LDA ESTKL,X
STA TMPL
LDA ESTKH,X
STA TMPH
INX
LDA ESTKL,X
PHA
INX
LDA ESTKL,X
TAY
INX
LDA ESTKL+1,X
PHA
LDA ESTKL,X
INX
STX ESP
TAX
PLA
BIT ROMEN
PLP
JSR JMPTMP
PHP
BIT LCRDEN+LCBNK2
STA REGVALS+0
STX REGVALS+1
STY REGVALS+2
PLA
STA REGVALS+3
LDX ESP
LDA #<REGVALS
LDY #>REGVALS
STA ESTKL,X
STY ESTKH,X
PLP
RTS
REGVALS !FILL 4
JMPTMP JMP (TMP)
end
def textmode
romcall(0, 0, 0, 0, $FB39)
call(0, 0, 0, 0, $FB39)
end
def home
romcall(0, 0, 0, 0, $FC58)
call(0, 0, 0, 0, $FC58)
end
def gotoxy(x, y)
^($24) = x
romcall(y, 0, 0, 0, $FB5B)
call(y, 0, 0, 0, $FB5B)
end
def grmode
romcall(0, 0, 0, 0, $FB40)
call(0, 0, 0, 0, $FB40)
^showlores
end
def grcolor(color)
romcall(color, 0, 0, 0, $F864)
call(color, 0, 0, 0, $F864)
end
def grplot(x, y)
romcall(y, 0, x, 0, $F800)
call(y, 0, x, 0, $F800)
end
def colors
while TRUE
@ -116,18 +60,17 @@ def colors
color = (j * 3) / (i + 3) + i * w / 12
fmi = 40 - i
fmk = 40 - k
romcall(color, 0, 0, 0, $F864) ;grcolor(color);
romcall(k, 0, i, 0, $F800) ;grplot(i, k);
romcall(i, 0, k, 0, $F800) ;grplot(k, i);
romcall(fmk, 0, fmi, 0, $F800) ;grplot(fmi, fmk);
romcall(fmi, 0, fmk, 0, $F800) ;grplot(fmk, fmi);
romcall(fmi, 0, k, 0, $F800) ;grplot(k, fmi);
romcall(k, 0, fmi, 0, $F800) ;grplot(fmi, k);
romcall(fmk, 0, i, 0, $F800) ;grplot(i, fmk);
romcall(i, 0, fmk, 0, $F800) ;grplot(fmk, i);
call(color, 0, 0, 0, $F864) ;grcolor(color);
call(k, 0, i, 0, $F800) ;grplot(i, k);
call(i, 0, k, 0, $F800) ;grplot(k, i);
call(fmk, 0, fmi, 0, $F800) ;grplot(fmi, fmk);
call(fmi, 0, fmk, 0, $F800) ;grplot(fmk, fmi);
call(fmi, 0, k, 0, $F800) ;grplot(k, fmi);
call(k, 0, fmi, 0, $F800) ;grplot(fmi, k);
call(fmk, 0, i, 0, $F800) ;grplot(i, fmk);
call(i, 0, fmk, 0, $F800) ;grplot(fmk, i);
if ^keyboard >= 128
^keystrobe
return
return ^keystrobe
fin
next
next
@ -143,7 +86,4 @@ colors()
textmode()
home()
puts(@goodbye)
while ^keyboard < 128
loop
^keystrobe
done

75
src/soscmd.pla
View File

@ -10,7 +10,7 @@ const O_READ_WRITE = 3
; Pedefined functions.
;
predef home, gotoxy, viewport, crout, cout, prstr, cin, rdstr
predef syscall, romcall
predef syscall, call
predef markheap, allocheap, allocalignheap, releaseheap, availheap
predef memset, memcpy
predef uword_isgt, uword_isge, uword_islt, uword_isle
@ -32,6 +32,8 @@ byte putsstr[] = "PUTS"
byte getcstr[] = "GETC"
byte getsstr[] = "GETS"
byte sysstr[] = "SYSCALL"
byte sysstr[] = "SYSCALL"
byte callstr[] = "CALL"
byte hpmarkstr[] = "HEAPMARK"
byte hpalignstr[] = "HEAPALLOCALIGN"
byte hpallocstr[] = "HEAPALLOC"
@ -53,6 +55,7 @@ word = @putsstr, @prstr
word = @getcstr, @cin
word = @getsstr, @rdstr
word = @sysstr, @syscall
word = @callstr, @call
word = @hpmarkstr, @markheap
word = @hpallocstr,@allocheap
word = @hpalignstr,@allocalignheap
@ -106,12 +109,54 @@ asm syscall
BRK
CMD !BYTE 00
PARAMS !WORD 0000
STA ESTKL,X
LDY #$00
STA ESTKL,X
STY ESTKH,X
RTS
end
;
; CALL 6502 ROUTINE
; CALL(AREG, XREG, YREG, STATUS, ADDR)
;
asm call
REGVALS = SRC
PHP
LDA ESTKL,X
STA TMPL
LDA ESTKH,X
STA TMPH
INX
LDA ESTKL,X
PHA
INX
LDA ESTKL,X
TAY
INX
LDA ESTKL+1,X
PHA
LDA ESTKL,X
INX
STX ESP
TAX
PLA
PLP
JSR JMPTMP
PHP
STA REGVALS+0
STX REGVALS+1
STY REGVALS+2
PLA
STA REGVALS+3
LDX ESP
LDA #<REGVALS
LDY #>REGVALS
STA ESTKL,X
STY ESTKH,X
PLP
RTS
JMPTMP JMP (TMP)
end
;
; SET MEMORY TO VALUE
; MEMSET(ADDR, SIZE, VALUE)
;
@ -267,7 +312,7 @@ asm uword_isge
CMP ESTKL,X
LDA ESTKH+1,X
SBC ESTKH,X
+ BCC +
BCC +
DEY
+ STY ESTKL+1,X
STY ESTKH+1,X
@ -280,7 +325,7 @@ asm uword_isle
CMP ESTKL+1,X
LDA ESTKH,X
SBC ESTKH+1,X
+ BCC +
BCC +
DEY
+ STY ESTKL+1,X
STY ESTKH+1,X
@ -293,7 +338,7 @@ asm uword_isgt
CMP ESTKL+1,X
LDA ESTKH,X
SBC ESTKH+1,X
+ BCC +
BCC +
INY
+ STY ESTKL+1,X
STY ESTKH+1,X
@ -306,7 +351,7 @@ asm uword_islt
CMP ESTKL,X
LDA ESTKH+1,X
SBC ESTKH,X
+ BCC +
BCC +
INY
+ STY ESTKL+1,X
STY ESTKH+1,X
@ -858,16 +903,17 @@ end
; loop
;end
def addtbl(dci, val, last)
word tblentry
tblentry = *last
while ^dci & $80
^*last = ^dci
*last = *last + 1
dci = dci + 1
^tblentry = ^dci
tblentry = tblentry + 1
dci = dci + 1
loop
^*last = ^dci
*last = *last + 1
**last = val
*last = *last + 2
^*last = 0
(tblentry).0 = ^dci
(tblentry):1 = val
*last = tblentry + 3
^*last = 0
end
;
; Symbol table routines.
@ -1150,7 +1196,6 @@ def loadmod(mod)
;
releaseheap(bytecode)
else
perr = perr | 0x100
return -perr
fin
if lerr