Mercurial > hg > Members > kono > nitros9-code

annotate level1/cmds/list.asm @ 200:e9ce43cc215e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Made major changes to headers for consistency and identification
author boisy
date Mon, 15 Jul 2002 03:42:42 +0000
parents 6641a883d6b0
children 4caaf0f992bf
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1 ********************************************************************
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
2 * List - List a text file
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
3 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
4 * $Id$
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
5 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
6 * Ed. Comments Who YY/MM/DD
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
7 * ------------------------------------------------------------------
200
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 0
diff changeset
8 * 5 From Tandy OS-9 Level One VR 02.00.00
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
9
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
10 nam List
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
11 ttl List a text file
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
12
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
13 * Disassembled 98/09/10 23:16:25 by Disasm v1.6 (C) 1988 by RML
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
14
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
15 ifp1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
16 use defsfile
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
17 endc
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
18
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
19 tylg set Prgrm+Objct
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
20 atrv set ReEnt+rev
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
21 rev set $01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
22 edition set 5
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
23
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
24 mod eom,name,tylg,atrv,start,size
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
25 u0000 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
26 ParmPtr rmb 2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
27 u0003 rmb 650
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
28 size equ .
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
29
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
30 name fcs /List/
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
31 fcb edition
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
32
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
33 start stx <ParmPtr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
34 lda #1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
35 os9 I$Open
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
36 bcs L0049
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
37 sta <u0000
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
38 stx <ParmPtr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
39 L001F lda <u0000
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
40 leax u0003,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
41 ldy #200
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
42 os9 I$ReadLn
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
43 bcs L0035
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
44 lda #1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
45 os9 I$WritLn
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
46 bcc L001F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
47 bra L0049
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
48 L0035 cmpb #E$EOF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
49 bne L0049
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
50 lda <u0000
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
51 os9 I$Close
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
52 bcs L0049
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
53 ldx <ParmPtr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
54 lda ,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
55 cmpa #C$CR
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
56 bne start
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
57 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
58 L0049 os9 F$Exit
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
59
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
60 emod
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
61 eom equ *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
62 end