Trailing-Edge
-
PDP-10 Archives
-
BB-P363B-SM_1985
-
mcb/mcb/xportx.lst
There are no other files named xportx.lst in the archive.
24-Jan-1983 10:37:18 TOPS-20 Bliss-16 2A(530) Page 1
30-Dec-1982 17:27:53 NETPKG:<MCB>XPORTX.REQ.7 (1)
; 0001 ! COPYRIGHT (c) 1980, 1981, 1982
; 0002 ! DIGITAL EQUIPMENT CORPORATION
; 0003 ! Maynard, Massachusetts
; 0004 !
; 0005 ! This software is furnished under a license and may be used
; 0006 ! and copied only in accordance with the terms of such license
; 0007 ! and with the inclusion of the above copyright notice. This
; 0008 ! software or any other copies thereof may not be provided or
; 0009 ! otherwise made available to any other person. No title to
; 0010 ! and ownership of the software is hereby transferred.
; 0011 !
; 0012 ! The information in this software is subject to change
; 0013 ! without notice and should not be construed as a commitment
; 0014 ! by DIGITAL EQUIPMENT CORPORATION.
; 0015 !
; 0016 ! DIGITAL assumes no responsibility for the use or reliability
; 0017 ! of its software on equipment which is not supplied by
; 0018 ! DIGITAL.
; 0019
; 0020 !+
; 0021 ! XPORTX - XPORT extensions for Comm/Nets
; 0022 !-
; 0023
; 0024 require 'BLI:XPORT';
24-Jan-1983 10:37:18 TOPS-20 Bliss-16 2A(530) Page 2
26-Mar-1981 08:43:24 NETPKG:<BRELEASE>XPORT.REQ.3 (3)
; %PRINT: 1
; %PRINT: 2
; %PRINT: 3
; %PRINT: 4
; %PRINT: 5
; %PRINT: 6
; %PRINT: 7
; %PRINT: 8
; %PRINT: 9
; %PRINT: 10
; %PRINT: 11
; %PRINT: [0,0,16,0] (+%O'0')
; %PRINT: [1,0,8,0] (+%O'2')
; %PRINT: [1,8,8,0] (+%O'3')
; %PRINT: [2,0,16,0] (+%O'4')
; %PRINT: 3 fullwords
; %PRINT: 3 fullwords
; %PRINT: 3 fullwords
; %PRINT: [3,0,16,0] (+%O'6')
; %PRINT: [4,0,16,0] (+%O'10')
; %PRINT: 5 fullwords
; %PRINT: 5 fullwords
; %PRINT: 5 fullwords
; %PRINT: [0,0,16,0] (+%O'0')
; %PRINT: [1,0,8,0] (+%O'2')
; %PRINT: [1,8,8,0] (+%O'3')
; %PRINT: [2,0,16,0] (+%O'4')
; %PRINT: 3 fullwords
; %PRINT: 3 fullwords
; %PRINT: [3,0,16,0] (+%O'6')
; %PRINT: [4,0,16,0] (+%O'10')
; %PRINT: 5 fullwords
; %PRINT: 5 fullwords
; %PRINT: 5 fullwords
; %PRINT: [0,0,0,1] (+%O'0')
; %PRINT: [2,0,8,0] (+%O'4')
; %PRINT: [2,8,8,0] (+%O'5')
; %PRINT: [3,0,16,0] (+%O'6')
; %PRINT: [4,0,0,1] (+%O'10')
; %PRINT: [6,0,8,0] (+%O'14')
; %PRINT: [6,8,8,0] (+%O'15')
; %PRINT: [7,0,16,0] (+%O'16')
; %PRINT: 8 fullwords
; %PRINT: [0,0,16,1] (+%O'0')
; %PRINT: [1,0,8,1] (+%O'2')
; %PRINT: [1,8,8,1] (+%O'3')
; %PRINT: [2,0,16,0] (+%O'4')
; %PRINT: [3,0,16,0] (+%O'6')
; %PRINT: [4,0,16,0] (+%O'10')
; %PRINT: [5,0,0,0] (+%O'12')
; %PRINT: [10,0,0,0] (+%O'24')
; %PRINT: [13,0,16,0] (+%O'32')
24-Jan-1983 10:37:18 TOPS-20 Bliss-16 2A(530) Page 3
26-Mar-1981 08:43:24 NETPKG:<BRELEASE>XPORT.REQ.3 (9)
; %PRINT: [14,0,16,0] (+%O'34')
; %PRINT: [15,0,8,0] (+%O'36')
; %PRINT: 1
; %PRINT: 2
; %PRINT: 3
; %PRINT: 4
; %PRINT: 5
; %PRINT: 6
; %PRINT: 7
; %PRINT: [16,0,16,0] (+%O'40')
; %PRINT: [16,0,1,0] (+%O'40')
; %PRINT: [16,1,1,0] (+%O'40')
; %PRINT: [16,2,1,0] (+%O'40')
; %PRINT: [16,3,1,0] (+%O'40')
; %PRINT: [16,4,1,0] (+%O'40')
; %PRINT: [16,5,1,0] (+%O'40')
; %PRINT: [17,0,16,0] (+%O'42')
; %PRINT: [17,0,1,0] (+%O'42')
; %PRINT: [17,1,1,0] (+%O'42')
; %PRINT: [17,2,1,0] (+%O'42')
; %PRINT: [17,3,1,0] (+%O'42')
; %PRINT: [17,4,1,0] (+%O'42')
; %PRINT: [18,0,16,0] (+%O'44')
; %PRINT: [18,0,1,0] (+%O'44')
; %PRINT: [18,1,1,0] (+%O'44')
; %PRINT: [18,2,1,0] (+%O'44')
; %PRINT: [18,3,1,0] (+%O'44')
; %PRINT: [18,4,1,0] (+%O'44')
; %PRINT: [18,5,1,0] (+%O'44')
; %PRINT: [18,6,1,0] (+%O'44')
; %PRINT: [18,7,1,0] (+%O'44')
; %PRINT: [19,0,0,0] (+%O'46')
; %PRINT: [19,0,16,0] (+%O'46')
; %PRINT: [21,0,16,0] (+%O'52')
; %PRINT: [19,0,0,0] (+%O'46')
; %PRINT: [19,0,16,0] (+%O'46')
; %PRINT: [21,0,16,0] (+%O'52')
; %PRINT: [24,0,16,0] (+%O'60')
; %PRINT: [25,0,16,0] (+%O'62')
; %PRINT: [25,0,16,0] (+%O'62')
; %PRINT: [26,0,16,1] (+%O'64')
; %PRINT: [27,0,16,1] (+%O'66')
; %PRINT: [28,0,16,1] (+%O'70')
; %PRINT: [29,0,16,1] (+%O'72')
; %PRINT: [30,0,16,1] (+%O'74')
; %PRINT: [31,0,16,1] (+%O'76')
; %PRINT: [32,0,16,1] (+%O'100')
; %PRINT: [33,0,0,0] (+%O'102')
; %PRINT: [41,0,0,0] (+%O'122')
; %PRINT: [49,0,0,0] (+%O'142')
; %PRINT: [65,0,16,1] (+%O'202')
; %PRINT: [66,0,16,1] (+%O'204')
24-Jan-1983 10:37:18 TOPS-20 Bliss-16 2A(530) Page 4
26-Mar-1981 08:43:24 NETPKG:<BRELEASE>XPORT.REQ.3 (9)
; %PRINT: [67,0,16,1] (+%O'206')
; %PRINT: [68,0,16,1] (+%O'210')
; %PRINT: [69,0,16,1] (+%O'212')
; %PRINT: [70,0,16,1] (+%O'214')
; %PRINT: [71,0,16,1] (+%O'216')
; %PRINT: [72,0,16,1] (+%O'220')
; %PRINT: [73,0,16,1] (+%O'222')
; %PRINT: [74,0,16,1] (+%O'224')
; %PRINT: [75,0,16,1] (+%O'226')
; %PRINT: [76,0,16,1] (+%O'230')
; %PRINT: [77,0,16,0] (+%O'232')
; %PRINT: [77,0,16,0] (+%O'232')
; %PRINT: [78,0,16,0] (+%O'234')
; %PRINT: [77,0,16,0] (+%O'232')
; %PRINT: [77,0,16,0] (+%O'232')
; %PRINT: [79,0,16,1] (+%O'236')
; %PRINT: 80 fullwords
; %PRINT: [0,0,16,0] (+%O'0')
; %PRINT: [0,0,1,0] (+%O'0')
; %PRINT: [0,1,1,0] (+%O'0')
; %PRINT: [0,2,1,0] (+%O'0')
; %PRINT: [0,3,1,0] (+%O'0')
; %PRINT: [0,4,1,0] (+%O'0')
; %PRINT: [0,5,1,0] (+%O'0')
; %PRINT: [0,6,1,0] (+%O'0')
; %PRINT: [0,7,1,0] (+%O'0')
; %PRINT: [0,8,1,0] (+%O'1')
; %PRINT: [0,9,1,0] (+%O'1')
; %PRINT: [0,10,1,0] (+%O'1')
; %PRINT: [1,0,0,0] (+%O'2')
; %PRINT: [1,0,16,0] (+%O'2')
; %PRINT: [3,0,16,0] (+%O'6')
; %PRINT: [4,0,0,0] (+%O'10')
; %PRINT: [4,0,16,0] (+%O'10')
; %PRINT: [6,0,16,0] (+%O'14')
; %PRINT: [7,0,0,0] (+%O'16')
; %PRINT: [7,0,16,0] (+%O'16')
; %PRINT: [9,0,16,0] (+%O'22')
; %PRINT: [10,0,16,0] (+%O'24')
; %PRINT: [11,0,16,0] (+%O'26')
; %PRINT: [12,0,0,0] (+%O'30')
; %PRINT: [12,0,16,0] (+%O'30')
; %PRINT: [14,0,16,0] (+%O'34')
; %PRINT: [15,0,0,0] (+%O'36')
; %PRINT: [15,0,16,0] (+%O'36')
; %PRINT: [17,0,16,0] (+%O'42')
; %PRINT: [18,0,0,0] (+%O'44')
; %PRINT: [18,0,16,0] (+%O'44')
; %PRINT: [20,0,16,0] (+%O'50')
; %PRINT: [21,0,0,0] (+%O'52')
; %PRINT: [21,0,16,0] (+%O'52')
; %PRINT: [23,0,16,0] (+%O'56')
24-Jan-1983 10:37:18 TOPS-20 Bliss-16 2A(530) Page 5
26-Mar-1981 08:43:24 NETPKG:<BRELEASE>XPORT.REQ.3 (11)
; %PRINT: [24,0,0,0] (+%O'60')
; %PRINT: [24,0,16,0] (+%O'60')
; %PRINT: [26,0,16,0] (+%O'64')
; %PRINT: 27 fullwords
; %PRINT: [0,0,16,0] (+%O'0')
; %PRINT: [1,0,16,0] (+%O'2')
; %PRINT: 2 fullwords
; %PRINT: 1
; %PRINT: 2
; %PRINT: [0,0,16,0] (+%O'0')
; %PRINT: [0,0,8,0] (+%O'0')
; %PRINT: [0,8,8,0] (+%O'1')
; %PRINT: [0,0,8,0] (+%O'0')
; %PRINT: [0,0,1,0] (+%O'0')
; %PRINT: [0,1,1,0] (+%O'0')
; %PRINT: [0,2,1,0] (+%O'0')
; %PRINT: [0,8,1,0] (+%O'1')
; %PRINT: [0,9,1,0] (+%O'1')
; %PRINT: [0,10,1,0] (+%O'1')
; %PRINT: [0,11,1,0] (+%O'1')
; %PRINT: [0,12,1,0] (+%O'1')
; %PRINT: [0,13,1,0] (+%O'1')
; %PRINT: [0,14,1,0] (+%O'1')
; %PRINT: [0,8,1,0] (+%O'1')
; %PRINT: [0,9,1,0] (+%O'1')
; %PRINT: STR$M_LEFT_JUST = 1
; %PRINT: STR$M_RIGHT_JUS = 2
; %PRINT: STR$M_CENTER = 4
; %PRINT: STR$M_SIGNED = 256
; %PRINT: STR$M_UNSIGNED = 512
; %PRINT: STR$M_LEADING_Z = 1024
; %PRINT: STR$M_LEADING_B = 2048
; %PRINT: STR$M_UP_CASE = 4096
; %PRINT: STR$M_TRUNCATE = 8192
; %PRINT: STR$M_NO_FREE_T = 16384
; %PRINT: STR$M_REMAINDER = 256
; %PRINT: STR$M_TARGET = 512
; %PRINT: 1
; %PRINT: 2
; %PRINT: 3
; %PRINT: 4
; %PRINT: 5
; %PRINT: 6
; %PRINT: 7
; %PRINT: 1
; %PRINT: 2
; %PRINT: 3
; %PRINT: XPO$_NORMAL = 1 (%O'1')
; %PRINT: XPO$_CREATED = 9 (%O'11')
; %PRINT: XPO$_INCOMPLETE = 17 (%O'21')
; %PRINT: XPO$_NEW_FILE = 25 (%O'31')
; %PRINT: XPO$_NEW_PAGE = 33 (%O'41')
24-Jan-1983 10:37:18 TOPS-20 Bliss-16 2A(530) Page 6
26-Mar-1981 08:43:24 NETPKG:<BRELEASE>XPORT.REQ.3 (21)
; %PRINT: XPO$_END_FILE = 4096 (%O'10000')
; %PRINT: XPO$_BAD_ADDR = 8194 (%O'20002')
; %PRINT: XPO$_BAD_ALIGN = 8202 (%O'20012')
; %PRINT: XPO$_BAD_ARGS = 8210 (%O'20022')
; %PRINT: XPO$_BAD_CONCAT = 8218 (%O'20032')
; %PRINT: XPO$_BAD_DELIM = 8226 (%O'20042')
; %PRINT: XPO$_BAD_DESC = 8234 (%O'20052')
; %PRINT: XPO$_BAD_DEVICE = 8242 (%O'20062')
; %PRINT: XPO$_BAD_DFLT = 8250 (%O'20072')
; %PRINT: XPO$_BAD_DIRECT = 8258 (%O'20102')
; %PRINT: XPO$_BAD_DTYPE = 8266 (%O'20112')
; %PRINT: XPO$_BAD_FORMAT = 8274 (%O'20122')
; %PRINT: XPO$_BAD_IO_OPT = 8282 (%O'20132')
; %PRINT: XPO$_BAD_LENGTH = 8290 (%O'20142')
; %PRINT: XPO$_BAD_NAME = 8298 (%O'20152')
; %PRINT: XPO$_BAD_NEW = 8306 (%O'20162')
; %PRINT: XPO$_BAD_NODE = 8314 (%O'20172')
; %PRINT: XPO$_BAD_ORG = 8322 (%O'20202')
; %PRINT: XPO$_BAD_PROMPT = 8330 (%O'20212')
; %PRINT: XPO$_BAD_RECORD = 8338 (%O'20222')
; %PRINT: XPO$_BAD_REQ = 8346 (%O'20232')
; %PRINT: XPO$_BAD_RLTD = 8354 (%O'20242')
; %PRINT: XPO$_BAD_RSLT = 8362 (%O'20252')
; %PRINT: XPO$_BAD_SPEC = 8370 (%O'20262')
; %PRINT: XPO$_BAD_TYPE = 8378 (%O'20272')
; %PRINT: XPO$_BAD_VER = 8386 (%O'20302')
; %PRINT: XPO$_CHANNEL = 8394 (%O'20312')
; %PRINT: XPO$_CLOSED = 8402 (%O'20322')
; %PRINT: XPO$_CONFLICT = 8410 (%O'20332')
; %PRINT: XPO$_CORRUPTED = 8418 (%O'20342')
; %PRINT: XPO$_EXISTS = 8426 (%O'20352')
; %PRINT: XPO$_FILE_LOCK = 8434 (%O'20362')
; %PRINT: XPO$_FREE_MEM = 8442 (%O'20372')
; %PRINT: XPO$_GET_MEM = 8450 (%O'20402')
; %PRINT: XPO$_IN_USE = 8458 (%O'20412')
; %PRINT: XPO$_IO_BUFFER = 8466 (%O'20422')
; %PRINT: XPO$_IO_ERROR = 8474 (%O'20432')
; %PRINT: XPO$_MISSING = 8482 (%O'20442')
; %PRINT: XPO$_NETWORK = 8490 (%O'20452')
; %PRINT: XPO$_NO_ACCESS = 8498 (%O'20462')
; %PRINT: XPO$_NO_BACKUP = 8506 (%O'20472')
; %PRINT: XPO$_NO_CHANNEL = 8514 (%O'20502')
; %PRINT: XPO$_NO_CLOSE = 8522 (%O'20512')
; %PRINT: XPO$_NO_CONCAT = 8530 (%O'20522')
; %PRINT: XPO$_NO_CREATE = 8538 (%O'20532')
; %PRINT: XPO$_NO_DELETE = 8546 (%O'20542')
; %PRINT: XPO$_NO_DIRECT = 8554 (%O'20552')
; %PRINT: XPO$_NO_FILE = 8562 (%O'20562')
; %PRINT: XPO$_NO_MEMORY = 8570 (%O'20572')
; %PRINT: XPO$_NO_OPEN = 8578 (%O'20602')
; %PRINT: XPO$_NO_READ = 8586 (%O'20612')
; %PRINT: XPO$_NO_RENAME = 8594 (%O'20622')
24-Jan-1983 10:37:18 TOPS-20 Bliss-16 2A(530) Page 7
26-Mar-1981 08:43:24 NETPKG:<BRELEASE>XPORT.REQ.3 (21)
; %PRINT: XPO$_NO_SPACE = 8602 (%O'20632')
; %PRINT: XPO$_NO_SUBDIR = 8610 (%O'20642')
; %PRINT: XPO$_NO_SUPPORT = 8618 (%O'20652')
; %PRINT: XPO$_NO_WRITE = 8626 (%O'20662')
; %PRINT: XPO$_NOT_CLOSED = 8634 (%O'20672')
; %PRINT: XPO$_NOT_EXPIRE = 8642 (%O'20702')
; %PRINT: XPO$_NOT_INPUT = 8650 (%O'20712')
; %PRINT: XPO$_NOT_ONLINE = 8658 (%O'20722')
; %PRINT: XPO$_NOT_OPEN = 8666 (%O'20732')
; %PRINT: XPO$_NOT_OUTPUT = 8674 (%O'20742')
; %PRINT: XPO$_OPEN = 8682 (%O'20752')
; %PRINT: XPO$_PREV_ERROR = 8690 (%O'20762')
; %PRINT: XPO$_PRIVILEGED = 8698 (%O'20772')
; %PRINT: XPO$_PROTECTED = 8706 (%O'21002')
; %PRINT: XPO$_PUT_MSG = 8714 (%O'21012')
; %PRINT: XPO$_REC_LOCK = 8722 (%O'21022')
; %PRINT: XPO$_RENAME_NEW = 8730 (%O'21032')
; %PRINT: XPO$_RENAME_OLD = 8738 (%O'21042')
; %PRINT: XPO$_TRUNCATED = 8746 (%O'21052')
; %PRINT: XPO$_WILDCARD = 8754 (%O'21062')
; %PRINT: XPO$_BAD_ACCT = 8762 (%O'21072')
; %PRINT: XPO$_BAD_ATTR = 8770 (%O'21102')
; %PRINT: XPO$_BAD_DATA = 8778 (%O'21112')
; %PRINT: XPO$_BAD_MEDIA = 8786 (%O'21122')
; %PRINT: XPO$_BAD_MEMORY = 8794 (%O'21132')
; %PRINT: XPO$_BAD_PROT = 8802 (%O'21142')
; %PRINT: XPO$_BAD_PTR = 8810 (%O'21152')
; %PRINT: XPO$_BAD_RECNUM = 8818 (%O'21162')
; %PRINT: XPO$_BAD_SIZE = 8826 (%O'21172')
; %PRINT: XPO$_BAD_TEMP = 8834 (%O'21202')
; %PRINT: XPO$_CHAN_USED = 8842 (%O'21212')
; %PRINT: XPO$_HOST_ERROR = 8850 (%O'21222')
; %PRINT: XPO$_NO_NODE = 8858 (%O'21232')
; %PRINT: XPO$_NO_STACK = 8866 (%O'21242')
; %PRINT: XPO$_SYS_ERROR = 8874 (%O'21252')
; %PRINT: XPO$_BAD_CLASS = 8882 (%O'21262')
; %PRINT: XPO$_NO_TEMP = 8890 (%O'21272')
; %PRINT: XPO$_FOREGROUND = 8898 (%O'21302')
; %PRINT: XPO$_NO_APPEND = 8906 (%O'21312')
; %PRINT: XPO$_NO_SEQ = 8914 (%O'21322')
; %PRINT: XPO$_BAD_ORDER = 8922 (%O'21332')
; %PRINT: XPO$_BAD_SYNTAX = 8930 (%O'21342')
; %PRINT: XPO$_BAD_IOB = 16388 (%O'40004')
; %PRINT: XPO$_BAD_LOGIC = 16396 (%O'40014')
; %PRINT: XPO$_TERMINATE = 16404 (%O'40024')
; %PRINT: STR$_END_STRING = 2049 (%O'4001')
; %PRINT: STR$_TRUNCATED = 2057 (%O'4011')
; %PRINT: STR$_NOT_TEMP = 2065 (%O'4021')
; %PRINT: STR$_BAD_CHAR = 10242 (%O'24002')
; %PRINT: STR$_BAD_CLASS = 10250 (%O'24012')
; %PRINT: STR$_BAD_DESC = 10258 (%O'24022')
; %PRINT: STR$_BAD_DTYPE = 10266 (%O'24032')
24-Jan-1983 10:37:18 TOPS-20 Bliss-16 2A(530) Page 8
26-Mar-1981 08:43:24 NETPKG:<BRELEASE>XPORT.REQ.3 (21)
; %PRINT: STR$_BAD_LENGTH = 10274 (%O'24042')
; %PRINT: STR$_BAD_MAXLEN = 10282 (%O'24052')
; %PRINT: STR$_BAD_PATTRN = 10290 (%O'24062')
; %PRINT: STR$_BAD_PTR = 10298 (%O'24072')
; %PRINT: STR$_BAD_REQ = 10306 (%O'24102')
; %PRINT: STR$_BAD_SOURCE = 10314 (%O'24112')
; %PRINT: STR$_BAD_STRNG1 = 10322 (%O'24122')
; %PRINT: STR$_BAD_STRNG2 = 10330 (%O'24132')
; %PRINT: STR$_BAD_TARGET = 10338 (%O'24142')
; %PRINT: STR$_CONFLICT = 10346 (%O'24152')
; %PRINT: STR$_NO_SPACE = 10354 (%O'24162')
; %PRINT: STR$_NO_STRING = 10362 (%O'24172')
; %PRINT: STR$_NO_SUPPORT = 10370 (%O'24202')
; %PRINT: STR$_NO_TEMP = 10378 (%O'24212')
; %PRINT: STR$_NULL_STRNG = 10386 (%O'24222')
; %PRINT: STR$_OUT_RANGE = 10394 (%O'24232')
; %PRINT: STR$_TOO_LONG = 10402 (%O'24242')
; %PRINT: STR$_BAD_LOGIC = 18436 (%O'44004')
; %PRINT: 1
; %PRINT: 2
; %PRINT: 3
; %PRINT: 4
; %PRINT: 5
; %PRINT: 1
; %PRINT: 2
; %PRINT: 3
; %PRINT: 4
; %PRINT: 5
; %PRINT: 6
24-Jan-1983 10:37:18 TOPS-20 Bliss-16 2A(530) Page 9
30-Dec-1982 17:27:53 NETPKG:<MCB>XPORTX.REQ.7 (1)
; 3667
; 3668 literal
; 3669 xportx_version = 1, ! Version of XPORTX
; 3670 bits_byte = $xpo$bits_byte, ! Bits per byte
; 3671 bytes_word = %bpval / $xpo$bits_byte; ! Bytes per word
; 3672
; 3673 macro
; M 3674 $addresx =
; M 3675 %if %bliss (bliss36) %then $align (fullword) %fi
; 3676 $address %,
; 3677
; L 3678 %if %bliss (bliss36)
; U 3679 %then
; U 3680 $byte_string (length) = ! byte string for bliss36
; U 3681 $align (unit)
; U 3682 $xpo$field ( (((length)+3)/4) * %bpval, 0, 1 ) %,
; 3683 %else
; M 3684 $byte_string (length) = ! character string for bliss16 and bliss32
; 3685 $string (length) %,
; 3686 %fi
; 3687
; M 3688 byt$ptr (addr, pos) = ! make 9-bit (or) 8-bit byte pointer
; 3689 ch$ptr (addr, pos, $xpo$bits_byte) %,
; 3690
; M 3691 byt$allocation (num) =
; 3692 ch$allocation (num, $xpo$bits_byte) %;
; 3693
; 3694
; 3695
; L 3696 %if %bliss (bliss36)
; L 3697
; U 3698 %then ! (BLISS36)
; U 3699
; U 3700 macro
; U 3701 byt$tiny_string (num_addr, dest_ptr_addr) =
; U 3702 begin
; U 3703 local N;
; U 3704 N = .(num_addr);
; U 3705 ch$wchar_a (.N<0,8>, dest_ptr_addr)
; U 3706 end %,
; U 3707
; U 3708 byt$short_string (num_addr, dest_ptr_addr) =
; U 3709 begin
; U 3710 local N;
; U 3711 N = .(num_addr);
; U 3712 ch$wchar_a (.N<0,8>, dest_ptr_addr);
; U 3713 ch$wchar_a (.N<8,8>, dest_ptr_addr)
; U 3714 end %,
; U 3715
; U 3716 byt$long_string (num_addr, dest_ptr_addr) =
; U 3717 begin
; U 3718 local N;
24-Jan-1983 10:37:18 TOPS-20 Bliss-16 2A(530) Page 10
30-Dec-1982 17:27:53 NETPKG:<MCB>XPORTX.REQ.7 (1)
; U 3719 N = .(num_addr);
; U 3720 ch$wchar_a (.N<0,8>, dest_ptr_addr);
; U 3721 ch$wchar_a (.N<8,8>, dest_ptr_addr);
; U 3722 ch$wchar_a (.N<16,8>, dest_ptr_addr);
; U 3723 ch$wchar_a (.N<24,8>, dest_ptr_addr)
; U 3724 end %,
; U 3725
; U 3726 byt$number_string (num_addr, num_length, dest_ptr_addr) =
; U 3727 begin
; U 3728 local N;
; U 3729 N = .(num_addr);
; U 3730 incr I from 0 to num_length - 1 do
; U 3731 ch$wchar_a (.N<.I^3,8>, dst_ptr_addr);
; U 3732 end %,
; U 3733
; U 3734 byt$string_tiny (src_ptr_addr, num_addr) =
; U 3735 num_addr = ch$rchar_a (src_ptr_addr) %,
; U 3736
; U 3737 byt$string_short (src_ptr_addr, num_addr) =
; U 3738 num_addr = ch$rchar_a (src_ptr_addr)
; U 3739 + (ch$rchar_a (src_ptr_addr))^+8 %,
; U 3740
; U 3741 byt$string_long (src_ptr_addr, num_addr) =
; U 3742 num_addr = ch$rchar_a (src_ptr_addr)
; U 3743 + (ch$rchar_a (src_ptr_addr))^+8
; U 3744 + (ch$rchar_a (src_ptr_addr))^+16
; U 3745 + (ch$rchar_a (src_ptr_addr))^+24 %,
; U 3746
; U 3747 byt$string_number (src_ptr_addr, num_length, num_addr) =
; U 3748 begin
; U 3749 num_addr = 0;
; U 3750 incr I from 0 to num_length-1 do
; U 3751 num_addr = .(num_addr) + (ch$rchar_a (src_ptr_addr)) ^+(.I * 8)
; U 3752 end %;
; U 3753
; U 3754
; 3755 %else ! (BLISS16 or BLISS32)
; 3756 macro
; M 3757 byt$tiny_string (num_addr, dest_ptr_addr) =
; 3758 ch$wchar_a (.(num_addr), dest_ptr_addr) %,
; 3759
; M 3760 byt$short_string (num_addr, dest_ptr_addr) =
; M 3761 begin
; M 3762 builtin swab;
; M 3763 local NUM;
; M 3764 NUM = .(num_addr);
; M 3765 ch$wchar_a (.NUM, dest_ptr_addr);
; M 3766 swab (NUM);
; M 3767 ch$wchar_a (.NUM, dest_ptr_addr)
; 3768 end %,
; 3769
; M 3770 byt$long_string (num_addr, dest_ptr_addr) =
24-Jan-1983 10:37:18 TOPS-20 Bliss-16 2A(530) Page 11
30-Dec-1982 17:27:53 NETPKG:<MCB>XPORTX.REQ.7 (1)
; M 3771 begin
; M 3772 byt$short_string ((num_addr), (dest_ptr_addr));
; M 3773 byt$short_string ((num_addr)+2, (dest_ptr_addr))
; 3774 end %,
; 3775
; M 3776 byt$number_string (num_addr, num_length, dest_ptr_addr) =
; 3777 dest_ptr_addr = ch$move (num_length, ch$ptr (num_addr,,8), .(dest_ptr_addr)) %,
; 3778
; M 3779 byt$string_tiny (src_ptr_addr, num_addr) =
; 3780 num_addr = ch$rchar_a (src_ptr_addr) %,
; 3781
; M 3782 byt$string_short (src_ptr_addr, num_addr) =
; M 3783 begin
; M 3784 (num_addr)<0,8> = ch$rchar_a (src_ptr_addr);
; M 3785 ((num_addr)+1)<0,8> = ch$rchar_a (src_ptr_addr)
; 3786 end %,
; 3787
; M 3788 byt$string_long (src_ptr_addr, num_addr) =
; M 3789 begin
; M 3790 byt$string_short (src_ptr_addr, num_addr);
; M 3791 byt$string_short (src_ptr_addr, (num_addr)+2)
; 3792 end %,
; 3793
; M 3794 byt$string_number (src_ptr_addr, num_length, num_addr) =
; M 3795 begin
; M 3796 ch$move (num_length, .(src_ptr_addr), num_addr);
; M 3797 src_ptr_addr = ch$plus (.src_ptr_addr, num_length)
; 3798 end %;
; 3799 %fi
; Run Time: 00:53.3
; Elapsed Time: 01:07.3
; Memory Used: 99 pages
; Library Precompilation Complete