©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
LAKERM3 ; IHS/DIR/FJE - UNPACK KERMIT RECORDS VIA LSI 7/20/90 09:26 ;
Source file <LAKERM3.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| A | ||
| B | ;End of transmision
|
|
| E | ||
| D | ||
| F | ||
| GET | ;S LAKERR=0,OUT=""
|
|
| S | ||
| Y | ||
| QCTL | ;Unquote control's
|
|
| Z | ||
| STORE | ||
| OUT |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^LA( | A*, GET+1, GET+2, GET+3*, S, F, E*, OUT |
| Name | Line Occurrences |
|---|---|
| @( | A+1 |
| GET | A+1, GET+2 |
| OUT | F, Z, STORE |
| QCTL | D |
| STORE | A+1 |
| Name | Field # of Occurrence |
|---|---|
| ^( | GET+2, GET+3 |
| ^("C" | A*, OUT* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> C | QCTL+1* |
| >> CNT | GET+2*, GET+3, OUT* |
| >> CTRL | GET+4* |
| >> I1 | QCTL+1* |
| >> IN | GET+3*, GET+4*, GET+5, S, F, D |
| >> LAKDEM | A*, STORE |
| >> LAKERR | A+1, GET+1*, GET+5*, Y* |
| >> LAKMAX | A*, STORE |
| >> LAKQCTL | A*, S*, D, QCTL+1 |
| >> LATYPE | A+1, GET+5* |
| >> LOOP | A+1*, Y*, Z* |
| >> OUT | GET+1*, S*, F*, D*, E*, QCTL+1*, STORE* |
| >> R1 | A*, S*, F*, E |
| >> R2 | A*, F*, Z, STORE*, OUT* |
| >> TOUT | A+1, GET+1*, GET+2*, GET+3* |
| >> TSK | A, GET+1, GET+2, GET+3, S, F, E, OUT |
| >> X | QCTL+1* |