Mercurial > hg > Members > kono > nitros9-code
changeset 15:0912ac5dc2ff
Added initial and dates to some source files
added mfree.asm, modified makefile
| author | boisy |
|---|---|
| date | Fri, 05 Apr 2002 21:35:25 +0000 |
| parents | 9b772b21c68f |
| children | 4d7347bc9748 |
| files | level1/cmds/copy.asm level1/cmds/display.asm level1/cmds/makefile level1/cmds/mdir.asm level1/cmds/mfree.asm level1/cmds/procs.asm level1/cmds/pwd.asm level1/cmds/pxd.asm level1/cmds/shell_21.asm level1/cmds/tee.asm |
| diffstat | 10 files changed, 88 insertions(+), 331 deletions(-) [+] |
line wrap: on
line diff
--- a/level1/cmds/copy.asm Fri Apr 05 19:44:45 2002 +0000 +++ b/level1/cmds/copy.asm Fri Apr 05 21:35:25 2002 +0000 @@ -1,24 +1,27 @@ ******************************************************************** -* Copy - Copy data from one path to another +* Copy - file copy utility * * $Id$ * * Ed. Comments Who YY/MM/DD * ------------------------------------------------------------------ -* 7 Original Microware distribution version +* 7 Original Tandy version BGP 02/04/05 nam Copy - ttl Copy data from one path to another + ttl file copy utility -* Disassembled 02/04/03 23:12:01 by Disasm v1.6 (C) 1988 by RML +* Disassembled 02/04/05 13:52:38 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 1 u0002 rmb 1 @@ -34,209 +37,22 @@ u0200 rmb 256 u0300 rmb 4096 size equ . -name equ * - fcs /Copy/ + +name fcs /Copy/ fcb $07 -L0012 fcb $52 R - fcb $65 e - fcb $61 a - fcb $64 d - fcb $79 y - fcb $20 - fcb $53 S - fcb $4F O - fcb $55 U - fcb $52 R - fcb $43 C - fcb $45 E - fcb $2C , - fcb $20 - fcb $68 h - fcb $69 i - fcb $74 t - fcb $20 - fcb $43 C - fcb $20 - fcb $74 t - fcb $6F o - fcb $20 - fcb $63 c - fcb $6F o - fcb $6E n - fcb $74 t - fcb $69 i - fcb $6E n - fcb $75 u - fcb $65 e - fcb $3A : - fcb $20 -L0033 fcb $52 R - fcb $65 e - fcb $61 a - fcb $64 d - fcb $79 y - fcb $20 - fcb $44 D - fcb $45 E - fcb $53 S - fcb $54 T - fcb $49 I - fcb $4E N - fcb $41 A - fcb $54 T - fcb $49 I - fcb $4F O - fcb $4E N - fcb $2C , - fcb $20 - fcb $68 h - fcb $69 i - fcb $74 t - fcb $20 - fcb $43 C - fcb $20 - fcb $74 t - fcb $6F o - fcb $20 - fcb $63 c - fcb $6F o - fcb $6E n - fcb $74 t - fcb $69 i - fcb $6E n - fcb $75 u - fcb $65 e - fcb $3A : - fcb $20 -L0059 fcb $0D -L005A fcb $55 U - fcb $73 s - fcb $65 e - fcb $3A : - fcb $20 - fcb $43 C - fcb $6F o - fcb $70 p - fcb $79 y - fcb $20 - fcb $3C < - fcb $50 P - fcb $61 a - fcb $74 t - fcb $68 h - fcb $31 1 - fcb $3E > - fcb $20 - fcb $3C < - fcb $50 P - fcb $61 a - fcb $74 t - fcb $68 h - fcb $32 2 - fcb $3E > - fcb $20 - fcb $5B [ - fcb $2D - - fcb $73 s - fcb $5D ] - fcb $0A - fcb $20 - fcb $20 - fcb $2D - - fcb $73 s - fcb $20 - fcb $3D = - fcb $20 - fcb $73 s - fcb $69 i - fcb $6E n - fcb $67 g - fcb $6C l - fcb $65 e - fcb $20 - fcb $64 d - fcb $72 r - fcb $69 i - fcb $76 v - fcb $65 e - fcb $20 - fcb $63 c - fcb $6F o - fcb $70 p - fcb $79 y - fcb $20 - fcb $28 ( - fcb $50 P - fcb $61 a - fcb $74 t - fcb $68 h - fcb $32 2 - fcb $20 - fcb $6D m - fcb $75 u - fcb $73 s - fcb $74 t - fcb $20 - fcb $62 b - fcb $65 e - fcb $20 - fcb $63 c - fcb $6F o - fcb $6D m - fcb $70 p - fcb $6C l - fcb $65 e - fcb $74 t - fcb $65 e - fcb $20 - fcb $70 p - fcb $61 a - fcb $74 t - fcb $68 h - fcb $6C l - fcb $69 i - fcb $73 s - fcb $74 t - fcb $29 ) - fcb $0D -L00B4 fcb $07 - fcb $45 E - fcb $72 r - fcb $72 r - fcb $6F o - fcb $72 r - fcb $20 - fcb $2D - - fcb $20 - fcb $77 w - fcb $72 r - fcb $69 i - fcb $74 t - fcb $65 e - fcb $20 - fcb $76 v - fcb $65 e - fcb $72 r - fcb $69 i - fcb $66 f - fcb $69 i - fcb $63 c - fcb $61 a - fcb $74 t - fcb $69 i - fcb $6F o - fcb $6E n - fcb $20 - fcb $66 f - fcb $61 a - fcb $69 i - fcb $6C l - fcb $65 e - fcb $64 d - fcb $2E . - fcb $0D -start equ * - leas >u0200,u + +L0012 fcc "Ready SOURCE, hit C to continue: " +L0033 fcc "Ready DESTINATION, hit C to continue: " +L0059 fcb C$CR +L005A fcc "Use: Copy <Path1> <Path2> [-s]" + fcb C$LF + fcc " -s = single drive copy (Path2 must be complete pathlist)" + fcb C$CR +L00B4 fcb C$BELL + fcc "Error - write verification failed." + fcb C$CR + +start leas >u0200,u pshs u leau <u0010,u L00E1 clr ,-u @@ -324,7 +140,7 @@ bne L01AD ldb #$01 stb $08,x - ldb #$00 + ldb #SS.OPT os9 I$SetStt lbcs L027D L01AD lda <u0002 @@ -345,7 +161,7 @@ os9 I$GetStt bcs L01DD lda <u0001 - ldb #$0F + ldb #SS.FD os9 I$SetStt L01DD leax >u0300,u clra @@ -396,12 +212,12 @@ bhi L0222 puls u,y L024D lda <u0000 - ldb #$06 + ldb #SS.EOF os9 I$GetStt bcc L01DD - cmpb #$D3 + cmpb #E$EOF beq L0262 -L025A cmpb #$D3 +L025A cmpb #E$EOF bne L027D lda #$01 bsr L028A @@ -455,5 +271,8 @@ ldy #$0050 os9 I$WritLn puls pc,y,x,a + emod eom equ * + end +
--- a/level1/cmds/display.asm Fri Apr 05 19:44:45 2002 +0000 +++ b/level1/cmds/display.asm Fri Apr 05 21:35:25 2002 +0000 @@ -1,31 +1,34 @@ ******************************************************************** -* Display - Display converted characters +* Display - display control codes * * $Id$ * * Ed. Comments Who YY/MM/DD * ------------------------------------------------------------------ -* 2 Original Microware distribution version +* 2 Original Tandy version BGP 02/04/05 nam Display - ttl Display converted characters + ttl display control codes -* Disassembled 02/04/03 22:44:19 by Disasm v1.6 (C) 1988 by RML +* Disassembled 02/04/05 15:13:55 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 450 size equ . -name equ * - fcs /Display/ + +name fcs /Display/ fcb $02 -start equ * - cmpd #$0001 + +start cmpd #$0001 bls L0036 pshs x leay ,x @@ -43,10 +46,10 @@ L0036 clrb L0037 os9 F$Exit L003A ldb ,y+ - cmpb #$2C + cmpb #C$COMA bne L0042 L0040 ldb ,y+ -L0042 cmpb #$20 +L0042 cmpb #C$SPAC beq L0040 leay -$01,y bsr L0062 @@ -63,6 +66,7 @@ L005E clrb puls b L0061 rts + L0062 ldb ,y subb #$30 cmpb #$09 @@ -80,5 +84,8 @@ rts L007F comb rts + emod eom equ * + end +
--- a/level1/cmds/makefile Fri Apr 05 19:44:45 2002 +0000 +++ b/level1/cmds/makefile Fri Apr 05 21:35:25 2002 +0000 @@ -2,8 +2,8 @@ DEPENDS = ./Makefile -CMDS = asm attr backup binex build date del deldir dir dump echo exbin free ident link list \ - load login makdir mdir printerr procs pwd pxd rename save setime shell sleep tee unlink verify +CMDS = asm attr backup binex build copy date del deldir dir display dump echo exbin free ident link list \ + load login makdir mdir mfree printerr procs pwd pxd rename save setime shell sleep tee unlink verify ALLOBJS = $(CMDS) all: $(ALLOBJS)
--- a/level1/cmds/mdir.asm Fri Apr 05 19:44:45 2002 +0000 +++ b/level1/cmds/mdir.asm Fri Apr 05 21:35:25 2002 +0000 @@ -5,7 +5,7 @@ * * Ed. Comments Who YY/MM/DD * ------------------------------------------------------------------ -* 5 Original Tandy version +* 5 Original Tandy version BGP 02/04/05 nam Mdir ttl Show module directory
--- a/level1/cmds/mfree.asm Fri Apr 05 19:44:45 2002 +0000 +++ b/level1/cmds/mfree.asm Fri Apr 05 21:35:25 2002 +0000 @@ -1,24 +1,27 @@ ******************************************************************** -* Mfree - Display Free System RAM +* Mfree - Show free memory * * $Id$ * * Ed. Comments Who YY/MM/DD * ------------------------------------------------------------------ -* 5 Original Microware distribution version +* 5 Original Tandy version BGP 02/04/05 nam Mfree - ttl Display Free System RAM + ttl Show free memory -* Disassembled 02/04/03 22:42:18 by Disasm v1.6 (C) 1988 by RML +* Disassembled 02/04/05 15:22:05 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 2 u0002 rmb 2 u0004 rmb 1 @@ -29,105 +32,29 @@ u000B rmb 2 u000D rmb 530 size equ . -name equ * - fcs /Mfree/ + +name fcs /Mfree/ fcb $05 -L0013 fcb $0A - fcb $20 - fcb $41 A - fcb $64 d - fcb $64 d - fcb $72 r - fcb $65 e - fcb $73 s - fcb $73 s - fcb $20 - fcb $20 - fcb $70 p - fcb $61 a - fcb $67 g - fcb $65 e - fcb $73 s - fcb $0A - fcb $2D - - fcb $2D - - fcb $2D - - fcb $2D - - fcb $2D - - fcb $2D - - fcb $2D - - fcb $2D - - fcb $2D - - fcb $20 - fcb $2D - - fcb $2D - - fcb $2D - - fcb $2D - - fcb $2D - - fcb $8D -L0034 fcb $0A - fcb $54 T - fcb $6F o - fcb $74 t - fcb $61 a - fcb $6C l - fcb $20 - fcb $70 p - fcb $61 a - fcb $67 g - fcb $65 e - fcb $73 s - fcb $20 - fcb $66 f - fcb $72 r - fcb $65 e - fcb $65 e - fcb $20 - fcb $3D = - fcb $A0 -L0048 fcb $47 G - fcb $72 r - fcb $61 a - fcb $70 p - fcb $68 h - fcb $69 i - fcb $63 c - fcb $73 s - fcb $20 - fcb $4D M - fcb $65 e - fcb $6D m - fcb $6F o - fcb $72 r - fcb $79 y - fcb $A0 -L0058 fcb $4E N - fcb $6F o - fcb $74 t - fcb $20 - fcb $41 A - fcb $6C l - fcb $6C l - fcb $6F o - fcb $63 c - fcb $61 a - fcb $74 t - fcb $65 e - fcb $E4 d -L0065 fcb $61 a - fcb $74 t - fcb $3A : - fcb $20 - fcb $A4 $ -start equ * - leay u000D,u + +L0013 fcb C$LF + fcc " Address pages" + fcb C$LF + fcc "--------- -----" + fcb $80+C$CR +L0034 fcb C$LF + fcs "Total pages free = " +L0048 fcs "Graphics Memory " +L0058 fcs "Not Allocated" +L0065 fcs "at: $" + +start leay u000D,u sty <u000B leay <L0013,pcr bsr L00E1 bsr L00EC - ldx >$0020 + ldx >D.FMBM stx <u0000 - ldx >$0022 + ldx >D.FMBM+2 stx <u0002 clra clrb @@ -189,10 +116,11 @@ bsr L012C leax u000D,u stx <u000B - ldy #$0050 + ldy #80 lda #$01 os9 I$WritLn puls pc,y,x,a + L0101 lda #$FF clr <u0004 L0105 inca @@ -237,7 +165,7 @@ leay >L0048,pcr bsr L00E1 lda #$01 - ldb #$12 + ldb #SS.DStat os9 I$GetStt bcc L0163 leay >L0058,pcr @@ -249,5 +177,8 @@ bsr L0136 L016E puls y,x lbra L00EC + emod eom equ * + end +
--- a/level1/cmds/procs.asm Fri Apr 05 19:44:45 2002 +0000 +++ b/level1/cmds/procs.asm Fri Apr 05 21:35:25 2002 +0000 @@ -5,7 +5,7 @@ * * Ed. Comments Who YY/MM/DD * ------------------------------------------------------------------ -* 5 Original Tandy version +* 5 Original Tandy version BGP 02/04/05 nam Procs ttl program module
--- a/level1/cmds/pwd.asm Fri Apr 05 19:44:45 2002 +0000 +++ b/level1/cmds/pwd.asm Fri Apr 05 21:35:25 2002 +0000 @@ -5,7 +5,7 @@ * * Ed. Comments Who YY/MM/DD * ------------------------------------------------------------------ -* 1 Original Tandy/Microware version +* 1 Original Tandy/Microware version BGP 02/04/05 nam pwd ttl Print working directory
--- a/level1/cmds/pxd.asm Fri Apr 05 19:44:45 2002 +0000 +++ b/level1/cmds/pxd.asm Fri Apr 05 21:35:25 2002 +0000 @@ -5,7 +5,7 @@ * * Ed. Comments Who YY/MM/DD * ------------------------------------------------------------------ -* 1 Original Tandy/Microware version +* 1 Original Tandy/Microware version BGP 02/04/05 nam pxd ttl Print working directory
--- a/level1/cmds/shell_21.asm Fri Apr 05 19:44:45 2002 +0000 +++ b/level1/cmds/shell_21.asm Fri Apr 05 21:35:25 2002 +0000 @@ -5,7 +5,7 @@ * * Ed. Comments Who YY/MM/DD * ------------------------------------------------------------------ -* 20 Original Microware distribution version +* 20 Original Tandy distribution version BGP 02/04/05 nam Shell ttl OS-9 Command Interpreter
--- a/level1/cmds/tee.asm Fri Apr 05 19:44:45 2002 +0000 +++ b/level1/cmds/tee.asm Fri Apr 05 21:35:25 2002 +0000 @@ -5,7 +5,7 @@ * * Ed. Comments Who YY/MM/DD * ------------------------------------------------------------------ -* 2 Original Tandy distribution version +* 2 Original Tandy distribution version BGP 02/04/05 nam Tee ttl Split output to multiple devices