-
Notifications
You must be signed in to change notification settings - Fork 1
/
TESTCVBG.MLC
114 lines (114 loc) · 3.55 KB
/
TESTCVBG.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
*********************************************************************
* Copyright 2006 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 - 08/03/06 *
*********************************************************************
* 08/04/06 DSH RPI 389 EXPAND TESTS OF CVBG AND CVDG
* 06/20/08 RPI 845 CHANGE EPIED TO IHAEPIE
*********************************************************************
MACRO
TEST &P
LARL R0,*+2
ZAP PWORK16,=P'0'
CVBG R0,&P
CVDG R0,PWORK16
CP PWORK16,&P
RT1 CCE
MEND
TESTCVBG RT1 MAIN
PWORK16 DC PL16'0'
EQUREGS
RT1 START
TEST =PL16'0'
TEST =PL16'1'
TEST =PL16'12'
TEST =PL16'123'
TEST =PL16'1234'
TEST =PL16'12345'
TEST =PL16'123456'
TEST =PL16'1234567'
TEST =PL16'12345678'
TEST =PL16'123456789'
TEST =PL16'500000000'
TEST =PL16'1000000000'
TEST =PL16'1234567890'
TEST =PL16'2000000000'
TEST =PL16'2147483647'
TEST =PL16'1234567890'
TEST =PL16'12345678901'
TEST =PL16'123456789012'
TEST =PL16'123456789013'
TEST =PL16'1234567890134'
TEST =PL16'12345678901345'
TEST =PL16'123456789013456'
TEST =PL16'1234567890134567'
TEST =PL16'12345678901345678'
TEST =PL16'123456789013456789'
TEST =PL16'1234567890134567890'
TEST =PL16'9223372036854775807'
TEST =PL16'-0'
TEST =PL16'-1'
TEST =PL16'-12'
TEST =PL16'-123'
TEST =PL16'-1234'
TEST =PL16'-12345'
TEST =PL16'-123456'
TEST =PL16'-1234567'
TEST =PL16'-12345678'
TEST =PL16'-123456789'
TEST =PL16'-500000000'
TEST =PL16'-1234567890'
TEST =PL16'-1000000000'
TEST =PL16'-2147483647'
TEST =PL16'-2147483648'
TEST =PL16'-12345678901'
TEST =PL16'-123456789012'
TEST =PL16'-123456789013'
TEST =PL16'-1234567890134'
TEST =PL16'-12345678901345'
TEST =PL16'-123456789013456'
TEST =PL16'-1234567890134567'
TEST =PL16'-12345678901345678'
TEST =PL16'-123456789013456789'
TEST =PL16'-1234567890134567890'
TEST =PL16'-9223372036854775808'
ESPIE SET,ESPIE_EXIT,9,PARAM=SPI1
TEST =PL16'9223372036854775808'
ABEND 101
SPI1 DS 0H
BASR R11,0
USING *,R11
ESPIE RESET,=F'0'
ESPIE SET,ESPIE_EXIT,9,PARAM=SPI2
TEST =PL16'-9223372036854775809'
ABEND 102
SPI2 DS 0H
BASR R11,0
USING *,R11
ESPIE RESET,=F'0'
ESPIE SET,ESPIE_EXIT,9,PARAM=SPI3
TEST =PL16'1234567890123456789012345678901'
ABEND 103
SPI3 DS 0H
BASR R11,0
USING *,R11
ESPIE RESET,=F'0'
ESPIE SET,ESPIE_EXIT,9,PARAM=SPI4
TEST =PL16'-1234567890123456789012345678901'
ABEND 104
SPI4 DS 0H
BASR R11,0
USING *,R11
ESPIE RESET,=F'0'
RT1 END
ESPIE_EXIT DS 0H
USING *,R15
USING EPIE,R1
L R0,EPIEPARM
ST R0,EPIEPSW+4
BR R14
DROP R15,R1
IHAEPIE
END