Mercurial > hg > Members > kono > os9 > sbc09
comparison TL1/TL1.txt @ 126:f43ca5d22920
fix dicimal print routine
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Sat, 05 Jan 2019 15:56:45 +0900 |
parents | 6ebaa9693310 |
children | 694412798333 |
comparison
equal
deleted
inserted
replaced
125:95718258025c | 126:f43ca5d22920 |
---|---|
298 3970 STB GLL | 298 3970 STB GLL |
299 3980 TSTA | 299 3980 TSTA |
300 3990 BNE AS4 | 300 3990 BNE AS4 |
301 4000 LBSR PUTX | 301 4000 LBSR PUTX |
302 4010 LDA #$A7 | 302 4010 LDA #$A7 |
303 4020 LDS OPER | 303 4020 LDB OPER |
304 4030 LBRA PUTAB | 304 4030 LBRA PUTAB |
305 4040 AS4 DECA | 305 4040 AS4 DECA |
306 4050 BNE AS5 | 306 4050 BNE AS5 |
307 4060 LBSR PUTX | 307 4060 LBSR PUTX |
308 4070 LDA #$33 | 308 4070 LDA #$33 |
398 4970 LBSR CHECK | 398 4970 LBSR CHECK |
399 4980 LBSR PUTHS | 399 4980 LBSR PUTHS |
400 4990 FCB 2 | 400 4990 FCB 2 |
401 5000 FDB $2603 | 401 5000 FDB $2603 |
402 5010 BSR SLAOUT | 402 5010 BSR SLAOUT |
403 5020 LDS INDEX | 403 5020 LDB INDEX |
404 5030 PSHS B | 404 5030 PSHS B |
405 5040 LBSR STAT | 405 5040 LBSR STAT |
406 5050 PULS B | 406 5050 PULS B |
407 5060 STB INDEX | 407 5060 STB INDEX |
408 5070 BSR PEROUT | 408 5070 BSR PEROUT |
917 10160 STA GLL | 917 10160 STA GLL |
918 10170 PULS A | 918 10170 PULS A |
919 10180 STA AMODE | 919 10180 STA AMODE |
920 10190 COM LSW | 920 10190 COM LSW |
921 10200 LBRA WORD | 921 10200 LBRA WORD |
922 10210 * CONSTfTRUE & FALSE | 922 10210 * CONST TRUE & FALSE |
923 10220 TM1 | 923 10220 TM1 CMPA #$A0 |
924 10230 BEQ TM01 | 924 10230 BEQ TM01 |
925 10240 CMPA #$A1 | 925 10240 CMPA #$A1 |
926 10250 BNE TM2 | 926 10250 BNE TM2 |
927 10260 TM01 SUBA #$A1 | 927 10260 TM01 SUBA #$A1 |
928 10270 STA VAL | 928 10270 STA VAL |
929 10280 CLRA | 929 10280 CLRA |