Mercurial > hg > Members > kono > nitros9-code

changeset 226:1659ca4836e7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Slight source improvements
author boisy
date Tue, 16 Jul 2002 02:04:08 +0000
parents 24637ab6e2b8
children c9803b86c85a
files level1/cmds/attr.asm
diffstat 1 files changed, 5 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/level1/cmds/attr.asm	Tue Jul 16 02:03:51 2002 +0000
+++ b/level1/cmds/attr.asm	Tue Jul 16 02:04:08 2002 +0000
@@ -96,7 +96,7 @@
          bcs   L0106      branch if not
          cmpa  #PDELIM    path delimiter?
          bne   L00FA      branch if not
-L0106    lda   #'@
+L0106    lda   #PENTIR
          ldb   #C$SPAC
          std   ,y++
          leax  <filename,u point X to filename
@@ -129,7 +129,7 @@
          bcc   L0152
          clrb  
          lda   ,x
-         cmpa  #$0D
+         cmpa  #C$CR
          bne   L01AC
          pshs  u
          ldx   <u001C,u
@@ -181,12 +181,12 @@
 L01CF    pshs  u,y,x
          lda   <fpath
          ldx   #$0000
-         ldu   #$0040
+         ldu   #DIR.SZ*2
          os9   I$Seek
          ldu   $04,s
          bcs   L01BE
 L01E0    leax  <u0028,u
-         ldy   #$0020
+         ldy   #DIR.SZ
          os9   I$Read
          bcs   L01F7
          tst   ,x
@@ -195,7 +195,7 @@
          clrb  
          bra   L01B0
 L01F7    puls  u,y,x
-         cmpb  #$D3
+         cmpb  #E$EOF
          bne   L01AC
          rts   
 L01FE    fdb   $ff41