Mercurial > hg > Members > kono > nitros9-code
annotate level1/cmds/shell_21.asm @ 310:4df2bcadf651
Renamed compatibility byte to feature byte
| author | boisy |
|---|---|
| date | Tue, 23 Jul 2002 13:54:36 +0000 |
| parents | e9ce43cc215e |
| children | 9904c8db1230 |
| rev | line source |
|---|---|
| 0 | 1 ******************************************************************** |
| 2 * Shell - OS-9 Command Interpreter | |
| 3 * | |
| 4 * $Id$ | |
| 5 * | |
| 6 * Ed. Comments Who YY/MM/DD | |
| 7 * ------------------------------------------------------------------ | |
|
200
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
77
diff
changeset
|
8 * 20 From Tandy OS-9 Level One VR 02.00.00 |
|
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
77
diff
changeset
|
9 * 21 CHD no longer requires WRITE permission BGP 02/04/05 |
| 0 | 10 |
| 11 nam Shell | |
| 12 ttl OS-9 Command Interpreter | |
| 13 | |
| 14 * Disassembled 02/04/03 22:01:32 by Disasm v1.6 (C) 1988 by RML | |
| 15 | |
| 16 ifp1 | |
|
1
d4eb10b30e72
Disassembled and commented shell.asm, removed shell binary
boisy
parents:
0
diff
changeset
|
17 use defsfile |
| 0 | 18 endc |
|
1
d4eb10b30e72
Disassembled and commented shell.asm, removed shell binary
boisy
parents:
0
diff
changeset
|
19 |
| 0 | 20 tylg set Prgrm+Objct |
| 21 atrv set ReEnt+rev | |
| 22 rev set $01 | |
|
200
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
77
diff
changeset
|
23 edition set 21 |
|
1
d4eb10b30e72
Disassembled and commented shell.asm, removed shell binary
boisy
parents:
0
diff
changeset
|
24 |
| 0 | 25 mod eom,name,tylg,atrv,start,size |
|
1
d4eb10b30e72
Disassembled and commented shell.asm, removed shell binary
boisy
parents:
0
diff
changeset
|
26 |
| 0 | 27 u0000 rmb 1 |
| 28 u0001 rmb 2 | |
| 29 u0003 rmb 1 | |
| 30 u0004 rmb 1 | |
| 31 u0005 rmb 1 | |
| 32 u0006 rmb 2 | |
| 33 u0008 rmb 2 | |
| 34 u000A rmb 1 | |
| 35 u000B rmb 1 | |
| 36 u000C rmb 1 | |
| 37 u000D rmb 1 | |
| 38 u000E rmb 1 | |
| 39 u000F rmb 1 | |
| 40 u0010 rmb 1 | |
| 41 u0011 rmb 1 | |
| 42 u0012 rmb 1 | |
| 43 u0013 rmb 4 | |
| 44 u0017 rmb 14 | |
| 45 u0025 rmb 1 | |
| 46 u0026 rmb 7 | |
| 47 u002D rmb 17 | |
| 48 u003E rmb 5 | |
| 49 u0043 rmb 8 | |
| 50 u004B rmb 19 | |
| 51 u005E rmb 46 | |
| 52 u008C rmb 1 | |
| 53 u008D rmb 25 | |
| 54 u00A6 rmb 4 | |
| 55 u00AA rmb 17 | |
| 56 u00BB rmb 25 | |
| 57 u00D4 rmb 3 | |
| 58 u00D7 rmb 40 | |
| 59 u00FF rmb 438 | |
| 60 size equ . | |
|
1
d4eb10b30e72
Disassembled and commented shell.asm, removed shell binary
boisy
parents:
0
diff
changeset
|
61 |
|
d4eb10b30e72
Disassembled and commented shell.asm, removed shell binary
boisy
parents:
0
diff
changeset
|
62 name fcs /Shell/ |
|
200
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
77
diff
changeset
|
63 fcb edition |
|
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
77
diff
changeset
|
64 |
| 0 | 65 L0013 fcb $13 |
| 66 fcb $50 P | |
| 67 fcb $61 a | |
| 68 fcb $73 s | |
| 69 fcb $63 c | |
| 70 fcb $61 a | |
| 71 fcb $6C l | |
| 72 fcb $D3 S | |
| 73 fcb $25 % | |
| 74 fcb $52 R | |
| 75 fcb $75 u | |
| 76 fcb $6E n | |
| 77 fcb $C3 C | |
| 78 fcb $22 " | |
| 79 fcb $52 R | |
| 80 fcb $75 u | |
| 81 fcb $6E n | |
| 82 fcb $C2 B | |
| 83 fcb $00 | |
| 84 fcb $00 | |
| 85 fcb $00 | |
| 86 fcb $00 | |
| 87 fcb $00 | |
| 88 fcb $00 | |
| 89 fcb $00 | |
| 90 fcb $00 | |
| 91 fcb $00 | |
|
1
d4eb10b30e72
Disassembled and commented shell.asm, removed shell binary
boisy
parents:
0
diff
changeset
|
92 L002E fcb C$LF |
|
d4eb10b30e72
Disassembled and commented shell.asm, removed shell binary
boisy
parents:
0
diff
changeset
|
93 fcc "Shell" |
|
d4eb10b30e72
Disassembled and commented shell.asm, removed shell binary
boisy
parents:
0
diff
changeset
|
94 fcb C$CR |
|
d4eb10b30e72
Disassembled and commented shell.asm, removed shell binary
boisy
parents:
0
diff
changeset
|
95 L0035 fcb C$LF |
|
d4eb10b30e72
Disassembled and commented shell.asm, removed shell binary
boisy
parents:
0
diff
changeset
|
96 L0036 fcc "OS9:" |
|
d4eb10b30e72
Disassembled and commented shell.asm, removed shell binary
boisy
parents:
0
diff
changeset
|
97 |
|
d4eb10b30e72
Disassembled and commented shell.asm, removed shell binary
boisy
parents:
0
diff
changeset
|
98 L003A stb <u000E |
|
d4eb10b30e72
Disassembled and commented shell.asm, removed shell binary
boisy
parents:
0
diff
changeset
|
99 rti |
|
d4eb10b30e72
Disassembled and commented shell.asm, removed shell binary
boisy
parents:
0
diff
changeset
|
100 |
|
d4eb10b30e72
Disassembled and commented shell.asm, removed shell binary
boisy
parents:
0
diff
changeset
|
101 start leas -$05,s |
| 0 | 102 pshs y,x,b,a |
| 103 ldb #$24 | |
| 104 lbsr L00C9 | |
| 105 leax <L003A,pcr | |
| 106 os9 F$Icpt | |
| 107 puls x,b,a | |
| 108 std <u0006 | |
| 109 beq L005B | |
| 110 lbsr L0131 | |
| 111 bcs L00BC | |
| 112 tst <u000C | |
| 113 bne L00BB | |
| 114 L005B lds ,s++ | |
| 115 leax <L002E,pcr | |
| 116 tst <u000F | |
| 117 bne L0074 | |
| 118 bsr L00BF | |
| 119 L0067 leax <L0035,pcr | |
| 120 ldy #$0005 | |
| 121 L006E tst <u000F | |
| 122 bne L0074 | |
| 123 bsr L00C3 | |
| 124 L0074 clra | |
| 125 leax <u0025,u | |
| 126 ldy #$00C8 | |
| 127 os9 I$ReadLn | |
| 128 bcc L008E | |
| 10 | 129 cmpb #E$EOF |
| 0 | 130 beq L00B2 |
| 131 L0085 tst <u0011 | |
| 132 bne L00BC | |
| 133 os9 F$PErr | |
| 134 bra L0067 | |
| 135 L008E cmpy #$0001 | |
| 136 bhi L009E | |
| 137 leax >L0036,pcr | |
| 138 ldy #$0004 | |
| 139 bra L006E | |
| 140 L009E tst <u0010 | |
| 141 beq L00A4 | |
| 142 bsr L00BF | |
| 143 L00A4 lbsr L0131 | |
| 144 bcc L0067 | |
| 145 tstb | |
| 146 bne L0085 | |
| 147 bra L0067 | |
|
1
d4eb10b30e72
Disassembled and commented shell.asm, removed shell binary
boisy
parents:
0
diff
changeset
|
148 L00AE fcc "eof" |
|
d4eb10b30e72
Disassembled and commented shell.asm, removed shell binary
boisy
parents:
0
diff
changeset
|
149 fcb C$CR |
|
d4eb10b30e72
Disassembled and commented shell.asm, removed shell binary
boisy
parents:
0
diff
changeset
|
150 L00B2 tst <u000F |
|
d4eb10b30e72
Disassembled and commented shell.asm, removed shell binary
boisy
parents:
0
diff
changeset
|
151 bne L00BB |
|
d4eb10b30e72
Disassembled and commented shell.asm, removed shell binary
boisy
parents:
0
diff
changeset
|
152 leax <L00AE,pcr |
|
d4eb10b30e72
Disassembled and commented shell.asm, removed shell binary
boisy
parents:
0
diff
changeset
|
153 bsr L00BF |
| 0 | 154 L00BB clrb |
| 155 L00BC os9 F$Exit | |
| 10 | 156 L00BF ldy #80 |
| 0 | 157 L00C3 lda #$02 |
| 158 os9 I$WritLn | |
| 159 rts | |
| 160 L00C9 clr b,u | |
| 161 L00CB decb | |
| 162 bpl L00C9 | |
| 163 rts | |
| 12 | 164 L00CF fdb Comment-* |
|
1
d4eb10b30e72
Disassembled and commented shell.asm, removed shell binary
boisy
parents:
0
diff
changeset
|
165 fcs "*" |
| 12 | 166 fdb Wait-* |
|
1
d4eb10b30e72
Disassembled and commented shell.asm, removed shell binary
boisy
parents:
0
diff
changeset
|
167 fcs "W" |
| 12 | 168 fdb Chd-* |
|
1
d4eb10b30e72
Disassembled and commented shell.asm, removed shell binary
boisy
parents:
0
diff
changeset
|
169 fcs "CHD" |
| 12 | 170 fdb Chx-* |
|
1
d4eb10b30e72
Disassembled and commented shell.asm, removed shell binary
boisy
parents:
0
diff
changeset
|
171 fcs "CHX" |
| 12 | 172 fdb Ex-* |
|
1
d4eb10b30e72
Disassembled and commented shell.asm, removed shell binary
boisy
parents:
0
diff
changeset
|
173 fcs "EX" |
| 12 | 174 fdb Kill-* |
|
1
d4eb10b30e72
Disassembled and commented shell.asm, removed shell binary
boisy
parents:
0
diff
changeset
|
175 fcs "KILL" |
| 12 | 176 fdb X-* |
|
1
d4eb10b30e72
Disassembled and commented shell.asm, removed shell binary
boisy
parents:
0
diff
changeset
|
177 fcs "X" |
| 12 | 178 fdb NOX-* |
|
1
d4eb10b30e72
Disassembled and commented shell.asm, removed shell binary
boisy
parents:
0
diff
changeset
|
179 fcs "-X" |
| 12 | 180 fdb Prompt-* |
|
1
d4eb10b30e72
Disassembled and commented shell.asm, removed shell binary
boisy
parents:
0
diff
changeset
|
181 fcs "P" |
| 12 | 182 fdb NoPrompt-* |
|
1
d4eb10b30e72
Disassembled and commented shell.asm, removed shell binary
boisy
parents:
0
diff
changeset
|
183 fcs "-P" |
| 12 | 184 fdb Echo-* |
|
1
d4eb10b30e72
Disassembled and commented shell.asm, removed shell binary
boisy
parents:
0
diff
changeset
|
185 fcs "T" |
| 12 | 186 fdb NoEcho-* |
|
1
d4eb10b30e72
Disassembled and commented shell.asm, removed shell binary
boisy
parents:
0
diff
changeset
|
187 fcs "-T" |
| 12 | 188 fdb SetPr-* |
|
1
d4eb10b30e72
Disassembled and commented shell.asm, removed shell binary
boisy
parents:
0
diff
changeset
|
189 fcs "SETPR" |
| 12 | 190 fdb NextCmd-* |
|
1
d4eb10b30e72
Disassembled and commented shell.asm, removed shell binary
boisy
parents:
0
diff
changeset
|
191 fcs ";" |
|
d4eb10b30e72
Disassembled and commented shell.asm, removed shell binary
boisy
parents:
0
diff
changeset
|
192 fdb $0000 |
| 12 | 193 L010A fdb Pipe-* |
| 194 fcs "!" | |
| 195 fdb NextCmd2-* | |
|
1
d4eb10b30e72
Disassembled and commented shell.asm, removed shell binary
boisy
parents:
0
diff
changeset
|
196 fcs ";" |
| 12 | 197 fdb Backgrnd-* |
|
1
d4eb10b30e72
Disassembled and commented shell.asm, removed shell binary
boisy
parents:
0
diff
changeset
|
198 fcs "&" |
| 12 | 199 fdb Return-* |
| 200 fcb $80+C$CR | |
| 201 L0116 fdb ErrRedir-* | |
|
1
d4eb10b30e72
Disassembled and commented shell.asm, removed shell binary
boisy
parents:
0
diff
changeset
|
202 fcs ">>" |
| 12 | 203 fdb InRedir-* |
|
1
d4eb10b30e72
Disassembled and commented shell.asm, removed shell binary
boisy
parents:
0
diff
changeset
|
204 fcs "<" |
| 12 | 205 fdb OutRedir-* |
|
1
d4eb10b30e72
Disassembled and commented shell.asm, removed shell binary
boisy
parents:
0
diff
changeset
|
206 fcs ">" |
| 12 | 207 fdb StkSiz-* |
|
1
d4eb10b30e72
Disassembled and commented shell.asm, removed shell binary
boisy
parents:
0
diff
changeset
|
208 fcs "#" |
|
d4eb10b30e72
Disassembled and commented shell.asm, removed shell binary
boisy
parents:
0
diff
changeset
|
209 fdb $0000 |
|
d4eb10b30e72
Disassembled and commented shell.asm, removed shell binary
boisy
parents:
0
diff
changeset
|
210 L0125 fcb $0d |
|
d4eb10b30e72
Disassembled and commented shell.asm, removed shell binary
boisy
parents:
0
diff
changeset
|
211 fcc "()" |
|
d4eb10b30e72
Disassembled and commented shell.asm, removed shell binary
boisy
parents:
0
diff
changeset
|
212 fcb $FF |
|
d4eb10b30e72
Disassembled and commented shell.asm, removed shell binary
boisy
parents:
0
diff
changeset
|
213 L0129 fcb $0D |
|
d4eb10b30e72
Disassembled and commented shell.asm, removed shell binary
boisy
parents:
0
diff
changeset
|
214 fcb $21,$23,$26,$3b,$3c,$3e,$ff |
|
d4eb10b30e72
Disassembled and commented shell.asm, removed shell binary
boisy
parents:
0
diff
changeset
|
215 L0131 fcb $c6,$0E,$8d,$94 |
| 0 | 216 L0135 clr <u0003 |
| 217 clr <u000E | |
| 218 leay <L00CF,pcr | |
| 219 lbsr L01C3 | |
| 220 bcs L0192 | |
| 10 | 221 cmpa #C$CR |
| 0 | 222 beq L0192 |
| 223 sta <u000C | |
| 10 | 224 cmpa #'( |
| 0 | 225 bne L016F |
|
1
d4eb10b30e72
Disassembled and commented shell.asm, removed shell binary
boisy
parents:
0
diff
changeset
|
226 leay >name,pcr |
| 0 | 227 sty <u0004 |
| 228 leax $01,x | |
| 229 stx <u0008 | |
| 230 L0156 inc <u000D | |
| 231 L0158 leay <L0125,pcr | |
| 232 bsr L01DB | |
| 10 | 233 cmpa #'( |
| 0 | 234 beq L0156 |
| 10 | 235 cmpa #') |
| 0 | 236 bne L018A |
| 237 dec <u000D | |
| 238 bne L0158 | |
| 239 lda #$0D | |
| 240 sta -$01,x | |
| 241 bra L0173 | |
| 242 L016F bsr L0195 | |
| 243 bcs L0192 | |
| 244 L0173 leay <L0129,pcr | |
| 245 bsr L01DB | |
| 246 tfr x,d | |
| 247 subd <u0008 | |
| 248 std <u0006 | |
| 249 leax -$01,x | |
| 250 leay <L010A,pcr | |
| 251 bsr L01C3 | |
| 252 bcs L0192 | |
| 253 ldy <u0004 | |
| 254 L018A lbne L02BE | |
| 10 | 255 cmpa #C$CR |
| 0 | 256 bne L0135 |
| 257 L0192 lbra L028F | |
| 258 L0195 stx <u0004 | |
| 259 bsr L01A8 | |
| 260 bcs L01A7 | |
| 261 L019B bsr L01A8 | |
| 262 bcc L019B | |
| 263 leay >L0116,pcr | |
| 264 bsr L01C3 | |
| 265 stx <u0008 | |
| 266 L01A7 rts | |
| 267 L01A8 os9 F$PrsNam | |
| 268 bcc L01B9 | |
| 269 lda ,x+ | |
| 10 | 270 cmpa #C$PERD |
| 0 | 271 bne L01BD |
| 272 cmpa ,x+ | |
| 273 beq L01BB | |
| 274 leay -$01,x | |
| 275 L01B9 leax ,y | |
| 276 L01BB clra | |
| 277 rts | |
| 278 L01BD comb | |
| 279 leax -$01,x | |
| 10 | 280 ldb #E$BPNAM |
| 0 | 281 rts |
| 282 L01C3 bsr L01E9 | |
| 283 pshs y | |
| 284 bsr L020C | |
| 285 bcs L01D4 | |
| 286 ldd ,y | |
| 287 jsr d,y | |
| 288 puls y | |
| 289 bcc L01C3 | |
| 290 rts | |
| 291 L01D4 clra | |
| 292 lda ,x | |
| 293 puls pc,y | |
| 294 L01D9 puls y | |
| 295 L01DB pshs y | |
| 296 lda ,x+ | |
| 297 L01DF tst ,y | |
| 298 bmi L01D9 | |
| 299 cmpa ,y+ | |
| 300 bne L01DF | |
| 301 puls pc,y | |
| 302 L01E9 pshs x | |
| 303 lda ,x+ | |
| 10 | 304 cmpa #C$SPAC |
| 0 | 305 beq L01FF |
| 10 | 306 cmpa #C$COMA |
| 0 | 307 beq L01FF |
| 308 leax >L0129,pcr | |
| 309 L01F9 cmpa ,x+ | |
| 310 bhi L01F9 | |
| 311 puls pc,x | |
| 312 L01FF leas $02,s | |
| 10 | 313 lda #C$SPAC |
| 0 | 314 L0203 cmpa ,x+ |
| 315 beq L0203 | |
| 316 leax -$01,x | |
| 12 | 317 NextCmd andcc #^Carry |
| 0 | 318 rts |
| 319 L020C pshs y,x | |
| 320 leay $02,y | |
| 321 L0210 ldx ,s | |
| 322 L0212 lda ,x+ | |
| 323 cmpa #$61 | |
| 324 bcs L021A | |
| 325 suba #$20 | |
| 326 L021A eora ,y+ | |
| 327 lsla | |
| 328 bne L022E | |
| 329 bcc L0212 | |
| 330 lda -$01,y | |
| 331 cmpa #$C1 | |
| 332 bcs L022B | |
| 333 bsr L01E9 | |
| 334 bcs L022E | |
| 335 L022B clra | |
| 336 puls pc,y,b,a | |
| 337 L022E leay -$01,y | |
| 338 L0230 lda ,y+ | |
| 339 bpl L0230 | |
| 340 sty $02,s | |
| 341 ldd ,y++ | |
| 342 bne L0210 | |
| 343 comb | |
| 344 puls pc,y,x | |
| 12 | 345 |
| 346 Ex lbsr L0195 | |
| 0 | 347 clra |
| 348 bsr L0260 | |
| 349 bsr L025F | |
| 350 bsr L025F | |
| 12 | 351 bsr Comment |
| 0 | 352 leax $01,x |
| 353 tfr x,d | |
| 354 subd <u0008 | |
| 355 std <u0006 | |
| 356 leas >u00FF,u | |
| 357 lbsr L0394 | |
| 358 os9 F$Chain | |
| 359 os9 F$Exit | |
| 360 L025F inca | |
| 361 L0260 pshs a | |
| 362 bra L02AB | |
| 12 | 363 |
| 364 Chx lda #DIR.+EXEC. | |
| 0 | 365 bra L026A |
| 77 | 366 *Chd lda #DIR.+UPDAT. |
| 367 * Removed WRITE. requirement above (some devices are read only) | |
| 368 Chd lda #DIR.+READ. | |
| 0 | 369 L026A os9 I$ChgDir |
| 370 rts | |
| 12 | 371 Prompt clra |
| 0 | 372 bra L0273 |
| 12 | 373 NoPrompt lda #$01 |
| 0 | 374 L0273 sta <u000F |
| 375 rts | |
| 12 | 376 Echo lda #$01 |
| 0 | 377 bra L027B |
| 12 | 378 NoEcho clra |
| 0 | 379 L027B sta <u0010 |
| 380 rts | |
| 12 | 381 X lda #$01 |
| 0 | 382 bra L0283 |
| 12 | 383 |
| 384 NOX clra | |
| 0 | 385 L0283 sta <u0011 |
| 386 rts | |
| 12 | 387 Comment lda #C$CR |
| 0 | 388 L0288 cmpa ,x+ |
| 389 bne L0288 | |
| 390 cmpa ,-x | |
| 391 rts | |
| 392 L028F pshs b,a,cc | |
| 393 clra | |
| 394 L0292 bsr L029D | |
| 395 inca | |
| 396 cmpa #$02 | |
| 397 bls L0292 | |
| 398 ror ,s+ | |
| 399 puls pc,b,a | |
| 400 L029D pshs a | |
| 401 tst a,u | |
| 402 beq L02B6 | |
| 403 os9 I$Close | |
| 404 lda a,u | |
| 405 os9 I$Dup | |
| 406 L02AB ldb ,s | |
| 407 lda b,u | |
| 408 beq L02B6 | |
| 409 clr b,u | |
| 410 os9 I$Close | |
| 411 L02B6 puls pc,a | |
| 10 | 412 L02B8 fcc "WHAT?" |
| 413 fcb C$CR | |
| 0 | 414 L02BE bsr L028F |
| 415 leax <L02B8,pcr | |
| 416 lbsr L00BF | |
| 417 clrb | |
| 418 coma | |
| 419 rts | |
| 12 | 420 InRedir ldd #$0001 |
| 0 | 421 bra L02E3 |
| 12 | 422 ErrRedir ldd #$020D |
| 0 | 423 stb -$02,x |
| 424 bra L02D7 | |
| 12 | 425 |
| 426 OutRedir lda #$01 | |
| 0 | 427 L02D7 ldb #$02 |
| 428 bra L02E3 | |
| 10 | 429 L02DB tst a,u |
| 0 | 430 bne L02BE |
| 431 pshs b,a | |
| 432 bra L02ED | |
| 433 L02E3 tst a,u | |
| 434 bne L02BE | |
| 435 pshs b,a | |
| 436 ldb #$0D | |
| 437 stb -$01,x | |
| 438 L02ED os9 I$Dup | |
| 439 bcs L030D | |
| 440 ldb ,s | |
| 441 sta b,u | |
| 442 lda ,s | |
| 443 os9 I$Close | |
| 444 lda $01,s | |
| 445 bita #$02 | |
| 446 bne L0306 | |
| 447 os9 I$Open | |
| 448 bra L030B | |
| 10 | 449 L0306 ldb #PREAD.+READ.+WRITE. |
| 0 | 450 os9 I$Create |
| 451 L030B stb $01,s | |
| 452 L030D puls pc,b,a | |
| 12 | 453 |
| 454 StkSiz ldb #$0D | |
| 0 | 455 stb -$01,x |
| 456 ldb <u0003 | |
| 457 bne L02BE | |
| 458 lbsr L04CA | |
| 10 | 459 eora #'K |
| 0 | 460 anda #$DF |
| 461 bne L0328 | |
| 462 leax $01,x | |
| 463 lda #$04 | |
| 464 mul | |
| 465 tsta | |
| 466 bne L02BE | |
| 467 L0328 stb <u0003 | |
| 468 lbra L01E9 | |
| 12 | 469 Return leax -$01,x |
| 0 | 470 lbsr L03C7 |
| 471 bra L0337 | |
| 12 | 472 NextCmd2 lbsr L03C3 |
| 0 | 473 L0337 bcs L034A |
| 474 lbsr L028F | |
| 475 bsr L035C | |
| 476 L033E bcs L034A | |
| 477 lbsr L01E9 | |
| 478 cmpa #$0D | |
| 479 bne L0349 | |
| 480 leas $04,s | |
| 481 L0349 clrb | |
| 482 L034A lbra L028F | |
| 12 | 483 Backgrnd lbsr L03C3 |
| 0 | 484 bcs L034A |
| 485 bsr L034A | |
| 486 ldb #$26 | |
| 487 lbsr L0495 | |
| 488 bra L033E | |
| 12 | 489 Wait clra |
| 0 | 490 L035C pshs a |
| 491 L035E os9 F$Wait | |
| 492 tst <u000E | |
| 493 beq L0376 | |
| 494 ldb <u000E | |
| 10 | 495 cmpb #S$Abort |
| 0 | 496 bne L038E |
| 497 lda ,s | |
| 498 beq L038E | |
| 499 os9 F$Send | |
| 500 clr ,s | |
| 501 bra L035E | |
| 502 L0376 bcs L0392 | |
| 503 cmpa ,s | |
| 504 beq L038E | |
| 505 tst ,s | |
| 506 beq L0383 | |
| 507 tstb | |
| 508 beq L035E | |
| 509 L0383 pshs b | |
| 510 bsr L034A | |
| 511 ldb #$2D | |
| 512 lbsr L0495 | |
| 513 puls b | |
| 514 L038E tstb | |
| 515 beq L0392 | |
| 516 coma | |
| 517 L0392 puls pc,a | |
| 10 | 518 L0394 lda #Prgrm+Objct |
| 0 | 519 ldb <u0003 |
| 520 ldx <u0004 | |
| 521 ldy <u0006 | |
| 522 ldu <u0008 | |
| 523 rts | |
| 10 | 524 L03A0 lda #EXEC. |
| 0 | 525 os9 I$Open |
| 526 bcs L03FE | |
| 527 leax <u0013,u | |
| 528 ldy #$000D | |
| 529 os9 I$Read | |
| 530 pshs b,cc | |
| 531 os9 I$Close | |
| 532 puls b,cc | |
| 533 lbcs L045F | |
| 534 lda $06,x | |
| 535 ldy $0B,x | |
| 536 bra L03D7 | |
| 537 L03C3 lda #$0D | |
| 538 sta -$01,x | |
| 539 L03C7 pshs u,y,x | |
| 540 clra | |
| 541 ldx <u0004 | |
| 542 os9 F$Link | |
| 543 bcs L03A0 | |
| 544 ldy u000B,u | |
| 545 os9 F$UnLink | |
| 10 | 546 L03D7 cmpa #Prgrm+Objct |
| 0 | 547 beq L0425 |
| 548 sty <u000A | |
| 549 leax >L0013,pcr | |
| 550 L03E2 tst ,x | |
| 551 beq L045D | |
| 552 cmpa ,x+ | |
| 553 beq L03F0 | |
| 554 L03EA tst ,x+ | |
| 555 bpl L03EA | |
| 556 bra L03E2 | |
| 557 L03F0 ldd <u0008 | |
| 558 subd <u0004 | |
| 559 addd <u0006 | |
| 560 std <u0006 | |
| 561 ldd <u0004 | |
| 562 std <u0008 | |
| 563 bra L0423 | |
| 564 L03FE ldx <u0006 | |
| 565 leax $05,x | |
| 566 stx <u0006 | |
| 567 ldx <u0004 | |
| 568 ldu $04,s | |
| 12 | 569 lbsr InRedir |
| 0 | 570 bcs L045F |
| 571 ldu <u0008 | |
| 572 ldd #$5820 | |
| 573 std ,--u | |
| 574 ldd #$5020 | |
| 575 std ,--u | |
| 576 ldb #$2D | |
| 577 stb ,-u | |
| 578 stu <u0008 | |
|
1
d4eb10b30e72
Disassembled and commented shell.asm, removed shell binary
boisy
parents:
0
diff
changeset
|
579 leax >name,pcr |
| 0 | 580 L0423 stx <u0004 |
| 581 L0425 ldx <u0004 | |
| 10 | 582 lda #Prgrm+Objct |
| 0 | 583 os9 F$Link |
| 584 bcc L0433 | |
| 585 os9 F$Load | |
| 586 bcs L045F | |
| 587 L0433 pshs u | |
| 588 tst <u0003 | |
| 589 bne L0442 | |
| 590 ldd u000B,u | |
| 591 addd <u000A | |
| 592 addd #$00FF | |
| 593 sta <u0003 | |
| 594 L0442 lbsr L0394 | |
| 595 os9 F$Fork | |
| 596 puls u | |
| 597 pshs b,cc | |
| 598 bcs L0454 | |
| 599 ldx #$0001 | |
| 600 os9 F$Sleep | |
| 601 L0454 clr <u0004 | |
| 602 clr <u0005 | |
| 603 os9 F$UnLink | |
| 604 puls pc,u,y,x,b,cc | |
|
1
d4eb10b30e72
Disassembled and commented shell.asm, removed shell binary
boisy
parents:
0
diff
changeset
|
605 |
| 10 | 606 L045D ldb #E$NEMod |
| 0 | 607 L045F coma |
| 608 puls pc,u,y,x | |
|
1
d4eb10b30e72
Disassembled and commented shell.asm, removed shell binary
boisy
parents:
0
diff
changeset
|
609 |
|
d4eb10b30e72
Disassembled and commented shell.asm, removed shell binary
boisy
parents:
0
diff
changeset
|
610 L0462 fcc "/pipe" |
|
d4eb10b30e72
Disassembled and commented shell.asm, removed shell binary
boisy
parents:
0
diff
changeset
|
611 fcb C$CR |
| 12 | 612 Pipe pshs x |
| 10 | 613 leax <L0462,pcr |
| 614 ldd #$0103 | |
| 615 lbsr L02DB | |
| 616 puls x | |
| 617 bcs L04C9 | |
| 618 lbsr L03C3 | |
| 619 bcs L04C9 | |
| 620 lda ,u | |
| 621 bne L0487 | |
| 0 | 622 os9 I$Dup |
| 623 bcs L04C9 | |
| 624 sta ,u | |
| 625 L0487 clra | |
| 626 os9 I$Close | |
| 627 lda #$01 | |
| 628 os9 I$Dup | |
| 629 lda #$01 | |
| 630 lbra L029D | |
| 10 | 631 |
| 0 | 632 L0495 pshs y,x,b,a |
| 633 pshs y,x,b | |
| 634 leax $01,s | |
| 635 ldb #$2F | |
| 636 L049D incb | |
| 637 suba #$64 | |
| 638 bcc L049D | |
| 639 stb ,x+ | |
| 640 ldb #$3A | |
| 641 L04A6 decb | |
| 642 adda #$0A | |
| 643 bcc L04A6 | |
| 644 stb ,x+ | |
| 645 adda #$30 | |
| 646 ldb #$0D | |
| 647 std ,x | |
| 648 leax ,s | |
| 649 lbsr L00BF | |
| 650 leas $05,s | |
| 651 puls pc,y,x,b,a | |
| 12 | 652 |
| 653 Kill bsr L04CA | |
| 0 | 654 cmpb #$02 |
| 655 bcs L04E5 | |
| 656 tfr b,a | |
| 10 | 657 ldb #S$Kill |
| 0 | 658 os9 F$Send |
| 659 L04C9 rts | |
| 660 L04CA clrb | |
| 10 | 661 |
| 0 | 662 L04CB lda ,x+ |
| 663 suba #$30 | |
| 664 cmpa #$09 | |
| 665 bhi L04DC | |
| 666 pshs a | |
| 667 lda #$0A | |
| 668 mul | |
| 669 addb ,s+ | |
| 670 bcc L04CB | |
| 671 L04DC lda ,-x | |
| 672 bcs L04E3 | |
| 673 tstb | |
| 674 bne L04C9 | |
| 675 L04E3 leas $02,s | |
| 676 L04E5 lbra L02BE | |
| 12 | 677 SetPr bsr L04CA |
| 0 | 678 stb <u0012 |
| 679 lbsr L01E9 | |
| 680 bsr L04CA | |
| 681 lda <u0012 | |
| 682 os9 F$SPrior | |
| 683 rts | |
| 10 | 684 |
| 0 | 685 emod |
| 686 eom equ * | |
| 10 | 687 end |