6502/foco65
1
0
Fork 0
mirror of https://github.com/piotr-wiszowaty/foco65.git synced 2024-06-10 03:29:33 +00:00
Code Issues Projects Releases Wiki Activity

fixed 'cell' to be '2+', added '2+' as an primitive

Browse Source
This commit is contained in:
Carsten Strotmann 2017-02-25 18:30:12 +01:00
parent 03f471ba7e
commit 1726c49c3e
1 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
foco65
View File

@ -255,7 +255,7 @@ class BranchTarget:
class Words:
def __init__(self):
self.lst = []
self.aliases = {"cells": "2*", "cell": "2*", "not": "0="}
self.aliases = {"cells": "2*", "cell": "2+", "not": "0="}
def __iter__(self):
return iter(self.lst)
@ -397,6 +397,9 @@ class Forth:
elif token == "cells":
x = self.pop(token)
self.push(2 * x)
elif token == "cell":
x = self.pop(token)
self.push(x + 2)
elif token == "/":
x2 = self.pop(token)
x1 = self.pop(token)
@ -981,6 +984,19 @@ while_end
jmp next
[end-code] ;
: 2+
[label] two_plus
[code]
clc
lda #2
adc pstack,x
sta pstack,x
lda #0
adc pstack+1,x
sta pstack+1,x
jmp next
[end-code] ;
: count ( addr1 -- addr2 u )
[code]
lda pstack,x