©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
XMM7 ;DSD/IHS/PDW; MODEM CONTROL LOGIC FOR COURIER AUTODIAL MODEM ; [ 09/30/93 4:34 PM ]
Source file <XMM7.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| READ | ;
|
|
| DCOUR | ; "INITIALIZE" AND "DIAL" CODE
|
|
| COURIER | ;;OK;;1
|
|
| 1 | ;;CONNECT;;1
|
|
| 3 | ;;NO CARRIER;;1
|
|
| 2 | ;;RING;;0
|
|
| 5 | ;;CONNECT 1200;;1
|
|
| SCOUR | ; "STATUS" CODE
|
|
| 7 | ;;BUSY;;1
|
|
| 6 | ;;NO DIAL TONE;;1
|
|
| 9 | ;;reserved;;0
|
|
| 8 | ;;NO ANSWER;;1
|
|
| 4 | ;;ERROR;;1
|
|
| CLEAR | ||
| DIAL | ;I 'SILENT U 0 W !,"Dialing ",X,*13
|
|
| 11 | ;;RINGING;;0
|
|
| 10 | ;;CONNECT 2400;;1
|
|
| 13 | ;;NOT USED;;0
|
|
| 12 | ;;NOT USED;;0
|
|
| 15 | ;;CONNECT 1200/ARQ;;1
|
|
| 14 | ;;CONNECT /ARQ;;1
|
|
| 16 | ;;CONNECT 2400/ARQ;;1
|
|
| HCOUR | ; "HANGUP" CODE
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: READ |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: READ |
|
| Function Call: WRITE |
|
| Function Call: READ |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: READ |
|
| Name | Line Occurrences |
|---|---|
| CLEAR | DCOUR+1, DCOUR+2, HCOUR+1 |
| DIAL | DCOUR+5 |
| READ | DCOUR+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | DCOUR+5*, HCOUR+3*, CLEAR* |
| >> %1 | READ+1* |
| >> C | READ+1* |
| >> ER | DCOUR+3*, DCOUR+5*, DCOUR+6*, SCOUR+1* |
| IO | DCOUR+1, DCOUR+2, DCOUR+3, HCOUR+1, CLEAR, DIAL+1, READ+1 |
| >> NOMORE | DCOUR+5, READ+1*, READ+2* |
| >> X | DCOUR+5*, DIAL+1 |
| >> XMPHONE | DCOUR+5 |
| >> Y | DCOUR+3*, DCOUR+6*, HCOUR+3*, SCOUR+1*, CLEAR*, READ+1*, READ+2* |
| Name | Field # of Occurrence |
|---|---|
| $T(COURIER+Y | READ+1 |