Mercurial > hg > Members > kono > nitros9-code

comparison level1/cmds/cobbler.asm @ 1303:0006715970b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Optimized, now uses Bt.Track symbolic
author boisy
date Mon, 01 Sep 2003 21:00:11 +0000
parents 636cabe76c6e
children 0c3d94b71b37
comparison
equal deleted inserted replaced
1302:bbe8a442f9a6 1303:0006715970b5
105 L013C sta ,y+ 105 L013C sta ,y+
106 lda ,x+ 106 lda ,x+
107 decb 107 decb
108 bpl L013C 108 bpl L013C
109 sty <u001E 109 sty <u001E
110 lda #PENTIR 110 ldd #PENTIR*256+C$SPAC
111 ldb #C$SPAC
112 std ,y++ 111 std ,y++
113 leax <fullbnam,u 112 leax <fullbnam,u
114 lda #UPDAT. 113 lda #UPDAT.
115 os9 I$Open 114 os9 I$Open
116 sta <devpath 115 sta <devpath
223 lbcs Bye 222 lbcs Bye
224 223
225 ENDC 224 ENDC
226 225
227 leax <pathopts,u 226 leax <pathopts,u
228 ldb #SS.Opt 227 clrb
228 * ldb #SS.Opt
229 lda <newbpath 229 lda <newbpath
230 os9 I$GetStt 230 os9 I$GetStt
231 lbcs Bye 231 lbcs Bye
232 lda <newbpath 232 lda <newbpath
233 os9 I$Close 233 os9 I$Close
252 ldb >bffdbuf+(FD.SEG),u 252 ldb >bffdbuf+(FD.SEG),u
253 stb <DD.BT 253 stb <DD.BT
254 ldd >bffdbuf+(FD.SEG+1),u 254 ldd >bffdbuf+(FD.SEG+1),u
255 std <DD.BT+1 255 std <DD.BT+1
256 lbsr WriteLSN0 256 lbsr WriteLSN0
257 lda #$00 257 ldd #$0001
258 ldb #$01
259 lbsr Seek2LSN 258 lbsr Seek2LSN
260 leax >bitmbuf,u 259 leax >bitmbuf,u
261 ldy <DD.MAP 260 ldy <DD.MAP
262 lda <devpath 261 lda <devpath
263 os9 I$Read read bitmap sector(s) 262 os9 I$Read read bitmap sector(s)
264 lbcs Bye 263 lbcs Bye
265 lda #$22 264 ldd #Bt.Track*256+$00
266 clrb
267 ldy #$0004 265 ldy #$0004
268 lbsr L03A7 266 lbsr L03A7
269 bcc L0304 267 bcc L0304
270 lda #$22 268 ldd #Bt.Track*256+$00
271 ldb #$00
272 lbsr Seek2LSN 269 lbsr Seek2LSN
273 leax <u0044,u 270 leax <u0044,u
274 ldy #$0007 271 ldy #$0007
275 lda <devpath 272 lda <devpath
276 os9 I$Read 273 os9 I$Read
282 cmpb #'S 279 cmpb #'S
283 lbne TrkAlloc 280 lbne TrkAlloc
284 lda $04,x 281 lda $04,x
285 cmpa #$12 282 cmpa #$12
286 beq L02F7 283 beq L02F7
287 lda #$22 284 ldd #Bt.Track*256+$0F
288 ldb #$0F
289 ldy #$0003 285 ldy #$0003
290 lbsr L03A7 286 lbsr L03A7
291 lbcs TrkAlloc 287 lbcs TrkAlloc
292 L02F7 clra 288 L02F7 clra
293 ldb <DD.TKS 289 ldb <DD.TKS
294 tfr d,y 290 tfr d,y
295 lda #$22 291 ldd #Bt.Track*256+$00
296 clrb
297 lbsr L03FD 292 lbsr L03FD
298 bra L0315 293 bra L0315
299 L0304 lda #$22 294 L0304 ldd #Bt.Track*256+$04
300 ldb #$04
301 ldy #$000E 295 ldy #$000E
302 lbsr L03A7 296 lbsr L03A7
303 lbcs TrkAlloc 297 lbcs TrkAlloc
304 bra L02F7 298 bra L02F7
305 299
306 L0315 clra 300 L0315 ldd #$0001
307 ldb #$01
308 lbsr Seek2LSN Seek to bitmap sector on disk 301 lbsr Seek2LSN Seek to bitmap sector on disk
309 leax >bitmbuf,u 302 leax >bitmbuf,u
310 ldy <DD.MAP 303 ldy <DD.MAP
311 lda <devpath 304 lda <devpath
312 os9 I$Write write updated bitmap 305 os9 I$Write write updated bitmap
328 ora #$1E 321 ora #$1E
329 ldb #$FF 322 ldb #$FF
330 subd <u004B,u 323 subd <u004B,u
331 addd #$0001 324 addd #$0001
332 tfr d,y 325 tfr d,y
333 lda #$22 326 lda #Bt.Track*256+$00
334 ldb #$00
335 lbsr Seek2LSN 327 lbsr Seek2LSN
336 lda <devpath 328 lda <devpath
337 ldx <u004B,u 329 ldx <u004B,u
338 330
339 ELSE 331 ELSE
340 332
341 * OS-9 Level One: Write out data at $EF00 333 * OS-9 Level One: Write out data at $EF00
342 lda #$22 334 ldd #Bt.Track*256+$00
343 ldb #$00
344 lbsr Seek2LSN 335 lbsr Seek2LSN
345 lda <devpath 336 lda <devpath
346 ldx #Bt.Start 337 ldx #Bt.Start
347 ldy #Bt.Size 338 ldy #Bt.Size
348 339