Routine: LAFUNC

Information

LAFUNC ; IHS/DIR/FJE - GENERIC FUNCTIONS USED BY LA ROUTINES 7/20/90 08:28 ;

Source file <LAFUNC.m>

Package	Total	Call Graph
Kernel	2	^%ZIS ^%ZISC

Name	Comments	DBIA/ICR reference
HDR
HTOD	;CHANGE HEX TO DECIMAL VALUE
BTOO	;BINARY STRING TO OCTAL
DTOB	;DECIMAL VALUE TO BINARY STRING
DTOH	;CHANGE DECIMAL VALUE TO 6 HEX CHARACTERS
DTOO	;DECIMAL TO OCTAL
NUM1
NAND	;NOT AND OF STRING OF CHAR
PRT
NUM
TABLE	;PRINT TABLE OF CONVERSIONS FOR 0 TO 256 DECIMAL
XNOR	;EXCLUSIVE NOT OR OF STRING
XOR	;XOR AL CHAR IN STRING
HTOB	;HEX VALUE TO BINARY STRING
HTOO	;HEX TO OCTAL
AND	;AND AL CHAR IN STRING
OTOH	;OCTAL TO HEX
EXIT0
BTOH	;BINARY STRING TO HEX
OTOB	;OCTAL TO BINARY STRING
BTOD	;BINARY STRING TO DECIMAL
OTOD	;OCTAL TO DECIMAL
EXIT
OR	;OR AL CHAR IN STRING
NOR	;NOT OR OF STRING

Name	Field # of Occurrence
^%ZIS	TABLE+1
^%ZISC	TABLE+3

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"ENTER NUMBER WITH BASE AS LAST CHAR. IE 0101B FOR BINARY: " Line Location: NUM+0
Function Call: READ	Timeout: DTIME Variable: LAX Line Location: NUM+1
Function Call: WRITE	Prompt: !!,"ENTER THE NUMBER FOLLOWED BY STARTING BASE. IE 3FH FOR 3F HEX." Line Location: NUM+2
Function Call: WRITE	Prompt: !,"INVALID NUMBER",! Line Location: NUM1+5
Function Call: WRITE	Prompt: !," BINARY: ",LAY(1),!," OCTAL: ",LAY(2),!,"DECIMAL: ",LAY(3),!," HEX: ",LAY(4),! Line Location: PRT+0
Function Call: WRITE	Prompt: $J(LAY,9) Line Location: TABLE+2
Function Call: WRITE	Prompt: ?11,$J(LAY,3) Line Location: TABLE+2
Function Call: WRITE	Prompt: ?11,$J(LAY,3) Line Location: TABLE+2
Function Call: WRITE	Prompt: ?11,$J(LAY,3) Line Location: TABLE+2
Function Call: WRITE	Prompt: ?27,$C(I) Condition for execution: ((I>31)&(I<128)) Line Location: TABLE+2
Function Call: WRITE	Prompt: ! Line Location: TABLE+2
Function Call: WRITE	Prompt: @IOF,"NUMBER BASE CONVERSION TABLE",?(IOM-10),"PAGE: ",$J(PAGE,2),!," BINARY OCT DEC HEX ASC",! Line Location: HDR+0
Function Call: WRITE	Prompt: "-" Line Location: HDR+1
Function Call: WRITE	Prompt: !! Line Location: HDR+2
Routine Call	%ZIS Line Location: TABLE+1

Name	Line Occurrences
@(	NUM1+1, NUM1+2, NUM1+3, NUM1+4
AND	NAND+1
BTOD	BTOO+1, BTOH+1
DTOB	OTOB+1, HTOB+1, TABLE+2
DTOH	BTOH+1, OTOH+1, TABLE+2
DTOO	BTOO+1, HTOO+1, TABLE+2
EXIT	AND+2, NAND+1, OR+2, NOR+1, XOR+2, XNOR+1, BTOO+1, BTOD+2, BTOH+1, OTOB+1 , OTOD+2, OTOH+1, DTOB+2, DTOO+3, DTOH+3, HTOB+1, HTOO+1, HTOD+2, TABLE+3
EXIT0	NUM+1
HDR	TABLE+1, TABLE+2
HTOD	HTOB+1, HTOO+1
NUM	NUM+2, NUM1+5, PRT
NUM1	NUM+1
OR	NOR+1
OTOD	OTOB+1, OTOH+1
PRT	NUM1+1, NUM1+2, NUM1+3, NUM1+4
XOR	XNOR+1

Name	Field # of Occurrence
B	OR+1, XOR+1, DTOO+1, DTOO+2, DTOH+1, DTOH+2, EXIT!
CAL	NUM1+1, NUM1+2, NUM1+3, NUM1+4, EXIT0!
DTIME	NUM+1
F	AND+2, NAND+1, OR+2, NOR+1, XOR+2, XNOR+1, BTOO+1, BTOD+2, BTOH+1, OTOB+1 , OTOD+2, OTOH+1, DTOB+2, DTOO+3, DTOH+3, HTOB+1, HTOO+1, HTOD+2, NUM1, EXIT!
>> I	NUM1, TABLE+2
II	AND+1, OR+1, XOR+1, BTOD+1, OTOD+1, DTOB+1, DTOO+2, DTOH+2, HTOD+1*, EXIT!
IO	TABLE+1, TABLE+3
IO(0	TABLE+3
IOF	TABLE+3, HDR
IOM	HDR, HDR+1
IOSL	TABLE+2
>> J	HDR+1*
JJ	EXIT!
K	OTOD+1, DTOB+1, DTOO+1, DTOO+2, DTOH+1, DTOH+2, HTOD+1*, EXIT!
L	DTOB+1, DTOO+2, DTOH+2*, EXIT!
>> LAE	AND+1, OR+1, XOR+1
>> LAS	AND+1, OR+1, XOR+1
>> LAX	AND+1, OR+1, XOR+1, BTOO+1, BTOD+1, BTOH+1, OTOB+1, OTOD+1, OTOH+1, DTOB+1 , DTOO+1, DTOH+1, HTOB+1, HTOO+1, HTOD+1, NUM+1, NUM1, NUM1+1, NUM1+2, NUM1+3 , NUM1+4, TABLE+2*
LAY	AND+1, NAND+1, OR+1, NOR+1, XOR+1, XNOR+1, BTOO+1, BTOD+1, BTOH+1, OTOB+1 , OTOD+1, OTOH+1, DTOB+1, DTOO+1, DTOO+2, DTOH+1, DTOH+2, HTOB+1, HTOO+1, HTOD+1 , NUM1+1, NUM1+2, NUM1+3, NUM1+4, PRT!, TABLE+2
LAY(1	NUM1+1, NUM1+2, NUM1+3, NUM1+4, PRT
LAY(2	NUM1+1, NUM1+2, NUM1+3, NUM1+4, PRT
LAY(3	NUM1+1, NUM1+2, NUM1+3, NUM1+4, PRT
LAY(4	NUM1+1, NUM1+2, NUM1+3, NUM1+4, PRT
M	OR+1, XOR+1, DTOO+1, DTOO+2, DTOH+1, DTOH+2, EXIT!
N	OR+1, XOR+1, EXIT!
O	EXIT!
>> PAGE	TABLE+1, HDR
>> POP	TABLE+1
STR	NUM1*, NUM1+1, NUM1+2, NUM1+3, NUM1+4, EXIT0!
TEMP	BTOO+1, BTOH+1, OTOB+1, OTOH+1, HTOB+1, HTOO+1, EXIT!
TY	NUM1*, NUM1+1, NUM1+2, NUM1+4, EXIT0!