Artifact 492be3e70af0c1bcc3c387a2c782ce0a481486f5ed09ab3f7bf32a15025f024a:

• File psl-1983/3-1/kernel/20/prop.mac — part of check-in [eb17ceb7f6] at 2020-04-21 19:40:01 on branch master — Add Reduce 3.0 to the historical section of the archive, and some more
  files relating to version sof PSL from the early 1980s. Thanks are due to
  Paul McJones and Nelson Beebe for these, as well as to all the original
  authors.

  git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/historical@5328 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 16237) [annotate] [blame] [check-ins using] [more...]

	search monsym,macsym
	radix 10
	extern SYMNAM
	extern SYMVAL
	extern SYMFNC
	extern SYMPRP
	extern L0001
	extern L0002
	extern L0003
	extern UNDEFN
	extern LAMLNK
	1
; (!*ENTRY FUNBOUNDP EXPR 1)
L3144:	intern L3144
 LDB 11,L3142
 CAIE 11,30
 JRST L3145
 MOVE 2,1
 TLZ 2,258048
 MOVE 3,SYMFNC(2)
 MOVE 1,SYMVAL+84
 CAMN 3,UNDEFN
 JRST L3146
 MOVE 1,0
 POPJ 15,0
L3145: MOVE 2,L3143
 JRST SYMFNC+130
L3146: POPJ 15,0
L3142:	point 6,1,5
L3143:	<30_30>+519
	1
; (!*ENTRY FLAMBDALINKP EXPR 1)
L3149:	intern L3149
 LDB 11,L3147
 CAIE 11,30
 JRST L3150
 MOVE 2,1
 TLZ 2,258048
 MOVE 3,SYMFNC(2)
 MOVE 1,SYMVAL+84
 CAMN 3,LAMLNK
 JRST L3151
 MOVE 1,0
 POPJ 15,0
L3150: MOVE 2,L3148
 JRST SYMFNC+130
L3151: POPJ 15,0
L3147:	point 6,1,5
L3148:	<30_30>+752
	1
; (!*ENTRY FCODEP EXPR 1)
FCODEP:	intern FCODEP
 LDB 11,L3152
 CAIE 11,30
 JRST L3154
 MOVE 2,1
 TLZ 2,258048
 MOVE 3,SYMFNC(2)
 MOVE 1,SYMVAL+84
 CAME 3,UNDEFN
 JRST L3155
 MOVE 1,0
L3155: CAMN 1,0
 JRST L3156
 MOVE 1,SYMFNC(2)
 CAME 1,LAMLNK
 JRST L3157
 MOVE 1,0
 POPJ 15,0
L3157: MOVE 1,SYMVAL+84
 POPJ 15,0
L3154: MOVE 2,L3153
 JRST SYMFNC+130
L3156: POPJ 15,0
L3152:	point 6,1,5
L3153:	<30_30>+520
	1
; (!*ENTRY MAKEFUNBOUND EXPR 1)
L3160:	intern L3160
 LDB 11,L3158
 CAIE 11,30
 JRST L3161
 MOVE 3,1
 TLZ 3,258048
 MOVE 6,UNDEFN
 MOVEM 6,SYMFNC(3)
 MOVE 1,0
 POPJ 15,0
L3161: MOVE 2,L3159
 JRST SYMFNC+130
L3158:	point 6,1,5
L3159:	<30_30>+753
	1
; (!*ENTRY MAKEFLAMBDALINK EXPR 1)
L3164:	intern L3164
 LDB 11,L3162
 CAIE 11,30
 JRST L3165
 MOVE 3,1
 TLZ 3,258048
 MOVE 6,LAMLNK
 MOVEM 6,SYMFNC(3)
 MOVE 1,0
 POPJ 15,0
L3165: MOVE 2,L3163
 JRST SYMFNC+130
L3162:	point 6,1,5
L3163:	<30_30>+754
	2
; (!*ENTRY MAKEFCODE EXPR 2)
L3169:	intern L3169
 LDB 11,L3166
 CAIE 11,30
 JRST L3170
 LDB 11,L3167
 CAIE 11,15
 JRST L3171
 MOVE 4,1
 TLZ 4,258048
 HRRZ 3,2
 ADD 3,[23085449216]
 MOVEM 3,SYMFNC(4)
 JRST L3170
L3171: MOVE 2,L3168
 JRST SYMFNC+130
L3170: MOVE 1,0
 POPJ 15,0
L3166:	point 6,1,5
L3167:	point 6,2,5
L3168:	<30_30>+755
	1
; (!*ENTRY GETFCODEPOINTER EXPR 1)
L3174:	intern L3174
 LDB 11,L3172
 CAIE 11,30
 JRST L3175
 MOVE 2,1
 TLZ 2,258048
 MOVE 1,SYMFNC(2)
 TLZ 1,262080
 TLZ 1,258048
 TLO 1,61440
 POPJ 15,0
L3175: MOVE 2,L3173
 JRST SYMFNC+130
L3172:	point 6,1,5
L3173:	<30_30>+521
	1
; (!*ENTRY PROP EXPR 1)
PROP:	intern PROP
 LDB 11,L3176
 CAIE 11,30
 JRST L3178
 TLZ 1,258048
 MOVE 1,SYMPRP(1)
 POPJ 15,0
L3178: MOVE 2,L3177
 JRST SYMFNC+130
L3176:	point 6,1,5
L3177:	<30_30>+756
	2
; (!*ENTRY SETPROP EXPR 2)
L3181:	intern L3181
 LDB 11,L3179
 CAIE 11,30
 JRST L3182
 MOVE 3,1
 TLZ 3,258048
 MOVE 1,2
 MOVEM 1,SYMPRP(3)
 POPJ 15,0
L3182: MOVE 2,L3180
 JRST SYMFNC+130
L3179:	point 6,1,5
L3180:	<30_30>+757
	2
; (!*ENTRY FLAGP EXPR 2)
FLAGP:	intern FLAGP
 ADJSP 15,3
 MOVEM 1,-2(15)
 MOVEM 2,-1(15)
 LDB 11,L3183
 CAIE 11,30
 JRST L3185
 LDB 11,L3184
 CAIN 11,30
 JRST L3186
L3185: MOVE 1,0
 JRST L3187
L3186: MOVEM 0,0(15)
 MOVE 5,0
 MOVE 4,1
 TLZ 4,258048
 MOVE 6,SYMPRP(4)
 MOVEM 6,0(15)
 CAME 0,0(15)
 JRST L3188
 MOVE 1,0
 JRST L3187
L3188: MOVE 7,0(15)
 CAME 2,0(7)
 JRST L3189
 MOVE 1,SYMVAL+84
 JRST L3187
L3189: MOVE 5,0(15)
 MOVE 3,0(15)
 MOVE 3,1(3)
 MOVEM 3,0(15)
L3190: CAME 0,0(15)
 JRST L3191
 MOVE 1,0
 JRST L3187
L3191: MOVE 7,0(15)
 MOVE 6,-1(15)
 CAME 6,0(7)
 JRST L3192
 MOVE 7,0(15)
 MOVE 6,0(5)
 MOVEM 6,0(7)
 MOVE 6,-1(15)
 MOVEM 6,0(5)
 MOVE 1,SYMVAL+84
 JRST L3187
L3192: MOVE 5,0(15)
 MOVE 1,0(15)
 MOVE 1,1(1)
 MOVEM 1,0(15)
 JRST L3190
L3187: ADJSP 15,-3
 POPJ 15,0
L3183:	point 6,1,5
L3184:	point 6,2,5
	1
; (!*ENTRY GETFNTYPE EXPR 1)
L3194:	intern L3194
 MOVE 2,L3193
 JRST GET
L3193:	<30_30>+759
	2
; (!*ENTRY GET EXPR 2)
GET:	intern GET
 ADJSP 15,5
 MOVEM 1,-4(15)
 MOVEM 2,-3(15)
 LDB 11,L3195
 CAIE 11,30
 JRST L3198
 LDB 11,L3196
 CAIN 11,30
 JRST L3199
L3198: MOVE 1,0
 JRST L3200
L3199: MOVEM 0,-2(15)
 MOVEM 0,-1(15)
 MOVEM 0,0(15)
 MOVE 4,1
 TLZ 4,258048
 MOVE 6,SYMPRP(4)
 MOVEM 6,-2(15)
 CAME 0,-2(15)
 JRST L3201
 MOVE 1,0
 JRST L3200
L3201: MOVE 3,-2(15)
 MOVE 3,0(3)
 MOVEM 3,-1(15)
 LDB 11,L3197
 CAIE 11,9
 JRST L3202
 CAME 2,0(3)
 JRST L3202
 MOVE 1,1(3)
 JRST L3200
L3202: MOVE 6,-2(15)
 MOVEM 6,0(15)
 MOVE 5,-2(15)
 MOVE 5,1(5)
 MOVEM 5,-2(15)
L3203: CAME 0,-2(15)
 JRST L3204
 MOVE 1,0
 JRST L3200
L3204: MOVE 1,-2(15)
 MOVE 1,0(1)
 MOVEM 1,-1(15)
 LDB 11,L3195
 CAIE 11,9
 JRST L3205
 MOVE 6,-3(15)
 CAME 6,0(1)
 JRST L3205
 MOVE 7,-2(15)
 MOVE 6,0(15)
 MOVE 6,0(6)
 MOVEM 6,0(7)
 MOVE 7,0(15)
 MOVEM 1,0(7)
 MOVE 1,1(1)
 JRST L3200
L3205: MOVE 6,-2(15)
 MOVEM 6,0(15)
 MOVE 2,-2(15)
 MOVE 2,1(2)
 MOVEM 2,-2(15)
 JRST L3203
L3200: ADJSP 15,-5
 POPJ 15,0
L3195:	point 6,1,5
L3196:	point 6,2,5
L3197:	point 6,3,5
	2
; (!*ENTRY FLAG EXPR 2)
FLAG:	intern FLAG
 ADJSP 15,4
 MOVEM 1,0(15)
 MOVEM 2,-1(15)
 LDB 11,L3206
 CAIN 11,30
 JRST L3209
 MOVE 2,L3207
 MOVE 1,-1(15)
 ADJSP 15,-4
 JRST SYMFNC+130
L3209: MOVEM 0,-2(15)
 MOVEM 1,-2(15)
L3210: LDB 11,L3208
 CAIN 11,9
 JRST L3211
 MOVE 1,0
 JRST L3212
L3211: MOVE 1,-2(15)
 MOVE 1,0(1)
 MOVEM 1,-3(15)
 MOVE 2,-1(15)
 PUSHJ 15,SYMFNC+761
 MOVE 1,-2(15)
 MOVE 1,1(1)
 MOVEM 1,-2(15)
 JRST L3210
L3212: ADJSP 15,-4
 POPJ 15,0
L3206:	point 6,2,5
L3208:	point 6,-2(15),5
L3207:	<30_30>+760
	2
; (!*ENTRY FLAG1 EXPR 2)
FLAG1:	intern FLAG1
 ADJSP 15,3
 MOVEM 1,0(15)
 MOVEM 2,-1(15)
 LDB 11,L3213
 CAIN 11,30
 JRST L3215
 MOVE 2,L3214
 ADJSP 15,-3
 JRST SYMFNC+130
L3215: MOVEM 0,-2(15)
 PUSHJ 15,SYMFNC+756
 MOVEM 1,-2(15)
 MOVE 2,1
 MOVE 1,-1(15)
 PUSHJ 15,SYMFNC+303
 CAME 1,0
 JRST L3216
 MOVE 2,-2(15)
 MOVE 1,-1(15)
 PUSHJ 15,SYMFNC+151
 MOVE 2,1
 MOVE 1,0(15)
 PUSHJ 15,SYMFNC+757
L3216: MOVE 1,0
 ADJSP 15,-3
 POPJ 15,0
L3213:	point 6,1,5
L3214:	<30_30>+760
	2
; (!*ENTRY REMFLAG EXPR 2)
L3220:	intern L3220
 ADJSP 15,4
 MOVEM 1,0(15)
 MOVEM 2,-1(15)
 LDB 11,L3217
 CAIN 11,30
 JRST L3221
 MOVE 2,L3218
 MOVE 1,-1(15)
 ADJSP 15,-4
 JRST SYMFNC+130
L3221: MOVEM 0,-2(15)
 MOVEM 1,-2(15)
L3222: LDB 11,L3219
 CAIN 11,9
 JRST L3223
 MOVE 1,0
 JRST L3224
L3223: MOVE 1,-2(15)
 MOVE 1,0(1)
 MOVEM 1,-3(15)
 MOVE 2,-1(15)
 PUSHJ 15,SYMFNC+763
 MOVE 1,-2(15)
 MOVE 1,1(1)
 MOVEM 1,-2(15)
 JRST L3222
L3224: ADJSP 15,-4
 POPJ 15,0
L3217:	point 6,2,5
L3219:	point 6,-2(15),5
L3218:	<30_30>+762
	2
; (!*ENTRY REMFLAG1 EXPR 2)
L3227:	intern L3227
 PUSH 15,2
 PUSH 15,1
 LDB 11,L3225
 CAIN 11,30
 JRST L3228
 MOVE 2,L3226
 ADJSP 15,-2
 JRST SYMFNC+130
L3228: PUSHJ 15,SYMFNC+756
 MOVE 2,1
 MOVE 1,-1(15)
 PUSHJ 15,SYMFNC+334
 MOVE 2,1
 MOVE 1,0(15)
 ADJSP 15,-2
 JRST SYMFNC+757
L3225:	point 6,1,5
L3226:	<30_30>+762
	3
; (!*ENTRY PUT EXPR 3)
PUT:	intern PUT
 ADJSP 15,5
 MOVEM 1,0(15)
 MOVEM 2,-1(15)
 MOVEM 3,-2(15)
 LDB 11,L3229
 CAIN 11,30
 JRST L3232
 MOVE 2,L3230
 ADJSP 15,-5
 JRST SYMFNC+130
L3232: LDB 11,L3231
 CAIN 11,30
 JRST L3233
 MOVE 2,L3230
 MOVE 1,-1(15)
 ADJSP 15,-5
 JRST SYMFNC+130
L3233: MOVEM 0,-3(15)
 MOVEM 0,-4(15)
 PUSHJ 15,SYMFNC+756
 MOVEM 1,-3(15)
 MOVE 2,1
 MOVE 1,-1(15)
 PUSHJ 15,SYMFNC+335
 MOVE 2,1
 MOVEM 2,-4(15)
 CAME 2,0
 JRST L3234
 MOVE 2,-2(15)
 MOVE 1,-1(15)
 PUSHJ 15,SYMFNC+151
 MOVE 2,-3(15)
 PUSHJ 15,SYMFNC+151
 MOVE 2,1
 MOVE 1,0(15)
 PUSHJ 15,SYMFNC+757
 JRST L3235
L3234: MOVE 6,-2(15)
 MOVEM 6,1(2)
L3235: MOVE 1,-2(15)
 ADJSP 15,-5
 POPJ 15,0
L3229:	point 6,1,5
L3231:	point 6,2,5
L3230:	<30_30>+300
	2
; (!*ENTRY REMPROP EXPR 2)
L3238:	intern L3238
 ADJSP 15,3
 MOVEM 1,0(15)
 MOVEM 2,-1(15)
 LDB 11,L3236
 CAIE 11,30
 JRST L3239
 LDB 11,L3237
 CAIN 11,30
 JRST L3240
L3239: MOVE 1,0
 JRST L3241
L3240: MOVEM 0,-2(15)
 PUSHJ 15,SYMFNC+522
 MOVE 3,1
 MOVEM 3,-2(15)
 CAMN 3,0
 JRST L3242
 MOVE 1,0(15)
 PUSHJ 15,SYMFNC+756
 MOVE 2,1
 MOVE 1,-1(15)
 PUSHJ 15,SYMFNC+342
 MOVE 2,1
 MOVE 1,0(15)
 PUSHJ 15,SYMFNC+757
L3242: MOVE 1,-2(15)
L3241: ADJSP 15,-3
 POPJ 15,0
L3236:	point 6,1,5
L3237:	point 6,2,5
	2
; (!*ENTRY REMPROPL EXPR 2)
L3244:	intern L3244
 ADJSP 15,3
 MOVEM 1,0(15)
 MOVEM 2,-1(15)
 MOVEM 1,-2(15)
L3245: LDB 11,L3243
 CAIN 11,9
 JRST L3246
 MOVE 1,0
 JRST L3247
L3246: MOVE 1,-2(15)
 MOVE 1,0(1)
 MOVE 2,-1(15)
 PUSHJ 15,SYMFNC+764
 MOVE 1,-2(15)
 MOVE 1,1(1)
 MOVEM 1,-2(15)
 JRST L3245
L3247: ADJSP 15,-3
 POPJ 15,0
L3243:	point 6,-2(15),5
; (!*ENTRY DECLAREFLUIDORGLOBAL EXPR 2)
L3249:	intern L3249
 ADJSP 15,3
 MOVEM 1,0(15)
 MOVEM 2,-1(15)
 MOVEM 1,-2(15)
L3250: LDB 11,L3248
 CAIN 11,9
 JRST L3251
 MOVE 1,0
 JRST L3252
L3251: MOVE 1,-2(15)
 MOVE 1,0(1)
 MOVE 2,-1(15)
 PUSHJ 15,L3253
 MOVE 1,-2(15)
 MOVE 1,1(1)
 MOVEM 1,-2(15)
 JRST L3250
L3252: ADJSP 15,-3
 POPJ 15,0
L3248:	point 6,-2(15),5
L3257:	25
	byte(7)42,42,42,32,37,112,32,37,114,32,99,97,110,110,111,116,32,98,101,99,111,109,101,32,37,112,0
; (!*ENTRY DECLAREFLUIDORGLOBAL1 EXPR 2)
L3253:	intern L3253
 ADJSP 15,3
 MOVEM 1,0(15)
 MOVEM 2,-1(15)
 LDB 11,L3254
 CAIN 11,30
 JRST L3258
 MOVE 1,0
 JRST L3259
L3258: MOVEM 0,-2(15)
 MOVE 2,L3255
 PUSHJ 15,SYMFNC+522
 MOVEM 1,-2(15)
 CAME 1,0
 JRST L3260
 MOVE 3,-1(15)
 MOVE 2,L3255
 MOVE 1,0(15)
 PUSHJ 15,SYMFNC+300
 MOVE 1,0(15)
 PUSHJ 15,SYMFNC+766
 CAMN 1,0
 JRST L3261
 MOVE 2,0
 MOVE 1,0(15)
 ADJSP 15,-3
 JRST SYMFNC+262
L3261: MOVE 1,0
 JRST L3259
L3260: CAME 1,-1(15)
 JRST L3262
 MOVE 1,0
 JRST L3259
L3262: MOVE 4,-1(15)
 MOVE 3,0(15)
 MOVE 2,1
 MOVE 1,L3256
 ADJSP 15,-3
 JRST SYMFNC+418
L3259: ADJSP 15,-3
 POPJ 15,0
L3254:	point 6,1,5
L3256:	<4_30>+<1_18>+L3257
L3255:	<30_30>+767
	1
; (!*ENTRY FLUID EXPR 1)
FLUID:	intern FLUID
 MOVE 2,L3263
 JRST L3249
L3263:	<30_30>+768
	1
; (!*ENTRY FLUID1 EXPR 1)
FLUID1:	intern FLUID1
 MOVE 2,L3264
 JRST L3253
L3264:	<30_30>+768
	1
; (!*ENTRY FLUIDP EXPR 1)
FLUIDP:	intern FLUIDP
 MOVE 2,L3265
 PUSHJ 15,SYMFNC+522
 CAMN 1,L3266
 JRST L3267
 MOVE 1,0
 POPJ 15,0
L3267: MOVE 1,SYMVAL+84
 POPJ 15,0
L3266:	<30_30>+768
L3265:	<30_30>+767
	1
; (!*ENTRY GLOBAL EXPR 1)
GLOBAL:	intern GLOBAL
 MOVE 2,L3268
 JRST L3249
L3268:	<30_30>+654
	1
; (!*ENTRY GLOBAL1 EXPR 1)
L3270:	intern L3270
 MOVE 2,L3269
 JRST L3253
L3269:	<30_30>+654
	1
; (!*ENTRY GLOBALP EXPR 1)
L3273:	intern L3273
 MOVE 2,L3271
 PUSHJ 15,SYMFNC+522
 CAMN 1,L3272
 JRST L3274
 MOVE 1,0
 POPJ 15,0
L3274: MOVE 1,SYMVAL+84
 POPJ 15,0
L3272:	<30_30>+654
L3271:	<30_30>+767
	1
; (!*ENTRY UNFLUID EXPR 1)
L3276:	intern L3276
 PUSH 15,1
 PUSH 15,1
L3277: LDB 11,L3275
 CAIN 11,9
 JRST L3278
 MOVE 1,0
 JRST L3279
L3278: MOVE 1,-1(15)
 MOVE 1,0(1)
 PUSHJ 15,SYMFNC+774
 MOVE 1,-1(15)
 MOVE 1,1(1)
 MOVEM 1,-1(15)
 JRST L3277
L3279: ADJSP 15,-2
 POPJ 15,0
L3275:	point 6,-1(15),5
	1
; (!*ENTRY UNFLUID1 EXPR 1)
L3281:	intern L3281
 PUSH 15,1
 PUSHJ 15,SYMFNC+770
 CAMN 1,0
 JRST L3282
 MOVE 2,L3280
 MOVE 1,0(15)
 ADJSP 15,-1
 JRST SYMFNC+764
L3282: MOVE 1,0
 ADJSP 15,-1
 POPJ 15,0
L3280:	<30_30>+767
	1
; (!*ENTRY GETD EXPR 1)
GETD:	intern GETD
 ADJSP 15,2
 MOVEM 1,0(15)
 LDB 11,L3283
 CAIN 11,30
 JRST L3287
 MOVE 1,0
 JRST L3288
L3287: MOVE 1,SYMVAL+84
L3288: CAMN 1,0
 JRST L3289
 MOVE 1,0(15)
 PUSHJ 15,SYMFNC+519
 CAMN 1,0
 JRST L3290
 MOVE 1,0
 JRST L3291
L3290: MOVE 1,SYMVAL+84
L3291: CAMN 1,0
 JRST L3289
 MOVE 2,L3284
 MOVE 1,0(15)
 PUSHJ 15,SYMFNC+522
 CAME 1,0
 JRST L3292
 MOVE 1,L3285
L3292: MOVEM 1,-1(15)
 MOVE 1,0(15)
 PUSHJ 15,SYMFNC+752
 CAMN 1,0
 JRST L3293
 MOVE 2,L3286
 MOVE 1,0(15)
 PUSHJ 15,SYMFNC+522
 JRST L3294
L3293: MOVE 1,0(15)
 PUSHJ 15,SYMFNC+521
L3294: MOVE 2,-1(15)
 ADJSP 15,-2
 JRST SYMFNC+278
L3289: ADJSP 15,-2
 POPJ 15,0
L3283:	point 6,1,5
L3286:	<30_30>+515
L3285:	<30_30>+247
L3284:	<30_30>+759
	1
; (!*ENTRY REMD EXPR 1)
REMD:	intern REMD
 ADJSP 15,2
 MOVEM 1,0(15)
 PUSHJ 15,SYMFNC+318
 MOVE 2,1
 MOVEM 2,-1(15)
 CAMN 2,0
 JRST L3297
 MOVE 1,0(15)
 PUSHJ 15,SYMFNC+753
 MOVE 2,L3295
 MOVE 1,0(15)
 PUSHJ 15,SYMFNC+764
 MOVE 2,L3296
 MOVE 1,0(15)
 PUSHJ 15,SYMFNC+764
L3297: MOVE 1,-1(15)
 ADJSP 15,-2
 POPJ 15,0
L3296:	<30_30>+515
L3295:	<30_30>+759
L3313:	33
	byte(7)42,42,42,32,70,117,110,99,116,105,111,110,32,37,114,32,104,97,115,32,98,101,101,110,32,114,101,100,101,102,105,110,101,100,0
L3314:	37
	byte(7)73,108,108,45,102,111,114,109,101,100,32,102,117,110,99,116,105,111,110,32,101,120,112,114,101,115,115,105,111,110,32,105,110,32,80,117,116,68,0
L3315:	53
	byte(7)68,111,32,121,111,117,32,114,101,97,108,108,121,32,119,97,110,116,32,116,111,32,114,101,100,101,102,105,110,101,32,116,104,101,32,115,121,115,116,101,109,32,102,117,110,99,116,105,111,110,32,37,114,63,0
L3316:	54
	byte(7)42,42,42,32,37,114,32,104,97,115,32,110,111,116,32,98,101,101,110,32,100,101,102,105,110,101,100,44,32,98,101,99,97,117,115,101,32,105,116,32,105,115,32,102,108,97,103,103,101,100,32,76,79,83,69,0
L3317:	30
	byte(7)37,114,32,105,115,32,110,111,116,32,97,32,108,101,103,97,108,32,102,117,110,99,116,105,111,110,32,116,121,112,101,0
L3318:	<30_30>+247
	<9_30>+<1_18>+L3319
L3319:	<30_30>+254
	<9_30>+<1_18>+L3320
L3320:	<30_30>+256
	<9_30>+<1_18>+L3321
L3321:	<30_30>+258
	<30_30>+128
	3
; (!*ENTRY PUTD EXPR 3)
PUTD:	intern PUTD
 ADJSP 15,9
 MOVEM 1,0(15)
 MOVEM 2,-1(15)
 MOVEM 3,-2(15)
 LDB 11,L3298
 CAIN 11,30
 JRST L3322
 MOVE 2,L3299
 PUSHJ 15,SYMFNC+130
 JRST L3323
L3322: MOVE 2,L3300
 MOVE 1,-1(15)
 PUSHJ 15,SYMFNC+303
 CAME 1,0
 JRST L3324
 MOVE 2,-1(15)
 MOVE 1,L3301
 PUSHJ 15,SYMFNC+155
 MOVEM 1,-3(15)
 MOVE 1,0(15)
 PUSHJ 15,SYMFNC+234
 MOVEM 1,-4(15)
 MOVE 1,-1(15)
 PUSHJ 15,SYMFNC+234
 MOVEM 1,-5(15)
 MOVE 1,-2(15)
 PUSHJ 15,SYMFNC+234
 MOVE 4,1
 MOVE 3,-5(15)
 MOVE 2,-4(15)
 MOVE 1,L3299
 PUSHJ 15,SYMFNC+250
 MOVE 3,1
 MOVE 2,-3(15)
 HRRZI 1,1305
 PUSHJ 15,SYMFNC+236
 JRST L3323
L3324: MOVE 2,L3302
 MOVE 1,0(15)
 PUSHJ 15,SYMFNC+758
 CAMN 1,0
 JRST L3325
 MOVE 2,0(15)
 MOVE 1,L3303
 PUSHJ 15,SYMFNC+418
 MOVE 1,0
 JRST L3323
L3325: MOVEM 0,-3(15)
 MOVEM 0,-4(15)
 MOVEM 0,-5(15)
 MOVEM 0,-6(15)
 JSP 10,SYMFNC+443
	byte(18)0,442
 MOVE 1,0(15)
 PUSHJ 15,SYMFNC+519
 CAME 1,0
 JRST L3326
 CAMN 0,SYMVAL+571
 JRST L3327
 MOVE 6,SYMVAL+84
 MOVEM 6,-4(15)
L3327: CAMN 0,SYMVAL+570
 JRST L3326
 MOVE 2,L3304
 MOVE 1,0(15)
 PUSHJ 15,SYMFNC+758
 CAME 1,0
 JRST L3326
 MOVE 2,0(15)
 MOVE 1,L3305
 PUSHJ 15,SYMFNC+155
 PUSHJ 15,SYMFNC+441
 CAME 1,0
 JRST L3328
 MOVE 1,0
 JRST L3329
L3328: MOVE 2,L3304
 MOVE 1,0(15)
 PUSHJ 15,SYMFNC+761
L3326: LDB 11,L3306
 CAIE 11,15
 JRST L3330
 MOVE 2,-2(15)
 MOVE 1,0(15)
 PUSHJ 15,SYMFNC+755
 MOVE 2,L3307
 MOVE 1,0(15)
 PUSHJ 15,SYMFNC+764
 JRST L3331
L3330: LDB 11,L3306
 CAIE 11,30
 JRST L3332
 MOVE 1,-2(15)
 PUSHJ 15,SYMFNC+519
 CAME 1,0
 JRST L3332
 MOVE 1,-2(15)
 PUSHJ 15,SYMFNC+318
 MOVE 3,1(1)
 MOVE 2,-1(15)
 MOVE 1,0(15)
 PUSHJ 15,PUTD
 JRST L3329
L3332: CAMN 0,SYMVAL+776
 JRST L3333
 MOVE 3,-2(15)
 MOVE 2,-1(15)
 MOVE 1,0(15)
 PUSHJ 15,SYMFNC+586
 JRST L3329
L3333: MOVE 1,-2(15)
 MOVEM 1,-7(15)
 LDB 11,L3298
 CAIN 11,9
 JRST L3334
 MOVE 1,0
 JRST L3335
L3334: MOVE 1,SYMVAL+84
L3335: CAMN 1,0
 JRST L3336
 MOVE 1,-7(15)
 MOVE 1,0(1)
 CAMN 1,L3308
 JRST L3337
 MOVE 1,0
 JRST L3336
L3337: MOVE 1,SYMVAL+84
L3336: CAMN 1,0
 JRST L3338
 MOVE 3,-2(15)
 MOVE 2,L3307
 MOVE 1,0(15)
 PUSHJ 15,SYMFNC+300
 MOVE 1,0(15)
 PUSHJ 15,SYMFNC+754
 JRST L3331
L3338: MOVE 1,0(15)
 PUSHJ 15,SYMFNC+234
 MOVEM 1,-7(15)
 MOVE 1,-1(15)
 PUSHJ 15,SYMFNC+234
 MOVEM 1,-8(15)
 MOVE 1,-2(15)
 PUSHJ 15,SYMFNC+234
 MOVE 4,1
 MOVE 3,-8(15)
 MOVE 2,-7(15)
 MOVE 1,L3299
 PUSHJ 15,SYMFNC+250
 MOVE 3,1
 MOVE 2,L3309
 HRRZI 1,1105
 PUSHJ 15,SYMFNC+236
 JRST L3329
L3331: MOVE 6,-1(15)
 CAMN 6,L3310
 JRST L3339
 MOVE 3,-1(15)
 MOVE 2,L3311
 MOVE 1,0(15)
 PUSHJ 15,SYMFNC+300
 JRST L3340
L3339: MOVE 2,L3311
 MOVE 1,0(15)
 PUSHJ 15,SYMFNC+764
L3340: CAMN 0,SYMVAL+570
 JRST L3341
 MOVE 2,L3304
 MOVE 1,0(15)
 PUSHJ 15,SYMFNC+761
 JRST L3342
L3341: MOVE 2,L3304
 MOVE 1,0(15)
 PUSHJ 15,SYMFNC+763
L3342: CAMN 0,-4(15)
 JRST L3343
 MOVE 2,0(15)
 MOVE 1,L3312
 PUSHJ 15,SYMFNC+418
L3343: MOVE 1,0(15)
L3329: JSP 10,SYMFNC+447
	1
L3323: ADJSP 15,-9
 POPJ 15,0
L3298:	point 6,1,5
L3306:	point 6,-2(15),5
L3312:	<4_30>+<1_18>+L3313
L3311:	<30_30>+759
L3310:	<30_30>+247
L3309:	<4_30>+<1_18>+L3314
L3308:	<30_30>+253
L3307:	<30_30>+515
L3305:	<4_30>+<1_18>+L3315
L3304:	<30_30>+777
L3303:	<4_30>+<1_18>+L3316
L3302:	<30_30>+778
L3301:	<4_30>+<1_18>+L3317
L3300:	<9_30>+<1_18>+L3318
L3299:	<30_30>+251
	1
; (!*ENTRY CODE!-NUMBER!-OF!-ARGUMENTS EXPR 1)
L3345:	intern L3345
 MOVE 5,1
 MOVE 4,0
 LDB 11,L3344
 CAIE 11,15
 JRST L3346
 MOVE 3,1
 TLZ 3,258048
 MOVE 4,-1(3)
 JUMPL 4,L3347
 CAILE 4,15
 JRST L3347
 MOVE 1,4
 POPJ 15,0
L3347: MOVE 1,0
 POPJ 15,0
L3346: MOVE 1,0
 POPJ 15,0
L3344:	point 6,1,5
	end