Mercurial > hg > Members > kono > os9 > sbc09

comparison TL1/TL1os9.asm @ 126:f43ca5d22920

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix dicimal print routine
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Sat, 05 Jan 2019 15:56:45 +0900
parents 95718258025c
children 321b7fffadab
comparison
equal deleted inserted replaced
125:95718258025c 126:f43ca5d22920
53 AMODE RMB 1 53 AMODE RMB 1
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 **
59 * LIBRARY ADDRESSS TABLE
60 **
61 LIBR equ .
58 ioentry rmb $80 62 ioentry rmb $80
59 filepath rmb 2 63 filepath rmb 2
60 parmptr rmb 2 64 parmptr rmb 2
61 stdin rmb 1 65 stdin rmb 1
62 chksum rmb 1
63 bcount rmb 1
64 adr rmb 2 66 adr rmb 2
65 work rmb 2 67 work rmb 2
66 readbuff rmb $100 68 readbuff rmb $100
67 69
68 OBJSTART RMB 2 70 OBJSTART RMB 2
69 71
70 **
71 * LIBRARY ADDRESSS TABLE
72 **
73 LIBR RMB 80
74 72
75 * OBJECT PG AREA 73 * OBJECT PG AREA
76 74
77 WTBLE RMB $500+$100 75 WTBLE RMB $500+$100
78 MSTACK RMB $100 76 MSTACK RMB $140
79 77
80 OBJECT RMB 2048 * NOP 78 OBJECT RMB 2048 * NOP
81 RUB equ 8 79 RUB equ 8
82 80
83 size equ . 81 size equ .
84 82
85 name fcs /TL1/ 83 name fcs /TL1/
86 fcb edition 84 fcb edition
87
88 ******
89 * SUPORTING ROUTINES
90 * & I/0 CONTROL
91 **
92 ** OBJECT START
93 C leas MSTACK,u
94 VARPTR LDX #0
95 STX GB
96 STX LB
97 clra
98 lbra close
99 sta INDN
100 inca
101 sta OUTDN
102 OBJMP JMP OBJECT,u
103 85
104 ** 86 **
105 COMP CLRA 87 COMP CLRA
106 STA OUTDN 88 STA OUTDN
107 STA LSW 89 STA LSW
562 LBSR WORD 544 LBSR WORD
563 CMPA #$37 545 CMPA #$37
564 BEQ WR2 546 BEQ WR2
565 LBSR PUTHSL 547 LBSR PUTHSL
566 FDB $03BD 548 FDB $03BD
567 FDB CRLFA 549 FDB CRLF
568 RTS 550 RTS
569 ** 551 **
570 WR2 LBSR WEXPR 552 WR2 LBSR WEXPR
571 BSR WTEN 553 BSR WTEN
572 LBSR PUTHSL 554 LBSR PUTHSL
972 PULS A 954 PULS A
973 STA AMODE 955 STA AMODE
974 COM LSW 956 COM LSW
975 LBRA WORD 957 LBRA WORD
976 * CONST TRUE & FALSE 958 * CONST TRUE & FALSE
977 TM1 * ??? 959 TM1 CMPA #$A0
978 CMPA #$A0 ???
979 BEQ TM01 960 BEQ TM01
980 CMPA #$A1 961 CMPA #$A1
981 BNE TM2 962 BNE TM2
982 TM01 SUBA #$A1 963 TM01 SUBA #$A1
983 STA VAL 964 STA VAL
984 CLRA 965 CLRA
985 BRA SLOAD 966 BRA SLOAD
986 * SYSTEM VAR MHIGH & MOD 967 * SYSTEM VAR MHIGH & MOD
987 TM2 CMPA #$16 968 TM2 CMPA #$16
988 BRA *+6 969 BEQ *+6
989 CMPA #$17 970 CMPA #$17
990 BNE TM3 971 BNE TM3
991 STA VAL 972 STA VAL
992 LDA #$10 973 LDA #$10
993 BRA SLOAD 974 BRA SLOAD
1341 LBSR PUTCA 1322 LBSR PUTCA
1342 PULS A 1323 PULS A
1343 LDX ZR 1324 LDX ZR
1344 BRA EL2 1325 BRA EL2
1345 EL LDX PC 1326 EL LDX PC
1346 STX VARPTR+1,PCR 1327 LBRA C
1347 LBRA exit
1348 1328
1349 ********************** 1329 **********************
1350 * ADVANCE WORD 1330 * ADVANCE WORD
1351 ** 1331 **
1352 WTABLE FCB 0 END MARK 1332 WTABLE FCB 0 END MARK
1400 FCC "RITE" 1380 FCC "RITE"
1401 FCB $69,-'A' 1381 FCB $69,-'A'
1402 FCC "SCII" 1382 FCC "SCII"
1403 FCB $6A,-'S' 1383 FCB $6A,-'S'
1404 FCC "PACE" 1384 FCC "PACE"
1405 FCB $68,-'C' 1385 FCB $6B,-'C'
1406 FCC "RLF" 1386 FCC "RLF"
1407 FCB $6C,-'"' 1387 FCB $6C,-'"'
1408 FCB $8B,-'+' 1388 FCB $8B,-'+'
1409 FCB $80,-'-' 1389 FCB $80,-'-'
1410 FCB $8E,-'*' 1390 FCB $8E,-'*'
1445 FCB $70,-'R','N','D' 1425 FCB $70,-'R','N','D'
1446 FCB $71,-'G','E','T' 1426 FCB $71,-'G','E','T'
1447 FCB $72,-'R' 1427 FCB $72,-'R'
1448 FCC "EAD" 1428 FCC "EAD"
1449 WTBLEND 1429 WTBLEND
1430
1450 ****** 1431 ******
1432 * SUPORTING ROUTINES
1433 * & I/0 CONTROL
1434 **
1435 ** OBJECT START
1436 ******
1437 C leas MSTACK,u
1438 VARPTR leax WTBLE,u
1439 STX GB
1440 STX LB
1441 lda INDN
1442 lbsr close
1443 clra os9 stdin
1444 sta INDN
1445 inca
1446 sta OUTDN
1447 OBJMP JMP OBJECT,u
1448
1451 ** 1449 **
1452 * PUSH LB & SET NEW LP 1450 * PUSH LB & SET NEW LP
1453 ** 1451 **
1454 PSHLB CLRB 1452 PSHLB CLRB
1455 ADDD LB 1453 ADDD LB
1524 ** 1522 **
1525 * PUT A IN DECIMAL 1523 * PUT A IN DECIMAL
1526 ** 1524 **
1527 PUTDA CLRB 1525 PUTDA CLRB
1528 PUTDR STB DREG 1526 PUTDR STB DREG
1529 LEAX ,S 1527 LEAX -2,S
1530 LEAS -4,S 1528 LEAS -6,S
1531 CLR 1,X 1529 CLR 1,X
1532 LDB #3 1530 LDB #3
1533 P0 PSHS B 1531 P0 PSHS B
1534 LDB #10 1532 LDB #10
1535 BSR DIV 1533 BSR DIV
1550 LDA DREG 1548 LDA DREG
1551 PSHS B 1549 PSHS B
1552 SUBA ,S+ 1550 SUBA ,S+
1553 BCS PRX 1551 BCS PRX
1554 BSR SPACEA 1552 BSR SPACEA
1555 PRX LDB ,X 1553 PRX LDA ,X
1556 BEQ P4 1554 BEQ P4
1557 LBSR PUTCA 1555 LBSR PUTCA
1558 LEAX 1,X 1556 LEAX 1,X
1559 BRA PRX 1557 BRA PRX
1560 P4 LEAS 4,S 1558 P4 LEAS 6,S
1561 CL1 RTS 1559 CL1 RTS
1562 ** 1560 **
1563 * GET IN A DECIMAL 1561 * GET IN A DECIMAL
1564 ** 1562 **
1565 GETDA CLRA 1563 GETDA CLRA