Mercurial > hg > Members > kono > nitros9-code
changeset 10:25d626c770e9
Updated shell source
| author | boisy |
|---|---|
| date | Fri, 05 Apr 2002 13:51:23 +0000 |
| parents | 3008afb231a2 |
| children | 50bca5580dfb |
| files | level1/cmds/shell_21.asm |
| diffstat | 1 files changed, 42 insertions(+), 34 deletions(-) [+] |
line wrap: on
line diff
--- a/level1/cmds/shell_21.asm Fri Apr 05 08:23:28 2002 +0000 +++ b/level1/cmds/shell_21.asm Fri Apr 05 13:51:23 2002 +0000 @@ -123,7 +123,7 @@ ldy #$00C8 os9 I$ReadLn bcc L008E - cmpb #$D3 + cmpb #E$EOF beq L00B2 L0085 tst <u0011 bne L00BC @@ -150,7 +150,7 @@ bsr L00BF L00BB clrb L00BC os9 F$Exit -L00BF ldy #$0050 +L00BF ldy #80 L00C3 lda #$02 os9 I$WritLn rts @@ -216,10 +216,10 @@ leay <L00CF,pcr lbsr L01C3 bcs L0192 - cmpa #$0D + cmpa #C$CR beq L0192 sta <u000C - cmpa #$28 + cmpa #'( bne L016F leay >name,pcr sty <u0004 @@ -228,9 +228,9 @@ L0156 inc <u000D L0158 leay <L0125,pcr bsr L01DB - cmpa #$28 + cmpa #'( beq L0156 - cmpa #$29 + cmpa #') bne L018A dec <u000D bne L0158 @@ -250,7 +250,7 @@ bcs L0192 ldy <u0004 L018A lbne L02BE - cmpa #$0D + cmpa #C$CR bne L0135 L0192 lbra L028F L0195 stx <u0004 @@ -265,7 +265,7 @@ L01A8 os9 F$PrsNam bcc L01B9 lda ,x+ - cmpa #$2E + cmpa #C$PERD bne L01BD cmpa ,x+ beq L01BB @@ -275,7 +275,7 @@ rts L01BD comb leax -$01,x - ldb #$D7 + ldb #E$BPNAM rts L01C3 bsr L01E9 pshs y @@ -299,20 +299,20 @@ puls pc,y L01E9 pshs x lda ,x+ - cmpa #$20 + cmpa #C$SPAC beq L01FF - cmpa #$2C + cmpa #C$COMA beq L01FF leax >L0129,pcr L01F9 cmpa ,x+ bhi L01F9 puls pc,x L01FF leas $02,s - lda #$20 + lda #C$SPAC L0203 cmpa ,x+ beq L0203 leax -$01,x -L0209 andcc #$FE +L0209 andcc #^Carry rts L020C pshs y,x leay $02,y @@ -357,9 +357,9 @@ L025F inca L0260 pshs a bra L02AB -L0264 lda #$84 +L0264 lda #DIR.+EXEC. bra L026A -L0268 lda #$83 +L0268 lda #DIR.+UPDAT. L026A os9 I$ChgDir rts L026E clra @@ -377,7 +377,7 @@ L0282 clra L0283 sta <u0011 rts -L0286 lda #$0D +L0286 lda #C$CR L0288 cmpa ,x+ bne L0288 cmpa ,-x @@ -402,12 +402,8 @@ clr b,u os9 I$Close L02B6 puls pc,a -L02B8 asrb - lsla - fcb $41 A - lsrb - swi - fcb $0D +L02B8 fcc "WHAT?" + fcb C$CR L02BE bsr L028F leax <L02B8,pcr lbsr L00BF @@ -422,7 +418,7 @@ L02D5 lda #$01 L02D7 ldb #$02 bra L02E3 - tst a,u +L02DB tst a,u bne L02BE pshs b,a bra L02ED @@ -442,7 +438,7 @@ bne L0306 os9 I$Open bra L030B -L0306 ldb #$0B +L0306 ldb #PREAD.+READ.+WRITE. os9 I$Create L030B stb $01,s L030D puls pc,b,a @@ -451,7 +447,7 @@ ldb <u0003 bne L02BE lbsr L04CA - eora #$4B + eora #'K anda #$DF bne L0328 leax $01,x @@ -487,7 +483,7 @@ tst <u000E beq L0376 ldb <u000E - cmpb #$02 + cmpb #S$Abort bne L038E lda ,s beq L038E @@ -510,13 +506,13 @@ beq L0392 coma L0392 puls pc,a -L0394 lda #$11 +L0394 lda #Prgrm+Objct ldb <u0003 ldx <u0004 ldy <u0006 ldu <u0008 rts -L03A0 lda #$04 +L03A0 lda #EXEC. os9 I$Open bcs L03FE leax <u0013,u @@ -538,7 +534,7 @@ bcs L03A0 ldy u000B,u os9 F$UnLink -L03D7 cmpa #$11 +L03D7 cmpa #Prgrm+Objct beq L0425 sty <u000A leax >L0013,pcr @@ -574,7 +570,7 @@ leax >name,pcr L0423 stx <u0004 L0425 ldx <u0004 - lda #$11 + lda #Prgrm+Objct os9 F$Link bcc L0433 os9 F$Load @@ -597,15 +593,23 @@ clr <u0005 os9 F$UnLink puls pc,u,y,x,b,cc -L045D ldb #$EA +L045D ldb #E$NEMod L045F coma puls pc,u,y,x L0462 fcc "/pipe" fcb C$CR -L0468 fcb $34,$10,$30,$8c,$f5,$cc,$01,$03 - fdb $17FE,$6835,$1025,$5217,$FF49,$254D,$A6C4,$2607 +L0468 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 @@ -615,6 +619,7 @@ os9 I$Dup lda #$01 lbra L029D + L0495 pshs y,x,b,a pshs y,x,b leax $01,s @@ -639,10 +644,11 @@ cmpb #$02 bcs L04E5 tfr b,a - ldb #$00 + ldb #S$Kill os9 F$Send L04C9 rts L04CA clrb + L04CB lda ,x+ suba #$30 cmpa #$09 @@ -665,5 +671,7 @@ lda <u0012 os9 F$SPrior rts + emod eom equ * + end