@[*AW620/F EMULATION MICROPROGRAM%#001
@[*_@H#002
@[*AJREGISTERS USED:7#003
@[*EM0 = 620 A REGISTER0#004R
@[*EM1 = 620 B REGISTER0#005R
@[*EM2 = 620 X REGISTER0#006R
@[*E43 = I/O DEVICE SELECTION REGISTER (LOW ORDER 6 BITS)I#007)
@[*E34 = USED BY HALT LOOP TO HOLD INSTRUCTION REGISTER.]#THEE#008
@[*I6CONSOLE IS WIRED TO REQUEST DISPLAY OF REGISTER 4 WHENC#009 W
@[*I*THE INSTRUCTION REGISTER KEY IS PRESSED.Q#010SSED
@[*E'E = USED FREELY AS WORKING SPACE, AND REQUIRED BY MULTIPLYC#011Y
@[*ISAND DIVIDE INSTRUCTIONS.&#012IO
@[*E'F = USED FREELY AS WORKING SPACE, AND REQUIRED BY MULTIPLYC#013Y
@[*ISAND DIVIDE INSTRUCTIONS.&#014IO
@[*_@H#015
@[*A!ENTER AT X'1D FOR TESTING PURPOSES IN PAGE 1.T#016
@[*_@H#017
@[*AQHEXADECIMAL CONSTANTS.0#018
@[*_@H#019
@[AA#EQU #X'A;#020
@[BA#EQU #X'B;#021
@[CA#EQU #X'C;#022
@[DA#EQU #X'D;#023
@[EA#EQU #X'E;#024
@[FA#EQU #X'F;#025
@[*_@H#026
@[*AMSPECIAL REGISTERS.4#027
@[*_@H#028
@]DR #EQU [3RNI/O DEVICE REGISTERN#029 I/O
@]IH #EQU [4R)INSTRUCTION REGISTER (HALT LOOP)A#030REG
@]S1 #EQU [E.#031
@]S2 #EQU [F.#032
@[*_@H#033
@[*AKINTERRUPT MASKS.6#034
@[*_@H#035
@[MA#EQU [E-PALLOW I/O ONLY IF M/PB#036
@[IA#EQU [F-KALLOW I/O ALWAYSG#037
@[NA#EQU [C-KDO NOT ALLOW I/OG#038
@[*_@H#039
@[*_@H#040
@[*AAMACROS_@[#041
@[*_@H#042
@[*A)ORIGIN AT NEXT MULTIPLE OF P(1).&#043
@[*_@H#044
@^MORG##MAC_@^#045
B#ORG C*+P(1)-16#046)-1
B#ORG F*/P(1)*P(1)3#047(
B^EMAC_@##048
@[*_@H#049
@[*AOILLEGAL INSTRUCTIONS2#050
@[*_@H#051
@ ILLAD]#EQU [2RXILLEGAL INSTRUCTION INTERRUPTD#052RUC
@ ILLOP]#MAC_@^#053
B^GMSK^Y/N(ILLOP1),LA1,LB3,RF1,FF9,MK1^AP-2->PQ#0542->
B^EMAC_@##055
B^EJEC_@##056
@[*A=SINGLE WORD ADDRESSING INSTRUCTIONS.+#057
@[*A%PART OF DOUBLE-WORD EXTENDED INSTRUCTIONS.W#058
@[*_@H#059
B^MORG^]32]MREF BY FSEL(15-13)*#0603
@^LDA1##GEN Z/N(LDB),SF1,AB3,IM8,RF4,BB1,AA0#OINCP,IF(P),SET AA&BBC#061
@ ELDA1]#GEN Z/N(IWAIT),1(M),GF5,LB1,FFA,MF1,#MIBR->I,DEC,INTRPT, CFREE 062E 0
IGCWR1,BB1,AA0RAMIL->AQ#063
B^MORG^[2#RLDB,LDX REF BY FSEL(12)<#06412)
@#LDB^#GEN Z/N(IWAIT),1(I),GF5,IM6,LB1,FFA,#MIBR->I,DEC,INTRPT,E#065
IKCMF1,WR1,BB1,AA1NQSEL&RESET CINTF,MIL->BA#066
@ ELDB1]#GEN Z/N(IWAIT),1(M),GF5,LB1,FFA,MF1,#MIBR->I,DEC,INTRPT, CFREE 067E 0
IGCWR1,BB1,AA1RAMIL->BQ#068
B#ORG ALDA1+48#069
@ SWA31]#GEN W/F(LDB),2(4),FSE,SF1,IM8,RF4ANFSEL(12),IF(P),INCPD#070
@ ELDX1]#GEN Z/N(IWAIT),1(M),GF5,LB1,FFA,MF1,#MIBR->I,DEC,INTRPT, CFREE 071E 0
IGCWR1,BB1,AA2RAMIL->XQ#072
B#ORG  LDB+49#073B
@#LDX^#GEN Z/N(IWAIT),1(I),GF5,IM6,LB1,FFA,#MIBR->I,DEC,INTRPT,E#074
IKCMF1,WR1,BB1,AA2NQSEL&RESET CINTF,MIL->XA#075
@ EINR1]#GEN )/N(INR2),GF8,LB1,FF9,CF3,SH1,BB1]ZMIL+1->ALU,SAMPLE OVFL FREE 0766
B#ORG BSWA31+47#0771+4
@^INR1##GEN X/N(EINR1),SF1,IM6,LB1,FFA,MF1 KOS(ALU),DOR->ALUG#078
@^INR2##GEN Y/F(SS3M),2(8),FSF,SF1,IM8,RF4,^OFSEL(14),MIL+1->ALU,#CFREE 079E 0
IOCLB1,FF9,CF3,SH1,BB1JEINCP,IF(P)M#080
B^MORG^[2#RSUB,ANA REF BY FSEL(12)<#08112)
@#SUB^#GEN Z/N(IWAIT),1(I),GFD,IM6,LB1,FF6,#PIBR->I,DECODE,EN INT,B#082
IKCCF3,WR1,BB1,AA0NOSAMPLE OVFL,A-MIL->AC#083
@ ESUB1]#GEN Z/N(IWAIT),1(M),GFD,LB1,FF6,CF3,#MIBR->I,DEC,INTRPT, CFREE 084E 0
IGCWR1,BB1,AA0ROA-MIL->A,SAMPLE OVFLC#085
B#ORG  SUB+29#086B
@#ANA^#GEN Z/N(IWAIT),1(I),GF5,IM6,LB1,FFB,#PIBR->I,DECODE,EN INT,B#087
IKCMF1,WR1,BB1,AA0NCA&MIL->AO#088
@ EANA1]#GEN Z/N(IWAIT),1(M),GF5,LB1,FFB,MF1,#MIBR->I,DEC,INTRPT, CFREE 089E 0
IGCWR1,BB1,AA0RCA&MIL->AO#090
B^MORG^[2#I/S(LDA1,SWA26)?#091
@ SWA26]#GEN P/N(SWA22),SF1,IMD,RF5HGOF(MIL),INCSK#092
@ EORA1]#GEN Z/N(IWAIT),1(M),GF5,LB1,FFE,MF1,#MIBR->I,DEC,INTRPT, CFREE 093E 0
IGCWR1,BB1,AA0RGA V MIL -> AK#094
B#ORG AINR1+88#095
@^ORA1##GEN O/N(ORA2),SF1,IM8,RF4IEIF(P),INCPM#096F(P)
@^ORA2##GEN Z/N(IWAIT),1(I),GF5,IM6,LB1,FFE,#MIBR->I,DEC,INTRPT, CFREE 097EE 0
IKCMF1,WR1,BB1,AA0NGA V MIL -> AK#098
B^MORG^[2#TADD, ERA REF BY F.SEL(12)-#0991
@#ADD^#GEN Z/N(IWAIT),1(I),GFD,IM6,LB1,FF9,#PIBR->I,DECODE,EN INT,B#100
IGCWR1,BB1,AA0ROSAMPLE OVFL,A+MIL->AC#101
@ EADD1]#GEN Z/N(IWAIT),1(M),GFD,LB1,FF9,WR1,#MIBR->I,DEC,INTRPT, CFREE 102E 1
ICCBB1,AA0VOA+MIL->A,SAMPLE OVFLC#103
B#ORG AORA1+48#104
@ SWA35]#GEN W/F(ADD),2(4),FSE,SF1,IM8,RF4ANFSEL(12),IF(P),INCPD#105
@ SWA22]#GEN )/S(LDA1,SWA26),2(C),MT1,FSF,TF3,]ZC.FSEL(15-13)(MIL15=0),FREE 1066
ISCGFB,LB1,RF3,FFA,MF1,BB1FCMIL->OPRO#107
B#ORG  ADD+4#KMORG 16 WITH ADD&#108
@#ERA^#GEN Z/N(IWAIT),1(I),GF5,IM6,LB1,FF6,#PIBR->I,DECODE,EN INT,B#109
IKCMF1,WR1,BB1,AA0NIA XOR MIL -> AI#110
@ EERA1]#GEN Z/N(IWAIT),1(M),GF5,LB1,FF6,MF1,#MIBR->I,DEC,INTRPT, CFREE 111E 1
IGCWR1,BB1,AA0RIA XOR MIL -> AI#112
B#ORG BSWA35+47#1135+4
@ SWA36]#GEN W/F(SUB),2(2),FSF,SF1,IM8,RF4ANFSEL(12),IF(P),INCPD#114
@ SWA21]#GEN L/N(SWA22),SF1,IMDLBOF(MIL)KCFREE 115F(MI
B^MORG [2^JREF BY FSEL(12)(#116L(12)
@^MUL0##GEN Z/N(MUL),LB1,FFA,MF1,WR1,BB1,AAF#BMIL->S2P#117
@#MUL^^GMSK^Y/T(MUL4,MUL1),TF2,GFD,LB3,RF2,^NR0SIGN=>MUL4,15->SC^CFREE 118EE 1
IFCFFA,MK000E4#119
B#ORG BSWA36+47#1206+4
@ SWA37]#GEN P/F(MUL0),2(4),FSE,IM1HKFSEL(12),WAIT(M)G#121WA
@ ENTER]#GEN P/N(SS3MI),SF1,IM8,RF4HEIF(P),INCPM#122P)
B#ORG AMUL0+4#LMORG 16 WITH MUL0=#123MUL0
@^DIV0##GEN )/N(DIV),LB1,FFA,MF1,WR1,WF1,BB1,]LMIL->S2,MIL15->QSF#124
IBC24(S2)8#125C24(
@#DIV^#GEN X/T(DIV2,DIV1),TF3,GFF,VF1,AA0 OQS=>DIV1,R0(15)->DSB#CFREE 126REE 1
B^EJEC_@##127
@[*A+DOUBLE-WORD EXTENDED INSTRUCTIONS.]WNOTE THAT THESE INSTRUCTIONSA#128   1
@[*A.ARE DIFFERENT FROM VARIAN'S SINCE AN M-FIELD EQUAL TO ZERO OR[[8B#129   1
@[*A>DOES NOT CAUSE UNPREDICTABLE RESULTS.-#130
@[*_@H#131
B^MORG^]32]$ELDA ETC REF BY CND FSEL, FAIL TO DEINDN#132ND
@EEXTBAS EQU [*.#133
@]DL #GEN )/N(DL1),SF1,IM5,LB1,RF4,FF9,CF3,]OOF(ALU), DOR+1->ALU,C#134
ICCSH1,BB0V^INCPS#1350
@^ELDA##GEN \/N(ELDA1),SF1,IM4,RF1,FF0,CF3,AAE IF(A),S1+1->PJ#136
@^ELDB##GEN \/N(ELDB1),SF1,IM4,RF1,FF0,CF3,AAE IF(A),S1+1->PJ#137
@^ELDX##GEN \/N(ELDX1),SF1,IM4,RF1,FF0,CF3,AAE IF(A),S1+1->PJ#138
@^EINR##GEN 5/N(EINR1),SF1,IM6,LB1,RF4,FFA,MF1 OS(A),DOR->ALU,INCPD#139
@^ESTA##GEN W/N(SS2M),SF1,IM2,AB3,RF4,AA0AMOVR(OS),A->AA,INCPE#140
@^ESTB##GEN W/N(SS2M),SF1,IM2,AB3,RF4,AA1AMOVR(OS),B->AA,INCPE#141
@^ESTX##GEN W/N(SS2M),SF1,IM2,AB3,RF4,AA2AMOVR(OS),X->AA,INCPE#142
@]DS #GEN N/N(DS1),SF1,IM2,AA0JJOVR(OS), A->ALUH#143(O
@^EORA##GEN \/N(EORA1),SF1,IM4,RF1,FF0,CF3,AAE IF(A),S1+1->PJ#144
@^EADD##GEN \/N(EADD1),SF1,IM4,RF1,FF0,CF3,AAE IF(A),S1+1->PJ#145
@^EERA##GEN \/N(EERA1),SF1,IM4,RF1,FF0,CF3,AAE IF(A),S1+1->PJ#146
@^ESUB##GEN \/N(ESUB1),SF1,IM4,RF1,FF0,CF3,AAE IF(A),S1+1->PJ#147
@^EANA##GEN \/N(EANA1),SF1,IM4,RF1,FF0,CF3,AAE IF(A),S1+1->PJ#148
@^EMUL##GEN K/N(MUL0),IM1,RF4MGWAIT(M),INCPK#149
@^EDIV##GEN K/N(DIV0),IM1,RF4MGWAIT(M),INCPK#150
B^MORG^]16]YREF BY CND FSEL, FAIL TO DEINDW#151N
@^DERL##GEN Y/S(EXTBAS,DEIND),2(F),FS7,TF3,^NC.FSEL(6-3) (QS=0),D#152
I)CSF1,GFF,IM5,LA1,LB1,RF3,FF9,BB0#KOF(A),P+DOR->DORG#153DOR
@^DEIX##GEN Y/S(EXTBAS,DEIND),2(F),FS7,TF3,^NC.FSEL(6-3) (QS=0),D#154
I)CSF1,GFF,IM5,LB1,RF3,FF9,BB0,AA2#KOF(A),X+DOR->DORG#155DOR
@^DEIB##GEN Y/S(EXTBAS,DEIND),2(F),FS7,TF3,^NC.FSEL(6-3) (QS=0),D#156
I)CSF1,GFF,IM5,LB1,RF3,FF9,BB0,AA1#KOF(A),B+DOR->DORG#157DOR
@^DENI##GEN Y/S(EXTBAS,DEIND),2(F),FS7,TF3,^NC.FSEL(6-3) (QS=0),D#158
IWCSF1,GFF,IM5,LB1,FFA,MF1,BB0BIOF(A),DOR->ALUI#159(A)
B^MORG^[2#IREF BY FSEL(7)?#160
@ DEPRE]#GEN U/F(DERL),2(3),FS4,LB1,RF3,CEFSEL(1,0),M#161),
IKCFFA,MF1,WF1,BB1NMMIL->DOR,MIL15->QSE#162
@EDEPOST GEN X/S(DERL,DEPST1),2(3),FS4,TF3, QC.FSEL(1,0) (MIL15=0),A#163
ISCGFB,LB1,RF3,FFA,MF1,BB1FCMIL->DORO#164
B^MORG^[2#L/T(DEPSTI,DEIND1)(#165D1)
@EDEIND1 GEN Y/S(EXTBAS,DEIND),2(F),FS7,TF3,^QC.FSEL(6-3) (MIL15=0),A#166    1
I)CSF1,GFB,IM5,LB1,RF3,FFA,MF1,BB1#IOF(A),MIL->DORI#167MIL->
@EDEPSTI GEN )/S(DERL,DEIND),2(3),FS4,TF3,SF3,]QC.FSEL(1,0) (MIL15=0),A#168  1
IWCGFB,IM5,LB1,RF3,FFA,MF1,BB1BPCND(MIL15=1) OF(ALU),B#169=1
@[*0CMIL->DORO#170
B^MORG^[2#K/S(EXTBAS,DEIND)%#171ND)
@ DEIND]#GEN 9/T(DEPSTI,DEIND1),TF3,GFF,IM1,RF5 WAIT(M),QS=>DEIND1,INCS #172 1
@#DL1^#GEN Y/N(ELDB1),SF1,IM8,LB1,RF4,FFA,^LIF(P),INCP,MIL->AACFREE 173
IKCMF1,WR1,BB1,AA0\#174B
B^MORG^[2#J/S(DERL,DEPST1):#175T1)
@EDEPST1 GEN 2/N(DEIND),SF1,IM5,LB1,FFA,MF1,BB0 OF(ALU),DOR->ALUG#176
B^EJEC_@##177
@[*ARSKIP IF REGISTER EQUAL.]=THIS CODE IS SOMEWHAT DIFFERENT FROMD#178
@[*A.VARIAN'S SINCE SETTING OF MORE THAN ONE OF THE A, B OR X BITSD#179
@[*A>DOES NOT CAUSE UNPREDICTABLE RESULTS.-#180
@[*_@H#181
@ SRE5X]#GEN X/N(SRE60),IM1,LA1,RF1,FF1,BB0 MWAIT(M),P V A -> P CFREE 182REE 1
B^MORG^[4#KREF BY FSEL(1-0)%#183-0)
@ SRE20]#GEN 9/S(SRE50,SRE30),2(7),FS7,TF3,SF2, CND(MIL15=0) FSEL(5-3), #184 1
ISCGFB,IM5,LB1,LA1,FF9,BB1FPCND(MIL15=0) OF(ALU),B#185
@[*0EP+MIL->ALUM#186
@ SRE21]#GEN 9/S(SRE50,SRE30),2(7),FS7,TF3,SF2, CND(MIL15=0) FSEL(5-3), #187 1
ISCGFB,IM5,LB1,FF9,BB1,AA2FPCND(MIL15=0) OF(ALU),B#188
@[*0EX+MIL->ALUM#189
@ SRE22]#GEN 9/S(SRE50,SRE30),2(7),FS7,TF3,SF2, CND(MIL15=0) FSEL(5-3), #190 1
ISCGFB,IM5,LB1,FF9,BB1,AA1FPCND(MIL15=0) OF(ALU),B#191
@[*0EB+MIL->ALUM#192
@ SRE23]#GEN 9/S(SRE50,SRE30),2(7),FS7,TF3,SF1, CND(MIL15=0) FSEL(5-3), #193 1
ICCGFB,IMDVBOF(MIL)P#194
B^MORG^]16]PSRE5+ REF BY CND FSEL>#195EL
@ SRE50]#GEN P/N(SRE60),IM1,RF1,SH1HGWAIT(M),0->PK#196
@ SRE51]#GEN P/N(SRE60),IM1,RF1,AA0HGWAIT(M),A->PK#197
@ SRE52]#GEN P/N(SRE60),IM1,RF1,AA1HGWAIT(M),B->PK#198
@ SRE53]#GEN X/N(SRE60),IM1,RF1,FF1,BB1,AA0 MWAIT(M),A V B -> PE#199
@ SRE54]#GEN P/N(SRE60),IM1,RF1,AA2HGWAIT(M),X->PK#200
@ SRE55]#GEN X/N(SRE60),IM1,RF1,FF1,BB2,AA0 MWAIT(M),A V X -> PE#201
@ SRE56]#GEN X/N(SRE60),IM1,RF1,FF1,BB2,AA1 MWAIT(M),B V X -> PE#202
@ SRE57]#GEN T/N(SRE5X),RF1,FF1,BB2,AA1DEB V X -> PM#203> P
B^MORG^[2#MMORG 32 WITH SRE50*#204E5
@ SRE30]#GEN L/N(SRE40),SF1,IMDLBOF(MIL)P#205
@ SRE60]#GEN 3/N(SRE70),GF2,LB1,LA1,FF6,MF1,BB1 MIL XOR P, SAMPLEACFREE 206E 2
B^MORG^[2#MMORG 32 WITH SRE50*#207E5
@ SRE40]#GEN U/F(SRE20),2(3),FS4,IM1,RF5CQFSEL(1-0),WAIT(M),INCSA#208CS
@ SRE70]#GEN Z/T(SRE80,SS2M),TF2,SF2,GF9,IM4,#PCND(NO ALUZ) IF(ALU),]CFREE 209
IGCLB1,RF1,BB0RADOR->PQ#210
B^EJEC_@##211
@[*A\REGISTER - TO - REGISTER TRANSFER INSTRUCTIONS.R#212
@[*_@H#213
@ REG30]#GEN %/F(REG20),2(7),FS4,SF1,IM8,LB1,RF3,FFE,MF1O#214
@ REG41]#GEN >/N(REG20),SF1,GF6,IM8,LB1,FF9,WR1,SH5OCFREE 215
@ REG42]#GEN (/N(REG20),SF1,GF6,IM8,LB1,FF9,WR1,SH5,AA1KCFREE 216
@ REG43]#GEN (/N(REG21),SF1,GF6,IM8,LB1,FF9,WR1,SH5,AA1KCFREE 217
B^MORG^]16]OREF BY CND FSEL(2-0)&#2180)
@ REG20]#GEN Q/N(IWAIT),1(I),GF5,IM6*#219
@ REG21]#GEN &/N(IWAIT),1(I),GFD,IM6,LB1,FF9,WR1,SH5S#220
@ REG22]#GEN %/N(IWAIT),1(I),GFD,IM6,LB1,FF9,WR1,SH5,AA1O#221
@ REG23]#GEN (/N(REG41),SF1,GF6,IM1,LB1,FF9,WR1,SH5,AA1P#222
@ REG24]#GEN %/N(IWAIT),1(I),GFD,IM6,LB1,FF9,WR1,SH5,AA2O#223
@ REG25]#GEN (/N(REG41),SF1,GF6,IM1,LB1,FF9,WR1,SH5,AA2P#224
@ REG26]#GEN (/N(REG42),SF1,GF6,IM1,LB1,FF9,WR1,SH5,AA2P#225
@ REG27]#GEN (/N(REG43),SF1,GF6,IM1,LB1,FF9,WR1,SH5,AA2P#226
@U**************************#HD E C O D E R#V*************************** #2272
B#ORG ^X'58 &DECODER REFERENCES NEXT 8 INSTRUCTIONSD[* #228O
@ REG18]#GEN ?/S(REG20,REG20),2(7),FS4,TF2,SF1,IM8,RF7,SH1G[* #229
@ REG1A]#GEN ?/S(REG20,REG20),2(7),FS4,TF2,SF1,IM8,RF7,AA1G[* #230
@ REG1C]#GEN ?/S(REG20,REG20),2(7),FS4,TF2,SF1,IM8,RF7,AA2G[* #231
@ REG1E]#GEN !/S(REG20,REG20),2(7),FS4,TF2,SF1,IM8,RF7,FFE,F[* #232    *
IGCMF1,BB2,AA1![* #233,A
@ REG19]#GEN */S(REG20,REG20),2(7),FS4,TF2,SF1,IM8,RF7K[* #234
@ REG1B]#GEN !/S(REG20,REG20),2(7),FS4,TF2,SF1,IM8,RF7,FFE,F[* #235    *
ICCMF1,BB11[* #236
@ REG1D]#GEN !/S(REG20,REG20),2(7),FS4,TF2,SF1,IM8,RF7,FFE,F[* #237    *
ICCMF1,BB21[* #238
@ REG1F]#GEN \/T(REG30,REG20),TF2,SF2,IM8,RF7,FFE,MF1,BB2,AA1D[* #239  *
@_***************************************************************@D********* #24
B^EJEC_@##241
@[*APHALT LOOP PROCESSING.]>CONTROL GETS HERE VIA HALT OR ILLEGALE#242
@[*A5INSTRUCTIONS, VIA THE RESET KEY AND VIA THE STEP KEY.L#243
@[*_@H#244
B^MORG^]16]5REF BY FSEL(5-4), (5-4)=11 IMPOSSIBLE, REG FLD SELECT #245CT
@ HREN1]#GEN C/N(HMEM)URNOP (CAN'T CHANGE STAT) #246 (
@ HREN2]#GEN S/N(HMEM),LB1,RF1,FFA,MF1EADOR->PQ#247R->
@ HREN3]#GEN S/N(HMEM),LB1,FFA,MF1,WR1ECDOR->R**O#248>
@[*A)HMDP1 IS NOT REFERENCED BY FSEL.&#249
@ HMDP1]#GEN T/N(HRDP1),IM1,RF4,AB3,BB1DZWAIT(M),INCP,"MIL"->BB FREE 250
B^MORG^[4#>REF BY FSEL(7-6), (7-6)=10 IMPOSSIBLEP#251B
@^HREN##GEN Z/F(HREN1),1(0),2(3),FS8,AB2,MR1#NFSEL(5-4),(3-0)->AAD#252
@ HMEMA]#GEN P/N(HLT1),1(4),GF4,IMCHLSAMPLE INTERRUPTSF#253E
@[*AZHMEN4 IS NOT REFERENCED BY FSEL$#254
@ HMEN4]#GEN S/N(HMEM),LB1,RF4,FFA,MF1EPWAIT(M),INCP,DOR->ALU]CFREE 255
@ HMEN3]#GEN L/N(HMEN4),SF1,IMAL OS(P)R#256
@U**************************#HD E C O D E R#V*************************** #2572
B#ORG ^X'68 $DECODER REFERENCES NEXT 8 INSTRUCTIONS.C[* #258
@EIMMREL GEN Z/F(IMPRE),2(1),FSB,SF1,IM4,LA1,#OP+1->S1,IF(A),0->QS,][* #259  2
IRCFF0,CF3,WR1,WF1,24(S1)GBFSEL(7)J[* #260
@ IMMIX]#GEN Z/F(IMPRE),2(1),FSB,SF1,IM4,LA1,#OP+1->S1,IF(A),0->QS,][* #261  2
IRCFF0,CF3,WR1,WF1,24(S1)GBFSEL(7)J[* #262
@ IMMIB]#GEN Z/F(IMPRE),2(1),FSB,SF1,IM4,LA1,#NP+1>S1,IF(A),0->QS,#[* #263   2
IRCFF0,CF3,WR1,WF1,24(S1)GBFSEL(7)J[* #264
@ IMMNI]#GEN X/N(IMNI),SF1,IM4,LA1,FF0,CF3, HP+1->S1,IF(A)D[* #265
IFCWR1,24(S1),[* #266(S1
@^DE#1##GEN Z/F(DEPRE),2(1),FSB,SF1,IM4,LA1,#OP+1->S1,IF(A),0->QS,][* #267   2
ISCFF0,CF3,WR1,WF1,XF1,AAEFKFSEL(7),0->CINTFA[* #268L(
@^DE#2##GEN Z/F(DEPRE),2(1),FSB,SF1,IM4,LA1,#OP+1->S1,IF(A),0->QS,][* #269   2
ISCFF0,CF3,WR1,WF1,XF1,AAEFKFSEL(7),0->CINTFA[* #270L(
@^DE#3##GEN Z/F(DEPRE),2(1),FSB,SF1,IM4,LA1,#OP+1->S1,IF(A),0->QS,][* #271   2
ISCFF0,CF3,WR1,WF1,XF1,AAEFKFSEL(7),0->CINTFA[* #272L(
@^DE#4##GEN Z/F(DEPRE),2(1),FSB,SF1,IM4,LA1,#OP+1->S1,IF(A),0->QS,][* #273   2
ISCFF0,CF3,WR1,WF1,XF1,AAEFKFSEL(7),0->CINTFA[* #274L(
@_***************************************************************@D********* #27
B^MORG^]16]5REF BY FSEL(5-4), (5-4)=11 IMPOSSIBLE, REG FLD SELECT #276CT
@ HRDP1]#GEN S/N(HFPT),LB1,RF3,FFA,MF1EFSTATUS->DORL#277>DOR
@ HRDP2]#GEN K/N(HFPT),LA1,RF3MAP->DORQ#278
@ HRDP3]#GEN G/N(HFPT),RF3QCR**->DORO#279
@[*AZHFPT IS NOT REFERENCED BY FSEL.$#280
@^HFPT#^GMSK^Z/N(HFPT1),1(7),AB2,IMF,LB3,FFA,#JSTART IO @ X'1ECCFREE 281
IBCMKBFC0WLX'403F->ALU (DTO)F#282
B^MORG^[2#J/T(HSTT6,HSTT2):#283T2)
@ HSTT2]#GEN S/F(SS2),2(1),FS3,SF1,IM8EKFSEL(STEP),IF(P)G#284F(P)
@ HSTT6]#GEN O/N(HSTT7),IM4,24(IH)IFIH->IBR,MILL#285>I
@ HSTT1]#GEN R/T(HSTT6,HSTT2),TF3,GF9FFALUZ=>HSTT2GCFREE 286
@ HSTT5]#GEN F/N(HLT),GF1RAIBR->ILCFREE 287
B^MORG^[8#KREF BY FSEL(8-6)%#288-6)
@^HRDP##GEN )/F(HRDP1),1(0),2(3),FS8,MR1,AB2,]OFSEL(5-4), (3-0)->AAC#289
I^CBB3ZESTATUS->BBM#290
@^HMEM##GEN P/N(HLT1),1(4),GF4,IMCHLSAMPLE INTERRUPTSF#291TE
@^HSTT#^GMSK^X/N(HSTT1),GF2,LB3,FFB,MK01FF, OIH&X'FE00,SAMPLE ALUC#292
IBC16(IH)WP(WAS IT A HALT INST?)B#293
@^HMEN#^GMSK^Z/N(HMEN1),1(3),AB2,IMF,LB3,FFA,#JSTART IO @ X'E,H#294
IBCMKDFC0WLX'203F->ALU (DTI)F#295
@ ABL10]^GMSK^Y/N(ABL20),SF1,GF4,IM6,LB3,RF1,^KOS(ALU),X'80->P,G#296
IFCFFA,MKFF7FSIRESET OVERFLOWI#297
@^HMDP##GEN L/N(HMDP1),SF1,IM9L OF(P)R#298
@ ABL11]^GMSK^Y/N(ABL21),SF1,GF2,IM6,LB3,RF1,^JOS(ALU),X'80->PH#299
IFCFFA,MKFF7FSGSET OVERFLOWK#300
@ ABL30]^GMSK^Y/N(ABL31),SF1,IM6,LB3,RF1,FFA,^KOS(ALU),X'258->PG#301
IBCMKFDA78#302CMKF
@U**************************#HD E C O D E R#V*************************** #3033
B#ORG ^X'80 SDECODER REFERENCES 'HLT'R[* #304LT'
@#HLT^#GEN L/F(HLT8),2(1),FS1LFFSEL(CINTF)F[* #305SEL(
@_***************************************************************@D********* #30
@^HLT2#^GMSK^V/N(HLT3),LB3,RF3,FFA,MKFFC0BDO'77->DORICFREE 307
@^HLT3##GEN 5/N(HLT4),IM2,LB1,FFB,MF1,WR1,BB0, WAIT(IO),DOR&DR->DR^CFREE 308 3
IBC24(DR)8#309C24(
@^HLT4##GEN )/N(HLT5),IM4,LB1,RF3,FFA,MF1,BB2]LIOR->DOR,ALU->IBRACFREE 310EE 3
@^HLT5##GEN W/N(HLT6),GF1,LB1,FFA,MF1,BB0AKDOR->ALU,IBR->IRBCFREE 311
@^HLT6##GEN L/F(HRDP),2(7),FSALDFSEL(8-6)ICFREE 312EL(
@ HSTT7]#GEN O/N(HSTT8),GF1,24(IH)IJIH->ALU,IBR->IRCCFREE 313>IR
@ HSTT8]#GEN L/N(HSTT9),SF1,IM8L IF(P)MCFREE 314
@ HSTT9]#GEN M/N(IWAIT),1(4),GF5KLIBR->I,DECODE,ETCACFREE 315E,ETC
@ HFPT1]#GEN S/N(HMEN),IM2,LB1,FFA,MF1ELWAIT(IO),DOR->ALUACFREE 316
@ HMEN1]#GEN H/N(HMEN2),IM2PCWAIT(IO)JCFREE 317
@ HMEN2]#GEN Y/F(HREN),2(3),FSA,LB1,RF3,FFA,^MFSEL(7-6),IOR->DOR CFREE 318EE 3
ICCMF1,BB27#319MF1
B^EJEC_@##320
@[*ANDIVIDE INSTRUCTION.3#321
@[*_@H#322
@U**************************#HD E C O D E R#V*************************** #3233
B#ORG ^X'90 SDECODER REFERENCES 'JMP'R[* #324MP'
@#JMP^#GEN Y/T(JMP1,SS1M),TF2,SF3,GF5,IMC,^R620=>JMP1,RESET CINTF,* #325
ICCRF4,XF1VRCND(620) IF(MIL), INCP* #326
@_***************************************************************@D********* #32
@^DIV5##GEN )/N(DIV6),GF2,RF3,FF2,CF3,SH1,BB1]I-B->DOR,SAMPLEDCFREE 328
B^MORG^[2#H/T(DIV2,DIV1)!#329V
@^DIV1##GEN )/N(DIV2),FF6,CF3,WR1,SH1,BBF,AAF]B-RF->RFP#330
@^DIV2##GEN Y/T(DIV4,DIV3),TF2,GFA,FF2,CF3,^LDSB=>DIV4,-RF->REF#331
IKCWR1,SH1,BBF,AAE\#332B
B^MORG^[4#FBE CAREFUL:]-/S(DIV13&DIV14,DIV12) SELECTS DSBG#333DSB
@ DIV13]#GEN )/S(SS3M,DIV15),2(8),FSF,TF3,SF2,]LFSEL(15) IF NO QSF#334
IGCGFF,IM8,RF4ROIF(P) IF NO QS, INCPC#335
@^DIV6##GEN )/N(DIV7),FF2,CF1,WR1,SC1,WF1,SH1]MDOR(RT),CARRY-A->A CFREE 336E 3
B#ORG BDIV13+2#KREF BY FSEL(DSB)=#337DSB)
@ DIV14]#GEN )/S(SS3M,DIV15),2(8),FSF,TF2,SF3,]JFSEL(15) IF QS,H#338
I-CGFF,IM8,RF4,FF6,CF3,WR1,SH1,BB0,]LIF(P) IF QS, INCPF#339S
I^CAA0Z -A->AR#340
@^DIV7##GEN )/N(DIV8),GF2,FF9,WR1,SC1,XF2,BBE]LFIRST DIVIDE STEPACFREE 341EE 3
B^MORG^[2#J/S(DIV13,DIV12):#34212)
@ DIV12]#GEN )/T(DIV14,DIV13),TF2,GFA,FF9,WR1,]MDSB=>DIV14,A+RF->AE#343
ICCBBF,AA07#344BBF
@^DIV8#^GMSK^Z/T(DIV9,DIV10),TF3,GFD,LB3,RF2,#PR0(15)=>DIV10,-14->SC]CFREE 345
ICCFFA,MKE7#346FFA
B^MORG^[2#H/T(DIV4,DIV3)!#347V
@^DIV3##GEN K/N(DIV7),RF3,AA1MAB->DORQ#348
@^DIV4##GEN O/N(DIV5),LA2,WR1,AA1IJB(L)->B,0->DLA0H#349B,0->
B^MORG^[2#Z/T(DIV9,DIV10), /T(DIV11,DIV10)V#3501
@ DIV10]#GEN )/T(DIV11,*),TF2,GFC,MR1,LA2,RF5,]FDIVIDE STEPL#351
ISCFF9,WR1,SC1,XF2,SH2,BBF$#352SH2,B
@ DIV11]#GEN 7/S(DIV13,DIV12),2(6),FS2,TF3,GFD, FSEL(DSB) IF R0(15)=0B#353   3
ISCLB1,FFA,MF1,WR1,BB0,AA1FADOR->BQ#354
@^DIV9##GEN L/N(DIV10),SF1,GF2LGSET OVERFLOWK#355SET O
B^EJEC_@##356
@[*AUJUMP AND MARK INSTRUCTION.?#357
@[*_@H#358
@U**************************#HD E C O D E R#V*************************** #3593
B#ORG ^X'A0 TDECODER REFERENCES 'JMRK'Q[* #360RK
@^JMRK##GEN )/T(JMRK1,JMRK5),TF2,SF3,GF5,IMD,]F620=>JMRK1,F[* #361
I^CXF1ZKCND(620) OF(MIL)A[* #362
@_***************************************************************@D********* #36
@ JMRK3]#GEN 2/N(SS2M),SF1,IM4,LB1,RF1,FF9,CF3, IF(ALU),MIL+1->PBCFREE 364EE 3
ICCSH1,BB17#365SH1
B^MORG^[2#J/T(JMRK1,JMRK5):#366K5)
@ JMRK5]#GEN O/N(SS2M),SF1,IM8,RF4IEIF(P),INCPM#367(P)
@ JMRK1]#GEN )/T(JMRK2,JMRK4),TF3,SF2,GFB,IM2,]QMIL15=>JMRK4,P+1->ALU,A#368  3
ICCLA1,CF3VOCND(MIL15=0) OS(MIL)C#369
B^MORG^[2#J/T(JMRK2,JMRK4):#370K4)
@ JMRK4]#GEN P/N(JMRK1),SF1,IMD,RF5HIOF(MIL),INC SCI#371,INC
@ JMRK2]#GEN P/N(JMRK3),IM1,LA1,CF3HKWAIT(M),P+1->ALUG#372+1
B^EJEC_@##373
@[*AVEXECUTE REMOTE INSTRUCTION.:#374
@[*_@H#375
@U**************************#HD E C O D E R#V*************************** #3763
B#ORG ^X'B0 SDECODER REFERENCES 'XEC'R[* #377EC'
@#XEC^#GEN 9/T(XEC1,XEC3),TF2,SF3,GF5,IMC,XF1 620=>XEC1,RESET CINTF,* #378   3
@[*0KCND(620) IF(MIL)A[* #379
@_***************************************************************@D********* #38
@^XEC2##GEN O/N(XEC1),SF1,IMC,RF5IIIF(MIL),INC SCI#381
B^MORG^[2#H/T(XEC1,XEC3)!#382C
@^XEC3##GEN N/N(SS2),SF1,IM8,RF4JEIF(P),INCPM#383IF(P)
@^XEC1##GEN O/T(XEC2,SS2),TF2,GFBIFMIL15=>XEC2L#384L15
B^MORG^[2#S/T(XEC2,SS2), FSEL(STEP)+#385EP
@#SS2^#GEN N/N(SS3),SF1,IM8,RF4JEIF(P),INCPM#386
@ HSTT4]#GEN L/N(HSTT5),IM1,RF4LGWAIT(M),INCPK#387AIT(
@#SS3^#GEN Q/N(IWAIT),1(N),GF5,IM6GODECODE, EN INTS, ETC#CFREE 388
B^EJEC_@##389
@[*A%SINGLE WORD ADDRESSING STORE INSTRUCTIONS.W#390
@[*_@H#391
@EDORTOP GEN X/N(RESET),RF1,LB1,FFA,MF1,BB0 ODOR->P FOR DEBUGGING#CFREE 392E 3
B^MORG^[8#=REF BY FSEL(13-12), 00 NOT POSSIBLE.Q#393LE
@ESTABX1 EQU [*.#394
@#DS1^#GEN J/N(DS2),IM1,AA0NJWAIT(M), A->ALUCCFREE 395
@#DS2^#GEN 4/N(ESTB),SF1,IM6,LB1,FF9,CF3,SH1, OS(ALU),DOR+1->ALU CFREE 396EE 3
I^CBB0;#397
B#ORG CSTABX1+26#3981+2
@^STA1##GEN )/T(SWA50,SS2MI),TF2,SF3,GFB,AB3,]MA->ALU,SET AA,INCSE#399
IGCIM1,RF5,AA0RQMIL15=>OVR(OF),->SWA50A#400
B#ORG ASTA1+28#401
@^STB1##GEN )/T(SWA50,SS2MI),TF2,SF3,GFB,AB3,]MB->ALU,SET AA,INCSE#402
IGCIM1,RF5,AA1RQMIL15=>OVR(OF),->SWA50A#403
B#ORG ASTB1+28#404
@^STX1##GEN )/T(SWA50,SS2MI),TF2,SF3,GFB,AB3,]MX->ALU,SET AA,INCSE#405
IGCIM1,RF5,AA2RQMIL15=>OVR(OF),->SWA50A#406
B^MORG^[8#=REF BY FSEL(13-12), 00 NOT POSSIBLE.Q#407LE
@ESTABX2 EQU [*.#408
@U**************************#HD E C O D E R#V*************************** #4094
B#ORG ^X'C0 TDECODER REFERENCES 'SHFT'Q[* #410FT
@^SHFT#^GMSK^)/N(SHFT1),GF2,LB2,RF7,FFA,MKFFE0]RI(4-0)->DOR,INCP,SAMPL* #411 4
@_***************************************************************@D********* #41
B#ORG CSTABX2+26#4132+2
@^STA2##GEN L/N(SS2MI),AB3,AA0LHA->ALU,SET AAJ#414->AL
B#ORG ASTA2+28#415
@^STB2##GEN L/N(SS2MI),AB3,AA1LHB->ALU,SET AAJ#416->AL
B#ORG ASTB2+28#417
@^STX2##GEN L/N(SS2MI),AB3,AA2LHX->ALU,SET AAJ#418->AL
B^EJEC_@##419
@[*AMINTERRUPT SERVICE.4#420
@[*A;THE STATES WHICH ENABLE THE DECODER ALSO ENABLE INTERRUPTS.]]IFB#421    4
@[*A_A SINGLE WORD INSTRUCTION WAS AT THE INTERRUPT ADDRESS, THE NEX@[TA#422 4
@[*A"WORD IS IN THE INSTRUCTION BUFFER BUT SHOULD NOT BE PROCESSED.C#423
@[*A"PROCESSING OF THIS WORD IS INHIBITED BY TRANSFERRING TO INTBASC#424
@[*AOIF CINTF=1 AND IM=6.]:IF CINTF=0 AND NO INTERRUPT IS PENDING, THE #425  4
@[*ARINSTRUCTION IS DECODED.]&IF AN INTERRUPT IS PENDING AND CINTF=0B#426    4
@[*A;OR IM NOT =6, CONTROL GOES TO INTBAS+7, WHERE THE INTERRUPTF#427
@[*A<MICROPROGRAM IN I/OCS IS INITIATED.]RIF THE INTERRUPT WASN'TE#428
@[*A.REALLY AN INTERRUPT, BUT INSTEAD WAS A DMA REQUEST, INTERRUPTD#429
@[*A6PROCESSING MUST BE ABORTED AND THE PIPELINE RESTARTED.] IF ITD#430
@[*A_REALLY IS AN INTERRUPT, CONTROL GOES TO INTBAS+1 WHERE INTERRUP@[TA#431 4
@[*ARSERVICING IS COMPLETED.\#432
@[*_@H#433
@FILLOP1 GMSK^V/N(ILLOP2),SF1,IM4,LB3,RF3,BNILLAD->DOR, IF(ALU)D#434
IHC15(-1-ILLAD)2#435-ILL
@EILLOP2 GEN 4/N(INT4),SF1,IM4,LB1,FF9,CF3,WR1, DOR+1->RF, IF(ALU)E#436
IGCSH1,BB0,AAF3#437BB0,A
@^INT2##GEN X/N(INT3),SF1,IM4,LB1,FFA,MF1, JIF(ALU),IOR->RFCCFREE 438
IGCWR1,BB2,AAF3#439BB2,A
@^INT3##GEN W/N(INT4),SF1,IM4,CF3,WR1,AAFAKIF(ALU),RF+1->RFBCFREE 440
@^INT4##GEN VGF5,IM7,FFA,MF1,WR1,BBF,AAEBIIBR->I,DECODE,DCFREE 441
@[*0J1->CINTF,S2->S1H#442
B^MORG^]16]2INTERRUPT HARDWARE USES INTBAS, INTBAS+1, INTBAS+7C#443+7
@EINTBAS EQU [*.#444
B^MORG^[2#J/T(SWA50,SS2MI):#445MI)
@ SS2MI]#GEN P/N(SS3MI),SF1,IM8,RF4HO(AA)->ALU,IF(P),INCPC#446P),I
B#ORG *INTBAS+1 INTERRUPT SECOND TRY COMES HEREQ#447ER
@^INT1##GEN S/N(INT2),IM2,RF1,FFF,AAEEKWAIT(IO),RE-1->PG#448
@ SWA50]#GEN V/F(STA1-2),2(6),FSF,SF1,IMEBNFSEL(13-12),OS(MIL)D#449)
@ ABORT]^GMSK^U/N(ABORT1),IM4,LB2,FFA,MK0CAI->IBRQ#450
@FABORT1 GMSK^T/N(SS2MI),IM4,LB2,FFA,MK0DAI->IBRLCFREE 451
@[*A5HLT1 AND HLT7 ARE REFERENCED WITH INTERRUPTS ENABLED.L#452
@^HLT1#^GMSK^Y/N(HLT2),1(3),AB2,IM4,LB3,FFA,^LSTART I/O AT X'E,F#453
IBCMKEFC0WFX'103F->ALUL#454
@^HLT7##GEN Z/N(HLT1),LB1,FFA,MF1,WR1,24(IH)#BDOR->IHP#455
B#ORG $INTBAS+7 INTERRUPT FIRST TRY COMES HERER#456ERE
@ IWAIT]#GEN Y2(ABORT),1(7),MT1,GF4,MR1,IME,^MENABLE INTERRUPTS,E#457
IOCLA1,RF1,FFF,WR1,AAE )DISABLE DEC, START IO, P-1->P,REA#458 P-1-
@U**************************#HD E C O D E R#V*************************** #4594
B#ORG ^X'D8 &DECODER REFERENCES NEXT 8 INSTRUCTIONSD[* #460O
@ REG10]#GEN +/F(REG20),2(7),FS4,SF1,IM8,RF7,SH1Q[* #461
@ REG12]#GEN +/F(REG20),2(7),FS4,SF1,IM8,RF7,AA1Q[* #462
@ REG14]#GEN +/F(REG20),2(7),FS4,SF1,IM8,RF7,AA2Q[* #463
@ REG16]#GEN ,/F(REG20),2(7),FS4,SF1,IM8,RF7,FFE,BB2,AA1,MF1E[* #464   *
@ REG11]#GEN Y/F(REG20),2(7),FS4,SF1,IM8,RF7U[* #465
@ REG13]#GEN %/F(REG20),2(7),FS4,SF1,IM8,RF7,FFE,BB1,MF1I[* #466
@ REG15]#GEN %/F(REG20),2(7),FS4,SF1,IM8,RF7,FFE,BB2,MF1I[* #467
@ REG17]#GEN X/N(REG30),RF7,FFE,BB2,AA1,MF1V[* #468
@_***************************************************************@D********* #46
B^EJEC_@##470
@[*A"JUMP TO SUBROUTINE, SOME OF BIT TEST, SOME OF SKIP IF REGISTERC#471
@[*A&EQUAL, SOME OF TRANSFER SWITCHES TO A.)#472
@[*_@H#473
B^MORG^]16]%JSR40,JSR41 REF BY CND FSEL, FAIL TO JSR30K#4743
@ JSR40]#GEN ,/N(SS3M),SF1,IM8,LB1,FFA,MF1,WR1, IF(P),DOR->XK#475
ICCBB0,AA27#476BB0
@ JSR41]#GEN ,/N(SS3M),SF1,IM8,LB1,FFA,MF1,WR1, IF(P),DOR->BK#477
ICCBB0,AA17#478BB0
B^MORG^[2#ZFAIL OF CND FSEL TO JSR40,JSR41V#479R
@ JSR30]#GEN P/N(JSR20),SF1,IMC,RF5HHIF(MIL),INCSCJ#480),INC
@U**************************#HD E C O D E R#V*************************** #4814
B#ORG ^X'E3 TDECODER REFERENCES 'BT10'Q[* #48210
@^BT10##GEN T/F(BT20),2(F),FS4,RF4,XF1DJFSEL(3-0),INCP,B[* #483,
@[*0FRESET CINTFF[* #484
@_***************************************************************@D********* #48
B^MORG^[2#H/T(BT51,BT52)!#4865
@^BT52##GEN K/N(SS3M),SF1,IM8M IF(P)R#487
@^BT51##GEN O/N(BT50),SF1,IMC,RF5IHIF(MIL),INCSCJ#488I
@ JSR20]#GEN 5/S(JSR40,JSR30),2(1),FS5,TF3,GFB, MIL=>JSR30,FSEL(1),^CFREE 4894
IWCLB1,RF1,FF9,CF3,XF2,SH1,BB1BOMIL+1->P,JUMP SIGNALC#490,JU
@U**************************#HD E C O D E R#V*************************** #4914
B#ORG ^X'E7 UDECODER REFERENCES 'JSR10'P[* #4921
@ JSR10]#GEN 3/N(JSR20),SF1,IMC,LA1,RF3,CF3,XF1 IF(MIL),P+1->DOR, [* #493    4
@[*0FRESET CINTFF[* #494
@_***************************************************************@D********* #49
@^TSA1##GEN G/N(TSA2),IM2QCWAIT(IO)JCFREE 496
@^TSA2##GEN Y/N(SS3MI),SF1,IM8,LB1,RF4,FFA,^LIF(P),INCP,IOR->AACFREE 497
IKCMF1,WR1,BB2,AA0\#498B
@ SRE81]#GEN S/N(SS2M),SF1,IM8,RF4,XF2EKIF(P),INCP,J-SIGBCFREE 499
@U**************************#HD E C O D E R#V*************************** #5005
B#ORG ^X'EB UDECODER REFERENCES 'SRE10'P[* #5011
@ SRE10]#GEN Z/F(SRE20),2(3),FS4,IM1,LA1,RF3,#NF.SEL(1-0),WAIT(M),#[* #502   5
ICCCF3,XF1VLP+1->DOR,0->CINTF [* #503
@_***************************************************************@D********* #50
B^EJEC_@##505
@[*ATINDEXED JUMP INSTRUCTION.!#506
@[*A/NOTE THAT THIS VERSION OF IJMP DIFFERS FROM VARIAN'S VERSIONE#507
@[*A.SINCE BIT 2 MAY BE USED TO INDICATE PRE- OR POST-INDEXING, AS[#MAY #508 5
@[*A_BE DONE USING BIT 7 WITH OTHER EXTENDED ADDRESSING INSTRUCTIONS@[.A#509 5
@[*A%ALSO, BITS 4&3 HAVE THE FOLLOWING MEANING:W#510
@[*ED00 - JUMP9#511P
@[*EC10 - XEC'#512
@[*EE01 - JSR,X8#513X
@[*EE11 - JSR,B8#514B
B^MORG^[2#IREF BY FSEL(2)?#515
@ IJPRE]#GEN U/F(IJRL),2(3),FS4,LB1,RF3,CEFSEL(1-0),M#516),
IKCFFA,MF1,WF1,BB1NMMIL->DOR,MIL15->QSE#517
@EIJPOST GEN )/S(IJRL,IJIND),2(3),FS4,TF3,SF3,]QC.FSEL(1-0) (MIL15=0),A#518  5
IWCGFB,IM5,LB1,RF3,FFA,MF1,BB1BOC.OF(ALU) (MIL15=1),C#519) (
@[*0CMIL->DORO#520
@U**************************#HD E C O D E R#V*************************** #5215
B#ORG ^X'EF TDECODER REFERENCES 'IJMP'Q[* #522MP
@^IJMP##GEN Z/F(IJPRE),2(1),FS6,IM1,FF0,WF1,#IFSEL(2),0->QS,C[* #523   *
ICCXF1,SH1VC0->CINTFI[* #524
@_***************************************************************@D********* #52
@[*A"IJRL,IJIX,IJIB,IJNI,IJIND1 ALL DO CND FSEL (6,4,3) BUT BIT 6 =[]1. #526 5
B^MORG^]16^OREF BY CND FSEL(1-0)=#5271-0)
@^IJRL##GEN 7/S(IJXIT,IJIND),2(B),FS7,TF3,SF1, QS=>IJIND,P+DOR->DOR,B#528    5
I)CGFF,IM4,LA1,LB1,RF3,FF9,XF2,BB0#OIF(A),EN JUMP SIGNALC#529P SIG
@^IJIX##GEN 7/S(IJXIT,IJIND),2(B),FS7,TF3,SF1, QS=>IJIND,X+DOR->DOR,B#530    5
I)CGFF,IM4,LB1,RF3,FF9,XF2,BB0,AA2#OIF(A),EN JUMP SIGNALC#531P SIG
@^IJIB##GEN 6/S(IJXIT,IJIND),2(B),FS7,TF3,SF1, QS=>IJIND,B+DOR->DORC#532
I)CGFF,IM4,LB1,RF3,FF9,XF2,BB0,AA1#OIF(A),EN JUMP SIGNALC#533P SIG
@^IJNI##GEN 5/S(IJXIT,IJIND),2(B),FS7,TF3,SF1, QS=>IJIND,DOR->ALU,D#534
IWCGFF,IM4,LB1,FFA,MF1,XF2,BB0BOIF(A),EN JUMP SIGNALC#535 JU
B^MORG^[2#L/T(IJPOST,IJIND1)(#536D1)
@EIJIND1 GEN 8/S(IJXIT,IJIND),2(B),FS7,TF3,SF1, MIL15=>IJIND,MIL->DOR,A#537  5
I-CGFB,IM4,LB1,RF3,FFA,MF1,WF1,XF2,]PMIL15->QS,J-SIG,IF(A)B#538G,I
I^CBB1;#539
Record 187 is not column binary