XMC1 ;ISC-SF/GMB-Script Interpreter ;07/23/2002 10:15
Source file <XMC1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DI | ; Dial phone
|
|
| DIAL(XMNUMS) | ;
|
|
| EN(XMINST,XMSITE,XMSCRN,XMROOT) | ;
|
|
| RESUME | ; Resume script processing
|
|
| ERTRAN(XMDIALOG,XM1,XM2,XM3) | ;
|
|
| INDIR(XMC1) | ; GET INDIRECT REFERENCE
|
|
| C | ; Call a subroutine
|
|
| E | ; Set error message to be displayed.
|
|
| D | ; Dial numbers sucessively (Strip all punctuation not in XMSTRIP string)
|
|
| F | ; Flush buffer
|
|
| H | ; Hang up phone
|
|
| M | ; Send mail
|
|
| L | ; Look for string
|
|
| O | ; Open device, protocol, and host
|
|
| DOTRAN(XMDIALOG,XM1,XM2,XM3) | ;
|
|
| S | ; Send line
|
|
| ENT | ;
; Expects as input: ; XMINST Domain IEN ; XMSITE Domain name ; XMB("SCR IEN") Script IEN |
|
| T | ;
|
|
| W | ; Wait a number of seconds
|
|
| IN | ;To |1| from |2| beginning |3|
|
|
| X | ; Execute a line of code
|
|
| USESCR(XMINST,XMB) | ; Function returns 1 if we should use the existing
; script, or 0 if we should build a TCP/IP script. |
|
| DIALTRY(XMNUM) | ;
|
|
| INT(X,XMCI) | ; Interpret the script line
; X script line |
|
| TRAN | ;
|
|
| FLUSH | ; Flush buffer
|
| Name | Field # of Occurrence |
|---|---|
| ^%ZIS | RESUME+3 |
| $$NEWERR^%ZTER | ENT+5, EN+1 |
| $$EZBLD^DIALOG | DI+3, DOTRAN+3, RESUME+7 |
| ^DIC | C+3 |
| FILE^DIE | O+11 |
| ^DIR | DI+4, RESUME+9 |
| $$FMTE^XLFDT | IN+1 |
| $$UP^XLFSTR | INT+4 |
| LOOK^XMC1A | L+1 |
| CLOSE^XMC1B | IN+20 |
| OPEN^XMC1B | O+2 |
| $$RTRAN^XMCU1 | S+7 |
| GET^XMCXT | ENT+10 |
| BUFLUSH^XML | F+2 |
| ENTER^XMS | M+2 |
| STAT^XMTDR | ENT+11 |
| Name | Line Occurrences |
|---|---|
| Function Call: READ |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^XMB(4.6 - [#4.6] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("TRAP" | ENT+6, EN+2 |
| ^DIC(3.4 - [#3.4] | IN+10 |
| ^DIC(4.2 - [#4.2] | ENT+13, ENT+16, USESCR+6, RESUME+5, RESUME+6 |
| ^TMP("XMC" | TRAN+6* |
| ^TMP("XMY" | ENT+7! |
| ^TMP("XMY0" | ENT+7! |
| ^XMB("NETNAME" | IN+1 |
| ^XMB(1 - [#4.3] | IN+7, USESCR+4 |
| ^XMB(4.6 - [#4.6] | IN+13 |
| ^XMBS(4.2999 - [#4.2999] | ENT+11 |
| Name | Line Occurrences |
|---|---|
| $$USESCR | IN+3 |
| @( | INT+8 |
| C | IN+15 |
| DIAL | D+1 |
| DIALTRY | DIAL+3 |
| DOTRAN | IN+1, IN+2, IN+9, IN+18, IN+19, C+1, C+7, C+11, DIALTRY+5, E+2 , F+1, H+1, M+1, M+3, O+1, O+3, O+4, O+6, S+5, S+6 , T+3, W+1, X+1, ERTRAN+1, RESUME+11 |
| EN | IN+4, C+8 |
| ERTRAN | ENT+14, INT+6, C+5, C+10, DIALTRY+6, DIALTRY+8, INDIR+3, X+5 |
| FLUSH | O+5 |
| IN | ENT+15, RESUME+14 |
| INDIR | S+4 |
| INT | EN+5 |
| O | IN+12 |
| TRAN | IN+17 |
| Name | Field # of Occurrence |
|---|---|
| ^( | RESUME+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DIC | C+2~, C+3* |
| DIC(0 | C+3* |
| DIR | DI+1~, RESUME+1~ |
| DIR("A" | DI+3*, RESUME+7* |
| DIR("B" | RESUME+8* |
| DIR(0 | DI+2*, RESUME+6* |
| >> DIRUT | DI+4, RESUME+9 |
| DT | IN+1 |
| >> ER | ENT+9*, IN+12, IN+17, IN+19, EN+5, INT+3*, INT+9*, C+9, DIAL+3, DIALTRY+4* , DIALTRY+8, M+3, O+2, O+3, S+1, S+4, X+3, X+5*, ERTRAN+2* |
| >> ER("MSG" | IN+17, C+10, E+1*, E+2, M+3, ERTRAN+3* |
| I | RESUME+1~, RESUME+4*, RESUME+5* |
| IO | O+10, TRAN+11, RESUME+13 |
| IO(0 | TRAN+8 |
| >> IOT | TRAN+11 |
| >> POP | RESUME+3 |
| U | IN+2, IN+4, IN+8, IN+10, IN+13, USESCR+2, USESCR+5, C+6 |
| X | ENT+6*, IN+6~, IN+10*, IN+11, IN+13*, IN+14, EN+2*, INT~, INT+4*, INT+5 , INT+6, INT+7, INT+8, C+1, C+2~, C+3*, C+5, DI+1~, O+1, RESUME+1~ |
| >> XM | TRAN+7 |
| XM1 | ERTRAN~, ERTRAN+1, DOTRAN~, DOTRAN+2 |
| XM2 | ERTRAN~, ERTRAN+1, DOTRAN~, DOTRAN+2 |
| XM3 | ERTRAN~, ERTRAN+1, DOTRAN~, DOTRAN+2 |
| XMAUDIT | TRAN+1~, TRAN+3*, TRAN+6, TRAN+9 |
| XMB | IN+3, USESCR~ |
| XMB("SCR IEN" | , IN+4, USESCR+6, RESUME+5, RESUME+6 |
| XMB("SCR REC" | , IN+2, IN+4, IN+8, USESCR+2 |
| >> XMBFLUSH | FLUSH+1 |
| >> XMC("AUDIT" | TRAN+6* |
| >> XMC("DEVICE" | O+6 |
| >> XMC("SHOW TRA | N" , ENT+9*, S+6 |
| >> XMC("TALKMODE" | ENT+13, IN+16, T+1 |
| XMC1 | IN+6~, IN+11*, IN+14*, INT+2~, INT+7*, C+3, DI+1~, DI+5*, D+1, E+1 , S+1, S+3, S+4, S+5, S+6, S+7*, S+8, INDIR~, INDIR+2, INDIR+4* , W+1, W+2, X+1, X+2, X+4 |
| XMCI | EN+3~, EN+4*, EN+5*, INT~, INT+6, T+2*, RESUME+2*, RESUME+5, RESUME+8, RESUME+10* , RESUME+11, RESUME+12* |
| >> XMDIAL | DIALTRY+6, DIALTRY+7 |
| XMDIALOG | ERTRAN~, ERTRAN+1, DOTRAN~, DOTRAN+3 |
| XMDIGIT | DIALTRY+1~, DIALTRY+3* |
| XMER | C+2~, C+10 |
| XMFDA | O+7~ |
| XMFDA( | O+9*, O+10* |
| XMFIELD | DIAL+2, DIAL+4! |
| >> XMHANG | H+2, H+3 |
| >> XMHOST | X+5 |
| XMI | DIAL+1~, DIAL+3*, DIALTRY+1~, DIALTRY+3* |
| XMIENS | O+7~, O+8*, O+9, O+10 |
| XMINST | ENT+11, ENT+13, ENT+16, IN+3, IN+4, USESCR~, USESCR+6, EN~, C+8, O+8 , RESUME+5, RESUME+6 |
| XMLER | ENT+8~, TRAN+10 |
| XMLIN | ENT+8~ |
| XMLX | FLUSH+2~, FLUSH+3* |
| XMNETREC | IN+6~, IN+7*, IN+10, IN+13, USESCR+3~, USESCR+4*, USESCR+5 |
| XMNSCR | C+2~, C+6* |
| XMNSCRN | C+2~, C+6*, C+7, C+8 |
| XMNUM | DIAL+1~, DIAL+3*, DIALTRY~, DIALTRY+3 |
| XMNUMS | DIAL~, DIAL+3 |
| >> XMOPEN | O+2 |
| XMPARM | DOTRAN+1~, DOTRAN+3 |
| XMPARM(1 | DOTRAN+2* |
| XMPARM(2 | DOTRAN+2* |
| XMPARM(3 | DOTRAN+2* |
| XMPHONE | DIALTRY+1~, DIALTRY+2*, DIALTRY+3*, DIALTRY+5 |
| >> XMPROT | O+6 |
| XMREF | INDIR+1~, INDIR+2*, INDIR+3, INDIR+4 |
| XMROOT | EN~, EN+5 |
| XMSAVE | S+2~, S+3*, S+5 |
| XMSCRN | IN+6~, IN+8*, EN~, C+11 |
| XMSEP | DIAL+1~, DIAL+2*, DIAL+3 |
| XMSITE | IN+1, IN+4, IN+10, EN~, C+8, O+4 |
| XMSTRIP | DIAL+2, DIAL+4!, DIALTRY+3 |
| XMTIME | TRAN+1~, TRAN+2*, TRAN+3 |
| >> XMTRAN | IN+17, ERTRAN+3, DOTRAN+3*, TRAN+3 |
| Y | C+2~, C+4, C+6, DI+1~, DI+5, DIALTRY+1~, DIALTRY+8, RESUME+1~, RESUME+10 |