Mercurial > hg > Members > kono > os9 > sbc09

comparison TL1/TL1os9.asm @ 123:69ab3f9536c0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
first TL/1 debug
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Fri, 04 Jan 2019 23:13:54 +0900
parents 4d06202716c2
children f065d9718442
comparison
equal deleted inserted replaced
122:4d06202716c2 123:69ab3f9536c0
122 STA TCOUNT 122 STA TCOUNT
123 LDA #' ' 123 LDA #' '
124 STA CH 124 STA CH
125 ** copy reserved word table 125 ** copy reserved word table
126 LEAX WTABLE,PCR 126 LEAX WTABLE,PCR
127 leay WTBLE,PCR 127 leay WTBLE,u
128 ldb #WTBLEND-WTABLE 128 ldb #WTBLEND-WTABLE
129 tbl1 lda ,x+ 129 tbl1 lda ,x+
130 sta ,y+ 130 sta ,y+
131 decb 131 decb
132 bne tbl1 132 bne tbl1
686 ** 686 **
687 WD2 CMPA #'%' 687 WD2 CMPA #'%'
688 BNE WD3 688 BNE WD3
689 BSR GETCH 689 BSR GETCH
690 CMPA #$20 690 CMPA #$20
691 BCC *--4 691 BCC *-4
692 BRA WD1 692 BRA WD1
693 ** 693 **
694 * ASCC CONST 694 * ASCC CONST
695 ** 695 **
696 WD3 CMPA #'\'' 696 WD3 CMPA #'\''
774 COM RSW 774 COM RSW
775 RTS 775 RTS
776 ** 776 **
777 * WORD TABLE SEARCH 777 * WORD TABLE SEARCH
778 ** 778 **
779 TLOOK LDA TCOUNT 779 TLOOK PSHS U
780 LDA TCOUNT
780 STA SY 781 STA SY
781 LDX TEND 782 LDX TEND
782 S01 LDU WEND 783 S01 LDU WEND
783 S02 LDA ,-U 784 S02 LDA ,-U
784 CMPA ,-X 785 CMPA ,-X
811 BCS *+3 812 BCS *+3
812 NEGB 813 NEGB
813 STB GL 814 STB GL
814 ANDA #$FD 815 ANDA #$FD
815 S07 STA SY 816 S07 STA SY
816 RTSS RTS 817 RTSS PULS U,PC
817 ** 818 **
818 * ARITHMATIC EXPRESSION 819 * ARITHMATIC EXPRESSION
819 ** 820 **
820 WEXPR LBSR WORD 821 WEXPR LBSR WORD
821 EXPR BSR LEXPR 822 EXPR BSR LEXPR
1292 LDA #$A7 1293 LDA #$A7
1293 BRA LA1 1294 BRA LA1
1294 ** 1295 **
1295 * STACK TOP CHANGE 1296 * STACK TOP CHANGE
1296 ** 1297 **
1297 STCHG LDU SP 1298 STCHG LDD 2,S
1298 LEAU 2,U 1299 LDX 4,S
1299 PULU D,X 1300 STD 4,S
1300 EXG D,X 1301 STX 2,S
1301 PSHU D,X
1302 RTS 1302 RTS
1303 ** 1303 **
1304 * PUTHSL output with address calculation 1304 * PUTHSL output with address calculation
1305 * only working on 3 byte 7E/BD (JMP/JSR) 1305 * only working on 3 byte 7E/BD (JMP/JSR)
1306 ** 1306 **
1631 stx <parmptr and updated parm pointer 1631 stx <parmptr and updated parm pointer
1632 * ldx <parmptr get param pointer 1632 * ldx <parmptr get param pointer
1633 * lda ,x get char 1633 * lda ,x get char
1634 * cmpa #C$CR end of command line? 1634 * cmpa #C$CR end of command line?
1635 * bne start branch if not 1635 * bne start branch if not
1636 lbra comp
1636 1637
1637 copytbl 1638 copytbl
1638 pshs y,x,u 1639 pshs y,x,u
1639 leau LIBR,y 1640 leau LIBR,y
1640 leax iotbl,pcr 1641 leax iotbl,pcr
1699 BRA OUTCH1 1700 BRA OUTCH1
1700 1701
1701 MEMIN 1702 MEMIN
1702 PSHS A,B,X,Y 1703 PSHS A,B,X,Y
1703 LDA INDN 1704 LDA INDN
1704 LEAX 1,S 1705 LEAX ,S
1705 LDY #1 1706 LDY #1
1706 OS9 I$Read 1707 OS9 I$Read
1707 EXG a,b
1708 BCC GETCA0 1708 BCC GETCA0
1709 lda #'/' 1709 lda #'/'
1710 sta ,s
1710 GETCA0 1711 GETCA0
1711 PULS A,B,X,Y,PC 1712 PULS A,B,X,Y,PC
1712 1713
1713 GETCA bsr getchar 1714 GETCA bsr getchar
1714 tfr b,a 1715 tfr b,a
1716 1717
1717 getchar * Input one character into B register. 1718 getchar * Input one character into B register.
1718 PSHS A,B,X,Y 1719 PSHS A,B,X,Y
1719 GETCH0 1720 GETCH0
1720 LDA INDN 1721 LDA INDN
1721 LEAX 1,S 1722 LEAX ,S
1722 LDY #1 1723 LDY #1
1723 OS9 I$Read 1724 OS9 I$Read
1724 BCS GETCH0 1725 BCS GETCH0
1725 PULS A,B,X,Y,PC 1726 PULS A,B,X,Y,PC
1726 putcr * Output a newline. 1727 putcr * Output a newline.