.PSECT A,QUAD,NOEXE
        A1: .WORD 5
        A2: .QUAD 6
            .SAVE_PSECT        ; Saves psect A context
            .PSECT B,QUAD,NOEXE
        B1: .WORD 6
            .RESTORE_PSECT     ; Return A location counter
        A3: .WORD 5

            .PSECT B,QUAD,NOEXE
        1$: .WORD 5
            .SAVE LOCAL_BLOCK  ; Saves psect B context and temporary
                               ; label context

            .PSECT C,NOEXE
        1$: .WORD 6
            .RESTORE_PSECT     ; Restores psect B and saves
                               ; label context
            .ADDRESS 1$        ; References the address of
                               ; psect B temporary label 1$