.NONUMBER .TITLE ^^.BOMGB - NUMERIC BYTE CONVERSION\\ .PAGE .INDENT 50 ^^.BOMGB\\ .SKIP 1 .CENTER ^^.BOMGB - NUMERIC BYTE CONVERSION\\ .LEFT MARGIN 10 .SKIP 1 .INDENT -10 ^^ROUTINE NAME:\\ ^^.BOMGB\\ .SKIP 1 .INDENT -10 ^^PURPOSE:\\ ^TO CONVERT AN UNSIGNED NUMERIC BYTE TO AN OCTAL, ^^ASCII\\ STRING. .SKIP 1 .INDENT -10 ^^CALLABLE:\\ ^ASSEMBLER ONLY. .SKIP 1 .INDENT -10 ^^PARAMETERS:\\ ^PRESET REGISTERS. .SKIP 1 .LEFT MARGIN 25 .INDENT -15 ^INPUTS:###^R0 = ADDRESS OF USER BUFFER TO CONTAIN THE CONVERTED NUMBER. .INDENT -5 ^R1 = THE NUMBER (BYTE) TO BE CONVERTED. .INDENT -5 ^R2 = THE SUPPRESSION CODE, .INDENT 5 0 => SUPPRESS LEADING ZEROS .INDENT 5 _^0 => DO NOT SUPPRESS. .SKIP 1 .INDENT -15 ^OUTPUTS:##^R0 = UPDATED .INDENT -5 ^R1 AND ^R2 ARE UNCHANGED. .SKIP 1 .LEFT MARGIN 10 .SKIP 1 .INDENT -10 ^^ROUTINES USED:\\ ^^$CBOMG\\ .SKIP 1 .INDENT -10 ^^EXAMPLE:\\ .SKIP 1 .NOFILL ^^MOVB _#247,R1 ;NUMBER TO OUTPUT MOV _#1,R2 ;DON'T SUPPRESS ZEROS MOV _#BUF,R0 ;OUTPUT BUFFER CALL .BOMGB ;CONVERT TTYOUT _#BUF,_#3 ;SEND TO TERMINAL .FILL .SKIP 1 \\^THE ABOVE EXAMPLE CAUSES THE THREE (3) CHARACTER NUMBER "247" TO BE PRINTED AT THE TERMINAL. .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:\\ ^^BYTCON\\ .SKIP 1 .INDENT -10 ^^LAST MODIFICATION:\\ ^JULY 16, 1977 .SKIP 1 .INDENT -10 ^^MAINTENANCE:\\ ^SYSTEM ^DEVELOPMENT ^SECTION .LEFT MARGIN 0