API tools faq
paste
Advertisement
CodenameDuchess

Bad Output

CodenameDuchess
Jul 22nd, 2014
593
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 54.25 KB | None | 0 0
raw download clone embed print report
  1. 1 J E S 2 J O B L O G -- S Y S T E M S 0 W 1 -- N O D E Z O S K C T R
  2. 0
  3. 16.56.14 JOB03149 ---- TUESDAY, 22 JUL 2014 ----
  4. 16.56.14 JOB03149 IRR010I USERID KC03O10 IS ASSIGNED TO THIS JOB.
  5. 16.56.14 JOB03149 ICH70001I KC03O10 LAST ACCESS AT 16:53:46 ON TUESDAY, JULY 22, 2014
  6. 16.56.14 JOB03149 $HASP373 KC03O10M STARTED - INIT 2 - CLASS A - SYS S0W1
  7. 16.56.14 JOB03149 - -----TIMINGS (MINS.)------ -----PAGING COUNTS-
  8. 16.56.14 JOB03149 -STEPNAME PROCSTEP RC EXCP CONN TCB SRB CLOCK SERV WORKLOAD PAGE SWAP VIO SW
  9. 16.56.14 JOB03149 -STEP1 00 46 11 .00 .00 .0 15 BATCH 0 0 0
  10. 16.56.14 JOB03149 -KC03O10M ENDED. NAME-MATTHEW ROWE TOTAL TCB CPU TIME= .00 TOTAL ELAPSED TIME= .0
  11. 16.56.14 JOB03149 $HASP395 KC03O10M ENDED
  12. 0------ JES2 JOB STATISTICS ------
  13. - 22 JUL 2014 JOB EXECUTION DATE
  14. - 359 CARDS READ
  15. - 443 SYSOUT PRINT RECORDS
  16. - 0 SYSOUT PUNCH RECORDS
  17. - 49 SYSOUT SPOOL KBYTES
  18. - 0.00 MINUTES EXECUTION TIME
  19. 1 //KC03O10M JOB ,'MATTHEW ROWE' ,MSGCLASS=H JOB03149
  20. 2 //STEP1 EXEC PGM=ASSIST 00020000
  21. 3 //STEPLIB DD DSN=KC02293.ASSIST.LOADLIB,DISP=SHR 00030000
  22. 4 //SYSPRINT DD SYSOUT=* 00040000
  23. 5 //SYSIN DD * 00050000
  24. 6 //FT05F001 DD DSN=KC02314.SUMMER14.CSCI360.HW6DATA,DISP=SHR 00330000
  25. 7 //FT06F001 DD SYSOUT=* 00379000
  26. ICH70001I KC03O10 LAST ACCESS AT 16:53:46 ON TUESDAY, JULY 22, 2014
  27. IEF236I ALLOC. FOR KC03O10M STEP1
  28. IGD103I SMS ALLOCATED TO DDNAME STEPLIB
  29. IEF237I JES2 ALLOCATED TO SYSPRINT
  30. IEF237I JES2 ALLOCATED TO SYSIN
  31. IGD103I SMS ALLOCATED TO DDNAME FT05F001
  32. IEF237I JES2 ALLOCATED TO FT06F001
  33. IEF142I KC03O10M STEP1 - STEP WAS EXECUTED - COND CODE 0000
  34. IGD104I KC02293.ASSIST.LOADLIB RETAINED, DDNAME=STEPLIB
  35. IEF285I KC03O10.KC03O10M.JOB03149.D0000102.? SYSOUT
  36. IEF285I KC03O10.KC03O10M.JOB03149.D0000101.? SYSIN
  37. IGD104I KC02314.SUMMER14.CSCI360.HW6DATA RETAINED, DDNAME=FT05F001
  38. IEF285I KC03O10.KC03O10M.JOB03149.D0000103.? SYSOUT
  39. IEF373I STEP/STEP1 /START 2014203.1656
  40. IEF032I STEP/STEP1 /STOP 2014203.1656
  41. CPU: 0 HR 00 MIN 00.01 SEC SRB: 0 HR 00 MIN 00.00 SEC
  42. VIRT: 584K SYS: 264K EXT: 0K SYS: 14772K
  43. IEF375I JOB/KC03O10M/START 2014203.1656
  44. IEF033I JOB/KC03O10M/STOP 2014203.1656
  45. CPU: 0 HR 00 MIN 00.01 SEC SRB: 0 HR 00 MIN 00.00 SEC
  46. 1*** ASSIST 4.0/A2-05/15/82 470/V7A/0:OS/VS2 INS=SDFP7/X=BGHO, CHECK/TRC/=1180, OPTS=CDKMPR FROM PENN ST*NIU COMPSCI*LT
  47. 0
  48. 0 PAGE 1
  49. 0 LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT
  50. 1 ********************************************************************** 00060000
  51. 2 * ASSIGNMENT 6 00070000
  52. 3 * NAME: MATTHEW ROWE 00080000
  53. 4 * FUNCTION: USE INTERNAL SUBROUTINES TO LOAD A TABLE READ FROM FILE 00090000
  54. 5 * PRINT THE VALUES IN LINES OF 5 AND THEN PRINT ALL EVEN 00100000
  55. 6 * ENTRIES IN THE SAME FASHION 00110000
  56. 7 * 00111000
  57. 8 * INPUT: FT05F001 00120000
  58. 9 * OUTPUT: STDOUT INDIVIDUAL PAY RECORDS PER EMPLOYEE AS WELL AS TOTALS 00130000
  59. 10 * ENTRY CONDS: NONE 00140000
  60. 11 * EXIT CONDS: NONE 00150000
  61. 12 * REGISTERS: R12--BASE REGISTER 00160000
  62. 13 * R1---PARAMETER LISTS FOR SUBROUTINES 00170000
  63. 14 * R14--LINK BACK TO MAIN FORWARD POINTER 00180000
  64. 15 * R15--LINK TO SUB FRORWARD POINTER 00190000
  65. 16 * PSEUDOCODE: <1> LOAD PARAMS AND BRANCH TO BUILD SUB 00210000
  66. 17 * <2> LOAD PARAMS AND BRANCH TO PRINT SUB 00211000
  67. 18 * <3> LOAD PARAMS AND BRANCH TO SORT SUB 00220000
  68. 19 * <4> LOAD PARAMS AND BRANCH TO PRINT SUB 00230000
  69. 20 * FOR SORTED, MULTIPLES OF 6;5; AND 4 00240000
  70. 21 *********************************************************************** 00270000
  71. 1 MATTHEW ROWE, CSCI 360, PROGRAM6 PAGE 2
  72. 0 LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT
  73.  
  74.  
  75.  
  76. 000000 24 MAIN CSECT 00280000
  77. 000000 90EC D00C 0000C 25 STM 14,12,12(13) 00280100
  78. 000004 18CF 26 LR 12,15 00280200
  79. 000000 27 USING MAIN,12 00281000
  80. 000006 41E0 C024 00024 28 LA 14,MAINSAVE 00281100
  81. 00000A 50ED 0008 00008 29 ST 14,8(13) 00281200
  82. 00000E 50DE 0004 00004 30 ST 13,4(14) 00281300
  83. 000012 18DE 31 LR 13,14 00281400
  84. 32 *********CALL BUILD**************************************************** 00281600
  85. 000014 4110 CD94 00D94 33 LA 1,BPARMS 00281700
  86. 000018 58F0 C020 00020 34 L 15,=V(BUILD) 00281800
  87. 00001C 05EF 35 BALR 14,15 00281900
  88. 36 *********CALL PRINT1*************************************************** 00282000
  89. 37 * XPRNT HEADER,40 00282400
  90. 38 * MVI HEADER+1,C' ' 00282500
  91. 39 * MVC HEADER+1(38),HEADER+1 00282600
  92. 40 * LA 1,PDPL 00282700
  93. 41 * L 15,=V(PRINT) 00282800
  94. 42 * BALR 14,15 00282900
  95. 43 *********CALL SORT***************************************************** 00283000
  96. 44 * LA 1,SORTPL 00283100
  97. 45 * L 15,=V(SORT) 00283200
  98. 46 * BALR 14,15 00283300
  99. 47 *********CALL PRINT2*************************************************** 00283400
  100. 48 * XPRNT HEADER2,40 00283500
  101. 49 * MVI HEADER2+1,C' ' 00283600
  102. 50 * MVC HEADER2+2(38),HEADER2+1 00283700
  103. 51 * LA 1,PDPL 00283800
  104. 52 * L 15,=V(PRINT) 00283900
  105. 53 * BALR 14,15 00284000
  106. 54 *********CALL TALLY**************************************************** 00284100
  107. 55 * XPRNT HEADER3,28 00284200
  108. 56 * MVI HEADER3+1,C' ' 00284300
  109. 57 * MVC HEADER3+2(27),HEADER3+1 00284400
  110. 58 * LA 1,P3PL 00284500
  111. 59 * L 15,=V(TALLY) 00284600
  112. 60 * BALR 14,15 00284700
  113. 61 * XDUMP TABLE,ENDTBLE-TABLE 00286200
  114. 62 * L 13,4(13) 00286300
  115. 63 * LM 14,12,12(13) 00286400
  116. 64 * BR 14 00286500
  117. 65 *************CONSTANTS/PARAM LISTS/LABELS*********************** 00286600
  118. 1 MATTHEW ROWE, CSCI 360, PROGRAM6 PAGE 3
  119. 0 LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT
  120.  
  121.  
  122.  
  123.  
  124.  
  125. 68 LTORG 00286900
  126. 000020 00000DA0 69 =V(BUILD)
  127. 000024 70 MAINSAVE DS 18F 00287000
  128. 00006C 71 ORG PROG6+(*-PROG6+15)/16*16 00287100
  129. ----->AS130 UNDEFINED SYMBOL -------------------$---------------------------------------------------- <-ERROR
  130. 00006C 4040404040404040 72 TABLE DC 70CL10' ' TABLE FIRST NAME D=0 00287200
  131. 000328 4040404040404040 73 DC 70CL10' ' LAST NAME D=10 00287300
  132. 0005E4 4040404040404040 74 DC 70CL9' ' ID NUMBER D=20 00287400
  133. 00085A 4040404040404040 75 DC 70CL8' ' PASSWORD D=29 00287500
  134. 000A8A 000000000C000000 76 DC 70PL5'000000000' BALANCE D=37 00287600
  135. 000BE8 000000000C000000 77 DC 70PL5'000000000' EXPIRATION DATE D=42 00287700
  136. 000D46 4040404040404040 78 DC 70CL1' ' FILLER D=47 00287800
  137. 000D8C 79 ORG 00287901
  138. 000D8C 80 ENDTBLE DS 0H 00288000
  139. 000D8C 81 LASTREC DS 1F POINTER FOR LAST RECORD ENTERED 00288100
  140. 000D90 82 NUMENT DS 1F NUMBER OF ENTRIES 00289000
  141. 000D94 0000006C 83 BPARMS DC A(TABLE) BUILD PARAMETERS 00289500
  142. 000D98 00000D8C 84 DC A(LASTREC) 00289600
  143. 000D9C 00000D90 85 DC A(NUMENT) 00289700
  144. 86 *************END CONSTANTS/PARAM LISTS/LABELS******************* 00291700
  145. 87 *************BUILD SUBROUTINE*********************************** 00291800
  146. 88 * FUNCTION: FILL TABLE WITH VALUES FROM FILE 00291900
  147. 89 * REGISTERS: R2---PARAM LIST 00292000
  148. 90 * R3---TABLE POITNER 00292100
  149. 91 * R4---EOT POINTER/LAST ENTRY POINTER 00292200
  150. 92 * R6---COUNTER FOR EOT 00292300
  151. 93 * R7---VALUE OF CURRENT CARD POS 00292400
  152. 94 * R8---D AND H VALUES 00292500
  153. 95 * R10--RETURN MAIN 00292600
  154. 96 * PSUEDO CODE:<1>SAVE REGISTERS AND LOAD PARAM LIST 00292700
  155. 97 * <2>ENTER LOOP1 ,READ CARD, CHECK FOR EOF 00292800
  156. 98 * <3>XDECI FIRST VAL,INCREMENT TABLE, CHECK FOR EOC 00292900
  157. 99 * <4>LOOP2, CONTINUE TO PROCESS FILES UNTIL END OF CARD 00293000
  158. 100 * LOOP BACK TO <2> TIL EOF/TABLE FULL 00293100
  159. 101 **************************************************************** 00293200
  160. 1 MATTHEW ROWE, CSCI 360, PROGRAM6 PAGE 4
  161. 0 LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT
  162.  
  163.  
  164.  
  165.  
  166.  
  167. 000DA0 104 BUILD CSECT 00293500
  168. 000DA0 90EC D00C 0000C 105 STM 14,12,12(13) STORE REGISTERS 00293600
  169. 000DA4 18CF 106 LR 12,15 LOAD PARAM LIST 00293700
  170. 000DA0 107 USING BUILD,12 00293800
  171. 000DA6 41E0 C084 00E24 108 LA 14,BUILDST 00293900
  172. 000DAA 50ED 0008 00008 109 ST 14,8(13) 00294000
  173. 000DAE 50DE 0004 00004 110 ST 13,4(14) 00294100
  174. 000DB2 18DE 111 LR 13,14 00294200
  175. 000DB4 9824 1000 00000 112 LM 2,4,0(1) UNLOAD PARAM LIST 00294300
  176. 000DB8 1B66 113 SR 6,6 INITIALIZE COUNTER 00294400
  177. 000DBA 0000 0000 0000 00000 114 LOOPT XREAD RECORD,80 READ IN FILE 00294500
  178. ----->AS130 UNDEFINED SYMBOL -------------------$---------------------------------------------------- <-ERROR
  179. 000DC0 4740 C06E 00E0E 115 BC B'0100',LOOPE CHECK FOR END OF LOOP AND BRANCH 00294600
  180. 000DC4 5960 C078 00E18 116 C 6,=F'70' CHECK FOR EOT 00294700
  181. 000DC8 4780 C06E 00E0E 117 BC B'1000',LOOPE IF TRUE GO TO END LOOP 00294800
  182. 000DCC D209 2000 C0D8 00000 00E78 118 MVC 0(10,2),CARD+12 FIRST NAME 00294900
  183. 000DD2 D209 200A C0CC 0000A 00E6C 119 MVC 10(10,2),CARD LAST NAME 00295000
  184. 000DD8 D209 2014 C0E4 00014 00E84 120 MVC 20(10,2),CARD+24 ID 00295100
  185. 000DDE D209 201D C0EF 0001D 00E8F 121 MVC 29(10,2),CARD+35 PASSWORD 00295200
  186. 000DE4 F246 2025 C103 00025 00EA3 122 PACK 37(5,2),CARD+55(7) BALANCE 00295300
  187. 000DEA F247 202A C0F9 0002A 00E99 123 PACK 42(5,2),CARD+45(8) EXPIRATION DATE 00295400
  188. 000DF0 5A60 C07C 00E1C 124 A 6,=F'1' INCREMENT 00295500
  189. 000DF4 4120 2030 00030 125 LA 2,48(0,2) ADVANCE TABLE POINTER 00295600
  190. 000DF8 0000 0000 00000 126 CLI CARD+62,=C'-' SIGN COMPARISON 00295700
  191. ----->AS132 ILLEGAL CHARACTER -----------------------$------------------------------------------------ <-ERROR
  192. 000DFC 4780 C064 00E04 127 BE MINUS IF IS A MINUS BRANCH 00295800
  193. 000E00 47F0 C01A 00DBA 128 B LOOPT 00295900
  194. 000E04 FC40 2025 C081 00025 00E21 129 MINUS MP 37(5,2),=P'-1' AND MULTIPLY BY -1 00296000
  195. 000E0A 47F0 C01A 00DBA 130 B LOOPT BRANCH TO LOOP TOP 00297000
  196. 000E0E 5060 4000 00000 131 LOOPE ST 6,0(0,4) LOOP END 00297900
  197. 000E12 5020 3000 00000 132 ST 2,0(0,3) STORE LAST TABLE ADDRESS AT LASTREC 00298000
  198. 133 LTORG 00299000
  199. 000E18 00000046 134 =F'70'
  200. 000E1C 00000001 135 =F'1'
  201. 000E20 60 136 =C'-'
  202. 000E21 1D 137 =P'-1'
  203. 000E24 138 BUILDST DS 18F 00300400
  204. 000E6C 139 CARD DS 80C FOR READING RECORDS 00300501
  205. 000EBC 5C 140 DC C'*' 00300600
  206. 141 *************END BUILD SUBROUTINE******************************* 00300700
  207. 142 *************PRINT SUBROUTINE*********************************** 00300800
  208. 143 * FUNCTION: PRINT EVEN VALS OF TABLE, 6 PER LINE 00300900
  209. 144 * REGISTERS: R1---PARAM LIST 00301000
  210. 145 * R3---TABLE POITNER 00301100
  211. 146 * R4---EOT POINTER/LAST ENTRY POINTER 00301200
  212. 147 * R5---VALUE OF D 00301300
  213. 148 * R6---VALUE OF H 00301400
  214. 149 * R7---VALUE PER LINE COUNTER 00301500
  215. 150 * R8&9-TABLE VALUE IN 32 BIT FORM FOR DIVISION 00301600
  216. 151 * R10--TABLE VALUE STORED FOR XPRNT 00301700
  217. 152 * PSUEDO CODE:<1>SAVE REGISTERS, LOAD PARAM LIST, INTIALIZE COUNTERS 00302100
  218. 153 * <2>ENTER LOOP ,READ TABLE, CHECK FOR EOT 00302200
  219. 1 MATTHEW ROWE, CSCI 360, PROGRAM6 PAGE 5
  220. 0 LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT
  221. 154 * <3>XDECI VAL,INCREMENT TABLE, DIVIDE CHECK REM 00302300
  222. 155 * <4>IF 0 XDECO TO VAR1 & CONT OTHER WISE LOOP TO <2> 00302400
  223. 156 * <5>REPEAT PREVIOUS STEPS 2 &3 UNTIL 7 IS EQUAL TO H 00302500
  224. 157 * THEN BRANCH TO XPRNT, RESET COUNTER LOOP TO TOP 00302600
  225. 158 * <6>ONCE ALL VALUES CHECKED BRANCH TO END AND PRINT 00302700
  226. 159 * REMAINING VALUES 00302800
  227. 160 * <7>RESTORE REGISTERS AND BRANCH BACK TO MAIN 00302900
  228. 161 **************************************************************** 00303800
  229. 1 MATTHEW ROWE, CSCI 360, PROGRAM6 PAGE 6
  230. 0 LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT
  231.  
  232.  
  233.  
  234.  
  235.  
  236. 000EC0 164 PRINT CSECT 00304100
  237. 000EC0 90EC D00C 0000C 165 STM 14,12,12(13) STORE REGISTERS 00304200
  238. 000EC4 18CF 166 LR 12,15 00304300
  239. 000EC0 167 USING PRINT,12 00304500
  240. 000EC6 41E0 C198 01058 168 LA 14,PRINTST 00304600
  241. 000ECA 50ED 0008 00008 169 ST 14,8(13) 00304700
  242. 000ECE 50DE 0004 00004 170 ST 13,4(14) 00304800
  243. 000ED2 18DE 171 LR 13,14 00304900
  244. 000ED4 9836 1000 00000 172 LM 3,6,0(1) LOAD PARAM LIST 00305000
  245. 000ED8 5850 5000 00000 173 L 5,0(0,5) LOAD D VAL 00305100
  246. 000EDC 5860 6000 00000 174 L 6,0(0,6) LOAD H VAL 00305200
  247. 000EE0 5840 4000 00000 175 L 4,0(0,4) LOAD VAL OF EOT 00305300
  248. 000EE4 5870 C190 01050 176 L 7,=F'0' INITIALIZE LINE COUNTER 00305400
  249. 000EE8 9240 C1E1 010A1 177 MVI LINE+1,C' ' DESTRUCTIVE OVERLAP 00305500
  250. 000EEC D252 C1E2 C1E1 010A2 010A1 178 MVC LINE+2(83),LINE+1 CLEAR LINES 00305600
  251. 000EF2 1934 179 LOOPTOP CR 3,4 TEST FOR EOT 00305700
  252. 000EF4 4780 C17C 0103C 180 BC B'1000',LOOPBOT IF TRUE END 00305800
  253. 000EF8 1976 181 CR 7,6 COMPARE LINE COUNTER 00305900
  254. 000EFA 4780 C166 01026 182 BE PRINTX IF EQUAL BRANCH TO XPRNT 00306000
  255. 000EFE 5893 0000 00000 183 L 9,0(3) LOAD CURRENT VAL 00306100
  256. 000F02 5C80 C194 01054 184 M 8,=F'1' 00306200
  257. 000F06 18A9 185 LR 10,9 COPY R9 TO R10 00306300
  258. 000F08 4130 3004 00004 186 LA 3,4(0,3) ADVANCE TABLE POINTER 00306400
  259. 000F0C 1D85 187 DR 8,5 DIVIDE BY D 00306500
  260. 000F0E 5980 C190 01050 188 C 8,=F'0' CHECK REMAINDER 00306600
  261. 000F12 4770 C032 00EF2 189 BNZ LOOPTOP LOOP TO BEGINNING IF FALSE 00306700
  262. 000F16 52A0 C1E1 010A1 190 XDECO 10,VAR1 PREP VAL FOR PRINT 00306800
  263. 000F1A 5A70 C194 01054 191 A 7,=F'1' INCREMENT COUNTER 00306900
  264. 000F1E 1934 192 SAVE1 CR 3,4 CHECK FOR EOT 00307000
  265. 000F20 4780 C17C 0103C 193 BC B'1000',LOOPBOT IF TRUE END 00307100
  266. 000F24 1976 194 CR 7,6 COMPARE LINE COUNTER 00307200
  267. 000F26 4780 C166 01026 195 BE PRINTX IF EQUAL BRANCH TO XPRNT 00307300
  268. 000F2A 5893 0000 00000 196 L 9,0(3) LOAD CURRENT VAL 00307400
  269. 000F2E 5C80 C194 01054 197 M 8,=F'1' SET R8&R9 FOR 32 BIT 00307500
  270. 000F32 18A9 198 LR 10,9 COPY R9 TO R10 00307600
  271. 000F34 4130 3004 00004 199 LA 3,4(0,3) ADVANCE TABLE POINTER 00307700
  272. 000F38 1D85 200 DR 8,5 DIVIDE BY D 00307800
  273. 000F3A 5980 C190 01050 201 C 8,=F'0' CHECK REMAINDER 00307900
  274. 000F3E 4770 C05E 00F1E 202 BNZ SAVE1 LOOP TO SAVE1 IF FALSE 00308000
  275. 000F42 52A0 C1ED 010AD 203 XDECO 10,VAR2 PREP VAL FOR PRINT 00308100
  276. 000F46 5A70 C194 01054 204 A 7,=F'1' INCREMENT COUNTER 00308200
  277. 000F4A 1934 205 SAVE2 CR 3,4 CHECK FOR EOT 00308300
  278. 000F4C 4780 C17C 0103C 206 BC B'1000',LOOPBOT IF TRUE END 00308400
  279. 000F50 1976 207 CR 7,6 COMPARE LINE COUNTER 00308500
  280. 000F52 4780 C166 01026 208 BE PRINTX IF EQUAL BRANCH TO XPRNT 00308600
  281. 000F56 5893 0000 00000 209 L 9,0(3) LOAD CURRENT VAL 00308700
  282. 000F5A 5C80 C194 01054 210 M 8,=F'1' SET R8&R9 FOR 32 BIT 00308800
  283. 000F5E 18A9 211 LR 10,9 COPY R9 TO R10 00309000
  284. 000F60 4130 3004 00004 212 LA 3,4(0,3) ADVANCE TABLE POINTER 00310000
  285. 000F64 1D85 213 DR 8,5 DIVIDE BY D 00311000
  286. 000F66 5980 C190 01050 214 C 8,=F'0' CHECK REMAINDER 00311100
  287. 000F6A 4770 C08A 00F4A 215 BNZ SAVE2 LOOP TO SAVE2 IF FALSE 00311200
  288. 1 MATTHEW ROWE, CSCI 360, PROGRAM6 PAGE 7
  289. 0 LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT
  290. 000F6E 52A0 C1F9 010B9 216 XDECO 10,VAR3 PREP VAL FOR PRINT 00311300
  291. 000F72 5A70 C194 01054 217 A 7,=F'1' INCREMENT COUNTER 00311400
  292. 000F76 1934 218 SAVE3 CR 3,4 CHECK FOR EOT 00311500
  293. 000F78 4780 C17C 0103C 219 BC B'1000',LOOPBOT IF TRUE END 00311600
  294. 000F7C 1976 220 CR 7,6 COMPARE LINE COUNTER 00311700
  295. 000F7E 4780 C166 01026 221 BE PRINTX IF EQUAL BRANCH TO XPRNT 00311800
  296. 000F82 5893 0000 00000 222 L 9,0(3) LOAD CURRENT VAL 00312000
  297. 000F86 5C80 C194 01054 223 M 8,=F'1' SET R8&R9 FOR 32 BIT 00312100
  298. 000F8A 18A9 224 LR 10,9 COPY R9 TO R10 00312200
  299. 000F8C 4130 3004 00004 225 LA 3,4(0,3) ADVANCE TABLE POINTER 00312300
  300. 000F90 1D85 226 DR 8,5 DIVIDE BY D 00312400
  301. 000F92 5980 C190 01050 227 C 8,=F'0' CHECK REMAINDER 00312500
  302. 000F96 4770 C0B6 00F76 228 BNZ SAVE3 LOOP TO SAVE3 IF FALSE 00312600
  303. 000F9A 52A0 C205 010C5 229 XDECO 10,VAR4 PREP VAL FOR PRINT 00312700
  304. 000F9E 5A70 C194 01054 230 A 7,=F'1' INCREMENT COUNTER 00312800
  305. 000FA2 1934 231 SAVE4 CR 3,4 CHECK FOR EOT 00312900
  306. 000FA4 4780 C17C 0103C 232 BC B'1000',LOOPBOT IF TRUE END 00313000
  307. 000FA8 1976 233 CR 7,6 COMPARE LINE COUNTER 00313100
  308. 000FAA 4780 C166 01026 234 BE PRINTX IF EQUAL BRANCH TO XPRNT 00313200
  309. 000FAE 5893 0000 00000 235 L 9,0(3) LOAD CURRENT VAL 00313400
  310. 000FB2 5C80 C194 01054 236 M 8,=F'1' SET R8&R9 FOR 32 BIT 00313500
  311. 000FB6 18A9 237 LR 10,9 COPY R9 TO R10 00313600
  312. 000FB8 4130 3004 00004 238 LA 3,4(0,3) ADVANCE TABLE POINTER 00313700
  313. 000FBC 1D85 239 DR 8,5 DIVIDE BY D 00313800
  314. 000FBE 5980 C190 01050 240 C 8,=F'0' CHECK REMAINDER 00313900
  315. 000FC2 4770 C0E2 00FA2 241 BNZ SAVE4 LOOP TO SAVE4 IF FALSE 00314000
  316. 000FC6 52A0 C211 010D1 242 XDECO 10,VAR5 PREP VAL FOR PRINT 00314100
  317. 000FCA 5A70 C194 01054 243 A 7,=F'1' INCREMENT COUNTER 00314200
  318. 000FCE 1934 244 SAVE5 CR 3,4 CHECK FOR EOT 00314300
  319. 000FD0 4780 C17C 0103C 245 BC B'1000',LOOPBOT IF TRUE END 00314400
  320. 000FD4 1976 246 CR 7,6 COMPARE LINE COUNTER 00314500
  321. 000FD6 4780 C166 01026 247 BE PRINTX IF EQUAL BRANCH TO XPRNT 00314600
  322. 000FDA 5893 0000 00000 248 L 9,0(3) LOAD CURRENT VAL 00314800
  323. 000FDE 5C80 C194 01054 249 M 8,=F'1' SET R8&R9 FOR 32 BIT 00314900
  324. 000FE2 18A9 250 LR 10,9 COPY R9 TO R10 00315000
  325. 000FE4 4130 3004 00004 251 LA 3,4(0,3) ADVANCE TABLE POINTER 00315100
  326. 000FE8 1D85 252 DR 8,5 DIVIDE BY D 00315200
  327. 000FEA 5980 C190 01050 253 C 8,=F'0' CHECK REMAINDER 00315300
  328. 000FEE 4770 C10E 00FCE 254 BNZ SAVE5 LOOP TO SAVE5 IF FALSE 00315400
  329. 000FF2 52A0 C21D 010DD 255 XDECO 10,VAR6 PREP VAL FOR PRINT 00315500
  330. 000FF6 5A70 C194 01054 256 A 7,=F'1' INCREMENT COUNTER 00315600
  331. 000FFA 1934 257 SAVE6 CR 3,4 CHECK FOR EOT 00315700
  332. 000FFC 4780 C17C 0103C 258 BC B'1000',LOOPBOT IF TRUE END 00315800
  333. 001000 1976 259 CR 7,6 COMPARE LINE COUNTER 00315900
  334. 001002 4780 C166 01026 260 BE PRINTX IF EQUAL BRANCH TO XPRNT 00316000
  335. 001006 5893 0000 00000 261 L 9,0(3) LOAD CURRENT VAL 00316200
  336. 00100A 5C80 C194 01054 262 M 8,=F'1' SET R8&R9 FOR 32 BIT 00316300
  337. 00100E 18A9 263 LR 10,9 COPY R9 TO R10 00316400
  338. 001010 4130 3004 00004 264 LA 3,4(0,3) ADVANCE TABLE POINTER 00316500
  339. 001014 1D85 265 DR 8,5 DIVIDE BY D 00316600
  340. 001016 5980 C190 01050 266 C 8,=F'0' CHECK REMAINDER 00316700
  341. 00101A 4770 C13A 00FFA 267 BNZ SAVE6 LOOP TO SAVE6 IF FALSE 00316800
  342. 00101E 52A0 C229 010E9 268 XDECO 10,VAR7 PREP VAL FOR PRINT 00316900
  343. 001022 5A70 C194 01054 269 A 7,=F'1' INCREMENT COUNTER 00317000
  344. 001026 E020 C1E0 0055 010A0 270 PRINTX XPRNT LINE,85 PRINT VALS 00317100
  345. 00102C 9240 C1E1 010A1 271 MVI LINE+1,C' ' DESTRUTIVE OVERLAP 00317200
  346. 001030 D252 C1E2 C1E1 010A2 010A1 272 MVC LINE+2(83),LINE+1 00317300
  347. 1 MATTHEW ROWE, CSCI 360, PROGRAM6 PAGE 8
  348. 0 LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT
  349. 001036 1B77 273 SR 7,7 00317400
  350. 001038 47F0 C032 00EF2 274 B LOOPTOP START NEXT LINE 00317500
  351. 00103C 275 LOOPBOT DS 0H 00317600
  352. 00103C E020 C1E0 0055 010A0 276 XPRNT LINE,85 PRINT VALS 00317700
  353. 001042 58DD 0004 00004 277 L 13,4(13) 00317800
  354. 001046 98EC D00C 0000C 278 LM 14,12,12(13) EXIT LINKAGE 00317900
  355. 00104A 07FE 279 BR 14 BRANCH TO MAIN 00318000
  356. 280 ***************PRINT SUBROUTINE CONST'S***************************** 00318100
  357. 281 LTORG 00318200
  358. 001050 00000000 282 =F'0'
  359. 001054 00000001 283 =F'1'
  360. 001058 284 PRINTST DS 18F 00318300
  361. 0010A0 F0 285 LINE DC C'0' 00318400
  362. 0010A1 286 VAR1 DS 7C 00318500
  363. 0010A8 4040404040 287 DC 5C' ' 00318600
  364. 0010AD 288 VAR2 DS 7C 00318700
  365. 0010B4 4040404040 289 DC 5C' ' 00318800
  366. 0010B9 290 VAR3 DS 7C 00318900
  367. 0010C0 4040404040 291 DC 5C' ' 00319000
  368. 0010C5 292 VAR4 DS 7C 00319100
  369. 0010CC 4040404040 293 DC 5C' ' 00319200
  370. 0010D1 294 VAR5 DS 7C 00319300
  371. 0010D8 4040404040 295 DC 5C' ' 00319400
  372. 0010DD 296 VAR6 DS 7C 00319500
  373. 0010E4 4040404040 297 DC 5C' ' 00319600
  374. 0010E9 298 VAR7 DS 7C 00319700
  375. 0010F0 4040404040 299 DC 5C' ' 00319800
  376. 300 *************END PRINT SUBROUTINE****************************** 00319900
  377. 301 *************SORT SUBROUTINE *********************************** 00320000
  378. 302 * FUNCTION: SORT TABLE IN DECENDING ORDER 00320100
  379. 303 * REGISTER USAGE: 00320200
  380. 304 * 1 - USED BY XDECI / PARAM LIST ADDR 00320300
  381. 305 * 2 - PARAM LIST, TABLE 00320400
  382. 306 * 3 - PARAM LIST, EOT 00320500
  383. 307 * 5 - J PTR 00320700
  384. 308 * 6 - MIN PTR 00320800
  385. 309 * 7 - VALUE OF J 00320900
  386. 310 * 8 - VALUE OF MAX 00321000
  387. 311 * 9 - VALUE OF I 00321100
  388. 312 * 10 - SUBROUTINE RETURN ADDRESS 00321200
  389. 313 * 11 - TEMPT 00321300
  390. 314 * PSEUDO CODE: 00321400
  391. 315 * <1> LOAD 1ST ADDRESS AND NEXT ADRESS STORE START IN R6 00321500
  392. 316 * <2> LOAD VALS AND COMPARE, IF 2ND IS LARGER, SWITCH 00321600
  393. 317 * VALUES AND ADVANCE TO SECOD TABLE POSITION, ELSE 00321700
  394. 318 * MOVE THROUGH EACH VAL UNTIL WE FIND A LARGER VAL 00321800
  395. 319 * <3> REPEAT FROM BEGINNING UNTIL ALL ITEMS ARE SORTED 00321900
  396. 320 * <4> RETURN TO MAIN 00322000
  397. 321 ***************************************************************** 00322100
  398.  
  399.  
  400.  
  401. 0010F8 323 SORT CSECT 00322300
  402. 0010F8 90EC D00C 0000C 324 STM 14,12,12(13) 00322400
  403. 0010FC 18CF 325 LR 12,15 00322500
  404. 0010F8 326 USING SORT,12 00322600
  405. 0010FE 41E0 C068 01160 327 LA 14,SORTST 00322700
  406. 1 MATTHEW ROWE, CSCI 360, PROGRAM6 PAGE 9
  407. 0 LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT
  408. 001102 50ED 0008 00008 328 ST 14,8(13) 00322800
  409. 001106 50DE 0004 00004 329 ST 13,4(14) 00322900
  410. 00110A 18DE 330 LR 13,14 00323000
  411. 00110C 9823 1000 00000 331 LM 2,3,0(1) UNLOAD PARAM LIST 00323100
  412. 001110 5923 0000 00000 332 LOOP1 C 2,0(3) CHECK FOR EOT 00323200
  413. 001114 47B0 C05E 01156 333 BNL END1 IF IS EOT END 00323300
  414. 001118 1862 334 LR 6,2 MAX = IRGE = I 00323400
  415. 00111A 4152 0004 00004 335 LA 5,4(2) J = I + 1 00323500
  416. 00111E 5953 0000 00000 336 LOOP2 C 5,0(3) CHECK FOR EOT 00323600
  417. 001122 47B0 C046 0113E 337 BNL END2 IS 5 EOT 00323700
  418. 001126 5875 0000 00000 338 L 7,0(5) LOAD J VALUE 00323800
  419. 00112A 5886 0000 00000 339 L 8,0(6) LOAD MAX VALUE 00323900
  420. 00112E 1987 340 CR 8,7 COMPARE MAX < J 00324000
  421. 001130 47B0 C03E 01136 341 BNL ENDIF J COMPARED TO I 00324100
  422. 001134 1865 342 LR 6,5 MAX = J 00324200
  423. 001136 5A50 C0B0 011A8 343 ENDIF A 5,=F'4' INCREMENT J PTR 00324300
  424. 00113A 47F0 C026 0111E 344 B LOOP2 REPEAT LOOP2 00324400
  425. 00113E 5892 0000 00000 345 END2 L 9,0(2) LOAD I VALUE 00324500
  426. 001142 5886 0000 00000 346 L 8,0(6) LOAD MAX VALUE 00324600
  427. 001146 5090 6000 00000 347 ST 9,0(0,6) SWAP VALUES 00324700
  428. 00114A 5080 2000 00000 348 ST 8,0(0,2) SWITCH VALUES 9 AT 6 00324800
  429. 00114E 5A20 C0B0 011A8 349 A 2,=F'4' INCREMENT I PTR 2 00324900
  430. 001152 47F0 C018 01110 350 B LOOP1 REPEAT LOOP1 00325000
  431. 001156 351 END1 DS 0H INCREMENT TABLE/I 00325100
  432. 001156 58DD 0004 00004 352 L 13,4(13) 00325200
  433. 00115A 98EC D00C 0000C 353 LM 14,12,12(13) EXIT LINKAGE 00325300
  434. 00115E 07FE 354 BR 14 BRANCH TO MAIN 00325400
  435. 001160 355 SORTST DS 18F 00325500
  436. 356 LTORG 00325600
  437. 0011A8 00000004 357 =F'4'
  438. 358 *************END SORT SUBROUTINE ******************************* 00325700
  439. 359 END MAIN 00325800
  440. 0*** 3 STATEMENTS FLAGGED - NO WARNINGS, 3 ERRORS
  441. 0***** NUMBER OF ERRORS EXCEEDS LIMIT OF NO ERRORS - PROGRAM EXECUTION DELETED *****
  442. 0*** DYNAMIC CORE AREA USED: LOW: 22820 HIGH: 1292 LEAVING: 469456 FREE BYTES. AVERAGE: 66 BYTES/STMT ***
  443. 0*** ASSEMBLY TIME = 0.001 SECS, 360000 STATEMENTS/SEC ***
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!