RSX-11M/S - RSX-llM-PLUS Software Dispatch, January 1981 | ag

RSX-11M V3.2 Seg 5.1.17.14 M |

UTILITIES
BRU 2 o£ 5 Z |

boat o... |
.BLK,, |
CONDSP2,BLK,4106 | |

».5,BLK,46112
CALL PATI 3 CALL PATCH

»Z,BLK,
» PSECT  $SPAT

$3PATz,

PAT1: su8 %2,CONDSP 3 CHECK DISPLACEMENT
RETURN sa 4
» IDENT //01,2/
»MCALU  FHDOFS
FHOOF$ 3 DEFINE FILE HEADER OFFSETS
SIOTOF s 56 3 FILE HEADER IDENT AREA WORD OFFSET
»PSECT

»BLK,z,

o Z, BLK,13312
MOV %RSATR, SOUDPB40,I0PL42 3 SET UP WRITE ATTRIBUTE DPB
MOV 4 SIDTOF4I,RVNO,RSATR%2 z WANT TO CORRECT REVISION DATE
CALL PAT2 3 CALL PATCH TO SET UP MORE ATTRIBUTES

o Z.BLK,
»PSECT  $SPAT

$SPAT:,

€ PAT23 ADD R5,RSATR%2 3 MAKE DATE ADDRESS ABSOLUTE

MOV $8H,UFAT,RSATR%6 ; WRITE RECORD 1/0 AREA T0OO
ADD R5, 0SATR%46 3 MAKE RECORD I/0 AREA ADORESS ABSOLUTE
RETURN

WRITE TIME/DATE ATTRIBUTES

RSATR%  ,BYTE 13,,35« 3
 »WORD 0 3 TIME/DAT AODRESS (DONE AT RUNTIME)
»9YTE 4,32, 3 WRITE RECORD I/0 AREA
» WORD 0 3 RECORD I/0 AREA ADDRESS (DONE AT RUNTIME)
. WORD 0 3, ZERO TO TERMINATE ATTRIBUTE LIST

»IDENT /01,3/

»