423 lines
8.9 KiB
Python
423 lines
8.9 KiB
Python
f = open('forth.fth','r')
|
|
lf = f.readlines()
|
|
f.close()
|
|
df = {}
|
|
|
|
|
|
def setmemory(addr, value):
|
|
memory[addr] = value&0xff
|
|
memory[addr+1] = (value>>8)&0xff
|
|
|
|
def getmemory(addr):
|
|
return (memory[addr+1]<<8)+memory[addr]
|
|
|
|
|
|
def to_int(x):
|
|
if x[:2]=="0x":
|
|
try:
|
|
a=int(x[2:],16)
|
|
return a
|
|
except:
|
|
return None
|
|
try:
|
|
a=int(x)
|
|
return a
|
|
except:
|
|
return None
|
|
|
|
def header(name, lt=None):
|
|
global here
|
|
global latest
|
|
memory[here] = 0
|
|
here += 1
|
|
for c in name.strip():
|
|
memory[here] = ord(c)
|
|
here += 1
|
|
if lt!=None:
|
|
setmemory(here, lt)
|
|
else:
|
|
setmemory(here, latest)
|
|
here += 2
|
|
memory[here] = len(name)
|
|
here += 1
|
|
if lt==None:
|
|
latest = here
|
|
df[name] = here
|
|
|
|
def compile_constant(name, value):
|
|
value=to_int(value)
|
|
global here
|
|
header(name)
|
|
memory[here] = 77
|
|
here += 1
|
|
setmemory(here, value)
|
|
here += 2
|
|
memory[here] = 33
|
|
here += 1
|
|
memory[here] = 41
|
|
here += 1
|
|
|
|
def env_compile_2constant(name, value):
|
|
value=to_int(value)
|
|
global here
|
|
global env_latest
|
|
header(name, env_latest)
|
|
env_latest = here
|
|
memory[here] = 77
|
|
here += 1
|
|
setmemory(here, value&0xffff)
|
|
here += 2
|
|
memory[here] = 33
|
|
here += 1
|
|
memory[here] = 77
|
|
here += 1
|
|
setmemory(here, value>>16)
|
|
here += 2
|
|
memory[here] = 33
|
|
here += 1
|
|
memory[here] = 41
|
|
here += 1
|
|
|
|
def env_compile_constant(name, value):
|
|
value=to_int(value)
|
|
global here
|
|
global env_latest
|
|
header(name, env_latest)
|
|
env_latest = here
|
|
memory[here] = 77
|
|
here += 1
|
|
setmemory(here, value)
|
|
here += 2
|
|
memory[here] = 33
|
|
here += 1
|
|
memory[here] = 41
|
|
here += 1
|
|
|
|
ITABLE = {
|
|
"IPOP":0x28,
|
|
"NXT":0x29,
|
|
"CALL":0x2a,
|
|
"CRX":0x2b,
|
|
|
|
"TSX":0x08,
|
|
"TRX":0x09,
|
|
"TPX":0x0a,
|
|
"TIX":0x0b,
|
|
|
|
"BRK":0x00,
|
|
|
|
"RPHX":0x01,
|
|
"RPHY":0x02,
|
|
"RPHZ":0x03,
|
|
"RPX":0x10,
|
|
"RPLX":0x11,
|
|
"RPLY":0x12,
|
|
"RPLZ":0x13,
|
|
|
|
"PSX":0x20,
|
|
"PHX":0x21,
|
|
"PHY":0x22,
|
|
"PHZ":0x23,
|
|
"SPX":0x30,
|
|
"PLX":0x31,
|
|
"PLY":0x32,
|
|
"PLZ":0x33,
|
|
|
|
"RXX":0x04,
|
|
"RXY":0x05,
|
|
"RYX":0x06,
|
|
"RYY":0x07,
|
|
|
|
"CRXX":0x14,
|
|
"CRXY":0x15,
|
|
"CRYX":0x16,
|
|
"CRYY":0x17,
|
|
|
|
"WXY":0x25,
|
|
"WYX":0x26,
|
|
"CWXY":0x35,
|
|
"CWYX":0x36,
|
|
|
|
"ADD":0x0c,
|
|
"SUB":0x0d,
|
|
"MUL":0x0e,
|
|
"SMUL":0x0f,
|
|
"DIV":0x1e,
|
|
"SDIV":0x1f,
|
|
|
|
"AND":0x2c,
|
|
"OR": 0x2d,
|
|
"XOR":0x2e,
|
|
"NOT":0x2f,
|
|
"RSH":0x3c,
|
|
"ASH":0x3d,
|
|
"LSH":0x3e,
|
|
"SIGN":0x3f,
|
|
|
|
"JMP":0x38,
|
|
"XJMP":0x39,
|
|
"YJMP":0x3a,
|
|
"ZJMP":0x3b,
|
|
|
|
"TXS":0x18,
|
|
"TXR":0x19,
|
|
"TXP":0x1a,
|
|
"TXI":0x1b,
|
|
|
|
"TXZ":0x40,
|
|
"TYZ":0x41,
|
|
"TZX":0x42,
|
|
"TZY":0x43,
|
|
"TYX":0x44,
|
|
"TXY":0x45,
|
|
|
|
"DECX":0x46,
|
|
"DECY":0x47,
|
|
"DECZ":0x48,
|
|
"INCX":0x49,
|
|
"INCY":0x4a,
|
|
"INCZ":0x4b,
|
|
|
|
"ENTX":0x4d,
|
|
"ENTY":0x4e,
|
|
"ENTZ":0x4f,
|
|
|
|
"RCV":0x52,
|
|
"DMSG":0x53,
|
|
"SEND":0x54,
|
|
"CHAN":0x55,
|
|
}
|
|
|
|
def compile_assembly(name, l):
|
|
global here
|
|
header(name)
|
|
for inst in l:
|
|
#memory[here] = to_int(inst)
|
|
#memory[here] = ITABLE[inst]
|
|
memory[here] = ITABLE.get(inst, to_int(inst))&0xff
|
|
here += 1
|
|
|
|
squit = []
|
|
def compile_def(name, l, immed=False, save_in=None):
|
|
global here
|
|
global squit
|
|
if name == "":
|
|
setmemory(save_in, here)
|
|
else:
|
|
header(name)
|
|
if immed:
|
|
memory[here-1] |= 128
|
|
memory[here] = 42
|
|
here += 1
|
|
i = 0
|
|
stack = []
|
|
#print(name)
|
|
while i<len(l):
|
|
#print(stack)
|
|
word = l[i]
|
|
i += 1
|
|
if to_int(word)!=None:
|
|
setmemory(here, df["(lit)"])
|
|
here += 2
|
|
setmemory(here, to_int(word))
|
|
here += 2
|
|
elif word == "POSTPONE":
|
|
nw = l[i]
|
|
i += 1
|
|
setmemory(here, df[nw])
|
|
here += 2
|
|
elif word == "LITERAL":
|
|
setmemory(here, df["(lit)"])
|
|
here += 2
|
|
setmemory(here, stack.pop())
|
|
here += 2
|
|
elif word == "[']":
|
|
setmemory(here, df["(lit)"])
|
|
here += 2
|
|
nw = l[i]
|
|
i += 1
|
|
setmemory(here, df[nw])
|
|
here += 2
|
|
elif word == "[COMPILE]":
|
|
setmemory(here, df["(lit)"])
|
|
here += 2
|
|
nw = l[i]
|
|
i += 1
|
|
setmemory(here, df[nw])
|
|
here += 2
|
|
setmemory(here, df[","])
|
|
here += 2
|
|
elif word == "IF":
|
|
setmemory(here, df["(0branch)"])
|
|
here += 2
|
|
stack.append(here)
|
|
setmemory(here, 0)
|
|
here += 2
|
|
elif word == "ELSE":
|
|
setmemory(here, df["(branch)"])
|
|
here += 2
|
|
n = stack.pop()
|
|
stack.append(here)
|
|
setmemory(here, 0)
|
|
here += 2
|
|
setmemory(n, here)
|
|
elif word == "THEN":
|
|
setmemory(stack.pop(), here)
|
|
elif word == "BEGIN":
|
|
stack.append(here)
|
|
elif word == "UNTIL":
|
|
setmemory(here, df["(0branch)"])
|
|
here += 2
|
|
setmemory(here, stack.pop())
|
|
here += 2
|
|
elif word == "REPEAT":
|
|
setmemory(here, df["(branch)"])
|
|
here += 2
|
|
setmemory(here, stack.pop())
|
|
here += 2
|
|
setmemory(stack.pop(), here)
|
|
elif word == "AGAIN":
|
|
setmemory(here, df["(branch)"])
|
|
here += 2
|
|
setmemory(here, stack.pop())
|
|
here += 2
|
|
elif word == "WHILE":
|
|
setmemory(here, df["(0branch)"])
|
|
here += 2
|
|
n = stack.pop()
|
|
stack.append(here)
|
|
stack.append(n)
|
|
setmemory(here, 0)
|
|
here += 2
|
|
elif word == "DO":
|
|
setmemory(here, df["(do)"])
|
|
here += 2
|
|
stack.append(here)
|
|
here += 2
|
|
stack.append(here)
|
|
elif word == "?DO":
|
|
setmemory(here, df["(?do)"])
|
|
here += 2
|
|
stack.append(here)
|
|
here += 2
|
|
stack.append(here)
|
|
elif word == "LOOP":
|
|
setmemory(here, df["(loop)"])
|
|
here += 2
|
|
setmemory(here, stack.pop())
|
|
here += 2
|
|
setmemory(stack.pop(), here)
|
|
elif word == "+LOOP":
|
|
setmemory(here, df["(+loop)"])
|
|
here += 2
|
|
setmemory(here, stack.pop())
|
|
here += 2
|
|
setmemory(stack.pop(), here)
|
|
elif word == "QUIT":
|
|
squit.append(here)
|
|
here += 2
|
|
elif word == 'S"':
|
|
nw = ""
|
|
while l[i][-1] != '"':
|
|
nw += l[i]
|
|
nw += " "
|
|
i += 1
|
|
nw += l[i][:-1] #Remove trailing "
|
|
i += 1
|
|
setmemory(here, df["(slit)"])
|
|
here += 2
|
|
setmemory(here, len(nw))
|
|
here += 2
|
|
for c in nw:
|
|
memory[here] = ord(c)
|
|
here += 1
|
|
else:
|
|
setmemory(here, df[word])
|
|
here += 2
|
|
setmemory(here, df["EXIT"])
|
|
here += 2
|
|
|
|
memory=[0]*0x10000
|
|
here=0x40c
|
|
latest=0
|
|
env_latest = 0
|
|
state="forth"
|
|
for i in lf:
|
|
k = i.split()
|
|
if len(k)>=1 and k[0] == "ASSEMBLER":
|
|
state="assembler"
|
|
elif len(k)>=1 and k[0] == "ENVIRONMENT":
|
|
state="env"
|
|
elif len(k)>=1 and k[0] == "FORTH":
|
|
state="forth"
|
|
elif len(k)>=3 and k[1] == "CONSTANT" and k[0]!=":":
|
|
if state == "env":
|
|
env_compile_constant(k[2], k[0])
|
|
else:
|
|
compile_constant(k[2],k[0])
|
|
elif len(k)>=3 and k[1] == "2CONSTANT" and k[0]!=":":
|
|
if state == "env":
|
|
env_compile_2constant(k[2], k[0])
|
|
elif len(k)>=3:
|
|
#print(k[0])
|
|
if k[0][0] == "\\":
|
|
continue
|
|
if state=="forth":
|
|
if k[0] == ":NONAME":
|
|
#print(getmemory(df[k[-2]]+1))
|
|
compile_def("",k[1:-3],False, getmemory(df[k[-2]]+1))
|
|
elif k[-1] == "IMMEDIATE":
|
|
compile_def(k[1],k[2:-2],True)
|
|
else:
|
|
compile_def(k[1],k[2:-1])
|
|
else:
|
|
compile_assembly(k[1],k[2:-1])
|
|
|
|
for i in squit:
|
|
setmemory(i, df["QUIT"])
|
|
|
|
memory[0x108]=10
|
|
memory[0x400]=0x4d
|
|
memory[0x401]=0x00
|
|
memory[0x402]=0x02
|
|
memory[0x403]=0x18
|
|
memory[0x404]=0x4d
|
|
memory[0x405]=0x00
|
|
memory[0x406]=0x03
|
|
memory[0x407]=0x19
|
|
memory[0x408]=0x4d
|
|
setmemory(0x409, df["COLD"])
|
|
memory[0x40b]=0x1a
|
|
setmemory(0x10c, latest)
|
|
setmemory(0x112, here)
|
|
setmemory(0x1a6, 1)
|
|
setmemory(0x1b0, latest)
|
|
setmemory(0x1b2, env_latest)
|
|
setmemory(0x1a4, 0x1b0)
|
|
setmemory(0x1d0, 0x1b0)
|
|
setmemory(0x1a2, 0x1b4)
|
|
|
|
memory[0xff00]=0x4d
|
|
memory[0xff01]=0x00
|
|
memory[0xff02]=0x04
|
|
memory[0xff03]=0x1a
|
|
|
|
def getc(i):
|
|
for key,k in df.items():
|
|
if k==i:
|
|
return key
|
|
|
|
#f = open('computer_memory.lua','w')
|
|
#f.write("function create_cptr_memory()\n\treturn {\n")
|
|
#for i in range(len(memory)):
|
|
# f.write("\t\t["+str(i)+"] = "+str(memory[i])+",\n")
|
|
#f.write("\t}\nend")
|
|
#f.close()
|
|
f = open('forth_floppy.lua','w')
|
|
f.write("function create_forth_floppy()\n\treturn \"")
|
|
for i in range(2**14):
|
|
f.write("\\%03d"%memory[i])
|
|
f.write("\"\nend")
|
|
f.close()
|
|
|