1 * ***********************************************************
2 * * *
3 * * Copyright, C Honeywell Information Systems Inc., 1982 *
4 * * *
5 * * Copyright c 1972 by Massachusetts Institute of *
6 * * Technology and Honeywell Information Systems, Inc. *
7 * * *
8 * ***********************************************************
9
10 lbl ,acu_tables
11 ttl acu_tables
12 editp on
13 pmc off
14 pcc off
15 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
16 *
17 *
18 * acu_tables, acu
19 *
20 * these are the control tables for managing auto-call units
21 *
22 * split off from control_tables by Robert Coren 4/29/76
23 * Modified 81-01-13 by E. N. Kittlitz to allow central hangups while
24 * dialing out.
25 *
26 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
27 eject
28 acu null
29 rem
30 symdef acu
31 rem
32 symdef acutst
33 rem
34 symref chkaut
35 symref hungup
36 symref bscacu return from bisync autocall
37 symref g15acu return from g115 autocall
38 rem
39 start acu,,w3atcm090000
40 pmc save,on
41 tib
42 csbits
43 tconst
44 pmc restore
45 ttls acu - use auto call unit to dial a phone number
46 acutst ifhsla canacu /* only hsla's support acu's */
47 clrflg tfacu /* not acu'ing anymore */
48 signal acung /* no good acu attempt */
49 waitm /* continue waiting */
50 rem
51 canacu setime 60 /* timer for dialing process */
52 contrl stat /* get line's status */
53 rem
54 wait acuoot,0,tstat /* wait for status */
55 status 0,pwi,nopwr /* check that acu has power */
56 status dlo,0,busy /* and line is not being used */
57 status pwi,dlo,acurdy /* line is all set for acu */
58 rem
59 acurdy config
60 rmode fg.icw /* need single icw configuration */
61 rem
62 dcwlst /* dcw list to 'write' phone number */
63 cmd sdtr+srts+sxmit,scrq
64 output outmsg /* use t.ocp as addr of buffer */
65 cmd rxmit+sterm
66 rem
67 wait acuoot,0,tstat /* wait for terminate status */
68 status term,0,acusr
69 rem
70 acusr wait acuoot,0,tstat /* once started, wait for dialup status */
71 status acr,0,acuoot /* acr - abandon call and retry */
72 status cts+dsr+ads,0,acudl /* dial succeeded */
73 rem
74 nopwr signal acupwi /* inform 6180 */
75 goto noacu
76 rem
77 busy signal acudlo
78 goto noacu
79 rem
80 tstat tstflg tfhang,achng /* hangup order? */
81 waitm /* nope - continue waiting */
82 rem
83 achng clrflg tfhang /* acknowledge hangup */
84 signal hangup
85 goto otjoin /* finish hanging up */
86 rem
87 acuoot signal acuacr
88 otjoin config
89 smode fg.icw /* back to 2 icw configuration */
90 contrl rdtr+rrts,rcrq
91 stpchn
92 dmpout
93 goto noacu
94 rem
95 noacu clrflg tfacu /* not acu'ing anymore */
96 goto hungup
97 rem
98 acudl config
99 smode fg.icw /* back to 2 icw configuration */
100 iftype ttasci,kprts /* don't turn off rts for ascii */
101 contrl rrts,rcrq
102 goto acufin
103 kprts contrl 0,rcrq
104 acufin null
105 clrflg tfacu /* acu successful, reset the flag */
106 iftype ttbsc,bscacu /* return from bisync autocall */
107 iftype ttg115,g15acu /* return from g115 autocall */
108 goto chkaut /* tell 6180 */
109 end