.TITLE AA ;.MACRO .AA X,Y,ANGLE ARC ABSOLUTE. (X,Y) IS CENTER OF ARC IN cm. ARC ;STARTS AT CURRENT PEN POSITION & ROTATES COUNTER-CLOCKWISE ANGLE ;deg. IF ANGLE<0, ROTATE CLOCKWISE .GLOBL .AA,AA .MCALL .XMTB,.XMTS,.CVIS,.PARS,.AA A0=R0 AA: .AA @2(R5),@4(R5),@6(R5) RETURN ANGLE: .BLKW 2 YY: .BLKW 2 XX: .BLKW 2 .AA: STF A0,-(SP) .XMTB #'A .XMTB #'A LDF XX,A0 MULF #400,A0 ;400 PLOTTER UNITS = 1 cm STCFI A0,II ;CONVERT A0 TO INTEGER & SEND TO PLOTTER .CVIS II,#B,#10. .PARS #B,#B,#SPACE ;REMOVE SPACES .XMTS #B .XMTB #54 ;COMMA LDF YY,A0 MULF #400,A0 STCFI A0,II ;CONVERT A0 TO INTEGER & SEND TO PLOTTER .CVIS II,#B,#10. .PARS #B,#B,#SPACE .XMTS #B .XMTB #54 LDF ANGLE,A0 STCFI A0,II ;CONVERT A0 TO INTEGER & SEND TO PLOTTER .CVIS II,#B,#10. .PARS #B,#B,#SPACE .XMTS #B .XMTB #73 ;SEMICOLON LDF (SP)+,A0 RETURN II: .BLKW 1 B: .BLKB 10. SPACE: .BYTE 40,0 .END