+*
+**** PL$MVR - MOVE PEN RELATIVELY
+*
+MVR DAC **
+*
+ LDA* MVR
+ STA TMPX
+ IRS MVR
+ LDA* MVR
+ STA TMPY
+ IRS MVR
+*
+ LDA* TMPX
+* CALL OCT
+ ADD XU
+ STA XU
+*
+ LDA* TMPY
+* CALL OCT
+ ADD YU
+ STA YU
+*
+ IRS RELA SET FLAG
+ NOP
+ IRS MVR
+ JMP* MVR RETURN
+*
+*
+*
+**** PL$INI - GRAPHICS INITIALISATION
+*
+* THIS ROUTINE SETS THE HARDWARE ORIGIN TO THE CURRENT PlOTTER POSITION.
+* IT ALSO INITIALISES THE TRANSFORMATION.
+*
+****************************************
+*
+INIT DAC **
+ CRA
+ STA XU
+ STA YU
+ STA X
+ STA Y
+ STA RELA
+ CALL T$INIT
+ DAC ATRA
+ JMP* INIT
+*
+*
+**** PL$PUS - PUSH GRAPHIC CONTEXT ONTO THE STACK
+*
+PUSH DAC ** ENTRY
+ LDA* PUSH
+ STA SD1
+ IRS PUSH
+ CALL S$PUSM PUSH MEMORY ROUTINE
+SD1 DAC **
+ DAC ATRA
+ DEC 12 12 WORDS OF DATA.
+ JMP* PUSH
+*
+*
+********************************************************************************
+*
+*
+**** PL$POP - POP GRAPHIC CONTEXT FROM THE STACK
+*
+POP DAC ** ENTRY
+ LDA* POP
+ STA SD2
+ IRS POP
+ CALL S$POPM POP MEMORY ROUTINE
+SD2 DAC **
+ DAC ATRA
+ DEC 12 12 WORDS OF DATA.
+ JMP* POP
+*
+*
+* *******************************************************************************