.NONUMBER
.TITLE PERSON - FIND ACCOUNT NAME
.PAGE
.INDENT 50
PERSON
.SKIP 1
.CENTER
PERSON - FIND ACCOUNT NAME
.LEFT MARGIN 10
.SKIP 1
.INDENT -10
^^ROUTINE NAME: PERSON\\
.SKIP 1
.INDENT -10
^^PURPOSE:\\ ^TO FIND AN ACCOUNT NAME GIVEN THE 6 BYTE
^^ASCII\\ REPRESENTATION OF THE ^^UIC\\.
.SKIP 1
.INDENT -10
^^CALLABLE:\\ ^ASSEMBLER ONLY.
.SKIP 1
.INDENT -10
^^PARAMETERS:\\ ^PRESET REGISTERS.
.NOFILL
^INPUTS:   ^R0 = ADDRESS OF 14. BYTE BUFFER TO
.INDENT 20
CONTAIN THE ACCOUNT NAME.
.BREAK
          ^R1 = ADDRESS OF 6 BYTE BUFFER
.INDENT 20
CONTAINING THE ^^UIC.\\
.SKIP 1
^OUTPUTS:  REGISTERS ARE UNCHANGED
          ^CARRY CLEAR IFF ACCOUNT WAS FOUND.
.FILL
.SKIP 1
.INDENT -10
^^EXAMPLE:\\ ^THIS ROUTINE CAN ONLY BE USED BY A PRIVALEGED TASK.
^IT ALSO REQUIRES APPROPRIATE BUFFER SPACE, AND
THE PROPER INITIALIZATION FOR THE OPENING OF THE
ACCOUNT FILE. ^FOR USAGE OF THIS ROUTINE, CONSULT THE
AUTHOR.
.SKIP 1
.INDENT -10
^^AUTHOR:\\ ^W. ^KORENDYK
.SKIP 1
.INDENT -10
^^WRITTEN:\\ ^JULY 22, 1977
.SKIP 1
.INDENT -10
^^SOURCE LANGUAGE:\\ ^^MACRO-11\\ ^ASSEMBLER
.SKIP 1
.INDENT -10
^^OBJECT MODULE NAME:\\ ^^PERSON\\
.SKIP 1
.INDENT -10
^^LIBRARY:\\ (SEE AUTHOR)
.SKIP 1
.INDENT -10
^^LAST MODIFICATION:\\ ^JULY 22, 1977
.SKIP 1
.INDENT -10
^^MAINTENANCE:\\ ^GRAPHICS ^SECTION
.SKIP 1
.INDENT -10