HP 64700 series User Manual page 43

Emulators
Hide thumbs Also See for 64700 series:
Table of Contents

Advertisement

0004CA 206F 0004
0004CE 1091
0004D0 1282
0004D2 2F2F 0008
0004D6 5289
0004D8 2F09
0004DA 5589
0004DC 2F09
0004DE 2F08
0004E0 6100 FFB2
0004E4 DFFC
0004E6 00000008
0004EA 6100 FFA8
0004EE DFFC
0004F0 00000008
0004F4 4E75
000500
000600 0000 0001
000604
000BFE
É
202
Errors=
0
CROSS REFERENCE TABLE FILE: C:\MNL\ODY\ANLY\PCI\SRC\68K\SRND.S
LINE#
SYMBOL
21
AGAIN
46
CALLER_0
48
CALLER_1
159 ;-------------------------------------------------
160 ; A0 = low address (needed to swap dividing value).
161 ;-------------------------------------------------
162 OUT
MOVE.L
163 ;-------------------------------------------------
164 ; Swap dividing value and high index value.
165 ;-------------------------------------------------
166
MOVE.B
167
MOVE.B
168 ;-------------------------------------------------
169 ; The area is now split into two smaller areas.
170 ; The last high index value is the middle of the
171 ; two areas.
The high and low addresses for the
172 ; second QSORT call are pushed first.
173 ;-------------------------------------------------
174
MOVE.L
175
ADDQ.L
176
MOVE.L
177
SUBQ.L
178
MOVE.L
179
MOVE.L
180
BSR.W
181 ;-------------------------------------------------
182 ; Increment stack pointer after call.
183 ;-------------------------------------------------
184
ADDA.L
185
BSR.W
186
ADDA.L
187 DONE
RTS
188
189 **************************************************
190 * Random numbers written to this area.
191 **************************************************
192
ORG
193 RESULTS
DS.B
194
195 **************************************************
196 * Variable used in RAND subroutine and stack area.
197 **************************************************
198
ORG
199 RAND_SEED
DC.L
200
DS.W
201 STACK
DS.W
END
TYPE
REFERENCES
A
58,
76
A
36
A
37
Figure 3-2. Sample Program Listing (Cont'd)
4[A7],A0)
[A1],[A0]
D2,[A1]
8[A7],-[A7]
; Push high.
#1,A1
A1,-[A7]
; Push middle + 1.
#2,A1
A1,-[A7]
; Push middle - 1.
A0,-[A7]
; Push low.
QSORT
#8,A7
QSORT
#8,A7
500H
100H
600H
1
2FDH
1
START
Examples 3-7

Advertisement

Table of Contents
loading

Table of Contents