Digital PDFs

DEC-08-LFRRA-A-LA1

December 2000

13 pages

Original

46.7kB

Document:	dec-08-lfrra-a-la1
Order Number:	DEC-08-LFRRA-A-LA1
Revision:
Pages:	13
Original Filename:	https://svn.so-much-stuff.com/svn/trunk/pdp8/src/dec/dec-08-lfrra/dec-08-lfrra-a-la1.pdf

OCR Text

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

/FOCAL-8 REPLACE
/DEC-08-LFRRA-A-LA1
/OCTOBER 1971

RM/SM

/COPYRIGHT 1971 DIGITAL EQUIPMENT CORPORATION
/
MAYNARD, MASSACHUSETTS 01754
/FOCAL IS A REGISTERED TRADEMARK OF
/DIGITAL EQUIPMENT CORPORATION
/ASSEMBLY INSTRUCTIONS:
/.R PAL8 OR .R PAL10
/*REPLACE,REPLACE_REPLACE

NOPUNCH
90
XLIST
91
ENPUNCH
92
/
*****************************************************************
93
*35
94 000035 4617 BOTTOM, FEXP-1 /*********
95
/
****************************************************************
96
NOPUNCH
410
XLIST
411
ENPUNCH
412
*402
413
/
*******************************************************************
414 000402 5000
ARTN
/FATN
-ARCTANGENT
415 000403 4620
FEXP
/FEXP
-E^X
416 000404 5040
FLOG
/FLOG
-LN(X)
417 000405 5205
FSIN
/FSIN
-SINE
418 000406 5200
FCOS
/FCOS
-COSINE
419
/
****************************************************************
420
NOPUNCH
2379
XLIST
2380
ENPUNCH
2381
/
**********************************************************************
2382
/FLOATING POINT PACKAGE - EXPONENTIAL
2383
2384
GETSGN=TAD FLAC+1
2385
RETURN=JMP I EFUN3I
2386
2387
*4600+20
2388
2389 004620 1045 FEXP,
GETSGN
/TAKE ABSOLUTE
VALUE
2390 004621 7710
SPA CLA
2391 004622 4724
JMS I NEGP
2392 004623 3033
DCA T3
/C(SIGN)=-1 IF I X2<0
2393 004624 4407
FINT
2394 004625 4313
FMUL LG2E
2395 004626 6675
FPUT I X2
2396 004627 0000
FEXT
2397 004630 4453
JMS I INTEGER
/TAKE INTEGER PART
2398 004631 3325
DCA FLAG2
/SAVE LOW ORDER DATA
2399 004632 4407
FINT
2400 004633 7000
FNOR
2401 004634 6676
FPUT I XSQ2
2402 004635 0675
FGET I X2
2403 004636 2676
FSUB I XSQ2
2404 004637 6675
FPUT I X2

2405 004640
2406 004641
2407 004642
2408 004643
2409 004644
2410 004645
2411 004646
2412 004647
2413 004650
2414 004651
2415 004652
2416 004653
2417 004654
2418 004655
2419 004656
2420 004657
2421 004660
2422 004661
2423 004662
2424 004663
2425 004664
2426 004665
2427 004666
2428 004667
2429 004670
2430 004671
2431 004672
2432 004673
2433 004674
2434

4675
6676
1310
6326
0305
3326
2675
1277
6326
0302
4676
1326
6326
0675
3326
4321
1316
0000
1325
1044
3044
2033
5536
4407
6675
0316
3675
0000
5536

FMUL I X2
FPUT I XSQ2
FADD DF
FPUT TEMP
FGET CF
FDIV TEMP
FSUB I X2
FADD AF
FPUT TEMP
FGET BF
FMUL I XSQ2
FADD TEMP
FPUT TEMP
FGET I X2
FDIV TEMP
FMUL TWO
FADD ONE
FEXT
TAD FLAG2
TAD FLAC
DCA FLAC
ISZ T3
RETURN
FINT
FPUT I X2
FGET ONE
FDIV I X2
FEXT
RETURN

2435
2436
2437 004675
2438 004676
2439 004677
2440 004700
2441 004701
2442 004702
2443 004703
2444 004704
2445 004705
2446 004706
2447 004707
2448 004710
2449 004711
2450 004712
2451 004713
2452 004714
2453 004715
2454 004716
2455 004717
2456 004720
2457 004721
2458 004722
2459 004723
2460 004724
2461
2462 004725
2463 004726
2464 004727
2465 004730
2466 004731
2467
2468
2469

/CONSTANTS FOR FEXP
5321
5325
0004
2372
1402
7774
2157
5157
0012
5454
0343
0007
2566
5341
0001
2705
2435
0001
2000
0000
0002
2000
0000
5163

X2,
XSQ2,
AF,

0000
0000
0000
0000
0000

FLAG2,
TEMP,

BF,
CF,
DF,
LG2E,
ONE,
TWO,
NEGP,

X
XSQR
0004
2372
1402
7774
2157
5157
0012
5454
0343
0007
2566
5341
0001
2705
2435
0001
2000
0000
0002
2000
0000
FNEG
0
0
0
0
0

2470
2471
2472 004732
2473 004733
2474 004734
2475 004735
2476 004736
2477 004737
2478 004740
2479 004741
2480 004742
2481 004743
2482 004744
2483 004745
2484 004746
2485 004747
2486 004750
2487 004751
2488 004752
2489 004753
2490 004754
2491
2492
2493
2494
2495 004755
2496 004756
2497 004757
2498 004760
2499 004761
2500 004762
2501 004763
2502 004764
2503 004765
2504 004766
2505 004767
2506 004770
2507 004771
2508 004772
2509 004773
2510 004774
2511 004775
2512 004776
2513
2514
2515

/MAIN ALGORITHM FOR ARCTANGENT
4407
0675
4675
6676
4374
1371
4676
1366
6326
0363
4676
1360
4676
1355
4675
3326
0000
5754
5024

ARCALG, FINT
FGET I X2
FMUL I X2
FPUT I XSQ2
FMUL BET2
FADD BET1
FMUL I XSQ2
FADD BETZ
FPUT TEMP
FGET ALF2
FMUL I XSQ2
FADD ALF1
FMUL I XSQ2
FADD ALFZ
FMUL I X2
FDIV TEMP
FEXT
JMP I .+1
ARCRTN

0000
2437
1643
7777
3304
4434
7773
3306
5454
0000
2437
1646
0000
2427
2323
7775
3427
7052

/CONSTANTS - FLOATING ARC TANGENT
ALFZ,
0000
2437
1643
ALF1,
7777
3304
4434
ALF2,
7773
3306
5454
BETZ,
0000
2437
1646
BET1,
0000
2427
2323
BET2,
7775
3427
7052

2516
/-----------------------------------------------------------2517
/-----------------------------------------------------------2518
/FLOATING POINT ARC TANGENT
2519
2520
*5000
2521
2522 005000 1045 ARTN,
GETSGN
/TAKE ABSOLUTE VALUE
2523 005001 7710
SPA CLA
2524 005002 4363
JMS FNEG
2525 005003 3033
DCA T3
2526 005004 4407
FINT
2527 005005 6635
FPUT I X1
2528 005006 2637
FSUB I CON1
2529 005007 0000
FEXT
2530 005010 1045
GETSGN
2531 005011 7710
SPA CLA
2532 005012 5221
JMP GO
/LESS THAN ONE
2533 005013 4407
FINT
2534 005014 0637
FGET I CON1
2535 005015 3635
FDIV I X1
2536 005016 6635
FPUT I X1
2537 005017 0000
FEXT
2538 005020 7240
CLA CMA
2539 005021 3362 GO,
DCA FLAG1
/SIGN FLAG OF RESULT
2540 005022 5623
JMP I .+1
/CALL ALGORITHM
2541 005023 4732
ARCALG
2542 005024 2362 ARCRTN, ISZ FLAG1
/RETURN HERE
2543 005025 5634
JMP I EXIT1
2544 005026 4407
FINT
2545 005027 6635
FPUT I X1
2546 005030 0636
FGET I PI2
2547 005031 2635
FSUB I X1
2548 005032 0000
FEXT
2549 005033 5634
JMP I .+1
2550 005034 5301 EXIT1, EXIT2
2551
2552
/CONSTANTS FOR ARCTANGENT
2553 005035 5321 X1,
X
2554 005036 5315 PI2,
PIOT
2555 005037 4716 CON1,
ONE
2556
2557

2558 005040
2559 005041
2560 005042
2561 005043
2562 005044
2563 005045
2564 005046
2565 005047
2566 005050
2567 005051
2568 005052
2569 005053
2570 005054
2571 005055
2572 005056
2573 005057
2574 005060
2575 005061
2576 005062
2577 005063
2578 005064
2579 005065
2580 005066
2581 005067
2582 005070
2583 005071
2584 005072
2585 005073
2586 005074
2587 005075
2588 005076
2589 005077
2590 005100
2591 005101
2592 005102
2593 005103
2594 005104
2595 005105
2596 005106
2597 005107
2598 005110
2599 005111
2600 005112
2601 005113
2602 005114
2603 005115
2604 005116
2605 005117
2606 005120
2607 005121

1045
7450
4566
7710
4566
4407
6756
2637
0000
1045
7450
5536
7700
5264
4407
0637
3756
6756
0000
7240
3033
1005
3044
7040
1756
3045
3046
3047
7001
3756
4407
4357
6635
0756
2637
6756
4353
1350
4756
1345
4756
1342
4756
1337
4756
1334
4756
1331
4756
1326

FLOG,

GETSGN
SNA
ERROR3
SPA CLA
ERROR3
FINT
FPUT I TEM
FSUB I CON1
FEXT
GETSGN
SNA
RETURN
SMA CLA
JMP STARTL
FINT
FGET I CON1
FDIV I TEM
FPUT I TEM
FEXT
CLA CMA
STARTL, DCA T3
TAD P13
DCA FLAC
CMA
TAD I TEM
DCA FLAC+1
DCA FLAC+2
DCA FLAC+3
IAC
DCA I TEM
FINT
FMUL LOG2
FPUT I X1
FGET I TEM
FSUB I CON1
FPUT I TEM
FMUL LOG8
FADD LOG7
FMUL I TEM
FADD LOG6
FMUL I TEM
FADD LOG5
FMUL I TEM
FADD L4
FMUL I TEM
FADD L3
FMUL I TEM
FADD L2
FMUL I TEM
FADD L1

/FLOATING LOGARITHM
/ZERO ARGUEMENT FOR LOG
/NEGATIVE ARGUMENT

2608 005122
2609 005123
2610 005124
2611 005125
2612

4756
1635
0000
5634

FMUL I TEM
FADD I X1
FEXT
JMP I EXIT1

2613
2614 005126
2615 005127
2616 005130
2617 005131
2618 005132
2619 005133
2620 005134
2621 005135
2622 005136
2623 005137
2624 005140
2625 005141
2626
2627
2628
2629 005142
2630 005143
2631 005144
2632 005145
2633 005146
2634 005147
2635 005150
2636 005151
2637 005152
2638 005153
2639 005154
2640 005155
2641
2642 005156
2643 005157
2644 005160
2645 005161
2646 005162
2647
2648
2649
2650
2651 005163
2652 005164
2653 005165
2654 005166
2655
2656

0000
3777
7742
7777
4000
4100
7777
2517
0310
7776
4113
7211

L1,
L2,
L3,
L4,

0000
3777
7742
7777
4000
4100
7777
2517
0310
7776
4113
7211

/LOGARITHM CONSTANTS
7776
2535
3301
7775
4746
0771
7774
2236
4304
7771
4544
1735

LOG5,

4726
0000
2613
4414
0000

TEM,
LOG2,

0000
4451
7240
5763

FNEG,

LOG6,
LOG7,
LOG8,

FLAG1,

7776
2535
3301
7775
4746
0771
7774
2236
4304
7771
4544
1735
TEMP
0
2613
4414
0

0
JMS I MINSKI
CLA CMA
JMP I FNEG

2657
/-----------------------------------------------------------2658
/-----------------------------------------------------------2659
/FLOATING POINT SINE AND COSINE
2660
2661
*5200
2662
2663 005200 4407 FCOS,
FINT
/COS(X)=SIN(PI/2-X)
2664 005201 6321
FPUT X
2665 005202 0315
FGET PIOT
2666 005203 2321
FSUB X
2667 005204 0000
FEXT
2668 005205 1045 FSIN,
GETSGN
2669 005206 7740
SMA SZA CLA
2670 005207 5215
JMP MOD
2671 005210 1045
GETSGN
2672 005211 7700
SMA CLA
2673 005212 5536
RETURN
/YES SIN(0)=0
2674 005213 4451
JMS I MINSKI
2675 005214 7040
CMA
/NO:SIN(-X)=-SIN(X)
2676 005215 3033 MOD,
DCA T3
2677
/REDUCE X MODULO 2 PI
2678 005216 4407
FINT
2679 005217 3305
FDIV TWOPI
2680 005220 6325
FPUT XSQR
2681 005221 0000
FEXT
2682 005222 4453
JMS I INTEGER
2683 005223 4407
FINT
2684 005224 7000
FNOR
2685 005225 6321
FPUT X
2686 005226 0325
FGET XSQR
2687 005227 2321
FSUB X
2688 005230 4305
FMUL TWOPI
2689 005231 6321
FPUT X
2690 005232 2311
FSUB PI
/X<PI?
2691 005233 0000
FEXT
2692 005234 1045
GETSGN
2693 005235 7710
SPA CLA
2694 005236 5244
JMP PCHECK
/YES
2695 005237 4407
FINT
/NO, SIN(X-PI)=-SIN(X)
2696 005240 6321
FPUT X
2697 005241 0000
FEXT
TAD T3
/INVERT THE SIGN
2698 005242 7040
CMA
2699 005243 3033
DCA T3
2700

2701 005244
2702 005245
2703 005246
2704 005247
2705 005250
2706 005251
2707 005252
2708 005253
2709 005254
2710 005255
2711 005256
2712 005257
2713
2714 005260
2715 005261
2716 005262
2717 005263
2718 005264
2719 005265
2720 005266
2721 005267
2722 005270
2723 005271
2724 005272
2725 005273
2726 005274
2727 005275
2728 005276
2729 005277
2730 005300
2731 005301
2732 005302
2733 005303
2734 005304
2735

4407
0321
2315
0000
1045
7710
5260
4407
0311
2321
6321
0000

PCHECK, FINT
FGET X
FSUB PIOT
FEXT
GETSGN
SPA CLA
JMP PALG
FINT
FGET PI
FSUB X
FPUT X
FEXT

4407
0321
3315
6321
4321
6325
0331
4325
1335
4325
1341
4325
1345
4325
1315
4321
0000
2033
5536
4451
5536

PALG,

EXIT2,

FINT
FGET X
FDIV PIOT
FPUT X
FMUL X
FPUT XSQR
FGET C9
FMUL XSQR
FADD C7
FMUL XSQR
FADD C5
FMUL XSQR
FADD C3
FMUL XSQR
FADD PIOT
FMUL X
FEXT
ISZ T3
RETURN
JMS I MINSKI
RETURN

/X<PI/2?

/YES
/NO
/SIN(X)=SIN(PI-X)

2736
2737
2738
2739
2740 005305
2741 005306
2742 005307
2743 005310
2744
2745 005311
2746 005312
2747 005313
2748 005314
2749
2750 005315
2751 005316
2752 005317
2753 005320
2754
2755 005321
2756 005322
2757 005323
2758 005324
2759
2760 005325
2761 005326
2762 005327
2763 005330
2764
2765
2766
2767 005331
2768 005332
2769 005333
2770 005334
2771 005335
2772 005336
2773 005337
2774 005340
2775 005341
2776 005342
2777 005343
2778 005344
2779 005345
2780 005346
2781 005347
2782 005350
2783
2784
2785

/CONSTANTS AND POINTERS

0003
3110
3756
3235

TWOPI,

0003
3110
3756
3235

0002
3110
3756
3235

PI,

0002
3110
3756
3235

0001
3110
3756
3235

PIOT,

0001
3110
3756
3235

0000
0000
0000
0000

XSQR,

0000
0000
0000
0000

/(3755) - FOR 4-WORD

/USED BY SINE AND COSINE

/SINE CONSTANTS
7764
2501
7015
1042
7771
5464
5514
6150
7775
2431
5361
4736
0000
5325
0414
3167

C9,

C7,

C5,

C3,

7764
2501
7015
1042
7771
5464
5514
6150
7775
2431
5361
4736
0000
5325
0414
3167

/END OF EXTENDED FUNCTIONS.

2786
/
**********************************************************************
*
2787
NOPUNCH