Trailing-Edge
-
PDP-10 Archives
-
TOPS-20_V6.1_DECnetSrc_7-23-85
-
mcb/utilities/catb.lst
There is 1 other file named catb.lst in the archive. Click here to see a list.
12-Apr-1985 07:09:15 TOPS-20 Bliss-36 4A(225) Page 1
30-Dec-1982 17:28:34 DNET61:<DECNET.UTILITIES>CATB.BLI.1 (1)
; 0001 0
; 0002 0 MODULE CATB ( !ASCII to binary conversion routines
; 0003 0 IDENT = '001010',
; 0004 0 LANGUAGE (BLISS16, BLISS36) %BLISS36 (, ENTRY ($CDTB, $COTB))
; 0005 0 ) =
; 0006 1 BEGIN
; 0007 1 !
; 0008 1 !
; 0009 1 !
; 0010 1 ! COPYRIGHT (c) 1980, 1981, 1982
; 0011 1 ! DIGITAL EQUIPMENT CORPORATION
; 0012 1 ! Maynard, Massachusetts
; 0013 1 !
; 0014 1 ! This software is furnished under a license and may be used
; 0015 1 ! and copied only in accordance with the terms of such license
; 0016 1 ! and with the inclusion of the above copyright notice. This
; 0017 1 ! software or any other copies thereof may not be provided or
; 0018 1 ! otherwise made available to any other person. No title to
; 0019 1 ! and ownership of the software is hereby transferred.
; 0020 1 !
; 0021 1 ! The information in this software is subject to change
; 0022 1 ! without notice and should not be construed as a commitment
; 0023 1 ! by DIGITAL EQUIPMENT CORPORATION.
; 0024 1 !
; 0025 1 ! DIGITAL assumes no responsibility for the use or reliability
; 0026 1 ! of its software on equipment which is not supplied by
; 0027 1 ! DIGITAL.
; 0028 1 !
; 0029 1
; 0030 1 !++
; 0031 1 ! FACILITY: SYSTEM LIBRARY
; 0032 1 !
; 0033 1 ! ABSTRACT:
; 0034 1 !
; 0035 1 !
; 0036 1 ! THIS MODULE CONTAINS ROUTINES TO CONVERT DECIMAL OR OCTAL ASCII
; 0037 1 ! TO BINARY.
; 0038 1 !
; 0039 1 !
; 0040 1 ! ENVIRONMENT: ANY
; 0041 1 !
; 0042 1 ! AUTHOR: ALAN D. PECKHAM, CREATION DATE: 28-AUG-78
; 0043 1 !
; 0044 1 ! MODIFIED BY:
; 0045 1 !
; 0046 1 ! , : VERSION
; 0047 1 ! 01 -
; 0048 1 !--
; 0049 1
; 0050 1 !
; 0051 1 ! TABLE OF CONTENTS:
; 0052 1 !
CATB 12-Apr-1985 07:09:15 TOPS-20 Bliss-36 4A(225) Page 2
001010 30-Dec-1982 17:28:34 DNET61:<DECNET.UTILITIES>CATB.BLI.1 (1)
; 0053 1
; 0054 1 FORWARD ROUTINE
; 0055 1 $CDTB, !Convert decimal ASCII to binary.
; 0056 1 $COTB, !Convert octal ASCII to binary.
; 0057 1 COTB; !ASCII to binary common routine
; 0058 1
; 0059 1 !
; 0060 1 ! INCLUDE FILES
; 0061 1 !
; 0062 1 ! NONE
; 0063 1 !
; 0064 1 ! MACROS:
; 0065 1 !
; 0066 1 ! NONE
; 0067 1 !
; 0068 1 ! EQUATED SYMBOLS:
; 0069 1 !
; 0070 1 ! NONE
; 0071 1 !
; 0072 1 ! OWN STORAGE:
; 0073 1 !
; 0074 1 ! NONE
; 0075 1 !
; 0076 1 ! EXTERNAL REFERENCES:
; 0077 1 !
; 0078 1 ! NONE
; 0079 1 !
; 0080 1
CATB 12-Apr-1985 07:09:15 TOPS-20 Bliss-36 4A(225) Page 3
001010 30-Dec-1982 17:28:34 DNET61:<DECNET.UTILITIES>CATB.BLI.1 (2)
; 0081 1 GLOBAL ROUTINE $CDTB (BUF_PTR_ADR) =
; 0082 1
; 0083 1 !++
; 0084 1 ! FUNCTIONAL DESCRIPTION:
; 0085 1 !
; 0086 1 !
; 0087 1 !
; 0088 1 !
; 0089 1 ! FORMAL PARAMETERS:
; 0090 1 !
; 0091 1 ! .BUF_PTR_ADR !Address of character sequence
; 0092 1 ! !pointer to buffer to extract
; 0093 1 ! !number from.
; 0094 1 !
; 0095 1 ! IMPLICIT INPUTS:
; 0096 1 !
; 0097 1 ! NONE
; 0098 1 !
; 0099 1 ! IMPLICIT OUTPUTS:
; 0100 1 !
; 0101 1 ! The buffer pointer ..BUF_PTR_ADR is updated to point past
; 0102 1 ! the characters used in the conversion.
; 0103 1 !
; 0104 1 ! ROUTINE VALUE:
; 0105 1 !
; 0106 1 ! The binary equivalent of the decimal number.
; 0107 1 !
; 0108 1 ! SIDE EFFECTS
; 0109 1 !
; 0110 1 ! NONE
; 0111 1 !
; 0112 1 !--
; 0113 1
; 0114 2 BEGIN
; 0115 2
; 0116 2 LITERAL
; 0117 2 RADIX = 10; !Use a radix of 10.
; 0118 2
; 0119 2 COTB (.BUF_PTR_ADR, RADIX) !Convert the number.
; 0120 1 END; !OF $CDTB
TITLE CATB
TWOSEG
ENTRY $CDTB, $COTB
.REQUEST SYS:B362LB.REL
CATB 12-Apr-1985 07:09:15 TOPS-20 Bliss-36 4A(225) Page 4
001010 30-Dec-1982 17:28:34 DNET61:<DECNET.UTILITIES>CATB.BLI.1 (2)
AC0= 0
AC1= 1
AC2= 2
AC3= 3
AC4= 4
AC5= 5
AC6= 6
AC7= 7
AC10= 10
AC11= 11
AC12= 12
AC13= 13
AC14= 14
FP= 15
AC16= 16
SP= 17
RELOC 400000 ; 400000'
$CDTB:: PUSH SP,-1(SP) ; SP,BUF_PTR_ADR 400000' 261 17 0 17 777777 0114
PUSH SP,C.1 ; SP,[12] 400001' 261 17 0 00 400005'
PUSHJ SP,COTB ; SP,COTB 400002' 260 17 0 00 000000V
ADJSP SP,-2 ; SP,-2 400003' 105 17 0 00 777776
POPJ SP, ; SP, 400004' 263 17 0 00 000000 0081
C.1: EXP 12 ; 12 400005' 000000 000012
; Routine Size: 6 words
; 0121 1
CATB 12-Apr-1985 07:09:15 TOPS-20 Bliss-36 4A(225) Page 5
001010 30-Dec-1982 17:28:34 DNET61:<DECNET.UTILITIES>CATB.BLI.1 (3)
; 0122 1 GLOBAL ROUTINE $COTB (BUF_PTR_ADR) =
; 0123 1
; 0124 1 !++
; 0125 1 ! FUNCTIONAL DESCRIPTION:
; 0126 1 !
; 0127 1 !
; 0128 1 !
; 0129 1 !
; 0130 1 ! FORMAL PARAMETERS:
; 0131 1 !
; 0132 1 ! .BUF_PTR_ADR !Address of character sequence
; 0133 1 ! !pointer to buffer to extract
; 0134 1 ! !number from.
; 0135 1 !
; 0136 1 ! IMPLICIT INPUTS:
; 0137 1 !
; 0138 1 ! NONE
; 0139 1 !
; 0140 1 ! IMPLICIT OUTPUTS:
; 0141 1 !
; 0142 1 ! The buffer pointer ..BUF_PTR_ADR is updated to point past
; 0143 1 ! the characters used in the conversion.
; 0144 1 !
; 0145 1 ! ROUTINE VALUE:
; 0146 1 !
; 0147 1 ! The binary equivalent of the octal number.
; 0148 1 !
; 0149 1 ! SIDE EFFECTS
; 0150 1 !
; 0151 1 ! NONE
; 0152 1 !
; 0153 1 !--
; 0154 1
; 0155 2 BEGIN
; 0156 2
; 0157 2 LITERAL
; 0158 2 RADIX = 10; !Use a radix of 10.
; 0159 2
; 0160 2 COTB (.BUF_PTR_ADR, RADIX) !Convert the number.
; 0161 1 END; !OF $COTB
$COTB:: PUSH SP,-1(SP) ; SP,BUF_PTR_ADR 400006' 261 17 0 17 777777 0155
PUSH SP,C.1 ; SP,[12] 400007' 261 17 0 00 400005'
PUSHJ SP,COTB ; SP,COTB 400010' 260 17 0 00 000000V
ADJSP SP,-2 ; SP,-2 400011' 105 17 0 00 777776
POPJ SP, ; SP, 400012' 263 17 0 00 000000 0122
; Routine Size: 5 words
; 0162 1
CATB 12-Apr-1985 07:09:15 TOPS-20 Bliss-36 4A(225) Page 6
001010 30-Dec-1982 17:28:34 DNET61:<DECNET.UTILITIES>CATB.BLI.1 (4)
; 0163 1 ROUTINE COTB (BUF_PTR_ADR, RADIX) =
; 0164 1
; 0165 1 !++
; 0166 1 ! FUNCTIONAL DESCRIPTION:
; 0167 1 !
; 0168 1 !
; 0169 1 !
; 0170 1 !
; 0171 1 ! FORMAL PARAMETERS:
; 0172 1 !
; 0173 1 ! .BUF_PTR_ADR !Address of character sequence
; 0174 1 ! !pointer to buffer to extract
; 0175 1 ! !number from.
; 0176 1 ! RADIX !Radix for conversion
; 0177 1 !
; 0178 1 ! IMPLICIT INPUTS:
; 0179 1 !
; 0180 1 ! NONE
; 0181 1 !
; 0182 1 ! IMPLICIT OUTPUTS:
; 0183 1 !
; 0184 1 ! The buffer pointer ..BUF_PTR_ADR is updated to point past
; 0185 1 ! the characters used in the conversion.
; 0186 1 !
; 0187 1 ! ROUTINE VALUE:
; 0188 1 !
; 0189 1 ! The binary equivalent of the number in the specified radix.
; 0190 1 !
; 0191 1 ! SIDE EFFECTS
; 0192 1 !
; 0193 1 ! NONE
; 0194 1 !
; 0195 1 !--
; 0196 1
; 0197 2 BEGIN
; 0198 2
; 0199 2 LOCAL
; 0200 2 BUF_PTR,
; 0201 2 DIGIT, !NEXT digit FROM STRING
; 0202 2 VALUE; !RESULTING VALUE EXTRACTED
; 0203 2
; 0204 2 BUF_PTR = ..BUF_PTR_ADR;
; 0205 2 VALUE = 0;
; 0206 2
; 0207 2 WHILE (DIGIT = CH$RCHAR_A (BUF_PTR) - %C'0') GEQ 0 AND .DIGIT LSS .RADIX DO
; 0208 2 VALUE = (.VALUE*.RADIX) + .DIGIT;
; 0209 2
; 0210 2 .BUF_PTR_ADR = CH$PLUS (.BUF_PTR, -1);
; 0211 2 .VALUE
; 0212 1 END; !OF COTB
CATB 12-Apr-1985 07:09:15 TOPS-20 Bliss-36 4A(225) Page 7
001010 30-Dec-1982 17:28:34 DNET61:<DECNET.UTILITIES>CATB.BLI.1 (4)
COTB: MOVE AC3,-2(SP) ; AC3,BUF_PTR_ADR 400013' 200 03 0 17 777776 0204
MOVE AC5,0(AC3) ; BUF_PTR,0(AC3) 400014' 200 05 0 03 000000
SETZ AC4, ; VALUE, 400015' 400 04 0 00 000000 0205
L.1: ILDB AC1,AC5 ; AC1,BUF_PTR 400016' 134 01 0 00 000005 0207
MOVE AC2,AC1 ; DIGIT,AC1 400017' 200 02 0 00 000001
SUBI AC2,60 ; DIGIT,60 400020' 275 02 0 00 000060
JUMPL AC2,L.2 ; DIGIT,L.2 400021' 321 02 0 00 400031'
CAML AC2,-1(SP) ; DIGIT,RADIX 400022' 311 02 0 17 777777
JRST L.2 ; L.2 400023' 254 00 0 00 400031'
MOVE AC1,AC4 ; AC1,VALUE 400024' 200 01 0 00 000004 0208
IMUL AC1,-1(SP) ; AC1,RADIX 400025' 220 01 0 17 777777
MOVE AC4,AC1 ; VALUE,AC1 400026' 200 04 0 00 000001
ADD AC4,AC2 ; VALUE,DIGIT 400027' 270 04 0 00 000002
JRST L.1 ; L.1 400030' 254 00 0 00 400016' 0207
L.2: SETO AC1, ; AC1, 400031' 474 01 0 00 000000 0210
ADJBP AC1,AC5 ; AC1,BUF_PTR 400032' 133 01 0 00 000005
MOVEM AC1,0(AC3) ; AC1,0(AC3) 400033' 202 01 0 03 000000
MOVE AC1,AC4 ; AC1,VALUE 400034' 200 01 0 00 000004 0163
POPJ SP, ; SP, 400035' 263 17 0 00 000000
; Routine Size: 19 words
; 0213 1 END
; 0214 1
; 0215 0 ELUDOM
; Low segment length: 0 words
; High segment length: 30 words
; Size: 30 code + 0 data words
; Run Time: 00:00.7
; Elapsed Time: 00:01.0
; Lines/CPU Min: 17622
; Lexemes/CPU-Min: 18032
; Memory Used: 4 pages
; Compilation Complete