1
0
mirror of https://github.com/pkimpel/retro-220.git synced 2026-03-06 11:03:38 +00:00
Files
Paul Kimpel 83a0b62faf Update BALGOL Library and Examples
1. Correct missing relocation pseudo-op in MONIT Library routine.
2. Rebuild Generator and Compiler tapes.
3. Recompile and generate corrected listings for example programs.
4. Add Simpson's Rule example from Algol-58 Preliminary Report.
2018-08-06 17:59:30 -07:00

795 lines
68 KiB
Plaintext

Unisys ClearPath LX Series SYSTEMS BDMSALGOL COMPILER, VERSION 51.190.8023, THURSDAY, 07/19/2018, 05:15 PM.
( P A U L ) C A N D E / C O D E 2 3 0 0 O N O P S
= = = = = = = = = = = = = = = = = = = = = = = = = = =
BEGIN 00000100 0000:0000:0
(01,0002) = BLOCK#1
(01,0003) = SEGMENT DESCRIPTOR
BLOCK#1 IS SEGMENT 0003
0003:0000:0 NVLD FF
COMMENT SIMPSON-S RULE INTEGRATION PROCEDURE, TRANSLATED TO BALGOL 1 00000200 0003:0000:1
FROM THE EXAMPLE IN THE PRELIMINARY IAL REPORT; 00000300 0003:0000:1
00000400 0003:0000:1
COMMENT 00000500 0003:0000:1
EXAMPLE.. INTEGRATION OF A FUNCTION F(X) BY SIMPSON-S RULE. THE 00000600 0003:0000:1
VALUES OF F(X) ARE SUPPLIED BY AN ASSUMED EXISTENT FUNCTION 00000700 0003:0000:1
ROUTINE. THE MESH SIZE IS HALVED UNTIL TWO SUCCESSIVE SIMPSON 00000800 0003:0000:1
SUMS AGREE WITHIN A PRESCRIBED ERROR. DURING THE MESH REDUCTION 00000900 0003:0000:1
F(X) IS EVALUATED AT MOST ONCE FOR ANY X. A VALUE V GREATER THAN 00001000 0003:0000:1
THE MAXIMUM ABSOLUTE VALUE ATTAINED BY THE FUNCTION ON THE 00001100 0003:0000:1
INTERVAL IS REQUIRED FOR INITIALZING; 00001200 0003:0000:1
00110000 0003:0000:1
FILE LINE(KIND=PRINTER, MAXRECSIZE=132, FRAMESIZE=8, FILEUSE=OUT); 00110100 0003:0000:1
(02,0002) = LINE
DATA POOL AT (02,0002):
0000 010000E02000
0001 08010104D3C9
0002 D5C500000000
0003 0002001D0012
0004 000000000004
0005 000200080011
0006 000000000007
0007 0002000F0011
0008 000000000084
0009 000200A10011
000A 000000000008
000B 0002008E0011
000C 000000000002
000D 000000000000
DATA LENGTH IN WORDS IS 000E
FORMAT F1("SUM = ",F12.5); 00110200 0003:0000:1
(01,0004) = POOL DATA DESCRIPTOR
000000000000010003006008E2E4D4407E4031000100B005060001000000
REAL SUM; 00110300 0003:0000:1
(02,0003) = SUM
LIST RESULT (SUM); 00110400 0003:0000:1
(02,0004) = POOL DATA DESCRIPTOR
0003:0000:1 NVLD FF
0003:0000:2 NVLD FF
0003:0000:3 NVLD FF
(02,0005) = WRITE FREE FIELD IO LIST PCW
(01,0005) = POOL DATA DESCRIPTOR
0003:0000:4 MKST AE
0003:0000:5 NAMC (03,0002) 7002
0003:0001:1 LT8 67 B243
0003:0001:3 ZERO B0
0003:0001:4 VALC (02,0003) 1003
0003:0002:0 ENTR AB
0003:0002:1 EXIT A3
(02,0006) = WRITE FREE ADD STACK INFO
0003:0002:2 NAMC (01,0005) 6005
0003:0002:4 LOAD BD
0003:0002:5 NAMC (03,0002) 7002
0003:0003:1 LOAD BD
0003:0003:2 OVRD BA
0003:0003:3 NAMC (02,0004) 5004
0003:0003:5 LOAD BD
0003:0004:0 NAMC (03,0003) 7003
0003:0004:2 LOAD BD
0003:0004:3 OVRD BA
0003:0004:4 LT8 22 B216
0003:0005:0 RETN A7
(02,0007) = WRITE IO LIST PCW
0003:0005:1 MKST AE
0003:0005:2 NAMC (03,0002) 7002
0003:0005:4 LT8 3 B203
0003:0006:0 VALC (02,0003) 1003
0003:0006:2 ENTR AB
0003:0006:3 EXIT A3
(02,0008) = READ IO LIST PCW
0003:0006:4 MKST AE
0003:0006:5 NAMC (03,0002) 7002
0003:0007:1 LT8 3 B203
0003:0007:3 VALC (02,0003) 1003
0003:0007:5 ENTR AB
0003:0008:0 NAMC (02,0003) 5003
0003:0008:2 STOD B8
0003:0008:3 EXIT A3
00200000 0003:0008:4
REAL PROCEDURE SIMPS(A, B, DELTA, V, F); 00200100 0003:0008:4
(02,0009) = SIMPS
VALUE A, B, DELTA, V; 00200200 0003:0008:4
REAL A, B, DELTA, V; 00200300 0003:0008:4
REAL PROCEDURE F(X); VALUE X; REAL X; FORMAL; 00200400 0003:0008:4
(04,0002) = X
(03,0002) = A
(03,0003) = B
(03,0004) = DELTA
(03,0005) = V
(03,0006) = F
COMMENT A, B ARE THE MIN AND MAX, RESP. OF THE POINTS DEF. 00200500 0003:0008:4
INTERVAL OF INTEG. F() IS THE FUNCTION TO INTEGRATED. 00200600 0003:0008:4
DELTA IS THE PERMISSIBLE DIFFERENCE BETWEEN TO SUCCESSIVE SIMPSON 00200700 0003:0008:4
SUMS. V IS GREATER THAN THE MAXIMUM ABSOLUTE VALUE OF F ON A, B; 00200800 0003:0008:4
BEGIN 00200900 0003:0008:4
(03,0007) = PROCEDURE VALUE
INTEGER K, N; 00201000 0003:0008:4
(01,0006) = SEGMENT DESCRIPTOR
SIMPS IS SEGMENT 0006
0006:0000:0 NVLD FF
(03,0008) = K
(03,0009) = N
REAL H, I, IBAR, J, S; 2 00201100 0006:0000:1
(03,000A) = H
(03,000B) = I
(03,000C) = IBAR
(03,000D) = J
(03,000E) = S
LABEL J1; 00201200 0006:0000:1
MONITOR LINE (IBAR, N, H, J, S K, I); 00201300 0006:0000:1
00201400 0006:0000:1
IBAR:= V*(B-A); 00201500 0006:0000:1
(01,0007) = MONITOR
0006:0000:1 MKST AE
0006:0000:2 NAMC (01,0007) 6007
0006:0000:4 NAMC (03,000C) 700C
0006:0001:0 STFF AF
0006:0001:1 VALC (03,0005) 3005
0006:0001:3 VALC (03,0003) 3003
0006:0001:5 VALC (03,0002) 3002
0006:0002:1 SUBT 81
0006:0002:2 MULT 82
0006:0002:3 XTND CE
0006:0002:4 LT8 2 B202
0006:0003:0 LT48 BE
0006:0004 C9C2C1D94040 (3"6234130166240100")
0006:0005:0 NAMC (02,0002) 5002
0006:0005:2 STFF AF
0006:0005:3 ENTR AB
0006:0005:4 DLET B5
N:= 1; 00201600 0006:0005:5
0006:0005:5 MKST AE
0006:0006:0 NAMC (01,0007) 6007
0006:0006:2 NAMC (03,0009) 7009
0006:0006:4 STFF AF
0006:0006:5 ONE B1
0006:0007:0 XTND CE
0006:0007:1 LT8 3 B203
0006:0007:3 LT48 BE
0006:0008 D54040404040 (3"6524010020040100")
0006:0009:0 NAMC (02,0002) 5002
0006:0009:2 STFF AF
0006:0009:3 ENTR AB
0006:0009:4 DLET B5
H:= (B-A)/2; 00201700 0006:0009:5
0006:0009:5 MKST AE
0006:000A:0 NAMC (01,0007) 6007
0006:000A:2 NAMC (03,000A) 700A
0006:000A:4 STFF AF
0006:000A:5 VALC (03,0003) 3003
0006:000B:1 VALC (03,0002) 3002
0006:000B:3 SUBT 81
0006:000B:4 LT8 2 B202
0006:000C:0 DIVD 83
0006:000C:1 XTND CE
0006:000C:2 LT8 2 B202
0006:000C:4 LT48 BE
0006:000D C84040404040 (3"6204010020040100")
0006:000E:0 NAMC (02,0002) 5002
0006:000E:2 STFF AF
0006:000E:3 ENTR AB
0006:000E:4 DLET B5
J:= H*(F(A) + F(B)); 00201800 0006:000E:5
0006:000E:5 MKST AE
0006:000F:0 NAMC (01,0007) 6007
0006:000F:2 NAMC (03,000D) 700D
0006:000F:4 STFF AF
0006:000F:5 VALC (03,000A) 300A
0006:0010:1 MKST AE
0006:0010:2 NAMC (03,0006) 7006
0006:0010:4 VALC (03,0002) 3002
0006:0011:0 ENTR AB
0006:0011:1 MKST AE
0006:0011:2 NAMC (03,0006) 7006
0006:0011:4 VALC (03,0003) 3003
0006:0012:0 ENTR AB
0006:0012:1 ADD 80
0006:0012:2 MULT 82
0006:0012:3 XTND CE
0006:0012:4 LT8 2 B202
0006:0013:0 LT48 BE
0006:0014 D14040404040 (3"6424010020040100")
0006:0015:0 NAMC (02,0002) 5002
0006:0015:2 STFF AF
0006:0015:3 ENTR AB
0006:0015:4 DLET B5
00201900 0006:0015:5
J1: 00202000 0006:0015:5
S:= 0; 00202100 0006:0015:5
0006:0015:5 MKST AE
0006:0016:0 NAMC (01,0007) 6007
0006:0016:2 NAMC (03,000E) 700E
0006:0016:4 STFF AF
0006:0016:5 ZERO B0
0006:0017:0 XTND CE
0006:0017:1 LT8 2 B202
0006:0017:3 LT48 BE
0006:0018 E24040404040 (3"7044010020040100")
0006:0019:0 NAMC (02,0002) 5002
0006:0019:2 STFF AF
0006:0019:3 ENTR AB
0006:0019:4 DLET B5
FOR K:= 1 STEP 1 UNTIL N DO 00202200 0006:0019:5
0006:0019:5 ONE B1
0006:001A:0 NAMC (03,0008) 7008
0006:001A:2 STON B9
0006:001A:3 VALC (03,0009) 3009
0006:001A:5 LSEQ 8B
0006:001B:0 BRFL-LINK 0000:0 A00000
S:= S + F(A + (2*K-1)*H); 00202300 0006:001B:3
0006:001B:3 MKST AE
0006:001B:4 NAMC (01,0007) 6007
0006:001C:0 NAMC (03,000E) 700E
0006:001C:2 STFF AF
0006:001C:3 VALC (03,000E) 300E
0006:001C:5 MKST AE
0006:001D:0 NAMC (03,0006) 7006
0006:001D:2 VALC (03,0002) 3002
0006:001D:4 LT8 2 B202
0006:001E:0 VALC (03,0008) 3008
0006:001E:2 MULT 82
0006:001E:3 ONE B1
0006:001E:4 SUBT 81
0006:001E:5 VALC (03,000A) 300A
0006:001F:1 MULT 82
0006:001F:2 ADD 80
0006:001F:3 ENTR AB
0006:001F:4 ADD 80
0006:001F:5 XTND CE
0006:0020:0 LT8 2 B202
0006:0020:2 LT48 BE
0006:0021 E24040404040 (3"7044010020040100")
0006:0022:0 NAMC (02,0002) 5002
0006:0022:2 STFF AF
0006:0022:3 ENTR AB
0006:0022:4 DLET B5
0006:0022:5 VALC (03,0008) 3008
0006:0023:1 ONE B1
0006:0023:2 ADD 80
0006:0023:3 BRUN 001A:0 A2001A
00202400 0006:0024:0
I:= J + 4*H*S; 00202500 0006:0024:0
0006:0024:0 MKST AE
0006:0024:1 NAMC (01,0007) 6007
0006:0024:3 NAMC (03,000B) 700B
0006:0024:5 STFF AF
0006:0025:0 VALC (03,000D) 300D
0006:0025:2 LT8 4 B204
0006:0025:4 VALC (03,000A) 300A
0006:0026:0 MULT 82
0006:0026:1 VALC (03,000E) 300E
0006:0026:3 MULT 82
0006:0026:4 ADD 80
0006:0026:5 XTND CE
0006:0027:0 LT8 2 B202
0006:0027:2 LT48 BE
0006:0028 C94040404040 (3"6224010020040100")
0006:0029:0 NAMC (02,0002) 5002
0006:0029:2 STFF AF
0006:0029:3 ENTR AB
0006:0029:4 DLET B5
IF DELTA < ABS(I-IBAR) THEN 00202600 0006:0029:5
0006:0029:5 VALC (03,0004) 3004
0006:002A:1 VALC (03,000B) 300B
0006:002A:3 VALC (03,000C) 300C
0006:002A:5 SUBT 81
0006:002B:0 BRST 46 9E2E
0006:002B:2 LESS 88
BEGIN 00202700 0006:002B:3
IBAR:= I; 3 00202800 0006:002C:0
0006:002C:0 MKST AE
0006:002C:1 NAMC (01,0007) 6007
0006:002C:3 NAMC (03,000C) 700C
0006:002C:5 STFF AF
0006:002D:0 VALC (03,000B) 300B
0006:002D:2 XTND CE
0006:002D:3 LT8 2 B202
0006:002D:5 LT48 BE
0006:002E C9C2C1D94040 (3"6234130166240100")
0006:002F:0 NAMC (02,0002) 5002
0006:002F:2 STFF AF
0006:002F:3 ENTR AB
0006:002F:4 DLET B5
J:= (I+J)/4; 00202900 0006:002F:5
0006:002F:5 MKST AE
0006:0030:0 NAMC (01,0007) 6007
0006:0030:2 NAMC (03,000D) 700D
0006:0030:4 STFF AF
0006:0030:5 VALC (03,000B) 300B
0006:0031:1 VALC (03,000D) 300D
0006:0031:3 ADD 80
0006:0031:4 LT8 4 B204
0006:0032:0 DIVD 83
0006:0032:1 XTND CE
0006:0032:2 LT8 2 B202
0006:0032:4 LT48 BE
0006:0033 D14040404040 (3"6424010020040100")
0006:0034:0 NAMC (02,0002) 5002
0006:0034:2 STFF AF
0006:0034:3 ENTR AB
0006:0034:4 DLET B5
N:= 2*N; 00203000 0006:0034:5
0006:0034:5 MKST AE
0006:0035:0 NAMC (01,0007) 6007
0006:0035:2 NAMC (03,0009) 7009
0006:0035:4 STFF AF
0006:0035:5 LT8 2 B202
0006:0036:1 VALC (03,0009) 3009
0006:0036:3 MULT 82
0006:0036:4 NTGR 87
0006:0036:5 XTND CE
0006:0037:0 LT8 3 B203
0006:0037:2 LT48 BE
0006:0038 D54040404040 (3"6524010020040100")
0006:0039:0 NAMC (02,0002) 5002
0006:0039:2 STFF AF
0006:0039:3 ENTR AB
0006:0039:4 DLET B5
H:= H/2; 00203100 0006:0039:5
0006:0039:5 MKST AE
0006:003A:0 NAMC (01,0007) 6007
0006:003A:2 NAMC (03,000A) 700A
0006:003A:4 STFF AF
0006:003A:5 VALC (03,000A) 300A
0006:003B:1 LT8 2 B202
0006:003B:3 DIVD 83
0006:003B:4 XTND CE
0006:003B:5 LT8 2 B202
0006:003C:1 LT48 BE
0006:003D C84040404040 (3"6204010020040100")
0006:003E:0 NAMC (02,0002) 5002
0006:003E:2 STFF AF
0006:003E:3 ENTR AB
0006:003E:4 DLET B5
GO TO J1 00203200 0006:003E:5
0006:003E:5 BRUN 0015:5 A2A015
END; 00203300 0006:003F:2
0006:002B:3 BRFL-LINK 0000:0 A00000
**006:001B:0 BRFL 0024:0 A00024
3 00203400 0006:003F:2
SIMPS:= I/3; 00203500 0006:003F:2
0006:003F:2 VALC (03,000B) 300B
0006:003F:4 LT8 3 B203
0006:0040:0 DIVD 83
0006:0040:1 NAMC (03,0007) 7007
0006:0040:3 STOD B8
END SIMPS; 00203600 0006:0040:4
0006:0040:1 RETN A7
**006:002B:3 BRFL 003F:2 A0403F
************************************** STACK BUILDING CODE FOR LEVEL 03 **************************************************
0006:0040:2 ZERO B0
0006:0040:3 ZERO B0
0006:0040:4 ZERO B0
0006:0040:5 ZERO B0
0006:0041:0 ZERO B0
0006:0041:1 ZERO B0
0006:0041:2 ZERO B0
0006:0041:3 ZERO B0
0006:0041:4 PUSH B4
0006:0041:5 BRUN 0000:1 A22000
0006:0042:2 NVLD FF
0006:0042:3 NVLD FF
0006:0042:4 NVLD FF
0006:0042:5 NVLD FF
SIMPS(0006) LENGTH IN WORDS IS 0043
2 00210000 0003:0008:4
REAL PROCEDURE TORADS(X); VALUE X; REAL X; TORADS:= 3.1415926*X/180; 00210100 0003:0008:4
(02,000A) = TORADS
(03,0002) = X
(03,0003) = PROCEDURE VALUE
0003:0008:4 LT48 BE
0003:0009 263243F69A26 (3"1143110375515046")
0003:000A:0 VALC (03,0002) 3002
0003:000A:2 MULT 82
0003:000A:3 LT8 180 B2B4
0003:000A:5 DIVD 83
0003:000B:0 RETN A7
************************************** STACK BUILDING CODE FOR LEVEL 03 **************************************************
00210200 0003:000B:1
REAL PROCEDURE SINE(X); VALUE X; REAL X; SINE:= SIN(X); 00210300 0003:000B:1
(02,000B) = SINE
(03,0002) = X
(03,0003) = PROCEDURE VALUE
(01,0008) = SIN
0003:000B:1 MKST AE
0003:000B:2 NAMC (01,0008) 6008
0003:000B:4 VALC (03,0002) 3002
0003:000C:0 ENTR AB
0003:000C:1 RETN A7
************************************** STACK BUILDING CODE FOR LEVEL 03 **************************************************
00210400 0003:000C:2
REAL PROCEDURE DARCTAN(X); VALUE X; REAL X; DARCTAN:= 1/(X**2 + 1); 00210500 0003:000C:2
(02,000C) = DARCTAN
(03,0002) = X
(03,0003) = PROCEDURE VALUE
0003:000C:2 ONE B1
0003:000C:3 VALC (03,0002) 3002
0003:000C:5 DUPL B7
0003:000D:0 MULT 82
0003:000D:1 ONE B1
0003:000D:2 ADD 80
0003:000D:3 DIVD 83
0003:000D:4 RETN A7
************************************** STACK BUILDING CODE FOR LEVEL 03 **************************************************
00210600 0003:000D:5
REAL PROCEDURE LOGISTICSIGMOID(X); 00210700 0003:000D:5
(02,000D) = LOGISTICSIGMOID
VALUE X; 00210800 0003:000D:5
REAL X; 00210900 0003:000D:5
(03,0002) = X
BEGIN 00211000 0003:000D:5
(03,0003) = PROCEDURE VALUE
LOGISTICSIGMOID:= 1/(1 + EXP(-X)); 00211100 0003:000D:5
0003:000D:5 ONE B1
0003:000E:0 ONE B1
(01,0009) = EXP
0003:000E:1 MKST AE
0003:000E:2 NAMC (01,0009) 6009
0003:000E:4 VALC (03,0002) 3002
0003:000F:0 CHSN 8E
0003:000F:1 ENTR AB
0003:000F:2 ADD 80
0003:000F:3 DIVD 83
0003:000F:4 NAMC (03,0003) 7003
0003:0010:0 STOD B8
END LOGISTICSIGMOID; 2 00211200 0003:0010:1
0003:000F:4 RETN A7
************************************** STACK BUILDING CODE FOR LEVEL 03 **************************************************
0003:000F:5 ZERO B0
0003:0010:0 PUSH B4
0003:0010:1 BRUN 000D:5 A2A00D
0003:0010:4 NVLD FF
2 00900000 0003:0010:5
SUM:= SIMPS(TORADS(30), TORADS(90), 0.00001, 2.0, SINE); 00900600 0003:0010:5
**003:0000:1 BRUN 0010:5 A2A010
0003:0010:5 MKST AE
0003:0011:0 NAMC (02,0009) 5009
0003:0011:2 MKST AE
0003:0011:3 NAMC (02,000A) 500A
0003:0011:5 LT8 30 B21E
0003:0012:1 ENTR AB
0003:0012:2 MKST AE
0003:0012:3 NAMC (02,000A) 500A
0003:0012:5 LT8 90 B25A
0003:0013:1 ENTR AB
0003:0013:2 LT48 BE
0003:0014 2929F16B11C7 (3"1222476132610707")
0003:0015:0 LT16 39040 B39880
0003:0015:3 ISOL 17:48 9A1130
0003:0016:0 NAMC (02,000B) 500B
0003:0016:2 STFF AF
0003:0016:3 ENTR AB
0003:0016:4 NAMC (02,0003) 5003
0003:0017:0 STOD B8
WRITE(LINE, F1, RESULT); 00900700 0003:0017:1
0003:0017:1 MKST AE
0003:0017:2 ZERO B0
0003:0017:3 NAMC (02,0002) 5002
0003:0017:5 STFF AF
0003:0017:5 INDX A6
0003:0018:0 LOAD BD
0003:0018:1 ZERO B0
(01,000A) = FORMATTEDOUTPUT
0003:0018:2 NAMC (01,000A) 600A
0003:0018:4 RSDN 95B7
0003:0019:0 NAMC (01,0004) 6004
0003:0019:2 LOAD BD
0003:0019:3 ZERO B0
0003:0019:4 NAMC (02,0005) 5005
0003:001A:0 STFF AF
0003:001A:1 DUPL B7
0003:001A:2 ISOL 15:16 9A0F10
0003:001A:5 LT8 2 B202
0003:001B:1 ADD 80
0003:001B:2 INSR 15:16 9C0F10
0003:0017:2 NOOP FE
0003:0017:5 STFF AF
0003:0018:0 NOOP FE
0003:001B:5 LT48 BE
0003:001C 080000000080 (3"0200000000000200")
0003:001D:0 ZERO B0
0003:001D:1 ZERO B0
0003:001D:2 ENTR AB
0003:001D:3 DLET B5
SUM:= SIMPS(0, 1, 1@-5, 2.0, DARCTAN); 00900800 0003:001D:4
0003:001D:4 MKST AE
0003:001D:5 NAMC (02,0009) 5009
0003:001E:1 ZERO B0
0003:001E:2 ONE B1
0003:001E:3 LT48 BE
0003:001F 2929F16B11C7 (3"1222476132610707")
0003:0020:0 LT16 39040 B39880
0003:0020:3 ISOL 17:48 9A1130
0003:0021:0 NAMC (02,000C) 500C
0003:0021:2 STFF AF
0003:0021:3 ENTR AB
0003:0021:4 NAMC (02,0003) 5003
0003:0022:0 STOD B8
WRITE(LINE, F1, RESULT); 00900900 0003:0022:1
0003:0022:1 MKST AE
0003:0022:2 ZERO B0
0003:0022:3 NAMC (02,0002) 5002
0003:0022:5 STFF AF
0003:0022:5 INDX A6
0003:0023:0 LOAD BD
0003:0023:1 ZERO B0
0003:0023:2 NAMC (01,000A) 600A
0003:0023:4 RSDN 95B7
0003:0024:0 NAMC (01,0004) 6004
0003:0024:2 LOAD BD
0003:0024:3 ZERO B0
0003:0024:4 NAMC (02,0005) 5005
0003:0025:0 STFF AF
0003:0025:1 DUPL B7
0003:0025:2 ISOL 15:16 9A0F10
0003:0025:5 LT8 2 B202
0003:0026:1 ADD 80
0003:0026:2 INSR 15:16 9C0F10
0003:0022:2 NOOP FE
0003:0022:5 STFF AF
0003:0023:0 NOOP FE
0003:0026:5 LT48 BE
0003:0027 080000000080 (3"0200000000000200")
0003:0028:0 ZERO B0
0003:0028:1 ZERO B0
0003:0028:2 ENTR AB
0003:0028:3 DLET B5
SUM:= SIMPS(0.5, 3, 1@-5, 2.0, LOGISTICSIGMOID); 00901000 0003:0028:4
0003:0028:4 MKST AE
0003:0028:5 NAMC (02,0009) 5009
0003:0029:1 LT8 155 B29B
0003:0029:3 ISOL 9:48 9A0930
0003:002A:0 LT8 3 B203
0003:002A:2 LT48 BE
0003:002B 2929F16B11C7 (3"1222476132610707")
0003:002C:0 LT16 39040 B39880
0003:002C:3 ISOL 17:48 9A1130
0003:002D:0 NAMC (02,000D) 500D
0003:002D:2 STFF AF
0003:002D:3 ENTR AB
0003:002D:4 NAMC (02,0003) 5003
0003:002E:0 STOD B8
WRITE(LINE, F1, RESULT); 00901100 0003:002E:1
0003:002E:1 MKST AE
0003:002E:2 ZERO B0
0003:002E:3 NAMC (02,0002) 5002
0003:002E:5 STFF AF
0003:002E:5 INDX A6
0003:002F:0 LOAD BD
0003:002F:1 ZERO B0
0003:002F:2 NAMC (01,000A) 600A
0003:002F:4 RSDN 95B7
0003:0030:0 NAMC (01,0004) 6004
0003:0030:2 LOAD BD
0003:0030:3 ZERO B0
0003:0030:4 NAMC (02,0005) 5005
0003:0031:0 STFF AF
0003:0031:1 DUPL B7
0003:0031:2 ISOL 15:16 9A0F10
0003:0031:5 LT8 2 B202
0003:0032:1 ADD 80
0003:0032:2 INSR 15:16 9C0F10
0003:002E:2 NOOP FE
0003:002E:5 STFF AF
0003:002F:0 NOOP FE
0003:0032:5 LT48 BE
0003:0033 080000000080 (3"0200000000000200")
0003:0034:0 ZERO B0
0003:0034:1 ZERO B0
0003:0034:2 ENTR AB
0003:0034:3 DLET B5
END. 00999900 0003:0034:4
(01,000B) = BLOCKEXIT
0003:0034:4 MKST AE
0003:0034:5 NAMC (01,000B) 600B BLOCKEXIT
0003:0035:1 ENTR AB
0003:0035:2 EXIT A3
DATA LENGTH IN WORDS IS 0005
DATA POOL AT (01,0005):
0000 000000000004
0001 000000000000
0002 E2E4D47E0000
DATA LENGTH IN WORDS IS 0003
************************************** STACK BUILDING CODE FOR LEVEL 02 **************************************************
(02,0002) = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
0003:0035:3 LT48 BE
0003:0036 270000E40001 (3"1160000071000001")
0003:0037:0 LT8 5 B205
0003:0037:2 STAG 95B4
0003:0037:4 ZERO B0
0003:0037:5 ZERO B0
(02,0005) = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
0003:0038:0 MPCW BF
0003:0039 0003:0000:4 00080000E003
(02,0006) = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
0003:003A:0 MPCW BF
0003:003B 0003:0002:2 00040020E003
(02,0007) = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
0003:003C:0 MPCW BF
0003:003D 0003:0005:1 00020050E003
(02,0008) = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
0003:003E:0 MPCW BF
0003:003F 0003:0006:4 00080060E003
(02,0009) = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
0003:0040:0 MPCW BF
0003:0041 0006:0040:2 00040400E006
(02,000A) = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
0003:0042:0 MPCW BF
0003:0043 0003:0008:4 00080080E003
(02,000B) = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
0003:0044:0 MPCW BF
0003:0045 0003:000B:1 000200B0E003
(02,000C) = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
0003:0046:0 MPCW BF
0003:0047 0003:000C:2 000400C0E003
(02,000D) = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
0003:0048:0 MPCW BF
0003:0049 0003:000F:5 000A00F0E003
0003:004A:0 PUSH B4
0003:004A:1 LT16 8192 B32000
0003:004A:4 BSET 47 962F
0003:004B:0 LT8 6 B206
0003:004B:2 STAG 95B4
0003:004B:4 BRUN 0000:1 A22000
0003:004C:1 NVLD FF
0003:004C:2 NVLD FF
0003:004C:3 NVLD FF
0003:004C:4 NVLD FF
0003:004C:5 NVLD FF
BLOCK#1(0003) LENGTH IN WORDS IS 004D
====================================================================================================================================
NUMBER OF ERRORS DETECTED = 0.
NUMBER OF SEGMENTS = 9. TOTAL SEGMENT SIZE = 166 WORDS. CORE ESTIMATE = 1009 WORDS. STACK ESTIMATE = 29
PROGRAM SIZE = 75 CARDS, 410 SYNTACTIC ITEMS, 29 DISK SECTORS.
PROGRAM FILE NAME: (PAUL)CANDE/CODE2300 ON OPS.
COMPILATION TIME = 0.451 SECONDS ELAPSED; 0.378 SECONDS PROCESSING; 0.100 SECONDS I/O.
====================================================================================================================================
0828 @ 006:0005:4 (00201500) IBAR =0:=2.09439506666967645287514 (4"262182A466C4")
0828 @ 006:0009:4 (00201600) N =0:=1.0 (4"000000000001")
0828 @ 006:000E:4 (00201700) H =0:=0.52359876666741911321878 (4"26C30548CD88")
0828 @ 006:0015:4 (00201800) J =0:=0.78539814595569623634219 (4"26E487ED2B9C")
0828 @ 006:0019:4 (00202100) S =0:=0 (4"000000000000")
0828 @ 006:0022:4 (00202300) S =0:=0.86602539485465968027711 (4"26EED9EB8E34")
0828 @ 006:0029:4 (00202500) I =0:=2.59919746055675204843283 (4"26299650138F")
0828 @ 006:002F:4 (00202800) IBAR =2.09439506666967645287514:=2.59919746055675204843283 (4"26299650138F")
0828 @ 006:0034:4 (00202900) J =0.78539814595569623634219:=0.8461489016299310605973 (4"26EC4E9B7206")
0828 @ 006:0039:4 (00203000) N =1.0:=2.0 (4"000000000002")
0828 @ 006:003E:4 (00203100) H =0.52359876666741911321878:=0.261799383333709556609392 (4"26A182A466C4")
0828 @ 006:0019:4 (00202100) S =0.86602539485465968027711:=0 (4"000000000000")
0828 @ 006:0022:4 (00202300) S =0:=0.70710677171518909744918 (4"26DA827985A6")
0828 @ 006:0022:4 (00202300) S =0.70710677171518909744918:=1.67303259222535416483879 (4"261AC4BDD2CC")
0828 @ 006:0029:4 (00202500) I =2.59919746055675204843283:=2.59814450540579855442047 (4"262991FFF910")
0828 @ 006:002F:4 (00202800) IBAR =2.59919746055675204843283:=2.59814450540579855442047 (4"262991FFF910")
0828 @ 006:0034:4 (00202900) J =0.8461489016299310605973:=0.86107335175984189845621 (4"26EE37A6CEA2")
0828 @ 006:0039:4 (00203000) N =2.0:=4.0 (4"000000000004")
0828 @ 006:003E:4 (00203100) H =0.261799383333709556609392:=0.130899691666854778304696 (4"2690C1523362")
0828 @ 006:0019:4 (00202100) S =1.67303259222535416483879:=0 (4"000000000000")
0828 @ 006:0022:4 (00202300) S =0:=0.60876142015331424772739 (4"26CDEBE4EB50")
0828 @ 006:0022:4 (00202300) S =0.60876142015331424772739:=1.40211475093383342027664 (4"26166F0FE088")
0828 @ 006:0022:4 (00202300) S =1.40211475093383342027664:=2.32599427575769368559122 (4"26253745C611")
0828 @ 006:0022:4 (00202300) S =2.32599427575769368559122:=3.3174391339271096512675 (4"2635143B0EAB")
0828 @ 006:0029:4 (00202500) I =2.59814450540579855442047:=2.59808039077324792742729 (4"262991BCBE6C")
0828 @ 006:002F:4 (00202800) IBAR =2.59814450540579855442047:=2.59808039077324792742729 (4"262991BCBE6C")
0828 @ 006:0034:4 (00202900) J =0.86107335175984189845621:=0.8647884356323629617691 (4"26EEB1633080")
0828 @ 006:0039:4 (00203000) N =4.0:=8.0 (4"000000000008")
0828 @ 006:003E:4 (00203100) H =0.130899691666854778304696:=0.065449845833427389152348 (4"27430548CD88")
0828 @ 006:0019:4 (00202100) S =3.3174391339271096512675:=0 (4"000000000000")
0828 @ 006:0022:4 (00202300) S =0:=0.55557022466928174253552 (4"26C71CECD4CB")
0828 @ 006:0022:4 (00202300) S =0.55557022466928174253552:=1.21491603054164443165064 (4"2613704BCAA9")
0828 @ 006:0022:4 (00202300) S =1.21491603054164443165064:=1.96675582845637109130621 (4"261F77D4F5A7")
0828 @ 006:0022:4 (00202300) S =1.96675582845637109130621:=2.7982254314556485041976 (4"262CC58807AF")
0828 @ 006:0022:4 (00202300) S =2.7982254314556485041976:=3.6950981645932188257575 (4"263B1F1F40C7")
0828 @ 006:0022:4 (00202300) S =3.6950981645932188257575:=4.6420282872713869437575 (4"264A45BF740F")
0828 @ 006:0022:4 (00202300) S =4.6420282872713869437575:=5.6228135631099576130509 (4"2659F70B5AD1")
0828 @ 006:0022:4 (00202300) S =5.6228135631099576130509:=6.6206724846706492826342 (4"2669EE464573")
0828 @ 006:0029:4 (00202500) I =2.59808039077324792742729:=2.59807640936924144625664 (4"262991B891AC")
SUM = 0.86603
0828 @ 006:0005:4 (00201500) IBAR =0:=2.0 (4"262000000000")
0828 @ 006:0009:4 (00201600) N =0:=1.0 (4"000000000001")
0828 @ 006:000E:4 (00201700) H =0:=0.5 (4"26C000000000")
0828 @ 006:0015:4 (00201800) J =0:=0.75 (4"26E000000000")
0828 @ 006:0019:4 (00202100) S =0:=0 (4"000000000000")
0828 @ 006:0022:4 (00202300) S =0:=0.79999999999927240423858 (4"26E666666666")
0828 @ 006:0029:4 (00202500) I =0:=2.35000000000582076609135 (4"26259999999A")
0828 @ 006:002F:4 (00202800) IBAR =2.0:=2.35000000000582076609135 (4"26259999999A")
0828 @ 006:0034:4 (00202900) J =0.75:=0.77500000000145519152284 (4"26E333333334")
0828 @ 006:0039:4 (00203000) N =1.0:=2.0 (4"000000000002")
0828 @ 006:003E:4 (00203100) H =0.5:=0.25 (4"26A000000000")
0828 @ 006:0019:4 (00202100) S =0.79999999999927240423858:=0 (4"000000000000")
0828 @ 006:0022:4 (00202300) S =0:=0.94117647058737929910421 (4"26F878787878")
0828 @ 006:0022:4 (00202300) S =0.94117647058737929910421:=1.58117647058679722249508 (4"26194C7FB2E6")
0828 @ 006:0029:4 (00202500) I =2.35000000000582076609135:=2.3561764705955283716321 (4"2625B2E6194D")
0828 @ 006:002F:4 (00202800) IBAR =2.35000000000582076609135:=2.3561764705955283716321 (4"2625B2E6194D")
0828 @ 006:0034:4 (00202900) J =0.77500000000145519152284:=0.78279411765106488019228 (4"26E43298FF68")
0828 @ 006:0039:4 (00203000) N =2.0:=4.0 (4"000000000004")
0828 @ 006:003E:4 (00203100) H =0.25:=0.125 (4"269000000000")
0828 @ 006:0019:4 (00202100) S =1.58117647058679722249508:=0 (4"000000000000")
0828 @ 006:0022:4 (00202300) S =0:=0.98461538461560849100351 (4"26FE07E07E08")
0828 @ 006:0022:4 (00202300) S =0.98461538461560849100351:=1.86132771338452585041523 (4"261DC7FF9182")
0828 @ 006:0022:4 (00202300) S =1.86132771338452585041523:=2.58042883698362857103348 (4"2629496FBF88")
0828 @ 006:0022:4 (00202300) S =2.58042883698362857103348:=3.1468005183996865525841 (4"2632594B8019")
0828 @ 006:0029:4 (00202500) I =2.3561764705955283716321:=2.35619437685818411409855 (4"2625B2F8DFFA")
0828 @ 006:002F:4 (00202800) IBAR =2.3561764705955283716321:=2.35619437685818411409855 (4"2625B2F8DFFA")
0828 @ 006:0034:4 (00202900) J =0.78279411765106488019228:=0.7847471236273122485727 (4"26E47297FFCE")
0828 @ 006:0039:4 (00203000) N =4.0:=8.0 (4"000000000008")
0828 @ 006:003E:4 (00203100) H =0.125:=0.0625 (4"274000000000")
0828 @ 006:0019:4 (00202100) S =3.1468005183996865525841:=0 (4"000000000000")
0828 @ 006:0022:4 (00202300) S =0:=0.99610894941724836826324 (4"26FF807F8080")
0828 @ 006:0022:4 (00202300) S =0.99610894941724836826324:=1.96214668526954483240843 (4"261F64F3EC33")
0828 @ 006:0022:4 (00202300) S =1.96214668526954483240843:=2.87317871373670641332865 (4"262DF88A3E31")
0828 @ 006:0022:4 (00202300) S =2.87317871373670641332865:=3.7125229760276852175593 (4"263B667E7DFB")
0828 @ 006:0022:4 (00202300) S =3.7125229760276852175593:=4.472166892941459082067 (4"26478DFEDF37")
0828 @ 006:0022:4 (00202300) S =4.472166892941459082067:=5.1512119857798097655176 (4"26526B5D425B")
0828 @ 006:0022:4 (00202300) S =5.1512119857798097655176:=5.7535649269557325169444 (4"265C0E9A18CB")
0828 @ 006:0022:4 (00202300) S =5.7535649269557325169444:=6.2857894591870717704296 (4"26649297F7CC")
0828 @ 006:0029:4 (00202500) I =2.35619437685818411409855:=2.3561944884277181699872 (4"2625B2F8FDED")
SUM = 0.78540
0828 @ 006:0005:4 (00201500) IBAR =0:=5.0 (4"265000000000")
0828 @ 006:0009:4 (00201600) N =0:=1.0 (4"000000000001")
0828 @ 006:000E:4 (00201700) H =0:=1.25 (4"261400000000")
0828 @ 006:0015:4 (00201800) J =0:=1.96879182252450846135616 (4"261F802BDAA6")
0828 @ 006:0019:4 (00202100) S =0:=0 (4"000000000000")
0828 @ 006:0022:4 (00202300) S =0:=0.85195280197149259038269 (4"26ED0CCA171A")
0828 @ 006:0029:4 (00202500) I =0:=6.2285558323783334344625 (4"2663A82A2916")
0828 @ 006:002F:4 (00202800) IBAR =5.0:=6.2285558323783334344625 (4"2663A82A2916")
0828 @ 006:0034:4 (00202900) J =1.96879182252450846135616:=2.04933691374026238918304 (4"2620CA1580F0")
0828 @ 006:0039:4 (00203000) N =1.0:=2.0 (4"000000000002")
0828 @ 006:003E:4 (00203100) H =1.25:=0.625 (4"26D000000000")
0828 @ 006:0019:4 (00202100) S =0.85195280197149259038269:=0 (4"000000000000")
0828 @ 006:0022:4 (00202300) S =0:=0.75491498686642444226891 (4"26E0A10DE5ED")
0828 @ 006:0022:4 (00202300) S =0.75491498686642444226891:=1.66981594185926951467991 (4"261AB790EBCA")
0828 @ 006:0029:4 (00202500) I =6.2285558323783334344625:=6.2238767683884361758828 (4"266394FFCE69")
0828 @ 006:002F:4 (00202800) IBAR =6.2285558323783334344625:=6.2238767683884361758828 (4"266394FFCE69")
0828 @ 006:0034:4 (00202900) J =2.04933691374026238918304:=2.06830342052853666245937 (4"262117C553D6")
0828 @ 006:0039:4 (00203000) N =2.0:=4.0 (4"000000000004")
0828 @ 006:003E:4 (00203100) H =0.625:=0.3125 (4"26A800000000")
0828 @ 006:0019:4 (00202100) S =1.66981594185926951467991:=0 (4"000000000000")
0828 @ 006:0022:4 (00202300) S =0:=0.69264198313248925842344 (4"26D8A87E14B2")
0828 @ 006:0022:4 (00202300) S =0.69264198313248925842344:=1.50070919668360147625208 (4"261802E7A589")
0828 @ 006:0022:4 (00202300) S =1.50070919668360147625208:=2.3879137904004892334342 (4"262634E51737")
0828 @ 006:0022:4 (00202300) S =2.3879137904004892334342:=3.3241987961519043892621 (4"26352FEB13AE")
0828 @ 006:0029:4 (00202500) I =6.2238767683884361758828:=6.2235519157256931066512 (4"266393AB2C70")
0828 @ 006:002F:4 (00202800) IBAR =6.2238767683884361758828:=6.2235519157256931066512 (4"266393AB2C70")
0828 @ 006:0034:4 (00202900) J =2.06830342052853666245937:=2.07296383407083339989185 (4"26212ADC2012")
0828 @ 006:0039:4 (00203000) N =4.0:=8.0 (4"000000000008")
0828 @ 006:003E:4 (00203100) H =0.3125:=0.15625 (4"269400000000")
0828 @ 006:0019:4 (00202100) S =3.3241987961519043892621:=0 (4"000000000000")
0828 @ 006:0022:4 (00202300) S =0:=0.65841750056097225751728 (4"26D447065003")
0828 @ 006:0022:4 (00202300) S =0.65841750056097225751728:=1.38328777674178127199411 (4"261621F25D21")
0828 @ 006:0022:4 (00202300) S =1.38328777674178127199411:=2.16595025568676646798849 (4"2622A7BB748F")
0828 @ 006:0022:4 (00202300) S =2.16595025568676646798849:=2.99709330355108249932528 (4"262FF4181B9D")
0828 @ 006:0022:4 (00202300) S =2.99709330355108249932528:=3.8676905719621572643518 (4"263DE20F825A")
0828 @ 006:0022:4 (00202300) S =3.8676905719621572643518:=4.7696112484991317614912 (4"264C5053E26F")
0828 @ 006:0022:4 (00202300) S =4.7696112484991317614912:=5.6959149787871865555644 (4"265B2277BEAB")
0828 @ 006:0022:4 (00202300) S =5.6959149787871865555644:=6.6409096904972102493048 (4"266A412A8506")
0828 @ 006:0029:4 (00202500) I =6.2235519157256931066512:=6.2235323906352277845144 (4"26639396B336")
0828 @ 006:002F:4 (00202800) IBAR =6.2235519157256931066512:=6.2235323906352277845144 (4"26639396B336")
0828 @ 006:0034:4 (00202900) J =2.07296383407083339989185:=2.07412405617651529610157 (4"26212F9CB4D2")
0828 @ 006:0039:4 (00203000) N =8.0:=16.0 (4"000000000010")
0828 @ 006:003E:4 (00203100) H =0.15625:=0.078125 (4"275000000000")
0828 @ 006:0019:4 (00202100) S =6.6409096904972102493048:=0 (4"000000000000")
0828 @ 006:0022:4 (00202300) S =0:=0.64063585483745555393397 (4"26D2005B0E96")
0828 @ 006:0022:4 (00202300) S =0.64063585483745555393397:=1.31640045584936160594225 (4"26150FF9ECA5")
0828 @ 006:0022:4 (00202300) S =1.31640045584936160594225:=2.02541958964138757437468 (4"2620681E5F23")
0828 @ 006:0022:4 (00202300) S =2.02541958964138757437468:=2.76559395168442279100418 (4"262C3FDF7188")
0828 @ 006:0022:4 (00202300) S =2.76559395168442279100418:=3.5346741887478856369852 (4"26388E0685AB")
0828 @ 006:0022:4 (00202300) S =3.5346741887478856369852:=4.3303322888095863163471 (4"2645490A8294")
0828 @ 006:0022:4 (00202300) S =4.3303322888095863163471:=5.1502256247185869142412 (4"26526752FC13")
0828 @ 006:0022:4 (00202300) S =5.1502256247185869142412:=5.9920512719691032543778 (4"265FDF712791")
0828 @ 006:0022:4 (00202300) S =5.9920512719691032543778:=6.8535894813976483419537 (4"266DA84D71AD")
0828 @ 006:0022:4 (00202300) S =6.8535894813976483419537:=7.7327362489013466984033 (4"267BB949A51A")
0828 @ 006:0022:4 (00202300) S =7.7327362489013466984033:=8.6275257122470065951347 (4"2591414B0CD7")
0828 @ 006:0022:4 (00202300) S =8.6275257122470065951347:=9.5361436092061921954155 (4"259312816A47")
0828 @ 006:0022:4 (00202300) S =9.5361436092061921954155:=10.4569332851096987724304 (4"2594E9F328D8")
0828 @ 006:0022:4 (00202300) S =10.4569332851096987724304:=11.3883957921061664819717 (4"2596C6DBD032")
0828 @ 006:0022:4 (00202300) S =11.3883957921061664819717:=12.3291855413699522614479 (4"2598A88B01DD")
0828 @ 006:0022:4 (00202300) S =12.3291855413699522614479:=13.2781028044410049915314 (4"259A8E637DA4")
0828 @ 006:0029:4 (00202500) I =6.2235323906352277845144:=6.2235311825643293559551 (4"266393956EEC")
SUM = 2.07451