Mercurial > hg > Members > kono > nitros9-code
view level1/cmds/shell_21.asm @ 200:e9ce43cc215e
Made major changes to headers for consistency and identification
| author | boisy |
|---|---|
| date | Mon, 15 Jul 2002 03:42:42 +0000 |
| parents | 04ebf17303cd |
| children | 9904c8db1230 |
line wrap: on
line source
******************************************************************** * Shell - OS-9 Command Interpreter * * $Id$ * * Ed. Comments Who YY/MM/DD * ------------------------------------------------------------------ * 20 From Tandy OS-9 Level One VR 02.00.00 * 21 CHD no longer requires WRITE permission BGP 02/04/05 nam Shell ttl OS-9 Command Interpreter * Disassembled 02/04/03 22:01:32 by Disasm v1.6 (C) 1988 by RML ifp1 use defsfile endc tylg set Prgrm+Objct atrv set ReEnt+rev rev set $01 edition set 21 mod eom,name,tylg,atrv,start,size u0000 rmb 1 u0001 rmb 2 u0003 rmb 1 u0004 rmb 1 u0005 rmb 1 u0006 rmb 2 u0008 rmb 2 u000A rmb 1 u000B rmb 1 u000C rmb 1 u000D rmb 1 u000E rmb 1 u000F rmb 1 u0010 rmb 1 u0011 rmb 1 u0012 rmb 1 u0013 rmb 4 u0017 rmb 14 u0025 rmb 1 u0026 rmb 7 u002D rmb 17 u003E rmb 5 u0043 rmb 8 u004B rmb 19 u005E rmb 46 u008C rmb 1 u008D rmb 25 u00A6 rmb 4 u00AA rmb 17 u00BB rmb 25 u00D4 rmb 3 u00D7 rmb 40 u00FF rmb 438 size equ . name fcs /Shell/ fcb edition L0013 fcb $13 fcb $50 P fcb $61 a fcb $73 s fcb $63 c fcb $61 a fcb $6C l fcb $D3 S fcb $25 % fcb $52 R fcb $75 u fcb $6E n fcb $C3 C fcb $22 " fcb $52 R fcb $75 u fcb $6E n fcb $C2 B fcb $00 fcb $00 fcb $00 fcb $00 fcb $00 fcb $00 fcb $00 fcb $00 fcb $00 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 leax <L003A,pcr os9 F$Icpt puls x,b,a std <u0006 beq L005B lbsr L0131 bcs L00BC tst <u000C bne L00BB L005B lds ,s++ leax <L002E,pcr tst <u000F bne L0074 bsr L00BF L0067 leax <L0035,pcr ldy #$0005 L006E tst <u000F bne L0074 bsr L00C3 L0074 clra leax <u0025,u ldy #$00C8 os9 I$ReadLn bcc L008E cmpb #E$EOF beq L00B2 L0085 tst <u0011 bne L00BC os9 F$PErr bra L0067 L008E cmpy #$0001 bhi L009E leax >L0036,pcr ldy #$0004 bra L006E L009E tst <u0010 beq L00A4 bsr L00BF L00A4 lbsr L0131 bcc L0067 tstb bne L0085 bra L0067 L00AE fcc "eof" fcb C$CR L00B2 tst <u000F bne L00BB leax <L00AE,pcr bsr L00BF L00BB clrb L00BC os9 F$Exit L00BF ldy #80 L00C3 lda #$02 os9 I$WritLn rts L00C9 clr b,u L00CB decb bpl L00C9 rts L00CF fdb Comment-* fcs "*" fdb Wait-* fcs "W" fdb Chd-* fcs "CHD" fdb Chx-* fcs "CHX" fdb Ex-* fcs "EX" fdb Kill-* fcs "KILL" fdb X-* fcs "X" fdb NOX-* fcs "-X" fdb Prompt-* fcs "P" fdb NoPrompt-* fcs "-P" fdb Echo-* fcs "T" fdb NoEcho-* fcs "-T" fdb SetPr-* fcs "SETPR" fdb NextCmd-* fcs ";" fdb $0000 L010A fdb Pipe-* fcs "!" fdb NextCmd2-* fcs ";" fdb Backgrnd-* fcs "&" fdb Return-* fcb $80+C$CR L0116 fdb ErrRedir-* fcs ">>" fdb InRedir-* fcs "<" fdb OutRedir-* fcs ">" fdb StkSiz-* 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 lbsr L01C3 bcs L0192 cmpa #C$CR beq L0192 sta <u000C cmpa #'( bne L016F leay >name,pcr sty <u0004 leax $01,x stx <u0008 L0156 inc <u000D L0158 leay <L0125,pcr bsr L01DB cmpa #'( beq L0156 cmpa #') bne L018A dec <u000D bne L0158 lda #$0D sta -$01,x bra L0173 L016F bsr L0195 bcs L0192 L0173 leay <L0129,pcr bsr L01DB tfr x,d subd <u0008 std <u0006 leax -$01,x leay <L010A,pcr bsr L01C3 bcs L0192 ldy <u0004 L018A lbne L02BE cmpa #C$CR bne L0135 L0192 lbra L028F L0195 stx <u0004 bsr L01A8 bcs L01A7 L019B bsr L01A8 bcc L019B leay >L0116,pcr bsr L01C3 stx <u0008 L01A7 rts L01A8 os9 F$PrsNam bcc L01B9 lda ,x+ cmpa #C$PERD bne L01BD cmpa ,x+ beq L01BB leay -$01,x L01B9 leax ,y L01BB clra rts L01BD comb leax -$01,x ldb #E$BPNAM rts L01C3 bsr L01E9 pshs y bsr L020C bcs L01D4 ldd ,y jsr d,y puls y bcc L01C3 rts L01D4 clra lda ,x puls pc,y L01D9 puls y L01DB pshs y lda ,x+ L01DF tst ,y bmi L01D9 cmpa ,y+ bne L01DF puls pc,y L01E9 pshs x lda ,x+ cmpa #C$SPAC beq L01FF cmpa #C$COMA beq L01FF leax >L0129,pcr L01F9 cmpa ,x+ bhi L01F9 puls pc,x L01FF leas $02,s lda #C$SPAC L0203 cmpa ,x+ beq L0203 leax -$01,x NextCmd andcc #^Carry rts L020C pshs y,x leay $02,y L0210 ldx ,s L0212 lda ,x+ cmpa #$61 bcs L021A suba #$20 L021A eora ,y+ lsla bne L022E bcc L0212 lda -$01,y cmpa #$C1 bcs L022B bsr L01E9 bcs L022E L022B clra puls pc,y,b,a L022E leay -$01,y L0230 lda ,y+ bpl L0230 sty $02,s ldd ,y++ bne L0210 comb puls pc,y,x Ex lbsr L0195 clra bsr L0260 bsr L025F bsr L025F bsr Comment leax $01,x tfr x,d subd <u0008 std <u0006 leas >u00FF,u lbsr L0394 os9 F$Chain os9 F$Exit L025F inca L0260 pshs a bra L02AB Chx lda #DIR.+EXEC. bra L026A *Chd lda #DIR.+UPDAT. * Removed WRITE. requirement above (some devices are read only) Chd lda #DIR.+READ. L026A os9 I$ChgDir rts Prompt clra bra L0273 NoPrompt lda #$01 L0273 sta <u000F rts Echo lda #$01 bra L027B NoEcho clra L027B sta <u0010 rts X lda #$01 bra L0283 NOX clra L0283 sta <u0011 rts Comment lda #C$CR L0288 cmpa ,x+ bne L0288 cmpa ,-x rts L028F pshs b,a,cc clra L0292 bsr L029D inca cmpa #$02 bls L0292 ror ,s+ puls pc,b,a L029D pshs a tst a,u beq L02B6 os9 I$Close lda a,u os9 I$Dup L02AB ldb ,s lda b,u beq L02B6 clr b,u os9 I$Close L02B6 puls pc,a L02B8 fcc "WHAT?" fcb C$CR L02BE bsr L028F leax <L02B8,pcr lbsr L00BF clrb coma rts InRedir ldd #$0001 bra L02E3 ErrRedir ldd #$020D stb -$02,x bra L02D7 OutRedir lda #$01 L02D7 ldb #$02 bra L02E3 L02DB tst a,u bne L02BE pshs b,a bra L02ED L02E3 tst a,u bne L02BE pshs b,a ldb #$0D stb -$01,x L02ED os9 I$Dup bcs L030D ldb ,s sta b,u lda ,s os9 I$Close lda $01,s bita #$02 bne L0306 os9 I$Open bra L030B L0306 ldb #PREAD.+READ.+WRITE. os9 I$Create L030B stb $01,s L030D puls pc,b,a StkSiz ldb #$0D stb -$01,x ldb <u0003 bne L02BE lbsr L04CA eora #'K anda #$DF bne L0328 leax $01,x lda #$04 mul tsta bne L02BE L0328 stb <u0003 lbra L01E9 Return leax -$01,x lbsr L03C7 bra L0337 NextCmd2 lbsr L03C3 L0337 bcs L034A lbsr L028F bsr L035C L033E bcs L034A lbsr L01E9 cmpa #$0D bne L0349 leas $04,s L0349 clrb L034A lbra L028F Backgrnd lbsr L03C3 bcs L034A bsr L034A ldb #$26 lbsr L0495 bra L033E Wait clra L035C pshs a L035E os9 F$Wait tst <u000E beq L0376 ldb <u000E cmpb #S$Abort bne L038E lda ,s beq L038E os9 F$Send clr ,s bra L035E L0376 bcs L0392 cmpa ,s beq L038E tst ,s beq L0383 tstb beq L035E L0383 pshs b bsr L034A ldb #$2D lbsr L0495 puls b L038E tstb beq L0392 coma L0392 puls pc,a L0394 lda #Prgrm+Objct ldb <u0003 ldx <u0004 ldy <u0006 ldu <u0008 rts L03A0 lda #EXEC. os9 I$Open bcs L03FE leax <u0013,u ldy #$000D os9 I$Read pshs b,cc os9 I$Close puls b,cc lbcs L045F lda $06,x ldy $0B,x bra L03D7 L03C3 lda #$0D sta -$01,x L03C7 pshs u,y,x clra ldx <u0004 os9 F$Link bcs L03A0 ldy u000B,u os9 F$UnLink L03D7 cmpa #Prgrm+Objct beq L0425 sty <u000A leax >L0013,pcr L03E2 tst ,x beq L045D cmpa ,x+ beq L03F0 L03EA tst ,x+ bpl L03EA bra L03E2 L03F0 ldd <u0008 subd <u0004 addd <u0006 std <u0006 ldd <u0004 std <u0008 bra L0423 L03FE ldx <u0006 leax $05,x stx <u0006 ldx <u0004 ldu $04,s lbsr InRedir bcs L045F ldu <u0008 ldd #$5820 std ,--u ldd #$5020 std ,--u ldb #$2D stb ,-u stu <u0008 leax >name,pcr L0423 stx <u0004 L0425 ldx <u0004 lda #Prgrm+Objct os9 F$Link bcc L0433 os9 F$Load bcs L045F L0433 pshs u tst <u0003 bne L0442 ldd u000B,u addd <u000A addd #$00FF sta <u0003 L0442 lbsr L0394 os9 F$Fork puls u pshs b,cc bcs L0454 ldx #$0001 os9 F$Sleep L0454 clr <u0004 clr <u0005 os9 F$UnLink puls pc,u,y,x,b,cc L045D ldb #E$NEMod L045F coma puls pc,u,y,x L0462 fcc "/pipe" fcb C$CR Pipe pshs x leax <L0462,pcr ldd #$0103 lbsr L02DB puls x bcs L04C9 lbsr L03C3 bcs L04C9 lda ,u bne L0487 os9 I$Dup bcs L04C9 sta ,u L0487 clra os9 I$Close lda #$01 os9 I$Dup lda #$01 lbra L029D L0495 pshs y,x,b,a pshs y,x,b leax $01,s ldb #$2F L049D incb suba #$64 bcc L049D stb ,x+ ldb #$3A L04A6 decb adda #$0A bcc L04A6 stb ,x+ adda #$30 ldb #$0D std ,x leax ,s lbsr L00BF leas $05,s puls pc,y,x,b,a Kill bsr L04CA cmpb #$02 bcs L04E5 tfr b,a ldb #S$Kill os9 F$Send L04C9 rts L04CA clrb L04CB lda ,x+ suba #$30 cmpa #$09 bhi L04DC pshs a lda #$0A mul addb ,s+ bcc L04CB L04DC lda ,-x bcs L04E3 tstb bne L04C9 L04E3 leas $02,s L04E5 lbra L02BE SetPr bsr L04CA stb <u0012 lbsr L01E9 bsr L04CA lda <u0012 os9 F$SPrior rts emod eom equ * end