reduce-historical/psl-1983/20-tests/dfield.mac

	radix 10
STACK:	block 301
	intern STACK
L0001:	STACK+0
	intern L0001
L0002:	STACK+300
	intern L0002
L0004:	block 10
	intern L0004
ARG1:	0
	intern ARG1
ARG2:	0
	intern ARG2
ARG3:	0
	intern ARG3
ARG4:	0
	intern ARG4
ARG5:	0
	intern ARG5
ARG6:	0
	intern ARG6
ARG7:	0
	intern ARG7
ARG8:	0
	intern ARG8
ARG9:	0
	intern ARG9
ARG10:	0
	intern ARG10
ARG11:	0
	intern ARG11
ARG12:	0
	intern ARG12
ARG13:	0
	intern ARG13
ARG14:	0
	intern ARG14
ARG15:	0
	intern ARG15
SYMPRP:	intern SYMPRP
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
	<30_31>+128
SYMVAL:	intern SYMVAL
	<29_31>+0
	<29_31>+1
	<29_31>+2
	<29_31>+3
	<29_31>+4
	<29_31>+5
	<29_31>+6
	<29_31>+7
	<29_31>+8
	<29_31>+9
	<29_31>+10
	<29_31>+11
	<29_31>+12
	<29_31>+13
	<29_31>+14
	<29_31>+15
	<29_31>+16
	<29_31>+17
	<29_31>+18
	<29_31>+19
	<29_31>+20
	<29_31>+21
	<29_31>+22
	<29_31>+23
	<29_31>+24
	<29_31>+25
	<29_31>+26
	<29_31>+27
	<29_31>+28
	<29_31>+29
	<29_31>+30
	<29_31>+31
	<29_31>+32
	<29_31>+33
	<29_31>+34
	<29_31>+35
	<29_31>+36
	<29_31>+37
	<29_31>+38
	<29_31>+39
	<29_31>+40
	<29_31>+41
	<29_31>+42
	<29_31>+43
	<29_31>+44
	<29_31>+45
	<29_31>+46
	<29_31>+47
	<29_31>+48
	<29_31>+49
	<29_31>+50
	<29_31>+51
	<29_31>+52
	<29_31>+53
	<29_31>+54
	<29_31>+55
	<29_31>+56
	<29_31>+57
	<29_31>+58
	<29_31>+59
	<29_31>+60
	<29_31>+61
	<29_31>+62
	<29_31>+63
	<29_31>+64
	<29_31>+65
	<29_31>+66
	<29_31>+67
	<29_31>+68
	<29_31>+69
	<29_31>+70
	<29_31>+71
	<29_31>+72
	<29_31>+73
	<29_31>+74
	<29_31>+75
	<29_31>+76
	<29_31>+77
	<29_31>+78
	<29_31>+79
	<29_31>+80
	<29_31>+81
	<29_31>+82
	<29_31>+83
	<30_31>+84
	<29_31>+85
	<29_31>+86
	<29_31>+87
	<29_31>+88
	<29_31>+89
	<29_31>+90
	<29_31>+91
	<29_31>+92
	<29_31>+93
	<29_31>+94
	<29_31>+95
	<29_31>+96
	<29_31>+97
	<29_31>+98
	<29_31>+99
	<29_31>+100
	<29_31>+101
	<29_31>+102
	<29_31>+103
	<29_31>+104
	<29_31>+105
	<29_31>+106
	<29_31>+107
	<29_31>+108
	<29_31>+109
	<29_31>+110
	<29_31>+111
	<29_31>+112
	<29_31>+113
	<29_31>+114
	<29_31>+115
	<29_31>+116
	<29_31>+117
	<29_31>+118
	<29_31>+119
	<29_31>+120
	<29_31>+121
	<29_31>+122
	<29_31>+123
	<29_31>+124
	<29_31>+125
	<29_31>+126
	<29_31>+127
	<30_31>+128
	<29_31>+129
	<29_31>+130
	<29_31>+131
	<29_31>+132
	<29_31>+133
	<29_31>+134
	<29_31>+135
	<29_31>+136
	<29_31>+137
	<29_31>+138
	<29_31>+139
	<29_31>+140
	<29_31>+141
	<29_31>+142
	<29_31>+143
	<29_31>+144
	<29_31>+145
	<29_31>+146
	<29_31>+147
	<29_31>+148
	<29_31>+149
	<29_31>+150
	block 50
SYMNAM:	intern SYMNAM
	extern L0063
	<4_31>+L0063
	extern L0064
	<4_31>+L0064
	extern L0065
	<4_31>+L0065
	extern L0066
	<4_31>+L0066
	extern L0067
	<4_31>+L0067
	extern L0068
	<4_31>+L0068
	extern L0069
	<4_31>+L0069
	extern L0070
	<4_31>+L0070
	extern L0071
	<4_31>+L0071
	extern L0072
	<4_31>+L0072
	extern L0073
	<4_31>+L0073
	extern L0074
	<4_31>+L0074
	extern L0075
	<4_31>+L0075
	extern L0076
	<4_31>+L0076
	extern L0077
	<4_31>+L0077
	extern L0078
	<4_31>+L0078
	extern L0079
	<4_31>+L0079
	extern L0080
	<4_31>+L0080
	extern L0081
	<4_31>+L0081
	extern L0082
	<4_31>+L0082
	extern L0083
	<4_31>+L0083
	extern L0084
	<4_31>+L0084
	extern L0085
	<4_31>+L0085
	extern L0086
	<4_31>+L0086
	extern L0087
	<4_31>+L0087
	extern L0088
	<4_31>+L0088
	extern L0089
	<4_31>+L0089
	extern L0090
	<4_31>+L0090
	extern L0091
	<4_31>+L0091
	extern L0092
	<4_31>+L0092
	extern L0093
	<4_31>+L0093
	extern L0094
	<4_31>+L0094
	extern L0095
	<4_31>+L0095
	extern L0096
	<4_31>+L0096
	extern L0097
	<4_31>+L0097
	extern L0098
	<4_31>+L0098
	extern L0099
	<4_31>+L0099
	extern L0100
	<4_31>+L0100
	extern L0101
	<4_31>+L0101
	extern L0102
	<4_31>+L0102
	extern L0103
	<4_31>+L0103
	extern L0104
	<4_31>+L0104
	extern L0105
	<4_31>+L0105
	extern L0106
	<4_31>+L0106
	extern L0107
	<4_31>+L0107
	extern L0108
	<4_31>+L0108
	extern L0109
	<4_31>+L0109
	extern L0110
	<4_31>+L0110
	extern L0111
	<4_31>+L0111
	extern L0112
	<4_31>+L0112
	extern L0113
	<4_31>+L0113
	extern L0114
	<4_31>+L0114
	extern L0115
	<4_31>+L0115
	extern L0116
	<4_31>+L0116
	extern L0117
	<4_31>+L0117
	extern L0118
	<4_31>+L0118
	extern L0119
	<4_31>+L0119
	extern L0120
	<4_31>+L0120
	extern L0121
	<4_31>+L0121
	extern L0122
	<4_31>+L0122
	extern L0123
	<4_31>+L0123
	extern L0124
	<4_31>+L0124
	extern L0125
	<4_31>+L0125
	extern L0126
	<4_31>+L0126
	extern L0127
	<4_31>+L0127
	extern L0128
	<4_31>+L0128
	extern L0129
	<4_31>+L0129
	extern L0130
	<4_31>+L0130
	extern L0131
	<4_31>+L0131
	extern L0132
	<4_31>+L0132
	extern L0133
	<4_31>+L0133
	extern L0134
	<4_31>+L0134
	extern L0135
	<4_31>+L0135
	extern L0136
	<4_31>+L0136
	extern L0137
	<4_31>+L0137
	extern L0138
	<4_31>+L0138
	extern L0139
	<4_31>+L0139
	extern L0140
	<4_31>+L0140
	extern L0141
	<4_31>+L0141
	extern L0142
	<4_31>+L0142
	extern L0143
	<4_31>+L0143
	extern L0144
	<4_31>+L0144
	extern L0145
	<4_31>+L0145
	extern L0146
	<4_31>+L0146
	extern L0147
	<4_31>+L0147
	extern L0148
	<4_31>+L0148
	extern L0149
	<4_31>+L0149
	extern L0150
	<4_31>+L0150
	extern L0151
	<4_31>+L0151
	extern L0152
	<4_31>+L0152
	extern L0153
	<4_31>+L0153
	extern L0154
	<4_31>+L0154
	extern L0155
	<4_31>+L0155
	extern L0156
	<4_31>+L0156
	extern L0157
	<4_31>+L0157
	extern L0158
	<4_31>+L0158
	extern L0159
	<4_31>+L0159
	extern L0160
	<4_31>+L0160
	extern L0161
	<4_31>+L0161
	extern L0162
	<4_31>+L0162
	extern L0163
	<4_31>+L0163
	extern L0164
	<4_31>+L0164
	extern L0165
	<4_31>+L0165
	extern L0166
	<4_31>+L0166
	extern L0167
	<4_31>+L0167
	extern L0168
	<4_31>+L0168
	extern L0169
	<4_31>+L0169
	extern L0170
	<4_31>+L0170
	extern L0171
	<4_31>+L0171
	extern L0172
	<4_31>+L0172
	extern L0173
	<4_31>+L0173
	extern L0174
	<4_31>+L0174
	extern L0175
	<4_31>+L0175
	extern L0176
	<4_31>+L0176
	extern L0177
	<4_31>+L0177
	extern L0178
	<4_31>+L0178
	extern L0179
	<4_31>+L0179
	extern L0180
	<4_31>+L0180
	extern L0181
	<4_31>+L0181
	extern L0182
	<4_31>+L0182
	extern L0183
	<4_31>+L0183
	extern L0184
	<4_31>+L0184
	extern L0185
	<4_31>+L0185
	extern L0186
	<4_31>+L0186
	extern L0187
	<4_31>+L0187
	extern L0188
	<4_31>+L0188
	extern L0189
	<4_31>+L0189
	extern L0190
	<4_31>+L0190
	extern L0191
	<4_31>+L0191
	extern L0192
	<4_31>+L0192
	extern L0193
	<4_31>+L0193
	extern L0194
	<4_31>+L0194
	extern L0195
	<4_31>+L0195
	extern L0196
	<4_31>+L0196
	extern L0197
	<4_31>+L0197
	extern L0198
	<4_31>+L0198
	extern L0199
	<4_31>+L0199
	extern L0200
	<4_31>+L0200
	extern L0201
	<4_31>+L0201
	extern L0202
	<4_31>+L0202
	extern L0203
	<4_31>+L0203
	extern L0204
	<4_31>+L0204
	extern L0205
	<4_31>+L0205
	extern L0206
	<4_31>+L0206
	extern L0207
	<4_31>+L0207
	extern L0208
	<4_31>+L0208
	extern L0209
	<4_31>+L0209
	extern L0210
	<4_31>+L0210
	extern L0211
	<4_31>+L0211
	extern L0212
	<4_31>+L0212
	extern L0213
	<4_31>+L0213
	block 50
SYMFNC:	intern SYMFNC
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	JSP 10,SYMFNC+137
	extern MAIN.
	jrst MAIN.##
	extern L0008
	jrst L0008##
	extern INIT
	jrst INIT##
	extern GETC
	jrst GETC##
	extern TIMC
	jrst TIMC##
	extern PUTC
	jrst PUTC##
	extern QUIT
	jrst QUIT##
	extern PUTINT
	jrst PUTINT##
	extern L0006
	jrst L0006##
	extern FLAG
	jrst FLAG##
	extern L0007
	jrst L0007##
	extern MSG5
	jrst MSG5##
	extern TESTOK
	jrst TESTOK##
	extern L0059
	jrst L0059##
	JSP 10,SYMFNC+137
	extern L0014
	jrst L0014##
	extern L0028
	jrst L0028##
	extern L0043
	jrst L0043##
	extern L0061
	jrst L0061##
	extern L0058
	jrst L0058##
	extern L0060
	jrst L0060##
	extern L0062
	jrst L0062##
	block 50
L0003:	intern L0003
	151
	end