.TITLE  VECALL
        .GLOBL  ERRBAR,ERRCAL,VECALL,XFACT,YFACT,XINDEX,YINDEX
        .PSECT  VADES,RW,D,GBL,REL,OVR
AMAX:   .BLKW   1
ALAST:  .BLKW   1
ALEN:   .BLKW   1
A:      .BLKW   1
        .PSECT
ANPTS=0
ATYPE=2
AXA=4
AXMIN=4
AXF=6
AXI=8.
ADELX=6
AYA=10.
AYF=12.
AYI=14.
AEA=16.
AJOIN=18.
AOFF=20.
AXP=22.
AYP=24.
AEP=26.
AXC=28.
AYC=30.
AEC=32.
AXN=34.
AYN=36.
AEN=38.
AIC=40.
R0=%0
R1=%1
R2=%2
R3=%3
R4=%4
R5=%5
SP=%6
PC=%7
ERRBAR: JSR     PC,GALAST
        MOV     2(R5),AEA(R0)
        RTS     PC
ERRCAL: JSR     PC,GALAST
        MOV     2(R5),AEA(R0)
        INC     AEA(R0)
        RTS     PC
XFACT:  JSR     PC,GALAST
        MOV     2(R5),AXF(R0)
        RTS     PC
YFACT:  JSR     PC,GALAST
        MOV     2(R5),AYF(R0)
        RTS     PC
XINDEX: JSR     PC,GALAST
        MOV     4(R5),AXI(R0)
        MOV     @2(R5),R1
        DEC     R1
        ADD     R1,AXI(R0)
        RTS     PC
YINDEX: JSR     PC,GALAST
        MOV     4(R5),AYI(R0)
        MOV     @2(R5),R1
        DEC     R1
        ADD     R1,AYI(R0)
        RTS     PC
VECALL: MOV     10(R5),R0
        MOV     AEA(R0),R0
        DEC     R0
        JMP     (R0)
;COMPUTE ADDR(ALAST)
GALAST: MOV     ALAST,R0
        BLT     BAD
        ASL     R0
        ADD     #A,R0
        RTS     PC
BAD:    ADD     #2,SP
        RTS     PC
        .END