Mercurial > hg > Members > kono > nitros9-code

comparison level1/cmds/list.asm @ 0:6641a883d6b0

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