ASMB,R,L,T,C,B  ** DEVCL: CLEAR ALL DEVICES ON BUS ** 
      HED ** DEVCL: CLEAR ALL DEVICES ON BUS **              REV A
      NAM DEVCL 
      ENT DEVCL 
      EXT .ENTR,CMD 
      SKP 
UREF# OCT 0 
* 
DEVCL NOP           ENTRY 
      JSB .ENTR     GET ADDR OF BUS UREF# 
      DEF UREF#          FROM USER CALL 
* 
*     OUTPUT COMMAND FOR DEVICE CLEAR 
* 
      JSB CMD       CALL COMMAND ROUTINE
      DEF *+3       PNTR TO RETURN
      DEF UREF#,I   ADDR OF BUS UREF #
      DEF DCR       ADDR OF BUFFER CONTAINING 
*                                   DEVICE CLEAR COMMAND
*     EXIT
* 
      JMP DEVCL,I   EXIT
* 
*     CONSTANTS 
* 
DCR   OCT 1         BUFFER LENGTH 
      OCT 012000    DCR COMMAND IN UPPER HALF 
*                                   DCR CMD = 024 OCTAL 
*                                   0 001 010 000 000 000 
      END 
                                                                                                                                                