LABEL 000000000LINE 00183310?USER=LANZA ;COMPILE CASESW /PAULROSE NO 85410800 ALGOL ALGOL /CASESW ________________________________________________________________________________________________________________________ BURROUGHS B-5700 ALGOL COMPILER MARK XIII.0 SUNDAY, 11/06/83, 6:19 AM. % CASE VS. SWITCH 10/01/70 ROSE & PK 00002000 0000 BEGIN 00003000 0000 0000 LITC 0000 0000 0001 MKS 0441 PRT(22) = *LIST, LABEL, OR SEGMENT DESCRIPTOR* PRT(22) = SEGMENT DESCRIPTOR, TYPE = 3, RELATIVE ADDRESS = 0000, SEGMENT NUMBER = 0001. PRT(23) = *OUTER BLOCK DESCRIPTOR* PRT(24) = *SEGMENT DESCRIPTOR* 0002 OPDC 0024 0122 0003 BFW 4231 START OF SEGMENT ********** 2 INTEGER I, J, K; 00004000 0000 PRT(25) = I PRT(26) = J PRT(27) = K FILE OUT PR 18 (2,15); 00005000 0000 PRT(30) = PR 0000 MKS 0441 0001 LITC 0000 0000 0002 LITC 0000 0000 0003 LITC 0003 0014 0004 LITC 0001 0004 0005 DESC 0030 0143 0006 LITC 0002 0010 0007 LITC 0001 0004 0010 LITC 0017 0074 0011 LITC 0000 0000 0012 LITC 0000 0000 0013 LITC 0012 0050 0014 LITC 0010 0040 0015 OPDC 0005 0026 BEGIN %%% INNER BLOCK %%% 00006000 0003 REAL X, Y, Z; 00007000 0003 PRT(31) = *SEGMENT DESCRIPTOR* 0016 OPDC 0031 0146 0017 BFW 4231 START OF SEGMENT ********** 3 PRT(32) = X PRT(33) = Y PRT(34) = Z LABEL L1, L2, L3; 00008000 0000 SWITCH S ~ L1, L2, L3; 00008500 0000 0000 LITC 0000 0000 0001 OPDC 0021 0106 0002 GEQ 0125 0003 OPDC 0021 0106 0005 GTR 0225 0006 LOR 0215 0007 OPDC 0021 0106 0010 DUP 2025 0011 ADD 0101 0012 BFC 0231 0015 LITC 0000 0000 0016 OPDC 0252 1252 0017 LITC 0000 0000 0020 DIA 12 1255 0021 LITC 0000 0000 0022 LITC 0254 1260 0004 LITC 0003 0014 ALPHA ARRAY A[0:I], B[0:2|I]; 00009000 0004 0023 NOP 0055 0024 MKS 0441 PRT(35) = A 0025 LITC 0000 0000 0026 LITC 0035 0164 0027 STD 0421 0030 DESC 0035 0167 0031 OPDC 0025 0126 0032 LITC 0021 0104 0033 ISN 4221 0034 LITC 0001 0004 0035 ADD 0101 0036 LITC 0001 0004 0037 LITC 0001 0004 0040 LITC 0000 0000 0041 OPDC 0005 0026 0042 MKS 0441 PRT(36) = B 0043 LITC 0000 0000 0044 LITC 0036 0170 0045 STD 0421 0046 DESC 0036 0173 0047 LITC 0002 0010 0050 OPDC 0025 0126 0051 MUL 0401 0052 LITC 0021 0104 0053 ISN 4221 0054 LITC 0001 0004 0055 ADD 0101 0056 LITC 0001 0004 0057 LITC 0001 0004 0060 LITC 0000 0000 0061 OPDC 0005 0026 FORMAT F1 (X20,O,X5,2O); 00010000 0012 START OF SEGMENT ********** 4 PRT(37) = F1 PRT(37) = SEGMENT DESCRIPTOR, TYPE = 2, RELATIVE ADDRESS = 0000, SEGMENT NUMBER = 0004. 0000 2400000000002000 0001 0224000000050001 0002 1410000000000001 0003 0205000000012001 0004 1410000000000002 0005 2600000000000001 0000 2400000000014000 0006 2000000000000006 4 IS 7 LONG, NEXT SEG 3 00011000 0012 STREAM PROCEDURE MOVEPRT (PRT25, A, N1, N2); 00012000 0012 PRT(40) = MOVEPRT VALUE N1, N2; 00013000 0012 BEGIN 00014000 0012 PRT(40) = SEGMENT DESCRIPTOR, TYPE = 3, RELATIVE ADDRESS = 0064, SEGMENT NUMBER = 0003. SI ~ LOC PRT25; SI ~ SI - 21; 00015000 0013 0064 SES 0004 0422 0065 SRS 0025 2530 DI ~ A; 00016000 0013 0066 RDA 0003 0304 N1(2(DS ~ 32 WDS)); N2(DS ~ WDS); 00017000 0013 0067 CRF 0002 0243 0070 BNS 0000 0052 0071 NOP 0000 0001 0072 NOP 0000 0001 0073 BNS 0002 0252 0074 TRW 0040 4005 0075 ENS 0000 0051 0076 ENS 0000 0051 0067 NOP 0000 0001 0070 NOP 0000 0001 0071 CRF 0002 0243 0072 BNS 0004 0452 0077 CRF 0001 0143 0100 BNS 0000 0052 0101 NOP 0000 0001 0102 NOP 0000 0001 0103 TRW 0001 0105 0104 ENS 0000 0051 0077 NOP 0000 0001 0100 NOP 0000 0001 0101 CRF 0001 0143 0102 BNS 0002 0252 END MOVEPRT; 00018000 0017 0105 EXC 0000 0000 00019000 0017 STREAM PROCEDURE BINOCT (N1, N2, S, D); 00020000 0017 PRT(41) = BINOCT VALUE N1, N2; 00021000 0017 BEGIN 00022000 0017 0106 NOP 0000 0001 0107 NOP 0000 0001 PRT(41) = SEGMENT DESCRIPTOR, TYPE = 3, RELATIVE ADDRESS = 0110, SEGMENT NUMBER = 0003. SI ~ S; 00023000 0018 0110 RSA 0002 0253 DI ~ D; 00024000 0018 0111 RDA 0001 0104 N1(32(32(DS~ 3 RESET; 3(IF SB THEN DS ~ SET ELSE DS ~ RESET; 00025000 0018 0112 CRF 0004 0443 0113 BNS 0000 0052 0114 NOP 0000 0001 0115 NOP 0000 0001 0116 BNS 0040 4052 0117 BNS 0040 4052 0120 BIR 0003 0365 0121 BNS 0003 0352 0122 BIT 0001 0137 0123 JFC 0000 0045 0124 BIS 0001 0164 0125 JFW 0000 0047 0123 JFC 0002 0245 0126 BIR 0001 0165 0125 JFW 0001 0147 SKIP SB)))); 00026000 0021 0127 BSS 0001 0103 0130 ENS 0000 0051 0131 ENS 0000 0051 0132 ENS 0000 0051 0133 ENS 0000 0051 0112 NOP 0000 0001 0113 NOP 0000 0001 0114 CRF 0004 0443 0115 BNS 0016 1652 N2(16(DS ~ 3 RESET; 3(IF SB THEN DS ~ SET ELSE DS ~ RESET; 00027000 0023 0134 CRF 0003 0343 0135 BNS 0000 0052 0136 NOP 0000 0001 0137 NOP 0000 0001 0140 BNS 0020 2052 0141 BIR 0003 0365 0142 BNS 0003 0352 0143 BIT 0001 0137 0144 JFC 0000 0045 0145 BIS 0001 0164 0146 JFW 0000 0047 0144 JFC 0002 0245 0147 BIR 0001 0165 0146 JFW 0001 0147 SKIP SB))); 00028000 0026 0150 BSS 0001 0103 0151 ENS 0000 0051 0152 ENS 0000 0051 0153 ENS 0000 0051 0134 NOP 0000 0001 0135 NOP 0000 0001 0136 CRF 0003 0343 0137 BNS 0014 1452 END BINOCT; 00029000 0027 0154 EXC 0000 0000 00030000 0027 L1: 00031000 0027 0155 NOP 0055 0156 NOP 0055 0157 NOP 0055 0062 LITC 0020 0100 0063 LFU 6231 J ~ 3; GO TO S[J]; 00032000 0028 0160 LITC 0003 0014 0161 LITC 0026 0130 0162 ISD 4121 0163 OPDC 0026 0132 0164 LITC 0021 0104 0165 ISD 4121 0166 LITC 0035 0164 0167 LBU 6131 0013 LITC 0156 0670 0014 BFW 4231 0170 NOP 0055 0171 NOP 0055 0172 NOP 0055 L2: 00033000 0030 0173 NOP 0055 CASE J MOD 10 OF 00034000 0031 0174 OPDC 0026 0132 0175 LITC 0012 0050 0176 RDV 7001 BEGIN 00035000 0031 PRT(42) = *CASE STATEMENT DESCRIPTOR* 0177 OPDC 0042 0212 0200 BFW 4231 J ~ 3; 00036000 0032 0201 LITC 0003 0014 0202 LITC 0026 0130 0203 ISD 4121 0204 LITC 0000 0000 K ~ J; 00037000 0033 0206 OPDC 0026 0132 0207 LITC 0027 0134 0210 ISD 4121 0211 OPDC 0041 0206 X ~ K +J; 00038000 0034 0213 OPDC 0027 0136 0214 OPDC 0026 0132 0215 ADD 0101 0216 LITC 0032 0150 0217 STD 0421 0220 DESC 0042 0213 Y ~ X ~ SQRT(X); 00039000 0036 0222 MKS 0441 0223 OPDC 0032 0152 PRT(43) = SQRT 0224 OPDC 0043 0216 0225 LITC 0032 0150 0226 SND 1021 0227 LITC 0033 0154 0230 STD 0421 0231 OPDC 0044 0222 ; 00040000 0038 Z ~ 2|Y + 6.0; 00041000 0038 0233 LITC 0002 0010 0234 OPDC 0033 0156 0235 MUL 0401 0236 DESC 1777 7777 0237 ADD 0101 0240 LITC 0034 0160 0241 STD 0421 0242 DESC 0046 0233 ; 00042000 0041 K ~ 5000; 00043000 0041 0244 DESC 1777 7777 0245 LITC 0027 0134 0246 ISD 4121 0247 LITC 0051 0244 END CASE; 00044000 0042 START OF SEGMENT ********** 5 PRT(42) = SEGMENT DESCRIPTOR, TYPE = 2, RELATIVE ADDRESS = 0000, SEGMENT NUMBER = 0005. 5 IS 8 LONG, NEXT SEG 3 0247 LITC 0000 0000 0250 BFW 4231 0242 LITC 0005 0024 0243 BFW 4231 0231 LITC 0016 0070 0232 BFW 4231 0220 LITC 0027 0134 0221 BFW 4231 0211 LITC 0036 0170 0212 BFW 4231 0204 LITC 0043 0214 0205 BFW 4231 L3: 00045000 0042 0251 NOP 0055 0252 NOP 0055 0253 NOP 0055 MOVEPRT (I, A[*], I DIV 64, I MOD 64); 00046000 0043 0254 MKS 0441 0255 DESC 0025 0127 0256 LITC 0035 0164 0257 LOD 2021 0260 OPDC 0025 0126 0261 LITC 0100 0400 0262 IDV 3001 0263 OPDC 0025 0126 0264 LITC 0100 0400 0265 RDV 7001 0266 OPDC 0040 0202 BINOCT (I DIV 64, I MOD 64, A[*], B[*]); 00047000 0045 0267 MKS 0441 0270 OPDC 0025 0126 0271 LITC 0100 0400 0272 IDV 3001 0273 OPDC 0025 0126 0274 LITC 0100 0400 0275 RDV 7001 0276 LITC 0035 0164 0277 LOD 2021 0300 LITC 0036 0170 0301 LOD 2021 0302 OPDC 0041 0206 FOR J ~ 0 STEP 1 UNTIL I DO 00048000 0048 0303 LITC 0000 0000 0306 NOP 0055 0307 NOP 0055 0236 OPDC 1413 6056 0310 1146000000000000 0244 OPDC 1412 6052 0314 0000000000011610 BEGIN 00049000 0052 BINOCT (0, 1, J, Y); 00050000 0052 0320 MKS 0441 0321 LITC 0000 0000 0322 LITC 0001 0004 0323 DESC 0026 0133 0324 DESC 0033 0157 0325 OPDC 0041 0206 WRITE (PR, F1, Y, B[J|2], B[J|2+1]); 00051000 0053 0326 MKS 0441 PRT(44) = 0327 LITC 0044 0220 0330 LOD 2021 0331 LITC 0005 0024 0332 DESC 0030 0143 0333 LITC 0000 0000 0334 LITC 0001 0004 0335 LITC 0000 0000 0336 LITC 0037 0174 0337 LOD 2021 0342 NOP 0055 0343 NOP 0055 PRT(45) = *LIST, LABEL, OR SEGMENT DESCRIPTOR* PRT(45) = SEGMENT DESCRIPTOR, TYPE = 0, RELATIVE ADDRESS = 0344, SEGMENT NUMBER = 0003. 0344 OPDC 0023 0116 0345 BFW 4231 0347 LITC 0023 0114 0350 STD 0421 0351 DESC 0033 0157 0352 RTS 1235 0346 LITC 0005 0024 0354 LITC 0023 0114 0355 STD 0421 0356 OPDC 0026 0132 0357 LITC 0002 0010 0360 MUL 0401 0361 DESC 0036 0173 0362 RTS 1235 0353 LITC 0015 0064 0364 LITC 0023 0114 0365 STD 0421 0366 OPDC 0026 0132 0367 LITC 0002 0010 0370 MUL 0401 0371 LITC 0001 0004 0372 ADD 0101 0373 DESC 0036 0173 0374 RTS 1235 0363 LITC 0027 0134 0375 LITC 0001 0004 0376 CHS 1031 0377 LITC 0023 0114 0400 SND 1021 0401 RTS 1235 0402 NOP 0055 0403 NOP 0055 0340 LITC 0011 0044 0341 LFU 6231 0404 LITC 0045 0224 0405 LOD 2021 0406 DESC 1000 4003 0407 CTF 7425 PRT(46) = OUTPUT(W) 0410 OPDC 0046 0232 END; 00052000 0066 0411 OPDC 0026 0132 0412 LITC 0001 0004 0413 ADD 0101 0304 LITC 0022 0110 0305 LFU 6231 0414 LITC 0026 0130 0415 ISN 4221 0416 OPDC 0025 0126 0417 LEQ 4125 0420 LITC 0000 0000 0417 GTR 0225 0420 LITC 0020 0100 0421 LBC 2131 END INNER BLOCK; 00053000 0068 0422 LITC 0012 0050 0423 COM 1011 PRT(47) = *SEGMENT DESCRIPTOR* 0424 OPDC 0047 0236 0425 BFW 4231 0426 NOP 0055 0427 NOP 0055 0430 OPDC 0020 0102 0431 LITC 0001 0004 0432 ADD 0101 0433 LITC 0020 0100 0434 STD 0421 0015 LITC 0031 0144 0016 LFU 6231 0017 LITC 0033 0154 0020 LFU 6231 0021 LITC 0047 0234 0022 LFU 6231 0435 LITC 0102 0410 0436 LBU 6131 PRT(31) = SEGMENT DESCRIPTOR, TYPE = 2, RELATIVE ADDRESS = 0430, SEGMENT NUMBER = 0003. 3 IS 72 LONG, NEXT SEG 2 PRT(47) = SEGMENT DESCRIPTOR, TYPE = 2, RELATIVE ADDRESS = 0020, SEGMENT NUMBER = 0002. END. 00054000 0004 0020 LITC 0012 0050 0021 COM 1011 0022 XIT 0435 0023 NOP 0055 0024 OPDC 0020 0102 0025 LITC 0001 0004 0026 ADD 0101 0027 LITC 0020 0100 0030 STD 0421 0031 LITC 0000 0000 0032 LITC 0006 0030 0033 LBU 6131 PRT(24) = SEGMENT DESCRIPTOR, TYPE = 1, RELATIVE ADDRESS = 0024, SEGMENT NUMBER = 0002. 2 IS 7 LONG, NEXT SEG 1 PRT(43) = SEGMENT DESCRIPTOR, TYPE = 1, RELATIVE ADDRESS = 0000, SEGMENT NUMBER = 0006. PRT(43) = SQRT INTRINSIC, SEGMENT NUMBER = 6. PRT(46) = SEGMENT DESCRIPTOR, TYPE = 1, RELATIVE ADDRESS = 0000, SEGMENT NUMBER = 0007. PRT(46) = OUTPUT(W) INTRINSIC, SEGMENT NUMBER = 7. PRT(5) = SEGMENT DESCRIPTOR, TYPE = 1, RELATIVE ADDRESS = 0000, SEGMENT NUMBER = 0010. PRT(5) = BLOCK CONTROL INTRINSIC, SEGMENT NUMBER = 8. PRT(14) = SEGMENT DESCRIPTOR, TYPE = 1, RELATIVE ADDRESS = 0000, SEGMENT NUMBER = 0011. PRT(14) = ALGOL WRITE INTRINSIC, SEGMENT NUMBER = 9. PRT(15) = SEGMENT DESCRIPTOR, TYPE = 1, RELATIVE ADDRESS = 0000, SEGMENT NUMBER = 0012. PRT(15) = ALGOL READ INTRINSIC, SEGMENT NUMBER = 10. PRT(16) = SEGMENT DESCRIPTOR, TYPE = 1, RELATIVE ADDRESS = 0000, SEGMENT NUMBER = 0013. PRT(16) = ALGOL SELECT INTRINSIC, SEGMENT NUMBER = 11. 0003 LITC 0005 0024 0004 COM 1011 1 IS 2 LONG, NEXT SEG 0 PRT(44) = SEGMENT DESCRIPTOR, TYPE = 2, RELATIVE ADDRESS = 0000, SEGMENT NUMBER = 0014. 12 IS 69 LONG, NEXT SEG 0 NUMBER OF ERRORS DETECTED = 0. COMPILATION TIME = 24 SECONDS. PRT SIZE = 40; TOTAL SEGMENT SIZE = 165 WORDS; DISK SIZE = 15 SEGS; NO. PGM. SEGS = 12 ESTIMATED CORE STORAGE REQUIRED = 2794 WORDS. ESTIMATED AUXILIARY MEMORY REQUIRED = 0 WORDS. ________________________________________________________________________________________________________________________ LABEL 000000000LINE 00183310?USER=LANZA ;COMPILE CASESW /PAULROSE NO 85410800 ALGOL ALGOL /CASESW ________________________________________________________________________________________________________________________ LABEL 000000000PR 00183310?USER=LANZA ;COMPILE CASESW /PAULROSE NO 85410800 ALGOL CASESW /PAULROS ________________________________________________________________________________________________________________________ 00000000 0000000000000000 00000000 6007510647400000 00000000 5000000000007525 00000000 5001450753510473 00000000 0000000000000001 00000000 1120440000000000 00000000 6003000647650330 00000000 6000000650300000 00000000 6003000650450271 00000000 6002300650350270 00000000 6000010000000000 00000000 0000000000006500 00000000 6001300650701167 00000000 0000000000000000 00000000 0000000000000000 00000000 4001450753500000 00000000 4001450753500000 00000000 0000000000007535 00000000 0000000000010471 00000000 0000000000000145 00000000 0000000000000000 00000000 0000000000000000 00000000 0000000000000000 00000000 0000000000000000 00000000 5000000000006500 00000000 0000000000010473 00000000 0000000000000144 00000000 0000000000000001 00000000 0000000000000000 00000000 6010300652543277 00000000 6000000653200000 00000000 0000000000010471 00000000 0000000077516324 00000000 0000000000010471 00000000 2000000764110640 00000000 2000000646710640 00000000 0000000000007642 00000000 0000000000000775 00000000 0000000000000000 00000000 0000000000000000 00000000 0000000000000000 00000000 0000000000000000 00000000 0000000000000000 00000000 5000000000010471 00000000 0000000077516324 00000000 0000000000005245 00000000 0000000000000035 00000000 0000000000000000 00000000 0000000000000000 00000000 0000000000000000 00000000 0000000000000000 00000000 5000000000006503 00000000 0000000000005247 00000000 0000000000000034 00000000 0000000000000000 00000000 0000000000000000 00000000 6010300656043277 00000000 6000200656243267 00000000 0000000000005245 00000000 0000000003705717 00000000 0000000000005245 00000000 0000000000005105 00000000 0000000000050131 00000000 0000000000005246 00000000 0000000000000000 00000000 0000000000000000 00000000 0000000000000000 00000000 0000000000000000 00000000 0000000000000000 00000000 0000000000000000 00000000 0000000000000000 00000000 0000000000000000 00000000 0000000000000000 00000000 0000000000000000 00000000 0000000000000000 00000000 0000000000000000 00000000 0000000000000000 00000000 0000000000000000 00000000 0000000000000000 00000000 0000000000000000 00000000 0000000000000000 00000000 0000000000000000 00000000 0000000000000000 00000000 0000000000000000 00000000 0000000000000000 00000000 0000000000000000 00000000 0000000000000000 00000000 0000000000000000 00000000 0000000000000000 00000000 0000000000000000 00000000 0000000000000000 00000000 0000000000000000 00000000 0000000000000000 00000000 0000000000000000 00000000 0000000000000000 00000000 0000000000000000 00000000 0000000000000000 00000000 0000000000000000 00000000 0000000000000000 00000000 0000000000000000 ######## -INVALD INDEX CASESW /PAULROS= 1, S = 3, A = 63, 201 GEQ 0 ############################################################### ________________________________________________________________________________________________________________________ LABEL 000000000PR 00183310?USER=LANZA ;COMPILE CASESW /PAULROSE NO 85410800 ALGOL CASESW /PAULROS ________________________________________________________________________________________________________________________