Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-12 - 43,50547/qsort.mac
There is 1 other file named qsort.mac in the archive. Click here to see a list.
ENTRY	QSORT

TITLE	QSORT - TRANSLATED BY MACRO


;ACS


	SIXBIT	/QSORT/		;0	616357,626400
QSORT:	SKIPG	@1(16)		;1	337036,1
	JRST	QSO151		;2	254000,151
	MOVSI	311006		;3	205000,311006
	MOVEM	QSOR31		;4	202000,31
	MOVSI	317005		;5	205000,317005
	MOVEM	QSOR36		;6	202000,36
	MOVSI	317044		;7	205000,317044
	MOVEM	QSOR74		;10	202000,74
QSOR11:	MOVEI	@(16)		;11	201036,0
	MOVM	4,@1(16)	;12	214236,1
	MOVE	3,		;13	200140,0
	ADDI	4,-1(3)		;14	271203,777777
	SETZ	7,		;15	400340,0
QSOR16:	CAIG	4,1(3)		;16	307203,1
	JRST	QSOR71		;17	254000,71
	MOVEI	1,(4)		;20	201044,0
	ADDI	1,(3)		;21	271043,0
	ASH	1,-1		;22	240040,777777
	MOVE	(3)		;23	200003,0
	EXCH	(1)		;24	250001,0
	MOVEI	5,(4)		;25	201244,0
	MOVEI	6,1(3)		;26	201303,1
QSOR27:	CAIGE	5,(6)		;27	305246,0
	JRST	QSOR46		;30	254000,46
QSOR31:	CAM	(6)		;31	310006,0
	AOJA	6,QSOR27	;32	344300,27
	JRST	QSOR36		;33	254000,36
QSOR34:	CAIGE	5,(6)		;34	305246,0
	JRST	QSOR45		;35	254000,45
QSOR36:	CAM	(5)		;36	310005,0
	SOJA	5,QSOR34	;37	364240,34
	MOVE	1,(6)		;40	200046,0
	EXCH	1,(5)		;41	250045,0
	MOVEM	1,(6)		;42	202046,0
	SOJ	5,		;43	360240,0
	AOJA	6,QSOR27	;44	344300,27
QSOR45:	MOVEI	5,-1(6)		;45	201246,777777
QSOR46:	CAIE	5,(3)		;46	302243,0
	EXCH	(5)		;47	250005,0
	MOVEM	(3)		;50	202003,0
	MOVEI	1,(5)		;51	201045,0
	ADDI	1,(5)		;52	271045,0
	MOVEI	2,(4)		;53	201104,0
	ADDI	2,(3)		;54	271103,0
	CAMG	1,2		;55	317040,2
	JRST	QSOR64		;56	254000,64
	MOVEM	3,QSTAB1(7)	;57	202147,105
	SOJ	5,		;60	360240,0
	MOVEM	5,QSTAB2(7)	;61	202247,127
	MOVEI	3,2(5)		;62	201145,2
	AOJA	7,QSOR16	;63	344340,16
QSOR64:	MOVEM	4,QSTAB2(7)	;64	202207,127
	AOJ	5,		;65	340240,0
	MOVEM	5,QSTAB1(7)	;66	202247,105
	MOVEI	4,-2(5)		;67	201205,777776
	AOJA	7,QSOR16	;70	344340,16
QSOR71:	CAIL	3,(4)		;71	301144,0
	JRST	QSO100		;72	254000,100
	MOVE	1,(3)		;73	200043,0
QSOR74:	CAM	1,(4)		;74	310044,0
	JRST	QSO100		;75	254000,100
	EXCH	1,(4)		;76	250044,0
	MOVEM	1,(3)		;77	202043,0
QSO100:	SOSGE	7		;100	375000,7
	POPJ	17,		;101	263740,0
	MOVE	3,QSTAB1(7)	;102	200147,105
	MOVE	4,QSTAB2(7)	;103	200207,127
	JRST	QSOR16		;104	254000,16
QSTAB1:	BLOCK	22
QSTAB2:	BLOCK	22
QSO151:	MOVSI	317006		;151	205000,317006
	MOVEM	QSOR31		;152	202000,31
	MOVSI	311005		;153	205000,311005
	MOVEM	QSOR36		;154	202000,36
	MOVSI	311044		;155	205000,311044
	MOVEM	QSOR74		;156	202000,74
	JRST	QSOR11		;157	254000,11

	END