©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
XTKERM4 ;SF/RWF - Kermit utility parts ;11/8/93 11:46 ; [ 11/22/95 1:20 PM ]
Source file <XTKERM4.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| RESTORE | ||
| RPAR | ;Setup receive paramiters from the S packet, Some go into send parameters
|
|
| SFILE | ;Get file to send.
|
|
| READY | ||
| INIT | ;Init kermit paramiters
|
|
| BSPAR | ;Build S or Y init string
|
|
| RFILE | ;Receive file IHS/OHPRD/FJE corrected spelling
|
|
| CLEAN | ;Kill off variables
|
|
| SPAR | ;Setup send paramiters from the Y packet.
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^DIZ(8980 - [#8980] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("EOFF" | READY |
| ^%ZOSF("EON" | RESTORE |
| ^%ZOSF("RM" | READY, RESTORE |
| ^%ZOSF("TRMOFF" | RESTORE |
| ^%ZOSF("TRMON" | READY |
| ^%ZOSF("TRMRD" | INIT+8 |
| ^%ZOSF("TYPE-AHEAD" | READY |
| ^DIZ(8980 - [#8980] | SFILE+3, RFILE+4 |
| Name | Line Occurrences |
|---|---|
| RPAR | INIT+2 |
| SPAR | INIT+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| A | CLEAN+1! |
| C | CLEAN+1! |
| DA | SFILE+2*, SFILE+3!, RFILE+4*, RFILE+6! |
| DIADD | RFILE+3*! |
| DIC | SFILE+1!*, SFILE+2, SFILE+3!, RFILE+2!*, RFILE+3!*, RFILE+4, RFILE+6! |
| DIC("A" | SFILE+1*, RFILE+2* |
| DIC("DR" | RFILE+2*, RFILE+3* |
| DIC(0 | SFILE+1*, RFILE+2*, RFILE+3* |
| DIE | SFILE+2*, SFILE+3!, RFILE+4*, RFILE+6! |
| >> DLAYGO | RFILE+2*, RFILE+3* |
| DR | SFILE+2*, SFILE+3!, RFILE+4*, RFILE+6! |
| >> DWLC | INIT+7* |
| F1 | CLEAN+1! |
| IOM | RESTORE |
| L | CLEAN+1! |
| U | INIT+8*, SFILE+2, SFILE+3, RFILE+4, RFILE+5 |
| >> X | RPAR+2*, SPAR+2*, RFILE+3*, READY*, RESTORE* |
| X1 | CLEAN+1! |
| X2 | CLEAN+1! |
| XTKDA | SFILE+2*, SFILE+3, RFILE+4*, RFILE+5, CLEAN+1! |
| >> XTKDEBUG | RESTORE |
| XTKDIC | INIT+7, SFILE+2*, RFILE+5*, RFILE+6, CLEAN+1! |
| >> XTKERR | INIT+4*, INIT+7*, SFILE+1*, SFILE+2*, RFILE+2*, RFILE+3*, RFILE+5* |
| XTKET | CLEAN+1! |
| XTKFILE | SFILE+2*, RFILE+4*, CLEAN+1! |
| >> XTKHL7 | RFILE+1, RFILE+2, RFILE+3 |
| >> XTKMODE | INIT+7*, SFILE+3*, RFILE+5* |
| XTKR | CLEAN+1! |
| XTKR("CCNT" | INIT+5* |
| XTKR("MAXTRY" | INIT+4* |
| XTKR("PN" | INIT+1*, INIT+5* |
| XTKR("PT" | INIT+5* |
| XTKR("QA" | RPAR+3*, RPAR+4*, SPAR+3*, SPAR+4* |
| XTKR("RFN" | RFILE+5* |
| XTKR("SA" | INIT+5* |
| XTKR("SOH" | INIT+3* |
| XTKR("TO" | RPAR+3*, RPAR+5*, SPAR+3*, SPAR+5* |
| XTKR("TRMRD" | INIT+8* |
| XTKR("TRY" | INIT+5* |
| XTKRDAT | INIT+2*, RPAR+1, RPAR+2, RPAR+3, CLEAN+1! |
| XTKRPK | CLEAN+1! |
| XTKS | CLEAN+1! |
| XTKS("CCNT" | INIT+6* |
| XTKS("EOL" | RPAR+3*, RPAR+4*, SPAR+3*, SPAR+4* |
| XTKS("MAXTRY" | INIT+4* |
| XTKS("NPAD" | SPAR+3*, SPAR+4* |
| XTKS("PADC" | SPAR+3* |
| XTKS("PN" | INIT+1*, INIT+6* |
| XTKS("PT" | INIT+6* |
| XTKS("QA" | INIT+3* |
| XTKS("SA" | INIT+6* |
| XTKS("SIZ" | RPAR+2*, SPAR+2* |
| XTKS("SOH" | INIT+3* |
| XTKS("TO" | INIT+3*, BSPAR+1 |
| XTKS("TRY" | INIT+6* |
| XTKSDAT | INIT+2*, SPAR+1, SPAR+2, SPAR+3, CLEAN+1!, BSPAR+1* |
| XTKSPK | CLEAN+1! |
| Y | SFILE+1, SFILE+2, RFILE+2, RFILE+3, RFILE+4, CLEAN+1! |
| Y(0 | RFILE+4*, RFILE+5 |
| Z | CLEAN+1! |