Artifact bcfdd1a9f305d57aad17bc19aafd22ba1f5ca66baf5c6dcfeb9d5343b6b38155:

• File psl-1983/3-1/kernel/20/arith.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: 16561) [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
; (!*ENTRY TWOARGDISPATCH EXPR 2)
L1341:	intern L1341
 LDB 4,L1339
 LDB 3,L1340
 JRST L1342
L1339:	point 6,2,5
L1340:	point 6,1,5
; (!*ENTRY TWOARGDISPATCH1 EXPR 4)
L1342:	intern L1342
 CAIE 3,63
 JRST L1343
 SETZM 3
L1343: CAIE 4,63
 JRST L1344
 SETZM 4
L1344: CAILE 3,3
 JRST L1345
 CAILE 4,3
 JRST L1345
 LSH 3,2
 ADDM 3,4
 POP 15,3
 CAIL 4,0
 CAILE 4,15
 JRST L1346
 JRST @L1347-0(4)
L1347:   IFIW L1348
   IFIW L1349
   IFIW L1350
   IFIW L1351
   IFIW L1352
   IFIW L1353
   IFIW L1350
   IFIW L1354
   IFIW L1350
   IFIW L1350
   IFIW L1350
   IFIW L1350
   IFIW L1355
   IFIW L1356
   IFIW L1350
   IFIW L1357
L1346:L1350: JRST L1358
L1352: TLZ 1,258048
 MOVE 1,1(1)
 MOVE 6,0(3)
 JRST 0(6)
L1353: TLZ 1,258048
 MOVE 1,1(1)
L1349: TLZ 2,258048
 MOVE 2,1(2)
L1348: MOVE 6,0(3)
 JRST 0(6)
L1354: TLZ 1,258048
 MOVE 1,1(1)
L1351: PUSH 15,3
 PUSH 15,2
 PUSHJ 15,L1359
 POP 15,2
 POP 15,3
 MOVE 6,1(3)
 JRST 0(6)
L1356: TLZ 2,258048
 MOVE 2,1(2)
L1355: PUSH 15,3
 PUSH 15,1
 MOVE 1,2
 PUSHJ 15,L1359
 MOVE 2,1
 POP 15,1
 POP 15,3
 MOVE 6,1(3)
 JRST 0(6)
L1357: MOVE 6,1(3)
 JRST 0(6)
L1345: POP 15,3
 JRST L1358
L1361:	33
	byte(7)78,111,110,45,110,117,109,101,114,105,99,32,97,114,103,117,109,101,110,116,32,105,110,32,97,114,105,116,104,109,101,116,105,99,0
; (!*ENTRY TWOARGERROR EXPR 3)
L1358:	intern L1358
 PUSH 15,3
 MOVE 3,2
 MOVE 2,1
 MOVE 1,0(15)
 MOVE 1,2(1)
 PUSHJ 15,SYMFNC+235
 MOVE 3,1
 MOVE 2,L1360
 HRRZI 1,99
 ADJSP 15,-1
 JRST SYMFNC+236
L1360:	<4_30>+<1_18>+L1361
L1363:	33
	byte(7)78,111,110,45,105,110,116,101,103,101,114,32,97,114,103,117,109,101,110,116,32,105,110,32,97,114,105,116,104,109,101,116,105,99,0
; (!*ENTRY NONINTEGER2ERROR EXPR 3)
L1364:	intern L1364
 PUSH 15,3
 MOVE 3,2
 MOVE 2,1
 MOVE 1,0(15)
 MOVE 1,2(1)
 PUSHJ 15,SYMFNC+235
 MOVE 3,1
 MOVE 2,L1362
 HRRZI 1,99
 ADJSP 15,-1
 JRST SYMFNC+236
L1362:	<4_30>+<1_18>+L1363
L1366:	33
	byte(7)78,111,110,45,105,110,116,101,103,101,114,32,97,114,103,117,109,101,110,116,32,105,110,32,97,114,105,116,104,109,101,116,105,99,0
; (!*ENTRY NONINTEGER1ERROR EXPR 2)
L1367:	intern L1367
 PUSH 15,2
 MOVE 2,1
 MOVE 1,0(15)
 MOVE 1,2(1)
 PUSHJ 15,SYMFNC+249
 MOVE 3,1
 MOVE 2,L1365
 HRRZI 1,99
 ADJSP 15,-1
 JRST SYMFNC+236
L1365:	<4_30>+<1_18>+L1366
; (!*ENTRY ONEARGDISPATCH EXPR 1)
L1369:	intern L1369
 LDB 2,L1368
 JRST L1370
L1368:	point 6,1,5
; (!*ENTRY ONEARGDISPATCH1 EXPR 2)
L1370:	intern L1370
 CAIE 2,63
 JRST L1371
 SETZM 2
L1371: POP 15,3
 CAIL 2,0
 CAILE 2,3
 JRST L1372
 JRST @L1373-0(2)
L1373:   IFIW L1374
   IFIW L1375
   IFIW L1376
   IFIW L1377
L1372:L1376: JRST L1378
L1375: TLZ 1,258048
 MOVE 1,1(1)
L1374: MOVE 6,0(3)
 JRST 0(6)
L1377: MOVE 6,1(3)
 JRST 0(6)
L1380:	33
	byte(7)78,111,110,45,110,117,109,101,114,105,99,32,97,114,103,117,109,101,110,116,32,105,110,32,97,114,105,116,104,109,101,116,105,99,0
; (!*ENTRY ONEARGERROR EXPR 3)
L1378:	intern L1378
 MOVE 2,1
 MOVE 1,2(3)
 PUSHJ 15,SYMFNC+249
 MOVE 3,1
 MOVE 2,L1379
 HRRZI 1,99
 JRST SYMFNC+236
L1379:	<4_30>+<1_18>+L1380
; (!*ENTRY ONEARGPREDICATEDISPATCH EXPR 1)
L1382:	intern L1382
 LDB 2,L1381
 JRST L1383
L1381:	point 6,1,5
; (!*ENTRY ONEARGPREDICATEDISPATCH1 EXPR 2)
L1383:	intern L1383
 CAIE 2,63
 JRST L1384
 SETZM 2
L1384: POP 15,3
 CAIL 2,0
 CAILE 2,3
 JRST L1385
 JRST @L1386-0(2)
L1386:   IFIW L1387
   IFIW L1388
   IFIW L1389
   IFIW L1390
L1385:L1389: MOVE 1,0
 POPJ 15,0
L1388: TLZ 1,258048
 MOVE 1,1(1)
L1387: MOVE 6,0(3)
 JRST 0(6)
L1390: MOVE 6,1(3)
 JRST 0(6)
; (!*ENTRY MAKEFIXNUM EXPR 1)
L1391:	intern L1391
 ADJSP 15,2
 MOVEM 1,0(15)
 PUSHJ 15,SYMFNC+139
 MOVEM 1,-1(15)
 MOVE 6,0(15)
 MOVEM 6,1(1)
 TLZ 1,258048
 TLO 1,4096
 ADJSP 15,-2
 POPJ 15,0
L1393:	24
	byte(7)66,105,103,110,117,109,115,32,110,111,116,32,121,101,116,32,115,117,112,112,111,114,116,101,100,0
; (!*ENTRY BIGFLOATFIX EXPR 1)
L1394:	intern L1394
 MOVE 1,L1392
 JRST SYMFNC+156
L1392:	<4_30>+<1_18>+L1393
	0
; (!*ENTRY RETURNNIL EXPR 0)
L1395:	intern L1395
 MOVE 1,0
 POPJ 15,0
	1
; (!*ENTRY RETURNFIRSTARG EXPR 1)
L1396:	intern L1396
 POPJ 15,0
	extern L1397
	extern L1398
; (!*ENTRY STATICINTFLOAT EXPR 1)
L1359:	intern L1359
 MOVE 2,1
 SETZM 1
 ADDI 1,1+L1397
 FLTR 2,2
 MOVEM 2,0(1)
 SETZM 1(1)
 MOVE 1,L1398
 POPJ 15,0
	2
; (!*ENTRY PLUS2 EXPR 2)
PLUS2:	intern PLUS2
 PUSHJ 15,L1341
	L1399
	L1400
	<30_30>+243
; (!*ENTRY INTPLUS2 EXPR 2)
L1399:	intern L1399
 MOVE 4,1
 ADDM 2,4
 MOVE 1,4
 MOVE 3,1
 MOVE 6,1
 LDB 1,L1401
 TDNE 1,L1402
 TDO 1,L1403
 CAMN 1,3
 JRST L1404
 MOVE 1,0
 JRST L1405
L1404: MOVE 1,SYMVAL+84
L1405: CAMN 1,0
 JRST L1406
 MOVE 1,4
 POPJ 15,0
L1406: MOVE 1,4
 JRST L1391
L1401:	point 31,6,35
L1402:	1073741824
L1403:	-1073741824
; (!*ENTRY FLOATPLUS2 EXPR 2)
L1400:	intern L1400
 ADJSP 15,3
 MOVEM 1,0(15)
 MOVEM 2,-1(15)
 PUSHJ 15,SYMFNC+388
 MOVEM 1,-2(15)
 MOVE 3,-1(15)
 TLZ 3,258048
 AOS 3
 MOVE 2,0(15)
 TLZ 2,258048
 AOS 2
 AOS 1
 DMOVE 3,0(3)
 DFAD 3,0(2)
 DMOVEM 3,0(1)
 MOVE 1,-2(15)
 TLZ 1,258048
 TLO 1,12288
 ADJSP 15,-3
 POPJ 15,0
	2
; (!*ENTRY DIFFERENCE EXPR 2)
L1407:	intern L1407
 PUSHJ 15,L1341
	L1408
	L1409
	<30_30>+238
; (!*ENTRY INTDIFFERENCE EXPR 2)
L1408:	intern L1408
 MOVE 4,1
 MOVN 1,2
 ADDM 1,4
 MOVE 1,4
 MOVE 3,1
 MOVE 6,1
 LDB 1,L1410
 TDNE 1,L1411
 TDO 1,L1412
 CAMN 1,3
 JRST L1413
 MOVE 1,0
 JRST L1414
L1413: MOVE 1,SYMVAL+84
L1414: CAMN 1,0
 JRST L1415
 MOVE 1,4
 POPJ 15,0
L1415: MOVE 1,4
 JRST L1391
L1410:	point 31,6,35
L1411:	1073741824
L1412:	-1073741824
; (!*ENTRY FLOATDIFFERENCE EXPR 2)
L1409:	intern L1409
 ADJSP 15,3
 MOVEM 1,0(15)
 MOVEM 2,-1(15)
 PUSHJ 15,SYMFNC+388
 MOVEM 1,-2(15)
 MOVE 3,-1(15)
 TLZ 3,258048
 AOS 3
 MOVE 2,0(15)
 TLZ 2,258048
 AOS 2
 AOS 1
 DMOVE 4,0(2)
 DFSB 4,0(3)
 DMOVEM 4,0(1)
 MOVE 1,-2(15)
 TLZ 1,258048
 TLO 1,12288
 ADJSP 15,-3
 POPJ 15,0
	2
; (!*ENTRY TIMES2 EXPR 2)
TIMES2:	intern TIMES2
 PUSHJ 15,L1341
	L1416
	L1417
	<30_30>+240
; (!*ENTRY INTTIMES2 EXPR 2)
L1416:	intern L1416
 ADJSP 15,2
 MOVEM 1,-1(15)
 MOVEM 2,0(15)
 MOVE 3,1
 IMUL 3,2
 MOVE 5,3
 MOVE 1,3
 MOVE 4,1
 MOVE 6,1
 LDB 1,L1418
 TDNE 1,L1419
 TDO 1,L1420
 CAMN 1,4
 JRST L1421
 MOVE 1,0
 JRST L1422
L1421: MOVE 1,SYMVAL+84
L1422: CAME 1,0
 JRST L1423
 MOVE 1,3
 ADJSP 15,-2
 JRST L1391
L1423: MOVE 1,3
 ADJSP 15,-2
 POPJ 15,0
L1418:	point 31,6,35
L1419:	1073741824
L1420:	-1073741824
; (!*ENTRY FLOATTIMES2 EXPR 2)
L1417:	intern L1417
 ADJSP 15,3
 MOVEM 1,0(15)
 MOVEM 2,-1(15)
 PUSHJ 15,SYMFNC+388
 MOVEM 1,-2(15)
 MOVE 3,-1(15)
 TLZ 3,258048
 AOS 3
 MOVE 2,0(15)
 TLZ 2,258048
 AOS 2
 AOS 1
 DMOVE 3,0(3)
 DFMP 3,0(2)
 DMOVEM 3,0(1)
 MOVE 1,-2(15)
 TLZ 1,258048
 TLO 1,12288
 ADJSP 15,-3
 POPJ 15,0
	2
; (!*ENTRY QUOTIENT EXPR 2)
L1424:	intern L1424
 PUSHJ 15,L1341
	L1425
	L1426
	<30_30>+242
L1432:	36
	byte(7)65,116,116,101,109,112,116,32,116,111,32,100,105,118,105,100,101,32,98,121,32,122,101,114,111,32,105,110,32,81,117,111,116,105,101,110,116,0
; (!*ENTRY INTQUOTIENT EXPR 2)
L1425:	intern L1425
 ADJSP 15,4
 MOVEM 1,0(15)
 MOVEM 2,-1(15)
 MOVEM 0,-2(15)
 JUMPN 2,L1433
 PUSHJ 15,SYMFNC+234
 MOVEM 1,-3(15)
 MOVE 1,-1(15)
 PUSHJ 15,SYMFNC+234
 MOVE 3,1
 MOVE 2,-3(15)
 MOVE 1,L1427
 PUSHJ 15,SYMFNC+235
 MOVE 3,1
 MOVE 2,L1428
 HRRZI 1,99
 ADJSP 15,-4
 JRST SYMFNC+236
L1433: IDIV 1,2
 MOVEM 1,-2(15)
 MOVEM 1,-3(15)
 MOVE 6,1
 LDB 1,L1429
 TDNE 1,L1430
 TDO 1,L1431
 CAMN 1,-3(15)
 JRST L1434
 MOVE 1,0
 JRST L1435
L1434: MOVE 1,SYMVAL+84
L1435: CAME 1,0
 JRST L1436
 MOVE 1,-2(15)
 ADJSP 15,-4
 JRST L1391
L1436: MOVE 1,-2(15)
 ADJSP 15,-4
 POPJ 15,0
L1429:	point 31,6,35
L1430:	1073741824
L1431:	-1073741824
L1428:	<4_30>+<1_18>+L1432
L1427:	<30_30>+242
L1439:	36
	byte(7)65,116,116,101,109,112,116,32,116,111,32,100,105,118,105,100,101,32,98,121,32,122,101,114,111,32,105,110,32,81,117,111,116,105,101,110,116,0
; (!*ENTRY FLOATQUOTIENT EXPR 2)
L1426:	intern L1426
 ADJSP 15,4
 MOVEM 1,0(15)
 MOVEM 2,-1(15)
 MOVEM 0,-2(15)
 MOVE 1,2
 PUSHJ 15,L1440
 CAMN 1,0
 JRST L1441
 MOVE 1,0(15)
 PUSHJ 15,SYMFNC+234
 MOVEM 1,-3(15)
 MOVE 1,-1(15)
 PUSHJ 15,SYMFNC+234
 MOVE 3,1
 MOVE 2,-3(15)
 MOVE 1,L1437
 PUSHJ 15,SYMFNC+235
 MOVE 3,1
 MOVE 2,L1438
 HRRZI 1,99
 ADJSP 15,-4
 JRST SYMFNC+236
L1441: PUSHJ 15,SYMFNC+388
 MOVEM 1,-2(15)
 MOVE 3,-1(15)
 TLZ 3,258048
 AOS 3
 MOVE 2,0(15)
 TLZ 2,258048
 AOS 2
 AOS 1
 DMOVE 4,0(2)
 DFDV 4,0(3)
 DMOVEM 4,0(1)
 MOVE 1,-2(15)
 TLZ 1,258048
 TLO 1,12288
 ADJSP 15,-4
 POPJ 15,0
L1438:	<4_30>+<1_18>+L1439
L1437:	<30_30>+242
	2
; (!*ENTRY REMAINDER EXPR 2)
L1442:	intern L1442
 PUSHJ 15,L1341
	L1443
	L1444
	<30_30>+277
L1450:	37
	byte(7)65,116,116,101,109,112,116,32,116,111,32,100,105,118,105,100,101,32,98,121,32,122,101,114,111,32,105,110,32,82,101,109,97,105,110,100,101,114,0
; (!*ENTRY INTREMAINDER EXPR 2)
L1443:	intern L1443
 ADJSP 15,4
 MOVEM 1,0(15)
 MOVEM 2,-1(15)
 MOVEM 0,-2(15)
 JUMPN 2,L1451
 PUSHJ 15,SYMFNC+234
 MOVEM 1,-3(15)
 MOVE 1,-1(15)
 PUSHJ 15,SYMFNC+234
 MOVE 3,1
 MOVE 2,-3(15)
 MOVE 1,L1445
 PUSHJ 15,SYMFNC+235
 MOVE 3,1
 MOVE 2,L1446
 HRRZI 1,99
 ADJSP 15,-4
 JRST SYMFNC+236
L1451: IDIV 1,2
 MOVE 1,2
 MOVEM 1,-2(15)
 MOVEM 1,-3(15)
 MOVE 6,1
 LDB 1,L1447
 TDNE 1,L1448
 TDO 1,L1449
 CAMN 1,-3(15)
 JRST L1452
 MOVE 1,0
 JRST L1453
L1452: MOVE 1,SYMVAL+84
L1453: CAME 1,0
 JRST L1454
 MOVE 1,-2(15)
 ADJSP 15,-4
 JRST L1391
L1454: MOVE 1,-2(15)
 ADJSP 15,-4
 POPJ 15,0
L1447:	point 31,6,35
L1448:	1073741824
L1449:	-1073741824
L1446:	<4_30>+<1_18>+L1450
L1445:	<30_30>+277
; (!*ENTRY FLOATREMAINDER EXPR 2)
L1444:	intern L1444
 ADJSP 15,3
 MOVEM 1,0(15)
 MOVEM 2,-1(15)
 PUSHJ 15,SYMFNC+388
 MOVEM 1,-2(15)
 MOVE 3,-1(15)
 TLZ 3,258048
 AOS 3
 MOVE 2,0(15)
 TLZ 2,258048
 AOS 2
 AOS 1
 DMOVE 4,0(2)
 DFDV 4,0(3)
 DMOVEM 4,0(1)
 MOVE 3,-1(15)
 TLZ 3,258048
 AOS 3
 MOVE 2,-2(15)
 AOS 2
 MOVE 1,2
 DMOVE 3,0(3)
 DFMP 3,0(2)
 DMOVEM 3,0(1)
 MOVE 3,-2(15)
 AOS 3
 MOVE 2,0(15)
 TLZ 2,258048
 AOS 2
 MOVE 1,3
 DMOVE 4,0(2)
 DFSB 4,0(3)
 DMOVEM 4,0(1)
 MOVE 1,-2(15)
 TLZ 1,258048
 TLO 1,12288
 ADJSP 15,-3
 POPJ 15,0
	2
; (!*ENTRY LAND EXPR 2)
LAND:	intern LAND
 PUSHJ 15,L1341
	L1455
	L1364
	<30_30>+423
; (!*ENTRY INTLAND EXPR 2)
L1455:	intern L1455
 AND 1,2
 MOVE 4,1
 MOVE 3,1
 MOVE 6,1
 LDB 1,L1456
 TDNE 1,L1457
 TDO 1,L1458
 CAMN 1,3
 JRST L1459
 MOVE 1,0
 JRST L1460
L1459: MOVE 1,SYMVAL+84
L1460: CAMN 1,0
 JRST L1461
 MOVE 1,4
 POPJ 15,0
L1461: MOVE 1,4
 JRST L1391
L1456:	point 31,6,35
L1457:	1073741824
L1458:	-1073741824
	2
; (!*ENTRY LOR EXPR 2)
LOR:	intern LOR
 PUSHJ 15,L1341
	INTLOR
	L1364
	<30_30>+424
; (!*ENTRY INTLOR EXPR 2)
INTLOR:	intern INTLOR
 IOR 1,2
 MOVE 4,1
 MOVE 3,1
 MOVE 6,1
 LDB 1,L1462
 TDNE 1,L1463
 TDO 1,L1464
 CAMN 1,3
 JRST L1465
 MOVE 1,0
 JRST L1466
L1465: MOVE 1,SYMVAL+84
L1466: CAMN 1,0
 JRST L1467
 MOVE 1,4
 POPJ 15,0
L1467: MOVE 1,4
 JRST L1391
L1462:	point 31,6,35
L1463:	1073741824
L1464:	-1073741824
	2
; (!*ENTRY LXOR EXPR 2)
LXOR:	intern LXOR
 PUSHJ 15,L1341
	L1468
	L1364
	<30_30>+425
; (!*ENTRY INTLXOR EXPR 2)
L1468:	intern L1468
 XOR 1,2
 MOVE 4,1
 MOVE 3,1
 MOVE 6,1
 LDB 1,L1469
 TDNE 1,L1470
 TDO 1,L1471
 CAMN 1,3
 JRST L1472
 MOVE 1,0
 JRST L1473
L1472: MOVE 1,SYMVAL+84
L1473: CAMN 1,0
 JRST L1474
 MOVE 1,4
 POPJ 15,0
L1474: MOVE 1,4
 JRST L1391
L1469:	point 31,6,35
L1470:	1073741824
L1471:	-1073741824
	2
; (!*ENTRY LSHIFT EXPR 2)
LSHIFT:	intern LSHIFT
 PUSHJ 15,L1341
	L1475
	L1364
	<30_30>+426
; (!*ENTRY INTLSHIFT EXPR 2)
L1475:	intern L1475
 ADJSP 15,2
 MOVEM 1,-1(15)
 MOVEM 2,0(15)
 MOVE 3,1
 LSH 3,0(2)
 MOVE 5,3
 MOVE 1,3
 MOVE 4,1
 MOVE 6,1
 LDB 1,L1476
 TDNE 1,L1477
 TDO 1,L1478
 CAMN 1,4
 JRST L1479
 MOVE 1,0
 JRST L1480
L1479: MOVE 1,SYMVAL+84
L1480: CAME 1,0
 JRST L1481
 MOVE 1,3
 ADJSP 15,-2
 JRST L1391
L1481: MOVE 1,3
 ADJSP 15,-2
 POPJ 15,0
L1476:	point 31,6,35
L1477:	1073741824
L1478:	-1073741824
	2
; (!*ENTRY GREATERP EXPR 2)
L1482:	intern L1482
 PUSHJ 15,L1341
	L1483
	L1484
	<30_30>+237
; (!*ENTRY INTGREATERP EXPR 2)
L1483:	intern L1483
 CAMLE 1,2
 JRST L1485
 MOVE 1,0
 POPJ 15,0
L1485: MOVE 1,SYMVAL+84
 POPJ 15,0
; (!*ENTRY FLOATGREATERP EXPR 2)
L1484:	intern L1484
 TLZ 2,258048
 AOS 2
 TLZ 1,258048
 AOS 1
 DMOVE 3,0(2)
 CAMGE 3,0(1)
 JRST L1486
 CAMN 3,0(1)
 CAML 4,1(1)
 MOVE 1,0
L1486: CAMN 1,0
 JRST L1487
 MOVE 1,SYMVAL+84
L1487: POPJ 15,0
	2
; (!*ENTRY LESSP EXPR 2)
LESSP:	intern LESSP
 PUSHJ 15,L1341
	L1488
	L1489
	<30_30>+282
; (!*ENTRY INTLESSP EXPR 2)
L1488:	intern L1488
 CAMGE 1,2
 JRST L1490
 MOVE 1,0
 POPJ 15,0
L1490: MOVE 1,SYMVAL+84
 POPJ 15,0
; (!*ENTRY FLOATLESSP EXPR 2)
L1489:	intern L1489
 TLZ 2,258048
 AOS 2
 TLZ 1,258048
 AOS 1
 DMOVE 3,0(2)
 CAMLE 3,0(1)
 JRST L1491
 CAMN 3,0(1)
 CAMG 4,1(1)
 MOVE 1,0
L1491: CAMN 1,0
 JRST L1492
 MOVE 1,SYMVAL+84
L1492: POPJ 15,0
	1
; (!*ENTRY ADD1 EXPR 1)
ADD1:	intern ADD1
 PUSHJ 15,L1369
	L1493
	L1494
	<30_30>+241
; (!*ENTRY INTADD1 EXPR 1)
L1493:	intern L1493
 MOVE 3,1
 AOS 3
 MOVE 1,3
 MOVE 2,1
 MOVE 6,1
 LDB 1,L1495
 TDNE 1,L1496
 TDO 1,L1497
 CAMN 1,2
 JRST L1498
 MOVE 1,0
 JRST L1499
L1498: MOVE 1,SYMVAL+84
L1499: CAMN 1,0
 JRST L1500
 MOVE 1,3
 POPJ 15,0
L1500: MOVE 1,3
 JRST L1391
L1495:	point 31,6,35
L1496:	1073741824
L1497:	-1073741824
L1502:	1
	1.0
	0
; (!*ENTRY FLOATADD1 EXPR 1)
L1494:	intern L1494
 MOVE 2,L1501
 JRST L1400
L1501:	<3_30>+<1_18>+L1502
	1
; (!*ENTRY SUB1 EXPR 1)
SUB1:	intern SUB1
 PUSHJ 15,L1369
	L1503
	L1504
	<30_30>+349
; (!*ENTRY INTSUB1 EXPR 1)
L1503:	intern L1503
 MOVE 3,1
 SOS 3
 MOVE 1,3
 MOVE 2,1
 MOVE 6,1
 LDB 1,L1505
 TDNE 1,L1506
 TDO 1,L1507
 CAMN 1,2
 JRST L1508
 MOVE 1,0
 JRST L1509
L1508: MOVE 1,SYMVAL+84
L1509: CAMN 1,0
 JRST L1510
 MOVE 1,3
 POPJ 15,0
L1510: MOVE 1,3
 JRST L1391
L1505:	point 31,6,35
L1506:	1073741824
L1507:	-1073741824
L1512:	1
	1.0
	0
; (!*ENTRY FLOATSUB1 EXPR 1)
L1504:	intern L1504
 MOVE 2,L1511
 JRST L1409
L1511:	<3_30>+<1_18>+L1512
	1
; (!*ENTRY LNOT EXPR 1)
LNOT:	intern LNOT
 PUSHJ 15,L1369
	L1513
	L1367
	<30_30>+428
; (!*ENTRY INTLNOT EXPR 1)
L1513:	intern L1513
 SETCMM 1
 MOVE 3,1
 MOVE 2,1
 MOVE 6,1
 LDB 1,L1514
 TDNE 1,L1515
 TDO 1,L1516
 CAMN 1,2
 JRST L1517
 MOVE 1,0
 JRST L1518
L1517: MOVE 1,SYMVAL+84
L1518: CAMN 1,0
 JRST L1519
 MOVE 1,3
 POPJ 15,0
L1519: MOVE 1,3
 JRST L1391
L1514:	point 31,6,35
L1515:	1073741824
L1516:	-1073741824
	1
; (!*ENTRY MINUS EXPR 1)
MINUS:	intern MINUS
 PUSHJ 15,L1369
	L1520
	L1521
	<30_30>+274
; (!*ENTRY INTMINUS EXPR 1)
L1520:	intern L1520
 MOVNS 1
 MOVE 3,1
 MOVE 2,1
 MOVE 6,1
 LDB 1,L1522
 TDNE 1,L1523
 TDO 1,L1524
 CAMN 1,2
 JRST L1525
 MOVE 1,0
 JRST L1526
L1525: MOVE 1,SYMVAL+84
L1526: CAMN 1,0
 JRST L1527
 MOVE 1,3
 POPJ 15,0
L1527: MOVE 1,3
 JRST L1391
L1522:	point 31,6,35
L1523:	1073741824
L1524:	-1073741824
L1529:	1
	0.0
	0
; (!*ENTRY FLOATMINUS EXPR 1)
L1521:	intern L1521
 MOVE 2,1
 MOVE 1,L1528
 JRST L1409
L1528:	<3_30>+<1_18>+L1529
	1
; (!*ENTRY FIX EXPR 1)
FIX:	intern FIX
 PUSHJ 15,L1369
	L1396
	L1530
	<30_30>+429
; (!*ENTRY FLOATFIX EXPR 1)
L1530:	intern L1530
 ADJSP 15,3
 MOVEM 1,0(15)
 TLZ 1,258048
 AOS 1
 FIX 1,0(1)
 MOVEM 1,-1(15)
 MOVEM 1,-2(15)
 MOVE 6,1
 LDB 1,L1531
 TDNE 1,L1532
 TDO 1,L1533
 CAMN 1,-2(15)
 JRST L1534
 MOVE 1,0
 JRST L1535
L1534: MOVE 1,SYMVAL+84
L1535: CAMN 1,0
 JRST L1536
 MOVE 1,-1(15)
 JRST L1537
L1536: MOVE 1,-1(15)
 ADJSP 15,-3
 JRST L1391
L1537: ADJSP 15,-3
 POPJ 15,0
L1531:	point 31,6,35
L1532:	1073741824
L1533:	-1073741824
	1
; (!*ENTRY FLOAT EXPR 1)
FLOAT:	intern FLOAT
 PUSHJ 15,L1369
	L1538
	L1396
	<30_30>+430
; (!*ENTRY FLOATINTARG EXPR 1)
L1538:	intern L1538
 ADJSP 15,2
 MOVEM 1,0(15)
 PUSHJ 15,SYMFNC+388
 MOVEM 1,-1(15)
 MOVE 2,0(15)
 AOS 1
 FLTR 2,2
 MOVEM 2,0(1)
 SETZM 1(1)
 MOVE 1,-1(15)
 TLZ 1,258048
 TLO 1,12288
 ADJSP 15,-2
 POPJ 15,0
	1
; (!*ENTRY MINUSP EXPR 1)
MINUSP:	intern MINUSP
 PUSHJ 15,L1382
	L1539
	L1540
	<30_30>+239
; (!*ENTRY INTMINUSP EXPR 1)
L1539:	intern L1539
 JUMPL 1,L1541
 MOVE 1,0
 POPJ 15,0
L1541: MOVE 1,SYMVAL+84
 POPJ 15,0
L1543:	1
	0.0
	0
; (!*ENTRY FLOATMINUSP EXPR 1)
L1540:	intern L1540
 MOVE 2,L1542
 JRST L1489
L1542:	<3_30>+<1_18>+L1543
	1
; (!*ENTRY ZEROP EXPR 1)
ZEROP:	intern ZEROP
 PUSHJ 15,L1382
	L1544
	L1440
	<30_30>+276
; (!*ENTRY INTZEROP EXPR 1)
L1544:	intern L1544
 JUMPE 1,L1545
 MOVE 1,0
 POPJ 15,0
L1545: MOVE 1,SYMVAL+84
 POPJ 15,0
L1547:	1
	0.0
	0
; (!*ENTRY FLOATZEROP EXPR 1)
L1440:	intern L1440
 MOVE 2,L1546
 JRST SYMFNC+194
L1546:	<3_30>+<1_18>+L1547
	1
; (!*ENTRY ONEP EXPR 1)
ONEP:	intern ONEP
 PUSHJ 15,L1382
	L1548
	L1549
	<30_30>+431
; (!*ENTRY INTONEP EXPR 1)
L1548:	intern L1548
 CAIN 1,1
 JRST L1550
 MOVE 1,0
 POPJ 15,0
L1550: MOVE 1,SYMVAL+84
 POPJ 15,0
L1552:	1
	1.0
	0
; (!*ENTRY FLOATONEP EXPR 1)
L1549:	intern L1549
 MOVE 2,L1551
 JRST SYMFNC+194
L1551:	<3_30>+<1_18>+L1552
	end