©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
XMJMCODE ;ISC-SF/GMB-Message En/Decryption ;08/24/2001 10:56
Source file <XMJMCODE.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| Z | ;;
|
|
| LOADCODE | ; Load Bazeries Cylinder
|
|
| KEYOK(XMZ,XMHINT) | ; Ask user for key and make sure it's right
|
|
| GOODKEY(XMZ,XMKEY) | ; Function checks key and make sure it's right.
; If it is, XMSECURE is defined, and function returns 1; ; Else XMSECURE is not defined, and function returns 0 |
|
| ENCMSG(XMZ) | ; Encode a message
|
|
| ADJUST(XMKEY) | ; Capitalize the key, pad the key, & adjust cylinder with key
|
|
| DECMSG(XMZ) | ; Decode a message
|
|
| ENCSTR(XMCLEAR) | ; Encode a string
|
|
| DECSTR(XMCODED) | ; Decode a string
|
|
| ASKKEY(XMKEY,XMABORT) | ;
|
|
| CRE8KEY(XMKEY,XMHINT,XMABORT) | ;
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: READ |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("EOFF" | ASKKEY+3 |
| ^%ZOSF("EON" | ASKKEY+3 |
| ^XMB(3.9 - [#3.9] | ENCMSG+4, DECMSG+4, KEYOK+4, GOODKEY+5 |
| Name | Line Occurrences |
|---|---|
| $$DECSTR | DECMSG+4 |
| $$ENCSTR | ENCMSG+4, GOODKEY+5 |
| $$GOODKEY | KEYOK+13 |
| ADJUST | GOODKEY+4 |
| ASKKEY | CRE8KEY+1, KEYOK+12 |
| LOADCODE | GOODKEY+3 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | ENCMSG+4*, DECMSG+4* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DIR | CRE8KEY+2~ |
| DIR("A" | CRE8KEY+4* |
| DIR(0 | CRE8KEY+3* |
| >> DTOUT | CRE8KEY+5 |
| >> DUOUT | CRE8KEY+5 |
| I | ENCMSG+1~, ENCMSG+3*, ENCMSG+4*, ENCSTR+1~, ENCSTR+3*, DECMSG+1~, DECMSG+3*, DECMSG+4*, DECSTR+1~, DECSTR+3* , ADJUST+1~, ADJUST+6*, ADJUST+9*, ADJUST+10, ADJUST+11, LOADCODE+1~, LOADCODE+2*, LOADCODE+3 |
| IO | ASKKEY+3 |
| IO(0 | KEYOK+2 |
| J | ADJUST+1~, ADJUST+10*, ADJUST+11 |
| U | ASKKEY+3, ASKKEY+4 |
| X | CRE8KEY+2~ |
| XMABORT | CRE8KEY~, CRE8KEY+1, CRE8KEY+5*, KEYOK+1~, KEYOK+10*, KEYOK+11, KEYOK+12, KEYOK+15, KEYOK+16, KEYOK+17 , ASKKEY~, ASKKEY+1, ASKKEY+4* |
| XMCLEAR | ENCSTR~, ENCSTR+3, DECSTR+1~, DECSTR+2*, DECSTR+3*, DECSTR+4 |
| XMCODED | ENCSTR+1~, ENCSTR+2*, ENCSTR+3*, ENCSTR+4, DECSTR~, DECSTR+3 |
| XMHINT | CRE8KEY~, CRE8KEY+6*, KEYOK~, KEYOK+5, KEYOK+9 |
| >> XMIA | ENCMSG+2, DECMSG+2 |
| XMKEY | CRE8KEY~, CRE8KEY+1, KEYOK+1~, KEYOK+12, KEYOK+13, ASKKEY~, ASKKEY+1, ASKKEY+3*, ASKKEY+4, ASKKEY+5* , ASKKEY+6*, GOODKEY~, GOODKEY+4, GOODKEY+5, ADJUST~, ADJUST+2*, ADJUST+3*, ADJUST+4*, ADJUST+6, ADJUST+10 |
| XMLINE | LOADCODE+1~, LOADCODE+2* |
| XMOK | KEYOK+1~, KEYOK+10*, KEYOK+11, KEYOK+13*, KEYOK+15, KEYOK+16, KEYOK+17 |
| >> XMPAKMAN | ADJUST+8 |
| >> XMPAKMAN("XMRW" | ADJUST+8* |
| XMRW | ADJUST+1~, ADJUST+5*, ADJUST+6*, ADJUST+7*, ADJUST+8, ADJUST+10 |
| XMSECURE | ENCSTR+3, DECSTR+3, KEYOK+16!, GOODKEY+6!, ADJUST+3, ADJUST+4, ADJUST+6, ADJUST+9, LOADCODE+3* |
| XMSECURE( | ENCSTR+3, DECSTR+3, ADJUST+10, ADJUST+11*, LOADCODE+2* |
| XMTRY | KEYOK+1~, KEYOK+11*, KEYOK+14 |
| XMZ | ENCMSG~, ENCMSG+4, DECMSG~, DECMSG+4, KEYOK~, KEYOK+4, KEYOK+13, GOODKEY~, GOODKEY+5 |
| Y | CRE8KEY+2~, CRE8KEY+6 |
| Name | Field # of Occurrence |
|---|---|
| $T(Z+I | LOADCODE+2 |