File psl-1983/3-1/kernel/20/alloc.mac artifact f3f5a4c0ab part of check-in f16ac07139


	search monsym,macsym
	radix 10
	extern SYMNAM
	extern SYMVAL
	extern SYMFNC
	extern SYMPRP
	extern L0001
	extern L0002
	extern L0003
	extern BPS
	extern HEAP
	extern HEAP2
	extern L1080
	extern L1081
	extern L1082
	extern L1083
	extern L1084
	extern L1085
	extern L1086
	extern L1087
	extern L1088
	0
; (!*ENTRY KNOWN!-FREE!-SPACE EXPR 0)
L1089:	intern L1089
 HRRZI 2,1
 MOVE 1,L1082
 SUB 1,L1080
 IDIV 1,2
 POPJ 15,0
	1
; (!*ENTRY GTHEAP EXPR 1)
GTHEAP:	intern GTHEAP
 CAME 1,0
 JRST L1090
 JRST SYMFNC+378
L1090: MOVE 2,0
 JRST L1091
L1093:	19
	byte(7)72,101,97,112,32,115,112,97,99,101,32,101,120,104,97,117,115,116,101,100,0
; (!*ENTRY GTHEAP1 EXPR 2)
L1091:	intern L1091
 ADJSP 15,3
L1094: MOVEM 1,0(15)
 MOVEM 2,-1(15)
 MOVE 6,L1080
 MOVEM 6,-2(15)
 ADDM 1,L1080
 MOVE 6,L1086
 CAML 6,L1080
 JRST L1095
 MOVE 6,L1082
 CAML 6,L1080
 JRST L1096
 MOVE 6,-2(15)
 MOVEM 6,L1080
 CAMN 2,0
 JRST L1097
 MOVE 1,L1092
 PUSHJ 15,SYMFNC+380
 JRST L1095
L1097: PUSHJ 15,SYMFNC+381
 MOVE 2,SYMVAL+84
 MOVE 1,0(15)
 JRST L1094
L1096: CAME 0,L1088
 JRST L1095
 MOVE 6,SYMVAL+84
 MOVEM 6,L1088
 PUSHJ 15,SYMFNC+382
L1095: MOVE 1,-2(15)
 ADJSP 15,-3
 POPJ 15,0
L1092:	<4_30>+<1_18>+L1093
	0
; (!*ENTRY GC!-TRAP!-LEVEL EXPR 0)
L1098:	intern L1098
 HRRZI 2,1
 MOVE 1,L1082
 SUB 1,L1086
 IDIV 1,2
 POPJ 15,0
	1
; (!*ENTRY SET!-GC!-TRAP!-LEVEL EXPR 1)
L1101:	intern L1101
 PUSH 15,1
 LDB 11,L1099
 CAIG 11,0
 JRST L1102
 CAIN 11,63
 JRST L1102
 MOVE 2,L1100
 PUSHJ 15,SYMFNC+133
L1102: MOVE 1,L1082
 SUB 1,0(15)
 MOVEM 1,L1086
 MOVE 1,SYMVAL+84
 ADJSP 15,-1
 POPJ 15,0
L1099:	point 6,1,5
L1100:	<30_30>+383
	2
; (!*ENTRY DELHEAP EXPR 2)
L1103:	intern L1103
 CAME 2,L1080
 JRST L1104
 MOVEM 1,L1080
 POPJ 15,0
L1104: MOVE 1,0
 POPJ 15,0
	1
; (!*ENTRY GTSTR EXPR 1)
GTSTR:	intern GTSTR
 ADJSP 15,3
 MOVEM 1,0(15)
 HRRZI 2,5
 ADDI 1,6
 IDIV 1,2
 MOVEM 1,-2(15)
 AOS 1
 PUSHJ 15,SYMFNC+379
 MOVEM 1,-1(15)
 MOVE 2,0(15)
 TLZ 2,258048
 TLO 2,94208
 MOVEM 2,0(1)
 MOVE 4,-2(15)
 ADDM 1,4
 SETZM 0(4)
 ADJSP 15,-3
 POPJ 15,0
	1
; (!*ENTRY GTCONSTSTR EXPR 1)
L1105:	intern L1105
 ADJSP 15,3
 MOVEM 1,0(15)
 HRRZI 2,5
 ADDI 1,6
 IDIV 1,2
 MOVEM 1,-2(15)
 AOS 1
 PUSHJ 15,SYMFNC+386
 MOVEM 1,-1(15)
 MOVE 6,0(15)
 MOVEM 6,0(1)
 MOVE 3,-2(15)
 ADDM 1,3
 SETZM 0(3)
 ADJSP 15,-3
 POPJ 15,0
	1
; (!*ENTRY GTHALFWORDS EXPR 1)
L1106:	intern L1106
 ADJSP 15,3
 MOVEM 1,0(15)
 LSH 1,-1
 AOS 1
 MOVEM 1,-2(15)
 AOS 1
 PUSHJ 15,SYMFNC+379
 MOVEM 1,-1(15)
 MOVE 2,0(15)
 TLZ 2,258048
 TLO 2,98304
 MOVEM 2,0(1)
 ADJSP 15,-3
 POPJ 15,0
	1
; (!*ENTRY GTVECT EXPR 1)
GTVECT:	intern GTVECT
 ADJSP 15,2
 MOVEM 1,0(15)
 ADDI 1,2
 PUSHJ 15,SYMFNC+379
 MOVEM 1,-1(15)
 MOVE 2,0(15)
 TLZ 2,258048
 TLO 2,106496
 MOVEM 2,0(1)
 ADJSP 15,-2
 POPJ 15,0
	1
; (!*ENTRY GTWRDS EXPR 1)
GTWRDS:	intern GTWRDS
 ADJSP 15,2
 MOVEM 1,0(15)
 ADDI 1,2
 PUSHJ 15,SYMFNC+379
 MOVEM 1,-1(15)
 MOVE 2,0(15)
 TLZ 2,258048
 TLO 2,102400
 MOVEM 2,0(1)
 ADJSP 15,-2
 POPJ 15,0
	0
; (!*ENTRY GTFIXN EXPR 0)
GTFIXN:	intern GTFIXN
 ADJSP 15,1
 HRRZI 1,2
 PUSHJ 15,SYMFNC+379
 MOVEM 1,0(15)
 SETZM 2
 TLZ 2,258048
 TLO 2,102400
 MOVEM 2,0(1)
 ADJSP 15,-1
 POPJ 15,0
	0
; (!*ENTRY GTFLTN EXPR 0)
GTFLTN:	intern GTFLTN
 ADJSP 15,1
 HRRZI 1,3
 PUSHJ 15,SYMFNC+379
 MOVEM 1,0(15)
 HRRZI 2,1
 TLZ 2,258048
 TLO 2,102400
 MOVEM 2,0(1)
 ADJSP 15,-1
 POPJ 15,0
L1108:	18
	byte(7)82,97,110,32,111,117,116,32,111,102,32,73,68,32,115,112,97,99,101,0
	0
; (!*ENTRY GTID EXPR 0)
GTID:	intern GTID
 PUSH 15,0
 SKIPE L0001
 JRST L1109
 PUSHJ 15,SYMFNC+390
 SKIPE L0001
 JRST L1109
 MOVE 1,L1107
 ADJSP 15,-1
 JRST SYMFNC+380
L1109: MOVE 6,L0001
 MOVEM 6,0(15)
 MOVE 6,0(15)
 MOVE 6,SYMNAM(6)
 MOVEM 6,L0001
 MOVE 1,0(15)
 ADJSP 15,-1
 POPJ 15,0
L1107:	<4_30>+<1_18>+L1108
	extern L1110
	extern L1111
L1113:	30
	byte(7)82,97,110,32,111,117,116,32,111,102,32,98,105,110,97,114,121,32,112,114,111,103,114,97,109,32,115,112,97,99,101,0
	1
; (!*ENTRY GTBPS EXPR 1)
GTBPS:	intern GTBPS
 MOVE 4,1
 MOVE 3,0
 CAME 1,0
 JRST L1114
 HRRZI 2,1
 MOVE 1,L1111
 SUB 1,L1110
 IDIV 1,2
 POPJ 15,0
L1114: MOVE 3,L1110
 ADDM 1,L1110
 MOVE 6,L1111
 CAML 6,L1110
 JRST L1115
 MOVE 1,L1112
 JRST SYMFNC+156
L1115: MOVE 1,3
 POPJ 15,0
L1112:	<4_30>+<1_18>+L1113
	2
; (!*ENTRY DELBPS EXPR 2)
DELBPS:	intern DELBPS
 CAME 2,L1110
 JRST L1116
 MOVEM 1,L1110
 POPJ 15,0
L1116: MOVE 1,0
 POPJ 15,0
L1118:	22
	byte(7)82,97,110,32,111,117,116,32,111,102,32,87,65,114,114,97,121,32,115,112,97,99,101,0
	1
; (!*ENTRY GTWARRAY EXPR 1)
L1119:	intern L1119
 MOVE 4,1
 MOVE 3,0
 CAME 1,0
 JRST L1120
 HRRZI 2,1
 MOVE 1,L1111
 SUB 1,L1110
 IDIV 1,2
 POPJ 15,0
L1120: MOVE 2,L1111
 SUB 2,1
 MOVE 3,2
 CAML 2,L1110
 JRST L1121
 MOVE 1,L1117
 JRST SYMFNC+156
L1121: MOVE 1,2
 MOVEM 1,L1111
 POPJ 15,0
L1117:	<4_30>+<1_18>+L1118
	2
; (!*ENTRY DELWARRAY EXPR 2)
L1122:	intern L1122
 CAME 1,L1111
 JRST L1123
 MOVE 1,2
 MOVEM 1,L1111
 POPJ 15,0
L1123: MOVE 1,0
 POPJ 15,0
	2
; (!*ENTRY COPYSTRINGTOFROM EXPR 2)
L1127:	intern L1127
 ADJSP 15,6
 MOVEM 1,-5(15)
 MOVEM 2,-4(15)
 MOVE 3,1
 TLZ 3,258048
 MOVEM 3,-2(15)
 MOVE 4,2
 TLZ 4,258048
 MOVEM 4,-1(15)
 MOVE 6,0(4)
 LDB 5,L1124
 TDNE 5,L1125
 TDO 5,L1126
 MOVEM 5,-3(15)
 MOVE 6,0(3)
 LDB 1,L1124
 TDNE 1,L1125
 TDO 1,L1126
 CAML 1,5
 JRST L1128
 MOVEM 1,-3(15)
L1128: HRRZI 2,5
 HRRZI 1,6
 ADD 1,-3(15)
 IDIV 1,2
 MOVEM 1,-3(15)
 SETZM 0(15)
L1129: MOVE 6,0(15)
 CAMLE 6,-3(15)
 JRST L1130
 MOVE 2,0(15)
 ADD 2,-2(15)
 MOVE 3,0(15)
 ADD 3,-1(15)
 MOVE 6,1(3)
 MOVEM 6,1(2)
 AOS 0(15)
 JRST L1129
L1130: MOVE 1,-5(15)
 ADJSP 15,-6
 POPJ 15,0
L1124:	point 30,6,35
L1125:	536870912
L1126:	-536870912
	1
; (!*ENTRY COPYSTRING EXPR 1)
L1134:	intern L1134
 ADJSP 15,2
 MOVEM 1,0(15)
 MOVE 2,1
 TLZ 2,258048
 MOVE 6,0(2)
 LDB 1,L1131
 TDNE 1,L1132
 TDO 1,L1133
 PUSHJ 15,SYMFNC+145
 MOVEM 1,-1(15)
 MOVE 2,0(15)
 TLZ 2,258048
 PUSHJ 15,SYMFNC+394
 MOVE 1,-1(15)
 TLZ 1,258048
 TLO 1,16384
 ADJSP 15,-2
 POPJ 15,0
L1131:	point 30,6,35
L1132:	536870912
L1133:	-536870912
	3
; (!*ENTRY COPYWARRAY EXPR 3)
L1135:	intern L1135
 ADJSP 15,2
 MOVEM 1,-1(15)
 MOVEM 2,0(15)
 MOVE 5,3
 SETZM 4
L1136: CAMG 4,5
 JRST L1137
 SETZM 1
 JRST L1138
L1137: MOVE 2,4
 ADD 2,-1(15)
 MOVE 3,4
 ADD 3,0(15)
 MOVE 6,0(3)
 MOVEM 6,0(2)
 AOS 4
 JRST L1136
L1138: MOVE 1,-1(15)
 ADJSP 15,-2
 POPJ 15,0
	2
; (!*ENTRY COPYVECTORTOFROM EXPR 2)
L1142:	intern L1142
 ADJSP 15,6
 MOVEM 1,-5(15)
 MOVEM 2,-4(15)
 MOVE 3,1
 TLZ 3,258048
 MOVEM 3,-2(15)
 MOVE 4,2
 TLZ 4,258048
 MOVEM 4,-1(15)
 MOVE 6,0(4)
 LDB 5,L1139
 TDNE 5,L1140
 TDO 5,L1141
 MOVEM 5,-3(15)
 SETZM 0(15)
L1143: MOVE 6,0(15)
 CAMLE 6,-3(15)
 JRST L1144
 MOVE 2,0(15)
 ADD 2,-2(15)
 MOVE 3,0(15)
 ADD 3,-1(15)
 MOVE 6,1(3)
 MOVEM 6,1(2)
 AOS 0(15)
 JRST L1143
L1144: MOVE 1,-5(15)
 ADJSP 15,-6
 POPJ 15,0
L1139:	point 30,6,35
L1140:	536870912
L1141:	-536870912
	1
; (!*ENTRY COPYVECTOR EXPR 1)
L1148:	intern L1148
 ADJSP 15,2
 MOVEM 1,0(15)
 MOVE 2,1
 TLZ 2,258048
 MOVE 6,0(2)
 LDB 1,L1145
 TDNE 1,L1146
 TDO 1,L1147
 PUSHJ 15,SYMFNC+142
 MOVEM 1,-1(15)
 MOVE 2,0(15)
 TLZ 2,258048
 PUSHJ 15,SYMFNC+397
 MOVE 1,-1(15)
 TLZ 1,258048
 TLO 1,32768
 ADJSP 15,-2
 POPJ 15,0
L1145:	point 30,6,35
L1146:	536870912
L1147:	-536870912
	2
; (!*ENTRY COPYWRDSTOFROM EXPR 2)
L1152:	intern L1152
 ADJSP 15,6
 MOVEM 1,-5(15)
 MOVEM 2,-4(15)
 MOVE 3,1
 TLZ 3,258048
 MOVEM 3,-2(15)
 MOVE 4,2
 TLZ 4,258048
 MOVEM 4,-1(15)
 MOVE 6,0(4)
 LDB 5,L1149
 TDNE 5,L1150
 TDO 5,L1151
 MOVEM 5,-3(15)
 SETZM 0(15)
L1153: MOVE 6,0(15)
 CAMLE 6,-3(15)
 JRST L1154
 MOVE 2,0(15)
 ADD 2,-2(15)
 MOVE 3,0(15)
 ADD 3,-1(15)
 MOVE 6,1(3)
 MOVEM 6,1(2)
 AOS 0(15)
 JRST L1153
L1154: MOVE 1,-5(15)
 ADJSP 15,-6
 POPJ 15,0
L1149:	point 30,6,35
L1150:	536870912
L1151:	-536870912
	1
; (!*ENTRY COPYWRDS EXPR 1)
L1158:	intern L1158
 ADJSP 15,2
 MOVEM 1,0(15)
 MOVE 2,1
 TLZ 2,258048
 MOVE 6,0(2)
 LDB 1,L1155
 TDNE 1,L1156
 TDO 1,L1157
 PUSHJ 15,SYMFNC+170
 MOVEM 1,-1(15)
 MOVE 2,0(15)
 TLZ 2,258048
 PUSHJ 15,SYMFNC+399
 MOVE 1,-1(15)
 TLZ 1,258048
 TLO 1,28672
 ADJSP 15,-2
 POPJ 15,0
L1155:	point 30,6,35
L1156:	536870912
L1157:	-536870912
	1
; (!*ENTRY TOTALCOPY EXPR 1)
L1163:	intern L1163
 ADJSP 15,5
 MOVEM 1,0(15)
 MOVEM 0,-1(15)
 MOVEM 0,-2(15)
 MOVEM 0,-3(15)
 LDB 1,L1159
 CAIL 1,1
 CAILE 1,9
 JRST L1164
 JRST @L1165-1(1)
L1165:   IFIW L1166
   IFIW L1167
   IFIW L1168
   IFIW L1169
   IFIW L1167
   IFIW L1167
   IFIW L1170
   IFIW L1171
   IFIW L1172
L1164: JRST L1167
L1172: MOVE 1,0(15)
 MOVE 1,0(1)
 PUSHJ 15,L1163
 MOVEM 1,-4(15)
 MOVE 1,0(15)
 MOVE 1,1(1)
 PUSHJ 15,L1163
 MOVE 2,-4(15)
 ADJSP 15,-5
 JRST SYMFNC+278
L1169: MOVE 1,0(15)
 ADJSP 15,-5
 JRST SYMFNC+395
L1171: MOVE 2,0(15)
 TLZ 2,258048
 MOVEM 2,-3(15)
 MOVE 6,0(2)
 LDB 3,L1160
 TDNE 3,L1161
 TDO 3,L1162
 MOVEM 3,-1(15)
 MOVE 1,3
 PUSHJ 15,SYMFNC+142
 MOVE 4,1
 TLZ 4,258048
 TLO 4,32768
 MOVEM 4,-2(15)
 MOVEM 0,-4(15)
 SETZM -4(15)
L1173: MOVE 6,-4(15)
 CAMG 6,-1(15)
 JRST L1174
 SETZM 1
 JRST L1175
L1174: MOVE 1,0(15)
 TLZ 1,258048
 ADD 1,-4(15)
 MOVE 1,1(1)
 PUSHJ 15,L1163
 MOVE 2,-2(15)
 TLZ 2,258048
 ADD 2,-4(15)
 MOVEM 1,1(2)
 AOS -4(15)
 JRST L1173
L1175: MOVE 1,-2(15)
 JRST L1176
L1170: MOVE 1,0(15)
 ADJSP 15,-5
 JRST SYMFNC+400
L1166: MOVE 1,0(15)
 PUSHJ 15,SYMFNC+400
 TLZ 1,258048
 TLZ 1,258048
 TLO 1,4096
 JRST L1176
L1168: MOVE 1,0(15)
 PUSHJ 15,SYMFNC+400
 TLZ 1,258048
 TLZ 1,258048
 TLO 1,12288
 JRST L1176
L1167: MOVE 1,0(15)
L1176: ADJSP 15,-5
 POPJ 15,0
L1159:	point 6,1,5
L1160:	point 30,6,35
L1161:	536870912
L1162:	-536870912
; (!*ENTRY HARDCONS EXPR 2)
L1177:	intern L1177
 ADJSP 15,3
 MOVEM 1,0(15)
 MOVEM 2,-1(15)
 MOVNI 7,2
 ADDM 7,L1080
 HRRZI 1,2
 PUSHJ 15,SYMFNC+379
 MOVEM 1,-2(15)
 MOVE 6,0(15)
 MOVEM 6,0(1)
 MOVE 6,-1(15)
 MOVEM 6,1(1)
 TLZ 1,258048
 TLO 1,36864
 ADJSP 15,-3
 POPJ 15,0
	2
; (!*ENTRY CONS EXPR 2)
CONS:	intern CONS
 MOVE 5,1
 MOVE 4,2
 MOVE 3,L1080
 HRRZI 7,2
 ADDM 7,L1080
 MOVE 6,L1086
 CAML 6,L1080
 JRST L1178
 JRST L1177
L1178: MOVEM 1,0(3)
 MOVEM 2,1(3)
 MOVE 1,3
 TLZ 1,258048
 TLO 1,36864
 POPJ 15,0
	2
; (!*ENTRY XCONS EXPR 2)
XCONS:	intern XCONS
 MOVE 5,1
 MOVE 4,2
 MOVE 3,L1080
 HRRZI 7,2
 ADDM 7,L1080
 MOVE 6,L1086
 CAML 6,L1080
 JRST L1179
 MOVE 2,1
 MOVE 1,4
 JRST L1177
L1179: MOVEM 2,0(3)
 MOVEM 1,1(3)
 MOVE 1,3
 TLZ 1,258048
 TLO 1,36864
 POPJ 15,0
	1
; (!*ENTRY NCONS EXPR 1)
NCONS:	intern NCONS
 MOVE 4,1
 MOVE 3,L1080
 HRRZI 7,2
 ADDM 7,L1080
 MOVE 6,L1086
 CAML 6,L1080
 JRST L1180
 MOVE 2,0
 JRST L1177
L1180: MOVEM 1,0(3)
 MOVE 2,0
 MOVEM 2,1(3)
 MOVE 1,3
 TLZ 1,258048
 TLO 1,36864
 POPJ 15,0
L1186:	57
	byte(7)65,32,118,101,99,116,111,114,32,119,105,116,104,32,102,101,119,101,114,32,116,104,97,110,32,122,101,114,111,32,101,108,101,109,101,110,116,115,32,99,97,110,110,111,116,32,98,101,32,97,108,108,111,99,97,116,101,100,0
	1
; (!*ENTRY MKVECT EXPR 1)
MKVECT:	intern MKVECT
 ADJSP 15,3
 MOVEM 1,0(15)
 LDB 11,L1182
 CAIN 11,63
 JRST L1181
 CAILE 11,0
 JRST L1187
L1181: MOVEM 1,0(15)
 CAML 1,L1183
 JRST L1188
 MOVE 1,L1184
 ADJSP 15,-3
 JRST SYMFNC+156
L1188: MOVEM 0,-1(15)
 PUSHJ 15,SYMFNC+142
 MOVEM 1,-1(15)
 MOVEM 0,-2(15)
 SETZM -2(15)
L1189: MOVE 6,-2(15)
 CAMLE 6,0(15)
 JRST L1190
 MOVE 2,-2(15)
 ADD 2,-1(15)
 MOVE 1,0
 MOVEM 1,1(2)
 AOS -2(15)
 JRST L1189
L1190: MOVE 1,-1(15)
 TLZ 1,258048
 TLO 1,32768
 JRST L1191
L1187: MOVE 2,L1185
 ADJSP 15,-3
 JRST SYMFNC+133
L1191: ADJSP 15,-3
 POPJ 15,0
L1182:	point 6,1,5
L1183:	-1
L1185:	<30_30>+402
L1184:	<4_30>+<1_18>+L1186
L1197:	58
	byte(7)65,110,32,32,69,118,101,99,116,32,119,105,116,104,32,102,101,119,101,114,32,116,104,97,110,32,122,101,114,111,32,101,108,101,109,101,110,116,115,32,99,97,110,110,111,116,32,98,101,32,97,108,108,111,99,97,116,101,100,0
	2
; (!*ENTRY MKEVECTOR EXPR 2)
L1198:	intern L1198
 ADJSP 15,4
 MOVEM 1,0(15)
 MOVEM 2,-1(15)
 LDB 11,L1193
 CAIN 11,63
 JRST L1192
 CAILE 11,0
 JRST L1199
L1192: MOVEM 1,0(15)
 CAML 1,L1194
 JRST L1200
 MOVE 1,L1195
 ADJSP 15,-4
 JRST SYMFNC+156
L1200: MOVEM 0,-2(15)
 PUSHJ 15,SYMFNC+387
 MOVEM 1,-2(15)
 MOVE 6,-1(15)
 MOVEM 6,1(1)
 MOVEM 0,-3(15)
 HRRZI 6,1
 MOVEM 6,-3(15)
L1201: MOVE 6,-3(15)
 CAMLE 6,0(15)
 JRST L1202
 MOVE 2,-3(15)
 ADD 2,-2(15)
 MOVE 1,0
 MOVEM 1,1(2)
 AOS -3(15)
 JRST L1201
L1202: MOVE 1,-2(15)
 TLZ 1,258048
 TLO 1,40960
 JRST L1203
L1199: MOVE 2,L1196
 ADJSP 15,-4
 JRST SYMFNC+133
L1203: ADJSP 15,-4
 POPJ 15,0
L1193:	point 6,1,5
L1194:	-1
L1196:	<30_30>+404
L1195:	<4_30>+<1_18>+L1197
	2
; (!*ENTRY MKSTRING EXPR 2)
L1208:	intern L1208
 ADJSP 15,5
 MOVEM 1,0(15)
 MOVEM 2,-1(15)
 MOVEM 0,-2(15)
 MOVEM 0,-3(15)
 LDB 11,L1205
 CAIN 11,63
 JRST L1204
 CAILE 11,0
 JRST L1209
L1204: MOVEM 1,-2(15)
 JRST L1210
L1209: MOVE 2,L1206
 ADJSP 15,-5
 JRST SYMFNC+133
L1210: MOVE 6,-2(15)
 CAML 6,L1207
 JRST L1211
 MOVE 2,L1206
 MOVE 1,0(15)
 ADJSP 15,-5
 JRST SYMFNC+406
L1211: MOVE 1,-2(15)
 PUSHJ 15,SYMFNC+145
 MOVEM 1,-3(15)
 SETZM -4(15)
L1212: MOVE 6,-4(15)
 CAMLE 6,-2(15)
 JRST L1213
 MOVE 3,-1(15)
 MOVE 2,-4(15)
 MOVE 1,-3(15)
 AOS 1
 TLO 1,204800
 ADJBP 2,1
 DPB 3,2
 AOS -4(15)
 JRST L1212
L1213: MOVE 1,-3(15)
 TLZ 1,258048
 TLO 1,16384
 ADJSP 15,-5
 POPJ 15,0
L1205:	point 6,1,5
L1207:	-1
L1206:	<30_30>+405
	2
; (!*ENTRY MAKE!-BYTES EXPR 2)
L1218:	intern L1218
 ADJSP 15,5
 MOVEM 1,0(15)
 MOVEM 2,-1(15)
 MOVEM 0,-2(15)
 MOVEM 0,-3(15)
 LDB 11,L1215
 CAIN 11,63
 JRST L1214
 CAILE 11,0
 JRST L1219
L1214: MOVEM 1,-2(15)
 JRST L1220
L1219: MOVE 2,L1216
 ADJSP 15,-5
 JRST SYMFNC+133
L1220: MOVE 6,-2(15)
 CAML 6,L1217
 JRST L1221
 MOVE 2,L1216
 MOVE 1,0(15)
 ADJSP 15,-5
 JRST SYMFNC+406
L1221: MOVE 1,-2(15)
 PUSHJ 15,SYMFNC+145
 MOVEM 1,-3(15)
 SETZM -4(15)
L1222: MOVE 6,-4(15)
 CAMLE 6,-2(15)
 JRST L1223
 MOVE 3,-1(15)
 MOVE 2,-4(15)
 MOVE 1,-3(15)
 AOS 1
 TLO 1,204800
 ADJBP 2,1
 DPB 3,2
 AOS -4(15)
 JRST L1222
L1223: MOVE 1,-3(15)
 TLZ 1,258048
 TLO 1,20480
 ADJSP 15,-5
 POPJ 15,0
L1215:	point 6,1,5
L1217:	-1
L1216:	<30_30>+407
	2
; (!*ENTRY MAKE!-HALFWORDS EXPR 2)
L1228:	intern L1228
 ADJSP 15,5
 MOVEM 1,0(15)
 MOVEM 2,-1(15)
 MOVEM 0,-2(15)
 MOVEM 0,-3(15)
 LDB 11,L1225
 CAIN 11,63
 JRST L1224
 CAILE 11,0
 JRST L1229
L1224: MOVEM 1,-2(15)
 JRST L1230
L1229: MOVE 2,L1226
 ADJSP 15,-5
 JRST SYMFNC+133
L1230: MOVE 6,-2(15)
 CAML 6,L1227
 JRST L1231
 MOVE 2,L1226
 MOVE 1,0(15)
 ADJSP 15,-5
 JRST SYMFNC+406
L1231: MOVE 1,-2(15)
 PUSHJ 15,SYMFNC+171
 MOVEM 1,-3(15)
 SETZM -4(15)
L1232: MOVE 6,-4(15)
 CAMLE 6,-2(15)
 JRST L1233
 MOVE 3,-1(15)
 MOVE 2,-4(15)
 MOVE 1,-3(15)
 AOS 1
 TLO 1,245760
 ADJBP 2,1
 DPB 3,2
 AOS -4(15)
 JRST L1232
L1233: MOVE 1,-3(15)
 TLZ 1,258048
 TLO 1,24576
 ADJSP 15,-5
 POPJ 15,0
L1225:	point 6,1,5
L1227:	-1
L1226:	<30_30>+408
	2
; (!*ENTRY MAKE!-WORDS EXPR 2)
L1238:	intern L1238
 ADJSP 15,5
 MOVEM 1,0(15)
 MOVEM 2,-1(15)
 MOVEM 0,-2(15)
 MOVEM 0,-3(15)
 LDB 11,L1235
 CAIN 11,63
 JRST L1234
 CAILE 11,0
 JRST L1239
L1234: MOVEM 1,-2(15)
 JRST L1240
L1239: MOVE 2,L1236
 ADJSP 15,-5
 JRST SYMFNC+133
L1240: MOVE 6,-2(15)
 CAML 6,L1237
 JRST L1241
 MOVE 2,L1236
 MOVE 1,0(15)
 ADJSP 15,-5
 JRST SYMFNC+406
L1241: MOVE 1,-2(15)
 PUSHJ 15,SYMFNC+170
 MOVEM 1,-3(15)
 SETZM -4(15)
L1242: MOVE 6,-4(15)
 CAMLE 6,-2(15)
 JRST L1243
 MOVE 2,-4(15)
 ADD 2,-3(15)
 MOVE 6,-1(15)
 MOVEM 6,1(2)
 AOS -4(15)
 JRST L1242
L1243: MOVE 1,-3(15)
 TLZ 1,258048
 TLO 1,28672
 ADJSP 15,-5
 POPJ 15,0
L1235:	point 6,1,5
L1237:	-1
L1236:	<30_30>+409
	2
; (!*ENTRY MAKE!-VECTOR EXPR 2)
L1248:	intern L1248
 ADJSP 15,5
 MOVEM 1,0(15)
 MOVEM 2,-1(15)
 MOVEM 0,-2(15)
 MOVEM 0,-3(15)
 LDB 11,L1245
 CAIN 11,63
 JRST L1244
 CAILE 11,0
 JRST L1249
L1244: MOVEM 1,-2(15)
 JRST L1250
L1249: MOVE 2,L1246
 ADJSP 15,-5
 JRST SYMFNC+133
L1250: MOVE 6,-2(15)
 CAML 6,L1247
 JRST L1251
 MOVE 2,L1246
 MOVE 1,0(15)
 ADJSP 15,-5
 JRST SYMFNC+406
L1251: MOVE 1,-2(15)
 PUSHJ 15,SYMFNC+142
 MOVEM 1,-3(15)
 SETZM -4(15)
L1252: MOVE 6,-4(15)
 CAMLE 6,-2(15)
 JRST L1253
 MOVE 2,-4(15)
 ADD 2,-3(15)
 MOVE 6,-1(15)
 MOVEM 6,1(2)
 AOS -4(15)
 JRST L1252
L1253: MOVE 1,-3(15)
 TLZ 1,258048
 TLO 1,32768
 ADJSP 15,-5
 POPJ 15,0
L1245:	point 6,1,5
L1247:	-1
L1246:	<30_30>+410
	1
; (!*ENTRY STRING NEXPR 1)
STRING:	intern STRING
 JRST SYMFNC+147
	1
; (!*ENTRY VECTOR NEXPR 1)
VECTOR:	intern VECTOR
 JRST SYMFNC+152
	5
; (!*ENTRY LIST5 EXPR 5)
LIST5:	intern LIST5
 ADJSP 15,4
 MOVEM 1,0(15)
 MOVEM 2,-1(15)
 MOVEM 3,-2(15)
 MOVEM 4,-3(15)
 MOVE 4,5
 MOVE 3,-3(15)
 MOVE 2,-2(15)
 MOVE 1,-1(15)
 PUSHJ 15,SYMFNC+250
 MOVE 2,0(15)
 ADJSP 15,-4
 JRST SYMFNC+278
	4
; (!*ENTRY LIST4 EXPR 4)
LIST4:	intern LIST4
 ADJSP 15,3
 MOVEM 1,0(15)
 MOVEM 2,-1(15)
 MOVEM 3,-2(15)
 MOVE 3,4
 MOVE 2,-2(15)
 MOVE 1,-1(15)
 PUSHJ 15,SYMFNC+235
 MOVE 2,0(15)
 ADJSP 15,-3
 JRST SYMFNC+278
	3
; (!*ENTRY LIST3 EXPR 3)
LIST3:	intern LIST3
 PUSH 15,2
 PUSH 15,1
 MOVE 2,3
 MOVE 1,-1(15)
 PUSHJ 15,SYMFNC+249
 MOVE 2,0(15)
 ADJSP 15,-2
 JRST SYMFNC+278
	2
; (!*ENTRY LIST2 EXPR 2)
LIST2:	intern LIST2
 PUSH 15,1
 MOVE 1,2
 PUSHJ 15,SYMFNC+172
 MOVE 2,0(15)
 ADJSP 15,-1
 JRST SYMFNC+278
	extern L1254
	extern L1255
	extern L1256
	extern L1257
	extern L1258
	extern L1259
	0
; (!*ENTRY RECLAIM EXPR 0)
L1260:	intern L1260
 JRST SYMFNC+381
L1263:	13
	byte(7)72,101,97,112,32,115,112,97,99,101,32,108,111,119,0
L1264:	30
	byte(7)42,42,42,32,71,97,114,98,97,103,101,32,99,111,108,108,101,99,116,105,111,110,32,115,116,97,114,116,105,110,103,0
	0
; (!*ENTRY !%RECLAIM EXPR 0)
L1265:	intern L1265
 ADJSP 15,2
 CAMN 0,SYMVAL+416
 JRST L1266
 MOVE 1,L1261
 PUSHJ 15,SYMFNC+418
L1266: HRRZI 1,2
 MOVNS 1
 MOVE 2,1
 MOVE 1,15
 ADJSP 1,0(2)
 HRRZ 1,1
 IOR 1,[262144]
 MOVEM 1,L1257
 PUSHJ 15,SYMFNC+419
 MOVEM 1,L1258
 MOVE 2,L1080
 SUB 2,L1081
 MOVEM 2,L1259
 AOS SYMVAL+414
 MOVE 6,L1080
 MOVEM 6,L1083
 MOVE 6,L1084
 MOVEM 6,L1080
 MOVE 6,L1081
 MOVEM 6,0(15)
 MOVE 6,L1082
 MOVEM 6,-1(15)
 MOVE 6,L1084
 MOVEM 6,L1081
 MOVE 6,L1085
 MOVEM 6,L1082
 MOVE 6,0(15)
 MOVEM 6,L1084
 MOVE 6,-1(15)
 MOVEM 6,L1085
 MOVE 6,L1086
 MOVEM 6,0(15)
 MOVE 6,L1087
 MOVEM 6,L1086
 MOVE 6,0(15)
 MOVEM 6,L1087
 PUSHJ 15,L1267
 PUSHJ 15,L1268
 MOVE 2,L1083
 ADDI 2,1023
 MOVE 1,L1084
 AOS 1
 PUSHJ 15,SYMFNC+420
 PUSHJ 15,SYMFNC+419
 SUB 1,L1258
 MOVEM 1,L1258
 ADDM 1,SYMVAL+415
 CAMN 0,SYMVAL+416
 JRST L1269
 PUSHJ 15,L1270
L1269: MOVE 1,0
 MOVEM 1,L1088
 PUSHJ 15,SYMFNC+378
 CAML 1,SYMVAL+417
 JRST L1271
 MOVE 3,0
 MOVE 2,L1262
 HRRZI 1,99
 PUSHJ 15,SYMFNC+236
L1271: MOVE 1,0
 ADJSP 15,-2
 POPJ 15,0
L1262:	<4_30>+<1_18>+L1263
L1261:	<4_30>+<1_18>+L1264
; (!*ENTRY MARKANDCOPYFROMID EXPR 1)
L1272:	intern L1272
 PUSH 15,1
 ADDI 1,SYMNAM
 PUSHJ 15,L1273
 MOVE 7,0(15)
 XMOVEI 6,SYMNAM(7)
 TLO 6,155648
 HRRZI 7,27
 DPB 7,6
 XMOVEI 1,SYMPRP
 ADD 1,0(15)
 PUSHJ 15,L1273
 XMOVEI 1,SYMVAL
 ADD 1,0(15)
 ADJSP 15,-1
 JRST L1273
; (!*ENTRY COPYFROMALLBASES EXPR 0)
L1267:	intern L1267
 ADJSP 15,3
 MOVEM 0,0(15)
 MOVEM 0,-1(15)
 HRRZI 1,128
 PUSHJ 15,L1272
 SETZM -2(15)
L1276: MOVE 6,-2(15)
 CAILE 6,127
 JRST L1277
 MOVE 7,-2(15)
 LDB 1,L1274
 CAIN 1,27
 JRST L1278
 MOVE 1,-2(15)
 PUSHJ 15,L1272
L1278: AOS -2(15)
 JRST L1276
L1277: SETZM -2(15)
L1279: MOVE 6,-2(15)
 CAILE 6,8209
 JRST L1280
 MOVE 2,-2(15)
 XMOVEI 1,L0003
 TLO 1,245760
 ADJBP 2,1
 LDB 1,2
 MOVEM 1,-1(15)
 JUMPLE 1,L1281
 LDB 2,L1275
 CAIN 2,27
 JRST L1281
 PUSHJ 15,L1272
L1281: AOS -2(15)
 JRST L1279
L1280: MOVE 6,L1255
 MOVEM 6,-1(15)
L1282: HRRZI 7,2
 ADDM 7,-1(15)
 MOVE 1,SYMVAL+84
 MOVE 6,-1(15)
 CAMG 6,L1256
 JRST L1283
 MOVE 1,0
L1283: CAMN 1,0
 JRST L1284
 MOVE 1,-1(15)
 PUSHJ 15,L1273
 JRST L1282
L1284: MOVE 6,L1254
 MOVEM 6,-2(15)
L1285: MOVE 6,-2(15)
 CAMLE 6,L1257
 JRST L1286
 MOVE 1,-2(15)
 PUSHJ 15,L1273
 AOS -2(15)
 JRST L1285
L1286: MOVE 1,0
 ADJSP 15,-3
 POPJ 15,0
L1274:	point 6,SYMNAM(7),5
L1275:	point 6,SYMNAM(1),5
; (!*ENTRY COPYFROMRANGE EXPR 2)
L1287:	intern L1287
 ADJSP 15,4
 MOVEM 1,0(15)
 MOVEM 2,-1(15)
 MOVEM 1,-2(15)
 SETZM -3(15)
L1288: MOVE 6,-2(15)
 CAMLE 6,-1(15)
 JRST L1289
 MOVE 1,-2(15)
 PUSHJ 15,L1273
 AOS -3(15)
 MOVE 1,-3(15)
 ADD 1,0(15)
 ADDI 1,0
 MOVEM 1,-2(15)
 JRST L1288
L1289: MOVE 1,0
 ADJSP 15,-4
 POPJ 15,0
; (!*ENTRY COPYFROMBASE EXPR 1)
L1273:	intern L1273
 JRST L1290
; (!*ENTRY COPYITEM EXPR 1)
L1290:	intern L1290
 ADJSP 15,5
 MOVEM 1,0(15)
 MOVEM 0,-2(15)
 MOVEM 0,-3(15)
 MOVE 6,0(1)
 MOVEM 6,-4(15)
 LDB 2,L1291
 MOVEM 2,-1(15)
 JUMPLE 2,L1295
 CAIGE 2,15
 JRST L1296
L1295: CAIE 2,30
 JRST L1297
 CAMN 0,-4(15)
 JRST L1297
 MOVE 3,-4(15)
 TLZ 3,258048
 MOVEM 3,-2(15)
 LDB 4,L1292
 CAIN 4,27
 JRST L1297
 MOVE 1,3
 PUSHJ 15,L1272
L1297: MOVE 1,-4(15)
 MOVE 7,0(15)
 MOVEM 1,0(7)
 JRST L1298
L1296: MOVE 3,-4(15)
 TLZ 3,258048
 MOVEM 3,-2(15)
 CAMGE 3,L1084
 JRST L1299
 CAMG 3,L1083
 JRST L1300
L1299: MOVE 1,-4(15)
 JRST L1298
L1300: MOVE 6,0(3)
 MOVEM 6,-3(15)
 LDB 4,L1293
 CAIE 4,27
 JRST L1301
 MOVE 5,-3(15)
 TLZ 5,258048
 DPB 2,L1294
 MOVEM 5,0(1)
 MOVE 1,5
 JRST L1298
L1301: ADJSP 15,-5
 JRST L1302
L1298: ADJSP 15,-5
 POPJ 15,0
L1291:	point 6,-4(15),5
L1292:	point 6,SYMNAM(3),5
L1293:	point 6,-3(15),5
L1294:	point 6,5,5
L1309:	54
	byte(7)85,110,101,120,112,101,99,116,101,100,32,116,97,103,32,37,119,32,102,111,117,110,100,32,97,116,32,37,119,32,100,117,114,105,110,103,32,103,97,114,98,97,103,101,32,99,111,108,108,101,99,116,105,111,110,0
; (!*ENTRY COPYITEM1 EXPR 1)
L1302:	intern L1302
 ADJSP 15,7
 MOVEM 1,0(15)
 MOVEM 0,-1(15)
 MOVEM 0,-2(15)
 MOVEM 0,-3(15)
 MOVEM 0,-4(15)
 MOVE 6,0(1)
 MOVEM 6,-5(15)
 LDB 1,L1303
 CAIL 1,1
 CAILE 1,10
 JRST L1310
 JRST @L1311-1(1)
L1311:   IFIW L1312
   IFIW L1312
   IFIW L1312
   IFIW L1313
   IFIW L1314
   IFIW L1314
   IFIW L1312
   IFIW L1315
   IFIW L1316
   IFIW L1317
L1310: JRST L1314
L1316: MOVE 2,-5(15)
 MOVE 2,0(2)
 MOVEM 2,-3(15)
 HRRZI 1,2
 PUSHJ 15,SYMFNC+379
 MOVE 3,1
 MOVEM 3,-1(15)
 TLZ 3,258048
 TLO 3,110592
 MOVE 7,-5(15)
 MOVEM 3,0(7)
 MOVE 2,-1(15)
 TLZ 2,258048
 TLO 2,36864
 MOVE 7,0(15)
 MOVEM 2,0(7)
 MOVE 7,-1(15)
 MOVE 6,-3(15)
 MOVEM 6,0(7)
 MOVE 4,-5(15)
 MOVE 4,1(4)
 MOVE 7,-1(15)
 MOVEM 4,1(7)
 SETZM 1
 ADD 1,-1(15)
 PUSHJ 15,L1290
 HRRZI 1,1
 ADD 1,-1(15)
 ADJSP 15,-7
 JRST L1290
L1313: MOVE 1,-5(15)
 PUSHJ 15,SYMFNC+395
 MOVE 3,-5(15)
 TLZ 3,258048
 MOVE 2,1
 MOVEM 2,-1(15)
 TLZ 2,258048
 TLO 2,110592
 MOVEM 2,0(3)
 MOVE 1,-1(15)
 MOVE 7,0(15)
 MOVEM 1,0(7)
 JRST L1318
L1315: MOVE 2,-5(15)
 TLZ 2,258048
 MOVEM 2,-4(15)
 MOVE 6,0(2)
 LDB 3,L1304
 TDNE 3,L1305
 TDO 3,L1306
 MOVEM 3,-2(15)
 MOVE 1,3
 PUSHJ 15,SYMFNC+142
 MOVE 2,1
 MOVEM 2,-3(15)
 TLZ 2,258048
 TLO 2,110592
 MOVE 7,-4(15)
 MOVEM 2,0(7)
 MOVEM 0,-6(15)
 SETZM -6(15)
L1319: MOVE 6,-6(15)
 CAMG 6,-2(15)
 JRST L1320
 SETZM 1
 JRST L1321
L1320: MOVE 2,-6(15)
 ADD 2,-3(15)
 MOVE 3,-6(15)
 ADD 3,-4(15)
 MOVE 6,1(3)
 MOVEM 6,1(2)
 HRRZI 1,1
 ADDM 2,1
 PUSHJ 15,L1290
 AOS -6(15)
 JRST L1319
L1321: MOVE 1,-3(15)
 TLZ 1,258048
 TLO 1,32768
 MOVE 7,0(15)
 MOVEM 1,0(7)
 JRST L1318
L1317: MOVE 2,-5(15)
 TLZ 2,258048
 MOVEM 2,-4(15)
 MOVE 6,0(2)
 LDB 3,L1304
 TDNE 3,L1305
 TDO 3,L1306
 MOVEM 3,-2(15)
 MOVE 1,3
 PUSHJ 15,SYMFNC+142
 MOVE 2,1
 MOVEM 2,-3(15)
 TLZ 2,258048
 TLO 2,110592
 MOVE 7,-4(15)
 MOVEM 2,0(7)
 MOVEM 0,-6(15)
 SETZM -6(15)
L1322: MOVE 6,-6(15)
 CAMG 6,-2(15)
 JRST L1323
 SETZM 1
 JRST L1324
L1323: MOVE 2,-6(15)
 ADD 2,-3(15)
 MOVE 3,-6(15)
 ADD 3,-4(15)
 MOVE 6,1(3)
 MOVEM 6,1(2)
 HRRZI 1,1
 ADDM 2,1
 PUSHJ 15,L1290
 AOS -6(15)
 JRST L1322
L1324: MOVE 1,-3(15)
 TLZ 1,258048
 TLO 1,40960
 MOVE 7,0(15)
 MOVEM 1,0(7)
 JRST L1318
L1312: MOVEM 1,-3(15)
 MOVE 1,-5(15)
 PUSHJ 15,SYMFNC+400
 MOVE 3,-5(15)
 TLZ 3,258048
 MOVE 2,1
 MOVEM 2,-1(15)
 TLZ 2,258048
 TLO 2,110592
 MOVEM 2,0(3)
 MOVE 1,-1(15)
 MOVE 6,-3(15)
 DPB 6,L1307
 MOVE 7,0(15)
 MOVEM 1,0(7)
 JRST L1318
L1314: MOVE 3,-5(15)
 TLZ 3,258048
 MOVE 2,1
 MOVE 1,L1308
 PUSHJ 15,SYMFNC+155
 ADJSP 15,-7
 JRST SYMFNC+380
L1318: ADJSP 15,-7
 POPJ 15,0
L1303:	point 6,-5(15),5
L1304:	point 30,6,35
L1305:	536870912
L1306:	-536870912
L1307:	point 6,1,5
L1308:	<4_30>+<1_18>+L1309
; (!*ENTRY MAKEIDFREELIST EXPR 0)
L1268:	intern L1268
 MOVE 3,0
 SETZM 2
L1327: CAILE 2,128
 JRST L1328
 XMOVEI 6,SYMNAM(2)
 TLO 6,155648
 HRRZI 7,4
 DPB 7,6
 AOS 2
 JRST L1327
L1328: HRRZI 3,129
L1329: LDB 1,L1325
 CAIE 1,27
 JRST L1330
 CAILE 3,8000
 JRST L1330
 XMOVEI 6,SYMNAM(3)
 TLO 6,155648
 HRRZI 7,4
 DPB 7,6
 AOS 3
 JRST L1329
L1330: CAIGE 3,8000
 JRST L1331
 SETZM L0001
 JRST L1332
L1331: MOVEM 3,L0001
L1332: MOVE 1,3
 AOS 1
 MOVE 2,1
L1333: CAILE 2,8000
 JRST L1334
 LDB 1,L1326
 CAIE 1,27
 JRST L1335
 XMOVEI 6,SYMNAM(2)
 TLO 6,155648
 HRRZI 7,4
 DPB 7,6
 JRST L1336
L1335: MOVEM 2,SYMNAM(3)
 MOVE 3,2
L1336: AOS 2
 JRST L1333
L1334: SETZM SYMNAM(3)
 MOVE 1,0
 POPJ 15,0
L1325:	point 6,SYMNAM(3),5
L1326:	point 6,SYMNAM(2),5
L1338:	43
	byte(7)42,42,42,32,71,67,32,37,119,58,32,116,105,109,101,32,37,100,32,109,115,44,32,37,100,32,114,101,99,111,118,101,114,101,100,44,32,37,100,32,102,114,101,101,0
; (!*ENTRY GCSTATS EXPR 0)
L1270:	intern L1270
 ADJSP 15,1
 HRRZI 2,1
 MOVE 1,L1259
 ADD 1,L1081
 SUB 1,L1080
 IDIV 1,2
 MOVEM 1,0(15)
 PUSHJ 15,SYMFNC+378
 MOVE 5,1
 MOVE 4,0(15)
 MOVE 3,L1258
 MOVE 2,SYMVAL+414
 MOVE 1,L1337
 ADJSP 15,-1
 JRST SYMFNC+418
L1337:	<4_30>+<1_18>+L1338
	end


REDUCE Historical
REDUCE Sourceforge Project | Historical SVN Repository | GitHub Mirror | SourceHut Mirror | NotABug Mirror | Chisel Mirror | Chisel RSS ]