Record 189 out of sequence. Expected 1, got 188 3674 1572 5467 4171 6300 3500 2116 5003 2524 2201 0221 1602 0077 4000 5152 7051 6475 0347 4556 0020 1756 1063 6323 5511 1463 4621 1451 5524 1454 4221 1462 4621 1446 4631 1443 4623 1400 5146 1041 1114 4457 6213 2115 3660 5100 0403 2524 2301 0022 5143 4363 5021 1442 4220 2703 2524 2463 5021 0100 6740 7651 5260 7003 0347 4556 0070 1756 1051 5270 5164 1114 5441 2114 4646 2014 4346 2314 6762 2114 4141 IJXIT GEN /N(SS3M),SF1,IM4,LB1,RF1,FF9,CF3, IF(A),DOR+1->P 543 CSH1,BB0 544 IJPX GEN /N(IJXIT),LA1,FF0,CF3,WR1,AA2 P+1->X 545 IJXEC GEN /N(SS3),SF1,IM8,RF4 (SAME AS SS2) IF(P),INCP 546 IJPB GEN /N(IJXIT),LA1,FF0,CF3,WR1,AA1 P+1->B 547 ************************** D E C O D E R *************************** 548 ORG X'FC DECODER REFERENCES NEXT 4 INSTRUCTIONS * 549 ROF GEN /N(SS3MI),SF1,GF4,IM8,RF4 RESET OVFL, IF(P),INCP* 550 SOF GEN /N(SS3MI),SF1,GF2,IM8,RF4 SET OVFL, IF(P), INCP * 551 TSA GMSK /N(TSA1),1(3),AB2,IME,LB3,FFA, START IO * 552 CMKDFC0 * 553 ILLOP * 554 ************************************************************************ 55 EJEC 556 * BIT TEST INSTRUCTION. 557 * 558 MORG 16 REF BY FSEL(3-0) 559 BT20 GMSK /F(BT30),2(1),FS8,LB3,RF3,FFA,MKFFFE 560 BT21 GMSK /F(BT30),2(1),FS8,LB3,RF3,FFA,MKFFFD 561 BT22 GMSK /F(BT30),2(1),FS8,LB3,RF3,FFA,MKFFFB 562 BT23 GMSK /F(BT30),2(1),FS8,LB3,RF3,FFA,MKFFF7 563 BT24 GMSK /F(BT30),2(1),FS8,LB3,RF3,FFA,MKFFEF 564 BT25 GMSK /F(BT30),2(1),FS8,LB3,RF3,FFA,MKFFDF 565 BT26 GMSK /F(BT30),2(1),FS8,LB3,RF3,FFA,MKFFBF 566 BT27 GMSK /F(BT30),2(1),FS8,LB3,RF3,FFA,MKFF7F 567 BT28 GMSK /F(BT30),2(1),FS8,LB3,RF3,FFA,MKFEFF 568 BT29 GMSK /F(BT30),2(1),FS8,LB3,RF3,FFA,MKFDFF 569 BT2A GMSK /F(BT30),2(1),FS8,LB3,RF3,FFA,MKFBFF 570 BT2B GMSK /F(BT30),2(1),FS8,LB3,RF3,FFA,MKF7FF 571 BT2C GMSK /F(BT30),2(1),FS8,LB3,RF3,FFA,MKEFFF 572 BT2D GMSK /F(BT30),2(1),FS8,LB3,RF3,FFA,MKDFFF 573 BT2E GMSK /F(BT30),2(1),FS8,LB3,RF3,FFA,MKBFFF 574 BT2F GMSK /F(BT30),2(1),FS8,LB3,RF3,FFA,MK7FFF 575 MORG 2 REF BY FSEL(4) 576 BT30 GEN /F(BT40),2(1),FS9,GF2,LB1,FFB,MF1 577 BT31 GEN /F(BT40),2(1),FS9,GF2,LB1,FFB,MF1,AA1 578 MORG 2 REF BY FSEL(5) 579 BT40 GEN /T(BT50,SS1M),TF3,SF2,GF9,IMC 580 BT41 GEN /T(BT50,SS1M),TF2,SF3,GF9,IMC 581 EJEC 582 * MULTIPLY INSTRUCTION. 583 * 584 MORG 2 /T(MUL4,MUL1) 585 MUL1 GEN /N(MUL2),GF2,FF9,BBF,AA1 RF+B->ALU,SAMPLE 586 MUL4 GEN /N(MUL5),LA2,RF3,VF1,AA1 B(L)->DOR,B15->DSB 587 MORG 2 /T(MUL3,MUL5) 588 MUL5 GEN /N(MUL6),FF3,MF1,WR1,AAE ZERO->RE 589 MUL3 GEN /N(MUL5),GF8,FF9,BBF,AA1 RF+B->ALU,SAMPLE OVFL 590 MUL2 GEN /T(MUL3,MUL5),TF2,GF9,LA2,RF3, ALUZ=>MUL3,B(L)->DOR, FREE 591 CVF1,AA1 B15->DSB 592 MUL6 GEN /N(MUL7),MR1,SC1,WF1,XF1 DOR(RT),DOR01->BAD0 FREE 593 MORG 2 594 MUL8 GEN /T(MUL9,*),TF2,GFC,MR1,LA3,RF5, MULTIPLY STEP 595 CFF9,WR1,SC1,WF1,XF1 596 MUL7 GEN /N(MUL8),MR1,RF5,FF9,WR1,SC1,WF1, FIRST MULTIPLY STEP FREE 597 CXF1 598 MORG 2 /T(MUL12,MUL13) 599 MUL13 GEN /F(SS3M),2(8),FSF,SF1,IM8,RF4, FSEL(14),IF(P),INCP 600 CLA3,WR1,SH4,AA1 SHIFT B 601 MUL12 GEN /N(MUL13),FF6,CF3,WR1,BBF A-RF->A 602 MUL9 GEN /N(MUL11),LA3,WR1,SC1,WF1,XF1 A,DOR(RT),MULS->DLA15 603 MUL11 GEN /T(MUL12,MUL13),TF2,GFA,LB1,FFA, DSB=>MUL12,DOR->B FREE 604 CMF1,WR1,AA1 605 EJEC 606 * DOUBLE WORD IMMEDIATE INSTRUCTIONS. NOTE THAT THESE INSTRUCTIONS 607 * ARE DIFFERENT FROM VARIAN'S SINCE AN M-FIELD EQUAL TO ZERO OR 8 608 * DOES NOT CAUSE UNPREDICTABLE RESULTS. IN ADDITION, BITS 7, 1 609 * AND 0 ARE USED SIMILARLY TO THE USAGE FOR DOUBLE-WORD EXTENDED 610 * ADDRESSING INSTRUCTIONS. WHEN BITS 1 AND 0 ARE EQUAL TO 00, 01 611 * OR 10, INDEXING AND INDIRECT ADDRESSING ARE PERFORMED. THUS, 612 * NEGATIVE OPERANDS ARE NOT POSSIBLE. WHEN BITS 1 AND 0 ARE EQUAL 613 * TO 11, THE ACTION IS THE SAME AS VARIAN'S ACTION. NOTE THAT THE 614 * VARIAN ASSEMBLER ASSEMBLES BITS 1 AND 0 AS 00, NOT 11. THIS 615 * PROGRAM MAY BE MADE TO EXECUTE PROGRAMS SO ASSEMBLED BY 616 * EXCHANGING IMMREL(X'68) AND IMMNI(X'6B), AND BY EXCHANGING 617 * IMRL AND IMNI BELOW. 618 * 619 MORG 32 REF BY CND FSEL, FAIL TO IMIND 620 IMMBAS ILLOP 621 * NEXT 7 INSTRUCTIONS ALL DO: 0 -> CINTF. 622 ILDA GEN /N(SS2M),LB1,RF4,FFA,MF1,WR1,XF1, INCP, DOR->A 623 CBB0,AA0 624 ILDB GEN /N(SS2M),LB1,RF4,FFA,MF1,WR1,XF1, INCP, DOR->B 625 CBB0,AA0 626 ILDX GEN /N(SS2M),LB1,RF4,FFA,MF1,WR1,XF1, INCP, DOR->X 627 CBB0,AA2 628 IINR GEN /F(IST2),2(1),FS1,GF8,LB1,RF3, FSEL(CINTF), DOR+1->DOR 629 CFF9,CF3,XF1,SH1,BB0 SAMPLE OVERFLOW 630 ISTA GEN /F(IST2),2(1),FS1,RF3,XF1,AA0 FSEL(CINTF),A->DOR 631 ISTB GEN /F(IST2),2(1),FS1,RF3,XF1,AA1 FSEL(CINTF),B->DOR 632 ISTX GEN /F(IST2),2(1),FS1,RF3,XF1,AA2 FSEL(CINTF),X->DOR 633 ILLOP 634 * NEXT 7 INSTRUCTIONS ALL DO: 0->CINTF, INCP 635 IORA GEN /N(SS2M),LB1,RF4,FFE,MF1,WR1,XF1, A V DOR -> A 636 CBB0,AA0 637 IADD GEN /N(SS2M),GF8,LB1,RF4,FF9,WR1,XF1, A+DOR->A,SAMPLE OVFL 638 CBB0,AA0 639 IERA GEN /N(SS2M),LB1,RF4,FF6,MF1,WR1,XF1, A XOR DOR -> A 640 CBB0,AA0 641 ISUB GEN /N(SS2M),GF8,LB1,RF4,FF6,CF3,WR1, A-DOR->A,SAMPLE OVFL 642 CXF1,BB0,AA0 643 IANA GEN /N(SS2M),LB1,RF4,FFB,MF1,WR1,XF1, A&DOR->A 644 CBB0,AA0 645 IMUL GEN /N(MUL),LB1,RF4,FFA,MF1,WR1,XF1, DOR->RF 646 CBB0,AAF 647 IDIV GEN /N(DIV),LB1,RF4,FFA,MF1,WR1,WF1, DOR->RF, ALU15->QS 648 CXF1,BB0,AAF 649 MORG 16 REF BY CND FSEL, FAIL TO IMIND 650 IMXC EQU * IMMEDIATE INSTRUCTION INDEX COMPUTATION 651 * NEXT 3 INSTRUCTIONS DO C.FSEL(6-3) (QS=0), C.OF(A) (QS=1) 652 IMRL GEN /S(IMMBAS,IMIND),2(F),FS7,TF3, P+DOR->DOR 653 CSF3,GFF,IM5,LA1,LB1,RF3,FF9,BB0 654 IMIX GEN /S(IMMBAS,IMIND),2(F),FS7,TF3, X+DOR->DOR 655 CSF3,GFF,IM5,LB1,RF3,FF9,BB0,AA2 656 IMIB GEN /S(IMMBAS,IMIND),2(F),FS7,TF3, B+DOR->DOR 657 CSF3,GFF,IM5,LB1,RF3,FF9,BB0,AA1 658 IMNI GEN /F(IMMBAS),2(F),FS7,LB1,RF3,FFA, MIL->DOR 659 CMF1,BB1 660 MORG 2 REF BY FSEL(7) 661 IMPRE GEN /F(IMXC),2(3),FS4,LB1,RF3, FSEL(1-0), 662 CFFA,MF1,WF1,BB1 MIL->DOR,MIL15->QS 663 IMPOST GEN /S(IMXC,IMPST1),2(3),FS4,TF3,GFB, C.FSEL(1-0) (MIL15=0), 664 CLB1,RF3,FFA,MF1,BB1 MIL->DOR 665 MORG 2 /T(IMPSTI,IMIND1) 666 IMIND1 GEN /S(IMMBAS,IMIND),2(F),FS7,TF3, C.FSEL(6-3) (MIL15=0), 667 CSF3,GF3,IM5,LB1,RF3,FFA,MF1,BB1 C.OF(A) (MIL15=1), 668 * MIL->DOR 669 IMPSTI GEN /S(IMXC,IMIND),2(3),FS4,TF3,SF3, C.FSEL(1-0) (MIL15=0), 670 CGFB,IM5,LB1,RF3,FFA,MF1,BB1 C.OF(A) (MIL15=0), 671 * MIL->DOR 672 MORG 2 /S(IMXC,IMIND) 673 IMIND GEN /T(IMPSTI,IMIND1),TF3,GFF,IM1,RF5 WAIT(M),QS=>IMIND1,INCS 674 IST4 GEN /N(SS3M),SF1,IM8,LB1,RF4,FFA,MF1 IF(P),INCP,DOR->ALU FREE 675 MORG 2 /S(IMXC,IMPST1) 676 IMPST1 GEN /N(IMIND),SF1,IM5,LB1,FFA,MF1,BB0 OF(ALU),DOR->ALU 677 IST3 GEN /N(IST4),LB1,RF4,FFA,MF1,BB0 INCP,DOR->ALU FREE 678 MORG 2 REF BY FSEL(CINTF) 679 IST2 GEN /N(IST3),SF1,IM6,AAF OS(ALU),RF->ALU 680 IST1 GEN /N(IST3),SF1,IMA OS(P) 681 EJEC 682 * SHIFT INSTRUCTIONS AND INSTRUCTIONS CONSTRAINED TO BE 683 * NEAR SHIFT INSTRUCTIONS BY ADDRESSING. NOTE THAT THESE 684 * SHIFT INSTRUCTIONS ARE DIFFERENT FROM VARIAN'S SHIFT INSTRUCTIONS 685 * SINCE SETTING THE 'LONG' AND 'A' BITS SIMULTANEOUSLY DOES NOT 686 * PRODUCE UNPREDICTABLE RESULTS. 687 * 688 MORG 32 SHIFTS REF BY CND FSEL(8-5), FAIL TO SS4MI 689 ASLB GEN /T(*,SS3MI),TF3,SF3,GFC,IM8,LA2,RF5,WR1,SH4,AA1 690 LRLB GEN /T(*,SS3MI),TF3,SF3,GFC,IM8,LA2,RF5,WR1,SH1,AA1 691 ASRB GEN /T(*,SS3MI),TF3,SF3,GFC,IM8,LA3,RF5,WR1,SH2,AA1 692 LSRB GEN /T(*,SS3MI),TF3,SF3,GFC,IM8,LA3,RF5,WR1,SH4,AA1 693 ASLA GEN /T(*,SS3MI),TF3,SF3,GFC,IM8,LA2,RF5,WR1,SH4 694 LRLA GEN /T(*,SS3MI),TF3,SF3,GFC,IM8,LA2,RF5,WR1,SH1 695 ASRA GEN /T(*,SS3MI),TF3,SF3,GFC,IM8,LA3,RF5,WR1,SH2 696 LSRA GEN /T(*,SS3MI),TF3,SF3,GFC,IM8,LA3,RF5,WR1,SH4 697 LASL GEN /N(LASL1),LA2,RF3,VF1,AA1 698 LLRL GEN /N(LLRL1),RF3,AA1 699 LASR GEN /N(LASR1),LA2,RF3,VF1,AA1 700 LLSR GEN /N(LLSR1),RF3,AA1 701 * THE NEXT 4 INSTRUCTIONS ARE IDENTICAL TO THE PREVIOUS 4, BUT 702 * ARE USED WHEN BOTH THE 'LONG' AND 'A' BITS OF THE SHIFT 703 * INSTRUCTION ARE SET. IT IS POSSIBLE THAT THIS SHOULD BE TREATED 704 * AS AN ERROR CONDITION. 705 LASL#2 GEN /N(LASL1),LA2,RF3,VF1,AA1 706 LLRL#2 GEN /N(LLRL1),RF3,AA1 707 LASR#2 GEN /N(LASR1),LA2,RF3,VF1,AA1 708 LLSR#2 GEN /N(LLSR1),RF3,AA1 709 MORG 16 REF BY CND FSEL FROM DIV, FSEL FROM MUL,INR 710 SS3M GEN /N(IWAIT),1(M),GF5,IM6 IBR->I,DECODE, ETC 711 SHFT1 GEN /S(ASLB,SS3MI),2(F),FS9,TF3,SF3, CND(NOT ALUZ) FSEL(8-5)FREE 712 CGF9,IM8,LB1,RF2,FF6,CF3,SH1,BB0 CND(ALUZ) IF(P), 713 * -DOR->SHIFT COUNTER 714 MORG 2 715 LASL1 GEN /T(LASL2,*),TF2,GFC,LA2,RF5,WR1, SHFT OVFL => LASL2 716 CSC1,XF3,SH6,AA0 (A,DOR)LEFT, INC SC 717 LASL2 GEN /N(LASL3),SF1,IM8,SC1,WF1,XF3 IF(P),DOR RT,DSB->DOR15 718 MORG 2 /T(*,LASL3) 719 LASL3 GEN /N(IWAIT),1(I),GF5,IM6,LB1,FFA, DECODE,IBR->I,EN INT, 720 CMF1,WR1,AA1 DOR->B 721 LLRL1 GEN /T(*,LASL3),TF3,SF3,GFC,IM8,LA2, SHFT OVFL=>LASL3,INC SC 722 CRF5,WR1,SC1,XF1,SH2 (A,DOR) LEFT ROTATE 723 MORG 2 /T(LASL2,*) 724 LASR1 GEN /T(LASL2,*),TF2,GFC,LA3,RF5,WR1,SC1,WF1,XF1,SH2 725 LLSR1 GEN /T(*,LASL3),TF3,SF3,GFC,IM8,LA3,RF5,WR1,SC1, 726 CWF1,XF1,SH4 727 ORG SS3M+8 REF BY FSEL, MUST BE MORG 32 WITH SHIFTS 728 SS3MI GEN /N(IWAIT),1(I),GF5,IM6 IBR->I,DECODE, ETC 729 MORG 2 /S(SS3M,DIV15) 730 DIV15 GEN /F(SS3M),2(8),FSF,SF1,IM8,FF6, FSEL(14),IF(P), 731 CCF3,WR1,SH1,BB1,AA1 -B->B 732 EJEC 733 * EXTERNAL CONTROL INSTRUCTION. 734 * 735 ************************** D E C O D E R *************************** 736 ORG X'180 DECODER REFERENCES NEXT 3 INXTRUCTIONS * 737 EXC1 GMSK /N(EXC2),LB3,RF3,FFE,MKF7FF,16(DR) X'800 V DR -> OPR * 738 SWA40 GMSK /F(STA2-2),2(6),FSF,SF1,IM6,LB2, FSEL(13-12),OS(ALU), * 739 CFFA,MKF800 I&X'7FF->ALU * 740 SWA10 GMSK /F(LDA1),2(C),MT1,FSF,SF1,IM5, FSEL(15-13),OS(ALU), * 741 CLB2,RF3,FFA,MKF800 I&X'7FF->DOR * 742 ************************************************************************ 74 EXC2 GEN /N(EXC3),1(1),IMF,LB1,FFA,MF1, START IO,DOR->S1 FREE 744 CWR1,BB0,24(S1) 745 EXC3 GMSK /N(SS2),IM2,LB2,FFE,MKFE00,16(S1) WAIT(IO),I&O'777 V S1 FREE 746 EXC22 GMSK /N(SS2),IM2,LB2,FFE,MK7E00, I&X'81FF V DR, WAIT(IO) FREE 747 C16(DR) 748 EJEC 749 * SET I/O DEVICE SELECTION REGISTER. THIS IS NOT A VARIAN 750 * INSTRUCTION. THIS INSTRUCTION PLACES 6 BITS IN REGISTER DR, 751 * WHICH ARE SUBSEQUENTLY INCLUSIVE-OR'ED WITH ALL DEVICE SELECTION 752 * SPECIFICATIONS SENT TO THE I/O BUS. THE OCTAL FORM FOR THIS 753 * INSTRUCTION IS: 754 * 107TDD WHERE 755 * T=0: DD->DR T=4: X->DR 756 * T=1: A->DR T=5: A V X -> DR 757 * T=2: B->DR T=6: B V X -> DR 758 * T=3: A V B -> DR T=7: A V B V X -> DR 759 * 760 SETXIT GEN /N(IWAIT),1(I),GF5,IM6,LB1,FFA, DECODE,IBR->I,EN INT FREE 761 CMF1,WR1,BB0,24(DR) DOR->DR 762 MORG 8 REFERENCED BY FSEL(8-6) 763 SETI GMSK /N(SETXIT),SF1,IM8,LB2,RF7,FFA, I&O'77->DOR 764 CMKFFC0 IF(P),INCP 765 SETA GMSK /N(SETXIT),SF1,IM8,LB3,RF7,FF7, DR&O'77->DOR 766 CMK3F,16(DR) IF(P),INCP 767 SETB GMSK /N(SETXIT),SF1,IM8,LB3,RF7,FF7, B&O'77->DOR 768 CMK3F,AK1 IF(P),INCP 769 SETAB GEN /N(SETA),FFE,MF1,WR1,BB1,24(DR) B V DR -> DR 770 SETX GMSK /N(SETXIT),SF1,IM8,LB3,RF7,FF7, X&O'77->DOR 771 CMK3F,AK2 IF(P),INCP 772 SETAX GEN /N(SETA),FFE,MF1,WR1,BB2,24(DR) X V DR -> DR 773 SETBX GEN /N(SETAX),FFA,MF1,WR1,BB1,24(DR) B->DR 774 SETABX GEN /N(SETAX),FFE,MF1,WR1,BB1,24(DR) B V DR -> DR 775 EJEC 776 * SENSE INSTRUCTION. 777 * 778 ************************** D E C O D E R *************************** 779 ORG X'190 DECODER REFERENCES NEXT 3 INSTRUCTIONS * 780 SEN1 GMSK /N(SEN2),LB3,RF3,FFE,MKEFFF,16(DR) X'1000 V DR -> DOR * 781 SWA41 GMSK /F(STA2-2),2(6),FSF,SF1,IM6,LB2, FSEL(13-12),OS(ALU), * 782 CFFA,MKF800 I&X'7FF->ALU * 783 SWA11 GMSK /F(LDA1),2(C),MT1,FSF,SF1,IM5, FSEL(15-13),OS(ALU), * 784 CLB2,RF3,FFA,MKF800 I&X'7FF->DOR * 785 ************************************************************************ 78 SEN2 GEN /N(SEN3),1(1),IMF,LB1,FFA,MF1, START I/O AT X'4, FREE 787 CWR1,XF1,BB0,24(S1) DOR->S1,RESET CINTF 788 SEN3 GMSK /N(SEN4),IM2,LB2,FFE,MKFE00, WAIT(IO), FREE 789 C16(S1) I&X'1FF V S1 ->ALU 790 SEN4 GEN /T(SEN5,SS1M),TF2,SF3,GF1,IMC,RF4 I/O SENSE=>SEN5,INCP, FREE 791 * IF(MIL) IF I/O SENSE 792 MORG 2 /T(SEN6,SEN7) 793 SEN7 GEN /N(SEN5),SF1,IMC,RF5 IF(MIL),INCSC 794 SEN6 GEN /N(SS3M),SF1,IM8 IF(P) 795 EJEC 796 * INSTRUCTIONS FORCED TOGETHER BY TEST ADDRESSING 797 * 798 MORG 4 /T(JMP1,SS1M), /T(BT50,SS1M), /T(SEN5,SS1M) 799 SS1M GEN /N(SS2M),SF1,IM8 IF(P) 800 JMP1 GEN /T(JMP2,SS2M),TF2,GFB,IM5,LB1, MILS=>JMP2,OF(ALU), 801 CRF1,FFA,MF1,XF2,BB1 MIL->P,JUMP SIGNAL 802 BT50 GEN /T(BT51,BT52),TF2,GFB,LB1,RF1, MILS=>BT51,MIL+1->P, 803 CFF9,CF3,XF2,SH1,BB1 JUMP SIGNAL 804 SEN5 GEN /T(SEN6,SEN7),TF3,GFB,LB1,RF1, MILS=>SEN7,MIL+1->P 805 CFF9,CF3,SH1,BB1 806 MORG 4 /T(JMP2,SS2M), /T(SRE80,SS2M) 807 SS2M GEN /N(SS3M),SF1,IM8,RF4,FF0,24(*-*) IF(P),INCP,(AA)->ALU 808 JMP2 GEN /N(JMP1),SF1,IMC,RF5 IF(MIL),INC SC 809 SRE80 GEN /N(SRE81),LB1,RF1,FF9,CF3,SH1 DOR+1->P 810 EJEC 811 * INPUT DATA TRANSFER INSTRUCTIONS. 812 * 813 ************************** D E C O D E R *************************** 814 ORG X'1A0 DECODER REFERENCES NEXT 3 INSTRUCTIONS * 815 IABM1 GMSK /N(IABM2),LB3,RF3,FFE,MKDFFF,16(DR) X'2000 V DR -> OPR * 816 SWA42 GMSK /F(STA2-2),2(6),FSF,SF1,IM6,LB2, FSEL(13-12),OS(ALU), * 817 CFFA,MKF800 I&X'7FF->ALU * 818 SWA12 GMSK /F(LDA1),2(C),MT1,FSF,SF1,IM5, FSEL(15-13),OF(ALU), * 819 CLB2,RF3,FFA,MKF800 I&X'7FF->DOR * 820 ************************************************************************ 82 IABM2 GEN /N(IABM3),1(3),IMF,LB1,FFA,MF1, START I/O AT X'C, FREE 822 CWR1,BB0,24(S1) DOR->S1 823 IABM3 GMSK /F(IME1),2(7),FSA,IM2,LB2,FFE, FSEL(8-6),WAIT(IO), FREE 824 CMKFE00,16(S1) IR & X'1FF V S1 825 INAB2 GEN /N(IAB),SF1,IM8,LB1,RF7,FFE,MF1, IF(P),INCP, FREE 826 CWR1,BB0,AA0 DOR V A -> A,DOR 827 IAB GEN /N(IWAIT),1(M),GF5,IM6,LB1,FFA, IBR->I,DEC,INTRPT, FREE 828 CMF1,WR1,BB0,AA1 DOR->B 829 IME2 GEN /N(SS2M),SF1,IM8,RF4,LB1,FFA,MF1 IF(P),INCP,DOR->ALU 830 MORG 8 REF BY FSEL(8-6) 831 IME1 GEN /N(IME2),SF1,IME,LB1,RF3,FFA,MF1, OS(MIL),IOR->DOR, 832 CXF1,BB2 RESET CINTF 833 INA GEN /N(SS3M),SF1,IM8,LB1,RF4,FFE,MF1, IF(P),INCP,IOR V A -> A 834 CWR1,BB2,AA0 835 INB GEN /N(SS3M),SF1,IM8,LB1,RF4,FFE,MF1, IF(P),INCP,IOR V B -> B 836 CWR1,BB2,AA1 837 INAB1 GEN /N(INAB2),LB1,RF3,FFE,MF1,BB2,AA1 IOR V B -> DOR 838 ILLOP 839 CIA GEN /N(SS3M),SF1,IM8,LB1,RF4,FFA,MF1, IF(P),INCP,IOR->A 840 CWR1,BB2,AA0 841 CIB GEN /N(SS3M),SF1,IM8,LB1,RF4,FFA,MF1, IF(P),INCP,IOR->B 842 CWR1,BB2,AA1 843 CIAB GEN /N(IAB),SF1,IM8,LB1,RF7,FFA,MF1, IF(P),INCP,IOR->A,DOR 844 CWR1,BB2,AA0 845 EJEC 846 * OUTPUT DATA TRANSFER INSTRUCTIONS. 847 * 848 ************************** D E C O D E R *************************** 849 ORG X'1B0 DECODER REFERENCES NEXT 3 INSTRUCTIONS * 850 OABM1 GMSK /F(OME1),2(3),FSA,LB3,RF3,FFE, FSEL(7-6), * 851 CMKBFFF,16(DR) X'2000 V DR -> DOR * 852 SWA43 GMSK /F(STA2-2),2(6),FSF,SF1,IM6,LB2, FSEL(13-12),OS(ALU), * 853 CFFA,MKF800 I&X'7FF->ALU * 854 SWA13 GMSK /F(LDA1),2(C),MT1,FSF,SF1,IM5, FSEL(15-13),OF(ALU), * 855 CLB2,RF3,FFA,MKF800 I&X'7FF->DOR * 856 ************************************************************************ 85 OME2 GEN /N(OAR1),IM1 WAIT(M) FREE 858 MORG 4 REF BY FSEL 859 OME1 GEN /N(OME2),SF1,IMD,XF1 OF(MIL),RESET CINTF 860 OAR1 GEN /N(OABM2),1(7),IMF,LB1,FFA,MF1, START I/O AT X'1C, 861 CWR1,BB0,24(S1) DOR->S1 862 OBR1 GEN /N(OABM2),1(7),IMF,LB1,FFA,MF1, START I/O AT X'1C, 863 CWR1,BB0,24(S1) DOR->S1 864 OAB1 GEN /N(OABM2),1(7),IMF,LB1,FFA,MF1, START I/O AT X'1C, 865 CWR1,BB0,24(S1) DOR->S1 866 MORG 4 REF BY FSEL 867 OME3 GEN /N(SS1M),IM2,LB1,RF4,FFA,MF1,BB1 WAIT(IO),INCP,MIL->ALU 868 OAR2 GEN /N(SS2M),IM2,AA0 WAIT(IO),A->ALU 869 OBR2 GEN /N(SS2M),IM2,AA1 WAIT(IO),B->ALU 870 OAB2 GEN /N(SS2M),IM2,FFE,MF1,BB1,AA0 WAIT(IO),A V B->ALU 871 OABM2 GMSK /F(OME3),2(3),FSA,IM2,LB2,FFE, FSEL(7-6),WAIT(IO), FREE 872 CMKFE00,16(S1) I&X'1FF V S1 -> ALU 873 EJEC 874 * AUTOMATIC BOOTSTRAP LOADER FOR TELETYPE AND HIGH-SPEED PAPER TAPE 875 * DEPOSITED AT 0200, STARTED WITH X=07000 AT 0212. 876 * 877 ABL20 GMSK /N(ABL3),SF1,IMA,LB3,RF4,FFA,MK7A7E 0200 CIB 001 FREE 878 ABL21 GMSK /N(ABL3),SF1,IMA,LB3,RF4,FFA,MK7A60 0200 CIB 037 FREE 879 ABL3 GMSK /N(ABL4),SF1,IMA,LB3,RF4,FFA,MKF7F6 0201 ASLB 9 FREE 880 ************************** D E C O D E R *************************** 881 ORG X'1C0 DECODER REFERENCES NEXT 3 INSTRUCTIONS * 882 EXC21 GEN /N(EXC22),1(1),IME START I/O AT 4 * 883 SWA44 GMSK /F(STA2-2),2(6),FSF,SF1,IM6,LB2, FSEL(13-12),OS(ALU), * 884 CLA1,FF9,MKFE00 I&X'1FF + P -> ALU * 885 SWA14 GMSK /F(LDA1),2(C),MT1,FSF,SF1,IM5, FSEL(15-13),OF(ALU), * 886 CLB2,LA1,RF3,FF9,MKFE00 I&X'1FF + P -> DOR * 887 ************************************************************************ 88 ABL4 GMSK /N(ABL5),SF1,IMA,LB3,RF4,FFA,MKF7DE 0202 LRLB 1 FREE 889 ABL5 GMSK /N(ABL6),SF1,IMA,LB3,RF4,FFA,MKF6D9 0203 LLRL 6 FREE 890 ABL6 GMSK /N(ABL7),SF1,IMA,LB3,RF4,FFA,MKFDEF 0204 JBZ FREE 891 ABL7 GMSK /N(ABL8),SF1,IMA,LB3,RF4,FFA,MKFF73 0205 0214 FREE 892 ABL8 GMSK /N(ABL9),SF1,IMA,LB3,RF4,FFA,MKA5FF 0206 STA 0,X FREE 893 ABL9 GMSK /N(ABLA),SF1,IMA,LB3,RF4,FFA,MKFDF7 0207 JAZ FREE 894 ABLA GMSK /N(ABLB),SF1,IMA,LB3,RF4,FFA,MKF1FF 0210 07000->DOR FREE 895 ABLB GMSK /N(ABLC),SF1,IMA,LB3,RF4,FFA,MKF59B 0211 IXR FREE 896 ABLC GMSK /T(ABLD1,ABLD0),TF2,SF1,IMA,LB3,RF4, 0212 INCR 1 FREE 897 CFFA,MKF5BE 898 MORG 2 /T(ABLD1,ABLD0) 899 ABLD0 GMSK /N(ABLE0),SF1,IMA,LB3,RF4,FFA,MK7A7E 0213 CIB 001 900 ABLD1 GMSK /N(ABLE1),SF1,IMA,LB3,RF4,FFA,MK7EA0 0213 EXC 0537 901 ABLE0 GMSK /N(ABLF),SF1,IMA,LB3,RF4,FFA,MK7D7E 0214 SEN 0201 FREE 902 ABLE1 GMSK /N(ABLF),SF1,IMA,LB3,RF4,FFA,MK7CA0 0214 SEN 0537 FREE 903 ************************** D E C O D E R *************************** 904 ORG X'1D0 DECODER REFERENCES NEXT 3 INSTRUCTIONS * 905 * NOTE - BCS WILL BE DETECTED BY WCS ON MACHINES SO EQUIPPED, * 906 * RATHER THAN CAUSING ILLEGAL INSTRUCTION PROCESSING. * 907 BCS ILLOP * 908 SWA45 GMSK /F(STA2-2),2(6),FSF,SF1,IM6,LB2, FSEL(13-12),OS(ALU), * 909 CFF9,MKFE00,AK2 I&X'1FF + X -> ALU * 910 SWA15 GMSK /F(LDA1),2(C),MT1,FSF,SF1,IM5, FSEL(15-13),OF(ALU), * 911 CLB2,RF3,FF9,MKFE00,AK2 I&X'1FF + X -> DOR * 912 ************************************************************************ 91 ABLF GMSK /N(ABLX0),SF1,IMA,LB3,RF4,FFA,MKFF7F 0215 0200 FREE 914 ABLX0 GMSK /N(ABLX1),SF1,IMA,LB3,RF4,FFA,MKFDFF 0216 JMP FREE 915 ABLX1 GMSK /N(ABLX2),IM1,LB3,FFA,MKFF73 0217 0214 FREE 916 ABLX2 GEN /N(ABLX3),LB1,FFA,MF1,WR1,AA2 DOR->X FREE 917 ABLX3 GMSK /N(SS2),SF1,GF4,IM4,LB3,RF1,FFA,MKFF75 0212->P FREE 918 * 919 * AUTOMATIC BOOTSTRAP LOADER FOR DISC. 920 * DEPOSITED AT 01130, STARTED AT 01130. 921 * 922 ABL31 GMSK /N(ABL32),SF1,IMA,LB3,RF4,FFA,MK7EF1 01130 EXC 0416 FREE 923 ABL32 GMSK /N(ABL33),SF1,IMA,LB3,RF4,FFA,MK77F1 01131 EXC2 0016 FREE 924 ABL33 GMSK /N(ABL34),SF1,IMA,LB3,RF4,FFA,MK7F71 01132 EXC 0216 FREE 925 ABL34 GMSK /N(ABL35),SF1,IMA,LB3,RF4,FFA,MKF5FE 01133 TZA FREE 926 ABL35 GMSK /N(ABL36),SF1,IMA,LB3,RF4,FFA,MK79B1 01134 OAR 0016 FREE 927 ABL36 GMSK /N(ABL37),SF1,IMA,LB3,RF4,FFA,MK7DF1 01135 SEN 0016 FREE 928 ABL37 GMSK /N(ABL38),SF1,IMA,LB3,RF4,FFA,MKFD9E 01136 01141 FREE 929 ABL38 GMSK /N(ABL39),SF1,IMA,LB3,RF4,FFA,MKFDFF 01137 JMP FREE 930 ************************** D E C O D E R *************************** 931 ORG X'1E0 DECODER REFERENCES NEXT 3 INSTRUCTIONS * 932 ILLOP * 933 SWA46 GMSK /F(STA2-2),2(6),FSF,SF1,IM6,LB2, FSEL(13-12),OS(ALU), * 934 CFF9,MKFE00,AK1 I&X'1FF + B -> ALU * 935 SWA16 GMSK /F(LDA1),2(C),MT1,FSF,SF1,IM5, FSEL(15-13),OF(ALU), * 936 CLB2,RF3,FF9,MKFE00,AK1 I&X'1FF + B -> DOR * 937 ************************************************************************ 93 ABL39 GMSK /N(ABL3A),SF1,IMA,LB3,RF4,FFA,MKFDA2 01140 01133 FREE 939 ABL3A GMSK /N(ABL3B),SF1,IMA,LB3,RF4,FFA,MK7AB1 01141 CIA 0016 FREE 940 ABL3B GMSK /N(ABL3C),SF1,IMA,LB3,RF4,FFA,MK2D89 01142 ANA 01166 FREE 941 ABL3C GMSK /N(ABL3D),SF1,IMA,LB3,RF4,FFA,MKFDF1 01143 JANZ FREE 942 ABL3D GMSK /N(ABL3E),SF1,IMA,LB3,RF4,FFA,MKFDA7 01144 01130 FREE 943 ABL3E GMSK /N(ABL3F),SF1,IMA,LB3,RF4,FFA,MK7FEE 01145 EXC 0021 FREE 944 ABL3F GMSK /N(ABL40),SF1,IMA,LB3,RF4,FFA,MK7F31 01146 EXC 0316 FREE 945 ABL40 GMSK /N(ABL41),SF1,IMA,LB3,RF4,FFA,MKF5BD 01147 INCR 2 FREE 946 ABL41 GMSK /N(ABL42),SF1,IMA,LB3,RF4,FFA,MK7971 01150 OBR 0016 FREE 947 ABL42 GMSK /N(ABL43),SF1,IMA,LB3,RF4,FFA,MK79AF 01151 OAR 0020 FREE 948 ABL43 GMSK /N(ABL44),SF1,IMA,LB3,RF4,FFA,MKF9EE 01152 OME 0021 FREE 949 ABL44 GMSK /N(ABL45),SF1,IMA,LB3,RF4,FFA,MKFD9B 01153 01144 FREE 950 ABL45 GMSK /N(ABL46),SF1,IMA,LB3,RF4,FFA,MK7FEF 01154 EXC 0020 FREE 951 ************************** D E C O D E R *************************** 952 ORG X'1F0 DECODER REFERENCES NEXT 3 INSTRUCTIONS * 953 SETDR GEN /F(SETI),2(7),FSA,FFA,MF1,WR1, FSEL(8-6), A->DR * 954 CBB0,24(DR) * 955 SWA47 GMSK /N(SWA50),SF1,IM5,LB2,FFA,MKFE00 OF(ALU),I&X'1FF->ALU * 956 SWA17 GMSK /N(SWA21),SF1,IM5,LB2,FFA,MKFE00 OF(ALU),I&X'1FF->ALU * 957 ************************************************************************ 95 ABL46 GMSK /N(ABL47),SF1,IMA,LB3,RF4,FFA,MK7FF1 01155 EXC 0016 FREE 959 ABL47 GMSK /N(ABL48),SF1,IMA,LB3,RF4,FFA,MK7CF1 01156 SEN 0416 FREE 960 ABL48 GMSK /N(ABL49),SF1,IMA,LB3,RF4,FFA,MKFD91 01157 01156 FREE 961 ABL49 GMSK /N(ABL4A),SF1,IMA,LB3,RF4,FFA,MK7AB1 01160 CIA 0016 FREE 962 ABL4A GMSK /N(ABL4B),SF1,IMA,LB3,RF4,FFA,MK2D89 01162 ANA 01166 FREE 963 ABL4B GMSK /N(ABL4C),SF1,IMA,LB3,RF4,FFA,MKFDF1 01162 JANZ FREE 964 ABL4C GMSK /N(ABL4D),SF1,IMA,LB3,RF4,FFA,MKFDA7 01163 01130 FREE 965 ABL4D GMSK /N(ABL4E),SF1,IMA,LB3,RF4,FFA,MKFDFF 01164 JMP FREE 966 ABL4E GMSK /N(ABL4F),SF1,IMA,LB3,RF4,FFA,MKFE7F 01165 00600 FREE 967 ABL4F GMSK /N(ABL50),IM1,LB3,FFA,MKF00F 01166 07760 FREE 968 ABL50 GMSK /N(SS2),SF1,IM4,LB3,RF1,FFA,MKFDA7 01130->P FREE 969 **************************** R E S E T ***************************** 970 ORG X'1FE REF BY FSEL(CINTF) * 971 HLT8 GEN /N(RESET),RF4,XF1 RESET CINTF, INCP * 972 ORG X'1FF HARDWARE INTERRUPTS HERE FOR STEP AND RESET * 973 RESET GEN /N(HLT7),1(4),GF4,IMC,LB2,RF3,FFA INTRPT,I->DOR * 974 ************************************************************************ 97 END 976