github.com/pkimpel.retro-220
1
0
Fork 0
mirror of https://github.com/pkimpel/retro-220.git synced 2026-02-28 17:19:46 +00:00
Code Issues Releases Wiki Activity
Files
master
pkimpel.retro-220/software/BALGOL/BALGOL-Examples/Reference-Manual/Example-5/Example-5-Code-List.lst
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

1327 lines
77 KiB
Plaintext
Raw Permalink Blame History

This file contains invisible Unicode characters
This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
0200 BAC-220 STANDARD VERSION 2/1/62
0200 COMMENT FIFTH EXAMPLE PROGRAM - FROM BALGOL MANUAL, JANUARY 1961
0200 EDITION.
0200
0200 THE FOLLOWING PROGRAM FOR OPTICAL RAY-TRACING WAS WRITTEN BY
0200 R. MITCHELL$
0200
0200 COMMENT OPTICAL TRACE PROGRAM, R. F. MITCHELL, VIDYA 1$
0200 INTEGER M, J, K, JA, JB$
0200 ARRAY A(4), B(4), C(4)$
0200
0200 0 0000 11 4987 CONST
0201 0 0000 40 4996 A
0202 0 0000 11 4986 CONST
0203 0 0000 40 4998 A
0200 A(1) = -260.0$ A(3) = -600.0$ A(4) = 0.0$
0204 0 0000 46 4999 A
4980 0 5225 00 0000
4981 0 5250 00 0000
4982 0 5275 00 0000
4983 0 5310 00 0000
4984 0 5312 50 0000
4985 0 5315 00 0000
0205 ARRAY G(6) = (25.0, 50.0, 75.0, 100.0, 125.0, 150.0)$
0205 0 0000 10 4979 CONST
0206 0 0000 40 4988 C
0207 0 0000 10 4978 CONST
0208 0 0000 40 4989 C
0209 0 0000 10 4979 CONST
0210 0 0000 40 4990 C
0205 C(1) = 1.0$ C(2) = 3.436$ C(3) = 1.0$ C(4) = -1.0$
0211 0 0000 11 4979 CONST
0212 0 0000 40 4991 C
0213 0 0000 10 4977 CONST
0214 0 0000 40 4993 B
0215 0 0000 10 4979 CONST
0216 0 0000 40 4994 B
0213 B(2) = 339.75$ B(3) = 1.0$ B(4) = 0.0$
0217 0 0000 46 4995 B
4971 0 5155 00 0000
4972 0 5157 50 0000
4973 0 5160 00 0000
4974 0 5162 50 0000
4975 0 5167 50 0000
4976 0 5170 00 0000
0218 ARRAY B1(6) = (5.5, 5.75, 6.0, 6.25, 6.75, 7.0)$
0218
0218 0 0000 10 4970 CONST
0219 0 0000 40 4969 JB
0220 0 0000 44
0221 0 0000 30
0222 0 0000 10 4970 CONST
0223 0 0000 12 4969 JB
0224 0 0000 40 4969 JB
0221 0225
0225 0 0000 13 4968 CONST
0226 0 1111 31 0228
0227 0 0000 36
0228 0 0001 33
0218 FOR JB = (1, 1, 6)$
0229 0 0000 30
0228 0230
0227 0230
0229 BEGIN
0229 B(1) = B1(JB)$
0230 0 0000 42 4969 JB
0231 1 0000 10 4970 B1
0232 0 0000 40 4992 B
0233 0 0000 10 4989 C
0234 0 0000 24 4989 C
0235 0 0000 40 4967 TEMP
0236 0 0000 11 4979 CONST
0237 0 0002 45 0000
0238 0 0000 25 4967 TEMP
0239 0 0000 22 4979 CONST
0233 A(2) = A(1) - B1(JB)(1.0 - 1.0/C(2).C(2))$
0240 0 0000 42 4969 JB
0241 1 0000 24 4970 B1
0242 0 0000 23 4996 A
0243 0 0000 40 4967 TEMP
0244 0 0000 11 4967 TEMP
0245 0 0000 40 4997 A
0246 0 0000 10 0247
0247 0 0000 01 0000 PARAM
0248 0 4400 28 4727
0249 1 0000 40 0000
0246 WRITE ($$ PARAM, F6)$
0250 0 0000 10 0251
0251 0 0000 01 0000 F6
0252 0 0000 44 4727 WRITE
0253 0 0100 30 4727
0254 0 0000 30
0247 0255
0255 0 0000 30
0256 0 0000 10 4970 CONST
0257 0 0000 40 4726 K
0258 0 0000 44
0259 0 0000 30
0260 0 0000 10 4970 CONST
0261 0 0000 12 4726 K
0262 0 0000 40 4726 K
0259 0263
0263 0 0000 13 4725 CONST
0264 0 1111 31 0266
0265 0 0000 36
0266 0 0001 33
0267 0 0000 30
0266 0268
0265 0268
0268 0 0000 42 4726 K
0269 1 0000 10 4995 A
0270 0 0000 42 0270
0271 0 0002 20 0255
0272 0 0000 42 4726 K
0273 1 0000 10 4991 B
0274 0 0000 42 0274
0275 0 0002 20 0255
0276 0 0000 42 4726 K
0277 1 0000 10 4987 C
0278 0 0000 42 0278
0279 0 0002 20 0255
0267 0281
0258 0280
0280 0 0000 30
0254 OUTPUT PARAM (FOR K = (1, 1, 4)$ (A(K), B(K), C(K)))$
0281 0 0009 43 0000
0282 0 0000 30 0255
0254 0283
0283 0 0000 30
0251 0284
0284 0 0006 60 0300
0285 0 0034 60 2008
0286 0 0006 60 0400
0287 1 0000 11 0285
0288 1 0000 00 0284
0283 FORMAT F6 (W3,11(3F20.8,W4))$
0283 0289
0289 0 0000 10 4970 CONST
0290 0 0000 40 4724 M
0291 0 0000 44
0292 0 0000 30
0293 0 0000 10 4970 CONST
0294 0 0000 12 4724 M
0295 0 0000 40 4724 M
0292 0296
0296 0 0000 13 4968 CONST
0297 0 1111 31 0299
0298 0 0000 36
0299 0 0001 33
0289 FOR M = (1, 1, 6)$
0300 0 0000 30
0299 0301
0298 0301
0300 BEGIN
0300 H1 = G(M)$
0301 0 0000 42 4724 M
0302 1 0000 10 4979 G
0303 0 0000 40 4723 H1
0304 0 0000 10 0305
0305 0 0000 01 0000 GVALU
0306 0 4400 28 4727
0307 1 0000 40 0000
0304 WRITE ($$ GVALU, F1)$
0308 0 0000 10 0309
0309 0 0000 01 0000 F1
0310 0 0000 44 4727 WRITE
0311 0 0100 30 4727
0312 0 0000 30
0305 0313
0313 0 0000 30
0312 OUTPUT GVALU (H1)$
0314 0 0000 10 4723 H1
0315 0 0000 42 0315
0316 0 0002 20 0313
0317 0 0009 43 0000
0318 0 0000 30 0313
0312 0319
0319 0 0000 30
0309 0320
0320 0 0004 20 1000
0321 3 4714 00 0000
0322 0 0006 70 2008
0323 0 0006 60 0600
0324 1 0000 00 0320
0319 FORMAT F1 (B10,*G*,X20.8,W6)$
0319 0325
0325 0 0000 46 4722 SUMD
0326 0 0000 46 4721 E
0325 SUMD = 0.0$ E = 0.0$ P = H1$
0327 0 0000 10 4723 H1
0328 0 0000 40 4720 P
0329 0 0000 10 4970 CONST
0330 0 0000 40 4719 J
0331 0 0000 44
0332 0 0000 30
0333 0 0000 10 4970 CONST
0334 0 0000 12 4719 J
0335 0 0000 40 4719 J
0332 0336
0336 0 0000 13 4718 CONST
0337 0 1111 31 0339
0338 0 0000 36
0339 0 0001 33
0329 FOR J = (1, 1, 3)$
0340 0 0000 30
0339 0341
0338 0341
0340 BEGIN
0340 R1 = P/A(J)$
0341 0 0000 10 4720 P
0342 0 0002 45 0000
0343 0 0000 42 4719 J
0344 1 0000 25 4995 A
0345 0 0000 40 4717 R1
0346 0 0001 10 4717 R1
0346 IF ABS(R1) GTR 0.95$
0347 0 0000 13 4716 CONST
0348 0 1111 31 0350
0349 0 0000 36
0350 0 0001 33
0346 GO TO PRINT$
0346
0351 0 0000 30 0000 PRINT
0350 0352
0349 0352
0352 I = ARCSIN(R1)$
0352 0 0000 10 4717 R1
0353 0 0000 44 4703 ARCSI
0354 0 0000 30 4703
0355 0 0000 40 4702 I
0356 0 0000 10 4717 R1
0357 0 0000 42 4719 J
0358 1 0000 24 4987 C
0356 R2 = R1.C(J)/C(J+1)$
0359 0 0002 45 0000
0360 1 0000 25 4988 C
0361 0 0000 40 4701 R2
0362 0 0001 10 4701 R2
0362 IF ABS(R2) GTR 0.95$
0363 0 0000 13 4716 CONST
0364 0 1111 31 0366
0365 0 0000 36
0366 0 0001 33
0362 GO TO PRINT$
0362
0367 0 0000 30 0000 PRINT
0366 0368
0365 0368
0368 IP = ARCSIN(R2)$
0368 0 0000 10 4701 R2
0369 0 0000 44 4703 ARCSI
0370 0 0000 30 4703
0371 0 0000 40 4700 IP
0372 E = E + I - IP$
0372 0 0000 10 4702 I
0373 0 0000 23 4700 IP
0374 0 0000 22 4721 E
0375 0 0000 40 4721 E
0376 0 0000 10 4970 CONST
0377 0 0000 12 4719 J
0378 0 0000 40 4967 TEMP
0379 0 0000 10 4702 I
0380 0 0000 22 4721 E
0376 H2 =(J+1)SIN(E+I)$
0381 0 0000 44 4644 SIN
0382 0 0000 30 4644
0383 0 0000 40 4643 TEMP
0384 0 0000 10 4967 TEMP
0385 0 0000 44 4629 FLOAT
0386 0 0000 30 4629
0387 0 0000 24 4643 TEMP
0388 0 0000 40 4628 H2
0389 R3 = SIN(E)$
0389 0 0000 10 4721 E
0390 0 0000 44 4644 SIN
0391 0 0000 30 4644
0392 0 0000 40 4627 R3
0393 COMMENT IF R3 = SIN(E)$ *APPAREN
0393 IF R3 EQL 0.0$
0393 0 0000 10 4627 R3
0394 0 0000 36 0396
0395 0 0000 30
0393 R3 = 1.0**-20$
0393
0396 0 0000 10 4626 CONST
0397 0 0000 40 4627 R3
0395 0398
0398 0 0000 10 4628 H2
0399 0 0000 23 4723 H1
0398 DL = (H2-H1)/R3$
0400 0 0002 45 0000
0401 0 0000 25 4627 R3
0402 0 0000 40 4625 DL
0403 DU = DL.C(J+1)$
0403 0 0000 10 4625 DL
0404 0 0000 42 4719 J
0405 1 0000 24 4988 C
0406 0 0000 40 4624 DU
0407 SUMD = SUMD + DU$
0407 0 0000 10 4624 DU
0408 0 0000 22 4722 SUMD
0409 0 0000 40 4722 SUMD
0410 H1 = H2$
0410 0 0000 10 4628 H2
0411 0 0000 40 4723 H1
0412 0 0000 10 0413
0413 0 0000 01 0000 EDH
0414 0 4400 28 4727
0415 1 0000 40 0000
0412 WRITE ($$ EDH, F2)$
0416 0 0000 10 0417
0417 0 0000 01 0000 F2
0418 0 0000 44 4727 WRITE
0419 0 0100 30 4727
0420 0 0000 30
0413 0421
0421 0 0000 30
0422 0 0000 10 4721 E
0423 0 0000 42 0423
0424 0 0002 20 0421
0425 0 0000 10 4624 DU
0426 0 0000 42 0426
0427 0 0002 20 0421
0420 OUTPUT EDH(E, DU, H1)$
0428 0 0000 10 4723 H1
0429 0 0000 42 0429
0430 0 0002 20 0421
0431 0 0009 43 0000
0432 0 0000 30 0421
0420 0433
0433 0 0000 30
0417 0434
0434 0 0004 20 0500
0435 3 4514 00 0000
0436 0 0006 70 1508
0437 0 0004 20 1000
0438 3 4414 00 0000
0439 0 0006 70 1508
0440 0 0004 20 1000
0441 3 4814 00 0000
0442 0 0006 70 1508
0443 0 0006 60 0400
0444 1 0000 00 0434
0433 FORMAT F2 (B5,*E*,X15.8,B10,*D*,X15.8,B10,*H*,X15.8,W4)$
0433 0445
0445 0 0000 10 4970 CONST
0446 0 1000 38 0448
0447 0 0001 45 0002
0445 IF (PCS(1))$
0448 0 0000 36
0445 BEGIN
0449 0 0000 10 0450
0450 0 0000 01 0000 ALL
0451 0 4400 28 4727
0452 1 0000 40 0000
0453 WRITE ($$ ALL, F5)$
0453 0 0000 10 0454
0454 0 0000 01 0000 F5
0455 0 0000 44 4727 WRITE
0456 0 0100 30 4727
0457 0 0000 30
0450 0458
0458 0 0000 30
0459 0 0000 10 4717 R1
0460 0 0000 42 0460
0461 0 0002 20 0458
0462 0 0000 10 4701 R2
0463 0 0000 42 0463
0464 0 0002 20 0458
0465 0 0000 10 4702 I
0466 0 0000 42 0466
0467 0 0002 20 0458
0468 0 0000 10 4700 IP
0469 0 0000 42 0469
0470 0 0002 20 0458
0471 0 0000 10 4721 E
0472 0 0000 42 0472
0473 0 0002 20 0458
0474 0 0000 10 4628 H2
0475 0 0000 42 0475
0476 0 0002 20 0458
0477 0 0000 10 4627 R3
0478 0 0000 42 0478
0479 0 0002 20 0458
0480 0 0000 10 4625 DL
0481 0 0000 42 0481
0482 0 0002 20 0458
0483 0 0000 10 4624 DU
0484 0 0000 42 0484
0485 0 0002 20 0458
0457 OUTPUT ALL (R1, R2, I, IP, E, H2, R3, DL, DU, P)$
0486 0 0000 10 4720 P
0487 0 0000 42 0487
0488 0 0002 20 0458
0489 0 0009 43 0000
0490 0 0000 30 0458
0457 0491
0491 0 0000 30
0454 0492
0492 0 0054 60 1205
0493 0 0006 60 0400
0494 1 0000 02 0492
0495 1 0000 00 0492
0491 FORMAT F5 (2(5F12.5,W4))
0496 END$
0496
0491 0496
0448 0496
0496 0 0000 42 4719 J
0497 1 0000 10 4995 A
0498 0 0000 24 4701 R2
0496 P = A(J).R2 - R3(A(J+1) = A(J) + B(J))
0499 0 0000 40 4643 TEMP
0500 1 0000 10 4991 B
0501 1 0000 22 4995 A
0502 1 0000 40 4996 A
0503 0 0000 24 4627 R3
0504 0 0000 23 4643 TEMP
0505 0 0000 40 4643 TEMP
0506 0 0000 11 4643 TEMP
0507 0 0000 40 4720 P
0503 END$
0503
0340 0509
0331 0508
0508 0 0000 30
0509 0 0000 10 4701 R2
0510 0 0002 45 0000
0511 0 0000 25 4627 R3
0512 0 0000 22 4979 CONST
0509 L = A(3)(1.0 + R2/R3)$
0513 0 0000 24 4998 A
0514 0 0000 40 4623 L
0515 SUMD = SUMD - DU$
0515 0 0000 10 4722 SUMD
0516 0 0000 23 4624 DU
0517 0 0000 40 4722 SUMD
0518 0 0000 10 0519
0519 0 0000 01 0000 LSUMD
0520 0 4400 28 4727
0521 1 0000 40 0000
0518 WRITE ($$ LSUMD, F3)$
0522 0 0000 10 0523
0523 0 0000 01 0000 F3
0524 0 0000 44 4727 WRITE
0525 0 0100 30 4727
0526 0 0000 30
0519 0527
0527 0 0000 30
0528 0 0000 10 4623 L
0529 0 0000 42 0529
0530 0 0002 20 0527
0526 OUTPUT LSUMD (L, SUMD)$
0531 0 0000 10 4722 SUMD
0532 0 0000 42 0532
0533 0 0002 20 0527
0534 0 0009 43 0000
0535 0 0000 30 0527
0526 0536
0536 0 0000 30
0523 0537
0537 0 0004 20 1000
0538 3 5314 00 0000
0539 0 0006 70 2008
0540 0 0004 20 1000
0541 3 6264 54 4414
0542 0 0006 70 2008
0543 0 0006 60 0600
0544 0 0006 60 0400
0545 1 0000 00 0537
0536 FORMAT F3 (B10,*L*,X20.8,B10,*SUMD*,X20.8,W6,W4)
0536 END
0536 0546
0546 END$
0546
0300 0547
0291 0546
0546 0 0000 30
0229 0548
0220 0547
0547 0 0000 30
0547 STOP$
0547
0548 0 0137 00 7310
0549 PRINT..
0367 0549
0351 0549
0549 0 0000 10 0550
0550 0 0000 01 0000 ERROR
0551 0 4400 28 4727
0552 1 0000 40 0000
0553 WRITE ($$ ERROR, F)$
0553 0 0000 10 0554
0554 0 0000 01 0000 F
0555 0 0000 44 4727 WRITE
0556 0 0100 30 4727
0557 0 0000 30
0550 0558
0558 0 0000 30
0559 0 0000 10 4717 R1
0560 0 0000 42 0560
0561 0 0002 20 0558
0562 0 0000 10 4701 R2
0563 0 0000 42 0563
0564 0 0002 20 0558
0565 0 0000 42 4719 J
0566 1 0000 10 4995 A
0567 0 0000 42 0567
0568 0 0002 20 0558
0569 0 0000 42 4719 J
0570 1 0000 10 4988 C
0571 0 0000 42 0571
0572 0 0002 20 0558
0557 OUTPUT ERROR (R1, R2, A(J), C(J+1), P)$
0573 0 0000 10 4720 P
0574 0 0000 42 0574
0575 0 0002 20 0558
0576 0 0009 43 0000
0577 0 0000 30 0558
0557 0578
0578 0 0000 30
0554 0579
0579 3 5981 14 0000
0580 0 0006 70 0904
0581 0 0004 20 0400
0582 3 5982 14 0000
0583 0 0006 70 0904
0584 0 0004 20 0400
0585 3 4114 00 0000
0586 0 0006 70 0904
0587 0 0004 20 0400
0588 3 4314 00 0000
0589 0 0006 70 0906
0590 0 0004 20 0400
0578 FORMAT F (*R1*,X9.4,B4,*R2*,X9.4,B4,*A*,X9.4,B4,*C*,X9.6,B4,
0591 3 5714 00 0000
0592 0 0006 70 0904
0593 0 0006 60 0100
0594 1 0000 00 0579
0578 *P*,X9.4,W1)$
0578 0595
0595 STOP$
0595 0 0137 00 7310
0596 FINISH$
0596 0 9669 00 9669
0597 0 1000 60 0000
4970 0 0000 00 0001 POOL
4725 0 0000 00 0004
4718 0 0000 00 0003
4968 0 0000 00 0006
4979 0 5110 00 0000
4987 0 5326 00 0000
4986 0 5360 00 0000
4978 0 5134 36 0000
4977 0 5333 97 5000
4716 0 5095 00 0000
4626 0 3110 00 0000
4629 0 0006 45 0000
4630 0 2200 36 4633
4631 0 0000 48 0001
4632 0 0001 20 4630
4633 0 0001 48 0008
4634 1 0000 10 4639
4635 0 0001 49 0008
4636 0 0000 22 4642
4637 0 0000 42 4629
4638 1 0000 30 0000
4639 0 0000 00 0058
4640 0 0000 00 0059
4641 0 0000 00 0060
4642 0 5800 00 0000
4727 0 0100 01 0000
4728 0 0410 40 4763
4729 0 0000 42 4731
4730 0 0010 29 4963
4731 0 0300 29 0101
4732 0 0000 42 4727
4733 0 0412 40 4812
4734 1 0000 41 9999
4735 0 0009 43 7557
4736 0 2200 37 4740
4737 0 0000 42 0100
4738 1 0000 44 0000
4739 1 2201 37 0001
4740 0 0000 40 0132
4741 0 0412 40 4794
4742 0 0000 41 0130
4743 0 0000 37 4761
4744 0 0000 10 0134
4745 0 0000 46 0133
4746 0 5246 37 4923
4747 0 5267 37 4899
4748 0 5249 37 4837
4749 0 5262 37 4950
4750 0 5241 37 4752
4751 0 0000 30 4938
4752 0 0000 41 4770
4753 0 0001 27 0129
4754 0 0000 44 4895
4755 0 0000 30 4886
4756 0 0000 10 0129
4757 0 0000 36 4777
4758 0 2299 37 4791
4759 0 0001 49 0010
4760 0 0000 30 4753
4761 0 0000 42 4728
4762 0 0000 31 4577 ERROR
4763 0 0000 10 9999
4764 0 0401 26 4763
4765 0 0000 33 4779
4766 0 0000 41 4770
4767 0 0001 33 4795
4768 0 2214 36 4763
4769 0 0000 44 4895
4770 0 9900 30 4886
4771 0 2299 37 4763
4772 0 0001 49 0010
4773 0 0000 30 4768
4774 0 0000 10 0129
4775 0 0000 19 0125
4776 0 0000 19 0125
4777 0 0000 10 0130
4778 0 3300 36 4761
4779 0 3300 36 4781
4780 0 0000 13 4964
4781 0 0000 40 0130
4782 0 0210 40 0131
4783 0 0001 48 0002
4784 0 0310 40 0129
4785 0 7242 36 4774
4786 0 7266 36 4815
4787 0 7257 36 4823
4788 0 7263 36 4825
4789 0 7243 36 4814
4790 0 0300 36 4763
4791 0 0000 10 0132
4792 0 0000 40 0134
4793 0 0009 33 4774
4794 0 0000 30 9999
4795 0 0000 42 4763
4796 0 6600 36 4811
4797 0 0001 49 0003
4798 0 0300 37 4805
4799 0 0000 13 4964
4800 0 3300 36 4807
4801 1 6301 27 9999
4802 1 0000 41 9999
4803 0 0411 40 4763
4804 0 0000 30 4763
4805 1 3310 40 9999
4806 0 0000 30 4799
4807 1 0000 10 9999
4808 0 0001 48 0003
4809 1 6610 40 9999
4810 0 0000 30 4763
4811 0 0000 10 0132
4812 0 0009 33 9999
4813 0 0000 30 4802
4814 0 1008 61 0124
4815 0 0001 48 0003
4816 0 3111 40 4817
4817 0 2408 44 4610 REED
4818 0 0101 30 4610 REED
4819 0 0000 42 4821
4820 0 0010 29 4963
4821 0 0240 29 0101
4822 0 0000 30 4777
4823 0 1008 61 0124
4824 0 0000 30 4819
4825 0 0300 36 4830
4826 0 0010 09 4829
4827 0 0001 12 4807
4828 0 0000 30 4825
4829 2 1602 02 0202
4830 0 0000 10 0125
4831 0 0000 36 4777
4832 0 0000 12 4900
4833 0 0001 48 0004
4834 0 3211 40 4835
4835 0 0990 09 0101
4836 0 0000 30 4819
4837 0 0000 42 4847
4838 0 0000 36 4896
4839 0 1100 36 4897
4840 0 0000 40 0134
4841 0 0003 45 0080
4842 0 0002 40 0128
4843 0 0000 46 0126
4844 0 0410 40 0126
4845 0 0001 40 0127
4846 0 0000 10 0134
4847 0 0002 48 0010
4848 0 0001 43 0023
4849 0 0000 12 0129
4850 0 0000 13 0128
4851 0 0001 33 4938
4852 0 0000 19 0125
4853 0 5000 19 0125
4854 0 0000 10 0134
4855 0 0000 41 4891
4856 0 0000 44 4895
4857 0 0001 33 4885
4858 0 0001 27 0128
4859 0 0000 32 4871
4860 0 0000 41 0127
4861 0 0000 37 4777
4862 0 0000 41 4848
4863 0 0000 44 4895
4864 0 0000 30 4885
4865 0 0000 10 0127
4866 0 0000 13 4853
4867 0 0000 42 4783
4868 0 0000 46 0129
4869 0 0003 26 0129
4870 0 0000 30 4840
4871 0 0001 27 0126
4872 0 0000 41 0126
4873 0 0000 37 4879
4874 0 0000 41 0133
4875 0 0000 37 4881
4876 0 0001 27 0133
4877 0 0000 41 4841
4878 0 0000 30 4885
4879 0 0000 41 4808
4880 0 0000 30 4885
4881 0 0000 10 0134
4882 0 0000 41 4900
4883 0 0001 49 0001
4884 0 0000 40 0134
4885 0 0001 49 0018
4886 0 0001 48 0008
4887 0 0001 42 0125
4888 1 0000 49 0008
4889 0 9400 28 0125
4890 0 0024 21 4895
4891 0 0000 43 0020
4892 1 0000 12 0125
4893 1 0010 40 0125
4894 0 0002 26 0125
4895 0 0000 30 9999
4896 0 0009 21 4841
4897 0 0000 49 0051
4898 0 0001 21 4839
4899 0 0002 45 7557
4900 0 0001 48 0008
4901 0 0410 18 4965
4902 0 0001 40 0134
4903 0 0001 34 4913
4904 0 0410 40 4911
4905 0 0449 27 4911
4906 0 0000 42 4911
4907 0 0000 10 0130
4908 0 0001 48 0004
4909 0 4211 40 4912
4910 0 0000 10 4911
4911 0 0002 45 9999
4912 0 0000 20 4842
4913 0 0000 43 7557
4914 0 0000 13 4965
4915 0 0210 40 0133
4916 0 0211 18 0130
4917 0 0000 35 4920
4918 0 0000 10 4965
4919 0 0000 30 4904
4920 0 0000 10 4897
4921 0 1110 40 0134
4922 0 0000 30 4904
4923 0 0304 27 0129
4924 0 0000 32 4927
4925 0 0000 30 4937
4926 0 0000 10 4966
4927 0 0000 36 4926
4928 0 0002 45 7557
4929 0 2210 40 4852
4930 0 0001 48 0008
4931 0 0001 40 0134
4932 0 0002 48 0010
4933 0 0000 12 0130
4934 0 0000 17 4897
4935 0 0310 18 0129
4936 0 0001 34 4946
4937 0 0004 26 0129
4938 0 0000 10 0129
4939 0 0000 19 0125
4940 0 0000 19 0125
4941 0 0002 27 0125
4942 0 0000 41 4953
4943 0 0000 44 4895
4944 0 0000 30 4885
4945 0 0000 30 4777
4946 0 0000 41 4852
4947 0 0000 10 4883
4948 0 0000 42 0131
4949 0 0001 20 4842
4950 0 0002 45 7557
4951 0 0001 48 0008
4952 0 0001 40 0134
4953 0 0000 43 0014
4954 0 0000 13 4965
4955 0 0002 45 7557
4956 0 0001 33 4961
4957 0 0210 18 0130
4958 0 0000 34 4938
4959 0 0000 12 4883
4960 0 0000 30 4948
4961 0 0010 40 0133
4962 0 0000 30 4947
4963 2 0000 00 0000
4964 0 0010 00 0000
4965 0 0000 00 0050
4966 0 5000 00 0000
4556 0 0000 44 4589
4557 0 0000 30 4585
4558 2 5945 62 6453
4559 2 6300 56 6463
4560 2 0056 46 0059
4561 2 4155 47 4500
4562 2 4955 00 0000
4563 0 0000 44 4589
4564 0 0000 30 4585
4565 2 5945 62 6453
4566 2 6300 64 5544
4567 2 4546 49 5545
4568 2 4400 46 5659
4569 2 0000 00 0000
4570 0 0000 44 4589
4571 0 0000 30 4585
4572 2 5945 62 6453
4573 2 6300 49 5353
4574 2 2044 45 4649
4575 2 5545 44 0046
4576 2 5659 00 0000
4577 0 0000 46 4598
4578 0 0000 44 4589
4579 0 0000 30 4587
4580 0 0000 00 0000
4581 2 0041 59 4963
4582 2 4854 45 6349
4583 2 4300 56 6545
4584 2 5946 53 5666
4585 0 0001 40 4598
4586 0 0003 45 0000
4587 0 0412 40 4592
4588 0 0000 42 4609
4589 0 0050 29 0033
4590 0 1106 44 4610 REED
4591 0 4593 30 4610 REED
4592 0 0000 30 0036
4593 0 0000 00 0000
4594 0 0000 00 0000
4595 0 0000 00 0000
4596 0 0000 00 0000
4597 0 0000 00 0000
4598 0 0000 00 0000
4599 0 0000 00 0000
4600 0 0000 00 0000
4601 0 0000 00 0000
4602 0 0000 00 0000
4603 0 0000 00 0000
4604 0 5000 00 0000
4605 0 0000 00 0000
4606 0 0000 00 0000
4607 0 5110 00 0000
4608 0 0000 00 0000
4609 0 0000 00 4593
4399 0 0004 45 0000
4400 0 0000 42 4399
4401 1 0000 36 0000
4402 0 0001 33 4433
4403 0 0810 40 4435
4404 0 2310 40 4436
4405 0 0000 10 4604 ERROR
4406 0 0000 14 4436
4407 0 0000 13 4437
4408 0 2310 40 4436
4409 0 3110 18 4436
4410 0 0000 35 4413
4411 0 0001 33 4413
4412 0 2201 26 4436
4413 0 0000 10 4438
4414 0 0000 24 4435
4415 0 0000 22 4439
4416 0 0000 24 4435
4417 0 0000 22 4440
4418 0 0000 40 4605 ERROR
4419 0 0000 10 4435
4420 0 0000 25 4605 ERROR
4421 0 0000 22 4605 ERROR
4422 0 0000 24 4441
4423 0 0000 40 4605 ERROR
4424 0 0000 10 4435
4425 0 0000 25 4605 ERROR
4426 0 0000 22 4605 ERROR
4427 0 0000 12 4436
4428 0 0000 35 4431
4429 0 0000 24 4442
4430 1 0000 30 0000
4431 0 0000 24 4441
4432 1 0000 30 0000
4433 0 0000 41 4443
4434 0 0000 30 4563 ERROR
4435 0 5110 00 0000
4436 0 0000 00 0000
4437 0 2550 00 0000
4438 1 4916 45 0338
4439 0 5041 11 7101
4440 0 5062 69 7923
4441 0 5050 00 0000
4442 0 5015 81 1388
4443 2 6258 59 6300
4644 0 0006 45 0000
4645 0 0000 41 4690
4646 0 0411 40 4688
4647 0 0000 46 4608 ERROR
4648 0 0000 24 4693
4649 0 0001 49 0002
4650 0 0211 40 4692
4651 0 0000 42 4692
4652 0 9949 20 4658
4653 0 0007 21 4687
4654 1 0001 49 0018
4655 0 0000 40 4608 ERROR
4656 0 0000 10 4657
4657 0 0001 49 0050
4658 0 0001 49 0018
4659 0 0000 40 4606 ERROR
4660 0 0000 22 4606 ERROR
4661 0 0010 18 4607 ERROR
4662 0 0001 34 4666
4663 0 0000 43 0000
4664 0 0000 23 4694
4665 0 0001 49 0000
4666 0 0000 40 4606 ERROR
4667 0 0000 24 4606 ERROR
4668 0 0000 40 4605 ERROR
4669 0 0000 24 4695
4670 0 0000 22 4696
4671 0 0000 24 4605 ERROR
4672 0 0000 22 4697
4673 0 0000 24 4605 ERROR
4674 0 0000 22 4698
4675 0 0000 24 4605 ERROR
4676 0 0000 22 4699
4677 0 0000 24 4606 ERROR
4678 0 0000 22 4606 ERROR
4679 0 0000 40 4606 ERROR
4680 0 0000 10 4604 ERROR
4681 0 0000 14 4608 ERROR
4682 0 0000 10 4606 ERROR
4683 0 0000 42 4644
4684 1 0000 37 0000
4685 0 0000 11 4606 ERROR
4686 1 0000 30 0000
4687 0 0000 42 4644
4688 0 0000 41 4691
4689 0 0000 30 4570 ERROR
4690 0 0000 00 4691
4691 2 6249 55 0000
4692 0 0000 00 0000
4693 0 5031 83 0989
4694 0 5120 00 0000
4695 0 4715 14 8419
4696 1 4846 73 7656
4697 0 4979 68 9679
4698 1 5064 59 6371
4699 0 5057 07 9632
4703 0 0000 01 0000
4704 0 0000 40 4608 ERROR
4705 0 0000 41 4714
4706 0 0000 44 4509 ROMXX
4707 0 0000 30 4513 ROMXX
4708 0 0000 42 4703
4709 0 0000 36 4548 ROMXX
4710 0 0000 40 4605 ERROR
4711 0 0000 10 4608 ERROR
4712 0 0000 25 4605 ERROR
4713 0 0000 30 4446 ARCTA
4714 0 0000 00 4715
4715 2 4162 49 5500
4444 0 0006 45 0000
4445 0 0000 42 4444
4446 0 0010 18 4607 ERROR
4447 0 0000 40 4608 ERROR
4448 0 4412 40 4479
4449 0 0001 34 4453
4450 0 4401 27 4479
4451 0 5010 10 4497
4452 0 0000 25 4608 ERROR
4453 0 0010 18 4451
4454 0 0001 34 4485
4455 0 0000 49 0002
4456 0 0000 40 4608 ERROR
4457 0 0000 14 4608 ERROR
4458 0 0000 40 4605 ERROR
4459 0 0000 14 4498
4460 0 0000 12 4499
4461 0 0000 14 4605 ERROR
4462 0 0000 12 4500
4463 0 0000 14 4605 ERROR
4464 0 0000 12 4501
4465 0 0000 40 4606 ERROR
4466 0 0000 10 4502
4467 0 0000 14 4605 ERROR
4468 0 0000 12 4503
4469 0 0000 14 4605 ERROR
4470 0 0000 12 4504
4471 0 0000 14 4605 ERROR
4472 0 0000 12 4501
4473 0 0000 14 4608 ERROR
4474 0 0001 48 0002
4475 0 0000 15 4606 ERROR
4476 0 0000 40 4606 ERROR
4477 0 1105 26 4606 ERROR
4478 0 0000 10 4606 ERROR
4479 1 0000 20 0000
4480 0 0000 10 4505
4481 0 0000 41 4608 ERROR
4482 0 0001 49 0000
4483 0 0000 23 4606 ERROR
4484 1 0000 30 0001
4485 0 0000 40 4608 ERROR
4486 0 0000 24 4608 ERROR
4487 0 0000 40 4605 ERROR
4488 0 0000 24 4506
4489 0 0000 22 4507
4490 0 0000 24 4605 ERROR
4491 0 0000 23 4508
4492 0 0000 24 4605 ERROR
4493 0 0000 24 4608 ERROR
4494 0 0000 22 4608 ERROR
4495 0 0000 40 4606 ERROR
4496 0 0000 30 4479
4497 0 5099 99 9999
4498 0 0049 01 7591
4499 0 0565 03 0980
4500 0 1453 56 7135
4501 0 1000 00 0000
4502 0 0008 56 1189
4503 0 0280 50 4541
4504 0 1120 23 4014
4505 0 5115 70 7963
4506 1 5014 28 1428
4507 0 5020 00 0000
4508 0 5033 33 3333
4509 0 4512 01 0000
4510 0 4400 28 4509
4511 0 0000 31 4577 ERROR
4512 0 0000 41 4547
4513 0 0411 40 4543
4514 0 0010 18 4607 ERROR
4515 0 0000 34 4543
4516 0 2251 36 4540
4517 0 0000 36 4541
4518 0 0000 40 4608 ERROR
4519 0 0000 24 4608 ERROR
4520 0 0001 49 0002
4521 0 0211 40 4540
4522 0 0001 42 4540
4523 1 0001 48 0051
4524 0 0000 13 4553
4525 0 0001 49 0010
4526 0 0000 13 4604 ERROR
4527 0 0000 13 4604 ERROR
4528 0 0001 49 0010
4529 0 0000 31 4531
4530 0 0051 12 4554
4531 0 4400 28 4530
4532 0 1100 36 4538
4533 0 0412 40 4540
4534 0 0000 41 4540
4535 0 0001 49 0018
4536 0 0000 42 4509
4537 0 0000 30 4401 SQRT
4538 0 0001 49 0001
4539 0 0001 21 4532
4540 0 0001 43 0000
4541 0 0000 22 4607 ERROR
4542 0 0000 30 4536
4543 0 0000 41 4546
4544 0 0000 42 4509
4545 0 0000 30 4563 ERROR
4546 2 5956 54 6767
4547 0 0000 00 4546
4548 0 0000 10 4555
4549 0 0000 41 4608 ERROR
4550 1 0000 37 0000
4551 0 0001 49 0000
4552 1 0000 30 0000
4553 0 1000 00 0000
4554 0 0000 00 0001
4555 0 5115 70 7963
4610 0 0000 01 0000
4611 0 0000 42 4610
4612 1 0000 10 9999
4613 0 0000 48 0006
4614 0 0410 40 4620
4615 1 0000 10 9998
4616 0 4210 40 4620
4617 0 0000 48 0008
4618 0 0000 13 4622
4619 0 0000 19 4620
4620 0 2000 61 0000
4621 1 0000 30 0000
4622 0 0000 00 0001
COMPILED PROGRAM ENDS AT 0597
PROGRAM VARIABLES BEGIN AT 4399
-.26000000, 03 .55000000, 01 .10000000, 01
-.26503413, 03 .33975000, 03 .34360000, 01
-.60000000, 03 .10000000, 01 .10000000, 01
.00000000, 00 .00000000, 00 -.10000000, 01
G 25.00000000
E -.06831474 D 1274.89130000 H -.32774976
-.96153,-01 -.27984,-01 -.96302,-01 -.27987,-01 -.68314,-01
-.32774, 00 -.68261,-01 .37103, 03 .12748, 04 .25000, 02
E -.16537255 D .29356608 H -.37607655
.39672,-01 .13631, 00 .39683,-01 .13674, 00 -.16537, 00
-.37607, 00 -.16461, 00 .29356, 00 .29356, 00 -.10096, 02
E -.65489915 D -4.52550560 H -3.13246810
-.24232, 00 .24232, 00 -.24476, 00 .24476, 00 -.65489, 00
-.31324, 01 -.60907, 00 .45255, 01 -.45255, 01 -.20658, 02
L 51.33266500 SUMD 1275.18480000
G 50.00000000
E -.13751546 D 1269.55340000 H -.65003198
-.19230, 00 -.55968,-01 -.19351, 00 -.55997,-01 -.13751, 00
-.65003, 00 -.13708, 00 .36948, 03 .12695, 04 .50000, 02
E -.33564916 D .32976416 H -.75865041
.79904,-01 .27455, 00 .79989,-01 .27812, 00 -.33564, 00
-.75865, 00 -.32938, 00 .32976, 00 .32976, 00 -.20335, 02
E -1.36039550 D -3.12936780 H -3.81900720
-.49024, 00 .49024, 00 -.51237, 00 .51237, 00 -.13603, 01
-.38190, 01 -.97794, 00 .31293, 01 -.31293, 01 -.41793, 02
L 42.51399500 SUMD 1269.88310000
G 75.00000000
E -.20856805 D 1260.51770000 H -.96093506
-.28846, 00 -.83952,-01 -.29261, 00 -.84051,-01 -.20856, 00
-.96093, 00 -.20705, 00 .36685, 03 .12605, 04 .75000, 02
E -.51685446 D .39303495 H -1.15515240
.12129, 00 .41675, 00 .12159, 00 .42987, 00 -.51685, 00
-.11551, 01 -.49414, 00 .39303, 00 .39303, 00 -.30868, 02
E -2.21304160 D 1.04110740 H -.32148266
-.75002, 00 .75002, 00 -.84809, 00 .84809, 00 -.22130, 01
-.32148, 00 -.80075, 00 -.10411, 01 .10411, 01 -.63939, 02
L 5.40105630 SUMD 1260.91070000
G 100.00000000
E -.28261909 D 1247.55250000 H -1.25355430
-.38461, 00 -.11193, 00 -.39479, 00 -.11217, 00 -.28261, 00
-.12535, 01 -.27887, 00 .36308, 03 .12475, 04 .10000, 03
E -.71812001 D .48907616 H -1.57535180
.16451, 00 .56527, 00 .16526, 00 .60076, 00 -.71812, 00
-.15753, 01 -.65797, 00 .48907, 00 .48907, 00 -.41869, 02
R1 -1.0295 R2 .5652 A 85.2500 C-1.000000 P -87.7708
Reference in New Issue View Git Blame Copy Permalink