.TITLE PLTTIC - ROUTINE TO PHYSICALLY PLOT A TIC MARK .IDENT 'PLTT00' .PSECT PLTTIC ; KEN DEMERS ; UTRC ; NOVEMBER 1979 ; THIS ROUTINE PHYSICALLY PLOTS A TIC MARK. ; ON ENTRY: ; R4 = X COORDINATE OF CENTER OF TIC MARK ; R5 = Y COORDINATE OF CENTER OF TIC MARK ; INTERNAL GLOBALS .GLOBL P$LTTIC ; EXTERNAL GLOBALS .GLOBL A$RG21,A$RG22,A$RGB1,MVCURI,L$INE ; ASSIGNMENTS TICLEN = 8. ;WIDTH & HEIGHT OF A TIC MARK TICLNH = TICLEN / 2 ;1/2 OF WIDTH OR HEIGHT P$LTTIC: MOV R1,-(SP) ;SAVE R1 MOV R5,-(SP) ;SAVE R5 MOV R5,R1 ;R1= Y COORDINATE OF TIC CENTER MOV R4,A$RG21 ;SET UP ARG BLK FOR MVCURI SUB #TICLNH,A$RG21 ;SPACE OVER 1/2 TIC WIDTH MOV R1,A$RG22 ;GET Y COORD MOV #A$RGB1,R5 ;SET UP PTR TO ARG BLK CALL MVCURI ;MOVE CURSOR ADD #TICLEN,A$RG21 ;POSITION TO END OF TIC WIDTH CALL L$INE ;PLOT HORIZONTAL PORTION OF TIC SUB #TICLNH,A$RG22 ;SPACE DOWN 1/2 TIC HEIGHT MOV R4,A$RG21 ;POSITION TO CENTER OF X AGAIN CALL MVCURI ;POSITION TO BOTTOM OF VERTICAL TIC ADD #TICLEN,A$RG22 ;SET UP TOP OF CURSOR CALL L$INE ;PLOT VERTICAL PORTION OF TIC MOV (SP)+,R5 ;RESTORE R5 MOV (SP)+,R1 ;RESTORE R1 RETURN .END