Directory of image this file is from
This file as a plain text file

[
[     JANC SORTER
[     WRITTEN BY R.A.DAMMKOEHLER
[     MODIFIED BY M. GRALIA
[     CIRCA JAN 1971
[
JSR [GEN DATA
8M+1
#3S LDA
1Z
STO
1S
LDA
1O
STO
1I
#1L ADD
2O
STO [FETCH OF V
2I+1
STO [STORE OF XI
2S+3
ADD
1O
STO
3I+1
STO
2S+7
#2I LDA
5D
STO
1V
LDA
1I
ADD
1O
STO
1I
BPE [SORT PASS COMPLETED?
1D
#3I LDA
5D
STO
1X
BRP
1P
LDA
1V
BRP
2S
CAA
1O
ADD
1X
BZA
1E
BRP
1E
#2S LDA
1X
STO
5D
LDA
1V
STO
5D
LDA
1O
STO
1S
#1E LDA
1I
TRC
1L
#1P LDA
1V
BRN
1E
CAA
1O
ADD
1X
BZA
1E
BRP
1E
TRC
2S
[BEGIN DISPLAYING
#1D LDA
2M [# NO TIMES TO DISPLAY SAME PLOT]
STO
1T
[DISPLAY ALL POINTS
#2D LDA
1Z
STO
1I
LDA
2X
STO
3X
[DISPLAY NEXT POINT
#1G LDA
1I
ADD
1O
STO
1I
ADD
2O
STO
1Y+1
LDA [UPDATE i SET ABSCISSA
3X
ADD
4I
STO
3X
#1Y LDA [FETCH ORDINATE
5D
DIS [DISPLAY
LDA
1I
BPE [ALL POINTS DISPLAYED?
1M
TRC
1G
#1M CAD
1T
STO
1T
BNZ
2D
LDA
1S
BNZ
3S
TTL
#1I 0
#1N 100
#1V 0
#1X 0
#2X 4000 [SCOPE ORIGIN
#3X 0
#4I 20 [SPACE BETWEEN POINTS ON SCOPE
#2M 2 [# TIMES TO DISPLAY SAME INFO
#2O 377 [DATA ORIGIN - 1
#1S 0
#1Z 0
#1O 1
#5D 0
#1T 0 [COUNTER: # DISPLAYS
[
[
[GENERATE DATA FOR "SORT; PROGRAM
[
#8M TRU
0  [RETURN POINTER
LDA
8S
STO
8Q
LDA
8T
STO
8V
[BEGIN LOOP
#8P LDA [UPDATE ADDRESSES
8Q
ADD
8U
STO
8Q
ADD
8Y
STO
8R
CAA [COMPLETION?
8W
BRN
8M
LDA [CALCULATE DATA A
8V
ADD
8X
STO
8V
STO [STORE A
#8Q 0
CAA [CALCULATE DATA B
8Y
STO [STORE B
#8R 0
TRC
8P
[
[ORIGIN OF DATA FIELD - 2
#8S 376
#8T 0   [FIRST DATA ITEM = 8T + 8X
#8U 2   [NUMBER TWO
#8V 0   [CURRENT DATA ITEM
[TERMINUS OF DATA FIELD
#8W 776
[INCREMENT IN DATA
#8X 20
#8Y 1   [NUMBER ONE