Mercurial > hg > Members > kono > nitros9-code

comparison level1/cmds/backup.asm @ 2177:342db2db851a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Removed more Close Open code. Now Copy and Verification loops indeed start at LSN1, not LSN0.
author robertgault
date Sat, 15 Nov 2008 16:27:56 +0000
parents a33c34f7f897
children ab8593f90f03
comparison
equal deleted inserted replaced
2176:a33c34f7f897 2177:342db2db851a
30 use defsfile 30 use defsfile
31 endc 31 endc
32 32
33 DOHELP set 1 33 DOHELP set 1
34 * Default 0 means do not save destination disk ID. 1 means save it. RG 34 * Default 0 means do not save destination disk ID. 1 means save it. RG
35 SAVEID set 0 35 SAVEID set 1
36 36
37 tylg set Prgrm+Objct 37 tylg set Prgrm+Objct
38 atrv set ReEnt+rev 38 atrv set ReEnt+rev
39 rev set $00 39 rev set $00
40 edition set 10 40 edition set 10
358 tst <dontvfy 358 tst <dontvfy
359 bne exit 359 bne exit
360 * Verification code 360 * Verification code
361 leay >vfypass,pcr 361 leay >vfypass,pcr
362 lbsr L0456 362 lbsr L0456
363 lda <srcpath
364 os9 I$Close close source path
365 bcs L03AF
366 lda <dstpath 363 lda <dstpath
367 os9 I$Close close destination path
368 bcs L03AF
369 leax <dstdev,u
370 lda #READ.
371 os9 I$Open open source path in READ mode
372 bcs L03AF
373 sta <srcpath save newly acquired path number 364 sta <srcpath save newly acquired path number
365 pshs u
366 ldx #$0000
367 leau 1,x
368 os9 I$Seek seek to LSN0
369 puls u
374 clr <curlsn 370 clr <curlsn
375 clr <curlsn+1 371 clr <curlsn+1
376 clr <curlsn+2 372 clr <curlsn+2
377 clr <srcerr 373 clr <srcerr
378 L0396 lda <numpages 374 L0396 lda <numpages