Mercurial > hg > Members > kono > os9 > sbc09

comparison os9/level2/sysgo.asm @ 53:fe88cea67ef0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
clock interrupt get time
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Sun, 22 Jul 2018 17:55:06 +0900
parents 51b437557f42
children
comparison
equal deleted inserted replaced
52:51b437557f42 53:fe88cea67ef0
112 mdirprm fcc "-e" 112 mdirprm fcc "-e"
113 fcb C$CR 113 fcb C$CR
114 114
115 * Default time packet 115 * Default time packet
116 DefTime 116 DefTime
117 fcb 0
118 fcb 0
119 fcb 0
120 fcb 0
121 fcb 0
122 fcb 0
123 fcb 0
124 fcb 0
117 * dtb 125 * dtb
118 126
119 IFEQ atari+corsham 127 IFEQ atari+corsham
120 IFEQ Level-1 128 IFEQ Level-1
121 * BASIC reset code (CoCo port only) 129 * BASIC reset code (CoCo port only)
188 ldy #BannLen 196 ldy #BannLen
189 lda #$01 standard output 197 lda #$01 standard output
190 os9 I$Write write out banner 198 os9 I$Write write out banner
191 199
192 * Set default time 200 * Set default time
193 * leax >DefTime,pcr 201 leax >DefTime,pcr
194 * os9 F$STime set time to default 202 os9 F$STime set time to default
195 203
196 IFEQ ROM 204 IFEQ ROM
197 * Change EXEC and DATA dirs 205 * Change EXEC and DATA dirs
198 leax >ExecDir,pcr 206 leax >ExecDir,pcr
199 lda #EXEC. 207 lda #EXEC.
201 leax >DefDev,pcr 209 leax >DefDev,pcr
202 * Made READ. so that no write occurs at boot (Boisy on Feb 5, 2012) 210 * Made READ. so that no write occurs at boot (Boisy on Feb 5, 2012)
203 lda #READ. 211 lda #READ.
204 os9 I$ChgDir change data dir. 212 os9 I$ChgDir change data dir.
205 bcs L0125 213 bcs L0125
206 leax >HDDev,pcr 214 * leax >HDDev,pcr
207 lda #EXEC. 215 * lda #EXEC.
208 os9 I$ChgDir change exec. dir to HD 216 * os9 I$ChgDir change exec. dir to HD
209 ENDC 217 ENDC
210 218
211 L0125 equ * 219 L0125 equ *
212 pshs u,y 220 pshs u,y
213 IFEQ atari+corsham 221 IFEQ atari+corsham