Mercurial > hg > Members > kono > os9 > sbc09

comparison TL1/TL1os9.asm @ 127:321b7fffadab

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 36000611014b
comparison
equal deleted inserted replaced
126:f43ca5d22920 127:321b7fffadab
48 ACC RMB 1 48 ACC RMB 1
49 LSIZE RMB 1 49 LSIZE RMB 1
50 TCOUNT RMB 1 50 TCOUNT RMB 1
51 TEND RMB 2 51 TEND RMB 2
52 WEND RMB 2 52 WEND RMB 2
53 AMODE RMB 1 53 AMODE RMB 1 0x20 main, 1 proc, 0 ?
54 RSW RMB 1 54 RSW RMB 1
55 GEND RMB 2 55 GEND RMB 2
56 SSW RMB 1 56 SSW RMB 1
57 57
58 ** 58 **
145 FDB $03BD 145 FDB $03BD
146 FDB PSHLB 146 FDB PSHLB
147 BSR REG0 147 BSR REG0
148 CLR LSIZE 148 CLR LSIZE
149 LBSR WORD 149 LBSR WORD
150 CMPA #$37 150 CMPA #$37 (
151 BNE PL1 151 BNE PL1
152 BSR REGNAM 152 BSR REGNAM
153 LDA #$38 ) 153 LDA #$3B )
154 LBSR CHECK 154 LBSR CHECK
155 PL1 BSR PROG 155 PL1 BSR PROG
156 LDB AMODE 156 * LDB AMODE
157 CMPB #1 157 * CMPB #1
158 BNE *+5 158 * BNE *+5
159 LBSR RETP 159 LBSR RETP
160 LDX GEND 160 LDX GEND
161 STX TEND 161 STX TEND
162 LDB #5 162 LDB #5
163 STB TCOUNT 163 STB TCOUNT
183 STA ,X 183 STA ,X
184 INC LSIZE 184 INC LSIZE
185 LDX WEND 185 LDX WEND
186 STX TEND 186 STX TEND
187 BSR WORD1 187 BSR WORD1
188 CMPA #$36 188 CMPA #$36 [
189 BNE REG2 189 BNE REG2
190 BSR WORD1 190 BSR WORD1
191 BNE ERR4 191 BNE ERR4
192 LDA VAL 192 LDA VAL
193 ADDA LSIZE 193 ADDA LSIZE
231 STA SSW 231 STA SSW
232 LDA SY 232 LDA SY
233 ** 233 **
234 * MULTIPLE STATEMENTS 234 * MULTIPLE STATEMENTS
235 ** 235 **
236 SS1 CMPA #$34 236 SS1 CMPA #$34 BEGIN
237 BCS SS2 237 BCS SS2
238 CMPA #$38 238 CMPA #$38 END
239 BCC SS2 239 BCC SS2
240 ADDA #4 240 ADDA #4
241 PSHS A 241 PSHS A
242 BSR WORD1 242 BSR WORD1
243 BSR STLIST 243 BSR STLIST
725 WD50 SUBA #'0' 725 WD50 SUBA #'0'
726 PSHS A 726 PSHS A
727 LDA VAL 727 LDA VAL
728 LDB #10 728 LDB #10
729 MUL 729 MUL
730 ADDA ,S+ 730 ADDB ,S+
731 STA VAL 731 STB VAL
732 BSR GETCH 732 BSR GETCH
733 BSR TSTNA 733 BSR TSTNA
734 BEQ WD50 734 BEQ WD50
735 RTS 735 RTS
736 * THE OTHER WORDS 736 * THE OTHER WORDS
1433 * & I/0 CONTROL 1433 * & I/0 CONTROL
1434 ** 1434 **
1435 ** OBJECT START 1435 ** OBJECT START
1436 ****** 1436 ******
1437 C leas MSTACK,u 1437 C leas MSTACK,u
1438 VARPTR leax WTBLE,u 1438 VARPTR LDX <PC
1439 STX GB 1439 STX GB
1440 STX LB 1440 STX LB
1441 lda INDN 1441 lda INDN
1442 lbsr close 1442 lbsr close
1443 clra os9 stdin 1443 clra os9 stdin
1445 inca 1445 inca
1446 sta OUTDN 1446 sta OUTDN
1447 OBJMP JMP OBJECT,u 1447 OBJMP JMP OBJECT,u
1448 1448
1449 ** 1449 **
1450 * PUSH LB & SET NEW LP 1450 * PUSH LB & SET NEW LB
1451 ** 1451 **
1452 PSHLB CLRB 1452 PSHLB LDX LB
1453 ADDD LB 1453 leax a,x
1454 STD WT1
1455 LDX WT1
1456 LDD LB 1454 LDD LB
1457 STD ,X++ 1455 STD ,X++
1458 STX LB 1456 STX LB
1459 RTS 1457 RTS
1460 ** 1458 **
1511 ** 1509 **
1512 ERDIV STB OUTDN 1510 ERDIV STB OUTDN
1513 LBSR CRLF 1511 LBSR CRLF
1514 LBSR PUTSTR 1512 LBSR PUTSTR
1515 FCC "ERR DIV 0",0 1513 FCC "ERR DIV 0",0
1516 MONIT lbsr exit 1514 MONIT lbra exit
1517 ** 1515 **
1518 MULT MUL 1516 MULT MUL
1519 STA MHIGH 1517 STA MHIGH
1520 TFR B,A 1518 TFR B,A
1521 RTS 1519 RTS