Mercurial > hg > Members > kono > os9 > sbc09

comparison src/os9/level2/cmds/sbc09.asm @ 87:60e629904ad6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
forth worked
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 20 Aug 2018 10:44:21 +0900
parents 4967d1acd34a
children 1de7b2760b9d
comparison
equal deleted inserted replaced
86:4967d1acd34a 87:60e629904ad6
64 * lda ,x get char 64 * lda ,x get char
65 * cmpa #C$CR end of command line? 65 * cmpa #C$CR end of command line?
66 * bne start branch if not 66 * bne start branch if not
67 67
68 copytbl 68 copytbl
69 lda #$17 lbra
70 sta $e400
71 leax Exit,pcr
72 leax -$e403,x
73 stx $e401
69 leax iotbl,pcr 74 leax iotbl,pcr
70 leay iotblend,pcr 75 leay iotblend,pcr
71 pshs x,y 76 pshs x,y
72 ldy #(iotblend-iotbl) 77 ldy #(iotblend-iotbl)
73 l1 ldb #$7e * JMP 78 l1 ldb #$7e * JMP
206 CLRA 211 CLRA
207 TFR D,Y 212 TFR D,Y
208 LDA <stdin 213 LDA <stdin
209 OS9 I$ReadLn 214 OS9 I$ReadLn
210 BCS GETLN0 215 BCS GETLN0
211 * TFR Y,D 216 LEAY -1,Y
217 TFR Y,D
212 * LDA D,X 218 * LDA D,X
213 * CMPA #C$CR 219 * CMPA #C$CR
214 * BNE GETLN1 220 * BNE GETLN1
215 * LEAY -1,Y 221 * LEAY -1,Y
216 GETLN1 STY ,S 222 GETLN1 STY ,S
233 * On input the D register contains the number of timer 239 * On input the D register contains the number of timer
234 * ticks to wait. Each timer tick is 20ms 240 * ticks to wait. Each timer tick is 20ms
235 TFR D,X 241 TFR D,X
236 OS9 F$Sleep 242 OS9 F$Sleep
237 PULS D,X,PC 243 PULS D,X,PC
238 org $400
239 lbra Exit
240
241 244
242 245
243 246
244 emod 247 emod
245 eom equ * 248 eom equ *