/ 6 PLOTTER SUBROUTINES FUER XY8EC - INTERFACE / / V 001.A / / FEB-MAR 1976 W. HOUBEN / / AUFRUFE : / / CALL PLOTX ( ARG1 , ARG2 , ARG3 ) / / CALL WHERE ( ARG1 , ARG2 , ARG3 ) / / CALL XYPLT ( ARG1 , ARG2 ) / / CALL PENUP / / CALL PENDN / / ARG1 : X - KOORDINATE [ 0 - 1023 ] / / ARG2 : Y - KOORDINATE [ 0 - 1023 ] / / ARG3 : PEN STATUS ( 0=PEN DOWN , 1=PEN UP ) / SKPDF XYSF 6053 OPDEF XYCF 6056 OPDEF XYPU 6052 OPDEF XYPD 6051 OPDEF XYLX 6054 OPDEF XYLY 6055 ENTRY PLOTX ENTRY WHERE ENTRY XYPLT ENTRY PENUP ENTRY PENDN DUMMY ARG1 DUMMY ARG2 DUMMY ARG3 OPDEF JMPI 5400 OPDEF CDI 6203 ARG1, BLOCK 2 ARG2, BLOCK 2 ARG3, BLOCK 2 XPNT, ARG1 PNTR, 0 CNTR, 0 PLOTX, BLOCK 2 TAD XPNT DCA PNTR TAD (-6 DCA CNTR A1, TAD I PLOTX INC PLOTX# DCA I PNTR INC PNTR ISZ CNTR JMP A1 TAD I ARG3 / NEW PEN STATUS SPA / MOVE THE PEN ? JMP PLOTA / NO: CONTINUE SNA CLA / = 0 ? (PEN UP) JMP PL1 / <> 0 ! (PEN DOWN) TAD PLOTPN SNA CLA JMP PLOT1 CALL 0,PENUP JMP PLOT1 PL1, TAD PLOTPN SZA CLA JMP PLOT1 CALL 0,PENDN JMP PLOT1 PLOTA, CLA XYPU / RAISE THE PEN JMS PLOTWT DCA PLOTPN DCA PLOTNX / 0 TO X - CO-ORDINATE DCA PLOTNY / 0 TO Y - CO-ORDINATE DCA OLDX DCA OLDY XYLX XYLY XYPU / INITIALIZE JMS PLOTWT PLTRTN, RETRN PLOTX PLOT1, TAD PLOTNX / FETCH PREVIOUSE X CO-ORDINATE CIA CLL TAD I ARG1 / FORM NX-NPX SNL / L=0: NX