mirror of
https://github.com/dschmenk/PLASMA.git
synced 2025-02-09 04:30:37 +00:00
Keep exported functions with a return value
This commit is contained in:
Dave Schmenk
parent
40715efbdb
commit
6c0147819c
@ -516,7 +516,7 @@ end
|
||||
// MEMSET(ADDR, VALUE, SIZE)
|
||||
// With optimizations from Peter Ferrie
|
||||
//
|
||||
asm memset(addr, val, size)#0
|
||||
asm memset(addr, val, size)
|
||||
LDA ESTKL+2,X
|
||||
STA DSTL
|
||||
LDA ESTKH+2,X
|
||||
@ -542,7 +542,6 @@ SETMLPH STA (DST),Y
|
||||
LDA ESTKH+1,X
|
||||
BCS SETMLPH
|
||||
SETMEX INX
|
||||
INX
|
||||
INX
|
||||
RTS
|
||||
end
|
||||
@ -550,32 +549,31 @@ end
|
||||
// COPY MEMORY
|
||||
// MEMCPY(DSTADDR, SRCADDR, SIZE)
|
||||
//
|
||||
asm memcpy(dst, src, size)#0
|
||||
asm memcpy(dst, src, size)
|
||||
INX
|
||||
INX
|
||||
INX
|
||||
LDA ESTKL-3,X
|
||||
ORA ESTKH-3,X
|
||||
BEQ CPYMEX
|
||||
LDA ESTKL-2,X
|
||||
CMP ESTKL-1,X
|
||||
LDA ESTKH-2,X
|
||||
SBC ESTKH-1,X
|
||||
ORA ESTKH-2,X
|
||||
BEQ CPYMEX
|
||||
LDA ESTKL-1,X
|
||||
CMP ESTKL,X
|
||||
LDA ESTKH-1,X
|
||||
SBC ESTKH,X
|
||||
BCC REVCPY
|
||||
;
|
||||
; FORWARD COPY
|
||||
;
|
||||
LDA ESTKL-1,X
|
||||
LDA ESTKL,X
|
||||
STA DSTL
|
||||
LDA ESTKH-1,X
|
||||
LDA ESTKH,X
|
||||
STA DSTH
|
||||
LDA ESTKL-2,X
|
||||
LDA ESTKL-1,X
|
||||
STA SRCL
|
||||
LDA ESTKH-2,X
|
||||
LDA ESTKH-1,X
|
||||
STA SRCH
|
||||
LDY ESTKL-3,X
|
||||
LDY ESTKL-2,X
|
||||
BEQ FORCPYLP
|
||||
INC ESTKH-3,X
|
||||
INC ESTKH-2,X
|
||||
LDY #$00
|
||||
FORCPYLP LDA (SRC),Y
|
||||
STA (DST),Y
|
||||
@ -583,34 +581,34 @@ FORCPYLP LDA (SRC),Y
|
||||
BNE +
|
||||
INC DSTH
|
||||
INC SRCH
|
||||
+ DEC ESTKL-3,X
|
||||
+ DEC ESTKL-2,X
|
||||
BNE FORCPYLP
|
||||
DEC ESTKH-3,X
|
||||
DEC ESTKH-2,X
|
||||
BNE FORCPYLP
|
||||
RTS
|
||||
;
|
||||
; REVERSE COPY
|
||||
;
|
||||
REVCPY ;CLC
|
||||
LDA ESTKL-3,X
|
||||
ADC ESTKL-1,X
|
||||
LDA ESTKL-2,X
|
||||
ADC ESTKL,X
|
||||
STA DSTL
|
||||
LDA ESTKH-3,X
|
||||
ADC ESTKH-1,X
|
||||
LDA ESTKH-2,X
|
||||
ADC ESTKH,X
|
||||
STA DSTH
|
||||
CLC
|
||||
LDA ESTKL-3,X
|
||||
ADC ESTKL-2,X
|
||||
LDA ESTKL-2,X
|
||||
ADC ESTKL-1,X
|
||||
STA SRCL
|
||||
LDA ESTKH-3,X
|
||||
ADC ESTKH-2,X
|
||||
LDA ESTKH-2,X
|
||||
ADC ESTKH-1,X
|
||||
STA SRCH
|
||||
DEC DSTH
|
||||
DEC SRCH
|
||||
LDY #$FF
|
||||
LDA ESTKL-3,X
|
||||
LDA ESTKL-2,X
|
||||
BEQ REVCPYLP
|
||||
INC ESTKH-3,X
|
||||
INC ESTKH-2,X
|
||||
REVCPYLP LDA (SRC),Y
|
||||
STA (DST),Y
|
||||
DEY
|
||||
@ -618,9 +616,9 @@ REVCPYLP LDA (SRC),Y
|
||||
BNE +
|
||||
DEC DSTH
|
||||
DEC SRCH
|
||||
+ DEC ESTKL-3,X
|
||||
+ DEC ESTKL-2,X
|
||||
BNE REVCPYLP
|
||||
DEC ESTKH-3,X
|
||||
DEC ESTKH-2,X
|
||||
BNE REVCPYLP
|
||||
CPYMEX RTS
|
||||
end
|
||||
@ -628,9 +626,8 @@ end
|
||||
// CHAR OUT
|
||||
// COUT(CHAR)
|
||||
//
|
||||
asm cout(char)#0
|
||||
asm cout(char)
|
||||
LDA ESTKL,X
|
||||
INX
|
||||
COUT1 BIT $BF98
|
||||
BMI +
|
||||
JSR TOUPR
|
||||
@ -659,13 +656,12 @@ end
|
||||
// PRINT STRING
|
||||
// PRSTR(STR)
|
||||
//
|
||||
asm prstr(pstr)#0
|
||||
asm prstr(pstr)
|
||||
LDY #$00
|
||||
LDA ESTKL,X
|
||||
STA SRCL
|
||||
LDA ESTKH,X
|
||||
STA SRCH
|
||||
INX
|
||||
LDA (SRC),Y
|
||||
STA TMP
|
||||
BEQ ++
|
||||
@ -903,12 +899,12 @@ end
|
||||
//
|
||||
// Runtime routines
|
||||
//
|
||||
def home#0
|
||||
call($FC58, 0, 0, 0, 0)
|
||||
def home
|
||||
return call($FC58, 0, 0, 0, 0)
|
||||
end
|
||||
def gotoxy(x, y)#0
|
||||
def gotoxy(x, y)
|
||||
^$24 = x + ^$20
|
||||
call($FB5B, y + ^$22, 0, 0, 0)
|
||||
return call($FB5B, y + ^$22, 0, 0, 0)
|
||||
end
|
||||
//
|
||||
// ProDOS routines
|
||||
@ -1171,7 +1167,7 @@ def prword(h)#0
|
||||
cout('$')
|
||||
call($F941, h >> 8, h, 0, 0)
|
||||
end
|
||||
def print(i)#0
|
||||
def print(i)
|
||||
byte numstr[7]
|
||||
byte place, sign
|
||||
|
||||
@ -1194,7 +1190,7 @@ def print(i)#0
|
||||
place--
|
||||
fin
|
||||
numstr[place] = 6 - place
|
||||
prstr(@numstr[place])
|
||||
return prstr(@numstr[place])
|
||||
end
|
||||
def nametostr(namestr, len, strptr)#0
|
||||
^strptr = len
|
||||
@ -2608,14 +2604,14 @@ end
|
||||
// Alebraic op to stack op
|
||||
//
|
||||
def push_op(op, prec)#0
|
||||
opsp = opsp + 1
|
||||
opsp++
|
||||
if opsp == 16; parse_err(@estk_overflw); return; fin
|
||||
opstack[opsp] = op
|
||||
precstack[opsp] = prec
|
||||
end
|
||||
def pop_op
|
||||
if opsp < 0; return parse_err(@estk_underflw); fin
|
||||
opsp = opsp - 1
|
||||
opsp--
|
||||
return opstack[opsp + 1]
|
||||
end
|
||||
def tos_op
|
||||
@ -2631,7 +2627,7 @@ def tos_op_prec(tos)
|
||||
return precstack[opsp]
|
||||
end
|
||||
def push_val(value, size, type)#0
|
||||
valsp = valsp + 1
|
||||
valsp++
|
||||
if valsp == 16; parse_err(@estk_overflw); return; fin
|
||||
valstack[valsp] = value
|
||||
sizestack[valsp] = size
|
||||
@ -2642,7 +2638,7 @@ def pop_val(valptr, sizeptr, typeptr)
|
||||
*valptr = valstack[valsp]
|
||||
^sizeptr = sizestack[valsp]
|
||||
^typeptr = typestack[valsp]
|
||||
valsp = valsp - 1
|
||||
valsp--
|
||||
return valsp + 1
|
||||
end
|
||||
//
|
||||
@ -2685,7 +2681,7 @@ def scan
|
||||
// ID, either variable name or reserved word
|
||||
//
|
||||
repeat
|
||||
scanptr = scanptr + 1
|
||||
scanptr++
|
||||
until !isalphanum(^scanptr)
|
||||
tknlen = scanptr - tknptr
|
||||
token = keymatch
|
||||
@ -2697,7 +2693,7 @@ def scan
|
||||
constval = 0
|
||||
repeat
|
||||
constval = constval * 10 + ^scanptr - '0'
|
||||
scanptr = scanptr + 1
|
||||
scanptr++
|
||||
until !isnum(^scanptr)
|
||||
else
|
||||
//
|
||||
@ -2710,7 +2706,7 @@ def scan
|
||||
^scanptr = $00
|
||||
else
|
||||
token = DIV_TKN
|
||||
scanptr = scanptr + 1
|
||||
scanptr++
|
||||
fin
|
||||
break
|
||||
is '='
|
||||
@ -2722,7 +2718,7 @@ def scan
|
||||
scanptr = scanptr + 2
|
||||
else
|
||||
token = SET_TKN
|
||||
scanptr = scanptr + 1
|
||||
scanptr++
|
||||
fin
|
||||
break
|
||||
is '-'
|
||||
@ -2734,7 +2730,7 @@ def scan
|
||||
scanptr = scanptr + 2
|
||||
else
|
||||
token = SUB_TKN
|
||||
scanptr = scanptr + 1
|
||||
scanptr++
|
||||
fin
|
||||
break
|
||||
is '+'
|
||||
@ -2743,7 +2739,7 @@ def scan
|
||||
scanptr = scanptr + 2
|
||||
else
|
||||
token = ADD_TKN
|
||||
scanptr = scanptr + 1
|
||||
scanptr++
|
||||
fin
|
||||
break
|
||||
is '>'
|
||||
@ -2755,7 +2751,7 @@ def scan
|
||||
scanptr = scanptr + 2
|
||||
else
|
||||
token = GT_TKN
|
||||
scanptr = scanptr + 1
|
||||
scanptr++
|
||||
fin
|
||||
break
|
||||
is '<'
|
||||
@ -2770,7 +2766,7 @@ def scan
|
||||
scanptr = scanptr + 2
|
||||
else
|
||||
token = LT_TKN
|
||||
scanptr = scanptr + 1
|
||||
scanptr++
|
||||
fin
|
||||
break
|
||||
is '$'
|
||||
@ -2780,7 +2776,7 @@ def scan
|
||||
token = INT_TKN
|
||||
constval = 0
|
||||
repeat
|
||||
scanptr = scanptr + 1
|
||||
scanptr++
|
||||
if ^scanptr >= '0' and ^scanptr <= '9'
|
||||
constval = (constval << 4) + ^scanptr - '0'
|
||||
elsif ^scanptr >= 'A' and ^scanptr <= 'F'
|
||||
@ -2825,15 +2821,15 @@ def scan
|
||||
// String constant
|
||||
//
|
||||
token = STR_TKN
|
||||
scanptr = scanptr + 1
|
||||
constval = scanptr
|
||||
scanptr++
|
||||
while ^scanptr and ^scanptr <> '"'
|
||||
scanptr = scanptr + 1
|
||||
scanptr++
|
||||
loop
|
||||
if !^scanptr
|
||||
return parse_err(@bad_cnst)
|
||||
fin
|
||||
scanptr = scanptr + 1
|
||||
scanptr++
|
||||
break
|
||||
is 0
|
||||
is ';'
|
||||
@ -2846,7 +2842,7 @@ def scan
|
||||
// Simple single character tokens
|
||||
//
|
||||
token = scanchr | $80
|
||||
scanptr = scanptr + 1
|
||||
scanptr++
|
||||
wend
|
||||
fin
|
||||
tknlen = scanptr - tknptr
|
||||
@ -2874,19 +2870,22 @@ end
|
||||
//
|
||||
def nextln
|
||||
if ^scanptr == ';'
|
||||
scanptr = scanptr + 1
|
||||
scanptr++
|
||||
scan
|
||||
else
|
||||
scanptr = inbuff
|
||||
if lineno < numlines
|
||||
cpyln(strlinbuf:[lineno], instr)
|
||||
lineno = lineno + 1
|
||||
lineno++
|
||||
if !(lineno & $0F); cout('.'); fin
|
||||
//cout('>')
|
||||
//prstr(instr)
|
||||
//crout
|
||||
print(lineno);cout(':');print(numlines)
|
||||
cout('>')
|
||||
prstr(instr)
|
||||
crout
|
||||
scan
|
||||
else
|
||||
cout('<')
|
||||
crout
|
||||
^instr = 0
|
||||
^inbuff = 0
|
||||
token = DONE_TKN
|
||||
@ -3848,6 +3847,7 @@ def parse_var(type)
|
||||
byte consttype, constsize, idlen
|
||||
word idptr, constval, arraysize, size
|
||||
|
||||
cout('T')
|
||||
idlen = 0
|
||||
size = 1
|
||||
if scan == OPEN_BRACKET_TKN
|
||||
@ -3903,6 +3903,7 @@ def parse_struc
|
||||
byte type, idlen, struclen, constsize
|
||||
word size, offset, idstr
|
||||
|
||||
cout('S')
|
||||
struclen = 0
|
||||
if scan == ID_TKN
|
||||
struclen = tknlen
|
||||
@ -3958,6 +3959,7 @@ def parse_vars
|
||||
byte idlen, type, size
|
||||
word value, idptr
|
||||
|
||||
cout('V')
|
||||
when token
|
||||
is CONST_TKN
|
||||
if scan <> ID_TKN
|
||||
@ -4010,6 +4012,7 @@ def parse_defs
|
||||
word func_tag, idptr
|
||||
|
||||
if token == DEF_TKN
|
||||
cout('D')
|
||||
if scan <> ID_TKN; return parse_err(@bad_decl); fin
|
||||
cfnparms = 0
|
||||
infunc = TRUE
|
||||
@ -4067,6 +4070,7 @@ def parse_module
|
||||
while parse_defs
|
||||
nextln
|
||||
loop
|
||||
cout('I')
|
||||
framesize = 0
|
||||
entrypoint = codeptr
|
||||
emit_enter(0)
|
||||
@ -4076,6 +4080,7 @@ def parse_module
|
||||
nextln
|
||||
loop
|
||||
fin
|
||||
cout('!')
|
||||
if prevstmnt <> RETURN_TKN
|
||||
emit_const(0)
|
||||
emit_leave
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user