Trailing-Edge
-
PDP-10 Archives
-
BB-R598A-RM_1983
-
swskit-v3/listings/vnp36/rsxfnc.list
There are no other files named rsxfnc.list in the archive.
ORE IMAGE
FCOR : NOVALUE, !FREE CORE IMAGE
DEL_MODU,
25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 1
1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (1)
; 0001 !NET:<DECNET20-V3P0.TKB-VNP.BIGVNP>RSXFNC.BLI.44 29-Sep-82 11:41:38, Edit by PECKHAM
; 0002 !NET:<DECNET20-V3P0.TKB-VNP.BIGVNP>RSXFNC.BLI.42 29-Sep-82 10:14:27, Edit by PECKHAM
; 0003 !NET:<DECNET20-V3P0.TKB-VNP.BIGVNP>RSXFNC.BLI.40 28-Sep-82 16:11:16, Edit by PECKHAM
; 0004 !NET:<DECNET20-V3P0.TKB-VNP.BIGVNP>RSXFNC.BLI.39 26-Mar-82 16:13:43, Edit by PECKHAM
; 0005 MODULE RSXFNC ( !Provide RSX Functions
; 0006 IDENT = 'X3.3' !edit 29Sep82
; 0007 ) =
; 0008 BEGIN
; 0009 !
; 0010 !
; 0011 !
; 0012 ! COPYRIGHT (c) 1980, 1981, 1982
; 0013 ! DIGITAL EQUIPMENT CORPORATION
; 0014 ! Maynard, Massachusetts
; 0015 !
; 0016 ! This software is furnished under a license and may be used
; 0017 ! and copied only in accordance with the terms of such license
; 0018 ! and with the inclusion of the above copyright notice. This
; 0019 ! software or any other copies thereof may not be provided or
; 0020 ! otherwise made available to any other person. No title to
; 0021 ! and ownership of the software is hereby transferred.
; 0022 !
; 0023 ! The information in this software is subject to change
; 0024 ! without notice and should not be construed as a commitment
; 0025 ! by DIGITAL EQUIPMENT CORPORATION.
; 0026 !
; 0027 ! DIGITAL assumes no responsibility for the use or reliability
; 0028 ! of its software on equipment which is not supplied by
; 0029 ! DIGITAL.
; 0030 !
; 0031
; 0032 !++
; 0033 ! FACILITY: MCB Configuration Facility, VNP-20
; 0034 !
; 0035 ! ABSTRACT:
; 0036 !
; 0037 ! This module contains all routines which manipulate RSX-11S Data
; 0038 ! Structures.
; 0039 !
; 0040 !
; 0041 ! ENVIRONMENT: TOPS-10 or TOPS-20 User Mode
; 0042 !
; 0043 ! AUTHOR: Scott G. Robinson, Creation Date: 16-APR-80
; 0044 !
; 0045 ! MODIFIED BY:
; 0046 ! , : VERSION
; 0047 ! 01 -
; 0048 ! 03 - Change MCBMAP text in TELLK.
; 0049 !--
; 0050
; 0051 !
; 0052 ! TABLE OF CONTENTS:
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 2
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (1)
; 0053 !
; 0054
; 0055 FORWARD ROUTINE
; 0056 RCOR : NOVALUE, !READ CORE IMAGE
; 0057 WCOR : NOVALUE, !WRITE CORE IMAGE
; 0058 FCOR : NOVALUE, !FREE CORE IMAGE
; 0059 DEL_MODU, !DELETE A MODULE
; 0060 DEL_PSECT, !DELETE A PSECT
; 0061 DEL_GLOBAL, !DELETE A GLOBAL
; 0062 GETSYM : NOVALUE, !READ SYMBOLS INTO VALUE BLOCK
; 0063 GETSYM_1 : NOVALUE, !READ RSX RELATED SYMBOLS
; 0064 GETBYT, !GET A PDP-11 BYTE
; 0065 GETWRD, !GET A WORD
; 0066 PUTBYT : NOVALUE, !STORE A BYTE
; 0067 PUTWRD : NOVALUE, !STORE A WORD
; 0068 ALOCB, !ALLOCATE PDP-11 CORE
; 0069 DEACB : NOVALUE, !DEALLOCATE PDP-11 CORE
; 0070 M_PCB, !MAKE A PCB
; 0071 INSTAL : NOVALUE, !INSTALL A TASK
; 0072 LOADD : NOVALUE, !LOAD A DRIVER
; 0073 LNKDCB : NOVALUE, !LINK A DCB INTO KERNEL
; 0074 VRBL_SYM, !MAKE A SYMBOL AND GET VALUE
; 0075 FCLEAN : NOVALUE, !PERFORM FINAL EXEC CLEANUP
; 0076 TELLK : NOVALUE, !TELL USER ABOUT CONFIG
; 0077 TELLP : NOVALUE; !TELL USER ABOUT PARTITIONS
; 0078
; 0079 !
; 0080 ! INCLUDE FILES:
; 0081 !
; 0082
; 0083 LIBRARY 'VNPLIB';
; 0084
; 0085 !REQUIRE 'BLOCKH.REQ'; !PREPARE TO DEFINE STORAGE BLOCKS
; 0086 !REQUIRE 'FILE.REQ'; !DEFINE FILE BLOCK
; 0087 !REQUIRE 'FILSW.REQ'; !DEFINE FILE SWITCHES
; 0088 !REQUIRE 'GLOBL.REQ'; !DEFINE GLOBAL BLOCK
; 0089 !REQUIRE 'MODU.REQ'; !DEFINE MODULE BLOCK
; 0090 !REQUIRE 'PSECT.REQ'; !DEFINE PSECT BLOCK
; 0091 !REQUIRE 'VNPVAL.REQ'; !VALUE BLOCK FOR VNP20
; 0092 !REQUIRE 'LLC.REQ'; !DEFINE LLC BLOCK
; 0093 !REQUIRE 'DLC.REQ'; !DEFINE DLC BLOCK
; 0094 !REQUIRE 'DDM.REQ'; !DEFINE DDM BLOCK
; 0095 !REQUIRE 'BLOCKT.REQ'; !END OF DEFINING STORAGE BLOCKS
; 0096 !REQUIRE 'TSKDEF.REQ'; !DEFINE TASK OFFSETS
; 0097 !
; 0098 ! MACROS:
; 0099 !
; 0100 ! NONE
; 0101 !
; 0102 ! EQUATED SYMBOLS:
; 0103 !
; 0104
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 3
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (1)
; 0105 LITERAL
; 0106 DEBUG = 0;
; 0107
; 0108 !
; 0109 ! OWN STORAGE:
; 0110 !
; 0111 ! NONE
; 0112 !
; 0113 ! EXTERNAL REFERENCES:
; 0114 !
; 0115
; 0116 EXTERNAL ROUTINE
; 0117 ATOR50 : NOVALUE, !CONVERT ASCII TO RADIX50_11
; 0118 R50TOA : NOVALUE, !CONVERT RADIX50_11 TO ASCII
; 0119 OPEN, !OPEN A FILE
; 0120 CLOSE : NOVALUE, !CLOSE A FILE
; 0121 INPUT, !READ FROM A FILE
; 0122 OUTPUT : NOVALUE, !WRITE ON A FILE
; 0123 RSTB : NOVALUE, !READ SYMBOL TABLE
; 0124 PCRLF : NOVALUE, !PRINT CR THEN LF
; 0125 OUTSTR : NOVALUE, !PRINT A STRING
; 0126 OUTNUM : NOVALUE, !PRINT A NUMBER
; 0127 ERROR : NOVALUE, !SIGNAL PROGRAMMING ERROR
; 0128 ERRMSG : NOVALUE, !ERROR MESSAGE
; 0129 SYM_VAL, !OBTAIN VALUE OF A SYMBOL
; 0130 GETSTG, !GET STORAGE FROM FREE LIST
; 0131 GETBLK, !GET A BLOCK OF STORAGE
; 0132 FRESTG : NOVALUE, !RETURN STORAGE TO FREE LIST
; 0133 FREBLK : NOVALUE, !RETURN A BLOCK OF STORAGE
; 0134 FND_CHAIN, !"FIND" AN ITEM IN A CHAIN
; 0135 DEL_PTRS : NOVALUE; !DELETE CHAIN BLOCKS
; 0136
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 4
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (2)
; 0137 GLOBAL ROUTINE RCOR (FILE_PTR, FILE_CHAN, CORE_LEN) : NOVALUE = !READ CORE IMAGE
; 0138
; 0139 !++
; 0140 ! FUNCTIONAL DESCRIPTION:
; 0141 !
; 0142 ! READ A CORE IMAGE FOR CORE IMAGE BUILDER (VNP20)
; 0143 ! THIS INCLUDES THE KERNEL AND TASK IMAGES.
; 0144 !
; 0145 ! FORMAL PARAMETERS:
; 0146 !
; 0147 ! FILE_PTR - POINTER TO THE FILE BLOCK WHICH DESCRIBES
; 0148 ! THE CORE IMAGE FILE TO BE READ
; 0149 ! FILE_CHAN - THE CHANNEL NUMBER TO USE WHEN READING THE FILE.
; 0150 ! CORE_LEN - LENGTH OF THE CORE IMAGE, IN 8-BIT BYTES.
; 0151 !
; 0152 ! IMPLICIT INPUTS:
; 0153 !
; 0154 ! NONE
; 0155 !
; 0156 ! IMPLICIT OUTPUTS:
; 0157 !
; 0158 ! FILLS THE 'CORE_IMAGE' ARRAY WITH THE CORE IMAGE
; 0159 ! AND STORES POINTERS IN THE FILE BLOCK
; 0160 !
; 0161 ! ROUTINE VALUE:
; 0162 !
; 0163 ! NONE
; 0164 !
; 0165 ! SIDE EFFECTS
; 0166 !
; 0167 ! OPENS, READS AND CLOSES THE SPECIFIED FILE
; 0168 ! OBTAINS TWO ARRAYS FROM FREE SPACE
; 0169 !
; 0170 !--
; 0171
; 0172 BEGIN
; 0173
; 0174 BIND
; 0175 ROUTINE_NAME = UPLIT (%ASCIZ'RCOR');
; 0176
; 0177 MAP
; 0178 FILE_PTR : REF FILE_BLOCK;
; 0179
; 0180 LOCAL
; 0181 CHAR,
; 0182 CORE_IMAGE : REF VECTOR,
; 0183 CORE_WORD,
; 0184 LABEL_IMAGE : REF VECTOR [1024],
; 0185 LOCN,
; 0186 READ_DONE;
; 0187
; 0188 !
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 5
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (2)
; 0189 ! GET SPACE FOR THE CORE IMAGE AND LABELS FROM FREE STORAGE
; 0190 !
; 0191
; 0192 IF ((CORE_IMAGE = GETSTG (.CORE_LEN/4)) EQL 0)
; 0193 THEN
; 0194 ERRMSG (0, 1, ROUTINE_NAME, 0, 0, 0, 0)
; 0195 ELSE
; 0196 BEGIN
; 0197
; 0198 IF ((LABEL_IMAGE = GETSTG (1024)) EQL 0)
; 0199 THEN
; 0200 ERRMSG (0, 1, ROUTINE_NAME, 0, 0, 0, 0)
; 0201 ELSE
; 0202 BEGIN
; 0203 !
; 0204 ! CLEAR THE CORE ARRAY, SO ANY LOCATIONS NOT FILLED WILL BE
; 0205 ! ZERO.
; 0206 !
; 0207
; 0208 INCR COUNTER FROM 0 TO ((.CORE_LEN/4) - 1) DO
; 0209 CORE_IMAGE [.COUNTER] = 0;
; 0210
; 0211 !
; 0212 ! OPEN THE FILE CONTAINING THE KERNEL.
; 0213 !
; 0214
; 0215 IF (OPEN (.FILE_CHAN, FILE_PTR [FILE_NAME], 2, 0, UPLIT (%ASCIZ'TSK')) NEQ 0)
; 0216 THEN
; 0217 BEGIN !SUCCESSFUL INPUT OPEN
; 0218 READ_DONE = 0;
; 0219 LOCN = 0;
; 0220 !
; 0221 ! RECORD THE LABEL BLOCK SEPARATELY
; 0222 !
; 0223
; 0224 INCR COUNTER FROM 0 TO 1023 DO
; 0225 LABEL_IMAGE [.COUNTER] = INPUT (.FILE_CHAN);
; 0226
; 0227 !
; 0228 ! READ THE DATA INTO THE CORE IMAGE ARRAY
; 0229 !
; 0230
; 0231 WHILE (.READ_DONE EQL 0) DO
; 0232 BEGIN
; 0233 CHAR = INPUT (.FILE_CHAN);
; 0234
; 0235 IF (.CHAR LSS 0)
; 0236 THEN
; 0237 READ_DONE = -1
; 0238 ELSE
; 0239 BEGIN
; 0240 CORE_WORD = .CORE_IMAGE [.LOCN/4];
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 6
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (2)
; 0241 CORE_WORD<(CASE (.LOCN AND 3) FROM 0 TO 3 OF
; 0242 SET
; 0243 [0] : 18;
; 0244 [1] : 26;
; 0245 [2] : 0;
; 0246 [3] : 8;
; 0247 TES), 8> = .CHAR;
; 0248 CORE_IMAGE [.LOCN/4] = .CORE_WORD;
; 0249 LOCN = .LOCN + 1;
; 0250
; 0251 IF (.LOCN GTR .CORE_LEN) THEN READ_DONE = -1;
; 0252
; 0253 END;
; 0254
; 0255 END;
; 0256
; 0257 !
; 0258 ! NOW STORE POINTERS TO THE CORE IMAGE AND LABEL IMAGE IN THE FILE
; 0259 ! BLOCK, FOR CONVENIENT REFERENCE.
; 0260 !
; 0261 FILE_PTR [FILE_CORE] = .CORE_IMAGE;
; 0262 FILE_PTR [FILE_CORE_LEN] = .CORE_LEN;
; 0263 FILE_PTR [FILE_LABEL] = .LABEL_IMAGE;
; 0264 CLOSE (.FILE_CHAN);
; 0265 END;
; 0266
; 0267 END;
; 0268
; 0269 END;
; 0270
; 0271 END; !OF RCOR
TITLE RSXFNC
TWOSEG
.REQUEST SYS:B362LB.REL
RELOC 400000 ; 400000'
P.AAA: BYTE (7)"R","C","O","R",000 ; RCOR 400000' 122 103 117 122 000
P.AAB: BYTE (7)"T","S","K",000,000 ; TSK 400001' 124 123 113 000 000
EXTERN ATOR50, R50TOA, OPEN, CLOSE, INPUT, OUTPUT, RSTB, PCRLF, OUTSTR, OUTNUM, ERROR, ERRMSG
EXTERN SYM_VAL, GETSTG, GETBLK, FRESTG, FREBLK, FND_CHAIN, DEL_PTRS
ROUTINE_NAME= P.AAA ; 000000 400000'
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 7
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (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
RCOR:: PUSH SP,AC0 ; SP,AC0 400002' 261 17 0 00 000000 0137
PUSH SP,AC10 ; SP,AC10 400003' 261 17 0 00 000010
PUSH SP,AC11 ; SP,AC11 400004' 261 17 0 00 000011
PUSH SP,AC12 ; SP,AC12 400005' 261 17 0 00 000012
PUSH SP,AC13 ; SP,AC13 400006' 261 17 0 00 000013
PUSH SP,AC14 ; SP,AC14 400007' 261 17 0 00 000014
PUSH SP,AC16 ; SP,AC16 400010' 261 17 0 00 000016
ADJSP SP,1 ; SP,1 400011' 105 17 0 00 000001
MOVE AC1,-11(SP) ; AC1,CORE_LEN 400012' 200 01 0 17 777767 0192
IDIVI AC1,4 ; AC1,4 400013' 231 01 0 00 000004
MOVE AC10,AC1 ; AC10,AC1 400014' 200 10 0 00 000001
PUSH SP,AC10 ; SP,AC10 400015' 261 17 0 00 000010
PUSHJ SP,GETSTG ; SP,GETSTG 400016' 260 17 0 00 000000*
MOVE AC14,AC1 ; CORE_IMAGE,AC1 400017' 200 14 0 00 000001
ADJSP SP,-1 ; SP,-1 400020' 105 17 0 00 777777
JUMPE AC14,L.1 ; CORE_IMAGE,L.1 400021' 322 14 0 00 400027'
PUSH SP,C.4 ; SP,[2000] 400022' 261 17 0 00 400165' 0198
PUSHJ SP,GETSTG ; SP,GETSTG 400023' 260 17 0 00 000000*
MOVE AC16,AC1 ; LABEL_IMAGE,AC1 400024' 200 16 0 00 000001
ADJSP SP,-1 ; SP,-1 400025' 105 17 0 00 777777
JUMPN AC16,L.2 ; LABEL_IMAGE,L.2 400026' 326 16 0 00 400041'
L.1: PUSH SP,C.5 ; SP,[0] 400027' 261 17 0 00 400166' 0200
PUSH SP,C.6 ; SP,[1] 400030' 261 17 0 00 400167'
PUSH SP,C.7 ; SP,[0,,ROUTINE_NAME] 400031' 261 17 0 00 400170'
PUSH SP,C.5 ; SP,[0] 400032' 261 17 0 00 400166'
PUSH SP,C.5 ; SP,[0] 400033' 261 17 0 00 400166'
PUSH SP,C.5 ; SP,[0] 400034' 261 17 0 00 400166'
PUSH SP,C.5 ; SP,[0] 400035' 261 17 0 00 400166'
PUSHJ SP,ERRMSG ; SP,ERRMSG 400036' 260 17 0 00 000000*
ADJSP SP,-7 ; SP,-7 400037' 105 17 0 00 777771
JRST L.16 ; L.16 400040' 254 00 0 00 400151' 0198
L.2: SETO AC0, ; COUNTER, 400041' 474 00 0 00 000000 0208
JRST L.4 ; L.4 400042' 254 00 0 00 400046'
L.3: MOVE AC1,AC14 ; AC1,CORE_IMAGE 400043' 200 01 0 00 000014 0209
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 8
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (2)
ADD AC1,AC0 ; AC1,COUNTER 400044' 270 01 0 00 000000
SETZM 0(AC1) ; 0(AC1) 400045' 402 00 0 01 000000
L.4: ADDI AC0,1 ; COUNTER,1 400046' 271 00 0 00 000001 0208
CAMGE AC0,AC10 ; COUNTER,AC10 400047' 315 00 0 00 000010
JRST L.3 ; L.3 400050' 254 00 0 00 400043'
MOVE AC0,-12(SP) ; AC0,FILE_CHAN 400051' 200 00 0 17 777766 0215
MOVEM AC0,0(SP) ; AC0,0(SP) 400052' 202 00 0 17 000000
PUSH SP,0(SP) ; SP,0(SP) 400053' 261 17 0 17 000000
MOVE AC11,-14(SP) ; AC11,FILE_PTR 400054' 200 11 0 17 777764
MOVE AC0,AC11 ; AC0,AC11 400055' 200 00 0 00 000011
ADDI AC0,2 ; AC0,2 400056' 271 00 0 00 000002
PUSH SP,AC0 ; SP,AC0 400057' 261 17 0 00 000000
PUSH SP,C.8 ; SP,[2] 400060' 261 17 0 00 400171'
PUSH SP,C.5 ; SP,[0] 400061' 261 17 0 00 400166'
PUSH SP,C.9 ; SP,[0,,P.AAB] 400062' 261 17 0 00 400172'
PUSHJ SP,OPEN ; SP,OPEN 400063' 260 17 0 00 000000*
ADJSP SP,-5 ; SP,-5 400064' 105 17 0 00 777773
JUMPE AC1,L.16 ; AC1,L.16 400065' 322 01 0 00 400151'
SETZB AC13,AC12 ; READ_DONE,LOCN 400066' 403 13 0 00 000012 0218
SETZ AC0, ; COUNTER, 400067' 400 00 0 00 000000 0224
L.5: MOVE AC10,AC16 ; AC10,LABEL_IMAGE 400070' 200 10 0 00 000016 0225
ADD AC10,AC0 ; AC10,COUNTER 400071' 270 10 0 00 000000
PUSH SP,0(SP) ; SP,0(SP) 400072' 261 17 0 17 000000
PUSHJ SP,INPUT ; SP,INPUT 400073' 260 17 0 00 000000*
MOVEM AC1,0(AC10) ; AC1,0(AC10) 400074' 202 01 0 10 000000
ADJSP SP,-1 ; SP,-1 400075' 105 17 0 00 777777
ADDI AC0,1 ; COUNTER,1 400076' 271 00 0 00 000001 0224
CAIG AC0,1777 ; COUNTER,1777 400077' 307 00 0 00 001777
JRST L.5 ; L.5 400100' 254 00 0 00 400070'
L.6: JUMPN AC13,L.15 ; READ_DONE,L.15 400101' 326 13 0 00 400142' 0231
PUSH SP,0(SP) ; SP,0(SP) 400102' 261 17 0 17 000000 0233
PUSHJ SP,INPUT ; SP,INPUT 400103' 260 17 0 00 000000*
MOVE AC4,AC1 ; CHAR,AC1 400104' 200 04 0 00 000001
JUMPL AC4,L.13 ; CHAR,L.13 400105' 321 04 0 00 400137' 0235
MOVE AC1,AC12 ; AC1,LOCN 400106' 200 01 0 00 000012 0240
IDIVI AC1,4 ; AC1,4 400107' 231 01 0 00 000004
MOVE AC3,AC1 ; AC3,AC1 400110' 200 03 0 00 000001
MOVE AC1,AC14 ; AC1,CORE_IMAGE 400111' 200 01 0 00 000014
ADD AC1,AC3 ; AC1,AC3 400112' 270 01 0 00 000003
MOVE AC0,0(AC1) ; CORE_WORD,0(AC1) 400113' 200 00 0 01 000000
LDB AC2,C.1 ; AC2,[POINT 2,LOCN,35] <0,2> 400114' 135 02 0 00 400162' 0241
JRST L.7(AC2) ; L.7(AC2) 400115' 254 00 0 02 400116'
L.7: JRST L.8 ; L.8 400116' 254 00 0 00 400122'
JRST L.9 ; L.9 400117' 254 00 0 00 400124'
JRST L.10 ; L.10 400120' 254 00 0 00 400126'
JRST L.11 ; L.11 400121' 254 00 0 00 400127'
L.8: MOVEI AC2,22 ; AC2,22 400122' 201 02 0 00 000022
JRST L.12 ; L.12 400123' 254 00 0 00 400130'
L.9: MOVEI AC2,32 ; AC2,32 400124' 201 02 0 00 000032
JRST L.12 ; L.12 400125' 254 00 0 00 400130'
L.10: TDZA AC2,AC2 ; AC2,AC2 400126' 634 02 0 00 000002
L.11: MOVEI AC2,10 ; AC2,10 400127' 201 02 0 00 000010
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 9
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (2)
L.12: MOVE AC3,C.2 ; AC3,[POINT 8,CORE_WORD,35] <0,8> 400130' 200 03 0 00 400163' 0247
DPB AC2,C.3 ; AC2,[POINT 6,AC3,5] <30,6> 400131' 137 02 0 00 400164'
DPB AC4,AC3 ; CHAR,AC3 400132' 137 04 0 00 000003
MOVEM AC0,0(AC1) ; CORE_WORD,0(AC1) 400133' 202 00 0 01 000000 0248
ADDI AC12,1 ; LOCN,1 400134' 271 12 0 00 000001 0249
CAMG AC12,-12(SP) ; LOCN,CORE_LEN 400135' 317 12 0 17 777766 0251
JRST L.14 ; L.14 400136' 254 00 0 00 400140'
L.13: SETO AC13, ; READ_DONE, 400137' 474 13 0 00 000000
L.14: ADJSP SP,-1 ; SP,-1 400140' 105 17 0 00 777777 0232
JRST L.6 ; L.6 400141' 254 00 0 00 400101' 0231
L.15: HRLM AC14,14(AC11) ; CORE_IMAGE,14(AC11) 400142' 506 14 0 11 000014 0261
MOVE AC0,-11(SP) ; AC0,CORE_LEN 400143' 200 00 0 17 777767 0262
MOVEM AC0,15(AC11) ; AC0,15(AC11) 400144' 202 00 0 11 000015
HRRM AC16,17(AC11) ; LABEL_IMAGE,17(AC11) 400145' 542 16 0 11 000017 0263
PUSH SP,0(SP) ; SP,0(SP) 400146' 261 17 0 17 000000 0264
PUSHJ SP,CLOSE ; SP,CLOSE 400147' 260 17 0 00 000000*
ADJSP SP,-1 ; SP,-1 400150' 105 17 0 00 777777 0217
L.16: ADJSP SP,-1 ; SP,-1 400151' 105 17 0 00 777777 0137
POP SP,AC16 ; SP,AC16 400152' 262 17 0 00 000016
POP SP,AC14 ; SP,AC14 400153' 262 17 0 00 000014
POP SP,AC13 ; SP,AC13 400154' 262 17 0 00 000013
POP SP,AC12 ; SP,AC12 400155' 262 17 0 00 000012
POP SP,AC11 ; SP,AC11 400156' 262 17 0 00 000011
POP SP,AC10 ; SP,AC10 400157' 262 17 0 00 000010
POP SP,AC0 ; SP,AC0 400160' 262 17 0 00 000000
POPJ SP, ; SP, 400161' 263 17 0 00 000000
C.1: POINT 2,AC12,35 ; 2,LOCN,35 400162' 00 02 0 00 000012
C.2: POINT 8,AC0,35 ; 8,CORE_WORD,35 400163' 00 10 0 00 000000
C.3: POINT 6,AC3,5 ; 6,AC3,5 400164' 36 06 0 00 000003
C.4: EXP 2000 ; 2000 400165' 000000 002000
C.5: EXP 0 ; 0 400166' 000000 000000
C.6: EXP 1 ; 1 400167' 000000 000001
C.7: XWD 0,ROUTINE_NAME ; 0,ROUTINE_NAME 400170' 000000 400000'
C.8: EXP 2 ; 2 400171' 000000 000002
C.9: XWD 0,P.AAB ; 0,P.AAB 400172' 000000 400001'
; Routine Size: 121 words
; 0272
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 10
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (3)
; 0273 GLOBAL ROUTINE WCOR (FILE_CHAN, FILE_PTR) : NOVALUE = !WRITE CORE IMAGE
; 0274
; 0275 !++
; 0276 ! FUNCTIONAL DESCRIPTION:
; 0277 !
; 0278 ! WRITE A CORE IMAGE FOR THE CORE IMAGE BUILDER (VNP20).
; 0279 !
; 0280 ! FORMAL PARAMETERS:
; 0281 !
; 0282 ! FILE_CHAN - THE CHANNEL NUMBER TO USE WHEN READING THE FILE.
; 0283 ! FILE_PTR - POINTER TO THE FILE BLOCK WHICH DESCRIBES
; 0284 ! THE CORE IMAGE FILE TO BE READ
; 0285 !
; 0286 ! IMPLICIT INPUTS:
; 0287 !
; 0288 ! NONE
; 0289 !
; 0290 ! IMPLICIT OUTPUTS:
; 0291 !
; 0292 ! NONE
; 0293 !
; 0294 ! ROUTINE VALUE:
; 0295 !
; 0296 ! NONE
; 0297 !
; 0298 ! SIDE EFFECTS
; 0299 !
; 0300 ! OPENS, WRITES AND CLOSES THE SPECIFIED FILE
; 0301 !
; 0302 !--
; 0303
; 0304 BEGIN
; 0305
; 0306 BIND
; 0307 ROUTINE_NAME = UPLIT (%ASCIZ'WCOR');
; 0308
; 0309 MAP
; 0310 FILE_PTR : REF FILE_BLOCK;
; 0311
; 0312 LOCAL
; 0313 CORE_IMAGE : REF VECTOR,
; 0314 LABEL_IMAGE : REF VECTOR [1024],
; 0315 CHAR,
; 0316 CORE_LEN,
; 0317 CORE_WORD,
; 0318 LOCN,
; 0319 WRITE_DONE;
; 0320
; 0321 !
; 0322 ! OPEN THE FILE WHICH IS TO CONTAIN THE CORE IMAGE
; 0323 !
; 0324
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 11
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (3)
; 0325 IF (OPEN (.FILE_CHAN, FILE_PTR [FILE_NAME], 2, 1, UPLIT (%ASCIZ'SYS')) NEQ 0)
; 0326 THEN
; 0327 BEGIN !SUCCESSFUL OUTPUT OPEN
; 0328 CORE_IMAGE = .FILE_PTR [FILE_CORE];
; 0329 CORE_LEN = .FILE_PTR [FILE_CORE_LEN];
; 0330 LABEL_IMAGE = .FILE_PTR [FILE_LABEL];
; 0331 WRITE_DONE = 0;
; 0332 LOCN = 0;
; 0333 !
; 0334 ! FIRST WRITE OUT THE LABEL BLOCK
; 0335 !
; 0336
; 0337 INCR COUNTER FROM 0 TO 1023 DO
; 0338 OUTPUT (.FILE_CHAN, .LABEL_IMAGE [.COUNTER]);
; 0339
; 0340 !
; 0341 ! WRITE THE DATA FROM THE CORE IMAGE ARRAY
; 0342 !
; 0343
; 0344 WHILE (.WRITE_DONE EQL 0) DO
; 0345 BEGIN
; 0346 CORE_WORD = .CORE_IMAGE [.LOCN/4];
; 0347 CHAR = .CORE_WORD<(CASE (.LOCN AND 3) FROM 0 TO 3 OF
; 0348 SET
; 0349 [0] : 18;
; 0350 [1] : 26;
; 0351 [2] : 0;
; 0352 [3] : 8;
; 0353 TES), 8>;
; 0354 OUTPUT (.FILE_CHAN, .CHAR);
; 0355 LOCN = .LOCN + 1;
; 0356
; 0357 IF (.LOCN GEQ .CORE_LEN) THEN WRITE_DONE = -1;
; 0358
; 0359 END;
; 0360
; 0361 CLOSE (.FILE_CHAN);
; 0362 END;
; 0363
; 0364 END; !OF WCOR
P.AAC: BYTE (7)"W","C","O","R",000 ; WCOR 400173' 127 103 117 122 000
P.AAD: BYTE (7)"S","Y","S",000,000 ; SYS 400174' 123 131 123 000 000
ROUTINE_NAME= P.AAC ; 000000 400173'
WCOR:: PUSH SP,AC0 ; SP,AC0 400175' 261 17 0 00 000000 0273
PUSH SP,AC10 ; SP,AC10 400176' 261 17 0 00 000010
PUSH SP,AC11 ; SP,AC11 400177' 261 17 0 00 000011
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 12
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (3)
PUSH SP,AC12 ; SP,AC12 400200' 261 17 0 00 000012
PUSH SP,AC13 ; SP,AC13 400201' 261 17 0 00 000013
PUSH SP,AC14 ; SP,AC14 400202' 261 17 0 00 000014
PUSH SP,AC16 ; SP,AC16 400203' 261 17 0 00 000016
MOVE AC16,-11(SP) ; AC16,FILE_CHAN 400204' 200 16 0 17 777767 0325
PUSH SP,AC16 ; SP,AC16 400205' 261 17 0 00 000016
MOVE AC10,-11(SP) ; AC10,FILE_PTR 400206' 200 10 0 17 777767
MOVE AC0,AC10 ; AC0,AC10 400207' 200 00 0 00 000010
ADDI AC0,2 ; AC0,2 400210' 271 00 0 00 000002
PUSH SP,AC0 ; SP,AC0 400211' 261 17 0 00 000000
PUSH SP,C.8 ; SP,[2] 400212' 261 17 0 00 400171'
PUSH SP,C.6 ; SP,[1] 400213' 261 17 0 00 400167'
PUSH SP,C.13 ; SP,[0,,P.AAD] 400214' 261 17 0 00 400312'
PUSHJ SP,OPEN ; SP,OPEN 400215' 260 17 0 00 000000*
ADJSP SP,-5 ; SP,-5 400216' 105 17 0 00 777773
JUMPE AC1,L.26 ; AC1,L.26 400217' 322 01 0 00 400277'
HLRZ AC14,14(AC10) ; CORE_IMAGE,14(AC10) 400220' 554 14 0 10 000014 0328
MOVE AC13,15(AC10) ; CORE_LEN,15(AC10) 400221' 200 13 0 10 000015 0329
HRRZ AC11,17(AC10) ; LABEL_IMAGE,17(AC10) 400222' 550 11 0 10 000017 0330
SETZB AC12,AC10 ; WRITE_DONE,LOCN 400223' 403 12 0 00 000010 0331
SETZ AC0, ; COUNTER, 400224' 400 00 0 00 000000 0337
L.17: PUSH SP,AC16 ; SP,AC16 400225' 261 17 0 00 000016 0338
MOVE AC1,AC11 ; AC1,LABEL_IMAGE 400226' 200 01 0 00 000011
ADD AC1,AC0 ; AC1,COUNTER 400227' 270 01 0 00 000000
PUSH SP,0(AC1) ; SP,0(AC1) 400230' 261 17 0 01 000000
PUSHJ SP,OUTPUT ; SP,OUTPUT 400231' 260 17 0 00 000000*
ADJSP SP,-2 ; SP,-2 400232' 105 17 0 00 777776
ADDI AC0,1 ; COUNTER,1 400233' 271 00 0 00 000001 0337
CAIG AC0,1777 ; COUNTER,1777 400234' 307 00 0 00 001777
JRST L.17 ; L.17 400235' 254 00 0 00 400225'
L.18: JUMPN AC12,L.25 ; WRITE_DONE,L.25 400236' 326 12 0 00 400274' 0344
MOVE AC1,AC10 ; AC1,LOCN 400237' 200 01 0 00 000010 0346
IDIVI AC1,4 ; AC1,4 400240' 231 01 0 00 000004
MOVE AC3,AC1 ; AC3,AC1 400241' 200 03 0 00 000001
MOVE AC1,AC14 ; AC1,CORE_IMAGE 400242' 200 01 0 00 000014
ADD AC1,AC3 ; AC1,AC3 400243' 270 01 0 00 000003
MOVE AC11,0(AC1) ; CORE_WORD,0(AC1) 400244' 200 11 0 01 000000
LDB AC1,C.10 ; AC1,[POINT 2,LOCN,35] <0,2> 400245' 135 01 0 00 400307' 0347
JRST L.19(AC1) ; L.19(AC1) 400246' 254 00 0 01 400247'
L.19: JRST L.20 ; L.20 400247' 254 00 0 00 400253'
JRST L.21 ; L.21 400250' 254 00 0 00 400255'
JRST L.22 ; L.22 400251' 254 00 0 00 400257'
JRST L.23 ; L.23 400252' 254 00 0 00 400260'
L.20: MOVEI AC1,22 ; AC1,22 400253' 201 01 0 00 000022
JRST L.24 ; L.24 400254' 254 00 0 00 400261'
L.21: MOVEI AC1,32 ; AC1,32 400255' 201 01 0 00 000032
JRST L.24 ; L.24 400256' 254 00 0 00 400261'
L.22: TDZA AC1,AC1 ; AC1,AC1 400257' 634 01 0 00 000001
L.23: MOVEI AC1,10 ; AC1,10 400260' 201 01 0 00 000010
L.24: MOVE AC2,C.11 ; AC2,[POINT 8,CORE_WORD,35] <0,8> 400261' 200 02 0 00 400310'
DPB AC1,C.12 ; AC1,[POINT 6,AC2,5] <30,6> 400262' 137 01 0 00 400311'
LDB AC0,AC2 ; CHAR,AC2 400263' 135 00 0 00 000002
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 13
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (3)
PUSH SP,AC16 ; SP,AC16 400264' 261 17 0 00 000016 0354
PUSH SP,AC0 ; SP,CHAR 400265' 261 17 0 00 000000
PUSHJ SP,OUTPUT ; SP,OUTPUT 400266' 260 17 0 00 000000*
ADDI AC10,1 ; LOCN,1 400267' 271 10 0 00 000001 0355
CAML AC10,AC13 ; LOCN,CORE_LEN 400270' 311 10 0 00 000013 0357
SETO AC12, ; WRITE_DONE, 400271' 474 12 0 00 000000
ADJSP SP,-2 ; SP,-2 400272' 105 17 0 00 777776 0345
JRST L.18 ; L.18 400273' 254 00 0 00 400236' 0344
L.25: PUSH SP,AC16 ; SP,AC16 400274' 261 17 0 00 000016 0361
PUSHJ SP,CLOSE ; SP,CLOSE 400275' 260 17 0 00 000000*
ADJSP SP,-1 ; SP,-1 400276' 105 17 0 00 777777 0327
L.26: POP SP,AC16 ; SP,AC16 400277' 262 17 0 00 000016 0273
POP SP,AC14 ; SP,AC14 400300' 262 17 0 00 000014
POP SP,AC13 ; SP,AC13 400301' 262 17 0 00 000013
POP SP,AC12 ; SP,AC12 400302' 262 17 0 00 000012
POP SP,AC11 ; SP,AC11 400303' 262 17 0 00 000011
POP SP,AC10 ; SP,AC10 400304' 262 17 0 00 000010
POP SP,AC0 ; SP,AC0 400305' 262 17 0 00 000000
POPJ SP, ; SP, 400306' 263 17 0 00 000000
C.10: POINT 2,AC10,35 ; 2,LOCN,35 400307' 00 02 0 00 000010
C.11: POINT 8,AC11,35 ; 8,CORE_WORD,35 400310' 00 10 0 00 000011
C.12: POINT 6,AC2,5 ; 6,AC2,5 400311' 36 06 0 00 000002
C.13: XWD 0,P.AAD ; 0,P.AAD 400312' 000000 400174'
; Routine Size: 78 words
; 0365
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 14
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (4)
; 0366 GLOBAL ROUTINE FCOR (FILE_PTR) : NOVALUE = !FREE CORE IMAGE
; 0367
; 0368 !++
; 0369 ! FUNCTIONAL DESCRIPTION:
; 0370 !
; 0371 ! PURGE A CORE IMAGE - DISCARD ITS FILE BLOCK AND ALL THAT
; 0372 ! IT POINTS TO.
; 0373 !
; 0374 ! FORMAL PARAMETERS:
; 0375 !
; 0376 ! FILE_PTR - POINTER TO THE FILE BLOCK WHICH DESCRIBES
; 0377 ! THE CORE IMAGE FILE TO BE FREED
; 0378 !
; 0379 ! IMPLICIT INPUTS:
; 0380 !
; 0381 ! NONE
; 0382 !
; 0383 ! IMPLICIT OUTPUTS:
; 0384 !
; 0385 ! NONE
; 0386 !
; 0387 ! ROUTINE VALUE:
; 0388 !
; 0389 ! NONE
; 0390 !
; 0391 ! SIDE EFFECTS
; 0392 !
; 0393 ! RETURNS SPACE TO FREE STORAGE
; 0394 !
; 0395 !--
; 0396
; 0397 BEGIN
; 0398
; 0399 BIND
; 0400 ROUTINE_NAME = UPLIT (%ASCIZ'FCOR');
; 0401
; 0402 MAP
; 0403 FILE_PTR : REF FILE_BLOCK;
; 0404
; 0405 LOCAL
; 0406 CORE_IMAGE : REF VECTOR,
; 0407 LABEL_IMAGE : REF VECTOR [1024],
; 0408 CORE_LEN;
; 0409
; 0410 !
; 0411 ! EXTRACT POINTERS AND SO ON FROM THE FILE BLOCK
; 0412 !
; 0413 LABEL_IMAGE = .FILE_PTR [FILE_LABEL];
; 0414 CORE_LEN = .FILE_PTR [FILE_CORE_LEN];
; 0415 CORE_IMAGE = .FILE_PTR [FILE_CORE];
; 0416 !
; 0417 ! FREE THE CORE IMAGE AND THE LABEL IMAGE
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 15
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (4)
; 0418 !
; 0419
; 0420 IF (.CORE_LEN NEQ 0) THEN FRESTG (.CORE_IMAGE, .CORE_LEN/4);
; 0421
; 0422 IF (.LABEL_IMAGE NEQ 0) THEN FRESTG (.LABEL_IMAGE, 1024);
; 0423
; 0424 !
; 0425 ! SCAN THROUGH THE SYMBOL TABLE, FREEING IT.
; 0426 !
; 0427 FND_CHAIN (.FILE_PTR [FILE_DOWN], DEL_MODU, 0);
; 0428 !
; 0429 ! NOW FREE THE CHAIN BLOCKS
; 0430 !
; 0431 DEL_PTRS (.FILE_PTR [FILE_DOWN]);
; 0432 !
; 0433 ! NEW FREE THE FILE BLOCK ITSELF
; 0434 !
; 0435 FREBLK (.FILE_PTR);
; 0436 !
; 0437 END; !OF FCOR
P.AAE: BYTE (7)"F","C","O","R",000 ; FCOR 400313' 106 103 117 122 000
ROUTINE_NAME= P.AAE ; 000000 400313'
FCOR:: PUSH SP,AC0 ; SP,AC0 400314' 261 17 0 00 000000 0366
PUSH SP,AC10 ; SP,AC10 400315' 261 17 0 00 000010
MOVE AC10,-3(SP) ; AC10,FILE_PTR 400316' 200 10 0 17 777775 0413
HRRZ AC0,17(AC10) ; LABEL_IMAGE,17(AC10) 400317' 550 00 0 10 000017
MOVE AC1,15(AC10) ; CORE_LEN,15(AC10) 400320' 200 01 0 10 000015 0414
HLRZ AC2,14(AC10) ; CORE_IMAGE,14(AC10) 400321' 554 02 0 10 000014 0415
JUMPE AC1,L.27 ; CORE_LEN,L.27 400322' 322 01 0 00 400330' 0420
PUSH SP,AC2 ; SP,CORE_IMAGE 400323' 261 17 0 00 000002
IDIVI AC1,4 ; AC1,4 400324' 231 01 0 00 000004
PUSH SP,AC1 ; SP,AC1 400325' 261 17 0 00 000001
PUSHJ SP,FRESTG ; SP,FRESTG 400326' 260 17 0 00 000000*
ADJSP SP,-2 ; SP,-2 400327' 105 17 0 00 777776
L.27: JUMPE AC0,L.28 ; LABEL_IMAGE,L.28 400330' 322 00 0 00 400335' 0422
PUSH SP,AC0 ; SP,LABEL_IMAGE 400331' 261 17 0 00 000000
PUSH SP,C.4 ; SP,[2000] 400332' 261 17 0 00 400165'
PUSHJ SP,FRESTG ; SP,FRESTG 400333' 260 17 0 00 000000*
ADJSP SP,-2 ; SP,-2 400334' 105 17 0 00 777776
L.28: HLRZ AC0,13(AC10) ; AC0,13(AC10) 400335' 554 00 0 10 000013 0427
PUSH SP,AC0 ; SP,AC0 400336' 261 17 0 00 000000
PUSH SP,C.14 ; SP,[0,,DEL_MODU] 400337' 261 17 0 00 400353'
PUSH SP,C.5 ; SP,[0] 400340' 261 17 0 00 400166'
PUSHJ SP,FND_CHAIN ; SP,FND_CHAIN 400341' 260 17 0 00 000000*
HLRZ AC0,13(AC10) ; AC0,13(AC10) 400342' 554 00 0 10 000013 0431
PUSH SP,AC0 ; SP,AC0 400343' 261 17 0 00 000000
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 16
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (4)
PUSHJ SP,DEL_PTRS ; SP,DEL_PTRS 400344' 260 17 0 00 000000*
MOVEM AC10,0(SP) ; AC10,0(SP) 400345' 202 10 0 17 000000 0435
PUSHJ SP,FREBLK ; SP,FREBLK 400346' 260 17 0 00 000000*
ADJSP SP,-4 ; SP,-4 400347' 105 17 0 00 777774 0397
POP SP,AC10 ; SP,AC10 400350' 262 17 0 00 000010 0366
POP SP,AC0 ; SP,AC0 400351' 262 17 0 00 000000
POPJ SP, ; SP, 400352' 263 17 0 00 000000
C.14: XWD 0,DEL_MODU ; 0,DEL_MODU 400353' 000000 000000V
; Routine Size: 32 words
; 0438
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 17
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (5)
; 0439 ROUTINE DEL_MODU (MODU_PTR, UNUSED) = !DELETE A MODULE
; 0440
; 0441 !++
; 0442 ! FUNCTIONAL DESCRIPTION:
; 0443 !
; 0444 ! DELETE A MODULE AFTER DELETEING THE PSECTS IT POINTS TO.
; 0445 ! USED IN CALL TO FND_CHAIN.
; 0446 !
; 0447 ! FORMAL PARAMETERS:
; 0448 !
; 0449 ! MODU_PTR - POINTER TO THE MODULE BLOCK TO BE DELETED
; 0450 ! UNUSED - NOT USED
; 0451 !
; 0452 ! IMPLICIT INPUTS:
; 0453 !
; 0454 ! NONE
; 0455 !
; 0456 ! IMPLICIT OUTPUTS:
; 0457 !
; 0458 ! NONE
; 0459 !
; 0460 ! ROUTINE VALUE:
; 0461 !
; 0462 ! ALWAYS 0 TO CONTINUE THE SCAN
; 0463 !
; 0464 ! SIDE EFFECTS
; 0465 !
; 0466 ! RETURNS SPACE TO FREE STORAGE
; 0467 !
; 0468 !--
; 0469
; 0470 BEGIN
; 0471
; 0472 BIND
; 0473 ROUTINE_NAME = UPLIT (%ASCIZ'DEL_MODU');
; 0474
; 0475 MAP
; 0476 MODU_PTR : REF MODU_BLOCK;
; 0477
; 0478 !
; 0479 ! FREE ALL THE PSECTS FIRST
; 0480 !
; 0481
; 0482 IF (.MODU_PTR [MODU_PSECTS] NEQ 0)
; 0483 THEN
; 0484 BEGIN
; 0485 FND_CHAIN (.MODU_PTR [MODU_PSECTS], DEL_PSECT, 0);
; 0486 DEL_PTRS (.MODU_PTR [MODU_PSECTS]);
; 0487 END;
; 0488
; 0489 !
; 0490 ! FREE ALL THE GLOBALS NEXT
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 18
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (5)
; 0491 !
; 0492
; 0493 IF (.MODU_PTR [MODU_GLOBALS] NEQ 0)
; 0494 THEN
; 0495 BEGIN
; 0496 FND_CHAIN (.MODU_PTR [MODU_GLOBALS], DEL_GLOBAL, 0);
; 0497 DEL_PTRS (.MODU_PTR [MODU_GLOBALS]);
; 0498 END;
; 0499
; 0500 !
; 0501 ! NOW FREE THE MODULE BLOCK
; 0502 !
; 0503 FREBLK (.MODU_PTR);
; 0504 !
; 0505 ! ALWAYS RETURN 0 TO CONTINUE THE SCAN
; 0506 !
; 0507 0
; 0508 END; !OF DEL_MODU
P.AAF: BYTE (7)"D","E","L","_","M" ; DEL_M 400354' 104 105 114 137 115
BYTE (7)"O","D","U",000,000 ; ODU 400355' 117 104 125 000 000
ROUTINE_NAME= P.AAF ; 000000 400354'
DEL_MODU:
PUSH SP,AC0 ; SP,AC0 400356' 261 17 0 00 000000 0439
PUSH SP,AC10 ; SP,AC10 400357' 261 17 0 00 000010
MOVE AC10,-4(SP) ; AC10,MODU_PTR 400360' 200 10 0 17 777774 0482
HRRZ AC0,7(AC10) ; AC0,7(AC10) 400361' 550 00 0 10 000007
JUMPE AC0,L.29 ; AC0,L.29 400362' 322 00 0 00 400372'
PUSH SP,AC0 ; SP,AC0 400363' 261 17 0 00 000000 0485
PUSH SP,C.15 ; SP,[0,,DEL_PSECT] 400364' 261 17 0 00 400412'
PUSH SP,C.5 ; SP,[0] 400365' 261 17 0 00 400166'
PUSHJ SP,FND_CHAIN ; SP,FND_CHAIN 400366' 260 17 0 00 000000*
MOVEM AC0,0(SP) ; AC0,0(SP) 400367' 202 00 0 17 000000 0486
PUSHJ SP,DEL_PTRS ; SP,DEL_PTRS 400370' 260 17 0 00 000000*
ADJSP SP,-3 ; SP,-3 400371' 105 17 0 00 777775 0484
L.29: HLRZ AC0,10(AC10) ; AC0,10(AC10) 400372' 554 00 0 10 000010 0493
JUMPE AC0,L.30 ; AC0,L.30 400373' 322 00 0 00 400403'
PUSH SP,AC0 ; SP,AC0 400374' 261 17 0 00 000000 0496
PUSH SP,C.16 ; SP,[0,,DEL_GLOBAL] 400375' 261 17 0 00 400413'
PUSH SP,C.5 ; SP,[0] 400376' 261 17 0 00 400166'
PUSHJ SP,FND_CHAIN ; SP,FND_CHAIN 400377' 260 17 0 00 000000*
MOVEM AC0,0(SP) ; AC0,0(SP) 400400' 202 00 0 17 000000 0497
PUSHJ SP,DEL_PTRS ; SP,DEL_PTRS 400401' 260 17 0 00 000000*
ADJSP SP,-3 ; SP,-3 400402' 105 17 0 00 777775 0495
L.30: PUSH SP,AC10 ; SP,AC10 400403' 261 17 0 00 000010 0503
PUSHJ SP,FREBLK ; SP,FREBLK 400404' 260 17 0 00 000000*
ADJSP SP,-1 ; SP,-1 400405' 105 17 0 00 777777 0470
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 19
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (5)
SETZ AC1, ; AC1, 400406' 400 01 0 00 000000 0439
POP SP,AC10 ; SP,AC10 400407' 262 17 0 00 000010
POP SP,AC0 ; SP,AC0 400410' 262 17 0 00 000000
POPJ SP, ; SP, 400411' 263 17 0 00 000000
C.15: XWD 0,DEL_PSECT ; 0,DEL_PSECT 400412' 000000 000000V
C.16: XWD 0,DEL_GLOBAL ; 0,DEL_GLOBAL 400413' 000000 000000V
; Routine Size: 30 words
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 20
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (6)
; 0509 ROUTINE DEL_PSECT (PSECT_PTR, UNUSED) = !DELETE A PSECT
; 0510
; 0511 !++
; 0512 ! FUNCTIONAL DESCRIPTION:
; 0513 !
; 0514 ! DELETE A PSECT AFTER DELETEING THE GLOBALS IT POINTS TO.
; 0515 ! USED IN CALL TO FND_CHAIN.
; 0516 !
; 0517 ! FORMAL PARAMETERS:
; 0518 !
; 0519 ! PSECT_PTR - POINTER TO THE PSECT BLOCK TO BE DELETED
; 0520 ! UNUSED - NOT USED
; 0521 !
; 0522 ! IMPLICIT INPUTS:
; 0523 !
; 0524 ! NONE
; 0525 !
; 0526 ! IMPLICIT OUTPUTS:
; 0527 !
; 0528 ! NONE
; 0529 !
; 0530 ! ROUTINE VALUE:
; 0531 !
; 0532 ! ALWAYS 0 TO CONTINUE THE SCAN
; 0533 !
; 0534 ! SIDE EFFECTS
; 0535 !
; 0536 ! RETURNS SPACE TO FREE STORAGE
; 0537 !
; 0538 !--
; 0539
; 0540 BEGIN
; 0541
; 0542 BIND
; 0543 ROUTINE_NAME = UPLIT (%ASCIZ'DEL_PSECT');
; 0544
; 0545 MAP
; 0546 PSECT_PTR : REF PSECT_BLOCK;
; 0547
; 0548 !
; 0549 ! FREE ALL THE GLOBALS FIRST
; 0550 !
; 0551 FND_CHAIN (.PSECT_PTR [PSECT_GLOBALS], DEL_GLOBAL, 0);
; 0552 !
; 0553 ! FREE THE POINTERS
; 0554 !
; 0555 DEL_PTRS (.PSECT_PTR [PSECT_GLOBALS]);
; 0556 !
; 0557 ! NOW FREE THE PSECT BLOCK
; 0558 !
; 0559 FREBLK (.PSECT_PTR);
; 0560 !
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 21
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (6)
; 0561 ! ALWAYS RETURN 0 TO CONTINUE THE SCAN
; 0562 !
; 0563 0
; 0564 END; !OF DEL_PSECT
P.AAG: BYTE (7)"D","E","L","_","P" ; DEL_P 400414' 104 105 114 137 120
BYTE (7)"S","E","C","T",000 ; SECT 400415' 123 105 103 124 000
ROUTINE_NAME= P.AAG ; 000000 400414'
DEL_PSECT:
PUSH SP,AC0 ; SP,AC0 400416' 261 17 0 00 000000 0509
MOVE AC0,-3(SP) ; AC0,PSECT_PTR 400417' 200 00 0 17 777775 0551
MOVE AC2,AC0 ; AC2,AC0 400420' 200 02 0 00 000000
HRRZ AC1,6(AC2) ; AC1,6(AC2) 400421' 550 01 0 02 000006
PUSH SP,AC1 ; SP,AC1 400422' 261 17 0 00 000001
PUSH SP,C.16 ; SP,[0,,DEL_GLOBAL] 400423' 261 17 0 00 400413'
PUSH SP,C.5 ; SP,[0] 400424' 261 17 0 00 400166'
PUSHJ SP,FND_CHAIN ; SP,FND_CHAIN 400425' 260 17 0 00 000000*
MOVE AC2,AC0 ; AC2,AC0 400426' 200 02 0 00 000000 0555
HRRZ AC1,6(AC2) ; AC1,6(AC2) 400427' 550 01 0 02 000006
PUSH SP,AC1 ; SP,AC1 400430' 261 17 0 00 000001
PUSHJ SP,DEL_PTRS ; SP,DEL_PTRS 400431' 260 17 0 00 000000*
MOVEM AC0,0(SP) ; AC0,0(SP) 400432' 202 00 0 17 000000 0559
PUSHJ SP,FREBLK ; SP,FREBLK 400433' 260 17 0 00 000000*
ADJSP SP,-4 ; SP,-4 400434' 105 17 0 00 777774 0540
SETZ AC1, ; AC1, 400435' 400 01 0 00 000000 0509
POP SP,AC0 ; SP,AC0 400436' 262 17 0 00 000000
POPJ SP, ; SP, 400437' 263 17 0 00 000000
; Routine Size: 18 words
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 22
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (7)
; 0565 ROUTINE DEL_GLOBAL (GLOBAL_PTR, UNUSED) = !DELETE A GLOBAL
; 0566
; 0567 !++
; 0568 ! FUNCTIONAL DESCRIPTION:
; 0569 !
; 0570 ! DELETE A GLOBAL BLOCK.
; 0571 ! USED IN CALL TO FND_CHAIN.
; 0572 !
; 0573 ! FORMAL PARAMETERS:
; 0574 !
; 0575 ! GLOBAL_PTR - POINTER TO THE GLOBAL BLOCK TO BE DELETED
; 0576 ! UNUSED - NOT USED
; 0577 !
; 0578 ! IMPLICIT INPUTS:
; 0579 !
; 0580 ! NONE
; 0581 !
; 0582 ! IMPLICIT OUTPUTS:
; 0583 !
; 0584 ! NONE
; 0585 !
; 0586 ! ROUTINE VALUE:
; 0587 !
; 0588 ! ALWAYS 0 TO CONTINUE THE SCAN
; 0589 !
; 0590 ! SIDE EFFECTS
; 0591 !
; 0592 ! RETURNS SPACE TO FREE STORAGE
; 0593 !
; 0594 !--
; 0595
; 0596 BEGIN
; 0597
; 0598 BIND
; 0599 ROUTINE_NAME = UPLIT (%ASCIZ'DEL_GLOBAL');
; 0600
; 0601 MAP
; 0602 GLOBAL_PTR : REF GLOBL_BLOCK;
; 0603
; 0604 !
; 0605 ! FREE THE GLOBAL BLOCK.
; 0606 !
; 0607 FREBLK (.GLOBAL_PTR);
; 0608 !
; 0609 ! ALWAYS RETURN 0 TO CONTINUE THE SCAN
; 0610 !
; 0611 0
; 0612 END; !OF DEL_GLOBAL
P.AAH: BYTE (7)"D","E","L","_","G" ; DEL_G 400440' 104 105 114 137 107
BYTE (7)"L","O","B","A","L" ; LOBAL 400441' 114 117 102 101 114
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 23
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (7)
BYTE (7)000,000,000,000,000 ; 400442' 000 000 000 000 000
ROUTINE_NAME= P.AAH ; 000000 400440'
DEL_GLOBAL:
PUSH SP,-2(SP) ; SP,GLOBAL_PTR 400443' 261 17 0 17 777776 0607
PUSHJ SP,FREBLK ; SP,FREBLK 400444' 260 17 0 00 000000*
ADJSP SP,-1 ; SP,-1 400445' 105 17 0 00 777777 0596
SETZ AC1, ; AC1, 400446' 400 01 0 00 000000 0565
POPJ SP, ; SP, 400447' 263 17 0 00 000000
; Routine Size: 5 words
; 0613
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 24
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (8)
; 0614 GLOBAL ROUTINE GETSYM (KERNEL_FILE, CEX_FILE, RSXMS_FILE, VALUES) : NOVALUE = !FETCH SYMBOL VALUES
; 0615
; 0616 !++
; 0617 ! FUNCTIONAL DESCRIPTION:
; 0618 !
; 0619 ! FETCH SYMBOL VALUES FROM THE VARIOUS SYMBOL TABLES, CHECKING
; 0620 ! FOR CONSISTENCY. THIS IS DONE ONCE RATHER THAN WHENEVER
; 0621 ! A SYMBOL VALUE IS NEEDED BECAUSE LOOKING UP A SYMBOL IS
; 0622 ! QUITE SLOW.
; 0623 !
; 0624 ! FORMAL PARAMETERS:
; 0625 !
; 0626 ! KERNEL_FILE - FILE BLOCK FOR THE KERNEL
; 0627 ! CEX_FILE - FILE BLOCK FOR THE COMM EXEC
; 0628 ! RSXMS_FILE - FILE BLOCK FOR THE EXEMC SYMBOLS
; 0629 ! VALUES - BLOCK INTO WHICH TO STORE SYMBOL VALUES
; 0630 !
; 0631 ! IMPLICIT INPUTS:
; 0632 !
; 0633 ! THE SYMBOL VALUES IN THE SYMBOL TABLES
; 0634 !
; 0635 ! IMPLICIT OUTPUTS:
; 0636 !
; 0637 ! NONE
; 0638 !
; 0639 ! ROUTINE VALUE:
; 0640 !
; 0641 ! NONE
; 0642 !
; 0643 ! SIDE EFFECTS
; 0644 !
; 0645 ! FILLS IN SYMBOLS IN 'VALUES'
; 0646 !
; 0647 !--
; 0648
; 0649 BEGIN
; 0650
; 0651 BIND
; 0652 ROUTINE_NAME = UPLIT (%ASCIZ'GETSYM');
; 0653
; 0654 MAP
; 0655 KERNEL_FILE : REF FILE_BLOCK,
; 0656 CEX_FILE : REF FILE_BLOCK,
; 0657 RSXMS_FILE : REF FILE_BLOCK,
; 0658 VALUES : REF VNPVAL_BLOCK;
; 0659
; 0660 GETSYM_1 (.KERNEL_FILE, .RSXMS_FILE, .VALUES);
; 0661
; 0662 IF (.VALUES [P_LGTH] NEQ SYM_VAL (.KERNEL_FILE, UPLIT (%ASCIZ'P.LGTH'), 0))
; 0663 THEN
; 0664 ERRMSG (0, 29,
; 0665 ROUTINE_NAME, UPLIT (%ASCIZ'P.LGTH'), KERNEL_FILE [FILE_NAME], RSXMS_FILE [FILE_NAME], 0);
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 25
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (8)
; 0666
; 0667 IF (SYM_VAL (.KERNEL_FILE, UPLIT (%ASCIZ'$CLRMV'), 0) NEQ SYM_VAL (.CEX_FILE, UPLIT (%ASCIZ'$CLRMV'), 0))
; 0668 THEN
; 0669 ERRMSG (0, 29, ROUTINE_NAME, UPLIT (%ASCIZ'$CLRMV'), KERNEL_FILE [FILE_NAME], CEX_FILE [FILE_NAME], 0)
; 0670
; 0671 ;
; 0672
; 0673 IF (SYM_VAL (.KERNEL_FILE, UPLIT (%ASCIZ'$HEADR'), 0) NEQ SYM_VAL (.CEX_FILE, UPLIT (%ASCIZ'$HEADR'), 0))
; 0674 THEN
; 0675 ERRMSG (0, 29, ROUTINE_NAME, UPLIT (%ASCIZ'$HEADR'), KERNEL_FILE [FILE_NAME], CEX_FILE [FILE_NAME], 0)
; 0676
; 0677 ;
; 0678
; 0679 IF (SYM_VAL (.KERNEL_FILE, UPLIT (%ASCIZ'$INTX1'), 0) NEQ SYM_VAL (.CEX_FILE, UPLIT (%ASCIZ'$INTX1'), 0))
; 0680 THEN
; 0681 ERRMSG (0, 29, ROUTINE_NAME, UPLIT (%ASCIZ'$INTX1'), KERNEL_FILE [FILE_NAME], CEX_FILE [FILE_NAME], 0)
; 0682
; 0683 ;
; 0684 END; !OF GETSYM
P.AAI: BYTE (7)"G","E","T","S","Y" ; GETSY 400450' 107 105 124 123 131
BYTE (7)"M",000,000,000,000 ; M 400451' 115 000 000 000 000
P.AAJ: BYTE (7)"P",".","L","G","T" ; P.LGT 400452' 120 056 114 107 124
BYTE (7)"H",000,000,000,000 ; H 400453' 110 000 000 000 000
P.AAK: BYTE (7)"P",".","L","G","T" ; P.LGT 400454' 120 056 114 107 124
BYTE (7)"H",000,000,000,000 ; H 400455' 110 000 000 000 000
P.AAL: BYTE (7)"$","C","L","R","M" ; $CLRM 400456' 044 103 114 122 115
BYTE (7)"V",000,000,000,000 ; V 400457' 126 000 000 000 000
P.AAM: BYTE (7)"$","C","L","R","M" ; $CLRM 400460' 044 103 114 122 115
BYTE (7)"V",000,000,000,000 ; V 400461' 126 000 000 000 000
P.AAN: BYTE (7)"$","C","L","R","M" ; $CLRM 400462' 044 103 114 122 115
BYTE (7)"V",000,000,000,000 ; V 400463' 126 000 000 000 000
P.AAO: BYTE (7)"$","H","E","A","D" ; $HEAD 400464' 044 110 105 101 104
BYTE (7)"R",000,000,000,000 ; R 400465' 122 000 000 000 000
P.AAP: BYTE (7)"$","H","E","A","D" ; $HEAD 400466' 044 110 105 101 104
BYTE (7)"R",000,000,000,000 ; R 400467' 122 000 000 000 000
P.AAQ: BYTE (7)"$","H","E","A","D" ; $HEAD 400470' 044 110 105 101 104
BYTE (7)"R",000,000,000,000 ; R 400471' 122 000 000 000 000
P.AAR: BYTE (7)"$","I","N","T","X" ; $INTX 400472' 044 111 116 124 130
BYTE (7)"1",000,000,000,000 ; 1 400473' 061 000 000 000 000
P.AAS: BYTE (7)"$","I","N","T","X" ; $INTX 400474' 044 111 116 124 130
BYTE (7)"1",000,000,000,000 ; 1 400475' 061 000 000 000 000
P.AAT: BYTE (7)"$","I","N","T","X" ; $INTX 400476' 044 111 116 124 130
BYTE (7)"1",000,000,000,000 ; 1 400477' 061 000 000 000 000
ROUTINE_NAME= P.AAI ; 000000 400450'
GETSYM::PUSH SP,AC0 ; SP,AC0 400500' 261 17 0 00 000000 0614
PUSH SP,AC10 ; SP,AC10 400501' 261 17 0 00 000010
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 26
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (8)
PUSH SP,AC11 ; SP,AC11 400502' 261 17 0 00 000011
MOVE AC11,-7(SP) ; AC11,KERNEL_FILE 400503' 200 11 0 17 777771 0660
PUSH SP,AC11 ; SP,AC11 400504' 261 17 0 00 000011
PUSH SP,-6(SP) ; SP,RSXMS_FILE 400505' 261 17 0 17 777772
MOVE AC10,-6(SP) ; AC10,VALUES 400506' 200 10 0 17 777772
PUSH SP,AC10 ; SP,AC10 400507' 261 17 0 00 000010
PUSHJ SP,GETSYM_1 ; SP,GETSYM_1 400510' 260 17 0 00 000000V
MOVEM AC11,0(SP) ; AC11,0(SP) 400511' 202 11 0 17 000000 0662
PUSH SP,C.17 ; SP,[0,,P.AAJ] 400512' 261 17 0 00 400660'
PUSH SP,C.5 ; SP,[0] 400513' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 400514' 260 17 0 00 000000*
ADJSP SP,-2 ; SP,-2 400515' 105 17 0 00 777776
HRRZ AC0,13(AC10) ; AC0,13(AC10) 400516' 550 00 0 10 000013
CAMN AC0,AC1 ; AC0,AC1 400517' 316 00 0 00 000001
JRST L.31 ; L.31 400520' 254 00 0 00 400536'
SETZM 0(SP) ; 0(SP) 400521' 402 00 0 17 000000 0664
PUSH SP,C.18 ; SP,[35] 400522' 261 17 0 00 400661'
PUSH SP,C.19 ; SP,[0,,ROUTINE_NAME] 400523' 261 17 0 00 400662'
PUSH SP,C.20 ; SP,[0,,P.AAK] 400524' 261 17 0 00 400663'
MOVE AC0,AC11 ; AC0,AC11 400525' 200 00 0 00 000011 0665
ADDI AC0,2 ; AC0,2 400526' 271 00 0 00 000002
PUSH SP,AC0 ; SP,AC0 400527' 261 17 0 00 000000
MOVE AC0,-14(SP) ; AC0,RSXMS_FILE 400530' 200 00 0 17 777764
ADDI AC0,2 ; AC0,2 400531' 271 00 0 00 000002
PUSH SP,AC0 ; SP,AC0 400532' 261 17 0 00 000000
PUSH SP,C.5 ; SP,[0] 400533' 261 17 0 00 400166' 0664
PUSHJ SP,ERRMSG ; SP,ERRMSG 400534' 260 17 0 00 000000*
ADJSP SP,-6 ; SP,-6 400535' 105 17 0 00 777772
L.31: MOVEM AC11,0(SP) ; AC11,0(SP) 400536' 202 11 0 17 000000 0667
PUSH SP,C.21 ; SP,[0,,P.AAL] 400537' 261 17 0 00 400664'
PUSH SP,C.5 ; SP,[0] 400540' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 400541' 260 17 0 00 000000*
MOVE AC10,AC1 ; AC10,AC1 400542' 200 10 0 00 000001
ADJSP SP,-2 ; SP,-2 400543' 105 17 0 00 777776
MOVE AC0,-11(SP) ; AC0,CEX_FILE 400544' 200 00 0 17 777767
PUSH SP,AC0 ; SP,AC0 400545' 261 17 0 00 000000
PUSH SP,C.22 ; SP,[0,,P.AAM] 400546' 261 17 0 00 400665'
PUSH SP,C.5 ; SP,[0] 400547' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 400550' 260 17 0 00 000000*
ADJSP SP,-3 ; SP,-3 400551' 105 17 0 00 777775
CAMN AC10,AC1 ; AC10,AC1 400552' 316 10 0 00 000001
JRST L.32 ; L.32 400553' 254 00 0 00 400571'
SETZM 0(SP) ; 0(SP) 400554' 402 00 0 17 000000 0669
PUSH SP,C.18 ; SP,[35] 400555' 261 17 0 00 400661'
PUSH SP,C.19 ; SP,[0,,ROUTINE_NAME] 400556' 261 17 0 00 400662'
PUSH SP,C.23 ; SP,[0,,P.AAN] 400557' 261 17 0 00 400666'
MOVE AC1,AC11 ; AC1,AC11 400560' 200 01 0 00 000011
ADDI AC1,2 ; AC1,2 400561' 271 01 0 00 000002
PUSH SP,AC1 ; SP,AC1 400562' 261 17 0 00 000001
MOVE AC1,AC0 ; AC1,AC0 400563' 200 01 0 00 000000
ADDI AC1,2 ; AC1,2 400564' 271 01 0 00 000002
PUSH SP,AC1 ; SP,AC1 400565' 261 17 0 00 000001
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 27
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (8)
PUSH SP,C.5 ; SP,[0] 400566' 261 17 0 00 400166'
PUSHJ SP,ERRMSG ; SP,ERRMSG 400567' 260 17 0 00 000000*
ADJSP SP,-6 ; SP,-6 400570' 105 17 0 00 777772
L.32: MOVEM AC11,0(SP) ; AC11,0(SP) 400571' 202 11 0 17 000000 0673
PUSH SP,C.24 ; SP,[0,,P.AAO] 400572' 261 17 0 00 400667'
PUSH SP,C.5 ; SP,[0] 400573' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 400574' 260 17 0 00 000000*
MOVE AC10,AC1 ; AC10,AC1 400575' 200 10 0 00 000001
ADJSP SP,-2 ; SP,-2 400576' 105 17 0 00 777776
MOVEM AC0,0(SP) ; AC0,0(SP) 400577' 202 00 0 17 000000
PUSH SP,C.25 ; SP,[0,,P.AAP] 400600' 261 17 0 00 400670'
PUSH SP,C.5 ; SP,[0] 400601' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 400602' 260 17 0 00 000000*
ADJSP SP,-2 ; SP,-2 400603' 105 17 0 00 777776
CAMN AC10,AC1 ; AC10,AC1 400604' 316 10 0 00 000001
JRST L.33 ; L.33 400605' 254 00 0 00 400623'
SETZM 0(SP) ; 0(SP) 400606' 402 00 0 17 000000 0675
PUSH SP,C.18 ; SP,[35] 400607' 261 17 0 00 400661'
PUSH SP,C.19 ; SP,[0,,ROUTINE_NAME] 400610' 261 17 0 00 400662'
PUSH SP,C.26 ; SP,[0,,P.AAQ] 400611' 261 17 0 00 400671'
MOVE AC1,AC11 ; AC1,AC11 400612' 200 01 0 00 000011
ADDI AC1,2 ; AC1,2 400613' 271 01 0 00 000002
PUSH SP,AC1 ; SP,AC1 400614' 261 17 0 00 000001
MOVE AC1,AC0 ; AC1,AC0 400615' 200 01 0 00 000000
ADDI AC1,2 ; AC1,2 400616' 271 01 0 00 000002
PUSH SP,AC1 ; SP,AC1 400617' 261 17 0 00 000001
PUSH SP,C.5 ; SP,[0] 400620' 261 17 0 00 400166'
PUSHJ SP,ERRMSG ; SP,ERRMSG 400621' 260 17 0 00 000000*
ADJSP SP,-6 ; SP,-6 400622' 105 17 0 00 777772
L.33: MOVEM AC11,0(SP) ; AC11,0(SP) 400623' 202 11 0 17 000000 0679
PUSH SP,C.27 ; SP,[0,,P.AAR] 400624' 261 17 0 00 400672'
PUSH SP,C.5 ; SP,[0] 400625' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 400626' 260 17 0 00 000000*
MOVE AC10,AC1 ; AC10,AC1 400627' 200 10 0 00 000001
ADJSP SP,-2 ; SP,-2 400630' 105 17 0 00 777776
MOVEM AC0,0(SP) ; AC0,0(SP) 400631' 202 00 0 17 000000
PUSH SP,C.28 ; SP,[0,,P.AAS] 400632' 261 17 0 00 400673'
PUSH SP,C.5 ; SP,[0] 400633' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 400634' 260 17 0 00 000000*
ADJSP SP,-2 ; SP,-2 400635' 105 17 0 00 777776
CAMN AC10,AC1 ; AC10,AC1 400636' 316 10 0 00 000001
JRST L.34 ; L.34 400637' 254 00 0 00 400653'
SETZM 0(SP) ; 0(SP) 400640' 402 00 0 17 000000 0681
PUSH SP,C.18 ; SP,[35] 400641' 261 17 0 00 400661'
PUSH SP,C.19 ; SP,[0,,ROUTINE_NAME] 400642' 261 17 0 00 400662'
PUSH SP,C.29 ; SP,[0,,P.AAT] 400643' 261 17 0 00 400674'
ADDI AC11,2 ; AC11,2 400644' 271 11 0 00 000002
PUSH SP,AC11 ; SP,AC11 400645' 261 17 0 00 000011
ADDI AC0,2 ; AC0,2 400646' 271 00 0 00 000002
PUSH SP,AC0 ; SP,AC0 400647' 261 17 0 00 000000
PUSH SP,C.5 ; SP,[0] 400650' 261 17 0 00 400166'
PUSHJ SP,ERRMSG ; SP,ERRMSG 400651' 260 17 0 00 000000*
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 28
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (8)
ADJSP SP,-6 ; SP,-6 400652' 105 17 0 00 777772
L.34: ADJSP SP,-3 ; SP,-3 400653' 105 17 0 00 777775 0649
POP SP,AC11 ; SP,AC11 400654' 262 17 0 00 000011 0614
POP SP,AC10 ; SP,AC10 400655' 262 17 0 00 000010
POP SP,AC0 ; SP,AC0 400656' 262 17 0 00 000000
POPJ SP, ; SP, 400657' 263 17 0 00 000000
C.17: XWD 0,P.AAJ ; 0,P.AAJ 400660' 000000 400452'
C.18: EXP 35 ; 35 400661' 000000 000035
C.19: XWD 0,ROUTINE_NAME ; 0,ROUTINE_NAME 400662' 000000 400450'
C.20: XWD 0,P.AAK ; 0,P.AAK 400663' 000000 400454'
C.21: XWD 0,P.AAL ; 0,P.AAL 400664' 000000 400456'
C.22: XWD 0,P.AAM ; 0,P.AAM 400665' 000000 400460'
C.23: XWD 0,P.AAN ; 0,P.AAN 400666' 000000 400462'
C.24: XWD 0,P.AAO ; 0,P.AAO 400667' 000000 400464'
C.25: XWD 0,P.AAP ; 0,P.AAP 400670' 000000 400466'
C.26: XWD 0,P.AAQ ; 0,P.AAQ 400671' 000000 400470'
C.27: XWD 0,P.AAR ; 0,P.AAR 400672' 000000 400472'
C.28: XWD 0,P.AAS ; 0,P.AAS 400673' 000000 400474'
C.29: XWD 0,P.AAT ; 0,P.AAT 400674' 000000 400476'
; Routine Size: 125 words
; 0685
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 29
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (9)
; 0686 ROUTINE GETSYM_1 (KERNEL_FILE, RSXMS_FILE, VALUES) : NOVALUE = !FETCH SYMBOL VALUES
; 0687
; 0688 !++
; 0689 ! FUNCTIONAL DESCRIPTION:
; 0690 !
; 0691 ! FETCH THE SYMBOLS
; 0692 !
; 0693 ! FORMAL PARAMETERS:
; 0694 !
; 0695 ! KERNEL_FILE - FILE BLOCK FOR THE KERNEL
; 0696 ! RSXMS_FILE - FILE BLOCK FOR THE EXEMC SYMBOLS
; 0697 ! VALUES - BLOCK INTO WHICH TO STORE SYMBOL VALUES
; 0698 !
; 0699 ! IMPLICIT INPUTS:
; 0700 !
; 0701 ! THE SYMBOL VALUES IN THE SYMBOL TABLES
; 0702 !
; 0703 ! IMPLICIT OUTPUTS:
; 0704 !
; 0705 ! NONE
; 0706 !
; 0707 ! ROUTINE VALUE:
; 0708 !
; 0709 ! NONE
; 0710 !
; 0711 ! SIDE EFFECTS
; 0712 !
; 0713 ! FILLS IN SYMBOLS IN 'VALUES'
; 0714 !
; 0715 !--
; 0716
; 0717 BEGIN
; 0718
; 0719 BIND
; 0720 ROUTINE_NAME = UPLIT (%ASCIZ'GETSYM_1');
; 0721
; 0722 MAP
; 0723 KERNEL_FILE : REF FILE_BLOCK,
; 0724 RSXMS_FILE : REF FILE_BLOCK,
; 0725 VALUES : REF VNPVAL_BLOCK;
; 0726
; 0727 VALUES [CRAVL] = SYM_VAL (.KERNEL_FILE, UPLIT (%ASCIZ'$CRAVL'), 0);
; 0728 VALUES [EXSIZ] = SYM_VAL (.KERNEL_FILE, UPLIT (%ASCIZ'$EXSIZ'), 0);
; 0729 VALUES [POOL] = SYM_VAL (.KERNEL_FILE, UPLIT (%ASCIZ'$POOL '), 0);
; 0730 VALUES [FMASK] = SYM_VAL (.KERNEL_FILE, UPLIT (%ASCIZ'$FMASK'), 0);
; 0731 VALUES [SYSIZ] = SYM_VAL (.KERNEL_FILE, UPLIT (%ASCIZ'$SYSIZ'), 0);
; 0732 VALUES [PARHD] = SYM_VAL (.KERNEL_FILE, UPLIT (%ASCIZ'$PARHD'), 0);
; 0733 VALUES [TSKHD] = SYM_VAL (.KERNEL_FILE, UPLIT (%ASCIZ'$TSKHD'), 0);
; 0734 VALUES [CLKHD] = SYM_VAL (.KERNEL_FILE, UPLIT (%ASCIZ'$CLKHD'), 0);
; 0735 VALUES [DEVHD] = SYM_VAL (.KERNEL_FILE, UPLIT (%ASCIZ'$DEVHD'), 0);
; 0736 VALUES [ABTIM] = SYM_VAL (.KERNEL_FILE, UPLIT (%ASCIZ'$ABTIM'), 0);
; 0737 VALUES [TKPS] = SYM_VAL (.KERNEL_FILE, UPLIT (%ASCIZ'$TKPS '), 0);
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 30
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (9)
; 0738 VALUES [P_LGTH] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'P.LGTH'), 0);
; 0739 VALUES [P_LNK] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'P.LNK '), 0);
; 0740 VALUES [P_PRI] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'P.PRI '), 0);
; 0741 VALUES [P_IOC] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'P.IOC '), 0);
; 0742 VALUES [P_NAM] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'P.NAM '), 0);
; 0743 VALUES [P_SUB] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'P.SUB '), 0);
; 0744 VALUES [P_MAIN] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'P.MAIN'), 0);
; 0745 VALUES [P_REL] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'P.REL '), 0);
; 0746 VALUES [P_SIZE] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'P.SIZE'), 0);
; 0747 VALUES [P_WAIT] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'P.WAIT'), 0);
; 0748 VALUES [P_BUSY] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'P.BUSY'), 0);
; 0749 VALUES [P_TCB] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'P.TCB '), 0);
; 0750 VALUES [P_STAT] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'P.STAT'), 0);
; 0751 VALUES [P_HDR] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'P.HDR '), 0);
; 0752 VALUES [P_PRO] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'P.PRO '), 0);
; 0753 VALUES [P_ATT] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'P.ATT '), 0);
; 0754 VALUES [FE_EXT] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'FE.EXT'), 0);
; 0755 VALUES [FE_MUP] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'FE.MUP'), 0);
; 0756 VALUES [FE_EXV] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'FE.EXV'), 0);
; 0757 VALUES [FE_DRV] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'FE.DRV'), 0);
; 0758 VALUES [FE_PLA] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'FE.PLA'), 0);
; 0759 VALUES [FE_CAL] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'FE.CAL'), 0);
; 0760 VALUES [FE_PKT] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'FE.PKT'), 0);
; 0761 VALUES [FE_EXP] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'FE.EXP'), 0);
; 0762 VALUES [FE_LSI] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'FE.LSI'), 0);
; 0763 VALUES [FE_CEX] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'FE.CEX'), 0);
; 0764 VALUES [FE_NLG] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'FE.NLG'), 0);
; 0765 VALUES [FE_NLG] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'FE.NLG'), 0);
; 0766 VALUES [PS_OUT] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'PS.OUT'), 0);
; 0767 VALUES [PS_CKP] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'PS.CKP'), 0);
; 0768 VALUES [PS_CKR] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'PS.CKR'), 0);
; 0769 VALUES [PS_CHK] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'PS.CHK'), 0);
; 0770 VALUES [PS_FXD] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'PS.FXD'), 0);
; 0771 VALUES [PS_PER] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'PS.PER'), 0);
; 0772 VALUES [PS_LIO] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'PS.LIO'), 0);
; 0773 VALUES [PS_NSF] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'PS.NSF'), 0);
; 0774 VALUES [PS_COM] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'PS.COM'), 0);
; 0775 VALUES [PS_PIC] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'PS.PIC'), 0);
; 0776 VALUES [PS_SYS] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'PS.SYS'), 0);
; 0777 VALUES [PS_DRV] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'PS.DRV'), 0);
; 0778 VALUES [PS_DEL] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'PS.DEL'), 0);
; 0779 VALUES [PS_APR] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'PS.APR'), 0);
; 0780 VALUES [T_PRI] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'T.PRI '), 0);
; 0781 VALUES [T_NAM] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'T.NAM '), 0);
; 0782 VALUES [T_RCVL] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'T.RCVL'), 0);
; 0783 VALUES [T_ASTL] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'T.ASTL'), 0);
; 0784 VALUES [T_TCBL] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'T.TCBL'), 0);
; 0785 VALUES [T_STAT] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'T.STAT'), 0);
; 0786 VALUES [T_ST2] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'T.ST2 '), 0);
; 0787 VALUES [T_ST3] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'T.ST3 '), 0);
; 0788 VALUES [T_DPRI] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'T.DPRI'), 0);
; 0789 VALUES [T_LBN] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'T.LBN '), 0);
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 31
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (9)
; 0790 VALUES [T_LDV] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'T.LDV '), 0);
; 0791 VALUES [T_PCB] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'T.PCB '), 0);
; 0792 VALUES [T_MXSZ] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'T.MXSZ'), 0);
; 0793 VALUES [T_LGTH] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'T.LGTH'), 0);
; 0794 VALUES [H_HDLN] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'H.HDLN'), 0);
; 0795 VALUES [H_WND] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'H.WND '), 0);
; 0796 VALUES [H_GARD] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'H.GARD'), 0);
; 0797 VALUES [H_NLUN] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'H.NLUN'), 0);
; 0798 VALUES [H_LUN] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'H.LUN '), 0);
; 0799 VALUES [TS_EXE] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'TS.EXE'), 0);
; 0800 VALUES [TS_RDN] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'TS.RDN'), 0);
; 0801 VALUES [TS_MSG] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'TS.MSG'), 0);
; 0802 VALUES [TS_NRP] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'TS.NRP'), 0);
; 0803 VALUES [TS_RUN] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'TS.RUN'), 0);
; 0804 VALUES [TS_OUT] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'TS.OUT'), 0);
; 0805 VALUES [TS_CKP] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'TS.CKP'), 0);
; 0806 VALUES [TS_CKR] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'TS.CKR'), 0);
; 0807 VALUES [T2_AST] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'T2.AST'), 0);
; 0808 VALUES [T2_DST] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'T2.DST'), 0);
; 0809 VALUES [T2_CHK] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'T2.CHK'), 0);
; 0810 VALUES [T2_CKD] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'T2.CKD'), 0);
; 0811 VALUES [T2_BFX] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'T2.BFX'), 0);
; 0812 VALUES [T2_FXD] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'T2.FXD'), 0);
; 0813 VALUES [T2_TIO] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'T2.TIO'), 0);
; 0814 VALUES [T2_CAF] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'T2.CAF'), 0);
; 0815 VALUES [T2_HLT] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'T2.HLT'), 0);
; 0816 VALUES [T2_ABO] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'T2.ABO'), 0);
; 0817 VALUES [T2_STP] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'T2.STP'), 0);
; 0818 VALUES [T2_SPN] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'T2.SPN'), 0);
; 0819 VALUES [T2_WFR] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'T2.WFR'), 0);
; 0820 VALUES [T3_ACP] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'T3.ACP'), 0);
; 0821 VALUES [T3_PMD] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'T3.PMD'), 0);
; 0822 VALUES [T3_REM] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'T3.REM'), 0);
; 0823 VALUES [T3_PRV] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'T3.PRV'), 0);
; 0824 VALUES [T3_MCR] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'T3.MCR'), 0);
; 0825 VALUES [T3_SLV] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'T3.SLV'), 0);
; 0826 VALUES [T3_CLI] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'T3.CLI'), 0);
; 0827 VALUES [T3_RST] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'T3.RST'), 0);
; 0828 VALUES [T3_NSD] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'T3.NSD'), 0);
; 0829 VALUES [T3_CAL] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'T3.CAL'), 0);
; 0830 VALUES [T3_ROV] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'T3.ROV'), 0);
; 0831 VALUES [T3_NET] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'T3.NET'), 0);
; 0832 VALUES [D_LNK] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'D.LNK '), 0);
; 0833 VALUES [D_UCB] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'D.UCB '), 0);
; 0834 VALUES [D_NAM] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'D.NAM '), 0);
; 0835 VALUES [D_UNIT] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'D.UNIT'), 0);
; 0836 VALUES [D_UCBL] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'D.UCBL'), 0);
; 0837 VALUES [D_DSP] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'D.DSP '), 0);
; 0838 VALUES [D_MSK] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'D.MSK '), 0);
; 0839 VALUES [D_PCB] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'D.PCB '), 0);
; 0840 VALUES [S_LHD] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'S.LHD '), 0);
; 0841 VALUES [S_VCT] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'S.VCT '), 0);
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 32
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (9)
; 0842 VALUES [S_FRK] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'S.FRK '), 0);
; 0843 VALUES [U_DCB] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'U.DCB '), 0);
; 0844 VALUES [U_RED] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'U.RED '), 0);
; 0845 VALUES [U_CW1] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'U.CW1 '), 0);
; 0846 VALUES [U_CW2] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'U.CW2 '), 0);
; 0847 VALUES [U_CW3] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'U.CW3 '), 0);
; 0848 VALUES [U_CW4] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'U.CW4 '), 0);
; 0849 VALUES [U_SCB] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'U.SCB '), 0);
; 0850 VALUES [CLK_LNK] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'C.LNK '), 0);
; 0851 VALUES [CLK_RQT] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'C.RQT '), 0);
; 0852 VALUES [CLK_EFN] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'C.EFN '), 0);
; 0853 VALUES [CLK_TCB] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'C.TCB '), 0);
; 0854 VALUES [CLK_TIM] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'C.TIM '), 0);
; 0855 VALUES [CLK_LGTH] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'C.LGTH'), 0);
; 0856 VALUES [CLK_MRKT] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'C.MRKT'), 0);
; 0857 VALUES [CLK_SCHD] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'C.SCHD'), 0);
; 0858 VALUES [CLK_SSHT] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'C.SSHT'), 0);
; 0859 VALUES [CLK_SYST] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'C.SYST'), 0);
; 0860 VALUES [CLK_SYTK] = SYM_VAL (.RSXMS_FILE, UPLIT (%ASCIZ'C.SYTK'), 0);
; 0861 END; !OF GETSYM_1
P.AAU: BYTE (7)"G","E","T","S","Y" ; GETSY 400675' 107 105 124 123 131
BYTE (7)"M","_","1",000,000 ; M_1 400676' 115 137 061 000 000
P.AAV: BYTE (7)"$","C","R","A","V" ; $CRAV 400677' 044 103 122 101 126
BYTE (7)"L",000,000,000,000 ; L 400700' 114 000 000 000 000
P.AAW: BYTE (7)"$","E","X","S","I" ; $EXSI 400701' 044 105 130 123 111
BYTE (7)"Z",000,000,000,000 ; Z 400702' 132 000 000 000 000
P.AAX: BYTE (7)"$","P","O","O","L" ; $POOL 400703' 044 120 117 117 114
BYTE (7)" ",000,000,000,000 ; 400704' 040 000 000 000 000
P.AAY: BYTE (7)"$","F","M","A","S" ; $FMAS 400705' 044 106 115 101 123
BYTE (7)"K",000,000,000,000 ; K 400706' 113 000 000 000 000
P.AAZ: BYTE (7)"$","S","Y","S","I" ; $SYSI 400707' 044 123 131 123 111
BYTE (7)"Z",000,000,000,000 ; Z 400710' 132 000 000 000 000
P.ABA: BYTE (7)"$","P","A","R","H" ; $PARH 400711' 044 120 101 122 110
BYTE (7)"D",000,000,000,000 ; D 400712' 104 000 000 000 000
P.ABB: BYTE (7)"$","T","S","K","H" ; $TSKH 400713' 044 124 123 113 110
BYTE (7)"D",000,000,000,000 ; D 400714' 104 000 000 000 000
P.ABC: BYTE (7)"$","C","L","K","H" ; $CLKH 400715' 044 103 114 113 110
BYTE (7)"D",000,000,000,000 ; D 400716' 104 000 000 000 000
P.ABD: BYTE (7)"$","D","E","V","H" ; $DEVH 400717' 044 104 105 126 110
BYTE (7)"D",000,000,000,000 ; D 400720' 104 000 000 000 000
P.ABE: BYTE (7)"$","A","B","T","I" ; $ABTI 400721' 044 101 102 124 111
BYTE (7)"M",000,000,000,000 ; M 400722' 115 000 000 000 000
P.ABF: BYTE (7)"$","T","K","P","S" ; $TKPS 400723' 044 124 113 120 123
BYTE (7)" ",000,000,000,000 ; 400724' 040 000 000 000 000
P.ABG: BYTE (7)"P",".","L","G","T" ; P.LGT 400725' 120 056 114 107 124
BYTE (7)"H",000,000,000,000 ; H 400726' 110 000 000 000 000
P.ABH: BYTE (7)"P",".","L","N","K" ; P.LNK 400727' 120 056 114 116 113
BYTE (7)" ",000,000,000,000 ; 400730' 040 000 000 000 000
P.ABI: BYTE (7)"P",".","P","R","I" ; P.PRI 400731' 120 056 120 122 111
BYTE (7)" ",000,000,000,000 ; 400732' 040 000 000 000 000
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 33
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (9)
P.ABJ: BYTE (7)"P",".","I","O","C" ; P.IOC 400733' 120 056 111 117 103
BYTE (7)" ",000,000,000,000 ; 400734' 040 000 000 000 000
P.ABK: BYTE (7)"P",".","N","A","M" ; P.NAM 400735' 120 056 116 101 115
BYTE (7)" ",000,000,000,000 ; 400736' 040 000 000 000 000
P.ABL: BYTE (7)"P",".","S","U","B" ; P.SUB 400737' 120 056 123 125 102
BYTE (7)" ",000,000,000,000 ; 400740' 040 000 000 000 000
P.ABM: BYTE (7)"P",".","M","A","I" ; P.MAI 400741' 120 056 115 101 111
BYTE (7)"N",000,000,000,000 ; N 400742' 116 000 000 000 000
P.ABN: BYTE (7)"P",".","R","E","L" ; P.REL 400743' 120 056 122 105 114
BYTE (7)" ",000,000,000,000 ; 400744' 040 000 000 000 000
P.ABO: BYTE (7)"P",".","S","I","Z" ; P.SIZ 400745' 120 056 123 111 132
BYTE (7)"E",000,000,000,000 ; E 400746' 105 000 000 000 000
P.ABP: BYTE (7)"P",".","W","A","I" ; P.WAI 400747' 120 056 127 101 111
BYTE (7)"T",000,000,000,000 ; T 400750' 124 000 000 000 000
P.ABQ: BYTE (7)"P",".","B","U","S" ; P.BUS 400751' 120 056 102 125 123
BYTE (7)"Y",000,000,000,000 ; Y 400752' 131 000 000 000 000
P.ABR: BYTE (7)"P",".","T","C","B" ; P.TCB 400753' 120 056 124 103 102
BYTE (7)" ",000,000,000,000 ; 400754' 040 000 000 000 000
P.ABS: BYTE (7)"P",".","S","T","A" ; P.STA 400755' 120 056 123 124 101
BYTE (7)"T",000,000,000,000 ; T 400756' 124 000 000 000 000
P.ABT: BYTE (7)"P",".","H","D","R" ; P.HDR 400757' 120 056 110 104 122
BYTE (7)" ",000,000,000,000 ; 400760' 040 000 000 000 000
P.ABU: BYTE (7)"P",".","P","R","O" ; P.PRO 400761' 120 056 120 122 117
BYTE (7)" ",000,000,000,000 ; 400762' 040 000 000 000 000
P.ABV: BYTE (7)"P",".","A","T","T" ; P.ATT 400763' 120 056 101 124 124
BYTE (7)" ",000,000,000,000 ; 400764' 040 000 000 000 000
P.ABW: BYTE (7)"F","E",".","E","X" ; FE.EX 400765' 106 105 056 105 130
BYTE (7)"T",000,000,000,000 ; T 400766' 124 000 000 000 000
P.ABX: BYTE (7)"F","E",".","M","U" ; FE.MU 400767' 106 105 056 115 125
BYTE (7)"P",000,000,000,000 ; P 400770' 120 000 000 000 000
P.ABY: BYTE (7)"F","E",".","E","X" ; FE.EX 400771' 106 105 056 105 130
BYTE (7)"V",000,000,000,000 ; V 400772' 126 000 000 000 000
P.ABZ: BYTE (7)"F","E",".","D","R" ; FE.DR 400773' 106 105 056 104 122
BYTE (7)"V",000,000,000,000 ; V 400774' 126 000 000 000 000
P.ACA: BYTE (7)"F","E",".","P","L" ; FE.PL 400775' 106 105 056 120 114
BYTE (7)"A",000,000,000,000 ; A 400776' 101 000 000 000 000
P.ACB: BYTE (7)"F","E",".","C","A" ; FE.CA 400777' 106 105 056 103 101
BYTE (7)"L",000,000,000,000 ; L 401000' 114 000 000 000 000
P.ACC: BYTE (7)"F","E",".","P","K" ; FE.PK 401001' 106 105 056 120 113
BYTE (7)"T",000,000,000,000 ; T 401002' 124 000 000 000 000
P.ACD: BYTE (7)"F","E",".","E","X" ; FE.EX 401003' 106 105 056 105 130
BYTE (7)"P",000,000,000,000 ; P 401004' 120 000 000 000 000
P.ACE: BYTE (7)"F","E",".","L","S" ; FE.LS 401005' 106 105 056 114 123
BYTE (7)"I",000,000,000,000 ; I 401006' 111 000 000 000 000
P.ACF: BYTE (7)"F","E",".","C","E" ; FE.CE 401007' 106 105 056 103 105
BYTE (7)"X",000,000,000,000 ; X 401010' 130 000 000 000 000
P.ACG: BYTE (7)"F","E",".","N","L" ; FE.NL 401011' 106 105 056 116 114
BYTE (7)"G",000,000,000,000 ; G 401012' 107 000 000 000 000
P.ACH: BYTE (7)"F","E",".","N","L" ; FE.NL 401013' 106 105 056 116 114
BYTE (7)"G",000,000,000,000 ; G 401014' 107 000 000 000 000
P.ACI: BYTE (7)"P","S",".","O","U" ; PS.OU 401015' 120 123 056 117 125
BYTE (7)"T",000,000,000,000 ; T 401016' 124 000 000 000 000
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 34
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (9)
P.ACJ: BYTE (7)"P","S",".","C","K" ; PS.CK 401017' 120 123 056 103 113
BYTE (7)"P",000,000,000,000 ; P 401020' 120 000 000 000 000
P.ACK: BYTE (7)"P","S",".","C","K" ; PS.CK 401021' 120 123 056 103 113
BYTE (7)"R",000,000,000,000 ; R 401022' 122 000 000 000 000
P.ACL: BYTE (7)"P","S",".","C","H" ; PS.CH 401023' 120 123 056 103 110
BYTE (7)"K",000,000,000,000 ; K 401024' 113 000 000 000 000
P.ACM: BYTE (7)"P","S",".","F","X" ; PS.FX 401025' 120 123 056 106 130
BYTE (7)"D",000,000,000,000 ; D 401026' 104 000 000 000 000
P.ACN: BYTE (7)"P","S",".","P","E" ; PS.PE 401027' 120 123 056 120 105
BYTE (7)"R",000,000,000,000 ; R 401030' 122 000 000 000 000
P.ACO: BYTE (7)"P","S",".","L","I" ; PS.LI 401031' 120 123 056 114 111
BYTE (7)"O",000,000,000,000 ; O 401032' 117 000 000 000 000
P.ACP: BYTE (7)"P","S",".","N","S" ; PS.NS 401033' 120 123 056 116 123
BYTE (7)"F",000,000,000,000 ; F 401034' 106 000 000 000 000
P.ACQ: BYTE (7)"P","S",".","C","O" ; PS.CO 401035' 120 123 056 103 117
BYTE (7)"M",000,000,000,000 ; M 401036' 115 000 000 000 000
P.ACR: BYTE (7)"P","S",".","P","I" ; PS.PI 401037' 120 123 056 120 111
BYTE (7)"C",000,000,000,000 ; C 401040' 103 000 000 000 000
P.ACS: BYTE (7)"P","S",".","S","Y" ; PS.SY 401041' 120 123 056 123 131
BYTE (7)"S",000,000,000,000 ; S 401042' 123 000 000 000 000
P.ACT: BYTE (7)"P","S",".","D","R" ; PS.DR 401043' 120 123 056 104 122
BYTE (7)"V",000,000,000,000 ; V 401044' 126 000 000 000 000
P.ACU: BYTE (7)"P","S",".","D","E" ; PS.DE 401045' 120 123 056 104 105
BYTE (7)"L",000,000,000,000 ; L 401046' 114 000 000 000 000
P.ACV: BYTE (7)"P","S",".","A","P" ; PS.AP 401047' 120 123 056 101 120
BYTE (7)"R",000,000,000,000 ; R 401050' 122 000 000 000 000
P.ACW: BYTE (7)"T",".","P","R","I" ; T.PRI 401051' 124 056 120 122 111
BYTE (7)" ",000,000,000,000 ; 401052' 040 000 000 000 000
P.ACX: BYTE (7)"T",".","N","A","M" ; T.NAM 401053' 124 056 116 101 115
BYTE (7)" ",000,000,000,000 ; 401054' 040 000 000 000 000
P.ACY: BYTE (7)"T",".","R","C","V" ; T.RCV 401055' 124 056 122 103 126
BYTE (7)"L",000,000,000,000 ; L 401056' 114 000 000 000 000
P.ACZ: BYTE (7)"T",".","A","S","T" ; T.AST 401057' 124 056 101 123 124
BYTE (7)"L",000,000,000,000 ; L 401060' 114 000 000 000 000
P.ADA: BYTE (7)"T",".","T","C","B" ; T.TCB 401061' 124 056 124 103 102
BYTE (7)"L",000,000,000,000 ; L 401062' 114 000 000 000 000
P.ADB: BYTE (7)"T",".","S","T","A" ; T.STA 401063' 124 056 123 124 101
BYTE (7)"T",000,000,000,000 ; T 401064' 124 000 000 000 000
P.ADC: BYTE (7)"T",".","S","T","2" ; T.ST2 401065' 124 056 123 124 062
BYTE (7)" ",000,000,000,000 ; 401066' 040 000 000 000 000
P.ADD: BYTE (7)"T",".","S","T","3" ; T.ST3 401067' 124 056 123 124 063
BYTE (7)" ",000,000,000,000 ; 401070' 040 000 000 000 000
P.ADE: BYTE (7)"T",".","D","P","R" ; T.DPR 401071' 124 056 104 120 122
BYTE (7)"I",000,000,000,000 ; I 401072' 111 000 000 000 000
P.ADF: BYTE (7)"T",".","L","B","N" ; T.LBN 401073' 124 056 114 102 116
BYTE (7)" ",000,000,000,000 ; 401074' 040 000 000 000 000
P.ADG: BYTE (7)"T",".","L","D","V" ; T.LDV 401075' 124 056 114 104 126
BYTE (7)" ",000,000,000,000 ; 401076' 040 000 000 000 000
P.ADH: BYTE (7)"T",".","P","C","B" ; T.PCB 401077' 124 056 120 103 102
BYTE (7)" ",000,000,000,000 ; 401100' 040 000 000 000 000
P.ADI: BYTE (7)"T",".","M","X","S" ; T.MXS 401101' 124 056 115 130 123
BYTE (7)"Z",000,000,000,000 ; Z 401102' 132 000 000 000 000
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 35
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (9)
P.ADJ: BYTE (7)"T",".","L","G","T" ; T.LGT 401103' 124 056 114 107 124
BYTE (7)"H",000,000,000,000 ; H 401104' 110 000 000 000 000
P.ADK: BYTE (7)"H",".","H","D","L" ; H.HDL 401105' 110 056 110 104 114
BYTE (7)"N",000,000,000,000 ; N 401106' 116 000 000 000 000
P.ADL: BYTE (7)"H",".","W","N","D" ; H.WND 401107' 110 056 127 116 104
BYTE (7)" ",000,000,000,000 ; 401110' 040 000 000 000 000
P.ADM: BYTE (7)"H",".","G","A","R" ; H.GAR 401111' 110 056 107 101 122
BYTE (7)"D",000,000,000,000 ; D 401112' 104 000 000 000 000
P.ADN: BYTE (7)"H",".","N","L","U" ; H.NLU 401113' 110 056 116 114 125
BYTE (7)"N",000,000,000,000 ; N 401114' 116 000 000 000 000
P.ADO: BYTE (7)"H",".","L","U","N" ; H.LUN 401115' 110 056 114 125 116
BYTE (7)" ",000,000,000,000 ; 401116' 040 000 000 000 000
P.ADP: BYTE (7)"T","S",".","E","X" ; TS.EX 401117' 124 123 056 105 130
BYTE (7)"E",000,000,000,000 ; E 401120' 105 000 000 000 000
P.ADQ: BYTE (7)"T","S",".","R","D" ; TS.RD 401121' 124 123 056 122 104
BYTE (7)"N",000,000,000,000 ; N 401122' 116 000 000 000 000
P.ADR: BYTE (7)"T","S",".","M","S" ; TS.MS 401123' 124 123 056 115 123
BYTE (7)"G",000,000,000,000 ; G 401124' 107 000 000 000 000
P.ADS: BYTE (7)"T","S",".","N","R" ; TS.NR 401125' 124 123 056 116 122
BYTE (7)"P",000,000,000,000 ; P 401126' 120 000 000 000 000
P.ADT: BYTE (7)"T","S",".","R","U" ; TS.RU 401127' 124 123 056 122 125
BYTE (7)"N",000,000,000,000 ; N 401130' 116 000 000 000 000
P.ADU: BYTE (7)"T","S",".","O","U" ; TS.OU 401131' 124 123 056 117 125
BYTE (7)"T",000,000,000,000 ; T 401132' 124 000 000 000 000
P.ADV: BYTE (7)"T","S",".","C","K" ; TS.CK 401133' 124 123 056 103 113
BYTE (7)"P",000,000,000,000 ; P 401134' 120 000 000 000 000
P.ADW: BYTE (7)"T","S",".","C","K" ; TS.CK 401135' 124 123 056 103 113
BYTE (7)"R",000,000,000,000 ; R 401136' 122 000 000 000 000
P.ADX: BYTE (7)"T","2",".","A","S" ; T2.AS 401137' 124 062 056 101 123
BYTE (7)"T",000,000,000,000 ; T 401140' 124 000 000 000 000
P.ADY: BYTE (7)"T","2",".","D","S" ; T2.DS 401141' 124 062 056 104 123
BYTE (7)"T",000,000,000,000 ; T 401142' 124 000 000 000 000
P.ADZ: BYTE (7)"T","2",".","C","H" ; T2.CH 401143' 124 062 056 103 110
BYTE (7)"K",000,000,000,000 ; K 401144' 113 000 000 000 000
P.AEA: BYTE (7)"T","2",".","C","K" ; T2.CK 401145' 124 062 056 103 113
BYTE (7)"D",000,000,000,000 ; D 401146' 104 000 000 000 000
P.AEB: BYTE (7)"T","2",".","B","F" ; T2.BF 401147' 124 062 056 102 106
BYTE (7)"X",000,000,000,000 ; X 401150' 130 000 000 000 000
P.AEC: BYTE (7)"T","2",".","F","X" ; T2.FX 401151' 124 062 056 106 130
BYTE (7)"D",000,000,000,000 ; D 401152' 104 000 000 000 000
P.AED: BYTE (7)"T","2",".","T","I" ; T2.TI 401153' 124 062 056 124 111
BYTE (7)"O",000,000,000,000 ; O 401154' 117 000 000 000 000
P.AEE: BYTE (7)"T","2",".","C","A" ; T2.CA 401155' 124 062 056 103 101
BYTE (7)"F",000,000,000,000 ; F 401156' 106 000 000 000 000
P.AEF: BYTE (7)"T","2",".","H","L" ; T2.HL 401157' 124 062 056 110 114
BYTE (7)"T",000,000,000,000 ; T 401160' 124 000 000 000 000
P.AEG: BYTE (7)"T","2",".","A","B" ; T2.AB 401161' 124 062 056 101 102
BYTE (7)"O",000,000,000,000 ; O 401162' 117 000 000 000 000
P.AEH: BYTE (7)"T","2",".","S","T" ; T2.ST 401163' 124 062 056 123 124
BYTE (7)"P",000,000,000,000 ; P 401164' 120 000 000 000 000
P.AEI: BYTE (7)"T","2",".","S","P" ; T2.SP 401165' 124 062 056 123 120
BYTE (7)"N",000,000,000,000 ; N 401166' 116 000 000 000 000
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 36
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (9)
P.AEJ: BYTE (7)"T","2",".","W","F" ; T2.WF 401167' 124 062 056 127 106
BYTE (7)"R",000,000,000,000 ; R 401170' 122 000 000 000 000
P.AEK: BYTE (7)"T","3",".","A","C" ; T3.AC 401171' 124 063 056 101 103
BYTE (7)"P",000,000,000,000 ; P 401172' 120 000 000 000 000
P.AEL: BYTE (7)"T","3",".","P","M" ; T3.PM 401173' 124 063 056 120 115
BYTE (7)"D",000,000,000,000 ; D 401174' 104 000 000 000 000
P.AEM: BYTE (7)"T","3",".","R","E" ; T3.RE 401175' 124 063 056 122 105
BYTE (7)"M",000,000,000,000 ; M 401176' 115 000 000 000 000
P.AEN: BYTE (7)"T","3",".","P","R" ; T3.PR 401177' 124 063 056 120 122
BYTE (7)"V",000,000,000,000 ; V 401200' 126 000 000 000 000
P.AEO: BYTE (7)"T","3",".","M","C" ; T3.MC 401201' 124 063 056 115 103
BYTE (7)"R",000,000,000,000 ; R 401202' 122 000 000 000 000
P.AEP: BYTE (7)"T","3",".","S","L" ; T3.SL 401203' 124 063 056 123 114
BYTE (7)"V",000,000,000,000 ; V 401204' 126 000 000 000 000
P.AEQ: BYTE (7)"T","3",".","C","L" ; T3.CL 401205' 124 063 056 103 114
BYTE (7)"I",000,000,000,000 ; I 401206' 111 000 000 000 000
P.AER: BYTE (7)"T","3",".","R","S" ; T3.RS 401207' 124 063 056 122 123
BYTE (7)"T",000,000,000,000 ; T 401210' 124 000 000 000 000
P.AES: BYTE (7)"T","3",".","N","S" ; T3.NS 401211' 124 063 056 116 123
BYTE (7)"D",000,000,000,000 ; D 401212' 104 000 000 000 000
P.AET: BYTE (7)"T","3",".","C","A" ; T3.CA 401213' 124 063 056 103 101
BYTE (7)"L",000,000,000,000 ; L 401214' 114 000 000 000 000
P.AEU: BYTE (7)"T","3",".","R","O" ; T3.RO 401215' 124 063 056 122 117
BYTE (7)"V",000,000,000,000 ; V 401216' 126 000 000 000 000
P.AEV: BYTE (7)"T","3",".","N","E" ; T3.NE 401217' 124 063 056 116 105
BYTE (7)"T",000,000,000,000 ; T 401220' 124 000 000 000 000
P.AEW: BYTE (7)"D",".","L","N","K" ; D.LNK 401221' 104 056 114 116 113
BYTE (7)" ",000,000,000,000 ; 401222' 040 000 000 000 000
P.AEX: BYTE (7)"D",".","U","C","B" ; D.UCB 401223' 104 056 125 103 102
BYTE (7)" ",000,000,000,000 ; 401224' 040 000 000 000 000
P.AEY: BYTE (7)"D",".","N","A","M" ; D.NAM 401225' 104 056 116 101 115
BYTE (7)" ",000,000,000,000 ; 401226' 040 000 000 000 000
P.AEZ: BYTE (7)"D",".","U","N","I" ; D.UNI 401227' 104 056 125 116 111
BYTE (7)"T",000,000,000,000 ; T 401230' 124 000 000 000 000
P.AFA: BYTE (7)"D",".","U","C","B" ; D.UCB 401231' 104 056 125 103 102
BYTE (7)"L",000,000,000,000 ; L 401232' 114 000 000 000 000
P.AFB: BYTE (7)"D",".","D","S","P" ; D.DSP 401233' 104 056 104 123 120
BYTE (7)" ",000,000,000,000 ; 401234' 040 000 000 000 000
P.AFC: BYTE (7)"D",".","M","S","K" ; D.MSK 401235' 104 056 115 123 113
BYTE (7)" ",000,000,000,000 ; 401236' 040 000 000 000 000
P.AFD: BYTE (7)"D",".","P","C","B" ; D.PCB 401237' 104 056 120 103 102
BYTE (7)" ",000,000,000,000 ; 401240' 040 000 000 000 000
P.AFE: BYTE (7)"S",".","L","H","D" ; S.LHD 401241' 123 056 114 110 104
BYTE (7)" ",000,000,000,000 ; 401242' 040 000 000 000 000
P.AFF: BYTE (7)"S",".","V","C","T" ; S.VCT 401243' 123 056 126 103 124
BYTE (7)" ",000,000,000,000 ; 401244' 040 000 000 000 000
P.AFG: BYTE (7)"S",".","F","R","K" ; S.FRK 401245' 123 056 106 122 113
BYTE (7)" ",000,000,000,000 ; 401246' 040 000 000 000 000
P.AFH: BYTE (7)"U",".","D","C","B" ; U.DCB 401247' 125 056 104 103 102
BYTE (7)" ",000,000,000,000 ; 401250' 040 000 000 000 000
P.AFI: BYTE (7)"U",".","R","E","D" ; U.RED 401251' 125 056 122 105 104
BYTE (7)" ",000,000,000,000 ; 401252' 040 000 000 000 000
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 37
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (9)
P.AFJ: BYTE (7)"U",".","C","W","1" ; U.CW1 401253' 125 056 103 127 061
BYTE (7)" ",000,000,000,000 ; 401254' 040 000 000 000 000
P.AFK: BYTE (7)"U",".","C","W","2" ; U.CW2 401255' 125 056 103 127 062
BYTE (7)" ",000,000,000,000 ; 401256' 040 000 000 000 000
P.AFL: BYTE (7)"U",".","C","W","3" ; U.CW3 401257' 125 056 103 127 063
BYTE (7)" ",000,000,000,000 ; 401260' 040 000 000 000 000
P.AFM: BYTE (7)"U",".","C","W","4" ; U.CW4 401261' 125 056 103 127 064
BYTE (7)" ",000,000,000,000 ; 401262' 040 000 000 000 000
P.AFN: BYTE (7)"U",".","S","C","B" ; U.SCB 401263' 125 056 123 103 102
BYTE (7)" ",000,000,000,000 ; 401264' 040 000 000 000 000
P.AFO: BYTE (7)"C",".","L","N","K" ; C.LNK 401265' 103 056 114 116 113
BYTE (7)" ",000,000,000,000 ; 401266' 040 000 000 000 000
P.AFP: BYTE (7)"C",".","R","Q","T" ; C.RQT 401267' 103 056 122 121 124
BYTE (7)" ",000,000,000,000 ; 401270' 040 000 000 000 000
P.AFQ: BYTE (7)"C",".","E","F","N" ; C.EFN 401271' 103 056 105 106 116
BYTE (7)" ",000,000,000,000 ; 401272' 040 000 000 000 000
P.AFR: BYTE (7)"C",".","T","C","B" ; C.TCB 401273' 103 056 124 103 102
BYTE (7)" ",000,000,000,000 ; 401274' 040 000 000 000 000
P.AFS: BYTE (7)"C",".","T","I","M" ; C.TIM 401275' 103 056 124 111 115
BYTE (7)" ",000,000,000,000 ; 401276' 040 000 000 000 000
P.AFT: BYTE (7)"C",".","L","G","T" ; C.LGT 401277' 103 056 114 107 124
BYTE (7)"H",000,000,000,000 ; H 401300' 110 000 000 000 000
P.AFU: BYTE (7)"C",".","M","R","K" ; C.MRK 401301' 103 056 115 122 113
BYTE (7)"T",000,000,000,000 ; T 401302' 124 000 000 000 000
P.AFV: BYTE (7)"C",".","S","C","H" ; C.SCH 401303' 103 056 123 103 110
BYTE (7)"D",000,000,000,000 ; D 401304' 104 000 000 000 000
P.AFW: BYTE (7)"C",".","S","S","H" ; C.SSH 401305' 103 056 123 123 110
BYTE (7)"T",000,000,000,000 ; T 401306' 124 000 000 000 000
P.AFX: BYTE (7)"C",".","S","Y","S" ; C.SYS 401307' 103 056 123 131 123
BYTE (7)"T",000,000,000,000 ; T 401310' 124 000 000 000 000
P.AFY: BYTE (7)"C",".","S","Y","T" ; C.SYT 401311' 103 056 123 131 124
BYTE (7)"K",000,000,000,000 ; K 401312' 113 000 000 000 000
ROUTINE_NAME= P.AAU ; 000000 400675'
GETSYM_1:
PUSH SP,AC0 ; SP,AC0 401313' 261 17 0 00 000000 0686
PUSH SP,AC10 ; SP,AC10 401314' 261 17 0 00 000010
MOVE AC10,-3(SP) ; AC10,VALUES 401315' 200 10 0 17 777775 0727
MOVE AC0,-5(SP) ; AC0,KERNEL_FILE 401316' 200 00 0 17 777773
PUSH SP,AC0 ; SP,AC0 401317' 261 17 0 00 000000
PUSH SP,C.30 ; SP,[0,,P.AAV] 401320' 261 17 0 00 402674'
PUSH SP,C.5 ; SP,[0] 401321' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 401322' 260 17 0 00 000000*
HRLM AC1,5(AC10) ; AC1,5(AC10) 401323' 506 01 0 10 000005
MOVEM AC0,0(SP) ; AC0,0(SP) 401324' 202 00 0 17 000000 0728
PUSH SP,C.31 ; SP,[0,,P.AAW] 401325' 261 17 0 00 402675'
PUSH SP,C.5 ; SP,[0] 401326' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 401327' 260 17 0 00 000000*
HRRM AC1,6(AC10) ; AC1,6(AC10) 401330' 542 01 0 10 000006
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 38
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (9)
MOVEM AC0,0(SP) ; AC0,0(SP) 401331' 202 00 0 17 000000 0729
PUSH SP,C.32 ; SP,[0,,P.AAX] 401332' 261 17 0 00 402676'
PUSH SP,C.5 ; SP,[0] 401333' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 401334' 260 17 0 00 000000*
HRRM AC1,7(AC10) ; AC1,7(AC10) 401335' 542 01 0 10 000007
MOVEM AC0,0(SP) ; AC0,0(SP) 401336' 202 00 0 17 000000 0730
PUSH SP,C.33 ; SP,[0,,P.AAY] 401337' 261 17 0 00 402677'
PUSH SP,C.5 ; SP,[0] 401340' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 401341' 260 17 0 00 000000*
HRLM AC1,6(AC10) ; AC1,6(AC10) 401342' 506 01 0 10 000006
MOVEM AC0,0(SP) ; AC0,0(SP) 401343' 202 00 0 17 000000 0731
PUSH SP,C.34 ; SP,[0,,P.AAZ] 401344' 261 17 0 00 402700'
PUSH SP,C.5 ; SP,[0] 401345' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 401346' 260 17 0 00 000000*
HRLM AC1,11(AC10) ; AC1,11(AC10) 401347' 506 01 0 10 000011
MOVEM AC0,0(SP) ; AC0,0(SP) 401350' 202 00 0 17 000000 0732
PUSH SP,C.35 ; SP,[0,,P.ABA] 401351' 261 17 0 00 402701'
PUSH SP,C.5 ; SP,[0] 401352' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 401353' 260 17 0 00 000000*
HRLM AC1,7(AC10) ; AC1,7(AC10) 401354' 506 01 0 10 000007
MOVEM AC0,0(SP) ; AC0,0(SP) 401355' 202 00 0 17 000000 0733
PUSH SP,C.36 ; SP,[0,,P.ABB] 401356' 261 17 0 00 402702'
PUSH SP,C.5 ; SP,[0] 401357' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 401360' 260 17 0 00 000000*
HRRM AC1,10(AC10) ; AC1,10(AC10) 401361' 542 01 0 10 000010
MOVEM AC0,0(SP) ; AC0,0(SP) 401362' 202 00 0 17 000000 0734
PUSH SP,C.37 ; SP,[0,,P.ABC] 401363' 261 17 0 00 402703'
PUSH SP,C.5 ; SP,[0] 401364' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 401365' 260 17 0 00 000000*
HRLM AC1,10(AC10) ; AC1,10(AC10) 401366' 506 01 0 10 000010
MOVEM AC0,0(SP) ; AC0,0(SP) 401367' 202 00 0 17 000000 0735
PUSH SP,C.38 ; SP,[0,,P.ABD] 401370' 261 17 0 00 402704'
PUSH SP,C.5 ; SP,[0] 401371' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 401372' 260 17 0 00 000000*
HRRM AC1,11(AC10) ; AC1,11(AC10) 401373' 542 01 0 10 000011
MOVEM AC0,0(SP) ; AC0,0(SP) 401374' 202 00 0 17 000000 0736
PUSH SP,C.39 ; SP,[0,,P.ABE] 401375' 261 17 0 00 402705'
PUSH SP,C.5 ; SP,[0] 401376' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 401377' 260 17 0 00 000000*
HRRM AC1,12(AC10) ; AC1,12(AC10) 401400' 542 01 0 10 000012
MOVEM AC0,0(SP) ; AC0,0(SP) 401401' 202 00 0 17 000000 0737
PUSH SP,C.40 ; SP,[0,,P.ABF] 401402' 261 17 0 00 402706'
PUSH SP,C.5 ; SP,[0] 401403' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 401404' 260 17 0 00 000000*
HRLM AC1,12(AC10) ; AC1,12(AC10) 401405' 506 01 0 10 000012
MOVE AC0,-33(SP) ; AC0,RSXMS_FILE 401406' 200 00 0 17 777745 0738
PUSH SP,AC0 ; SP,AC0 401407' 261 17 0 00 000000
PUSH SP,C.41 ; SP,[0,,P.ABG] 401410' 261 17 0 00 402707'
PUSH SP,C.5 ; SP,[0] 401411' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 401412' 260 17 0 00 000000*
HRRM AC1,13(AC10) ; AC1,13(AC10) 401413' 542 01 0 10 000013
MOVEM AC0,0(SP) ; AC0,0(SP) 401414' 202 00 0 17 000000 0739
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 39
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (9)
PUSH SP,C.42 ; SP,[0,,P.ABH] 401415' 261 17 0 00 402710'
PUSH SP,C.5 ; SP,[0] 401416' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 401417' 260 17 0 00 000000*
HRLM AC1,13(AC10) ; AC1,13(AC10) 401420' 506 01 0 10 000013
MOVEM AC0,0(SP) ; AC0,0(SP) 401421' 202 00 0 17 000000 0740
PUSH SP,C.43 ; SP,[0,,P.ABI] 401422' 261 17 0 00 402711'
PUSH SP,C.5 ; SP,[0] 401423' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 401424' 260 17 0 00 000000*
HRRM AC1,14(AC10) ; AC1,14(AC10) 401425' 542 01 0 10 000014
MOVEM AC0,0(SP) ; AC0,0(SP) 401426' 202 00 0 17 000000 0741
PUSH SP,C.44 ; SP,[0,,P.ABJ] 401427' 261 17 0 00 402712'
PUSH SP,C.5 ; SP,[0] 401430' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 401431' 260 17 0 00 000000*
HRLM AC1,14(AC10) ; AC1,14(AC10) 401432' 506 01 0 10 000014
MOVEM AC0,0(SP) ; AC0,0(SP) 401433' 202 00 0 17 000000 0742
PUSH SP,C.45 ; SP,[0,,P.ABK] 401434' 261 17 0 00 402713'
PUSH SP,C.5 ; SP,[0] 401435' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 401436' 260 17 0 00 000000*
HRRM AC1,15(AC10) ; AC1,15(AC10) 401437' 542 01 0 10 000015
MOVEM AC0,0(SP) ; AC0,0(SP) 401440' 202 00 0 17 000000 0743
PUSH SP,C.46 ; SP,[0,,P.ABL] 401441' 261 17 0 00 402714'
PUSH SP,C.5 ; SP,[0] 401442' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 401443' 260 17 0 00 000000*
HRLM AC1,15(AC10) ; AC1,15(AC10) 401444' 506 01 0 10 000015
MOVEM AC0,0(SP) ; AC0,0(SP) 401445' 202 00 0 17 000000 0744
PUSH SP,C.47 ; SP,[0,,P.ABM] 401446' 261 17 0 00 402715'
PUSH SP,C.5 ; SP,[0] 401447' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 401450' 260 17 0 00 000000*
HRRM AC1,16(AC10) ; AC1,16(AC10) 401451' 542 01 0 10 000016
MOVEM AC0,0(SP) ; AC0,0(SP) 401452' 202 00 0 17 000000 0745
PUSH SP,C.48 ; SP,[0,,P.ABN] 401453' 261 17 0 00 402716'
PUSH SP,C.5 ; SP,[0] 401454' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 401455' 260 17 0 00 000000*
HRLM AC1,16(AC10) ; AC1,16(AC10) 401456' 506 01 0 10 000016
MOVEM AC0,0(SP) ; AC0,0(SP) 401457' 202 00 0 17 000000 0746
PUSH SP,C.49 ; SP,[0,,P.ABO] 401460' 261 17 0 00 402717'
PUSH SP,C.5 ; SP,[0] 401461' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 401462' 260 17 0 00 000000*
HRRM AC1,17(AC10) ; AC1,17(AC10) 401463' 542 01 0 10 000017
MOVEM AC0,0(SP) ; AC0,0(SP) 401464' 202 00 0 17 000000 0747
PUSH SP,C.50 ; SP,[0,,P.ABP] 401465' 261 17 0 00 402720'
PUSH SP,C.5 ; SP,[0] 401466' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 401467' 260 17 0 00 000000*
HRLM AC1,17(AC10) ; AC1,17(AC10) 401470' 506 01 0 10 000017
MOVEM AC0,0(SP) ; AC0,0(SP) 401471' 202 00 0 17 000000 0748
PUSH SP,C.51 ; SP,[0,,P.ABQ] 401472' 261 17 0 00 402721'
PUSH SP,C.5 ; SP,[0] 401473' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 401474' 260 17 0 00 000000*
HRLM AC1,20(AC10) ; AC1,20(AC10) 401475' 506 01 0 10 000020
MOVEM AC0,0(SP) ; AC0,0(SP) 401476' 202 00 0 17 000000 0749
PUSH SP,C.52 ; SP,[0,,P.ABR] 401477' 261 17 0 00 402722'
PUSH SP,C.5 ; SP,[0] 401500' 261 17 0 00 400166'
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 40
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (9)
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 401501' 260 17 0 00 000000*
HRRM AC1,21(AC10) ; AC1,21(AC10) 401502' 542 01 0 10 000021
MOVEM AC0,0(SP) ; AC0,0(SP) 401503' 202 00 0 17 000000 0750
PUSH SP,C.53 ; SP,[0,,P.ABS] 401504' 261 17 0 00 402723'
PUSH SP,C.5 ; SP,[0] 401505' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 401506' 260 17 0 00 000000*
HRLM AC1,21(AC10) ; AC1,21(AC10) 401507' 506 01 0 10 000021
ADJSP SP,-3 ; SP,-3 401510' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 401511' 202 00 0 17 000000 0751
PUSH SP,C.54 ; SP,[0,,P.ABT] 401512' 261 17 0 00 402724'
PUSH SP,C.5 ; SP,[0] 401513' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 401514' 260 17 0 00 000000*
HRRM AC1,22(AC10) ; AC1,22(AC10) 401515' 542 01 0 10 000022
ADJSP SP,-3 ; SP,-3 401516' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 401517' 202 00 0 17 000000 0752
PUSH SP,C.55 ; SP,[0,,P.ABU] 401520' 261 17 0 00 402725'
PUSH SP,C.5 ; SP,[0] 401521' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 401522' 260 17 0 00 000000*
HRLM AC1,22(AC10) ; AC1,22(AC10) 401523' 506 01 0 10 000022
MOVEM AC0,0(SP) ; AC0,0(SP) 401524' 202 00 0 17 000000 0753
PUSH SP,C.56 ; SP,[0,,P.ABV] 401525' 261 17 0 00 402726'
PUSH SP,C.5 ; SP,[0] 401526' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 401527' 260 17 0 00 000000*
HRRM AC1,23(AC10) ; AC1,23(AC10) 401530' 542 01 0 10 000023
ADJSP SP,-3 ; SP,-3 401531' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 401532' 202 00 0 17 000000 0754
PUSH SP,C.57 ; SP,[0,,P.ABW] 401533' 261 17 0 00 402727'
PUSH SP,C.5 ; SP,[0] 401534' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 401535' 260 17 0 00 000000*
HRLM AC1,23(AC10) ; AC1,23(AC10) 401536' 506 01 0 10 000023
ADJSP SP,-3 ; SP,-3 401537' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 401540' 202 00 0 17 000000 0755
PUSH SP,C.58 ; SP,[0,,P.ABX] 401541' 261 17 0 00 402730'
PUSH SP,C.5 ; SP,[0] 401542' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 401543' 260 17 0 00 000000*
HRRM AC1,24(AC10) ; AC1,24(AC10) 401544' 542 01 0 10 000024
MOVEM AC0,0(SP) ; AC0,0(SP) 401545' 202 00 0 17 000000 0756
PUSH SP,C.59 ; SP,[0,,P.ABY] 401546' 261 17 0 00 402731'
PUSH SP,C.5 ; SP,[0] 401547' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 401550' 260 17 0 00 000000*
HRLM AC1,24(AC10) ; AC1,24(AC10) 401551' 506 01 0 10 000024
ADJSP SP,-3 ; SP,-3 401552' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 401553' 202 00 0 17 000000 0757
PUSH SP,C.60 ; SP,[0,,P.ABZ] 401554' 261 17 0 00 402732'
PUSH SP,C.5 ; SP,[0] 401555' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 401556' 260 17 0 00 000000*
HRRM AC1,25(AC10) ; AC1,25(AC10) 401557' 542 01 0 10 000025
ADJSP SP,-3 ; SP,-3 401560' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 401561' 202 00 0 17 000000 0758
PUSH SP,C.61 ; SP,[0,,P.ACA] 401562' 261 17 0 00 402733'
PUSH SP,C.5 ; SP,[0] 401563' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 401564' 260 17 0 00 000000*
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 41
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (9)
HRLM AC1,25(AC10) ; AC1,25(AC10) 401565' 506 01 0 10 000025
MOVEM AC0,0(SP) ; AC0,0(SP) 401566' 202 00 0 17 000000 0759
PUSH SP,C.62 ; SP,[0,,P.ACB] 401567' 261 17 0 00 402734'
PUSH SP,C.5 ; SP,[0] 401570' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 401571' 260 17 0 00 000000*
HRRM AC1,26(AC10) ; AC1,26(AC10) 401572' 542 01 0 10 000026
ADJSP SP,-3 ; SP,-3 401573' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 401574' 202 00 0 17 000000 0760
PUSH SP,C.63 ; SP,[0,,P.ACC] 401575' 261 17 0 00 402735'
PUSH SP,C.5 ; SP,[0] 401576' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 401577' 260 17 0 00 000000*
HRLM AC1,26(AC10) ; AC1,26(AC10) 401600' 506 01 0 10 000026
ADJSP SP,-3 ; SP,-3 401601' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 401602' 202 00 0 17 000000 0761
PUSH SP,C.64 ; SP,[0,,P.ACD] 401603' 261 17 0 00 402736'
PUSH SP,C.5 ; SP,[0] 401604' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 401605' 260 17 0 00 000000*
HRRM AC1,27(AC10) ; AC1,27(AC10) 401606' 542 01 0 10 000027
MOVEM AC0,0(SP) ; AC0,0(SP) 401607' 202 00 0 17 000000 0762
PUSH SP,C.65 ; SP,[0,,P.ACE] 401610' 261 17 0 00 402737'
PUSH SP,C.5 ; SP,[0] 401611' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 401612' 260 17 0 00 000000*
HRLM AC1,27(AC10) ; AC1,27(AC10) 401613' 506 01 0 10 000027
ADJSP SP,-3 ; SP,-3 401614' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 401615' 202 00 0 17 000000 0763
PUSH SP,C.66 ; SP,[0,,P.ACF] 401616' 261 17 0 00 402740'
PUSH SP,C.5 ; SP,[0] 401617' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 401620' 260 17 0 00 000000*
HRRM AC1,30(AC10) ; AC1,30(AC10) 401621' 542 01 0 10 000030
ADJSP SP,-3 ; SP,-3 401622' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 401623' 202 00 0 17 000000 0764
PUSH SP,C.67 ; SP,[0,,P.ACG] 401624' 261 17 0 00 402741'
PUSH SP,C.5 ; SP,[0] 401625' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 401626' 260 17 0 00 000000*
HRRM AC1,31(AC10) ; AC1,31(AC10) 401627' 542 01 0 10 000031
MOVEM AC0,0(SP) ; AC0,0(SP) 401630' 202 00 0 17 000000 0765
PUSH SP,C.68 ; SP,[0,,P.ACH] 401631' 261 17 0 00 402742'
PUSH SP,C.5 ; SP,[0] 401632' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 401633' 260 17 0 00 000000*
HRRM AC1,31(AC10) ; AC1,31(AC10) 401634' 542 01 0 10 000031
ADJSP SP,-3 ; SP,-3 401635' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 401636' 202 00 0 17 000000 0766
PUSH SP,C.69 ; SP,[0,,P.ACI] 401637' 261 17 0 00 402743'
PUSH SP,C.5 ; SP,[0] 401640' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 401641' 260 17 0 00 000000*
HRLM AC1,31(AC10) ; AC1,31(AC10) 401642' 506 01 0 10 000031
ADJSP SP,-3 ; SP,-3 401643' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 401644' 202 00 0 17 000000 0767
PUSH SP,C.70 ; SP,[0,,P.ACJ] 401645' 261 17 0 00 402744'
PUSH SP,C.5 ; SP,[0] 401646' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 401647' 260 17 0 00 000000*
HRRM AC1,32(AC10) ; AC1,32(AC10) 401650' 542 01 0 10 000032
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 42
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (9)
MOVEM AC0,0(SP) ; AC0,0(SP) 401651' 202 00 0 17 000000 0768
PUSH SP,C.71 ; SP,[0,,P.ACK] 401652' 261 17 0 00 402745'
PUSH SP,C.5 ; SP,[0] 401653' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 401654' 260 17 0 00 000000*
HRLM AC1,32(AC10) ; AC1,32(AC10) 401655' 506 01 0 10 000032
ADJSP SP,-3 ; SP,-3 401656' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 401657' 202 00 0 17 000000 0769
PUSH SP,C.72 ; SP,[0,,P.ACL] 401660' 261 17 0 00 402746'
PUSH SP,C.5 ; SP,[0] 401661' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 401662' 260 17 0 00 000000*
HRRM AC1,33(AC10) ; AC1,33(AC10) 401663' 542 01 0 10 000033
ADJSP SP,-3 ; SP,-3 401664' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 401665' 202 00 0 17 000000 0770
PUSH SP,C.73 ; SP,[0,,P.ACM] 401666' 261 17 0 00 402747'
PUSH SP,C.5 ; SP,[0] 401667' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 401670' 260 17 0 00 000000*
HRLM AC1,33(AC10) ; AC1,33(AC10) 401671' 506 01 0 10 000033
MOVEM AC0,0(SP) ; AC0,0(SP) 401672' 202 00 0 17 000000 0771
PUSH SP,C.74 ; SP,[0,,P.ACN] 401673' 261 17 0 00 402750'
PUSH SP,C.5 ; SP,[0] 401674' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 401675' 260 17 0 00 000000*
HRRM AC1,34(AC10) ; AC1,34(AC10) 401676' 542 01 0 10 000034
ADJSP SP,-3 ; SP,-3 401677' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 401700' 202 00 0 17 000000 0772
PUSH SP,C.75 ; SP,[0,,P.ACO] 401701' 261 17 0 00 402751'
PUSH SP,C.5 ; SP,[0] 401702' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 401703' 260 17 0 00 000000*
HRLM AC1,34(AC10) ; AC1,34(AC10) 401704' 506 01 0 10 000034
ADJSP SP,-3 ; SP,-3 401705' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 401706' 202 00 0 17 000000 0773
PUSH SP,C.76 ; SP,[0,,P.ACP] 401707' 261 17 0 00 402752'
PUSH SP,C.5 ; SP,[0] 401710' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 401711' 260 17 0 00 000000*
HRRM AC1,35(AC10) ; AC1,35(AC10) 401712' 542 01 0 10 000035
MOVEM AC0,0(SP) ; AC0,0(SP) 401713' 202 00 0 17 000000 0774
PUSH SP,C.77 ; SP,[0,,P.ACQ] 401714' 261 17 0 00 402753'
PUSH SP,C.5 ; SP,[0] 401715' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 401716' 260 17 0 00 000000*
HRLM AC1,35(AC10) ; AC1,35(AC10) 401717' 506 01 0 10 000035
ADJSP SP,-3 ; SP,-3 401720' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 401721' 202 00 0 17 000000 0775
PUSH SP,C.78 ; SP,[0,,P.ACR] 401722' 261 17 0 00 402754'
PUSH SP,C.5 ; SP,[0] 401723' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 401724' 260 17 0 00 000000*
HRRM AC1,36(AC10) ; AC1,36(AC10) 401725' 542 01 0 10 000036
ADJSP SP,-3 ; SP,-3 401726' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 401727' 202 00 0 17 000000 0776
PUSH SP,C.79 ; SP,[0,,P.ACS] 401730' 261 17 0 00 402755'
PUSH SP,C.5 ; SP,[0] 401731' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 401732' 260 17 0 00 000000*
HRLM AC1,36(AC10) ; AC1,36(AC10) 401733' 506 01 0 10 000036
MOVEM AC0,0(SP) ; AC0,0(SP) 401734' 202 00 0 17 000000 0777
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 43
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (9)
PUSH SP,C.80 ; SP,[0,,P.ACT] 401735' 261 17 0 00 402756'
PUSH SP,C.5 ; SP,[0] 401736' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 401737' 260 17 0 00 000000*
HRRM AC1,37(AC10) ; AC1,37(AC10) 401740' 542 01 0 10 000037
ADJSP SP,-3 ; SP,-3 401741' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 401742' 202 00 0 17 000000 0778
PUSH SP,C.81 ; SP,[0,,P.ACU] 401743' 261 17 0 00 402757'
PUSH SP,C.5 ; SP,[0] 401744' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 401745' 260 17 0 00 000000*
HRLM AC1,37(AC10) ; AC1,37(AC10) 401746' 506 01 0 10 000037
ADJSP SP,-3 ; SP,-3 401747' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 401750' 202 00 0 17 000000 0779
PUSH SP,C.82 ; SP,[0,,P.ACV] 401751' 261 17 0 00 402760'
PUSH SP,C.5 ; SP,[0] 401752' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 401753' 260 17 0 00 000000*
HRRM AC1,40(AC10) ; AC1,40(AC10) 401754' 542 01 0 10 000040
MOVEM AC0,0(SP) ; AC0,0(SP) 401755' 202 00 0 17 000000 0780
PUSH SP,C.83 ; SP,[0,,P.ACW] 401756' 261 17 0 00 402761'
PUSH SP,C.5 ; SP,[0] 401757' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 401760' 260 17 0 00 000000*
HRLM AC1,40(AC10) ; AC1,40(AC10) 401761' 506 01 0 10 000040
ADJSP SP,-3 ; SP,-3 401762' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 401763' 202 00 0 17 000000 0781
PUSH SP,C.84 ; SP,[0,,P.ACX] 401764' 261 17 0 00 402762'
PUSH SP,C.5 ; SP,[0] 401765' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 401766' 260 17 0 00 000000*
HRRM AC1,41(AC10) ; AC1,41(AC10) 401767' 542 01 0 10 000041
ADJSP SP,-3 ; SP,-3 401770' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 401771' 202 00 0 17 000000 0782
PUSH SP,C.85 ; SP,[0,,P.ACY] 401772' 261 17 0 00 402763'
PUSH SP,C.5 ; SP,[0] 401773' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 401774' 260 17 0 00 000000*
HRLM AC1,41(AC10) ; AC1,41(AC10) 401775' 506 01 0 10 000041
MOVEM AC0,0(SP) ; AC0,0(SP) 401776' 202 00 0 17 000000 0783
PUSH SP,C.86 ; SP,[0,,P.ACZ] 401777' 261 17 0 00 402764'
PUSH SP,C.5 ; SP,[0] 402000' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402001' 260 17 0 00 000000*
HRRM AC1,42(AC10) ; AC1,42(AC10) 402002' 542 01 0 10 000042
ADJSP SP,-3 ; SP,-3 402003' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 402004' 202 00 0 17 000000 0784
PUSH SP,C.87 ; SP,[0,,P.ADA] 402005' 261 17 0 00 402765'
PUSH SP,C.5 ; SP,[0] 402006' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402007' 260 17 0 00 000000*
HRLM AC1,42(AC10) ; AC1,42(AC10) 402010' 506 01 0 10 000042
ADJSP SP,-3 ; SP,-3 402011' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 402012' 202 00 0 17 000000 0785
PUSH SP,C.88 ; SP,[0,,P.ADB] 402013' 261 17 0 00 402766'
PUSH SP,C.5 ; SP,[0] 402014' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402015' 260 17 0 00 000000*
HRRM AC1,43(AC10) ; AC1,43(AC10) 402016' 542 01 0 10 000043
MOVEM AC0,0(SP) ; AC0,0(SP) 402017' 202 00 0 17 000000 0786
PUSH SP,C.89 ; SP,[0,,P.ADC] 402020' 261 17 0 00 402767'
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 44
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (9)
PUSH SP,C.5 ; SP,[0] 402021' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402022' 260 17 0 00 000000*
HRLM AC1,43(AC10) ; AC1,43(AC10) 402023' 506 01 0 10 000043
ADJSP SP,-3 ; SP,-3 402024' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 402025' 202 00 0 17 000000 0787
PUSH SP,C.90 ; SP,[0,,P.ADD] 402026' 261 17 0 00 402770'
PUSH SP,C.5 ; SP,[0] 402027' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402030' 260 17 0 00 000000*
HRRM AC1,44(AC10) ; AC1,44(AC10) 402031' 542 01 0 10 000044
ADJSP SP,-3 ; SP,-3 402032' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 402033' 202 00 0 17 000000 0788
PUSH SP,C.91 ; SP,[0,,P.ADE] 402034' 261 17 0 00 402771'
PUSH SP,C.5 ; SP,[0] 402035' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402036' 260 17 0 00 000000*
HRLM AC1,44(AC10) ; AC1,44(AC10) 402037' 506 01 0 10 000044
MOVEM AC0,0(SP) ; AC0,0(SP) 402040' 202 00 0 17 000000 0789
PUSH SP,C.92 ; SP,[0,,P.ADF] 402041' 261 17 0 00 402772'
PUSH SP,C.5 ; SP,[0] 402042' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402043' 260 17 0 00 000000*
HRRM AC1,45(AC10) ; AC1,45(AC10) 402044' 542 01 0 10 000045
ADJSP SP,-3 ; SP,-3 402045' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 402046' 202 00 0 17 000000 0790
PUSH SP,C.93 ; SP,[0,,P.ADG] 402047' 261 17 0 00 402773'
PUSH SP,C.5 ; SP,[0] 402050' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402051' 260 17 0 00 000000*
HRLM AC1,45(AC10) ; AC1,45(AC10) 402052' 506 01 0 10 000045
ADJSP SP,-3 ; SP,-3 402053' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 402054' 202 00 0 17 000000 0791
PUSH SP,C.94 ; SP,[0,,P.ADH] 402055' 261 17 0 00 402774'
PUSH SP,C.5 ; SP,[0] 402056' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402057' 260 17 0 00 000000*
HRRM AC1,46(AC10) ; AC1,46(AC10) 402060' 542 01 0 10 000046
MOVEM AC0,0(SP) ; AC0,0(SP) 402061' 202 00 0 17 000000 0792
PUSH SP,C.95 ; SP,[0,,P.ADI] 402062' 261 17 0 00 402775'
PUSH SP,C.5 ; SP,[0] 402063' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402064' 260 17 0 00 000000*
HRLM AC1,46(AC10) ; AC1,46(AC10) 402065' 506 01 0 10 000046
ADJSP SP,-3 ; SP,-3 402066' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 402067' 202 00 0 17 000000 0793
PUSH SP,C.96 ; SP,[0,,P.ADJ] 402070' 261 17 0 00 402776'
PUSH SP,C.5 ; SP,[0] 402071' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402072' 260 17 0 00 000000*
HRRM AC1,47(AC10) ; AC1,47(AC10) 402073' 542 01 0 10 000047
ADJSP SP,-3 ; SP,-3 402074' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 402075' 202 00 0 17 000000 0794
PUSH SP,C.97 ; SP,[0,,P.ADK] 402076' 261 17 0 00 402777'
PUSH SP,C.5 ; SP,[0] 402077' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402100' 260 17 0 00 000000*
HRLM AC1,47(AC10) ; AC1,47(AC10) 402101' 506 01 0 10 000047
MOVEM AC0,0(SP) ; AC0,0(SP) 402102' 202 00 0 17 000000 0795
PUSH SP,C.98 ; SP,[0,,P.ADL] 402103' 261 17 0 00 403000'
PUSH SP,C.5 ; SP,[0] 402104' 261 17 0 00 400166'
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 45
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (9)
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402105' 260 17 0 00 000000*
HRRM AC1,50(AC10) ; AC1,50(AC10) 402106' 542 01 0 10 000050
ADJSP SP,-3 ; SP,-3 402107' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 402110' 202 00 0 17 000000 0796
PUSH SP,C.99 ; SP,[0,,P.ADM] 402111' 261 17 0 00 403001'
PUSH SP,C.5 ; SP,[0] 402112' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402113' 260 17 0 00 000000*
HRLM AC1,50(AC10) ; AC1,50(AC10) 402114' 506 01 0 10 000050
ADJSP SP,-3 ; SP,-3 402115' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 402116' 202 00 0 17 000000 0797
PUSH SP,C.100 ; SP,[0,,P.ADN] 402117' 261 17 0 00 403002'
PUSH SP,C.5 ; SP,[0] 402120' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402121' 260 17 0 00 000000*
HRRM AC1,51(AC10) ; AC1,51(AC10) 402122' 542 01 0 10 000051
MOVEM AC0,0(SP) ; AC0,0(SP) 402123' 202 00 0 17 000000 0798
PUSH SP,C.101 ; SP,[0,,P.ADO] 402124' 261 17 0 00 403003'
PUSH SP,C.5 ; SP,[0] 402125' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402126' 260 17 0 00 000000*
HRLM AC1,51(AC10) ; AC1,51(AC10) 402127' 506 01 0 10 000051
ADJSP SP,-3 ; SP,-3 402130' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 402131' 202 00 0 17 000000 0799
PUSH SP,C.102 ; SP,[0,,P.ADP] 402132' 261 17 0 00 403004'
PUSH SP,C.5 ; SP,[0] 402133' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402134' 260 17 0 00 000000*
HRRM AC1,52(AC10) ; AC1,52(AC10) 402135' 542 01 0 10 000052
ADJSP SP,-3 ; SP,-3 402136' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 402137' 202 00 0 17 000000 0800
PUSH SP,C.103 ; SP,[0,,P.ADQ] 402140' 261 17 0 00 403005'
PUSH SP,C.5 ; SP,[0] 402141' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402142' 260 17 0 00 000000*
HRLM AC1,52(AC10) ; AC1,52(AC10) 402143' 506 01 0 10 000052
MOVEM AC0,0(SP) ; AC0,0(SP) 402144' 202 00 0 17 000000 0801
PUSH SP,C.104 ; SP,[0,,P.ADR] 402145' 261 17 0 00 403006'
PUSH SP,C.5 ; SP,[0] 402146' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402147' 260 17 0 00 000000*
HRRM AC1,53(AC10) ; AC1,53(AC10) 402150' 542 01 0 10 000053
ADJSP SP,-3 ; SP,-3 402151' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 402152' 202 00 0 17 000000 0802
PUSH SP,C.105 ; SP,[0,,P.ADS] 402153' 261 17 0 00 403007'
PUSH SP,C.5 ; SP,[0] 402154' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402155' 260 17 0 00 000000*
HRLM AC1,53(AC10) ; AC1,53(AC10) 402156' 506 01 0 10 000053
ADJSP SP,-3 ; SP,-3 402157' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 402160' 202 00 0 17 000000 0803
PUSH SP,C.106 ; SP,[0,,P.ADT] 402161' 261 17 0 00 403010'
PUSH SP,C.5 ; SP,[0] 402162' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402163' 260 17 0 00 000000*
HRRM AC1,54(AC10) ; AC1,54(AC10) 402164' 542 01 0 10 000054
MOVEM AC0,0(SP) ; AC0,0(SP) 402165' 202 00 0 17 000000 0804
PUSH SP,C.107 ; SP,[0,,P.ADU] 402166' 261 17 0 00 403011'
PUSH SP,C.5 ; SP,[0] 402167' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402170' 260 17 0 00 000000*
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 46
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (9)
HRLM AC1,54(AC10) ; AC1,54(AC10) 402171' 506 01 0 10 000054
ADJSP SP,-3 ; SP,-3 402172' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 402173' 202 00 0 17 000000 0805
PUSH SP,C.108 ; SP,[0,,P.ADV] 402174' 261 17 0 00 403012'
PUSH SP,C.5 ; SP,[0] 402175' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402176' 260 17 0 00 000000*
HRRM AC1,55(AC10) ; AC1,55(AC10) 402177' 542 01 0 10 000055
ADJSP SP,-3 ; SP,-3 402200' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 402201' 202 00 0 17 000000 0806
PUSH SP,C.109 ; SP,[0,,P.ADW] 402202' 261 17 0 00 403013'
PUSH SP,C.5 ; SP,[0] 402203' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402204' 260 17 0 00 000000*
HRLM AC1,55(AC10) ; AC1,55(AC10) 402205' 506 01 0 10 000055
MOVEM AC0,0(SP) ; AC0,0(SP) 402206' 202 00 0 17 000000 0807
PUSH SP,C.110 ; SP,[0,,P.ADX] 402207' 261 17 0 00 403014'
PUSH SP,C.5 ; SP,[0] 402210' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402211' 260 17 0 00 000000*
HRRM AC1,56(AC10) ; AC1,56(AC10) 402212' 542 01 0 10 000056
ADJSP SP,-3 ; SP,-3 402213' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 402214' 202 00 0 17 000000 0808
PUSH SP,C.111 ; SP,[0,,P.ADY] 402215' 261 17 0 00 403015'
PUSH SP,C.5 ; SP,[0] 402216' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402217' 260 17 0 00 000000*
HRLM AC1,56(AC10) ; AC1,56(AC10) 402220' 506 01 0 10 000056
ADJSP SP,-3 ; SP,-3 402221' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 402222' 202 00 0 17 000000 0809
PUSH SP,C.112 ; SP,[0,,P.ADZ] 402223' 261 17 0 00 403016'
PUSH SP,C.5 ; SP,[0] 402224' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402225' 260 17 0 00 000000*
HRRM AC1,57(AC10) ; AC1,57(AC10) 402226' 542 01 0 10 000057
MOVEM AC0,0(SP) ; AC0,0(SP) 402227' 202 00 0 17 000000 0810
PUSH SP,C.113 ; SP,[0,,P.AEA] 402230' 261 17 0 00 403017'
PUSH SP,C.5 ; SP,[0] 402231' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402232' 260 17 0 00 000000*
HRLM AC1,57(AC10) ; AC1,57(AC10) 402233' 506 01 0 10 000057
ADJSP SP,-3 ; SP,-3 402234' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 402235' 202 00 0 17 000000 0811
PUSH SP,C.114 ; SP,[0,,P.AEB] 402236' 261 17 0 00 403020'
PUSH SP,C.5 ; SP,[0] 402237' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402240' 260 17 0 00 000000*
HRRM AC1,60(AC10) ; AC1,60(AC10) 402241' 542 01 0 10 000060
ADJSP SP,-3 ; SP,-3 402242' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 402243' 202 00 0 17 000000 0812
PUSH SP,C.115 ; SP,[0,,P.AEC] 402244' 261 17 0 00 403021'
PUSH SP,C.5 ; SP,[0] 402245' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402246' 260 17 0 00 000000*
HRLM AC1,60(AC10) ; AC1,60(AC10) 402247' 506 01 0 10 000060
MOVEM AC0,0(SP) ; AC0,0(SP) 402250' 202 00 0 17 000000 0813
PUSH SP,C.116 ; SP,[0,,P.AED] 402251' 261 17 0 00 403022'
PUSH SP,C.5 ; SP,[0] 402252' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402253' 260 17 0 00 000000*
HRRM AC1,61(AC10) ; AC1,61(AC10) 402254' 542 01 0 10 000061
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 47
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (9)
ADJSP SP,-3 ; SP,-3 402255' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 402256' 202 00 0 17 000000 0814
PUSH SP,C.117 ; SP,[0,,P.AEE] 402257' 261 17 0 00 403023'
PUSH SP,C.5 ; SP,[0] 402260' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402261' 260 17 0 00 000000*
HRLM AC1,61(AC10) ; AC1,61(AC10) 402262' 506 01 0 10 000061
ADJSP SP,-3 ; SP,-3 402263' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 402264' 202 00 0 17 000000 0815
PUSH SP,C.118 ; SP,[0,,P.AEF] 402265' 261 17 0 00 403024'
PUSH SP,C.5 ; SP,[0] 402266' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402267' 260 17 0 00 000000*
HRRM AC1,62(AC10) ; AC1,62(AC10) 402270' 542 01 0 10 000062
MOVEM AC0,0(SP) ; AC0,0(SP) 402271' 202 00 0 17 000000 0816
PUSH SP,C.119 ; SP,[0,,P.AEG] 402272' 261 17 0 00 403025'
PUSH SP,C.5 ; SP,[0] 402273' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402274' 260 17 0 00 000000*
HRLM AC1,62(AC10) ; AC1,62(AC10) 402275' 506 01 0 10 000062
ADJSP SP,-3 ; SP,-3 402276' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 402277' 202 00 0 17 000000 0817
PUSH SP,C.120 ; SP,[0,,P.AEH] 402300' 261 17 0 00 403026'
PUSH SP,C.5 ; SP,[0] 402301' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402302' 260 17 0 00 000000*
HRRM AC1,63(AC10) ; AC1,63(AC10) 402303' 542 01 0 10 000063
ADJSP SP,-3 ; SP,-3 402304' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 402305' 202 00 0 17 000000 0818
PUSH SP,C.121 ; SP,[0,,P.AEI] 402306' 261 17 0 00 403027'
PUSH SP,C.5 ; SP,[0] 402307' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402310' 260 17 0 00 000000*
HRLM AC1,63(AC10) ; AC1,63(AC10) 402311' 506 01 0 10 000063
MOVEM AC0,0(SP) ; AC0,0(SP) 402312' 202 00 0 17 000000 0819
PUSH SP,C.122 ; SP,[0,,P.AEJ] 402313' 261 17 0 00 403030'
PUSH SP,C.5 ; SP,[0] 402314' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402315' 260 17 0 00 000000*
HRRM AC1,64(AC10) ; AC1,64(AC10) 402316' 542 01 0 10 000064
ADJSP SP,-3 ; SP,-3 402317' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 402320' 202 00 0 17 000000 0820
PUSH SP,C.123 ; SP,[0,,P.AEK] 402321' 261 17 0 00 403031'
PUSH SP,C.5 ; SP,[0] 402322' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402323' 260 17 0 00 000000*
HRLM AC1,64(AC10) ; AC1,64(AC10) 402324' 506 01 0 10 000064
ADJSP SP,-3 ; SP,-3 402325' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 402326' 202 00 0 17 000000 0821
PUSH SP,C.124 ; SP,[0,,P.AEL] 402327' 261 17 0 00 403032'
PUSH SP,C.5 ; SP,[0] 402330' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402331' 260 17 0 00 000000*
HRRM AC1,65(AC10) ; AC1,65(AC10) 402332' 542 01 0 10 000065
MOVEM AC0,0(SP) ; AC0,0(SP) 402333' 202 00 0 17 000000 0822
PUSH SP,C.125 ; SP,[0,,P.AEM] 402334' 261 17 0 00 403033'
PUSH SP,C.5 ; SP,[0] 402335' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402336' 260 17 0 00 000000*
HRLM AC1,65(AC10) ; AC1,65(AC10) 402337' 506 01 0 10 000065
ADJSP SP,-3 ; SP,-3 402340' 105 17 0 00 777775
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 48
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (9)
MOVEM AC0,0(SP) ; AC0,0(SP) 402341' 202 00 0 17 000000 0823
PUSH SP,C.126 ; SP,[0,,P.AEN] 402342' 261 17 0 00 403034'
PUSH SP,C.5 ; SP,[0] 402343' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402344' 260 17 0 00 000000*
HRRM AC1,66(AC10) ; AC1,66(AC10) 402345' 542 01 0 10 000066
ADJSP SP,-3 ; SP,-3 402346' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 402347' 202 00 0 17 000000 0824
PUSH SP,C.127 ; SP,[0,,P.AEO] 402350' 261 17 0 00 403035'
PUSH SP,C.5 ; SP,[0] 402351' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402352' 260 17 0 00 000000*
HRLM AC1,66(AC10) ; AC1,66(AC10) 402353' 506 01 0 10 000066
MOVEM AC0,0(SP) ; AC0,0(SP) 402354' 202 00 0 17 000000 0825
PUSH SP,C.128 ; SP,[0,,P.AEP] 402355' 261 17 0 00 403036'
PUSH SP,C.5 ; SP,[0] 402356' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402357' 260 17 0 00 000000*
HRRM AC1,67(AC10) ; AC1,67(AC10) 402360' 542 01 0 10 000067
ADJSP SP,-3 ; SP,-3 402361' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 402362' 202 00 0 17 000000 0826
PUSH SP,C.129 ; SP,[0,,P.AEQ] 402363' 261 17 0 00 403037'
PUSH SP,C.5 ; SP,[0] 402364' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402365' 260 17 0 00 000000*
HRLM AC1,67(AC10) ; AC1,67(AC10) 402366' 506 01 0 10 000067
ADJSP SP,-3 ; SP,-3 402367' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 402370' 202 00 0 17 000000 0827
PUSH SP,C.130 ; SP,[0,,P.AER] 402371' 261 17 0 00 403040'
PUSH SP,C.5 ; SP,[0] 402372' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402373' 260 17 0 00 000000*
HRRM AC1,70(AC10) ; AC1,70(AC10) 402374' 542 01 0 10 000070
MOVEM AC0,0(SP) ; AC0,0(SP) 402375' 202 00 0 17 000000 0828
PUSH SP,C.131 ; SP,[0,,P.AES] 402376' 261 17 0 00 403041'
PUSH SP,C.5 ; SP,[0] 402377' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402400' 260 17 0 00 000000*
HRLM AC1,70(AC10) ; AC1,70(AC10) 402401' 506 01 0 10 000070
ADJSP SP,-3 ; SP,-3 402402' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 402403' 202 00 0 17 000000 0829
PUSH SP,C.132 ; SP,[0,,P.AET] 402404' 261 17 0 00 403042'
PUSH SP,C.5 ; SP,[0] 402405' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402406' 260 17 0 00 000000*
HRRM AC1,71(AC10) ; AC1,71(AC10) 402407' 542 01 0 10 000071
ADJSP SP,-3 ; SP,-3 402410' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 402411' 202 00 0 17 000000 0830
PUSH SP,C.133 ; SP,[0,,P.AEU] 402412' 261 17 0 00 403043'
PUSH SP,C.5 ; SP,[0] 402413' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402414' 260 17 0 00 000000*
HRLM AC1,71(AC10) ; AC1,71(AC10) 402415' 506 01 0 10 000071
MOVEM AC0,0(SP) ; AC0,0(SP) 402416' 202 00 0 17 000000 0831
PUSH SP,C.134 ; SP,[0,,P.AEV] 402417' 261 17 0 00 403044'
PUSH SP,C.5 ; SP,[0] 402420' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402421' 260 17 0 00 000000*
HRRM AC1,72(AC10) ; AC1,72(AC10) 402422' 542 01 0 10 000072
ADJSP SP,-3 ; SP,-3 402423' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 402424' 202 00 0 17 000000 0832
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 49
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (9)
PUSH SP,C.135 ; SP,[0,,P.AEW] 402425' 261 17 0 00 403045'
PUSH SP,C.5 ; SP,[0] 402426' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402427' 260 17 0 00 000000*
HRLM AC1,72(AC10) ; AC1,72(AC10) 402430' 506 01 0 10 000072
ADJSP SP,-3 ; SP,-3 402431' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 402432' 202 00 0 17 000000 0833
PUSH SP,C.136 ; SP,[0,,P.AEX] 402433' 261 17 0 00 403046'
PUSH SP,C.5 ; SP,[0] 402434' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402435' 260 17 0 00 000000*
HRRM AC1,73(AC10) ; AC1,73(AC10) 402436' 542 01 0 10 000073
MOVEM AC0,0(SP) ; AC0,0(SP) 402437' 202 00 0 17 000000 0834
PUSH SP,C.137 ; SP,[0,,P.AEY] 402440' 261 17 0 00 403047'
PUSH SP,C.5 ; SP,[0] 402441' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402442' 260 17 0 00 000000*
HRLM AC1,73(AC10) ; AC1,73(AC10) 402443' 506 01 0 10 000073
ADJSP SP,-3 ; SP,-3 402444' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 402445' 202 00 0 17 000000 0835
PUSH SP,C.138 ; SP,[0,,P.AEZ] 402446' 261 17 0 00 403050'
PUSH SP,C.5 ; SP,[0] 402447' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402450' 260 17 0 00 000000*
HRRM AC1,74(AC10) ; AC1,74(AC10) 402451' 542 01 0 10 000074
ADJSP SP,-3 ; SP,-3 402452' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 402453' 202 00 0 17 000000 0836
PUSH SP,C.139 ; SP,[0,,P.AFA] 402454' 261 17 0 00 403051'
PUSH SP,C.5 ; SP,[0] 402455' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402456' 260 17 0 00 000000*
HRLM AC1,74(AC10) ; AC1,74(AC10) 402457' 506 01 0 10 000074
MOVEM AC0,0(SP) ; AC0,0(SP) 402460' 202 00 0 17 000000 0837
PUSH SP,C.140 ; SP,[0,,P.AFB] 402461' 261 17 0 00 403052'
PUSH SP,C.5 ; SP,[0] 402462' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402463' 260 17 0 00 000000*
HRRM AC1,75(AC10) ; AC1,75(AC10) 402464' 542 01 0 10 000075
ADJSP SP,-3 ; SP,-3 402465' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 402466' 202 00 0 17 000000 0838
PUSH SP,C.141 ; SP,[0,,P.AFC] 402467' 261 17 0 00 403053'
PUSH SP,C.5 ; SP,[0] 402470' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402471' 260 17 0 00 000000*
HRLM AC1,75(AC10) ; AC1,75(AC10) 402472' 506 01 0 10 000075
ADJSP SP,-3 ; SP,-3 402473' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 402474' 202 00 0 17 000000 0839
PUSH SP,C.142 ; SP,[0,,P.AFD] 402475' 261 17 0 00 403054'
PUSH SP,C.5 ; SP,[0] 402476' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402477' 260 17 0 00 000000*
HRRM AC1,76(AC10) ; AC1,76(AC10) 402500' 542 01 0 10 000076
MOVEM AC0,0(SP) ; AC0,0(SP) 402501' 202 00 0 17 000000 0840
PUSH SP,C.143 ; SP,[0,,P.AFE] 402502' 261 17 0 00 403055'
PUSH SP,C.5 ; SP,[0] 402503' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402504' 260 17 0 00 000000*
HRLM AC1,76(AC10) ; AC1,76(AC10) 402505' 506 01 0 10 000076
ADJSP SP,-3 ; SP,-3 402506' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 402507' 202 00 0 17 000000 0841
PUSH SP,C.144 ; SP,[0,,P.AFF] 402510' 261 17 0 00 403056'
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 50
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (9)
PUSH SP,C.5 ; SP,[0] 402511' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402512' 260 17 0 00 000000*
HRRM AC1,77(AC10) ; AC1,77(AC10) 402513' 542 01 0 10 000077
ADJSP SP,-3 ; SP,-3 402514' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 402515' 202 00 0 17 000000 0842
PUSH SP,C.145 ; SP,[0,,P.AFG] 402516' 261 17 0 00 403057'
PUSH SP,C.5 ; SP,[0] 402517' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402520' 260 17 0 00 000000*
HRLM AC1,77(AC10) ; AC1,77(AC10) 402521' 506 01 0 10 000077
MOVEM AC0,0(SP) ; AC0,0(SP) 402522' 202 00 0 17 000000 0843
PUSH SP,C.146 ; SP,[0,,P.AFH] 402523' 261 17 0 00 403060'
PUSH SP,C.5 ; SP,[0] 402524' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402525' 260 17 0 00 000000*
HRRM AC1,100(AC10) ; AC1,100(AC10) 402526' 542 01 0 10 000100
ADJSP SP,-3 ; SP,-3 402527' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 402530' 202 00 0 17 000000 0844
PUSH SP,C.147 ; SP,[0,,P.AFI] 402531' 261 17 0 00 403061'
PUSH SP,C.5 ; SP,[0] 402532' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402533' 260 17 0 00 000000*
HRLM AC1,100(AC10) ; AC1,100(AC10) 402534' 506 01 0 10 000100
ADJSP SP,-3 ; SP,-3 402535' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 402536' 202 00 0 17 000000 0845
PUSH SP,C.148 ; SP,[0,,P.AFJ] 402537' 261 17 0 00 403062'
PUSH SP,C.5 ; SP,[0] 402540' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402541' 260 17 0 00 000000*
HRRM AC1,101(AC10) ; AC1,101(AC10) 402542' 542 01 0 10 000101
MOVEM AC0,0(SP) ; AC0,0(SP) 402543' 202 00 0 17 000000 0846
PUSH SP,C.149 ; SP,[0,,P.AFK] 402544' 261 17 0 00 403063'
PUSH SP,C.5 ; SP,[0] 402545' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402546' 260 17 0 00 000000*
HRLM AC1,101(AC10) ; AC1,101(AC10) 402547' 506 01 0 10 000101
ADJSP SP,-3 ; SP,-3 402550' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 402551' 202 00 0 17 000000 0847
PUSH SP,C.150 ; SP,[0,,P.AFL] 402552' 261 17 0 00 403064'
PUSH SP,C.5 ; SP,[0] 402553' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402554' 260 17 0 00 000000*
HRRM AC1,102(AC10) ; AC1,102(AC10) 402555' 542 01 0 10 000102
ADJSP SP,-3 ; SP,-3 402556' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 402557' 202 00 0 17 000000 0848
PUSH SP,C.151 ; SP,[0,,P.AFM] 402560' 261 17 0 00 403065'
PUSH SP,C.5 ; SP,[0] 402561' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402562' 260 17 0 00 000000*
HRLM AC1,102(AC10) ; AC1,102(AC10) 402563' 506 01 0 10 000102
MOVEM AC0,0(SP) ; AC0,0(SP) 402564' 202 00 0 17 000000 0849
PUSH SP,C.152 ; SP,[0,,P.AFN] 402565' 261 17 0 00 403066'
PUSH SP,C.5 ; SP,[0] 402566' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402567' 260 17 0 00 000000*
HRRM AC1,103(AC10) ; AC1,103(AC10) 402570' 542 01 0 10 000103
ADJSP SP,-3 ; SP,-3 402571' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 402572' 202 00 0 17 000000 0850
PUSH SP,C.153 ; SP,[0,,P.AFO] 402573' 261 17 0 00 403067'
PUSH SP,C.5 ; SP,[0] 402574' 261 17 0 00 400166'
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 51
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (9)
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402575' 260 17 0 00 000000*
HRLM AC1,103(AC10) ; AC1,103(AC10) 402576' 506 01 0 10 000103
ADJSP SP,-3 ; SP,-3 402577' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 402600' 202 00 0 17 000000 0851
PUSH SP,C.154 ; SP,[0,,P.AFP] 402601' 261 17 0 00 403070'
PUSH SP,C.5 ; SP,[0] 402602' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402603' 260 17 0 00 000000*
HRRM AC1,104(AC10) ; AC1,104(AC10) 402604' 542 01 0 10 000104
MOVEM AC0,0(SP) ; AC0,0(SP) 402605' 202 00 0 17 000000 0852
PUSH SP,C.155 ; SP,[0,,P.AFQ] 402606' 261 17 0 00 403071'
PUSH SP,C.5 ; SP,[0] 402607' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402610' 260 17 0 00 000000*
HRLM AC1,104(AC10) ; AC1,104(AC10) 402611' 506 01 0 10 000104
ADJSP SP,-3 ; SP,-3 402612' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 402613' 202 00 0 17 000000 0853
PUSH SP,C.156 ; SP,[0,,P.AFR] 402614' 261 17 0 00 403072'
PUSH SP,C.5 ; SP,[0] 402615' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402616' 260 17 0 00 000000*
HRRM AC1,105(AC10) ; AC1,105(AC10) 402617' 542 01 0 10 000105
ADJSP SP,-3 ; SP,-3 402620' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 402621' 202 00 0 17 000000 0854
PUSH SP,C.157 ; SP,[0,,P.AFS] 402622' 261 17 0 00 403073'
PUSH SP,C.5 ; SP,[0] 402623' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402624' 260 17 0 00 000000*
HRLM AC1,105(AC10) ; AC1,105(AC10) 402625' 506 01 0 10 000105
MOVEM AC0,0(SP) ; AC0,0(SP) 402626' 202 00 0 17 000000 0855
PUSH SP,C.158 ; SP,[0,,P.AFT] 402627' 261 17 0 00 403074'
PUSH SP,C.5 ; SP,[0] 402630' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402631' 260 17 0 00 000000*
HRRM AC1,106(AC10) ; AC1,106(AC10) 402632' 542 01 0 10 000106
ADJSP SP,-3 ; SP,-3 402633' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 402634' 202 00 0 17 000000 0856
PUSH SP,C.159 ; SP,[0,,P.AFU] 402635' 261 17 0 00 403075'
PUSH SP,C.5 ; SP,[0] 402636' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402637' 260 17 0 00 000000*
HRLM AC1,106(AC10) ; AC1,106(AC10) 402640' 506 01 0 10 000106
ADJSP SP,-3 ; SP,-3 402641' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 402642' 202 00 0 17 000000 0857
PUSH SP,C.160 ; SP,[0,,P.AFV] 402643' 261 17 0 00 403076'
PUSH SP,C.5 ; SP,[0] 402644' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402645' 260 17 0 00 000000*
HRRM AC1,107(AC10) ; AC1,107(AC10) 402646' 542 01 0 10 000107
MOVEM AC0,0(SP) ; AC0,0(SP) 402647' 202 00 0 17 000000 0858
PUSH SP,C.161 ; SP,[0,,P.AFW] 402650' 261 17 0 00 403077'
PUSH SP,C.5 ; SP,[0] 402651' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402652' 260 17 0 00 000000*
HRLM AC1,107(AC10) ; AC1,107(AC10) 402653' 506 01 0 10 000107
ADJSP SP,-3 ; SP,-3 402654' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 402655' 202 00 0 17 000000 0859
PUSH SP,C.162 ; SP,[0,,P.AFX] 402656' 261 17 0 00 403100'
PUSH SP,C.5 ; SP,[0] 402657' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402660' 260 17 0 00 000000*
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 52
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (9)
HRRM AC1,110(AC10) ; AC1,110(AC10) 402661' 542 01 0 10 000110
ADJSP SP,-3 ; SP,-3 402662' 105 17 0 00 777775
MOVEM AC0,0(SP) ; AC0,0(SP) 402663' 202 00 0 17 000000 0860
PUSH SP,C.163 ; SP,[0,,P.AFY] 402664' 261 17 0 00 403101'
PUSH SP,C.5 ; SP,[0] 402665' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 402666' 260 17 0 00 000000*
HRLM AC1,110(AC10) ; AC1,110(AC10) 402667' 506 01 0 10 000110
ADJSP SP,-60 ; SP,-60 402670' 105 17 0 00 777720 0717
POP SP,AC10 ; SP,AC10 402671' 262 17 0 00 000010 0686
POP SP,AC0 ; SP,AC0 402672' 262 17 0 00 000000
POPJ SP, ; SP, 402673' 263 17 0 00 000000
C.30: XWD 0,P.AAV ; 0,P.AAV 402674' 000000 400677'
C.31: XWD 0,P.AAW ; 0,P.AAW 402675' 000000 400701'
C.32: XWD 0,P.AAX ; 0,P.AAX 402676' 000000 400703'
C.33: XWD 0,P.AAY ; 0,P.AAY 402677' 000000 400705'
C.34: XWD 0,P.AAZ ; 0,P.AAZ 402700' 000000 400707'
C.35: XWD 0,P.ABA ; 0,P.ABA 402701' 000000 400711'
C.36: XWD 0,P.ABB ; 0,P.ABB 402702' 000000 400713'
C.37: XWD 0,P.ABC ; 0,P.ABC 402703' 000000 400715'
C.38: XWD 0,P.ABD ; 0,P.ABD 402704' 000000 400717'
C.39: XWD 0,P.ABE ; 0,P.ABE 402705' 000000 400721'
C.40: XWD 0,P.ABF ; 0,P.ABF 402706' 000000 400723'
C.41: XWD 0,P.ABG ; 0,P.ABG 402707' 000000 400725'
C.42: XWD 0,P.ABH ; 0,P.ABH 402710' 000000 400727'
C.43: XWD 0,P.ABI ; 0,P.ABI 402711' 000000 400731'
C.44: XWD 0,P.ABJ ; 0,P.ABJ 402712' 000000 400733'
C.45: XWD 0,P.ABK ; 0,P.ABK 402713' 000000 400735'
C.46: XWD 0,P.ABL ; 0,P.ABL 402714' 000000 400737'
C.47: XWD 0,P.ABM ; 0,P.ABM 402715' 000000 400741'
C.48: XWD 0,P.ABN ; 0,P.ABN 402716' 000000 400743'
C.49: XWD 0,P.ABO ; 0,P.ABO 402717' 000000 400745'
C.50: XWD 0,P.ABP ; 0,P.ABP 402720' 000000 400747'
C.51: XWD 0,P.ABQ ; 0,P.ABQ 402721' 000000 400751'
C.52: XWD 0,P.ABR ; 0,P.ABR 402722' 000000 400753'
C.53: XWD 0,P.ABS ; 0,P.ABS 402723' 000000 400755'
C.54: XWD 0,P.ABT ; 0,P.ABT 402724' 000000 400757'
C.55: XWD 0,P.ABU ; 0,P.ABU 402725' 000000 400761'
C.56: XWD 0,P.ABV ; 0,P.ABV 402726' 000000 400763'
C.57: XWD 0,P.ABW ; 0,P.ABW 402727' 000000 400765'
C.58: XWD 0,P.ABX ; 0,P.ABX 402730' 000000 400767'
C.59: XWD 0,P.ABY ; 0,P.ABY 402731' 000000 400771'
C.60: XWD 0,P.ABZ ; 0,P.ABZ 402732' 000000 400773'
C.61: XWD 0,P.ACA ; 0,P.ACA 402733' 000000 400775'
C.62: XWD 0,P.ACB ; 0,P.ACB 402734' 000000 400777'
C.63: XWD 0,P.ACC ; 0,P.ACC 402735' 000000 401001'
C.64: XWD 0,P.ACD ; 0,P.ACD 402736' 000000 401003'
C.65: XWD 0,P.ACE ; 0,P.ACE 402737' 000000 401005'
C.66: XWD 0,P.ACF ; 0,P.ACF 402740' 000000 401007'
C.67: XWD 0,P.ACG ; 0,P.ACG 402741' 000000 401011'
C.68: XWD 0,P.ACH ; 0,P.ACH 402742' 000000 401013'
C.69: XWD 0,P.ACI ; 0,P.ACI 402743' 000000 401015'
C.70: XWD 0,P.ACJ ; 0,P.ACJ 402744' 000000 401017'
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 53
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (9)
C.71: XWD 0,P.ACK ; 0,P.ACK 402745' 000000 401021'
C.72: XWD 0,P.ACL ; 0,P.ACL 402746' 000000 401023'
C.73: XWD 0,P.ACM ; 0,P.ACM 402747' 000000 401025'
C.74: XWD 0,P.ACN ; 0,P.ACN 402750' 000000 401027'
C.75: XWD 0,P.ACO ; 0,P.ACO 402751' 000000 401031'
C.76: XWD 0,P.ACP ; 0,P.ACP 402752' 000000 401033'
C.77: XWD 0,P.ACQ ; 0,P.ACQ 402753' 000000 401035'
C.78: XWD 0,P.ACR ; 0,P.ACR 402754' 000000 401037'
C.79: XWD 0,P.ACS ; 0,P.ACS 402755' 000000 401041'
C.80: XWD 0,P.ACT ; 0,P.ACT 402756' 000000 401043'
C.81: XWD 0,P.ACU ; 0,P.ACU 402757' 000000 401045'
C.82: XWD 0,P.ACV ; 0,P.ACV 402760' 000000 401047'
C.83: XWD 0,P.ACW ; 0,P.ACW 402761' 000000 401051'
C.84: XWD 0,P.ACX ; 0,P.ACX 402762' 000000 401053'
C.85: XWD 0,P.ACY ; 0,P.ACY 402763' 000000 401055'
C.86: XWD 0,P.ACZ ; 0,P.ACZ 402764' 000000 401057'
C.87: XWD 0,P.ADA ; 0,P.ADA 402765' 000000 401061'
C.88: XWD 0,P.ADB ; 0,P.ADB 402766' 000000 401063'
C.89: XWD 0,P.ADC ; 0,P.ADC 402767' 000000 401065'
C.90: XWD 0,P.ADD ; 0,P.ADD 402770' 000000 401067'
C.91: XWD 0,P.ADE ; 0,P.ADE 402771' 000000 401071'
C.92: XWD 0,P.ADF ; 0,P.ADF 402772' 000000 401073'
C.93: XWD 0,P.ADG ; 0,P.ADG 402773' 000000 401075'
C.94: XWD 0,P.ADH ; 0,P.ADH 402774' 000000 401077'
C.95: XWD 0,P.ADI ; 0,P.ADI 402775' 000000 401101'
C.96: XWD 0,P.ADJ ; 0,P.ADJ 402776' 000000 401103'
C.97: XWD 0,P.ADK ; 0,P.ADK 402777' 000000 401105'
C.98: XWD 0,P.ADL ; 0,P.ADL 403000' 000000 401107'
C.99: XWD 0,P.ADM ; 0,P.ADM 403001' 000000 401111'
C.100: XWD 0,P.ADN ; 0,P.ADN 403002' 000000 401113'
C.101: XWD 0,P.ADO ; 0,P.ADO 403003' 000000 401115'
C.102: XWD 0,P.ADP ; 0,P.ADP 403004' 000000 401117'
C.103: XWD 0,P.ADQ ; 0,P.ADQ 403005' 000000 401121'
C.104: XWD 0,P.ADR ; 0,P.ADR 403006' 000000 401123'
C.105: XWD 0,P.ADS ; 0,P.ADS 403007' 000000 401125'
C.106: XWD 0,P.ADT ; 0,P.ADT 403010' 000000 401127'
C.107: XWD 0,P.ADU ; 0,P.ADU 403011' 000000 401131'
C.108: XWD 0,P.ADV ; 0,P.ADV 403012' 000000 401133'
C.109: XWD 0,P.ADW ; 0,P.ADW 403013' 000000 401135'
C.110: XWD 0,P.ADX ; 0,P.ADX 403014' 000000 401137'
C.111: XWD 0,P.ADY ; 0,P.ADY 403015' 000000 401141'
C.112: XWD 0,P.ADZ ; 0,P.ADZ 403016' 000000 401143'
C.113: XWD 0,P.AEA ; 0,P.AEA 403017' 000000 401145'
C.114: XWD 0,P.AEB ; 0,P.AEB 403020' 000000 401147'
C.115: XWD 0,P.AEC ; 0,P.AEC 403021' 000000 401151'
C.116: XWD 0,P.AED ; 0,P.AED 403022' 000000 401153'
C.117: XWD 0,P.AEE ; 0,P.AEE 403023' 000000 401155'
C.118: XWD 0,P.AEF ; 0,P.AEF 403024' 000000 401157'
C.119: XWD 0,P.AEG ; 0,P.AEG 403025' 000000 401161'
C.120: XWD 0,P.AEH ; 0,P.AEH 403026' 000000 401163'
C.121: XWD 0,P.AEI ; 0,P.AEI 403027' 000000 401165'
C.122: XWD 0,P.AEJ ; 0,P.AEJ 403030' 000000 401167'
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 54
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (9)
C.123: XWD 0,P.AEK ; 0,P.AEK 403031' 000000 401171'
C.124: XWD 0,P.AEL ; 0,P.AEL 403032' 000000 401173'
C.125: XWD 0,P.AEM ; 0,P.AEM 403033' 000000 401175'
C.126: XWD 0,P.AEN ; 0,P.AEN 403034' 000000 401177'
C.127: XWD 0,P.AEO ; 0,P.AEO 403035' 000000 401201'
C.128: XWD 0,P.AEP ; 0,P.AEP 403036' 000000 401203'
C.129: XWD 0,P.AEQ ; 0,P.AEQ 403037' 000000 401205'
C.130: XWD 0,P.AER ; 0,P.AER 403040' 000000 401207'
C.131: XWD 0,P.AES ; 0,P.AES 403041' 000000 401211'
C.132: XWD 0,P.AET ; 0,P.AET 403042' 000000 401213'
C.133: XWD 0,P.AEU ; 0,P.AEU 403043' 000000 401215'
C.134: XWD 0,P.AEV ; 0,P.AEV 403044' 000000 401217'
C.135: XWD 0,P.AEW ; 0,P.AEW 403045' 000000 401221'
C.136: XWD 0,P.AEX ; 0,P.AEX 403046' 000000 401223'
C.137: XWD 0,P.AEY ; 0,P.AEY 403047' 000000 401225'
C.138: XWD 0,P.AEZ ; 0,P.AEZ 403050' 000000 401227'
C.139: XWD 0,P.AFA ; 0,P.AFA 403051' 000000 401231'
C.140: XWD 0,P.AFB ; 0,P.AFB 403052' 000000 401233'
C.141: XWD 0,P.AFC ; 0,P.AFC 403053' 000000 401235'
C.142: XWD 0,P.AFD ; 0,P.AFD 403054' 000000 401237'
C.143: XWD 0,P.AFE ; 0,P.AFE 403055' 000000 401241'
C.144: XWD 0,P.AFF ; 0,P.AFF 403056' 000000 401243'
C.145: XWD 0,P.AFG ; 0,P.AFG 403057' 000000 401245'
C.146: XWD 0,P.AFH ; 0,P.AFH 403060' 000000 401247'
C.147: XWD 0,P.AFI ; 0,P.AFI 403061' 000000 401251'
C.148: XWD 0,P.AFJ ; 0,P.AFJ 403062' 000000 401253'
C.149: XWD 0,P.AFK ; 0,P.AFK 403063' 000000 401255'
C.150: XWD 0,P.AFL ; 0,P.AFL 403064' 000000 401257'
C.151: XWD 0,P.AFM ; 0,P.AFM 403065' 000000 401261'
C.152: XWD 0,P.AFN ; 0,P.AFN 403066' 000000 401263'
C.153: XWD 0,P.AFO ; 0,P.AFO 403067' 000000 401265'
C.154: XWD 0,P.AFP ; 0,P.AFP 403070' 000000 401267'
C.155: XWD 0,P.AFQ ; 0,P.AFQ 403071' 000000 401271'
C.156: XWD 0,P.AFR ; 0,P.AFR 403072' 000000 401273'
C.157: XWD 0,P.AFS ; 0,P.AFS 403073' 000000 401275'
C.158: XWD 0,P.AFT ; 0,P.AFT 403074' 000000 401277'
C.159: XWD 0,P.AFU ; 0,P.AFU 403075' 000000 401301'
C.160: XWD 0,P.AFV ; 0,P.AFV 403076' 000000 401303'
C.161: XWD 0,P.AFW ; 0,P.AFW 403077' 000000 401305'
C.162: XWD 0,P.AFX ; 0,P.AFX 403100' 000000 401307'
C.163: XWD 0,P.AFY ; 0,P.AFY 403101' 000000 401311'
; Routine Size: 887 words
; 0862
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 55
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (10)
; 0863 GLOBAL ROUTINE GETBYT (FILE_PTR, LOCN) = !GET A BYTE FROM A CORE OR TASK IMAGE
; 0864
; 0865 !++
; 0866 ! FUNCTIONAL DESCRIPTION:
; 0867 !
; 0868 ! FETCH A SPECIFIED BYTE FROM A CORE IMAGE OR TASK IMAGE.
; 0869 !
; 0870 ! FORMAL PARAMETERS:
; 0871 !
; 0872 ! FILE_PTR - FILE BLOCK WHICH CONTAINS POINTERS TO THE IMAGE
; 0873 ! LOCN - ADDRESS OF LOCATION TO FETCH
; 0874 !
; 0875 ! IMPLICIT INPUTS:
; 0876 !
; 0877 ! NONE
; 0878 !
; 0879 ! IMPLICIT OUTPUTS:
; 0880 !
; 0881 ! NONE
; 0882 !
; 0883 ! ROUTINE VALUE:
; 0884 !
; 0885 ! THE 8-BIT BYTE AT THE LOCATION, OR -1 IF ERROR.
; 0886 !
; 0887 ! SIDE EFFECTS
; 0888 !
; 0889 ! NONE
; 0890 !
; 0891 !--
; 0892
; 0893 BEGIN
; 0894
; 0895 BIND
; 0896 ROUTINE_NAME = UPLIT (%ASCIZ'GETBYT');
; 0897
; 0898 MAP
; 0899 FILE_PTR : REF FILE_BLOCK;
; 0900
; 0901 LOCAL
; 0902 CORE_IMAGE : REF VECTOR,
; 0903 LABEL_IMAGE : REF VECTOR,
; 0904 CORE_LEN,
; 0905 CORE_WORD,
; 0906 RESULT,
; 0907 BASE_ADDRESS;
; 0908
; 0909 IF (DEBUG GEQ 3)
; 0910 THEN
; 0911 BEGIN !DEBUG
; 0912 PCRLF (1);
; 0913 OUTPUT (1, %O'11');
; 0914 OUTPUT (1, %O'11');
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 56
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (10)
; 0915 OUTSTR (1, UPLIT (%ASCIZ'GETBYT: '));
; 0916 OUTNUM (1, .LOCN, 8, 6);
; 0917 END; !DEBUG
; 0918
; 0919 !
; 0920 ! GET POINTERS TO THE MEMORY INFORMATION
; 0921 !
; 0922 CORE_IMAGE = .FILE_PTR [FILE_CORE];
; 0923 CORE_LEN = .FILE_PTR [FILE_CORE_LEN];
; 0924 LABEL_IMAGE = .FILE_PTR [FILE_LABEL];
; 0925 !
; 0926 ! VALIDATE THE ADDRESS
; 0927 !
; 0928 BASE_ADDRESS = .LABEL_IMAGE [L$BSA] + (.LABEL_IMAGE [L$BSA + 1]*256);
; 0929
; 0930 IF (((.LOCN - .BASE_ADDRESS) GEQ .CORE_LEN) OR (.LOCN LSS .BASE_ADDRESS))
; 0931 THEN
; 0932 BEGIN
; 0933 ERRMSG (0, 25, ROUTINE_NAME, .LOCN, FILE_PTR [FILE_NAME], 0, 0);
; 0934 RESULT = -1;
; 0935 END
; 0936 ELSE
; 0937 BEGIN
; 0938 !
; 0939 ! FETCH THE DATA
; 0940 !
; 0941 CORE_WORD = .CORE_IMAGE [(.LOCN - .BASE_ADDRESS)/4];
; 0942 RESULT = .CORE_WORD<(CASE ((.LOCN - .BASE_ADDRESS) AND 3) FROM 0 TO 3 OF
; 0943 SET
; 0944 [0] : 18;
; 0945 [1] : 26;
; 0946 [2] : 0;
; 0947 [3] : 8;
; 0948 TES), 8>
; 0949 END;
; 0950
; 0951 IF (DEBUG GEQ 3)
; 0952 THEN
; 0953 BEGIN !DEBUG
; 0954 OUTSTR (1, UPLIT (%ASCIZ', '));
; 0955 OUTNUM (1, .RESULT, 8, 6);
; 0956 END; !DEBUG
; 0957
; 0958 .RESULT
; 0959 END; !OF GETBYT
P.AFZ: BYTE (7)"G","E","T","B","Y" ; GETBY 403102' 107 105 124 102 131
BYTE (7)"T",000,000,000,000 ; T 403103' 124 000 000 000 000
P.AGA: BYTE (7)"G","E","T","B","Y" ; GETBY 403104' 107 105 124 102 131
BYTE (7)"T",":"," ",000,000 ; T: 403105' 124 072 040 000 000
P.AGB: BYTE (7)","," ",000,000,000 ; , 403106' 054 040 000 000 000
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 57
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (10)
ROUTINE_NAME= P.AFZ ; 000000 403102'
GETBYT::PUSH SP,AC0 ; SP,AC0 403107' 261 17 0 00 000000 0863
MOVE AC3,-3(SP) ; AC3,FILE_PTR 403110' 200 03 0 17 777775 0922
HLRZ AC5,14(AC3) ; CORE_IMAGE,14(AC3) 403111' 554 05 0 03 000014
MOVE AC4,15(AC3) ; CORE_LEN,15(AC3) 403112' 200 04 0 03 000015 0923
HRRZ AC1,17(AC3) ; LABEL_IMAGE,17(AC3) 403113' 550 01 0 03 000017 0924
MOVE AC2,11(AC1) ; AC2,11(LABEL_IMAGE) 403114' 200 02 0 01 000011 0928
IMULI AC2,400 ; AC2,400 403115' 221 02 0 00 000400
ADD AC2,10(AC1) ; AC2,10(LABEL_IMAGE) 403116' 270 02 0 01 000010
MOVE AC0,-2(SP) ; AC0,LOCN 403117' 200 00 0 17 777776 0930
SUB AC0,AC2 ; AC0,BASE_ADDRESS 403120' 274 00 0 00 000002
CAML AC0,AC4 ; AC0,CORE_LEN 403121' 311 00 0 00 000004
JRST L.35 ; L.35 403122' 254 00 0 00 403125'
CAMG AC2,-2(SP) ; BASE_ADDRESS,LOCN 403123' 317 02 0 17 777776
JRST L.36 ; L.36 403124' 254 00 0 00 403141'
L.35: PUSH SP,C.5 ; SP,[0] 403125' 261 17 0 00 400166' 0933
PUSH SP,C.165 ; SP,[31] 403126' 261 17 0 00 403172'
PUSH SP,C.166 ; SP,[0,,ROUTINE_NAME] 403127' 261 17 0 00 403173'
PUSH SP,-5(SP) ; SP,LOCN 403130' 261 17 0 17 777773
ADDI AC3,2 ; AC3,2 403131' 271 03 0 00 000002
PUSH SP,AC3 ; SP,AC3 403132' 261 17 0 00 000003
PUSH SP,C.5 ; SP,[0] 403133' 261 17 0 00 400166'
PUSH SP,C.5 ; SP,[0] 403134' 261 17 0 00 400166'
PUSHJ SP,ERRMSG ; SP,ERRMSG 403135' 260 17 0 00 000000*
SETO AC1, ; RESULT, 403136' 474 01 0 00 000000 0934
ADJSP SP,-7 ; SP,-7 403137' 105 17 0 00 777771 0932
JRST L.43 ; L.43 403140' 254 00 0 00 403167' 0930
L.36: MOVE AC1,AC0 ; AC1,AC0 403141' 200 01 0 00 000000 0941
IDIVI AC1,4 ; AC1,4 403142' 231 01 0 00 000004
MOVE AC3,AC1 ; AC3,AC1 403143' 200 03 0 00 000001
MOVE AC1,AC5 ; AC1,CORE_IMAGE 403144' 200 01 0 00 000005
ADD AC1,AC3 ; AC1,AC3 403145' 270 01 0 00 000003
MOVE AC2,0(AC1) ; CORE_WORD,0(AC1) 403146' 200 02 0 01 000000
ANDI AC0,3 ; AC0,3 403147' 405 00 0 00 000003 0942
MOVE AC3,AC0 ; AC3,AC0 403150' 200 03 0 00 000000
JRST L.37(AC3) ; L.37(AC3) 403151' 254 00 0 03 403152'
L.37: JRST L.38 ; L.38 403152' 254 00 0 00 403156'
JRST L.39 ; L.39 403153' 254 00 0 00 403160'
JRST L.40 ; L.40 403154' 254 00 0 00 403162'
JRST L.41 ; L.41 403155' 254 00 0 00 403163'
L.38: MOVEI AC0,22 ; AC0,22 403156' 201 00 0 00 000022
JRST L.42 ; L.42 403157' 254 00 0 00 403164'
L.39: MOVEI AC0,32 ; AC0,32 403160' 201 00 0 00 000032
JRST L.42 ; L.42 403161' 254 00 0 00 403164'
L.40: TDZA AC0,AC0 ; AC0,AC0 403162' 634 00 0 00 000000
L.41: MOVEI AC0,10 ; AC0,10 403163' 201 00 0 00 000010
L.42: MOVE AC3,C.164 ; AC3,[POINT 8,CORE_WORD,35] <0,8> 403164' 200 03 0 00 403171'
DPB AC0,C.3 ; AC0,[POINT 6,AC3,5] <30,6> 403165' 137 00 0 00 400164'
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 58
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (10)
LDB AC1,AC3 ; RESULT,AC3 403166' 135 01 0 00 000003
L.43: POP SP,AC0 ; SP,AC0 403167' 262 17 0 00 000000 0863
POPJ SP, ; SP, 403170' 263 17 0 00 000000
C.164: POINT 8,AC2,35 ; 8,CORE_WORD,35 403171' 00 10 0 00 000002
C.165: EXP 31 ; 31 403172' 000000 000031
C.166: XWD 0,ROUTINE_NAME ; 0,ROUTINE_NAME 403173' 000000 403102'
; Routine Size: 53 words
; 0960
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 59
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (11)
; 0961 GLOBAL ROUTINE GETWRD (FILE_PTR, LOCN) = !GET A WORD FROM A CORE OR TASK IMAGE
; 0962
; 0963 !++
; 0964 ! FUNCTIONAL DESCRIPTION:
; 0965 !
; 0966 ! FETCH A SPECIFIED WORD FROM A CORE IMAGE OR TASK IMAGE.
; 0967 !
; 0968 ! FORMAL PARAMETERS:
; 0969 !
; 0970 ! FILE_PTR - FILE BLOCK WHICH CONTAINS POINTERS TO THE IMAGE
; 0971 ! LOCN - ADDRESS OF LOCATION TO FETCH
; 0972 !
; 0973 ! IMPLICIT INPUTS:
; 0974 !
; 0975 ! NONE
; 0976 !
; 0977 ! IMPLICIT OUTPUTS:
; 0978 !
; 0979 ! NONE
; 0980 !
; 0981 ! ROUTINE VALUE:
; 0982 !
; 0983 ! THE 16-BIT WORD AT THE LOCATION, OR -1 IF ERROR.
; 0984 !
; 0985 ! SIDE EFFECTS
; 0986 !
; 0987 ! NONE
; 0988 !
; 0989 !--
; 0990
; 0991 BEGIN
; 0992
; 0993 BIND
; 0994 ROUTINE_NAME = UPLIT (%ASCIZ'GETWRD');
; 0995
; 0996 MAP
; 0997 FILE_PTR : REF FILE_BLOCK;
; 0998
; 0999 LOCAL
; 1000 CORE_IMAGE : REF VECTOR,
; 1001 LABEL_IMAGE : REF VECTOR,
; 1002 CORE_LEN,
; 1003 CORE_WORD,
; 1004 RESULT,
; 1005 BASE_ADDRESS;
; 1006
; 1007 IF (DEBUG GEQ 3)
; 1008 THEN
; 1009 BEGIN !DEBUG
; 1010 PCRLF (1);
; 1011 OUTPUT (1, %O'11');
; 1012 OUTPUT (1, %O'11');
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 60
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (11)
; 1013 OUTSTR (1, UPLIT (%ASCIZ'GETWRD: '));
; 1014 OUTNUM (1, .LOCN, 8, 6);
; 1015 END; !DEBUG
; 1016
; 1017 !
; 1018 ! GET POINTERS TO THE MEMORY INFORMATION
; 1019 !
; 1020 CORE_IMAGE = .FILE_PTR [FILE_CORE];
; 1021 CORE_LEN = .FILE_PTR [FILE_CORE_LEN];
; 1022 LABEL_IMAGE = .FILE_PTR [FILE_LABEL];
; 1023 !
; 1024 ! VALIDATE THE ADDRESS
; 1025 !
; 1026 BASE_ADDRESS = .LABEL_IMAGE [L$BSA] + (.LABEL_IMAGE [L$BSA + 1]*256);
; 1027
; 1028 IF (((.LOCN - .BASE_ADDRESS) GEQ .CORE_LEN) OR (.LOCN LSS .BASE_ADDRESS)) OR ((.LOCN AND %O'1') NEQ 0)
; 1029 THEN
; 1030 BEGIN
; 1031 ERRMSG (0, 25, ROUTINE_NAME, .LOCN, FILE_PTR [FILE_NAME], 0, 0);
; 1032 RESULT = -1;
; 1033 END
; 1034 ELSE
; 1035 BEGIN
; 1036 !
; 1037 ! FETCH THE DATA
; 1038 !
; 1039 CORE_WORD = .CORE_IMAGE [(.LOCN - .BASE_ADDRESS)/4];
; 1040 RESULT = .CORE_WORD<(CASE ((.LOCN - .BASE_ADDRESS) AND 3) FROM 0 TO 2 OF
; 1041 SET
; 1042 [0] : 18;
; 1043 [1] : -1;
; 1044 [2] : 0;
; 1045 TES), 8> + !
; 1046 (.CORE_WORD<(CASE ((.LOCN + 1 - .BASE_ADDRESS) AND 3) FROM 1 TO 3 OF
; 1047 SET
; 1048 [1] : 26;
; 1049 [2] : -1;
; 1050 [3] : 8;
; 1051 TES), 8>*256);
; 1052 END;
; 1053
; 1054 IF (DEBUG GEQ 3)
; 1055 THEN
; 1056 BEGIN !DEBUG
; 1057 OUTSTR (1, UPLIT (%ASCIZ', '));
; 1058 OUTNUM (1, .RESULT, 8, 6);
; 1059 END; !DEBUG
; 1060
; 1061 .RESULT
; 1062 END; !OF GETWRD
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 61
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (11)
P.AGC: BYTE (7)"G","E","T","W","R" ; GETWR 403174' 107 105 124 127 122
BYTE (7)"D",000,000,000,000 ; D 403175' 104 000 000 000 000
P.AGD: BYTE (7)"G","E","T","W","R" ; GETWR 403176' 107 105 124 127 122
BYTE (7)"D",":"," ",000,000 ; D: 403177' 104 072 040 000 000
P.AGE: BYTE (7)","," ",000,000,000 ; , 403200' 054 040 000 000 000
ROUTINE_NAME= P.AGC ; 000000 403174'
GETWRD::PUSH SP,AC0 ; SP,AC0 403201' 261 17 0 00 000000 0961
PUSH SP,AC10 ; SP,AC10 403202' 261 17 0 00 000010
PUSH SP,AC11 ; SP,AC11 403203' 261 17 0 00 000011
MOVE AC3,-5(SP) ; AC3,FILE_PTR 403204' 200 03 0 17 777773 1020
HLRZ AC5,14(AC3) ; CORE_IMAGE,14(AC3) 403205' 554 05 0 03 000014
MOVE AC4,15(AC3) ; CORE_LEN,15(AC3) 403206' 200 04 0 03 000015 1021
HRRZ AC1,17(AC3) ; LABEL_IMAGE,17(AC3) 403207' 550 01 0 03 000017 1022
MOVE AC2,11(AC1) ; AC2,11(LABEL_IMAGE) 403210' 200 02 0 01 000011 1026
IMULI AC2,400 ; AC2,400 403211' 221 02 0 00 000400
MOVE AC11,AC2 ; BASE_ADDRESS,AC2 403212' 200 11 0 00 000002
ADD AC11,10(AC1) ; BASE_ADDRESS,10(LABEL_IMAGE) 403213' 270 11 0 01 000010
MOVE AC10,-4(SP) ; AC10,LOCN 403214' 200 10 0 17 777774 1028
MOVE AC0,AC10 ; AC0,AC10 403215' 200 00 0 00 000010
SUB AC0,AC11 ; AC0,BASE_ADDRESS 403216' 274 00 0 00 000011
CAMGE AC0,AC4 ; AC0,CORE_LEN 403217' 315 00 0 00 000004
CAMGE AC10,AC11 ; AC10,BASE_ADDRESS 403220' 315 10 0 00 000011
JRST L.44 ; L.44 403221' 254 00 0 00 403224'
TRNN AC10,1 ; AC10,1 403222' 606 10 0 00 000001
JRST L.45 ; L.45 403223' 254 00 0 00 403240'
L.44: PUSH SP,C.5 ; SP,[0] 403224' 261 17 0 00 400166' 1031
PUSH SP,C.165 ; SP,[31] 403225' 261 17 0 00 403172'
PUSH SP,C.170 ; SP,[0,,ROUTINE_NAME] 403226' 261 17 0 00 403316'
PUSH SP,AC10 ; SP,AC10 403227' 261 17 0 00 000010
ADDI AC3,2 ; AC3,2 403230' 271 03 0 00 000002
PUSH SP,AC3 ; SP,AC3 403231' 261 17 0 00 000003
PUSH SP,C.5 ; SP,[0] 403232' 261 17 0 00 400166'
PUSH SP,C.5 ; SP,[0] 403233' 261 17 0 00 400166'
PUSHJ SP,ERRMSG ; SP,ERRMSG 403234' 260 17 0 00 000000*
SETO AC4, ; RESULT, 403235' 474 04 0 00 000000 1032
ADJSP SP,-7 ; SP,-7 403236' 105 17 0 00 777771 1030
JRST L.56 ; L.56 403237' 254 00 0 00 403306' 1028
L.45: MOVE AC1,AC0 ; AC1,AC0 403240' 200 01 0 00 000000 1039
IDIVI AC1,4 ; AC1,4 403241' 231 01 0 00 000004
MOVE AC2,AC5 ; AC2,CORE_IMAGE 403242' 200 02 0 00 000005
ADD AC2,AC1 ; AC2,AC1 403243' 270 02 0 00 000001
MOVE AC3,0(AC2) ; CORE_WORD,0(AC2) 403244' 200 03 0 02 000000
LDB AC1,C.167 ; AC1,[POINT 2,AC0,35] <0,2> 403245' 135 01 0 00 403313' 1040
JRST L.46(AC1) ; L.46(AC1) 403246' 254 00 0 01 403247'
L.46: JRST L.47 ; L.47 403247' 254 00 0 00 403252'
JRST L.48 ; L.48 403250' 254 00 0 00 403254'
JRST L.49 ; L.49 403251' 254 00 0 00 403256'
L.47: MOVEI AC1,22 ; AC1,22 403252' 201 01 0 00 000022
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 62
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (11)
JRST L.50 ; L.50 403253' 254 00 0 00 403257'
L.48: SETO AC1, ; AC1, 403254' 474 01 0 00 000000
JRST L.50 ; L.50 403255' 254 00 0 00 403257'
L.49: SETZ AC1, ; AC1, 403256' 400 01 0 00 000000
L.50: MOVE AC2,C.168 ; AC2,[POINT 8,CORE_WORD,35] <0,8> 403257' 200 02 0 00 403314'
DPB AC1,C.12 ; AC1,[POINT 6,AC2,5] <30,6> 403260' 137 01 0 00 400311'
LDB AC0,AC2 ; AC0,AC2 403261' 135 00 0 00 000002
MOVE AC1,AC10 ; AC1,AC10 403262' 200 01 0 00 000010 1046
SUB AC1,AC11 ; AC1,BASE_ADDRESS 403263' 274 01 0 00 000011
ADDI AC1,1 ; AC1,1 403264' 271 01 0 00 000001
ANDI AC1,3 ; AC1,3 403265' 405 01 0 00 000003
SUBI AC1,1 ; AC1,1 403266' 275 01 0 00 000001
JRST L.51(AC1) ; L.51(AC1) 403267' 254 00 0 01 403270'
L.51: JRST L.52 ; L.52 403270' 254 00 0 00 403273'
JRST L.53 ; L.53 403271' 254 00 0 00 403275'
JRST L.54 ; L.54 403272' 254 00 0 00 403277'
L.52: MOVEI AC1,32 ; AC1,32 403273' 201 01 0 00 000032
JRST L.55 ; L.55 403274' 254 00 0 00 403300'
L.53: SETO AC1, ; AC1, 403275' 474 01 0 00 000000
JRST L.55 ; L.55 403276' 254 00 0 00 403300'
L.54: MOVEI AC1,10 ; AC1,10 403277' 201 01 0 00 000010
L.55: MOVE AC5,C.168 ; AC5,[POINT 8,CORE_WORD,35] <0,8> 403300' 200 05 0 00 403314'
DPB AC1,C.169 ; AC1,[POINT 6,AC5,5] <30,6> 403301' 137 01 0 00 403315'
LDB AC2,AC5 ; AC2,AC5 403302' 135 02 0 00 000005
IMULI AC2,400 ; AC2,400 403303' 221 02 0 00 000400
MOVE AC4,AC0 ; RESULT,AC0 403304' 200 04 0 00 000000 1045
ADD AC4,AC2 ; RESULT,AC2 403305' 270 04 0 00 000002
L.56: MOVE AC1,AC4 ; AC1,RESULT 403306' 200 01 0 00 000004 0961
POP SP,AC11 ; SP,AC11 403307' 262 17 0 00 000011
POP SP,AC10 ; SP,AC10 403310' 262 17 0 00 000010
POP SP,AC0 ; SP,AC0 403311' 262 17 0 00 000000
POPJ SP, ; SP, 403312' 263 17 0 00 000000
C.167: POINT 2,AC0,35 ; 2,AC0,35 403313' 00 02 0 00 000000
C.168: POINT 8,AC3,35 ; 8,CORE_WORD,35 403314' 00 10 0 00 000003
C.169: POINT 6,AC5,5 ; 6,AC5,5 403315' 36 06 0 00 000005
C.170: XWD 0,ROUTINE_NAME ; 0,ROUTINE_NAME 403316' 000000 403174'
; Routine Size: 78 words
; 1063
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 63
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (12)
; 1064 GLOBAL ROUTINE PUTBYT (FILE_PTR, LOCN, VAL) : NOVALUE = !PUT A BYTE IN A CORE IMAGE
; 1065
; 1066 !++
; 1067 ! FUNCTIONAL DESCRIPTION:
; 1068 !
; 1069 ! STORE A SPECIFIED BYTE IN A CORE IMAGE.
; 1070 !
; 1071 ! FORMAL PARAMETERS:
; 1072 !
; 1073 ! FILE_PTR - FILE BLOCK WHICH CONTAINS POINTERS TO THE IMAGE
; 1074 ! (WILL ALWAYS BE THE KERNEL)
; 1075 ! LOCN - ADDRESS OF LOCATION TO STORE
; 1076 ! VAL - VALUE TO BE STORED; ONLY THE LOW-ORDER 8 BITS ARE STORED
; 1077 !
; 1078 ! IMPLICIT INPUTS:
; 1079 !
; 1080 ! NONE
; 1081 !
; 1082 ! IMPLICIT OUTPUTS:
; 1083 !
; 1084 ! NONE
; 1085 !
; 1086 ! ROUTINE VALUE:
; 1087 !
; 1088 ! NONE
; 1089 !
; 1090 ! SIDE EFFECTS
; 1091 !
; 1092 ! CHANGES THE CORE IMAGE
; 1093 !
; 1094 !--
; 1095
; 1096 BEGIN
; 1097
; 1098 BIND
; 1099 ROUTINE_NAME = UPLIT (%ASCIZ'PUTBYT');
; 1100
; 1101 MAP
; 1102 FILE_PTR : REF FILE_BLOCK;
; 1103
; 1104 LOCAL
; 1105 CORE_IMAGE : REF VECTOR,
; 1106 LABEL_IMAGE : REF VECTOR,
; 1107 CORE_LEN,
; 1108 CORE_WORD,
; 1109 BASE_ADDRESS;
; 1110
; 1111 IF (DEBUG GEQ 3)
; 1112 THEN
; 1113 BEGIN !DEBUG
; 1114 PCRLF (1);
; 1115 OUTPUT (1, %O'11');
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 64
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (12)
; 1116 OUTPUT (1, %O'11');
; 1117 OUTSTR (1, UPLIT (%ASCIZ'PUTBYT: '));
; 1118 OUTNUM (1, .LOCN, 8, 6);
; 1119 OUTSTR (1, UPLIT (%ASCIZ', '));
; 1120 OUTNUM (1, .VAL, 8, 6);
; 1121 END; !DEBUG
; 1122
; 1123 !
; 1124 ! GET POINTERS TO THE MEMORY INFORMATION
; 1125 !
; 1126 CORE_IMAGE = .FILE_PTR [FILE_CORE];
; 1127 CORE_LEN = .FILE_PTR [FILE_CORE_LEN];
; 1128 LABEL_IMAGE = .FILE_PTR [FILE_LABEL];
; 1129 !
; 1130 ! VALIDATE THE ADDRESS
; 1131 !
; 1132 BASE_ADDRESS = .LABEL_IMAGE [L$BSA] + (.LABEL_IMAGE [L$BSA + 1]*256);
; 1133
; 1134 IF (((.LOCN - .BASE_ADDRESS) GEQ .CORE_LEN) OR (.LOCN LSS .BASE_ADDRESS))
; 1135 THEN
; 1136 ERRMSG (0, 25,
; 1137 ROUTINE_NAME, .LOCN, FILE_PTR [FILE_NAME], 0, 0)
; 1138 ELSE
; 1139 BEGIN
; 1140 !
; 1141 ! STORE THE DATA
; 1142 !
; 1143 CORE_WORD = .CORE_IMAGE [(.LOCN - .BASE_ADDRESS)/4];
; 1144 CORE_WORD<(CASE ((.LOCN - .BASE_ADDRESS) AND 3) FROM 0 TO 3 OF
; 1145 SET
; 1146 [0] : 18;
; 1147 [1] : 26;
; 1148 [2] : 0;
; 1149 [3] : 8;
; 1150 TES), 8> = .VAL;
; 1151 CORE_IMAGE [(.LOCN - .BASE_ADDRESS)/4] = .CORE_WORD;
; 1152 END;
; 1153
; 1154 END; !OF PUTBYT
P.AGF: BYTE (7)"P","U","T","B","Y" ; PUTBY 403317' 120 125 124 102 131
BYTE (7)"T",000,000,000,000 ; T 403320' 124 000 000 000 000
P.AGG: BYTE (7)"P","U","T","B","Y" ; PUTBY 403321' 120 125 124 102 131
BYTE (7)"T",":"," ",000,000 ; T: 403322' 124 072 040 000 000
P.AGH: BYTE (7)","," ",000,000,000 ; , 403323' 054 040 000 000 000
ROUTINE_NAME= P.AGF ; 000000 403317'
PUTBYT::PUSH SP,AC0 ; SP,AC0 403324' 261 17 0 00 000000 1064
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 65
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (12)
MOVE AC3,-4(SP) ; AC3,FILE_PTR 403325' 200 03 0 17 777774 1126
HLRZ AC5,14(AC3) ; CORE_IMAGE,14(AC3) 403326' 554 05 0 03 000014
MOVE AC4,15(AC3) ; CORE_LEN,15(AC3) 403327' 200 04 0 03 000015 1127
HRRZ AC1,17(AC3) ; LABEL_IMAGE,17(AC3) 403330' 550 01 0 03 000017 1128
MOVE AC2,11(AC1) ; AC2,11(LABEL_IMAGE) 403331' 200 02 0 01 000011 1132
IMULI AC2,400 ; AC2,400 403332' 221 02 0 00 000400
ADD AC2,10(AC1) ; AC2,10(LABEL_IMAGE) 403333' 270 02 0 01 000010
MOVE AC0,-3(SP) ; AC0,LOCN 403334' 200 00 0 17 777775 1134
SUB AC0,AC2 ; AC0,BASE_ADDRESS 403335' 274 00 0 00 000002
CAML AC0,AC4 ; AC0,CORE_LEN 403336' 311 00 0 00 000004
JRST L.57 ; L.57 403337' 254 00 0 00 403342'
CAMG AC2,-3(SP) ; BASE_ADDRESS,LOCN 403340' 317 02 0 17 777775
JRST L.58 ; L.58 403341' 254 00 0 00 403355'
L.57: PUSH SP,C.5 ; SP,[0] 403342' 261 17 0 00 400166' 1136
PUSH SP,C.165 ; SP,[31] 403343' 261 17 0 00 403172'
PUSH SP,C.172 ; SP,[0,,ROUTINE_NAME] 403344' 261 17 0 00 403406'
PUSH SP,-6(SP) ; SP,LOCN 403345' 261 17 0 17 777772
ADDI AC3,2 ; AC3,2 403346' 271 03 0 00 000002 1137
PUSH SP,AC3 ; SP,AC3 403347' 261 17 0 00 000003
PUSH SP,C.5 ; SP,[0] 403350' 261 17 0 00 400166' 1136
PUSH SP,C.5 ; SP,[0] 403351' 261 17 0 00 400166'
PUSHJ SP,ERRMSG ; SP,ERRMSG 403352' 260 17 0 00 000000*
ADJSP SP,-7 ; SP,-7 403353' 105 17 0 00 777771
JRST L.65 ; L.65 403354' 254 00 0 00 403403' 1134
L.58: MOVE AC1,AC0 ; AC1,AC0 403355' 200 01 0 00 000000 1143
IDIVI AC1,4 ; AC1,4 403356' 231 01 0 00 000004
MOVE AC2,AC5 ; AC2,CORE_IMAGE 403357' 200 02 0 00 000005
ADD AC2,AC1 ; AC2,AC1 403360' 270 02 0 00 000001
MOVE AC3,0(AC2) ; CORE_WORD,0(AC2) 403361' 200 03 0 02 000000
LDB AC1,C.167 ; AC1,[POINT 2,AC0,35] <0,2> 403362' 135 01 0 00 403313' 1144
JRST L.59(AC1) ; L.59(AC1) 403363' 254 00 0 01 403364'
L.59: JRST L.60 ; L.60 403364' 254 00 0 00 403370'
JRST L.61 ; L.61 403365' 254 00 0 00 403372'
JRST L.62 ; L.62 403366' 254 00 0 00 403374'
JRST L.63 ; L.63 403367' 254 00 0 00 403375'
L.60: MOVEI AC1,22 ; AC1,22 403370' 201 01 0 00 000022
JRST L.64 ; L.64 403371' 254 00 0 00 403376'
L.61: MOVEI AC1,32 ; AC1,32 403372' 201 01 0 00 000032
JRST L.64 ; L.64 403373' 254 00 0 00 403376'
L.62: TDZA AC1,AC1 ; AC1,AC1 403374' 634 01 0 00 000001
L.63: MOVEI AC1,10 ; AC1,10 403375' 201 01 0 00 000010
L.64: MOVE AC0,C.168 ; AC0,[POINT 8,AC3,35] <0,8> 403376' 200 00 0 00 403314' 1150
DPB AC1,C.171 ; AC1,[POINT 6,AC0,5] <30,6> 403377' 137 01 0 00 403405'
MOVE AC4,-2(SP) ; AC4,VAL 403400' 200 04 0 17 777776
DPB AC4,AC0 ; AC4,AC0 403401' 137 04 0 00 000000
MOVEM AC3,0(AC2) ; CORE_WORD,0(AC2) 403402' 202 03 0 02 000000 1151
L.65: POP SP,AC0 ; SP,AC0 403403' 262 17 0 00 000000 1064
POPJ SP, ; SP, 403404' 263 17 0 00 000000
C.171: POINT 6,AC0,5 ; 6,AC0,5 403405' 36 06 0 00 000000
C.172: XWD 0,ROUTINE_NAME ; 0,ROUTINE_NAME 403406' 000000 403317'
; Routine Size: 51 words
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 66
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (12)
; 1155
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 67
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (13)
; 1156 GLOBAL ROUTINE PUTWRD (FILE_PTR, LOCN, VAL) : NOVALUE = !PUT A WORD IN A CORE IMAGE
; 1157
; 1158 !++
; 1159 ! FUNCTIONAL DESCRIPTION:
; 1160 !
; 1161 ! STORE A 16-BIT WORD IN A CORE IMAGE
; 1162 !
; 1163 ! FORMAL PARAMETERS:
; 1164 !
; 1165 ! FILE_PTR - FILE BLOCK WHICH CONTAINS POINTERS TO THE IMAGE
; 1166 ! (WILL ALWAYS BE KERNEL)
; 1167 ! LOCN - ADDRESS OF LOCATION TO STORE
; 1168 ! VAL - VALUE TO STORE; ONLY THE LOW-ORDER 16 BITS ARE STORED
; 1169 !
; 1170 ! IMPLICIT INPUTS:
; 1171 !
; 1172 ! NONE
; 1173 !
; 1174 ! IMPLICIT OUTPUTS:
; 1175 !
; 1176 ! NONE
; 1177 !
; 1178 ! ROUTINE VALUE:
; 1179 !
; 1180 ! NONE
; 1181 !
; 1182 ! SIDE EFFECTS
; 1183 !
; 1184 ! CHANGES THE CORE IMAGE
; 1185 !
; 1186 !--
; 1187
; 1188 BEGIN
; 1189
; 1190 BIND
; 1191 ROUTINE_NAME = UPLIT (%ASCIZ'PUTWRD');
; 1192
; 1193 MAP
; 1194 FILE_PTR : REF FILE_BLOCK;
; 1195
; 1196 LOCAL
; 1197 CORE_IMAGE : REF VECTOR,
; 1198 LABEL_IMAGE : REF VECTOR,
; 1199 CORE_LEN,
; 1200 CORE_WORD,
; 1201 BASE_ADDRESS;
; 1202
; 1203 IF (DEBUG GEQ 3)
; 1204 THEN
; 1205 BEGIN !DEBUG
; 1206 PCRLF (1);
; 1207 OUTPUT (1, %O'11');
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 68
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (13)
; 1208 OUTPUT (1, %O'11');
; 1209 OUTSTR (1, UPLIT (%ASCIZ'PUTWRD: '));
; 1210 OUTNUM (1, .LOCN, 8, 6);
; 1211 OUTSTR (1, UPLIT (%ASCIZ', '));
; 1212 OUTNUM (1, .VAL, 8, 6);
; 1213 END; !DEBUG
; 1214
; 1215 !
; 1216 ! GET POINTERS TO THE MEMORY INFORMATION
; 1217 !
; 1218 CORE_IMAGE = .FILE_PTR [FILE_CORE];
; 1219 CORE_LEN = .FILE_PTR [FILE_CORE_LEN];
; 1220 LABEL_IMAGE = .FILE_PTR [FILE_LABEL];
; 1221 !
; 1222 ! VALIDATE THE ADDRESS
; 1223 !
; 1224 BASE_ADDRESS = .LABEL_IMAGE [L$BSA] + (.LABEL_IMAGE [L$BSA + 1]*256);
; 1225
; 1226 IF (((.LOCN - .BASE_ADDRESS) GEQ .CORE_LEN) OR (.LOCN LSS .BASE_ADDRESS) OR ((.LOCN AND %O'1') NEQ 0))
; 1227 THEN
; 1228 ERRMSG (0, 25, ROUTINE_NAME, .LOCN, FILE_PTR [FILE_NAME], 0, 0)
; 1229 ELSE
; 1230 BEGIN
; 1231 !
; 1232 ! STORE THE DATA
; 1233 !
; 1234 CORE_WORD = .CORE_IMAGE [(.LOCN - .BASE_ADDRESS)/4];
; 1235 CORE_WORD<(CASE ((.LOCN - .BASE_ADDRESS) AND 3) FROM 0 TO 2 OF
; 1236 SET
; 1237 [0] : 18;
; 1238 [1] : -1;
; 1239 [2] : 0;
; 1240 TES), 8> = .VAL<0, 8>;
; 1241 CORE_WORD<(CASE ((.LOCN + 1 - .BASE_ADDRESS) AND 3) FROM 1 TO 3 OF
; 1242 SET
; 1243 [1] : 26;
; 1244 [2] : -1;
; 1245 [3] : 8;
; 1246 TES), 8> = .VAL<8, 8>;
; 1247 CORE_IMAGE [(.LOCN - .BASE_ADDRESS)/4] = .CORE_WORD;
; 1248 END;
; 1249
; 1250 END; !OF PUTWRD
P.AGI: BYTE (7)"P","U","T","W","R" ; PUTWR 403407' 120 125 124 127 122
BYTE (7)"D",000,000,000,000 ; D 403410' 104 000 000 000 000
P.AGJ: BYTE (7)"P","U","T","W","R" ; PUTWR 403411' 120 125 124 127 122
BYTE (7)"D",":"," ",000,000 ; D: 403412' 104 072 040 000 000
P.AGK: BYTE (7)","," ",000,000,000 ; , 403413' 054 040 000 000 000
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 69
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (13)
ROUTINE_NAME= P.AGI ; 000000 403407'
PUTWRD::PUSH SP,AC0 ; SP,AC0 403414' 261 17 0 00 000000 1156
PUSH SP,AC10 ; SP,AC10 403415' 261 17 0 00 000010
PUSH SP,AC11 ; SP,AC11 403416' 261 17 0 00 000011
MOVE AC3,-6(SP) ; AC3,FILE_PTR 403417' 200 03 0 17 777772 1218
HLRZ AC5,14(AC3) ; CORE_IMAGE,14(AC3) 403420' 554 05 0 03 000014
MOVE AC4,15(AC3) ; CORE_LEN,15(AC3) 403421' 200 04 0 03 000015 1219
HRRZ AC1,17(AC3) ; LABEL_IMAGE,17(AC3) 403422' 550 01 0 03 000017 1220
MOVE AC2,11(AC1) ; AC2,11(LABEL_IMAGE) 403423' 200 02 0 01 000011 1224
IMULI AC2,400 ; AC2,400 403424' 221 02 0 00 000400
MOVE AC11,AC2 ; BASE_ADDRESS,AC2 403425' 200 11 0 00 000002
ADD AC11,10(AC1) ; BASE_ADDRESS,10(LABEL_IMAGE) 403426' 270 11 0 01 000010
MOVE AC10,-5(SP) ; AC10,LOCN 403427' 200 10 0 17 777773 1226
MOVE AC0,AC10 ; AC0,AC10 403430' 200 00 0 00 000010
SUB AC0,AC11 ; AC0,BASE_ADDRESS 403431' 274 00 0 00 000011
CAMGE AC0,AC4 ; AC0,CORE_LEN 403432' 315 00 0 00 000004
CAMGE AC10,AC11 ; AC10,BASE_ADDRESS 403433' 315 10 0 00 000011
JRST L.66 ; L.66 403434' 254 00 0 00 403437'
TRNN AC10,1 ; AC10,1 403435' 606 10 0 00 000001
JRST L.67 ; L.67 403436' 254 00 0 00 403452'
L.66: PUSH SP,C.5 ; SP,[0] 403437' 261 17 0 00 400166' 1228
PUSH SP,C.165 ; SP,[31] 403440' 261 17 0 00 403172'
PUSH SP,C.175 ; SP,[0,,ROUTINE_NAME] 403441' 261 17 0 00 403527'
PUSH SP,AC10 ; SP,AC10 403442' 261 17 0 00 000010
ADDI AC3,2 ; AC3,2 403443' 271 03 0 00 000002
PUSH SP,AC3 ; SP,AC3 403444' 261 17 0 00 000003
PUSH SP,C.5 ; SP,[0] 403445' 261 17 0 00 400166'
PUSH SP,C.5 ; SP,[0] 403446' 261 17 0 00 400166'
PUSHJ SP,ERRMSG ; SP,ERRMSG 403447' 260 17 0 00 000000*
ADJSP SP,-7 ; SP,-7 403450' 105 17 0 00 777771
JRST L.78 ; L.78 403451' 254 00 0 00 403521' 1226
L.67: MOVE AC1,AC0 ; AC1,AC0 403452' 200 01 0 00 000000 1234
IDIVI AC1,4 ; AC1,4 403453' 231 01 0 00 000004
MOVE AC3,AC1 ; AC3,AC1 403454' 200 03 0 00 000001
MOVE AC1,AC5 ; AC1,CORE_IMAGE 403455' 200 01 0 00 000005
ADD AC1,AC3 ; AC1,AC3 403456' 270 01 0 00 000003
MOVE AC3,0(AC1) ; CORE_WORD,0(AC1) 403457' 200 03 0 01 000000
LDB AC2,C.167 ; AC2,[POINT 2,AC0,35] <0,2> 403460' 135 02 0 00 403313' 1235
JRST L.68(AC2) ; L.68(AC2) 403461' 254 00 0 02 403462'
L.68: JRST L.69 ; L.69 403462' 254 00 0 00 403465'
JRST L.70 ; L.70 403463' 254 00 0 00 403467'
JRST L.71 ; L.71 403464' 254 00 0 00 403471'
L.69: MOVEI AC2,22 ; AC2,22 403465' 201 02 0 00 000022
JRST L.72 ; L.72 403466' 254 00 0 00 403472'
L.70: SETO AC2, ; AC2, 403467' 474 02 0 00 000000
JRST L.72 ; L.72 403470' 254 00 0 00 403472'
L.71: SETZ AC2, ; AC2, 403471' 400 02 0 00 000000
L.72: MOVE AC0,C.168 ; AC0,[POINT 8,AC3,35] <0,8> 403472' 200 00 0 00 403314' 1240
DPB AC2,C.171 ; AC2,[POINT 6,AC0,5] <30,6> 403473' 137 02 0 00 403405'
LDB AC4,C.173 ; AC4,[POINT 8,VAL,35] <0,8> 403474' 135 04 0 00 403525'
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 70
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (13)
DPB AC4,AC0 ; AC4,AC0 403475' 137 04 0 00 000000
MOVE AC2,AC10 ; AC2,AC10 403476' 200 02 0 00 000010 1241
SUB AC2,AC11 ; AC2,BASE_ADDRESS 403477' 274 02 0 00 000011
ADDI AC2,1 ; AC2,1 403500' 271 02 0 00 000001
ANDI AC2,3 ; AC2,3 403501' 405 02 0 00 000003
SUBI AC2,1 ; AC2,1 403502' 275 02 0 00 000001
JRST L.73(AC2) ; L.73(AC2) 403503' 254 00 0 02 403504'
L.73: JRST L.74 ; L.74 403504' 254 00 0 00 403507'
JRST L.75 ; L.75 403505' 254 00 0 00 403511'
JRST L.76 ; L.76 403506' 254 00 0 00 403513'
L.74: MOVEI AC2,32 ; AC2,32 403507' 201 02 0 00 000032
JRST L.77 ; L.77 403510' 254 00 0 00 403514'
L.75: SETO AC2, ; AC2, 403511' 474 02 0 00 000000
JRST L.77 ; L.77 403512' 254 00 0 00 403514'
L.76: MOVEI AC2,10 ; AC2,10 403513' 201 02 0 00 000010
L.77: MOVE AC0,C.168 ; AC0,[POINT 8,AC3,35] <0,8> 403514' 200 00 0 00 403314' 1246
DPB AC2,C.171 ; AC2,[POINT 6,AC0,5] <30,6> 403515' 137 02 0 00 403405'
LDB AC4,C.174 ; AC4,[POINT 8,VAL,27] <8,8> 403516' 135 04 0 00 403526'
DPB AC4,AC0 ; AC4,AC0 403517' 137 04 0 00 000000
MOVEM AC3,0(AC1) ; CORE_WORD,0(AC1) 403520' 202 03 0 01 000000 1247
L.78: POP SP,AC11 ; SP,AC11 403521' 262 17 0 00 000011 1156
POP SP,AC10 ; SP,AC10 403522' 262 17 0 00 000010
POP SP,AC0 ; SP,AC0 403523' 262 17 0 00 000000
POPJ SP, ; SP, 403524' 263 17 0 00 000000
C.173: POINT 8,-4(SP),35 ; 8,VAL,35 403525' 00 10 0 17 777774
C.174: POINT 8,-4(SP),27 ; 8,VAL,27 403526' 10 10 0 17 777774
C.175: XWD 0,ROUTINE_NAME ; 0,ROUTINE_NAME 403527' 000000 403407'
; Routine Size: 76 words
; 1251
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 71
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (14)
; 1252 GLOBAL ROUTINE ALOCB (FILE_PTR, AMOUNT, DUMMY, VALUES) = !ALLOCATE PDP-11 CORE
; 1253
; 1254 !++
; 1255 ! FUNCTIONAL DESCRIPTION:
; 1256 !
; 1257 ! ALLOCATE SPACE FROM THE PDP-11'S SYSTEM POOL
; 1258 ! (TRANSLATED FROM RSX-11M VERSION 3.1, MODULE CORAL)
; 1259 ! (MODIFIED BASED ON VMR TO ALLOCATE TOP-DOWN.)
; 1260 ! (Modified to remove Allocation from MCB partition)
; 1261 !
; 1262 ! FORMAL PARAMETERS:
; 1263 !
; 1264 ! FILE_PTR - FILE BLOCK WHICH CONTAINS POINTERS TO THE IMAGE
; 1265 ! AND SYMBOL TABLE
; 1266 ! AMOUNT - THE NUMBER OF BYTES TO GET
; 1267 ! DUMMY - Unused in this version was:
; 1268 ! (WHERE - 1 = COMM EXEC PARTITION OR SYSTEM POOL,
; 1269 ! 0 = SYSTEM POOL ONLY)
; 1270 ! VALUES - BLOCK WHICH HOLDS SYMBOL VALUES
; 1271 !
; 1272 ! IMPLICIT INPUTS:
; 1273 !
; 1274 ! NONE
; 1275 !
; 1276 ! IMPLICIT OUTPUTS:
; 1277 !
; 1278 ! MODIFIES THE CORE IMAGE TO ALLOCATE THE SPACE
; 1279 !
; 1280 ! ROUTINE VALUE:
; 1281 !
; 1282 ! PDP-11 ADDRESS OF WHERE CORE HAS BEEN ALLOCATED, OR 0
; 1283 !
; 1284 ! SIDE EFFECTS
; 1285 !
; 1286 ! PRINTS AN ERROR MESSAGE IF PDP-11 SYSTEM POOL IS EXHAUSTED
; 1287 !
; 1288 !--
; 1289
; 1290 BEGIN
; 1291
; 1292 BIND
; 1293 ROUTINE_NAME = UPLIT (%ASCIZ'ALOCB');
; 1294
; 1295 MAP
; 1296 FILE_PTR : REF FILE_BLOCK,
; 1297 VALUES : REF VNPVAL_BLOCK;
; 1298
; 1299 LOCAL
; 1300 R0,
; 1301 R1,
; 1302 R2,
; 1303 SCAN_DONE,
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 72
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (14)
; 1304 TEMP,
; 1305 RESULT;
; 1306
; 1307 IF (DEBUG GEQ 2)
; 1308 THEN
; 1309 BEGIN !DEBUG
; 1310 PCRLF (1);
; 1311 OUTPUT (1, %O'11');
; 1312 OUTSTR (1, UPLIT (%ASCIZ'ALOCB: '));
; 1313 OUTNUM (1, .AMOUNT, 8, 6);
; 1314 OUTSTR (1, UPLIT (%ASCIZ', '));
; 1315 END; !DEBUG
; 1316
; 1317 RESULT = -1;
; 1318 R1 = .AMOUNT; !SIZE OF CORE BUFFER TO ALLOCATE IN BYTES
; 1319 R0 = .VALUES [CRAVL] - 2; !POINT TO ALLOCATION MASK WORD
; 1320 R1 = .R1 + GETWRD (.FILE_PTR, .R0); !ROUND TO NEXT BOUNDRY
; 1321 R1 = .R1 AND ( NOT (GETWRD (.FILE_PTR, .R0))); !CLEAR EXCESS
; 1322 R0 = .R0 + 2;
; 1323
; 1324 IF (.R1 NEQ 0)
; 1325 THEN
; 1326 !ASSUME ZERO LENGTH BLOCK; IF EQ ZERO LENGTH REQUEST
; 1327 BEGIN
; 1328 SCAN_DONE = 0;
; 1329
; 1330 WHILE (.SCAN_DONE EQL 0) DO
; 1331 BEGIN
; 1332 R2 = .R0; !SAVE ADDRESS OF CURRENT BLOCK
; 1333 R0 = GETWRD (.FILE_PTR, .R2); !GET ADDRESS OF NEXT BLOCK
; 1334
; 1335 IF (.R0 EQL 0)
; 1336 THEN
; 1337 SCAN_DONE = -1 !IF EQ END OF CHAIN
; 1338 ELSE
; 1339 BEGIN
; 1340 TEMP = GETWRD (.FILE_PTR, .R0 + 2);
; 1341
; 1342 IF (.TEMP GEQ .R1)
; 1343 THEN
; 1344 !BLOCK BIG ENOUGH? IF LO NO
; 1345 BEGIN
; 1346
; 1347 IF (.TEMP GTR .R1)
; 1348 THEN
; 1349 !IF EQ, BLOCK IS EXACT SIZE
; 1350 BEGIN
; 1351 PUTWRD (.FILE_PTR, .R0 + 2, .TEMP - .R1); !REDUCE SIZE OF FREE BLOCK
; 1352 R0 = .R0 + .TEMP - .R1; !CALCULATE ADDRESS OF ALLOCATED BLOCK
; 1353 END !.TEMP GTR .R1
; 1354 ELSE
; 1355 PUTWRD (.FILE_PTR, .R2, GETWRD (.FILE_PTR, .R0)); !LINK AROUND ALLOCATED BLOCK
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 73
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (14)
; 1356
; 1357 SCAN_DONE = 1;
; 1358 END; !.TEMP GEQ .R1
; 1359
; 1360 END; !.R0 EQL 0
; 1361
; 1362 END; !.SCAN_DONE EQL 0
; 1363
; 1364 END !.R1 NEQ 0
; 1365 ELSE
; 1366 SCAN_DONE = -1;
; 1367
; 1368 IF (.SCAN_DONE GTR 0) THEN RESULT = .R0;
; 1369
; 1370 IF (.RESULT LSS 0) THEN ERRMSG (0, 26, ROUTINE_NAME, FILE_PTR [FILE_NAME], .AMOUNT, 0, 0);
; 1371
; 1372 IF (DEBUG GEQ 2)
; 1373 THEN
; 1374 BEGIN !DEBUG
; 1375 OUTSTR (1, UPLIT (%ASCIZ', '));
; 1376 OUTNUM (1, .RESULT, 8, 6);
; 1377 END; !DEBUG
; 1378
; 1379 .RESULT
; 1380 END; !OF ALOCB
P.AGL: BYTE (7)"A","L","O","C","B" ; ALOCB 403530' 101 114 117 103 102
BYTE (7)000,000,000,000,000 ; 403531' 000 000 000 000 000
P.AGM: BYTE (7)"A","L","O","C","B" ; ALOCB 403532' 101 114 117 103 102
BYTE (7)":"," ",000,000,000 ; : 403533' 072 040 000 000 000
P.AGN: BYTE (7)","," ",000,000,000 ; , 403534' 054 040 000 000 000
P.AGO: BYTE (7)","," ",000,000,000 ; , 403535' 054 040 000 000 000
ROUTINE_NAME= P.AGL ; 000000 403530'
ALOCB:: PUSH SP,AC0 ; SP,AC0 403536' 261 17 0 00 000000 1252
PUSH SP,AC10 ; SP,AC10 403537' 261 17 0 00 000010
PUSH SP,AC11 ; SP,AC11 403540' 261 17 0 00 000011
PUSH SP,AC12 ; SP,AC12 403541' 261 17 0 00 000012
PUSH SP,AC13 ; SP,AC13 403542' 261 17 0 00 000013
PUSH SP,AC14 ; SP,AC14 403543' 261 17 0 00 000014
PUSH SP,AC16 ; SP,AC16 403544' 261 17 0 00 000016
ADJSP SP,1 ; SP,1 403545' 105 17 0 00 000001
SETO AC14, ; RESULT, 403546' 474 14 0 00 000000 1317
MOVE AC11,-13(SP) ; R1,AMOUNT 403547' 200 11 0 17 777765 1318
MOVE AC1,-11(SP) ; AC1,VALUES 403550' 200 01 0 17 777767 1319
HLRZ AC12,5(AC1) ; R0,5(AC1) 403551' 554 12 0 01 000005
SUBI AC12,2 ; R0,2 403552' 275 12 0 00 000002
MOVE AC16,-14(SP) ; AC16,FILE_PTR 403553' 200 16 0 17 777764 1320
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 74
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (14)
PUSH SP,AC16 ; SP,AC16 403554' 261 17 0 00 000016
PUSH SP,AC12 ; SP,R0 403555' 261 17 0 00 000012
PUSHJ SP,GETWRD ; SP,GETWRD 403556' 260 17 0 00 403201'
ADD AC11,AC1 ; R1,AC1 403557' 270 11 0 00 000001
MOVEM AC16,-1(SP) ; AC16,-1(SP) 403560' 202 16 0 17 777777 1321
MOVEM AC12,0(SP) ; R0,0(SP) 403561' 202 12 0 17 000000
PUSHJ SP,GETWRD ; SP,GETWRD 403562' 260 17 0 00 403201'
ANDCM AC11,AC1 ; R1,AC1 403563' 420 11 0 00 000001
ADDI AC12,2 ; R0,2 403564' 271 12 0 00 000002 1322
JUMPE AC11,L.84 ; R1,L.84 403565' 322 11 0 00 403643' 1324
SETZ AC0, ; SCAN_DONE, 403566' 400 00 0 00 000000 1328
L.79: JUMPN AC0,L.85 ; SCAN_DONE,L.85 403567' 326 00 0 00 403644' 1330
MOVEM AC12,-2(SP) ; R0,R2 403570' 202 12 0 17 777776 1332
MOVEM AC16,-1(SP) ; AC16,-1(SP) 403571' 202 16 0 17 777777 1333
MOVE AC1,-2(SP) ; AC1,R2 403572' 200 01 0 17 777776
MOVEM AC1,0(SP) ; AC1,0(SP) 403573' 202 01 0 17 000000
PUSHJ SP,GETWRD ; SP,GETWRD 403574' 260 17 0 00 403201'
MOVE AC12,AC1 ; R0,AC1 403575' 200 12 0 00 000001
JUMPN AC12,L.80 ; R0,L.80 403576' 326 12 0 00 403601' 1335
SETO AC0, ; SCAN_DONE, 403577' 474 00 0 00 000000 1337
JRST L.79 ; L.79 403600' 254 00 0 00 403567' 1335
L.80: MOVEM AC16,0(SP) ; AC16,0(SP) 403601' 202 16 0 17 000000 1340
MOVE AC13,AC12 ; AC13,R0 403602' 200 13 0 00 000012
ADDI AC13,2 ; AC13,2 403603' 271 13 0 00 000002
PUSH SP,AC13 ; SP,AC13 403604' 261 17 0 00 000013
PUSHJ SP,GETWRD ; SP,GETWRD 403605' 260 17 0 00 403201'
MOVE AC10,AC1 ; TEMP,AC1 403606' 200 10 0 00 000001
CAMGE AC10,AC11 ; TEMP,R1 403607' 315 10 0 00 000011 1342
JRST L.83 ; L.83 403610' 254 00 0 00 403641'
CAMG AC10,AC11 ; TEMP,R1 403611' 317 10 0 00 000011 1347
JRST L.81 ; L.81 403612' 254 00 0 00 403626'
MOVEM AC16,-1(SP) ; AC16,-1(SP) 403613' 202 16 0 17 777777 1351
MOVEM AC13,0(SP) ; AC13,0(SP) 403614' 202 13 0 17 000000
MOVE AC1,AC10 ; AC1,TEMP 403615' 200 01 0 00 000010
SUB AC1,AC11 ; AC1,R1 403616' 274 01 0 00 000011
PUSH SP,AC1 ; SP,AC1 403617' 261 17 0 00 000001
PUSHJ SP,PUTWRD ; SP,PUTWRD 403620' 260 17 0 00 403414'
MOVE AC1,AC12 ; AC1,R0 403621' 200 01 0 00 000012 1352
ADD AC1,AC10 ; AC1,TEMP 403622' 270 01 0 00 000010
MOVE AC12,AC1 ; R0,AC1 403623' 200 12 0 00 000001
SUB AC12,AC11 ; R0,R1 403624' 274 12 0 00 000011
JRST L.82 ; L.82 403625' 254 00 0 00 403637' 1347
L.81: MOVEM AC16,-1(SP) ; AC16,-1(SP) 403626' 202 16 0 17 777777 1355
MOVE AC1,-3(SP) ; AC1,R2 403627' 200 01 0 17 777775
MOVEM AC1,0(SP) ; AC1,0(SP) 403630' 202 01 0 17 000000
PUSH SP,AC16 ; SP,AC16 403631' 261 17 0 00 000016
PUSH SP,AC12 ; SP,R0 403632' 261 17 0 00 000012
PUSHJ SP,GETWRD ; SP,GETWRD 403633' 260 17 0 00 403201'
ADJSP SP,-1 ; SP,-1 403634' 105 17 0 00 777777
MOVEM AC1,0(SP) ; AC1,0(SP) 403635' 202 01 0 17 000000
PUSHJ SP,PUTWRD ; SP,PUTWRD 403636' 260 17 0 00 403414'
L.82: MOVEI AC0,1 ; SCAN_DONE,1 403637' 201 00 0 00 000001 1357
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 75
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (14)
ADJSP SP,-1 ; SP,-1 403640' 105 17 0 00 777777 1345
L.83: ADJSP SP,-1 ; SP,-1 403641' 105 17 0 00 777777 1339
JRST L.79 ; L.79 403642' 254 00 0 00 403567' 1330
L.84: SETO AC0, ; SCAN_DONE, 403643' 474 00 0 00 000000 1366
L.85: JUMPLE AC0,L.86 ; SCAN_DONE,L.86 403644' 323 00 0 00 403646' 1368
MOVE AC14,AC12 ; RESULT,R0 403645' 200 14 0 00 000012
L.86: JUMPGE AC14,L.87 ; RESULT,L.87 403646' 325 14 0 00 403661' 1370
SETZM 0(SP) ; 0(SP) 403647' 402 00 0 17 000000
PUSH SP,C.176 ; SP,[32] 403650' 261 17 0 00 403674'
PUSH SP,C.177 ; SP,[0,,ROUTINE_NAME] 403651' 261 17 0 00 403675'
ADDI AC16,2 ; AC16,2 403652' 271 16 0 00 000002
PUSH SP,AC16 ; SP,AC16 403653' 261 17 0 00 000016
PUSH SP,-20(SP) ; SP,AMOUNT 403654' 261 17 0 17 777760
PUSH SP,C.5 ; SP,[0] 403655' 261 17 0 00 400166'
PUSH SP,C.5 ; SP,[0] 403656' 261 17 0 00 400166'
PUSHJ SP,ERRMSG ; SP,ERRMSG 403657' 260 17 0 00 000000*
ADJSP SP,-6 ; SP,-6 403660' 105 17 0 00 777772
L.87: ADJSP SP,-2 ; SP,-2 403661' 105 17 0 00 777776 1290
MOVE AC1,AC14 ; AC1,RESULT 403662' 200 01 0 00 000014 1252
ADJSP SP,-1 ; SP,-1 403663' 105 17 0 00 777777
POP SP,AC16 ; SP,AC16 403664' 262 17 0 00 000016
POP SP,AC14 ; SP,AC14 403665' 262 17 0 00 000014
POP SP,AC13 ; SP,AC13 403666' 262 17 0 00 000013
POP SP,AC12 ; SP,AC12 403667' 262 17 0 00 000012
POP SP,AC11 ; SP,AC11 403670' 262 17 0 00 000011
POP SP,AC10 ; SP,AC10 403671' 262 17 0 00 000010
POP SP,AC0 ; SP,AC0 403672' 262 17 0 00 000000
POPJ SP, ; SP, 403673' 263 17 0 00 000000
C.176: EXP 32 ; 32 403674' 000000 000032
C.177: XWD 0,ROUTINE_NAME ; 0,ROUTINE_NAME 403675' 000000 403530'
; Routine Size: 96 words
; 1381
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 76
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (15)
; 1382 GLOBAL ROUTINE DEACB (FILE_PTR, LOCN, AMOUNT, VALUES) : NOVALUE = !DEALLOCATE PDP-11 CORE
; 1383
; 1384 !++
; 1385 ! FUNCTIONAL DESCRIPTION:
; 1386 !
; 1387 ! DEALLOCATE SPACE FROM THE PDP-11'S SYSTEM POOL
; 1388 !
; 1389 ! FORMAL PARAMETERS:
; 1390 !
; 1391 ! FILE_PTR - FILE BLOCK WHICH CONTAINS POINTERS TO THE IMAGE
; 1392 ! AND SYMBOL TABLE
; 1393 ! LOCN - THE STARTING ADDRESS OF THE SPACE TO BE DEALLOCATED
; 1394 ! AMOUNT - THE NUMBER OF BYTES TO FREE
; 1395 ! VALUES - BLOCK WHICH HOLDS SYMBOL VALUES
; 1396 !
; 1397 ! IMPLICIT INPUTS:
; 1398 !
; 1399 ! NONE
; 1400 !
; 1401 ! IMPLICIT OUTPUTS:
; 1402 !
; 1403 ! MODIFIES THE CORE IMAGE TO DEALLOCATE THE SPACE
; 1404 !
; 1405 ! ROUTINE VALUE:
; 1406 !
; 1407 ! NONE
; 1408 !
; 1409 ! SIDE EFFECTS
; 1410 !
; 1411 ! NONE
; 1412 !
; 1413 !--
; 1414
; 1415 BEGIN
; 1416
; 1417 BIND
; 1418 ROUTINE_NAME = UPLIT (%ASCIZ'DEACB');
; 1419
; 1420 MAP
; 1421 FILE_PTR : REF FILE_BLOCK,
; 1422 VALUES : REF VNPVAL_BLOCK;
; 1423
; 1424 LOCAL
; 1425 R0,
; 1426 R1,
; 1427 R2,
; 1428 R3,
; 1429 SAVE,
; 1430 SCAN_DONE,
; 1431 TEMP;
; 1432
; 1433 IF (DEBUG GEQ 2)
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 77
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (15)
; 1434 THEN
; 1435 BEGIN !DEBUG
; 1436 PCRLF (1);
; 1437 OUTPUT (1, %O'11');
; 1438 OUTSTR (1, UPLIT (%ASCIZ'DEACB: '));
; 1439 OUTNUM (1, .LOCN, 8, 6);
; 1440 OUTSTR (1, UPLIT (%ASCIZ', '));
; 1441 OUTNUM (1, .AMOUNT, 8, 6);
; 1442 END; !DEBUG
; 1443
; 1444 R0 = .LOCN; !ADDRESS OF STORAGE TO FREE
; 1445 R1 = .AMOUNT; !NUMBER OF BYTES TO FREE
; 1446 R3 = .VALUES [CRAVL] - 2; !POINT TO ALLOCATION MASK WORD
; 1447 TEMP = GETWRD (.FILE_PTR, .R3); !ROUND TO NEXT BOUNDRY
; 1448 R1 = .R1 + .TEMP;
; 1449 R1 = .R1 AND ( NOT .TEMP);
; 1450 R3 = .R3 + 2;
; 1451
; 1452 IF (.R1 NEQ 0) !IF EQ NO BLOCK TO RELEASE
; 1453 THEN
; 1454 BEGIN
; 1455 SCAN_DONE = 0;
; 1456
; 1457 WHILE (.SCAN_DONE EQL 0) DO
; 1458 BEGIN
; 1459 R2 = .R3; !SAVE ADDRESS OF CURRENT BLOCK
; 1460 R3 = GETWRD (.FILE_PTR, .R3); !GET ADDRESS OF NEXT BLOCK
; 1461
; 1462 IF (.R3 EQL 0) !IF EQ END OF CHAIN
; 1463 THEN
; 1464 SCAN_DONE = 1
; 1465 ELSE
; 1466
; 1467 IF (.R0 LSS .R3) !BLOCK GO HERE?
; 1468 THEN
; 1469 SCAN_DONE = 1; !IF HIS NO
; 1470
; 1471 END; !OF WHILE SCAN_DONE
; 1472
; 1473 PUTWRD (.FILE_PTR, .R0, .R3); !ASSUME NO AGLOMERATION
; 1474 SAVE = .R0; !CALCULATE ADDRESS OF NEW BLOCK
; 1475 SAVE = .SAVE + .R1;
; 1476
; 1477 IF (.SAVE GEQ %O'200000') !IF CS ILLEGAL DEALLOCATION
; 1478 THEN
; 1479 ERRMSG (0, 27, ROUTINE_NAME, FILE_PTR [FILE_NAME], .AMOUNT, .LOCN, 1)
; 1480 ELSE
; 1481 BEGIN
; 1482
; 1483 IF (.R0 LSS .VALUES [POOL]) ! DEALLOCATION BEFORE FRONT OF LIST?
; 1484 THEN !IF LO, YES
; 1485 ERRMSG (0, 27, ROUTINE_NAME, FILE_PTR [FILE_NAME], .AMOUNT, .LOCN, 2)
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 78
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (15)
; 1486 ELSE
; 1487 BEGIN
; 1488 TEMP = GETWRD (.FILE_PTR, .VALUES [EXSIZ]);
; 1489
; 1490 IF (.SAVE GTR .TEMP) !DEALLOCATION PAST END OF POOL?
; 1491 THEN !IF HI YES
; 1492 ERRMSG (0, 27, ROUTINE_NAME, FILE_PTR [FILE_NAME], .AMOUNT, .LOCN, 3)
; 1493 ELSE
; 1494 BEGIN
; 1495
; 1496 IF ((.R3 LSS .SAVE) !EQUAL TO NEXT IN CHAIN?
; 1497 AND (.R3 NEQ 0)) !INSERT AT END OF LIST?
; 1498 THEN !IF EQ YES, OK
; 1499 ERRMSG (0, 27, ROUTINE_NAME, FILE_PTR [FILE_NAME], .AMOUNT, .LOCN, 4)
; 1500 ELSE
; 1501 BEGIN
; 1502
; 1503 IF (.R3 EQL .SAVE)
; 1504 THEN
; 1505 !IF NE NO
; 1506 BEGIN
; 1507 TEMP = GETWRD (.FILE_PTR, .R3); !MOVE LINK WORD TO BLOCK RELEASED
; 1508 R3 = .R3 + 2;
; 1509 PUTWRD (.FILE_PTR, .R0, .TEMP);
; 1510 TEMP = GETWRD (.FILE_PTR, .R3); !MERGE TWO BLOCKS
; 1511 R1 = .R1 + .TEMP;
; 1512 END;
; 1513
; 1514 SAVE = .R2; !SAVE ADDRESS OF PREVIOUS BLOCK
; 1515 PUTWRD (.FILE_PTR, .R2, .R0); !ASSUME NO AGLOMERATION
; 1516 R2 = .R2 + 2;
; 1517 TEMP = GETWRD (.FILE_PTR, .R2); !CALCULATE ADDRESS OF NEXT BLOCK
; 1518 SAVE = .SAVE + .TEMP;
; 1519
; 1520 IF (.R0 LSS .SAVE) !EQUAL TO BLOCK BEING RELEASED?
; 1521 THEN !IF HIS, NO OVERLAP
; 1522 ERRMSG (0, 27, ROUTINE_NAME, FILE_PTR [FILE_NAME], .AMOUNT, .LOCN, 5)
; 1523 ELSE
; 1524 BEGIN
; 1525
; 1526 IF (.R0 EQL .SAVE) !IF NE NO
; 1527 THEN
; 1528 BEGIN
; 1529 R1 = .R1 + GETWRD (.FILE_PTR, .R2); !MERGE TWO BLOCKS
; 1530 TEMP = GETWRD (.FILE_PTR, .R0); !MOVE LINK WORD TO PREVIOUS BLOCK
; 1531 R2 = .R2 - 2;
; 1532 PUTWRD (.FILE_PTR, .R2, .TEMP);
; 1533 R0 = .R2; !SET NEW ADDRESS OF BLOCK
; 1534 END;
; 1535
; 1536 PUTWRD (.FILE_PTR, .R0 + 2, .R1); !SET SIZE OF BLOCK RELEASED
; 1537 END;
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 79
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (15)
; 1538
; 1539 END;
; 1540
; 1541 END;
; 1542
; 1543 END;
; 1544
; 1545 END;
; 1546
; 1547 END;
; 1548
; 1549 END; !OF DEACB
P.AGP: BYTE (7)"D","E","A","C","B" ; DEACB 403676' 104 105 101 103 102
BYTE (7)000,000,000,000,000 ; 403677' 000 000 000 000 000
P.AGQ: BYTE (7)"D","E","A","C","B" ; DEACB 403700' 104 105 101 103 102
BYTE (7)":"," ",000,000,000 ; : 403701' 072 040 000 000 000
P.AGR: BYTE (7)","," ",000,000,000 ; , 403702' 054 040 000 000 000
ROUTINE_NAME= P.AGP ; 000000 403676'
DEACB:: PUSH SP,AC0 ; SP,AC0 403703' 261 17 0 00 000000 1382
PUSH SP,AC10 ; SP,AC10 403704' 261 17 0 00 000010
PUSH SP,AC11 ; SP,AC11 403705' 261 17 0 00 000011
PUSH SP,AC12 ; SP,AC12 403706' 261 17 0 00 000012
PUSH SP,AC13 ; SP,AC13 403707' 261 17 0 00 000013
PUSH SP,AC14 ; SP,AC14 403710' 261 17 0 00 000014
PUSH SP,AC16 ; SP,AC16 403711' 261 17 0 00 000016
ADJSP SP,3 ; SP,3 403712' 105 17 0 00 000003
MOVE AC0,-15(SP) ; AC0,LOCN 403713' 200 00 0 17 777763 1444
MOVEM AC0,-2(SP) ; AC0,-2(SP) 403714' 202 00 0 17 777776
MOVE AC14,-2(SP) ; R0,-2(SP) 403715' 200 14 0 17 777776
MOVE AC0,-14(SP) ; AC0,AMOUNT 403716' 200 00 0 17 777764 1445
MOVEM AC0,-1(SP) ; AC0,-1(SP) 403717' 202 00 0 17 777777
MOVE AC16,-1(SP) ; R1,-1(SP) 403720' 200 16 0 17 777777
MOVE AC10,-13(SP) ; AC10,VALUES 403721' 200 10 0 17 777765 1446
HLRZ AC11,5(AC10) ; R3,5(AC10) 403722' 554 11 0 10 000005
SUBI AC11,2 ; R3,2 403723' 275 11 0 00 000002
MOVE AC0,-16(SP) ; AC0,FILE_PTR 403724' 200 00 0 17 777762 1447
MOVEM AC0,0(SP) ; AC0,0(SP) 403725' 202 00 0 17 000000
PUSH SP,0(SP) ; SP,0(SP) 403726' 261 17 0 17 000000
PUSH SP,AC11 ; SP,R3 403727' 261 17 0 00 000011
PUSHJ SP,GETWRD ; SP,GETWRD 403730' 260 17 0 00 403201'
MOVE AC12,AC1 ; TEMP,AC1 403731' 200 12 0 00 000001
ADD AC16,AC12 ; R1,TEMP 403732' 270 16 0 00 000012 1448
ANDCM AC16,AC12 ; R1,TEMP 403733' 420 16 0 00 000012 1449
ADDI AC11,2 ; R3,2 403734' 271 11 0 00 000002 1450
JUMPE AC16,L.101 ; R1,L.101 403735' 322 16 0 00 404164' 1452
SETZ AC0, ; SCAN_DONE, 403736' 400 00 0 00 000000 1455
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 80
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (15)
L.88: JUMPN AC0,L.90 ; SCAN_DONE,L.90 403737' 326 00 0 00 403753' 1457
MOVE AC13,AC11 ; R2,R3 403740' 200 13 0 00 000011 1459
MOVE AC1,-2(SP) ; AC1,-2(SP) 403741' 200 01 0 17 777776 1460
MOVEM AC1,-1(SP) ; AC1,-1(SP) 403742' 202 01 0 17 777777
MOVEM AC11,0(SP) ; R3,0(SP) 403743' 202 11 0 17 000000
PUSHJ SP,GETWRD ; SP,GETWRD 403744' 260 17 0 00 403201'
MOVE AC11,AC1 ; R3,AC1 403745' 200 11 0 00 000001
JUMPE AC11,L.89 ; R3,L.89 403746' 322 11 0 00 403751' 1462
CAML AC14,AC11 ; R0,R3 403747' 311 14 0 00 000011 1467
JRST L.88 ; L.88 403750' 254 00 0 00 403737'
L.89: MOVEI AC0,1 ; SCAN_DONE,1 403751' 201 00 0 00 000001 1469
JRST L.88 ; L.88 403752' 254 00 0 00 403737' 1467
L.90: MOVE AC0,-2(SP) ; AC0,-2(SP) 403753' 200 00 0 17 777776 1473
MOVEM AC0,-1(SP) ; AC0,-1(SP) 403754' 202 00 0 17 777777
MOVEM AC14,0(SP) ; R0,0(SP) 403755' 202 14 0 17 000000
PUSH SP,AC11 ; SP,R3 403756' 261 17 0 00 000011
PUSHJ SP,PUTWRD ; SP,PUTWRD 403757' 260 17 0 00 403414'
MOVE AC0,AC14 ; SAVE,R0 403760' 200 00 0 00 000014 1474
ADD AC0,AC16 ; SAVE,R1 403761' 270 00 0 00 000016 1475
CAIGE AC0,200000 ; SAVE,200000 403762' 305 00 0 00 200000 1477
JRST L.91 ; L.91 403763' 254 00 0 00 403776'
SETZM 0(SP) ; 0(SP) 403764' 402 00 0 17 000000 1479
PUSH SP,C.178 ; SP,[33] 403765' 261 17 0 00 404176'
PUSH SP,C.179 ; SP,[0,,ROUTINE_NAME] 403766' 261 17 0 00 404177'
MOVE AC1,-5(SP) ; AC1,-5(SP) 403767' 200 01 0 17 777773
ADDI AC1,2 ; AC1,2 403770' 271 01 0 00 000002
PUSH SP,AC1 ; SP,AC1 403771' 261 17 0 00 000001
PUSH SP,-7(SP) ; SP,-7(SP) 403772' 261 17 0 17 777771
PUSH SP,-11(SP) ; SP,-11(SP) 403773' 261 17 0 17 777767
PUSH SP,C.6 ; SP,[1] 403774' 261 17 0 00 400167'
JRST L.92 ; L.92 403775' 254 00 0 00 404012'
L.91: HRRZ AC1,7(AC10) ; AC1,7(AC10) 403776' 550 01 0 10 000007 1483
CAML AC14,AC1 ; R0,AC1 403777' 311 14 0 00 000001
JRST L.93 ; L.93 404000' 254 00 0 00 404015'
SETZM 0(SP) ; 0(SP) 404001' 402 00 0 17 000000 1485
PUSH SP,C.178 ; SP,[33] 404002' 261 17 0 00 404176'
PUSH SP,C.179 ; SP,[0,,ROUTINE_NAME] 404003' 261 17 0 00 404177'
MOVE AC1,-5(SP) ; AC1,-5(SP) 404004' 200 01 0 17 777773
ADDI AC1,2 ; AC1,2 404005' 271 01 0 00 000002
PUSH SP,AC1 ; SP,AC1 404006' 261 17 0 00 000001
PUSH SP,-7(SP) ; SP,-7(SP) 404007' 261 17 0 17 777771
PUSH SP,-11(SP) ; SP,-11(SP) 404010' 261 17 0 17 777767
PUSH SP,C.8 ; SP,[2] 404011' 261 17 0 00 400171'
L.92: PUSHJ SP,ERRMSG ; SP,ERRMSG 404012' 260 17 0 00 000000*
ADJSP SP,-3 ; SP,-3 404013' 105 17 0 00 777775
JRST L.100 ; L.100 404014' 254 00 0 00 404163' 1483
L.93: MOVE AC1,-3(SP) ; AC1,-3(SP) 404015' 200 01 0 17 777775 1488
MOVEM AC1,0(SP) ; AC1,0(SP) 404016' 202 01 0 17 000000
HRRZ AC1,6(AC10) ; AC1,6(AC10) 404017' 550 01 0 10 000006
PUSH SP,AC1 ; SP,AC1 404020' 261 17 0 00 000001
PUSHJ SP,GETWRD ; SP,GETWRD 404021' 260 17 0 00 403201'
MOVE AC12,AC1 ; TEMP,AC1 404022' 200 12 0 00 000001
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 81
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (15)
CAMG AC0,AC12 ; SAVE,TEMP 404023' 317 00 0 00 000012 1490
JRST L.94 ; L.94 404024' 254 00 0 00 404037'
SETZM 0(SP) ; 0(SP) 404025' 402 00 0 17 000000 1492
PUSH SP,C.178 ; SP,[33] 404026' 261 17 0 00 404176'
PUSH SP,C.179 ; SP,[0,,ROUTINE_NAME] 404027' 261 17 0 00 404177'
MOVE AC1,-6(SP) ; AC1,-6(SP) 404030' 200 01 0 17 777772
ADDI AC1,2 ; AC1,2 404031' 271 01 0 00 000002
PUSH SP,AC1 ; SP,AC1 404032' 261 17 0 00 000001
PUSH SP,-10(SP) ; SP,-10(SP) 404033' 261 17 0 17 777770
PUSH SP,-12(SP) ; SP,-12(SP) 404034' 261 17 0 17 777766
PUSH SP,C.180 ; SP,[3] 404035' 261 17 0 00 404200'
JRST L.97 ; L.97 404036' 254 00 0 00 404127'
L.94: CAML AC11,AC0 ; R3,SAVE 404037' 311 11 0 00 000000 1496
JRST L.95 ; L.95 404040' 254 00 0 00 404054'
JUMPE AC11,L.95 ; R3,L.95 404041' 322 11 0 00 404054' 1497
SETZM 0(SP) ; 0(SP) 404042' 402 00 0 17 000000 1499
PUSH SP,C.178 ; SP,[33] 404043' 261 17 0 00 404176'
PUSH SP,C.179 ; SP,[0,,ROUTINE_NAME] 404044' 261 17 0 00 404177'
MOVE AC1,-6(SP) ; AC1,-6(SP) 404045' 200 01 0 17 777772
ADDI AC1,2 ; AC1,2 404046' 271 01 0 00 000002
PUSH SP,AC1 ; SP,AC1 404047' 261 17 0 00 000001
PUSH SP,-10(SP) ; SP,-10(SP) 404050' 261 17 0 17 777770
PUSH SP,-12(SP) ; SP,-12(SP) 404051' 261 17 0 17 777766
PUSH SP,C.181 ; SP,[4] 404052' 261 17 0 00 404201'
JRST L.97 ; L.97 404053' 254 00 0 00 404127'
L.95: CAME AC11,AC0 ; R3,SAVE 404054' 312 11 0 00 000000 1503
JRST L.96 ; L.96 404055' 254 00 0 00 404077'
MOVE AC1,-4(SP) ; AC1,-4(SP) 404056' 200 01 0 17 777774 1507
MOVEM AC1,-1(SP) ; AC1,-1(SP) 404057' 202 01 0 17 777777
MOVEM AC11,0(SP) ; R3,0(SP) 404060' 202 11 0 17 000000
PUSHJ SP,GETWRD ; SP,GETWRD 404061' 260 17 0 00 403201'
MOVE AC12,AC1 ; TEMP,AC1 404062' 200 12 0 00 000001
ADDI AC11,2 ; R3,2 404063' 271 11 0 00 000002 1508
MOVE AC1,-4(SP) ; AC1,-4(SP) 404064' 200 01 0 17 777774 1509
MOVEM AC1,-2(SP) ; AC1,-2(SP) 404065' 202 01 0 17 777776
MOVEM AC14,-1(SP) ; R0,-1(SP) 404066' 202 14 0 17 777777
MOVEM AC12,0(SP) ; TEMP,0(SP) 404067' 202 12 0 17 000000
PUSHJ SP,PUTWRD ; SP,PUTWRD 404070' 260 17 0 00 403414'
MOVE AC1,-4(SP) ; AC1,-4(SP) 404071' 200 01 0 17 777774 1510
MOVEM AC1,-1(SP) ; AC1,-1(SP) 404072' 202 01 0 17 777777
MOVEM AC11,0(SP) ; R3,0(SP) 404073' 202 11 0 17 000000
PUSHJ SP,GETWRD ; SP,GETWRD 404074' 260 17 0 00 403201'
MOVE AC12,AC1 ; TEMP,AC1 404075' 200 12 0 00 000001
ADD AC16,AC12 ; R1,TEMP 404076' 270 16 0 00 000012 1511
L.96: MOVE AC0,AC13 ; SAVE,R2 404077' 200 00 0 00 000013 1514
MOVE AC1,-4(SP) ; AC1,-4(SP) 404100' 200 01 0 17 777774 1515
MOVEM AC1,-2(SP) ; AC1,-2(SP) 404101' 202 01 0 17 777776
MOVEM AC13,-1(SP) ; R2,-1(SP) 404102' 202 13 0 17 777777
MOVEM AC14,0(SP) ; R0,0(SP) 404103' 202 14 0 17 000000
PUSHJ SP,PUTWRD ; SP,PUTWRD 404104' 260 17 0 00 403414'
ADDI AC13,2 ; R2,2 404105' 271 13 0 00 000002 1516
MOVE AC1,-4(SP) ; AC1,-4(SP) 404106' 200 01 0 17 777774 1517
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 82
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (15)
MOVEM AC1,-1(SP) ; AC1,-1(SP) 404107' 202 01 0 17 777777
MOVEM AC13,0(SP) ; R2,0(SP) 404110' 202 13 0 17 000000
PUSHJ SP,GETWRD ; SP,GETWRD 404111' 260 17 0 00 403201'
MOVE AC12,AC1 ; TEMP,AC1 404112' 200 12 0 00 000001
ADD AC0,AC12 ; SAVE,TEMP 404113' 270 00 0 00 000012 1518
CAML AC14,AC0 ; R0,SAVE 404114' 311 14 0 00 000000 1520
JRST L.98 ; L.98 404115' 254 00 0 00 404132'
SETZM 0(SP) ; 0(SP) 404116' 402 00 0 17 000000 1522
PUSH SP,C.178 ; SP,[33] 404117' 261 17 0 00 404176'
PUSH SP,C.179 ; SP,[0,,ROUTINE_NAME] 404120' 261 17 0 00 404177'
MOVE AC0,-6(SP) ; AC0,-6(SP) 404121' 200 00 0 17 777772
ADDI AC0,2 ; AC0,2 404122' 271 00 0 00 000002
PUSH SP,AC0 ; SP,AC0 404123' 261 17 0 00 000000
PUSH SP,-10(SP) ; SP,-10(SP) 404124' 261 17 0 17 777770
PUSH SP,-12(SP) ; SP,-12(SP) 404125' 261 17 0 17 777766
PUSH SP,C.182 ; SP,[5] 404126' 261 17 0 00 404202'
L.97: PUSHJ SP,ERRMSG ; SP,ERRMSG 404127' 260 17 0 00 000000*
ADJSP SP,-4 ; SP,-4 404130' 105 17 0 00 777774
JRST L.100 ; L.100 404131' 254 00 0 00 404163' 1520
L.98: CAME AC14,AC0 ; R0,SAVE 404132' 312 14 0 00 000000 1526
JRST L.99 ; L.99 404133' 254 00 0 00 404155'
MOVE AC0,-4(SP) ; AC0,-4(SP) 404134' 200 00 0 17 777774 1529
MOVEM AC0,-1(SP) ; AC0,-1(SP) 404135' 202 00 0 17 777777
MOVEM AC13,0(SP) ; R2,0(SP) 404136' 202 13 0 17 000000
PUSHJ SP,GETWRD ; SP,GETWRD 404137' 260 17 0 00 403201'
ADD AC16,AC1 ; R1,AC1 404140' 270 16 0 00 000001
MOVE AC0,-4(SP) ; AC0,-4(SP) 404141' 200 00 0 17 777774 1530
MOVEM AC0,-1(SP) ; AC0,-1(SP) 404142' 202 00 0 17 777777
MOVEM AC14,0(SP) ; R0,0(SP) 404143' 202 14 0 17 000000
PUSHJ SP,GETWRD ; SP,GETWRD 404144' 260 17 0 00 403201'
MOVE AC12,AC1 ; TEMP,AC1 404145' 200 12 0 00 000001
SUBI AC13,2 ; R2,2 404146' 275 13 0 00 000002 1531
MOVE AC0,-4(SP) ; AC0,-4(SP) 404147' 200 00 0 17 777774 1532
MOVEM AC0,-2(SP) ; AC0,-2(SP) 404150' 202 00 0 17 777776
MOVEM AC13,-1(SP) ; R2,-1(SP) 404151' 202 13 0 17 777777
MOVEM AC12,0(SP) ; TEMP,0(SP) 404152' 202 12 0 17 000000
PUSHJ SP,PUTWRD ; SP,PUTWRD 404153' 260 17 0 00 403414'
MOVE AC14,AC13 ; R0,R2 404154' 200 14 0 00 000013 1533
L.99: MOVE AC0,-4(SP) ; AC0,-4(SP) 404155' 200 00 0 17 777774 1536
MOVEM AC0,0(SP) ; AC0,0(SP) 404156' 202 00 0 17 000000
ADDI AC14,2 ; R0,2 404157' 271 14 0 00 000002
PUSH SP,AC14 ; SP,R0 404160' 261 17 0 00 000014
PUSH SP,AC16 ; SP,R1 404161' 261 17 0 00 000016
PUSHJ SP,PUTWRD ; SP,PUTWRD 404162' 260 17 0 00 403414'
L.100: ADJSP SP,-4 ; SP,-4 404163' 105 17 0 00 777774 1454
L.101: ADJSP SP,-2 ; SP,-2 404164' 105 17 0 00 777776 1415
ADJSP SP,-3 ; SP,-3 404165' 105 17 0 00 777775 1382
POP SP,AC16 ; SP,AC16 404166' 262 17 0 00 000016
POP SP,AC14 ; SP,AC14 404167' 262 17 0 00 000014
POP SP,AC13 ; SP,AC13 404170' 262 17 0 00 000013
POP SP,AC12 ; SP,AC12 404171' 262 17 0 00 000012
POP SP,AC11 ; SP,AC11 404172' 262 17 0 00 000011
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 83
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (15)
POP SP,AC10 ; SP,AC10 404173' 262 17 0 00 000010
POP SP,AC0 ; SP,AC0 404174' 262 17 0 00 000000
POPJ SP, ; SP, 404175' 263 17 0 00 000000
C.178: EXP 33 ; 33 404176' 000000 000033
C.179: XWD 0,ROUTINE_NAME ; 0,ROUTINE_NAME 404177' 000000 403676'
C.180: EXP 3 ; 3 404200' 000000 000003
C.181: EXP 4 ; 4 404201' 000000 000004
C.182: EXP 5 ; 5 404202' 000000 000005
; Routine Size: 192 words
; 1550
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 84
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (16)
; 1551 GLOBAL ROUTINE M_PCB (KERNEL_FILE, PAR_NAME, PAR_MAIN, PAR_BASE, PAR_TOP, BUSY_FLAGS, STAT_FLAGS,
; 1552 MIN_PCB_LEN, VALUES) = !CREATE A PCB
; 1553
; 1554 !++
; 1555 ! FUNCTIONAL DESCRIPTION:
; 1556 !
; 1557 ! CREATE A PARTITION CONTROL BLOCK (PCB). FILL IN ITS FIELDS
; 1558 ! AND PUT IT ON THE KERNEL'S LIST OF PCBS. THIS ROUTINE WILL
; 1559 ! CREATE EITHER A MAIN PARTITION OR A SUB PARTITION.
; 1560 !
; 1561 ! FORMAL PARAMETERS:
; 1562 !
; 1563 ! KERNEL_FILE - FILE BLOCK FOR THE KERNEL
; 1564 ! PAR_NAME - PARTITION NAME, SIX ASCII CHARACTERS
; 1565 ! PAR_MAIN - MAIN PCB FOR SUB-PARTITION, OR 0 FOR MAIN PARTITION
; 1566 ! PAR_BASE - BASE ADDRESS OF THIS PARTITION
; 1567 ! PAR_TOP - HIGHEST ADDRESS OF THIS PARTITION, OR 0
; 1568 ! BUSY_FLAGS - FLAGS FOR THE P.BUSY WORD
; 1569 ! STAT_FLAGS - FLAGS FOR THE P.STAT WORD
; 1570 ! MIN_PCB_LEN - MINIMUM LENGTH PCB TO CREATE
; 1571 ! VALUES - VALUES READ FROM CETAB.MAC AND THE SYMBOL TABLES
; 1572 !
; 1573 ! IMPLICIT INPUTS:
; 1574 !
; 1575 ! NONE
; 1576 !
; 1577 ! IMPLICIT OUTPUTS:
; 1578 !
; 1579 ! MAY STORE TOP OF PARTITION IN .KERNEL_FILE[FILE_HWM] FOR THE
; 1580 ! SAKE OF THE NEXT CALL TO M_PCB.
; 1581 !
; 1582 ! ROUTINE VALUE:
; 1583 !
; 1584 ! PDP-11 ADDRESS OF THE PCB CREATED
; 1585 !
; 1586 ! SIDE EFFECTS
; 1587 !
; 1588 ! CHANGES THE CORE IMAGE
; 1589 !
; 1590 !--
; 1591
; 1592 BEGIN
; 1593
; 1594 BIND
; 1595 ROUTINE_NAME = UPLIT (%ASCIZ'M_PCB');
; 1596
; 1597 MAP
; 1598 KERNEL_FILE : REF FILE_BLOCK,
; 1599 VALUES : REF VNPVAL_BLOCK;
; 1600
; 1601 LOCAL
; 1602 PCB_ADDR,
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 85
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (16)
; 1603 HIGH_EXEC_ADDR,
; 1604 FLAGS,
; 1605 TEMP1,
; 1606 TEMP2,
; 1607 DYNAMIC_PAR,
; 1608 R50VAL : VECTOR [4];
; 1609
; 1610 IF (DEBUG GEQ 1)
; 1611 THEN
; 1612 BEGIN !DEBUG
; 1613 PCRLF (1);
; 1614 OUTSTR (1, UPLIT (%ASCIZ'MAKE PCB: '));
; 1615 OUTSTR (1, .PAR_NAME);
; 1616 OUTSTR (1, UPLIT (%ASCIZ', '));
; 1617 OUTNUM (1, .PAR_BASE, 8, 6);
; 1618 OUTSTR (1, UPLIT (%ASCIZ', '));
; 1619 OUTNUM (1, .PAR_TOP, 8, 6);
; 1620 END; !DEBUG
; 1621
; 1622 !
; 1623 ! STORE TOP OF PARTITION IN THE HIGH-WATER-MARK (HWM) CELL.
; 1624 ! IT CAN BE USED AS THE BASE FOR THE NEXT CALL TO M_PCB
; 1625 ! OR AS THE LIMIT FOR WHAT TO WRITE OUT OF THE CORE IMAGE.
; 1626 ! NOTE THAT THE HWM IS ONLY STORED IF THE NEW VALUE IS LARGER THAN
; 1627 ! THE VALUE ALREADY IN THE CELL. THIS IS BECAUSE OF SUB-PARTITIONS
; 1628 ! AND SYSTEM-CONTROLLED PARTITIONS.
; 1629 !
; 1630
; 1631 IF (.KERNEL_FILE [FILE_HWM] LSS (.PAR_TOP OR 63)) THEN KERNEL_FILE [FILE_HWM] = .PAR_TOP OR 63;
; 1632
; 1633 !
; 1634 ! FIND THE FLAGS FROM THIS CORE IMAGE.
; 1635 ! WE NEED THEM TO SUPPORT PLAS.
; 1636 !
; 1637 FLAGS = GETWRD (.KERNEL_FILE, .VALUES [FMASK]);
; 1638 !
; 1639 ! DETERMINE IF THIS IS A DYNAMIC PARTITION
; 1640 ! (THAT IS, IF IT IS A SUB-PARTITION OF A SYSTEM-CONTROLLED PARTITION)
; 1641 !
; 1642
; 1643 IF (.PAR_MAIN EQL 0)
; 1644 THEN
; 1645 DYNAMIC_PAR = 0
; 1646 ELSE
; 1647 BEGIN !SUB-PARTITION
; 1648 DYNAMIC_PAR = 0;
; 1649
; 1650 IF ((GETWRD (.KERNEL_FILE, .PAR_MAIN + .VALUES [P_STAT]) AND .VALUES [PS_SYS]) NEQ 0)
; 1651 THEN
; 1652 DYNAMIC_PAR = 1;
; 1653
; 1654 END;
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 86
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (16)
; 1655
; 1656 !
; 1657 ! NOW ALLOCATE A PARTITION CONTROL BLOCK.
; 1658 !
; 1659 PCB_ADDR = ALOCB (.KERNEL_FILE, MAX (.VALUES [P_LGTH], .MIN_PCB_LEN), 0, .VALUES);
; 1660 !
; 1661 ! NEXT, STORE APPROPRIATE VALUES IN IT
; 1662 !
; 1663 PUTWRD (.KERNEL_FILE, .PCB_ADDR + .VALUES [P_LNK], 0);
; 1664 PUTBYT (.KERNEL_FILE, .PCB_ADDR + .VALUES [P_PRI], 0);
; 1665 PUTBYT (.KERNEL_FILE, .PCB_ADDR + .VALUES [P_IOC], 0);
; 1666 ATOR50 (.PAR_NAME, R50VAL);
; 1667
; 1668 INCR COUNTER FROM 0 TO 3 DO
; 1669 PUTBYT (.KERNEL_FILE, .PCB_ADDR + .VALUES [P_NAM] + .COUNTER, .R50VAL [.COUNTER]);
; 1670
; 1671 PUTWRD (.KERNEL_FILE, .PCB_ADDR + .VALUES [P_SUB], 0);
; 1672
; 1673 IF (.PAR_MAIN NEQ 0)
; 1674 THEN
; 1675 BEGIN !LINK SUB-PARTITION TO PARTITION'S LIST
; 1676 TEMP1 = .PAR_MAIN;
; 1677
; 1678 WHILE (.TEMP1 NEQ 0) DO
; 1679 BEGIN
; 1680 TEMP2 = .TEMP1;
; 1681 TEMP1 = GETWRD (.KERNEL_FILE, .TEMP2 + .VALUES [P_SUB]);
; 1682 END;
; 1683
; 1684 PUTWRD (.KERNEL_FILE, .TEMP2 + .VALUES [P_SUB], .PCB_ADDR);
; 1685 END;
; 1686
; 1687 IF (.PAR_MAIN EQL 0)
; 1688 THEN
; 1689 PUTWRD (.KERNEL_FILE, .PCB_ADDR + .VALUES [P_MAIN], .PCB_ADDR)
; 1690 ELSE
; 1691 PUTWRD (.KERNEL_FILE, .PCB_ADDR + .VALUES [P_MAIN], .PAR_MAIN);
; 1692
; 1693 TEMP1 = .PAR_BASE/64;
; 1694 PUTWRD (.KERNEL_FILE, .PCB_ADDR + .VALUES [P_REL], .TEMP1);
; 1695
; 1696 IF (.PAR_TOP NEQ 0)
; 1697 THEN
; 1698 BEGIN
; 1699 TEMP1 = (.PAR_TOP - .PAR_BASE + 64)/64;
; 1700 PUTWRD (.KERNEL_FILE, .PCB_ADDR + .VALUES [P_SIZE], .TEMP1);
; 1701 END;
; 1702
; 1703 PUTWRD (.KERNEL_FILE, .PCB_ADDR + .VALUES [P_WAIT], 0);
; 1704
; 1705 IF (.DYNAMIC_PAR EQL 0)
; 1706 THEN
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 87
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (16)
; 1707 PUTWRD (.KERNEL_FILE, .PCB_ADDR + .VALUES [P_WAIT] + 2,
; 1708 .PCB_ADDR + .VALUES [P_WAIT])
; 1709 ELSE
; 1710 PUTWRD (.KERNEL_FILE, .PCB_ADDR + .VALUES [P_WAIT] + 2, 0);
; 1711
; 1712 PUTWRD (.KERNEL_FILE, .PCB_ADDR + .VALUES [P_BUSY], .BUSY_FLAGS);
; 1713 PUTWRD (.KERNEL_FILE, .PCB_ADDR + .VALUES [P_TCB], 0);
; 1714 PUTWRD (.KERNEL_FILE, .PCB_ADDR + .VALUES [P_STAT], .STAT_FLAGS);
; 1715 PUTWRD (.KERNEL_FILE, .PCB_ADDR + .VALUES [P_HDR], 0);
; 1716
; 1717 IF (.FLAGS AND .VALUES [FE_PLA])
; 1718 THEN
; 1719 BEGIN ! PLAS SUPPORT
; 1720 PUTWRD (.KERNEL_FILE, .PCB_ADDR + .VALUES [P_PRO], 0);
; 1721 PUTWRD (.KERNEL_FILE, .PCB_ADDR + .VALUES [P_ATT], 0);
; 1722 PUTWRD (.KERNEL_FILE, .PCB_ADDR + .VALUES [P_ATT] + 2, .PCB_ADDR + .VALUES [P_ATT]);
; 1723 END; !OF PLAS SUPPORT
; 1724
; 1725 !
; 1726 ! UNLESS THIS IS A SUB-PARTITION OF A SYSTEM-CONTROLLED PARTITION,
; 1727 ! LINK IT INTO THE KERNEL'S LIST OF PARTITIONS.
; 1728 !
; 1729
; 1730 IF (.DYNAMIC_PAR EQL 0)
; 1731 THEN
; 1732 BEGIN !LINK IT IN
; 1733 TEMP1 = .VALUES [PARHD]; !HEADER OF PARTITION LIST
; 1734
; 1735 WHILE (.TEMP1 NEQ 0) DO
; 1736 BEGIN
; 1737 TEMP2 = .TEMP1;
; 1738 TEMP1 = GETWRD (.KERNEL_FILE, .TEMP2 + .VALUES [P_LNK]);
; 1739 END;
; 1740
; 1741 PUTWRD (.KERNEL_FILE, .TEMP2 + .VALUES [P_LNK], .PCB_ADDR);
; 1742 END;
; 1743
; 1744 !
; 1745 ! WE ARE DONE, RETURN THE PCB ADDRESS
; 1746 !
; 1747 .PCB_ADDR
; 1748 END; !OF M_PCB
P.AGS: BYTE (7)"M","_","P","C","B" ; M_PCB 404203' 115 137 120 103 102
BYTE (7)000,000,000,000,000 ; 404204' 000 000 000 000 000
P.AGT: BYTE (7)"M","A","K","E"," " ; MAKE 404205' 115 101 113 105 040
BYTE (7)"P","C","B",":"," " ; PCB: 404206' 120 103 102 072 040
BYTE (7)000,000,000,000,000 ; 404207' 000 000 000 000 000
P.AGU: BYTE (7)","," ",000,000,000 ; , 404210' 054 040 000 000 000
P.AGV: BYTE (7)","," ",000,000,000 ; , 404211' 054 040 000 000 000
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 88
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (16)
ROUTINE_NAME= P.AGS ; 000000 404203'
M_PCB:: PUSH SP,AC0 ; SP,AC0 404212' 261 17 0 00 000000 1551
PUSH SP,AC10 ; SP,AC10 404213' 261 17 0 00 000010
PUSH SP,AC11 ; SP,AC11 404214' 261 17 0 00 000011
PUSH SP,AC12 ; SP,AC12 404215' 261 17 0 00 000012
PUSH SP,AC13 ; SP,AC13 404216' 261 17 0 00 000013
PUSH SP,AC14 ; SP,AC14 404217' 261 17 0 00 000014
PUSH SP,AC16 ; SP,AC16 404220' 261 17 0 00 000016
ADJSP SP,10 ; SP,10 404221' 105 17 0 00 000010
MOVE AC14,-30(SP) ; AC14,KERNEL_FILE 404222' 200 14 0 17 777750 1631
MOVE AC0,-24(SP) ; AC0,PAR_TOP 404223' 200 00 0 17 777754
MOVEM AC0,-1(SP) ; AC0,-1(SP) 404224' 202 00 0 17 777777
TRO AC0,77 ; AC0,77 404225' 660 00 0 00 000077
CAMLE AC0,16(AC14) ; AC0,16(AC14) 404226' 313 00 0 14 000016
MOVEM AC0,16(AC14) ; AC0,16(AC14) 404227' 202 00 0 14 000016
PUSH SP,AC14 ; SP,AC14 404230' 261 17 0 00 000014 1637
MOVE AC13,-21(SP) ; AC13,VALUES 404231' 200 13 0 17 777757
HLRZ AC0,6(AC13) ; AC0,6(AC13) 404232' 554 00 0 13 000006
PUSH SP,AC0 ; SP,AC0 404233' 261 17 0 00 000000
PUSHJ SP,GETWRD ; SP,GETWRD 404234' 260 17 0 00 403201'
MOVEM AC1,-5(SP) ; AC1,FLAGS 404235' 202 01 0 17 777773
SETZM -4(SP) ; DYNAMIC_PAR 404236' 402 00 0 17 777774 1645
MOVE AC0,-30(SP) ; AC0,PAR_MAIN 404237' 200 00 0 17 777750 1643
SETZM -2(SP) ; -2(SP) 404240' 402 00 0 17 777776
JUMPN AC0,L.102 ; AC0,L.102 404241' 326 00 0 00 404245'
MOVEI AC1,1 ; AC1,1 404242' 201 01 0 00 000001
MOVEM AC1,-2(SP) ; AC1,-2(SP) 404243' 202 01 0 17 777776
JRST L.103 ; L.103 404244' 254 00 0 00 404261'
L.102: MOVEM AC14,0(SP) ; AC14,0(SP) 404245' 202 14 0 17 000000 1650
MOVE AC1,AC0 ; AC1,AC0 404246' 200 01 0 00 000000
HLRZ AC2,21(AC13) ; AC2,21(AC13) 404247' 554 02 0 13 000021
ADD AC1,AC2 ; AC1,AC2 404250' 270 01 0 00 000002
PUSH SP,AC1 ; SP,AC1 404251' 261 17 0 00 000001
PUSHJ SP,GETWRD ; SP,GETWRD 404252' 260 17 0 00 403201'
ADJSP SP,-1 ; SP,-1 404253' 105 17 0 00 777777
HLRZ AC2,36(AC13) ; AC2,36(AC13) 404254' 554 02 0 13 000036
TDNN AC1,AC2 ; AC1,AC2 404255' 616 01 0 00 000002
JRST L.103 ; L.103 404256' 254 00 0 00 404261'
MOVEI AC1,1 ; AC1,1 404257' 201 01 0 00 000001 1652
MOVEM AC1,-4(SP) ; AC1,DYNAMIC_PAR 404260' 202 01 0 17 777774
L.103: MOVEM AC14,0(SP) ; AC14,0(SP) 404261' 202 14 0 17 000000 1659
HRRZ AC1,13(AC13) ; AC1,13(AC13) 404262' 550 01 0 13 000013
PUSH SP,AC1 ; SP,AC1 404263' 261 17 0 00 000001
MOVE AC1,0(SP) ; AC1,0(SP) 404264' 200 01 0 17 000000
CAML AC1,-24(SP) ; AC1,MIN_PCB_LEN 404265' 311 01 0 17 777754
JRST L.104 ; L.104 404266' 254 00 0 00 404271'
MOVE AC1,-24(SP) ; AC1,MIN_PCB_LEN 404267' 200 01 0 17 777754
MOVEM AC1,0(SP) ; AC1,0(SP) 404270' 202 01 0 17 000000
L.104: PUSH SP,C.5 ; SP,[0] 404271' 261 17 0 00 400166'
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 89
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (16)
PUSH SP,AC13 ; SP,AC13 404272' 261 17 0 00 000013
PUSHJ SP,ALOCB ; SP,ALOCB 404273' 260 17 0 00 403536'
MOVE AC11,AC1 ; PCB_ADDR,AC1 404274' 200 11 0 00 000001
MOVEM AC14,0(SP) ; AC14,0(SP) 404275' 202 14 0 17 000000 1663
MOVE AC1,AC11 ; AC1,PCB_ADDR 404276' 200 01 0 00 000011
HLRZ AC2,13(AC13) ; AC2,13(AC13) 404277' 554 02 0 13 000013
ADD AC1,AC2 ; AC1,AC2 404300' 270 01 0 00 000002
PUSH SP,AC1 ; SP,AC1 404301' 261 17 0 00 000001
PUSH SP,C.5 ; SP,[0] 404302' 261 17 0 00 400166'
PUSHJ SP,PUTWRD ; SP,PUTWRD 404303' 260 17 0 00 403414'
MOVEM AC14,0(SP) ; AC14,0(SP) 404304' 202 14 0 17 000000 1664
MOVE AC1,AC11 ; AC1,PCB_ADDR 404305' 200 01 0 00 000011
HRRZ AC2,14(AC13) ; AC2,14(AC13) 404306' 550 02 0 13 000014
ADD AC1,AC2 ; AC1,AC2 404307' 270 01 0 00 000002
PUSH SP,AC1 ; SP,AC1 404310' 261 17 0 00 000001
PUSH SP,C.5 ; SP,[0] 404311' 261 17 0 00 400166'
PUSHJ SP,PUTBYT ; SP,PUTBYT 404312' 260 17 0 00 403324'
MOVEM AC14,0(SP) ; AC14,0(SP) 404313' 202 14 0 17 000000 1665
MOVE AC1,AC11 ; AC1,PCB_ADDR 404314' 200 01 0 00 000011
HLRZ AC2,14(AC13) ; AC2,14(AC13) 404315' 554 02 0 13 000014
ADD AC1,AC2 ; AC1,AC2 404316' 270 01 0 00 000002
PUSH SP,AC1 ; SP,AC1 404317' 261 17 0 00 000001
PUSH SP,C.5 ; SP,[0] 404320' 261 17 0 00 400166'
PUSHJ SP,PUTBYT ; SP,PUTBYT 404321' 260 17 0 00 403324'
PUSH SP,-42(SP) ; SP,PAR_NAME 404322' 261 17 0 17 777736 1666
MOVEI AC1,-23(SP) ; AC1,R50VAL 404323' 201 01 0 17 777755
PUSH SP,AC1 ; SP,AC1 404324' 261 17 0 00 000001
PUSHJ SP,ATOR50 ; SP,ATOR50 404325' 260 17 0 00 000000*
MOVE AC10,AC13 ; AC10,AC13 404326' 200 10 0 00 000013 1669
ADDI AC10,15 ; AC10,15 404327' 271 10 0 00 000015
SETZ AC16, ; COUNTER, 404330' 400 16 0 00 000000 1668
L.105: MOVEM AC14,0(SP) ; AC14,0(SP) 404331' 202 14 0 17 000000 1669
MOVE AC1,AC11 ; AC1,PCB_ADDR 404332' 200 01 0 00 000011
HRRZ AC2,0(AC10) ; AC2,0(AC10) 404333' 550 02 0 10 000000
ADD AC1,AC2 ; AC1,AC2 404334' 270 01 0 00 000002
ADD AC1,AC16 ; AC1,COUNTER 404335' 270 01 0 00 000016
PUSH SP,AC1 ; SP,AC1 404336' 261 17 0 00 000001
MOVEI AC1,-25(SP) ; AC1,R50VAL 404337' 201 01 0 17 777753
ADD AC1,AC16 ; AC1,COUNTER 404340' 270 01 0 00 000016
PUSH SP,0(AC1) ; SP,0(AC1) 404341' 261 17 0 01 000000
PUSHJ SP,PUTBYT ; SP,PUTBYT 404342' 260 17 0 00 403324'
ADJSP SP,-2 ; SP,-2 404343' 105 17 0 00 777776
ADDI AC16,1 ; COUNTER,1 404344' 271 16 0 00 000001 1668
CAIG AC16,3 ; COUNTER,3 404345' 307 16 0 00 000003
JRST L.105 ; L.105 404346' 254 00 0 00 404331'
MOVEM AC14,0(SP) ; AC14,0(SP) 404347' 202 14 0 17 000000 1671
MOVE AC1,AC11 ; AC1,PCB_ADDR 404350' 200 01 0 00 000011
HLRZ AC2,0(AC10) ; AC2,0(AC10) 404351' 554 02 0 10 000000
ADD AC1,AC2 ; AC1,AC2 404352' 270 01 0 00 000002
PUSH SP,AC1 ; SP,AC1 404353' 261 17 0 00 000001
PUSH SP,C.5 ; SP,[0] 404354' 261 17 0 00 400166'
PUSHJ SP,PUTWRD ; SP,PUTWRD 404355' 260 17 0 00 403414'
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 90
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (16)
JUMPE AC0,L.108 ; AC0,L.108 404356' 322 00 0 00 404403' 1673
MOVE AC16,AC0 ; TEMP1,AC0 404357' 200 16 0 00 000000 1676
L.106: JUMPE AC16,L.107 ; TEMP1,L.107 404360' 322 16 0 00 404373' 1678
MOVE AC12,AC16 ; TEMP2,TEMP1 404361' 200 12 0 00 000016 1680
MOVEM AC14,0(SP) ; AC14,0(SP) 404362' 202 14 0 17 000000 1681
MOVE AC1,AC12 ; AC1,TEMP2 404363' 200 01 0 00 000012
HLRZ AC2,0(AC10) ; AC2,0(AC10) 404364' 554 02 0 10 000000
ADD AC1,AC2 ; AC1,AC2 404365' 270 01 0 00 000002
PUSH SP,AC1 ; SP,AC1 404366' 261 17 0 00 000001
PUSHJ SP,GETWRD ; SP,GETWRD 404367' 260 17 0 00 403201'
MOVE AC16,AC1 ; TEMP1,AC1 404370' 200 16 0 00 000001
ADJSP SP,-1 ; SP,-1 404371' 105 17 0 00 777777 1679
JRST L.106 ; L.106 404372' 254 00 0 00 404360' 1678
L.107: MOVEM AC14,0(SP) ; AC14,0(SP) 404373' 202 14 0 17 000000 1684
MOVE AC1,AC12 ; AC1,TEMP2 404374' 200 01 0 00 000012
HLRZ AC2,0(AC10) ; AC2,0(AC10) 404375' 554 02 0 10 000000
ADD AC1,AC2 ; AC1,AC2 404376' 270 01 0 00 000002
PUSH SP,AC1 ; SP,AC1 404377' 261 17 0 00 000001
PUSH SP,AC11 ; SP,PCB_ADDR 404400' 261 17 0 00 000011
PUSHJ SP,PUTWRD ; SP,PUTWRD 404401' 260 17 0 00 403414'
ADJSP SP,-2 ; SP,-2 404402' 105 17 0 00 777776 1675
L.108: MOVE AC10,AC13 ; AC10,AC13 404403' 200 10 0 00 000013 1689
ADDI AC10,16 ; AC10,16 404404' 271 10 0 00 000016
MOVEI AC1,1 ; AC1,1 404405' 201 01 0 00 000001 1687
TDNN AC1,-17(SP) ; AC1,-17(SP) 404406' 616 01 0 17 777761
JRST L.109 ; L.109 404407' 254 00 0 00 404417'
MOVEM AC14,0(SP) ; AC14,0(SP) 404410' 202 14 0 17 000000 1689
MOVE AC1,AC11 ; AC1,PCB_ADDR 404411' 200 01 0 00 000011
HRRZ AC2,0(AC10) ; AC2,0(AC10) 404412' 550 02 0 10 000000
ADD AC1,AC2 ; AC1,AC2 404413' 270 01 0 00 000002
PUSH SP,AC1 ; SP,AC1 404414' 261 17 0 00 000001
PUSH SP,AC11 ; SP,PCB_ADDR 404415' 261 17 0 00 000011
JRST L.110 ; L.110 404416' 254 00 0 00 404425'
L.109: MOVEM AC14,0(SP) ; AC14,0(SP) 404417' 202 14 0 17 000000 1691
MOVE AC1,AC11 ; AC1,PCB_ADDR 404420' 200 01 0 00 000011
HRRZ AC2,0(AC10) ; AC2,0(AC10) 404421' 550 02 0 10 000000
ADD AC1,AC2 ; AC1,AC2 404422' 270 01 0 00 000002
PUSH SP,AC1 ; SP,AC1 404423' 261 17 0 00 000001
PUSH SP,AC0 ; SP,AC0 404424' 261 17 0 00 000000
L.110: PUSHJ SP,PUTWRD ; SP,PUTWRD 404425' 260 17 0 00 403414'
MOVE AC1,-46(SP) ; AC1,PAR_BASE 404426' 200 01 0 17 777732 1693
IDIVI AC1,100 ; AC1,100 404427' 231 01 0 00 000100
MOVE AC16,AC1 ; TEMP1,AC1 404430' 200 16 0 00 000001
MOVEM AC14,0(SP) ; AC14,0(SP) 404431' 202 14 0 17 000000 1694
MOVE AC0,AC11 ; AC0,PCB_ADDR 404432' 200 00 0 00 000011
HLRZ AC1,0(AC10) ; AC1,0(AC10) 404433' 554 01 0 10 000000
ADD AC0,AC1 ; AC0,AC1 404434' 270 00 0 00 000001
PUSH SP,AC0 ; SP,AC0 404435' 261 17 0 00 000000
PUSH SP,AC16 ; SP,TEMP1 404436' 261 17 0 00 000016
PUSHJ SP,PUTWRD ; SP,PUTWRD 404437' 260 17 0 00 403414'
SKIPN -24(SP) ; -24(SP) 404440' 336 00 0 17 777754 1696
JRST L.111 ; L.111 404441' 254 00 0 00 404460'
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 91
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (16)
MOVE AC0,-24(SP) ; AC0,-24(SP) 404442' 200 00 0 17 777754 1699
SUB AC0,-50(SP) ; AC0,PAR_BASE 404443' 274 00 0 17 777730
ADDI AC0,100 ; AC0,100 404444' 271 00 0 00 000100
MOVE AC1,AC0 ; AC1,AC0 404445' 200 01 0 00 000000
IDIVI AC1,100 ; AC1,100 404446' 231 01 0 00 000100
MOVE AC16,AC1 ; TEMP1,AC1 404447' 200 16 0 00 000001
MOVEM AC14,0(SP) ; AC14,0(SP) 404450' 202 14 0 17 000000 1700
MOVE AC0,AC11 ; AC0,PCB_ADDR 404451' 200 00 0 00 000011
HRRZ AC1,17(AC13) ; AC1,17(AC13) 404452' 550 01 0 13 000017
ADD AC0,AC1 ; AC0,AC1 404453' 270 00 0 00 000001
PUSH SP,AC0 ; SP,AC0 404454' 261 17 0 00 000000
PUSH SP,AC16 ; SP,TEMP1 404455' 261 17 0 00 000016
PUSHJ SP,PUTWRD ; SP,PUTWRD 404456' 260 17 0 00 403414'
ADJSP SP,-2 ; SP,-2 404457' 105 17 0 00 777776 1698
L.111: MOVEM AC14,0(SP) ; AC14,0(SP) 404460' 202 14 0 17 000000 1703
MOVE AC0,AC11 ; AC0,PCB_ADDR 404461' 200 00 0 00 000011
HLRZ AC1,17(AC13) ; AC1,17(AC13) 404462' 554 01 0 13 000017
ADD AC0,AC1 ; AC0,AC1 404463' 270 00 0 00 000001
PUSH SP,AC0 ; SP,AC0 404464' 261 17 0 00 000000
PUSH SP,C.5 ; SP,[0] 404465' 261 17 0 00 400166'
PUSHJ SP,PUTWRD ; SP,PUTWRD 404466' 260 17 0 00 403414'
SETZ AC10, ; AC10, 404467' 400 10 0 00 000000 1705
SKIPE -27(SP) ; DYNAMIC_PAR 404470' 332 00 0 17 777751
JRST L.112 ; L.112 404471' 254 00 0 00 404501'
MOVEI AC10,1 ; AC10,1 404472' 201 10 0 00 000001
MOVEM AC14,0(SP) ; AC14,0(SP) 404473' 202 14 0 17 000000 1707
MOVE AC1,AC0 ; AC1,AC0 404474' 200 01 0 00 000000
ADDI AC1,2 ; AC1,2 404475' 271 01 0 00 000002
PUSH SP,AC1 ; SP,AC1 404476' 261 17 0 00 000001
PUSH SP,AC0 ; SP,AC0 404477' 261 17 0 00 000000
JRST L.113 ; L.113 404500' 254 00 0 00 404505'
L.112: MOVEM AC14,0(SP) ; AC14,0(SP) 404501' 202 14 0 17 000000 1710
ADDI AC0,2 ; AC0,2 404502' 271 00 0 00 000002
PUSH SP,AC0 ; SP,AC0 404503' 261 17 0 00 000000
PUSH SP,C.5 ; SP,[0] 404504' 261 17 0 00 400166'
L.113: PUSHJ SP,PUTWRD ; SP,PUTWRD 404505' 260 17 0 00 403414'
MOVEM AC14,0(SP) ; AC14,0(SP) 404506' 202 14 0 17 000000 1712
MOVE AC0,AC11 ; AC0,PCB_ADDR 404507' 200 00 0 00 000011
HLRZ AC1,20(AC13) ; AC1,20(AC13) 404510' 554 01 0 13 000020
ADD AC0,AC1 ; AC0,AC1 404511' 270 00 0 00 000001
PUSH SP,AC0 ; SP,AC0 404512' 261 17 0 00 000000
PUSH SP,-53(SP) ; SP,BUSY_FLAGS 404513' 261 17 0 17 777725
PUSHJ SP,PUTWRD ; SP,PUTWRD 404514' 260 17 0 00 403414'
MOVEM AC14,0(SP) ; AC14,0(SP) 404515' 202 14 0 17 000000 1713
MOVE AC0,AC11 ; AC0,PCB_ADDR 404516' 200 00 0 00 000011
HRRZ AC1,21(AC13) ; AC1,21(AC13) 404517' 550 01 0 13 000021
ADD AC0,AC1 ; AC0,AC1 404520' 270 00 0 00 000001
PUSH SP,AC0 ; SP,AC0 404521' 261 17 0 00 000000
PUSH SP,C.5 ; SP,[0] 404522' 261 17 0 00 400166'
PUSHJ SP,PUTWRD ; SP,PUTWRD 404523' 260 17 0 00 403414'
MOVEM AC14,0(SP) ; AC14,0(SP) 404524' 202 14 0 17 000000 1714
MOVE AC0,AC11 ; AC0,PCB_ADDR 404525' 200 00 0 00 000011
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 92
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (16)
HLRZ AC1,21(AC13) ; AC1,21(AC13) 404526' 554 01 0 13 000021
ADD AC0,AC1 ; AC0,AC1 404527' 270 00 0 00 000001
PUSH SP,AC0 ; SP,AC0 404530' 261 17 0 00 000000
PUSH SP,-56(SP) ; SP,STAT_FLAGS 404531' 261 17 0 17 777722
PUSHJ SP,PUTWRD ; SP,PUTWRD 404532' 260 17 0 00 403414'
MOVEM AC14,0(SP) ; AC14,0(SP) 404533' 202 14 0 17 000000 1715
MOVE AC0,AC11 ; AC0,PCB_ADDR 404534' 200 00 0 00 000011
HRRZ AC1,22(AC13) ; AC1,22(AC13) 404535' 550 01 0 13 000022
ADD AC0,AC1 ; AC0,AC1 404536' 270 00 0 00 000001
PUSH SP,AC0 ; SP,AC0 404537' 261 17 0 00 000000
PUSH SP,C.5 ; SP,[0] 404540' 261 17 0 00 400166'
PUSHJ SP,PUTWRD ; SP,PUTWRD 404541' 260 17 0 00 403414'
MOVEI AC0,1 ; AC0,1 404542' 201 00 0 00 000001 1717
TDNN AC0,-42(SP) ; AC0,FLAGS 404543' 616 00 0 17 777736
JRST L.114 ; L.114 404544' 254 00 0 00 404575'
MOVSI AC0,1 ; AC0,1 404545' 205 00 0 00 000001
TDNN AC0,25(AC13) ; AC0,25(AC13) 404546' 616 00 0 13 000025
JRST L.114 ; L.114 404547' 254 00 0 00 404575'
MOVEM AC14,0(SP) ; AC14,0(SP) 404550' 202 14 0 17 000000 1720
MOVE AC0,AC11 ; AC0,PCB_ADDR 404551' 200 00 0 00 000011
HLRZ AC1,22(AC13) ; AC1,22(AC13) 404552' 554 01 0 13 000022
ADD AC0,AC1 ; AC0,AC1 404553' 270 00 0 00 000001
PUSH SP,AC0 ; SP,AC0 404554' 261 17 0 00 000000
PUSH SP,C.5 ; SP,[0] 404555' 261 17 0 00 400166'
PUSHJ SP,PUTWRD ; SP,PUTWRD 404556' 260 17 0 00 403414'
MOVEM AC14,0(SP) ; AC14,0(SP) 404557' 202 14 0 17 000000 1721
MOVE AC0,AC11 ; AC0,PCB_ADDR 404560' 200 00 0 00 000011
HRRZ AC1,23(AC13) ; AC1,23(AC13) 404561' 550 01 0 13 000023
ADD AC0,AC1 ; AC0,AC1 404562' 270 00 0 00 000001
PUSH SP,AC0 ; SP,AC0 404563' 261 17 0 00 000000
PUSH SP,C.5 ; SP,[0] 404564' 261 17 0 00 400166'
PUSHJ SP,PUTWRD ; SP,PUTWRD 404565' 260 17 0 00 403414'
MOVEM AC14,0(SP) ; AC14,0(SP) 404566' 202 14 0 17 000000 1722
MOVE AC1,AC0 ; AC1,AC0 404567' 200 01 0 00 000000
ADDI AC1,2 ; AC1,2 404570' 271 01 0 00 000002
PUSH SP,AC1 ; SP,AC1 404571' 261 17 0 00 000001
PUSH SP,AC0 ; SP,AC0 404572' 261 17 0 00 000000
PUSHJ SP,PUTWRD ; SP,PUTWRD 404573' 260 17 0 00 403414'
ADJSP SP,-6 ; SP,-6 404574' 105 17 0 00 777772 1719
L.114: TRNN AC10,1 ; AC10,1 404575' 606 10 0 00 000001 1730
JRST L.117 ; L.117 404576' 254 00 0 00 404622'
HLRZ AC16,7(AC13) ; TEMP1,7(AC13) 404577' 554 16 0 13 000007 1733
L.115: JUMPE AC16,L.116 ; TEMP1,L.116 404600' 322 16 0 00 404613' 1735
MOVE AC12,AC16 ; TEMP2,TEMP1 404601' 200 12 0 00 000016 1737
MOVEM AC14,0(SP) ; AC14,0(SP) 404602' 202 14 0 17 000000 1738
MOVE AC0,AC12 ; AC0,TEMP2 404603' 200 00 0 00 000012
HLRZ AC1,13(AC13) ; AC1,13(AC13) 404604' 554 01 0 13 000013
ADD AC0,AC1 ; AC0,AC1 404605' 270 00 0 00 000001
PUSH SP,AC0 ; SP,AC0 404606' 261 17 0 00 000000
PUSHJ SP,GETWRD ; SP,GETWRD 404607' 260 17 0 00 403201'
MOVE AC16,AC1 ; TEMP1,AC1 404610' 200 16 0 00 000001
ADJSP SP,-1 ; SP,-1 404611' 105 17 0 00 777777 1736
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 93
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (16)
JRST L.115 ; L.115 404612' 254 00 0 00 404600' 1735
L.116: MOVEM AC14,0(SP) ; AC14,0(SP) 404613' 202 14 0 17 000000 1741
HLRZ AC0,13(AC13) ; AC0,13(AC13) 404614' 554 00 0 13 000013
ADD AC12,AC0 ; TEMP2,AC0 404615' 270 12 0 00 000000
PUSH SP,AC12 ; SP,TEMP2 404616' 261 17 0 00 000012
PUSH SP,AC11 ; SP,PCB_ADDR 404617' 261 17 0 00 000011
PUSHJ SP,PUTWRD ; SP,PUTWRD 404620' 260 17 0 00 403414'
ADJSP SP,-2 ; SP,-2 404621' 105 17 0 00 777776 1732
L.117: ADJSP SP,-37 ; SP,-37 404622' 105 17 0 00 777741 1592
MOVE AC1,AC11 ; AC1,PCB_ADDR 404623' 200 01 0 00 000011 1551
ADJSP SP,-10 ; SP,-10 404624' 105 17 0 00 777770
POP SP,AC16 ; SP,AC16 404625' 262 17 0 00 000016
POP SP,AC14 ; SP,AC14 404626' 262 17 0 00 000014
POP SP,AC13 ; SP,AC13 404627' 262 17 0 00 000013
POP SP,AC12 ; SP,AC12 404630' 262 17 0 00 000012
POP SP,AC11 ; SP,AC11 404631' 262 17 0 00 000011
POP SP,AC10 ; SP,AC10 404632' 262 17 0 00 000010
POP SP,AC0 ; SP,AC0 404633' 262 17 0 00 000000
POPJ SP, ; SP, 404634' 263 17 0 00 000000
; Routine Size: 275 words
; 1749
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 94
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (17)
; 1750 GLOBAL ROUTINE INSTAL (KERNEL_FILE, TASK_FILE, TASK_NAME, PCB_ARG, VALUES) : NOVALUE = !INSTALL A TASK
; 1751
; 1752 !++
; 1753 ! FUNCTIONAL DESCRIPTION:
; 1754 !
; 1755 ! INSTALL A TASK IN A GIVEN PARTITION, OR IN THE
; 1756 ! SYSTEM-CONTROLLED PARTITION. FIX THE TASK IN CORE.
; 1757 !
; 1758 ! FORMAL PARAMETERS:
; 1759 !
; 1760 ! KERNEL_FILE - POINTER TO THE FILE BLOCK WHICH DESCRIBES THE
; 1761 ! RSX-11S KERNEL
; 1762 ! TASK_FILE - POINTER TO A SIMILAR FILE BLOCK WHICH DESCRIBES
; 1763 ! THE TASK TO BE INSTALLED
; 1764 ! TASK_NAME - POINTER TO THE TASK NAME, IN ASCII
; 1765 ! PCB_ARG - THE PDP-11 ADDRESS OF THE PARTITION INTO WHICH
; 1766 ! THE TASK IS TO BE INSTALLED. IF 0, THE TASK IS TO BE
; 1767 ! INSTALLED IN THE SYSTEM-CONTROLLED PARTITION.
; 1768 ! VALUES - POINTER TO THE VALUES BLOCK
; 1769 !
; 1770 ! IMPLICIT INPUTS:
; 1771 !
; 1772 ! NONE
; 1773 !
; 1774 ! IMPLICIT OUTPUTS:
; 1775 !
; 1776 ! NONE
; 1777 !
; 1778 ! ROUTINE VALUE:
; 1779 !
; 1780 ! NONE
; 1781 !
; 1782 ! SIDE EFFECTS
; 1783 !
; 1784 ! MODIFIES THE KERNEL'S DATA STRUCTURES
; 1785 !
; 1786 !--
; 1787
; 1788 BEGIN
; 1789
; 1790 BIND
; 1791 ROUTINE_NAME = UPLIT (%ASCIZ'INSTALL');
; 1792
; 1793 MAP
; 1794 KERNEL_FILE : REF FILE_BLOCK,
; 1795 TASK_FILE : REF FILE_BLOCK,
; 1796 VALUES : REF VNPVAL_BLOCK;
; 1797
; 1798 LOCAL
; 1799 TCB_ADDR,
; 1800 PCB_ADDR,
; 1801 PCB_NAME : VECTOR [CH$ALLOCATION(7)],
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 95
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (17)
; 1802 HDR_ADDR,
; 1803 HDR_SIZE,
; 1804 TASK_LABEL : REF VECTOR [1024],
; 1805 TEMP1,
; 1806 TEMP2,
; 1807 TEMP3,
; 1808 TASK_BASE,
; 1809 TASK_TOP,
; 1810 TASK_SIZE,
; 1811 ASCVAL : VECTOR [4],
; 1812 TASK_FLAGS,
; 1813 PARTITION_BASE,
; 1814 NLUN,
; 1815 PRIORITY,
; 1816 SEARCH_DONE;
; 1817
; 1818 IF (DEBUG GEQ 1)
; 1819 THEN
; 1820 BEGIN !DEBUG
; 1821 PCRLF (1);
; 1822 OUTSTR (1, UPLIT (%ASCIZ'INSTALL: '));
; 1823 OUTSTR (1, TASK_FILE [FILE_NAME]);
; 1824 END; !DEBUG
; 1825
; 1826 !
; 1827 ! COMPUTE THE SIZE OF THE TASK, AND ITS FLAGS
; 1828 !
; 1829 TASK_LABEL = .TASK_FILE [FILE_LABEL];
; 1830 TASK_BASE = .TASK_LABEL [L$BSA] + (.TASK_LABEL [L$BSA + 1]*256);
; 1831 TASK_TOP = .TASK_LABEL [L$BHGV] + (.TASK_LABEL [L$BHGV + 1]*256);
; 1832 TASK_SIZE = .TASK_TOP - .TASK_BASE + 1;
; 1833 TASK_FLAGS = .TASK_LABEL [L$BFLG] + (.TASK_LABEL [L$BFLG + 1]*256);
; 1834 !
; 1835 ! ALLOCATE A TCB
; 1836 !
; 1837 TCB_ADDR = ALOCB (.KERNEL_FILE, .VALUES [T_LGTH], 0, .VALUES);
; 1838 !
; 1839 ! COMPUTE THE LENGTH OF THE HEADER, AND ALLOCATE IT.
; 1840 !
; 1841 HDR_SIZE = GETWRD (.TASK_FILE, .TASK_BASE + .VALUES [H_HDLN]) + 2;
; 1842 HDR_ADDR = ALOCB (.KERNEL_FILE, .HDR_SIZE, 0, .VALUES);
; 1843 !
; 1844 ! FETCH THE NAME OF THE TASK, AND ITS PRIORITY
; 1845 !
; 1846 ATOR50 (.TASK_NAME, ASCVAL);
; 1847 PRIORITY = .TASK_LABEL [L$BPRI];
; 1848 !
; 1849 ! IF THE TASK'S PRIORITY FIELD IS 0, DEFAULT IT TO 50.
; 1850 !
; 1851
; 1852 IF (.PRIORITY EQL 0) THEN PRIORITY = 50;
; 1853 !
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 96
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (17)
; 1854 ! FETCH NAME OF PARTITION IN ASCIZ
; 1855 !
; 1856 TEMP1 = (.TASK_LABEL [L$BPAR]^16) + (.TASK_LABEL [L$BPAR + 1]^24) + (.TASK_LABEL [L$BPAR + 2]) + (
; 1857 .TASK_LABEL [L$BPAR + 3]^8);
; 1858 R50TOA (.TEMP1, PCB_NAME);
; 1859
; 1860 !
; 1861 ! IF WE NEED A PCB, ALLOCATE ONE. OTHERWISE USE THE ONE SPECIFIED.
; 1862 !
; 1863
; 1864 IF (.PCB_ARG NEQ 0)
; 1865 THEN
; 1866 PCB_ADDR = .PCB_ARG
; 1867 ELSE
; 1868 BEGIN !ALLOCATE A PCB
; 1869 !
; 1870 ! FIND THE SYSTEM-CONTROLLED PARTITION
; 1871 !
; 1872 TEMP1 = .VALUES [PARHD];
; 1873 SEARCH_DONE = 0;
; 1874
; 1875 WHILE (.SEARCH_DONE EQL 0) DO
; 1876 BEGIN
; 1877 TEMP2 = GETWRD (.KERNEL_FILE, .TEMP1);
; 1878
; 1879 IF (.TEMP2 EQL 0)
; 1880 THEN
; 1881 SEARCH_DONE = -1
; 1882 ELSE
; 1883 BEGIN
; 1884 TEMP3 = GETWRD (.KERNEL_FILE, .TEMP2 + .VALUES [P_STAT]);
; 1885
; 1886 IF ((.TEMP3 AND .VALUES [PS_SYS]) NEQ 0)
; 1887 THEN
; 1888 SEARCH_DONE = 1
; 1889 ELSE
; 1890 TEMP1 = .TEMP2 + .VALUES [P_LNK];
; 1891
; 1892 END;
; 1893
; 1894 END;
; 1895
; 1896 IF (.SEARCH_DONE LEQ 0) THEN ERROR (UPLIT (%ASCIZ'NO GEN PARTITION - INSTALL'));
; 1897
; 1898 !
; 1899 ! NOW ALLOCATE A SUB-PARTITION OF THE SYSTEM-CONTROLLED PARTITION
; 1900 !
; 1901 PCB_ADDR = M_PCB (.KERNEL_FILE, PCB_NAME, .TEMP2, .KERNEL_FILE [FILE_HWM],
; 1902 .KERNEL_FILE [FILE_HWM] + .TASK_SIZE, %O'000000', .VALUES [PS_SYS], 0, .VALUES);
; 1903 END;
; 1904
; 1905 !
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 97
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (17)
; 1906 ! BE SURE THE TCB IS ALL ZERO, SO WE WON'T HAVE TO EXPLICITLY
; 1907 ! CLEAR ZERO FIELDS BELOW.
; 1908 !
; 1909
; 1910 INCR COUNTER FROM 0 TO .VALUES [T_LGTH] DO
; 1911 PUTBYT (.KERNEL_FILE, .TCB_ADDR + .COUNTER, 0);
; 1912
; 1913 !
; 1914 ! FILL IN THE TCB
; 1915 !
; 1916 PUTBYT (.KERNEL_FILE, .TCB_ADDR + .VALUES [T_PRI], .PRIORITY);
; 1917
; 1918 INCR COUNTER FROM 0 TO 3 DO
; 1919 PUTBYT (.KERNEL_FILE, .TCB_ADDR + .VALUES [T_NAM] + .COUNTER, .ASCVAL [.COUNTER]);
; 1920
; 1921 PUTWRD (.KERNEL_FILE, .TCB_ADDR + .VALUES [T_RCVL] + 2, .TCB_ADDR + .VALUES [T_RCVL]);
; 1922 PUTWRD (.KERNEL_FILE, .TCB_ADDR + .VALUES [T_ASTL] + 2, .TCB_ADDR + .VALUES [T_ASTL]);
; 1923 PUTWRD (.KERNEL_FILE, .TCB_ADDR + .VALUES [T_STAT], .VALUES [TS_EXE]);
; 1924 PUTWRD (.KERNEL_FILE, .TCB_ADDR + .VALUES [T_ST2], .VALUES [T2_CHK] OR .VALUES [T2_FXD]);
; 1925 PUTWRD (.KERNEL_FILE, .TCB_ADDR + .VALUES [T_ST3], .VALUES [T3_PMD] OR !
; 1926 (IF ((.TASK_FLAGS AND TS$PRV) NEQ 0) THEN .VALUES [T3_PRV] ELSE 0) OR !
; 1927 (IF ((.TASK_FLAGS AND TS$ACP) NEQ 0) THEN .VALUES [T3_ACP] ELSE 0) OR !
; 1928 (IF ((.TASK_FLAGS AND (TS$NSD OR TS$ACP)) NEQ 0) THEN .VALUES [T3_NSD] ELSE 0));
; 1929 PUTBYT (.KERNEL_FILE, .TCB_ADDR + .VALUES [T_DPRI], .PRIORITY);
; 1930 !
; 1931 ! SET THE 3-BYTE FIELD WHICH SPECIFIES WHERE ON ITS LOAD DEVICE
; 1932 ! THIS TASK CAME FROM TO 0.
; 1933 !
; 1934
; 1935 INCR COUNTER FROM 0 TO 3 DO
; 1936 PUTBYT (.KERNEL_FILE, .TCB_ADDR + .VALUES [T_LBN] + .COUNTER, 0);
; 1937
; 1938 !
; 1939 ! PRETEND THAT THIS TASK CAME FROM DEVICE LB:
; 1940 ! FIND THE UCB ADDRESS FOR LB, AND STORE IT IN THE TCB.
; 1941 !
; 1942 SEARCH_DONE = 0;
; 1943 TEMP1 = GETWRD (.KERNEL_FILE, .VALUES [DEVHD]);
; 1944
; 1945 WHILE (.SEARCH_DONE EQL 0) DO
; 1946 BEGIN
; 1947
; 1948 IF (GETWRD (.KERNEL_FILE, .TEMP1 + .VALUES [D_NAM]) EQL (%C'L' + (256*%C'B')))
; 1949 THEN
; 1950 BEGIN
; 1951 TEMP1 = GETWRD (.KERNEL_FILE, .TEMP1 + .VALUES [D_UCB]);
; 1952 SEARCH_DONE = 1;
; 1953 END
; 1954 ELSE
; 1955 BEGIN
; 1956 TEMP1 = GETWRD (.KERNEL_FILE, .TEMP1 + .VALUES [D_LNK]);
; 1957
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 98
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (17)
; 1958 IF (.TEMP1 EQL 0) THEN SEARCH_DONE = -1;
; 1959
; 1960 END;
; 1961
; 1962 END;
; 1963
; 1964 IF (.SEARCH_DONE LEQ 0) THEN ERROR (UPLIT (%ASCIZ'NO DEVICE LB - INSTALL'));
; 1965
; 1966 !
; 1967 ! WE HAVE THE UCB ADDRESS OF LB IN TEMP1.
; 1968 !
; 1969 PUTWRD (.KERNEL_FILE, .TCB_ADDR + .VALUES [T_LDV], .TEMP1);
; 1970 PUTWRD (.KERNEL_FILE, .TCB_ADDR + .VALUES [T_PCB], .PCB_ADDR);
; 1971 PUTWRD (.KERNEL_FILE, .TCB_ADDR + .VALUES [T_MXSZ], .TASK_SIZE/64);
; 1972 !
; 1973 ! THE HEADER IS MOSTLY A COPY OF THE FIRST FEW BYTES OF THE TASK
; 1974 ! IMAGE.
; 1975 !
; 1976
; 1977 INCR COUNTER FROM 0 TO .HDR_SIZE - 1 DO
; 1978 PUTBYT (.KERNEL_FILE, .HDR_ADDR + .COUNTER, GETBYT (.TASK_FILE, .TASK_BASE + .COUNTER));
; 1979
; 1980 !
; 1981 ! SOME FIELDS OF THE HEADER HAVE TO BE RELOCATED
; 1982 !
; 1983 PUTWRD (.KERNEL_FILE, .HDR_ADDR + .VALUES [H_WND],
; 1984 GETWRD (.KERNEL_FILE, .HDR_ADDR + .VALUES [H_WND]) + .HDR_ADDR);
; 1985 PUTWRD (.KERNEL_FILE, .HDR_ADDR + .VALUES [H_GARD],
; 1986 GETWRD (.KERNEL_FILE, .HDR_ADDR + .VALUES [H_GARD]) + .HDR_ADDR);
; 1987 NLUN = GETWRD (.KERNEL_FILE, .HDR_ADDR + .VALUES [H_NLUN]);
; 1988 PUTWRD (.KERNEL_FILE, .HDR_ADDR + .VALUES [H_LUN] + (.NLUN*4) + 2, .PCB_ADDR);
; 1989 !
; 1990 ! LINK THE PCB WITH THE TCB AND HDR
; 1991 !
; 1992 PUTWRD (.KERNEL_FILE, .PCB_ADDR + .VALUES [P_TCB], .TCB_ADDR);
; 1993 PUTWRD (.KERNEL_FILE, .PCB_ADDR + .VALUES [P_HDR], .HDR_ADDR);
; 1994 !
; 1995 ! NOW COPY THE TASK INTO ITS PARTITION
; 1996 !
; 1997 PARTITION_BASE = GETWRD (.KERNEL_FILE, .PCB_ADDR + .VALUES [P_REL])*64;
; 1998
; 1999 IF (DEBUG GEQ 1)
; 2000 THEN
; 2001 BEGIN !DEBUG
; 2002 OUTSTR (1, UPLIT (%ASCIZ', '));
; 2003 OUTNUM (1, .PARTITION_BASE, 8, 6);
; 2004 OUTSTR (1, UPLIT (%ASCIZ', '));
; 2005 OUTNUM (1, .PARTITION_BASE + .TASK_SIZE - 1, 8, 6);
; 2006 END; !DEBUG
; 2007
; 2008 INCR COUNTER FROM 0 TO .TASK_SIZE - 1 DO
; 2009 PUTBYT (.KERNEL_FILE, .PARTITION_BASE + .COUNTER, GETBYT (.TASK_FILE, .COUNTER + .TASK_BASE));
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 99
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (17)
; 2010
; 2011 !
; 2012 ! LINK THE TCB INTO THE SYSTEM'S LIST OF TCBS
; 2013 !
; 2014 TEMP1 = GETWRD (.KERNEL_FILE, .VALUES [TSKHD]);
; 2015 TEMP3 = 0;
; 2016 SEARCH_DONE = 0;
; 2017
; 2018 WHILE (.SEARCH_DONE EQL 0) DO
; 2019 BEGIN
; 2020 TEMP2 = GETBYT (.KERNEL_FILE, .TEMP1 + .VALUES [T_PRI]);
; 2021
; 2022 IF (.TEMP2 LSS .PRIORITY)
; 2023 THEN
; 2024 SEARCH_DONE = 1
; 2025 ELSE
; 2026 BEGIN
; 2027 TEMP3 = .TEMP1;
; 2028 TEMP1 = GETWRD (.KERNEL_FILE, .TEMP1 + .VALUES [T_TCBL]);
; 2029
; 2030 IF (.TEMP1 EQL 0) THEN SEARCH_DONE = -1;
; 2031
; 2032 END;
; 2033
; 2034 END;
; 2035
; 2036 IF (.SEARCH_DONE LSS 0) THEN ERROR (UPLIT (%ASCIZ'TCB LINKS BAD - INSTALL'));
; 2037
; 2038 !
; 2039 ! NOW, TEMP3 POINTS TO THE PREVIOUS TCB AND TEMP1 TO THE NEXT TCB.
; 2040 ! IF TEMP3 IS ZERO, THIS TCB IS TO BE FIRST.
; 2041 !
; 2042
; 2043 IF (.TEMP3 EQL 0)
; 2044 THEN
; 2045 PUTWRD (.KERNEL_FILE, .VALUES [TSKHD], .TCB_ADDR)
; 2046 ELSE
; 2047 PUTWRD (.KERNEL_FILE,
; 2048 .TEMP3 + .VALUES [T_TCBL], .TCB_ADDR);
; 2049
; 2050 PUTWRD (.KERNEL_FILE, .TCB_ADDR + .VALUES [T_TCBL], .TEMP1);
; 2051 END; !OF INSTALL
P.AGW: BYTE (7)"I","N","S","T","A" ; INSTA 404635' 111 116 123 124 101
BYTE (7)"L","L",000,000,000 ; LL 404636' 114 114 000 000 000
P.AGX: BYTE (7)"I","N","S","T","A" ; INSTA 404637' 111 116 123 124 101
BYTE (7)"L","L",":"," ",000 ; LL: 404640' 114 114 072 040 000
P.AGY: BYTE (7)"N","O"," ","G","E" ; NO GE 404641' 116 117 040 107 105
BYTE (7)"N"," ","P","A","R" ; N PAR 404642' 116 040 120 101 122
BYTE (7)"T","I","T","I","O" ; TITIO 404643' 124 111 124 111 117
BYTE (7)"N"," ","-"," ","I" ; N - I 404644' 116 040 055 040 111
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 100
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (17)
BYTE (7)"N","S","T","A","L" ; NSTAL 404645' 116 123 124 101 114
BYTE (7)"L",000,000,000,000 ; L 404646' 114 000 000 000 000
P.AGZ: BYTE (7)"N","O"," ","D","E" ; NO DE 404647' 116 117 040 104 105
BYTE (7)"V","I","C","E"," " ; VICE 404650' 126 111 103 105 040
BYTE (7)"L","B"," ","-"," " ; LB - 404651' 114 102 040 055 040
BYTE (7)"I","N","S","T","A" ; INSTA 404652' 111 116 123 124 101
BYTE (7)"L","L",000,000,000 ; LL 404653' 114 114 000 000 000
P.AHA: BYTE (7)","," ",000,000,000 ; , 404654' 054 040 000 000 000
P.AHB: BYTE (7)","," ",000,000,000 ; , 404655' 054 040 000 000 000
P.AHC: BYTE (7)"T","C","B"," ","L" ; TCB L 404656' 124 103 102 040 114
BYTE (7)"I","N","K","S"," " ; INKS 404657' 111 116 113 123 040
BYTE (7)"B","A","D"," ","-" ; BAD - 404660' 102 101 104 040 055
BYTE (7)" ","I","N","S","T" ; INST 404661' 040 111 116 123 124
BYTE (7)"A","L","L",000,000 ; ALL 404662' 101 114 114 000 000
ROUTINE_NAME= P.AGW ; 000000 404635'
INSTAL::PUSH SP,AC0 ; SP,AC0 404663' 261 17 0 00 000000 1750
PUSH SP,AC10 ; SP,AC10 404664' 261 17 0 00 000010
PUSH SP,AC11 ; SP,AC11 404665' 261 17 0 00 000011
PUSH SP,AC12 ; SP,AC12 404666' 261 17 0 00 000012
PUSH SP,AC13 ; SP,AC13 404667' 261 17 0 00 000013
PUSH SP,AC14 ; SP,AC14 404670' 261 17 0 00 000014
PUSH SP,AC16 ; SP,AC16 404671' 261 17 0 00 000016
ADJSP SP,20 ; SP,20 404672' 105 17 0 00 000020
MOVE AC0,-33(SP) ; AC0,TASK_FILE 404673' 200 00 0 17 777745 1829
MOVEM AC0,0(SP) ; AC0,0(SP) 404674' 202 00 0 17 000000
MOVE AC1,0(SP) ; AC1,0(SP) 404675' 200 01 0 17 000000
HRRZ AC10,17(AC1) ; TASK_LABEL,17(AC1) 404676' 550 10 0 01 000017
MOVE AC0,11(AC10) ; AC0,11(TASK_LABEL) 404677' 200 00 0 10 000011 1830
IMULI AC0,400 ; AC0,400 404700' 221 00 0 00 000400
ADD AC0,10(AC10) ; AC0,10(TASK_LABEL) 404701' 270 00 0 10 000010
MOVEM AC0,-3(SP) ; AC0,TASK_BASE 404702' 202 00 0 17 777775
MOVE AC0,13(AC10) ; AC0,13(TASK_LABEL) 404703' 200 00 0 10 000013 1831
IMULI AC0,400 ; AC0,400 404704' 221 00 0 00 000400
ADD AC0,12(AC10) ; AC0,12(TASK_LABEL) 404705' 270 00 0 10 000012
SUB AC0,-3(SP) ; TASK_TOP,TASK_BASE 404706' 274 00 0 17 777775 1832
ADDI AC0,1 ; AC0,1 404707' 271 00 0 00 000001
MOVEM AC0,-7(SP) ; AC0,TASK_SIZE 404710' 202 00 0 17 777771
MOVE AC0,31(AC10) ; AC0,31(TASK_LABEL) 404711' 200 00 0 10 000031 1833
IMULI AC0,400 ; AC0,400 404712' 221 00 0 00 000400
ADD AC0,30(AC10) ; AC0,30(TASK_LABEL) 404713' 270 00 0 10 000030
MOVEM AC0,-1(SP) ; AC0,TASK_FLAGS 404714' 202 00 0 17 777777
MOVE AC16,-34(SP) ; AC16,KERNEL_FILE 404715' 200 16 0 17 777744 1837
PUSH SP,AC16 ; SP,AC16 404716' 261 17 0 00 000016
MOVE AC14,-31(SP) ; AC14,VALUES 404717' 200 14 0 17 777747
HRRZ AC0,47(AC14) ; AC0,47(AC14) 404720' 550 00 0 14 000047
PUSH SP,AC0 ; SP,AC0 404721' 261 17 0 00 000000
PUSH SP,C.5 ; SP,[0] 404722' 261 17 0 00 400166'
PUSH SP,AC14 ; SP,AC14 404723' 261 17 0 00 000014
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 101
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (17)
PUSHJ SP,ALOCB ; SP,ALOCB 404724' 260 17 0 00 403536'
MOVE AC12,AC1 ; TCB_ADDR,AC1 404725' 200 12 0 00 000001
MOVE AC0,-4(SP) ; AC0,-4(SP) 404726' 200 00 0 17 777774 1841
MOVEM AC0,0(SP) ; AC0,0(SP) 404727' 202 00 0 17 000000
MOVE AC0,-7(SP) ; AC0,TASK_BASE 404730' 200 00 0 17 777771
HLRZ AC1,47(AC14) ; AC1,47(AC14) 404731' 554 01 0 14 000047
ADD AC0,AC1 ; AC0,AC1 404732' 270 00 0 00 000001
PUSH SP,AC0 ; SP,AC0 404733' 261 17 0 00 000000
PUSHJ SP,GETWRD ; SP,GETWRD 404734' 260 17 0 00 403201'
ADDI AC1,2 ; AC1,2 404735' 271 01 0 00 000002
MOVEM AC1,-13(SP) ; AC1,HDR_SIZE 404736' 202 01 0 17 777765
MOVEM AC16,-3(SP) ; AC16,-3(SP) 404737' 202 16 0 17 777775 1842
MOVE AC0,-13(SP) ; AC0,HDR_SIZE 404740' 200 00 0 17 777765
MOVEM AC0,-2(SP) ; AC0,-2(SP) 404741' 202 00 0 17 777776
SETZM -1(SP) ; -1(SP) 404742' 402 00 0 17 777777
MOVEM AC14,0(SP) ; AC14,0(SP) 404743' 202 14 0 17 000000
PUSHJ SP,ALOCB ; SP,ALOCB 404744' 260 17 0 00 403536'
MOVEM AC1,-7(SP) ; AC1,HDR_ADDR 404745' 202 01 0 17 777771
PUSH SP,-37(SP) ; SP,TASK_NAME 404746' 261 17 0 17 777741 1846
MOVEI AC0,-23(SP) ; AC0,ASCVAL 404747' 201 00 0 17 777755
PUSH SP,AC0 ; SP,AC0 404750' 261 17 0 00 000000
PUSHJ SP,ATOR50 ; SP,ATOR50 404751' 260 17 0 00 000000*
MOVE AC0,346(AC10) ; AC0,346(TASK_LABEL) 404752' 200 00 0 10 000346 1847
MOVEM AC0,-14(SP) ; AC0,PRIORITY 404753' 202 00 0 17 777764
SKIPE -14(SP) ; PRIORITY 404754' 332 00 0 17 777764 1852
JRST L.118 ; L.118 404755' 254 00 0 00 404760'
MOVEI AC0,62 ; AC0,62 404756' 201 00 0 00 000062
MOVEM AC0,-14(SP) ; AC0,PRIORITY 404757' 202 00 0 17 777764
L.118: MOVE AC0,4(AC10) ; AC0,4(TASK_LABEL) 404760' 200 00 0 10 000004 1856
LSH AC0,20 ; AC0,20 404761' 242 00 0 00 000020
MOVE AC1,5(AC10) ; AC1,5(TASK_LABEL) 404762' 200 01 0 10 000005
LSH AC1,30 ; AC1,30 404763' 242 01 0 00 000030
ADD AC0,AC1 ; AC0,AC1 404764' 270 00 0 00 000001
ADD AC0,6(AC10) ; AC0,6(TASK_LABEL) 404765' 270 00 0 10 000006
MOVE AC10,7(AC10) ; AC10,7(TASK_LABEL) 404766' 200 10 0 10 000007
LSH AC10,10 ; AC10,10 404767' 242 10 0 00 000010
MOVE AC13,AC0 ; TEMP1,AC0 404770' 200 13 0 00 000000
ADD AC13,AC10 ; TEMP1,AC10 404771' 270 13 0 00 000010
MOVEM AC13,0(SP) ; TEMP1,0(SP) 404772' 202 13 0 17 000000 1858
MOVEI AC0,-26(SP) ; AC0,PCB_NAME 404773' 201 00 0 17 777752
PUSH SP,AC0 ; SP,AC0 404774' 261 17 0 00 000000
PUSHJ SP,R50TOA ; SP,R50TOA 404775' 260 17 0 00 000000*
MOVE AC0,-41(SP) ; AC0,PCB_ARG 404776' 200 00 0 17 777737 1864
JUMPE AC0,L.119 ; AC0,L.119 404777' 322 00 0 00 405002'
MOVEM AC0,-21(SP) ; AC0,PCB_ADDR 405000' 202 00 0 17 777757 1866
JRST L.126 ; L.126 405001' 254 00 0 00 405062' 1864
L.119: HLRZ AC13,7(AC14) ; TEMP1,7(AC14) 405002' 554 13 0 14 000007 1872
SETZ AC11, ; SEARCH_DONE, 405003' 400 11 0 00 000000 1873
L.120: JUMPN AC11,L.124 ; SEARCH_DONE,L.124 405004' 326 11 0 00 405036' 1875
MOVEM AC16,-1(SP) ; AC16,-1(SP) 405005' 202 16 0 17 777777 1877
MOVEM AC13,0(SP) ; TEMP1,0(SP) 405006' 202 13 0 17 000000
PUSHJ SP,GETWRD ; SP,GETWRD 405007' 260 17 0 00 403201'
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 102
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (17)
MOVEM AC1,-20(SP) ; AC1,TEMP2 405010' 202 01 0 17 777760
SKIPE -20(SP) ; TEMP2 405011' 332 00 0 17 777760 1879
JRST L.121 ; L.121 405012' 254 00 0 00 405015'
SETO AC11, ; SEARCH_DONE, 405013' 474 11 0 00 000000 1881
JRST L.120 ; L.120 405014' 254 00 0 00 405004' 1879
L.121: MOVEM AC16,0(SP) ; AC16,0(SP) 405015' 202 16 0 17 000000 1884
MOVE AC0,-20(SP) ; AC0,TEMP2 405016' 200 00 0 17 777760
HLRZ AC1,21(AC14) ; AC1,21(AC14) 405017' 554 01 0 14 000021
ADD AC0,AC1 ; AC0,AC1 405020' 270 00 0 00 000001
PUSH SP,AC0 ; SP,AC0 405021' 261 17 0 00 000000
PUSHJ SP,GETWRD ; SP,GETWRD 405022' 260 17 0 00 403201'
MOVEM AC1,-15(SP) ; AC1,TEMP3 405023' 202 01 0 17 777763
HLRZ AC0,36(AC14) ; AC0,36(AC14) 405024' 554 00 0 14 000036 1886
TDNN AC0,-15(SP) ; AC0,TEMP3 405025' 616 00 0 17 777763
JRST L.122 ; L.122 405026' 254 00 0 00 405031'
MOVEI AC11,1 ; SEARCH_DONE,1 405027' 201 11 0 00 000001 1888
JRST L.123 ; L.123 405030' 254 00 0 00 405034' 1886
L.122: MOVE AC13,-21(SP) ; TEMP1,TEMP2 405031' 200 13 0 17 777757 1890
HLRZ AC0,13(AC14) ; AC0,13(AC14) 405032' 554 00 0 14 000013
ADD AC13,AC0 ; TEMP1,AC0 405033' 270 13 0 00 000000
L.123: ADJSP SP,-1 ; SP,-1 405034' 105 17 0 00 777777 1883
JRST L.120 ; L.120 405035' 254 00 0 00 405004' 1875
L.124: JUMPG AC11,L.125 ; SEARCH_DONE,L.125 405036' 327 11 0 00 405042' 1896
PUSH SP,C.183 ; SP,[0,,P.AGY] 405037' 261 17 0 00 405623'
PUSHJ SP,ERROR ; SP,ERROR 405040' 260 17 0 00 000000*
ADJSP SP,-1 ; SP,-1 405041' 105 17 0 00 777777
L.125: MOVEM AC16,0(SP) ; AC16,0(SP) 405042' 202 16 0 17 000000 1901
MOVEI AC0,-27(SP) ; AC0,PCB_NAME 405043' 201 00 0 17 777751
PUSH SP,AC0 ; SP,AC0 405044' 261 17 0 00 000000
PUSH SP,-21(SP) ; SP,TEMP2 405045' 261 17 0 17 777757
PUSH SP,16(AC16) ; SP,16(AC16) 405046' 261 17 0 16 000016
MOVE AC0,16(AC16) ; AC0,16(AC16) 405047' 200 00 0 16 000016 1902
ADD AC0,-22(SP) ; AC0,TASK_SIZE 405050' 270 00 0 17 777756
PUSH SP,AC0 ; SP,AC0 405051' 261 17 0 00 000000
PUSH SP,C.5 ; SP,[0] 405052' 261 17 0 00 400166' 1901
HLRZ AC0,36(AC14) ; AC0,36(AC14) 405053' 554 00 0 14 000036
PUSH SP,AC0 ; SP,AC0 405054' 261 17 0 00 000000
PUSH SP,C.5 ; SP,[0] 405055' 261 17 0 00 400166'
PUSH SP,AC14 ; SP,AC14 405056' 261 17 0 00 000014
PUSHJ SP,M_PCB ; SP,M_PCB 405057' 260 17 0 00 404212'
MOVEM AC1,-31(SP) ; AC1,PCB_ADDR 405060' 202 01 0 17 777747
ADJSP SP,-10 ; SP,-10 405061' 105 17 0 00 777770 1868
L.126: SETO AC0, ; COUNTER, 405062' 474 00 0 00 000000 1910
JRST L.128 ; L.128 405063' 254 00 0 00 405073'
L.127: MOVEM AC16,0(SP) ; AC16,0(SP) 405064' 202 16 0 17 000000 1911
MOVE AC1,AC12 ; AC1,TCB_ADDR 405065' 200 01 0 00 000012
ADD AC1,AC0 ; AC1,COUNTER 405066' 270 01 0 00 000000
PUSH SP,AC1 ; SP,AC1 405067' 261 17 0 00 000001
PUSH SP,C.5 ; SP,[0] 405070' 261 17 0 00 400166'
PUSHJ SP,PUTBYT ; SP,PUTBYT 405071' 260 17 0 00 403324'
ADJSP SP,-2 ; SP,-2 405072' 105 17 0 00 777776
L.128: ADDI AC0,1 ; COUNTER,1 405073' 271 00 0 00 000001 1910
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 103
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (17)
HRRZ AC1,47(AC14) ; AC1,47(AC14) 405074' 550 01 0 14 000047
CAMG AC0,AC1 ; COUNTER,AC1 405075' 317 00 0 00 000001
JRST L.127 ; L.127 405076' 254 00 0 00 405064'
MOVEM AC16,0(SP) ; AC16,0(SP) 405077' 202 16 0 17 000000 1916
MOVE AC0,AC12 ; AC0,TCB_ADDR 405100' 200 00 0 00 000012
HLRZ AC1,40(AC14) ; AC1,40(AC14) 405101' 554 01 0 14 000040
ADD AC0,AC1 ; AC0,AC1 405102' 270 00 0 00 000001
PUSH SP,AC0 ; SP,AC0 405103' 261 17 0 00 000000
PUSH SP,-16(SP) ; SP,PRIORITY 405104' 261 17 0 17 777762
PUSHJ SP,PUTBYT ; SP,PUTBYT 405105' 260 17 0 00 403324'
MOVE AC10,AC14 ; AC10,AC14 405106' 200 10 0 00 000014 1919
ADDI AC10,41 ; AC10,41 405107' 271 10 0 00 000041
SETZ AC0, ; COUNTER, 405110' 400 00 0 00 000000 1918
L.129: MOVEM AC16,0(SP) ; AC16,0(SP) 405111' 202 16 0 17 000000 1919
MOVE AC1,AC12 ; AC1,TCB_ADDR 405112' 200 01 0 00 000012
HRRZ AC2,0(AC10) ; AC2,0(AC10) 405113' 550 02 0 10 000000
ADD AC1,AC2 ; AC1,AC2 405114' 270 01 0 00 000002
ADD AC1,AC0 ; AC1,COUNTER 405115' 270 01 0 00 000000
PUSH SP,AC1 ; SP,AC1 405116' 261 17 0 00 000001
MOVEI AC1,-30(SP) ; AC1,ASCVAL 405117' 201 01 0 17 777750
ADD AC1,AC0 ; AC1,COUNTER 405120' 270 01 0 00 000000
PUSH SP,0(AC1) ; SP,0(AC1) 405121' 261 17 0 01 000000
PUSHJ SP,PUTBYT ; SP,PUTBYT 405122' 260 17 0 00 403324'
ADJSP SP,-2 ; SP,-2 405123' 105 17 0 00 777776
ADDI AC0,1 ; COUNTER,1 405124' 271 00 0 00 000001 1918
CAIG AC0,3 ; COUNTER,3 405125' 307 00 0 00 000003
JRST L.129 ; L.129 405126' 254 00 0 00 405111'
MOVEM AC16,0(SP) ; AC16,0(SP) 405127' 202 16 0 17 000000 1921
MOVE AC1,AC12 ; AC1,TCB_ADDR 405130' 200 01 0 00 000012
HLRZ AC0,0(AC10) ; AC0,0(AC10) 405131' 554 00 0 10 000000
ADD AC1,AC0 ; AC1,AC0 405132' 270 01 0 00 000000
MOVE AC0,AC1 ; AC0,AC1 405133' 200 00 0 00 000001
ADDI AC0,2 ; AC0,2 405134' 271 00 0 00 000002
PUSH SP,AC0 ; SP,AC0 405135' 261 17 0 00 000000
PUSH SP,AC1 ; SP,AC1 405136' 261 17 0 00 000001
PUSHJ SP,PUTWRD ; SP,PUTWRD 405137' 260 17 0 00 403414'
MOVEM AC16,0(SP) ; AC16,0(SP) 405140' 202 16 0 17 000000 1922
MOVE AC1,AC12 ; AC1,TCB_ADDR 405141' 200 01 0 00 000012
HRRZ AC0,42(AC14) ; AC0,42(AC14) 405142' 550 00 0 14 000042
ADD AC1,AC0 ; AC1,AC0 405143' 270 01 0 00 000000
MOVE AC0,AC1 ; AC0,AC1 405144' 200 00 0 00 000001
ADDI AC0,2 ; AC0,2 405145' 271 00 0 00 000002
PUSH SP,AC0 ; SP,AC0 405146' 261 17 0 00 000000
PUSH SP,AC1 ; SP,AC1 405147' 261 17 0 00 000001
PUSHJ SP,PUTWRD ; SP,PUTWRD 405150' 260 17 0 00 403414'
MOVEM AC16,0(SP) ; AC16,0(SP) 405151' 202 16 0 17 000000 1923
MOVE AC0,AC12 ; AC0,TCB_ADDR 405152' 200 00 0 00 000012
HRRZ AC1,43(AC14) ; AC1,43(AC14) 405153' 550 01 0 14 000043
ADD AC0,AC1 ; AC0,AC1 405154' 270 00 0 00 000001
PUSH SP,AC0 ; SP,AC0 405155' 261 17 0 00 000000
HRRZ AC0,52(AC14) ; AC0,52(AC14) 405156' 550 00 0 14 000052
PUSH SP,AC0 ; SP,AC0 405157' 261 17 0 00 000000
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 104
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (17)
PUSHJ SP,PUTWRD ; SP,PUTWRD 405160' 260 17 0 00 403414'
MOVEM AC16,0(SP) ; AC16,0(SP) 405161' 202 16 0 17 000000 1924
MOVE AC0,AC12 ; AC0,TCB_ADDR 405162' 200 00 0 00 000012
HLRZ AC1,43(AC14) ; AC1,43(AC14) 405163' 554 01 0 14 000043
ADD AC0,AC1 ; AC0,AC1 405164' 270 00 0 00 000001
PUSH SP,AC0 ; SP,AC0 405165' 261 17 0 00 000000
HRRZ AC0,57(AC14) ; AC0,57(AC14) 405166' 550 00 0 14 000057
HLRZ AC1,60(AC14) ; AC1,60(AC14) 405167' 554 01 0 14 000060
IOR AC0,AC1 ; AC0,AC1 405170' 434 00 0 00 000001
PUSH SP,AC0 ; SP,AC0 405171' 261 17 0 00 000000
PUSHJ SP,PUTWRD ; SP,PUTWRD 405172' 260 17 0 00 403414'
MOVEM AC16,0(SP) ; AC16,0(SP) 405173' 202 16 0 17 000000 1925
MOVE AC0,AC12 ; AC0,TCB_ADDR 405174' 200 00 0 00 000012
HRRZ AC1,44(AC14) ; AC1,44(AC14) 405175' 550 01 0 14 000044
ADD AC0,AC1 ; AC0,AC1 405176' 270 00 0 00 000001
PUSH SP,AC0 ; SP,AC0 405177' 261 17 0 00 000000
MOVEI AC0,400 ; AC0,400 405200' 201 00 0 00 000400 1926
TDNN AC0,-24(SP) ; AC0,TASK_FLAGS 405201' 616 00 0 17 777754
JRST L.130 ; L.130 405202' 254 00 0 00 405205'
HRRZ AC10,66(AC14) ; AC10,66(AC14) 405203' 550 10 0 14 000066
JRST L.131 ; L.131 405204' 254 00 0 00 405206'
L.130: SETZ AC10, ; AC10, 405205' 400 10 0 00 000000
L.131: HRRZ AC0,65(AC14) ; AC0,65(AC14) 405206' 550 00 0 14 000065 1925
IOR AC10,AC0 ; AC10,AC0 405207' 434 10 0 00 000000
MOVEI AC0,20000 ; AC0,20000 405210' 201 00 0 00 020000 1927
TDNN AC0,-24(SP) ; AC0,TASK_FLAGS 405211' 616 00 0 17 777754
JRST L.132 ; L.132 405212' 254 00 0 00 405215'
HLRZ AC0,64(AC14) ; AC0,64(AC14) 405213' 554 00 0 14 000064
JRST L.133 ; L.133 405214' 254 00 0 00 405216'
L.132: SETZ AC0, ; AC0, 405215' 400 00 0 00 000000
L.133: IOR AC0,AC10 ; AC0,AC10 405216' 434 00 0 00 000010 1926
MOVEI AC1,22000 ; AC1,22000 405217' 201 01 0 00 022000 1928
TDNN AC1,-24(SP) ; AC1,TASK_FLAGS 405220' 616 01 0 17 777754
JRST L.134 ; L.134 405221' 254 00 0 00 405224'
HLRZ AC10,70(AC14) ; AC10,70(AC14) 405222' 554 10 0 14 000070
JRST L.135 ; L.135 405223' 254 00 0 00 405225'
L.134: SETZ AC10, ; AC10, 405224' 400 10 0 00 000000
L.135: IOR AC10,AC0 ; AC10,AC0 405225' 434 10 0 00 000000 1927
PUSH SP,AC10 ; SP,AC10 405226' 261 17 0 00 000010
PUSHJ SP,PUTWRD ; SP,PUTWRD 405227' 260 17 0 00 403414' 1925
MOVEM AC16,0(SP) ; AC16,0(SP) 405230' 202 16 0 17 000000 1929
MOVE AC0,AC12 ; AC0,TCB_ADDR 405231' 200 00 0 00 000012
HLRZ AC1,44(AC14) ; AC1,44(AC14) 405232' 554 01 0 14 000044
ADD AC0,AC1 ; AC0,AC1 405233' 270 00 0 00 000001
PUSH SP,AC0 ; SP,AC0 405234' 261 17 0 00 000000
PUSH SP,-32(SP) ; SP,PRIORITY 405235' 261 17 0 17 777746
PUSHJ SP,PUTBYT ; SP,PUTBYT 405236' 260 17 0 00 403324'
MOVE AC0,AC14 ; AC0,AC14 405237' 200 00 0 00 000014 1936
ADDI AC0,45 ; AC0,45 405240' 271 00 0 00 000045
SETZ AC10, ; COUNTER, 405241' 400 10 0 00 000000 1935
L.136: MOVEM AC16,0(SP) ; AC16,0(SP) 405242' 202 16 0 17 000000 1936
MOVE AC2,AC12 ; AC2,TCB_ADDR 405243' 200 02 0 00 000012
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 105
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (17)
MOVE AC4,AC0 ; AC4,AC0 405244' 200 04 0 00 000000
HRRZ AC3,0(AC4) ; AC3,0(AC4) 405245' 550 03 0 04 000000
ADD AC2,AC3 ; AC2,AC3 405246' 270 02 0 00 000003
MOVE AC1,AC2 ; AC1,AC2 405247' 200 01 0 00 000002
ADD AC1,AC10 ; AC1,COUNTER 405250' 270 01 0 00 000010
PUSH SP,AC1 ; SP,AC1 405251' 261 17 0 00 000001
PUSH SP,C.5 ; SP,[0] 405252' 261 17 0 00 400166'
PUSHJ SP,PUTBYT ; SP,PUTBYT 405253' 260 17 0 00 403324'
ADJSP SP,-2 ; SP,-2 405254' 105 17 0 00 777776
ADDI AC10,1 ; COUNTER,1 405255' 271 10 0 00 000001 1935
CAIG AC10,3 ; COUNTER,3 405256' 307 10 0 00 000003
JRST L.136 ; L.136 405257' 254 00 0 00 405242'
SETZ AC11, ; SEARCH_DONE, 405260' 400 11 0 00 000000 1942
MOVEM AC16,0(SP) ; AC16,0(SP) 405261' 202 16 0 17 000000 1943
HRRZ AC1,11(AC14) ; AC1,11(AC14) 405262' 550 01 0 14 000011
PUSH SP,AC1 ; SP,AC1 405263' 261 17 0 00 000001
PUSHJ SP,GETWRD ; SP,GETWRD 405264' 260 17 0 00 403201'
MOVE AC13,AC1 ; TEMP1,AC1 405265' 200 13 0 00 000001
MOVE AC10,AC14 ; AC10,AC14 405266' 200 10 0 00 000014 1948
ADDI AC10,73 ; AC10,73 405267' 271 10 0 00 000073
L.137: JUMPN AC11,L.140 ; SEARCH_DONE,L.140 405270' 326 11 0 00 405325' 1945
MOVEM AC16,0(SP) ; AC16,0(SP) 405271' 202 16 0 17 000000 1948
MOVE AC1,AC13 ; AC1,TEMP1 405272' 200 01 0 00 000013
HLRZ AC2,0(AC10) ; AC2,0(AC10) 405273' 554 02 0 10 000000
ADD AC1,AC2 ; AC1,AC2 405274' 270 01 0 00 000002
PUSH SP,AC1 ; SP,AC1 405275' 261 17 0 00 000001
PUSHJ SP,GETWRD ; SP,GETWRD 405276' 260 17 0 00 403201'
ADJSP SP,-1 ; SP,-1 405277' 105 17 0 00 777777
CAIE AC1,41114 ; AC1,41114 405300' 302 01 0 00 041114
JRST L.138 ; L.138 405301' 254 00 0 00 405313'
MOVEM AC16,0(SP) ; AC16,0(SP) 405302' 202 16 0 17 000000 1951
MOVE AC1,AC13 ; AC1,TEMP1 405303' 200 01 0 00 000013
HRRZ AC2,0(AC10) ; AC2,0(AC10) 405304' 550 02 0 10 000000
ADD AC1,AC2 ; AC1,AC2 405305' 270 01 0 00 000002
PUSH SP,AC1 ; SP,AC1 405306' 261 17 0 00 000001
PUSHJ SP,GETWRD ; SP,GETWRD 405307' 260 17 0 00 403201'
MOVE AC13,AC1 ; TEMP1,AC1 405310' 200 13 0 00 000001
MOVEI AC11,1 ; SEARCH_DONE,1 405311' 201 11 0 00 000001 1952
JRST L.139 ; L.139 405312' 254 00 0 00 405323' 1948
L.138: MOVEM AC16,0(SP) ; AC16,0(SP) 405313' 202 16 0 17 000000 1956
MOVE AC1,AC13 ; AC1,TEMP1 405314' 200 01 0 00 000013
HLRZ AC2,72(AC14) ; AC2,72(AC14) 405315' 554 02 0 14 000072
ADD AC1,AC2 ; AC1,AC2 405316' 270 01 0 00 000002
PUSH SP,AC1 ; SP,AC1 405317' 261 17 0 00 000001
PUSHJ SP,GETWRD ; SP,GETWRD 405320' 260 17 0 00 403201'
SKIPN AC13,AC1 ; TEMP1,AC1 405321' 336 13 0 00 000001
SETO AC11, ; SEARCH_DONE, 405322' 474 11 0 00 000000 1958
L.139: ADJSP SP,-1 ; SP,-1 405323' 105 17 0 00 777777 1946
JRST L.137 ; L.137 405324' 254 00 0 00 405270' 1945
L.140: JUMPG AC11,L.141 ; SEARCH_DONE,L.141 405325' 327 11 0 00 405331' 1964
PUSH SP,C.184 ; SP,[0,,P.AGZ] 405326' 261 17 0 00 405624'
PUSHJ SP,ERROR ; SP,ERROR 405327' 260 17 0 00 000000*
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 106
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (17)
ADJSP SP,-1 ; SP,-1 405330' 105 17 0 00 777777
L.141: MOVEM AC16,0(SP) ; AC16,0(SP) 405331' 202 16 0 17 000000 1969
MOVE AC1,AC12 ; AC1,TCB_ADDR 405332' 200 01 0 00 000012
MOVE AC3,AC0 ; AC3,AC0 405333' 200 03 0 00 000000
HLRZ AC2,0(AC3) ; AC2,0(AC3) 405334' 554 02 0 03 000000
ADD AC1,AC2 ; AC1,AC2 405335' 270 01 0 00 000002
PUSH SP,AC1 ; SP,AC1 405336' 261 17 0 00 000001
PUSH SP,AC13 ; SP,TEMP1 405337' 261 17 0 00 000013
PUSHJ SP,PUTWRD ; SP,PUTWRD 405340' 260 17 0 00 403414'
MOVEM AC16,0(SP) ; AC16,0(SP) 405341' 202 16 0 17 000000 1970
MOVE AC0,AC12 ; AC0,TCB_ADDR 405342' 200 00 0 00 000012
HRRZ AC1,46(AC14) ; AC1,46(AC14) 405343' 550 01 0 14 000046
ADD AC0,AC1 ; AC0,AC1 405344' 270 00 0 00 000001
PUSH SP,AC0 ; SP,AC0 405345' 261 17 0 00 000000
PUSH SP,-43(SP) ; SP,PCB_ADDR 405346' 261 17 0 17 777735
PUSHJ SP,PUTWRD ; SP,PUTWRD 405347' 260 17 0 00 403414'
MOVEM AC16,0(SP) ; AC16,0(SP) 405350' 202 16 0 17 000000 1971
MOVE AC0,AC12 ; AC0,TCB_ADDR 405351' 200 00 0 00 000012
HLRZ AC1,46(AC14) ; AC1,46(AC14) 405352' 554 01 0 14 000046
ADD AC0,AC1 ; AC0,AC1 405353' 270 00 0 00 000001
PUSH SP,AC0 ; SP,AC0 405354' 261 17 0 00 000000
MOVE AC1,-43(SP) ; AC1,TASK_SIZE 405355' 200 01 0 17 777735
IDIVI AC1,100 ; AC1,100 405356' 231 01 0 00 000100
PUSH SP,AC1 ; SP,AC1 405357' 261 17 0 00 000001
PUSHJ SP,PUTWRD ; SP,PUTWRD 405360' 260 17 0 00 403414'
SETO AC0, ; COUNTER, 405361' 474 00 0 00 000000 1977
JRST L.143 ; L.143 405362' 254 00 0 00 405400'
L.142: MOVEM AC16,0(SP) ; AC16,0(SP) 405363' 202 16 0 17 000000 1978
MOVE AC1,-37(SP) ; AC1,HDR_ADDR 405364' 200 01 0 17 777741
ADD AC1,AC0 ; AC1,COUNTER 405365' 270 01 0 00 000000
PUSH SP,AC1 ; SP,AC1 405366' 261 17 0 00 000001
PUSH SP,-36(SP) ; SP,-36(SP) 405367' 261 17 0 17 777742
MOVE AC1,-42(SP) ; AC1,TASK_BASE 405370' 200 01 0 17 777736
ADD AC1,AC0 ; AC1,COUNTER 405371' 270 01 0 00 000000
PUSH SP,AC1 ; SP,AC1 405372' 261 17 0 00 000001
PUSHJ SP,GETBYT ; SP,GETBYT 405373' 260 17 0 00 403107'
ADJSP SP,-1 ; SP,-1 405374' 105 17 0 00 777777
MOVEM AC1,0(SP) ; AC1,0(SP) 405375' 202 01 0 17 000000
PUSHJ SP,PUTBYT ; SP,PUTBYT 405376' 260 17 0 00 403324'
ADJSP SP,-2 ; SP,-2 405377' 105 17 0 00 777776
L.143: ADDI AC0,1 ; COUNTER,1 405400' 271 00 0 00 000001 1977
CAMGE AC0,-43(SP) ; COUNTER,HDR_SIZE 405401' 315 00 0 17 777735
JRST L.142 ; L.142 405402' 254 00 0 00 405363'
MOVEM AC16,0(SP) ; AC16,0(SP) 405403' 202 16 0 17 000000 1983
MOVE AC1,-37(SP) ; AC1,HDR_ADDR 405404' 200 01 0 17 777741
HRRZ AC0,50(AC14) ; AC0,50(AC14) 405405' 550 00 0 14 000050
ADD AC1,AC0 ; AC1,AC0 405406' 270 01 0 00 000000
PUSH SP,AC1 ; SP,AC1 405407' 261 17 0 00 000001
PUSH SP,AC16 ; SP,AC16 405410' 261 17 0 00 000016 1984
PUSH SP,AC1 ; SP,AC1 405411' 261 17 0 00 000001
PUSHJ SP,GETWRD ; SP,GETWRD 405412' 260 17 0 00 403201'
ADD AC1,-42(SP) ; AC1,HDR_ADDR 405413' 270 01 0 17 777736
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 107
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (17)
MOVEM AC1,-1(SP) ; AC1,-1(SP) 405414' 202 01 0 17 777777
ADJSP SP,-1 ; SP,-1 405415' 105 17 0 00 777777
PUSHJ SP,PUTWRD ; SP,PUTWRD 405416' 260 17 0 00 403414' 1983
MOVEM AC16,0(SP) ; AC16,0(SP) 405417' 202 16 0 17 000000 1985
MOVE AC1,-41(SP) ; AC1,HDR_ADDR 405420' 200 01 0 17 777737
HLRZ AC0,50(AC14) ; AC0,50(AC14) 405421' 554 00 0 14 000050
ADD AC1,AC0 ; AC1,AC0 405422' 270 01 0 00 000000
PUSH SP,AC1 ; SP,AC1 405423' 261 17 0 00 000001
PUSH SP,AC16 ; SP,AC16 405424' 261 17 0 00 000016 1986
PUSH SP,AC1 ; SP,AC1 405425' 261 17 0 00 000001
PUSHJ SP,GETWRD ; SP,GETWRD 405426' 260 17 0 00 403201'
ADD AC1,-44(SP) ; AC1,HDR_ADDR 405427' 270 01 0 17 777734
MOVEM AC1,-1(SP) ; AC1,-1(SP) 405430' 202 01 0 17 777777
ADJSP SP,-1 ; SP,-1 405431' 105 17 0 00 777777
PUSHJ SP,PUTWRD ; SP,PUTWRD 405432' 260 17 0 00 403414' 1985
MOVEM AC16,0(SP) ; AC16,0(SP) 405433' 202 16 0 17 000000 1987
MOVE AC0,-43(SP) ; AC0,HDR_ADDR 405434' 200 00 0 17 777735
HRRZ AC1,51(AC14) ; AC1,51(AC14) 405435' 550 01 0 14 000051
ADD AC0,AC1 ; AC0,AC1 405436' 270 00 0 00 000001
PUSH SP,AC0 ; SP,AC0 405437' 261 17 0 00 000000
PUSHJ SP,GETWRD ; SP,GETWRD 405440' 260 17 0 00 403201'
MOVE AC0,AC1 ; NLUN,AC1 405441' 200 00 0 00 000001
MOVEM AC16,0(SP) ; AC16,0(SP) 405442' 202 16 0 17 000000 1988
MOVE AC1,-44(SP) ; AC1,HDR_ADDR 405443' 200 01 0 17 777734
HLRZ AC2,51(AC14) ; AC2,51(AC14) 405444' 554 02 0 14 000051
ADD AC1,AC2 ; AC1,AC2 405445' 270 01 0 00 000002
IMULI AC0,4 ; NLUN,4 405446' 221 00 0 00 000004
ADD AC1,AC0 ; AC1,AC0 405447' 270 01 0 00 000000
ADDI AC1,2 ; AC1,2 405450' 271 01 0 00 000002
PUSH SP,AC1 ; SP,AC1 405451' 261 17 0 00 000001
PUSH SP,-54(SP) ; SP,PCB_ADDR 405452' 261 17 0 17 777724
PUSHJ SP,PUTWRD ; SP,PUTWRD 405453' 260 17 0 00 403414'
MOVEM AC16,0(SP) ; AC16,0(SP) 405454' 202 16 0 17 000000 1992
MOVE AC0,-55(SP) ; AC0,PCB_ADDR 405455' 200 00 0 17 777723
HRRZ AC1,21(AC14) ; AC1,21(AC14) 405456' 550 01 0 14 000021
ADD AC0,AC1 ; AC0,AC1 405457' 270 00 0 00 000001
PUSH SP,AC0 ; SP,AC0 405460' 261 17 0 00 000000
PUSH SP,AC12 ; SP,TCB_ADDR 405461' 261 17 0 00 000012
PUSHJ SP,PUTWRD ; SP,PUTWRD 405462' 260 17 0 00 403414'
MOVEM AC16,0(SP) ; AC16,0(SP) 405463' 202 16 0 17 000000 1993
MOVE AC0,-57(SP) ; AC0,PCB_ADDR 405464' 200 00 0 17 777721
HRRZ AC1,22(AC14) ; AC1,22(AC14) 405465' 550 01 0 14 000022
ADD AC0,AC1 ; AC0,AC1 405466' 270 00 0 00 000001
PUSH SP,AC0 ; SP,AC0 405467' 261 17 0 00 000000
PUSH SP,-51(SP) ; SP,HDR_ADDR 405470' 261 17 0 17 777727
PUSHJ SP,PUTWRD ; SP,PUTWRD 405471' 260 17 0 00 403414'
MOVEM AC16,0(SP) ; AC16,0(SP) 405472' 202 16 0 17 000000 1997
MOVE AC0,-61(SP) ; AC0,PCB_ADDR 405473' 200 00 0 17 777717
HLRZ AC1,16(AC14) ; AC1,16(AC14) 405474' 554 01 0 14 000016
ADD AC0,AC1 ; AC0,AC1 405475' 270 00 0 00 000001
PUSH SP,AC0 ; SP,AC0 405476' 261 17 0 00 000000
PUSHJ SP,GETWRD ; SP,GETWRD 405477' 260 17 0 00 403201'
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 108
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (17)
MOVE AC10,AC1 ; PARTITION_BASE,AC1 405500' 200 10 0 00 000001
IMULI AC10,100 ; PARTITION_BASE,100 405501' 221 10 0 00 000100
SETO AC0, ; COUNTER, 405502' 474 00 0 00 000000 2008
JRST L.145 ; L.145 405503' 254 00 0 00 405521'
L.144: MOVEM AC16,0(SP) ; AC16,0(SP) 405504' 202 16 0 17 000000 2009
MOVE AC1,AC10 ; AC1,PARTITION_BASE 405505' 200 01 0 00 000010
ADD AC1,AC0 ; AC1,COUNTER 405506' 270 01 0 00 000000
PUSH SP,AC1 ; SP,AC1 405507' 261 17 0 00 000001
PUSH SP,-52(SP) ; SP,-52(SP) 405510' 261 17 0 17 777726
MOVE AC1,AC0 ; AC1,COUNTER 405511' 200 01 0 00 000000
ADD AC1,-56(SP) ; AC1,TASK_BASE 405512' 270 01 0 17 777722
PUSH SP,AC1 ; SP,AC1 405513' 261 17 0 00 000001
PUSHJ SP,GETBYT ; SP,GETBYT 405514' 260 17 0 00 403107'
ADJSP SP,-1 ; SP,-1 405515' 105 17 0 00 777777
MOVEM AC1,0(SP) ; AC1,0(SP) 405516' 202 01 0 17 000000
PUSHJ SP,PUTBYT ; SP,PUTBYT 405517' 260 17 0 00 403324'
ADJSP SP,-2 ; SP,-2 405520' 105 17 0 00 777776
L.145: ADDI AC0,1 ; COUNTER,1 405521' 271 00 0 00 000001 2008
CAMGE AC0,-60(SP) ; COUNTER,TASK_SIZE 405522' 315 00 0 17 777720
JRST L.144 ; L.144 405523' 254 00 0 00 405504'
MOVEM AC16,0(SP) ; AC16,0(SP) 405524' 202 16 0 17 000000 2014
HRRZ AC0,10(AC14) ; AC0,10(AC14) 405525' 550 00 0 14 000010
PUSH SP,AC0 ; SP,AC0 405526' 261 17 0 00 000000
PUSHJ SP,GETWRD ; SP,GETWRD 405527' 260 17 0 00 403201'
MOVE AC13,AC1 ; TEMP1,AC1 405530' 200 13 0 00 000001
SETZB AC11,-56(SP) ; SEARCH_DONE,TEMP3 405531' 403 11 0 17 777722 2015
L.146: JUMPN AC11,L.149 ; SEARCH_DONE,L.149 405532' 326 11 0 00 405563' 2018
MOVEM AC16,0(SP) ; AC16,0(SP) 405533' 202 16 0 17 000000 2020
MOVE AC0,AC13 ; AC0,TEMP1 405534' 200 00 0 00 000013
HLRZ AC1,40(AC14) ; AC1,40(AC14) 405535' 554 01 0 14 000040
ADD AC0,AC1 ; AC0,AC1 405536' 270 00 0 00 000001
PUSH SP,AC0 ; SP,AC0 405537' 261 17 0 00 000000
PUSHJ SP,GETBYT ; SP,GETBYT 405540' 260 17 0 00 403107'
MOVEM AC1,-63(SP) ; AC1,TEMP2 405541' 202 01 0 17 777715
MOVE AC0,-63(SP) ; AC0,TEMP2 405542' 200 00 0 17 777715 2022
CAML AC0,-60(SP) ; AC0,PRIORITY 405543' 311 00 0 17 777720
JRST L.147 ; L.147 405544' 254 00 0 00 405547'
MOVEI AC11,1 ; SEARCH_DONE,1 405545' 201 11 0 00 000001 2024
JRST L.148 ; L.148 405546' 254 00 0 00 405561' 2022
L.147: MOVEM AC13,-57(SP) ; TEMP1,TEMP3 405547' 202 13 0 17 777721 2027
MOVEM AC16,0(SP) ; AC16,0(SP) 405550' 202 16 0 17 000000 2028
MOVE AC0,AC13 ; AC0,TEMP1 405551' 200 00 0 00 000013
HLRZ AC1,42(AC14) ; AC1,42(AC14) 405552' 554 01 0 14 000042
ADD AC0,AC1 ; AC0,AC1 405553' 270 00 0 00 000001
PUSH SP,AC0 ; SP,AC0 405554' 261 17 0 00 000000
PUSHJ SP,GETWRD ; SP,GETWRD 405555' 260 17 0 00 403201'
SKIPN AC13,AC1 ; TEMP1,AC1 405556' 336 13 0 00 000001
SETO AC11, ; SEARCH_DONE, 405557' 474 11 0 00 000000 2030
ADJSP SP,-1 ; SP,-1 405560' 105 17 0 00 777777 2026
L.148: ADJSP SP,-1 ; SP,-1 405561' 105 17 0 00 777777 2019
JRST L.146 ; L.146 405562' 254 00 0 00 405532' 2018
L.149: JUMPGE AC11,L.150 ; SEARCH_DONE,L.150 405563' 325 11 0 00 405567' 2036
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 109
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (17)
PUSH SP,C.185 ; SP,[0,,P.AHC] 405564' 261 17 0 00 405625'
PUSHJ SP,ERROR ; SP,ERROR 405565' 260 17 0 00 000000*
ADJSP SP,-1 ; SP,-1 405566' 105 17 0 00 777777
L.150: SKIPE -56(SP) ; TEMP3 405567' 332 00 0 17 777722 2043
JRST L.151 ; L.151 405570' 254 00 0 00 405574'
MOVEM AC16,0(SP) ; AC16,0(SP) 405571' 202 16 0 17 000000 2045
HRRZ AC0,10(AC14) ; AC0,10(AC14) 405572' 550 00 0 14 000010
JRST L.152 ; L.152 405573' 254 00 0 00 405600'
L.151: MOVEM AC16,0(SP) ; AC16,0(SP) 405574' 202 16 0 17 000000 2047
MOVE AC0,-56(SP) ; AC0,TEMP3 405575' 200 00 0 17 777722 2048
HLRZ AC1,42(AC14) ; AC1,42(AC14) 405576' 554 01 0 14 000042
ADD AC0,AC1 ; AC0,AC1 405577' 270 00 0 00 000001
L.152: PUSH SP,AC0 ; SP,AC0 405600' 261 17 0 00 000000
PUSH SP,AC12 ; SP,TCB_ADDR 405601' 261 17 0 00 000012 2047
PUSHJ SP,PUTWRD ; SP,PUTWRD 405602' 260 17 0 00 403414'
MOVEM AC16,0(SP) ; AC16,0(SP) 405603' 202 16 0 17 000000 2050
HLRZ AC0,42(AC14) ; AC0,42(AC14) 405604' 554 00 0 14 000042
ADD AC12,AC0 ; TCB_ADDR,AC0 405605' 270 12 0 00 000000
PUSH SP,AC12 ; SP,TCB_ADDR 405606' 261 17 0 00 000012
PUSH SP,AC13 ; SP,TEMP1 405607' 261 17 0 00 000013
PUSHJ SP,PUTWRD ; SP,PUTWRD 405610' 260 17 0 00 403414'
ADJSP SP,-56 ; SP,-56 405611' 105 17 0 00 777722 1788
ADJSP SP,-20 ; SP,-20 405612' 105 17 0 00 777760 1750
POP SP,AC16 ; SP,AC16 405613' 262 17 0 00 000016
POP SP,AC14 ; SP,AC14 405614' 262 17 0 00 000014
POP SP,AC13 ; SP,AC13 405615' 262 17 0 00 000013
POP SP,AC12 ; SP,AC12 405616' 262 17 0 00 000012
POP SP,AC11 ; SP,AC11 405617' 262 17 0 00 000011
POP SP,AC10 ; SP,AC10 405620' 262 17 0 00 000010
POP SP,AC0 ; SP,AC0 405621' 262 17 0 00 000000
POPJ SP, ; SP, 405622' 263 17 0 00 000000
C.183: XWD 0,P.AGY ; 0,P.AGY 405623' 000000 404641'
C.184: XWD 0,P.AGZ ; 0,P.AGZ 405624' 000000 404647'
C.185: XWD 0,P.AHC ; 0,P.AHC 405625' 000000 404656'
; Routine Size: 483 words
; 2052
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 110
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (18)
; 2053 GLOBAL ROUTINE LOADD (KERNEL_FILE, TASK_FILE, TASK_NAME, GEN_PCB, VALUES) : NOVALUE = !INSTALL A DRIVER
; 2054
; 2055 !++
; 2056 ! FUNCTIONAL DESCRIPTION:
; 2057 !
; 2058 ! INSTALL A LOADABLE DRIVER, WITH DATA BASE. IT IS ALWAYS
; 2059 ! INSTALLED IN THE SYSTEM-CONTROLLED PARTITION.
; 2060 !
; 2061 ! FORMAL PARAMETERS:
; 2062 !
; 2063 ! KERNEL_FILE - POINTER TO THE FILE BLOCK WHICH DESCRIBES THE
; 2064 ! RSX-11S KERNEL
; 2065 ! TASK_FILE - POINTER TO A SIMILAR FILE BLOCK WHICH DESCRIBES
; 2066 ! THE TASK (DRIVER) TO BE INSTALLED
; 2067 ! TASK_NAME - POINTER TO THE TASK NAME, IN ASCII.
; 2068 ! THIS IS ALWAYS OF THE FORM XXDRV, WHERE XX IS THE DEVICE NAME.
; 2069 ! GEN_PCB - PDP-11 ADDRESS OF THE SYSTEM-CONTROLLED PARTITION
; 2070 ! VALUES - POINTER TO THE VALUES BLOCK
; 2071 !
; 2072 ! IMPLICIT INPUTS:
; 2073 !
; 2074 ! NONE
; 2075 !
; 2076 ! IMPLICIT OUTPUTS:
; 2077 !
; 2078 ! NONE
; 2079 !
; 2080 ! ROUTINE VALUE:
; 2081 !
; 2082 ! NONE
; 2083 !
; 2084 ! SIDE EFFECTS
; 2085 !
; 2086 ! MODIFIES THE KERNEL'S DATA STRUCTURES
; 2087 !
; 2088 !--
; 2089
; 2090 BEGIN
; 2091
; 2092 BIND
; 2093 ROUTINE_NAME = UPLIT (%ASCIZ'LOADD');
; 2094
; 2095 MAP
; 2096 KERNEL_FILE : REF FILE_BLOCK,
; 2097 TASK_FILE : REF FILE_BLOCK,
; 2098 VALUES : REF VNPVAL_BLOCK;
; 2099
; 2100 LOCAL
; 2101 PCB_ADDR,
; 2102 PAR_BASE,
; 2103 TASK_LABEL : REF VECTOR [1024],
; 2104 TASK_BASE,
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 111
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (18)
; 2105 TASK_TOP,
; 2106 TASK_SIZE,
; 2107 TASK_FLAGS,
; 2108 PCB_BASE,
; 2109 FIRST_DCB_ADDR,
; 2110 LAST_DCB_ADDR,
; 2111 DCB_ADDR,
; 2112 LAST_SCB_ADDR,
; 2113 SCB_ADDR,
; 2114 FIRST_UCB_ADDR,
; 2115 UCB_ADDR,
; 2116 UCB_LENGTH,
; 2117 XXEND,
; 2118 XXDAT,
; 2119 INPINT,
; 2120 OUTINT,
; 2121 VECTOR,
; 2122 LOC,
; 2123 NUNITS;
; 2124
; 2125 IF (DEBUG GEQ 1)
; 2126 THEN
; 2127 BEGIN !DEBUG
; 2128 PCRLF (1);
; 2129 OUTSTR (1, UPLIT (%ASCIZ'LOAD DRIVER: '));
; 2130 OUTSTR (1, TASK_FILE [FILE_NAME]);
; 2131 END; !DEBUG
; 2132
; 2133 !
; 2134 ! COMPUTE THE SIZE OF THE TASK, AND ITS FLAGS
; 2135 !
; 2136 TASK_LABEL = .TASK_FILE [FILE_LABEL];
; 2137 TASK_BASE = .TASK_LABEL [L$BSA] + (.TASK_LABEL [L$BSA + 1]*256);
; 2138 TASK_TOP = .TASK_LABEL [L$BHGV] + (.TASK_LABEL [L$BHGV + 1]*256);
; 2139 TASK_SIZE = .TASK_TOP - .TASK_BASE + 1;
; 2140 TASK_FLAGS = .TASK_LABEL [L$BFLG] + (.TASK_LABEL [L$BFLG + 1]*256);
; 2141 !
; 2142 ! COMPUTE THE LENGTH OF THE DRIVER'S DATA BASE
; 2143 ! AND ALLOCATE SPACE FOR IT.
; 2144 !
; 2145 XXEND = VRBL_SYM (.TASK_FILE, 2, UPLIT (%ASCIZ'$\\END'), 0);
; 2146 XXDAT = VRBL_SYM (.TASK_FILE, 2, UPLIT (%ASCIZ'$\\DAT'), 0);
; 2147 FIRST_DCB_ADDR = ALOCB (.KERNEL_FILE, .XXEND - .XXDAT, 0, .VALUES);
; 2148 !
; 2149 ! COPY THE DATA BASE TO THE KERNEL POOL
; 2150 !
; 2151
; 2152 INCR COUNTER FROM .XXDAT TO .XXEND - 1 DO
; 2153 PUTBYT (.KERNEL_FILE, .FIRST_DCB_ADDR + .COUNTER - .XXDAT, GETBYT (.TASK_FILE, .COUNTER));
; 2154
; 2155 !
; 2156 ! ALLOCATE A PCB IN THE SYSTEM-CONTROLLED AREA TO POINT TO THE
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 112
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (18)
; 2157 ! DRIVER MEMORY.
; 2158 !
; 2159 PAR_BASE = .KERNEL_FILE [FILE_HWM] + 1;
; 2160 PCB_ADDR = M_PCB (.KERNEL_FILE, UPLIT (%ASCIZ'GEN '), .GEN_PCB, .PAR_BASE,
; 2161 .PAR_BASE + .TASK_SIZE - (.XXEND - .XXDAT), %O'000000', .VALUES [PS_SYS] OR .VALUES [PS_DRV], 0,
; 2162 .VALUES);
; 2163 !
; 2164 ! PROCESS EACH DCB, WITH ITS UCBS AND SCBS.
; 2165 !
; 2166 SCB_ADDR = 0;
; 2167 DCB_ADDR = .FIRST_DCB_ADDR;
; 2168
; 2169 WHILE (.DCB_ADDR NEQ 0) DO
; 2170 BEGIN
; 2171 LAST_DCB_ADDR = .DCB_ADDR;
; 2172 !
; 2173 ! COMPUTE THE NUMBER OF UNITS AND THE LENGTH OF EACH UCB
; 2174 !
; 2175 NUNITS = GETBYT (.KERNEL_FILE, .DCB_ADDR + .VALUES [D_UNIT] + 1) - GETBYT (.KERNEL_FILE,
; 2176 .DCB_ADDR + .VALUES [D_UNIT]) + 1;
; 2177 UCB_LENGTH = GETWRD (.KERNEL_FILE, .DCB_ADDR + .VALUES [D_UCBL]);
; 2178 !
; 2179 ! RELOCATE THE DCB, UCB AND SCB.
; 2180 !
; 2181 FIRST_UCB_ADDR = GETWRD (.KERNEL_FILE, .DCB_ADDR + .VALUES [D_UCB]) - .XXDAT + .DCB_ADDR;
; 2182 PUTWRD (.KERNEL_FILE, .DCB_ADDR + .VALUES [D_UCB], .FIRST_UCB_ADDR);
; 2183 PUTWRD (.KERNEL_FILE, .DCB_ADDR + .VALUES [D_DSP],
; 2184 VRBL_SYM (.TASK_FILE, 2, UPLIT (%ASCIZ'$\\TBL'), 0));
; 2185 PUTWRD (.KERNEL_FILE, .DCB_ADDR + .VALUES [D_PCB], .PCB_ADDR);
; 2186
; 2187 INCR COUNTER FROM 0 TO .NUNITS - 1 DO
; 2188 BEGIN !EACH UCB
; 2189 UCB_ADDR = .FIRST_UCB_ADDR + (.UCB_LENGTH*.COUNTER);
; 2190 PUTWRD (.KERNEL_FILE, .UCB_ADDR + .VALUES [U_DCB],
; 2191 GETWRD (.KERNEL_FILE,
; 2192 .UCB_ADDR + .VALUES [U_DCB]) - .XXDAT + .DCB_ADDR);
; 2193 PUTWRD (.KERNEL_FILE, .UCB_ADDR + .VALUES [U_RED],
; 2194 GETWRD (.KERNEL_FILE,
; 2195 .UCB_ADDR + .VALUES [U_RED]) - .XXDAT + .DCB_ADDR);
; 2196 LAST_SCB_ADDR = .SCB_ADDR;
; 2197 SCB_ADDR = GETWRD (.KERNEL_FILE, .UCB_ADDR + .VALUES [U_SCB]) - .XXDAT + .DCB_ADDR;
; 2198 PUTWRD (.KERNEL_FILE, .UCB_ADDR + .VALUES [U_SCB], .SCB_ADDR);
; 2199
; 2200 IF (.SCB_ADDR NEQ .LAST_SCB_ADDR)
; 2201 THEN
; 2202 BEGIN
; 2203 PUTWRD (.KERNEL_FILE, .SCB_ADDR + .VALUES [S_LHD] + 2,
; 2204 GETWRD (.KERNEL_FILE,
; 2205 .SCB_ADDR + .VALUES [S_LHD] + 2) - .XXDAT + .DCB_ADDR);
; 2206 PUTWRD (.KERNEL_FILE, .SCB_ADDR + .VALUES [S_FRK] + 8, .PAR_BASE/64);
; 2207
; 2208 IF ((VECTOR = GETBYT (.KERNEL_FILE, .SCB_ADDR + .VALUES [S_VCT])^2) NEQ 0)
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 113
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (18)
; 2209 THEN
; 2210 BEGIN
; 2211 OUTINT = -1;
; 2212
; 2213 IF ((INPINT = VRBL_SYM (.TASK_FILE, 2, UPLIT (%ASCIZ'$\\INT'), 1)) LEQ 0)
; 2214 THEN
; 2215 BEGIN
; 2216 OUTINT = VRBL_SYM (.TASK_FILE, 2, UPLIT (%ASCIZ'$\\OUT'), 0);
; 2217 INPINT = VRBL_SYM (.TASK_FILE, 2, UPLIT (%ASCIZ'$\\INP'), 0);
; 2218 END;
; 2219
; 2220 IF (INPINT GTR 0)
; 2221 THEN
; 2222 BEGIN
; 2223 LOC = ALOCB (.KERNEL_FILE, 28, 0, .VALUES);
; 2224 !
; 2225 ! INPUT INTERRUPT VECTOR SETUP
; 2226 !
; 2227 PUTWRD (.KERNEL_FILE, .VECTOR, .LOC);
; 2228 PUTWRD (.KERNEL_FILE, .VECTOR + 2, 7*32);
; 2229 !
; 2230 ! NOW COMPILE INSTRUCTIONS, AS FOLLOWS:
; 2231 !
; 2232 ! JSR R5,$INTSV
; 2233 ! .WORD PRIORITY
; 2234 ! MOV @#KIASR5,-(SP)
; 2235 ! MOV #BIAS,@#KIASR5
; 2236 ! JSR PC,@#$??INP OR JSR PC,@#$??INT
; 2237 ! MOV (SP)+,@#KIASR5
; 2238 ! RETURN
; 2239 !
; 2240 PUTWRD (.KERNEL_FILE, .LOC, %O'4537');
; 2241 PUTWRD (.KERNEL_FILE, .LOC + 2, SYM_VAL (.KERNEL_FILE, UPLIT (%ASCIZ'$INTSV'), 0));
; 2242 LOC = .LOC + 4;
; 2243 PUTWRD (.KERNEL_FILE, .LOC,
; 2244 (GETBYT (.KERNEL_FILE, .SCB_ADDR + .VALUES [S_VCT] - 1) XOR %O'340'));
; 2245 LOC = .LOC + 2;
; 2246 PUTWRD (.KERNEL_FILE, .LOC, %O'13746');
; 2247 PUTWRD (.KERNEL_FILE, .LOC + 2, %O'172352');
; 2248 LOC = .LOC + 4;
; 2249 PUTWRD (.KERNEL_FILE, .LOC, %O'12737');
; 2250 PUTWRD (.KERNEL_FILE, .LOC + 2, GETWRD (.KERNEL_FILE, .PCB_ADDR + .VALUES [P_REL]));
; 2251 PUTWRD (.KERNEL_FILE, .LOC + 4, %O'172352');
; 2252 LOC = .LOC + 6;
; 2253 PUTWRD (.KERNEL_FILE, .LOC, %O'4737');
; 2254 PUTWRD (.KERNEL_FILE, .LOC + 2, .INPINT);
; 2255 LOC = .LOC + 4;
; 2256 PUTWRD (.KERNEL_FILE, .LOC, %O'12637');
; 2257 PUTWRD (.KERNEL_FILE, .LOC + 2, %O'172352');
; 2258 LOC = .LOC + 4;
; 2259 PUTWRD (.KERNEL_FILE, .LOC, %O'207');
; 2260 END;
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 114
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (18)
; 2261
; 2262 IF (OUTINT GTR 0)
; 2263 THEN
; 2264 BEGIN
; 2265 LOC = ALOCB (.KERNEL_FILE, 28, 0, .VALUES);
; 2266 !
; 2267 ! OUTPUT INTERRUPT VECTOR SETUP
; 2268 !
; 2269 PUTWRD (.KERNEL_FILE, .VECTOR + 4, .LOC);
; 2270 PUTWRD (.KERNEL_FILE, .VECTOR + 6, 7*32);
; 2271 !
; 2272 ! NOW COMPILE INSTRUCTIONS, AS FOLLOWS:
; 2273 !
; 2274 ! JSR R5,@#$INTSV
; 2275 ! .WORD PRIORITY
; 2276 ! MOV @#KIASR5,-(SP)
; 2277 ! MOV #BIAS,@#KIASR5
; 2278 ! JSR PC,@#$??OUT
; 2279 ! MOV (SP)+,@#KIASR5
; 2280 ! RETURN
; 2281 !
; 2282 PUTWRD (.KERNEL_FILE, .LOC, %O'4537');
; 2283 PUTWRD (.KERNEL_FILE, .LOC + 2, SYM_VAL (.KERNEL_FILE, UPLIT (%ASCIZ'$INTSV'), 0));
; 2284 LOC = .LOC + 4;
; 2285 PUTWRD (.KERNEL_FILE, .LOC,
; 2286 (GETBYT (.KERNEL_FILE, .SCB_ADDR + .VALUES [S_VCT] - 1) XOR %O'340'));
; 2287 LOC = .LOC + 2;
; 2288 PUTWRD (.KERNEL_FILE, .LOC, %O'13746');
; 2289 PUTWRD (.KERNEL_FILE, .LOC + 2, %O'172352');
; 2290 LOC = .LOC + 4;
; 2291 PUTWRD (.KERNEL_FILE, .LOC, %O'12737');
; 2292 PUTWRD (.KERNEL_FILE, .LOC + 2, GETWRD (.KERNEL_FILE, .PCB_ADDR + .VALUES [P_REL]));
; 2293 PUTWRD (.KERNEL_FILE, .LOC + 4, %O'172352');
; 2294 LOC = .LOC + 6;
; 2295 PUTWRD (.KERNEL_FILE, .LOC, %O'4737');
; 2296 PUTWRD (.KERNEL_FILE, .LOC + 2, .OUTINT);
; 2297 LOC = .LOC + 4;
; 2298 PUTWRD (.KERNEL_FILE, .LOC, %O'12637');
; 2299 PUTWRD (.KERNEL_FILE, .LOC + 2, %O'172352');
; 2300 LOC = .LOC + 4;
; 2301 PUTWRD (.KERNEL_FILE, .LOC, %O'207');
; 2302 END;
; 2303
; 2304 IF ((.INPINT LEQ 0) AND (.OUTINT LEQ 0))
; 2305 THEN
; 2306 ERRMSG (0, 40, ROUTINE_NAME,
; 2307 UPLIT (%ASCIZ'Interrupt Setup'), UPLIT (%ASCIZ'for driver in file'),
; 2308 TASK_FILE [FILE_NAME], 0);
; 2309
; 2310 END;
; 2311
; 2312 END;
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 115
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (18)
; 2313
; 2314 END;
; 2315
; 2316 DCB_ADDR = GETWRD (.KERNEL_FILE, .DCB_ADDR + .VALUES [D_LNK]);
; 2317 END;
; 2318
; 2319 !
; 2320 ! STORE IN THE TCB POINTER FIELD OF THE PCB, A POINTER TO
; 2321 ! THE FIRST DCB.
; 2322 !
; 2323 PUTWRD (.KERNEL_FILE, .PCB_ADDR + .VALUES [P_TCB], .FIRST_DCB_ADDR);
; 2324 !
; 2325 ! COPY THE DRIVER CODE INTO THE PARTITION CREATED FOR IT
; 2326 !
; 2327
; 2328 INCR COUNTER FROM 0 TO .TASK_SIZE - 1 DO
; 2329 PUTBYT (.KERNEL_FILE, .PAR_BASE + .COUNTER, GETBYT (.TASK_FILE, .TASK_BASE + .COUNTER));
; 2330
; 2331 !
; 2332 ! LINK THE DCB INTO THE SYSTEM'S LIST OF DCBS
; 2333 !
; 2334 LNKDCB (.KERNEL_FILE, .FIRST_DCB_ADDR, .VALUES);
; 2335 END; !OF LOADD
P.AHD: BYTE (7)"L","O","A","D","D" ; LOADD 405626' 114 117 101 104 104
BYTE (7)000,000,000,000,000 ; 405627' 000 000 000 000 000
P.AHE: BYTE (7)"L","O","A","D"," " ; LOAD 405630' 114 117 101 104 040
BYTE (7)"D","R","I","V","E" ; DRIVE 405631' 104 122 111 126 105
BYTE (7)"R",":"," ",000,000 ; R: 405632' 122 072 040 000 000
P.AHF: BYTE (7)"$","\","\","E","N" ; $\\EN 405633' 044 134 134 105 116
BYTE (7)"D",000,000,000,000 ; D 405634' 104 000 000 000 000
P.AHG: BYTE (7)"$","\","\","D","A" ; $\\DA 405635' 044 134 134 104 101
BYTE (7)"T",000,000,000,000 ; T 405636' 124 000 000 000 000
P.AHH: BYTE (7)"G","E","N"," "," " ; GEN 405637' 107 105 116 040 040
BYTE (7)" ",000,000,000,000 ; 405640' 040 000 000 000 000
P.AHI: BYTE (7)"$","\","\","T","B" ; $\\TB 405641' 044 134 134 124 102
BYTE (7)"L",000,000,000,000 ; L 405642' 114 000 000 000 000
P.AHJ: BYTE (7)"$","\","\","I","N" ; $\\IN 405643' 044 134 134 111 116
BYTE (7)"T",000,000,000,000 ; T 405644' 124 000 000 000 000
P.AHK: BYTE (7)"$","\","\","O","U" ; $\\OU 405645' 044 134 134 117 125
BYTE (7)"T",000,000,000,000 ; T 405646' 124 000 000 000 000
P.AHL: BYTE (7)"$","\","\","I","N" ; $\\IN 405647' 044 134 134 111 116
BYTE (7)"P",000,000,000,000 ; P 405650' 120 000 000 000 000
P.AHM: BYTE (7)"$","I","N","T","S" ; $INTS 405651' 044 111 116 124 123
BYTE (7)"V",000,000,000,000 ; V 405652' 126 000 000 000 000
P.AHN: BYTE (7)"$","I","N","T","S" ; $INTS 405653' 044 111 116 124 123
BYTE (7)"V",000,000,000,000 ; V 405654' 126 000 000 000 000
P.AHO: BYTE (7)"I","n","t","e","r" ; Inter 405655' 111 156 164 145 162
BYTE (7)"r","u","p","t"," " ; rupt 405656' 162 165 160 164 040
BYTE (7)"S","e","t","u","p" ; Setup 405657' 123 145 164 165 160
BYTE (7)000,000,000,000,000 ; 405660' 000 000 000 000 000
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 116
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (18)
P.AHP: BYTE (7)"f","o","r"," ","d" ; for d 405661' 146 157 162 040 144
BYTE (7)"r","i","v","e","r" ; river 405662' 162 151 166 145 162
BYTE (7)" ","i","n"," ","f" ; in f 405663' 040 151 156 040 146
BYTE (7)"i","l","e",000,000 ; ile 405664' 151 154 145 000 000
ROUTINE_NAME= P.AHD ; 000000 405626'
LOADD:: PUSH SP,AC0 ; SP,AC0 405665' 261 17 0 00 000000 2053
PUSH SP,AC10 ; SP,AC10 405666' 261 17 0 00 000010
PUSH SP,AC11 ; SP,AC11 405667' 261 17 0 00 000011
PUSH SP,AC12 ; SP,AC12 405670' 261 17 0 00 000012
PUSH SP,AC13 ; SP,AC13 405671' 261 17 0 00 000013
PUSH SP,AC14 ; SP,AC14 405672' 261 17 0 00 000014
PUSH SP,AC16 ; SP,AC16 405673' 261 17 0 00 000016
ADJSP SP,27 ; SP,27 405674' 105 17 0 00 000027
MOVE AC0,-42(SP) ; AC0,TASK_FILE 405675' 200 00 0 17 777736 2136
MOVEM AC0,-7(SP) ; AC0,-7(SP) 405676' 202 00 0 17 777771
MOVE AC2,-7(SP) ; AC2,-7(SP) 405677' 200 02 0 17 777771
HRRZ AC1,17(AC2) ; TASK_LABEL,17(AC2) 405700' 550 01 0 02 000017
MOVE AC2,11(AC1) ; AC2,11(TASK_LABEL) 405701' 200 02 0 01 000011 2137
IMULI AC2,400 ; AC2,400 405702' 221 02 0 00 000400
ADD AC2,10(AC1) ; AC2,10(TASK_LABEL) 405703' 270 02 0 01 000010
MOVEM AC2,-24(SP) ; AC2,TASK_BASE 405704' 202 02 0 17 777754
MOVE AC2,13(AC1) ; AC2,13(TASK_LABEL) 405705' 200 02 0 01 000013 2138
IMULI AC2,400 ; AC2,400 405706' 221 02 0 00 000400
MOVE AC0,AC2 ; TASK_TOP,AC2 405707' 200 00 0 00 000002
ADD AC0,12(AC1) ; TASK_TOP,12(TASK_LABEL) 405710' 270 00 0 01 000012
SUB AC0,-24(SP) ; TASK_TOP,TASK_BASE 405711' 274 00 0 17 777754 2139
ADDI AC0,1 ; AC0,1 405712' 271 00 0 00 000001
MOVEM AC0,-23(SP) ; AC0,TASK_SIZE 405713' 202 00 0 17 777755
MOVE AC2,31(AC1) ; AC2,31(TASK_LABEL) 405714' 200 02 0 01 000031 2140
IMULI AC2,400 ; AC2,400 405715' 221 02 0 00 000400
MOVE AC0,AC2 ; TASK_FLAGS,AC2 405716' 200 00 0 00 000002
ADD AC0,30(AC1) ; TASK_FLAGS,30(TASK_LABEL) 405717' 270 00 0 01 000030
PUSH SP,-7(SP) ; SP,-7(SP) 405720' 261 17 0 17 777771 2145
PUSH SP,C.8 ; SP,[2] 405721' 261 17 0 00 400171'
PUSH SP,C.186 ; SP,[0,,P.AHF] 405722' 261 17 0 00 407103'
PUSH SP,C.5 ; SP,[0] 405723' 261 17 0 00 400166'
PUSHJ SP,VRBL_SYM ; SP,VRBL_SYM 405724' 260 17 0 00 000000V
MOVE AC0,AC1 ; XXEND,AC1 405725' 200 00 0 00 000001
MOVE AC1,-13(SP) ; AC1,-13(SP) 405726' 200 01 0 17 777765 2146
MOVEM AC1,0(SP) ; AC1,0(SP) 405727' 202 01 0 17 000000
PUSH SP,C.8 ; SP,[2] 405730' 261 17 0 00 400171'
PUSH SP,C.187 ; SP,[0,,P.AHG] 405731' 261 17 0 00 407104'
PUSH SP,C.5 ; SP,[0] 405732' 261 17 0 00 400166'
PUSHJ SP,VRBL_SYM ; SP,VRBL_SYM 405733' 260 17 0 00 000000V
MOVEM AC1,-15(SP) ; AC1,XXDAT 405734' 202 01 0 17 777763
MOVE AC1,-52(SP) ; AC1,KERNEL_FILE 405735' 200 01 0 17 777726 2147
MOVEM AC1,-13(SP) ; AC1,-13(SP) 405736' 202 01 0 17 777765
PUSH SP,-13(SP) ; SP,-13(SP) 405737' 261 17 0 17 777765
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 117
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (18)
MOVE AC10,AC0 ; AC10,XXEND 405740' 200 10 0 00 000000
SUB AC10,-16(SP) ; AC10,XXDAT 405741' 274 10 0 17 777762
PUSH SP,AC10 ; SP,AC10 405742' 261 17 0 00 000010
PUSH SP,C.5 ; SP,[0] 405743' 261 17 0 00 400166'
MOVE AC1,-51(SP) ; AC1,VALUES 405744' 200 01 0 17 777727
MOVEM AC1,-15(SP) ; AC1,-15(SP) 405745' 202 01 0 17 777763
PUSH SP,-15(SP) ; SP,-15(SP) 405746' 261 17 0 17 777763
PUSHJ SP,ALOCB ; SP,ALOCB 405747' 260 17 0 00 403536'
MOVEM AC1,-35(SP) ; AC1,FIRST_DCB_ADDR 405750' 202 01 0 17 777743
MOVE AC13,-21(SP) ; COUNTER,XXDAT 405751' 200 13 0 17 777757 2152
SOJA AC13,L.154 ; COUNTER,L.154 405752' 364 13 0 00 405770'
L.153: MOVE AC1,-17(SP) ; AC1,-17(SP) 405753' 200 01 0 17 777761 2153
MOVEM AC1,0(SP) ; AC1,0(SP) 405754' 202 01 0 17 000000
MOVE AC1,-35(SP) ; AC1,FIRST_DCB_ADDR 405755' 200 01 0 17 777743
ADD AC1,AC13 ; AC1,COUNTER 405756' 270 01 0 00 000013
SUB AC1,-21(SP) ; AC1,XXDAT 405757' 274 01 0 17 777757
PUSH SP,AC1 ; SP,AC1 405760' 261 17 0 00 000001
PUSH SP,-23(SP) ; SP,-23(SP) 405761' 261 17 0 17 777755
PUSH SP,AC13 ; SP,COUNTER 405762' 261 17 0 00 000013
PUSHJ SP,GETBYT ; SP,GETBYT 405763' 260 17 0 00 403107'
ADJSP SP,-1 ; SP,-1 405764' 105 17 0 00 777777
MOVEM AC1,0(SP) ; AC1,0(SP) 405765' 202 01 0 17 000000
PUSHJ SP,PUTBYT ; SP,PUTBYT 405766' 260 17 0 00 403324'
ADJSP SP,-2 ; SP,-2 405767' 105 17 0 00 777776
L.154: ADDI AC13,1 ; COUNTER,1 405770' 271 13 0 00 000001 2152
CAMGE AC13,AC0 ; COUNTER,XXEND 405771' 315 13 0 00 000000
JRST L.153 ; L.153 405772' 254 00 0 00 405753'
MOVE AC1,-17(SP) ; AC1,-17(SP) 405773' 200 01 0 17 777761 2159
MOVE AC0,16(AC1) ; AC0,16(AC1) 405774' 200 00 0 01 000016
ADDI AC0,1 ; AC0,1 405775' 271 00 0 00 000001
MOVEM AC0,-34(SP) ; AC0,PAR_BASE 405776' 202 00 0 17 777744
MOVE AC0,-17(SP) ; AC0,-17(SP) 405777' 200 00 0 17 777761 2160
MOVEM AC0,0(SP) ; AC0,0(SP) 406000' 202 00 0 17 000000
PUSH SP,C.188 ; SP,[0,,P.AHH] 406001' 261 17 0 00 407105'
PUSH SP,-54(SP) ; SP,GEN_PCB 406002' 261 17 0 17 777724
PUSH SP,-36(SP) ; SP,PAR_BASE 406003' 261 17 0 17 777742
MOVE AC0,-37(SP) ; AC0,PAR_BASE 406004' 200 00 0 17 777741 2161
ADD AC0,-41(SP) ; AC0,TASK_SIZE 406005' 270 00 0 17 777737
SUB AC0,AC10 ; AC0,AC10 406006' 274 00 0 00 000010
PUSH SP,AC0 ; SP,AC0 406007' 261 17 0 00 000000
PUSH SP,C.5 ; SP,[0] 406010' 261 17 0 00 400166' 2160
MOVE AC1,-23(SP) ; AC1,-23(SP) 406011' 200 01 0 17 777755 2161
HLRZ AC0,36(AC1) ; AC0,36(AC1) 406012' 554 00 0 01 000036
MOVE AC3,-23(SP) ; AC3,-23(SP) 406013' 200 03 0 17 777755
HRRZ AC2,37(AC3) ; AC2,37(AC3) 406014' 550 02 0 03 000037
IOR AC0,AC2 ; AC0,AC2 406015' 434 00 0 00 000002
PUSH SP,AC0 ; SP,AC0 406016' 261 17 0 00 000000
PUSH SP,C.5 ; SP,[0] 406017' 261 17 0 00 400166' 2160
PUSH SP,-25(SP) ; SP,-25(SP) 406020' 261 17 0 17 777753
PUSHJ SP,M_PCB ; SP,M_PCB 406021' 260 17 0 00 404212'
MOVEM AC1,-43(SP) ; AC1,PCB_ADDR 406022' 202 01 0 17 777735
SETZM -25(SP) ; SCB_ADDR 406023' 402 00 0 17 777753 2166
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 118
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (18)
MOVE AC14,-45(SP) ; DCB_ADDR,FIRST_DCB_ADDR 406024' 200 14 0 17 777733 2167
MOVE AC0,-26(SP) ; AC0,-26(SP) 406025' 200 00 0 17 777752 2316
ADDI AC0,72 ; AC0,72 406026' 271 00 0 00 000072
MOVEM AC0,-24(SP) ; AC0,-24(SP) 406027' 202 00 0 17 777754
MOVE AC0,-26(SP) ; AC0,-26(SP) 406030' 200 00 0 17 777752 2197
ADDI AC0,103 ; AC0,103 406031' 271 00 0 00 000103
MOVEM AC0,-23(SP) ; AC0,-23(SP) 406032' 202 00 0 17 777755
MOVE AC12,-26(SP) ; AC12,-26(SP) 406033' 200 12 0 17 777752 2190
ADDI AC12,100 ; AC12,100 406034' 271 12 0 00 000100
MOVE AC11,-26(SP) ; AC11,-26(SP) 406035' 200 11 0 17 777752 2185
ADDI AC11,76 ; AC11,76 406036' 271 11 0 00 000076
MOVE AC0,-26(SP) ; AC0,-26(SP) 406037' 200 00 0 17 777752 2183
ADDI AC0,75 ; AC0,75 406040' 271 00 0 00 000075
MOVE AC10,-26(SP) ; AC10,-26(SP) 406041' 200 10 0 17 777752 2181
ADDI AC10,73 ; AC10,73 406042' 271 10 0 00 000073
MOVE AC16,-26(SP) ; AC16,-26(SP) 406043' 200 16 0 17 777752 2175
ADDI AC16,74 ; AC16,74 406044' 271 16 0 00 000074
L.155: JUMPE AC14,L.163 ; DCB_ADDR,L.163 406045' 322 14 0 00 407026' 2169
MOVEM AC14,-35(SP) ; DCB_ADDR,LAST_DCB_ADDR 406046' 202 14 0 17 777743 2171
MOVE AC1,-27(SP) ; AC1,-27(SP) 406047' 200 01 0 17 777751 2175
MOVEM AC1,0(SP) ; AC1,0(SP) 406050' 202 01 0 17 000000
MOVE AC1,AC14 ; AC1,DCB_ADDR 406051' 200 01 0 00 000014
HRRZ AC2,0(AC16) ; AC2,0(AC16) 406052' 550 02 0 16 000000
ADD AC1,AC2 ; AC1,AC2 406053' 270 01 0 00 000002
MOVEM AC1,-34(SP) ; AC1,-34(SP) 406054' 202 01 0 17 777744
ADDI AC1,1 ; AC1,1 406055' 271 01 0 00 000001
PUSH SP,AC1 ; SP,AC1 406056' 261 17 0 00 000001
PUSHJ SP,GETBYT ; SP,GETBYT 406057' 260 17 0 00 403107'
MOVEM AC1,-34(SP) ; AC1,-34(SP) 406060' 202 01 0 17 777744
MOVE AC1,-30(SP) ; AC1,-30(SP) 406061' 200 01 0 17 777750
MOVEM AC1,-1(SP) ; AC1,-1(SP) 406062' 202 01 0 17 777777
MOVE AC1,-35(SP) ; AC1,-35(SP) 406063' 200 01 0 17 777743
MOVEM AC1,0(SP) ; AC1,0(SP) 406064' 202 01 0 17 000000
PUSHJ SP,GETBYT ; SP,GETBYT 406065' 260 17 0 00 403107'
MOVE AC2,-34(SP) ; AC2,-34(SP) 406066' 200 02 0 17 777744
SUB AC2,AC1 ; AC2,AC1 406067' 274 02 0 00 000001
MOVEM AC2,-34(SP) ; AC2,-34(SP) 406070' 202 02 0 17 777744
MOVE AC1,-34(SP) ; AC1,-34(SP) 406071' 200 01 0 17 777744 2176
ADDI AC1,1 ; AC1,1 406072' 271 01 0 00 000001
MOVEM AC1,-42(SP) ; AC1,NUNITS 406073' 202 01 0 17 777736
MOVE AC1,-30(SP) ; AC1,-30(SP) 406074' 200 01 0 17 777750 2177
MOVEM AC1,0(SP) ; AC1,0(SP) 406075' 202 01 0 17 000000
MOVE AC1,AC14 ; AC1,DCB_ADDR 406076' 200 01 0 00 000014
HLRZ AC2,0(AC16) ; AC2,0(AC16) 406077' 554 02 0 16 000000
ADD AC1,AC2 ; AC1,AC2 406100' 270 01 0 00 000002
PUSH SP,AC1 ; SP,AC1 406101' 261 17 0 00 000001
PUSHJ SP,GETWRD ; SP,GETWRD 406102' 260 17 0 00 403201'
MOVEM AC1,-40(SP) ; AC1,UCB_LENGTH 406103' 202 01 0 17 777740
MOVE AC1,-31(SP) ; AC1,-31(SP) 406104' 200 01 0 17 777747 2181
MOVEM AC1,0(SP) ; AC1,0(SP) 406105' 202 01 0 17 000000
MOVE AC1,AC14 ; AC1,DCB_ADDR 406106' 200 01 0 00 000014
HRRZ AC2,0(AC10) ; AC2,0(AC10) 406107' 550 02 0 10 000000
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 119
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (18)
ADD AC1,AC2 ; AC1,AC2 406110' 270 01 0 00 000002
MOVEM AC1,-36(SP) ; AC1,-36(SP) 406111' 202 01 0 17 777742
PUSH SP,-36(SP) ; SP,-36(SP) 406112' 261 17 0 17 777742
PUSHJ SP,GETWRD ; SP,GETWRD 406113' 260 17 0 00 403201'
SUB AC1,-34(SP) ; AC1,XXDAT 406114' 274 01 0 17 777744
ADD AC1,AC14 ; AC1,DCB_ADDR 406115' 270 01 0 00 000014
MOVEM AC1,-43(SP) ; AC1,FIRST_UCB_ADDR 406116' 202 01 0 17 777735
MOVE AC1,-32(SP) ; AC1,-32(SP) 406117' 200 01 0 17 777746 2182
MOVEM AC1,-2(SP) ; AC1,-2(SP) 406120' 202 01 0 17 777776
MOVE AC1,-37(SP) ; AC1,-37(SP) 406121' 200 01 0 17 777741
MOVEM AC1,-1(SP) ; AC1,-1(SP) 406122' 202 01 0 17 777777
MOVE AC1,-43(SP) ; AC1,FIRST_UCB_ADDR 406123' 200 01 0 17 777735
MOVEM AC1,0(SP) ; AC1,0(SP) 406124' 202 01 0 17 000000
PUSHJ SP,PUTWRD ; SP,PUTWRD 406125' 260 17 0 00 403414'
MOVE AC1,-32(SP) ; AC1,-32(SP) 406126' 200 01 0 17 777746 2183
MOVEM AC1,0(SP) ; AC1,0(SP) 406127' 202 01 0 17 000000
MOVE AC1,AC14 ; AC1,DCB_ADDR 406130' 200 01 0 00 000014
MOVE AC3,AC0 ; AC3,AC0 406131' 200 03 0 00 000000
HRRZ AC2,0(AC3) ; AC2,0(AC3) 406132' 550 02 0 03 000000
ADD AC1,AC2 ; AC1,AC2 406133' 270 01 0 00 000002
PUSH SP,AC1 ; SP,AC1 406134' 261 17 0 00 000001
PUSH SP,-36(SP) ; SP,-36(SP) 406135' 261 17 0 17 777742 2184
PUSH SP,C.8 ; SP,[2] 406136' 261 17 0 00 400171'
PUSH SP,C.189 ; SP,[0,,P.AHI] 406137' 261 17 0 00 407106'
PUSH SP,C.5 ; SP,[0] 406140' 261 17 0 00 400166'
PUSHJ SP,VRBL_SYM ; SP,VRBL_SYM 406141' 260 17 0 00 000000V
ADJSP SP,-3 ; SP,-3 406142' 105 17 0 00 777775
MOVEM AC1,0(SP) ; AC1,0(SP) 406143' 202 01 0 17 000000 2183
PUSHJ SP,PUTWRD ; SP,PUTWRD 406144' 260 17 0 00 403414'
MOVE AC1,-34(SP) ; AC1,-34(SP) 406145' 200 01 0 17 777744 2185
MOVEM AC1,0(SP) ; AC1,0(SP) 406146' 202 01 0 17 000000
MOVE AC1,AC14 ; AC1,DCB_ADDR 406147' 200 01 0 00 000014
HRRZ AC2,0(AC11) ; AC2,0(AC11) 406150' 550 02 0 11 000000
ADD AC1,AC2 ; AC1,AC2 406151' 270 01 0 00 000002
PUSH SP,AC1 ; SP,AC1 406152' 261 17 0 00 000001
PUSH SP,-51(SP) ; SP,PCB_ADDR 406153' 261 17 0 17 777727
PUSHJ SP,PUTWRD ; SP,PUTWRD 406154' 260 17 0 00 403414'
SETOM -43(SP) ; COUNTER 406155' 476 00 0 17 777735 2187
JRST L.162 ; L.162 406156' 254 00 0 00 407010'
L.156: MOVE AC1,-45(SP) ; AC1,UCB_LENGTH 406157' 200 01 0 17 777733 2189
IMUL AC1,-43(SP) ; AC1,COUNTER 406160' 220 01 0 17 777735
ADD AC1,-47(SP) ; AC1,FIRST_UCB_ADDR 406161' 270 01 0 17 777731
MOVEM AC1,-51(SP) ; AC1,UCB_ADDR 406162' 202 01 0 17 777727
MOVE AC1,-36(SP) ; AC1,-36(SP) 406163' 200 01 0 17 777742 2190
MOVEM AC1,0(SP) ; AC1,0(SP) 406164' 202 01 0 17 000000
MOVE AC1,-51(SP) ; AC1,UCB_ADDR 406165' 200 01 0 17 777727
HRRZ AC2,0(AC12) ; AC2,0(AC12) 406166' 550 02 0 12 000000
ADD AC1,AC2 ; AC1,AC2 406167' 270 01 0 00 000002
PUSH SP,AC1 ; SP,AC1 406170' 261 17 0 00 000001
PUSH SP,-37(SP) ; SP,-37(SP) 406171' 261 17 0 17 777741 2191
PUSH SP,AC1 ; SP,AC1 406172' 261 17 0 00 000001
PUSHJ SP,GETWRD ; SP,GETWRD 406173' 260 17 0 00 403201'
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 120
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (18)
SUB AC1,-43(SP) ; AC1,XXDAT 406174' 274 01 0 17 777735 2192
ADD AC1,AC14 ; AC1,DCB_ADDR 406175' 270 01 0 00 000014
MOVEM AC1,-1(SP) ; AC1,-1(SP) 406176' 202 01 0 17 777777
ADJSP SP,-1 ; SP,-1 406177' 105 17 0 00 777777
PUSHJ SP,PUTWRD ; SP,PUTWRD 406200' 260 17 0 00 403414' 2190
MOVE AC1,-40(SP) ; AC1,-40(SP) 406201' 200 01 0 17 777740 2193
MOVEM AC1,0(SP) ; AC1,0(SP) 406202' 202 01 0 17 000000
MOVE AC1,-53(SP) ; AC1,UCB_ADDR 406203' 200 01 0 17 777725
HLRZ AC2,0(AC12) ; AC2,0(AC12) 406204' 554 02 0 12 000000
ADD AC1,AC2 ; AC1,AC2 406205' 270 01 0 00 000002
PUSH SP,AC1 ; SP,AC1 406206' 261 17 0 00 000001
PUSH SP,-41(SP) ; SP,-41(SP) 406207' 261 17 0 17 777737 2194
PUSH SP,AC1 ; SP,AC1 406210' 261 17 0 00 000001
PUSHJ SP,GETWRD ; SP,GETWRD 406211' 260 17 0 00 403201'
SUB AC1,-45(SP) ; AC1,XXDAT 406212' 274 01 0 17 777733 2195
ADD AC1,AC14 ; AC1,DCB_ADDR 406213' 270 01 0 00 000014
MOVEM AC1,-1(SP) ; AC1,-1(SP) 406214' 202 01 0 17 777777
ADJSP SP,-1 ; SP,-1 406215' 105 17 0 00 777777
PUSHJ SP,PUTWRD ; SP,PUTWRD 406216' 260 17 0 00 403414' 2193
MOVE AC1,-40(SP) ; AC1,SCB_ADDR 406217' 200 01 0 17 777740 2196
MOVEM AC1,-52(SP) ; AC1,LAST_SCB_ADDR 406220' 202 01 0 17 777726
MOVE AC1,-42(SP) ; AC1,-42(SP) 406221' 200 01 0 17 777736 2197
MOVEM AC1,0(SP) ; AC1,0(SP) 406222' 202 01 0 17 000000
MOVE AC1,-55(SP) ; AC1,UCB_ADDR 406223' 200 01 0 17 777723
MOVE AC3,-36(SP) ; AC3,-36(SP) 406224' 200 03 0 17 777742
HRRZ AC2,0(AC3) ; AC2,0(AC3) 406225' 550 02 0 03 000000
ADD AC1,AC2 ; AC1,AC2 406226' 270 01 0 00 000002
MOVEM AC1,-46(SP) ; AC1,-46(SP) 406227' 202 01 0 17 777732
PUSH SP,-46(SP) ; SP,-46(SP) 406230' 261 17 0 17 777732
PUSHJ SP,GETWRD ; SP,GETWRD 406231' 260 17 0 00 403201'
SUB AC1,-45(SP) ; AC1,XXDAT 406232' 274 01 0 17 777733
ADD AC1,AC14 ; AC1,DCB_ADDR 406233' 270 01 0 00 000014
MOVEM AC1,-41(SP) ; AC1,SCB_ADDR 406234' 202 01 0 17 777737
MOVE AC1,-43(SP) ; AC1,-43(SP) 406235' 200 01 0 17 777735 2198
MOVEM AC1,-2(SP) ; AC1,-2(SP) 406236' 202 01 0 17 777776
MOVE AC1,-47(SP) ; AC1,-47(SP) 406237' 200 01 0 17 777731
MOVEM AC1,-1(SP) ; AC1,-1(SP) 406240' 202 01 0 17 777777
MOVE AC1,-41(SP) ; AC1,SCB_ADDR 406241' 200 01 0 17 777737
MOVEM AC1,0(SP) ; AC1,0(SP) 406242' 202 01 0 17 000000
PUSHJ SP,PUTWRD ; SP,PUTWRD 406243' 260 17 0 00 403414'
MOVE AC1,-41(SP) ; AC1,SCB_ADDR 406244' 200 01 0 17 777737 2200
CAMN AC1,-53(SP) ; AC1,LAST_SCB_ADDR 406245' 316 01 0 17 777725
JRST L.161 ; L.161 406246' 254 00 0 00 407007'
MOVE AC1,-43(SP) ; AC1,-43(SP) 406247' 200 01 0 17 777735 2203
MOVEM AC1,0(SP) ; AC1,0(SP) 406250' 202 01 0 17 000000
MOVE AC1,-41(SP) ; AC1,SCB_ADDR 406251' 200 01 0 17 777737
HLRZ AC2,0(AC11) ; AC2,0(AC11) 406252' 554 02 0 11 000000
ADD AC1,AC2 ; AC1,AC2 406253' 270 01 0 00 000002
ADDI AC1,2 ; AC1,2 406254' 271 01 0 00 000002
PUSH SP,AC1 ; SP,AC1 406255' 261 17 0 00 000001
PUSH SP,-44(SP) ; SP,-44(SP) 406256' 261 17 0 17 777734 2204
PUSH SP,AC1 ; SP,AC1 406257' 261 17 0 00 000001
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 121
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (18)
PUSHJ SP,GETWRD ; SP,GETWRD 406260' 260 17 0 00 403201'
SUB AC1,-50(SP) ; AC1,XXDAT 406261' 274 01 0 17 777730 2205
ADD AC1,AC14 ; AC1,DCB_ADDR 406262' 270 01 0 00 000014
MOVEM AC1,-1(SP) ; AC1,-1(SP) 406263' 202 01 0 17 777777
ADJSP SP,-1 ; SP,-1 406264' 105 17 0 00 777777
PUSHJ SP,PUTWRD ; SP,PUTWRD 406265' 260 17 0 00 403414' 2203
MOVE AC1,-45(SP) ; AC1,-45(SP) 406266' 200 01 0 17 777733 2206
MOVEM AC1,0(SP) ; AC1,0(SP) 406267' 202 01 0 17 000000
MOVE AC2,-43(SP) ; AC2,SCB_ADDR 406270' 200 02 0 17 777735
MOVE AC4,-44(SP) ; AC4,-44(SP) 406271' 200 04 0 17 777734
HLRZ AC3,77(AC4) ; AC3,77(AC4) 406272' 554 03 0 04 000077
ADD AC2,AC3 ; AC2,AC3 406273' 270 02 0 00 000003
MOVE AC1,AC2 ; AC1,AC2 406274' 200 01 0 00 000002
ADDI AC1,10 ; AC1,10 406275' 271 01 0 00 000010
PUSH SP,AC1 ; SP,AC1 406276' 261 17 0 00 000001
MOVE AC1,-63(SP) ; AC1,PAR_BASE 406277' 200 01 0 17 777715
IDIVI AC1,100 ; AC1,100 406300' 231 01 0 00 000100
PUSH SP,AC1 ; SP,AC1 406301' 261 17 0 00 000001
PUSHJ SP,PUTWRD ; SP,PUTWRD 406302' 260 17 0 00 403414'
MOVE AC1,-47(SP) ; AC1,-47(SP) 406303' 200 01 0 17 777731 2208
MOVEM AC1,0(SP) ; AC1,0(SP) 406304' 202 01 0 17 000000
MOVE AC1,-45(SP) ; AC1,SCB_ADDR 406305' 200 01 0 17 777733
MOVE AC3,-46(SP) ; AC3,-46(SP) 406306' 200 03 0 17 777732
HRRZ AC2,77(AC3) ; AC2,77(AC3) 406307' 550 02 0 03 000077
ADD AC1,AC2 ; AC1,AC2 406310' 270 01 0 00 000002
PUSH SP,AC1 ; SP,AC1 406311' 261 17 0 00 000001
PUSHJ SP,GETBYT ; SP,GETBYT 406312' 260 17 0 00 403107'
ADJSP SP,-1 ; SP,-1 406313' 105 17 0 00 777777
LSH AC1,2 ; AC1,2 406314' 242 01 0 00 000002
MOVEM AC1,-50(SP) ; AC1,VECTOR 406315' 202 01 0 17 777730
SKIPN -50(SP) ; VECTOR 406316' 336 00 0 17 777730
JRST L.160 ; L.160 406317' 254 00 0 00 407006'
SETOM -70(SP) ; OUTINT 406320' 476 00 0 17 777710 2211
MOVE AC1,-52(SP) ; AC1,-52(SP) 406321' 200 01 0 17 777726 2213
MOVEM AC1,0(SP) ; AC1,0(SP) 406322' 202 01 0 17 000000
PUSH SP,C.8 ; SP,[2] 406323' 261 17 0 00 400171'
PUSH SP,C.190 ; SP,[0,,P.AHJ] 406324' 261 17 0 00 407107'
PUSH SP,C.6 ; SP,[1] 406325' 261 17 0 00 400167'
PUSHJ SP,VRBL_SYM ; SP,VRBL_SYM 406326' 260 17 0 00 000000V
MOVEM AC1,-74(SP) ; AC1,INPINT 406327' 202 01 0 17 777704
ADJSP SP,-3 ; SP,-3 406330' 105 17 0 00 777775
SKIPLE -71(SP) ; INPINT 406331' 333 00 0 17 777707
JRST L.157 ; L.157 406332' 254 00 0 00 406352'
MOVE AC1,-52(SP) ; AC1,-52(SP) 406333' 200 01 0 17 777726 2216
MOVEM AC1,0(SP) ; AC1,0(SP) 406334' 202 01 0 17 000000
PUSH SP,C.8 ; SP,[2] 406335' 261 17 0 00 400171'
PUSH SP,C.191 ; SP,[0,,P.AHK] 406336' 261 17 0 00 407110'
PUSH SP,C.5 ; SP,[0] 406337' 261 17 0 00 400166'
PUSHJ SP,VRBL_SYM ; SP,VRBL_SYM 406340' 260 17 0 00 000000V
MOVEM AC1,-73(SP) ; AC1,OUTINT 406341' 202 01 0 17 777705
MOVE AC1,-55(SP) ; AC1,-55(SP) 406342' 200 01 0 17 777723 2217
MOVEM AC1,0(SP) ; AC1,0(SP) 406343' 202 01 0 17 000000
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 122
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (18)
PUSH SP,C.8 ; SP,[2] 406344' 261 17 0 00 400171'
PUSH SP,C.192 ; SP,[0,,P.AHL] 406345' 261 17 0 00 407111'
PUSH SP,C.5 ; SP,[0] 406346' 261 17 0 00 400166'
PUSHJ SP,VRBL_SYM ; SP,VRBL_SYM 406347' 260 17 0 00 000000V
MOVEM AC1,-77(SP) ; AC1,INPINT 406350' 202 01 0 17 777701
ADJSP SP,-6 ; SP,-6 406351' 105 17 0 00 777772 2215
L.157: MOVEI AC1,-71(SP) ; AC1,INPINT 406352' 201 01 0 17 777707 2220
JUMPLE AC1,L.158 ; AC1,L.158 406353' 323 01 0 00 406560'
MOVE AC1,-47(SP) ; AC1,-47(SP) 406354' 200 01 0 17 777731 2223
MOVEM AC1,0(SP) ; AC1,0(SP) 406355' 202 01 0 17 000000
PUSH SP,C.193 ; SP,[34] 406356' 261 17 0 00 407112'
PUSH SP,C.5 ; SP,[0] 406357' 261 17 0 00 400166'
PUSH SP,-50(SP) ; SP,-50(SP) 406360' 261 17 0 17 777730
PUSHJ SP,ALOCB ; SP,ALOCB 406361' 260 17 0 00 403536'
MOVE AC13,AC1 ; LOC,AC1 406362' 200 13 0 00 000001
MOVE AC1,-52(SP) ; AC1,-52(SP) 406363' 200 01 0 17 777726 2227
MOVEM AC1,-2(SP) ; AC1,-2(SP) 406364' 202 01 0 17 777776
MOVE AC1,-53(SP) ; AC1,VECTOR 406365' 200 01 0 17 777725
MOVEM AC1,-1(SP) ; AC1,-1(SP) 406366' 202 01 0 17 777777
MOVEM AC13,0(SP) ; LOC,0(SP) 406367' 202 13 0 17 000000
PUSHJ SP,PUTWRD ; SP,PUTWRD 406370' 260 17 0 00 403414'
MOVE AC1,-52(SP) ; AC1,-52(SP) 406371' 200 01 0 17 777726 2228
MOVEM AC1,0(SP) ; AC1,0(SP) 406372' 202 01 0 17 000000
MOVE AC1,-53(SP) ; AC1,VECTOR 406373' 200 01 0 17 777725
ADDI AC1,2 ; AC1,2 406374' 271 01 0 00 000002
PUSH SP,AC1 ; SP,AC1 406375' 261 17 0 00 000001
PUSH SP,C.194 ; SP,[340] 406376' 261 17 0 00 407113'
PUSHJ SP,PUTWRD ; SP,PUTWRD 406377' 260 17 0 00 403414'
MOVE AC1,-54(SP) ; AC1,-54(SP) 406400' 200 01 0 17 777724 2240
MOVEM AC1,-1(SP) ; AC1,-1(SP) 406401' 202 01 0 17 777777
MOVEM AC13,0(SP) ; LOC,0(SP) 406402' 202 13 0 17 000000
PUSH SP,C.195 ; SP,[4537] 406403' 261 17 0 00 407114'
PUSHJ SP,PUTWRD ; SP,PUTWRD 406404' 260 17 0 00 403414'
MOVE AC1,-55(SP) ; AC1,-55(SP) 406405' 200 01 0 17 777723 2241
MOVEM AC1,0(SP) ; AC1,0(SP) 406406' 202 01 0 17 000000
MOVE AC1,AC13 ; AC1,LOC 406407' 200 01 0 00 000013
ADDI AC1,2 ; AC1,2 406410' 271 01 0 00 000002
PUSH SP,AC1 ; SP,AC1 406411' 261 17 0 00 000001
PUSH SP,-56(SP) ; SP,-56(SP) 406412' 261 17 0 17 777722
PUSH SP,C.196 ; SP,[0,,P.AHM] 406413' 261 17 0 00 407115'
PUSH SP,C.5 ; SP,[0] 406414' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 406415' 260 17 0 00 000000*
ADJSP SP,-2 ; SP,-2 406416' 105 17 0 00 777776
MOVEM AC1,0(SP) ; AC1,0(SP) 406417' 202 01 0 17 000000
PUSHJ SP,PUTWRD ; SP,PUTWRD 406420' 260 17 0 00 403414'
ADDI AC13,4 ; LOC,4 406421' 271 13 0 00 000004 2242
MOVE AC1,-57(SP) ; AC1,-57(SP) 406422' 200 01 0 17 777721 2243
MOVEM AC1,-1(SP) ; AC1,-1(SP) 406423' 202 01 0 17 777777
MOVEM AC13,0(SP) ; LOC,0(SP) 406424' 202 13 0 17 000000
PUSH SP,-57(SP) ; SP,-57(SP) 406425' 261 17 0 17 777721 2244
MOVE AC2,-56(SP) ; AC2,SCB_ADDR 406426' 200 02 0 17 777722
MOVE AC4,-57(SP) ; AC4,-57(SP) 406427' 200 04 0 17 777721
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 123
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (18)
HRRZ AC3,77(AC4) ; AC3,77(AC4) 406430' 550 03 0 04 000077
ADD AC2,AC3 ; AC2,AC3 406431' 270 02 0 00 000003
MOVE AC1,AC2 ; AC1,AC2 406432' 200 01 0 00 000002
SUBI AC1,1 ; AC1,1 406433' 275 01 0 00 000001
PUSH SP,AC1 ; SP,AC1 406434' 261 17 0 00 000001
PUSHJ SP,GETBYT ; SP,GETBYT 406435' 260 17 0 00 403107'
TRC AC1,340 ; AC1,340 406436' 640 01 0 00 000340
MOVEM AC1,-1(SP) ; AC1,-1(SP) 406437' 202 01 0 17 777777
ADJSP SP,-1 ; SP,-1 406440' 105 17 0 00 777777
PUSHJ SP,PUTWRD ; SP,PUTWRD 406441' 260 17 0 00 403414' 2243
ADDI AC13,2 ; LOC,2 406442' 271 13 0 00 000002 2245
MOVE AC1,-60(SP) ; AC1,-60(SP) 406443' 200 01 0 17 777720 2246
MOVEM AC1,-1(SP) ; AC1,-1(SP) 406444' 202 01 0 17 777777
MOVEM AC13,0(SP) ; LOC,0(SP) 406445' 202 13 0 17 000000
PUSH SP,C.197 ; SP,[13746] 406446' 261 17 0 00 407116'
PUSHJ SP,PUTWRD ; SP,PUTWRD 406447' 260 17 0 00 403414'
MOVE AC1,-61(SP) ; AC1,-61(SP) 406450' 200 01 0 17 777717 2247
MOVEM AC1,0(SP) ; AC1,0(SP) 406451' 202 01 0 17 000000
MOVE AC1,AC13 ; AC1,LOC 406452' 200 01 0 00 000013
ADDI AC1,2 ; AC1,2 406453' 271 01 0 00 000002
PUSH SP,AC1 ; SP,AC1 406454' 261 17 0 00 000001
PUSH SP,C.198 ; SP,[172352] 406455' 261 17 0 00 407117'
PUSHJ SP,PUTWRD ; SP,PUTWRD 406456' 260 17 0 00 403414'
ADDI AC13,4 ; LOC,4 406457' 271 13 0 00 000004 2248
MOVE AC1,-63(SP) ; AC1,-63(SP) 406460' 200 01 0 17 777715 2249
MOVEM AC1,-1(SP) ; AC1,-1(SP) 406461' 202 01 0 17 777777
MOVEM AC13,0(SP) ; LOC,0(SP) 406462' 202 13 0 17 000000
PUSH SP,C.199 ; SP,[12737] 406463' 261 17 0 00 407120'
PUSHJ SP,PUTWRD ; SP,PUTWRD 406464' 260 17 0 00 403414'
MOVE AC1,-64(SP) ; AC1,-64(SP) 406465' 200 01 0 17 777714 2250
MOVEM AC1,0(SP) ; AC1,0(SP) 406466' 202 01 0 17 000000
MOVE AC1,AC13 ; AC1,LOC 406467' 200 01 0 00 000013
ADDI AC1,2 ; AC1,2 406470' 271 01 0 00 000002
PUSH SP,AC1 ; SP,AC1 406471' 261 17 0 00 000001
PUSH SP,-65(SP) ; SP,-65(SP) 406472' 261 17 0 17 777713
MOVE AC1,-102(SP) ; AC1,PCB_ADDR 406473' 200 01 0 17 777676
MOVE AC3,-65(SP) ; AC3,-65(SP) 406474' 200 03 0 17 777713
HLRZ AC2,16(AC3) ; AC2,16(AC3) 406475' 554 02 0 03 000016
ADD AC1,AC2 ; AC1,AC2 406476' 270 01 0 00 000002
PUSH SP,AC1 ; SP,AC1 406477' 261 17 0 00 000001
PUSHJ SP,GETWRD ; SP,GETWRD 406500' 260 17 0 00 403201'
ADJSP SP,-2 ; SP,-2 406501' 105 17 0 00 777776
PUSH SP,AC1 ; SP,AC1 406502' 261 17 0 00 000001
PUSHJ SP,PUTWRD ; SP,PUTWRD 406503' 260 17 0 00 403414'
ADJSP SP,-3 ; SP,-3 406504' 105 17 0 00 777775
MOVE AC1,-63(SP) ; AC1,-63(SP) 406505' 200 01 0 17 777715 2251
MOVEM AC1,0(SP) ; AC1,0(SP) 406506' 202 01 0 17 000000
MOVE AC1,AC13 ; AC1,LOC 406507' 200 01 0 00 000013
ADDI AC1,4 ; AC1,4 406510' 271 01 0 00 000004
PUSH SP,AC1 ; SP,AC1 406511' 261 17 0 00 000001
PUSH SP,C.198 ; SP,[172352] 406512' 261 17 0 00 407117'
PUSHJ SP,PUTWRD ; SP,PUTWRD 406513' 260 17 0 00 403414'
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 124
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (18)
ADJSP SP,-3 ; SP,-3 406514' 105 17 0 00 777775
ADDI AC13,6 ; LOC,6 406515' 271 13 0 00 000006 2252
MOVE AC1,-62(SP) ; AC1,-62(SP) 406516' 200 01 0 17 777716 2253
MOVEM AC1,-1(SP) ; AC1,-1(SP) 406517' 202 01 0 17 777777
MOVEM AC13,0(SP) ; LOC,0(SP) 406520' 202 13 0 17 000000
PUSH SP,C.200 ; SP,[4737] 406521' 261 17 0 00 407121'
PUSHJ SP,PUTWRD ; SP,PUTWRD 406522' 260 17 0 00 403414'
MOVE AC1,-63(SP) ; AC1,-63(SP) 406523' 200 01 0 17 777715 2254
MOVEM AC1,0(SP) ; AC1,0(SP) 406524' 202 01 0 17 000000
MOVE AC1,AC13 ; AC1,LOC 406525' 200 01 0 00 000013
ADDI AC1,2 ; AC1,2 406526' 271 01 0 00 000002
PUSH SP,AC1 ; SP,AC1 406527' 261 17 0 00 000001
PUSH SP,-106(SP) ; SP,INPINT 406530' 261 17 0 17 777672
PUSHJ SP,PUTWRD ; SP,PUTWRD 406531' 260 17 0 00 403414'
ADJSP SP,-3 ; SP,-3 406532' 105 17 0 00 777775
ADDI AC13,4 ; LOC,4 406533' 271 13 0 00 000004 2255
MOVE AC1,-62(SP) ; AC1,-62(SP) 406534' 200 01 0 17 777716 2256
MOVEM AC1,-1(SP) ; AC1,-1(SP) 406535' 202 01 0 17 777777
MOVEM AC13,0(SP) ; LOC,0(SP) 406536' 202 13 0 17 000000
PUSH SP,C.201 ; SP,[12637] 406537' 261 17 0 00 407122'
PUSHJ SP,PUTWRD ; SP,PUTWRD 406540' 260 17 0 00 403414'
MOVE AC1,-63(SP) ; AC1,-63(SP) 406541' 200 01 0 17 777715 2257
MOVEM AC1,0(SP) ; AC1,0(SP) 406542' 202 01 0 17 000000
MOVE AC1,AC13 ; AC1,LOC 406543' 200 01 0 00 000013
ADDI AC1,2 ; AC1,2 406544' 271 01 0 00 000002
PUSH SP,AC1 ; SP,AC1 406545' 261 17 0 00 000001
PUSH SP,C.198 ; SP,[172352] 406546' 261 17 0 00 407117'
PUSHJ SP,PUTWRD ; SP,PUTWRD 406547' 260 17 0 00 403414'
ADJSP SP,-3 ; SP,-3 406550' 105 17 0 00 777775
ADDI AC13,4 ; LOC,4 406551' 271 13 0 00 000004 2258
MOVE AC1,-62(SP) ; AC1,-62(SP) 406552' 200 01 0 17 777716 2259
MOVEM AC1,-1(SP) ; AC1,-1(SP) 406553' 202 01 0 17 777777
MOVEM AC13,0(SP) ; LOC,0(SP) 406554' 202 13 0 17 000000
PUSH SP,C.202 ; SP,[207] 406555' 261 17 0 00 407123'
PUSHJ SP,PUTWRD ; SP,PUTWRD 406556' 260 17 0 00 403414'
ADJSP SP,-14 ; SP,-14 406557' 105 17 0 00 777764 2222
L.158: MOVEI AC1,-70(SP) ; AC1,OUTINT 406560' 201 01 0 17 777710 2262
JUMPLE AC1,L.159 ; AC1,L.159 406561' 323 01 0 00 406770'
MOVE AC1,-47(SP) ; AC1,-47(SP) 406562' 200 01 0 17 777731 2265
MOVEM AC1,0(SP) ; AC1,0(SP) 406563' 202 01 0 17 000000
PUSH SP,C.193 ; SP,[34] 406564' 261 17 0 00 407112'
PUSH SP,C.5 ; SP,[0] 406565' 261 17 0 00 400166'
PUSH SP,-50(SP) ; SP,-50(SP) 406566' 261 17 0 17 777730
PUSHJ SP,ALOCB ; SP,ALOCB 406567' 260 17 0 00 403536'
MOVE AC13,AC1 ; LOC,AC1 406570' 200 13 0 00 000001
MOVE AC1,-52(SP) ; AC1,-52(SP) 406571' 200 01 0 17 777726 2269
MOVEM AC1,0(SP) ; AC1,0(SP) 406572' 202 01 0 17 000000
MOVE AC1,-53(SP) ; AC1,VECTOR 406573' 200 01 0 17 777725
ADDI AC1,4 ; AC1,4 406574' 271 01 0 00 000004
PUSH SP,AC1 ; SP,AC1 406575' 261 17 0 00 000001
PUSH SP,AC13 ; SP,LOC 406576' 261 17 0 00 000013
PUSHJ SP,PUTWRD ; SP,PUTWRD 406577' 260 17 0 00 403414'
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 125
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (18)
MOVE AC1,-54(SP) ; AC1,-54(SP) 406600' 200 01 0 17 777724 2270
MOVEM AC1,0(SP) ; AC1,0(SP) 406601' 202 01 0 17 000000
MOVE AC1,-55(SP) ; AC1,VECTOR 406602' 200 01 0 17 777723
ADDI AC1,6 ; AC1,6 406603' 271 01 0 00 000006
PUSH SP,AC1 ; SP,AC1 406604' 261 17 0 00 000001
PUSH SP,C.194 ; SP,[340] 406605' 261 17 0 00 407113'
PUSHJ SP,PUTWRD ; SP,PUTWRD 406606' 260 17 0 00 403414'
MOVE AC1,-56(SP) ; AC1,-56(SP) 406607' 200 01 0 17 777722 2282
MOVEM AC1,-1(SP) ; AC1,-1(SP) 406610' 202 01 0 17 777777
MOVEM AC13,0(SP) ; LOC,0(SP) 406611' 202 13 0 17 000000
PUSH SP,C.195 ; SP,[4537] 406612' 261 17 0 00 407114'
PUSHJ SP,PUTWRD ; SP,PUTWRD 406613' 260 17 0 00 403414'
MOVE AC1,-57(SP) ; AC1,-57(SP) 406614' 200 01 0 17 777721 2283
MOVEM AC1,0(SP) ; AC1,0(SP) 406615' 202 01 0 17 000000
MOVE AC1,AC13 ; AC1,LOC 406616' 200 01 0 00 000013
ADDI AC1,2 ; AC1,2 406617' 271 01 0 00 000002
PUSH SP,AC1 ; SP,AC1 406620' 261 17 0 00 000001
PUSH SP,-60(SP) ; SP,-60(SP) 406621' 261 17 0 17 777720
PUSH SP,C.203 ; SP,[0,,P.AHN] 406622' 261 17 0 00 407124'
PUSH SP,C.5 ; SP,[0] 406623' 261 17 0 00 400166'
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 406624' 260 17 0 00 000000*
ADJSP SP,-2 ; SP,-2 406625' 105 17 0 00 777776
MOVEM AC1,0(SP) ; AC1,0(SP) 406626' 202 01 0 17 000000
PUSHJ SP,PUTWRD ; SP,PUTWRD 406627' 260 17 0 00 403414'
ADDI AC13,4 ; LOC,4 406630' 271 13 0 00 000004 2284
MOVE AC1,-61(SP) ; AC1,-61(SP) 406631' 200 01 0 17 777717 2285
MOVEM AC1,-1(SP) ; AC1,-1(SP) 406632' 202 01 0 17 777777
MOVEM AC13,0(SP) ; LOC,0(SP) 406633' 202 13 0 17 000000
PUSH SP,-61(SP) ; SP,-61(SP) 406634' 261 17 0 17 777717 2286
MOVE AC2,-60(SP) ; AC2,SCB_ADDR 406635' 200 02 0 17 777720
MOVE AC4,-61(SP) ; AC4,-61(SP) 406636' 200 04 0 17 777717
HRRZ AC3,77(AC4) ; AC3,77(AC4) 406637' 550 03 0 04 000077
ADD AC2,AC3 ; AC2,AC3 406640' 270 02 0 00 000003
MOVE AC1,AC2 ; AC1,AC2 406641' 200 01 0 00 000002
SUBI AC1,1 ; AC1,1 406642' 275 01 0 00 000001
PUSH SP,AC1 ; SP,AC1 406643' 261 17 0 00 000001
PUSHJ SP,GETBYT ; SP,GETBYT 406644' 260 17 0 00 403107'
TRC AC1,340 ; AC1,340 406645' 640 01 0 00 000340
MOVEM AC1,-1(SP) ; AC1,-1(SP) 406646' 202 01 0 17 777777
ADJSP SP,-1 ; SP,-1 406647' 105 17 0 00 777777
PUSHJ SP,PUTWRD ; SP,PUTWRD 406650' 260 17 0 00 403414' 2285
ADDI AC13,2 ; LOC,2 406651' 271 13 0 00 000002 2287
MOVE AC1,-62(SP) ; AC1,-62(SP) 406652' 200 01 0 17 777716 2288
MOVEM AC1,-1(SP) ; AC1,-1(SP) 406653' 202 01 0 17 777777
MOVEM AC13,0(SP) ; LOC,0(SP) 406654' 202 13 0 17 000000
PUSH SP,C.197 ; SP,[13746] 406655' 261 17 0 00 407116'
PUSHJ SP,PUTWRD ; SP,PUTWRD 406656' 260 17 0 00 403414'
MOVE AC1,-63(SP) ; AC1,-63(SP) 406657' 200 01 0 17 777715 2289
MOVEM AC1,0(SP) ; AC1,0(SP) 406660' 202 01 0 17 000000
MOVE AC1,AC13 ; AC1,LOC 406661' 200 01 0 00 000013
ADDI AC1,2 ; AC1,2 406662' 271 01 0 00 000002
PUSH SP,AC1 ; SP,AC1 406663' 261 17 0 00 000001
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 126
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (18)
PUSH SP,C.198 ; SP,[172352] 406664' 261 17 0 00 407117'
PUSHJ SP,PUTWRD ; SP,PUTWRD 406665' 260 17 0 00 403414'
ADJSP SP,-3 ; SP,-3 406666' 105 17 0 00 777775
ADDI AC13,4 ; LOC,4 406667' 271 13 0 00 000004 2290
MOVE AC1,-62(SP) ; AC1,-62(SP) 406670' 200 01 0 17 777716 2291
MOVEM AC1,-1(SP) ; AC1,-1(SP) 406671' 202 01 0 17 777777
MOVEM AC13,0(SP) ; LOC,0(SP) 406672' 202 13 0 17 000000
PUSH SP,C.199 ; SP,[12737] 406673' 261 17 0 00 407120'
PUSHJ SP,PUTWRD ; SP,PUTWRD 406674' 260 17 0 00 403414'
MOVE AC1,-63(SP) ; AC1,-63(SP) 406675' 200 01 0 17 777715 2292
MOVEM AC1,0(SP) ; AC1,0(SP) 406676' 202 01 0 17 000000
MOVE AC1,AC13 ; AC1,LOC 406677' 200 01 0 00 000013
ADDI AC1,2 ; AC1,2 406700' 271 01 0 00 000002
PUSH SP,AC1 ; SP,AC1 406701' 261 17 0 00 000001
PUSH SP,-64(SP) ; SP,-64(SP) 406702' 261 17 0 17 777714
MOVE AC1,-101(SP) ; AC1,PCB_ADDR 406703' 200 01 0 17 777677
MOVE AC3,-64(SP) ; AC3,-64(SP) 406704' 200 03 0 17 777714
HLRZ AC2,16(AC3) ; AC2,16(AC3) 406705' 554 02 0 03 000016
ADD AC1,AC2 ; AC1,AC2 406706' 270 01 0 00 000002
PUSH SP,AC1 ; SP,AC1 406707' 261 17 0 00 000001
PUSHJ SP,GETWRD ; SP,GETWRD 406710' 260 17 0 00 403201'
ADJSP SP,-2 ; SP,-2 406711' 105 17 0 00 777776
PUSH SP,AC1 ; SP,AC1 406712' 261 17 0 00 000001
PUSHJ SP,PUTWRD ; SP,PUTWRD 406713' 260 17 0 00 403414'
ADJSP SP,-3 ; SP,-3 406714' 105 17 0 00 777775
MOVE AC1,-62(SP) ; AC1,-62(SP) 406715' 200 01 0 17 777716 2293
MOVEM AC1,0(SP) ; AC1,0(SP) 406716' 202 01 0 17 000000
MOVE AC1,AC13 ; AC1,LOC 406717' 200 01 0 00 000013
ADDI AC1,4 ; AC1,4 406720' 271 01 0 00 000004
PUSH SP,AC1 ; SP,AC1 406721' 261 17 0 00 000001
PUSH SP,C.198 ; SP,[172352] 406722' 261 17 0 00 407117'
PUSHJ SP,PUTWRD ; SP,PUTWRD 406723' 260 17 0 00 403414'
ADDI AC13,6 ; LOC,6 406724' 271 13 0 00 000006 2294
MOVE AC1,-64(SP) ; AC1,-64(SP) 406725' 200 01 0 17 777714 2295
MOVEM AC1,-1(SP) ; AC1,-1(SP) 406726' 202 01 0 17 777777
MOVEM AC13,0(SP) ; LOC,0(SP) 406727' 202 13 0 17 000000
PUSH SP,C.200 ; SP,[4737] 406730' 261 17 0 00 407121'
PUSHJ SP,PUTWRD ; SP,PUTWRD 406731' 260 17 0 00 403414'
ADJSP SP,-3 ; SP,-3 406732' 105 17 0 00 777775
MOVE AC1,-62(SP) ; AC1,-62(SP) 406733' 200 01 0 17 777716 2296
MOVEM AC1,0(SP) ; AC1,0(SP) 406734' 202 01 0 17 000000
MOVE AC1,AC13 ; AC1,LOC 406735' 200 01 0 00 000013
ADDI AC1,2 ; AC1,2 406736' 271 01 0 00 000002
PUSH SP,AC1 ; SP,AC1 406737' 261 17 0 00 000001
PUSH SP,-104(SP) ; SP,OUTINT 406740' 261 17 0 17 777674
PUSHJ SP,PUTWRD ; SP,PUTWRD 406741' 260 17 0 00 403414'
ADDI AC13,4 ; LOC,4 406742' 271 13 0 00 000004 2297
MOVE AC1,-64(SP) ; AC1,-64(SP) 406743' 200 01 0 17 777714 2298
MOVEM AC1,-1(SP) ; AC1,-1(SP) 406744' 202 01 0 17 777777
MOVEM AC13,0(SP) ; LOC,0(SP) 406745' 202 13 0 17 000000
PUSH SP,C.201 ; SP,[12637] 406746' 261 17 0 00 407122'
PUSHJ SP,PUTWRD ; SP,PUTWRD 406747' 260 17 0 00 403414'
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 127
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (18)
ADJSP SP,-3 ; SP,-3 406750' 105 17 0 00 777775
MOVE AC1,-62(SP) ; AC1,-62(SP) 406751' 200 01 0 17 777716 2299
MOVEM AC1,0(SP) ; AC1,0(SP) 406752' 202 01 0 17 000000
MOVE AC1,AC13 ; AC1,LOC 406753' 200 01 0 00 000013
ADDI AC1,2 ; AC1,2 406754' 271 01 0 00 000002
PUSH SP,AC1 ; SP,AC1 406755' 261 17 0 00 000001
PUSH SP,C.198 ; SP,[172352] 406756' 261 17 0 00 407117'
PUSHJ SP,PUTWRD ; SP,PUTWRD 406757' 260 17 0 00 403414'
ADDI AC13,4 ; LOC,4 406760' 271 13 0 00 000004 2300
MOVE AC1,-64(SP) ; AC1,-64(SP) 406761' 200 01 0 17 777714 2301
MOVEM AC1,-1(SP) ; AC1,-1(SP) 406762' 202 01 0 17 777777
MOVEM AC13,0(SP) ; LOC,0(SP) 406763' 202 13 0 17 000000
PUSH SP,C.202 ; SP,[207] 406764' 261 17 0 00 407123'
PUSHJ SP,PUTWRD ; SP,PUTWRD 406765' 260 17 0 00 403414'
ADJSP SP,-3 ; SP,-3 406766' 105 17 0 00 777775
ADJSP SP,-13 ; SP,-13 406767' 105 17 0 00 777765 2264
L.159: SKIPG -71(SP) ; INPINT 406770' 337 00 0 17 777707 2304
SKIPLE -70(SP) ; OUTINT 406771' 333 00 0 17 777710
JRST L.160 ; L.160 406772' 254 00 0 00 407006'
SETZM 0(SP) ; 0(SP) 406773' 402 00 0 17 000000 2306
PUSH SP,C.204 ; SP,[50] 406774' 261 17 0 00 407125'
PUSH SP,C.205 ; SP,[0,,ROUTINE_NAME] 406775' 261 17 0 00 407126'
PUSH SP,C.206 ; SP,[0,,P.AHO] 406776' 261 17 0 00 407127'
PUSH SP,C.207 ; SP,[0,,P.AHP] 406777' 261 17 0 00 407130'
MOVE AC1,-56(SP) ; AC1,-56(SP) 407000' 200 01 0 17 777722 2308
ADDI AC1,2 ; AC1,2 407001' 271 01 0 00 000002
PUSH SP,AC1 ; SP,AC1 407002' 261 17 0 00 000001
PUSH SP,C.5 ; SP,[0] 407003' 261 17 0 00 400166' 2306
PUSHJ SP,ERRMSG ; SP,ERRMSG 407004' 260 17 0 00 000000*
ADJSP SP,-6 ; SP,-6 407005' 105 17 0 00 777772
L.160: ADJSP SP,-4 ; SP,-4 407006' 105 17 0 00 777774 2202
L.161: ADJSP SP,-5 ; SP,-5 407007' 105 17 0 00 777773 2188
L.162: AOS AC1,-43(SP) ; AC1,COUNTER 407010' 350 01 0 17 777735 2187
CAMGE AC1,-50(SP) ; AC1,NUNITS 407011' 315 01 0 17 777730
JRST L.156 ; L.156 407012' 254 00 0 00 406157'
MOVE AC1,-36(SP) ; AC1,-36(SP) 407013' 200 01 0 17 777742 2316
MOVEM AC1,0(SP) ; AC1,0(SP) 407014' 202 01 0 17 000000
MOVE AC1,AC14 ; AC1,DCB_ADDR 407015' 200 01 0 00 000014
MOVE AC3,-33(SP) ; AC3,-33(SP) 407016' 200 03 0 17 777745
HLRZ AC2,0(AC3) ; AC2,0(AC3) 407017' 554 02 0 03 000000
ADD AC1,AC2 ; AC1,AC2 407020' 270 01 0 00 000002
PUSH SP,AC1 ; SP,AC1 407021' 261 17 0 00 000001
PUSHJ SP,GETWRD ; SP,GETWRD 407022' 260 17 0 00 403201'
MOVE AC14,AC1 ; DCB_ADDR,AC1 407023' 200 14 0 00 000001
ADJSP SP,-10 ; SP,-10 407024' 105 17 0 00 777770 2170
JRST L.155 ; L.155 407025' 254 00 0 00 406045' 2169
L.163: MOVE AC0,-27(SP) ; AC0,-27(SP) 407026' 200 00 0 17 777751 2323
MOVEM AC0,0(SP) ; AC0,0(SP) 407027' 202 00 0 17 000000
MOVE AC0,-43(SP) ; AC0,PCB_ADDR 407030' 200 00 0 17 777735
MOVE AC2,-26(SP) ; AC2,-26(SP) 407031' 200 02 0 17 777752
HRRZ AC1,21(AC2) ; AC1,21(AC2) 407032' 550 01 0 02 000021
ADD AC0,AC1 ; AC0,AC1 407033' 270 00 0 00 000001
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 128
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (18)
PUSH SP,AC0 ; SP,AC0 407034' 261 17 0 00 000000
PUSH SP,-46(SP) ; SP,FIRST_DCB_ADDR 407035' 261 17 0 17 777732
PUSHJ SP,PUTWRD ; SP,PUTWRD 407036' 260 17 0 00 403414'
SETO AC0, ; COUNTER, 407037' 474 00 0 00 000000 2328
JRST L.165 ; L.165 407040' 254 00 0 00 407057'
L.164: MOVE AC1,-31(SP) ; AC1,-31(SP) 407041' 200 01 0 17 777747 2329
MOVEM AC1,0(SP) ; AC1,0(SP) 407042' 202 01 0 17 000000
MOVE AC1,-46(SP) ; AC1,PAR_BASE 407043' 200 01 0 17 777732
ADD AC1,AC0 ; AC1,COUNTER 407044' 270 01 0 00 000000
PUSH SP,AC1 ; SP,AC1 407045' 261 17 0 00 000001
PUSH SP,-35(SP) ; SP,-35(SP) 407046' 261 17 0 17 777743
MOVE AC1,-53(SP) ; AC1,TASK_BASE 407047' 200 01 0 17 777725
ADD AC1,AC0 ; AC1,COUNTER 407050' 270 01 0 00 000000
PUSH SP,AC1 ; SP,AC1 407051' 261 17 0 00 000001
PUSHJ SP,GETBYT ; SP,GETBYT 407052' 260 17 0 00 403107'
ADJSP SP,-1 ; SP,-1 407053' 105 17 0 00 777777
MOVEM AC1,0(SP) ; AC1,0(SP) 407054' 202 01 0 17 000000
PUSHJ SP,PUTBYT ; SP,PUTBYT 407055' 260 17 0 00 403324'
ADJSP SP,-2 ; SP,-2 407056' 105 17 0 00 777776
L.165: ADDI AC0,1 ; COUNTER,1 407057' 271 00 0 00 000001 2328
CAMGE AC0,-50(SP) ; COUNTER,TASK_SIZE 407060' 315 00 0 17 777730
JRST L.164 ; L.164 407061' 254 00 0 00 407041'
MOVE AC0,-31(SP) ; AC0,-31(SP) 407062' 200 00 0 17 777747 2334
MOVEM AC0,-2(SP) ; AC0,-2(SP) 407063' 202 00 0 17 777776
MOVE AC0,-47(SP) ; AC0,FIRST_DCB_ADDR 407064' 200 00 0 17 777731
MOVEM AC0,-1(SP) ; AC0,-1(SP) 407065' 202 00 0 17 777777
MOVE AC0,-30(SP) ; AC0,-30(SP) 407066' 200 00 0 17 777750
MOVEM AC0,0(SP) ; AC0,0(SP) 407067' 202 00 0 17 000000
PUSHJ SP,LNKDCB ; SP,LNKDCB 407070' 260 17 0 00 000000V
ADJSP SP,-25 ; SP,-25 407071' 105 17 0 00 777753 2090
ADJSP SP,-27 ; SP,-27 407072' 105 17 0 00 777751 2053
POP SP,AC16 ; SP,AC16 407073' 262 17 0 00 000016
POP SP,AC14 ; SP,AC14 407074' 262 17 0 00 000014
POP SP,AC13 ; SP,AC13 407075' 262 17 0 00 000013
POP SP,AC12 ; SP,AC12 407076' 262 17 0 00 000012
POP SP,AC11 ; SP,AC11 407077' 262 17 0 00 000011
POP SP,AC10 ; SP,AC10 407100' 262 17 0 00 000010
POP SP,AC0 ; SP,AC0 407101' 262 17 0 00 000000
POPJ SP, ; SP, 407102' 263 17 0 00 000000
C.186: XWD 0,P.AHF ; 0,P.AHF 407103' 000000 405633'
C.187: XWD 0,P.AHG ; 0,P.AHG 407104' 000000 405635'
C.188: XWD 0,P.AHH ; 0,P.AHH 407105' 000000 405637'
C.189: XWD 0,P.AHI ; 0,P.AHI 407106' 000000 405641'
C.190: XWD 0,P.AHJ ; 0,P.AHJ 407107' 000000 405643'
C.191: XWD 0,P.AHK ; 0,P.AHK 407110' 000000 405645'
C.192: XWD 0,P.AHL ; 0,P.AHL 407111' 000000 405647'
C.193: EXP 34 ; 34 407112' 000000 000034
C.194: EXP 340 ; 340 407113' 000000 000340
C.195: EXP 4537 ; 4537 407114' 000000 004537
C.196: XWD 0,P.AHM ; 0,P.AHM 407115' 000000 405651'
C.197: EXP 13746 ; 13746 407116' 000000 013746
C.198: EXP 172352 ; 172352 407117' 000000 172352
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 129
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (18)
C.199: EXP 12737 ; 12737 407120' 000000 012737
C.200: EXP 4737 ; 4737 407121' 000000 004737
C.201: EXP 12637 ; 12637 407122' 000000 012637
C.202: EXP 207 ; 207 407123' 000000 000207
C.203: XWD 0,P.AHN ; 0,P.AHN 407124' 000000 405653'
C.204: EXP 50 ; 50 407125' 000000 000050
C.205: XWD 0,ROUTINE_NAME ; 0,ROUTINE_NAME 407126' 000000 405626'
C.206: XWD 0,P.AHO ; 0,P.AHO 407127' 000000 405655'
C.207: XWD 0,P.AHP ; 0,P.AHP 407130' 000000 405661'
; Routine Size: 676 words
; 2336
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 130
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (19)
; 2337 GLOBAL ROUTINE LNKDCB (KERNEL_FILE, DCB_ADDR, VALUES) : NOVALUE = !LINK DCB INTO KERNEL
; 2338
; 2339 !++
; 2340 ! FUNCTIONAL DESCRIPTION:
; 2341 !
; 2342 ! LINK A DCB INTO THE KERNEL'S LIST OF DCBS. IT IS PLACED
; 2343 ! IN ALPHABETICAL ORDER.
; 2344 !
; 2345 ! FORMAL PARAMETERS:
; 2346 !
; 2347 ! KERNEL_FILE - POINTER TO THE FILE BLOCK WHICH DESCRIBES THE
; 2348 ! RSX-11S KERNEL
; 2349 ! DCB_ADDR - PDP-11 ADDRESS OF THE DCB TO BE LINKED
; 2350 ! VALUES - POINTER TO THE VALUES BLOCK
; 2351 !
; 2352 ! IMPLICIT INPUTS:
; 2353 !
; 2354 ! NONE
; 2355 !
; 2356 ! IMPLICIT OUTPUTS:
; 2357 !
; 2358 ! NONE
; 2359 !
; 2360 ! ROUTINE VALUE:
; 2361 !
; 2362 ! NONE
; 2363 !
; 2364 ! SIDE EFFECTS
; 2365 !
; 2366 ! MODIFIES THE KERNEL'S DATA STRUCTURES
; 2367 !
; 2368 !--
; 2369
; 2370 BEGIN
; 2371
; 2372 BIND
; 2373 ROUTINE_NAME = UPLIT (%ASCIZ'LNKDCB');
; 2374
; 2375 MAP
; 2376 KERNEL_FILE : REF FILE_BLOCK,
; 2377 VALUES : REF VNPVAL_BLOCK;
; 2378
; 2379 LOCAL
; 2380 PREV_DCB,
; 2381 NEXT_DCB,
; 2382 SEARCH_DONE;
; 2383
; 2384 !
; 2385 ! FIND THE TWO EXISTING DCBS WHICH THIS ONE MUST GO BETWEEN
; 2386 !
; 2387 NEXT_DCB = GETWRD (.KERNEL_FILE, .VALUES [DEVHD]);
; 2388 PREV_DCB = 0;
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 131
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (19)
; 2389 SEARCH_DONE = 0;
; 2390
; 2391 WHILE (.SEARCH_DONE EQL 0) DO
; 2392 BEGIN
; 2393
; 2394 IF (.NEXT_DCB EQL 0)
; 2395 THEN
; 2396 SEARCH_DONE = 1
; 2397 ELSE
; 2398 BEGIN
; 2399
; 2400 IF (GETWRD (.KERNEL_FILE, .NEXT_DCB + .VALUES [D_NAM]) GTRU GETWRD (.KERNEL_FILE,
; 2401 .DCB_ADDR + .VALUES [D_NAM]))
; 2402 THEN
; 2403 SEARCH_DONE = 1
; 2404 ELSE
; 2405 BEGIN
; 2406 PREV_DCB = .NEXT_DCB;
; 2407 NEXT_DCB = GETWRD (.KERNEL_FILE, .PREV_DCB + .VALUES [D_LNK]);
; 2408 END;
; 2409
; 2410 END;
; 2411
; 2412 END;
; 2413
; 2414 !
; 2415 ! WE NOW HAVE THE TWO DCBS. IF PREV_DCB IS ZERO THIS DCB IS TO BE FIRST
; 2416 !
; 2417 PUTWRD (.KERNEL_FILE, .DCB_ADDR + .VALUES [D_LNK], .NEXT_DCB);
; 2418
; 2419 IF (.PREV_DCB EQL 0)
; 2420 THEN
; 2421 PUTWRD (.KERNEL_FILE, .VALUES [DEVHD], .DCB_ADDR)
; 2422 ELSE
; 2423 PUTWRD (.KERNEL_FILE,
; 2424 .PREV_DCB + .VALUES [D_LNK], .DCB_ADDR);
; 2425
; 2426 END; !OF LNKDCB
P.AHQ: BYTE (7)"L","N","K","D","C" ; LNKDC 407131' 114 116 113 104 103
BYTE (7)"B",000,000,000,000 ; B 407132' 102 000 000 000 000
ROUTINE_NAME= P.AHQ ; 000000 407131'
LNKDCB::PUSH SP,AC0 ; SP,AC0 407133' 261 17 0 00 000000 2337
PUSH SP,AC10 ; SP,AC10 407134' 261 17 0 00 000010
PUSH SP,AC11 ; SP,AC11 407135' 261 17 0 00 000011
PUSH SP,AC12 ; SP,AC12 407136' 261 17 0 00 000012
PUSH SP,AC13 ; SP,AC13 407137' 261 17 0 00 000013
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 132
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (19)
PUSH SP,AC16 ; SP,AC16 407140' 261 17 0 00 000016
MOVE AC13,-11(SP) ; AC13,KERNEL_FILE 407141' 200 13 0 17 777767 2387
PUSH SP,AC13 ; SP,AC13 407142' 261 17 0 00 000013
MOVE AC16,-10(SP) ; AC16,VALUES 407143' 200 16 0 17 777770
HRRZ AC0,11(AC16) ; AC0,11(AC16) 407144' 550 00 0 16 000011
PUSH SP,AC0 ; SP,AC0 407145' 261 17 0 00 000000
PUSHJ SP,GETWRD ; SP,GETWRD 407146' 260 17 0 00 403201'
MOVE AC12,AC1 ; NEXT_DCB,AC1 407147' 200 12 0 00 000001
SETZB AC0,AC11 ; PREV_DCB,SEARCH_DONE 407150' 403 00 0 00 000011 2388
L.166: JUMPN AC11,L.169 ; SEARCH_DONE,L.169 407151' 326 11 0 00 407214' 2391
JUMPE AC12,L.167 ; NEXT_DCB,L.167 407152' 322 12 0 00 407200' 2394
MOVEM AC13,0(SP) ; AC13,0(SP) 407153' 202 13 0 17 000000 2400
MOVE AC1,AC12 ; AC1,NEXT_DCB 407154' 200 01 0 00 000012
HLRZ AC2,73(AC16) ; AC2,73(AC16) 407155' 554 02 0 16 000073
ADD AC1,AC2 ; AC1,AC2 407156' 270 01 0 00 000002
PUSH SP,AC1 ; SP,AC1 407157' 261 17 0 00 000001
PUSHJ SP,GETWRD ; SP,GETWRD 407160' 260 17 0 00 403201'
MOVE AC10,AC1 ; AC10,AC1 407161' 200 10 0 00 000001
ADJSP SP,-1 ; SP,-1 407162' 105 17 0 00 777777
MOVEM AC13,0(SP) ; AC13,0(SP) 407163' 202 13 0 17 000000
MOVE AC1,-12(SP) ; AC1,DCB_ADDR 407164' 200 01 0 17 777766 2401
HLRZ AC2,73(AC16) ; AC2,73(AC16) 407165' 554 02 0 16 000073
ADD AC1,AC2 ; AC1,AC2 407166' 270 01 0 00 000002
PUSH SP,AC1 ; SP,AC1 407167' 261 17 0 00 000001
PUSHJ SP,GETWRD ; SP,GETWRD 407170' 260 17 0 00 403201' 2400
ADJSP SP,-1 ; SP,-1 407171' 105 17 0 00 777777
MOVE AC2,AC10 ; AC2,AC10 407172' 200 02 0 00 000010
MOVE AC3,AC1 ; AC3,AC1 407173' 200 03 0 00 000001
TLC AC2,400000 ; AC2,400000 407174' 641 02 0 00 400000
TLC AC3,400000 ; AC3,400000 407175' 641 03 0 00 400000
CAMG AC2,AC3 ; AC2,AC3 407176' 317 02 0 00 000003
JRST L.168 ; L.168 407177' 254 00 0 00 407202'
L.167: MOVEI AC11,1 ; SEARCH_DONE,1 407200' 201 11 0 00 000001 2403
JRST L.166 ; L.166 407201' 254 00 0 00 407151' 2400
L.168: MOVE AC0,AC12 ; PREV_DCB,NEXT_DCB 407202' 200 00 0 00 000012 2406
MOVEM AC13,0(SP) ; AC13,0(SP) 407203' 202 13 0 17 000000 2407
MOVE AC1,AC0 ; AC1,PREV_DCB 407204' 200 01 0 00 000000
HLRZ AC2,72(AC16) ; AC2,72(AC16) 407205' 554 02 0 16 000072
ADD AC1,AC2 ; AC1,AC2 407206' 270 01 0 00 000002
PUSH SP,AC1 ; SP,AC1 407207' 261 17 0 00 000001
PUSHJ SP,GETWRD ; SP,GETWRD 407210' 260 17 0 00 403201'
MOVE AC12,AC1 ; NEXT_DCB,AC1 407211' 200 12 0 00 000001
ADJSP SP,-1 ; SP,-1 407212' 105 17 0 00 777777 2405
JRST L.166 ; L.166 407213' 254 00 0 00 407151' 2391
L.169: MOVEM AC13,0(SP) ; AC13,0(SP) 407214' 202 13 0 17 000000 2417
MOVE AC1,-12(SP) ; AC1,DCB_ADDR 407215' 200 01 0 17 777766
HLRZ AC2,72(AC16) ; AC2,72(AC16) 407216' 554 02 0 16 000072
ADD AC1,AC2 ; AC1,AC2 407217' 270 01 0 00 000002
PUSH SP,AC1 ; SP,AC1 407220' 261 17 0 00 000001
PUSH SP,AC12 ; SP,NEXT_DCB 407221' 261 17 0 00 000012
PUSHJ SP,PUTWRD ; SP,PUTWRD 407222' 260 17 0 00 403414'
JUMPN AC0,L.170 ; PREV_DCB,L.170 407223' 326 00 0 00 407230' 2419
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 133
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (19)
MOVEM AC13,0(SP) ; AC13,0(SP) 407224' 202 13 0 17 000000 2421
HRRZ AC1,11(AC16) ; AC1,11(AC16) 407225' 550 01 0 16 000011
PUSH SP,AC1 ; SP,AC1 407226' 261 17 0 00 000001
JRST L.171 ; L.171 407227' 254 00 0 00 407234'
L.170: MOVEM AC13,0(SP) ; AC13,0(SP) 407230' 202 13 0 17 000000 2423
HLRZ AC1,72(AC16) ; AC1,72(AC16) 407231' 554 01 0 16 000072 2424
ADD AC0,AC1 ; PREV_DCB,AC1 407232' 270 00 0 00 000001
PUSH SP,AC0 ; SP,PREV_DCB 407233' 261 17 0 00 000000
L.171: PUSH SP,-15(SP) ; SP,DCB_ADDR 407234' 261 17 0 17 777763 2423
PUSHJ SP,PUTWRD ; SP,PUTWRD 407235' 260 17 0 00 403414'
ADJSP SP,-6 ; SP,-6 407236' 105 17 0 00 777772 2370
POP SP,AC16 ; SP,AC16 407237' 262 17 0 00 000016 2337
POP SP,AC13 ; SP,AC13 407240' 262 17 0 00 000013
POP SP,AC12 ; SP,AC12 407241' 262 17 0 00 000012
POP SP,AC11 ; SP,AC11 407242' 262 17 0 00 000011
POP SP,AC10 ; SP,AC10 407243' 262 17 0 00 000010
POP SP,AC0 ; SP,AC0 407244' 262 17 0 00 000000
POPJ SP, ; SP, 407245' 263 17 0 00 000000
; Routine Size: 75 words
; 2427
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 134
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (20)
; 2428 GLOBAL ROUTINE VRBL_SYM (FILE_PTR, LEN, SYMBOL_NAME, ERR) = !GET VALUE OF SYMBOL WITH COMPUTED NAME
; 2429
; 2430 !++
; 2431 ! FUNCTIONAL DESCRIPTION:
; 2432 !
; 2433 ! GET THE VALUE OF A PARTIALLY NAMED SYMBOL. PART OF THE NAME OF
; 2434 ! THE FILE MUST BE SUBSTITUTED INTO THE GIVEN NAME.
; 2435 !
; 2436 ! FORMAL PARAMETERS:
; 2437 !
; 2438 ! FILE_PTR - THE FILE BLOCK THAT MAY HAVE THE SPECIFIED SYMBOL.
; 2439 ! LEN - NUMBER OF CHARACTERS TO COPY FROM THE FILE NAME
; 2440 ! SYMBOL_NAME - NAME OF THE SYMBOL, "\" STARTS PLACE TO
; 2441 ! SUBSTITUTE FILE NAME.
; 2442 ! ERR - PASSED TO SYM_VAL.
; 2443 !
; 2444 ! IMPLICIT INPUTS:
; 2445 !
; 2446 ! NONE
; 2447 !
; 2448 ! IMPLICIT OUTPUTS:
; 2449 !
; 2450 ! NONE
; 2451 !
; 2452 ! ROUTINE VALUE:
; 2453 !
; 2454 ! VALUE OF THE SYMBOL, OR -1 IF UNDEFINED.
; 2455 !
; 2456 ! SIDE EFFECTS
; 2457 !
; 2458 ! NONE
; 2459 !
; 2460 !--
; 2461
; 2462 BEGIN
; 2463
; 2464 BIND
; 2465 ROUTINE_NAME = UPLIT (%ASCIZ'VRBL_SYM');
; 2466
; 2467 MAP
; 2468 FILE_PTR : REF FILE_BLOCK;
; 2469
; 2470 LOCAL
; 2471 CONVERTED_NAME : VECTOR [(CH$ALLOCATION (7))],
; 2472 BACKSL,
; 2473 RESULT;
; 2474
; 2475 RESULT = -1;
; 2476 !
; 2477 ! COPY THE SYMBOL NAME TO LOCAL STORAGE SO IT CAN BE MODIFIED
; 2478 !
; 2479 CH$MOVE (7, CH$PTR (.SYMBOL_NAME), CH$PTR (CONVERTED_NAME [0]));
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 135
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (20)
; 2480 !
; 2481 ! FIND THE BACKSLASH
; 2482 !
; 2483 BACKSL = -1;
; 2484
; 2485 INCR C_POINTER FROM 0 TO 6 BY 1 DO
; 2486
; 2487 IF (CH$RCHAR (CH$PTR (CONVERTED_NAME [0], .C_POINTER)) EQL %C'\')
; 2488 THEN
; 2489 BEGIN
; 2490 BACKSL = .C_POINTER;
; 2491 EXITLOOP
; 2492 END;
; 2493
; 2494 IF (.BACKSL EQL -1)
; 2495 THEN
; 2496 ERROR (UPLIT (%ASCIZ'BACKSLASH MISSING - VRBL_SYM'))
; 2497 ELSE
; 2498 BEGIN
; 2499 CH$MOVE (.LEN, CH$PTR (FILE_PTR [FILE_NAME]), CH$PTR (CONVERTED_NAME [0], .BACKSL));
; 2500 RESULT = SYM_VAL (.FILE_PTR, CONVERTED_NAME [0], .ERR);
; 2501 END;
; 2502
; 2503 .RESULT
; 2504 END; !OF VRBL_SYM
P.AHR: BYTE (7)"V","R","B","L","_" ; VRBL_ 407246' 126 122 102 114 137
BYTE (7)"S","Y","M",000,000 ; SYM 407247' 123 131 115 000 000
P.AHS: BYTE (7)"B","A","C","K","S" ; BACKS 407250' 102 101 103 113 123
BYTE (7)"L","A","S","H"," " ; LASH 407251' 114 101 123 110 040
BYTE (7)"M","I","S","S","I" ; MISSI 407252' 115 111 123 123 111
BYTE (7)"N","G"," ","-"," " ; NG - 407253' 116 107 040 055 040
BYTE (7)"V","R","B","L","_" ; VRBL_ 407254' 126 122 102 114 137
BYTE (7)"S","Y","M",000,000 ; SYM 407255' 123 131 115 000 000
ROUTINE_NAME= P.AHR ; 000000 407246'
VRBL_SYM::
PUSH SP,AC0 ; SP,AC0 407256' 261 17 0 00 000000 2428
PUSH SP,AC10 ; SP,AC10 407257' 261 17 0 00 000010
ADJSP SP,2 ; SP,2 407260' 105 17 0 00 000002
SETO AC10, ; RESULT, 407261' 474 10 0 00 000000 2475
MOVE AC1,-6(SP) ; AC1,SYMBOL_NAME 407262' 200 01 0 17 777772 2479
MOVEI AC2,-1(AC1) ; AC2,-1(AC1) 407263' 201 02 0 01 777777
HRLI AC2,10700 ; AC2,10700 407264' 505 02 0 00 010700
MOVEI AC5,-2(SP) ; AC5,CONVERTED_NAME-1 407265' 201 05 0 17 777776
HRLI AC5,10700 ; AC5,10700 407266' 505 05 0 00 010700
MOVEI AC1,7 ; AC1,7 407267' 201 01 0 00 000007
MOVEI AC4,7 ; AC4,7 407270' 201 04 0 00 000007
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 136
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (20)
EXTEND AC1,C.208 ; AC1,[MOVSLJ ] 407271' 123 01 0 00 407346'
JFCL ; 407272' 255 00 0 00 000000
SETO AC0, ; BACKSL, 407273' 474 00 0 00 000000 2483
SETZ AC1, ; C_POINTER, 407274' 400 01 0 00 000000 2485
L.172: MOVEI AC3,-1(SP) ; AC3,CONVERTED_NAME 407275' 201 03 0 17 777777 2487
HRLI AC3,-337100 ; AC3,-337100 407276' 505 03 0 00 440700
MOVE AC2,AC1 ; AC2,C_POINTER 407277' 200 02 0 00 000001
ADJBP AC2,AC3 ; AC2,AC3 407300' 133 02 0 00 000003
ILDB AC2,AC2 ; AC2,AC2 407301' 134 02 0 00 000002
CAIE AC2,134 ; AC2,134 407302' 302 02 0 00 000134
JRST L.173 ; L.173 407303' 254 00 0 00 407306'
MOVE AC0,AC1 ; BACKSL,C_POINTER 407304' 200 00 0 00 000001 2490
JRST L.174 ; L.174 407305' 254 00 0 00 407311' 2491
L.173: ADDI AC1,1 ; C_POINTER,1 407306' 271 01 0 00 000001 2485
CAIG AC1,6 ; C_POINTER,6 407307' 307 01 0 00 000006
JRST L.172 ; L.172 407310' 254 00 0 00 407275'
L.174: CAME AC0,C.209 ; BACKSL,[-1] 407311' 312 00 0 00 407347' 2494
JRST L.175 ; L.175 407312' 254 00 0 00 407316'
PUSH SP,C.210 ; SP,[0,,P.AHS] 407313' 261 17 0 00 407350' 2496
PUSHJ SP,ERROR ; SP,ERROR 407314' 260 17 0 00 000000*
JRST L.176 ; L.176 407315' 254 00 0 00 407340' 2494
L.175: MOVE AC3,-10(SP) ; AC3,FILE_PTR 407316' 200 03 0 17 777770 2499
MOVEI AC2,1(AC3) ; AC2,1(AC3) 407317' 201 02 0 03 000001
HRLI AC2,10700 ; AC2,10700 407320' 505 02 0 00 010700
MOVEI AC1,-1(SP) ; AC1,CONVERTED_NAME 407321' 201 01 0 17 777777
HRLI AC1,-337100 ; AC1,-337100 407322' 505 01 0 00 440700
MOVE AC5,AC0 ; AC5,BACKSL 407323' 200 05 0 00 000000
ADJBP AC5,AC1 ; AC5,AC1 407324' 133 05 0 00 000001
MOVE AC1,-7(SP) ; AC1,LEN 407325' 200 01 0 17 777771
MOVE AC4,-7(SP) ; AC4,LEN 407326' 200 04 0 17 777771
EXTEND AC1,C.208 ; AC1,[MOVSLJ ] 407327' 123 01 0 00 407346'
JFCL ; 407330' 255 00 0 00 000000
PUSH SP,AC3 ; SP,AC3 407331' 261 17 0 00 000003 2500
MOVEI AC0,-2(SP) ; AC0,CONVERTED_NAME 407332' 201 00 0 17 777776
PUSH SP,AC0 ; SP,AC0 407333' 261 17 0 00 000000
PUSH SP,-7(SP) ; SP,ERR 407334' 261 17 0 17 777771
PUSHJ SP,SYM_VAL ; SP,SYM_VAL 407335' 260 17 0 00 000000*
MOVE AC10,AC1 ; RESULT,AC1 407336' 200 10 0 00 000001
ADJSP SP,-2 ; SP,-2 407337' 105 17 0 00 777776 2498
L.176: ADJSP SP,-1 ; SP,-1 407340' 105 17 0 00 777777 2462
MOVE AC1,AC10 ; AC1,RESULT 407341' 200 01 0 00 000010 2428
ADJSP SP,-2 ; SP,-2 407342' 105 17 0 00 777776
POP SP,AC10 ; SP,AC10 407343' 262 17 0 00 000010
POP SP,AC0 ; SP,AC0 407344' 262 17 0 00 000000
POPJ SP, ; SP, 407345' 263 17 0 00 000000
C.208: MOVSLJ ; 407346' 016 00 0 00 000000
C.209: EXP -1 ; -1 407347' 777777 777777
C.210: XWD 0,P.AHS ; 0,P.AHS 407350' 000000 407250'
; Routine Size: 59 words
; 2505
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 137
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (21)
; 2506 GLOBAL ROUTINE FCLEAN (KERNEL_FILE, VALUES) : NOVALUE = !FINAL CLEANUP OF KERNEL
; 2507
; 2508 !++
; 2509 ! FUNCTIONAL DESCRIPTION:
; 2510 !
; 2511 ! DO FINAL CLEANUP OF THE KERNEL. THIS ROUTINE IS CALLED
; 2512 ! AFTER THE LAST TASK HAS BEEN INSTALLED BUT BEFORE THE
; 2513 ! CORE IMAGE IS WRITTEN OUT.
; 2514 !
; 2515 ! FORMAL PARAMETERS:
; 2516 !
; 2517 ! KERNEL_FILE - FILE BLOCK FOR THE KERNEL
; 2518 ! VALUES - BLOCK WHICH HOLDS VARIOUS USEFUL VALUES
; 2519 !
; 2520 ! IMPLICIT INPUTS:
; 2521 !
; 2522 ! NONE
; 2523 !
; 2524 ! IMPLICIT OUTPUTS:
; 2525 !
; 2526 ! NONE
; 2527 !
; 2528 ! ROUTINE VALUE:
; 2529 !
; 2530 ! NONE
; 2531 !
; 2532 ! SIDE EFFECTS
; 2533 !
; 2534 ! MODIFIES THE KERNEL CORE IMAGE AND LABEL
; 2535 !
; 2536 !--
; 2537
; 2538 BEGIN
; 2539
; 2540 BIND
; 2541 ROUTINE_NAME = UPLIT (%ASCIZ'FCLEAN');
; 2542
; 2543 MAP
; 2544 KERNEL_FILE : REF FILE_BLOCK,
; 2545 VALUES : REF VNPVAL_BLOCK;
; 2546
; 2547 LOCAL
; 2548 KERNEL_LABEL : REF VECTOR [1024],
; 2549 KERNEL_SIZE,
; 2550 ROUNDED_SIZE;
; 2551
; 2552 !
; 2553 ! FETCH POINTERS AND COMPUTE THE SIZE OF THE KERNEL
; 2554 !
; 2555 KERNEL_LABEL = .KERNEL_FILE [FILE_LABEL];
; 2556 KERNEL_SIZE = (.KERNEL_FILE [FILE_HWM] + 64) AND (NOT 63);
; 2557 ROUNDED_SIZE = (.KERNEL_FILE [FILE_HWM] + 512) AND (NOT 511);
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 138
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (21)
; 2558 !
; 2559 ! RETURN TO FREE POOL AMOUNT OF MEMORY UNUSED BY THIS SYSTEM
; 2560 !
; 2561 FRESTG (.KERNEL_FILE [FILE_CORE] + (.ROUNDED_SIZE/4), (.KERNEL_FILE [FILE_CORE_LEN] - .ROUNDED_SIZE)/4);
; 2562 KERNEL_FILE [FILE_CORE_LEN] = .ROUNDED_SIZE;
; 2563 !
; 2564 ! SET SYSTEM SIZE AND THE LABEL TO INDICATE THE NUMBER OF BYTES
; 2565 ! IN THIS CORE IMAGE.
; 2566 !
; 2567 PUTWRD (.KERNEL_FILE, .VALUES [SYSIZ], .ROUNDED_SIZE/64);
; 2568 KERNEL_LABEL [L$BLDZ] = (.ROUNDED_SIZE/64) MOD 256;
; 2569 KERNEL_LABEL [L$BLDZ + 1] = (.ROUNDED_SIZE/64)/256;
; 2570 KERNEL_LABEL [L$BMXZ] = (.ROUNDED_SIZE/64) MOD 256;
; 2571 KERNEL_LABEL [L$BMXZ + 1] = (.ROUNDED_SIZE/64)/256;
; 2572 !
; 2573 ! Copy node name to kernel_file name
; 2574 !
; 2575 CH$COPY (LEN_NODE_NAME, CH$PTR (VALUES [NODNAM]), 0, 7, CH$PTR (KERNEL_FILE [FILE_NAME]));
; 2576 END; !OF FCLEAN
P.AHT: BYTE (7)"F","C","L","E","A" ; FCLEA 407351' 106 103 114 105 101
BYTE (7)"N",000,000,000,000 ; N 407352' 116 000 000 000 000
ROUTINE_NAME= P.AHT ; 000000 407351'
FCLEAN::PUSH SP,AC0 ; SP,AC0 407353' 261 17 0 00 000000 2506
PUSH SP,AC10 ; SP,AC10 407354' 261 17 0 00 000010
PUSH SP,AC11 ; SP,AC11 407355' 261 17 0 00 000011
PUSH SP,AC12 ; SP,AC12 407356' 261 17 0 00 000012
PUSH SP,AC13 ; SP,AC13 407357' 261 17 0 00 000013
MOVE AC11,-7(SP) ; AC11,KERNEL_FILE 407360' 200 11 0 17 777771 2555
HRRZ AC13,17(AC11) ; KERNEL_LABEL,17(AC11) 407361' 550 13 0 11 000017
MOVE AC0,16(AC11) ; AC0,16(AC11) 407362' 200 00 0 11 000016 2556
ADDI AC0,100 ; AC0,100 407363' 271 00 0 00 000100
TRZ AC0,77 ; AC0,77 407364' 620 00 0 00 000077
MOVE AC0,16(AC11) ; AC0,16(AC11) 407365' 200 00 0 11 000016 2557
ADDI AC0,1000 ; AC0,1000 407366' 271 00 0 00 001000
MOVE AC12,AC0 ; ROUNDED_SIZE,AC0 407367' 200 12 0 00 000000
TRZ AC12,777 ; ROUNDED_SIZE,777 407370' 620 12 0 00 000777
MOVE AC1,AC12 ; AC1,ROUNDED_SIZE 407371' 200 01 0 00 000012 2561
IDIVI AC1,4 ; AC1,4 407372' 231 01 0 00 000004
MOVE AC0,AC1 ; AC0,AC1 407373' 200 00 0 00 000001
HLRZ AC3,14(AC11) ; AC3,14(AC11) 407374' 554 03 0 11 000014
ADD AC0,AC3 ; AC0,AC3 407375' 270 00 0 00 000003
PUSH SP,AC0 ; SP,AC0 407376' 261 17 0 00 000000
MOVE AC0,15(AC11) ; AC0,15(AC11) 407377' 200 00 0 11 000015
SUB AC0,AC12 ; AC0,ROUNDED_SIZE 407400' 274 00 0 00 000012
MOVE AC1,AC0 ; AC1,AC0 407401' 200 01 0 00 000000
IDIVI AC1,4 ; AC1,4 407402' 231 01 0 00 000004
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 139
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (21)
PUSH SP,AC1 ; SP,AC1 407403' 261 17 0 00 000001
PUSHJ SP,FRESTG ; SP,FRESTG 407404' 260 17 0 00 000000*
MOVEM AC12,15(AC11) ; ROUNDED_SIZE,15(AC11) 407405' 202 12 0 11 000015 2562
MOVEM AC11,0(SP) ; AC11,0(SP) 407406' 202 11 0 17 000000 2567
MOVE AC10,-10(SP) ; AC10,VALUES 407407' 200 10 0 17 777770
HLRZ AC0,11(AC10) ; AC0,11(AC10) 407410' 554 00 0 10 000011
PUSH SP,AC0 ; SP,AC0 407411' 261 17 0 00 000000
MOVE AC1,AC12 ; AC1,ROUNDED_SIZE 407412' 200 01 0 00 000012
IDIVI AC1,100 ; AC1,100 407413' 231 01 0 00 000100
MOVE AC12,AC1 ; AC12,AC1 407414' 200 12 0 00 000001
PUSH SP,AC12 ; SP,AC12 407415' 261 17 0 00 000012
PUSHJ SP,PUTWRD ; SP,PUTWRD 407416' 260 17 0 00 403414'
MOVE AC1,AC12 ; AC1,AC12 407417' 200 01 0 00 000012 2568
IDIVI AC1,400 ; AC1,400 407420' 231 01 0 00 000400
MOVE AC3,AC2 ; AC3,AC2 407421' 200 03 0 00 000002
MOVEM AC3,16(AC13) ; AC3,16(KERNEL_LABEL) 407422' 202 03 0 13 000016
MOVE AC1,AC12 ; AC1,AC12 407423' 200 01 0 00 000012 2569
IDIVI AC1,400 ; AC1,400 407424' 231 01 0 00 000400
MOVE AC0,AC1 ; AC0,AC1 407425' 200 00 0 00 000001
MOVEM AC0,17(AC13) ; AC0,17(KERNEL_LABEL) 407426' 202 00 0 13 000017
MOVEM AC3,20(AC13) ; AC3,20(KERNEL_LABEL) 407427' 202 03 0 13 000020 2570
MOVEM AC0,21(AC13) ; AC0,21(KERNEL_LABEL) 407430' 202 00 0 13 000021 2571
MOVEI AC2,112(AC10) ; AC2,112(AC10) 407431' 201 02 0 10 000112 2575
HRLI AC2,10700 ; AC2,10700 407432' 505 02 0 00 010700
MOVEI AC5,1(AC11) ; AC5,1(AC11) 407433' 201 05 0 11 000001
HRLI AC5,10700 ; AC5,10700 407434' 505 05 0 00 010700
MOVEI AC1,6 ; AC1,6 407435' 201 01 0 00 000006
MOVEI AC4,7 ; AC4,7 407436' 201 04 0 00 000007
EXTEND AC1,C.211 ; AC1,C.211 407437' 123 01 0 00 407450'
JFCL ; 407440' 255 00 0 00 000000
ADJSP SP,-4 ; SP,-4 407441' 105 17 0 00 777774 2538
POP SP,AC13 ; SP,AC13 407442' 262 17 0 00 000013 2506
POP SP,AC12 ; SP,AC12 407443' 262 17 0 00 000012
POP SP,AC11 ; SP,AC11 407444' 262 17 0 00 000011
POP SP,AC10 ; SP,AC10 407445' 262 17 0 00 000010
POP SP,AC0 ; SP,AC0 407446' 262 17 0 00 000000
POPJ SP, ; SP, 407447' 263 17 0 00 000000
C.211: MOVSLJ ; 407450' 016 00 0 00 000000
EXP 0 ; 0 407451' 000000 000000
; Routine Size: 63 words
; 2577
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 140
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (22)
; 2578 GLOBAL ROUTINE TELLK (KERNEL_FILE, TELL_CHAN, VALUES) : NOVALUE = !TELL ABOUT CORE IMAGE
; 2579
; 2580 !++
; 2581 ! FUNCTIONAL DESCRIPTION:
; 2582 !
; 2583 ! TELL ABOUT THIS CORE IMAGE, AND CHANGE THE NAME OF THE KERNEL
; 2584 ! FILE TO BE THE NAME OF THE NODE BEING BUILT. THE TYPEOUTS
; 2585 ! ARE FOR THE SAKE OF SOFTWARE SUPPORT ANALYZING A DUMP.
; 2586 !
; 2587 ! FORMAL PARAMETERS:
; 2588 !
; 2589 ! KERNEL_FILE - POINTER TO THE FILE BLOCK WHICH DESCRIBES
; 2590 ! THE KERNEL.
; 2591 ! TELL_CHAN - THE CHANNEL NUMBER ON WHICH TO WRITE THE INFO.
; 2592 ! VALUES - A VECTOR OF LOTS OF GOOD THINGS FOR VNP20
; 2593 !
; 2594 ! IMPLICIT INPUTS:
; 2595 !
; 2596 ! NONE
; 2597 !
; 2598 ! IMPLICIT OUTPUTS:
; 2599 !
; 2600 ! NONE
; 2601 !
; 2602 ! ROUTINE VALUE:
; 2603 !
; 2604 ! NONE
; 2605 !
; 2606 ! SIDE EFFECTS
; 2607 !
; 2608 ! WRITES ON THE SPECIFIED CHANNEL
; 2609 !
; 2610 !--
; 2611
; 2612 BEGIN
; 2613
; 2614 BIND
; 2615 ROUTINE_NAME = UPLIT (%ASCIZ'TELLK');
; 2616
; 2617 MAP
; 2618 KERNEL_FILE : REF FILE_BLOCK,
; 2619 VALUES : REF VNPVAL_BLOCK;
; 2620
; 2621 LOCAL
; 2622 MAIN_PCB_ADDR,
; 2623 MAIN_SCAN_DONE,
; 2624 SUB_PCB_ADDR,
; 2625 SUB_SCAN_DONE,
; 2626 PCB_ADDR,
; 2627 KERNEL_SIZE,
; 2628 IMAGE_KW,
; 2629 MINIMUM_KW,
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 141
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (22)
; 2630 SYSTEM_KW,
; 2631 CHAR;
; 2632
; 2633 SYSTEM_KW = GETWRD (.KERNEL_FILE, .VALUES [SYSIZ])^6;
; 2634
; 2635 IMAGE_KW = (.SYSTEM_KW + 2047)/2048;
; 2636
; 2637 MINIMUM_KW = ((.SYSTEM_KW + .VALUES [COR]) + 2047)/2048;
; 2638
; 2639 SYSTEM_KW = ((.SYSTEM_KW + ((.VALUES [COR]*180)/100)) + 2047)/2048;
; 2640
; 2641 PCRLF (.TELL_CHAN);
; 2642 OUTSTR (.TELL_CHAN, UPLIT (%ASCIZ' Node name: '));
; 2643 OUTSTR (.TELL_CHAN, KERNEL_FILE [FILE_NAME]);
; 2644 OUTSTR (.TELL_CHAN, UPLIT (%ASCIZ', number: '));
; 2645 OUTNUM (.TELL_CHAN, .VALUES [NODNM], 10, 0);
; 2646 OUTSTR (.TELL_CHAN, UPLIT (%ASCIZ'.'));
; 2647 PCRLF (.TELL_CHAN);
; 2648 OUTSTR (.TELL_CHAN, UPLIT (%ASCIZ' The conjured system image is '));
; 2649 OUTNUM (.TELL_CHAN, .IMAGE_KW, 10, 0);
; 2650 OUTSTR (.TELL_CHAN, UPLIT (%ASCIZ'K words. Considering buffers,'));
; 2651 PCRLF (.TELL_CHAN);
; 2652 OUTPUT (.TELL_CHAN, %C' ');
; 2653 OUTNUM (.TELL_CHAN, .MINIMUM_KW, 10, 0);
; 2654 OUTSTR (.TELL_CHAN, UPLIT (%ASCIZ'K words of memory will be required during execution.'));
; 2655 PCRLF (.TELL_CHAN);
; 2656
; 2657 IF .SYSTEM_KW GTR 124
; 2658 THEN
; 2659 BEGIN
; 2660 OUTPUT (.TELL_CHAN, %C' ');
; 2661 OUTNUM (.TELL_CHAN, .SYSTEM_KW, 10, 0);
; 2662 OUTSTR (.TELL_CHAN, UPLIT (%ASCIZ'K words of memory is recommended for reasonable performance.'));
; 2663 PCRLF (.TELL_CHAN);
; 2664 END;
; 2665
; 2666 PCRLF (.TELL_CHAN);
; 2667 OUTSTR (.TELL_CHAN, UPLIT (%ASCIZ' Partition Base Size Task Name'));
; 2668 PCRLF (.TELL_CHAN);
; 2669 MAIN_PCB_ADDR = GETWRD (.KERNEL_FILE, .VALUES [PARHD]);
; 2670 MAIN_SCAN_DONE = 0;
; 2671
; 2672 WHILE (.MAIN_SCAN_DONE EQL 0) DO
; 2673
; 2674 IF (.MAIN_PCB_ADDR EQL 0)
; 2675 THEN
; 2676 MAIN_SCAN_DONE = 1
; 2677 ELSE
; 2678 BEGIN
; 2679
; 2680 IF (GETWRD (.KERNEL_FILE, .MAIN_PCB_ADDR + .VALUES [P_MAIN]) EQL .MAIN_PCB_ADDR)
; 2681 THEN
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 142
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (22)
; 2682 BEGIN
; 2683 TELLP (.KERNEL_FILE, .TELL_CHAN, .MAIN_PCB_ADDR, .VALUES);
; 2684 SUB_PCB_ADDR = GETWRD (.KERNEL_FILE, .MAIN_PCB_ADDR + .VALUES [P_SUB]);
; 2685 SUB_SCAN_DONE = 0;
; 2686
; 2687 WHILE (.SUB_SCAN_DONE EQL 0) DO
; 2688 BEGIN
; 2689
; 2690 IF (.SUB_PCB_ADDR EQL 0)
; 2691 THEN
; 2692 SUB_SCAN_DONE = 1
; 2693 ELSE
; 2694 BEGIN
; 2695 TELLP (.KERNEL_FILE, .TELL_CHAN, .SUB_PCB_ADDR, .VALUES);
; 2696 END;
; 2697
; 2698 SUB_PCB_ADDR = GETWRD (.KERNEL_FILE, .SUB_PCB_ADDR + .VALUES [P_SUB]);
; 2699 END;
; 2700
; 2701 END;
; 2702
; 2703 MAIN_PCB_ADDR = GETWRD (.KERNEL_FILE, .MAIN_PCB_ADDR + .VALUES [P_LNK]);
; 2704 END;
; 2705
; 2706 PCRLF (.TELL_CHAN);
; 2707
; 2708 IF .MINIMUM_KW GTR 124
; 2709 THEN
; 2710 ERROR (UPLIT (%ASCIZ 'DN20 SYSTEM IS LARGER THAN 124K WORDS'));
; 2711
; 2712 END; !OF TELLK
P.AHU: BYTE (7)"T","E","L","L","K" ; TELLK 407452' 124 105 114 114 113
BYTE (7)000,000,000,000,000 ; 407453' 000 000 000 000 000
P.AHV: BYTE (7)" ","N","o","d","e" ; Node 407454' 040 116 157 144 145
BYTE (7)" ","n","a","m","e" ; name 407455' 040 156 141 155 145
BYTE (7)":"," ",000,000,000 ; : 407456' 072 040 000 000 000
P.AHW: BYTE (7)","," ","n","u","m" ; , num 407457' 054 040 156 165 155
BYTE (7)"b","e","r",":"," " ; ber: 407460' 142 145 162 072 040
BYTE (7)000,000,000,000,000 ; 407461' 000 000 000 000 000
P.AHX: BYTE (7)".",000,000,000,000 ; . 407462' 056 000 000 000 000
P.AHY: BYTE (7)" ","T","h","e"," " ; The 407463' 040 124 150 145 040
BYTE (7)"c","o","n","j","u" ; conju 407464' 143 157 156 152 165
BYTE (7)"r","e","d"," ","s" ; red s 407465' 162 145 144 040 163
BYTE (7)"y","s","t","e","m" ; ystem 407466' 171 163 164 145 155
BYTE (7)" ","i","m","a","g" ; imag 407467' 040 151 155 141 147
BYTE (7)"e"," ","i","s"," " ; e is 407470' 145 040 151 163 040
BYTE (7)000,000,000,000,000 ; 407471' 000 000 000 000 000
P.AHZ: BYTE (7)"K"," ","w","o","r" ; K wor 407472' 113 040 167 157 162
BYTE (7)"d","s","."," ","C" ; ds. C 407473' 144 163 056 040 103
BYTE (7)"o","n","s","i","d" ; onsid 407474' 157 156 163 151 144
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 143
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (22)
BYTE (7)"e","r","i","n","g" ; ering 407475' 145 162 151 156 147
BYTE (7)" ","b","u","f","f" ; buff 407476' 040 142 165 146 146
BYTE (7)"e","r","s",",",000 ; ers, 407477' 145 162 163 054 000
P.AIA: BYTE (7)"K"," ","w","o","r" ; K wor 407500' 113 040 167 157 162
BYTE (7)"d","s"," ","o","f" ; ds of 407501' 144 163 040 157 146
BYTE (7)" ","m","e","m","o" ; memo 407502' 040 155 145 155 157
BYTE (7)"r","y"," ","w","i" ; ry wi 407503' 162 171 040 167 151
BYTE (7)"l","l"," ","b","e" ; ll be 407504' 154 154 040 142 145
BYTE (7)" ","r","e","q","u" ; requ 407505' 040 162 145 161 165
BYTE (7)"i","r","e","d"," " ; ired 407506' 151 162 145 144 040
BYTE (7)"d","u","r","i","n" ; durin 407507' 144 165 162 151 156
BYTE (7)"g"," ","e","x","e" ; g exe 407510' 147 040 145 170 145
BYTE (7)"c","u","t","i","o" ; cutio 407511' 143 165 164 151 157
BYTE (7)"n",".",000,000,000 ; n. 407512' 156 056 000 000 000
P.AIB: BYTE (7)"K"," ","w","o","r" ; K wor 407513' 113 040 167 157 162
BYTE (7)"d","s"," ","o","f" ; ds of 407514' 144 163 040 157 146
BYTE (7)" ","m","e","m","o" ; memo 407515' 040 155 145 155 157
BYTE (7)"r","y"," ","i","s" ; ry is 407516' 162 171 040 151 163
BYTE (7)" ","r","e","c","o" ; reco 407517' 040 162 145 143 157
BYTE (7)"m","m","e","n","d" ; mmend 407520' 155 155 145 156 144
BYTE (7)"e","d"," ","f","o" ; ed fo 407521' 145 144 040 146 157
BYTE (7)"r"," ","r","e","a" ; r rea 407522' 162 040 162 145 141
BYTE (7)"s","o","n","a","b" ; sonab 407523' 163 157 156 141 142
BYTE (7)"l","e"," ","p","e" ; le pe 407524' 154 145 040 160 145
BYTE (7)"r","f","o","r","m" ; rform 407525' 162 146 157 162 155
BYTE (7)"a","n","c","e","." ; ance. 407526' 141 156 143 145 056
BYTE (7)000,000,000,000,000 ; 407527' 000 000 000 000 000
P.AIC: BYTE (7)" ","P","a","r","t" ; Part 407530' 040 120 141 162 164
BYTE (7)"i","t","i","o","n" ; ition 407531' 151 164 151 157 156
BYTE (7)" "," "," ","B","a" ; Ba 407532' 040 040 040 102 141
BYTE (7)"s","e"," "," "," " ; se 407533' 163 145 040 040 040
BYTE (7)"S","i","z","e"," " ; Size 407534' 123 151 172 145 040
BYTE (7)" "," ","T","a","s" ; Tas 407535' 040 040 124 141 163
BYTE (7)"k"," ","N","a","m" ; k Nam 407536' 153 040 116 141 155
BYTE (7)"e",000,000,000,000 ; e 407537' 145 000 000 000 000
P.AID: BYTE (7)"D","N","2","0"," " ; DN20 407540' 104 116 062 060 040
BYTE (7)"S","Y","S","T","E" ; SYSTE 407541' 123 131 123 124 105
BYTE (7)"M"," ","I","S"," " ; M IS 407542' 115 040 111 123 040
BYTE (7)"L","A","R","G","E" ; LARGE 407543' 114 101 122 107 105
BYTE (7)"R"," ","T","H","A" ; R THA 407544' 122 040 124 110 101
BYTE (7)"N"," ","1","2","4" ; N 124 407545' 116 040 061 062 064
BYTE (7)"K"," ","W","O","R" ; K WOR 407546' 113 040 127 117 122
BYTE (7)"D","S",000,000,000 ; DS 407547' 104 123 000 000 000
ROUTINE_NAME= P.AHU ; 000000 407452'
TELLK:: PUSH SP,AC0 ; SP,AC0 407550' 261 17 0 00 000000 2578
PUSH SP,AC10 ; SP,AC10 407551' 261 17 0 00 000010
PUSH SP,AC11 ; SP,AC11 407552' 261 17 0 00 000011
PUSH SP,AC12 ; SP,AC12 407553' 261 17 0 00 000012
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 144
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (22)
PUSH SP,AC13 ; SP,AC13 407554' 261 17 0 00 000013
PUSH SP,AC14 ; SP,AC14 407555' 261 17 0 00 000014
PUSH SP,AC16 ; SP,AC16 407556' 261 17 0 00 000016
ADJSP SP,1 ; SP,1 407557' 105 17 0 00 000001
MOVE AC14,-13(SP) ; AC14,KERNEL_FILE 407560' 200 14 0 17 777765 2633
PUSH SP,AC14 ; SP,AC14 407561' 261 17 0 00 000014
MOVE AC10,-12(SP) ; AC10,VALUES 407562' 200 10 0 17 777766
HLRZ AC0,11(AC10) ; AC0,11(AC10) 407563' 554 00 0 10 000011
PUSH SP,AC0 ; SP,AC0 407564' 261 17 0 00 000000
PUSHJ SP,GETWRD ; SP,GETWRD 407565' 260 17 0 00 403201'
MOVE AC0,AC1 ; SYSTEM_KW,AC1 407566' 200 00 0 00 000001
LSH AC0,6 ; SYSTEM_KW,6 407567' 242 00 0 00 000006
MOVE AC1,AC0 ; AC1,SYSTEM_KW 407570' 200 01 0 00 000000 2635
ADDI AC1,3777 ; AC1,3777 407571' 271 01 0 00 003777
IDIVI AC1,4000 ; AC1,4000 407572' 231 01 0 00 004000
MOVE AC11,AC1 ; IMAGE_KW,AC1 407573' 200 11 0 00 000001
MOVE AC1,AC0 ; AC1,SYSTEM_KW 407574' 200 01 0 00 000000 2637
HRRZ AC2,116(AC10) ; AC2,116(AC10) 407575' 550 02 0 10 000116
ADD AC1,AC2 ; AC1,AC2 407576' 270 01 0 00 000002
ADDI AC1,3777 ; AC1,3777 407577' 271 01 0 00 003777
IDIVI AC1,4000 ; AC1,4000 407600' 231 01 0 00 004000
MOVE AC16,AC1 ; MINIMUM_KW,AC1 407601' 200 16 0 00 000001
HRRZ AC1,116(AC10) ; AC1,116(AC10) 407602' 550 01 0 10 000116 2639
IMULI AC1,264 ; AC1,264 407603' 221 01 0 00 000264
IDIVI AC1,144 ; AC1,144 407604' 231 01 0 00 000144
ADD AC1,AC0 ; AC1,SYSTEM_KW 407605' 270 01 0 00 000000
ADDI AC1,3777 ; AC1,3777 407606' 271 01 0 00 003777
IDIVI AC1,4000 ; AC1,4000 407607' 231 01 0 00 004000
MOVE AC0,AC1 ; SYSTEM_KW,AC1 407610' 200 00 0 00 000001
MOVE AC1,-14(SP) ; AC1,TELL_CHAN 407611' 200 01 0 17 777764 2641
MOVEM AC1,-2(SP) ; AC1,-2(SP) 407612' 202 01 0 17 777776
PUSH SP,-2(SP) ; SP,-2(SP) 407613' 261 17 0 17 777776
PUSHJ SP,PCRLF ; SP,PCRLF 407614' 260 17 0 00 000000*
MOVE AC1,-3(SP) ; AC1,-3(SP) 407615' 200 01 0 17 777775 2642
MOVEM AC1,0(SP) ; AC1,0(SP) 407616' 202 01 0 17 000000
PUSH SP,C.212 ; SP,[0,,P.AHV] 407617' 261 17 0 00 410071'
PUSHJ SP,OUTSTR ; SP,OUTSTR 407620' 260 17 0 00 000000*
MOVE AC1,-4(SP) ; AC1,-4(SP) 407621' 200 01 0 17 777774 2643
MOVEM AC1,0(SP) ; AC1,0(SP) 407622' 202 01 0 17 000000
MOVE AC1,AC14 ; AC1,AC14 407623' 200 01 0 00 000014
ADDI AC1,2 ; AC1,2 407624' 271 01 0 00 000002
PUSH SP,AC1 ; SP,AC1 407625' 261 17 0 00 000001
PUSHJ SP,OUTSTR ; SP,OUTSTR 407626' 260 17 0 00 000000*
MOVE AC1,-5(SP) ; AC1,-5(SP) 407627' 200 01 0 17 777773 2644
MOVEM AC1,0(SP) ; AC1,0(SP) 407630' 202 01 0 17 000000
PUSH SP,C.213 ; SP,[0,,P.AHW] 407631' 261 17 0 00 410072'
PUSHJ SP,OUTSTR ; SP,OUTSTR 407632' 260 17 0 00 000000*
MOVE AC1,-6(SP) ; AC1,-6(SP) 407633' 200 01 0 17 777772 2645
MOVEM AC1,0(SP) ; AC1,0(SP) 407634' 202 01 0 17 000000
HRRZ AC1,115(AC10) ; AC1,115(AC10) 407635' 550 01 0 10 000115
PUSH SP,AC1 ; SP,AC1 407636' 261 17 0 00 000001
PUSH SP,C.214 ; SP,[12] 407637' 261 17 0 00 410073'
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 145
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (22)
PUSH SP,C.5 ; SP,[0] 407640' 261 17 0 00 400166'
PUSHJ SP,OUTNUM ; SP,OUTNUM 407641' 260 17 0 00 000000*
MOVE AC1,-11(SP) ; AC1,-11(SP) 407642' 200 01 0 17 777767 2646
MOVEM AC1,0(SP) ; AC1,0(SP) 407643' 202 01 0 17 000000
PUSH SP,C.215 ; SP,[0,,P.AHX] 407644' 261 17 0 00 410074'
PUSHJ SP,OUTSTR ; SP,OUTSTR 407645' 260 17 0 00 000000*
MOVE AC1,-12(SP) ; AC1,-12(SP) 407646' 200 01 0 17 777766 2647
MOVEM AC1,0(SP) ; AC1,0(SP) 407647' 202 01 0 17 000000
PUSHJ SP,PCRLF ; SP,PCRLF 407650' 260 17 0 00 000000*
MOVE AC1,-12(SP) ; AC1,-12(SP) 407651' 200 01 0 17 777766 2648
MOVEM AC1,0(SP) ; AC1,0(SP) 407652' 202 01 0 17 000000
PUSH SP,C.216 ; SP,[0,,P.AHY] 407653' 261 17 0 00 410075'
PUSHJ SP,OUTSTR ; SP,OUTSTR 407654' 260 17 0 00 000000*
MOVE AC1,-13(SP) ; AC1,-13(SP) 407655' 200 01 0 17 777765 2649
MOVEM AC1,-1(SP) ; AC1,-1(SP) 407656' 202 01 0 17 777777
MOVEM AC11,0(SP) ; IMAGE_KW,0(SP) 407657' 202 11 0 17 000000
PUSH SP,C.214 ; SP,[12] 407660' 261 17 0 00 410073'
PUSH SP,C.5 ; SP,[0] 407661' 261 17 0 00 400166'
PUSHJ SP,OUTNUM ; SP,OUTNUM 407662' 260 17 0 00 000000*
MOVE AC1,-15(SP) ; AC1,-15(SP) 407663' 200 01 0 17 777763 2650
MOVEM AC1,0(SP) ; AC1,0(SP) 407664' 202 01 0 17 000000
PUSH SP,C.217 ; SP,[0,,P.AHZ] 407665' 261 17 0 00 410076'
PUSHJ SP,OUTSTR ; SP,OUTSTR 407666' 260 17 0 00 000000*
MOVE AC1,-16(SP) ; AC1,-16(SP) 407667' 200 01 0 17 777762 2651
MOVEM AC1,0(SP) ; AC1,0(SP) 407670' 202 01 0 17 000000
PUSHJ SP,PCRLF ; SP,PCRLF 407671' 260 17 0 00 000000*
MOVE AC1,-16(SP) ; AC1,-16(SP) 407672' 200 01 0 17 777762 2652
MOVEM AC1,0(SP) ; AC1,0(SP) 407673' 202 01 0 17 000000
PUSH SP,C.218 ; SP,[40] 407674' 261 17 0 00 410077'
PUSHJ SP,OUTPUT ; SP,OUTPUT 407675' 260 17 0 00 000000*
MOVE AC1,-17(SP) ; AC1,-17(SP) 407676' 200 01 0 17 777761 2653
MOVEM AC1,-1(SP) ; AC1,-1(SP) 407677' 202 01 0 17 777777
MOVEM AC16,0(SP) ; MINIMUM_KW,0(SP) 407700' 202 16 0 17 000000
PUSH SP,C.214 ; SP,[12] 407701' 261 17 0 00 410073'
PUSH SP,C.5 ; SP,[0] 407702' 261 17 0 00 400166'
PUSHJ SP,OUTNUM ; SP,OUTNUM 407703' 260 17 0 00 000000*
MOVE AC1,-21(SP) ; AC1,-21(SP) 407704' 200 01 0 17 777757 2654
MOVEM AC1,0(SP) ; AC1,0(SP) 407705' 202 01 0 17 000000
PUSH SP,C.219 ; SP,[0,,P.AIA] 407706' 261 17 0 00 410100'
PUSHJ SP,OUTSTR ; SP,OUTSTR 407707' 260 17 0 00 000000*
MOVE AC1,-22(SP) ; AC1,-22(SP) 407710' 200 01 0 17 777756 2655
MOVEM AC1,0(SP) ; AC1,0(SP) 407711' 202 01 0 17 000000
PUSHJ SP,PCRLF ; SP,PCRLF 407712' 260 17 0 00 000000*
CAIG AC0,174 ; SYSTEM_KW,174 407713' 307 00 0 00 000174 2657
JRST L.177 ; L.177 407714' 254 00 0 00 407737'
MOVE AC1,-22(SP) ; AC1,-22(SP) 407715' 200 01 0 17 777756 2660
MOVEM AC1,0(SP) ; AC1,0(SP) 407716' 202 01 0 17 000000
PUSH SP,C.218 ; SP,[40] 407717' 261 17 0 00 410077'
PUSHJ SP,OUTPUT ; SP,OUTPUT 407720' 260 17 0 00 000000*
MOVE AC1,-23(SP) ; AC1,-23(SP) 407721' 200 01 0 17 777755 2661
MOVEM AC1,-1(SP) ; AC1,-1(SP) 407722' 202 01 0 17 777777
MOVEM AC0,0(SP) ; SYSTEM_KW,0(SP) 407723' 202 00 0 17 000000
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 146
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (22)
PUSH SP,C.214 ; SP,[12] 407724' 261 17 0 00 410073'
PUSH SP,C.5 ; SP,[0] 407725' 261 17 0 00 400166'
PUSHJ SP,OUTNUM ; SP,OUTNUM 407726' 260 17 0 00 000000*
MOVE AC0,-25(SP) ; AC0,-25(SP) 407727' 200 00 0 17 777753 2662
MOVEM AC0,0(SP) ; AC0,0(SP) 407730' 202 00 0 17 000000
PUSH SP,C.220 ; SP,[0,,P.AIB] 407731' 261 17 0 00 410101'
PUSHJ SP,OUTSTR ; SP,OUTSTR 407732' 260 17 0 00 000000*
MOVE AC0,-26(SP) ; AC0,-26(SP) 407733' 200 00 0 17 777752 2663
MOVEM AC0,0(SP) ; AC0,0(SP) 407734' 202 00 0 17 000000
PUSHJ SP,PCRLF ; SP,PCRLF 407735' 260 17 0 00 000000*
ADJSP SP,-4 ; SP,-4 407736' 105 17 0 00 777774 2659
L.177: MOVE AC0,-22(SP) ; AC0,-22(SP) 407737' 200 00 0 17 777756 2666
MOVEM AC0,0(SP) ; AC0,0(SP) 407740' 202 00 0 17 000000
PUSHJ SP,PCRLF ; SP,PCRLF 407741' 260 17 0 00 000000*
MOVE AC0,-22(SP) ; AC0,-22(SP) 407742' 200 00 0 17 777756 2667
MOVEM AC0,0(SP) ; AC0,0(SP) 407743' 202 00 0 17 000000
PUSH SP,C.221 ; SP,[0,,P.AIC] 407744' 261 17 0 00 410102'
PUSHJ SP,OUTSTR ; SP,OUTSTR 407745' 260 17 0 00 000000*
MOVE AC0,-23(SP) ; AC0,-23(SP) 407746' 200 00 0 17 777755 2668
MOVEM AC0,0(SP) ; AC0,0(SP) 407747' 202 00 0 17 000000
PUSHJ SP,PCRLF ; SP,PCRLF 407750' 260 17 0 00 000000*
MOVEM AC14,0(SP) ; AC14,0(SP) 407751' 202 14 0 17 000000 2669
HLRZ AC0,7(AC10) ; AC0,7(AC10) 407752' 554 00 0 10 000007
PUSH SP,AC0 ; SP,AC0 407753' 261 17 0 00 000000
PUSHJ SP,GETWRD ; SP,GETWRD 407754' 260 17 0 00 403201'
MOVE AC0,AC1 ; MAIN_PCB_ADDR,AC1 407755' 200 00 0 00 000001
SETZ AC12, ; MAIN_SCAN_DONE, 407756' 400 12 0 00 000000 2670
L.178: JUMPN AC12,L.185 ; MAIN_SCAN_DONE,L.185 407757' 326 12 0 00 410047' 2672
JUMPN AC0,L.179 ; MAIN_PCB_ADDR,L.179 407760' 326 00 0 00 407763' 2674
MOVEI AC12,1 ; MAIN_SCAN_DONE,1 407761' 201 12 0 00 000001 2676
JRST L.178 ; L.178 407762' 254 00 0 00 407757' 2674
L.179: MOVEM AC14,0(SP) ; AC14,0(SP) 407763' 202 14 0 17 000000 2680
MOVE AC1,AC0 ; AC1,MAIN_PCB_ADDR 407764' 200 01 0 00 000000
HRRZ AC2,16(AC10) ; AC2,16(AC10) 407765' 550 02 0 10 000016
ADD AC1,AC2 ; AC1,AC2 407766' 270 01 0 00 000002
PUSH SP,AC1 ; SP,AC1 407767' 261 17 0 00 000001
PUSHJ SP,GETWRD ; SP,GETWRD 407770' 260 17 0 00 403201'
ADJSP SP,-1 ; SP,-1 407771' 105 17 0 00 777777
CAME AC1,AC0 ; AC1,MAIN_PCB_ADDR 407772' 312 01 0 00 000000
JRST L.184 ; L.184 407773' 254 00 0 00 410036'
MOVEM AC14,-3(SP) ; AC14,-3(SP) 407774' 202 14 0 17 777775 2683
MOVE AC1,-24(SP) ; AC1,-24(SP) 407775' 200 01 0 17 777754
MOVEM AC1,-2(SP) ; AC1,-2(SP) 407776' 202 01 0 17 777776
MOVEM AC0,-1(SP) ; MAIN_PCB_ADDR,-1(SP) 407777' 202 00 0 17 777777
MOVEM AC10,0(SP) ; AC10,0(SP) 410000' 202 10 0 17 000000
PUSHJ SP,TELLP ; SP,TELLP 410001' 260 17 0 00 000000V
MOVEM AC14,0(SP) ; AC14,0(SP) 410002' 202 14 0 17 000000 2684
MOVE AC1,AC0 ; AC1,MAIN_PCB_ADDR 410003' 200 01 0 00 000000
HLRZ AC2,15(AC10) ; AC2,15(AC10) 410004' 554 02 0 10 000015
ADD AC1,AC2 ; AC1,AC2 410005' 270 01 0 00 000002
PUSH SP,AC1 ; SP,AC1 410006' 261 17 0 00 000001
PUSHJ SP,GETWRD ; SP,GETWRD 410007' 260 17 0 00 403201'
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 147
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (22)
MOVE AC13,AC1 ; SUB_PCB_ADDR,AC1 410010' 200 13 0 00 000001
SETZ AC11, ; SUB_SCAN_DONE, 410011' 400 11 0 00 000000 2685
L.180: JUMPN AC11,L.183 ; SUB_SCAN_DONE,L.183 410012' 326 11 0 00 410035' 2687
JUMPN AC13,L.181 ; SUB_PCB_ADDR,L.181 410013' 326 13 0 00 410016' 2690
MOVEI AC11,1 ; SUB_SCAN_DONE,1 410014' 201 11 0 00 000001 2692
JRST L.182 ; L.182 410015' 254 00 0 00 410024' 2690
L.181: MOVEM AC14,-3(SP) ; AC14,-3(SP) 410016' 202 14 0 17 777775 2695
MOVE AC1,-25(SP) ; AC1,-25(SP) 410017' 200 01 0 17 777753
MOVEM AC1,-2(SP) ; AC1,-2(SP) 410020' 202 01 0 17 777776
MOVEM AC13,-1(SP) ; SUB_PCB_ADDR,-1(SP) 410021' 202 13 0 17 777777
MOVEM AC10,0(SP) ; AC10,0(SP) 410022' 202 10 0 17 000000
PUSHJ SP,TELLP ; SP,TELLP 410023' 260 17 0 00 000000V
L.182: MOVEM AC14,0(SP) ; AC14,0(SP) 410024' 202 14 0 17 000000 2698
MOVE AC1,AC13 ; AC1,SUB_PCB_ADDR 410025' 200 01 0 00 000013
HLRZ AC2,15(AC10) ; AC2,15(AC10) 410026' 554 02 0 10 000015
ADD AC1,AC2 ; AC1,AC2 410027' 270 01 0 00 000002
PUSH SP,AC1 ; SP,AC1 410030' 261 17 0 00 000001
PUSHJ SP,GETWRD ; SP,GETWRD 410031' 260 17 0 00 403201'
MOVE AC13,AC1 ; SUB_PCB_ADDR,AC1 410032' 200 13 0 00 000001
ADJSP SP,-1 ; SP,-1 410033' 105 17 0 00 777777 2688
JRST L.180 ; L.180 410034' 254 00 0 00 410012' 2687
L.183: ADJSP SP,-1 ; SP,-1 410035' 105 17 0 00 777777 2682
L.184: MOVEM AC14,0(SP) ; AC14,0(SP) 410036' 202 14 0 17 000000 2703
MOVE AC1,AC0 ; AC1,MAIN_PCB_ADDR 410037' 200 01 0 00 000000
HLRZ AC2,13(AC10) ; AC2,13(AC10) 410040' 554 02 0 10 000013
ADD AC1,AC2 ; AC1,AC2 410041' 270 01 0 00 000002
PUSH SP,AC1 ; SP,AC1 410042' 261 17 0 00 000001
PUSHJ SP,GETWRD ; SP,GETWRD 410043' 260 17 0 00 403201'
MOVE AC0,AC1 ; MAIN_PCB_ADDR,AC1 410044' 200 00 0 00 000001
ADJSP SP,-1 ; SP,-1 410045' 105 17 0 00 777777 2678
JRST L.178 ; L.178 410046' 254 00 0 00 407757' 2672
L.185: MOVE AC0,-24(SP) ; AC0,-24(SP) 410047' 200 00 0 17 777754 2706
MOVEM AC0,0(SP) ; AC0,0(SP) 410050' 202 00 0 17 000000
PUSHJ SP,PCRLF ; SP,PCRLF 410051' 260 17 0 00 000000*
CAIG AC16,174 ; MINIMUM_KW,174 410052' 307 16 0 00 000174 2708
JRST L.186 ; L.186 410053' 254 00 0 00 410057'
PUSH SP,C.222 ; SP,[0,,P.AID] 410054' 261 17 0 00 410103' 2710
PUSHJ SP,ERROR ; SP,ERROR 410055' 260 17 0 00 000000*
ADJSP SP,-1 ; SP,-1 410056' 105 17 0 00 777777
L.186: ADJSP SP,-24 ; SP,-24 410057' 105 17 0 00 777754 2612
ADJSP SP,-1 ; SP,-1 410060' 105 17 0 00 777777 2578
POP SP,AC16 ; SP,AC16 410061' 262 17 0 00 000016
POP SP,AC14 ; SP,AC14 410062' 262 17 0 00 000014
POP SP,AC13 ; SP,AC13 410063' 262 17 0 00 000013
POP SP,AC12 ; SP,AC12 410064' 262 17 0 00 000012
POP SP,AC11 ; SP,AC11 410065' 262 17 0 00 000011
POP SP,AC10 ; SP,AC10 410066' 262 17 0 00 000010
POP SP,AC0 ; SP,AC0 410067' 262 17 0 00 000000
POPJ SP, ; SP, 410070' 263 17 0 00 000000
C.212: XWD 0,P.AHV ; 0,P.AHV 410071' 000000 407454'
C.213: XWD 0,P.AHW ; 0,P.AHW 410072' 000000 407457'
C.214: EXP 12 ; 12 410073' 000000 000012
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 148
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (22)
C.215: XWD 0,P.AHX ; 0,P.AHX 410074' 000000 407462'
C.216: XWD 0,P.AHY ; 0,P.AHY 410075' 000000 407463'
C.217: XWD 0,P.AHZ ; 0,P.AHZ 410076' 000000 407472'
C.218: EXP 40 ; 40 410077' 000000 000040
C.219: XWD 0,P.AIA ; 0,P.AIA 410100' 000000 407500'
C.220: XWD 0,P.AIB ; 0,P.AIB 410101' 000000 407513'
C.221: XWD 0,P.AIC ; 0,P.AIC 410102' 000000 407530'
C.222: XWD 0,P.AID ; 0,P.AID 410103' 000000 407540'
; Routine Size: 220 words
; 2713
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 149
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (23)
; 2714 ROUTINE TELLP (KERNEL_FILE, TELL_CHAN, PCB_ADDR, VALUES) : NOVALUE = !TELL ABOUT A PARTITION
; 2715
; 2716 !++
; 2717 ! FUNCTIONAL DESCRIPTION:
; 2718 !
; 2719 ! TELL ABOUT A PARTITION
; 2720 !
; 2721 ! FORMAL PARAMETERS:
; 2722 !
; 2723 ! KERNEL_FILE - POINTER TO THE FILE BLOCK WHICH DESCRIBES
; 2724 ! THE KERNEL.
; 2725 ! TELL_CHAN - THE CHANNEL NUMBER ON WHICH TO WRITE THE INFO.
; 2726 ! PCB_ADDR - PDP-11 ADDRESS OF THE PARTITION CONTROL BLOCK
; 2727 ! VALUES - A VECTOR OF LOTS OF GOOD THINGS FOR VNP20
; 2728 !
; 2729 ! IMPLICIT INPUTS:
; 2730 !
; 2731 ! NONE
; 2732 !
; 2733 ! IMPLICIT OUTPUTS:
; 2734 !
; 2735 ! NONE
; 2736 !
; 2737 ! ROUTINE VALUE:
; 2738 !
; 2739 ! NONE
; 2740 !
; 2741 ! SIDE EFFECTS
; 2742 !
; 2743 ! WRITES ON THE SPECIFIED CHANNEL
; 2744 !
; 2745 !--
; 2746
; 2747 BEGIN
; 2748
; 2749 BIND
; 2750 ROUTINE_NAME = UPLIT (%ASCIZ'TELLP');
; 2751
; 2752 MAP
; 2753 KERNEL_FILE : REF FILE_BLOCK,
; 2754 VALUES : REF VNPVAL_BLOCK;
; 2755
; 2756 LOCAL
; 2757 R50VAL,
; 2758 ASCVAL : VECTOR [CH$ALLOCATION (7)],
; 2759 TCB_ADDR;
; 2760
; 2761 !
; 2762 ! FIRST TELL THE PARTITION NAME, THEN THE BASE ADDRESS AND SIZE,
; 2763 ! LAST THE NAME OF THE TASK RESIDENT IN THE PARTITION.
; 2764 !
; 2765 R50VAL = 0;
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 150
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (23)
; 2766 R50VAL<16, 16> = GETWRD (.KERNEL_FILE, .PCB_ADDR + .VALUES [P_NAM]);
; 2767 R50VAL<0, 16> = GETWRD (.KERNEL_FILE, .PCB_ADDR + .VALUES [P_NAM] + 2);
; 2768 R50TOA (.R50VAL, ASCVAL);
; 2769 PCRLF (.TELL_CHAN);
; 2770 OUTSTR (.TELL_CHAN, UPLIT (%ASCIZ' '));
; 2771 OUTSTR (.TELL_CHAN, ASCVAL);
; 2772 OUTSTR (.TELL_CHAN, UPLIT (%ASCIZ' '));
; 2773 OUTNUM (.TELL_CHAN, GETWRD (.KERNEL_FILE, .PCB_ADDR + .VALUES [P_REL])*64, 8, 7);
; 2774 OUTSTR (.TELL_CHAN, UPLIT (%ASCIZ' '));
; 2775 OUTNUM (.TELL_CHAN, GETWRD (.KERNEL_FILE, .PCB_ADDR + .VALUES [P_SIZE])*64, 8, 7);
; 2776 TCB_ADDR = GETWRD (.KERNEL_FILE, .PCB_ADDR + .VALUES [P_TCB]);
; 2777
; 2778 IF (.TCB_ADDR NEQ 0)
; 2779 THEN
; 2780 BEGIN
; 2781
; 2782 IF ((GETWRD (.KERNEL_FILE, .PCB_ADDR + .VALUES [P_STAT]) AND .VALUES [PS_DRV]) EQL 0)
; 2783 THEN
; 2784 BEGIN
; 2785 R50VAL = 0;
; 2786 R50VAL<16, 16> = GETWRD (.KERNEL_FILE, .TCB_ADDR + .VALUES [T_NAM]);
; 2787 R50VAL<0, 16> = GETWRD (.KERNEL_FILE, .TCB_ADDR + .VALUES [T_NAM] + 2);
; 2788 R50TOA (.R50VAL, ASCVAL);
; 2789 END
; 2790 ELSE
; 2791 BEGIN
; 2792 ASCVAL = 0;
; 2793 CH$WCHAR (GETBYT (.KERNEL_FILE, .TCB_ADDR + .VALUES [D_NAM]), CH$PTR (ASCVAL, 0));
; 2794 CH$WCHAR (GETBYT (.KERNEL_FILE, .TCB_ADDR + .VALUES [D_NAM] + 1), CH$PTR (ASCVAL, 1));
; 2795 CH$WCHAR (%C':', CH$PTR (ASCVAL, 2));
; 2796 END;
; 2797
; 2798 OUTSTR (.TELL_CHAN, UPLIT (%ASCIZ' '));
; 2799 OUTSTR (.TELL_CHAN, ASCVAL);
; 2800 END;
; 2801
; 2802 END; !OF TELLP
P.AIE: BYTE (7)"T","E","L","L","P" ; TELLP 410104' 124 105 114 114 120
BYTE (7)000,000,000,000,000 ; 410105' 000 000 000 000 000
P.AIF: BYTE (7)" ",000,000,000,000 ; 410106' 040 000 000 000 000
P.AIG: BYTE (7)" "," "," "," "," " ; 410107' 040 040 040 040 040
BYTE (7)000,000,000,000,000 ; 410110' 000 000 000 000 000
P.AIH: BYTE (7)" ",000,000,000,000 ; 410111' 040 000 000 000 000
P.AII: BYTE (7)" "," ",000,000,000 ; 410112' 040 040 000 000 000
ROUTINE_NAME= P.AIE ; 000000 410104'
TELLP: PUSH SP,AC0 ; SP,AC0 410113' 261 17 0 00 000000 2714
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 151
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (23)
PUSH SP,AC10 ; SP,AC10 410114' 261 17 0 00 000010
PUSH SP,AC11 ; SP,AC11 410115' 261 17 0 00 000011
PUSH SP,AC12 ; SP,AC12 410116' 261 17 0 00 000012
PUSH SP,AC13 ; SP,AC13 410117' 261 17 0 00 000013
PUSH SP,AC14 ; SP,AC14 410120' 261 17 0 00 000014
ADJSP SP,2 ; SP,2 410121' 105 17 0 00 000002
SETZ AC12, ; R50VAL, 410122' 400 12 0 00 000000 2765
MOVE AC14,-14(SP) ; AC14,KERNEL_FILE 410123' 200 14 0 17 777764 2766
PUSH SP,AC14 ; SP,AC14 410124' 261 17 0 00 000014
MOVE AC11,-13(SP) ; AC11,PCB_ADDR 410125' 200 11 0 17 777765
MOVE AC10,-12(SP) ; AC10,VALUES 410126' 200 10 0 17 777766
MOVE AC0,AC11 ; AC0,AC11 410127' 200 00 0 00 000011
HRRZ AC1,15(AC10) ; AC1,15(AC10) 410130' 550 01 0 10 000015
ADD AC0,AC1 ; AC0,AC1 410131' 270 00 0 00 000001
PUSH SP,AC0 ; SP,AC0 410132' 261 17 0 00 000000
PUSHJ SP,GETWRD ; SP,GETWRD 410133' 260 17 0 00 403201'
DPB AC1,C.223 ; AC1,[POINT 16,R50VAL,19] <16,16> 410134' 137 01 0 00 410332'
MOVEM AC14,0(SP) ; AC14,0(SP) 410135' 202 14 0 17 000000 2767
ADDI AC0,2 ; AC0,2 410136' 271 00 0 00 000002
PUSH SP,AC0 ; SP,AC0 410137' 261 17 0 00 000000
PUSHJ SP,GETWRD ; SP,GETWRD 410140' 260 17 0 00 403201'
DPB AC1,C.224 ; AC1,[POINT 16,R50VAL,35] <0,16> 410141' 137 01 0 00 410333'
MOVEM AC12,0(SP) ; R50VAL,0(SP) 410142' 202 12 0 17 000000 2768
MOVEI AC0,-4(SP) ; AC0,ASCVAL 410143' 201 00 0 17 777774
PUSH SP,AC0 ; SP,AC0 410144' 261 17 0 00 000000
PUSHJ SP,R50TOA ; SP,R50TOA 410145' 260 17 0 00 000000*
MOVE AC13,-17(SP) ; AC13,TELL_CHAN 410146' 200 13 0 17 777761 2769
PUSH SP,AC13 ; SP,AC13 410147' 261 17 0 00 000013
PUSHJ SP,PCRLF ; SP,PCRLF 410150' 260 17 0 00 000000*
MOVEM AC13,0(SP) ; AC13,0(SP) 410151' 202 13 0 17 000000 2770
PUSH SP,C.225 ; SP,[0,,P.AIF] 410152' 261 17 0 00 410334'
PUSHJ SP,OUTSTR ; SP,OUTSTR 410153' 260 17 0 00 000000*
MOVEM AC13,0(SP) ; AC13,0(SP) 410154' 202 13 0 17 000000 2771
MOVEI AC0,-7(SP) ; AC0,ASCVAL 410155' 201 00 0 17 777771
PUSH SP,AC0 ; SP,AC0 410156' 261 17 0 00 000000
PUSHJ SP,OUTSTR ; SP,OUTSTR 410157' 260 17 0 00 000000*
MOVEM AC13,0(SP) ; AC13,0(SP) 410160' 202 13 0 17 000000 2772
PUSH SP,C.226 ; SP,[0,,P.AIG] 410161' 261 17 0 00 410335'
PUSHJ SP,OUTSTR ; SP,OUTSTR 410162' 260 17 0 00 000000*
MOVEM AC13,0(SP) ; AC13,0(SP) 410163' 202 13 0 17 000000 2773
PUSH SP,AC14 ; SP,AC14 410164' 261 17 0 00 000014
MOVE AC0,AC11 ; AC0,AC11 410165' 200 00 0 00 000011
HLRZ AC1,16(AC10) ; AC1,16(AC10) 410166' 554 01 0 10 000016
ADD AC0,AC1 ; AC0,AC1 410167' 270 00 0 00 000001
PUSH SP,AC0 ; SP,AC0 410170' 261 17 0 00 000000
PUSHJ SP,GETWRD ; SP,GETWRD 410171' 260 17 0 00 403201'
IMULI AC1,100 ; AC1,100 410172' 221 01 0 00 000100
MOVEM AC1,-1(SP) ; AC1,-1(SP) 410173' 202 01 0 17 777777
ADJSP SP,-1 ; SP,-1 410174' 105 17 0 00 777777
PUSH SP,C.227 ; SP,[10] 410175' 261 17 0 00 410336'
PUSH SP,C.228 ; SP,[7] 410176' 261 17 0 00 410337'
PUSHJ SP,OUTNUM ; SP,OUTNUM 410177' 260 17 0 00 000000*
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 152
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (23)
MOVEM AC13,0(SP) ; AC13,0(SP) 410200' 202 13 0 17 000000 2774
PUSH SP,C.229 ; SP,[0,,P.AIH] 410201' 261 17 0 00 410340'
PUSHJ SP,OUTSTR ; SP,OUTSTR 410202' 260 17 0 00 000000*
MOVEM AC13,0(SP) ; AC13,0(SP) 410203' 202 13 0 17 000000 2775
PUSH SP,AC14 ; SP,AC14 410204' 261 17 0 00 000014
MOVE AC0,AC11 ; AC0,AC11 410205' 200 00 0 00 000011
HRRZ AC1,17(AC10) ; AC1,17(AC10) 410206' 550 01 0 10 000017
ADD AC0,AC1 ; AC0,AC1 410207' 270 00 0 00 000001
PUSH SP,AC0 ; SP,AC0 410210' 261 17 0 00 000000
PUSHJ SP,GETWRD ; SP,GETWRD 410211' 260 17 0 00 403201'
IMULI AC1,100 ; AC1,100 410212' 221 01 0 00 000100
MOVEM AC1,-1(SP) ; AC1,-1(SP) 410213' 202 01 0 17 777777
ADJSP SP,-1 ; SP,-1 410214' 105 17 0 00 777777
PUSH SP,C.227 ; SP,[10] 410215' 261 17 0 00 410336'
PUSH SP,C.228 ; SP,[7] 410216' 261 17 0 00 410337'
PUSHJ SP,OUTNUM ; SP,OUTNUM 410217' 260 17 0 00 000000*
MOVEM AC14,0(SP) ; AC14,0(SP) 410220' 202 14 0 17 000000 2776
MOVE AC0,AC11 ; AC0,AC11 410221' 200 00 0 00 000011
HRRZ AC1,21(AC10) ; AC1,21(AC10) 410222' 550 01 0 10 000021
ADD AC0,AC1 ; AC0,AC1 410223' 270 00 0 00 000001
PUSH SP,AC0 ; SP,AC0 410224' 261 17 0 00 000000
PUSHJ SP,GETWRD ; SP,GETWRD 410225' 260 17 0 00 403201'
MOVE AC0,AC1 ; TCB_ADDR,AC1 410226' 200 00 0 00 000001
JUMPE AC0,L.189 ; TCB_ADDR,L.189 410227' 322 00 0 00 410321' 2778
MOVEM AC14,0(SP) ; AC14,0(SP) 410230' 202 14 0 17 000000 2782
HLRZ AC1,21(AC10) ; AC1,21(AC10) 410231' 554 01 0 10 000021
ADD AC11,AC1 ; AC11,AC1 410232' 270 11 0 00 000001
PUSH SP,AC11 ; SP,AC11 410233' 261 17 0 00 000011
PUSHJ SP,GETWRD ; SP,GETWRD 410234' 260 17 0 00 403201'
ADJSP SP,-1 ; SP,-1 410235' 105 17 0 00 777777
HRRZ AC2,37(AC10) ; AC2,37(AC10) 410236' 550 02 0 10 000037
TDNE AC1,AC2 ; AC1,AC2 410237' 612 01 0 00 000002
JRST L.187 ; L.187 410240' 254 00 0 00 410263'
SETZ AC12, ; R50VAL, 410241' 400 12 0 00 000000 2785
MOVEM AC14,0(SP) ; AC14,0(SP) 410242' 202 14 0 17 000000 2786
HRRZ AC1,41(AC10) ; AC1,41(AC10) 410243' 550 01 0 10 000041
ADD AC0,AC1 ; AC0,AC1 410244' 270 00 0 00 000001
PUSH SP,AC0 ; SP,AC0 410245' 261 17 0 00 000000
PUSHJ SP,GETWRD ; SP,GETWRD 410246' 260 17 0 00 403201'
DPB AC1,C.223 ; AC1,[POINT 16,R50VAL,19] <16,16> 410247' 137 01 0 00 410332'
MOVEM AC14,0(SP) ; AC14,0(SP) 410250' 202 14 0 17 000000 2787
ADDI AC0,2 ; AC0,2 410251' 271 00 0 00 000002
PUSH SP,AC0 ; SP,AC0 410252' 261 17 0 00 000000
PUSHJ SP,GETWRD ; SP,GETWRD 410253' 260 17 0 00 403201'
DPB AC1,C.224 ; AC1,[POINT 16,R50VAL,35] <0,16> 410254' 137 01 0 00 410333'
MOVEM AC12,0(SP) ; R50VAL,0(SP) 410255' 202 12 0 17 000000 2788
MOVEI AC0,-23(SP) ; AC0,ASCVAL 410256' 201 00 0 17 777755
PUSH SP,AC0 ; SP,AC0 410257' 261 17 0 00 000000
PUSHJ SP,R50TOA ; SP,R50TOA 410260' 260 17 0 00 000000*
ADJSP SP,-1 ; SP,-1 410261' 105 17 0 00 777777 2784
JRST L.188 ; L.188 410262' 254 00 0 00 410311' 2782
L.187: SETZM -21(SP) ; ASCVAL 410263' 402 00 0 17 777757 2792
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 153
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (23)
MOVEM AC14,0(SP) ; AC14,0(SP) 410264' 202 14 0 17 000000 2793
HLRZ AC1,73(AC10) ; AC1,73(AC10) 410265' 554 01 0 10 000073
ADD AC0,AC1 ; AC0,AC1 410266' 270 00 0 00 000001
PUSH SP,AC0 ; SP,AC0 410267' 261 17 0 00 000000
PUSHJ SP,GETBYT ; SP,GETBYT 410270' 260 17 0 00 403107'
MOVE AC2,AC1 ; AC2,AC1 410271' 200 02 0 00 000001
MOVEI AC1,-23(SP) ; AC1,ASCVAL-1 410272' 201 01 0 17 777755
HRLI AC1,10700 ; AC1,10700 410273' 505 01 0 00 010700
IDPB AC2,AC1 ; AC2,AC1 410274' 136 02 0 00 000001
MOVEM AC14,0(SP) ; AC14,0(SP) 410275' 202 14 0 17 000000 2794
ADDI AC0,1 ; AC0,1 410276' 271 00 0 00 000001
PUSH SP,AC0 ; SP,AC0 410277' 261 17 0 00 000000
PUSHJ SP,GETBYT ; SP,GETBYT 410300' 260 17 0 00 403107'
MOVE AC0,AC1 ; AC0,AC1 410301' 200 00 0 00 000001
MOVEI AC1,-23(SP) ; AC1,ASCVAL 410302' 201 01 0 17 777755
HRLI AC1,350700 ; AC1,350700 410303' 505 01 0 00 350700
IDPB AC0,AC1 ; AC0,AC1 410304' 136 00 0 00 000001
MOVEI AC2,72 ; AC2,72 410305' 201 02 0 00 000072 2795
MOVEI AC1,-23(SP) ; AC1,ASCVAL 410306' 201 01 0 17 777755
HRLI AC1,260700 ; AC1,260700 410307' 505 01 0 00 260700
IDPB AC2,AC1 ; AC2,AC1 410310' 136 02 0 00 000001
L.188: MOVEM AC13,0(SP) ; AC13,0(SP) 410311' 202 13 0 17 000000 2798
PUSH SP,C.230 ; SP,[0,,P.AII] 410312' 261 17 0 00 410341'
PUSHJ SP,OUTSTR ; SP,OUTSTR 410313' 260 17 0 00 000000*
MOVEM AC13,0(SP) ; AC13,0(SP) 410314' 202 13 0 17 000000 2799
MOVEI AC0,-24(SP) ; AC0,ASCVAL 410315' 201 00 0 17 777754
PUSH SP,AC0 ; SP,AC0 410316' 261 17 0 00 000000
PUSHJ SP,OUTSTR ; SP,OUTSTR 410317' 260 17 0 00 000000*
ADJSP SP,-4 ; SP,-4 410320' 105 17 0 00 777774 2780
L.189: ADJSP SP,-20 ; SP,-20 410321' 105 17 0 00 777760 2747
ADJSP SP,-2 ; SP,-2 410322' 105 17 0 00 777776 2714
POP SP,AC14 ; SP,AC14 410323' 262 17 0 00 000014
POP SP,AC13 ; SP,AC13 410324' 262 17 0 00 000013
POP SP,AC12 ; SP,AC12 410325' 262 17 0 00 000012
POP SP,AC11 ; SP,AC11 410326' 262 17 0 00 000011
POP SP,AC10 ; SP,AC10 410327' 262 17 0 00 000010
POP SP,AC0 ; SP,AC0 410330' 262 17 0 00 000000
POPJ SP, ; SP, 410331' 263 17 0 00 000000
C.223: POINT 16,AC12,19 ; 16,R50VAL,19 410332' 20 20 0 00 000012
C.224: POINT 16,AC12,35 ; 16,R50VAL,35 410333' 00 20 0 00 000012
C.225: XWD 0,P.AIF ; 0,P.AIF 410334' 000000 410106'
C.226: XWD 0,P.AIG ; 0,P.AIG 410335' 000000 410107'
C.227: EXP 10 ; 10 410336' 000000 000010
C.228: EXP 7 ; 7 410337' 000000 000007
C.229: XWD 0,P.AIH ; 0,P.AIH 410340' 000000 410111'
C.230: XWD 0,P.AII ; 0,P.AII 410341' 000000 410112'
; Routine Size: 151 words
; 2803 END
; 2804
RSXFNC 25-Jan-1983 10:21:24 TOPS-20 Bliss-36 2A(142) Page 154
X3.3 1-Jan-1983 15:26:44 NETPKG:<VNP36>RSXFNC.BLI.7 (23)
; 2805 ELUDOM
END
; Low segment length: 0 words
; High segment length: 4322 words
; LIBRARY STATISTICS
;
; -------- Symbols -------- Blocks
; File Total Loaded Percent Read
;
; NETPKG:<VNP36>VNPLIB.L36.6 498 241 48 0
; 2806 ! Local Modes:
; 2807 ! Comment Column:36
; 2808 ! Comment Start:!
; 2809 ! Mode:Fundamental
; 2810 ! Auto Save Mode:2
; 2811 ! Word Abbrev Mode:1
; Size: 3844 code + 478 data words
; Run Time: 01:07.5
; Elapsed Time: 03:59.4
; Memory Used: 146 pages
; Compilation Complete
ABTIM 736
ALOCB 68 1252* 1659 1837 1842 2147 2223 2265
AMOUNT 1252 1313 1318# 1370 1382 1441 1445# 1479 1485 1492 1499 1522
ASCVAL 1811 1846 1919 2758 2768 2771 2788 2792# 2793 2794 2795 2799
ATOR50 117* 1666 1846
BACKSL 2472 2483# 2490# 2494 2499
BASE_ADDRESS 907 928# 930 941 942 1005 1026# 1028 1039 1040 1046 1109
1132# 1134 1143 1144 1151 1201 1224# 1226 1234 1235 1241 1247
BUSY_FLAGS 1551 1712
CEX_FILE 614 656 667 669 673 675 679 681
CH$WCHAR 2793 2794 2795
CHAR 181 233# 235 247 315 347# 354 2631
CLKHD 734
CLK_EFN 852
CLK_LGTH 855
CLK_LNK 850
CLK_MRKT 856
CLK_RQT 851
CLK_SCHD 857
CLK_SSHT 858
CLK_SYST 859
CLK_SYTK 860
CLK_TCB 853
CLK_TIM 854
CLOSE 120 264 361
CONVERTED_NAME 2471 2479 2487 2499 2500
COR 2637 2639
CORE_IMAGE 182 192# 209# 240 248# 261 313 328# 346 406 415# 420
902 922# 941 1000 1020# 1039 1105 1126# 1143 1151# 1197 1218#
1234 1247#
CORE_LEN 137 192 208 251 262 316 329# 357 408 414# 420 904
923# 930 1002 1021# 1028 1107 1127# 1134 1199 1219# 1226
CORE_WORD 183 240# 241# 248 317 346# 347 905 941# 942 1003 1039#
1040 1046 1108 1143# 1144# 1151 1200 1234# 1235# 1241# 1247
COUNTER 208 209 224 225 337 338 1668 1669 1910 1911 1918 1919
1935 1936 1977 1978 2008 2009 2152 2153 2187 2189 2328 2329
CRAVL 727 1319 1446
C_POINTER 2485 2487 2490
DCB_ADDR 2111 2167# 2169 2171 2175 2176 2177 2181 2182 2183 2185 2192
2195 2197 2205 2316# 2337 2401 2417 2421 2424
DEACB 69 1382*
DEL_GLOBAL 61 496 551 565*
DEL_MODU 59 427 439*
DEL_PSECT 60 485 509*
DEL_PTRS 135 431 486 497 555
DEVHD 735 1943 2387 2421
DUMMY 1252
DYNAMIC_PAR 1607 1645# 1648# 1652# 1705 1730
D_DSP 837 2183
D_LNK 832 1956 2316 2407 2417 2424
D_MSK 838
D_NAM 834 1948 2400 2401 2793 2794
D_PCB 839 2185
D_UCBL 836 2177
D_UCB 833 1951 2181 2182
D_UNIT 835 2175 2176
ERR 2428 2500
ERRMSG 128 194 200 664 669 675 681 933 1031 1136 1228 1370
1479 1485 1492 1499 1522# 2306
ERROR 127 1896 1964 2036 2496 2710
EXSIZ 728 1488
FCLEAN 75 2506*
FCOR 58 366*
FE_CAL 759
FE_CEX 763
FE_DRV 757
FE_EXP 761
FE_EXT 754
FE_EXV 756
FE_LSI 762
FE_MUP 755
FE_NLG 764 765
FE_PKT 760
FE_PLA 758 1717
FILE_BLOCK 178 310 403 655 656 657 723 724 899 997 1102 1194
1296 1421 1598 1794 1795 2096 2097 2376 2468 2544 2618 2753
FILE_CHAN 137 215 225 233 264 273 325 338 354 361
FILE_CORE 261 328 415 922 1020 1126 1218 2561
FILE_CORE_LEN 262 329 414 923 1021 1127 1219 2561 2562
FILE_DOWN 427 431
FILE_HWM 1631 1901 1902 2159 2556 2557
FILE_LABEL 263 330 413 924 1022 1128 1220 1829 2136 2555
FILE_NAME 215 325 665 669 675 681 933 1031 1137 1228 1370 1479
1485 1492 1499 1522 1823 2130 2308 2499 2575 2643
FILE_PTR 137 178 215 261# 262# 263# 273 310 325 328 329 330
366 403 413 414 415 427 431 435 863 899 922 923
924 933 961 997 1020 1021 1022 1031 1064 1102 1126 1127
1128 1137 1156 1194 1218 1219 1220 1228 1252 1296 1320 1321
1333 1340 1351 1355 1370 1382 1421 1447 1460 1473 1479 1485
1488 1492 1499 1507 1509 1510 1515 1517 1522 1529 1530 1532
1536 2428 2468 2499 2500
FIRST_DCB_ADDR 2109 2147# 2153 2167 2323 2334
FIRST_UCB_ADDR 2114 2181# 2182 2189
FLAGS 1604 1637# 1717
FMASK 730 1637
FND_CHAIN 134 427 485 496 551
FREBLK 133 435 503 559 607
FRESTG 132 420 422 2561
GEN_PCB 2053 2160
GETBLK 131
GETBYT 64 863* 1978 2009 2020 2153 2175 2208 2244 2286 2329 2793
2794
GETSTG 130 192 198
GETSYM 62 614*
GETSYM_1 63 660 686*
GETWRD 65 961* 1320# 1321 1333 1340 1355 1447# 1460 1488 1507# 1510#
1517 1529 1530# 1637 1650 1681 1738 1841 1877 1884 1943 1948
1951 1956 1984 1986 1987 1997 2014 2028 2177 2181 2191 2194
2197 2204 2250 2292 2316 2387 2400 2407 2633 2669 2680 2684
2698 2703 2766 2767 2773 2775 2776 2782 2786 2787
GLOBAL_PTR 565 602 607
GLOBL_BLOCK 602
HDR_ADDR 1802 1842# 1978 1983 1984 1985 1986 1987 1988 1993
HDR_SIZE 1803 1841# 1842 1977
HIGH_EXEC_ADDR 1603
H_GARD 796 1985 1986
H_HDLN 794 1841
H_LUN 798 1988
H_NLUN 797 1987
H_WND 795 1983 1984
IMAGE_KW 2628 2635# 2649
INPINT 2119 2213# 2217# 2220 2254 2304
INPUT 121 225 233
INSTAL 71 1750*
KERNEL_FILE 614 655 660 662 665 667 669 673 675 679 681 686
723 727 728 729 730 731 732 733 734 735 736 737
1551 1598 1631# 1637 1650 1659 1663 1664 1665 1669 1671 1681
1684 1689 1691 1694 1700 1703 1707 1710 1712 1713 1714 1715
1720 1721 1722 1738 1741 1750 1794 1837 1842 1877 1884 1901
1902 1911 1916 1919 1921 1922 1923 1924 1925 1929 1936 1943
1948 1951 1956 1969 1970 1971 1978 1983 1984 1985 1986 1987
1988 1992 1993 1997 2009 2014 2020 2028 2045 2047 2050 2053
2096 2147 2153 2159 2160 2175 2177 2181 2182 2183 2185 2190
2191 2193 2194 2197 2198 2203 2204 2206 2208 2223 2227 2228
2240 2241 2243 2244 2246 2247 2249 2250 2251 2253 2254 2256
2257 2259 2265 2269 2270 2282 2283 2285 2286 2288 2289 2291
2292 2293 2295 2296 2298 2299 2301 2316 2323 2329 2334 2337
2376 2387 2400 2407 2417 2421 2423 2506 2544 2555 2556 2557
2561 2562# 2567 2575 2578 2618 2633 2643 2669 2680 2683 2684
2695 2698 2703 2714 2753 2766 2767 2773 2775 2776 2782 2786
2787 2793 2794
KERNEL_LABEL 2548 2555# 2568# 2569# 2570# 2571#
KERNEL_SIZE 2549 2556# 2627
L$BFLG 1833 2140
L$BHGV 1831 2138
L$BLDZ 2568 2569
L$BMXZ 2570 2571
L$BPAR 1856 1857
L$BPRI 1847
L$BSA 928 1026 1132 1224 1830 2137
LABEL_IMAGE 184 198# 225# 263 314 330# 338 407 413# 422 903 924#
928 1001 1022# 1026 1106 1128# 1132 1198 1220# 1224
LAST_DCB_ADDR 2110 2171#
LAST_SCB_ADDR 2112 2196# 2200
LEN 2428 2499
LEN_NODE_NAME 2575
LNKDCB 73 2334 2337*
LOADD 72 2053*
LOC 2122 2223# 2227 2240 2241 2242# 2243 2245# 2246 2247 2248# 2249
2250 2251 2252# 2253 2254 2255# 2256 2257 2258# 2259 2265# 2269
2282 2283 2284# 2285 2287# 2288 2289 2290# 2291 2292 2293 2294#
2295 2296 2297# 2298 2299 2300# 2301
LOCN 185 219# 240 241 248 249# 251 318 332# 346 347 355#
357 863 916 930 933 941 942 961 1014 1028 1031 1039
1040 1046 1064 1118 1134 1137 1143 1144 1151 1156 1210 1226
1228 1234 1235 1241 1247 1382 1439 1444# 1479 1485 1492 1499
1522
MAIN_PCB_ADDR 2622 2669# 2674 2680 2683 2684 2703#
MAIN_SCAN_DONE 2623 2670# 2672 2676#
MINIMUM_KW 2629 2637# 2653 2708
MIN_PCB_LEN 1552 1659
MODU_BLOCK 476
MODU_GLOBALS 493 496 497
MODU_PSECTS 482 485 486
MODU_PTR 439 476 482 485 486 493 496 497 503
M_PCB 70 1551* 1901 2160
NEXT_DCB 2381 2387# 2394 2400 2406 2407# 2417
NLUN 1814 1987# 1988
NODNAM 2575
NODNM 2645
NUNITS 2123 2175# 2187
OPEN 119 215 325
OUTINT 2120 2211# 2216# 2262 2296 2304
OUTNUM 126 916 955 1014 1058 1118 1120 1210 1212 1313 1376 1439
1441# 1617 1619 2003 2005 2645 2649 2653 2661 2773 2775
OUTPUT 122 338 354 913 914 1011 1012 1115 1116 1207 1208 1311
1437 2652 2660
OUTSTR 125 915 954 1013 1057 1117 1119 1209 1211 1312 1314 1375
1438 1440 1614 1615 1616 1618 1822 1823 2002 2004 2129 2130
2642 2643 2644 2646 2648 2650 2654 2662 2667 2770 2771 2772
2774 2798 2799
PARHD 732 1733 1872 2669
PARTITION_BASE 1813 1997# 2003 2005 2009
PAR_BASE 1551 1617 1693 1699 2102 2159# 2160 2161 2206 2329
PAR_MAIN 1551 1643 1650 1673 1676 1687 1691
PAR_NAME 1551 1615 1666
PAR_TOP 1551 1619 1631 1696 1699
PCB_ADDR 1602 1659# 1663 1664 1665 1669 1671 1684 1689 1691 1694 1700
1703 1707 1708 1710 1712 1713 1714 1715 1720 1721 1722 1741
1747 1800 1866# 1901# 1970 1988 1992 1993 1997 2101 2160# 2185
2250 2292 2323 2626 2714 2766 2767 2773 2775 2776 2782
PCB_ARG 1750 1864 1866
PCB_BASE 2108
PCB_NAME 1801 1858 1901
PCRLF 124 912 1010 1114 1206 1310 1436 1613 1821 2128 2641 2647
2651 2655 2663 2666 2668 2706 2769
POOL 729 1483
PREV_DCB 2380 2388# 2406# 2407 2419 2424
PRIORITY 1815 1847# 1852# 1916 1929 2022
PSECT_BLOCK 546
PSECT_GLOBALS 551 555
PSECT_PTR 509 546 551 555 559
PS_APR 779
PS_CHK 769
PS_CKP 767
PS_CKR 768
PS_COM 774
PS_DEL 778
PS_DRV 777 2161 2782
PS_FXD 770
PS_LIO 772
PS_NSF 773
PS_OUT 766
PS_PER 771
PS_PIC 775
PS_SYS 776 1650 1886 1902 2161
PUTBYT 66 1064* 1664 1665 1669 1911 1916 1919 1929 1936 1978 2009
2153 2329
PUTWRD 67 1156* 1351# 1355 1473 1509 1515# 1532# 1536 1663 1671 1684
1689 1691 1694 1700 1703 1707 1710 1712 1713 1714 1715 1720
1721 1722 1741 1921 1922 1923 1924 1925 1969 1970 1971 1983
1985 1988 1992 1993 2045 2047 2050 2182 2183 2185 2190 2193
2198 2203 2206 2227 2228 2240 2241 2243 2246 2247 2249 2250
2251 2253 2254 2256 2257 2259 2269 2270 2282 2283 2285 2288
2289 2291 2292 2293 2295 2296 2298 2299 2301 2323 2417 2421
2423 2567
P_ATT 753 1721 1722
P_BUSY 748 1712
P_HDR 751 1715 1993
P_IOC 741 1665
P_LGTH 662 738 1659
P_LNK 739 1663 1738 1741 1890 2703
P_MAIN 744 1689 1691 2680
P_NAM 742 1669 2766 2767
P_PRI 740 1664
P_PRO 752 1720
P_REL 745 1694 1997 2250 2292 2773
P_SIZE 746 1700 2775
P_STAT 750 1650 1714 1884 2782
P_SUB 743 1671 1681 1684 2684 2698
P_TCB 749 1713 1992 2323 2776
P_WAIT 747 1703 1707 1708 1710
R50TOA 118 1858 2768 2788
R50VAL 1608 1666 1669 2757 2765# 2766# 2767# 2768 2785# 2786# 2787# 2788
RCOR 56 137*
READ_DONE 186 218# 231 237# 251#
RESULT 906 934# 942# 955 958 1004 1032# 1040# 1058 1061 1305 1317#
1368# 1370 1376 1379 2473 2475# 2500# 2503
ROUNDED_SIZE 2550 2557# 2561 2562 2567 2568 2569 2570 2571
ROUTINE_NAME 175# 194 200 307# 400# 473# 543# 599# 652# 665 669 675
681 720# 896# 933 994# 1031 1099# 1137 1191# 1228 1293# 1370
1418# 1479 1485 1492 1499 1522 1595# 1791# 2093# 2306 2373# 2465#
2541# 2615# 2750#
RSTB 123
RSXFNC 5#
RSXMS_FILE 614 657 660 665 686 724 738 739 740 741 742 743
744 745 746 747 748 749 750 751 752 753 754 755
756 757 758 759 760 761 762 763 764 765 766 767
768 769 770 771 772 773 774 775 776 777 778 779
780 781 782 783 784 785 786 787 788 789 790 791
792 793 794 795 796 797 798 799 800 801 802 803
804 805 806 807 808 809 810 811 812 813 814 815
816 817 818 819 820 821 822 823 824 825 826 827
828 829 830 831 832 833 834 835 836 837 838 839
840 841 842 843 844 845 846 847 848 849 850 851
852 853 854 855 856 857 858 859 860
SAVE 1429 1474# 1475# 1477 1490 1496 1503 1514# 1518# 1520 1526
SCAN_DONE 1303 1328# 1330 1337# 1357# 1366# 1368 1430 1455# 1457 1464# 1469#
SCB_ADDR 2113 2166# 2196 2197# 2198 2200 2203 2205 2206 2208 2244 2286
SEARCH_DONE 1816 1873# 1875 1881# 1888# 1896 1942# 1945 1952# 1958# 1964 2016#
2018 2024# 2030# 2036 2382 2389# 2391 2396# 2403#
STAT_FLAGS 1551 1714
SUB_PCB_ADDR 2624 2684# 2690 2695 2698#
SUB_SCAN_DONE 2625 2685# 2687 2692#
SYMBOL_NAME 2428 2479
SYM_VAL 129 662 667 673 679 727 728 729 730 731 732 733
734 735 736 737 738 739 740 741 742 743 744 745
746 747 748 749 750 751 752 753 754 755 756 757
758 759 760 761 762 763 764 765 766 767 768 769
770 771 772 773 774 775 776 777 778 779 780 781
782 783 784 785 786 787 788 789 790 791 792 793
794 795 796 797 798 799 800 801 802 803 804 805
806 807 808 809 810 811 812 813 814 815 816 817
818 819 820 821 822 823 824 825 826 827 828 829
830 831 832 833 834 835 836 837 838 839 840 841
842 843 844 845 846 847 848 849 850 851 852 853
854 855 856 857 858 859 860 2241 2283 2500
SYSIZ 731 2567 2633
SYSTEM_KW 2630 2633# 2635 2637 2639# 2657 2661
S_FRK 842 2206
S_LHD 840 2203 2205
S_VCT 841 2208 2244 2286
T2_ABO 816
T2_AST 807
T2_BFX 811
T2_CAF 814
T2_CHK 809 1924
T2_CKD 810
T2_DST 808
T2_FXD 812 1924
T2_HLT 815
T2_SPN 818
T2_STP 817
T2_TIO 813
T2_WFR 819
T3_ACP 820 1927
T3_CAL 829
T3_CLI 826
T3_MCR 824
T3_NET 831
T3_NSD 828 1928
T3_PMD 821 1925
T3_PRV 823 1926
T3_REM 822
T3_ROV 830
T3_RST 827
T3_SLV 825
TASK_BASE 1808 1830# 1832 1841 1978 2009 2104 2137# 2139 2329
TASK_FILE 1750 1795 1823 1829 1841 1978 2009 2053 2097 2130 2136 2145
2146 2153 2184 2213 2216 2217 2308 2329
TASK_FLAGS 1812 1833# 1926 1927 1928 2107 2140#
TASK_LABEL 1804 1829# 1830 1831 1833 1847 1856 1857 2103 2136# 2137 2138
2140
TASK_NAME 1750 1846 2053
TASK_SIZE 1810 1832# 1902 1971 2005 2008 2106 2139# 2161 2328
TASK_TOP 1809 1831# 1832 2105 2138# 2139
TCB_ADDR 1799 1837# 1911 1916 1919 1921 1922 1923 1924 1925 1929 1936
1969 1970 1971 1992 2045 2048 2050 2759 2776# 2778 2786 2787
2793 2794
TELLK 76 2578*
TELLP 77# 2683 2695 2714*
TELL_CHAN 2578 2641 2642 2643 2644 2645 2646 2647 2648 2649 2650 2651
2652 2653 2654 2655 2660 2661 2662 2663 2666 2667 2668 2683
2695 2706 2714 2769 2770 2771 2772 2773 2774 2775 2798 2799
TEMP 1304 1340# 1342 1347 1351 1352 1431 1447# 1448# 1449 1488# 1490
1507# 1509 1510# 1511 1517# 1518 1530# 1532
TEMP1 1605 1676# 1678 1680 1681# 1693# 1694 1699# 1700 1733# 1735 1737
1738# 1805 1856# 1858 1872# 1877 1890# 1943# 1948 1951# 1956# 1958
1969 2014# 2020 2027 2028# 2030 2050
TEMP2 1606 1680# 1681 1684 1737# 1738 1741 1806 1877# 1879 1884 1890
1901 2020# 2022
TEMP3 1807 1884# 1886 2015# 2027# 2043 2048
TKPS 737
TS$ACP 1927 1928
TS$NSD 1928
TS$PRV 1926
TSKHD 733 2014 2045
TS_CKP 805
TS_CKR 806
TS_EXE 799 1923
TS_MSG 801
TS_NRP 802
TS_OUT 804
TS_RDN 800
TS_RUN 803
T_ASTL 783 1922
T_DPRI 788 1929
T_LBN 789 1936
T_LDV 790 1969
T_LGTH 793 1837 1910
T_MXSZ 792 1971
T_NAM 781 1919 2786 2787
T_PCB 791 1970
T_PRI 780 1916 2020
T_RCVL 782 1921
T_ST2 786 1924
T_ST3 787 1925
T_STAT 785 1923
T_TCBL 784 2028 2048 2050
UCB_ADDR 2115 2189# 2190 2192 2193 2195 2197 2198
UCB_LENGTH 2116 2177# 2189
UNUSED 439 509 565
U_CW1 845
U_CW2 846
U_CW3 847
U_CW4 848
U_DCB 843 2190 2192
U_RED 844 2193 2195
U_SCB 849 2197 2198
VAL 1064 1120 1150 1156 1212 1240 1246
VALUES 614 658 660 662 686 725 727# 728# 729# 730# 731# 732#
733# 734# 735# 736# 737# 738# 739# 740# 741# 742# 743# 744#
745# 746# 747# 748# 749# 750# 751# 752# 753# 754# 755# 756#
757# 758# 759# 760# 761# 762# 763# 764# 765# 766# 767# 768#
769# 770# 771# 772# 773# 774# 775# 776# 777# 778# 779# 780#
781# 782# 783# 784# 785# 786# 787# 788# 789# 790# 791# 792#
793# 794# 795# 796# 797# 798# 799# 800# 801# 802# 803# 804#
805# 806# 807# 808# 809# 810# 811# 812# 813# 814# 815# 816#
817# 818# 819# 820# 821# 822# 823# 824# 825# 826# 827# 828#
829# 830# 831# 832# 833# 834# 835# 836# 837# 838# 839# 840#
841# 842# 843# 844# 845# 846# 847# 848# 849# 850# 851# 852#
853# 854# 855# 856# 857# 858# 859# 860# 1252 1297 1319# 1382
1422 1446 1483 1488 1552 1599 1637 1650 1659 1663 1664 1665
1669 1671 1681 1684 1689 1691 1694 1700 1703 1707 1708 1710
1712 1713 1714 1715 1717 1720 1721 1722 1733 1738 1741 1750
1796 1837 1841 1842 1872 1884 1886 1890 1902 1910 1916 1919
1921 1922 1923 1924 1925 1926 1927 1928 1929 1936 1943 1948
1951 1956 1969 1970 1971 1983 1984 1985 1986 1987 1988 1992
1993 1997 2014 2020 2028 2045 2048 2050 2053 2098 2147 2161
2162 2175 2176 2177 2181 2182 2183 2185 2190 2192 2193 2195
2197 2198 2203 2205 2206 2208 2223 2244 2250 2265 2286 2292
2316 2323 2334 2337 2377 2387 2400 2401 2407 2417 2421 2424
2506 2545 2567 2575 2578 2619 2633 2637 2639 2645 2669 2680
2683 2684 2695 2698 2703 2714 2754 2766 2767 2773 2775 2776
2782 2786 2787 2793 2794
VNPVAL_BLOCK 658 725 1297 1422 1599 1796 2098 2377 2545 2619 2754
VRBL_SYM 74 2145 2146 2184 2213 2216 2217 2428*
WCOR 57 273*
WRITE_DONE 319 331# 344 357#
XXDAT 2118 2146# 2147 2152 2153 2161 2181 2192 2195 2197 2205
XXEND 2117 2145# 2147 2152 2161