Mercurial > hg > Members > kono > nitros9-code

changeset 327:f0a2dcf03503

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Moved dir.asm to level1/CMDS
author boisy
date Wed, 24 Jul 2002 05:00:43 +0000
parents bdd31b961b6f
children 2e7d4518cb8b
files level2/cmds/dir.asm level2/cmds/makefile
diffstat 2 files changed, 6 insertions(+), 386 deletions(-) [+]
line wrap: on
line diff
--- a/level2/cmds/dir.asm	Wed Jul 24 04:59:43 2002 +0000
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,380 +0,0 @@
-********************************************************************
-* Dir - Show directory
-*
-* $Id$
-*
-* This dir initially started from the dir command that came with
-* the OS-9 Level Two package, then incorporated Glenside's Y2K
-* fix.
-*
-* Ed.    Comments                                       Who YY/MM/DD
-* ------------------------------------------------------------------
-* 10     Incorporated Glenside Y2K fixes                BGP 99/05/11
-
-         nam   Dir
-         ttl   Show directory
-
-         ttl   program module       
-
-* Disassembled 99/04/11 16:36:40 by Disasm v1.6 (C) 1988 by RML
-
-         ifp1
-         use   defsfile
-         endc
-
-tylg     set   Prgrm+Objct   
-atrv     set   ReEnt+rev
-rev      set   $00
-edition  set   10
-
-         mod   eom,name,tylg,atrv,start,size
-
-u0000    rmb   2
-u0002    rmb   1
-u0003    rmb   1
-u0004    rmb   1
-u0005    rmb   1
-u0006    rmb   2
-u0008    rmb   1
-u0009    rmb   1
-u000A    rmb   1
-u000B    rmb   1
-u000C    rmb   1
-u000D    rmb   3
-u0010    rmb   3
-u0013    rmb   29
-u0030    rmb   1
-u0031    rmb   1
-u0032    rmb   1
-u0033    rmb   1
-u0034    rmb   2
-u0036    rmb   6
-u003C    rmb   2
-u003E    rmb   2
-u0040    rmb   530
-size     equ   .
-
-name     fcs   /Dir/
-         fcb   edition
-
-L0011    fcb   C$LF
-         fcs   " Directory of "
-L0020    fcc   "."
-         fcb   C$CR
-L0022    fcc   "@"
-         fcb   C$CR
-L0024    fcb   C$CR,C$LF
-         fcc   "Owner  Last modified   Attributes Sector Bytecount   Name"
-         fcb   C$CR,C$LF
-         fcc   "----- ---------------- ---------- ------ --------- ----------"
-         fcb   C$CR,C$LF
-L00A0    fcb   C$CR,C$LF
-         fcc   "Modified on  Owner   Name"
-         fcb   C$CR,C$LF
-         fcc   "  Attr     Sector     Size"
-         fcb   C$CR,C$LF
-         fcc   "==============================="
-         fcb   C$CR
-         fcb   C$LF
-
-start    leay  <u0040,u
-         sty   <u000B
-         clr   <u0004
-         clr   <u0003
-         clr   <u000A
-         lda   #$10
-         ldb   #$30
-         std   <u0008
-         pshs  y,x,b,a
-         lda   #$01
-         ldb   #$26
-         os9   I$GetStt 
-         bcc   L0120
-         cmpb  #$D0
-         beq   L012D
-         puls  y,x,b,a
-         lbra  L0268
-L0120    cmpx  #$0040
-         bge   L012D
-         inc   <u000A
-         lda   #$0A
-         ldb   #$14
-         std   <u0008
-L012D    puls  y,x,b,a
-         lbsr  L0370
-         lda   ,-x
-         cmpa  #$0D
-         bne   L013C
-         leax  >L0020,pcr
-L013C    stx   <u0000
-         lda   #$81
-         ora   <u0004
-         pshs  x,a
-         os9   I$Open   
-         sta   <u0002
-         puls  x,a
-         lbcs  L0268
-         os9   I$ChgDir 
-         lbcs  L0268
-         pshs  x
-         leay  >L0011,pcr
-         lbsr  L02E6
-         ldx   <u0000
-L0161    lda   ,x+
-         lbsr  L02B7
-         cmpx  ,s
-         bcs   L0161
-         leas  $02,s
-         lbsr  L0370
-         lbsr  L02B5
-         lbsr  L02B5
-         leax  u000D,u
-         os9   F$Time   
-         leax  <u0010,u
-         lbsr  L0328
-         lbsr  L02F5
-         tst   <u0003
-         beq   L01B3
-         lda   #$01
-         ora   <u0004
-         leax  >L0022,pcr
-         os9   I$Open   
-         lbcs  L0268
-         sta   <u0005
-         tst   <u000A
-         bne   L01A6
-         leax  >L0024,pcr
-         ldy   #$007C
-         bra   L01AE
-L01A6    leax  >L00A0,pcr
-         ldy   #$005A
-L01AE    lda   #$01
-         os9   I$Write  
-L01B3    lda   <u0002
-         ldx   #$0000
-         pshs  u
-         ldu   #$0040
-         os9   I$Seek   
-         puls  u
-         lbra  L0253
-L01C5    tst   <u0013
-         lbeq  L0253
-         tst   <u0003
-         bne   L01E8
-         leay  <u0013,u
-         lbsr  L02E6
-L01D5    lbsr  L02B5
-         ldb   <u000C
-         subb  #$40
-         cmpb  <u0009
-         bhi   L022C
-L01E0    subb  <u0008
-         bhi   L01E0
-         bne   L01D5
-         bra   L0253
-L01E8    pshs  u
-         lda   <u0032
-         clrb  
-         tfr   d,u
-         ldx   <u0030
-         lda   <u0005
-         os9   I$Seek   
-         puls  u
-         bcs   L0268
-         leax  <u0033,u
-         ldy   #$000D
-         os9   I$Read   
-         bcs   L0268
-         tst   <u000A
-         bne   L0231
-         ldd   <u0034
-         clr   <u0006
-         bsr   L0274
-         lbsr  L02B5
-         lbsr  L030B
-         lbsr  L02B5
-         lbsr  L02D3
-         lbsr  L02B5
-         lbsr  L02B5
-         bsr   L026E
-         bsr   L0280
-         leay  <u0013,u
-         lbsr  L02E6
-L022C    lbsr  L02F5
-         bra   L0253
-L0231    lbsr  L030B
-         ldd   <u0034
-         clr   <u0006
-         bsr   L0274
-         bsr   L02B5
-         leay  <u0013,u
-         lbsr  L02E6
-         lbsr  L02F5
-         lbsr  L02D3
-         bsr   L02B5
-         bsr   L02B5
-         bsr   L026E
-         bsr   L0280
-         lbsr  L02F5
-L0253    leax  <u0013,u
-         ldy   #$0020
-         lda   <u0002
-         os9   I$Read   
-         lbcc  L01C5
-         cmpb  #$D3
-         bne   L0268
-         clrb  
-L0268    lbsr  L02F5
-         os9   F$Exit   
-L026E    lda   <u0030
-         bsr   L0298
-         ldd   <u0031
-L0274    bsr   L029A
-         tfr   b,a
-         bsr   L028E
-         inc   <u0006
-         bsr   L029C
-         bra   L02B5
-L0280    ldd   <u003C
-         bsr   L0298
-         tfr   b,a
-         bsr   L029A
-         bsr   L02B5
-         ldd   <u003E
-         bra   L0274
-L028E    pshs  a
-         lsra  
-         lsra  
-         lsra  
-         lsra  
-         bsr   L029E
-         puls  pc,a
-L0298    clr   <u0006
-L029A    bsr   L028E
-L029C    anda  #$0F
-L029E    tsta  
-         beq   L02A3
-         sta   <u0006
-L02A3    tst   <u0006
-         bne   L02AB
-         lda   #$20
-         bra   L02B7
-L02AB    adda  #$30
-         cmpa  #$39
-         bls   L02B7
-         adda  #$07
-         bra   L02B7
-L02B5    lda   #$20
-L02B7    pshs  x
-         ldx   <u000B
-         cmpx  #$0090
-         bcs   L02C4
-         bsr   L02F1
-         ldx   <u000B
-L02C4    sta   ,x+
-         stx   <u000B
-         puls  pc,x
-L02CA    fcc   "dsewrewr"
-         fcb    $FF
-L02D3    fcb    $D6,$33,$30,$8C,$F2
-         lda   ,x+
-L02DA    lslb  
-         bcs   L02DF
-         lda   #$2D
-L02DF    bsr   L02B7
-         lda   ,x+
-         bpl   L02DA
-         rts   
-L02E6    lda   ,y
-         anda  #$7F
-         bsr   L02B7
-         lda   ,y+
-         bpl   L02E6
-         rts   
-L02F1    pshs  y,x,b,a
-         bra   L02FB
-L02F5    pshs  y,x,b,a
-         lda   #$0D
-         bsr   L02B7
-L02FB    leax  <u0040,u
-         stx   <u000B
-         ldy   #$0050
-         lda   #$01
-         os9   I$WritLn 
-         puls  pc,y,x,b,a
-L030B    leax  <u0036,u
-L030E    bsr   L0338
-         bsr   L0324
-         bsr   L0324
-         bsr   L02B5
-         bsr   L034F
-         tst   <u000A
-         beq   L0320
-         bsr   L034F
-         bra   L02B5
-L0320    bsr   L0332
-         bra   L02B5
-L0324    lda   #$2F
-         bra   L0334
-L0328    tst   <u000A
-         bne   L0330
-         leax  u000D,u
-         bra   L030E
-L0330    bsr   L034F
-L0332    lda   #$3A
-L0334    bsr   L02B7
-         bra   L034F
-L0338    lda   #$AE
-         ldb   ,x
-L033C    inca  
-         subb  #$64
-         bcc   L033C
-         stb   ,x
-         tfr   a,b
-         tst   <u000A
-         bne   L034B
-         bsr   L035F
-L034B    ldb   ,x+
-         bra   L035F
-L034F    ldb   ,x+
-         lda   #$2F
-L0353    inca  
-         subb  #$64
-         bcc   L0353
-         cmpa  #$30
-         beq   L035F
-         lbsr  L02B7
-L035F    lda   #$3A
-L0361    deca  
-         addb  #$0A
-         bcc   L0361
-         lbsr  L02B7
-         tfr   b,a
-         adda  #$30
-         lbra  L02B7
-L0370    ldd   ,x+
-         cmpa  #$20
-         beq   L0370
-         cmpa  #$2C
-         beq   L0370
-         eora  #$45
-         anda  #$DF
-         bne   L0388
-         cmpb  #$30
-         bcc   L039A
-         inc   <u0003
-         bra   L0370
-L0388    lda   -$01,x
-         eora  #$58
-         anda  #$DF
-         bne   L039A
-         cmpb  #$30
-         bcc   L039A
-         lda   #$04
-         sta   <u0004
-         bra   L0370
-L039A    rts   
-
-         emod
-eom      equ   *
-         end
--- a/level2/cmds/makefile	Wed Jul 24 04:59:43 2002 +0000
+++ b/level2/cmds/makefile	Wed Jul 24 05:00:43 2002 +0000
@@ -2,9 +2,9 @@
 
 DEPENDS		= ./Makefile
 
-CMDS		= attr binex build cobbler copy date \
-		deiniz del deldir dir display dump echo exbin \
-		free ident iniz link list load login makdir mdir \
+CMDS		= attr binex build cmp cobbler copy date \
+		deiniz del deldir dir display dump echo error exbin \
+		free help ident iniz link list load login makdir mdir \
 		merge mfree montype procs pwd pxd rename save \
 		setime shell_21 sleep tee tmode tsmon unlink \
 		verify wcreate xmode
@@ -15,10 +15,10 @@
 		link list load mdir merge mfree procs tmode unlink
 UTILPAK1        = attr deldir ident rename setime xmode
 
-LEVEL1FILES	= binex.asm attr.asm build.asm cobbler.asm date.asm deiniz.asm del.asm deldir.asm \
-		dump.asm echo.asm exbin.asm free.asm gfx.asm ident.asm iniz.asm inkey.asm link.asm \
+LEVEL1FILES	= binex.asm attr.asm build.asm cmp.asm cobbler.asm date.asm deiniz.asm del.asm deldir.asm \
+		dir.asm dump.asm echo.asm error.asm exbin.asm free.asm gfx.asm help.asm ident.asm iniz.asm inkey.asm link.asm \
 		list.asm load.asm login.asm merge.asm os9gen.asm pwd.asm pxd.asm rename.asm \
-		save.asm setime.asm sleep.asm tee.asm tmode.asm tsmon.asm verify.asm
+		save.asm setime.asm sleep.asm tee.asm tmode.asm tuneport.asm tsmon.asm verify.asm
 
 LEVEL2FILES	= gfx2.asm mdir.asm mfree.asm montype.asm procs.asm \
 		shell_21.asm unlink.asm wcreate.asm