Mercurial > hg > Members > kono > nitros9-code
changeset 1762:cd6eed1de2e5
Updates to add uumon
| author | boisy |
|---|---|
| date | Fri, 01 Apr 2005 16:40:46 +0000 |
| parents | 480df7549772 |
| children | fc0c02375475 |
| files | 3rdparty/packages/uucpbb/cmds_6309/defsfile 3rdparty/packages/uucpbb/cmds_6309/makefile 3rdparty/packages/uucpbb/cmds_6309/uumon.asm 3rdparty/packages/uucpbb/cmds_6309/win/uumon.asm 3rdparty/packages/uucpbb/cmds_6809/defsfile 3rdparty/packages/uucpbb/cmds_6809/makefile 3rdparty/packages/uucpbb/cmds_6809/uumon.asm 3rdparty/packages/uucpbb/cmds_6809/win/uumon.asm 3rdparty/packages/uucpbb/makefile |
| diffstat | 9 files changed, 332 insertions(+), 127 deletions(-) [+] |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/3rdparty/packages/uucpbb/cmds_6309/defsfile Fri Apr 01 16:40:46 2005 +0000 @@ -0,0 +1,5 @@ +Level equ 2 + + use os9defs + use scfdefs + use systype
--- a/3rdparty/packages/uucpbb/cmds_6309/makefile Fri Apr 01 14:44:02 2005 +0000 +++ b/3rdparty/packages/uucpbb/cmds_6309/makefile Fri Apr 01 16:40:46 2005 +0000 @@ -4,8 +4,9 @@ CMDS_TCAP = tcap/adduser tcap/chown tcap/cnvrtmail tcap/dotilde tcap/expire tcap/fileserv tcap/fixtext tcap/login tcap/mailx tcap/postnews tcap/readnews tcap/rmail tcap/rnews tcap/subscribe tcap/unsubscribe tcap/uucico tcap/uuclean tcap/uucp tcap/uudecode tcap/uuencode tcap/uulog tcap/uuname tcap/uuxqt tcap/whoami CMDS_WIN = win/adduser win/chown win/cnvrtmail win/dotilde win/expire win/fileserv win/fixtext win/login win/mailx win/postnews win/readnews win/rmail win/rnews win/subscribe win/unsubscribe win/uucico win/uuclean win/uucp win/uudecode win/uuencode win/uulog win/uuname win/uuxqt win/whoami +CMDS = uumon -ALLOBJS = $(CMDS_TCAP) $(CMDS_WIN) +ALLOBJS = $(CMDS_TCAP) $(CMDS_WIN) $(CMDS) all: $(ALLOBJS) @@ -18,5 +19,8 @@ showwinobjs: @$(ECHO) $(CMDS_WIN) +showobjs: + @$(ECHO) $(CMDS) + identify: $(IDENT_SHORT) $(ALLOBJS)
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/3rdparty/packages/uucpbb/cmds_6309/uumon.asm Fri Apr 01 16:40:46 2005 +0000 @@ -0,0 +1,92 @@ +******************************************************************* +* 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
--- a/3rdparty/packages/uucpbb/cmds_6309/win/uumon.asm Fri Apr 01 14:44:02 2005 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,92 +0,0 @@ -******************************************************************* -* 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
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/3rdparty/packages/uucpbb/cmds_6809/defsfile Fri Apr 01 16:40:46 2005 +0000 @@ -0,0 +1,5 @@ +Level equ 2 + + use os9defs + use scfdefs + use systype
--- a/3rdparty/packages/uucpbb/cmds_6809/makefile Fri Apr 01 14:44:02 2005 +0000 +++ b/3rdparty/packages/uucpbb/cmds_6809/makefile Fri Apr 01 16:40:46 2005 +0000 @@ -4,8 +4,9 @@ CMDS_TCAP = tcap/adduser tcap/chown tcap/cnvrtmail tcap/dotilde tcap/expire tcap/fileserv tcap/fixtext tcap/login tcap/mailx tcap/postnews tcap/readnews tcap/rmail tcap/rnews tcap/subscribe tcap/unsubscribe tcap/uucico tcap/uuclean tcap/uucp tcap/uudecode tcap/uuencode tcap/uulog tcap/uuname tcap/uuxqt tcap/whoami CMDS_WIN = win/adduser win/chown win/cnvrtmail win/dotilde win/expire win/fileserv win/fixtext win/login win/mailx win/postnews win/readnews win/rmail win/rnews win/subscribe win/unsubscribe win/uucico win/uuclean win/uucp win/uudecode win/uuencode win/uulog win/uuname win/uuxqt win/whoami +CMDS = uumon -ALLOBJS = $(CMDS_TCAP) $(CMDS_WIN) +ALLOBJS = $(CMDS_TCAP) $(CMDS_WIN) $(CMDS) all: $(ALLOBJS) @@ -18,5 +19,8 @@ showwinobjs: @$(ECHO) $(CMDS_WIN) +showobjs: + @$(ECHO) $(CMDS) + identify: $(IDENT_SHORT) $(ALLOBJS)
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/3rdparty/packages/uucpbb/cmds_6809/uumon.asm Fri Apr 01 16:40:46 2005 +0000 @@ -0,0 +1,92 @@ +******************************************************************* +* 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
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/3rdparty/packages/uucpbb/cmds_6809/win/uumon.asm Fri Apr 01 16:40:46 2005 +0000 @@ -0,0 +1,92 @@ +******************************************************************* +* 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
--- a/3rdparty/packages/uucpbb/makefile Fri Apr 01 14:44:02 2005 +0000 +++ b/3rdparty/packages/uucpbb/makefile Fri Apr 01 16:40:46 2005 +0000 @@ -2,10 +2,12 @@ DISK68 = uucpbb21_6809.dsk DISK63 = uucpbb21_6309.dsk -CMDS68TCAP = $(shell $(CD) cmds_6809; make showtcapobjs) -CMDS68WIN = $(shell $(CD) cmds_6809; make showwinobjs) -CMDS63TCAP = $(shell $(CD) cmds_6309; make showtcapobjs) -CMDS63WIN = $(shell $(CD) cmds_6309; make showwinobjs) +CMDS68 = $(shell $(CD) cmds_6809; make showobjs) +CMDS68TCAP = $(shell $(CD) cmds_6809; make showtcapobjs) $(CMDS68) +CMDS68WIN = $(shell $(CD) cmds_6809; make showwinobjs) $(CMDS68) +CMDS63 = $(shell $(CD) cmds_6309; make showobjs) +CMDS63TCAP = $(shell $(CD) cmds_6309; make showtcapobjs) $(CMDS63) +CMDS63WIN = $(shell $(CD) cmds_6309; make showwinobjs) $(CMDS63) CONFIG = Devices FileServ.help Systems bin.list Dialers Parameters active distributions DOCS = adduser.man aliases.doc chown.man cnvrtmail.man fileserv.man fixtext.man login.man mailrc.doc mailx.man parameters.doc postnews.man profile.doc readnews.man rmail.man rnews.man signature.doc subscribe.man uucico.man uuclean.man uucp.man uucpbb.doc uulog.man uuxqt.man whoami.man @@ -27,50 +29,51 @@ dsk: all $(RM) $(DISK68) $(OS9FORMAT) -l10000 $(DISK68) -q -n"UUCPbb v2.1 6809" - $(MAKDIR) $(DISK68),CMDS_WIN - $(MAKDIR) $(DISK68),CMDS_TCAP $(MAKDIR) $(DISK68),UUCP + $(MAKDIR) $(DISK68),UUCP/CMDS_WIN + $(MAKDIR) $(DISK68),UUCP/CMDS_TCAP $(MAKDIR) $(DISK68),UUCP/DOC - $(MAKDIR) $(DISK68),USR - $(MAKDIR) $(DISK68),USR/SPOOL - $(MAKDIR) $(DISK68),USR/SPOOL/MAIL - $(MAKDIR) $(DISK68),USR/SPOOL/NEWS - $(MAKDIR) $(DISK68),USR/SPOOL/UUCP - $(MAKDIR) $(DISK68),USR/SPOOL/UUCPPUBLIC - $(MAKDIR) $(DISK68),USR/SPOOL/REDHAT + $(MAKDIR) $(DISK68),UUCP/SPOOL + $(MAKDIR) $(DISK68),UUCP/SPOOL/MAIL + $(MAKDIR) $(DISK68),UUCP/SPOOL/NEWS + $(MAKDIR) $(DISK68),UUCP/SPOOL/UUCP + $(MAKDIR) $(DISK68),UUCP/SPOOL/UUCPPUBLIC + $(MAKDIR) $(DISK68),UUCP/SPOOL/REDHAT $(MAKDIR) $(DISK68),SYS $(MAKDIR) $(DISK68),SYS/UUCP $(CD) sample_config; $(CPL) $(CONFIG) ../$(DISK68),SYS/UUCP - - $(CD) cmds_6809; $(CP) $(CMDS68TCAP) ../$(DISK68),CMDS_TCAP - $(foreach file, $(CMDS68TCAP), $(OS9ATTR_EXEC) $(DISK68),CMDS_TCAP/$(notdir $(file));) - $(CD) cmds_6809; $(CP) $(CMDS68WIN) ../$(DISK68),CMDS_WIN - $(foreach file, $(CMDS68WIN), $(OS9ATTR_EXEC) $(DISK68),CMDS_WIN/$(notdir $(file));) + $(CD) cmds_6809; $(CP) $(CMDS68) ../$(DISK68),UUCP/CMDS_TCAP + $(CD) cmds_6809; $(CP) $(CMDS68TCAP) ../$(DISK68),UUCP/CMDS_TCAP + $(foreach file, $(CMDS68TCAP), $(OS9ATTR_EXEC) $(DISK68),UUCP/CMDS_TCAP/$(notdir $(file));) + $(CD) cmds_6809; $(CP) $(CMDS68) ../$(DISK68),UUCP/CMDS_WIN + $(CD) cmds_6809; $(CP) $(CMDS68WIN) ../$(DISK68),UUCP/CMDS_WIN + $(foreach file, $(CMDS68WIN), $(OS9ATTR_EXEC) $(DISK68),UUCP/CMDS_WIN/$(notdir $(file));) $(CD) doc; $(CPL) $(DOCS) ../$(DISK68),UUCP/DOC - $(CPL) copying readme.first $(DISK68), + $(CPL) copying readme.first $(DISK68),UUCP $(RM) $(DISK63) $(OS9FORMAT) -l10000 $(DISK63) -q -n"UUCPbb v2.1 6309" - $(MAKDIR) $(DISK63),CMDS_WIN - $(MAKDIR) $(DISK63),CMDS_TCAP $(MAKDIR) $(DISK63),UUCP $(MAKDIR) $(DISK63),UUCP/DOC - $(MAKDIR) $(DISK63),USR - $(MAKDIR) $(DISK63),USR/SPOOL - $(MAKDIR) $(DISK63),USR/SPOOL/MAIL - $(MAKDIR) $(DISK63),USR/SPOOL/NEWS - $(MAKDIR) $(DISK63),USR/SPOOL/UUCP - $(MAKDIR) $(DISK63),USR/SPOOL/UUCPPUBLIC - $(MAKDIR) $(DISK63),USR/SPOOL/REDHAT + $(MAKDIR) $(DISK63),UUCP/CMDS_WIN + $(MAKDIR) $(DISK63),UUCP/CMDS_TCAP + $(MAKDIR) $(DISK63),UUCP/SPOOL + $(MAKDIR) $(DISK63),UUCP/SPOOL/MAIL + $(MAKDIR) $(DISK63),UUCP/SPOOL/NEWS + $(MAKDIR) $(DISK63),UUCP/SPOOL/UUCP + $(MAKDIR) $(DISK63),UUCP/SPOOL/UUCPPUBLIC + $(MAKDIR) $(DISK63),UUCP/SPOOL/REDHAT $(MAKDIR) $(DISK63),SYS $(MAKDIR) $(DISK63),SYS/UUCP $(CD) sample_config; $(CPL) $(CONFIG) ../$(DISK63),SYS/UUCP - $(CD) cmds_6309; $(CP) $(CMDS63TCAP) ../$(DISK63),CMDS_TCAP - $(foreach file, $(CMDS63TCAP), $(OS9ATTR_EXEC) $(DISK63),CMDS_TCAP/$(notdir $(file));) - $(CD) cmds_6309; $(CP) $(CMDS63WIN) ../$(DISK63),CMDS_WIN - $(foreach file, $(CMDS63WIN), $(OS9ATTR_EXEC) $(DISK63),CMDS_WIN/$(notdir $(file));) + $(CD) cmds_6309; $(CP) $(CMDS63) ../$(DISK63),UUCP/CMDS_TCAP + $(CD) cmds_6309; $(CP) $(CMDS63TCAP) ../$(DISK63),UUCP/CMDS_TCAP + $(foreach file, $(CMDS63TCAP), $(OS9ATTR_EXEC) $(DISK63),UUCP/CMDS_TCAP/$(notdir $(file));) + $(CD) cmds_6309; $(CP) $(CMDS63) ../$(DISK63),UUCP/CMDS_WIN + $(CD) cmds_6309; $(CP) $(CMDS63WIN) ../$(DISK63),UUCP/CMDS_WIN + $(foreach file, $(CMDS63WIN), $(OS9ATTR_EXEC) $(DISK63),UUCP/CMDS_WIN/$(notdir $(file));) $(CD) doc; $(CPL) $(DOCS) ../$(DISK63),UUCP/DOC - $(CPL) copying readme.first $(DISK63), + $(CPL) copying readme.first $(DISK63),UUCP dskcopy: dsk $(CP) $(DISK68) $(DSKDIR)