picolisp

commit f33f25bdac48626b3991d1b3ab6616ef95bf6b38
parent 3b95bd3034a9df9f508854f9a407030454eb287b
Author: Alexander Burger <abu@software-lab.de>
Date:   Wed, 20 Apr 2011 20:51:59 +0200

Generalized initData/initCode handling
Diffstat:
M
src64/ext.l
 | 
8
+++++++-
M
src64/glob.l
 | 
4
++--
M
src64/ht.l
 | 
8
+++++++-
M
src64/main.l
 | 
2
+-

4 files changed, 17 insertions(+), 5 deletions(-)
diff --git a/src64/ext.l b/src64/ext.l
@@ -1,6 +1,9 @@
-# 19may10abu
+# 20apr11abu
 # (c) Software Lab. Alexander Burger
 
+(data 'ExtData)
+   initData
+
 ### Soundex Algorithm ###
 (data 'SnxTab)
 bytes (
@@ -33,6 +36,9 @@ bytes (
 (equ SNXBASE 48)
 (equ SNXSIZE (+ (* 24 8) 2))
 
+(code 'ExtCode)
+   initCode
+
 # (ext:Snx 'any ['cnt]) -> sym
 (code 'Snx 2)
    push X
diff --git a/src64/glob.l b/src64/glob.l
@@ -1,7 +1,7 @@
-# 07apr11abu
+# 20apr11abu
 # (c) Software Lab. Alexander Burger
 
-(data 'Data 0)
+(data 'Data)
    initData
 
 :: AV          word  0           # Command line argument vector
diff --git a/src64/ht.l b/src64/ht.l
@@ -1,6 +1,9 @@
-# 11jun10abu
+# 20apr11abu
 # (c) Software Lab. Alexander Burger
 
+(data 'HtData)
+   initData
+
 ### Hypertext I/O functions ###
 (data 'HtOK)
 align 8  asciz "<b>"
@@ -28,6 +31,9 @@ align 8  asciz "<hr>"
 : HtEsc ascii " \\\"#%&:;<=>?_"
 (equ HTESC 12)
 
+(code 'HtCode)
+   initCode
+
 (code 'findHtOkY_FE 0)
    push X
    ld X HtOK
diff --git a/src64/main.l b/src64/main.l
@@ -1,7 +1,7 @@
 # 20apr11abu
 # (c) Software Lab. Alexander Burger
 
-(code 'Code 0)
+(code 'Code)
    initCode
 
 ### Global return labels ###