+$/
[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 .+11 [Y
ADD 11
AZE I
JMP 0 [LENGTH 0
COM
STC 11
ADD 0
STC .+7 [RETURN
LDA I
<Y>
DIS 10
XSK I 10
XSK I 11
JMP .-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 .+11 [Y
ADD 11
AZE I
JMP 0 [LENGTH 0
COM
STC 11
ADD 0
STC .+7 [RETURN
LDA I
<Y>
DIS 10
ADD 8K+1
XSK I 11
JMP .-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 .+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 .+4 [X WIDTH
JMP .+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 .-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 .-26 [DONE
[
[INITIALIZE MEMPLOT, CURSOR
[
LDH I [LEFT HALF
<SCALES>
BSE I
ROL
STC .+6 [ROL X
LDH [RIGHT HALF
4\.-5
ADD .-4
STC .+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 .+1
<ADD DISPATCH>
STC .+11
XSK I 0
ADD 0
STC .+25 [RETURN
JMP 8M+46 [INIT
ADD 8M+60 [ROL X
BSE I
SCR
STC .+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 .+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
.-5
JMP 8E+3
JMP .-16
[
[