Mercurial > hg > Members > kono > nitros9-code
view level1/cmds/shell_21.asm @ 2898:28ed72477814 lwtools-port
Dummy merge of default branch into lwtools
hg -y merge --tool=internal:fail default
hg revert --all --no-backup --rev .
hg resolve -a -m
This dummy merge discards any changes from the default branch
so that the result is the same as what lwtools already had.
When merging back to default branch later, the discarded
changes will be discarded there also, so the result
will be that the default branch will contain what
the lwtools branch had before these merges.
Only scripts/burst was "rescued" from default branch.
| author | Tormod Volden <debian.tormod@gmail.com> |
|---|---|
| date | Sat, 11 Jan 2014 18:40:44 +0100 |
| parents | bfb8eefc19e1 |
| children |
line wrap: on
line source
******************************************************************** * Shell - NitrOS-9 command line interpreter * * $Id$ * * Edt/Rev YYYY/MM/DD Modified by * Comment * ------------------------------------------------------------------ * 21 ????/??/?? * Original Tandy/Microware version. * * 21/2 2003/01/22 Boisy Pitre * CHD no longer sets WRITE. permission. * * 22 2010/01/19 Boisy Pitre * Added code to honor S$HUP signal and exit when received to support * networking. nam Shell ttl NitrOS-9 command line interpreter * Disassembled 99/04/18 22:59:49 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 22 mod eom,name,tylg,atrv,start,size org 0 u0000 rmb 1 u0001 rmb 2 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 1 kbdsignl rmb 1 u000F rmb 1 u0010 rmb 1 u0011 rmb 1 u0012 rmb 1 u0013 rmb 1 u0014 rmb 1 u0015 rmb 1 u0016 rmb 1 u0017 rmb 22 u002D rmb 3 u0030 rmb 14 u003E rmb 32 u005E rmb 2 u0060 rmb 16 u0070 rmb 58 u00AA rmb 85 u00FF rmb 513 size equ . name equ * L000D fcs /Shell/ fcb edition L0013 fcb $13 fcs "PascalS" fcb $25 % fcs "RunC" fcb $22 " fcs "RunB" fcb $00 fcb $00 fcb $00 fcb $00 fcb $00 fcb $00 fcb $00 fcb $00 fcb $00 Intro fcb C$LF fcc "Shell" fcb C$CR DefPrmpt fcb C$LF OS9Prmpt fcc "OS9:" OS9PrmL equ *-OS9Prmpt DefPrmL equ *-DefPrmpt IcptRtn stb <kbdsignl * +++ BGP added for Hang Up cmpb #S$HUP lbeq exit * +++ rti start leas -$05,s pshs y,x,b,a ldb #$6F lbsr L0175 leax <IcptRtn,pcr os9 F$Icpt puls x,b,a std <u0006 beq L005B lbsr L017B bcs L00C2 tst <u000C bne L00C1 L005B lds ,s++ L005E leax <Intro,pcr tst <u0012 bne L0076 bsr WriteLin bcs Exit L0069 leax <DefPrmpt,pcr ldy #DefPrmL L0070 tst <u0012 bne L0076 bsr WritLin2 L0076 clra leax <u0070,u ldy #$00C8 os9 I$ReadLn bcc L0094 cmpb #E$EOF beq L00B8 L0087 tst <u000F bne L008F tst <u0014 bne L00C2 L008F os9 F$PErr bra L0069 L0094 cmpy #$0001 bhi L00A4 leax >OS9Prmpt,pcr ldy #OS9PrmL bra L0070 L00A4 tst <u0013 beq L00AA bsr WriteLin L00AA lbsr L017B bcc L0069 tstb bne L0087 bra L0069 eofmsg fcc "eof" fcb C$CR L00B8 tst <u0012 bne L00C1 leax <eofmsg,pcr bsr WriteLin L00C1 clrb L00C2 lda <u000F lbne L0331 Exit os9 F$Exit WriteLin ldy #80 WritLin2 lda #$02 stderr os9 I$WritLn write line rts * I=... Immortal lbsr L03B3 lbcs L02ED pshs x ldb #SS.DevNm leax <u0016,u lda #PDELIM sta ,x+ clra stdin os9 I$GetStt get device name puls x lbcs L02ED inc <u000F inc <u0010 lbsr L02ED clr <u0010 rts L00FB 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 Immortal-* fcs "I=" fdb NextCmd-* fcs ";" fdb $0000 L013A fdb Pipe-* fcs "!" fdb NextCmd2-* fcs ";" fdb Backgrnd-* fcs "&" fdb Return-* fcb $8D L0146 fdb AllRedir-* fcs "<>>>" fdb IERedir-* fcs "<>>" fdb IORedir-* fcs "<>" fdb OERedir-* fcs ">>>" fdb ErrRedir-* fcs ">>" fdb InRedir-* fcs "<" fdb OutRedir-* fcs ">" fdb StkSize-* fcs "#" fdb $0000 L0169 fcb $0d fcc "()" fcb $ff L016D fcb $0d fcc "!#&;<>" fcb $ff L0175 clr b,u decb bpl L0175 rts L017B ldb #$0E bsr L0175 L017F clr <u0003 clr <kbdsignl leay >L00FB,pcr lbsr L020F bcs L01DE cmpa #C$CR beq L01DE sta <u000C cmpa #'( bne L01BA leay >L000D,pcr sty <u0004 leax $01,x stx <u0008 L01A1 inc <u000D L01A3 leay <L0169,pcr bsr L0227 cmpa #'( beq L01A1 cmpa #') bne L01D6 dec <u000D bne L01A3 lda #$0D sta -$01,x bra L01BE L01BA bsr L01E1 bcs L01DE L01BE leay <L016D,pcr bsr L0227 tfr x,d subd <u0008 std <u0006 leax -$01,x leay >L013A,pcr bsr L020F bcs L01DE ldy <u0004 L01D6 lbne L0326 cmpa #C$CR bne L017F L01DE lbra L02ED L01E1 stx <u0004 bsr L01F4 bcs L01F3 L01E7 bsr L01F4 bcc L01E7 leay >L0146,pcr bsr L020F stx <u0008 L01F3 rts L01F4 os9 F$PrsNam bcc L0205 lda ,x+ cmpa #C$PERD bne L0209 cmpa ,x+ beq L0207 leay -$01,x L0205 leax ,y L0207 clra rts L0209 comb leax -$01,x ldb #E$BPNam rts L020F bsr L0241 pshs y bsr L0264 bcs L0220 ldd ,y jsr d,y puls y bcc L020F rts L0220 clra lda ,x puls pc,y L0225 puls y L0227 pshs y lda ,x+ L022B tst ,y bmi L0225 cmpa #$22 bne L023B L0233 lda ,x+ cmpa #$22 bne L0233 lda ,x+ L023B cmpa ,y+ bne L022B puls pc,y L0241 pshs x lda ,x+ cmpa #C$SPAC beq L0257 cmpa #C$COMA beq L0257 leax >L016D,pcr L0251 cmpa ,x+ bhi L0251 puls pc,x L0257 leas $02,s lda #C$SPAC L025B cmpa ,x+ beq L025B leax -$01,x NextCmd andcc #^Carry rts L0264 pshs y,x leay $02,y L0268 ldx ,s L026A lda ,x+ cmpa #$61 bcs L0272 suba #$20 L0272 eora ,y+ lsla bne L0286 bcc L026A lda -$01,y cmpa #$C1 bcs L0283 bsr L0241 bcs L0286 L0283 clra puls pc,y,b,a L0286 leay -$01,y L0288 lda ,y+ bpl L0288 sty $02,s ldd ,y++ bne L0268 comb puls pc,y,x Ex lbsr L01E1 clra bsr L02B8 bsr L02B7 bsr L02B7 bsr Comment leax $01,x tfr x,d subd <u0008 std <u0006 leas >u00FF,u lbsr L0497 os9 F$Chain lbra L00C2 L02B7 inca L02B8 pshs a bra L0313 Chx lda #DIR.+EXEC. bra L02C2 *Chd lda #DIR.+UPDAT. note write mode!! * Removed WRITE. requirement above (some devices are read only) Chd lda #DIR.+READ. note write mode!! L02C2 os9 I$ChgDir rts Prompt clra bra L02CB NoPrompt lda #$01 L02CB sta <u0012 rts Echo lda #$01 bra L02D3 NoEcho clra L02D3 sta <u0013 rts X lda #$01 bra L02DB NOX clra L02DB sta <u0014 rts Comment lda #$0D L02E0 cmpa ,x+ bne L02E0 cmpa ,-x rts L02E7 pshs b,a,cc lda #$01 bra L02F1 L02ED pshs b,a,cc lda #$02 L02F1 sta <u0011 clra L02F4 bsr L02FF inca cmpa <u0011 bls L02F4 ror ,s+ puls pc,b,a L02FF pshs a tst <u0010 bmi L031B bne L0313 tst a,u beq L031E os9 I$Close lda a,u os9 I$Dup L0313 ldb ,s lda b,u beq L031E clr b,u L031B os9 I$Close L031E puls pc,a L0320 fcc "WHAT?" fcb C$CR L0326 bsr L02ED leax <L0320,pcr lbsr WriteLin clrb coma rts L0331 inc <u0010 bsr L02ED lda #$FF sta <u0010 bsr L02E7 leax <u0016,u bsr L03BC lbcs Exit lda #$02 bsr L02FF lbsr L03DC clr <u0010 lbra L005E InRedir ldd #$0001 bra L036E ErrRedir ldd #$020D stb -$02,x bra L035E OutRedir lda #$01 L035E ldb #$02 bra L036E L0362 tst a,u bne L0326 pshs b,a tst <u0010 bmi L0386 bra L0378 L036E tst a,u bne L0326 pshs b,a ldb #$0D stb -$01,x L0378 os9 I$Dup bcs L03A8 ldb ,s sta b,u lda ,s os9 I$Close L0386 lda $01,s bmi L0391 ldb ,s bsr L03E1 tsta bpl L0398 L0391 anda #$0F os9 I$Dup bra L03A6 L0398 bita #$02 bne L03A1 os9 I$Open bra L03A6 L03A1 ldb #PREAD.+READ.+WRITE. os9 I$Create L03A6 stb $01,s L03A8 puls pc,b,a L03AA clra L03AB ldb #$03 bra L0362 AllRedir lda #$0D L03B1 sta -$04,x L03B3 bsr L03BC bcc L03DC L03B7 rts IORedir lda #$0D sta -$02,x L03BC bsr L03AA bcs L03B7 ldd #$0180 bra L0362 IERedir lda #$0D sta -$03,x bsr L03AA bcs L03B7 ldd #$0280 bra L0362 OERedir lda #$0D sta -$03,x lda #$01 bsr L03AB bcs L03B7 L03DC ldd #$0281 bra L0362 L03E1 pshs x,b,a ldd ,x++ cmpd #$2F30 bcs L040D cmpd #$2F32 bhi L040D pshs x,b,a lbsr L0241 puls x,b,a bcs L040D andb #$03 cmpb $01,s bne L0404 ldb $01,s ldb b,u L0404 orb #$80 stb ,s puls b,a leas $02,s rts L040D puls pc,x,b,a StkSize ldb #$0D stb -$01,x ldb <u0003 lbne L0326 lbsr ASC2Int eora #'K anda #$DF bne L042C leax $01,x lda #$04 mul tsta lbne L0326 L042C stb <u0003 lbra L0241 Return leax -$01,x lbsr L04CA bra L043B NextCmd2 lbsr L04C6 L043B bcs L044E lbsr L02ED bsr L045F L0442 bcs L044E lbsr L0241 cmpa #$0D bne L044D leas $04,s L044D clrb L044E lbra L02ED Backgrnd bsr L04C6 bcs L044E bsr L044E ldb #$26 lbsr L0597 bra L0442 Wait clra L045F pshs a L0461 os9 F$Wait tst <kbdsignl beq L0479 ldb <kbdsignl cmpb #$02 bne L0491 lda ,s beq L0491 os9 F$Send clr ,s bra L0461 L0479 bcs L0495 cmpa ,s beq L0491 tst ,s beq L0486 tstb beq L0461 L0486 pshs b bsr L044E ldb #$2D lbsr L0597 puls b L0491 tstb beq L0495 coma L0495 puls pc,a L0497 lda #Prgrm+Objct ldb <u0003 ldx <u0004 ldy <u0006 ldu <u0008 rts L04A3 lda #EXEC. os9 I$Open bcs L0500 leax <u005E,u ldy #$000D os9 I$Read pshs b,cc os9 I$Close puls b,cc lbcs L0561 lda $06,x ldy $0B,x bra L04D9 L04C6 lda #$0D sta -$01,x L04CA pshs u,y,x clra ldx <u0004 IFGT Level-1 os9 F$NMLink ELSE pshs u os9 F$Link puls u ENDC bcs L04A3 ldx <u0004 IFGT Level-1 os9 F$UnLoad ELSE pshs a,b,x,y,u os9 F$Link os9 F$UnLink os9 F$UnLink puls a,b,x,y,u ENDC L04D9 cmpa #Prgrm+Objct beq L0527 sty <u000A leax >L0013,pcr L04E4 tst ,x IFGT Level-1 beq L055F ELSE lbeq L055F ENDC cmpa ,x+ beq L04F2 L04EC tst ,x+ bpl L04EC bra L04E4 L04F2 ldd <u0008 subd <u0004 addd <u0006 std <u0006 ldd <u0004 std <u0008 bra L0525 L0500 ldx <u0006 leax $05,x stx <u0006 ldx <u0004 ldu $04,s lbsr InRedir bcs L0561 ldu <u0008 ldd #$5820 std ,--u ldd #$5020 std ,--u ldb #$2D stb ,-u stu <u0008 leax >L000D,pcr L0525 stx <u0004 L0527 ldx <u0004 lda #Prgrm+Objct IFGT Level-1 os9 F$NMLink ELSE pshs u os9 F$Link tfr u,y puls u ENDC bcc L0535 IFGT Level-1 os9 F$NMLoad ELSE pshs u os9 F$Load tfr u,y puls u ENDC bcs L0561 L0535 IFEQ Level-1 ldy M$Mem,y ENDC tst <u0003 bne L0542 tfr y,d addd <u000A addd #$00FF sta <u0003 L0542 lbsr L0497 os9 F$Fork pshs b,a,cc bcs L0552 ldx #$0001 os9 F$Sleep L0552 lda #Prgrm+Objct ldx <u0004 clr <u0004 clr <u0005 IFGT Level-1 os9 F$UnLoad ELSE os9 F$Link os9 F$UnLink os9 F$UnLink ENDC puls pc,u,y,x,b,a,cc L055F ldb #E$NEMod L0561 coma puls pc,u,y,x PipeName fcc "/pipe" fcb C$CR Pipe pshs x leax <PipeName,pcr ldd #$0103 lbsr L0362 puls x bcs L05CB lbsr L04C6 bcs L05CB lda ,u bne L0589 os9 I$Dup bcs L05CB sta ,u L0589 clra os9 I$Close lda #$01 os9 I$Dup lda #$01 lbra L02FF L0597 pshs y,x,b,a pshs y,x,b leax $01,s ldb #$2F L059F incb suba #100 bcc L059F stb ,x+ ldb #$3A L05A8 decb adda #$0A bcc L05A8 stb ,x+ adda #$30 ldb #$0D std ,x leax ,s lbsr WriteLin leas $05,s puls pc,y,x,b,a * Kill a process Kill bsr ASC2Int cmpb #$02 compare against first user process ID bls L05E7 if lower or same, tfr b,a transfer process ID to A ldb #S$Kill load B with kill signal os9 F$Send and send to process in A L05CB rts * Entry: X = ASCII representation of number * Exit : B = decimal value of ASCII number ASC2Int clrb L05CD lda ,x+ suba #$30 cmpa #$09 bhi L05DE pshs a lda #10 mul addb ,s+ bcc L05CD L05DE lda ,-x bcs L05E5 tstb bne L05CB L05E5 leas $02,s L05E7 lbra L0326 SetPr bsr ASC2Int stb <u0015 lbsr L0241 bsr ASC2Int lda <u0015 os9 F$SPrior rts emod eom equ * end