File: SCRLF.MA of Tape: Various/Decus/decus-2
(Source file text)
.TITLE L I N K - L I B R A R Y .SBTTL SCRLF :CRLF AUSGEBEN .INCLUDE SYS:MACLIB.MA /****** SCRLF ********* /22.10.82 HEBR/20.6.83 VH /(L,AC)=?,? /CALL SCRLF /ANZAHL SCRLF /(L,AC)=0,0 /********************* /DIESES UNTERPROGRAMM WIRD VON DEM MACRO CRLF AUFGERUFEN /ALS PARAMETER HINTER DEM AUFRUF MUSS DIE ANZAHL DER CRLF ANGEGEBEN WERDEN. /DIE ANZAHL DARF NICHT 0 SEIN !!! OPEN "SCRLF","F" .ENTRY SCRLF DEFMER TEMP$ SCRLF, OPNSUB RT:EXIT$,TEMP$ TAD TEMP$ CMA IAC DCA TEMP$ SCR1$: TYPECL (CR) TYPECL (LF) ISZ TEMP$ JMP SCR1$ /WIEDERHOLUNG CAL EXIT$: V JMP I SCRLF CLOSE "SCRLF" ENDPR