.NONUMBER
.TITLE ^^.GTUIC - DEFAULT TERMINAL UIC\\
.PAGE
.INDENT 50
^^.GTUIC\\
.SKIP 1
.CENTER
^^.GTUIC - GET DEFAULT TERMINAL UIC\\
.SKIP 1
.LEFT MARGIN 10
.INDENT -10
^^ROUTINE NAME:\\ ^^.GTUIC\\
.SKIP 1
.INDENT -10
^^PURPOSE:\\ ^TO SUPPLY THE TERMINAL'S DEFAULT ^^UIC\\
AS AN ^^ASCII\\ STRING.
.SKIP 1
.INDENT -10
^^CALLABLE:\\ ^ASSEMBLER ONLY.
.SKIP 1
.INDENT -10
^^PARAMETERS:\\ ^PRESET REGISTERS.
.SKIP 1
.LEFT MARGIN 15
.INDENT -5
.NOFILL
^INPUTS:##^R0 = ADDRESS OF USER BUFFER TO
         CONTAIN THE ^^UIC\\ STRING.
    ^R1 = COMPRESSION CODE,
            0 => COMPRESS ^^UIC\\
        NOT 0 => DO NOT COMPRESS
.SKIP 1
.INDENT -5
^OUTPUTS:#^R0 = UPDATED PAST STRING
    ^R1 = LENGTH OF STRING.
.SKIP 1
.FILL
.LEFT MARGIN 10
.SKIP 1
.INDENT -10
^^ROUTINES USED:\\ ^^.BOMGB\\
.SKIP 1
.INDENT -10
^^EXAMPLE:\\
.SKIP 1
.NOFILL
^^MOV      _#BUF,R0      ;GET BUFFER ADDRESS
CLR      R1           ;SET TO COMPRESS
TTYOUT   _#BUF,R1      ;PRINT TO TERMINAL
.FILL
.SKIP 1
\\
^THE ABOVE EXAMPLE CAUSES THE TERMINAL'S DEFAULT ^^UIC\\
TO BE PRINTED AT THE TERMINAL, IN COMPRESSED FORM, SUCH
AS:
.SKIP 1
.CENTER
[101,20]
.SKIP 1
.INDENT -10
^^FEATURES:\\ ^THE ^^UIC\\ AS RETURNED TO THE USER BUFFER
CONTAINS THE SQUARE BRACKETS AND THE SEPARATING COMMA.
.SKIP 1
.INDENT -10
^^AUTHOR:\\ ^W. ^KORENDYK
.SKIP 1
.INDENT -10
^^WRITTEN:\\ ^JULY 16, 1977
.SKIP 1
.INDENT -10
^^SOURCE LANGUAGE:\\ ^^MACRO-11 \\^ASSEMBLER
.SKIP 1
.INDENT -10
^^OBJECT MODULE NAME:\\ ^^GETUIC\\
.SKIP 1
.INDENT -10
^^LAST MODIFICATION:\\ ^JULY 16, 1977
.SKIP 1
.INDENT -10
^^MAINTENANCE:\\ ^SYSTEM ^DEVELOPMENT ^SECTION
.LEFT MARGIN 0