# HG changeset patch
# User boisy
# Date 1042751893 0
# Node ID ad7443c6b53d7f78d0fa5954127c8fe27554de4e
# Parent  62049cad9bf468ddb75c1a3728e1e53f7fb4f93f
Fixed problem where dir wasn't being forked

diff -r 62049cad9bf4 -r ad7443c6b53d level1/cmds/deldir.asm
--- a/level1/cmds/deldir.asm	Thu Jan 16 20:33:00 2003 +0000
+++ b/level1/cmds/deldir.asm	Thu Jan 16 21:18:13 2003 +0000
@@ -156,10 +156,11 @@
 DIR      fcc   "DIR"
          fcb   C$CR
 DIROPTS  fcc   "-E "
+DIROPTL  equ   *-DIROPTS
 L0145    pshs  u
          leau  <buffer,u
          pshs  u
-         ldb   #$02
+         ldb   #DIROPTL
          leax  <DIROPTS,pcr
          lbsr  L0270
          ldx   <parmptr
@@ -274,6 +275,7 @@
          fcb   C$CR
 ATTROPTS fcc   " -d"
          fcb   C$CR
+ATTROPTL equ   *-ATTROPTS
 L0242    pshs  u
          leau  <buffer,u
          pshs  u
@@ -282,7 +284,7 @@
          ldx   <parmptr
          bsr   L0270
          leax  <ATTROPTS,pcr
-         ldb   #$04
+         ldb   #ATTROPTL
          bsr   L0270
          tfr   u,d
          subd  ,s