changeset 127:321b7fffadab

TL/1 simple test worked
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Sat, 05 Jan 2019 19:08:54 +0900
parents f43ca5d22920
children f2b439399279
files TL1/TL1os9.asm
diffstat 1 files changed, 16 insertions(+), 18 deletions(-) [+]
line wrap: on
line diff
--- a/TL1/TL1os9.asm	Sat Jan 05 15:56:45 2019 +0900
+++ b/TL1/TL1os9.asm	Sat Jan 05 19:08:54 2019 +0900
@@ -50,7 +50,7 @@
 TCOUNT RMB 1 
 TEND   RMB 2 
 WEND   RMB 2
-AMODE  RMB 1
+AMODE  RMB 1     0x20 main,  1 proc, 0 ?
 RSW    RMB 1
 GEND   RMB 2
 SSW    RMB  1
@@ -147,15 +147,15 @@
        BSR REG0
        CLR LSIZE
        LBSR WORD
-       CMPA #$37 
+       CMPA #$37     (
        BNE PL1
        BSR REGNAM
-       LDA #$38 )
+       LDA #$3B       )
        LBSR CHECK
 PL1    BSR PROG
-       LDB AMODE
-       CMPB #1
-       BNE *+5
+*       LDB AMODE
+*       CMPB #1
+*       BNE *+5
        LBSR RETP
        LDX GEND 
        STX TEND
@@ -185,7 +185,7 @@
        LDX WEND
        STX TEND
        BSR WORD1
-       CMPA #$36 
+       CMPA #$36     [
        BNE REG2
        BSR WORD1
        BNE ERR4
@@ -233,9 +233,9 @@
 **
 *  MULTIPLE STATEMENTS
 **
-SS1    CMPA #$34
+SS1    CMPA #$34   BEGIN
        BCS SS2
-       CMPA #$38
+       CMPA #$38   END
        BCC SS2
        ADDA #4
        PSHS A
@@ -727,8 +727,8 @@
        LDA VAL
        LDB #10
        MUL
-       ADDA ,S+
-       STA VAL
+       ADDB ,S+
+       STB VAL
        BSR GETCH
        BSR TSTNA
        BEQ WD50
@@ -1435,7 +1435,7 @@
 ** OBJECT START
 ******
 C      leas MSTACK,u
-VARPTR leax WTBLE,u
+VARPTR LDX <PC
        STX GB
        STX LB
        lda INDN
@@ -1447,12 +1447,10 @@
 OBJMP  JMP OBJECT,u
 
 **
-* PUSH LB & SET NEW LP
+* PUSH LB & SET NEW LB
 **
-PSHLB  CLRB
-       ADDD LB
-       STD WT1
-       LDX WT1
+PSHLB  LDX  LB
+       leax a,x
        LDD LB
        STD ,X++
        STX LB
@@ -1513,7 +1511,7 @@
        LBSR CRLF
        LBSR PUTSTR
        FCC "ERR DIV 0",0
-MONIT  lbsr exit
+MONIT  lbra exit
 **
 MULT   MUL
        STA MHIGH