# HG changeset patch
# User Shinji KONO <kono@ie.u-ryukyu.ac.jp>
# Date 1546611234 -32400
# Node ID 69ab3f9536c0ee44031e19619b9fd10a7bbd207f
# Parent  4d06202716c2ddd53adb288127d3a9af211ca24e
first TL/1 debug

diff -r 4d06202716c2 -r 69ab3f9536c0 TL1/TL1os9.asm
--- a/TL1/TL1os9.asm	Fri Jan 04 19:43:52 2019 +0900
+++ b/TL1/TL1os9.asm	Fri Jan 04 23:13:54 2019 +0900
@@ -124,7 +124,7 @@
        STA CH
 **  copy reserved word table
        LEAX WTABLE,PCR
-       leay WTBLE,PCR
+       leay WTBLE,u
        ldb #WTBLEND-WTABLE
 tbl1   lda ,x+
        sta ,y+
@@ -688,7 +688,7 @@
        BNE WD3
        BSR GETCH
        CMPA #$20
-       BCC *--4
+       BCC *-4
        BRA WD1
 **
 * ASCC CONST
@@ -776,7 +776,8 @@
 **
 * WORD TABLE SEARCH
 **
-TLOOK  LDA TCOUNT 
+TLOOK  PSHS U
+       LDA TCOUNT 
        STA SY
        LDX TEND 
 S01    LDU WEND 
@@ -813,7 +814,7 @@
        STB GL
        ANDA #$FD
 S07    STA SY
-RTSS   RTS
+RTSS   PULS U,PC
 **
 * ARITHMATIC EXPRESSION
 **
@@ -1294,11 +1295,10 @@
 **
 * STACK TOP CHANGE
 **
-STCHG  LDU SP
-       LEAU 2,U
-       PULU D,X
-       EXG D,X
-       PSHU D,X
+STCHG  LDD 2,S
+       LDX 4,S
+       STD 4,S
+       STX 2,S
        RTS
 **
 * PUTHSL output with address calculation
@@ -1633,6 +1633,7 @@
 *         lda   ,x               get char
 *         cmpa  #C$CR            end of command line?
 *         bne   start            branch if not
+         lbra comp
 
 copytbl
          pshs  y,x,u
@@ -1701,12 +1702,12 @@
 MEMIN
         PSHS        A,B,X,Y
         LDA         INDN
-        LEAX        1,S
+        LEAX        ,S
         LDY         #1
         OS9         I$Read
-        EXG         a,b
         BCC         GETCA0
         lda         #'/'
+        sta         ,s
 GETCA0
         PULS        A,B,X,Y,PC
 
@@ -1718,7 +1719,7 @@
         PSHS        A,B,X,Y
 GETCH0
         LDA         INDN
-        LEAX        1,S
+        LEAX        ,S
         LDY         #1
         OS9         I$Read
         BCS         GETCH0
diff -r 4d06202716c2 -r 69ab3f9536c0 TL1/defsfile
--- a/TL1/defsfile	Fri Jan 04 19:43:52 2019 +0900
+++ b/TL1/defsfile	Fri Jan 04 23:13:54 2019 +0900
@@ -2,8 +2,8 @@
 *
 *
 * OS-9 Level and Version equates
-Level    equ   2
-OS9Vrsn  equ   2
+Level    equ   1
+OS9Vrsn  equ   1
 OS9Major equ   0
 OS9Minor equ   1
 CHECK_FOR_VALID_RAM equ 1      force ram check for non standard arch
diff -r 4d06202716c2 -r 69ab3f9536c0 TL1/test/t1.tl1
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/TL1/test/t1.tl1	Fri Jan 04 23:13:54 2019 +0900
@@ -0,0 +1,27 @@
+% ** SPRITE TEST PROGRAM **
+PROC WAIT,TIME
+%--- MAIN ---
+VAR I
+BEGIN
+  WRITE(1:"Do ")
+  FOR I:=1 TO 10 DO [
+    WRITE(1:I,CRLF)
+    TIME
+    ]
+  WAIT
+END
+%-- PROCEDURE WAIT --
+WAIT
+VAR I,J,K
+BEGIN
+  FOR I:=0 TO 1 DO [
+    FOR J:=0 TO 255 DO [
+      FOR K:=0 TO 255 DO []]]
+END
+%-- PROCEDURE TIME --
+TIME
+VAR I,J
+BEGIN
+  FOR I:=0 TO 10 DO [
+    FOR J:=0 TO 150 DO []]
+END