Mercurial > hg > Members > kono > os9 > sbc09

comparison os9/level2/cmds/sbc09.asm @ 97:5aeff8abca9c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
add echo control on sbc09
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Thu, 27 Dec 2018 01:17:31 +0900
parents f20bf9874697
children ba0af2b8836b
comparison
equal deleted inserted replaced
96:6ff8754c9749 97:5aeff8abca9c
86 cmpx 2,s 86 cmpx 2,s
87 ble l1 87 ble l1
88 puls x,y 88 puls x,y
89 jmp $400 89 jmp $400
90 90
91 Exit clrb 91 Exit lbsr setecho
92 clrb
92 os9 F$Exit 93 os9 F$Exit
93 94
94 iotbl 95 iotbl
95 fdb getchar-iotbl ; 0 96 fdb getchar-iotbl ; 0
96 fdb putchar-iotbl ; 3 97 fdb putchar-iotbl ; 3
100 fdb getpoll-iotbl ; $F 101 fdb getpoll-iotbl ; $F
101 fdb xopenin-iotbl ; $12 102 fdb xopenin-iotbl ; $12
102 fdb xopenout-iotbl ; $15 103 fdb xopenout-iotbl ; $15
103 fdb xabortin-iotbl ; $18 104 fdb xabortin-iotbl ; $18
104 fdb xclosein-iotbl ; $1B 105 fdb xclosein-iotbl ; $1B
105 fdb xcloseout-iotbl ; $21 106 fdb xcloseout-iotbl ; $1E
106 fdb delay-iotbl ; $24 107 fdb delay-iotbl ; $21
107 fdb noecho-iotbl ; $27 108 fdb noecho-iotbl ; $24
109 fdb setecho-iotbl ; $27
110 fdb exit-iotbl ; $2a
108 iotblend 111 iotblend
109 112
110 L0049 113 L0049
111 err ldb #1 114 err ldb #1
112 bra Exit 115 bra Exit
236 xabortin 239 xabortin
237 xclosein 240 xclosein
238 xcloseout 241 xcloseout
239 RTS 242 RTS
240 243
241 noecho LDA <stdin 244 setecho lda #1
242 CLRB 245 bra sss
246 noecho clra
247 sss pshs a
248 sta ,s
249 LDA <stdin
250 ldb #SS.Opt
243 LDX <work 251 LDX <work
244 leax readbuff,X 252 leax readbuff,X
245 OS9 I$GetStt 253 OS9 I$GetStt
246 bcs err2 254 bcs err2
247 CLR IT.EKO,X 255 LDA ,s
248 CLRB 256 STA PD.EKO-PD.OPT,X
257 setopts
258 ldb #SS.Opt
259 lda <stdin
249 OS9 I$SetStt 260 OS9 I$SetStt
250 err2 261 err2
251 RTS 262 puls a,pc
263
252 264
253 delay PSHS D,X * address **$21** 265 delay PSHS D,X * address **$21**
254 * On input the D register contains the number of timer 266 * On input the D register contains the number of timer
255 * ticks to wait. Each timer tick is 20ms 267 * ticks to wait. Each timer tick is 20ms
256 TFR D,X 268 TFR D,X
257 OS9 F$Sleep 269 OS9 F$Sleep
258 PULS D,X,PC 270 PULS D,X,PC
259 271
272 exit bsr setecho
273 clrb
274 os9 F$Exit
260 275
261 276
262 emod 277 emod
263 eom equ * 278 eom equ *
264 end 279 end