# HG changeset patch
# User boisy
# Date 1017989915 0
# Node ID d4eb10b30e7210960d0104110248c55ac1afc0a9
# Parent  6641a883d6b0b0d93f81d2929f993acc63529059
Disassembled and commented shell.asm, removed shell binary

diff -r 6641a883d6b0 -r d4eb10b30e72 level1/cmds/makefile
--- a/level1/cmds/makefile	Thu Apr 04 16:34:12 2002 +0000
+++ b/level1/cmds/makefile	Fri Apr 05 06:58:35 2002 +0000
@@ -3,7 +3,7 @@
 DEPENDS		= ./Makefile
 
 CMDS		= asm attr backup binex build date del deldir dir dump echo exbin free ident link list \
-		load login makdir printerr pwd pxd rename save setime sleep tee unlink verify
+		load login makdir printerr pwd pxd rename save setime shell sleep tee unlink verify
 ALLOBJS		= $(CMDS)
 
 all:	$(ALLOBJS)
diff -r 6641a883d6b0 -r d4eb10b30e72 level1/cmds/shell
Binary file level1/cmds/shell has changed
diff -r 6641a883d6b0 -r d4eb10b30e72 level1/cmds/shell_21.asm
--- a/level1/cmds/shell_21.asm	Thu Apr 04 16:34:12 2002 +0000
+++ b/level1/cmds/shell_21.asm	Fri Apr 05 06:58:35 2002 +0000
@@ -13,12 +13,15 @@
 * Disassembled 02/04/03 22:01:32 by Disasm v1.6 (C) 1988 by RML
 
          ifp1
-         use   os9defs
+         use   defsfile
          endc
+
 tylg     set   Prgrm+Objct   
 atrv     set   ReEnt+rev
 rev      set   $01
+
          mod   eom,name,tylg,atrv,start,size
+
 u0000    rmb   1
 u0001    rmb   2
 u0003    rmb   1
@@ -53,8 +56,8 @@
 u00D7    rmb   40
 u00FF    rmb   438
 size     equ   .
-name     equ   *
-L000D    fcs   /Shell/
+
+name     fcs   /Shell/
          fcb   $14 
 L0013    fcb   $13 
          fcb   $50 P
@@ -83,23 +86,16 @@
          fcb   $00 
          fcb   $00 
          fcb   $00 
-L002E    fcb   $0A 
-         fcb   $53 S
-         fcb   $68 h
-         fcb   $65 e
-         fcb   $6C l
-         fcb   $6C l
-         fcb   $0D 
-L0035    fcb   $0A 
-L0036    fcb   $4F O
-         fcb   $53 S
-         fcb   $39 9
-         fcb   $3A :
-L003A    fcb   $D7 W
-         fcb   $0E 
-         fcb   $3B ;
-start    equ   *
-         leas  -$05,s
+L002E    fcb   C$LF
+         fcc   "Shell"
+         fcb   C$CR
+L0035    fcb   C$LF
+L0036    fcc   "OS9:"
+
+L003A    stb   <u000E
+         rti
+
+start    leas  -$05,s
          pshs  y,x,b,a
          ldb   #$24
          lbsr  L00C9
@@ -146,11 +142,12 @@
          tstb  
          bne   L0085
          bra   L0067
-         eim   #$6F,$06,s
-         tst   <u000D
-         clr   <u0026
-         eim   #$30,<u008C
-         bitb  >$8D04
+L00AE    fcc   "eof"
+         fcb   C$CR
+L00B2    tst   <u000F
+         bne   L00BB
+         leax  <L00AE,pcr
+         bsr   L00BF
 L00BB    clrb  
 L00BC    os9   F$Exit   
 L00BF    ldy   #$0050
@@ -161,54 +158,59 @@
 L00CB    decb  
          bpl   L00C9
          rts   
-L00CF    oim   #$B7,<u00AA
-         aim   #$89,<u00D7
-         oim   #$93,<u0043
-         lsla  
-         andb  #$01
-         ora   #$43
-         lsla  
-         eorb  <u0001
-         clrb  
-         fcb   $45 E
-         eorb  <u0003
-         adcb  <u004B
-         rola  
-         inca  
-         ldd   #$0195
-         eorb  <u0001
-         lda   <u002D
-         eorb  <u0001
-         jmp   >$D001
-         jmp   >$2DD0
-         oim   #$7F,<u00D4
-         oim   #$80,<u002D
-         andb  <u0003
-         orb   -u000D,u
-         fcb   $45 E
-         lsrb  
-         negb  
-         sbcb  <u0001
-         lsr   <u00BB
-         neg   <u0000
-L010A    com   <u005E
-         cmpa  $02,x
-         beq   L00CB
-         aim   #$3D,<u00A6
-         aim   #$1A,<u008D
-L0116    oim   #$B8,<u003E
-         ldx   >$01AF
-         cmpx  >$01B8
-         ldx   >$01EF
-         subd  $00,x
-         neg   <u000D
-         bvc   L0151
-         stu   >$0D21
-         bls   L0153
-         rti   
-         cwai  #$3E
-         stu   >$C60E
-         bsr   L00C9
+L00CF    fdb   L0286-*
+         fcs   "*"
+         fdb   L035B-*
+         fcs   "W"
+         fdb   L0268-*
+         fcs   "CHD"
+         fdb   L0264-*
+         fcs   "CHX"
+         fdb   L023E-*
+         fcs   "EX"
+         fdb   L04BC-* 
+         fcs   "KILL"
+         fdb   L027E-*
+         fcs   "X"
+         fdb   L0282-*
+         fcs   "-X"
+         fdb   L026E-*
+         fcs   "P"
+         fdb   L0271-*
+         fcs   "-P"
+         fdb   L0276-*
+         fcs   "T"
+         fdb   L027A-*
+         fcs   "-T"
+         fdb   L04E8-*
+         fcs   "SETPR"
+         fdb   L0209-*
+         fcs   ";"
+         fdb   $0000
+L010A    fcb   $03
+         fcb   $5E       ^ symbol
+         fcb   $A1       ! symbol
+         fdb   L0334-*
+         fcs   ";"
+         fdb   L034D-*
+         fcs   "&"
+         fdb   L032D-*
+         fcb   $8D
+L0116    fdb   L02CE-*
+         fcs   ">>"
+         fdb   L02C9-*
+         fcs   "<"
+         fdb   L02D5-*
+         fcs   ">"
+         fdb   L030F-*
+         fcs   "#"
+         fdb   $0000
+L0125    fcb   $0d
+         fcc   "()"
+         fcb   $FF
+L0129    fcb   $0D
+         fcb   $21,$23,$26,$3b,$3c,$3e,$ff
+L0131    fcb   $c6,$0E,$8d,$94
 L0135    clr   <u0003
          clr   <u000E
          leay  <L00CF,pcr
@@ -219,7 +221,7 @@
          sta   <u000C
          cmpa  #$28
          bne   L016F
-         leay  >L000D,pcr
+         leay  >name,pcr
          sty   <u0004
          leax  $01,x
          stx   <u0008
@@ -310,7 +312,7 @@
 L0203    cmpa  ,x+
          beq   L0203
          leax  -$01,x
-         andcc #$FE
+L0209    andcc #$FE
          rts   
 L020C    pshs  y,x
          leay  $02,y
@@ -338,7 +340,7 @@
          bne   L0210
          comb  
          puls  pc,y,x
-         lbsr  L0195
+L023E    lbsr  L0195
          clra  
          bsr   L0260
          bsr   L025F
@@ -355,24 +357,24 @@
 L025F    inca  
 L0260    pshs  a
          bra   L02AB
-         lda   #$84
+L0264    lda   #$84
          bra   L026A
-         lda   #$83
+L0268    lda   #$83
 L026A    os9   I$ChgDir 
          rts   
-         clra  
+L026E    clra  
          bra   L0273
-         lda   #$01
+L0271    lda   #$01
 L0273    sta   <u000F
          rts   
-         lda   #$01
+L0276    lda   #$01
          bra   L027B
-         clra  
+L027A    clra  
 L027B    sta   <u0010
          rts   
-         lda   #$01
+L027E    lda   #$01
          bra   L0283
-         clra  
+L0282    clra  
 L0283    sta   <u0011
          rts   
 L0286    lda   #$0D
@@ -414,10 +416,10 @@
          rts   
 L02C9    ldd   #$0001
          bra   L02E3
-         ldd   #$020D
+L02CE    ldd   #$020D
          stb   -$02,x
          bra   L02D7
-         lda   #$01
+L02D5    lda   #$01
 L02D7    ldb   #$02
          bra   L02E3
          tst   a,u
@@ -444,7 +446,7 @@
          os9   I$Create 
 L030B    stb   $01,s
 L030D    puls  pc,b,a
-         ldb   #$0D
+L030F    ldb   #$0D
          stb   -$01,x
          ldb   <u0003
          bne   L02BE
@@ -459,10 +461,10 @@
          bne   L02BE
 L0328    stb   <u0003
          lbra  L01E9
-         leax  -$01,x
+L032D    leax  -$01,x
          lbsr  L03C7
          bra   L0337
-         lbsr  L03C3
+L0334    lbsr  L03C3
 L0337    bcs   L034A
          lbsr  L028F
          bsr   L035C
@@ -473,13 +475,13 @@
          leas  $04,s
 L0349    clrb  
 L034A    lbra  L028F
-         lbsr  L03C3
+L034D    lbsr  L03C3
          bcs   L034A
          bsr   L034A
          ldb   #$26
          lbsr  L0495
          bra   L033E
-         clra  
+L035B    clra  
 L035C    pshs  a
 L035E    os9   F$Wait   
          tst   <u000E
@@ -569,7 +571,7 @@
          ldb   #$2D
          stb   ,-u
          stu   <u0008
-         leax  >L000D,pcr
+         leax  >name,pcr
 L0423    stx   <u0004
 L0425    ldx   <u0004
          lda   #$11
@@ -596,20 +598,14 @@
          os9   F$UnLink 
          puls  pc,u,y,x,b,cc
 L045D    ldb   #$EA
+
 L045F    coma  
          puls  pc,u,y,x
-         ble   L04D4
-         rol   -$10,s
-         eim   #$0D,-$0C,y
-         addr  a,0
-         bitb  >$CC01
-         com   <u0017
-         ldu   >$6835
-         lbcs  L568F
-         stu   >$4925
-         tsta  
-         lda   ,u
-         bne   L0487
+
+L0462    fcc   "/pipe"
+         fcb   C$CR
+L0468    fcb   $34,$10,$30,$8c,$f5,$cc,$01,$03
+         fdb   $17FE,$6835,$1025,$5217,$FF49,$254D,$A6C4,$2607
          os9   I$Dup    
          bcs   L04C9
          sta   ,u
@@ -639,7 +635,7 @@
          lbsr  L00BF
          leas  $05,s
          puls  pc,y,x,b,a
-         bsr   L04CA
+L04BC    bsr   L04CA
          cmpb  #$02
          bcs   L04E5
          tfr   b,a
@@ -662,7 +658,7 @@
          bne   L04C9
 L04E3    leas  $02,s
 L04E5    lbra  L02BE
-         bsr   L04CA
+L04E8    bsr   L04CA
          stb   <u0012
          lbsr  L01E9
          bsr   L04CA