1 * (PL$MV) REV 1.0 INCREMENTAL PLOTTER ROUTINES
7 * PLOTTER MOVEMENT ROUTINES
20 * PROVIDE SIMPLE LIBRARY FUNCTIONS FOR INCREMENTAL PLOTTERS
31 * CALL PL$RST - SET VIRTUAL PLOT POSITION TO ZERO
33 * CALL PL$MV - MOVE TO POINT SPECIFIED
39 ********************************************************************************
46 REL THIS IS A RELOCATABLE OBJECT
50 RST DAC ** SET POINT ZERO
60 LDA* MOVE GET PARAMETERS
74 IRS MOVE CORRECT RETURN ADDRESS
88 STA DX NOW, DX IS POSITIVE!
109 STA DY NOW, DY IS POSITIVE!
122 JMP XGTY DX GREATER DY
123 YGTX NOP DY GREATER OR EQUAL DX
143 GTE LDA DL LONG DISTANCE
145 STA ERR INITIALIZE ERROR COUNTER
151 JMP FNSH END OF WORK - HOPE SO....
157 SMI SKIP IF NOT OVERFLOWN (MINUS)
158 JMP NDIA NO DIAG STEP
166 NDIA JST* STPL LONG DIR STEP ONLY
173 JMP* MOVE END OF THE ROUTINE
174 **********************
178 X DEC 0 PEN POSITION, X VALUE
179 Y DEC 0 PEN POSITION, Y VALUE
180 XN DEC 0 NEW PEN POSITION, X VALUE
181 YN DEC 0 NEW PEN POSITION, Y VALUE
182 DX DEC 0 X DIFFERENCE TO GO
183 DY DEC 0 Y DIFFERENCE TO GO
185 DL DEC 0 LONG DISTANCE NEGATIVE
186 DS DEC 0 SHORT DISTANCE NEGATIVE
187 STPL DAC ** ROUTINE TO LONG DISTANCE STEP
188 STPS DAC ** ROUTINE TO SHORT DISTANCE STEP
189 STPD DAC ** ROUTINE TO DIAGONAL STEP
190 ERR DEC 0 ERROR COUNTER
192 STPX DAC ** X STEP ROUTINE
193 STPY DAC ** Y STEP ROUTINE
194 DIYP DAC ** DIAGONAL X-DIR+UP STEP ROUTINE
195 DIYN DAC ** DIAGONAL X-DIR+DOWN STEP ROUTINE
196 TMP DAC ** UNIVERSAL POINTER
198 * GLUE IN THE MOVEMENT