Mercurial > hg > Members > kono > os9 > sbc09
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