©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
XTKERM2 ;SF/RWF - Kermit Receive a file. ;11/8/93 11:50 ;
Source file <XTKERM2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| RPACK | ||
| ACK | ||
| NAK | ||
| PDATA | ;Put data in global
|
|
| FILE | ;See if need to change file name.
|
|
| DEBUG(MSG) | ;
|
|
| SEQ | ||
| RS | ||
| RY | ;
|
|
| RZ | ||
| REPLACE | ||
| RD | ||
| RE | ||
| RF | ||
| RB | ||
| TEXT | ||
| CLOSE | ;Close and update the filename if file 8980
|
|
| RN | ;
|
|
| BUMP | ||
| SPACK | ||
| R | ||
| TX2 | ||
| STORE | ;Store the data (XTKRDAT) in file.
|
|
| GET | ||
| ABORT | ||
| PREV |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIZ(8980 - [#8980] | CLOSE+1*! |
| ^TMP("XTKERM" | DEBUG+1* |
| Name | Line Occurrences |
|---|---|
| @( | R+5 |
| ABORT | RZ, RE, GET |
| ACK | RF, RD, RZ, RB |
| BUMP | RS, RF, RD, RZ |
| CLOSE | RZ |
| DEBUG | GET+2 |
| FILE | RF |
| GET | R+5, GET+2 |
| NAK | SEQ, GET+2 |
| PDATA | STORE+1, STORE+4, TEXT, TX2+1 |
| RB | R+6 |
| REPLACE | STORE+2 |
| SEQ | RF, RD, RZ, RB |
| SPACK | RS, NAK, ACK |
| STORE | RD, RZ |
| TEXT | STORE+2 |
| TX2 | TEXT, TX2+1 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | CLOSE+2* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | R+7* |
| >> DWLC | PDATA+1*, CLOSE+2 |
| >> I | STORE+2*, TEXT+1*, TX2+1*, REPLACE* |
| IO | R+1, R+4, R+9 |
| IO(0 | R, R+1, R+8, R+9 |
| MSG | DEBUG~, DEBUG+1 |
| U | CLOSE+2 |
| >> X | RF*, RD, RZ, RB, SEQ*, FILE+1, STORE+1*, STORE+2*, STORE+3*, STORE+4 , TEXT*, TEXT+1, TX2*, TX2+1*, PDATA+1, REPLACE, CLOSE+2 |
| >> X1 | TX2* |
| >> X2 | TX2* |
| >> XTKDA | CLOSE+1 |
| >> XTKDEBUG | GET+2, DEBUG+1* |
| >> XTKDIC | FILE+1, PDATA+1, CLOSE+1, CLOSE+2 |
| >> XTKERR | R+5*, R+6, R+9, R+10, GET+2, GET+3*, ABORT* |
| >> XTKET | R+4*, R+7*, R+10 |
| >> XTKFILE | FILE+1*, CLOSE+1 |
| >> XTKFILE(0 | FILE+1*, CLOSE+1 |
| >> XTKMODE | STORE+1, STORE+2 |
| >> XTKR("CCNT" | R+9, R+10, PDATA+1* |
| >> XTKR("MAXTRY" | GET |
| >> XTKR("PN" | RS, SEQ |
| >> XTKR("PT" | R+5, GET+3, STORE+3 |
| >> XTKR("QA" | STORE+2, TEXT+1, REPLACE |
| >> XTKR("RFN" | FILE+1, CLOSE+1 |
| >> XTKR("SA" | RZ, STORE+3*, TX2*, TX2+1 |
| >> XTKR("TRY" | GET*, BUMP*, ACK* |
| >> XTKRDAT | RF, RZ*, STORE+1, STORE+2, STORE+3*, TEXT+1*, TX2+1*, REPLACE* |
| >> XTKS("PN" | RS*, SEQ, BUMP*, PREV* |
| >> XTKS("PT" | RS*, NAK*, ACK* |
| >> XTKSDAT | NAK*, ACK* |
| >> Y | STORE+2*, TEXT, TEXT+1, REPLACE |
| >> Z | TX2* |
| >> ZTQUEUED | R, R+8 |