©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
LAPORT33 ;MLD/ABBOTT/SLC/RAF - AxSYM BIDRECTIONAL INTERFACE ; 6/12/96 0900 [ 01/12/98 11:20 AM ]
Source file <LAPORT33.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SET | ; Re-init vars
|
|
| DQ | ;Entry point to task job
|
|
| TRAP | ; Error Trap
|
|
| PH3 | ; PHase3 (validate frame)
|
|
| PH2 | ; PHase2 - transfer data (build frame)
|
|
| PH1 | ; PHase1 - idle/establish link (wait for AxSYM to send data)
|
|
| GETCH() | ; read 1 char at a time. Returns Ascii value of terminating char
|
|
| CHK() | ; Chk flags - Returns LINE TAG to branch to
|
|
| OUT | ; Main Exit - remove flags, close port
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^LA( | GETCH+1*, GETCH+3, CHK+1*, CHK+2, CHK+3, OUT+1! |
| ^LA("LOCK" | LAPORT33+15, OUT+1!, DQ+2! |
| ^LA("STOP" | CHK+4, OUT+1! |
| ^LAB(62.4 - [#62.4] | DQ+2 |
| Name | Line Occurrences |
|---|---|
| $$CHK | PH1+2, SET+4 |
| $$GETCH | PH1+1, PH2+1 |
| @( | PH1+2 |
| PH1 | PH1+3, PH2+2, PH2+4, PH3+3, PH3+4, PH3+7, PH3+12, PH3+13, PH3+15, PH3+18 , PH3+20, TRAP+2 |
| PH2 | PH2+4, PH2+7, PH3+7, PH3+12, PH3+13, PH3+15, PH3+18, PH3+21, PH3+24 |
| PH3 | PH2+5, PH2+6 |
| SET | PH2+2, PH2+4, PH3+3, PH3+4, PH3+7, PH3+12, PH3+13, PH3+15, PH3+18, PH3+20 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | DQ+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ACK | LAPORT33+13~, PH1+6, PH3+23 |
| BASE | LAPORT33+12~ |
| CNT | LAPORT33+12~ |
| CR | LAPORT33+13~ |
| DEB | LAPORT33+12~, GETCH+3 |
| DEBUG | LAPORT33+12~, PH1+1, PH3+1, GETCH+3* |
| ENQ | LAPORT33+13~, PH1+3 |
| EOT | LAPORT33+13~, PH2+6, PH3+3 |
| ETB | LAPORT33+13~, PH3+6 |
| ETX | LAPORT33+13~, PH3+6 |
| HOME | LAPORT33+12~, LAPORT33+15*, DQ+1*, DQ+2 |
| I | LAPORT33+12~ |
| INST | LAPORT33+12~, GETCH+1, CHK+1, CHK+2, CHK+3, CHK+4, OUT+1 |
| J | LAPORT33+12~ |
| LACRETX | LAPORT33+11~, PH3+20, PH3+21 |
| LACRLF | LAPORT33+11~, PH3+21 |
| LACS | LAPORT33+10~, PH3+17*, PH3+18, PH3+20, PH3+21 |
| LADATA | LAPORT33+11~, PH1+1*, PH1+2, PH1+3, PH2+1*, PH2+2, PH2+3, PH2+5, PH2+6 |
| LADEV | LAPORT33+10~ |
| LAEND | LAPORT33+10~, PH3+6*, PH3+7, PH3+9, PH3+17 |
| LAFRAM | LAPORT33+10~, PH3+9*, PH3+11, PH3+15, PH3+18, SET+2! |
| LAFRAME | LAPORT33+10~, PH1+5*, PH2+3*, PH2+4, PH3+1, PH3+2, SET+3* |
| LAFRNM | LAPORT33+11~, PH1+5*, PH3+11*, PH3+12, SET+2! |
| LAFRNUM | LAPORT33+10~, PH3+11*, PH3+12, PH3+13 |
| LALINK | LAPORT33+11~, PH1+5*, SET+2! |
| LANM | LAPORT33+11~, LAPORT33+15*, DQ+1*, DQ+2 |
| LANOCTL1 | LAPORT33+11~ |
| LANOCTL2 | LAPORT33+11~, PH3+15 |
| LARETRY | LAPORT33+10~, PH1+5*, PH2+4, PH3+7, PH3+12, PH3+13, PH3+15, PH3+18 |
| LATEMP | LAPORT33+10~, GETCH+2*, GETCH+4 |
| LATOUT | LAPORT33+10~, PH1+5*, GETCH+2, CHK+1*, SET+3* |
| LF | LAPORT33+13~, PH2+5 |
| NAK | LAPORT33+13~ |
| NODE | LAPORT33+12~, CHK+2*, CHK+3* |
| NUL | LAPORT33+13~ |
| OK | LAPORT33+12~, LAPORT33+17 |
| OUT | LAPORT33+12~ |
| PAR | LAPORT33+12~ |
| SOH | LAPORT33+13~ |
| STX | LAPORT33+13~, PH3+4 |
| T | LAPORT33+12~, LAPORT33+15*, TRAP+1* |
| TOUT | LAPORT33+12~ |
| TSK | LAPORT33+12~, TRAP+1 |
| X | LAPORT33+12~, PH3+2*, PH3+3, PH3+4, PH3+6, PH3+9, PH3+17, PH3+20, PH3+21, SET+2! |
| Y | LAPORT33+12~ |
| >> ZTDESC | DQ+2* |
| >> ZTDTH | DQ+2* |
| >> ZTIO | DQ+2* |
| >> ZTRTN | DQ+2* |
| Name | Field # of Occurrence |
|---|---|
| $T( | LAPORT33+15, DQ+1 |