Mercurial > hg > Members > kono > os9 > sbc09

comparison TL1/TL1os9.asm @ 143:3abfb68fb043

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
...
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Thu, 10 Jan 2019 23:56:08 +0900
parents 7368ad797016
children 1112b0549142
comparison
equal deleted inserted replaced
142:7368ad797016 143:3abfb68fb043
145 LDA VAL 145 LDA VAL
146 LBSR DEFPF 146 LBSR DEFPF
147 LBSR PUTHS 147 LBSR PUTHS
148 FCB $04 148 FCB $04
149 FDB $AFE3 stx ,--s 149 FDB $AFE3 stx ,--s
150 FDB $3088 leax n,x 150 FDB $3086 leax a,x
151 LDX <PC
152 STX <LSZADR here to write MXLSZ
153 LDA LSIZE
154 STA MXLSZ
155 LBSR PUTA
156 BSR REG0 151 BSR REG0
157 CLR LSIZE 152 CLR LSIZE
158 LBSR WORD 153 LBSR WORD
159 CMPA #$37 ( 154 CMPA #$37 (
160 BNE PL1 155 BNE PL1
1020 BNE PFC1 1015 BNE PFC1
1021 LDA LSIZE 1016 LDA LSIZE
1022 PSHS A 1017 PSHS A
1023 INC LSIZE 1018 INC LSIZE
1024 PFC2 INC LSIZE 1019 PFC2 INC LSIZE
1025 LDA MXLSZ 1020 LBSR WEXPR
1026 CMPA LSIZE
1027 BHI PFC5
1028 STA MXLSZ
1029 PFC5 LBSR WEXPR
1030 CLRB 1021 CLRB
1031 STB ACC 1022 STB ACC
1032 DECB 1023 DECB
1033 STB GLL 1024 STB GLL
1034 * LDA #$A7 1025 LDA #$A7
1035 * LDB LSIZE 1026 LDB LSIZE
1036 * LBSR PUTABX 1027 LBSR PUTABX
1037 LDA SY 1028 LDA SY
1038 CMPA #$3C 1029 CMPA #$3C
1039 BEQ PFC2 1030 BEQ PFC2
1040 PULS A 1031 PULS A
1041 STA LSIZE 1032 STA LSIZE