Mercurial > hg > Members > kono > nitros9-code

view level1/cmds/list.asm @ 15:0912ac5dc2ff

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added initial and dates to some source files added mfree.asm, modified makefile
author boisy
date Fri, 05 Apr 2002 21:35:25 +0000
parents 6641a883d6b0
children e9ce43cc215e
line wrap: on
line source

********************************************************************
* List - List a text file
*
* $Id$
*
* Ed.    Comments                                       Who YY/MM/DD
* ------------------------------------------------------------------
* 5      Original Tandy/Microware version

         nam   List
         ttl   List a text file

* Disassembled 98/09/10 23:16:25 by Disasm v1.6 (C) 1988 by RML

         ifp1
         use   defsfile
         endc

tylg     set   Prgrm+Objct   
atrv     set   ReEnt+rev
rev      set   $01
edition  set   5

         mod   eom,name,tylg,atrv,start,size
u0000    rmb   1
ParmPtr  rmb   2
u0003    rmb   650
size     equ   .

name     fcs   /List/
         fcb   edition

start    stx   <ParmPtr
         lda   #1
         os9   I$Open   
         bcs   L0049
         sta   <u0000
         stx   <ParmPtr
L001F    lda   <u0000
         leax  u0003,u
         ldy   #200
         os9   I$ReadLn 
         bcs   L0035
         lda   #1
         os9   I$WritLn 
         bcc   L001F
         bra   L0049
L0035    cmpb  #E$EOF
         bne   L0049
         lda   <u0000
         os9   I$Close  
         bcs   L0049
         ldx   <ParmPtr
         lda   ,x
         cmpa  #C$CR
         bne   start
         clrb  
L0049    os9   F$Exit   

         emod
eom      equ   *
         end