Directory of image this file is from
This file as a plain text file
[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 [ [