[IOLINE
[
[SUBROUTINES FOR GRAPHS, STRAIGHT LINES
[
[#8H, HORIZONTAL, GIVES HORIZONTAL LINES
[#8E, ELEVATION, GIVES VERTICAL LINES
[#8G, GRID, GIVES X AND Y AXES
[#8M, MEMPLOT, GIVES GRAPH OR HISTOGRAM
[#8C, CURSOR, GIVES POINTER FOR MEMPLOT
[
[THE ORIGIN <0,0> CAN BE AT LOWER OR MIDDLE LEFT
[8H-1 = 0 GIVES CONVENTIONAL LINC ORIGIN
[8H-1 = 1400 GIVES ORIGIN IN LOWER LEFT
[
[
[
[HORIZONTAL
[
[HORIZONTAL LINE ON SCOPE
[
[ENTRY PARAMETERS:
[  10: FIRST POINT X
[  11: LENGTH OF LINE
[ ACC: FIRST POINT Y
[
[EXIT PARAMETERS:
[  10: NEXT POINT X
[ ACC: NEXT POINT Y
[
[ENTRY AT 8H: FULL HORIZONTAL LINE
[ENTRY AT 8H+2: SHORT HORIZONTAL LINE FROM X=0
[ENTRY AT 8H+4: SHORT HORIZONTAL LINE FROM X=<10>
[
[ORIGIN FOR LINEAR DISPLAYS
0
[
#8H SET i 11
1000
SET i 10
0
ADD 8H-1
STC p+11 [Y
ADD 11
AZE i
JMP 0 [LENGTH 0
COM
STC 11
ADD 0
STC p+7 [RETURN
LDA i
<Y>
DIS 10
XSK i 10
XSK i 11
JMP p-3
<JMP RETURN>
[
[
[ELEVATION
[ELEVATED <VERTICAL> LINE ON SCOPE
[ENTRY PARAMETERS SAME AS HORIZ
[EXIT PARAMETERS SAME AS HORIZ
[ENTRY AT 8E: FULL VERTICAL LINE
[ENTRY AT 8E+2: SHORT VERTICAL LINE FROM Y=0
[ENTRY AT 8E+3: SHORT VERTICAL LINE FROM Y=ACC
[
#8E SET i 11
1000
CLR
ADD 8H-1
STC p+11 [Y
ADD 11
AZE i
JMP 0 [LENGTH 0
COM
STC 11
ADD 0
STC p+7 [RETURN
LDA i
<Y>
DIS 10
ADD 8K+1
XSK i 11
JMP p-3
<JMP RETURN>
[
[
[MEMPLOT
[BAR PLOT OR HISTOGRAM FROM MEMORY
[12: FWA POINT LIST
[ENTRY AT 8M: UNSCALES BAR PLOT, 1000 POINTS
[CALL: JMP 8M
[
[ENTRY AT 8M+1: SCALED PLOT
[ACC: SCALER AND HISTOGRAM SWITCH
[ACC 0: 0 FOR BARPLOT, 1 FOR HISTOGRAM
[ACC 3-5: EXPANSION OF X SCALE
[ACC 9-11: EXPANSION OF Y SCALE
[CALL: JMP 8M+1
[
[USES FULL SCOPE
[
#8M CLR
STC 8M+47 [SCALES
STC 10 [X
ADD 0
STC p+24 [RETURN
ADD 8M+47 [SCALES
APO [VERTPLOT
JMP 8J-3 [SET FF
JMP 8J-7 [RESET FF
JMP 8M+46 [INIT
ADD 8K+1
JMP 8M+60 [ROL X
STC p+4 [X WIDTH
JMP p+2
[
[BARPLOT
[PLOTS MEMORY
[
XSK i 12
SET i 11
<X WIDTH>
LDA 12
JMP 8M+62 [ROL Y
JMP 8H+4 [HORIZ
[DONE
LDA i
-777
ADD 10
APO i
JMP <RETURN>
JMP 8J
JMP p-14 [BARPLOT
[
[PLOTS VERTICAL BARS FOR HISTOGRAM
[
LDA 12
COM
ADA i 12
COM
APO
CLR
ADA 12 [GET BIGGER Y
JMP 8M+62 [ROL Y
STC 11 [Y
JMP 8E+3 [ELEV
JMP p-26 [DONE
[
[INITIALIZE MEMPLOT, CURSOR
[
LDH i [LEFT HALF
<SCALES>
BSE i
ROL
STC p+6 [ROL X
LDH [RIGHT HALF
4|p-5
ADD p-4
STC p+4 [ROL Y
JMP 0
<ROL X>
JMP 0
<ROL Y>
JMP 0
[
[
[CURSOR
[DISPLAYS CURSOR ON GRAPH
[WORKS WITH MEMPLOT
[12: FWA POINT LIST
[SCALING SET BY MEMPLOT
[ENTRY AT 8C
[CALL: JMP 8C
[      <SAM DISPATCH>
[
[DISPATCH USUALLY SAM N
[
#8C LDA
0
ADA i
ADD-JMP
STC p+1
<ADD DISPATCH>
STC p+11
XSK i 0
ADD 0
STC p+25 [RETURN
JMP 8M+46 [INIT
ADD 8M+60 [ROL X
BSE i
SCR
STC p+10
<SAM DISPATCH>
BCL i [PATCH FOR
7000  [SAM TO GIVE
BCO i [NUMBERS FROM
400   [0-777
STA
10  [X
<SCR>
ADD 12 [FWA MEMORY
STC 12 [Y POINTER
LDA 12 [Y
JMP 8M+62 [ROL Y
SET i 11
20 [CURSOR HEIGHT
JMP 8E+3 [CURSOR
JMP <RETURN>
[
[
[GRID
[DISPLAYS AXES WITH TIC MARKS
[TICS ARE 100<10>, OR 144<8> POINTS APART
[ENTER AT 8G
[CALL: JMP 8G
[
#8G LDA
0
STC p+5 [RETURN
JMP 8H
JMP 8E
[TICS
SRO i
1010
JMP <RETURN>
LDA i
144
ADD 10
SET i 11
14 [TIC LENGTH
JMP 8H+2
ADD 8H-1 [FIX ORIGIN
STC 10
SET 11
p-5
JMP 8E+3
JMP p-16
[
[