Artifact a088fe70f9110fb1631360455118722041cad5d43901d4eb36941aec511a91bf:

• File psl-1983/3-1/kernel/20/types.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: 30179) [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
	1
; (!*ENTRY ID2INT EXPR 1)
ID2INT:	intern ID2INT
 LDB 11,L0004
 CAIE 11,30
 JRST L0006
 TLZ 1,258048
 POPJ 15,0
L0006: MOVE 2,L0005
 JRST SYMFNC+130
L0004:	point 6,1,5
L0005:	<30_30>+129
L0011:	15
	byte(7)112,111,115,105,116,105,118,101,32,105,110,116,101,103,101,114,0
	1
; (!*ENTRY INT2ID EXPR 1)
INT2ID:	intern INT2ID
 MOVE 5,1
 MOVE 4,0
 LDB 11,L0008
 CAIN 11,63
 JRST L0007
 CAILE 11,0
 JRST L0012
L0007: MOVE 4,1
 JUMPL 1,L0013
 HRLI 1,122880
 POPJ 15,0
L0013: MOVE 3,L0009
 MOVE 2,L0010
 JRST SYMFNC+132
L0012: MOVE 2,L0010
 JRST SYMFNC+133
L0008:	point 6,1,5
L0010:	<30_30>+131
L0009:	<4_30>+<1_18>+L0011
	1
; (!*ENTRY INT2SYS EXPR 1)
L0016:	intern L0016
 LDB 11,L0014
 CAIG 11,0
 JRST L0017
 CAIN 11,63
 JRST L0017
 LDB 11,L0014
 CAIE 11,1
 JRST L0018
 TLZ 1,258048
 MOVE 1,1(1)
 POPJ 15,0
L0018: MOVE 2,L0015
 JRST SYMFNC+133
L0017: POPJ 15,0
L0014:	point 6,1,5
L0015:	<30_30>+134
	1
; (!*ENTRY LISP2CHAR EXPR 1)
L0022:	intern L0022
 MOVE 5,1
 MOVE 4,0
 LDB 11,L0020
 CAIN 11,63
 JRST L0019
 CAILE 11,0
 JRST L0023
L0019: MOVE 2,1
 MOVE 4,2
 JUMPL 2,L0023
 CAILE 2,127
 JRST L0023
 MOVE 1,2
 POPJ 15,0
L0023: LDB 11,L0020
 CAIE 11,30
 JRST L0024
 SETZM 2
 MOVE 3,1
 TLZ 3,258048
 MOVE 1,SYMNAM(3)
 TLZ 1,258048
 AOS 1
 TLO 1,204800
 ADJBP 2,1
 LDB 1,2
 POPJ 15,0
L0024: LDB 11,L0020
 CAIE 11,4
 JRST L0025
 SETZM 2
 TLZ 1,258048
 AOS 1
 TLO 1,204800
 ADJBP 2,1
 LDB 1,2
 POPJ 15,0
L0025: MOVE 2,L0021
 JRST SYMFNC+136
L0020:	point 6,1,5
L0021:	<30_30>+135
	1
; (!*ENTRY INT2CODE EXPR 1)
L0026:	intern L0026
 TLZ 1,258048
 TLO 1,61440
 POPJ 15,0
	1
; (!*ENTRY SYS2INT EXPR 1)
L0030:	intern L0030
 MOVE 6,1
 LDB 2,L0027
 TDNE 2,L0028
 TDO 2,L0029
 CAMN 2,1
 JRST L0031
 JRST L0032
L0031: POPJ 15,0
L0027:	point 31,6,35
L0028:	1073741824
L0029:	-1073741824
; (!*ENTRY SYS2FIXN EXPR 1)
L0032:	intern L0032
 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
	1
; (!*ENTRY ID2STRING EXPR 1)
L0035:	intern L0035
 LDB 11,L0033
 CAIE 11,30
 JRST L0036
 TLZ 1,258048
 MOVE 1,SYMNAM(1)
 POPJ 15,0
L0036: MOVE 2,L0034
 JRST SYMFNC+130
L0033:	point 6,1,5
L0034:	<30_30>+140
	1
; (!*ENTRY STRING2VECTOR EXPR 1)
L0042:	intern L0042
 ADJSP 15,5
 MOVEM 1,0(15)
 LDB 11,L0037
 CAIE 11,4
 JRST L0043
 MOVEM 0,-1(15)
 MOVEM 0,-2(15)
 MOVEM 0,-3(15)
 MOVE 3,1
 TLZ 3,258048
 MOVE 6,0(3)
 LDB 2,L0038
 TDNE 2,L0039
 TDO 2,L0040
 MOVEM 2,-3(15)
 MOVE 1,2
 PUSHJ 15,SYMFNC+142
 MOVEM 1,-2(15)
 MOVE 2,0(15)
 TLZ 2,258048
 MOVEM 2,-1(15)
 MOVEM 0,-4(15)
 SETZM -4(15)
L0044: MOVE 6,-4(15)
 CAMLE 6,-3(15)
 JRST L0045
 MOVE 2,-4(15)
 MOVE 1,-1(15)
 AOS 1
 TLO 1,204800
 ADJBP 2,1
 LDB 1,2
 MOVE 2,-4(15)
 ADD 2,-2(15)
 MOVEM 1,1(2)
 AOS -4(15)
 JRST L0044
L0045: MOVE 1,-2(15)
 TLZ 1,258048
 TLO 1,32768
 JRST L0046
L0043: MOVE 2,L0041
 ADJSP 15,-5
 JRST SYMFNC+143
L0046: ADJSP 15,-5
 POPJ 15,0
L0037:	point 6,1,5
L0038:	point 30,6,35
L0039:	536870912
L0040:	-536870912
L0041:	<30_30>+141
	1
; (!*ENTRY VECTOR2STRING EXPR 1)
L0052:	intern L0052
 ADJSP 15,6
 MOVEM 1,0(15)
 LDB 11,L0047
 CAIE 11,8
 JRST L0053
 MOVEM 0,-1(15)
 MOVEM 0,-2(15)
 MOVEM 0,-3(15)
 MOVEM 0,-4(15)
 MOVE 3,1
 TLZ 3,258048
 MOVE 6,0(3)
 LDB 2,L0048
 TDNE 2,L0049
 TDO 2,L0050
 MOVEM 2,-3(15)
 MOVE 1,2
 PUSHJ 15,SYMFNC+145
 MOVEM 1,-2(15)
 MOVE 2,0(15)
 TLZ 2,258048
 MOVEM 2,-1(15)
 MOVEM 0,-5(15)
 SETZM -5(15)
L0054: MOVE 6,-5(15)
 CAMLE 6,-3(15)
 JRST L0055
 MOVE 1,-5(15)
 ADD 1,-1(15)
 MOVE 1,1(1)
 PUSHJ 15,SYMFNC+135
 MOVE 3,1
 MOVE 2,-5(15)
 MOVE 1,-2(15)
 AOS 1
 TLO 1,204800
 ADJBP 2,1
 DPB 3,2
 AOS -5(15)
 JRST L0054
L0055: MOVE 1,-2(15)
 TLZ 1,258048
 TLO 1,16384
 JRST L0056
L0053: MOVE 2,L0051
 ADJSP 15,-6
 JRST SYMFNC+146
L0056: ADJSP 15,-6
 POPJ 15,0
L0047:	point 6,1,5
L0048:	point 30,6,35
L0049:	536870912
L0050:	-536870912
L0051:	<30_30>+144
L0060:	-1
	byte(7)0
	1
; (!*ENTRY LIST2STRING EXPR 1)
L0061:	intern L0061
 ADJSP 15,4
 MOVEM 1,0(15)
 CAME 1,0
 JRST L0062
 MOVE 1,L0057
 JRST L0063
L0062: LDB 11,L0058
 CAIE 11,9
 JRST L0064
 MOVEM 0,-1(15)
 MOVEM 0,-2(15)
 PUSHJ 15,SYMFNC+148
 MOVE 2,1
 SOS 2
 MOVEM 2,-2(15)
 MOVE 1,2
 PUSHJ 15,SYMFNC+145
 MOVEM 1,-1(15)
 MOVEM 0,-3(15)
 SETZM -3(15)
L0065: MOVE 6,-3(15)
 CAMLE 6,-2(15)
 JRST L0066
 MOVE 1,0(15)
 MOVE 1,0(1)
 PUSHJ 15,SYMFNC+135
 MOVE 3,1
 MOVE 2,-3(15)
 MOVE 1,-1(15)
 AOS 1
 TLO 1,204800
 ADJBP 2,1
 DPB 3,2
 MOVE 1,0(15)
 MOVE 1,1(1)
 MOVEM 1,0(15)
 AOS -3(15)
 JRST L0065
L0066: MOVE 1,-1(15)
 TLZ 1,258048
 TLO 1,16384
 JRST L0063
L0064: MOVE 2,L0059
 ADJSP 15,-4
 JRST SYMFNC+149
L0063: ADJSP 15,-4
 POPJ 15,0
L0058:	point 6,1,5
L0059:	<30_30>+147
L0057:	<4_30>+<1_18>+L0060
	1
; (!*ENTRY STRING2LIST EXPR 1)
L0072:	intern L0072
 ADJSP 15,4
 MOVEM 1,0(15)
 LDB 11,L0067
 CAIE 11,4
 JRST L0073
 MOVEM 0,-1(15)
 MOVEM 0,-2(15)
 MOVE 2,0
 MOVEM 2,-1(15)
 MOVE 4,1
 TLZ 4,258048
 MOVE 6,0(4)
 LDB 3,L0068
 TDNE 3,L0069
 TDO 3,L0070
 MOVEM 3,-2(15)
 MOVEM 0,-3(15)
 MOVEM 3,-3(15)
L0074: SKIPGE -3(15)
 JRST L0075
 MOVE 2,-3(15)
 MOVE 1,0(15)
 TLZ 1,258048
 AOS 1
 TLO 1,204800
 ADJBP 2,1
 LDB 1,2
 MOVE 2,-1(15)
 PUSHJ 15,SYMFNC+151
 MOVEM 1,-1(15)
 SOS -3(15)
 JRST L0074
L0075: MOVE 1,-1(15)
 JRST L0076
L0073: MOVE 2,L0071
 ADJSP 15,-4
 JRST SYMFNC+143
L0076: ADJSP 15,-4
 POPJ 15,0
L0067:	point 6,1,5
L0068:	point 30,6,35
L0069:	536870912
L0070:	-536870912
L0071:	<30_30>+150
	1
; (!*ENTRY LIST2VECTOR EXPR 1)
L0079:	intern L0079
 ADJSP 15,4
 MOVEM 1,0(15)
 LDB 11,L0077
 CAIN 11,9
 JRST L0080
 CAME 1,0
 JRST L0081
L0080: MOVEM 0,-1(15)
 MOVEM 0,-2(15)
 PUSHJ 15,SYMFNC+148
 MOVE 2,1
 SOS 2
 MOVEM 2,-2(15)
 MOVE 1,2
 PUSHJ 15,SYMFNC+142
 MOVEM 1,-1(15)
 MOVEM 0,-3(15)
 SETZM -3(15)
L0082: MOVE 6,-3(15)
 CAMLE 6,-2(15)
 JRST L0083
 MOVE 2,-3(15)
 ADD 2,-1(15)
 MOVE 1,0(15)
 MOVE 1,0(1)
 MOVEM 1,1(2)
 MOVE 3,0(15)
 MOVE 3,1(3)
 MOVEM 3,0(15)
 AOS -3(15)
 JRST L0082
L0083: MOVE 1,-1(15)
 TLZ 1,258048
 TLO 1,32768
 JRST L0084
L0081: MOVE 2,L0078
 ADJSP 15,-4
 JRST SYMFNC+149
L0084: ADJSP 15,-4
 POPJ 15,0
L0077:	point 6,1,5
L0078:	<30_30>+152
	1
; (!*ENTRY VECTOR2LIST EXPR 1)
L0090:	intern L0090
 ADJSP 15,4
 MOVEM 1,0(15)
 LDB 11,L0085
 CAIE 11,8
 JRST L0091
 MOVEM 0,-1(15)
 MOVEM 0,-2(15)
 MOVE 2,0
 MOVEM 2,-1(15)
 MOVE 4,1
 TLZ 4,258048
 MOVE 6,0(4)
 LDB 3,L0086
 TDNE 3,L0087
 TDO 3,L0088
 MOVEM 3,-2(15)
 MOVEM 0,-3(15)
 MOVEM 3,-3(15)
L0092: SKIPGE -3(15)
 JRST L0093
 MOVE 2,-1(15)
 MOVE 1,0(15)
 TLZ 1,258048
 ADD 1,-3(15)
 MOVE 1,1(1)
 PUSHJ 15,SYMFNC+151
 MOVEM 1,-1(15)
 SOS -3(15)
 JRST L0092
L0093: MOVE 1,-1(15)
 JRST L0094
L0091: MOVE 2,L0089
 ADJSP 15,-4
 JRST SYMFNC+146
L0094: ADJSP 15,-4
 POPJ 15,0
L0085:	point 6,1,5
L0086:	point 30,6,35
L0087:	536870912
L0088:	-536870912
L0089:	<30_30>+153
L0103:	35
	byte(7)83,117,98,115,99,114,105,112,116,32,37,114,32,105,110,32,71,101,116,86,32,105,115,32,111,117,116,32,111,102,32,114,97,110,103,101,0
	2
; (!*ENTRY GETV EXPR 2)
GETV:	intern GETV
 ADJSP 15,4
 MOVEM 1,0(15)
 MOVEM 2,-1(15)
 MOVEM 0,-2(15)
 MOVEM 0,-3(15)
 LDB 11,L0095
 CAIE 11,8
 JRST L0104
 LDB 11,L0097
 CAIN 11,63
 JRST L0096
 CAILE 11,0
 JRST L0105
L0096: MOVE 3,1
 TLZ 3,258048
 MOVEM 3,-2(15)
 MOVEM 2,-3(15)
 JUMPL 2,L0106
 MOVE 6,0(3)
 LDB 4,L0098
 TDNE 4,L0099
 TDO 4,L0100
 CAMLE 2,4
 JRST L0106
 MOVE 1,2
 ADDM 3,1
 MOVE 1,1(1)
 JRST L0107
L0106: MOVE 1,L0101
 PUSHJ 15,SYMFNC+155
 ADJSP 15,-4
 JRST SYMFNC+156
L0105: MOVE 2,L0102
 MOVE 1,-1(15)
 ADJSP 15,-4
 JRST SYMFNC+157
L0104: MOVE 2,L0102
 ADJSP 15,-4
 JRST SYMFNC+146
L0107: ADJSP 15,-4
 POPJ 15,0
L0095:	point 6,1,5
L0097:	point 6,2,5
L0098:	point 30,6,35
L0099:	536870912
L0100:	-536870912
L0102:	<30_30>+154
L0101:	<4_30>+<1_18>+L0103
L0116:	35
	byte(7)83,117,98,115,99,114,105,112,116,32,37,114,32,105,110,32,80,117,116,86,32,105,115,32,111,117,116,32,111,102,32,114,97,110,103,101,0
	3
; (!*ENTRY PUTV EXPR 3)
PUTV:	intern PUTV
 ADJSP 15,5
 MOVEM 1,0(15)
 MOVEM 2,-1(15)
 MOVEM 3,-2(15)
 MOVEM 0,-3(15)
 MOVEM 0,-4(15)
 LDB 11,L0108
 CAIE 11,8
 JRST L0117
 LDB 11,L0110
 CAIN 11,63
 JRST L0109
 CAILE 11,0
 JRST L0118
L0109: MOVE 4,1
 TLZ 4,258048
 MOVEM 4,-3(15)
 MOVEM 2,-4(15)
 JUMPL 2,L0119
 MOVE 6,0(4)
 LDB 5,L0111
 TDNE 5,L0112
 TDO 5,L0113
 CAMLE 2,5
 JRST L0119
 ADDM 4,2
 MOVE 1,3
 MOVEM 1,1(2)
 JRST L0120
L0119: MOVE 1,L0114
 PUSHJ 15,SYMFNC+155
 ADJSP 15,-5
 JRST SYMFNC+156
L0118: MOVE 2,L0115
 MOVE 1,-1(15)
 ADJSP 15,-5
 JRST SYMFNC+157
L0117: MOVE 2,L0115
 ADJSP 15,-5
 JRST SYMFNC+146
L0120: ADJSP 15,-5
 POPJ 15,0
L0108:	point 6,1,5
L0110:	point 6,2,5
L0111:	point 30,6,35
L0112:	536870912
L0113:	-536870912
L0115:	<30_30>+158
L0114:	<4_30>+<1_18>+L0116
	1
; (!*ENTRY UPBV EXPR 1)
UPBV:	intern UPBV
 LDB 11,L0121
 CAIE 11,8
 JRST L0125
 MOVE 2,1
 TLZ 2,258048
 MOVE 6,0(2)
 LDB 1,L0122
 TDNE 1,L0123
 TDO 1,L0124
 POPJ 15,0
L0125: MOVE 1,0
 POPJ 15,0
L0121:	point 6,1,5
L0122:	point 30,6,35
L0123:	536870912
L0124:	-536870912
	1
; (!*ENTRY EVECTORP EXPR 1)
L0127:	intern L0127
 LDB 1,L0126
 CAIN 1,10
 JRST L0128
 MOVE 1,0
 POPJ 15,0
L0128: MOVE 1,SYMVAL+84
 POPJ 15,0
L0126:	point 6,1,5
L0136:	36
	byte(7)83,117,98,115,99,114,105,112,116,32,37,114,32,105,110,32,69,71,69,84,86,32,105,115,32,111,117,116,32,111,102,32,114,97,110,103,101,0
	2
; (!*ENTRY EGETV EXPR 2)
EGETV:	intern EGETV
 ADJSP 15,4
 MOVEM 1,0(15)
 MOVEM 2,-1(15)
 MOVEM 0,-2(15)
 MOVEM 0,-3(15)
 PUSHJ 15,SYMFNC+160
 CAMN 1,0
 JRST L0137
 LDB 11,L0130
 CAIN 11,63
 JRST L0129
 CAILE 11,0
 JRST L0138
L0129: MOVE 2,0(15)
 TLZ 2,258048
 MOVEM 2,-2(15)
 MOVE 6,-1(15)
 MOVEM 6,-3(15)
 SKIPGE -3(15)
 JRST L0139
 MOVE 6,0(2)
 LDB 3,L0131
 TDNE 3,L0132
 TDO 3,L0133
 CAMGE 3,-3(15)
 JRST L0139
 MOVE 1,-3(15)
 ADDM 2,1
 MOVE 1,1(1)
 JRST L0140
L0139: MOVE 2,-1(15)
 MOVE 1,L0134
 PUSHJ 15,SYMFNC+155
 ADJSP 15,-4
 JRST SYMFNC+156
L0138: MOVE 2,L0135
 MOVE 1,-1(15)
 ADJSP 15,-4
 JRST SYMFNC+157
L0137: MOVE 2,L0135
 MOVE 1,0(15)
 ADJSP 15,-4
 JRST SYMFNC+146
L0140: ADJSP 15,-4
 POPJ 15,0
L0130:	point 6,-1(15),5
L0131:	point 30,6,35
L0132:	536870912
L0133:	-536870912
L0135:	<30_30>+161
L0134:	<4_30>+<1_18>+L0136
L0148:	36
	byte(7)83,117,98,115,99,114,105,112,116,32,37,114,32,105,110,32,69,112,117,116,118,32,105,115,32,111,117,116,32,111,102,32,114,97,110,103,101,0
	3
; (!*ENTRY EPUTV EXPR 3)
EPUTV:	intern EPUTV
 ADJSP 15,5
 MOVEM 1,0(15)
 MOVEM 2,-1(15)
 MOVEM 3,-2(15)
 MOVEM 0,-3(15)
 MOVEM 0,-4(15)
 PUSHJ 15,SYMFNC+160
 CAMN 1,0
 JRST L0149
 LDB 11,L0142
 CAIN 11,63
 JRST L0141
 CAILE 11,0
 JRST L0150
L0141: MOVE 2,0(15)
 TLZ 2,258048
 MOVEM 2,-3(15)
 MOVE 6,-1(15)
 MOVEM 6,-4(15)
 SKIPGE -4(15)
 JRST L0151
 MOVE 6,0(2)
 LDB 3,L0143
 TDNE 3,L0144
 TDO 3,L0145
 CAMGE 3,-4(15)
 JRST L0151
 MOVE 4,-4(15)
 ADDM 2,4
 MOVE 1,-2(15)
 MOVEM 1,1(4)
 JRST L0152
L0151: MOVE 2,-1(15)
 MOVE 1,L0146
 PUSHJ 15,SYMFNC+155
 ADJSP 15,-5
 JRST SYMFNC+156
L0150: MOVE 2,L0147
 MOVE 1,-1(15)
 ADJSP 15,-5
 JRST SYMFNC+157
L0149: MOVE 2,L0147
 MOVE 1,0(15)
 ADJSP 15,-5
 JRST SYMFNC+146
L0152: ADJSP 15,-5
 POPJ 15,0
L0142:	point 6,-1(15),5
L0143:	point 30,6,35
L0144:	536870912
L0145:	-536870912
L0147:	<30_30>+162
L0146:	<4_30>+<1_18>+L0148
	1
; (!*ENTRY EUPBV EXPR 1)
EUPBV:	intern EUPBV
 PUSH 15,1
 PUSHJ 15,SYMFNC+160
 CAMN 1,0
 JRST L0156
 MOVE 2,0(15)
 TLZ 2,258048
 MOVE 6,0(2)
 LDB 1,L0153
 TDNE 1,L0154
 TDO 1,L0155
 JRST L0157
L0156: MOVE 1,0
L0157: ADJSP 15,-1
 POPJ 15,0
L0153:	point 30,6,35
L0154:	536870912
L0155:	-536870912
	2
; (!*ENTRY INDX EXPR 2)
INDX:	intern INDX
 ADJSP 15,4
 MOVEM 1,0(15)
 MOVEM 2,-1(15)
 MOVEM 0,-2(15)
 MOVEM 0,-3(15)
 TLNN 2,258048
 JRST L0163
 MOVE 2,L0158
 MOVE 1,-1(15)
 ADJSP 15,-4
 JRST SYMFNC+157
L0163: MOVE 3,1
 TLZ 3,258048
 MOVEM 3,-2(15)
 LDB 4,L0159
 MOVEM 4,-3(15)
 MOVE 1,4
 CAIL 1,4
 CAILE 1,9
 JRST L0164
 JRST @L0165-4(1)
L0165:   IFIW L0166
   IFIW L0166
   IFIW L0167
   IFIW L0168
   IFIW L0169
   IFIW L0170
L0164: JRST L0171
L0166: MOVE 6,0(3)
 LDB 5,L0160
 TDNE 5,L0161
 TDO 5,L0162
 CAMG 2,5
 JRST L0172
 MOVE 3,L0158
 MOVE 1,0(15)
 ADJSP 15,-4
 JRST SYMFNC+165
L0172: MOVE 1,3
 AOS 1
 ADJSP 15,-4
 TLO 1,204800
 ADJBP 2,1
 LDB 1,2
 POPJ 15,0
L0169: MOVE 6,0(3)
 LDB 5,L0160
 TDNE 5,L0161
 TDO 5,L0162
 CAMG 2,5
 JRST L0173
 MOVE 3,L0158
 MOVE 1,0(15)
 ADJSP 15,-4
 JRST SYMFNC+165
L0173: MOVE 1,2
 ADDM 3,1
 MOVE 1,1(1)
 JRST L0174
L0168: MOVE 6,0(3)
 LDB 5,L0160
 TDNE 5,L0161
 TDO 5,L0162
 CAMG 2,5
 JRST L0175
 MOVE 3,L0158
 MOVE 1,0(15)
 ADJSP 15,-4
 JRST SYMFNC+165
L0175: MOVE 1,2
 ADDM 3,1
 MOVE 1,1(1)
 JRST L0174
L0167: MOVE 6,0(3)
 LDB 5,L0160
 TDNE 5,L0161
 TDO 5,L0162
 CAMG 2,5
 JRST L0176
 MOVE 3,L0158
 MOVE 1,0(15)
 ADJSP 15,-4
 JRST SYMFNC+165
L0176: MOVE 1,3
 AOS 1
 ADJSP 15,-4
 TLO 1,245760
 ADJBP 2,1
 LDB 1,2
 POPJ 15,0
L0170: MOVEM 2,-3(15)
L0177: SKIPLE -3(15)
 JRST L0178
 MOVE 1,0
 JRST L0179
L0178: MOVE 1,0(15)
 MOVE 1,1(1)
 MOVEM 1,0(15)
 LDB 11,L0159
 CAIN 11,9
 JRST L0180
 MOVE 3,L0158
 MOVE 2,-1(15)
 PUSHJ 15,SYMFNC+165
L0180: SOS -3(15)
 JRST L0177
L0179: MOVE 1,0(15)
 MOVE 1,0(1)
 JRST L0174
L0171: MOVE 2,L0158
 MOVE 1,0(15)
 ADJSP 15,-4
 JRST SYMFNC+166
L0174: ADJSP 15,-4
 POPJ 15,0
L0159:	point 6,1,5
L0160:	point 30,6,35
L0161:	536870912
L0162:	-536870912
L0158:	<30_30>+164
	3
; (!*ENTRY SETINDX EXPR 3)
L0186:	intern L0186
 ADJSP 15,5
 MOVEM 1,0(15)
 MOVEM 2,-1(15)
 MOVEM 3,-2(15)
 MOVEM 0,-3(15)
 MOVEM 0,-4(15)
 TLNN 2,258048
 JRST L0187
 MOVE 2,L0181
 MOVE 1,-1(15)
 ADJSP 15,-5
 JRST SYMFNC+157
L0187: MOVE 4,1
 TLZ 4,258048
 MOVEM 4,-3(15)
 LDB 5,L0182
 MOVEM 5,-4(15)
 MOVE 1,5
 CAIL 1,4
 CAILE 1,9
 JRST L0188
 JRST @L0189-4(1)
L0189:   IFIW L0190
   IFIW L0190
   IFIW L0191
   IFIW L0192
   IFIW L0193
   IFIW L0194
L0188: JRST L0195
L0190: MOVE 6,0(4)
 LDB 1,L0183
 TDNE 1,L0184
 TDO 1,L0185
 CAMG 2,1
 JRST L0196
 MOVE 3,L0181
 MOVE 1,0(15)
 ADJSP 15,-5
 JRST SYMFNC+165
L0196: MOVE 1,4
 AOS 1
 TLO 1,204800
 ADJBP 2,1
 DPB 3,2
 MOVE 1,3
 JRST L0197
L0193: MOVE 6,0(4)
 LDB 1,L0183
 TDNE 1,L0184
 TDO 1,L0185
 CAMG 2,1
 JRST L0198
 MOVE 3,L0181
 MOVE 1,0(15)
 ADJSP 15,-5
 JRST SYMFNC+165
L0198: ADDM 4,2
 MOVEM 3,1(2)
 MOVE 1,3
 JRST L0197
L0192: MOVE 6,0(4)
 LDB 1,L0183
 TDNE 1,L0184
 TDO 1,L0185
 CAMG 2,1
 JRST L0199
 MOVE 3,L0181
 MOVE 1,0(15)
 ADJSP 15,-5
 JRST SYMFNC+165
L0199: ADDM 4,2
 MOVEM 3,1(2)
 MOVE 1,3
 JRST L0197
L0191: MOVE 6,0(4)
 LDB 1,L0183
 TDNE 1,L0184
 TDO 1,L0185
 CAMG 2,1
 JRST L0200
 MOVE 3,L0181
 MOVE 1,0(15)
 ADJSP 15,-5
 JRST SYMFNC+165
L0200: MOVE 1,4
 AOS 1
 TLO 1,245760
 ADJBP 2,1
 DPB 3,2
 MOVE 1,3
 JRST L0197
L0194: MOVEM 2,-4(15)
L0201: SKIPLE -4(15)
 JRST L0202
 MOVE 1,0
 JRST L0203
L0202: MOVE 1,0(15)
 MOVE 1,1(1)
 MOVEM 1,0(15)
 LDB 11,L0182
 CAIN 11,9
 JRST L0204
 MOVE 3,L0181
 MOVE 2,-1(15)
 PUSHJ 15,SYMFNC+165
L0204: SOS -4(15)
 JRST L0201
L0203: MOVE 7,0(15)
 MOVE 6,-2(15)
 MOVEM 6,0(7)
 MOVE 1,-2(15)
 JRST L0197
L0195: MOVE 2,L0181
 MOVE 1,0(15)
 ADJSP 15,-5
 JRST SYMFNC+166
L0197: ADJSP 15,-5
 POPJ 15,0
L0182:	point 6,1,5
L0183:	point 30,6,35
L0184:	536870912
L0185:	-536870912
L0181:	<30_30>+167
	3
; (!*ENTRY SUB EXPR 3)
SUB:	intern SUB
 ADDM 2,3
 AOS 3
 JRST SYMFNC+169
	3
; (!*ENTRY SUBSEQ EXPR 3)
SUBSEQ:	intern SUBSEQ
 ADJSP 15,7
 MOVEM 1,0(15)
 MOVEM 2,-1(15)
 MOVEM 3,-2(15)
 MOVEM 0,-3(15)
 MOVEM 0,-4(15)
 MOVEM 0,-5(15)
 TLNN 2,258048
 JRST L0212
 MOVE 2,L0205
 MOVE 1,-1(15)
 ADJSP 15,-7
 JRST SYMFNC+157
L0212: TLNN 3,258048
 JRST L0213
 MOVE 2,L0205
 MOVE 1,3
 ADJSP 15,-7
 JRST SYMFNC+157
L0213: MOVE 4,3
 SUB 4,2
 SOS 4
 MOVEM 4,-3(15)
 CAML 4,L0206
 JRST L0214
 MOVE 3,L0205
 MOVE 2,-2(15)
 ADJSP 15,-7
 JRST SYMFNC+165
L0214: LDB 1,L0207
 CAIL 1,4
 CAILE 1,9
 JRST L0215
 JRST @L0216-4(1)
L0216:   IFIW L0217
   IFIW L0217
   IFIW L0218
   IFIW L0219
   IFIW L0220
   IFIW L0221
L0215: JRST L0222
L0217: MOVE 1,0(15)
 TLZ 1,258048
 MOVE 6,0(1)
 LDB 5,L0208
 TDNE 5,L0209
 TDO 5,L0210
 MOVEM 5,-4(15)
 MOVE 1,3
 SOS 1
 CAMG 1,5
 JRST L0223
 MOVE 3,L0205
 MOVE 2,-2(15)
 MOVE 1,0(15)
 ADJSP 15,-7
 JRST SYMFNC+165
L0223: MOVE 1,4
 PUSHJ 15,SYMFNC+145
 MOVEM 1,-5(15)
 MOVE 2,0(15)
 TLZ 2,258048
 MOVEM 2,-2(15)
 MOVEM 0,-6(15)
 SETZM -6(15)
L0224: MOVE 6,-6(15)
 CAMG 6,-3(15)
 JRST L0225
 SETZM 1
 JRST L0226
L0225: MOVE 2,-6(15)
 ADD 2,-1(15)
 MOVE 1,-2(15)
 AOS 1
 TLO 1,204800
 ADJBP 2,1
 LDB 1,2
 MOVE 3,1
 MOVE 2,-6(15)
 MOVE 1,-5(15)
 AOS 1
 TLO 1,204800
 ADJBP 2,1
 DPB 3,2
 AOS -6(15)
 JRST L0224
L0226: LDB 1,L0211
 CAIN 1,4
 JRST L0227
 CAIN 1,5
 JRST L0228
 JRST L0229
L0227: MOVE 1,-5(15)
 TLZ 1,258048
 TLO 1,16384
 JRST L0230
L0228: MOVE 1,-5(15)
 TLZ 1,258048
 TLO 1,20480
 JRST L0230
L0229: MOVE 1,0
 JRST L0230
L0220: MOVE 1,0(15)
 TLZ 1,258048
 MOVE 6,0(1)
 LDB 5,L0208
 TDNE 5,L0209
 TDO 5,L0210
 MOVEM 5,-4(15)
 MOVE 1,3
 SOS 1
 CAMG 1,5
 JRST L0231
 MOVE 3,L0205
 MOVE 2,-2(15)
 MOVE 1,0(15)
 ADJSP 15,-7
 JRST SYMFNC+165
L0231: MOVE 1,4
 PUSHJ 15,SYMFNC+142
 MOVEM 1,-5(15)
 MOVE 2,0(15)
 TLZ 2,258048
 MOVEM 2,-2(15)
 MOVEM 0,-6(15)
 SETZM -6(15)
L0232: MOVE 6,-6(15)
 CAMG 6,-3(15)
 JRST L0233
 SETZM 1
 JRST L0234
L0233: MOVE 2,-6(15)
 ADD 2,-5(15)
 MOVE 3,-6(15)
 ADD 3,-1(15)
 ADD 3,-2(15)
 MOVE 6,1(3)
 MOVEM 6,1(2)
 AOS -6(15)
 JRST L0232
L0234: MOVE 1,-5(15)
 TLZ 1,258048
 TLO 1,32768
 JRST L0230
L0219: MOVE 1,0(15)
 TLZ 1,258048
 MOVE 6,0(1)
 LDB 5,L0208
 TDNE 5,L0209
 TDO 5,L0210
 MOVEM 5,-4(15)
 MOVE 1,3
 SOS 1
 CAMG 1,5
 JRST L0235
 MOVE 3,L0205
 MOVE 2,-2(15)
 MOVE 1,0(15)
 ADJSP 15,-7
 JRST SYMFNC+165
L0235: MOVE 1,4
 PUSHJ 15,SYMFNC+170
 MOVEM 1,-5(15)
 MOVE 2,0(15)
 TLZ 2,258048
 MOVEM 2,-2(15)
 MOVEM 0,-6(15)
 SETZM -6(15)
L0236: MOVE 6,-6(15)
 CAMG 6,-3(15)
 JRST L0237
 SETZM 1
 JRST L0238
L0237: MOVE 2,-6(15)
 ADD 2,-5(15)
 MOVE 3,-6(15)
 ADD 3,-1(15)
 ADD 3,-2(15)
 MOVE 6,1(3)
 MOVEM 6,1(2)
 AOS -6(15)
 JRST L0236
L0238: MOVE 1,-5(15)
 TLZ 1,258048
 TLO 1,28672
 JRST L0230
L0218: MOVE 1,0(15)
 TLZ 1,258048
 MOVE 6,0(1)
 LDB 5,L0208
 TDNE 5,L0209
 TDO 5,L0210
 MOVEM 5,-4(15)
 MOVE 1,3
 SOS 1
 CAMG 1,5
 JRST L0239
 MOVE 3,L0205
 MOVE 2,-2(15)
 MOVE 1,0(15)
 ADJSP 15,-7
 JRST SYMFNC+165
L0239: MOVE 1,4
 PUSHJ 15,SYMFNC+171
 MOVEM 1,-5(15)
 MOVE 2,0(15)
 TLZ 2,258048
 MOVEM 2,-2(15)
 MOVEM 0,-6(15)
 SETZM -6(15)
L0240: MOVE 6,-6(15)
 CAMG 6,-3(15)
 JRST L0241
 SETZM 1
 JRST L0242
L0241: MOVE 2,-6(15)
 ADD 2,-1(15)
 MOVE 1,-2(15)
 AOS 1
 TLO 1,245760
 ADJBP 2,1
 LDB 1,2
 MOVE 3,1
 MOVE 2,-6(15)
 MOVE 1,-5(15)
 AOS 1
 TLO 1,245760
 ADJBP 2,1
 DPB 3,2
 AOS -6(15)
 JRST L0240
L0242: MOVE 1,-5(15)
 TLZ 1,258048
 TLO 1,24576
 JRST L0230
L0221: MOVEM 0,-6(15)
 HRRZI 6,1
 MOVEM 6,-6(15)
L0243: MOVE 6,-6(15)
 CAMG 6,-1(15)
 JRST L0244
 SETZM 1
 JRST L0245
L0244: LDB 11,L0211
 CAIE 11,9
 JRST L0246
 MOVE 1,0(15)
 MOVE 1,1(1)
 MOVEM 1,0(15)
 JRST L0247
L0246: MOVE 3,L0205
 MOVE 2,-1(15)
 MOVE 1,0(15)
 PUSHJ 15,SYMFNC+165
L0247: AOS -6(15)
 JRST L0243
L0245: MOVE 1,0
 PUSHJ 15,SYMFNC+172
 MOVEM 1,-5(15)
 MOVEM 0,-6(15)
 SETZM -6(15)
L0248: MOVE 6,-6(15)
 CAMG 6,-3(15)
 JRST L0249
 SETZM 1
 JRST L0250
L0249: LDB 11,L0211
 CAIE 11,9
 JRST L0251
 MOVE 2,0(15)
 MOVE 2,0(2)
 MOVE 1,-5(15)
 PUSHJ 15,SYMFNC+173
 MOVE 1,0(15)
 MOVE 1,1(1)
 MOVEM 1,0(15)
 JRST L0252
L0251: MOVE 3,L0205
 MOVE 2,-2(15)
 MOVE 1,0(15)
 PUSHJ 15,SYMFNC+165
L0252: AOS -6(15)
 JRST L0248
L0250: MOVE 1,-5(15)
 MOVE 1,0(1)
 JRST L0230
L0222: MOVE 2,L0205
 MOVE 1,0(15)
 ADJSP 15,-7
 JRST SYMFNC+166
L0230: ADJSP 15,-7
 POPJ 15,0
L0206:	-1
L0207:	point 6,1,5
L0208:	point 30,6,35
L0209:	536870912
L0210:	-536870912
L0211:	point 6,0(15),5
L0205:	<30_30>+169
	4
; (!*ENTRY SETSUB EXPR 4)
SETSUB:	intern SETSUB
 ADDM 2,3
 AOS 3
 JRST SYMFNC+175
	4
; (!*ENTRY SETSUBSEQ EXPR 4)
L0262:	intern L0262
 ADJSP 15,9
 MOVEM 1,0(15)
 MOVEM 2,-1(15)
 MOVEM 3,-2(15)
 MOVEM 4,-3(15)
 MOVEM 0,-4(15)
 MOVEM 0,-5(15)
 MOVEM 0,-6(15)
 MOVEM 0,-7(15)
 TLNN 2,258048
 JRST L0263
 MOVE 2,L0253
 MOVE 1,-1(15)
 ADJSP 15,-9
 JRST SYMFNC+157
L0263: TLNN 3,258048
 JRST L0264
 MOVE 2,L0253
 MOVE 1,3
 ADJSP 15,-9
 JRST SYMFNC+157
L0264: MOVE 5,3
 SUB 5,2
 SOS 5
 MOVEM 5,-4(15)
 CAML 5,L0254
 JRST L0265
 MOVE 3,L0253
 MOVE 2,-2(15)
 ADJSP 15,-9
 JRST SYMFNC+165
L0265: LDB 1,L0255
 CAIL 1,4
 CAILE 1,9
 JRST L0266
 JRST @L0267-4(1)
L0267:   IFIW L0268
   IFIW L0268
   IFIW L0269
   IFIW L0270
   IFIW L0271
   IFIW L0272
L0266: JRST L0273
L0268: LDB 11,L0256
 CAIN 11,4
 JRST L0274
 LDB 11,L0256
 CAIN 11,5
 JRST L0274
 MOVE 2,L0253
 MOVE 1,4
 ADJSP 15,-9
 JRST SYMFNC+143
L0274: MOVE 2,0(15)
 TLZ 2,258048
 MOVE 6,0(2)
 LDB 1,L0257
 TDNE 1,L0258
 TDO 1,L0259
 MOVEM 1,-5(15)
 MOVE 1,4
 TLZ 1,258048
 MOVEM 1,-7(15)
 MOVE 6,0(1)
 LDB 1,L0257
 TDNE 1,L0258
 TDO 1,L0259
 MOVEM 1,-6(15)
 MOVE 1,3
 SOS 1
 CAMG 1,-5(15)
 JRST L0275
 MOVE 3,L0253
 MOVE 2,-2(15)
 MOVE 1,0(15)
 PUSHJ 15,SYMFNC+165
 JRST L0276
L0275: CAMN 5,-6(15)
 JRST L0277
 MOVE 3,L0253
 MOVE 2,5
 MOVE 1,4
 PUSHJ 15,SYMFNC+165
 JRST L0276
L0277: MOVEM 2,-2(15)
 MOVEM 0,-8(15)
 SETZM -8(15)
L0278: MOVE 6,-8(15)
 CAMLE 6,-4(15)
 JRST L0276
 MOVE 2,-8(15)
 MOVE 1,-7(15)
 AOS 1
 TLO 1,204800
 ADJBP 2,1
 LDB 1,2
 MOVE 3,1
 MOVE 2,-8(15)
 ADD 2,-1(15)
 MOVE 1,-2(15)
 AOS 1
 TLO 1,204800
 ADJBP 2,1
 DPB 3,2
 AOS -8(15)
 JRST L0278
L0271: LDB 11,L0256
 CAIN 11,8
 JRST L0279
 MOVE 2,L0253
 MOVE 1,4
 ADJSP 15,-9
 JRST SYMFNC+146
L0279: MOVE 2,0(15)
 TLZ 2,258048
 MOVE 6,0(2)
 LDB 1,L0257
 TDNE 1,L0258
 TDO 1,L0259
 MOVEM 1,-5(15)
 MOVE 1,4
 TLZ 1,258048
 MOVEM 1,-7(15)
 MOVE 6,0(1)
 LDB 1,L0257
 TDNE 1,L0258
 TDO 1,L0259
 MOVEM 1,-6(15)
 MOVE 1,3
 SOS 1
 CAMG 1,-5(15)
 JRST L0280
 MOVE 3,L0253
 MOVE 2,-2(15)
 MOVE 1,0(15)
 PUSHJ 15,SYMFNC+165
 JRST L0276
L0280: CAMN 5,-6(15)
 JRST L0281
 MOVE 3,L0253
 MOVE 2,5
 MOVE 1,4
 PUSHJ 15,SYMFNC+165
 JRST L0276
L0281: MOVEM 2,-2(15)
 MOVEM 0,-8(15)
 SETZM -8(15)
L0282: MOVE 6,-8(15)
 CAMLE 6,-4(15)
 JRST L0276
 MOVE 2,-8(15)
 ADD 2,-1(15)
 ADD 2,-2(15)
 MOVE 3,-8(15)
 ADD 3,-7(15)
 MOVE 6,1(3)
 MOVEM 6,1(2)
 AOS -8(15)
 JRST L0282
L0270: LDB 11,L0256
 CAIN 11,7
 JRST L0283
 MOVE 2,L0253
 MOVE 1,4
 ADJSP 15,-9
 JRST SYMFNC+146
L0283: MOVE 2,0(15)
 TLZ 2,258048
 MOVE 6,0(2)
 LDB 1,L0257
 TDNE 1,L0258
 TDO 1,L0259
 MOVEM 1,-5(15)
 MOVE 1,4
 TLZ 1,258048
 MOVEM 1,-7(15)
 MOVE 6,0(1)
 LDB 1,L0257
 TDNE 1,L0258
 TDO 1,L0259
 MOVEM 1,-6(15)
 MOVE 1,3
 SOS 1
 CAMG 1,-5(15)
 JRST L0284
 MOVE 3,L0253
 MOVE 2,-2(15)
 MOVE 1,0(15)
 PUSHJ 15,SYMFNC+165
 JRST L0276
L0284: CAMN 5,-6(15)
 JRST L0285
 MOVE 3,L0253
 MOVE 2,5
 MOVE 1,4
 PUSHJ 15,SYMFNC+165
 JRST L0276
L0285: MOVEM 2,-2(15)
 MOVEM 0,-8(15)
 SETZM -8(15)
L0286: MOVE 6,-8(15)
 CAMLE 6,-4(15)
 JRST L0276
 MOVE 2,-8(15)
 ADD 2,-1(15)
 ADD 2,-2(15)
 MOVE 3,-8(15)
 ADD 3,-7(15)
 MOVE 6,1(3)
 MOVEM 6,1(2)
 AOS -8(15)
 JRST L0286
L0269: LDB 11,L0256
 CAIN 11,6
 JRST L0287
 MOVE 2,L0253
 MOVE 1,4
 ADJSP 15,-9
 JRST SYMFNC+146
L0287: MOVE 2,0(15)
 TLZ 2,258048
 MOVE 6,0(2)
 LDB 1,L0257
 TDNE 1,L0258
 TDO 1,L0259
 MOVEM 1,-5(15)
 MOVE 1,4
 TLZ 1,258048
 MOVEM 1,-7(15)
 MOVE 6,0(1)
 LDB 1,L0257
 TDNE 1,L0258
 TDO 1,L0259
 MOVEM 1,-6(15)
 MOVE 1,3
 SOS 1
 CAMG 1,-5(15)
 JRST L0288
 MOVE 3,L0253
 MOVE 2,-2(15)
 MOVE 1,0(15)
 PUSHJ 15,SYMFNC+165
 JRST L0276
L0288: CAMN 5,-6(15)
 JRST L0289
 MOVE 3,L0253
 MOVE 2,5
 MOVE 1,4
 PUSHJ 15,SYMFNC+165
 JRST L0276
L0289: MOVEM 2,-2(15)
 MOVEM 0,-8(15)
 SETZM -8(15)
L0290: MOVE 6,-8(15)
 CAMLE 6,-4(15)
 JRST L0276
 MOVE 2,-8(15)
 MOVE 1,-7(15)
 AOS 1
 TLO 1,245760
 ADJBP 2,1
 LDB 1,2
 MOVE 3,1
 MOVE 2,-8(15)
 ADD 2,-1(15)
 MOVE 1,-2(15)
 AOS 1
 TLO 1,245760
 ADJBP 2,1
 DPB 3,2
 AOS -8(15)
 JRST L0290
L0272: LDB 11,L0256
 CAIN 11,9
 JRST L0291
 CAMN 4,0
 JRST L0291
 MOVE 2,L0253
 MOVE 1,4
 ADJSP 15,-9
 JRST SYMFNC+149
L0291: MOVEM 0,-8(15)
 HRRZI 6,1
 MOVEM 6,-8(15)
L0292: MOVE 6,-8(15)
 CAMLE 6,-1(15)
 JRST L0293
 LDB 11,L0260
 CAIE 11,9
 JRST L0294
 MOVE 1,0(15)
 MOVE 1,1(1)
 MOVEM 1,0(15)
 JRST L0295
L0294: MOVE 3,L0253
 MOVE 2,-1(15)
 MOVE 1,0(15)
 PUSHJ 15,SYMFNC+165
L0295: AOS -8(15)
 JRST L0292
L0293: MOVE 6,-3(15)
 MOVEM 6,-7(15)
 MOVEM 0,-8(15)
 SETZM -8(15)
L0296: MOVE 6,-8(15)
 CAMLE 6,-4(15)
 JRST L0276
 LDB 11,L0260
 CAIE 11,9
 JRST L0297
 LDB 11,L0261
 CAIE 11,9
 JRST L0297
 MOVE 7,0(15)
 MOVE 6,-7(15)
 MOVE 6,0(6)
 MOVEM 6,0(7)
 MOVE 1,0(15)
 MOVE 1,1(1)
 MOVEM 1,0(15)
 MOVE 2,-7(15)
 MOVE 2,1(2)
 MOVEM 2,-7(15)
 JRST L0298
L0297: MOVE 3,L0253
 MOVE 2,-2(15)
 MOVE 1,0(15)
 PUSHJ 15,SYMFNC+165
L0298: AOS -8(15)
 JRST L0296
L0273: MOVE 2,L0253
 MOVE 1,0(15)
 PUSHJ 15,SYMFNC+166
L0276: MOVE 1,-3(15)
 ADJSP 15,-9
 POPJ 15,0
L0254:	-1
L0255:	point 6,1,5
L0256:	point 6,4,5
L0257:	point 30,6,35
L0258:	536870912
L0259:	-536870912
L0260:	point 6,0(15),5
L0261:	point 6,-7(15),5
L0253:	<30_30>+175
	2
; (!*ENTRY CONCAT EXPR 2)
CONCAT:	intern CONCAT
 ADJSP 15,8
 MOVEM 1,0(15)
 MOVEM 2,-1(15)
 MOVEM 0,-2(15)
 MOVEM 0,-3(15)
 MOVEM 0,-4(15)
 MOVEM 0,-5(15)
 MOVEM 0,-6(15)
 LDB 1,L0299
 CAIL 1,4
 CAILE 1,9
 JRST L0306
 JRST @L0307-4(1)
L0307:   IFIW L0308
   IFIW L0308
   IFIW L0309
   IFIW L0310
   IFIW L0311
   IFIW L0312
L0306: CAIN 1,30
 JRST L0312
 JRST L0313
L0308: LDB 11,L0300
 CAIN 11,4
 JRST L0314
 LDB 11,L0300
 CAIN 11,5
 JRST L0314
 MOVE 2,L0301
 MOVE 1,-1(15)
 ADJSP 15,-8
 JRST SYMFNC+143
L0314: MOVE 3,0(15)
 TLZ 3,258048
 MOVEM 3,-4(15)
 MOVE 4,2
 TLZ 4,258048
 MOVEM 4,-5(15)
 MOVE 6,0(3)
 LDB 5,L0302
 TDNE 5,L0303
 TDO 5,L0304
 MOVEM 5,-2(15)
 MOVE 6,0(4)
 LDB 1,L0302
 TDNE 1,L0303
 TDO 1,L0304
 MOVEM 1,-3(15)
 ADDM 5,1
 AOS 1
 PUSHJ 15,SYMFNC+145
 MOVEM 1,-6(15)
 MOVE 2,0(15)
 TLZ 2,258048
 MOVEM 2,-4(15)
 MOVE 3,-1(15)
 TLZ 3,258048
 MOVEM 3,-5(15)
 MOVEM 0,-7(15)
 SETZM -7(15)
L0315: MOVE 6,-7(15)
 CAMG 6,-2(15)
 JRST L0316
 SETZM 1
 JRST L0317
L0316: MOVE 2,-7(15)
 MOVE 1,-4(15)
 AOS 1
 TLO 1,204800
 ADJBP 2,1
 LDB 1,2
 MOVE 3,1
 MOVE 2,-7(15)
 MOVE 1,-6(15)
 AOS 1
 TLO 1,204800
 ADJBP 2,1
 DPB 3,2
 AOS -7(15)
 JRST L0315
L0317: MOVEM 0,-7(15)
 SETZM -7(15)
L0318: MOVE 6,-7(15)
 CAMG 6,-3(15)
 JRST L0319
 SETZM 1
 JRST L0320
L0319: MOVE 2,-7(15)
 MOVE 1,-5(15)
 AOS 1
 TLO 1,204800
 ADJBP 2,1
 LDB 1,2
 MOVE 3,1
 MOVE 2,-7(15)
 ADD 2,-2(15)
 AOS 2
 MOVE 1,-6(15)
 AOS 1
 TLO 1,204800
 ADJBP 2,1
 DPB 3,2
 AOS -7(15)
 JRST L0318
L0320: LDB 11,L0305
 CAIE 11,4
 JRST L0321
 MOVE 1,-6(15)
 TLZ 1,258048
 TLO 1,16384
 JRST L0322
L0321: MOVE 1,-6(15)
 TLZ 1,258048
 TLO 1,20480
 JRST L0322
L0311: LDB 11,L0300
 CAIN 11,8
 JRST L0323
 MOVE 2,L0301
 MOVE 1,-1(15)
 ADJSP 15,-8
 JRST SYMFNC+146
L0323: MOVE 3,0(15)
 TLZ 3,258048
 MOVEM 3,-4(15)
 MOVE 4,2
 TLZ 4,258048
 MOVEM 4,-5(15)
 MOVE 6,0(3)
 LDB 5,L0302
 TDNE 5,L0303
 TDO 5,L0304
 MOVEM 5,-2(15)
 MOVE 6,0(4)
 LDB 1,L0302
 TDNE 1,L0303
 TDO 1,L0304
 MOVEM 1,-3(15)
 ADDM 5,1
 AOS 1
 PUSHJ 15,SYMFNC+142
 MOVEM 1,-6(15)
 MOVE 2,0(15)
 TLZ 2,258048
 MOVEM 2,-4(15)
 MOVE 3,-1(15)
 TLZ 3,258048
 MOVEM 3,-5(15)
 MOVEM 0,-7(15)
 SETZM -7(15)
L0324: MOVE 6,-7(15)
 CAMG 6,-2(15)
 JRST L0325
 SETZM 1
 JRST L0326
L0325: MOVE 2,-7(15)
 ADD 2,-6(15)
 MOVE 3,-7(15)
 ADD 3,-4(15)
 MOVE 6,1(3)
 MOVEM 6,1(2)
 AOS -7(15)
 JRST L0324
L0326: MOVEM 0,-7(15)
 SETZM -7(15)
L0327: MOVE 6,-7(15)
 CAMG 6,-3(15)
 JRST L0328
 SETZM 1
 JRST L0329
L0328: MOVE 2,-7(15)
 ADD 2,-2(15)
 ADD 2,-6(15)
 MOVE 3,-7(15)
 ADD 3,-5(15)
 MOVE 6,1(3)
 MOVEM 6,2(2)
 AOS -7(15)
 JRST L0327
L0329: MOVE 1,-6(15)
 TLZ 1,258048
 TLO 1,32768
 JRST L0322
L0310: LDB 11,L0300
 CAIN 11,7
 JRST L0330
 MOVE 2,L0301
 MOVE 1,-1(15)
 ADJSP 15,-8
 JRST SYMFNC+146
L0330: MOVE 3,0(15)
 TLZ 3,258048
 MOVEM 3,-4(15)
 MOVE 4,2
 TLZ 4,258048
 MOVEM 4,-5(15)
 MOVE 6,0(3)
 LDB 5,L0302
 TDNE 5,L0303
 TDO 5,L0304
 MOVEM 5,-2(15)
 MOVE 6,0(4)
 LDB 1,L0302
 TDNE 1,L0303
 TDO 1,L0304
 MOVEM 1,-3(15)
 ADDM 5,1
 AOS 1
 PUSHJ 15,SYMFNC+170
 MOVEM 1,-6(15)
 MOVE 2,0(15)
 TLZ 2,258048
 MOVEM 2,-4(15)
 MOVE 3,-1(15)
 TLZ 3,258048
 MOVEM 3,-5(15)
 MOVEM 0,-7(15)
 SETZM -7(15)
L0331: MOVE 6,-7(15)
 CAMG 6,-2(15)
 JRST L0332
 SETZM 1
 JRST L0333
L0332: MOVE 2,-7(15)
 ADD 2,-6(15)
 MOVE 3,-7(15)
 ADD 3,-4(15)
 MOVE 6,1(3)
 MOVEM 6,1(2)
 AOS -7(15)
 JRST L0331
L0333: MOVEM 0,-7(15)
 SETZM -7(15)
L0334: MOVE 6,-7(15)
 CAMG 6,-3(15)
 JRST L0335
 SETZM 1
 JRST L0336
L0335: MOVE 2,-7(15)
 ADD 2,-2(15)
 ADD 2,-6(15)
 MOVE 3,-7(15)
 ADD 3,-5(15)
 MOVE 6,1(3)
 MOVEM 6,2(2)
 AOS -7(15)
 JRST L0334
L0336: MOVE 1,-6(15)
 TLZ 1,258048
 TLO 1,28672
 JRST L0322
L0309: LDB 11,L0300
 CAIN 11,6
 JRST L0337
 MOVE 2,L0301
 MOVE 1,-1(15)
 ADJSP 15,-8
 JRST SYMFNC+146
L0337: MOVE 3,0(15)
 TLZ 3,258048
 MOVEM 3,-4(15)
 MOVE 4,2
 TLZ 4,258048
 MOVEM 4,-5(15)
 MOVE 6,0(3)
 LDB 5,L0302
 TDNE 5,L0303
 TDO 5,L0304
 MOVEM 5,-2(15)
 MOVE 6,0(4)
 LDB 1,L0302
 TDNE 1,L0303
 TDO 1,L0304
 MOVEM 1,-3(15)
 ADDM 5,1
 AOS 1
 PUSHJ 15,SYMFNC+171
 MOVEM 1,-6(15)
 MOVE 2,0(15)
 TLZ 2,258048
 MOVEM 2,-4(15)
 MOVE 3,-1(15)
 TLZ 3,258048
 MOVEM 3,-5(15)
 MOVEM 0,-7(15)
 SETZM -7(15)
L0338: MOVE 6,-7(15)
 CAMG 6,-2(15)
 JRST L0339
 SETZM 1
 JRST L0340
L0339: MOVE 2,-7(15)
 MOVE 1,-4(15)
 AOS 1
 TLO 1,245760
 ADJBP 2,1
 LDB 1,2
 MOVE 3,1
 MOVE 2,-7(15)
 MOVE 1,-6(15)
 AOS 1
 TLO 1,245760
 ADJBP 2,1
 DPB 3,2
 AOS -7(15)
 JRST L0338
L0340: MOVEM 0,-7(15)
 SETZM -7(15)
L0341: MOVE 6,-7(15)
 CAMG 6,-3(15)
 JRST L0342
 SETZM 1
 JRST L0343
L0342: MOVE 2,-7(15)
 MOVE 1,-5(15)
 AOS 1
 TLO 1,245760
 ADJBP 2,1
 LDB 1,2
 MOVE 3,1
 MOVE 2,-7(15)
 ADD 2,-2(15)
 AOS 2
 MOVE 1,-6(15)
 AOS 1
 TLO 1,245760
 ADJBP 2,1
 DPB 3,2
 AOS -7(15)
 JRST L0341
L0343: MOVE 1,-6(15)
 TLZ 1,258048
 TLO 1,24576
 JRST L0322
L0312: CAMN 0,0(15)
 JRST L0344
 LDB 11,L0305
 CAIE 11,9
 JRST L0345
L0344: MOVE 1,0(15)
 ADJSP 15,-8
 JRST SYMFNC+177
L0345: MOVE 1,0
 JRST L0322
L0313: MOVE 2,L0301
 MOVE 1,0(15)
 ADJSP 15,-8
 JRST SYMFNC+166
L0322: ADJSP 15,-8
 POPJ 15,0
L0299:	point 6,1,5
L0300:	point 6,2,5
L0302:	point 30,6,35
L0303:	536870912
L0304:	-536870912
L0305:	point 6,0(15),5
L0301:	<30_30>+176
	1
; (!*ENTRY SIZE EXPR 1)
SIZE:	intern SIZE
 MOVE 4,1
 LDB 1,L0346
 CAIL 1,4
 CAILE 1,9
 JRST L0352
 JRST @L0353-4(1)
L0353:   IFIW L0354
   IFIW L0354
   IFIW L0354
   IFIW L0354
   IFIW L0354
   IFIW L0355
L0352: CAIN 1,30
 JRST L0356
 JRST L0357
L0354: MOVE 2,4
 TLZ 2,258048
 MOVE 6,0(2)
 LDB 1,L0347
 TDNE 1,L0348
 TDO 1,L0349
 POPJ 15,0
L0356: SETOM 1
 POPJ 15,0
L0355: MOVE 3,0
 SETOM 3
L0358: LDB 11,L0350
 CAIE 11,9
 JRST L0359
 AOS 3
 MOVE 1,1(4)
 MOVE 4,1
 JRST L0358
L0359: MOVE 1,3
 POPJ 15,0
L0357: MOVE 2,L0351
 MOVE 1,4
 JRST SYMFNC+166
L0346:	point 6,1,5
L0347:	point 30,6,35
L0348:	536870912
L0349:	-536870912
L0350:	point 6,4,5
L0351:	<30_30>+178
	end