Mercurial > hg > Members > kono > nitros9-code

view level1/cmds/tee.asm @ 2798:b70d93f8d7ce lwtools-port

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Updated coco1/modules/makefile and coco3/modules/makefile to help resolve issues with i(x) and s(x) descriptors. Updated level1/coco1/modules/makefile & level2/coco3/modules/makefile so that correct values would be sent to assembler when building superdesc.asm for s(x).dd and i(x).dd descriptors.
author drencor-xeen
date Mon, 28 Jan 2013 16:13:05 -0600
parents 585e04f3959d
children
line wrap: on
line source

********************************************************************
* Tee - Split output to multiple devices
*
* $Id$
*
* Edt/Rev  YYYY/MM/DD  Modified by
* Comment
* ------------------------------------------------------------------
*   2      ????/??/??
* From Tandy OS-9 Level One VR 02.00.00.

         nam   Tee
         ttl   Split output to multiple devices

* Disassembled 98/09/14 23:50:52 by Disasm v1.6 (C) 1988 by RML

         ifp1
         use   defsfile
         endc

tylg     set   Prgrm+Objct   
atrv     set   ReEnt+rev
rev      set   $00
edition  set   2

         mod   eom,name,tylg,atrv,start,size

         org   0
u0000    rmb   1
parray   rmb   13
pcount   rmb   1
buff     rmb   256
         rmb   450
size     equ   .

name     fcs   /Tee/
         fcb   edition

start    clrb  
         clr   pcount,u		clear path counter
         cmpy  #$0000		any parameters?
         lbeq  exitok		exit if none
         leay  parray,u		else point Y to path array

* Walk the command line parameters
parse    lda   ,x+
         cmpa  #C$SPAC
         beq   parse
         cmpa  #C$COMA
         beq   parse
         cmpa  #C$CR
         lbeq  parsex
* We've found a file or device name
         leax  -1,x
         lda   #WRITE.
         ldb   #PREAD.+UPDAT.
         os9   I$Create 	open a path to the device or file
         bcs   exit		branch if error
         ldb   pcount,u		else get path counter
         sta   b,y		save new path in the array offset
         incb  			increment counter
         stb   pcount,u		and save
         bra   parse		continue parsing command line
parsex   stb   pcount,u

* Devices on command line are open, start pumping data
L0044    clra  
         leax  buff,u
         ldy   #256
         os9   I$ReadLn 
         bcc   L0057
         cmpb  #E$EOF
         beq   exitok
         coma  
         bra   exit
L0057    inca  
         os9   I$WritLn 
         tst   pcount,u
         beq   L0044
         clrb  
L0060    leay  parray,u
         lda   b,y
         leax  buff,u
         ldy   #256
         os9   I$WritLn 
         bcs   exit
         incb  
         cmpb  pcount,u
         bne   L0060
         bra   L0044
exitok   clrb  
exit     os9   F$Exit   

         emod
eom      equ   *
         end