360 汇编/360 指令/DROP

DROP 伪指令 用于通知汇编器，在 USING 伪指令中声明的寄存器不再可用作指令的基址寄存器，并且不应用于该目的。汇编器将恢复使用在 USING 语句中声明的任何剩余寄存器，该寄存器与目标地址的偏移量最小。

DROP 伪指令的格式为

DROP register1[,register2[,...]]

Register1, register2 等可以是先前在 USING 伪指令中声明的任何通用寄存器 1 到 15。由于寄存器 0 实际上不可用作基址寄存器，因此它实际上从未在 USING 伪指令中使用，因此也不应在 DROP 伪指令中使用。

这是一个设置子程序临时基址寄存器的内联子程序示例。

为了这个例子，假设 R14 等于 14，R15 等于 15 等，以提供交叉引用 - 请参阅 EQU 汇编器伪指令）。

* some typical assembler instructions showing comments to the right
        L     R15,=A(MOVE)                    Load sub-routine address into R15                   
        BALR  R14,R15                         Go to the sub-routine ===>
*                                             ....return here with return code in R15
*
*****************************************
*  Move the input to output             *
*****************************************
MOVE    EQU   *                               Start of a sub-routine called "Move"
        USING *,R15                           Tell the assembler reg. 15 points to
*                                             this address 
        MVC   OUTPUT,INPUT                    Move the input to the output area 
        SR    R15,R15                         Clear register contents (set Return code = 0)
        BR    R14                             return to caller
        DROP  R15                             Tell assembler we are no longer using
*                                             register 15 and resume using previous register
*
TABLE   DC    C'ABCDEFGHIJKLMNOPQRSTUVWXYZ'   Table of letters of the alphabet
INPUT   DS    Cl80                            Input area
OUTPUT  DS    Cl80                            Output area

如上例所示，USING 伪指令告诉汇编器特定寄存器包含指定的地址，而 DROP 伪指令告诉汇编器该寄存器不再可用，直到在另一个 USING 伪指令中指定为止。