Mercurial > hg > Members > kono > nitros9-code
view level1/cmds/shell_21.asm @ 0:6641a883d6b0
Initial revision
| author | boisy |
|---|---|
| date | Thu, 04 Apr 2002 16:34:12 +0000 |
| parents | |
| children | d4eb10b30e72 |
line wrap: on
line source
******************************************************************** * Shell - OS-9 Command Interpreter * * $Id$ * * Ed. Comments Who YY/MM/DD * ------------------------------------------------------------------ * 20 Original Microware distribution version nam Shell ttl OS-9 Command Interpreter * Disassembled 02/04/03 22:01:32 by Disasm v1.6 (C) 1988 by RML ifp1 use os9defs 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 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 equ * L000D fcs /Shell/ fcb $14 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 $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 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 #$D3 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 eim #$6F,$06,s tst <u000D clr <u0026 eim #$30,<u008C bitb >$8D04 L00BB clrb L00BC os9 F$Exit L00BF ldy #$0050 L00C3 lda #$02 os9 I$WritLn rts L00C9 clr b,u 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 L0135 clr <u0003 clr <u000E leay <L00CF,pcr lbsr L01C3 bcs L0192 cmpa #$0D beq L0192 sta <u000C cmpa #$28 bne L016F leay >L000D,pcr sty <u0004 leax $01,x stx <u0008 L0156 inc <u000D L0158 leay <L0125,pcr bsr L01DB cmpa #$28 beq L0156 cmpa #$29 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 #$0D 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 #$2E bne L01BD cmpa ,x+ beq L01BB leay -$01,x L01B9 leax ,y L01BB clra rts L01BD comb leax -$01,x ldb #$D7 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 #$20 beq L01FF cmpa #$2C beq L01FF leax >L0129,pcr L01F9 cmpa ,x+ bhi L01F9 puls pc,x L01FF leas $02,s lda #$20 L0203 cmpa ,x+ beq L0203 leax -$01,x andcc #$FE 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 lbsr L0195 clra bsr L0260 bsr L025F bsr L025F bsr L0286 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 lda #$84 bra L026A lda #$83 L026A os9 I$ChgDir rts clra bra L0273 lda #$01 L0273 sta <u000F rts lda #$01 bra L027B clra L027B sta <u0010 rts lda #$01 bra L0283 clra L0283 sta <u0011 rts L0286 lda #$0D 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 asrb lsla fcb $41 A lsrb swi fcb $0D L02BE bsr L028F leax <L02B8,pcr lbsr L00BF clrb coma rts L02C9 ldd #$0001 bra L02E3 ldd #$020D stb -$02,x bra L02D7 lda #$01 L02D7 ldb #$02 bra L02E3 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 #$0B os9 I$Create L030B stb $01,s L030D puls pc,b,a ldb #$0D stb -$01,x ldb <u0003 bne L02BE lbsr L04CA eora #$4B anda #$DF bne L0328 leax $01,x lda #$04 mul tsta bne L02BE L0328 stb <u0003 lbra L01E9 leax -$01,x lbsr L03C7 bra L0337 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 lbsr L03C3 bcs L034A bsr L034A ldb #$26 lbsr L0495 bra L033E clra L035C pshs a L035E os9 F$Wait tst <u000E beq L0376 ldb <u000E cmpb #$02 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 #$11 ldb <u0003 ldx <u0004 ldy <u0006 ldu <u0008 rts L03A0 lda #$04 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 #$11 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 L02C9 bcs L045F ldu <u0008 ldd #$5820 std ,--u ldd #$5020 std ,--u ldb #$2D stb ,-u stu <u0008 leax >L000D,pcr L0423 stx <u0004 L0425 ldx <u0004 lda #$11 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 #$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 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 bsr L04CA cmpb #$02 bcs L04E5 tfr b,a ldb #$00 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 bsr L04CA stb <u0012 lbsr L01E9 bsr L04CA lda <u0012 os9 F$SPrior rts emod eom equ *