@HDG **** PS/2200 TEST **** @UCOB,L TEST.PROG UCOB- 12R2(141201) LSS- 14R4(141201) 2016 Oct 17 0353:28 OPTIONS: ALLOC, APPLICATION/UDSSRC, NO-AUXPROLOG, CACHE/D0, NO-CALIGN, NO-CLEAR, CODE, NO-CODE-LVE, NO-COMPAT, NO-COMP-BIN, DEBUG/WALKBACK, DOUBLEQUOTE, SINGLESPACE, ERRCHECK, NO-ERREXIT, EXTENDED, NO-I18N-IO, NO-IR-DIFF, NO-LEVEL, LINKINFO, LISTCOPY, LITERAL, MAIN-PROGRAM, MAXERRORS/100000, NO-MONITOR, MULTI-PF, OBJECT, OBJ-PKT, OPTIM, OPTIONS, NO-PARMCHECK, NO-REL18, REMARK, NO-REORDER, NO-RUNCHECK, SEARCH-PF-SI, NO-SEGCODE, NO-SHIFT, SIGNON, SOURCE, NO-TRACECOPY, NO-TRACEMSG, NO-TRANSFORM, TRIM-CRLF, NO-UREP-XREF, WARNING, WIDE, XREF, NO-MIN-ALS 1 1 IDENTIFICATION DIVISION. 2 PROGRAM-ID. PS2200-TEST. 3 ENVIRONMENT DIVISION. 4 INPUT-OUTPUT SECTION. 5 FILE-CONTROL. 6 SELECT IN-F ASSIGN TO DISC "TEST.DATA". 7 SELECT OUT-F ASSIGN TO PRINTER. 8 DATA DIVISION. 9 FILE SECTION. 10 FD IN-F. 11 01 IN-REC PIC X(80). 12 FD OUT-F. 13 01 OUT-REC. 14 02 OUT-NUM PIC ZZ9. 15 02 OUT-FIL PIC X(2). 16 02 OUT-DATA PIC X(80). 17 WORKING-STORAGE SECTION. 18 01 REC-CNT PIC 9(3) VALUE ZERO. 19 01 IN-EOF-FLAG PIC X VALUE SPACE. 20 88 IN-EOF VALUE "E". 21 1 PROCEDURE DIVISION. 22 1 MAIN-PROC. 23 1 OPEN INPUT IN-F OUTPUT OUT-F. 24 1 PERFORM UNTIL IN-EOF 25 1 1 READ IN-F AT END SET IN-EOF TO TRUE 26 1 1 NOT AT END PERFORM PRINT-PROC 27 END-READ 28 END-PERFORM. 29 1 CLOSE IN-F OUT-F. 30 1 STOP RUN. 31 1 PRINT-PROC. 32 1 ADD 1 TO REC-CNT. 33 1 MOVE REC-CNT TO OUT-NUM. 34 1 MOVE SPACE TO OUT-FIL. 35 1 MOVE IN-REC TO OUT-DATA. 36 1 WRITE OUT-REC. A L L O C A T I O N L I S T I N G NAME DECLARED ST/LC OFFSET SB SIZE MACH DM SPAN LV ATTRIBUTES TYPE SIZE REC-CNT 18 0 00000003 0 3BYT CNUM_U SC DATA NAME IN WORKING-STORAGE SECTION IN-EOF-FLAG 19 0 00000004 0 1BYT CHR_STR SC DATA NAME IN WORKING-STORAGE SECTION IN-F 10 0 00000005 0 27WRD FILE 2 FILE NAME OUT-F 12 0 00000061 0 27WRD FILE 2 FILE NAME IN-REC 11 BASED 00000000 0 20WRD CHR_STR SC DATA NAME IN FILE SECTION OUT-REC 13 BASED 00000000 0 85BYT CHR_STR 1 DATA NAME IN FILE SECTION OUT-NUM 14 BASED 00000000 0 3BYT EDIT_NM 2 DATA NAME IN FILE SECTION OUT-FIL 15 BASED 00000000 27 2BYT CHR_STR 2 DATA NAME IN FILE SECTION OUT-DATA 16 BASED 00000001 9 20WRD CHR_STR 2 DATA NAME IN FILE SECTION PS2200-TEST 2 1 00001035 0 ENTRY SC PROGRAM NAME MAIN-PROC 22 1 00001060 0 LABEL SC PROCEDURE NAME PRINT-PROC 31 1 00001161 0 LABEL SC PROCEDURE NAME COMPILER GENERATED AREA 00000032 0 2WRD AUTOMATIC STORAGE IN PS2200-TEST C R O S S R E F E R E N C E L I S T I N G NAME ST/LC OFFSET SB SIZE ATTRIBUTES IN-EOF NOT ALLOCATED DATA NAME IN WORKING-STORAGE SECTION DCL 20 SET 25 USED 24 IN-EOF-FLAG 0 00000004 0 1BYT DATA NAME IN WORKING-STORAGE SECTION DCL 19 IN-F 0 00000005 0 27WRD FILE NAME DCL 10 USED 6 23 25 29 IN-REC BASED 00000000 0 20WRD DATA NAME IN FILE SECTION DCL 11 USED 35 MAIN-PROC 1 00001060 0 PROCEDURE NAME DCL 22 OUT-DATA BASED 00000001 9 20WRD DATA NAME IN FILE SECTION DCL 16 SET 35 OUT-F 0 00000061 0 27WRD FILE NAME DCL 12 USED 7 23 29 OUT-FIL BASED 00000000 27 2BYT DATA NAME IN FILE SECTION DCL 15 SET 34 OUT-NUM BASED 00000000 0 3BYT DATA NAME IN FILE SECTION DCL 14 SET 33 OUT-REC BASED 00000000 0 85BYT DATA NAME IN FILE SECTION DCL 13 USED 36 PRINT-PROC 1 00001161 0 PROCEDURE NAME DCL 31 USED 26 PS2200-TEST 1 00001035 0 PROGRAM NAME DCL 2 REC-CNT 0 00000003 0 3BYT DATA NAME IN WORKING-STORAGE SECTION DCL 18 SET 32 USED 33 O B J E C T C O D E L I S T I N G Relative Instruction Subfields D FLD Label Symbolic Instruction Skeleton Active Address F J A X HI B D LC F,J A,U,X,B Number Procedure 000000 + 0000000000000 R 0 $(0) VA Pointer 001000 + 0000000001000 R 1 $(1) Base Address 000005 + 0011000000033 $(0) Input/Output Packet 000006 + 0020001000000 Input/Output Packet 000007 + 0000000000000 Input/Output Packet 000010 + 0000000000000 Input/Output Packet 000011 + 0000000000041 R 0 Input/Output Packet 000012 + 0000000000000 Input/Output Packet 000013 + 0000000000000 Input/Output Packet 000014 + 0000000000000 Input/Output Packet 000015 + 0000000000000 Input/Output Packet 000016 + 0000000000000 Input/Output Packet 000017 + 0000100000411 Input/Output Packet 000020 + 0000000000375 R 0 Input/Output Packet 000021 + 0124105123124 Input/Output Packet 000022 + 0056104101124 Input/Output Packet 000023 + 0101040040040 Input/Output Packet 000024 + 0000000000000 Input/Output Packet 000025 + 0000000000000 Input/Output Packet 000026 + 0000000000000 Input/Output Packet 000027 + 0000000000000 Input/Output Packet 000030 + 0000000000000 Input/Output Packet 000031 + 0000000000000 Input/Output Packet 000032 + 0000000000000 Input/Output Packet 000033 + 0000000000000 Input/Output Packet 000034 + 0000000000000 Input/Output Packet 000035 + 0000000000000 Input/Output Packet 000036 + 0000000000000 Input/Output Packet 000037 + 0000000000000 Input/Output Packet 000041 + 0014001000020 $(0) Input/Output Packet 000042 + 0010100000000 Input/Output Packet 000043 + 0000101010000 Input/Output Packet 000044 + 0000000000000 Input/Output Packet 000045 + 0000000001320 Input/Output Packet 000046 + 0000000000000 Input/Output Packet 000047 + 0000000000000 Input/Output Packet 000050 + 0000000000000 Input/Output Packet 000051 + 0000000000000 Input/Output Packet 000052 + 0000000040000 Input/Output Packet 000053 + 0000000000000 Input/Output Packet 000054 + 0000000000000 Input/Output Packet 000055 + 0000000000000 Input/Output Packet 000056 + 0000000000000 Input/Output Packet 000057 + 0000000000000 Input/Output Packet 000060 + 0000000000000 Input/Output Packet 000061 + 0011000000033 Input/Output Packet 000062 + 0020001000000 Input/Output Packet 000063 + 0000000000000 Input/Output Packet 000064 + 0000000000000 Input/Output Packet 000065 + 0000000000115 R 0 Input/Output Packet 000066 + 0000000000000 Input/Output Packet 000067 + 0000000000000 Input/Output Packet 000070 + 0000000000000 Input/Output Packet 000071 + 0000000000000 Input/Output Packet 000072 + 0000000000000 Input/Output Packet 000073 + 0000100000500 Input/Output Packet 000074 + 0000000000373 R 0 Input/Output Packet 000075 + 0040040040040 Input/Output Packet Relative Instruction Subfields D FLD Label Symbolic Instruction Skeleton Active Address F J A X HI B D LC F,J A,U,X,B Number Procedure 000076 + 0040040040040 Input/Output Packet 000077 + 0040040040040 Input/Output Packet 000100 + 0000000000000 Input/Output Packet 000101 + 0000000000000 Input/Output Packet 000102 + 0000000000000 Input/Output Packet 000103 + 0000000000000 Input/Output Packet 000104 + 0000000000000 Input/Output Packet 000105 + 0000000000000 Input/Output Packet 000106 + 0000000000000 Input/Output Packet 000107 + 0000000000000 Input/Output Packet 000110 + 0000000000000 Input/Output Packet 000111 + 0000000000000 Input/Output Packet 000112 + 0000000000000 Input/Output Packet 000113 + 0000000000000 Input/Output Packet 000115 + 0014001000020 $(0) Input/Output Packet 000116 + 0010400000000 Input/Output Packet 000117 + 0000101000000 Input/Output Packet 000120 + 0000000000000 Input/Output Packet 000121 + 0000000001375 Input/Output Packet 000122 + 0000000000000 Input/Output Packet 000123 + 0000000000000 Input/Output Packet 000124 + 0000000000000 Input/Output Packet 000125 + 0000000000000 Input/Output Packet 000126 + 0000000040000 Input/Output Packet 000127 + 0000000000000 Input/Output Packet 000130 + 0000000000000 Input/Output Packet 000131 + 0000000000000 Input/Output Packet 000132 + 0000000000000 Input/Output Packet 000133 + 0000000000000 Input/Output Packet 000134 + 0000000000000 Input/Output Packet 000003 + 0060060060000 $(0) Static Initialization 000004 + 0040000000000 Static Initialization 000137 + 0040000000300 $(0) Parameter Packet 000140 + 0000000000005 R 0 Parameter Packet 000141 + 0000000001714 Parameter Packet 000142 + 0040000000300 Parameter Packet 000143 + 0000000000061 R 0 Parameter Packet 000144 + 0000000001714 Parameter Packet 000145 + 0040000000000 Parameter Packet 000146 + 0400000000135 R 0 Parameter Packet 000147 + 0000000000110 Parameter Packet 000150 + 0400000000145 X Parameter Packet 000151 + 0022001000036 Input/Output Packet 000152 + 0020101000000 Input/Output Packet 000153 + 0000000000001 Input/Output Packet 000154 + 0400000000005 R 0 Input/Output Packet 000155 + 0000000000000 Input/Output Packet 000156 + 0000000000000 Input/Output Packet 000157 + 0000000000000 Input/Output Packet 000160 + 0000000000000 Input/Output Packet 000161 + 0000000000000 Input/Output Packet 000162 + 0000000000000 Input/Output Packet 000163 + 0000000000000 Input/Output Packet 000164 + 0000000000000 Input/Output Packet 000165 + 0000000000000 Input/Output Packet 000166 + 0000000000000 Input/Output Packet 000167 + 0000000000000 Input/Output Packet 000170 + 0000000000000 Input/Output Packet 000171 + 0000000000000 Input/Output Packet 000172 + 0000000000000 Input/Output Packet Relative Instruction Subfields D FLD Label Symbolic Instruction Skeleton Active Address F J A X HI B D LC F,J A,U,X,B Number Procedure 000173 + 0040000000000 Input/Output Packet 000174 + 0400000000040 R 0 Input/Output Packet 000175 + 0000000000044 Input/Output Packet 000176 + 0000017000000 Input/Output Packet 000177 + 0040000000000 Input/Output Packet 000200 + 0000000000000 Input/Output Packet 000201 + 0000000000011 Input/Output Packet 000202 + 0003014000002 Input/Output Packet 000203 + 0000000000000 Input/Output Packet 000204 + 0000000000000 Input/Output Packet 000205 + 0000000000000 Input/Output Packet 000206 + 0000000000000 Input/Output Packet 000207 + 0000000000001 Input/Output Packet 000210 + 0000000000000 Input/Output Packet 000211 + 0400000000376 R 0 Input/Output Packet 000212 + 0000000000121 Input/Output Packet 000213 + 0022001000036 Input/Output Packet 000214 + 0020201000000 Input/Output Packet 000215 + 0000001000000 Input/Output Packet 000216 + 0400000000061 R 0 Input/Output Packet 000217 + 0000000000000 Input/Output Packet 000220 + 0000000000000 Input/Output Packet 000221 + 0000000000000 Input/Output Packet 000222 + 0000000000000 Input/Output Packet 000223 + 0000000000000 Input/Output Packet 000224 + 0000000000000 Input/Output Packet 000225 + 0000000000000 Input/Output Packet 000226 + 0000000000000 Input/Output Packet 000227 + 0000000000000 Input/Output Packet 000230 + 0000000000000 Input/Output Packet 000231 + 0000000000000 Input/Output Packet 000232 + 0000000000000 Input/Output Packet 000233 + 0000000000000 Input/Output Packet 000234 + 0000000000000 Input/Output Packet 000235 + 0040000000000 Input/Output Packet 000236 + 0400000000114 R 0 Input/Output Packet 000237 + 0000000000044 Input/Output Packet 000240 + 0000017000000 Input/Output Packet 000241 + 0000000000000 Input/Output Packet 000242 + 0000000000000 Input/Output Packet 000243 + 0000000000000 Input/Output Packet 000244 + 0000000000000 Input/Output Packet 000245 + 0000000000000 Input/Output Packet 000246 + 0000000000000 Input/Output Packet 000247 + 0000000000000 Input/Output Packet 000250 + 0000000000000 Input/Output Packet 000251 + 0024001000036 Input/Output Packet 000252 + 0040400000300 Input/Output Packet 000253 + 0777000000000 Input/Output Packet 000254 + 0000000000000 Input/Output Packet 000255 + 0000000000000 Input/Output Packet 000256 + 0000000000000 Input/Output Packet 000257 + 0400000000005 R 0 Input/Output Packet 000260 + 0000000000000 Input/Output Packet 000261 + 0000000000001 Input/Output Packet 000262 + 0000000000000 Input/Output Packet 000263 + 0000000000000 Input/Output Packet 000264 + 0000000000000 Input/Output Packet 000265 + 0000000000000 Input/Output Packet 000266 + 0000000000000 Input/Output Packet Relative Instruction Subfields D FLD Label Symbolic Instruction Skeleton Active Address F J A X HI B D LC F,J A,U,X,B Number Procedure 000267 + 0000000000000 Input/Output Packet 000270 + 0000000000000 Input/Output Packet 000271 + 0000000000000 Input/Output Packet 000272 + 0040000000000 Input/Output Packet 000273 + 0400000000040 R 0 Input/Output Packet 000274 + 0000000000044 Input/Output Packet 000275 + 0000017000000 Input/Output Packet 000276 + 0000000000000 Input/Output Packet 000277 + 0000000000000 Input/Output Packet 000300 + 0000000000000 Input/Output Packet 000301 + 0000000000000 Input/Output Packet 000302 + 0000000000000 Input/Output Packet 000303 + 0000000000000 Input/Output Packet 000304 + 0000000000000 Input/Output Packet 000305 + 0000000000000 Input/Output Packet 000306 + 0000000000000 Input/Output Packet 000307 + 0023000000012 Input/Output Packet 000310 + 0010000000000 Input/Output Packet 000311 + 0400000000005 R 0 Input/Output Packet 000312 + 0000000000000 Input/Output Packet 000313 + 0000000000000 Input/Output Packet 000314 + 0000000000000 Input/Output Packet 000315 + 0000000000000 Input/Output Packet 000316 + 0000000000000 Input/Output Packet 000317 + 0000000000000 Input/Output Packet 000320 + 0000000000000 Input/Output Packet 000321 + 0023000000012 Input/Output Packet 000322 + 0000000000000 Input/Output Packet 000323 + 0400000000061 R 0 Input/Output Packet 000324 + 0000000000000 Input/Output Packet 000325 + 0000000000000 Input/Output Packet 000326 + 0000000000000 Input/Output Packet 000327 + 0000000000000 Input/Output Packet 000330 + 0000000000000 Input/Output Packet 000331 + 0000000000000 Input/Output Packet 000332 + 0000000000000 Input/Output Packet 000333 003040062001 ECS +0,3, ,+3,+2,+0,1 000334 041000000000 ECS +2,+1,0,0,0,0,0,0 000335 + 0024001000036 Input/Output Packet 000336 + 0040400000400 Input/Output Packet 000337 + 0000010000000 Input/Output Packet 000340 + 0000000000000 Input/Output Packet 000341 + 0000001000000 Input/Output Packet 000342 + 0000000000000 Input/Output Packet 000343 + 0400000000061 R 0 Input/Output Packet 000344 + 0000000000000 Input/Output Packet 000345 + 0000000000000 Input/Output Packet 000346 + 0000000000000 Input/Output Packet 000347 + 0000000000000 Input/Output Packet 000350 + 0000000000000 Input/Output Packet 000351 + 0000000000000 Input/Output Packet 000352 + 0000000000000 Input/Output Packet 000353 + 0000000000000 Input/Output Packet 000354 + 0000000000000 Input/Output Packet 000355 + 0000000000000 Input/Output Packet 000356 + 0040000000000 Input/Output Packet 000357 + 0400000000114 R 0 Input/Output Packet 000360 + 0000000001375 Input/Output Packet 000361 + 0000017000000 Input/Output Packet 000362 + 0000000000000 Input/Output Packet Relative Instruction Subfields D FLD Label Symbolic Instruction Skeleton Active Address F J A X HI B D LC F,J A,U,X,B Number Procedure 000363 + 0000000000000 Input/Output Packet 000364 + 0000000000000 Input/Output Packet 000365 + 0000000000000 Input/Output Packet 000366 + 0000000000000 Input/Output Packet 000367 + 0040000000000 Input/Output Packet 000370 + 0000000000000 Input/Output Packet 000371 + 0000000000011 Input/Output Packet 000372 + 0003014000002 Input/Output Packet 000373 + 0117125124055 + ('OUT-F') 000374 + 0106000000000 000375 + 0111116055106 + ('IN-F') 000376 + 0124105123124 + ('TEST.DATA') 000377 + 0056104101124 000400 + 0101000000000 000401 + 0370003000204 + (+33286783108) 000402 + 0000000000137 R 0 VA Pointer 000403 + 0000000000142 R 0 VA Pointer 000404 + 0000000000000 + (' ') 000405 + 0000000000034 + (+1) 000406 + 0000000000151 R 0 VA Pointer 000407 + 0000000000213 R 0 VA Pointer 000410 + 0000000000251 R 0 VA Pointer 000411 + 0000000000335 R 0 VA Pointer 000412 + 0000000000307 R 0 VA Pointer 000413 + 0000000000321 R 0 VA Pointer 001001 + 0000140104503 $(1) HdPkt A6,,0 0 4 1 5, 3 001002 + 0000140004503 HdPkt A6,,0 0 0 1 5, 3 001003 + 0000160104503 HdPkt A7,,0 0 4 1 5, 3 001004 + 0224300100333 HdPkt 1 5, 3,0 0,,B8 001005 + 0000000070000 HdPkt 0 0 0,OUT-NUM,B7 001006 + 0000220070001 HdPkt 0, 9, 0,,B7 001007 + 0026400510000 HdPkt 720, 0,*,,B9 000001 $(0) UCS$DATA_VA 'TCA$$$','UCS$EMLIB' Main Program Prolog $(1) 001010 23 16 04 00 000002 LR,U R4,2 1185 001011 23 16 05 00 000000 LR,U R5,0 001012 75 00 10 00 0 00 0100 LBU B8,R0 001013 27 00 02 00 0 00 0100 LX X2,R0 001014 27 00 06 00 0 10 0001 LX X6,01,,B8 001015 10 16 14 00 000000 LA,U A12,0 001016 10 16 00 00 000000 LA,U A0,0 001017 10 16 11 00 000210 LA,U A9,136 000414 X $(0) UCS$CODELVE 'UCS$EMLIB' 'RTS$VARPRO' . Call to RTS$VARPRO 001020 23 00 00 00 0 10 0415 LR R0,0415,,B8 001021 07 16 13 00 0 10 0414 CALL 0414,,B8 001022 10 16 00 00 000000 LA,U A0,0 001023 10 16 01 00 000000 LA,U A1,0 001024 23 00 00 12 1 01 0003 LR R0,*03,X10,B1 . LOCL to PS2200-TEST 001025 07 16 00 00 001035 R 1 LOCL PS2200-TEST 001026 27 16 01 00 001000 R 1 LX,U X1,$(1)+01000 1846 Main Program Epilog 001027 27 16 15 00 001027 R 1 LX,U A1,$(1)+01027 1184 001030 46 02 15 01 1 00 0000 LXI,H1 A1,*0,X1,B0 001031 10 16 00 00 000000 LA,U A0,0 000416 X $(0) UCS$CODELVE 'UCS$EMLIB' 'RTS$EPILOGUE' . Call to RTS$EPILOGUE 001032 23 00 00 00 0 10 0417 LR R0,0417,,B8 001033 07 16 13 00 0 10 0416 CALL 0416,,B8 Relative Instruction Subfields D FLD Label Symbolic Instruction Skeleton Active Address F J A X HI B D LC F,J A,U,X,B Number Procedure 001034 73 17 03 00 0 00 0000 RTN Prolog for PS2200-TEST Lexical Level 1 Block Number 1 001035 75 00 10 00 0 00 0100 LBU B8,R0 1027 PS2200-TEST 001036 73 14 02 12 3 01 0034 BUY *034,*X10,B1 1031 PS2200-TEST 001037 27 00 01 00 0 10 0401 LX X1,(+33286783108),,B8 PS2200-TEST 001040 06 00 01 12 1 01 0000 SX X1,*0,X10,B1 PS2200-TEST 001041 04 00 00 12 1 01 0003 SR R0,*03,X10,B1 PS2200-TEST 001042 06 00 11 12 1 01 0002 SX X9,*02,X10,B1 PS2200-TEST 001043 05 00 00 12 1 01 0007 SZ *07,X10,B1 PS2200-TEST 001044 05 00 00 12 1 01 0015 SZ *015,X10,B1 PS2200-TEST 001045 05 00 00 12 1 01 0012 SZ *012,X10,B1 PS2200-TEST 001046 27 00 11 00 0 00 0012 LX X9,X10 PS2200-TEST 001047 01 00 16 12 1 01 0032 SA A14,*032,X10,B1 1855 PS2200-TEST 001050 10 04 05 00 0 10 0002 LA,Q2 A5,CGV02,,B8 1803 PS2200-TEST 001051 74 10 05 00 001057 R 1 JNB A5,CGL001057 763 PS2200-TEST 001052 10 00 01 00 0 10 0150 LA A1,0150,,B8 1905 PS2200-TEST 001053 10 16 00 00 000001 LA,U A0,1 1078 PS2200-TEST 000420 X $(0) UCS$CODELVE 'UCS$EMLIB' 'RTS$LBRELOAD' PS2200-TEST . Call to RTS$LBRELOAD PS2200-TEST 001054 23 00 00 00 0 10 0421 LR R0,0421,,B8 PS2200-TEST 001055 07 16 13 00 0 10 0420 CALL 0420,,B8 PS2200-TEST 001056 05 04 00 00 0 10 0002 SZ,Q2 CGV02,,B8 1647 PS2200-TEST CGL001057 PS2200-TEST 001057 05 00 00 12 1 01 0024 SZ *CGV024,X10,B1 1647 PS2200-TEST 21 1 PROCEDURE DIVISION. 22 1 MAIN-PROC. MAIN-PROC PS2200-TEST CGL001060 PS2200-TEST 23 1 OPEN INPUT IN-F OUTPUT OUT-F. 001060 10 00 05 00 0 00 0114 LA A5,R12 1836 PS2200-TEST 001061 14 16 05 12 1 000027 AA,U A5,*Numbered variable,X10 PS2200-TEST 001062 01 00 05 00 0 10 0200 SA A5,0200,,B8 1760 PS2200-TEST 001063 10 00 03 00 0 10 0406 LA A3,Ptr 0000000000151,,B8 1835 PS2200-TEST 001064 10 16 00 00 000000 LA,U A0,0 1736 PS2200-TEST 000422 X $(0) UCS$CODELVE 'UCS$EMLIB' 'RTS$OPEN' PS2200-TEST . Call to RTS$OPEN PS2200-TEST 001065 23 00 00 00 0 10 0423 LR R0,0423,,B8 PS2200-TEST 001066 07 16 13 00 0 10 0422 CALL 0422,,B8 PS2200-TEST 001067 55 16 00 00 000002 TG,U A0,2 3560 PS2200-TEST 001070 74 15 04 00 001077 R 1 J CGL001077 PS2200-TEST 001071 75 00 07 00 0 10 0040 LBU B7,IN-F,,B8 1936 PS2200-TEST 001072 27 16 01 00 000404 LX,U X1,260 1833 PS2200-TEST 001073 27 16 04 00 000000 LX,U X4,0 1833 PS2200-TEST 001074 23 16 01 00 000024 LR,U R1,20 1929 PS2200-TEST 001075 51 16 04 00 000001 LXSI,U X4,1 3204 PS2200-TEST 001076 22 00 04 01 3 10 1600 BT X4,B7,*X1,B8,*0 PS2200-TEST CGL001077 PS2200-TEST 001077 10 00 03 00 0 10 0407 LA A3,Ptr 0000000000213,,B8 1835 PS2200-TEST 001100 10 16 00 00 000000 LA,U A0,0 1736 PS2200-TEST . Call to RTS$OPEN PS2200-TEST 001101 23 00 00 00 0 10 0423 LR R0,0423,,B8 PS2200-TEST 001102 07 16 13 00 0 10 0422 CALL 0422,,B8 PS2200-TEST 001103 55 16 00 00 000002 TG,U A0,2 3560 PS2200-TEST 001104 74 15 04 00 001115 R 1 J CGL001115 PS2200-TEST 001105 75 00 07 00 0 10 0114 LBU B7,OUT-F,,B8 1936 PS2200-TEST 001106 27 16 01 00 000404 LX,U X1,260 1833 PS2200-TEST 001107 27 16 04 00 000000 LX,U X4,0 1833 PS2200-TEST 001110 23 16 01 00 000025 LR,U R1,21 1929 PS2200-TEST 001111 51 16 04 00 000001 LXSI,U X4,1 3204 PS2200-TEST 001112 22 00 04 01 3 10 1600 BT X4,B7,*X1,B8,*0 PS2200-TEST Relative Instruction Subfields D FLD Label Symbolic Instruction Skeleton Active Address F J A X HI B D LC F,J A,U,X,B Number Procedure 001113 10 07 05 01 1 10 0000 LA,Q1 A5,*0,X1,B8 PS2200-TEST 001114 01 07 05 04 1 07 0000 SA,Q1 A5,*0,X4,B7 PS2200-TEST CGL001115 PS2200-TEST 24 1 PERFORM UNTIL IN-EOF 001115 10 07 16 00 0 10 0004 LA,Q1 A14,IN-EOF-FLAG,,B8 1803 PS2200-TEST 001116 53 16 16 00 000105 TNE,U A14,69 701 PS2200-TEST 001117 74 15 04 00 001142 R 1 J CGL001142 PS2200-TEST CGL001120 PS2200-TEST 001120 27 16 07 00 000105 LX,U X7,69 1802 PS2200-TEST CGL001121 PS2200-TEST 25 1 1 READ IN-F AT END SET IN-EOF TO TRUE 001121 10 00 03 00 0 10 0410 LA A3,Ptr 0000000000251,,B8 1835 PS2200-TEST 001122 10 16 00 00 000000 LA,U A0,0 1753 PS2200-TEST 000424 X $(0) UCS$CODELVE 'UCS$EMLIB' 'RTS$RECREAD' PS2200-TEST . Call to RTS$RECREAD PS2200-TEST 001123 23 00 00 00 0 10 0425 LR R0,0425,,B8 PS2200-TEST 001124 07 16 13 00 0 10 0424 CALL 0424,,B8 PS2200-TEST 001125 55 16 00 00 000002 TG,U A0,2 3560 PS2200-TEST 001126 74 15 04 00 001137 R 1 J CGL001137 PS2200-TEST 001127 74 11 00 00 001131 R 1 JB A0,CGL001131 3558 PS2200-TEST 001130 74 15 04 00 001133 R 1 J CGL001133 947 PS2200-TEST CGL001131 PS2200-TEST 25 1 1 READ IN-F AT END SET IN-EOF TO TRUE 001131 06 07 07 00 0 10 0004 SX,Q1 X7,IN-EOF-FLAG,,B8 1646 PS2200-TEST 001132 74 15 04 00 001137 R 1 J CGL001137 947 PS2200-TEST CGL001133 PS2200-TEST 26 1 1 NOT AT END PERFORM PRINT-PROC 27 END-READ 28 END-PERFORM. 001133 27 16 01 00 001136 R 1 LX,U X1,CGL001136 1091 PS2200-TEST 001134 06 00 01 12 1 01 0024 SX X1,*CGV024,X10,B1 PS2200-TEST 001135 74 15 04 00 001161 R 1 J PRINT-PROC 947 PS2200-TEST CGL001136 PS2200-TEST 001136 05 00 00 12 1 01 0024 SZ *CGV024,X10,B1 1083 PS2200-TEST CGL001137 PS2200-TEST 001137 10 07 16 00 0 10 0004 LA,Q1 A14,IN-EOF-FLAG,,B8 1803 PS2200-TEST 001140 52 16 16 00 000105 TE,U A14,69 889 PS2200-TEST 001141 74 15 04 00 001121 R 1 J CGL001121 PS2200-TEST CGL001142 PS2200-TEST 29 1 CLOSE IN-F OUT-F. 001142 10 00 03 00 0 10 0412 LA A3,Ptr 0000000000307,,B8 1835 PS2200-TEST 001143 10 16 00 00 000000 LA,U A0,0 1709 PS2200-TEST 000426 X $(0) UCS$CODELVE 'UCS$EMLIB' 'RTS$CLOSE' PS2200-TEST . Call to RTS$CLOSE PS2200-TEST 001144 23 00 00 00 0 10 0427 LR R0,0427,,B8 PS2200-TEST 001145 07 16 13 00 0 10 0426 CALL 0426,,B8 PS2200-TEST 001146 10 00 03 00 0 10 0413 LA A3,Ptr 0000000000321,,B8 1835 PS2200-TEST 001147 10 16 00 00 000000 LA,U A0,0 1709 PS2200-TEST . Call to RTS$CLOSE PS2200-TEST 001150 23 00 00 00 0 10 0427 LR R0,0427,,B8 PS2200-TEST 001151 07 16 13 00 0 10 0426 CALL 0426,,B8 PS2200-TEST 30 1 STOP RUN. 001152 27 16 01 00 001000 R 1 LX,U X1,$(1)+01000 1846 PS2200-TEST 001153 27 16 15 00 001153 R 1 LX,U A1,$(1)+01153 1204 PS2200-TEST 001154 46 02 15 01 1 00 0000 LXI,H1 A1,*0,X1,B0 PS2200-TEST 001155 10 16 00 00 000000 LA,U A0,0 PS2200-TEST 000430 X $(0) UCS$CODELVE 'UCS$EMLIB' 'RTS$STOP' PS2200-TEST . Call to RTS$STOP PS2200-TEST 001156 23 00 00 00 0 10 0431 LR R0,0431,,B8 PS2200-TEST 001157 07 16 13 00 0 10 0430 CALL 0430,,B8 PS2200-TEST Relative Instruction Subfields D FLD Label Symbolic Instruction Skeleton Active Address F J A X HI B D LC F,J A,U,X,B Number Procedure 001160 74 15 04 00 001211 R 1 J CGL001211 947 PS2200-TEST 31 1 PRINT-PROC. PRINT-PROC PS2200-TEST 32 1 ADD 1 TO REC-CNT. 001161 27 16 01 00 001000 R 1 LX,U X1,$(1)+01000 1846 PS2200-TEST 001162 10 00 05 01 1 00 0001 LA A5,*01,X1,B0 2011 PS2200-TEST 001163 72 10 05 00 0 10 0003 BDE A5,REC-CNT,,B8 PS2200-TEST 001164 07 00 06 00 0 10 0405 ADE A6,(+1),,B8 167 PS2200-TEST 001165 10 00 05 01 1 00 0002 LA A5,*02,X1,B0 2058 PS2200-TEST 001166 72 11 05 00 0 10 0003 DEB A5,REC-CNT,,B8 PS2200-TEST 33 1 MOVE REC-CNT TO OUT-NUM. 001167 10 00 06 01 1 00 0003 LA A6,*03,X1,B0 2011 PS2200-TEST 001170 72 10 06 00 0 10 0003 BDE A6,REC-CNT,,B8 PS2200-TEST 001171 75 00 07 00 0 10 0114 LBU B7,OUT-F,,B8 1936 PS2200-TEST 001172 73 16 07 01 1 00 0004 EDDE A7,*04,X1,B0 2066 PS2200-TEST 34 1 MOVE SPACE TO OUT-FIL. 001173 05 05 06 00 0 07 0000 SAS,Q4 OUT-FIL,,B7 1620 PS2200-TEST 001174 05 07 06 00 0 07 0001 SAS,Q1 OUT-FIL+01,,B7 PS2200-TEST 35 1 MOVE IN-REC TO OUT-DATA. 001175 75 00 11 00 0 10 0040 LBU B9,IN-F,,B8 1936 PS2200-TEST 001176 73 14 10 01 1 00 0006 BIM *06,X1,B0 2018 PS2200-TEST 36 1 WRITE OUT-REC. 001177 05 07 02 12 1 01 0031 SP1,Q1 *Numbered variable,X10,B1 1648 PS2200-TEST 001200 10 00 10 00 0 00 0114 LA A8,R12 1836 PS2200-TEST 001201 14 16 10 12 1 000031 AA,U A8,*Numbered variable,X10 PS2200-TEST 001202 01 00 10 00 0 10 0370 SA A8,0370,,B8 1760 PS2200-TEST 001203 10 00 03 00 0 10 0411 LA A3,Ptr 0000000000335,,B8 1835 PS2200-TEST 001204 10 16 00 00 000000 LA,U A0,0 1762 PS2200-TEST 000432 X $(0) UCS$CODELVE 'UCS$EMLIB' 'RTS$RECWRITE' PS2200-TEST . Call to RTS$RECWRITE PS2200-TEST 001205 23 00 00 00 0 10 0433 LR R0,0433,,B8 PS2200-TEST 001206 07 16 13 00 0 10 0432 CALL 0432,,B8 PS2200-TEST 001207 10 00 02 12 1 01 0024 LA A2,*CGV024,X10,B1 1085 PS2200-TEST 001210 74 01 02 16 0 000000 JNZ A2,0,A2 PS2200-TEST Epilog for PS2200-TEST PS2200-TEST CGL001211 PS2200-TEST 001211 10 00 16 12 1 01 0032 LA A14,*032,X10,B1 1842 PS2200-TEST 001212 27 00 11 11 1 01 0002 LX X9,*02,X9,B1 1190 PS2200-TEST 001213 24 16 12 00 000034 AX,U X10,28 PS2200-TEST 001214 73 17 03 00 0 00 0000 RTN PS2200-TEST 001215 75 00 10 00 0 00 0100 LBU B8,R0 1027 PS2200-TEST 001216 73 14 02 12 3 01 0034 BUY *034,*X10,B1 1031 PS2200-TEST 001217 27 00 01 00 0 10 0401 LX X1,(+33286783108),,B8 PS2200-TEST 001220 06 00 01 12 1 01 0000 SX X1,*0,X10,B1 PS2200-TEST 001221 04 00 00 12 1 01 0003 SR R0,*03,X10,B1 PS2200-TEST 001222 06 00 11 12 1 01 0002 SX X9,*02,X10,B1 PS2200-TEST 001223 05 00 00 12 1 01 0007 SZ *07,X10,B1 PS2200-TEST 001224 05 00 00 12 1 01 0015 SZ *015,X10,B1 PS2200-TEST 001225 05 00 00 12 1 01 0012 SZ *012,X10,B1 PS2200-TEST 001226 27 00 11 00 0 00 0012 LX X9,X10 PS2200-TEST 001227 05 04 02 00 0 10 0002 SP1,Q2 CGV02,,B8 1648 PS2200-TEST 001230 10 00 01 00 0 10 0402 LA A1,Ptr 0000000000137,,B8 1835 PS2200-TEST 001231 10 16 00 00 000001 LA,U A0,1 1907 PS2200-TEST 000434 X $(0) UCS$CODELVE 'UCS$EMLIB' 'RTS$FILECANC' 1064 PS2200-TEST . Call to RTS$FILECANC PS2200-TEST 001232 23 00 00 00 0 10 0435 LR R0,0435,,B8 PS2200-TEST 001233 07 16 13 00 0 10 0434 CALL 0434,,B8 PS2200-TEST 001234 10 00 01 00 0 10 0403 LA A1,Ptr 0000000000142,,B8 1835 PS2200-TEST 001235 10 16 00 00 000001 LA,U A0,1 1907 PS2200-TEST . Call to RTS$FILECANC 1064 PS2200-TEST Relative Instruction Subfields D FLD Label Symbolic Instruction Skeleton Active Address F J A X HI B D LC F,J A,U,X,B Number Procedure 001236 23 00 00 00 0 10 0435 LR R0,0435,,B8 PS2200-TEST 001237 07 16 13 00 0 10 0434 CALL 0434,,B8 PS2200-TEST 001240 27 00 11 11 1 01 0002 LX X9,*02,X9,B1 1190 PS2200-TEST 001241 24 16 12 00 000034 AX,U X10,28 PS2200-TEST 001242 73 17 03 00 0 00 0000 RTN PS2200-TEST L I N K E R I N F O R M A T I O N L I S T I N G OBJECT MODULE NAME: PROG BANK GROUP NAME: PROG$ EXTERNAL REFERENCES TCA$$$ RTS$VARPRO RTS$EPILOGUE RTS$LBRELOAD RTS$OPEN RTS$RECREAD RTS$CLOSE RTS$STOP RTS$RECWRITE RTS$FILECANC EXTERNAL DEFINITIONS Internal Name External Name LC Offset Line Number CN$$PS2200-T $(1) 000001215 PS2200-TEST PS2200-TEST $(1) 000001035 2 COMMON BLOCKS No Common Blocks ALS INFORMATION Internal Name External Name Size PS2200-TEST PS2200-TEST 28 LOGICAL BANK Size Bank Bank Storage Location Counter Octal Decimal Type Mode Class PROG$0 $(0) 0437 287 Data EM MSU PROG$1 $(1) 0243 163 Code EM MSU PROG$3 $(3) 0137 95 SDD EM MSU SIZES: CODE(EM8): 163 DATA: 287 END UCOB- 0 ERRORS(MAJOR) 0 ERRORS(MINOR) @XQT TEST.PROG 1 ************** 2 Hello PS/2200 3 I came back. 4 ************** @BRKPT PRINT$