Mercurial > hg > Members > kono > nitros9-code

annotate 3rdparty/packages/uucpbb/cmds_6809/uumon.asm @ 2951:63fb45a6007b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
coyota: Rename assembler files to .as
author Tormod Volden <debian.tormod@gmail.com>
date Sun, 09 Feb 2014 21:06:29 +0100
parents cd6eed1de2e5
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1762
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
1 *******************************************************************
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
2 * Tsmon - Timesharing monitor
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
3 *
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
4 * $Id$
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
5 *
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
6 * Edt/Rev YYYY/MM/DD Modified by
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
7 * Comment
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
8 * ------------------------------------------------------------------
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
9 * 6 ????/??/??
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
10 * From Tandy OS-9 Level Two VR 02.00.01.
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
11
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
12 nam Tsmon
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
13 ttl Timesharing monitor
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
14
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
15 * Disassembled 02/07/13 23:44:55 by Disasm v1.6 (C) 1988 by RML
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
16
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
17 ifp1
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
18 use defsfile
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
19 endc
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
20
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
21 tylg set Prgrm+Objct
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
22 atrv set ReEnt+rev
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
23 rev set $00
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
24 edition set 8
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
25
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
26 mod eom,name,tylg,atrv,start,size
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
27
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
28 org 0
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
29 childid rmb 1
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
30 parmptr rmb 2
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
31 parmlen rmb 2
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
32 inbuff rmb 451
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
33 size equ .
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
34
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
35 name fcs /uumon/
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
36 fcb edition
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
37
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
38 Login fcc "uucico"
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
39 fcb C$CR
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
40 LoginPrm fcc "-r"
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
41 fcb C$CR
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
42 LoginPSz equ *-LoginPrm
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
43
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
44 IcptRtn rti
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
45
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
46 start stx <parmptr save parameter pointer
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
47 std <parmlen save parameter length
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
48 leax <IcptRtn,pcr point to intercept routine
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
49 os9 F$Icpt and set it
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
50 L0024 ldx <parmptr get pointer to parameter
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
51 ldd <parmlen and length
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
52 cmpd #$0002
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
53 bcs L0052
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
54 lda ,x get byte at command line
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
55 cmpa #C$CR cr?
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
56 beq L0052 if so, branch
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
57 clra stdin
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
58 os9 I$Close close it
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
59 lda #UPDAT.
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
60 os9 I$Open open device on command line
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
61 bcs Exit branch if error
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
62 inca A = 1
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
63 os9 I$Close close stdout
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
64 inca A = 2
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
65 os9 I$Close close stderr
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
66 clra stdin path
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
67 os9 I$Dup dup to stdout
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
68 bcs Exit branch if error
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
69 os9 I$Dup dup to stderr
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
70 bcs Exit branch if error
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
71 L0052 clra stdin
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
72 leax inbuff,u point to buffer
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
73 ldy #$0001 read 1 byte
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
74 os9 I$ReadLn read line
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
75 bcs L0024 branch if error
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
76 lda #Objct object
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
77 clrb no additional mem
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
78 leax <Login,pcr point to login
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
79 leau <LoginPrm,pcr and to parameters
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
80 ldy #LoginPSz parameter size
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
81 os9 F$Fork fork program
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
82 bcs L0024 branch if error
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
83 sta <childid else save process ID of child
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
84 L0072 os9 F$Wait wait for it to finish
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
85 cmpa <childid same as PID we forked?
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
86 bne L0072 if not, wait more
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
87 bra L0024 else go back
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
88 Exit os9 F$Exit exit
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
89
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
90 emod
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
91 eom equ *
cd6eed1de2e5 Updates to add uumon
boisy
parents:
diff changeset
92 end