File: MACLIB.MA of Tape: Various/Decus/decus-2
(Source file text)
.NOLIST LN /UNTERDRUECKUNG DES AUSDRUCKS XLIST /************************************************ /VERWALTUNG DER SYSTEM-LIBRARY MACSYS /5.10.83 VH /DIE GESAMTE MACRO-LIBRARY BESTEHT AUS 3 FILES: / MACLIB.MA: START-MACRO. / DAS FILE MUSS MIT: .INCLUDE SYS:MACLIB.MA / AM ANFANG DES PROGRAMMES STEHEN / MACSYS.MA: BEINHALTET ALLE MACROS,WIRD VON MACLIB.MA AUFGERUFEN / MACEND.MA: BEINHALTET ALLE ZU LOESCHENDEN HILSVARIABLEN / /DIE 3 FILES MUSSEN AUF DER SYSTEM-FLOPPY(LAUFWERK 0) STEHEN / /FUER DIE FUNKTION DER MACROS SIND SUBROUTINEN NOETIG, DIE IN DER LINK- /LIBRARY 'LNKCUR' ZUSAMMENGEFASST SIND. /AUFRUF BEIM LINK : *LNKCUR/L .IF DF DRLNR <DRLNR=DRLNR+1> /ERHOEHEN DER DURCHLAUFNUMMER AB 2. DURCHLAUF /DIE SYSTEM-LIBRARY WIRD NUR IM 1. DURCHLAUF GELESEN .IF NDF DRLNR < .INCLUDE SYS:MACSYS.MA DRLNR=1 > /SETZEN DER DURCHLAUFNUMMER IM 1. DURCHLAUF .ENABLE EXPUNGE /FREIGABE VON EXPUNGE FUER ALLE DURCHLAEUFE MACNB=0 /SETZEN EINES HILFSZAEHLERS FUER AUOTMATISCHE D-SECTION /ANLAGE MACNBR=0 /SETZEN EINES HILFSZAEHLERS FUER AUTOMATISCHE D-SECTION /ANLAGE /************************************************ XLIST