COM$RAD50       ; FORTRAN COMPATIBILITY - ASCII to RAD50 conver  21-AUG-1978 18:53:26   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (2)      90  HISTORY		; Detailed Current Edit History

   (3)     104  DECLARATIONS

   (4)     133  RAD50 - CONVERT 6-CHAR ASCII STRING INTO RADIX-

COM$RAD50       ; FORTRAN COMPATIBILITY - ASCII to RAD50 conver  21-AUG-1978 18:53:26   VAX-11 MACRO X0.3-11               Page   1

1-1                                                                                                                              (1)



                                     0000     1 	.TITLE	COM$RAD50	; FORTRAN COMPATIBILITY - ASCII to RAD50 conversion

                                     0000     2 	.IDENT	/1-1/		; File: COMRAD50.MAR

                                     0000     3 

                                     0000     4 ;

                                     0000     5 ; Copyright (C) 1977

                                     0000     6 ; Digital Equipment Corporation, Maynard, Massachusetts 01754

                                     0000     7 ;

                                     0000     8 ; This software is furnished under a license for use only on a single

                                     0000     9 ; computer  system  and  may be copied only with the inclusion of the

                                     0000    10 ; above copyright notice. This software, or any other copies thereof,

                                     0000    11 ; may not be provided or otherwise made available to any other person

                                     0000    12 ; except for use on such system and to one who agree to these license 

                                     0000    13 ; terms.  Title to  and  ownership of the software shall at all times 

                                     0000    14 ; remain in DEC.

                                     0000    15 ;

                                     0000    16 ; The information in the software is subject to change without notice

                                     0000    17 ; and should  not  be construed  as a commitment by Digital Equipment 

                                     0000    18 ; Corporation.

                                     0000    19 ;

                                     0000    20 ; DEC assumes  no  responsibility  for the use or  reliability of its

                                     0000    21 ; software on equipment which is not supplied by DEC.

                                     0000    22 ;

                                     0000    23 ;

                                     0000    24 ; FACILITY: FORTRAN COMPATABILITY LIBRARY

                                     0000    25 ;++

                                     0000    26 ; ABSTRACT:

                                     0000    27 ;

                                     0000    28 ;	FORTRAN COMPATABILITY library routine RAD50 converts 6 ASCII

                                     0000    29 ;	characters to 2 RAD50 words.

                                     0000    30 ;

                                     0000    31 ;--

                                     0000    32 ;

                                     0000    33 ; VERSION: 0

                                     0000    34 ;

                                     0000    35 ; HISTORY:

                                     0000    36 ;

                                     0000    37 ; AUTHOR:

                                     0000    38 ;	Peter Yuo, 12-Sep-77: Version 0

                                     0000    39 ;

                                     0000    40 ; MODIFIED BY:

                                     0000    41 ;

                                     0000    42 ;

COM$RAD50       ; FORTRAN COMPATIBILITY - ASCII to RAD50 conver  21-AUG-1978 18:53:26   VAX-11 MACRO X0.3-11               Page   2

1-1             HISTORY  ; Detailed Current Edit History                                                                         (2)



                                     0000    44 	.SBTTL	HISTORY		; Detailed Current Edit History

                                     0000    45 

                                     0000    46 ; Edit History for Version 01 of ASCR5O

                                     0000    47 ;

                                     0000    48 ; 0-03	Clear RADIX_VALUE at initialization in R50WD_R6

                                     0000    49 ; 00-06	- Define formal for RAD50 so no access vio.  TNH 5-Jan-78

                                     0000    50 ; 00-07	- Make PSECT be F4PCOMPAT$CODE.  TNH 5-Jan-78

                                     0000    51 ; 0-8	- Bug fix for RAD50.  JMT 5-Jan-78

                                     0000    52 ; 0-9	- Another bug fix for RAD50.  JMT 9-Jan-77

                                     0000    53 ; 1-1	- Break module COM$ASCR50 into 3 modules:

                                     0000    54 ;		COM$RAD50 - routine RAD50

                                     0000    55 ;		COM$IRAD50 - routine IRAD50

                                     0000    56 ;		COM$$R50WD - common ASCII to RAD50 conversion routine

COM$RAD50       ; FORTRAN COMPATIBILITY - ASCII to RAD50 conver  21-AUG-1978 18:53:26   VAX-11 MACRO X0.3-11               Page   3

1-1             DECLARATIONS                                                                                                     (3)



                                     0000    58 	.SBTTL	DECLARATIONS

                                     0000    59 

                                     0000    60 ;

                                     0000    61 ; INCLUDE FILES:

                                     0000    62 ;

                                     0000    63 

                                     0000    64 ;

                                     0000    65 ; EXTERNAL SYMBOLS:

                                     0000    66 ;

                                     0000    67 	.DSABL	GBL

                                     0000    68 	.EXTRN	COM$$R50WD_R6

                                     0000    69 

                                     0000    70 ;

                                     0000    71 ; MACROS:

                                     0000    72 ;

                                     0000    73 

                                     0000    74 ;

                                     0000    75 ; PSECT DECLARATIONS:

                                     0000    76 ;

                                 00000000    77 	.PSECT	F4PCOMPAT$CODE	PIC,USR,CON,REL,LCL,SHR,EXE,RD,NOWRT

                                     0000    78 

                                     0000    79 ;

                                     0000    80 ; EQUATED SYMBOLS:

                                     0000    81 ;

                                     0000    82 

                                     0000    83 ;

                                     0000    84 ; OWN STORAGE:

                                     0000    85 ;

COM$RAD50       ; FORTRAN COMPATIBILITY - ASCII to RAD50 conver  21-AUG-1978 18:53:26   VAX-11 MACRO X0.3-11               Page   4

1-1             RAD50 - CONVERT 6-CHAR ASCII STRING INTO RADIX-                                                                  (4)



                                     0000    87 	.SBTTL	RAD50 - CONVERT 6-CHAR ASCII STRING INTO RADIX-50 STRING

                                     0000    88 

                                     0000    89 

                                     0000    90 ;++

                                     0000    91 ; FUNCTIONAL DESCRIPTION:

                                     0000    92 ;

                                     0000    93 ; 	Algorithmic steps:

                                     0000    94 ;	1) Initialization

                                     0000    95 ;	   CHARS_REM = 6

                                     0000    96 ;	   NEXT_INPUT_POSITION = char_array.rbu.ra

                                     0000    97 ;	2) Call COM$$R50WD_R6 to convert one word at a time.

                                     0000    98 ;

                                     0000    99 ; CALLING SEQUENCE:

                                     0000   100 ;

                                     0000   101 ;	radix50_array.wbu.v = RAD50 (ascii_array.rbu.ra)

                           00000004  0000   102 	ASCII_ARRAY = 4		; arg list offset

                                     0000   103 ;

                                     0000   104 

                                     0000   105 ;

                                     0000   106 ; INPUT PARAMETERS:

                                     0000   107 

                                     0000   108 ;	ascii_array.rbu.ra		; ascii string to be converted

                                     0000   109 ;

                                     0000   110 ; IMPLICIT INPUTS:

                                     0000   111 ;	NONE

                                     0000   112 ;

                                     0000   113 ; OUTPUT PARAMETERS:

                                     0000   114 ;

                                     0000   115 ;	radix50_array.wlu.v		; output location for the result

                                     0000   116 ;					; of the conversion

                                     0000   117 ;

                                     0000   118 ; IMPLICIT OUTPUTS:

                                     0000   119 ;	NONE

                                     0000   120 ;

                                     0000   121 ; COMPLETION CODES:

                                     0000   122 ;	NONE

                                     0000   123 ;

                                     0000   124 ; SIDE EFFECTS:

                                     0000   125 ;	NONE

                                     0000   126 ;

                                     0000   127 ;--

                                     0000   128 

                               007C' 0000   129 	.ENTRY	RAD50, ^M<R2, R3, R4, R5, R6>

                                     0002   130 					; standard call-by-reference entry

                                     0002   131 

                                     0002   132 ;

                                     0002   133 ; Initialization

                                     0002   134 ;

                                     0002   135 

            55            06     D0  0002   136 	MOVL	#6, R5			; CHARS_REM = 6

            52         04 AC     D0  0005   137 	MOVL	ascii_array(AP), R2	; R2 = NEXT_INPUT_POSITION

                                     0009   138 

                                     0009   139 ;

                                     0009   140 ; Call COM$$R50WD_R6

                                     0009   141 ;

                                     0009   142 

                 00000000'EF     16  0009   143 	JSB	COM$$R50WD_R6		; convert first word

COM$RAD50       ; FORTRAN COMPATIBILITY - ASCII to RAD50 conver  21-AUG-1978 18:53:26   VAX-11 MACRO X0.3-11               Page   5

1-1             RAD50 - CONVERT 6-CHAR ASCII STRING INTO RADIX-                                                                  (4)



                                     000F   144 

                                     000F   145 ;

                                     000F   146 ; Save RADIX_VALUE on stack and call COM$$R50WD_R6 again

                                     000F   147 ;

                                     000F   148 

                          51     DD  000F   149 	PUSHL	R1			; save RADIX_VALUE on stack

                 00000000'EF     16  0011   150 	JSB	COM$$R50WD_R6		; call COM$$R50WD_R6 to convert 2nd word

                                     0017   151 

                                     0017   152 ;

                                     0017   153 ; LP(R0) = saved RADIX_VALUE on stack (1st word)

                                     0017   154 ; HP(R0) = RADIX_VALUE (2nd word)

                                     0017   155 ;

                                     0017   156 

            10            51     F0  0017   157 	INSV	R1, #16, #16, (SP)	; HP(SP) = first word converted

            6E            10         001A       

            50            6E     D0  001C   158 	MOVL	(SP), R0		; giving result in R0

                                 04  001F   159 	RET				; return with result in R0

                                     0020   160 

                                     0020   161 

                                     0020   162 	.END

COM$RAD50       ; FORTRAN COMPATIBILITY - ASCII to RAD50 conver  21-AUG-1978 18:53:26   VAX-11 MACRO X0.3-11               Page   6

SYMBOL TABLE                                                                                                                     (4)



ASCII_ARRAY    = 00000004            

COM$$R50WD_R6    ********   X   01   

FOR$K_ERR_PREFX= 00000018            

MTH$K_ERR_PREFX= 00000016            

MTH__FLOOVEMAT = 00000058            

MTH__FLOUNDMAT = 00000059            

MTH__INVARG    = 00000051            

MTH__LOGZERNEG = 00000053            

MTH__SINSIGLOS = 00000057            

MTH__SQUROONEG = 00000054            

MTH__UNDEXP    = 00000052            

MTH__WRONUMARG = 00000050            

RAD50            00000000 RG    02   





PROGRAM SECTION SYNOPSIS



.  ABS  .        00000000      00     NOPIC   USR   CON   ABS   LCL NOSHR NOEXE NORD  NOWRT BYTE  

. BLANK .        00000000      01     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD    WRT BYTE  

F4PCOMPAT$CODE   00000020      02       PIC   USR   CON   REL   LCL   SHR   EXE   RD  NOWRT BYTE  





THERE WERE NO ERRORS OR WARNINGS.

28014. BYTES LEFT IN FREE MEMORY POOL.

OBJ$:COMRAD50,LIS$:COMRAD50/-SP=LIB$:S/ML,SRC$:P,COMRAD50

0 MLB DIR RDS - 0 GETS TO DEFINE 0 MACROS. 2 INTER. FILE WRITES. 

