©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
SDUL0 ;MJK/ALB - List Manager (cont.); 12/1/91
Source file <SDUL0.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| TERM | ; -- set up term characteristics
|
|
| TEMPQ | ||
| INIT(NAME,PARMS) | ;
|
|
| TEMP(NAME) | ; -- use list template
|
|
| POP | ; -- clean up and unstack vars
|
|
| IO() | ; -- what device params
|
|
| POPQ | ||
| SETUP(NAME) | ; -- on-the-fly list
|
|
| INITQ | ||
| SETUPQ | ||
| CALC | ; -- calculate derived parmeters
|
|
| STACK | ; -- stack vars
|
|
| STACKQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DISV( | CALC+15 |
| ^ORD(101 - [#101] | CALC+10 |
| ^SD(409.61 - [#409.61] | TEMP+2, TEMP+5 |
| ^TMP("SDUL DATA" | STACK+2!, POP+1!, CALC+2*, CALC+9 |
| ^TMP("SDUL STACK" | STACK+5!, STACK+6, STACK+7, POP+8, POP+9, POP+10! |
| Name | Line Occurrences |
|---|---|
| $$IO | TERM+2, POP+4, CALC+13 |
| $$SETUP | INIT+4 |
| $$TEMP | INIT+5 |
| @( | SETUP+1 |
| CALC | INIT+6 |
| INITQ | INIT+4, INIT+5 |
| POPQ | POP+2 |
| SETUPQ | SETUP+2 |
| STACK | INIT+1 |
| STACKQ | STACK+2 |
| TEMPQ | TEMP+3 |
| TERM | INIT+6 |
| Name | Field # of Occurrence |
|---|---|
| ^( | STACK+6*, STACK+7*, POP+8, POP+9, CALC+15* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DUZ | CALC+15 |
| I | POP+4*, POP+5!, CALC+1~, CALC+13* |
| IOM | TERM+2 |
| IOST(0 | TERM+1 |
| LN | POP+1! |
| NAME | INIT~, INIT+4, INIT+5, SETUP~, SETUP+1, TEMP~, TEMP+2 |
| NODE | TEMP+1~, TEMP+5*, CALC+1~, CALC+2* |
| PARMS | INIT~, INIT+3 |
| SDUL | STACK+2!, STACK+8!, POP+1!, TEMP+2*, TEMP+5, TEMP+6 |
| SDUL( | STACK+6, POP+8*, SETUP+2, TEMP+5*, CALC+2! |
| SDUL("ARRAY" | SETUP+3*, CALC+3! |
| SDUL("BM" | SETUP+6*, TEMP+9*, CALC+4 |
| SDUL("DAYS" | TEMP+15* |
| SDUL("ENTITY" | TEMP+11* |
| SDUL("HDR" | SETUP+5, SETUP+6 |
| SDUL("IFN" | SETUP+4*, TEMP+6* |
| SDUL("LINES" | CALC+4* |
| SDUL("MAX" | SETUP+9*, TEMP+14* |
| SDUL("PROTOCOL" | TEMP+12*, CALC+8, CALC+10*, CALC+15 |
| SDUL("TITLE" | SETUP+8*, TEMP+13*, CALC+5* |
| SDUL("TM" | SETUP+5*, TEMP+8*, CALC+4, CALC+5 |
| SDUL("TYPE" | SETUP+7*, TEMP+7*, CALC+8, CALC+9 |
| SDUL(0 | INIT+3* |
| SDUL0 | TEMP+1~, TEMP+2*, TEMP+3, TEMP+7, TEMP+8, TEMP+9, TEMP+10, TEMP+11, TEMP+12, TEMP+13 , TEMP+14, TEMP+15, TEMPQ |
| SDULAR | POP+1!, CALC+3* |
| SDULBCK | INIT+2!, POP+12* |
| SDULBG | STACK+8!, POP+1! |
| SDULCAP | POP+1!, CALC+14* |
| SDULCC | POP+1!, SETUP+10*, TEMP+10*, CALC+13* |
| SDULCNT | POP+1! |
| SDULDDF | POP+1! |
| SDULDN | POP+1!, POP+12*, CALC+12* |
| SDULEVL | INIT+6, STACK+1*, STACK+2, STACK+5, STACK+6, STACK+7, POP+1, POP+2, POP+5!, POP+8 , POP+9, POP+10, POP+12*, CALC+2, CALC+9 |
| SDULFIND | POP+5! |
| SDULHDR | INIT+2!, POP+1! |
| SDULMENU | POP+1!, CALC+15* |
| SDULPGE | POP+1! |
| SDULQUIT | INIT+2!, INIT+4*, INIT+5* |
| SDULST | POP+1! |
| SDULUP | POP+1!, POP+12*, CALC+12* |
| SDULWD | TERM+2*, POP+5! |
| SDX | INITQ! |
| U | TEMP+7, TEMP+8, TEMP+9, TEMP+10, TEMP+11, TEMP+12, TEMP+13, TEMP+14, TEMP+15 |
| X | INITQ!, TERM+2*, STACK+6*, STACK+7*, POP+4*, POP+5!, POP+8*, POP+9*, SETUP+2*, CALC+1~ , CALC+7*, CALC+8*, CALC+9*, CALC+10, CALC+13* |
| Y | POP+4*, POP+5!, SETUP+2*, SETUPQ, CALC+1~, CALC+13* |