EDSAC 2 Researved store content in hexadecimal. Assembled DJG August 2026. Should be loaded at offset 0x200 in the reserved store, which is 0xA00 if the page selector flip-flop is regarded as an extra bit of address. Note that (some of) the reserved store area below this address is used as scratchpad by these library routines. 512 (0xA00): 0x192EB 50f747 50 f 747 ; Jump to m; that is, take m as the next value of r.... 513 (0xA01): 0xA4802 73s2 73 s 2 ; Subtract m from s. 514 (0xA02): 0x192E8 50f744 50 f 744 ; Jump to m; that is, take m as the next value of r.... 515 (0xA03): 0x192E4 50f740 50 f 740 ; Jump to m; that is, take m as the next value of r.... 516 (0xA04): 0x192E6 50f742 50 f 742 ; Jump to m; that is, take m as the next value of r.... 517 (0xA05): 0x197FF 50f2047 50 f 2047 ; Jump to m; that is, take m as the next value of r.... 518 (0xA06): 0x197FE 50f2046 50 f 2046 ; Jump to m; that is, take m as the next value of r.... 519 (0xA07): 0x193A0 50f928 50 f 928 ; Jump to m; that is, take m as the next value of r.... 520 (0xA08): 0x197FD 50f2045 50 f 2045 ; Jump to m; that is, take m as the next value of r.... 521 (0xA09): 0x19602 50f1538 50 f 1538 ; Jump to m; that is, take m as the next value of r.... 522 (0xA0A): 0x19431 50f1073 50 f 1073 ; Jump to m; that is, take m as the next value of r.... 523 (0xA0B): 0x19301 50f769 50 f 769 ; Jump to m; that is, take m as the next value of r.... 524 (0xA0C): 0x19360 50f864 50 f 864 ; Jump to m; that is, take m as the next value of r.... 525 (0xA0D): 0x19342 50f834 50 f 834 ; Jump to m; that is, take m as the next value of r.... 526 (0xA0E): 0x1931F 50f799 50 f 799 ; Jump to m; that is, take m as the next value of r.... 527 (0xA0F): 0x1931E 50f798 50 f 798 ; Jump to m; that is, take m as the next value of r.... 528 (0xA10): 0x19600 50f1536 50 f 1536 ; Jump to m; that is, take m as the next value of r.... 529 (0xA11): 0x1937E 50f894 50 f 894 ; Jump to m; that is, take m as the next value of r.... 530 (0xA12): 0x197FC 50f2044 50 f 2044 ; Jump to m; that is, take m as the next value of r.... 531 (0xA13): 0x197FB 50f2043 50 f 2043 ; Jump to m; that is, take m as the next value of r.... 532 (0xA14): 0xA4580 72s1408 72 s 1408 ; Add m to s. 533 (0xA15): 0xA4802 73s2 73 s 2 ; Subtract m from s. 534 (0xA16): 0xA4D7C 73s1404 73 s 1404 ; Subtract m from s. 535 (0xA17): 0xA400A 72s10 72 s 10 ; Add m to s. 536 (0xA18): 0xA4805 73s5 73 s 5 ; Subtract m from s. 537 (0xA19): 0xA4801 73s1 73 s 1 ; Subtract m from s. 538 (0xA1A): 0xA4004 72s4 72 s 4 ; Add m to s. 539 (0xA1B): 0xA4807 73s7 73 s 7 ; Subtract m from s. 540 (0xA1C): 0xA4FF5 73s2037 73 s 2037 ; Subtract m from s. 541 (0xA1D): 0x1922B 50f555 50 f 555 ; Jump to m; that is, take m as the next value of r.... 542 (0xA1E): 0x19432 50f1074 50 f 1074 ; Jump to m; that is, take m as the next value of r.... 543 (0xA1F): 0x19304 50f772 50 f 772 ; Jump to m; that is, take m as the next value of r.... 544 (0xA20): 0x19365 50f869 50 f 869 ; Jump to m; that is, take m as the next value of r.... 545 (0xA21): 0x19345 50f837 50 f 837 ; Jump to m; that is, take m as the next value of r.... 546 (0xA22): 0x10D9A 33f1434 33 f 1434 ; Subtract N(m) from N(A). 547 (0xA23): 0x19327 50f807 50 f 807 ; Jump to m; that is, take m as the next value of r.... 548 (0xA24): 0x19601 50f1537 50 f 1537 ; Jump to m; that is, take m as the next value of r.... 549 (0xA25): 0x1937C 50f892 50 f 892 ; Jump to m; that is, take m as the next value of r.... 550 (0xA26): 0x197FA 50f2042 50 f 2042 ; Jump to m; that is, take m as the next value of r.... 551 (0xA27): 0x197F9 50f2041 50 f 2041 ; Jump to m; that is, take m as the next value of r.... 552 (0xA28): 0x59464 50r1124 50 r 1124 ; Jump to m; that is, take m as the next value of r.... 553 (0xA29): 0xA4002 72s2 72 s 2 ; Add m to s. 554 (0xA2A): 0xA4010 72s16 72 s 16 ; Add m to s. 555 (0xA2B): 0xA9800 83s0 83 s 0 ; Subtract a(m) from s. 556 (0xA2C): 0xE7807 79t7 79 t 7 ; Store s as the address part of half-register m. 557 (0xA2D): 0xE32CA 70t714 70 t 714 ; Set m in register s. 558 (0xA2E): 0x1880A 49f10 49 f 10 ; Store V(M) in register m and M(L) in register m + ... 559 (0xA2F): 0x09808 19f8 19 f 8 ; Store F(M) in register m, without change of repres... 560 (0xA30): 0xE7806 79t6 79 t 6 ; Store s as the address part of half-register m. 561 (0xA31): 0xE807A 80t122 80 t 122 ; Set a(m) in s. 562 (0xA32): 0x19589 50f1417 50 f 1417 ; Jump to m; that is, take m as the next value of r.... 563 (0xA33): 0xE4801 73t1 73 t 1 ; Subtract m from s. 564 (0xA34): 0x65804 75r4 75 r 4 ; Repeat, subtracting: decrease s by 2; jump to m if... 565 (0xA35): 0xE3000 70t0 70 t 0 ; Set m in register s. 566 (0xA36): 0xE787C 79t124 79 t 124 ; Store s as the address part of half-register m. 567 (0xA37): 0xE807B 80t123 80 t 123 ; Set a(m) in s. 568 (0xA38): 0xE787A 79t122 79 t 122 ; Store s as the address part of half-register m. 569 (0xA39): 0xE807C 80t124 80 t 124 ; Set a(m) in s. 570 (0xA3A): 0xE4001 72t1 72 t 1 ; Add m to s. 571 (0xA3B): 0x65807 75r7 75 r 7 ; Repeat, subtracting: decrease s by 2; jump to m if... 572 (0xA3C): 0x35802 107f2 107 f 2 ; Punch character corresponding to m (modulo 32) on ... 573 (0xA3D): 0x35808 107f8 107 f 8 ; Punch character corresponding to m (modulo 32) on ... 574 (0xA3E): 0xE6801 77t1 77 t 1 ; If s= 0; otherwise continue seriall... 583 (0xA47): 0x05008 10f8 10 f 8 ; Set F(m) in M, without change of representation, a... 584 (0xA48): 0x5B802 55r2 55 r 2 ; Jump to m if N(M) < 0; otherwise continue serially... 585 (0xA49): 0x01001 2f1 2 f 1 ; Increase the obeyed address of the next order by m... 586 (0xA4A): 0xA3801 71s1 71 s 1 ; Set —m in register s. 587 (0xA4B): 0xA7804 79s4 79 s 4 ; Store s as the address part of half-register m. 588 (0xA4C): 0x1400E 40f14 40 f 14 ; Set |N(m)| in A; clear L_0. 589 (0xA4D): 0x113E8 34f1000 34 f 1000 ; Multiply: set N(A)_rg.N(m) in A; clear Lo. 590 (0xA4E): 0x1800E 48f14 48 f 14 ; Set M(L) in register m. 591 (0xA4F): 0xE1028 66t40 66 t 40 ; Clear L; then cyclicly shift the word in A m place... 592 (0xA50): 0xEC810 89t16 89 t 16 ; Store s (modulo 512) as the function part of half-... 593 (0xA51): 0x17014 46f20 46 f 20 ; Set the value of m in M as a fixed-point integer; ... 594 (0xA52): 0x1100E 34f14 34 f 14 ; Multiply: set N(A)_rg.N(m) in A; clear Lo. 595 (0xA53): 0x1800E 48f14 48 f 14 ; Set M(L) in register m. 596 (0xA54): 0xA1029 66s41 66 s 41 ; Clear L; then cyclicly shift the word in A m place... 597 (0xA55): 0x17DDA 47f1498 47 f 1498 ; Set M(m) in L. 598 (0xA56): 0x91BE6 35s998 35 s 998 ; Divide: set N(A)/N(m), correctly rounded, in M; cl... 599 (0xA57): 0xC23C7 4t967 4 t 967 ; Increase the obeyed address of the next order by a... 600 (0xA58): 0x59001 50r1 50 r 1 ; Jump to m; that is, take m as the next value of r.... 601 (0xA59): 0x10DA2 33f1442 33 f 1442 ; Subtract N(m) from N(A). 602 (0xA5A): 0x13808 39f8 39 f 8 ; Store N(A)_R in register m. 603 (0xA5B): 0x0A00A 20f10 20 f 10 ; Set |F(m)| in M; clear L. 604 (0xA5C): 0x22418 68f1048 68 f 1048 ; Split: if F(M) = x.2?, set p in s (modulo 2048), s... 605 (0xA5D): 0x5A018 52r24 52 r 24 ; Jump to m if N(M) = 0; otherwise continue serially... 606 (0xA5E): 0xE3801 71t1 71 t 1 ; Set —m in register s. 607 (0xA5F): 0x03801 7f1 7 f 1 ; Multiply N(A) by 2^$-m$ if m < 1024, or by 2^$m-20... 608 (0xA60): 0xA6C00 77s1024 77 s 1024 ; If s=m take r+2 as the next value of r (ie. skip ... 647 (0xA87): 0x02005 4f5 4 f 5 ; Increase the obeyed address of the next order by a... 648 (0xA88): 0x59001 50r1 50 r 1 ; Jump to m; that is, take m as the next value of r.... 649 (0xA89): 0x02004 4f4 4 f 4 ; Increase the obeyed address of the next order by a... 650 (0xA8A): 0x59003 50r3 50 r 3 ; Jump to m; that is, take m as the next value of r.... 651 (0xA8B): 0x01007 2f7 2 f 7 ; Increase the obeyed address of the next order by m... 652 (0xA8C): 0x35817 107f23 107 f 23 ; Punch character corresponding to m (modulo 32) on ... 653 (0xA8D): 0x04804 9f4 9 f 4 ; Store zero in register m. 654 (0xA8E): 0x823B7 4s951 4 s 951 ; Increase the obeyed address of the next order by a... 655 (0xA8F): 0x3581E 107f30 107 f 30 ; Punch character corresponding to m (modulo 32) on ... 656 (0xA90): 0xE5A7E 75t638 75 t 638 ; Repeat, subtracting: decrease s by 2; jump to m if... 657 (0xA91): 0x1700A 46f10 46 f 10 ; Set the value of m in M as a fixed-point integer; ... 658 (0xA92): 0x1100E 34f14 34 f 14 ; Multiply: set N(A)_rg.N(m) in A; clear Lo. 659 (0xA93): 0x1800E 48f14 48 f 14 ; Set M(L) in register m. 660 (0xA94): 0xE1028 66t40 66 t 40 ; Clear L; then cyclicly shift the word in A m place... 661 (0xA95): 0xF73B7 110t951 110 t 951 ; As order 100, except that m is to be taken as an a... 662 (0xA96): 0xA1009 66s9 66 s 9 ; Clear L; then cyclicly shift the word in A m place... 663 (0xA97): 0xA1006 66s6 66 s 6 ; Clear L; then cyclicly shift the word in A m place... 664 (0xA98): 0x99299 50s665 50 s 665 ; Jump to m; that is, take m as the next value of r.... 665 (0xA99): 0xA7805 79s5 79 s 5 ; Store s as the address part of half-register m. 666 (0xA9A): 0x19279 50f633 50 f 633 ; Jump to m; that is, take m as the next value of r.... 667 (0xA9B): 0x1958C 50f1420 50 f 1420 ; Jump to m; that is, take m as the next value of r.... 668 (0xA9C): 0x19680 50f1664 50 f 1664 ; Jump to m; that is, take m as the next value of r.... 669 (0xA9D): 0x01010 2f16 2 f 16 ; Increase the obeyed address of the next order by m... 670 (0xA9E): 0xE4003 72t3 72 t 3 ; Add m to s. 671 (0xA9F): 0xE7805 79t5 79 t 5 ; Store s as the address part of half-register m. 672 (0xAA0): 0x19279 50f633 50 f 633 ; Jump to m; that is, take m as the next value of r.... 673 (0xAA1): 0x0FD8E 31f1422 31 f 1422 ; Set -N(m) in A; clear Lp. 674 (0xAA2): 0x13010 38f16 38 f 16 ; Set N(A) + N(m) in A and its rounded value in regi... 675 (0xAA3): 0x19290 50f656 50 f 656 ; Jump to m; that is, take m as the next value of r.... 676 (0xAA4): 0x0500A 10f10 10 f 10 ; Set F(m) in M, without change of representation, a... 677 (0xAA5): 0xE2008 68t8 68 t 8 ; Split: if F(M) = x.2?, set p in s (modulo 2048), s... 678 (0xAA6): 0xE7810 79t16 79 t 16 ; Store s as the address part of half-register m. 679 (0xAA7): 0x01004 2f4 2 f 4 ; Increase the obeyed address of the next order by m... 680 (0xAA8): 0x3580F 107f15 107 f 15 ; Punch character corresponding to m (modulo 32) on ... 681 (0xAA9): 0xE8010 80t16 80 t 16 ; Set a(m) in s. 682 (0xAAA): 0xE6C00 77t1024 77 t 1024 ; If s=m take r+2 as the next value of r (ie. skip ... 706 (0xAC2): 0xD9000 50t0 50 t 0 ; Jump to m; that is, take m as the next value of r.... 707 (0xAC3): 0x0500E 10f14 10 f 14 ; Set F(m) in M, without change of representation, a... 708 (0xAC4): 0x10596 32f1430 32 f 1430 ; Add N(m) to N(A). 709 (0xAC5): 0x10810 33f16 33 f 16 ; Subtract N(m) from N(A). 710 (0xAC6): 0x10DA2 33f1442 33 f 1442 ; Subtract N(m) from N(A). 711 (0xAC7): 0xDC000 56t0 56 t 0 ; Jump to m if alpha = 1; otherwise continue seriall... 712 (0xAC8): 0x3581E 107f30 107 f 30 ; Punch character corresponding to m (modulo 32) on ... 713 (0xAC9): 0x192C6 50f710 50 f 710 ; Jump to m; that is, take m as the next value of r.... 714 (0xACA): 0x0500A 10f10 10 f 10 ; Set F(m) in M, without change of representation, a... 715 (0xACB): 0x1780C 47f12 47 f 12 ; Set M(m) in L. 716 (0xACC): 0xE8007 80t7 80 t 7 ; Set a(m) in s. 717 (0xACD): 0x1E000 60f0 60 f 0 ; Leave closed subroutine: set a(0) in s and jump to... 718 (0xACE): 0x0A008 20f8 20 f 8 ; Set |F(m)| in M; clear L. 719 (0xACF): 0xE2008 68t8 68 t 8 ; Split: if F(M) = x.2?, set p in s (modulo 2048), s... 720 (0xAD0): 0xC37D9 6t2009 6 t 2009 ; Multiply N(A) by 2^m if m < 1024, or by 2^$m-2048$... 721 (0xAD1): 0x90BE6 33s998 33 s 998 ; Subtract N(m) from N(A). 722 (0xAD2): 0x19689 50f1673 50 f 1673 ; Jump to m; that is, take m as the next value of r.... 723 (0xAD3): 0x15008 42f8 42 f 8 ; Add |N(m)| to N(A). 724 (0xAD4): 0x1CA76 57f630 57 f 630 ; Jump to m if alpha = 0; otherwise continue seriall... 725 (0xAD5): 0x0FBE8 31f1000 31 f 1000 ; Set -N(m) in A; clear Lp. 726 (0xAD6): 0x10D96 33f1430 33 f 1430 ; Subtract N(m) from N(A). 727 (0xAD7): 0x19278 50f632 50 f 632 ; Jump to m; that is, take m as the next value of r.... 728 (0xAD8): 0x8FBE6 31s998 31 s 998 ; Set -N(m) in A; clear Lp. 729 (0xAD9): 0x15008 42f8 42 f 8 ; Add |N(m)| to N(A). 730 (0xADA): 0x17D9A 47f1434 47 f 1434 ; Set M(m) in L. 731 (0xADB): 0x91BE6 35s998 35 s 998 ; Divide: set N(A)/N(m), correctly rounded, in M; cl... 732 (0xADC): 0xA3006 70s6 70 s 6 ; Set m in register s. 733 (0xADD): 0xA7805 79s5 79 s 5 ; Store s as the address part of half-register m. 734 (0xADE): 0x19278 50f632 50 f 632 ; Jump to m; that is, take m as the next value of r.... 735 (0xADF): 0x05008 10f8 10 f 8 ; Set F(m) in M, without change of representation, a... 736 (0xAE0): 0xE1002 66t2 66 t 2 ; Clear L; then cyclicly shift the word in A m place... 737 (0xAE1): 0xE1007 66t7 66 t 7 ; Clear L; then cyclicly shift the word in A m place... 738 (0xAE2): 0xD7000 46t0 46 t 0 ; Set the value of m in M as a fixed-point integer; ... 739 (0xAE3): 0x192D1 50f721 50 f 721 ; Jump to m; that is, take m as the next value of r.... 740 (0xAE4): 0x03827 7f39 7 f 39 ; Multiply N(A) by 2^$-m$ if m < 1024, or by 2^$m-20... 741 (0xAE5): 0x16D98 45f1432 45 f 1432 ; Exact division 742 (0xAE6): 0x1887A 49f122 49 f 122 ; Store V(M) in register m and M(L) in register m + ... 743 (0xAE7): 0x1E000 60f0 60 f 0 ; Leave closed subroutine: set a(0) in s and jump to... 744 (0xAE8): 0xA9800 83s0 83 s 0 ; Subtract a(m) from s. 745 (0xAE9): 0x93878 39s120 39 s 120 ; Store N(A)_R in register m. 746 (0xAEA): 0x1E000 60f0 60 f 0 ; Leave closed subroutine: set a(0) in s and jump to... 747 (0xAEB): 0x0487A 9f122 9 f 122 ; Store zero in register m. 748 (0xAEC): 0xE7807 79t7 79 t 7 ; Store s as the address part of half-register m. 749 (0xAED): 0x5C002 56r2 56 r 2 ; Jump to m if alpha = 1; otherwise continue seriall... 750 (0xAEE): 0x01001 2f1 2 f 1 ; Increase the obeyed address of the next order by m... 751 (0xAEF): 0xE32F2 70t754 70 t 754 ; Set m in register s. 752 (0xAF0): 0xA300C 70s12 70 s 12 ; Set m in register s. 753 (0xAF1): 0x1922E 50f558 50 f 558 ; Jump to m; that is, take m as the next value of r.... 754 (0xAF2): 0x35819 107f25 107 f 25 ; Punch character corresponding to m (modulo 32) on ... 755 (0xAF3): 0xA3801 71s1 71 s 1 ; Set —m in register s. 756 (0xAF4): 0xA7001 78s1 78 s 1 ; Add a(m) to s, putting the result in the address p... 757 (0xAF5): 0xB2000 100s0 100 s 0 ; Set in the more significant half of M the order in... 758 (0xAF6): 0xA300E 70s14 70 s 14 ; Set m in register s. 759 (0xAF7): 0xE32FC 70t764 70 t 764 ; Set m in register s. 760 (0xAF8): 0x1922E 50f558 50 f 558 ; Jump to m; that is, take m as the next value of r.... 761 (0xAF9): 0x32800 101f0 101 f 0 ; Stop the machine and light the stop light on the c... 762 (0xAFA): 0x01007 2f7 2 f 7 ; Increase the obeyed address of the next order by m... 763 (0xAFB): 0x017FF 2f2047 2 f 2047 ; Increase the obeyed address of the next order by m... 764 (0xAFC): 0xA8001 80s1 80 s 1 ; Set a(m) in s. 765 (0xAFD): 0x8D000 26s0 26 s 0 ; Set the integer m in M as a floating-point number,... 766 (0xAFE): 0xA3002 70s2 70 s 2 ; Set m in register s. 767 (0xAFF): 0xE4801 73t1 73 t 1 ; Subtract m from s. 768 (0xB00): 0x1922F 50f559 50 f 559 ; Jump to m; that is, take m as the next value of r.... 769 (0xB01): 0xA2008 68s8 68 s 8 ; Split: if F(M) = x.2?, set p in s (modulo 2048), s... 770 (0xB02): 0xA4900 73s256 73 s 256 ; Subtract m from s. 771 (0xB03): 0x5A802 53r2 53 r 2 ; Jump to m if N(M) != 0; otherwise continue seriall... 772 (0xB04): 0x2D019 90f25 90 f 25 ; Scale: if N(A)=0, jump to m and set s = -129; othe... 773 (0xB05): 0x13808 39f8 39 f 8 ; Store N(A)_R in register m. 774 (0xB06): 0x1BA00 55f512 55 f 512 ; Jump to m if N(M) < 0; otherwise continue serially... 775 (0xB07): 0x03801 7f1 7 f 1 ; Multiply N(A) by 2^$-m$ if m < 1024, or by 2^$m-20... 776 (0xB08): 0x1059A 32f1434 32 f 1434 ; Add N(m) to N(A). 777 (0xB09): 0x0980A 19f10 19 f 10 ; Store F(M) in register m, without change of repres... 778 (0xB0A): 0x05008 10f8 10 f 8 ; Set F(m) in M, without change of representation, a... 779 (0xB0B): 0x1180A 35f10 35 f 10 ; Divide: set N(A)/N(m), correctly rounded, in M; cl... 780 (0xB0C): 0x1080A 33f10 33 f 10 ; Subtract N(m) from N(A). 781 (0xB0D): 0x03801 7f1 7 f 1 ; Multiply N(A) by 2^$-m$ if m < 1024, or by 2^$m-20... 782 (0xB0E): 0x5B003 54r3 54 r 3 ; Jump to m if N(M) >= 0; otherwise continue seriall... 783 (0xB0F): 0x1000A 32f10 32 f 10 ; Add N(m) to N(A). 784 (0xB10): 0x1CB09 57f777 57 f 777 ; Jump to m if alpha = 0; otherwise continue seriall... 785 (0xB11): 0x8D3FE 26s1022 26 s 1022 ; Set the integer m in M as a floating-point number,... 786 (0xB12): 0xA100A 66s10 66 s 10 ; Clear L; then cyclicly shift the word in A m place... 787 (0xB13): 0x5B005 54r5 54 r 5 ; Jump to m if N(M) >= 0; otherwise continue seriall... 788 (0xB14): 0x0500A 10f10 10 f 10 ; Set F(m) in M, without change of representation, a... 789 (0xB15): 0x1159C 34f1436 34 f 1436 ; Multiply: set N(A)_rg.N(m) in A; clear Lo. 790 (0xB16): 0xA4001 72s1 72 s 1 ; Add m to s. 791 (0xB17): 0x59002 50r2 50 r 2 ; Jump to m; that is, take m as the next value of r.... 792 (0xB18): 0x0500A 10f10 10 f 10 ; Set F(m) in M, without change of representation, a... 793 (0xB19): 0xA61C8 76s456 76 s 456 ; If s>=m take r+2 as the next value of r (ie. skip ... 794 (0xB1A): 0xB0681 96s1665 96 s 1665 ; Convert to floating: if m<1024, put 2^m.N(A) in M ... 795 (0xB1B): 0xA69C8 77s456 77 s 456 ; If s=m take r+2 as the next value of r (ie. skip ... 805 (0xB25): 0x01003 2f3 2 f 3 ; Increase the obeyed address of the next order by m... 806 (0xB26): 0x01003 2f3 2 f 3 ; Increase the obeyed address of the next order by m... 807 (0xB27): 0xA3000 70s0 70 s 0 ; Set m in register s. 808 (0xB28): 0x5C001 56r1 56 r 1 ; Jump to m if alpha = 1; otherwise continue seriall... 809 (0xB29): 0x13808 39f8 39 f 8 ; Store N(A)_R in register m. 810 (0xB2A): 0x0559A 10f1434 10 f 1434 ; Set F(m) in M, without change of representation, a... 811 (0xB2B): 0x15808 43f8 43 f 8 ; Subtract |M(m)| from N(A). 812 (0xB2C): 0x13808 39f8 39 f 8 ; Store N(A)_R in register m. 813 (0xB2D): 0x11008 34f8 34 f 8 ; Multiply: set N(A)_rg.N(m) in A; clear Lo. 814 (0xB2E): 0x03001 6f1 6 f 1 ; Multiply N(A) by 2^m if m < 1024, or by 2^$m-2048$... 815 (0xB2F): 0x1380A 39f10 39 f 10 ; Store N(A)_R in register m. 816 (0xB30): 0xA7806 79s6 79 s 6 ; Store s as the address part of half-register m. 817 (0xB31): 0xA380A 71s10 71 s 10 ; Set —m in register s. 818 (0xB32): 0x055A4 10f1444 10 f 1444 ; Set F(m) in M, without change of representation, a... 819 (0xB33): 0x1100A 34f10 34 f 10 ; Multiply: set N(A)_rg.N(m) in A; clear Lo. 820 (0xB34): 0x905B0 32s1456 32 s 1456 ; Add N(m) to N(A). 821 (0xB35): 0xA5333 74s819 74 s 819 ; Repeat, adding: increase s by 2; jump to m if the ... 822 (0xB36): 0x02006 4f6 4 f 6 ; Increase the obeyed address of the next order by a... 823 (0xB37): 0x59001 50r1 50 r 1 ; Jump to m; that is, take m as the next value of r.... 824 (0xB38): 0x11008 34f8 34 f 8 ; Multiply: set N(A)_rg.N(m) in A; clear Lo. 825 (0xB39): 0x03001 6f1 6 f 1 ; Multiply N(A) by 2^m if m < 1024, or by 2^$m-2048$... 826 (0xB3A): 0x1E000 60f0 60 f 0 ; Leave closed subroutine: set a(0) in s and jump to... 827 (0xB3B): 0x30001 96f1 96 f 1 ; Convert to floating: if m<1024, put 2^m.N(A) in M ... 828 (0xB3C): 0x0700C 14f12 14 f 12 ; Multiply F(M) by F(m); clear L. 829 (0xB3D): 0x1E000 60f0 60 f 0 ; Leave closed subroutine: set a(0) in s and jump to... 830 (0xB3E): 0x11008 34f8 34 f 8 ; Multiply: set N(A)_rg.N(m) in A; clear Lo. 831 (0xB3F): 0x30002 96f2 96 f 2 ; Convert to floating: if m<1024, put 2^m.N(A) in M ... 832 (0xB40): 0x1E000 60f0 60 f 0 ; Leave closed subroutine: set a(0) in s and jump to... 833 (0xB41): 0x01000 2f0 2 f 0 ; Increase the obeyed address of the next order by m... 834 (0xB42): 0xA2008 68s8 68 s 8 ; Split: if F(M) = x.2?, set p in s (modulo 2048), s... 835 (0xB43): 0xA4400 72s1024 72 s 1024 ; Add m to s. 836 (0xB44): 0x5A802 53r2 53 r 2 ; Jump to m if N(M) != 0; otherwise continue seriall... 837 (0xB45): 0xAD200 90s512 90 s 512 ; Scale: if N(A)=0, jump to m and set s = -129; othe... 838 (0xB46): 0xA7806 79s6 79 s 6 ; Store s as the address part of half-register m. 839 (0xB47): 0x03801 7f1 7 f 1 ; Multiply N(A) by 2^$-m$ if m < 1024, or by 2^$m-20... 840 (0xB48): 0x1059E 32f1438 32 f 1438 ; Add N(m) to N(A). 841 (0xB49): 0x13808 39f8 39 f 8 ; Store N(A)_R in register m. 842 (0xB4A): 0x10D9C 33f1436 33 f 1436 ; Subtract N(m) from N(A). 843 (0xB4B): 0x11808 35f8 35 f 8 ; Divide: set N(A)/N(m), correctly rounded, in M; cl... 844 (0xB4C): 0x13808 39f8 39 f 8 ; Store N(A)_R in register m. 845 (0xB4D): 0x11008 34f8 34 f 8 ; Multiply: set N(A)_rg.N(m) in A; clear Lo. 846 (0xB4E): 0x1380A 39f10 39 f 10 ; Store N(A)_R in register m. 847 (0xB4F): 0xA3808 71s8 71 s 8 ; Set —m in register s. 848 (0xB50): 0x055C6 10f1478 10 f 1478 ; Set F(m) in M, without change of representation, a... 849 (0xB51): 0x1100A 34f10 34 f 10 ; Multiply: set N(A)_rg.N(m) in A; clear Lo. 850 (0xB52): 0x905D0 32s1488 32 s 1488 ; Add N(m) to N(A). 851 (0xB53): 0xA5351 74s849 74 s 849 ; Repeat, adding: increase s by 2; jump to m if the ... 852 (0xB54): 0x0C008 24f8 24 f 8 ; Set F(m) in register K, without change of represen... 853 (0xB55): 0x13808 39f8 39 f 8 ; Store N(A)_R in register m. 854 (0xB56): 0xA8006 80s6 80 s 6 ; Set a(m) in s. 855 (0xB57): 0xA9006 82s6 82 s 6 ; Add a(m) to s. 856 (0xB58): 0x977FF 46s2047 46 s 2047 ; Set the value of m in M as a fixed-point integer; ... 857 (0xB59): 0xA101F 66s31 66 s 31 ; Clear L; then cyclicly shift the word in A m place... 858 (0xB5A): 0x115FC 34f1532 34 f 1532 ; Multiply: set N(A)_rg.N(m) in A; clear Lo. 859 (0xB5B): 0x12008 36f8 36 f 8 ; Add N(K).N(m) to N(A); put the old value of N(M) i... 860 (0xB5C): 0xA8806 81s6 81 s 6 ; Set —a(m) in s. 861 (0xB5D): 0xA6A00 77s512 77 s 512 ; If s=m take r+2 as the next value of r (ie. skip ... 887 (0xB77): 0x192CC 50f716 50 f 716 ; Jump to m; that is, take m as the next value of r.... 888 (0xB78): 0x09808 19f8 19 f 8 ; Store F(M) in register m, without change of repres... 889 (0xB79): 0x07008 14f8 14 f 8 ; Multiply F(M) by F(m); clear L. 890 (0xB7A): 0xA4001 72s1 72 s 1 ; Add m to s. 891 (0xB7B): 0x19376 50f886 50 f 886 ; Jump to m; that is, take m as the next value of r.... 892 (0xB7C): 0x0980C 19f12 19 f 12 ; Store F(M) in register m, without change of repres... 893 (0xB7D): 0xE4400 72t1024 72 t 1024 ; Add m to s. 894 (0xB7E): 0xE7806 79t6 79 t 6 ; Store s as the address part of half-register m. 895 (0xB7F): 0x8F000 30s0 30 s 0 ; Set N(m) in A; clear Lp. 896 (0xB80): 0x09808 19f8 19 f 8 ; Store F(M) in register m, without change of repres... 897 (0xB81): 0x8F004 30s4 30 s 4 ; Set N(m) in A; clear Lp. 898 (0xB82): 0x0980A 19f10 19 f 10 ; Store F(M) in register m, without change of repres... 899 (0xB83): 0x8F002 30s2 30 s 2 ; Set N(m) in A; clear Lp. 900 (0xB84): 0x96002 44s2 44 s 2 ; Set N(m) in register K. 901 (0xB85): 0xE6C00 77t1024 77 t 1024 ; If s=m take r+2 as the next value of r (ie. skip ... 1029 (0xC05): 0x1E7FF 60f2047 60 f 2047 ; Leave closed subroutine: set a(0) in s and jump to... 1030 (0xC06): 0xA6FFF 77s2047 77 s 2047 ; If s=m take r+2 as the next value of r (ie. skip ... 1044 (0xC14): 0x19427 50f1063 50 f 1063 ; Jump to m; that is, take m as the next value of r.... 1045 (0xC15): 0xA3001 70s1 70 s 1 ; Set m in register s. 1046 (0xC16): 0xA7074 78s116 78 s 116 ; Add a(m) to s, putting the result in the address p... 1047 (0xC17): 0xAC816 89s22 89 s 22 ; Store s (modulo 512) as the function part of half-... 1048 (0xC18): 0xA3864 71s100 71 s 100 ; Set —m in register s. 1049 (0xC19): 0x19411 50f1041 50 f 1041 ; Jump to m; that is, take m as the next value of r.... 1050 (0xC1A): 0xA3002 70s2 70 s 2 ; Set m in register s. 1051 (0xC1B): 0xA9019 82s25 82 s 25 ; Add a(m) to s. 1052 (0xC1C): 0xA685A 77s90 77 s 90 ; If s= 0; otherwise continue seriall... 1091 (0xC43): 0x05008 10f8 10 f 8 ; Set F(m) in M, without change of representation, a... 1092 (0xC44): 0x10E90 33f1680 33 f 1680 ; Subtract N(m) from N(A). 1093 (0xC45): 0x03002 6f2 6 f 2 ; Multiply N(A) by 2^m if m < 1024, or by 2^$m-2048$... 1094 (0xC46): 0x13008 38f8 38 f 8 ; Set N(A) + N(m) in A and its rounded value in regi... 1095 (0xC47): 0x97000 46s0 46 s 0 ; Set the value of m in M as a fixed-point integer; ... 1096 (0xC48): 0x10008 32f8 32 f 8 ; Add N(m) to N(A). 1097 (0xC49): 0x10E90 33f1680 33 f 1680 ; Subtract N(m) from N(A). 1098 (0xC4A): 0x13008 38f8 38 f 8 ; Set N(A) + N(m) in A and its rounded value in regi... 1099 (0xC4B): 0xA3801 71s1 71 s 1 ; Set —m in register s. 1100 (0xC4C): 0xE6001 76t1 76 t 1 ; If s>=m take r+2 as the next value of r (ie. skip ... 1101 (0xC4D): 0xA700B 78s11 78 s 11 ; Add a(m) to s, putting the result in the address p... 1102 (0xC4E): 0xA2811 69s17 69 s 17 ; Set s and a(m) = d, [from next row on paper tape r... 1103 (0xC4F): 0xA681F 77s31 77 s 31 ; If s=m take r+2 as the next value of r (ie. skip ... 1125 (0xC65): 0xA6008 76s8 76 s 8 ; If s>=m take r+2 as the next value of r (ie. skip ... 1126 (0xC66): 0x19462 50f1122 50 f 1122 ; Jump to m; that is, take m as the next value of r.... 1127 (0xC67): 0x19439 50f1081 50 f 1081 ; Jump to m; that is, take m as the next value of r.... 1128 (0xC68): 0x37013 110f19 110 f 19 ; As order 100, except that m is to be taken as an a... 1129 (0xC69): 0x03013 6f19 6 f 19 ; Multiply N(A) by 2^m if m < 1024, or by 2^$m-2048$... 1130 (0xC6A): 0x1B439 54f1081 54 f 1081 ; Jump to m if N(M) >= 0; otherwise continue seriall... 1131 (0xC6B): 0x37341 110f833 110 f 833 ; As order 100, except that m is to be taken as an a... 1132 (0xC6C): 0x0980C 19f12 19 f 12 ; Store F(M) in register m, without change of repres... 1133 (0xC6D): 0x194F4 50f1268 50 f 1268 ; Jump to m; that is, take m as the next value of r.... 1134 (0xC6E): 0xB57EF 106s2031 106 s 2031 ; Punch select (djg) 1135 (0xC6F): 0x19439 50f1081 50 f 1081 ; Jump to m; that is, take m as the next value of r.... 1136 (0xC70): 0x01001 2f1 2 f 1 ; Increase the obeyed address of the next order by m... 1137 (0xC71): 0xE3000 70t0 70 t 0 ; Set m in register s. 1138 (0xC72): 0x1944E 50f1102 50 f 1102 ; Jump to m; that is, take m as the next value of r.... 1139 (0xC73): 0xB73CD 110s973 110 s 973 ; As order 100, except that m is to be taken as an a... 1140 (0xC74): 0xA601B 76s27 76 s 27 ; If s>=m take r+2 as the next value of r (ie. skip ... 1141 (0xC75): 0xE1009 66t9 66 t 9 ; Clear L; then cyclicly shift the word in A m place... 1142 (0xC76): 0xD9437 50t1079 50 t 1079 ; Jump to m; that is, take m as the next value of r.... 1143 (0xC77): 0xA3801 71s1 71 s 1 ; Set —m in register s. 1144 (0xC78): 0x59009 50r9 50 r 9 ; Jump to m; that is, take m as the next value of r.... 1145 (0xC79): 0xA3801 71s1 71 s 1 ; Set —m in register s. 1146 (0xC7A): 0x017FE 2f2046 2 f 2046 ; Increase the obeyed address of the next order by m... 1147 (0xC7B): 0x01001 2f1 2 f 1 ; Increase the obeyed address of the next order by m... 1148 (0xC7C): 0x01002 2f2 2 f 2 ; Increase the obeyed address of the next order by m... 1149 (0xC7D): 0x01001 2f1 2 f 1 ; Increase the obeyed address of the next order by m... 1150 (0xC7E): 0x01001 2f1 2 f 1 ; Increase the obeyed address of the next order by m... 1151 (0xC7F): 0x01001 2f1 2 f 1 ; Increase the obeyed address of the next order by m... 1152 (0xC80): 0xE3003 70t3 70 t 3 ; Set m in register s. 1153 (0xC81): 0xAC807 89s7 89 s 7 ; Store s (modulo 512) as the function part of half-... 1154 (0xC82): 0x055DA 10f1498 10 f 1498 ; Set F(m) in M, without change of representation, a... 1155 (0xC83): 0xC23BE 4t958 4 t 958 ; Increase the obeyed address of the next order by a... 1156 (0xC84): 0x03805 7f5 7 f 5 ; Multiply N(A) by 2^$-m$ if m < 1024, or by 2^$m-20... 1157 (0xC85): 0x10596 32f1430 32 f 1430 ; Add N(m) to N(A). 1158 (0xC86): 0x09808 19f8 19 f 8 ; Store F(M) in register m, without change of repres... 1159 (0xC87): 0x1944E 50f1102 50 f 1102 ; Jump to m; that is, take m as the next value of r.... 1160 (0xC88): 0xE1003 66t3 66 t 3 ; Clear L; then cyclicly shift the word in A m place... 1161 (0xC89): 0xD948A 50t1162 50 t 1162 ; Jump to m; that is, take m as the next value of r.... 1162 (0xC8A): 0xA4080 72s128 72 s 128 ; Add m to s. 1163 (0xC8B): 0x1BC96 55f1174 55 f 1174 ; Jump to m if N(M) < 0; otherwise continue serially... 1164 (0xC8C): 0xA4100 72s256 72 s 256 ; Add m to s. 1165 (0xC8D): 0xAC80D 89s13 89 s 13 ; Store s (modulo 512) as the function part of half-... 1166 (0xC8E): 0xA6200 76s512 76 s 512 ; If s>=m take r+2 as the next value of r (ie. skip ... 1167 (0xC8F): 0xE8010 80t16 80 t 16 ; Set a(m) in s. 1168 (0xC90): 0xA8011 80s17 80 s 17 ; Set a(m) in s. 1169 (0xC91): 0xF75E0 110t1504 110 t 1504 ; As order 100, except that m is to be taken as an a... 1170 (0xC92): 0x837F4 6s2036 6 s 2036 ; Multiply N(A) by 2^m if m < 1024, or by 2^$m-2048$... 1171 (0xC93): 0x1B200 54f512 54 f 512 ; Jump to m if N(M) >= 0; otherwise continue seriall... 1172 (0xC94): 0x823CC 4s972 4 s 972 ; Increase the obeyed address of the next order by a... 1173 (0xC95): 0x19C71 51f1137 51 f 1137 ; Jump to m and clear M and L. 1174 (0xC96): 0x05008 10f8 10 f 8 ; Set F(m) in M, without change of representation, a... 1175 (0xC97): 0x0980C 19f12 19 f 12 ; Store F(M) in register m, without change of repres... 1176 (0xC98): 0x1948F 50f1167 50 f 1167 ; Jump to m; that is, take m as the next value of r.... 1177 (0xC99): 0xB7012 110s18 110 s 18 ; As order 100, except that m is to be taken as an a... 1178 (0xC9A): 0x0980A 19f10 19 f 10 ; Store F(M) in register m, without change of repres... 1179 (0xC9B): 0x5B015 54r21 54 r 21 ; Jump to m if N(M) >= 0; otherwise continue seriall... 1180 (0xC9C): 0xA1009 66s9 66 s 9 ; Clear L; then cyclicly shift the word in A m place... 1181 (0xC9D): 0xAC80C 89s12 89 s 12 ; Store s (modulo 512) as the function part of half-... 1182 (0xC9E): 0xA4A02 73s514 73 s 514 ; Subtract m from s. 1183 (0xC9F): 0x02009 4f9 4 f 9 ; Increase the obeyed address of the next order by a... 1184 (0xCA0): 0xAC812 89s18 89 s 18 ; Store s (modulo 512) as the function part of half-... 1185 (0xCA1): 0xE8013 80t19 80 t 19 ; Set a(m) in s. 1186 (0xCA2): 0xA4002 72s2 72 s 2 ; Add m to s. 1187 (0xCA3): 0x25007 74f7 74 f 7 ; Repeat, adding: increase s by 2; jump to m if the ... 1188 (0xCA4): 0xA7012 78s18 78 s 18 ; Add a(m) to s, putting the result in the address p... 1189 (0xCA5): 0xF2000 100t0 100 t 0 ; Set in the more significant half of M the order in... 1190 (0xCA6): 0x02009 4f9 4 f 9 ; Increase the obeyed address of the next order by a... 1191 (0xCA7): 0xE7812 79t18 79 t 18 ; Store s as the address part of half-register m. 1192 (0xCA8): 0x59007 50r7 50 r 7 ; Jump to m; that is, take m as the next value of r.... 1193 (0xCA9): 0x0980A 19f10 19 f 10 ; Store F(M) in register m, without change of repres... 1194 (0xCAA): 0x0200A 4f10 4 f 10 ; Increase the obeyed address of the next order by a... 1195 (0xCAB): 0x32000 100f0 100 f 0 ; Set in the more significant half of M the order in... 1196 (0xCAC): 0xA54A9 74s1193 74 s 1193 ; Repeat, adding: increase s by 2; jump to m if the ... 1197 (0xCAD): 0x0200A 4f10 4 f 10 ; Increase the obeyed address of the next order by a... 1198 (0xCAE): 0xEC000 88t0 88 t 0 ; Exchange a(m) and s. 1199 (0xCAF): 0x0980A 19f10 19 f 10 ; Store F(M) in register m, without change of repres... 1200 (0xCB0): 0xA800A 80s10 80 s 10 ; Set a(m) in s. 1201 (0xCB1): 0xA7809 79s9 79 s 9 ; Store s as the address part of half-register m. 1202 (0xCB2): 0xE3006 70t6 70 t 6 ; Set m in register s. 1203 (0xCB3): 0x37007 110f7 110 f 7 ; As order 100, except that m is to be taken as an a... 1204 (0xCB4): 0x5B002 54r2 54 r 2 ; Jump to m if N(M) >= 0; otherwise continue seriall... 1205 (0xCB5): 0xA8809 81s9 81 s 9 ; Set —a(m) in s. 1206 (0xCB6): 0xC1007 2t7 2 t 7 ; Increase the obeyed address of the next order by m... 1207 (0xCB7): 0xA7000 78s0 78 s 0 ; Add a(m) to s, putting the result in the address p... 1208 (0xCB8): 0x1948F 50f1167 50 f 1167 ; Jump to m; that is, take m as the next value of r.... 1209 (0xCB9): 0xA4864 73s100 73 s 100 ; Subtract m from s. 1210 (0xCBA): 0x0FBE8 31f1000 31 f 1000 ; Set -N(m) in A; clear Lp. 1211 (0xCBB): 0x89876 19s118 19 s 118 ; Store F(M) in register m, without change of repres... 1212 (0xCBC): 0xA54BB 74s1211 74 s 1211 ; Repeat, adding: increase s by 2; jump to m if the ... 1213 (0xCBD): 0xA8011 80s17 80 s 17 ; Set a(m) in s. 1214 (0xCBE): 0xA481B 73s27 73 s 27 ; Subtract m from s. 1215 (0xCBF): 0xA6001 76s1 76 s 1 ; If s>=m take r+2 as the next value of r (ie. skip ... 1216 (0xCC0): 0x19437 50f1079 50 f 1079 ; Jump to m; that is, take m as the next value of r.... 1217 (0xCC1): 0x00000 0f0 0 f 0 ; UNREGISTERED EDSAC-2 ORDER 1218 (0xCC2): 0xA800D 80s13 80 s 13 ; Set a(m) in s. 1219 (0xCC3): 0xA7800 79s0 79 s 0 ; Store s as the address part of half-register m. 1220 (0xCC4): 0xA800C 80s12 80 s 12 ; Set a(m) in s. 1221 (0xCC5): 0xA7809 79s9 79 s 9 ; Store s as the address part of half-register m. 1222 (0xCC6): 0xE301F 70t31 70 t 31 ; Set m in register s. 1223 (0xCC7): 0xB7012 110s18 110 s 18 ; As order 100, except that m is to be taken as an a... 1224 (0xCC8): 0x0480C 9f12 9 f 12 ; Store zero in register m. 1225 (0xCC9): 0xDB4B8 54t1208 54 t 1208 ; Jump to m if N(M) >= 0; otherwise continue seriall... 1226 (0xCCA): 0xA3801 71s1 71 s 1 ; Set —m in register s. 1227 (0xCCB): 0xA7012 78s18 78 s 18 ; Add a(m) to s, putting the result in the address p... 1228 (0xCCC): 0x0980A 19f10 19 f 10 ; Store F(M) in register m, without change of repres... 1229 (0xCCD): 0xA1009 66s9 66 s 9 ; Clear L; then cyclicly shift the word in A m place... 1230 (0xCCE): 0xA4A00 73s512 73 s 512 ; Subtract m from s. 1231 (0xCCF): 0x19685 50f1669 50 f 1669 ; Jump to m; that is, take m as the next value of r.... 1232 (0xCD0): 0xE8000 80t0 80 t 0 ; Set a(m) in s. 1233 (0xCD1): 0x0200A 4f10 4 f 10 ; Increase the obeyed address of the next order by a... 1234 (0xCD2): 0xEC000 88t0 88 t 0 ; Exchange a(m) and s. 1235 (0xCD3): 0xE780A 79t10 79 t 10 ; Store s as the address part of half-register m. 1236 (0xCD4): 0xA54D0 74s1232 74 s 1232 ; Repeat, adding: increase s by 2; jump to m if the ... 1237 (0xCD5): 0xE9800 83t0 83 t 0 ; Subtract a(m) from s. 1238 (0xCD6): 0xE780C 79t12 79 t 12 ; Store s as the address part of half-register m. 1239 (0xCD7): 0xE8000 80t0 80 t 0 ; Set a(m) in s. 1240 (0xCD8): 0x02009 4f9 4 f 9 ; Increase the obeyed address of the next order by a... 1241 (0xCD9): 0xAC812 89s18 89 s 18 ; Store s (modulo 512) as the function part of half-... 1242 (0xCDA): 0x02009 4f9 4 f 9 ; Increase the obeyed address of the next order by a... 1243 (0xCDB): 0xE7812 79t18 79 t 18 ; Store s as the address part of half-register m. 1244 (0xCDC): 0x0500C 10f12 10 f 12 ; Set F(m) in M, without change of representation, a... 1245 (0xCDD): 0x1A4BD 52f1213 52 f 1213 ; Jump to m if N(M) = 0; otherwise continue serially... 1246 (0xCDE): 0x3C001 120f1 120 f 1 ; Clear L. If all the OPTIONAL stop keys, labelled 1... 1247 (0xCDF): 0x1A4BD 52f1213 52 f 1213 ; Jump to m if N(M) = 0; otherwise continue serially... 1248 (0xCE0): 0x17003 46f3 46 f 3 ; Set the value of m in M as a fixed-point integer; ... 1249 (0xCE1): 0x0987A 19f122 19 f 122 ; Store F(M) in register m, without change of repres... 1250 (0xCE2): 0x0987C 19f124 19 f 124 ; Store F(M) in register m, without change of repres... 1251 (0xCE3): 0x63005 70r5 70 r 5 ; Set m in register s. 1252 (0xCE4): 0x59004 50r4 50 r 4 ; Jump to m; that is, take m as the next value of r.... 1253 (0xCE5): 0x194BD 50f1213 50 f 1213 ; Jump to m; that is, take m as the next value of r.... 1254 (0xCE6): 0x0100A 2f10 2 f 10 ; Increase the obeyed address of the next order by m... 1255 (0xCE7): 0x017F7 2f2039 2 f 2039 ; Increase the obeyed address of the next order by m... 1256 (0xCE8): 0xA8009 80s9 80 s 9 ; Set a(m) in s. 1257 (0xCE9): 0x192FD 50f765 50 f 765 ; Jump to m; that is, take m as the next value of r.... 1258 (0xCEA): 0x17400 46f1024 46 f 1024 ; Set the value of m in M as a fixed-point integer; ... 1259 (0xCEB): 0x03009 6f9 6 f 9 ; Multiply N(A) by 2^m if m < 1024, or by 2^$m-2048$... 1260 (0xCEC): 0x1300C 38f12 38 f 12 ; Set N(A) + N(m) in A and its rounded value in regi... 1261 (0xCED): 0x1947D 50f1149 50 f 1149 ; Jump to m; that is, take m as the next value of r.... 1262 (0xCEE): 0xA8809 81s9 81 s 9 ; Set —a(m) in s. 1263 (0xCEF): 0xA6FFC 77s2044 77 s 2044 ; If s=m take r+2 as the next value of r (ie. skip ... 1291 (0xD0B): 0x19436 50f1078 50 f 1078 ; Jump to m; that is, take m as the next value of r.... 1292 (0xD0C): 0x1947B 50f1147 50 f 1147 ; Jump to m; that is, take m as the next value of r.... 1293 (0xD0D): 0xE6006 76t6 76 t 6 ; If s>=m take r+2 as the next value of r (ie. skip ... 1294 (0xD0E): 0x59018 50r24 50 r 24 ; Jump to m; that is, take m as the next value of r.... 1295 (0xD0F): 0x3700C 110f12 110 f 12 ; As order 100, except that m is to be taken as an a... 1296 (0xD10): 0x5B005 54r5 54 r 5 ; Jump to m if N(M) >= 0; otherwise continue seriall... 1297 (0xD11): 0xA800A 80s10 80 s 10 ; Set a(m) in s. 1298 (0xD12): 0xA980D 83s13 83 s 13 ; Subtract a(m) from s. 1299 (0xD13): 0xA6801 77s1 77 s 1 ; If s=m take r+2 as the next value of r (ie. skip ... 1308 (0xD1C): 0x194F4 50f1268 50 f 1268 ; Jump to m; that is, take m as the next value of r.... 1309 (0xD1D): 0x3700D 110f13 110 f 13 ; As order 100, except that m is to be taken as an a... 1310 (0xD1E): 0x5B804 55r4 55 r 4 ; Jump to m if N(M) < 0; otherwise continue serially... 1311 (0xD1F): 0xA8012 80s18 80 s 18 ; Set a(m) in s. 1312 (0xD20): 0xA6801 77s1 77 s 1 ; If s=m take r+2 as the next value of r (ie. skip ... 1329 (0xD31): 0x5901A 50r26 50 r 26 ; Jump to m; that is, take m as the next value of r.... 1330 (0xD32): 0xE67EA 76t2026 76 t 2026 ; If s>=m take r+2 as the next value of r (ie. skip ... 1331 (0xD33): 0x59004 50r4 50 r 4 ; Jump to m; that is, take m as the next value of r.... 1332 (0xD34): 0xD13FE 34t1022 34 t 1022 ; Multiply: set N(A)_rg.N(m) in A; clear Lo. 1333 (0xD35): 0xE3818 71t24 71 t 24 ; Set —m in register s. 1334 (0xD36): 0x1952C 50f1324 50 f 1324 ; Jump to m; that is, take m as the next value of r.... 1335 (0xD37): 0xE6400 76t1024 76 t 1024 ; If s>=m take r+2 as the next value of r (ie. skip ... 1336 (0xD38): 0x5900C 50r12 50 r 12 ; Jump to m; that is, take m as the next value of r.... 1337 (0xD39): 0x1880A 49f10 49 f 10 ; Store V(M) in register m and M(L) in register m + ... 1338 (0xD3A): 0x11BFE 35f1022 35 f 1022 ; Divide: set N(A)/N(m), correctly rounded, in M; cl... 1339 (0xD3B): 0x5C806 57r6 57 r 6 ; Jump to m if alpha = 0; otherwise continue seriall... 1340 (0xD3C): 0x0500A 10f10 10 f 10 ; Set F(m) in M, without change of representation, a... 1341 (0xD3D): 0x1780C 47f12 47 f 12 ; Set M(m) in L. 1342 (0xD3E): 0x03801 7f1 7 f 1 ; Multiply N(A) by 2^$-m$ if m < 1024, or by 2^$m-20... 1343 (0xD3F): 0xA4001 72s1 72 s 1 ; Add m to s. 1344 (0xD40): 0x11BFE 35f1022 35 f 1022 ; Divide: set N(A)/N(m), correctly rounded, in M; cl... 1345 (0xD41): 0xE4018 72t24 72 t 24 ; Add m to s. 1346 (0xD42): 0xA4828 73s40 73 s 40 ; Subtract m from s. 1347 (0xD43): 0x19530 50f1328 50 f 1328 ; Jump to m; that is, take m as the next value of r.... 1348 (0xD44): 0xE6018 76t24 76 t 24 ; If s>=m take r+2 as the next value of r (ie. skip ... 1349 (0xD45): 0xC17E8 2t2024 2 t 2024 ; Increase the obeyed address of the next order by m... 1350 (0xD46): 0x113FE 34f1022 34 f 1022 ; Multiply: set N(A)_rg.N(m) in A; clear Lo. 1351 (0xD47): 0xE6018 76t24 76 t 24 ; If s>=m take r+2 as the next value of r (ie. skip ... 1352 (0xD48): 0xC17E8 2t2024 2 t 2024 ; Increase the obeyed address of the next order by m... 1353 (0xD49): 0xE4818 73t24 73 t 24 ; Subtract m from s. 1354 (0xD4A): 0x1952C 50f1324 50 f 1324 ; Jump to m; that is, take m as the next value of r.... 1355 (0xD4B): 0x13808 39f8 39 f 8 ; Store N(A)_R in register m. 1356 (0xD4C): 0xE800E 80t14 80 t 14 ; Set a(m) in s. 1357 (0xD4D): 0xE6816 77t22 77 t 22 ; If s=m take r+2 as the next value of r (ie. skip ... 1365 (0xD55): 0xA6001 76s1 76 s 1 ; If s>=m take r+2 as the next value of r (ie. skip ... 1366 (0xD56): 0xE3000 70t0 70 t 0 ; Set m in register s. 1367 (0xD57): 0xC1000 2t0 2 t 0 ; Increase the obeyed address of the next order by m... 1368 (0xD58): 0xA4800 73s0 73 s 0 ; Subtract m from s. 1369 (0xD59): 0x83000 6s0 6 s 0 ; Multiply N(A) by 2^m if m < 1024, or by 2^$m-2048$... 1370 (0xD5A): 0xE600A 76t10 76 t 10 ; If s>=m take r+2 as the next value of r (ie. skip ... 1371 (0xD5B): 0x01002 2f2 2 f 2 ; Increase the obeyed address of the next order by m... 1372 (0xD5C): 0xA3010 70s16 70 s 16 ; Set m in register s. 1373 (0xD5D): 0x59005 50r5 50 r 5 ; Jump to m; that is, take m as the next value of r.... 1374 (0xD5E): 0x05008 10f8 10 f 8 ; Set F(m) in M, without change of representation, a... 1375 (0xD5F): 0xB0000 96s0 96 s 0 ; Convert to floating: if m<1024, put 2^m.N(A) in M ... 1376 (0xD60): 0xE8006 80t6 80 t 6 ; Set a(m) in s. 1377 (0xD61): 0xA3000 70s0 70 s 0 ; Set m in register s. 1378 (0xD62): 0x1380C 39f12 39 f 12 ; Store N(A)_R in register m. 1379 (0xD63): 0x02007 4f7 4 f 7 ; Increase the obeyed address of the next order by a... 1380 (0xD64): 0x59005 50r5 50 r 5 ; Jump to m; that is, take m as the next value of r.... 1381 (0xD65): 0x01002 2f2 2 f 2 ; Increase the obeyed address of the next order by m... 1382 (0xD66): 0x01002 2f2 2 f 2 ; Increase the obeyed address of the next order by m... 1383 (0xD67): 0x01002 2f2 2 f 2 ; Increase the obeyed address of the next order by m... 1384 (0xD68): 0x13876 39f118 39 f 118 ; Store N(A)_R in register m. 1385 (0xD69): 0x194BD 50f1213 50 f 1213 ; Jump to m; that is, take m as the next value of r.... 1386 (0xD6A): 0x37013 110f19 110 f 19 ; As order 100, except that m is to be taken as an a... 1387 (0xD6B): 0x03013 6f19 6 f 19 ; Multiply N(A) by 2^m if m < 1024, or by 2^$m-2048$... 1388 (0xD6C): 0xE1001 66t1 66 t 1 ; Clear L; then cyclicly shift the word in A m place... 1389 (0xD6D): 0xE4002 72t2 72 t 2 ; Add m to s. 1390 (0xD6E): 0xE7013 78t19 78 t 19 ; Add a(m) to s, putting the result in the address p... 1391 (0xD6F): 0xE4802 73t2 73 t 2 ; Subtract m from s. 1392 (0xD70): 0xE7800 79t0 79 t 0 ; Store s as the address part of half-register m. 1393 (0xD71): 0x0500C 10f12 10 f 12 ; Set F(m) in M, without change of representation, a... 1394 (0xD72): 0xC4000 8t0 8 t 0 ; Exchange: set N(m) in A and N(A), in register m. C... 1395 (0xD73): 0x0980A 19f10 19 f 10 ; Store F(M) in register m, without change of repres... 1396 (0xD74): 0x19502 50f1282 50 f 1282 ; Jump to m; that is, take m as the next value of r.... 1397 (0xD75): 0xE3002 70t2 70 t 2 ; Set m in register s. 1398 (0xD76): 0xE7014 78t20 78 t 20 ; Add a(m) to s, putting the result in the address p... 1399 (0xD77): 0xE4802 73t2 73 t 2 ; Subtract m from s. 1400 (0xD78): 0x19571 50f1393 50 f 1393 ; Jump to m; that is, take m as the next value of r.... 1401 (0xD79): 0x17003 46f3 46 f 3 ; Set the value of m in M as a fixed-point integer; ... 1402 (0xD7A): 0x0987A 19f122 19 f 122 ; Store F(M) in register m, without change of repres... 1403 (0xD7B): 0x0987C 19f124 19 f 124 ; Store F(M) in register m, without change of repres... 1404 (0xD7C): 0xCD000 26t0 26 t 0 ; Set the integer m in M as a floating-point number,... 1405 (0xD7D): 0xA7801 79s1 79 s 1 ; Store s as the address part of half-register m. 1406 (0xD7E): 0xA3002 70s2 70 s 2 ; Set m in register s. 1407 (0xD7F): 0x63003 70r3 70 r 3 ; Set m in register s. 1408 (0xD80): 0x1922F 50f559 50 f 559 ; Jump to m; that is, take m as the next value of r.... 1409 (0xD81): 0xE3507 70t1287 70 t 1287 ; Set m in register s. 1410 (0xD82): 0x0500C 10f12 10 f 12 ; Set F(m) in M, without change of representation, a... 1411 (0xD83): 0x1780A 47f10 47 f 10 ; Set M(m) in L. 1412 (0xD84): 0xA8001 80s1 80 s 1 ; Set a(m) in s. 1413 (0xD85): 0xE4801 73t1 73 t 1 ; Subtract m from s. 1414 (0xD86): 0x1922E 50f558 50 f 558 ; Jump to m; that is, take m as the next value of r.... 1415 (0xD87): 0xAC806 89s6 89 s 6 ; Store s (modulo 512) as the function part of half-... 1416 (0xD88): 0x19437 50f1079 50 f 1079 ; Jump to m; that is, take m as the next value of r.... 1417 (0xD89): 0xE5233 74t563 74 t 563 ; Repeat, adding: increase s by 2; jump to m if the ... 1418 (0xD8A): 0x19243 50f579 50 f 579 ; Jump to m; that is, take m as the next value of r.... 1419 (0xD8B): 0x04804 9f4 9 f 4 ; Store zero in register m. 1420 (0xD8C): 0xF581C 107t28 107 t 28 ; Punch character corresponding to m (modulo 32) on ... 1421 (0xD8D): 0x19279 50f633 50 f 633 ; Jump to m; that is, take m as the next value of r.... 1422 (0xD8E): 0x0D000 26f0 26 f 0 ; Set the integer m in M as a floating-point number,... 1423 (0xD8F): 0x00000 0f0 0 f 0 ; UNREGISTERED EDSAC-2 ORDER 1424 (0xD90): 0x7D000 122r0 122 r 0 ; UNREGISTERED EDSAC-2 ORDER 1425 (0xD91): 0x00000 0f0 0 f 0 ; UNREGISTERED EDSAC-2 ORDER 1426 (0xD92): 0x50000 32r0 32 r 0 ; Add N(m) to N(A). 1427 (0xD93): 0x00000 0f0 0 f 0 ; UNREGISTERED EDSAC-2 ORDER 1428 (0xD94): 0x00000 0f0 0 f 0 ; UNREGISTERED EDSAC-2 ORDER 1429 (0xD95): 0xFFFFF 127t2047 127 t 2047 ; UNREGISTERED EDSAC-2 ORDER 1430 (0xD96): 0x80000 0s0 0 s 0 ; UNREGISTERED EDSAC-2 ORDER 1431 (0xD97): 0x00000 0f0 0 f 0 ; UNREGISTERED EDSAC-2 ORDER 1432 (0xD98): 0x00000 0f0 0 f 0 ; UNREGISTERED EDSAC-2 ORDER 1433 (0xD99): 0x00064 0f100 0 f 100 ; UNREGISTERED EDSAC-2 ORDER 1434 (0xD9A): 0x40000 0r0 0 r 0 ; UNREGISTERED EDSAC-2 ORDER 1435 (0xD9B): 0x00000 0f0 0 f 0 ; UNREGISTERED EDSAC-2 ORDER 1436 (0xD9C): 0x5A827 53r39 53 r 39 ; Jump to m if N(M) != 0; otherwise continue seriall... 1437 (0xD9D): 0x999FD 51s509 51 s 509 ; Jump to m and clear M and L. 1438 (0xD9E): 0x2D413 90f1043 90 f 1043 ; Scale: if N(A)=0, jump to m and set s = -129; othe... 1439 (0xD9F): 0xCCCFF 25t1279 25 t 1279 ; UNREGISTERED EDSAC-2 ORDER 1440 (0xDA0): 0xA0000 64s0 64 s 0 ; UNREGISTERED EDSAC-2 ORDER 1441 (0xDA1): 0x00082 0f130 0 f 130 ; UNREGISTERED EDSAC-2 ORDER 1442 (0xDA2): 0x0CCCC 25f1228 25 f 1228 ; UNREGISTERED EDSAC-2 ORDER 1443 (0xDA3): 0xCCCCD 25t1229 25 t 1229 ; UNREGISTERED EDSAC-2 ORDER 1444 (0xDA4): 0xFFFE3 127t2019 127 t 2019 ; UNREGISTERED EDSAC-2 ORDER 1445 (0xDA5): 0x5387A 39r122 39 r 122 ; Store N(A)_R in register m. 1446 (0xDA6): 0x0029F 0f671 0 f 671 ; UNREGISTERED EDSAC-2 ORDER 1447 (0xDA7): 0xFFD6F 127t1391 127 t 1391 ; UNREGISTERED EDSAC-2 ORDER 1448 (0xDA8): 0xFD9A5 123t421 123 t 421 ; UNREGISTERED EDSAC-2 ORDER 1449 (0xDA9): 0xEE45A 92t1114 92 t 1114 ; UNREGISTERED EDSAC-2 ORDER 1450 (0xDAA): 0x1466B 40f1643 40 f 1643 ; Set |N(m)| in A; clear L_0. 1451 (0xDAB): 0xBC021 120s33 120 s 33 ; Clear L. If all the OPTIONAL stop keys, labelled 1... 1452 (0xDAC): 0xAD510 90s1296 90 s 1296 ; Scale: if N(A)=0, jump to m and set s = -129; othe... 1453 (0xDAD): 0xC71DA 14t474 14 t 474 ; Multiply F(M) by F(m); clear L. 1454 (0xDAE): 0x6487E 73r126 73 r 126 ; Subtract m from s. 1455 (0xDAF): 0xD50E1 42t225 42 t 225 ; Add |N(m)| to N(A). 1456 (0xDB0): 0x0003B 0f59 0 f 59 ; UNREGISTERED EDSAC-2 ORDER 1457 (0xDB1): 0x0A5F0 20f1520 20 f 1520 ; Set |F(m)| in M; clear L. 1458 (0xDB2): 0x0019D 0f413 0 f 413 ; UNREGISTERED EDSAC-2 ORDER 1459 (0xDB3): 0x7D118 122r280 122 r 280 ; UNREGISTERED EDSAC-2 ORDER 1460 (0xDB4): 0x009AB 1f427 1 f 427 ; UNREGISTERED EDSAC-2 ORDER 1461 (0xDB5): 0x65856 75r86 75 r 86 ; Repeat, subtracting: decrease s by 2; jump to m if... 1462 (0xDB6): 0x03058 6f88 6 f 88 ; Multiply N(A) by 2^m if m < 1024, or by 2^$m-2048$... 1463 (0xDB7): 0xF7817 111t23 111 t 23 ; UNREGISTERED EDSAC-2 ORDER 1464 (0xDB8): 0x0C164 24f356 24 f 356 ; Set F(m) in register K, without change of represen... 1465 (0xDB9): 0x02EAE 5f1710 5 f 1710 ; UNREGISTERED EDSAC-2 ORDER 1466 (0xDBA): 0x2442C 72f1068 72 f 1068 ; Add m to s. 1467 (0xDBB): 0x08D46 17f1350 17 f 1350 ; Subtract F(K).F(m) from F(M); put the old value of... 1468 (0xDBC): 0x48858 17r88 17 r 88 ; Subtract F(K).F(m) from F(M); put the old value of... 1469 (0xDBD): 0x116DC 34f1756 34 f 1756 ; Multiply: set N(A)_rg.N(m) in A; clear Lo. 1470 (0xDBE): 0x48858 17r88 17 r 88 ; Subtract F(K).F(m) from F(M); put the old value of... 1471 (0xDBF): 0x116DB 34f1755 34 f 1755 ; Multiply: set N(A)_rg.N(m) in A; clear Lo. 1472 (0xDC0): 0x77915 111r277 111 r 277 ; UNREGISTERED EDSAC-2 ORDER 1473 (0xDC1): 0x77E03 111r1539 111 r 1539 ; UNREGISTERED EDSAC-2 ORDER 1474 (0xDC2): 0x1AADD 53f733 53 f 733 ; Jump to m if N(M) != 0; otherwise continue seriall... 1475 (0xDC3): 0xE095D 65t349 65 t 349 ; UNREGISTERED EDSAC-2 ORDER 1476 (0xDC4): 0x2BFC8 87f1992 87 f 1992 ; UNREGISTERED EDSAC-2 ORDER 1477 (0xDC5): 0xC2BD3 5t979 5 t 979 ; UNREGISTERED EDSAC-2 ORDER 1478 (0xDC6): 0x003BB 0f955 0 f 955 ; UNREGISTERED EDSAC-2 ORDER 1479 (0xDC7): 0xCD8C5 27t197 27 t 197 ; UNREGISTERED EDSAC-2 ORDER 1480 (0xDC8): 0x00491 0f1169 0 f 1169 ; UNREGISTERED EDSAC-2 ORDER 1481 (0xDC9): 0x6F2BA 94r698 94 r 698 ; UNREGISTERED EDSAC-2 ORDER 1482 (0xDCA): 0x00666 0f1638 0 f 1638 ; UNREGISTERED EDSAC-2 ORDER 1483 (0xDCB): 0x67B1E 79r798 79 r 798 ; Store s as the address part of half-register m. 1484 (0xDCC): 0x00AAA 1f682 1 f 682 ; UNREGISTERED EDSAC-2 ORDER 1485 (0xDCD): 0xAAAA6 85s678 85 s 678 ; UNREGISTERED EDSAC-2 ORDER 1486 (0xDCE): 0x02000 4f0 4 f 0 ; Increase the obeyed address of the next order by a... 1487 (0xDCF): 0x00000 0f0 0 f 0 ; UNREGISTERED EDSAC-2 ORDER 1488 (0xDD0): 0x55555 42r1365 42 r 1365 ; Add |N(m)| to N(A). 1489 (0xDD1): 0x5557E 42r1406 42 r 1406 ; Add |N(m)| to N(A). 1490 (0xDD2): 0x40000 0r0 0 r 0 ; UNREGISTERED EDSAC-2 ORDER 1491 (0xDD3): 0x00080 0f128 0 f 128 ; UNREGISTERED EDSAC-2 ORDER 1492 (0xDD4): 0x4AFB0 21r1968 21 r 1968 ; Set -|F(n)| in M; clear L. 1493 (0xDD5): 0xCCC7F 25t1151 25 t 1151 ; UNREGISTERED EDSAC-2 ORDER 1494 (0xDD6): 0x6D413 90r1043 90 r 1043 ; Scale: if N(A)=0, jump to m and set s = -129; othe... 1495 (0xDD7): 0xCCC81 25t1153 25 t 1153 ; UNREGISTERED EDSAC-2 ORDER 1496 (0xDD8): 0x0AAAA 21f682 21 f 682 ; Set -|F(n)| in M; clear L. 1497 (0xDD9): 0xAAAAB 85s683 85 s 683 ; UNREGISTERED EDSAC-2 ORDER 1498 (0xDDA): 0x20000 64f0 64 f 0 ; UNREGISTERED EDSAC-2 ORDER 1499 (0xDDB): 0x00000 0f0 0 f 0 ; UNREGISTERED EDSAC-2 ORDER 1500 (0xDDC): 0x12BEC 37f1004 37 f 1004 ; Subtract N(K).N(m) from N(M) in N(A); put the old ... 1501 (0xDDD): 0x33302 102f770 102 f 770 ; Light the wait light on the control panel and wait... 1502 (0xDDE): 0x6D413 90r1043 90 r 1043 ; Scale: if N(A)=0, jump to m and set s = -129; othe... 1503 (0xDDF): 0xCCCFE 25t1278 25 t 1278 ; UNREGISTERED EDSAC-2 ORDER 1504 (0xDE0): 0x020D0 4f208 4 f 208 ; Increase the obeyed address of the next order by a... 1505 (0xDE1): 0x028D0 5f208 5 f 208 ; UNREGISTERED EDSAC-2 ORDER 1506 (0xDE2): 0xF69D0 109t464 109 t 464 ; UNREGISTERED EDSAC-2 ORDER 1507 (0xDE3): 0x02210 4f528 4 f 528 ; Increase the obeyed address of the next order by a... 1508 (0xDE4): 0x02290 4f656 4 f 656 ; Increase the obeyed address of the next order by a... 1509 (0xDE5): 0x08000 16f0 16 f 0 ; Add F(K).F(m) to F(M); put the old value of F(M) i... 1510 (0xDE6): 0x66210 76r528 76 r 528 ; If s>=m take r+2 as the next value of r (ie. skip ... 1511 (0xDE7): 0x62010 68r16 68 r 16 ; Split: if F(M) = x.2?, set p in s (modulo 2048), s... 1512 (0xDE8): 0xF4586 104t1414 104 t 1414 ; UNREGISTERED EDSAC-2 ORDER 1513 (0xDE9): 0x56961 45r353 45 r 353 ; Exact division 1514 (0xDEA): 0xE0E17 65t1559 65 t 1559 ; UNREGISTERED EDSAC-2 ORDER 1515 (0xDEB): 0x7EA1C 125r540 125 r 540 ; UNREGISTERED EDSAC-2 ORDER 1516 (0xDEC): 0xF6E74 109t1652 109 t 1652 ; UNREGISTERED EDSAC-2 ORDER 1517 (0xDED): 0xBE87B 125s123 125 s 123 ; UNREGISTERED EDSAC-2 ORDER 1518 (0xDEE): 0xF9774 114t1908 114 t 1908 ; UNREGISTERED EDSAC-2 ORDER 1519 (0xDEF): 0xFD71C 122t1820 122 t 1820 ; UNREGISTERED EDSAC-2 ORDER 1520 (0xDF0): 0xDE109 60t265 60 t 265 ; Leave closed subroutine: set a(0) in s and jump to... 1521 (0xDF1): 0x289DA 81f474 81 f 474 ; Set —a(m) in s. 1522 (0xDF2): 0xDBBEC 55t1004 55 t 1004 ; Jump to m if N(M) < 0; otherwise continue serially... 1523 (0xDF3): 0x0AAAA 21f682 21 f 682 ; Set -|F(n)| in M; clear L. 1524 (0xDF4): 0xBD6E9 122s1769 122 s 1769 ; UNREGISTERED EDSAC-2 ORDER 1525 (0xDF5): 0x617D5 66r2005 66 r 2005 ; Clear L; then cyclicly shift the word in A m place... 1526 (0xDF6): 0x6A82D 85r45 85 r 45 ; UNREGISTERED EDSAC-2 ORDER 1527 (0xDF7): 0xA540A 74s1034 74 s 1034 ; Repeat, adding: increase s by 2; jump to m if the ... 1528 (0xDF8): 0xA30A3 70s163 70 s 163 ; Set m in register s. 1529 (0xDF9): 0x36FC4 109f1988 109 f 1988 ; UNREGISTERED EDSAC-2 ORDER 1530 (0xDFA): 0xBEB69 125s873 125 s 873 ; UNREGISTERED EDSAC-2 ORDER 1531 (0xDFB): 0x7E73C 124r1852 124 r 1852 ; UNREGISTERED EDSAC-2 ORDER 1532 (0xDFC): 0x58B90 49r912 49 r 912 ; Store V(M) in register m and M(L) in register m + ... 1533 (0xDFD): 0xBFBE9 127s1001 127 s 1001 ; UNREGISTERED EDSAC-2 ORDER 1534 (0xDFE): 0x6487E 73r126 73 r 126 ; Subtract m from s. 1535 (0xDFF): 0xD5181 42t385 42 t 385 ; Add |N(m)| to N(A). 1536 (0xE00): 0x007FF 0f2047 0 f 2047 ; UNREGISTERED EDSAC-2 ORDER 1537 (0xE01): 0xFFFFE 127t2046 127 t 2046 ; UNREGISTERED EDSAC-2 ORDER 1538 (0xE02): 0xA7805 79s5 79 s 5 ; Store s as the address part of half-register m. 1539 (0xE03): 0xE7804 79t4 79 t 4 ; Store s as the address part of half-register m. 1540 (0xE04): 0xE7814 79t20 79 t 20 ; Store s as the address part of half-register m. 1541 (0xE05): 0x09806 19f6 19 f 6 ; Store F(M) in register m, without change of repres... 1542 (0xE06): 0x0980E 19f14 19 f 14 ; Store F(M) in register m, without change of repres... 1543 (0xE07): 0x09810 19f16 19 f 16 ; Store F(M) in register m, without change of repres... 1544 (0xE08): 0x02001 4f1 4 f 1 ; Increase the obeyed address of the next order by a... 1545 (0xE09): 0x32000 100f0 100 f 0 ; Set in the more significant half of M the order in... 1546 (0xE0A): 0x31006 98f6 98 f 6 ; UNREGISTERED EDSAC-2 ORDER 1547 (0xE0B): 0xE1006 66t6 66 t 6 ; Clear L; then cyclicly shift the word in A m place... 1548 (0xE0C): 0xE1002 66t2 66 t 2 ; Clear L; then cyclicly shift the word in A m place... 1549 (0xE0D): 0xA3002 70s2 70 s 2 ; Set m in register s. 1550 (0xE0E): 0xC1000 2t0 2 t 0 ; Increase the obeyed address of the next order by m... 1551 (0xE0F): 0xA780F 79s15 79 s 15 ; Store s as the address part of half-register m. 1552 (0xE10): 0x5B003 54r3 54 r 3 ; Jump to m if N(M) >= 0; otherwise continue seriall... 1553 (0xE11): 0xA780E 79s14 79 s 14 ; Store s as the address part of half-register m. 1554 (0xE12): 0xA8006 80s6 80 s 6 ; Set a(m) in s. 1555 (0xE13): 0xA7810 79s16 79 s 16 ; Store s as the address part of half-register m. 1556 (0xE14): 0x5B803 55r3 55 r 3 ; Jump to m if N(M) < 0; otherwise continue serially... 1557 (0xE15): 0xA8007 80s7 80 s 7 ; Set a(m) in s. 1558 (0xE16): 0xA780E 79s14 79 s 14 ; Store s as the address part of half-register m. 1559 (0xE17): 0xA8000 80s0 80 s 0 ; Set a(m) in s. 1560 (0xE18): 0xE8007 80t7 80 t 7 ; Set a(m) in s. 1561 (0xE19): 0xE7807 79t7 79 t 7 ; Store s as the address part of half-register m. 1562 (0xE1A): 0x04808 9f8 9 f 8 ; Store zero in register m. 1563 (0xE1B): 0x0480C 9f12 9 f 12 ; Store zero in register m. 1564 (0xE1C): 0x0A808 21f8 21 f 8 ; Set -|F(n)| in M; clear L. 1565 (0xE1D): 0x8B000 22s0 22 s 0 ; Add |F(m)| to F(M)); clear L. 1566 (0xE1E): 0x5B804 55r4 55 r 4 ; Jump to m if N(M) < 0; otherwise continue serially... 1567 (0xE1F): 0x8F000 30s0 30 s 0 ; Set N(m) in A; clear Lp. 1568 (0xE20): 0x1780C 47f12 47 f 12 ; Set M(m) in L. 1569 (0xE21): 0x18808 49f8 49 f 8 ; Store V(M) in register m and M(L) in register m + ... 1570 (0xE22): 0x05010 10f16 10 f 16 ; Set F(m) in M, without change of representation, a... 1571 (0xE23): 0x1300C 38f12 38 f 12 ; Set N(A) + N(m) in A and its rounded value in regi... 1572 (0xE24): 0xA9011 82s17 82 s 17 ; Add a(m) to s. 1573 (0xE25): 0xE5E1C 75t1564 75 t 1564 ; Repeat, subtracting: decrease s by 2; jump to m if... 1574 (0xE26): 0xA8004 80s4 80 s 4 ; Set a(m) in s. 1575 (0xE27): 0xE8806 81t6 81 t 6 ; Set —a(m) in s. 1576 (0xE28): 0x65808 75r8 75 r 8 ; Repeat, subtracting: decrease s by 2; jump to m if... 1577 (0xE29): 0x8F000 30s0 30 s 0 ; Set N(m) in A; clear Lp. 1578 (0xE2A): 0x0200A 4f10 4 f 10 ; Increase the obeyed address of the next order by a... 1579 (0xE2B): 0x84000 8s0 8 s 0 ; Exchange: set N(m) in A and N(A), in register m. C... 1580 (0xE2C): 0x07808 15f8 15 f 8 ; Divide F(M) by F(m); clear L. 1581 (0xE2D): 0x1C6B2 56f1714 56 f 1714 ; Jump to m if alpha = 1; otherwise continue seriall... 1582 (0xE2E): 0x84000 8s0 8 s 0 ; Exchange: set N(m) in A and N(A), in register m. C... 1583 (0xE2F): 0xA900E 82s14 82 s 14 ; Add a(m) to s. 1584 (0xE30): 0x657F9 74r2041 74 r 2041 ; Repeat, adding: increase s by 2; jump to m if the ... 1585 (0xE31): 0xA8005 80s5 80 s 5 ; Set a(m) in s. 1586 (0xE32): 0xE8807 81t7 81 t 7 ; Set —a(m) in s. 1587 (0xE33): 0x05006 10f6 10 f 6 ; Set F(m) in M, without change of representation, a... 1588 (0xE34): 0x5B80A 55r10 55 r 10 ; Jump to m if N(M) < 0; otherwise continue serially... 1589 (0xE35): 0x59007 50r7 50 r 7 ; Jump to m; that is, take m as the next value of r.... 1590 (0xE36): 0x8F000 30s0 30 s 0 ; Set N(m) in A; clear Lp. 1591 (0xE37): 0x0200B 4f11 4 f 11 ; Increase the obeyed address of the next order by a... 1592 (0xE38): 0x84000 8s0 8 s 0 ; Exchange: set N(m) in A and N(A), in register m. C... 1593 (0xE39): 0x07808 15f8 15 f 8 ; Divide F(M) by F(m); clear L. 1594 (0xE3A): 0x1C6B2 56f1714 56 f 1714 ; Jump to m if alpha = 1; otherwise continue seriall... 1595 (0xE3B): 0x84000 8s0 8 s 0 ; Exchange: set N(m) in A and N(A), in register m. C... 1596 (0xE3C): 0xA900F 82s15 82 s 15 ; Add a(m) to s. 1597 (0xE3D): 0x657F9 74r2041 74 r 2041 ; Repeat, adding: increase s by 2; jump to m if the ... 1598 (0xE3E): 0x0F810 31f16 31 f 16 ; Set -N(m) in A; clear Lp. 1599 (0xE3F): 0x1300C 38f12 38 f 12 ; Set N(A) + N(m) in A and its rounded value in regi... 1600 (0xE40): 0x5A030 52r48 52 r 48 ; Jump to m if N(M) = 0; otherwise continue serially... 1601 (0xE41): 0xA800D 80s13 80 s 13 ; Set a(m) in s. 1602 (0xE42): 0xA980B 83s11 83 s 11 ; Subtract a(m) from s. 1603 (0xE43): 0xA6801 77s1 77 s 1 ; If s=m take r+2 as the next value of r (ie. skip ... 1726 (0xEBE): 0x196C0 50f1728 50 f 1728 ; Jump to m; that is, take m as the next value of r.... 1727 (0xEBF): 0xFFFFF 127t2047 127 t 2047 ; UNREGISTERED EDSAC-2 ORDER 1728 (0xEC0): 0x37601 110f1537 110 f 1537 ; As order 100, except that m is to be taken as an a... 1729 (0xEC1): 0x1F000 62f0 62 f 0 ; UNREGISTERED EDSAC-2 ORDER 1730 (0xEC2): 0x31000 98f0 98 f 0 ; UNREGISTERED EDSAC-2 ORDER 1731 (0xEC3): 0x01003 2f3 2 f 3 ; Increase the obeyed address of the next order by m... 1732 (0xEC4): 0xA374B 70s1867 70 s 1867 ; Set m in register s. 1733 (0xEC5): 0xA780F 79s15 79 s 15 ; Store s as the address part of half-register m. 1734 (0xEC6): 0xE787F 79t127 79 t 127 ; Store s as the address part of half-register m. 1735 (0xEC7): 0x3759A 110f1434 110 f 1434 ; As order 100, except that m is to be taken as an a... 1736 (0xEC8): 0x1880A 49f10 49 f 10 ; Store V(M) in register m and M(L) in register m + ... 1737 (0xEC9): 0x04816 9f22 9 f 22 ; Store zero in register m. 1738 (0xECA): 0xE8010 80t16 80 t 16 ; Set a(m) in s. 1739 (0xECB): 0xE7811 79t17 79 t 17 ; Store s as the address part of half-register m. 1740 (0xECC): 0x02000 4f0 4 f 0 ; Increase the obeyed address of the next order by a... 1741 (0xECD): 0xE37F7 70t2039 70 t 2039 ; Set m in register s. 1742 (0xECE): 0xE780E 79t14 79 t 14 ; Store s as the address part of half-register m. 1743 (0xECF): 0x37005 110f5 110 f 5 ; As order 100, except that m is to be taken as an a... 1744 (0xED0): 0x1F600 62f1536 62 f 1536 ; UNREGISTERED EDSAC-2 ORDER 1745 (0xED1): 0x31004 98f4 98 f 4 ; UNREGISTERED EDSAC-2 ORDER 1746 (0xED2): 0x05010 10f16 10 f 16 ; Set F(m) in M, without change of representation, a... 1747 (0xED3): 0x1F600 62f1536 62 f 1536 ; UNREGISTERED EDSAC-2 ORDER 1748 (0xED4): 0x31010 98f16 98 f 16 ; UNREGISTERED EDSAC-2 ORDER 1749 (0xED5): 0x02015 4f21 4 f 21 ; Increase the obeyed address of the next order by a... 1750 (0xED6): 0x3A400 116f1024 116 f 1024 ; Magtape motor control 1751 (0xED7): 0xE3000 70t0 70 t 0 ; Set m in register s. 1752 (0xED8): 0x3B809 119f9 119 f 9 ; Read magtape block label 1753 (0xED9): 0x5A005 52r5 52 r 5 ; Jump to m if N(M) = 0; otherwise continue serially... 1754 (0xEDA): 0x0558E 10f1422 10 f 1422 ; Set F(m) in M, without change of representation, a... 1755 (0xEDB): 0x10010 32f16 32 f 16 ; Add N(m) to N(A). 1756 (0xEDC): 0x5CFF8 57r2040 57 r 2040 ; Jump to m if alpha = 0; otherwise continue seriall... 1757 (0xEDD): 0x19200 50f512 50 f 512 ; Jump to m; that is, take m as the next value of r.... 1758 (0xEDE): 0x0F808 31f8 31 f 8 ; Set -N(m) in A; clear Lp. 1759 (0xEDF): 0x5B7FB 54r2043 54 r 2043 ; Jump to m if N(M) >= 0; otherwise continue seriall... 1760 (0xEE0): 0x0200F 4f15 4 f 15 ; Increase the obeyed address of the next order by a... 1761 (0xEE1): 0x19000 50f0 50 f 0 ; Jump to m; that is, take m as the next value of r.... 1762 (0xEE2): 0x02001 4f1 4 f 1 ; Increase the obeyed address of the next order by a... 1763 (0xEE3): 0x32000 100f0 100 f 0 ; Set in the more significant half of M the order in... 1764 (0xEE4): 0x3107E 98f126 98 f 126 ; UNREGISTERED EDSAC-2 ORDER 1765 (0xEE5): 0xA100A 66s10 66 s 10 ; Clear L; then cyclicly shift the word in A m place... 1766 (0xEE6): 0xAC87E 89s126 89 s 126 ; Store s (modulo 512) as the function part of half-... 1767 (0xEE7): 0x1E001 60f1 60 f 1 ; Leave closed subroutine: set a(0) in s and jump to... 1768 (0xEE8): 0xE7804 79t4 79 t 4 ; Store s as the address part of half-register m. 1769 (0xEE9): 0x0507E 10f126 10 f 126 ; Set F(m) in M, without change of representation, a... 1770 (0xEEA): 0x39800 115f0 115 f 0 ; UNREGISTERED EDSAC-2 ORDER 1771 (0xEEB): 0xE8004 80t4 80 t 4 ; Set a(m) in s. 1772 (0xEEC): 0xE6865 77t101 77 t 101 ; If s=m take r+2 as the next value of r (ie. skip ... 1779 (0xEF3): 0x19777 50f1911 50 f 1911 ; Jump to m; that is, take m as the next value of r.... 1780 (0xEF4): 0xA6004 76s4 76 s 4 ; If s>=m take r+2 as the next value of r (ie. skip ... 1781 (0xEF5): 0x19763 50f1891 50 f 1891 ; Jump to m; that is, take m as the next value of r.... 1782 (0xEF6): 0xA6005 76s5 76 s 5 ; If s>=m take r+2 as the next value of r (ie. skip ... 1783 (0xEF7): 0x0200E 4f14 4 f 14 ; Increase the obeyed address of the next order by a... 1784 (0xEF8): 0x3B009 118f9 118 f 9 ; Read magtape block from tape 1785 (0xEF9): 0x1A784 52f1924 52 f 1924 ; Jump to m if N(M) = 0; otherwise continue serially... 1786 (0xEFA): 0x0558E 10f1422 10 f 1422 ; Set F(m) in M, without change of representation, a... 1787 (0xEFB): 0x10004 32f4 32 f 4 ; Add N(m) to N(A). 1788 (0xEFC): 0x1CED1 57f1745 57 f 1745 ; Jump to m if alpha = 0; otherwise continue seriall... 1789 (0xEFD): 0xA6005 76s5 76 s 5 ; If s>=m take r+2 as the next value of r (ie. skip ... 1790 (0xEFE): 0x59006 50r6 50 r 6 ; Jump to m; that is, take m as the next value of r.... 1791 (0xEFF): 0xA6806 77s6 77 s 6 ; If s=m take r+2 as the next value of r (ie. skip ... 1856 (0xF40): 0x197D0 50f2000 50 f 2000 ; Jump to m; that is, take m as the next value of r.... 1857 (0xF41): 0xA807C 80s124 80 s 124 ; Set a(m) in s. 1858 (0xF42): 0xA6802 77s2 77 s 2 ; If s= 0; otherwise continue seriall... 1879 (0xF57): 0xE8006 80t6 80 t 6 ; Set a(m) in s. 1880 (0xF58): 0xE6803 77t3 77 t 3 ; If s=m take r+2 as the next value of r (ie. skip ... 1885 (0xF5D): 0x19756 50f1878 50 f 1878 ; Jump to m; that is, take m as the next value of r.... 1886 (0xF5E): 0xA6FFF 77s2047 77 s 2047 ; If s=m take r+2 as the next value of r (ie. skip ... 1907 (0xF73): 0x1970B 50f1803 50 f 1803 ; Jump to m; that is, take m as the next value of r.... 1908 (0xF74): 0x37002 110f2 110 f 2 ; As order 100, except that m is to be taken as an a... 1909 (0xF75): 0x5BFFF 55r2047 55 r 2047 ; Jump to m if N(M) < 0; otherwise continue serially... 1910 (0xF76): 0x196D2 50f1746 50 f 1746 ; Jump to m; that is, take m as the next value of r.... 1911 (0xF77): 0x02015 4f21 4 f 21 ; Increase the obeyed address of the next order by a... 1912 (0xF78): 0x3A420 116f1056 116 f 1056 ; Magtape motor control 1913 (0xF79): 0x0507E 10f126 10 f 126 ; Set F(m) in M, without change of representation, a... 1914 (0xF7A): 0x39800 115f0 115 f 0 ; UNREGISTERED EDSAC-2 ORDER 1915 (0xF7B): 0x03896 7f150 7 f 150 ; Multiply N(A) by 2^$-m$ if m < 1024, or by 2^$m-20... 1916 (0xF7C): 0x0200E 4f14 4 f 14 ; Increase the obeyed address of the next order by a... 1917 (0xF7D): 0x3A809 117f9 117 f 9 ; Write block onto tape 1918 (0xF7E): 0x0C008 24f8 24 f 8 ; Set F(m) in register K, without change of represen... 1919 (0xF7F): 0x1000C 32f12 32 f 12 ; Add N(m) to N(A). 1920 (0xF80): 0xA6002 76s2 76 s 2 ; If s>=m take r+2 as the next value of r (ie. skip ... 1921 (0xF81): 0x59005 50r5 50 r 5 ; Jump to m; that is, take m as the next value of r.... 1922 (0xF82): 0xA3006 70s6 70 s 6 ; Set m in register s. 1923 (0xF83): 0x19702 50f1794 50 f 1794 ; Jump to m; that is, take m as the next value of r.... 1924 (0xF84): 0x0500C 10f12 10 f 12 ; Set F(m) in M, without change of representation, a... 1925 (0xF85): 0x12E90 37f1680 37 f 1680 ; Subtract N(K).N(m) from N(M) in N(A); put the old ... 1926 (0xF86): 0x3680C 109f12 109 f 12 ; UNREGISTERED EDSAC-2 ORDER 1927 (0xF87): 0x02015 4f21 4 f 21 ; Increase the obeyed address of the next order by a... 1928 (0xF88): 0x3A000 116f0 116 f 0 ; Magtape motor control 1929 (0xF89): 0xA6806 77s6 77 s 6 ; If s=m take r+2 as the next value of r (ie. skip ... 1936 (0xF90): 0x3107E 98f126 98 f 126 ; UNREGISTERED EDSAC-2 ORDER 1937 (0xF91): 0xE4801 73t1 73 t 1 ; Subtract m from s. 1938 (0xF92): 0xE787E 79t126 79 t 126 ; Store s as the address part of half-register m. 1939 (0xF93): 0xE3001 70t1 70 t 1 ; Set m in register s. 1940 (0xF94): 0xE7011 78t17 78 t 17 ; Add a(m) to s, putting the result in the address p... 1941 (0xF95): 0xE8004 80t4 80 t 4 ; Set a(m) in s. 1942 (0xF96): 0xE6065 76t101 76 t 101 ; If s>=m take r+2 as the next value of r (ie. skip ... 1943 (0xF97): 0x59009 50r9 50 r 9 ; Jump to m; that is, take m as the next value of r.... 1944 (0xF98): 0xE3864 71t100 71 t 100 ; Set —m in register s. 1945 (0xF99): 0xE7004 78t4 78 t 4 ; Add a(m) to s, putting the result in the address p... 1946 (0xF9A): 0xE3064 70t100 70 t 100 ; Set m in register s. 1947 (0xF9B): 0xE700E 78t14 78 t 14 ; Add a(m) to s, putting the result in the address p... 1948 (0xF9C): 0x0500A 10f10 10 f 10 ; Set F(m) in M, without change of representation, a... 1949 (0xF9D): 0x03801 7f1 7 f 1 ; Multiply N(A) by 2^$-m$ if m < 1024, or by 2^$m-20... 1950 (0xF9E): 0x0980A 19f10 19 f 10 ; Store F(M) in register m, without change of repres... 1951 (0xF9F): 0x197A9 50f1961 50 f 1961 ; Jump to m; that is, take m as the next value of r.... 1952 (0xFA0): 0xA4801 73s1 73 s 1 ; Subtract m from s. 1953 (0xFA1): 0xA6801 77s1 77 s 1 ; If s=m take r+2 as the next value of r (ie. skip ... 1979 (0xFBB): 0x59008 50r8 50 r 8 ; Jump to m; that is, take m as the next value of r.... 1980 (0xFBC): 0x17820 47f32 47 f 32 ; Set M(m) in L. 1981 (0xFBD): 0xA801A 80s26 80 s 26 ; Set a(m) in s. 1982 (0xFBE): 0xA4002 72s2 72 s 2 ; Add m to s. 1983 (0xFBF): 0xA684E 77s78 77 s 78 ; If s=m take r+2 as the next value of r (ie. skip ... 2023 (0xFE7): 0x19001 50f1 50 f 1 ; Jump to m; that is, take m as the next value of r.... 2024 (0xFE8): 0x32FFF 101f2047 101 f 2047 ; Stop the machine and light the stop light on the c... 2025 (0xFE9): 0xE8800 81t0 81 t 0 ; Set —a(m) in s. 2026 (0xFEA): 0x19FDC 51f2012 51 f 2012 ; Jump to m and clear M and L. 2027 (0xFEB): 0xA807A 80s122 80 s 122 ; Set a(m) in s. 2028 (0xFEC): 0xE787A 79t122 79 t 122 ; Store s as the address part of half-register m. 2029 (0xFED): 0x81000 2s0 2 s 0 ; Increase the obeyed address of the next order by m... 2030 (0xFEE): 0xE3000 70t0 70 t 0 ; Set m in register s. 2031 (0xFEF): 0x1E000 60f0 60 f 0 ; Leave closed subroutine: set a(0) in s and jump to... 2032 (0xFF0): 0xA7806 79s6 79 s 6 ; Store s as the address part of half-register m. 2033 (0xFF1): 0x19725 50f1829 50 f 1829 ; Jump to m; that is, take m as the next value of r.... 2034 (0xFF2): 0xA800E 80s14 80 s 14 ; Set a(m) in s. 2035 (0xFF3): 0xA9004 82s4 82 s 4 ; Add a(m) to s. 2036 (0xFF4): 0x19692 50f1682 50 f 1682 ; Jump to m; that is, take m as the next value of r.... 2037 (0xFF5): 0xA687E 77s126 77 s 126 ; If s