HDISVM04 ;BPFO/JRP - UUDECODE;5/31/2007
Source file <HDISVM04.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DECODE(IN,OUT,FIND,ZERO) | ;UUDecode contents of text
; Input: IN = Array containing lines of text to encode ; (FULL GLOBAL REFERENCE) ; IN(1) = "begin 644 FILENAME" ; IN(2..n) = UUEncoded line of text ; IN(n+1) = "`" ; IN(n+2) = "end" ; OUT = Array to put uudecoded text into ; (FULL GLOBAL REFERENCE) ; FIND = Flag indicating if the "begin 644 FILENAME" line ; must be found. A value of 1 will cause this utility ; to order through the nodes of the array until the ; beginning line is found. A value of 0 will cause ; this utility to assume that node IN(1) is the ; beginning node. ; (DEFAULTS TO 0) ; ZERO = Flag indicating if the input array stores it's data ; on a zero node. A value of 1 denotes that the ; uuencoded data is stored in IN(node,0). A value of ; 0 denotes that the uuencoded data is not. ; (DEFAULTS TO 0) |
|
| UUD4(CHARS) | ;UUDecode 4 characters
; Input: CHARS = Characters to uudecode |
|
| APPEND(TEXT,WORKING,OUT,OUTNODE,FORCE) | ;Append text to running text
; Input: TEXT = Text to append to uudecoded output array ; WORKING = Text that hasn't been added to output array yet ; but is uudencoded. Text is added to the output ; array 245 characters at a time. ; (PASS BY REFERENCE) ; OUT = Array to put uudecoded text into ; (FULL GLOBAL REFERENCE) ; OUTNODE = Node in OUT to store uudecoded text into ; (PASS BY REFERENCE) ; FORCE = Flag indicating that a carriage return / line feed ; was encountered and all of the uudecoded text passed ; in should be stored in the output array. Passing a ; value of 1 will force storage and incrementing of ; OUTNODE. Passing a value of 0 will only store data ; in the output array if the running text exceeds 245 ; characters. ; (DEFAULTS TO 0) |
|
| STORE(TEXT,OUT,NODE) | ;Store text in uudecoded array
; Input: TEXT = Text to append to uudecoded output array ; OUT = Array to put uudecoded text into ; (FULL GLOBAL REFERENCE) ; NODE = Node in OUT to store uudecoded text into |
| Name | Line Occurrences |
|---|---|
| $$UUD4 | DECODE+71 |
| APPEND | DECODE+92, DECODE+99, DECODE+106, DECODE+110 |
| STORE | DECODE+114, APPEND+40, APPEND+46 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BIN1 | UUD4+6~, UUD4+20*, UUD4+23 |
| BIN1A | UUD4+7~, UUD4+12*, UUD4+13*, UUD4+20 |
| BIN2 | UUD4+6~, UUD4+21*, UUD4+24 |
| BIN2A | UUD4+7~, UUD4+14*, UUD4+15*, UUD4+20, UUD4+21 |
| BIN3 | UUD4+6~, UUD4+22*, UUD4+25 |
| BIN3A | UUD4+7~, UUD4+16*, UUD4+17*, UUD4+21, UUD4+22 |
| BIN4A | UUD4+7~, UUD4+18*, UUD4+19*, UUD4+22 |
| CHARS | UUD4~, UUD4+8, UUD4+9, UUD4+10, UUD4+11 |
| CR | DECODE+36~, DECODE+41*, DECODE+80, DECODE+82, DECODE+83 |
| CREND | DECODE+37~, DECODE+43*, DECODE+77, DECODE+79*, DECODE+80* |
| CRSPOT | DECODE+37~, DECODE+83*, DECODE+84*, DECODE+87, DECODE+89, DECODE+94, DECODE+101, DECODE+103, DECODE+104 |
| DEC1 | UUD4+6~, UUD4+23*, UUD4+26 |
| DEC1A | UUD4+7~, UUD4+8*, UUD4+12 |
| DEC2 | UUD4+6~, UUD4+24*, UUD4+26 |
| DEC2A | UUD4+7~, UUD4+9*, UUD4+14 |
| DEC3 | UUD4+6~, UUD4+25*, UUD4+26 |
| DEC3A | UUD4+7~, UUD4+10*, UUD4+16 |
| DEC4A | UUD4+7~, UUD4+11*, UUD4+18 |
| FIND | DECODE~, DECODE+39*, DECODE+46 |
| FORCE | APPEND~, APPEND+29*, APPEND+44 |
| IN | DECODE~, DECODE+50, DECODE+51, DECODE+57, DECODE+62, DECODE+63, DECODE+65 |
| LENGTH | DECODE+36~, DECODE+67*, DECODE+74 |
| LENTEXT | APPEND+28~, APPEND+31*, APPEND+33, APPEND+37, APPEND+42 |
| LENWORK | APPEND+28~, APPEND+30*, APPEND+33, APPEND+37, APPEND+39, APPEND+42 |
| LF | DECODE+36~, DECODE+42*, DECODE+77, DECODE+82, DECODE+85 |
| LFSPOT | DECODE+37~, DECODE+85*, DECODE+86*, DECODE+87, DECODE+90, DECODE+94, DECODE+96, DECODE+97, DECODE+101 |
| LOOP | DECODE+36~, DECODE+70*, DECODE+71 |
| NODE | DECODE+36~, DECODE+45*, DECODE+46, DECODE+49*, DECODE+50*, DECODE+51, DECODE+54*, DECODE+57, DECODE+62*, DECODE+63 , DECODE+65*, STORE~, STORE+13, STORE+14, STORE+17 |
| OUT | DECODE~, DECODE+38, DECODE+58, DECODE+92, DECODE+99, DECODE+106, DECODE+110, DECODE+114, APPEND~, APPEND+40 , APPEND+46, STORE~, STORE+13, STORE+14, STORE+17 |
| OUTNODE | DECODE+36~, DECODE+60*, DECODE+92, DECODE+99, DECODE+106, DECODE+110, DECODE+114, APPEND~, APPEND+40, APPEND+46 , APPEND+48* |
| STOP | DECODE+47~, DECODE+48*, DECODE+50, DECODE+52*, DECODE+54 |
| TEXT | DECODE+36~, DECODE+51*, DECODE+52, DECODE+57*, DECODE+58, DECODE+69*, DECODE+71*, DECODE+74*, DECODE+77*, DECODE+80 , DECODE+82, DECODE+83, DECODE+85, DECODE+89, DECODE+90*, DECODE+96, DECODE+97*, DECODE+103, DECODE+104*, DECODE+110 , APPEND~, APPEND+31, APPEND+34, APPEND+39, APPEND+42, STORE~, STORE+14, STORE+17 |
| TMPLEN | DECODE+37~ |
| TMPTXT | DECODE+37~, DECODE+89*, DECODE+92, DECODE+96*, DECODE+99, DECODE+103*, DECODE+106 |
| UUENC | DECODE+36~, DECODE+63*, DECODE+65, DECODE+67, DECODE+70, DECODE+71 |
| WORKING | DECODE+36~, DECODE+61*, DECODE+92, DECODE+99, DECODE+106, DECODE+110, DECODE+113, DECODE+114, APPEND~, APPEND+30 , APPEND+34*, APPEND+39*, APPEND+40, APPEND+42*, APPEND+46, APPEND+49* |
| ZERO | DECODE~, DECODE+40*, DECODE+51, DECODE+57, DECODE+63 |
