Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

TITLE	ALLOC - TRANSLATED BY MACRO

ENTRY	ALCORE,DECORE,INTCOR

EXTERN	TRACE.,EXIT,ALCOR.,DECOR.


	SIXBIT	/INTCOR/	;0	515664,435762
INTCOR:	HLRZ	-1(16)		;1	554016,777777
	CAIE	-1		;2	302000,777777
	JRST	INTCOR+7	;3	254000,10
	SKIPE	1,@(16)		;4	332076,0
	JRST	INTCOR+10	;5	254000,11
	SKIPE	DECORE+37	;6	332000,143
	POPJ	17,		;7	263740,0
	MOVEI	1,31		;10	201040,31
	CAIL	1,5		;11	301040,5
	CAILE	1,144		;12	303040,144
	JRST	INTCOR+27	;13	254000,30
	MOVNM	1,DECORE+37	;14	212040,143
	ASH	1,1		;15	240040,1
	MOVEM	1,DECORE+47	;16	202040,153
	MOVEM	16,DECORE+50	;17	202700,154
	MOVEI	16,DECORE+46	;20	201700,152
	PUSHJ	17,ALCOR.	;21	260740,0
	MOVE	16,DECORE+50	;22	200700,154
	JUMPLE	ALCORE+31	;23	323000,64
	HRRM	DECORE+40	;24	542000,144
	SUB	DECORE+37	;25	274000,143
	HRRM	DECORE+41	;26	542000,145
	POPJ	17,		;27	263740,0
	OUTSTR	DECORE+51	;30	51140,155
	JRST	ALCORE+5	;31	254000,40

	SIXBIT	/ALCORE/	;32	415443,576245
ALCORE:	HRLZ	1,DECORE+37	;33	514040,143
	SKIPN	@DECORE+40	;34	336020,144
	JRST	ALCORE+7	;35	254000,42
	AOBJN	1,ALCORE+1	;36	253040,34
	OUTSTR	DECORE+62	;37	51140,166
	PUSHJ	17,TRACE.	;40	260740,0
	PUSHJ	17,EXIT		;41	260740,0
	LDB	DECORE+73	;42	135000,177
	MOVSI	2,-3		;43	205100,777775
	CAME	DECORE+42(2)	;44	312002,146
	AOBJN	2,ALCORE+11	;45	253100,44
	MOVE	@1(16)		;46	200036,1
	JUMPLE	INTCOR+27	;47	323000,30
	JUMPGE	2,ALCORE+20	;50	325100,53
	LSH	0,1		;51	242000,1
	AOJ	0		;52	340000,0
	MOVEM	DECORE+47	;53	202000,153
	MOVEM	16,DECORE+50	;54	202700,154
	MOVEI	16,DECORE+46	;55	201700,152
	PUSHJ	17,ALCOR.	;56	260740,21
	MOVE	16,DECORE+50	;57	200700,154
	JUMPG	ALCORE+35	;60	327000,70
	HLRZ	-1(16)		;61	554016,777777
	CAIN	-4		;62	306000,777774
	JRST	ALCORE+33	;63	254000,66
	OUTSTR	DECORE+74	;64	51140,200
	JRST	ALCORE+5	;65	254000,40
	POP	17,(17)		;66	262757,0
	JRST	@3(16)		;67	254036,3
	MOVEM	@DECORE+40	;70	202020,144
	SOJ	0		;71	360000,0
	MOVE	@0		;72	200020,0
	MOVEM	@DECORE+41	;73	202020,145
	MOVE	@DECORE+40	;74	200020,144
	SUBI	@(16)		;75	275036,0
	JUMPGE	2,ALCORE+46	;76	325100,101
	AOJ	0		;77	340000,0
	LSH	0,-1		;100	242000,777777
	MOVEM	@2(16)		;101	202036,2
	POPJ	17,		;102	263740,0

	SIXBIT	/DECORE/	;103	444543,576245
DECORE:	LDB	DECORE+73	;104	135000,177
	MOVSI	2,-3		;105	205100,777775
	CAME	DECORE+42(2)	;106	312002,146
	AOBJN	2,DECORE+2	;107	253100,106
	MOVE	@1(16)		;110	200036,1
	CAIGE	2,0		;111	305100,0
	LSH	0,1		;112	242000,1
	ADDI	0,@(16)		;113	271036,0
	HRLZ	1,DECORE+37	;114	514040,143
	CAMN	@DECORE+40	;115	316020,144
	JRST	DECORE+21	;116	254000,125
	AOBJN	1,DECORE+11	;117	253040,115
	JUMPGE	2,DECORE+17	;120	325100,123
	SOS	2,0		;121	370100,0
	JRST	DECORE+10	;122	254000,114
	OUTSTR	DECORE+105	;123	51140,211
	JRST	ALCORE+5	;124	254000,40
	SETZM	@DECORE+40	;125	402020,144
	MOVEM	DECORE+47	;126	202000,153
	SOJ			;127	360000,0
	MOVE	1,@DECORE+41	;130	200060,145
	CAMN	1,@0		;131	316060,0
	JRST	DECORE+32	;132	254000,136
	MOVEM	1,@0		;133	202060,0
	OUTSTR	DECORE+122	;134	51140,226
	JRST	ALCORE+5	;135	254000,40
	MOVEM	16,DECORE+50	;136	202700,154
	MOVEI	16,DECORE+46	;137	201700,152
	PUSHJ	17,DECOR.	;140	260740,0
	MOVE	16,DECORE+50	;141	200700,154
	POPJ	17,		;142	263740,0

	0			;143	
	XWD	1,0		;144	
	XWD	1,0		;145	
	10			;146	
	12			;147	
	14			;150	
	XWD	777777,0	;151	
	DECORE+47		;152	
	0			;153	
	0			;154	
				;155
	ASCIZ	/
?ALLAOR The argument is out of range
/
				;166
	ASCIZ	/
?ALLATO Core allocation table overflow
/
	ADD	10,(16)		;177	270416,0
				;200
	ASCIZ	/
?ALLICA Insufficient core for allocation
/
				;211
	ASCIZ	/
?ALLADC Attempt to deallocate core that wasn't allocated
/
				;226
	ASCIZ	/
%ALLEUA Error in the use of the allocated core
/

	END