.TITLE  VGADDR
R0=%0
R1=%1
R2=%2
R3=%3
R4=%4
R5=%5
SP=%6
PC=%7
        .GLOBL  VGADDR,VGFVAL,VGIVAL,VGCVAL,VGBVAL
;
;
VGADDR:
;
;
        MOV     4(R5),@2(R5)
        RTS     PC
;
;
VGFVAL:
;
;
        MOV     @2(R5),R0
        MOV     @4(R5),R1
        MOV     6(R5),R2
        DEC     R1
        ASL     R1
        ASL     R1
        ADD     R1,R0
        MOV     (R0)+,(R2)+
        MOV     (R0),(R2)
        RTS     PC
;
;
VGIVAL:
;
;
        MOV     @2(R5),R0
        MOV     @4(R5),R1
        DEC     R1
        ASL     R1
        ADD     R1,R0
        MOV     (R0),@6(R5)
        RTS     PC
;
;
VGCVAL:
;
;
        MOV     @2(R5),R0
        MOV     @4(R5),R1
        DEC     R1
        ADD     R1,R0
        MOVB    (R0),@6(R5)
        RTS     PC
;
;
VGBVAL:
;
;
        MOV     @2(R5),R0
        MOV     @4(R5),R1
        DEC     R1
        ADD     R1,R0
        MOVB    (R0),R1        ;SIGN EXTEND
        MOVB    R1,@6(R5)
        RTS     PC
        .END