Mercurial > hg > Members > kono > nitros9-code

comparison level1/cmds/dump.asm @ 901:8786f4894882

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Removed -d option
author boisy
date Sat, 18 Jan 2003 05:56:12 +0000
parents 6393d53ce3c7
children 617c1b90e623
comparison
equal deleted inserted replaced
900:d7969e08a482 901:8786f4894882
7 * ------------------------------------------------------------------ 7 * ------------------------------------------------------------------
8 * 5 From Tandy OS-9 Level One VR 02.00.00 8 * 5 From Tandy OS-9 Level One VR 02.00.00
9 * 6 Incorporated R. Telkman's additions from 1987, BGP 02/12/23 9 * 6 Incorporated R. Telkman's additions from 1987, BGP 02/12/23
10 * added -d option, added defs to conditionally 10 * added -d option, added defs to conditionally
11 * assemble without help or screen size check 11 * assemble without help or screen size check
12 *
13 * Removed -d option BGP 03/01/17
12 * 14 *
13 * Dump follows the function of the original Microware version but now 15 * Dump follows the function of the original Microware version but now
14 * supports large files over 64K, and is free from the problems of garbage 16 * supports large files over 64K, and is free from the problems of garbage
15 * in wide listings. 17 * in wide listings.
16 * 18 *
121 cmpa #C$CR 123 cmpa #C$CR
122 beq Pass2 124 beq Pass2
123 125
124 anda #$DF 126 anda #$DF
125 127
126 cmpa #'D
127 bne IsItH
128
129 * Process D here
130 lda <Mode
131 ora #DIR.
132 sta <Mode
133 bra OptPass
134
135 IsItH cmpa #'H 128 IsItH cmpa #'H
136 bne IsItM 129 bne IsItM
137 130
138 * Process H here 131 * Process H here
139 sta <D.Hdr 132 sta <D.Hdr
214 * ldx <D.Prm 207 * ldx <D.Prm
215 tst <D.Mem 208 tst <D.Mem
216 bne mlink 209 bne mlink
217 lda <Mode 210 lda <Mode
218 opath os9 I$Open 211 opath os9 I$Open
219 bcs DoExit 212 bcc DumpIn
213 ora #DIR. try directory mode
214 os9 I$Open open it
215 bcs DoExit branch if error
220 DumpIn stx <D.Prm 216 DumpIn stx <D.Prm
221 sta <D.Opn 217 sta <D.Opn
222 ldx <D.Beg 218 ldx <D.Beg
223 ldd M$Size,x 219 ldd M$Size,x
224 leax d,x 220 leax d,x
370 puls a,pc 366 puls a,pc
371 367
372 IFNE DOHELP 368 IFNE DOHELP
373 HelpMsg fcc "Use: Dump [opts] [<path>] [opts]" 369 HelpMsg fcc "Use: Dump [opts] [<path>] [opts]"
374 fcb C$CR,C$LF 370 fcb C$CR,C$LF
375 fcc " -d = dump directory"
376 fcb C$CR,C$LF
377 fcc " -h = no header" 371 fcc " -h = no header"
378 fcb C$CR,C$LF 372 fcb C$CR,C$LF
379 fcc " -m = module in memory" 373 fcc " -m = module in memory"
380 fcb C$CR,C$LF 374 fcb C$CR,C$LF
381 fcc " -x = file in exec dir" 375 fcc " -x = file in exec dir"