Mercurial > hg > Members > kono > os9 > sbc09

comparison TL1/TL1os9.asm @ 167:3f8bbec566b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
x
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Wed, 10 Apr 2019 22:48:30 +0900
parents a813c5ae58d5
children 2937e970aac6
comparison
equal deleted inserted replaced
166:a813c5ae58d5 167:3f8bbec566b3
87 name fcs /TL1/ 87 name fcs /TL1/
88 fcb edition 88 fcb edition
89 89
90 ** OBJECT START 90 ** OBJECT START
91 ****** 91 ******
92 C leas OBJECT,u 92 C tst <runmod
93 VARPTR lda INDN 93 beq c2
94 lbsr close 94 lbra modend
95 c2 leas OBJECT,u
96 VARPTR lda INDN
97 lbsr close
95 clra os9 stdin 98 clra os9 stdin
96 sta INDN 99 sta INDN
97 inca 100 inca
98 sta OUTDN 101 sta OUTDN
99 LDX <PC 102 LDX <PC
100 leay ,x 103 leay ,x
101 OBJMP JMP OBJECT,u 104 OBJMP JMP OBJECT,u
102 105
103 106
104 start LEAY OBJECT,u 107 start LEAY OBJECT,u
105 STY PC 108 STY PC
106 lda ,x 109 lda ,x
1426 ldy <pc 1429 ldy <pc
1427 ldd #$87CD 1430 ldd #$87CD
1428 std ,y++ 1431 std ,y++
1429 ldd #$0c0a 1432 ldd #$0c0a
1430 std ,y++ 1433 std ,y++
1431 ldd #$000d 1434 leay 9,y
1432 ldy <pc
1433 leay $d,y
1434 ldx ,s 1435 ldx ,s
1435 bsr mkmodnam 1436 bsr mkmodnam
1436 tfr y,d 1437 tfr y,d
1437 subd #LIBEND+2 1438 subd #LIBEND+2
1438 std modofs 1439 std modofs
1444 bhi libcpy 1445 bhi libcpy
1445 sty <PC 1446 sty <PC
1446 puls x,y,u,pc 1447 puls x,y,u,pc
1447 1448
1448 mkmodnam pshs x,y,u 1449 mkmodnam pshs x,y,u
1449 tfr x,u 1450 m4 tfr x,u
1450 tst ,x 1451 tst ,x
1451 lbeq ERROR * no file name 1452 lbeq ERROR * no file name
1453 cmpa #' '
1454 bne m0
1455 leax 1,x
1456 bra m4
1452 m0 lda ,x+ 1457 m0 lda ,x+
1453 bne m3 1458 cmpa #' '
1459 ble m1
1454 cmpa #'/' 1460 cmpa #'/'
1461 bne m0
1462 cmpa #':'
1455 bne m0 1463 bne m0
1456 tfr x,u 1464 tfr x,u
1457 bra m0 1465 bra m0
1458 m1 lda ,u+ 1466 m1 lda ,u+
1459 beq m3 1467 cmpa #' '
1468 ble m3
1460 cmpa #'.' 1469 cmpa #'.'
1461 beq m3 1470 beq m3
1462 sta ,y+ 1471 sta ,y+
1463 bra m1 1472 bra m1
1464 m3 lda -1,y 1473 m3 lda -1,y