-
Notifications
You must be signed in to change notification settings - Fork 1
/
TESTINS1.MLC
1800 lines (1797 loc) · 86.8 KB
/
TESTINS1.MLC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
*********************************************************************
* Copyright 2005 Automated Software Tools Corporation *
* This source code is part of z390 assembler/emulator package *
* The z390 package is distributed under GNU general public license *
* Author - Don Higgins *
* Date - 09/30/05 *
*********************************************************************
* MAINTENANCE
*********************************************************************
* 10/03/05 RPI 3 TEST RS/RX WITH COMMA FOR OMITTED INDEX REG
* 11/08/05 RPI 73 CHANGE PKA TO SUPPORT LENGTH BYTE FROM S2
* 01/09/06 RPI 161 ALLOW D(,B) IN RXY INSTR. NOT FIXED BY RPI 3
* 02/02/06 RPI 185 ADD NEW Z9 OPCODES (AFI, AGFI, ETC.)
* 02/10/06 RPI 199 ADD EXTENDED BRCL BRANCH OPCODES, FIX JXLEG
* 02/18/06 RPI 206 CORRECT RRF1, RRF2, RRF3 TYPES
* 04/12/06 RPI 277 CORRECT TESTS FOR 13 OPS WITH NO PARMS (SEE NOPARMS)
* 04/25/06 RPI 296 CORRECT CSCH, RSCH, SCHM, AND XSCH (NO PARMS)
* 04/28/06 RPI 298 CORRECT MY AND MYH OPCODES
* 09/18/06 RPI 454 ADD RE2 RRE FORMAT FOR TROO,TROT,TRTO,TRTT R,R,M
* 12/05/06 RPI 407 ADD DFP OPCODES
* 12/19/06 RPI 406 CORRECT RRF2 TYPE FOR CGXTR, CGDTR, IEDTR, IEXTR
* 12/20/06 RPI 406 ADD LFAS, SRNMT, SFASR INSTR.
* 12/27/06 RPI 527 ADD CPSDR, LCDFR, LDGR, LGDR, LNDFR, LPDFR
* 02/28/08 RPI 812 ADD ASSIST INSTRUCTIONS
* RXAS - XDECO, XDECI, XHEXI, XHEXO R1,XBD2 CVT TO/FROM DEC/HEX
* RXSS - XDUMP DEFAULT AREA IF NO OPERANDS
* RXSS XDUMP S1,L2 DUMP XBD1(BD2) RECORD AREA
* RXSS XLIMD S1,L2 SET XDUMP DEFAULT RECORD AREA XBD1(BD2)
* RXSS XGET, XPUT, XREAD, XPNCH, XPRNT XBD1(BD2) FROM/TO DDNAME=OP
* 03/02/08 RPI 817 ADD Z10 OPCODES CRT, CGRT, CIT, CGIT
* 03/03/08 RPI 817 ADD Z10 OPCODES COMP/BRANCH EC64 - ECFF RIE/RRS
* 03/08/08 RPI 817 ADD Z10 OPCODES 59 FROM B9A2-EC57
* 03/19/08 RPI 819 CLEAR R3 TO REMOVE F4'S BEFORE USING AS TEST BASE
* 04/22/08 RPI 833 ADD STRING QUOTES FOR HLASM COMPATIBILITY
* 03/09/09 RPI 1013 ADD PFPO, ECTG, AND CSST PER POP V7 SPECS.
* 08/06/10 RPI 1125 ADD POPCNT documented in SHARE Pres. 08/04/10
* 10/09/10 RPI 1125 ADD LEDBR?, LDXBR?, LEXBR?
* 10/20/10 RPI 1125 ADD FIEBR?, FIDBR?, FIXBR?, SRNMB
* 11/24/10 RPI 1125 B39C-B3A2 CLFEBR - CXLGBR
* 11/28/10 RPI 1125 ADD B3A4-B3AE CEGBRA, CGEBRA, CLGEBR
* 12/02/10 RPI 1125 ADD B3E1-BEF9 CGDTRA-CXGTRA
* 12/03/10 RPI 1125 ADD B928-B92D PCKMO KMOTR
* 12/04/10 RPI 1125 ADD B941-B95B CFDTR - CXLFTR, FIX MDTRA DFP/BFP RND
* 12/06/10 RPI 1125 ADD B9AE-B9CB RRBM-SLHHHR
* 12/08/10 RPI 1125 ADD B9CD-B9DF CHHR-CLHHLR
* 12/09/10 RPI 1125 ADD B9E2-B9FB LOCGR-SLRK
* 12/09/10 RPI 1125 ADD C84-C85 LPD-LPDG
* 12/11/10 RPI 1125 ADD CC6-CCF BRCTH - CLIH
* 12/18/10 RPI 1125 ADD E3C0-E3CF LBH - CLHF
* 12/19/10 RPI 1125 ADD EBDC-EBFA SRAK - LAAL
* 12/21/10 RPI 1125 ADD EC51-ECDB RISBLG - ALGSIK
* 01/30/11 RPI 1152 CORRECT ECTG/CSST C81/C82 OPCODE
* 03/16/11 RPI 1139 CORRECT SUBSTRING TEST BEYOND END OF STRING
* 05/17/11 RPI 1164 ADD Z196 EXTENDED OPS EC51-EC5D, CORRECT Z SUPPORT
********************************************************************
TITLE 'TESTINS1 - VERIFY ASSEMBLY OF EACH INSTRUCTION'
* THIS PROGRAM GENERATES ASSEMBLED INSTRUCTIONS AND
* COMAPRES THE GENERATED CODE TO EXPECTED CODE FOR
* EACH INSTRUCTION TYPE AND TEST OPERANDS SPECIFIED.
*
* RT1 MACRO USED TO AUTOMATE CODE GENERATED FOR MAINLINE
* AND TEST PSW CC ROUTINES. THE MACROS DEFINE NEW BASE REG
* FOR EACH TEST SO THEY CAN EXTEND FOR ANY LENGTH.
*
* SEE TESTINS2 FOR INSTRUCTION EXECUTION UNIT TESTS
*********************************************************************
TESTINS1 RT1 MAIN
* OPERAND CONSTANTS
R1 EQU 1
R2 EQU 2
R3 EQU 3
X4 EQU 4
M3 EQU 3 RPI 817
M4 EQU 4
M5 EQU 5
I2 EQU -1 RPI 817
I3 EQU X'33' RPI 817
I4 EQU X'44' RPI 817
I5 EQU X'55' RPI 817
PL1 EQU 6+1
PL2 EQU 7+1
LL EQU 256
S1 EQU TESTINS1+9 D001
S2 EQU TESTINS1+10 D002
S4 EQU TESTINS1+12 D004
II EQU X'FF'
R11 EQU 11
R12 EQU 12
*
* ZOSOP INLINE MACRO TO GENERATE Z/ARCHITECTURE INSTRUCTION
* REGRESSION TESTS FOR THE ASSEMBLER.
*
MACRO
ZOSOP &HEXOP,&DESC,&OP,&TYPE,&NOP=F
GBLA &N
&N SETA &N+1
&OP1 SETC '&OP'(2,K'&OP-2)
JAS R11,VER&N
USING *,R11
.* 4 BYTE TYPES
AIF ('&TYPE'(2,4) EQ 'RIE2').RIE2 CIT RPI 817
AIF ('&TYPE'(2,4) EQ 'RIE3').RIE3 CITE RPI 817
AIF ('&TYPE'(2,4) EQ 'RIE4').RIE4 CGIJ RPI 817
AIF ('&TYPE'(2,4) EQ 'RIE5').RIE5 CGIJE RPI 817
AIF ('&TYPE'(2,4) EQ 'RIE6').RIE6 CGRB RPI 817
AIF ('&TYPE'(2,4) EQ 'RIE7').RIE7 CGRBE RPI 817
AIF ('&TYPE'(2,4) EQ 'RIE8').RIE8 RNSBG RPI 817
AIF ('&TYPE'(2,4) EQ 'RIE9').RIE9 AHIK RPI 1125
AIF ('&TYPE'(2,4) EQ 'RRF1').RRF1
AIF ('&TYPE'(2,4) EQ 'RRF2').RRF2
AIF ('&TYPE'(2,4) EQ 'RRF3').RRF3
AIF ('&TYPE'(2,4) EQ 'RRF4').RRF4 CSDTR DFP RPI 407
AIF ('&TYPE'(2,4) EQ 'RRF5').RRF5 CRT RPI 817
AIF ('&TYPE'(2,4) EQ 'RRF6').RRF6 CRTE RPI 817
AIF ('&TYPE'(2,4) EQ 'RRF7').RRF7 FIEBR? RPI 1125
AIF ('&TYPE'(2,4) EQ 'RRR2').RRR2 MDTRA RPI 1125
AIF ('&TYPE'(2,4) EQ 'RRS1').RRS1 CGRB RPI 817
AIF ('&TYPE'(2,4) EQ 'RRS2').RRS2 CGRBE RPI 817
AIF ('&TYPE'(2,4) EQ 'RRS3').RRS3 CGIB RPI 817
AIF ('&TYPE'(2,4) EQ 'RRS4').RRS4 CGIBE RPI 817
AIF ('&TYPE'(2,4) EQ 'RSY2').RSY2 STOCG RPI 1125
AIF ('&TYPE'(2,4) EQ 'RXAS').RX ASSIST RPI 812
AIF ('&TYPE'(2,4) EQ 'RXSS').RXSS ASSIST RPI 812
AIF ('&TYPE'(2,4) EQ 'SSF2').SSF2 LPD/LPDG RPI 1125
.* 3 BYTE TYPES
AIF ('&TYPE'(2,3) EQ 'BCX').BCX
AIF ('&TYPE'(2,3) EQ 'BRC').BRC
AIF ('&TYPE'(2,3) EQ 'BRX').BRX
AIF ('&TYPE'(2,3) EQ 'RIE').RIE
AIF ('&TYPE'(2,3) EQ 'RIL').RIL
AIF ('&TYPE'(2,3) EQ 'RR1').RR1 spm rr r2=0
AIF ('&TYPE'(2,3) EQ 'RR2').RR2 ipm rre r2=0
AIF ('&TYPE'(2,3) EQ 'RRE').RRE
AIF ('&TYPE'(2,3) EQ 'RE2').RE2
AIF ('&TYPE'(2,3) EQ 'RE3').RE3 RPI 1125 LEDBR?
AIF ('&TYPE'(2,3) EQ 'RE4').RE4 RPI 1125 PCKMO
AIF ('&TYPE'(2,3) EQ 'RS2').RS2 shifts 88-8f r3=0
AIF ('&TYPE'(2,3) EQ 'RSI').RSI
AIF ('&TYPE'(2,3) EQ 'RSL').RSL
AIF ('&TYPE'(2,3) EQ 'RSY').RSY
AIF ('&TYPE'(2,3) EQ 'RXE').RXE
AIF ('&TYPE'(2,3) EQ 'RXF').RXF
AIF ('&TYPE'(2,3) EQ 'RXY').RXY
AIF ('&TYPE'(2,3) EQ 'SIL').SIL
AIF ('&TYPE'(2,3) EQ 'SIY').SIY
AIF ('&TYPE'(2,3) EQ 'SS2').SS2
AIF ('&TYPE'(2,3) EQ 'SS3').SS3
AIF ('&TYPE'(2,3) EQ 'SS4').SS4
AIF ('&TYPE'(2,3) EQ 'SS5').SS5
AIF ('&TYPE'(2,3) EQ 'SS6').SS6
AIF ('&TYPE'(2,3) EQ 'SSE').SSE
AIF ('&TYPE'(2,3) EQ 'SSF').SSF
AIF ('&TYPE'(2,3) EQ 'BLX').BLX
AIF ('&TYPE'(2,3) EQ 'RRR').RRR
.* 2 BYTE TYPES
AIF ('&TYPE'(2,2) EQ 'DM').DM
AIF ('&TYPE'(2,2) EQ 'RI').RI
AIF ('&TYPE'(2,2) EQ 'RR').RR
AIF ('&TYPE'(2,2) EQ 'RS').RS
AIF ('&TYPE'(2,2) EQ 'RX').RX
AIF ('&TYPE'(2,2) EQ 'SI').SI
AIF ('&TYPE'(2,2) EQ 'SS').SS
.* 1 BYTE TYPES
AIF ('&TYPE'(2,1) EQ 'E').E
AIF ('&TYPE'(2,1) EQ 'I').I
AIF ('&TYPE'(2,1) EQ 'S').S
MNOTE 8,'UNDEFINED TYPE = &TYPE'
MEXIT
.VER ANOP
HEX&N DC X'&CODE'
NUM&N DC P'&N'
VER&N RT1 CCE,INS&N,HEX&N
MEXIT
.BCX ANOP
INS&N &OP1 S2(X4)
&CODE SETC '&HEXOP'(2,3).'4D002'
AGO .VER
.BRC ANOP
INS&N &OP1 *-2
&CODE SETC '&HEXOP'(2,2).'&HEXOP'(5,1).'&HEXOP'(4,1).'FFFF'
AGO .VER
.BRX ANOP
INS&N &OP1 R1
&CODE SETC '&HEXOP'(2,3).'1'
AGO .VER
.DM ANOP
INS&N &OP1
&CODE SETC '&HEXOP'(2,2).'000000'
AGO .VER
.E ANOP
INS&N &OP1 , NOP
&CODE SETC '&HEXOP'(2,4)
AGO .VER
.I ANOP
INS&N &OP1 II
&CODE SETC '&HEXOP'(2,2).'FF'
AGO .VER
.RI ANOP
INS&N &OP1 R1,*-2
&CODE SETC '&HEXOP'(2,2).'1'.'&HEXOP'(4,1).'FFFF'
AGO .VER
.RIE ANOP
INS&N &OP1 R1,R3,*-2
&CODE SETC '&HEXOP'(2,2).'13FFFF00'.'&HEXOP'(4,2)
AGO .VER
.RIE2 ANOP RPI 817 CIT,CGIT
INS&N &OP1 R1,I2,M3
&CODE SETC '&HEXOP'(2,2).'10FFFF30'.'&HEXOP'(4,2)
AGO .VER
.RIE3 ANOP RPI 817 CITE,CGITE
INS&N &OP1 R1,I2
&CODE SETC '&HEXOP'(2,2).'10FFFF'.'&HEXOP'(6,1).'0'.'&HEXOP'(4,2)
AGO .VER
.RIE4 ANOP RPI 817 CGIJ OO13FFFFFFOO
INS&N &OP1 R1,I2,M3,*-2
&CODE SETC '&HEXOP'(2,2).'13FFFFFF'.'&HEXOP'(4,2)
AGO .VER
.RIE5 ANOP RPI 817 CGIJE OO13FFFFFFOO
INS&N &OP1 R1,I2,*-2
&CODE SETC '&HEXOP'(2,2).'1'.'&HEXOP'(6,1).'FFFFFF'.'&HEXOP'(4,2)
AGO .VER
.RIE6 ANOP RPI 817 CGIJ OO13FFFFFFOO
INS&N &OP1 R1,R2,M3,*-2
&CODE SETC '&HEXOP'(2,2).'12FFFF30'.'&HEXOP'(4,2)
AGO .VER
.RIE7 ANOP RPI 817 CGIJE OO13FFFFFFOO
INS&N &OP1 R1,R2,*-2
&CODE SETC '&HEXOP'(2,2).'12FFFF'.'&HEXOP'(6,1).'0'.'&HEXOP'(4,2)
AGO .VER
.RIE8 ANOP RPI 817 RNSBG OO12334455OO
AIF (K'&HEXOP LT 6).RIE8_NOT$
AIF ('&HEXOP'(6,1) NE '$').RIE8_NOT$
&TR3 SETA D2A('&HEXOP'(7,2))
&TR4 SETA D2A('&HEXOP'(9,2))
AIF ('&OP1'(1,1) NE 'L').RIE8_SKIPZ
&TR4 SETA &TR4+X'80'
.RIE8_SKIPZ ANOP
&TR5 SETA D2A('&HEXOP'(11,2))
&XR3 SETC A2X(&TR3)
&XR4 SETC A2X(&TR4)
&XR5 SETC A2X(&TR5)
INS&N &OP1 R1,R2
&CODE SETC '&HEXOP'(2,2).'12'.'&XR3'(7,2).'&XR4'(7,2).'&XR5'(7,2).'X
&HEXOP'(4,2)
AGO .VER
.RIE8_NOT$ ANOP
INS&N &OP1 R1,R2,I3,I4,I5
AIF ('&OP1'(K'&OP1,1) EQ 'T').RIE8T RPI 1139 RPI 1164
AIF ('&OP1'(K'&OP1,1) EQ 'Z').RIE8Z RPI 1139 RPI 1164
&CODE SETC '&HEXOP'(2,2).'12334455'.'&HEXOP'(4,2)
AGO .VER
.RIE8T ANOP
&CODE SETC '&HEXOP'(2,2).'12B34455'.'&HEXOP'(4,2) I3 TEST BIT ON
AGO .VER
.RIE8Z ANOP
&CODE SETC '&HEXOP'(2,2).'1233C455'.'&HEXOP'(4,2) I4 ZERO BIT ON
AGO .VER
.RIE9 ANOP RPI 1125 AHIK/AGHIK oo13iiii00oo
INS&N &OP1 R1,R3,I2
&CODE SETC '&HEXOP'(2,2).'13FFFF00'.'&HEXOP'(4,2)
AGO .VER
.RIL ANOP
INS&N &OP1 M5,*-2
&CODE SETC '&HEXOP'(2,2).'5'.'&HEXOP'(4,1).'FFFFFFFF'
AGO .VER
.RR ANOP
INS&N &OP1 R1,R2
&CODE SETC '&HEXOP'(2,2).'12'
AGO .VER
.RR1 ANOP
INS&N &OP1 R1
&CODE SETC '&HEXOP'(2,2).'10'
AGO .VER
.RRE ANOP
AIF ('&NOP' EQ 'T').RRENOP
INS&N &OP1 R1,R2
&CODE SETC '&HEXOP'(2,4).'0012'
AGO .VER
.RRENOP ANOP
INS&N &OP1 , NOP
&CODE SETC '&HEXOP'(2,4).'0000'
AGO .VER
.RE2 ANOP TROO,TROT,TRTO,TRTT RPI 454
INS&N &OP1 R1,R2,M4
&CODE SETC '&HEXOP'(2,4).'4012'
AGO .VER
.RE3 ANOP
&OP1B SETC '&OP1'(1,K'&OP1-1)
INS&N &OP1B R1,R2
&CODE SETC '&HEXOP'(2,4).'0012'
HEX&N DC X'&CODE'
&OP1A SETC '&OP1'(1,K'&OP1-1).'A'
INSA&N &OP1A R1,M3,R2,M4
&CODE SETC '&HEXOP'(2,4).'3412'
HEXA&N DC X'&CODE'
VER&N RT1 CCE,INS&N,HEX&N
L R1,=A(INSA&N)
USING INSA&N,R1
RT1 CCE,INSA&N,HEXA&N
MEXIT
.RE4 ANOP PCKMO RPI 1125
INS&N &OP1
&CODE SETC '&HEXOP'(2,4).'0000'
AGO .VER
VERA&N DS 0H
.RR2 ANOP
INS&N &OP1 R1
&CODE SETC '&HEXOP'(2,4).'0010'
AGO .VER
.RRF1 ANOP MA?R, MS?R, MY?T B3OO WITH OO < 40
INS&N &OP1 R1,R3,R2
&CODE SETC '&HEXOP'(2,4).'1032' RPI 206
AGO .VER
.RRF2 ANOP CG?R, CF?R. FI?R, IDTE, TB?R
INS&N &OP1 R1,R3,R2
&CODE SETC '&HEXOP'(2,4).'3012' RPI 206
AGO .VER
.RRF3 ANOP
INS&N &OP1 R1,R3,R2,M4
&CODE SETC '&HEXOP'(2,4).'3412'
AGO .VER
.RRF4 ANOP CG?R, CF?R. FI?R, IDTE, TB?R
INS&N &OP1 R1,R2,m4
&CODE SETC '&HEXOP'(2,4).'0412' RPI 206
AGO .VER
.RRF5 ANOP CRT,CGRT RPI 817
INS&N &OP1 R1,R2,M3
&CODE SETC '&HEXOP'(2,4).'3012'
AGO .VER
.RRF6 ANOP CRTE,CGRTE RPI 817
INS&N &OP1 R1,R2
&CODE SETC '&HEXOP'(2,5).'012'
AGO .VER
.RRF7 ANOP FIEBR?, FIDBR?, FIXBR? RPI 1125
&OP1B SETC '&OP1'(1,K'&OP1-1)
INS&N &OP1B R1,M3,R2
&CODE SETC '&HEXOP'(2,4).'3012'
HEX&N DC X'&CODE'
&OP1A SETC '&OP1'(1,K'&OP1-1).'A'
INSA&N &OP1A R1,M3,R2,M4
&CODE SETC '&HEXOP'(2,4).'3412'
HEXA&N DC X'&CODE'
VER&N RT1 CCE,INS&N,HEX&N
L R1,=A(INSA&N)
USING INSA&N,R1
RT1 CCE,INSA&N,HEXA&N
MEXIT
.RRS1 ANOP RPI 817 CGRB OO12BDDD30OO
INS&N &OP1 R1,R2,M3,S4
&CODE SETC '&HEXOP'(2,2).'12D00430'.'&HEXOP'(4,2)
AGO .VER
.RRS2 ANOP RPI 817 CGRBE OO12BDDD30OO
INS&N &OP1 R1,R2,S4
&CODE SETC '&HEXOP'(2,2).'12D004'.'&HEXOP'(6,1).'0'.'&HEXOP'(4,2)
AGO .VER
.RRS3 ANOP RPI 817 CGIB OO13444422OO
INS&N &OP1 R1,I2,M3,S4
&CODE SETC '&HEXOP'(2,2).'13D004FF'.'&HEXOP'(4,2)
AGO .VER
.RRS4 ANOP RPI 817 CGIBE OO13444422OO
INS&N &OP1 R1,I2,S4
&CODE SETC '&HEXOP'(2,2).'1'.'&HEXOP'(6,1).'D004FF'.'&HEXOP'(4,2)
AGO .VER
.RS2 ANOP
INS&N &OP1 R1,S2
&CODE SETC '&HEXOP'(2,2).'10D002'
AGO .VER
.RSI ANOP
INS&N &OP1 R1,R2,*-2
&CODE SETC '&HEXOP'(2,2).'12FFFF'
AGO .VER
.RS ANOP
INS&N &OP1 R1,R3,S2
&CODE SETC '&HEXOP'(2,2).'13D002'
AGO .VER
.RSL ANOP
INS&N &OP1 S2(PL2)
&CODE SETC '&HEXOP'(2,2).'70D00200'.'&HEXOP'(4,2)
AGO .VER
.RSY ANOP
INS&N &OP1 R1,R3,S2
&CODE SETC '&HEXOP'(2,2).'13D00200'.'&HEXOP'(4,2)
AGO .VER
.RSY2 ANOP
INS&N &OP1 R1,S2,M3
&CODE SETC '&HEXOP'(2,2).'13D00200'.'&HEXOP'(4,2)
AGO .VER
.RX ANOP
INS&N &OP1 R1,S2(X4)
&CODE SETC '&HEXOP'(2,2).'14D002'
AGO .VER
.RXE ANOP
INS&N &OP1 R1,S2(X4)
&CODE SETC '&HEXOP'(2,2).'14D00200'.'&HEXOP'(4,2)
AGO .VER
.RXF ANOP
INS&N &OP1 R1,R3,S2(X4)
&CODE SETC '&HEXOP'(2,2).'34D00210'.'&HEXOP'(4,2)
AGO .VER
.RXSS ANOP
INS&N &OP1 S2(X4),S1
&CODE SETC '&HEXOP'(2,3).'4D002D001'
AGO .VER
.RXY ANOP
INS&N &OP1 R1,S2(X4)
&CODE SETC '&HEXOP'(2,2).'14D00200'.'&HEXOP'(4,2)
AGO .VER
.S ANOP
AIF ('&NOP' EQ 'T').SNOP
INS&N &OP1 S1
&CODE SETC '&HEXOP'(2,4).'D001'
AGO .VER
.SNOP ANOP
INS&N &OP1 , NOP
&CODE SETC '&HEXOP'(2,4).'0000'
AGO .VER
.SI ANOP
INS&N &OP1 S1,II
&CODE SETC '&HEXOP'(2,2).'FFD001'
AGO .VER
.SIL ANOP
INS&N &OP1 S1,II
&CODE SETC '&HEXOP'(2,4).'D00100FF'
AGO .VER
.SIY ANOP
INS&N &OP1 S1,II
&CODE SETC '&HEXOP'(2,2).'FFD00100'.'&HEXOP'(4,2)
AGO .VER
.SS ANOP
INS&N &OP1 S1(LL),S2
&CODE SETC '&HEXOP'(2,2).'FFD001D002'
AGO .VER
.SS2 ANOP
INS&N &OP1 S1(PL1),S2(PL2)
&CODE SETC '&HEXOP'(2,2).'67D001D002'
AGO .VER
.SS3 ANOP
INS&N &OP1 R1,S2,R3,S4
&CODE SETC '&HEXOP'(2,2).'13D002D004'
AGO .VER
.SS4 ANOP
INS&N &OP1 R1,R3,S2,S4
&CODE SETC '&HEXOP'(2,2).'13D002D004'
AGO .VER
.SS5 ANOP
INS&N &OP1 S1(PL1),S2,R3
&CODE SETC '&HEXOP'(2,2).'63D001D002'
AGO .VER
.SSE ANOP
INS&N &OP1 S1,S2
&CODE SETC '&HEXOP'(2,4).'D001D002'
AGO .VER
.SSF ANOP
INS&N &OP1 S1,S2,R3
&CODE SETC '&HEXOP'(2,2).'3'.'&HEXOP'(4,1).'D001D002' RPI 1152
AGO .VER
.SSF2 ANOP
INS&N &OP1 R3,S1,S2
&CODE SETC '&HEXOP'(2,2).'3'.'&HEXOP'(4,1).'D001D002'
AGO .VER
.SS6 ANOP
INS&N &OP1 S1,S2(32)
&CODE SETC '&HEXOP'(2,2).'1FD001D002'
AGO .VER
.BLX ANOP
INS&N &OP1 *-2
&CODE SETC '&HEXOP'(2,4).'FFFFFFFF'
AGO .VER
.RRR ANOP ADTR
INS&N &OP1 R1,R2,R3
&CODE SETC '&HEXOP'(2,4).'3012' RPI 407
AGO .VER
.RRR2 ANOP
&OP1B SETC '&OP1'(1,K'&OP1-1)
INS&N &OP1B R1,R2,R3
&CODE SETC '&HEXOP'(2,4).'3012'
HEX&N DC X'&CODE'
&OP1A SETC '&OP1'(1,K'&OP1-1).'A'
INSA&N &OP1A R1,R2,R3,M4
&CODE SETC '&HEXOP'(2,4).'3412'
HEXA&N DC X'&CODE'
VER&N RT1 CCE,INS&N,HEX&N
L R1,=A(INSA&N)
USING INSA&N,R1
RT1 CCE,INSA&N,HEXA&N
MEXIT
MEND
*
* START TESTS USING ZOSOP MACRO WHICH GENERATES
* TEST DATA AND REGRESSION TEST MACRO CALLS
*
RT1 START
ZOSOP '0101','PROGRAM RETURN ','PR ','E L ',NOP=T RPI 277
ZOSOP '0102','UPDATE TREE ','UPT ','E C ',NOP=T RPI 277
ZOSOP '0104','PERFORM TIMING FACILITY FUNCTION','PTFF','E',Z9,NOP=T
ZOSOP '0107','SET CLOCK PROGRAMMABLE FIELD ','SCKPF','E ',NOP=T
ZOSOP '010A','PERFORM FP CONVERSION','PFPO','E PF',NOP=T RPI 1013
ZOSOP '010B','TEST ADDRESSING MODE ','TAM ','E C N3',NOP=T
ZOSOP '010C','SET ADDRESSING MODE (24) ','SAM24','E N3',NOP=T
ZOSOP '010D','SET ADDRESSING MODE (31) ','SAM31','E N3',NOP=T
ZOSOP '010E','SET ADDRESSING MODE (64) ','SAM64','E N ',NOP=T
ZOSOP '01FF','TRAP ','TRAP2','E ',NOP=T
ZOSOP '04 ','SET PROGRAM MASK ','SPM ','RR1 L '
ZOSOP '05 ','BRANCH AND LINK ','BALR ','RR '
ZOSOP '06 ','BRANCH ON COUNT (32) ','BCTR ','RR '
ZOSOP '07 ','BRANCH ON CONDITION ','BCR ','RR '
ZOSOP '07F','EXTENDED BRANCH','BR','BRX'
ZOSOP '070','EXTENDED BRANCH','NOPR','BRX'
ZOSOP '072','EXTENDED BRANCH','BHR','BRX'
ZOSOP '074','EXTENDED BRANCH','BLR','BRX'
ZOSOP '078','EXTENDED BRANCH','BER','BRX'
ZOSOP '07D','EXTENDED BRANCH','BNHR','BRX'
ZOSOP '07B','EXTENDED BRANCH','BNLR','BRX'
ZOSOP '077','EXTENDED BRANCH','BNER','BRX'
ZOSOP '072','EXTENDED BRANCH','BPR','BRX'
ZOSOP '071','EXTENDED BRANCH','BOR','BRX'
ZOSOP '074','EXTENDED BRANCH','BMR','BRX'
ZOSOP '078','EXTENDED BRANCH','BZR','BRX'
ZOSOP '07D','EXTENDED BRANCH','BNPR','BRX'
ZOSOP '07B','EXTENDED BRANCH','BNMR','BRX'
ZOSOP '077','EXTENDED BRANCH','BNZR','BRX'
ZOSOP '07E','EXTENDED BRANCH','BNOR','BRX'
ZOSOP '0A ','SUPERVISOR CALL ','SVC ','I '
ZOSOP '0B ','BRANCH AND SET MODE ','BSM ','RR '
ZOSOP '0C ','BRANCH AND SAVE AND SET MODE ','BASSM','RR '
ZOSOP '0D ','BRANCH AND SAVE ','BASR ','RR '
ZOSOP '0E ','MOVE LONG ','MVCL ','RR C '
ZOSOP '0F ','COMPARE LOGICAL LONG ','CLCL ','RR C '
ZOSOP '10 ','LOAD POSITIVE (32) ','LPR ','RR C '
ZOSOP '11 ','LOAD NEGATIVE (32) ','LNR ','RR C '
ZOSOP '12 ','LOAD AND TEST (32) ','LTR ','RR C '
ZOSOP '13 ','LOAD COMPLEMENT (32) ','LCR ','RR C '
ZOSOP '14 ','AND (32) ','NR ','RR C '
ZOSOP '15 ','COMPARE LOGICAL (32) ','CLR ','RR C '
ZOSOP '16 ','OR (32) ','OR ','RR C '
ZOSOP '17 ','EXCLUSIVE OR (32) ','XR ','RR C '
ZOSOP '18 ','LOAD (32) ','LR ','RR '
ZOSOP '19 ','COMPARE (32) ','CR ','RR C '
ZOSOP '1A ','ADD (32) ','AR ','RR C '
ZOSOP '1B ','SUBTRACT (32) ','SR ','RR C '
ZOSOP '1C ','MULTIPLY (64<32) ','MR ','RR '
ZOSOP '1D ','DIVIDE (32<64) ','DR ','RR '
ZOSOP '1E ','ADD LOGICAL (32) ','ALR ','RR C '
ZOSOP '1F ','SUBTRACT LOGICAL (32) ','SLR ','RR C '
ZOSOP '20 ','LOAD POSITIVE (long HFP) ','LPDR ','RR C '
ZOSOP '21 ','LOAD NEGATIVE (long HFP) ','LNDR ','RR C '
ZOSOP '22 ','LOAD AND TEST (long HFP) ','LTDR ','RR C '
ZOSOP '23 ','LOAD COMPLEMENT (long HFP) ','LCDR ','RR C '
ZOSOP '24 ','HALVE (long HFP) ','HDR ','RR '
ZOSOP '25 ','LOAD ROUNDED (extended to long HFP) ','LDXR ','RR '
ZOSOP '25 ','LOAD ROUNDED (extended to long HFP) ','LRDR ','RR '
ZOSOP '26 ','MULTIPLY (extended HFP) ','MXR ','RR '
ZOSOP '27 ','MULTIPLY (long to extended HFP) ','MXDR ','RR '
ZOSOP '28 ','LOAD (long) ','LDR ','RR '
ZOSOP '29 ','COMPARE (long HFP) ','CDR ','RR C '
ZOSOP '2A ','ADD NORMALIZED (long HFP) ','ADR ','RR C '
ZOSOP '2B ','SUBTRACT NORMALIZED (long HFP) ','SDR ','RR C '
ZOSOP '2C ','MULTIPLY (long HFP) ','MDR ','RR '
ZOSOP '2D ','DIVIDE (long HFP) ','DDR ','RR '
ZOSOP '2E ','ADD UNNORMALIZED (long HFP) ','AWR ','RR C '
ZOSOP '2F ','SUBTRACT UNNORMALIZED (long HFP) ','SWR ','RR C '
ZOSOP '30 ','LOAD POSITIVE (short HFP) ','LPER ','RR C '
ZOSOP '31 ','LOAD NEGATIVE (short HFP) ','LNER ','RR C '
ZOSOP '32 ','LOAD AND TEST (short HFP) ','LTER ','RR C '
ZOSOP '33 ','LOAD COMPLEMENT (short HFP) ','LCER ','RR C '
ZOSOP '34 ','HALVE (short HFP) ','HER ','RR '
ZOSOP '35 ','LOAD ROUNDED (long to short HFP) ','LEDR ','RR '
ZOSOP '35 ','LOAD ROUNDED (long to short HFP) ','LRER ','RR '
ZOSOP '36 ','ADD NORMALIZED (extended HFP) ','AXR ','RR C '
ZOSOP '37 ','SUBTRACT NORMALIZED (extended HFP) ','SXR ','RR C '
ZOSOP '38 ','LOAD (short) ','LER ','RR '
ZOSOP '39 ','COMPARE (short HFP) ','CER ','RR C '
ZOSOP '3A ','ADD NORMALIZED (short HFP) ','AER ','RR C '
ZOSOP '3B ','SUBTRACT NORMALIZED (short HFP) ','SER ','RR C '
ZOSOP '3C ','MULTIPLY (short to long HFP) ','MDER ','RR '
ZOSOP '3C ','MULTIPLY (short to long HFP) ','MER ','RR '
ZOSOP '3D ','DIVIDE (short HFP) ','DER ','RR '
ZOSOP '3E ','ADD UNNORMALIZED (short HFP) ','AUR ','RR C '
ZOSOP '3F ','SUBTRACT UNNORMALIZED (short HFP) ','SUR ','RR C '
ZOSOP '40 ','STORE HALFWORD ','STH ','RX '
ZOSOP '41 ','LOAD ADDRESS ','LA ','RX '
ZOSOP '42 ','STORE CHARACTER ','STC ','RX '
ZOSOP '43 ','INSERT CHARACTER ','IC ','RX '
ZOSOP '44 ','EXECUTE ','EX ','RX '
ZOSOP '45 ','BRANCH AND LINK ','BAL ','RX '
ZOSOP '46 ','BRANCH ON COUNT (32) ','BCT ','RX '
ZOSOP '47 ','BRANCH ON CONDITION ','BC ','RX '
ZOSOP '47F','EXTENDED BRANCH','B','BCX'
ZOSOP '470','EXTENDED BRANCH','NOP','BCX'
ZOSOP '472','EXTENDED BRANCH','BH','BCX'
ZOSOP '474','EXTENDED BRANCH','BL','BCX'
ZOSOP '478','EXTENDED BRANCH','BE','BCX'
ZOSOP '47D','EXTENDED BRANCH','BNH','BCX'
ZOSOP '47B','EXTENDED BRANCH','BNL','BCX'
ZOSOP '477','EXTENDED BRANCH','BNE','BCX'
ZOSOP '472','EXTENDED BRANCH','BP','BCX'
ZOSOP '471','EXTENDED BRANCH','BO','BCX'
ZOSOP '474','EXTENDED BRANCH','BM','BCX'
ZOSOP '478','EXTENDED BRANCH','BZ','BCX'
ZOSOP '47D','EXTENDED BRANCH','BNP','BCX'
ZOSOP '47B','EXTENDED BRANCH','BNM','BCX'
ZOSOP '477','EXTENDED BRANCH','BNZ','BCX'
ZOSOP '47E','EXTENDED BRANCH','BNO','BCX'
ZOSOP '48 ','LOAD HALFWORD (32) ','LH ','RX '
ZOSOP '49 ','COMPARE HALFWORD ','CH ','RX C '
ZOSOP '4A ','ADD HALFWORD ','AH ','RX C '
ZOSOP '4B ','SUBTRACT HALFWORD ','SH ','RX C '
ZOSOP '4C ','MULTIPLY HALFWORD (32) ','MH ','RX '
ZOSOP '4D ','BRANCH AND SAVE ','BAS ','RX '
ZOSOP '4E ','CONVERT TO DECIMAL (32) ','CVD ','RX '
ZOSOP '4F ','CONVERT TO BINARY (32) ','CVB ','RX '
ZOSOP '50 ','STORE (32) ','ST ','RX '
ZOSOP '51 ','LOAD ADDRESS EXTENDED ','LAE ','RX '
ZOSOP '52 ','ASSIST DECIMAL OUTPUT ','XDECO','RXAS ' RPI 812
ZOSOP '53 ','ASSIST DECIMAL INPUT ','XDECI','RXAS ' RPI 812
ZOSOP '54 ','AND (32) ','N ','RX C '
ZOSOP '55 ','COMPARE LOGICAL (32) ','CL ','RX C '
ZOSOP '56 ','OR (32) ','O ','RX C '
ZOSOP '57 ','EXCLUSIVE OR (32) ','X ','RX C '
ZOSOP '58 ','LOAD (32) ','L ','RX '
ZOSOP '59 ','COMPARE (32) ','C ','RX C '
ZOSOP '5A ','ADD (32) ','A ','RX C '
ZOSOP '5B ','SUBTRACT (32) ','S ','RX C '
ZOSOP '5C ','MULTIPLY (64<32) ','M ','RX '
ZOSOP '5D ','DIVIDE (32<64) ','D ','RX '
ZOSOP '5E ','ADD LOGICAL (32) ','AL ','RX C '
ZOSOP '5F ','SUBTRACT LOGICAL (32) ','SL ','RX C '
ZOSOP '60 ','STORE (long) ','STD ','RX '
ZOSOP '61 ','ASSIST HEX INPUT ','XHEXI','RXAS ' RPI 812
ZOSOP '62 ','ASSIST HEX OUTPUT ','XHEXO','RXAS ' RPI 812
ZOSOP '67 ','MULTIPLY (long to extended HFP) ','MXD ','RX '
ZOSOP '68 ','LOAD (long) ','LD ','RX '
ZOSOP '69 ','COMPARE (long HFP) ','CD ','RX C '
ZOSOP '6A ','ADD NORMALIZED (long HFP) ','AD ','RX C '
ZOSOP '6B ','SUBTRACT NORMALIZED (long HFP) ','SD ','RX C '
ZOSOP '6C ','MULTIPLY (long HFP) ','MD ','RX '
ZOSOP '6D ','DIVIDE (long HFP) ','DD ','RX '
ZOSOP '6E ','ADD UNNORMALIZED (long HFP) ','AW ','RX C '
ZOSOP '6F ','SUBTRACT UNNORMALIZED (long HFP) ','SW ','RX C '
ZOSOP '70 ','STORE (short) ','STE ','RX '
ZOSOP '71 ','MULTIPLY SINGLE (32) ','MS ','RX '
ZOSOP '78 ','LOAD (short) ','LE ','RX '
ZOSOP '79 ','COMPARE (short HFP) ','CE ','RX C '
ZOSOP '7A ','ADD NORMALIZED (short HFP) ','AE ','RX C '
ZOSOP '7B ','SUBTRACT NORMALIZED (short HFP) ','SE ','RX C '
ZOSOP '7C ','MULTIPLY (short to long HFP) ','MDE ','RX '
ZOSOP '7C ','MULTIPLY (short to long HFP) ','ME ','RX '
ZOSOP '7D ','DIVIDE (short HFP) ','DE ','RX '
ZOSOP '7E ','ADD UNNORMALIZED (short HFP) ','AU ','RX C '
ZOSOP '7F ','SUBTRACT UNNORMALIZED (short HFP) ','SU ','RX C '
ZOSOP '8000','SET SYSTEM MASK ','SSM ','S '
ZOSOP '8200','LOAD PSW ','LPSW ','S L '
ZOSOP '83 ','DIAGNOSE ','DIAGNOSE','DM'
ZOSOP '84 ','BRANCH RELATIVE ON INDEX HIGH (32) ','BRXH ','RSI '
ZOSOP '84','RELATIVE BRANCH','JXH','RSI'
ZOSOP '85 ','BRANCH RELATIVE ON INDEX L OR E (32)','BRXLE','RSI '
ZOSOP '85','RELATIVE BRANCH','JXLE','RSI'
ZOSOP '86 ','BRANCH ON INDEX HIGH (32) ','BXH ','RS '
ZOSOP '87 ','BRANCH ON INDEX LOW OR EQUAL (32) ','BXLE ','RS '
ZOSOP '88 ','SHIFT RIGHT SINGLE LOGICAL (32) ','SRL ','RS2 '
ZOSOP '89 ','SHIFT LEFT SINGLE LOGICAL (32) ','SLL ','RS2 '
ZOSOP '8A ','SHIFT RIGHT SINGLE (32) ','SRA ','RS2 C '
ZOSOP '8B ','SHIFT LEFT SINGLE (32) ','SLA ','RS2 C '
ZOSOP '8C ','SHIFT RIGHT DOUBLE LOGICAL ','SRDL ','RS2 '
ZOSOP '8D ','SHIFT LEFT DOUBLE LOGICAL ','SLDL ','RS2 '
ZOSOP '8E ','SHIFT RIGHT DOUBLE ','SRDA ','RS2 C '
ZOSOP '8F ','SHIFT LEFT DOUBLE ','SLDA ','RS2 C '
ZOSOP '90 ','STORE MULTIPLE (32) ','STM ','RS '
ZOSOP '91 ','TEST UNDER MASK ','TM ','SI C '
ZOSOP '92 ','MOVE (immediate) ','MVI ','SI '
ZOSOP '9300','TEST AND SET ','TS ','S C '
ZOSOP '94 ','AND (immediate) ','NI ','SI C '
ZOSOP '95 ','COMPARE LOGICAL (immediate) ','CLI ','SI C '
ZOSOP '96 ','OR (immediate) ','OI ','SI C '
ZOSOP '97 ','EXCLUSIVE OR (immediate) ','XI ','SI C '
ZOSOP '98 ','LOAD MULTIPLE (32) ','LM ','RS '
ZOSOP '99 ','TRACE (32) ','TRACE','RS '
ZOSOP '9A ','LOAD ACCESS MULTIPLE ','LAM ','RS '
ZOSOP '9B ','STORE ACCESS MULTIPLE ','STAM ','RS '
ZOSOP 'A50 ','INSERT IMMEDIATE (high high) ','IIHH ','RI N '
ZOSOP 'A51 ','INSERT IMMEDIATE (high low) ','IIHL ','RI N '
ZOSOP 'A52 ','INSERT IMMEDIATE (low high) ','IILH ','RI N '
ZOSOP 'A53 ','INSERT IMMEDIATE (low low) ','IILL ','RI N '
ZOSOP 'A54 ','AND IMMEDIATE (high high) ','NIHH ','RI C N '
ZOSOP 'A55 ','AND IMMEDIATE (high low) ','NIHL ','RI C N '
ZOSOP 'A56 ','AND IMMEDIATE (low high) ','NILH ','RI C N '
ZOSOP 'A57 ','AND IMMEDIATE (low low) ','NILL ','RI C N '
ZOSOP 'A58 ','OR IMMEDIATE (high high) ','OIHH ','RI C N '
ZOSOP 'A59 ','OR IMMEDIATE (high low) ','OIHL ','RI C N '
ZOSOP 'A5A ','OR IMMEDIATE (low high) ','OILH ','RI C N '
ZOSOP 'A5B ','OR IMMEDIATE (low low) ','OILL ','RI C N '
ZOSOP 'A5C ','LOAD LOGICAL IMMEDIATE (high high) ','LLIHH','RI N '
ZOSOP 'A5D ','LOAD LOGICAL IMMEDIATE (high low) ','LLIHL','RI N '
ZOSOP 'A5E ','LOAD LOGICAL IMMEDIATE (low high) ','LLILH','RI N '
ZOSOP 'A5F ','LOAD LOGICAL IMMEDIATE (low low) ','LLILL','RI N '
ZOSOP 'A70 ','TEST UNDER MASK (low high) ','TMLH ','RI C N '
ZOSOP 'A70 ','TEST UNDER MASK HIGH ','TMH ','RI C '
ZOSOP 'A71 ','TEST UNDER MASK (low low) ','TMLL ','RI C N '
ZOSOP 'A71 ','TEST UNDER MASK LOW ','TML ','RI C '
ZOSOP 'A72 ','TEST UNDER MASK (high high) ','TMHH ','RI C N '
ZOSOP 'A73 ','TEST UNDER MASK (high low) ','TMHL ','RI C N '
ZOSOP 'A74','BRANCH RELATIVE ON CONDITION ','BRC ','RI '
ZOSOP 'A74F','RELATIVE BRANCH','J','BRC'
ZOSOP 'A740','RELATIVE BRANCH','JNOP','BRC'
ZOSOP 'A74F','RELATIVE BRANCH','BRU','BRC'
ZOSOP 'A742','RELATIVE BRANCH','BRH','BRC'
ZOSOP 'A744','RELATIVE BRANCH','BRL','BRC'
ZOSOP 'A748','RELATIVE BRANCH','BRE','BRC'
ZOSOP 'A74D','RELATIVE BRANCH','BRNH','BRC'
ZOSOP 'A74B','RELATIVE BRANCH','BRNL','BRC'
ZOSOP 'A747','RELATIVE BRANCH','BRNE','BRC'
ZOSOP 'A742','RELATIVE BRANCH','BRP','BRC'
ZOSOP 'A744','RELATIVE BRANCH','BRM','BRC'
ZOSOP 'A748','RELATIVE BRANCH','BRZ','BRC'
ZOSOP 'A741','RELATIVE BRANCH','BRO','BRC'
ZOSOP 'A74D','RELATIVE BRANCH','BRNP','BRC'
ZOSOP 'A74B','RELATIVE BRANCH','BRNM','BRC'
ZOSOP 'A747','RELATIVE BRANCH','BRNZ','BRC'
ZOSOP 'A74E','RELATIVE BRANCH','BRNO','BRC'
ZOSOP 'A742','RELATIVE BRANCH','JH','BRC'
ZOSOP 'A744','RELATIVE BRANCH','JL','BRC'
ZOSOP 'A748','RELATIVE BRANCH','JE','BRC'
ZOSOP 'A74D','RELATIVE BRANCH','JNH','BRC'
ZOSOP 'A74B','RELATIVE BRANCH','JNL','BRC'
ZOSOP 'A747','RELATIVE BRANCH','JNE','BRC'
ZOSOP 'A742','RELATIVE BRANCH','JP','BRC'
ZOSOP 'A744','RELATIVE BRANCH','JM','BRC'
ZOSOP 'A748','RELATIVE BRANCH','JZ','BRC'
ZOSOP 'A741','RELATIVE BRANCH','JO','BRC'
ZOSOP 'A74D','RELATIVE BRANCH','JNP','BRC'
ZOSOP 'A74B','RELATIVE BRANCH','JNM','BRC'
ZOSOP 'A747','RELATIVE BRANCH','JNZ','BRC'
ZOSOP 'A74E','RELATIVE BRANCH','JNO','BRC'
ZOSOP 'A75 ','BRANCH RELATIVE AND SAVE ','BRAS ','RI '
ZOSOP 'A75','RELATIVE BRANCH AND SAVE','JAS','RI'
ZOSOP 'A76 ','BRANCH RELATIVE ON COUNT (32) ','BRCT ','RI '
ZOSOP 'A76','RELATIVE BRANCH','JCT','RI'
ZOSOP 'A77 ','BRANCH RELATIVE ON COUNT (64) ','BRCTG','RI N '
ZOSOP 'A77','RELATIVE BRANCH','JCTG','RI'
ZOSOP 'A78 ','LOAD HALFWORD IMMEDIATE (32) ','LHI ','RI '
ZOSOP 'A79 ','LOAD HALFWORD IMMEDIATE (64) ','LGHI ','RI N '
ZOSOP 'A7A ','ADD HALFWORD IMMEDIATE (32) ','AHI ','RI C '
ZOSOP 'A7B ','ADD HALFWORD IMMEDIATE (64) ','AGHI ','RI C N '
ZOSOP 'A7C ','MULTIPLY HALFWORD IMMEDIATE (32) ','MHI ','RI '
ZOSOP 'A7D ','MULTIPLY HALFWORD IMMEDIATE (64) ','MGHI ','RI N '
ZOSOP 'A7E ','COMPARE HALFWORD IMMEDIATE (32) ','CHI ','RI C '
ZOSOP 'A7F ','COMPARE HALFWORD IMMEDIATE (64) ','CGHI ','RI C N '
ZOSOP 'A8 ','MOVE LONG EXTENDED ','MVCLE','RS C '
ZOSOP 'A9 ','COMPARE LOGICAL LONG EXTENDED ','CLCLE','RS C '
ZOSOP 'AC ','STORE THEN AND SYSTEM MASK ','STNSM','SI '
ZOSOP 'AD ','STORE THEN OR SYSTEM MASK ','STOSM','SI '
ZOSOP 'AE ','SIGNAL PROCESSOR ','SIGP ','RS C '
ZOSOP 'AF ','MONITOR CALL ','MC ','SI '
ZOSOP 'B1 ','LOAD REAL ADDRESS (32) ','LRA ','RX C '
ZOSOP 'B202','STORE CPU ID ','STIDP','S '
ZOSOP 'B204','SET CLOCK ','SCK ','S C '
ZOSOP 'B205','STORE CLOCK ','STCK ','S C '
ZOSOP 'B206','SET CLOCK COMPARATOR ','SCKC ','S '
ZOSOP 'B207','STORE CLOCK COMPARATOR ','STCKC','S '
ZOSOP 'B208','SET CPU TIMER ','SPT ','S '
ZOSOP 'B209','STORE CPU TIMER ','STPT ','S '
ZOSOP 'B20A','SET PSW KEY FROM ADDRESS ','SPKA ','S '
ZOSOP 'B20B','INSERT PSW KEY ','IPK ','S ',NOP=T RPI 277
ZOSOP 'B20D','PURGE TLB ','PTLB ','S ',NOP=T RPI 277
ZOSOP 'B210','SET PREFIX ','SPX ','S '
ZOSOP 'B211','STORE PREFIX ','STPX ','S '
ZOSOP 'B212','STORE CPU ADDRESS ','STAP ','S '
ZOSOP 'B218','PROGRAM CALL ','PC ','S '
ZOSOP 'B219','SET ADDRESS SPACE CONTROL ','SAC ','S '
ZOSOP 'B21A','COMPARE AND FORM CODEWORD ','CFC ','S C '
ZOSOP 'B221','INVALIDATE PAGE TABLE ENTRY ','IPTE ','RRE '
ZOSOP 'B222','INSERT PROGRAM MASK ','IPM ','RR2 '
ZOSOP 'B223','INSERT VIRTUAL STORAGE KEY ','IVSK ','RRE '
ZOSOP 'B224','INSERT ADDRESS SPACE CONTROL ','IAC ','RRE C '
ZOSOP 'B225','SET SECONDARY ASN ','SSAR ','RRE '
ZOSOP 'B226','EXTRACT PRIMARY ASN ','EPAR ','RRE '
ZOSOP 'B227','EXTRACT SECONDARY ASN ','ESAR ','RRE '
ZOSOP 'B228','PROGRAM TRANSFER ','PT ','RRE '
ZOSOP 'B229','INSERT STORAGE KEY EXTENDED ','ISKE ','RRE '
ZOSOP 'B22A','RESET REFERENCE BIT EXTENDED ','RRBE ','RRE C '
ZOSOP 'B22B','SET STORAGE KEY EXTENDED ','SSKE ','RRE '
ZOSOP 'B22C','TEST BLOCK ','TB ','RRE C '
ZOSOP 'B22D','DIVIDE (extended HFP) ','DXR ','RRE '
ZOSOP 'B22E','PAGE IN ','PGIN ','RRE C ES'
ZOSOP 'B22F','PAGE OUT ','PGOUT','RRE C ES'
ZOSOP 'B230','CLEAR SUBCHANNEL ','CSCH ','S C ',NOP=T
ZOSOP 'B231','HALT SUBCHANNEL ','HSCH ','S C '
ZOSOP 'B232','MODIFY SUBCHANNEL ','MSCH ','S C '
ZOSOP 'B233','START SUBCHANNEL ','SSCH ','S C '
ZOSOP 'B234','STORE SUBCHANNEL ','STSCH','S C '
ZOSOP 'B235','TEST SUBCHANNEL ','TSCH ','S C '
ZOSOP 'B236','TEST PENDING INTERRUPTION ','TPI ','S C '
ZOSOP 'B237','SET ADDRESS LIMIT ','SAL ','S ',NOP=T RPI 277
ZOSOP 'B238','RESUME SUBCHANNEL ','RSCH ','S C ',NOP=T
ZOSOP 'B239','STORE CHANNEL REPORT WORD ','STCRW','S C '
ZOSOP 'B23A','STORE CHANNEL PATH STATUS ','STCPS','S '
ZOSOP 'B23B','RESET CHANNEL PATH ','RCHP ','S C '
ZOSOP 'B23C','SET CHANNEL MONITOR ','SCHM ','S ',NOP=T
ZOSOP 'B240','BRANCH AND STACK ','BAKR ','RRE '
ZOSOP 'B241','CHECKSUM ','CKSM ','RRE C '
ZOSOP 'B244','SQUARE ROOT (long HFP) ','SQDR ','RRE '
ZOSOP 'B245','SQUARE ROOT (short HFP) ','SQER ','RRE '
ZOSOP 'B246','STORE USING REAL ADDRESS (32) ','STURA','RRE '
ZOSOP 'B247','MODIFY STACKED STATE ','MSTA ','RRE '
ZOSOP 'B248','PURGE ALB ','PALB ','RRE ',NOP=T RPI 277
ZOSOP 'B249','EXTRACT STACKED REGISTERS (32) ','EREG ','RRE '
ZOSOP 'B24A','EXTRACT STACKED STATE ','ESTA ','RRE C '
ZOSOP 'B24B','LOAD USING REAL ADDRESS (32) ','LURA ','RRE '
ZOSOP 'B24C','TEST ACCESS ','TAR ','RRE C '
ZOSOP 'B24D','COPY ACCESS ','CPYA ','RRE '
ZOSOP 'B24E','SET ACCESS ','SAR ','RRE '
ZOSOP 'B24F','EXTRACT ACCESS ','EAR ','RRE '
ZOSOP 'B250','COMPARE AND SWAP AND PURGE ','CSP ','RRE C '
ZOSOP 'B252','MULTIPLY SINGLE (32) ','MSR ','RRE '
ZOSOP 'B254','MOVE PAGE ','MVPG ','RRE C '
ZOSOP 'B255','MOVE STRING ','MVST ','RRE C '
ZOSOP 'B257','COMPARE UNTIL SUBSTRING EQUAL ','CUSE ','RRE C '
ZOSOP 'B258','BRANCH IN SUBSPACE GROUP ','BSG ','RRE '
ZOSOP 'B25A','BRANCH AND SET AUTHORITY ','BSA ','RRE '
ZOSOP 'B25D','COMPARE LOGICAL STRING ','CLST ','RRE C '
ZOSOP 'B25E','SEARCH STRING ','SRST ','RRE C '
ZOSOP 'B263','COMPRESSION CALL ','CMPSC','RRE C '
ZOSOP 'B276','CANCEL SUBCHANNEL ','XSCH ','S C ',NOP=T
ZOSOP 'B277','RESUME PROGRAM ','RP ','S L '
ZOSOP 'B278','STORE CLOCK EXTENDED ','STCKE','S C '
ZOSOP 'B279','SET ADDRESS SPACE CONTROL FAST ','SACF ','S '
ZOSOP 'B27C','STORE CLOCK FAST','STCKF','S',Z9
ZOSOP 'B27D','STORE SYSTEM INFORMATION ','STSI ','S C '
ZOSOP 'B299','SET ROUNDING MODE ','SRNM ','S '
ZOSOP 'B29C','STORE FPC ','STFPC','S '
ZOSOP 'B29D','LOAD FPC ','LFPC ','S '
ZOSOP 'B2A5','TRANSLATE EXTENDED ','TRE ','RRE C '
ZOSOP 'B2A6','CONVERT UNICODE TO UTF-8 ','CUUTF','RRE C '
ZOSOP 'B2A6','CONVERT UTF-16 TO UTF-8 ','CU21 ','RRE C E3'
ZOSOP 'B2A7','CONVERT UTF-8 TO UNICODE ','CUTFU','RRE C '
ZOSOP 'B2A7','CONVERT UTF-8 TO UTF-16 ','CU12 ','RRE C E3'
ZOSOP 'B2B0','STORE FACILITY LIST EXTENDED','STFLE','S',Z9
ZOSOP 'B2B1','STORE FACILITY LIST ','STFL ','S N3'
ZOSOP 'B2B2','LOAD PSW EXTENDED ','LPSWE','S L N '
ZOSOP 'B2B8','SET BFP ROUNDING MODE (3 bit)','SRNMB','S' RPI 1125 Z19X
6
ZOSOP 'B2B9','SET DFP ROUNDING MODE','SRNMT','S' DFP 55
ZOSOP 'B2BD','LOAD FPC AND SIGNAL','LFAS','S' DFP 56
ZOSOP 'B2FF','TRAP ','TRAP4','S '
ZOSOP 'B300','LOAD POSITIVE (short BFP) ','LPEBR','RRE C '
ZOSOP 'B301','LOAD NEGATIVE (short BFP) ','LNEBR','RRE C '
ZOSOP 'B302','LOAD AND TEST (short BFP) ','LTEBR','RRE C '
ZOSOP 'B303','LOAD COMPLEMENT (short BFP) ','LCEBR','RRE C '
ZOSOP 'B304','LOAD LENGTHENED (short to long BFP) ','LDEBR','RRE '
ZOSOP 'B305','LOAD LENGTHENED (long to ext. BFP) ','LXDBR','RRE '
ZOSOP 'B306','LOAD LENGTHENED (short to ext. BFP) ','LXEBR','RRE '
ZOSOP 'B307','MULTIPLY (long to extended BFP) ','MXDBR','RRE '
ZOSOP 'B308','COMPARE AND SIGNAL (short BFP) ','KEBR ','RRE C '
ZOSOP 'B309','COMPARE (short BFP) ','CEBR ','RRE C '
ZOSOP 'B30A','ADD (short BFP) ','AEBR ','RRE C '
ZOSOP 'B30B','SUBTRACT (short BFP) ','SEBR ','RRE C '
ZOSOP 'B30C','MULTIPLY (short to long BFP) ','MDEBR','RRE '
ZOSOP 'B30D','DIVIDE (short BFP) ','DEBR ','RRE '
ZOSOP 'B30E','MULTIPLY AND ADD (short BFP) ','MAEBR','RRF1'
ZOSOP 'B30F','MULTIPLY AND SUBTRACT (short BFP) ','MSEBR','RRF1'
ZOSOP 'B310','LOAD POSITIVE (long BFP) ','LPDBR','RRE C '
ZOSOP 'B311','LOAD NEGATIVE (long BFP) ','LNDBR','RRE C '
ZOSOP 'B312','LOAD AND TEST (long BFP) ','LTDBR','RRE C '
ZOSOP 'B313','LOAD COMPLEMENT (long BFP) ','LCDBR','RRE C '
ZOSOP 'B314','SQUARE ROOT (short BFP) ','SQEBR','RRE '
ZOSOP 'B315','SQUARE ROOT (long BFP) ','SQDBR','RRE '
ZOSOP 'B316','SQUARE ROOT (extended BFP) ','SQXBR','RRE '
ZOSOP 'B317','MULTIPLY (short BFP) ','MEEBR','RRE '
ZOSOP 'B318','COMPARE AND SIGNAL (long BFP) ','KDBR ','RRE C '
ZOSOP 'B319','COMPARE (long BFP) ','CDBR ','RRE C '
ZOSOP 'B31A','ADD (long BFP) ','ADBR ','RRE C '
ZOSOP 'B31B','SUBTRACT (long BFP) ','SDBR ','RRE C '
ZOSOP 'B31C','MULTIPLY (long BFP) ','MDBR ','RRE '
ZOSOP 'B31D','DIVIDE (long BFP) ','DDBR ','RRE '
ZOSOP 'B31E','MULTIPLY AND ADD (long BFP) ','MADBR','RRF1'
ZOSOP 'B31F','MULTIPLY AND SUBTRACT (long BFP) ','MSDBR','RRF1'
ZOSOP 'B324','LOAD LENGTHENED (short to long HFP) ','LDER ','RRE '
ZOSOP 'B325','LOAD LENGTHENED (long to ext. HFP) ','LXDR ','RRE '
ZOSOP 'B326','LOAD LENGTHENED (short to ext. HFP) ','LXER ','RRE '
ZOSOP 'B32E','MULTIPLY AND ADD (short HFP) ','MAER ','RRF1 HM'
ZOSOP 'B32F','MULTIPLY AND SUBTRACT (short HFP) ','MSER ','RRF1 HM'
ZOSOP 'B336','SQUARE ROOT (extended HFP) ','SQXR ','RRE '
ZOSOP 'B337','MULTIPLY (short HFP) ','MEER ','RRE '
ZOSOP 'B338','MULTIPLY AND ADD U (L > X low HFP)','MAYLR','RRF1',Z9
ZOSOP 'B339','MULTIPLY U (L > X low HFP)','MYLR','RRF1',Z9
ZOSOP 'B33A','MULTIPLY AND ADD U (long HFP)','MAYR','RRF1',Z9
ZOSOP 'B33B','MULTIPLY U (long HFP)','MYR','RRF1',Z9
ZOSOP 'B33C','MULTIPLY AND ADD U (L > X high HFP)','MAYHR','RRF1',Z9
ZOSOP 'B33D','MULTIPLY U (L > X high HFP)','MYHR','RRF1',Z9
ZOSOP 'B33E','MULTIPLY AND ADD (long HFP) ','MADR ','RRF1 HM'
ZOSOP 'B33F','MULTIPLY AND SUBTRACT (long HFP) ','MSDR ','RRF1 HM'
ZOSOP 'B340','LOAD POSITIVE (extended BFP) ','LPXBR','RRE C '
ZOSOP 'B341','LOAD NEGATIVE (extended BFP) ','LNXBR','RRE C '
ZOSOP 'B342','LOAD AND TEST (extended BFP) ','LTXBR','RRE C '
ZOSOP 'B343','LOAD COMPLEMENT (extended BFP) ','LCXBR','RRE C '
ZOSOP 'B344','LOAD ROUNDED (long to short BFP) ','LEDBR?','RE3 ' X
RPI 1125
ZOSOP 'B345','LOAD ROUNDED (extended to long BFP) ','LDXBR?','RE3 ' X
RPI 1125
ZOSOP 'B346','LOAD ROUNDED (extended to short BFP)','LEXBR?','RE3 ' X
RPI 1125
ZOSOP 'B347','LOAD FP INTEGER (extended BFP) ','FIXBR?','RRF7' X
RPI 1125
ZOSOP 'B348','COMPARE AND SIGNAL (extended BFP) ','KXBR ','RRE C '
ZOSOP 'B349','COMPARE (extended BFP) ','CXBR ','RRE C '
ZOSOP 'B34A','ADD (extended BFP) ','AXBR ','RRE C '
ZOSOP 'B34B','SUBTRACT (extended BFP) ','SXBR ','RRE C '
ZOSOP 'B34C','MULTIPLY (extended BFP) ','MXBR ','RRE '
ZOSOP 'B34D','DIVIDE (extended BFP) ','DXBR ','RRE '
ZOSOP 'B350','CONVERT HFP TO BFP (long to short) ','TBEDR','RRF2 C '
ZOSOP 'B351','CONVERT HFP TO BFP (long) ','TBDR ','RRF2 C '
ZOSOP 'B353','DIVIDE TO INTEGER (short BFP) ','DIEBR','RRF3 C '
ZOSOP 'B357','LOAD FP INTEGER (short BFP) ','FIEBR?','RRF7 ' RPI 1125
ZOSOP 'B358','CONVERT BFP TO HFP (short to long) ','THDER','RRE C '
ZOSOP 'B359','CONVERT BFP TO HFP (long) ','THDR ','RRE C '
ZOSOP 'B35B','DIVIDE TO INTEGER (long BFP) ','DIDBR','RRF3 C '
ZOSOP 'B35F','LOAD FP INTEGER (long BFP) ','FIDBR?','RRF7 ' RPI 1125
ZOSOP 'B360','LOAD POSITIVE (extended HFP) ','LPXR ','RRE C '
ZOSOP 'B361','LOAD NEGATIVE (extended HFP) ','LNXR ','RRE C '
ZOSOP 'B362','LOAD AND TEST (extended HFP) ','LTXR ','RRE C '
ZOSOP 'B363','LOAD COMPLEMENT (extended HFP) ','LCXR ','RRE C '
ZOSOP 'B365','LOAD (extended) ','LXR ','RRE '
ZOSOP 'B366','LOAD ROUNDED (extended to short HFP)','LEXR ','RRE '
ZOSOP 'B367','LOAD FP INTEGER (extended HFP) ','FIXR ','RRE '
ZOSOP 'B369','COMPARE (extended HFP) ','CXR ','RRE C '
ZOSOP 'B370','LOAD POSITIVE (long DFP) ','LPDFR','RRE ' DFP
ZOSOP 'B371','LOAD NEGATIVE (long DFP) ','LNDFR','RRE ' DFP
ZOSOP 'B372','LOAD POSITIVE (long DFP) ','CPSDR','RRF2' DFP
ZOSOP 'B373','LOAD COMPLIMENT (long DFP) ','LCDFR','RRE ' DFP
ZOSOP 'B374','LOAD ZERO (short) ','LZER ','RRE '
ZOSOP 'B375','LOAD ZERO (long) ','LZDR ','RRE '
ZOSOP 'B376','LOAD ZERO (extended) ','LZXR ','RRE '
ZOSOP 'B377','LOAD FP INTEGER (short HFP) ','FIER ','RRE '
ZOSOP 'B37F','LOAD FP INTEGER (long HFP) ','FIDR ','RRE '
ZOSOP 'B384','SET FPC ','SFPC ','RR2 '
ZOSOP 'B385','SET FPC AND SIGNAL','SFASR ','RR2 ' DFP 57
ZOSOP 'B38C','EXTRACT FPC ','EFPC ','RR2 '
ZOSOP 'B390','CONVERT FROM LOGICAL (32 to short BFP)','CELFBR','RRF3' X
RPI 1125 Z196
ZOSOP 'B391','CONVERT FROM LOGICAL (32 to long BFP)','CDLFBR','RRF3' X
RPI 1125 Z196
ZOSOP 'B392','CONVERT FROM LOGICAL (32 to extended BFP)','CXLFBR','RRFX
3' RPI 1125 Z196
ZOSOP 'B394','CONVERT FROM FIXED (32 to short BFP)','CEFBR?','RE3 ' X
RPI 1125 Z196
ZOSOP 'B395','CONVERT FROM FIXED (32 to long BFP) ','CDFBR?','RE3 ' X
RPI 1125 Z196
ZOSOP 'B396','CONVERT FROM FIXED (32 to ext. BFP) ','CXFBR?','RE3 ' X
RPI 1125 Z196
ZOSOP 'B398','CONVERT TO FIXED (short BFP to 32) ','CFEBR?','RRF7 C ' X
RPI 1125 Z196
ZOSOP 'B399','CONVERT TO FIXED (long BFP to 32) ','CFDBR?','RRF7 C ' X
RPI 1125 Z196
ZOSOP 'B39A','CONVERT TO FIXED (ext. BFP to 32) ','CFXBR?','RRF7 C ' X
RPI 1125 Z196
ZOSOP 'B39C','CONVERT TO LOGICAL (short BFP to 32)','CLFEBR','RRF3 ' X
RPI 1125 Z196
ZOSOP 'B39D','CONVERT TO LOGICAL (long BFP to 32)','CLFDBR','RRF3 ' RX
PI 1125 Z196
ZOSOP 'B39E','CONVERT TO LOGICAL (extended BFP to 32)','CLFXBR','RRF3 X
' RPI 1125 Z196
ZOSOP 'B3A0','CONVERT FROM LOGICAL (64 to short BFP)','CELGBR','RRF3 'X
RPI 1125 Z196
ZOSOP 'B3A1','CONVERT FROM LOGICAL (64 to long BFP)','CDLGBR','RRF3 ' X
RPI 1125 Z196
ZOSOP 'B3A2','CONVERT FROM LOGICAL (64 to extended BFP)','CXLGBR','RRFX
3 ' RPI 1125 Z196
ZOSOP 'B3A4','CONVERT FROM FIXED (64 to short BFP)','CEGBR?','RE3 N '
ZOSOP 'B3A5','CONVERT FROM FIXED (64 to long BFP) ','CDGBR?','RE3 N '
ZOSOP 'B3A6','CONVERT FROM FIXED (64 to ext. BFP) ','CXGBR?','RE3 N '
ZOSOP 'B3A8','CONVERT TO FIXED (short BFP to 64) ','CGEBR?','RRF7 C N'
ZOSOP 'B3A9','CONVERT TO FIXED (long BFP to 64) ','CGDBR?','RRF7 C N '
ZOSOP 'B3AA','CONVERT TO FIXED (ext. BFP to 64) ','CGXBR?','RRF7 C N '
ZOSOP 'B3AC','CONVERT TO LOGICAL (short BFP to 64)','CLGEBR','RRF3 ' X
RPI 1125 Z196
ZOSOP 'B3AD','CONVERT TO LOGICAL (long BFP to 64)','CLGDBR','RRF3 ' RX
PI 1125 Z196
ZOSOP 'B3AE','CONVERT TO LOGICAL (extended BFP to 64)','CLGXBR','RRF3 X
' RPI 1125 Z196
ZOSOP 'B3B4','CONVERT FROM FIXED (32 to short HFP)','CEFR ','RRE '
ZOSOP 'B3B5','CONVERT FROM FIXED (32 to long HFP) ','CDFR ','RRE '
ZOSOP 'B3B6','CONVERT FROM FIXED (32 to ext. HFP) ','CXFR ','RRE '
ZOSOP 'B3B8','CONVERT TO FIXED (short HFP to 32) ','CFER ','RRF2 C '
ZOSOP 'B3B9','CONVERT TO FIXED (long HFP to 32) ','CFDR ','RRF2 C '
ZOSOP 'B3BA','CONVERT TO FIXED (ext. HFP to 32) ','CFXR ','RRF2 C '
ZOSOP 'B3C1','LOAD FP FROM GP (long DFP) ','LDGR','RRE ' DFP
ZOSOP 'B3C4','CONVERT FROM FIXED (64 to short HFP)','CEGR ','RRE N '
ZOSOP 'B3C5','CONVERT FROM FIXED (64 to long HFP) ','CDGR ','RRE N '
ZOSOP 'B3C6','CONVERT FROM FIXED (64 to ext. HFP) ','CXGR ','RRE N '
ZOSOP 'B3C8','CONVERT TO FIXED (short HFP to 64) ','CGER ','RRF2 C N '
ZOSOP 'B3C9','CONVERT TO FIXED (long HFP to 64) ','CGDR ','RRF2 C N '
ZOSOP 'B3CA','CONVERT TO FIXED (ext. HFP to 64) ','CGXR ','RRF2 C N '
ZOSOP 'B3CD','LOAD GP FROM FP (long DFP) ','LGDR','RRE ' DFP
ZOSOP 'B3D0','MULTIPLY (DDFP)','MDTR?','RRR2 ' DFP RPI 1125
ZOSOP 'B3D1','DIVIDE (DDFP)','DDTR?','RRR2 ' DFP RPI 1125
ZOSOP 'B3D2','ADD (DDFP)','ADTR?','RRR2 ' DFP RPI 1125
ZOSOP 'B3D3','SUBTRACT (DDFP)','SDTR?','RRR2 ' DFP RPI 1125
ZOSOP 'B3D4','LOAD LENGTHENED (short>DDFP)','LDETR','RRF4' DFP
ZOSOP 'B3D5','LOAD ROUNDED (DDFP>EDFP)','LEDTR','RRF3' DFP