Mercurial > hg > Members > kono > nitros9-code

view 3rdparty/packages/uucpbb/cmds_6809/uumon.asm @ 3267:024ad1d926fd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Get gfx2 to build from cmds folders Now that gfx2.asm needs to include coco3vtio.d the latter needs to be built first and be accessed from the port-specific defs folder. OTOH the one built in 3rd-party/packages/basic09 is built only later during a full build. (All the different defs folders and .d files still puzzle me.) Also updated coco3fpga/defs/makefile to be based on the coco3 one. The mc09l2 port doesn't need gfx and gfx2. Note for later: This whole build of basic09 components from the 3rdparty folder during the ports builds is not very nice. At a minimum we should try to limit the extra --includedir to the few commands needing it.
author Tormod Volden <debian.tormod@gmail.com>
date Wed, 17 Jul 2019 01:14:55 +0200
parents cd6eed1de2e5
children
line wrap: on
line source

*******************************************************************
* Tsmon - Timesharing monitor
*
* $Id$
*
* Edt/Rev  YYYY/MM/DD  Modified by
* Comment
* ------------------------------------------------------------------
*   6      ????/??/??
* From Tandy OS-9 Level Two VR 02.00.01.

         nam   Tsmon
         ttl   Timesharing monitor

* Disassembled 02/07/13 23:44:55 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   8

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

         org   0
childid  rmb   1
parmptr  rmb   2
parmlen  rmb   2
inbuff   rmb   451
size     equ   .

name     fcs   /uumon/
         fcb   edition

Login    fcc   "uucico"
         fcb   C$CR
LoginPrm fcc   "-r"
         fcb   C$CR
LoginPSz equ   *-LoginPrm

IcptRtn  rti

start    stx   <parmptr			save parameter pointer
         std   <parmlen			save parameter length
         leax  <IcptRtn,pcr		point to intercept routine
         os9   F$Icpt   		and set it
L0024    ldx   <parmptr			get pointer to parameter
         ldd   <parmlen			and length
         cmpd  #$0002			
         bcs   L0052
         lda   ,x			get byte at command line
         cmpa  #C$CR			cr?
         beq   L0052			if so, branch
         clra  				stdin
         os9   I$Close  		close it
         lda   #UPDAT.
         os9   I$Open   		open device on command line
         bcs   Exit			branch if error
         inca  				A = 1
         os9   I$Close  		close stdout
         inca  				A = 2
         os9   I$Close  		close stderr
         clra  				stdin path
         os9   I$Dup    		dup to stdout
         bcs   Exit			branch if error
         os9   I$Dup    		dup to stderr
         bcs   Exit			branch if error
L0052    clra  				stdin
         leax  inbuff,u			point to buffer
         ldy   #$0001			read 1 byte
         os9   I$ReadLn 		read line
         bcs   L0024			branch if error
         lda   #Objct			object
         clrb  				no additional mem
         leax  <Login,pcr		point to login
         leau  <LoginPrm,pcr		and to parameters
         ldy   #LoginPSz		parameter size
         os9   F$Fork   		fork program
         bcs   L0024			branch if error
         sta   <childid			else save process ID of child
L0072    os9   F$Wait   		wait for it to finish
         cmpa  <childid			same as PID we forked?
         bne   L0072			if not, wait more
         bra   L0024			else go back
Exit     os9   F$Exit   		exit

         emod
eom      equ   *
         end