Mercurial > hg > Members > kono > os9 > sbc09

comparison TL1/TL1os9.asm @ 165:5aefcd52aba8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix asm error
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Wed, 10 Apr 2019 10:08:44 +0900
parents c90b9be8c307
children a813c5ae58d5
comparison
equal deleted inserted replaced
164:c90b9be8c307 165:5aefcd52aba8
29 DREG RMB 1 29 DREG RMB 1
30 DBUF RMB 3 30 DBUF RMB 3
31 XR RMB 2 31 XR RMB 2
32 YR RMB 2 32 YR RMB 2
33 ZR RMB 2 33 ZR RMB 2
34 arg equ .
34 PFTBEG RMB 2 prog/func table 35 PFTBEG RMB 2 prog/func table
35 PC RMB 2 36 PC RMB 2
36 SREG RMB 2 37 SREG RMB 2
37 SP RMB 2 38 SP RMB 2
38 PFMAX RMB 2 39 PFMAX RMB 2
105 lda ,x 106 lda ,x
106 cmpa '-' 107 cmpa '-'
107 bne run 108 bne run
108 leax 1,x 109 leax 1,x
109 lda ,x+ 110 lda ,x+
110 cmp 'c' 111 cmpa #'c'
111 bne run 112 bne run
112 lbsr modsetup 113 lbsr modsetup
113 bra fread 114 bra fread
114 run ldy #-2 17 xx xx 115 run ldy #-2 17 xx xx
115 sty modofs 116 sty modofs
1428 std ,y++ 1429 std ,y++
1429 ldd #$0c0a 1430 ldd #$0c0a
1430 std ,y++ 1431 std ,y++
1431 ldd #$000d 1432 ldd #$000d
1432 ldy <pc 1433 ldy <pc
1433 leay 0xd,y 1434 leay $d,y
1434 ldx ,s 1435 ldx ,s
1435 bsr mkmodnam 1436 bsr mkmodnam
1436 sty <runtop 1437 tfr y,d
1438 subd #LIBEND+2
1439 std modofs
1437 leau crt0top,pc 1440 leau crt0top,pc
1438 ldx #LIBEND-crt0top 1441 ldx #LIBEND-crt0top
1439 libcpy ldd ,u++ 1442 libcpy ldd ,u++
1440 std ,y++ 1443 std ,y++
1441 leax -2,x 1444 leax -2,x
1442 bhi libcpy 1445 bhi libcpy
1443 sty <PC 1446 sty <PC
1444 ldd <runtop
1445 subd #LIBEND+2
1446 std modofs
1447 puls x,y,u,pc 1447 puls x,y,u,pc
1448 1448
1449 mkmodnam pshs x,y.u 1449 mkmodnam pshs x,y,u
1450 tfr x,u
1451 tst ,x
1452 lbeq ERROR * no file name
1450 m0 lda ,x+ 1453 m0 lda ,x+
1451 bne m2 1454 bne m3
1452 cmpa '/' 1455 cmpa '/'
1453 bne m0 1456 bne m0
1454 tfr x,u 1457 tfr x,u
1455 bra m0 1458 bra m0
1456 m1 lda ,u+ 1459 m1 lda ,u+
1502 leax OBJECT,u 1505 leax OBJECT,u
1503 ldd 4,x 1506 ldd 4,x
1504 leax d,x 1507 leax d,x
1505 lda 2 write 1508 lda 2 write
1506 os9 I$Open 1509 os9 I$Open
1507 bcs ERROR 1510 lbcs ERROR
1508 sta ,s 1511 sta ,s
1509 ldu 2,s 1512 ldu 2,s
1510 leax OBJECT,u 1513 leax OBJECT,u
1511 ldd <PC 1514 ldd <PC
1512 addd #3 1515 addd #3
1513 pshs x 1516 pshs x
1514 subd ,s++ 1517 subd ,s++
1515 lda ,s 1518 lda ,s
1516 os9 I$Write 1519 os9 I$Write
1517 bcs ERROR 1520 lbcs ERROR
1518 clra 1521 clra
1519 os9 F$Exit all end 1522 os9 F$Exit all end
1520 1523
1521 1524
1522 ********************** 1525 **********************
1953 * ticks to wait. Each timer tick is 20ms 1956 * ticks to wait. Each timer tick is 20ms
1954 TFR D,X 1957 TFR D,X
1955 OS9 F$Sleep 1958 OS9 F$Sleep
1956 PULS D,X,PC 1959 PULS D,X,PC
1957 1960
1958 crt0 stx <args 1961 crt0 stx <arg
1959 leax OBJSTART,u 1962 leax OBJSTART,u
1960 * compiled code follows 1963 * compiled code follows
1961 1964
1962 LIBEND 1965 LIBEND
1963 1966