RSX-11M/S - RSX-1IM-PLUS Software Dispatch, January 1981

RSX-11M V3.2 Seg 5.1.17.12 M
UTILITIES
BRU 2 o£ 2

» IDENT //01,2/
»PSECT
»NMCALL  DIR$

»BLK,a,
»Z,BLK,11662
CALL PATI1
NOP
»5,BLK,
»ePSECT  $$PAT
$5PATs,
PATIS MOV 4SLAB,RI 3 PUT BLANKS INTO THE LABEL FIELD
MOV %" ,(Ri)»
MOV 4%" ,(R1)»
MOV 9" ,€(Ri)
DIR$ 4GETASK 3 OBTAIN THE UIC WE ARE RUNNING UNDER
RETURN
»END

Assemble BRUPAR,PAT to create BRUPAR,POB

>SET /UICz(74,40)
>MAC BRUPAR,POB,BRUPARZBRUPAR,PAT

Extract BRUPAR,OBJ £rom ([1,20)BRU,OLB, apoly the patch, assign TK3
to vour tarcoet task build disk, and build BRU:

>LBR BRUPAR,OBJ71z[1,20]BRU/EX3BRUPAR
>PAT BRUPAR,OBJ?22BRUPAR,OBJ31/C8:63056, BRUPAR,POR/CS:17051

>SET /VICs(1,20)

>LBR BRU/RPZ(74,40)BRUPAR,OBJ:2

>ASN ddn:sTk: |
>TKR 8[1,24)BRURLD JA, |

10