Ändern eines Bindemoduls

Das Element USELST wird als Bindemodul in die Bibliothek aufgenommen und dort mit einer Subanweisung geändert.

/start-assembh -----------------------------------------------------------  (1)  

//compile source=*library-element(lib=bsp5.bib,element=uselst), -
//module-lib=bsp5.bib(elemnt=uselst) -------------------------------------  (2)

%  ASS6011 ASSEMBLY TIME: 240 MSEC

%  ASS6018 0 FLAGS, 0 PRIVILEGED FLAGS, 0 MNOTES

%  ASS6019 HIGHEST ERROR-WEIGHT: NO ERRORS

%  ASS6006 LISTING GENERATOR TIME: 453 MSEC

//end

%  ASS6012 END OF ASSEMBH

/start-lms ---------------------------------------------------------------  (3)

//modify-logging-parameters logging=*maximum -----------------------------  (4)

//open-library library=bsp5.bib,mode=*update -----------------------------  (5)

//show-element-attributes (type=r) ---------------------------------------  (6)

INPUT  LIBRARY= :1OSN:$USER.BSP5.BIB
TYP NAME   VER (VAR#) DATE
(R) USELST @   (0001) 2013-03-01
      1 (R)-ELEMENT(S) IN THIS TABLE OF CONTENTS

(1)	Aufruf des ASSEMBLERS für die Erzeugung eines Bindemoduls.
(2)	Das Quellprogramm USELST soll übersetzt werden. Bei fehlerfreier Übersetzung wird der so erzeugte Bindemodul in die Bibliothek BSP5.BIB geschrieben. Der Bindemodul erhält automatisch den Elementtyp R.
(3)	LMS wird aufgerufen.
(4)	Zusätzlich zu Fehlermeldungen werden auch Erfolgsmeldungen protokolliert.
(5)	Die Bibliothek BSP5.BIB wird zugewiesen. Sie muss zum Lesen und Schreiben geöffnet werden, andernfalls ist keine Änderung des Bindemoduls möglich.
(6)	Anzeige des Inhaltsverzeichnis für alle Elemente des Typs R. Die Bibliothek enthält jetzt den aus dem ASSEMBLER-Lauf erzeugten Bindemodul USELST.

//modify-element (element=uselst,type=r) ---------------------------------   (7) 

//add-text-modification address=x ́c0 ́,new-contents= ́aa ́(old= ́ER ́) --------   (8)

//end-modify -------------------------------------------------------------   (9)

INPUT  LIBRARY= :1OSN:$USER.BSP5.BIB
OUTPUT LIBRARY= :1OSN:$USER.BSP5.BIB

INPUT  ELEMENT= (R)USELST/@(0001)/2013-03-01
OUTPUT ELEMENT= (R)USELST/@(0002)/2013-03-01

TEXT-ADR:           000000C0
TEXT BEFORE CHANGE:  E R
                  C5D9
TEXT AFTER  CHANGE:  a a
                  8181 ---------------------------------------------------  (10)

        CORRECT (R)USELST/@(0001)/2013-03-01 AS (R)USELST/@(0002)/2013-03-01
               , OUTPUT REPLACED -----------------------------------------  (11)

//show-element-attributes (type=r) ---------------------------------------  (12)

INPUT  LIBRARY= :1OSN:$USER.BSP5.BIB

TYP NAME   VER (VAR#) DATE

(R) USELST @   (0002) 2013-03-01

      1 (R)-ELEMENT(S) IN THIS TABLE OF CONTENTS

//end --------------------------------------------------------------------  (13)

(7)	Der Modul USELST soll geändert werden.
(8)	Diese Subanweisung ersetzt an der Adresse c0 den Text ’ER’ durch ’aa’.
(9)	Die Eingabe der Subanweisungen wird beendet.
(10)	Der Text der Adresse 0000C0 wird ersetzt.
(11)	Meldung, dass die Änderung ausgeführt ist und das ursprüngliche Element durch das geänderte Element ersetzt wird.
(12)	Anzeige des Inhaltsverzeichnis für alle Elemente des Typs R. Die Bibliothek enthält jetzt den geänderten Bindemodul.
(13)	LMS wird beendet.