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