LABEL 000000000LINE 00183314?USER=LANZA ;COMPILE CASESW /PAULROSE NO 85410800 ALGOL ALGOL /CASESW ________________________________________________________________________________________________________________________ BURROUGHS B-5700 ALGOL COMPILER MARK XIII.0 THURSDAY, 11/10/83, 12:16 PM. % CASE VS. SWITCH 10/01/70 ROSE & PK 00002000 0000 BEGIN 00003000 0000 START OF SEGMENT ********** 2 INTEGER I, J, K; 00004000 0000 FILE OUT PR 18 (2,15); 00005000 0000 BEGIN %%% INNER BLOCK %%% 00006000 0003 REAL X, Y, Z; 00007000 0003 START OF SEGMENT ********** 3 LABEL L1, L2, L3; 00008000 0000 SWITCH S ~ L1, L2, L3; 00008500 0000 ALPHA ARRAY A[0:I], B[0:2|I+1]; 00009000 0004 FORMAT F1 (X20,O,X5,2O); 00010000 0013 START OF SEGMENT ********** 4 4 IS 7 LONG, NEXT SEG 3 00011000 0013 STREAM PROCEDURE MOVEPRT (PRT25, A, N1, N2); 00012000 0013 VALUE N1, N2; 00013000 0013 BEGIN 00014000 0013 SI ~ PRT25; 8(SI ~ SI - 21); 00015000 0014 DI ~ A; 00016000 0015 N1(2(DS ~ 32 WDS)); N2(DS ~ WDS); 00017000 0015 END MOVEPRT; 00018000 0018 00019000 0019 STREAM PROCEDURE BINOCT (N1, N2, S, D); 00020000 0019 VALUE N1, N2; 00021000 0019 BEGIN 00022000 0019 SI ~ S; 00023000 0019 DI ~ D; 00024000 0019 N1(32(32(DS~ 3 RESET; 3(IF SB THEN DS ~ SET ELSE DS ~ RESET; 00025000 0019 SKIP SB)))); 00026000 0022 N2(16(DS ~ 3 RESET; 3(IF SB THEN DS ~ SET ELSE DS ~ RESET; 00027000 0024 SKIP SB))); 00028000 0027 END BINOCT; 00029000 0028 00030000 0028 L1: 00031000 0028 J ~ 3; GO TO S[J]; 00032000 0029 L2: 00033000 0031 CASE J MOD 10 OF 00034000 0032 BEGIN 00035000 0032 J ~ 3; 00036000 0033 K ~ J; 00037000 0034 X ~ K +J; 00038000 0035 Y ~ X ~ SQRT(X); 00039000 0037 ; 00040000 0039 Z ~ 2|Y + 6.0; 00041000 0039 ; 00042000 0042 K ~ 5000; 00043000 0042 END CASE; 00044000 0043 START OF SEGMENT ********** 5 5 IS 8 LONG, NEXT SEG 3 L3: 00045000 0043 MOVEPRT (I, A[*], I DIV 64, (K ~ I MOD 64)); 00046000 0044 BINOCT (I DIV 64, (K ~ I MOD 64), A[*], B[*]); 00047000 0047 FOR J ~ 0 STEP 1 UNTIL I DO 00048000 0050 BEGIN 00049000 0054 BINOCT (0, 1, J, Y); 00050000 0054 WRITE (PR, F1, Z, B[J|2], B[J|2+1]); 00051000 0055 END; 00052000 0068 END INNER BLOCK; 00053000 0070 3 IS 74 LONG, NEXT SEG 2 END. 00054000 0004 2 IS 7 LONG, NEXT SEG 1 PRT(43) = SQRT INTRINSIC, SEGMENT NUMBER = 6. PRT(46) = OUTPUT(W) INTRINSIC, SEGMENT NUMBER = 7. PRT(5) = BLOCK CONTROL INTRINSIC, SEGMENT NUMBER = 8. PRT(14) = ALGOL WRITE INTRINSIC, SEGMENT NUMBER = 9. PRT(15) = ALGOL READ INTRINSIC, SEGMENT NUMBER = 10. PRT(16) = ALGOL SELECT INTRINSIC, SEGMENT NUMBER = 11. 1 IS 2 LONG, NEXT SEG 0 12 IS 69 LONG, NEXT SEG 0 NUMBER OF ERRORS DETECTED = 0. COMPILATION TIME = 8 SECONDS. PRT SIZE = 40; TOTAL SEGMENT SIZE = 167 WORDS; DISK SIZE = 15 SEGS; NO. PGM. SEGS = 12 ESTIMATED CORE STORAGE REQUIRED = 2796 WORDS. ESTIMATED AUXILIARY MEMORY REQUIRED = 0 WORDS. ________________________________________________________________________________________________________________________ LABEL 000000000LINE 00183314?USER=LANZA ;COMPILE CASESW /PAULROSE NO 85410800 ALGOL ALGOL /CASESW ________________________________________________________________________________________________________________________ LABEL 000000000PR 00183314?USER=LANZA ;COMPILE CASESW /PAULROSE NO 85410800 ALGOL CASESW /PAULROS ________________________________________________________________________________________________________________________ 00000000 2525252525252525 00000001 0000000000000000 00000002 5000000000000000 00000003 5000050000005164 00000004 5000000000005124 00000005 7540100001042033 00000006 5000400750651164 00000007 6007510647400000 00000010 6000000000106506 00000011 0000000000000000 00000012 5017770647207500 00000013 4000100751300000 00000014 6540110001100000 00000015 6540120001200000 00000016 6540130001300000 00000017 0000000000000000 00000020 0000000000000002 00000021 0000000000000003 00000022 7740010000105173 00000023 0000000000000000 00000024 7500470000251233 00000025 0000000000000144 00000026 0000000000000003 00000027 0000000000000044 00000030 5000350753005613 00000031 7600450000351160 00000032 0000000000000000 00000033 0000000000000000 00000034 0000000000000000 00000035 5001450753510460 00000036 4003120753600000 00000037 6640040000400000 00000040 7740030000351066 00000041 7700400000351073 00000042 6640050000500000 00000043 6540060000600000 00000044 6640140001400000 00000045 7400410000351143 00000046 6540070000700000 00000047 7640020000251232 00000050 7740020000263021 00000051 7700500000263023 00000052 7700510000263026 00000053 7700520000263036 00000054 7606270000342027 00000055 0000000000000000 00000056 0000000000000000 00000057 7505530000341770 00000060 0000000000000000 00000061 0000000000000247 00000062 0000000000000000 00000063 0000000000000000 00000064 0000000000000000 00000065 0000000000000000 00000066 0000000000000000 00000067 0000000000000000 00000070 0000000000000001 00000071 0000000000000000 00000072 0000000000000000 00000073 0000000000000000 00000074 0000000000000000 00000075 0000000000000000 00000076 0000000000000001 00000077 0000000000000000 00000100 0000000000000000 00000101 0000000000000000 00000102 0000000012071021 00000103 0000000000000006 00000104 0000000000000000 00000105 0000000000000000 00000106 0000000000000000 00000107 0000000000000000 00000110 0000000000000001 00000111 0000032545240000 00000112 0000000000000000 00000113 0000000000000034 00000114 0000000000000066 00000115 0000000000000062 00000116 0000000000000055 00000117 0000000000011203 00000120 0000000000411203 00000121 0000000000011214 00000122 0000000000000000 00000123 0000000000000000 00000124 0000000000000000 00000125 0000000000000000 00000126 0000000000000000 00000127 0000000000000002 00000130 0000000000000062 00000131 0000000000000000 00000132 0000000000411001 00000133 0000000000010777 00000134 0000000000000000 00000135 0000000000000034 00000136 0000000000000015 00000137 0000000000000014 00000140 0000000000000000 00000141 2000000646710456 00000142 0000000061317024 00000143 0000000000005766 00000144 0000000000000000 ________________________________________________________________________________________________________________________ LABEL 000000000PR 00183314?USER=LANZA ;COMPILE CASESW /PAULROSE NO 85410800 ALGOL CASESW /PAULROS ________________________________________________________________________________________________________________________