MACRO 02000020 &NAME SPAUTOPT &A 04000020 .********************************************************************** 06000020 .* * 08000020 .* * 10000020 .*RELEASE 23 DELETIONS * 12000020 .* * 14000020 .*RELEASE 22 DELETIONS * 16000020 .* * 18000020 .*RELEASE 21 DELETIONS * 20000020 .* * 22000020 .*STATUS - CHANGE LEVEL 000 * 24000020 .* * 26000020 .*NAME - SPAUTOPT * 28000020 .* * 30000020 .*FUNCTION - THE SPAUTOPT MACRO ALLOWS THE USER TO TERMINATE AUTOMA- * 32000020 .* TIC LINE NUMBERING OR AUTOMATIC CHARACTER PROMPT. * 34000020 .* * 36000020 .* THE MACRO PROTOTYPE IS ABOVE * 38000020 .* * 40000020 .* THE STANDARD FORM OF THE EXPANSION IS BELOW * 42000020 .* * 44000020 .*&NAME SR 1,1 PREPARE PARM * 46000020 .* LA 0,13 LOAD ENTRY CODE * 48000020 .* SLL 0,24 PUT ENTRY CODE IN HIGH ORDER * 50000020 .* BYTE OF REGISTER * 52000020 .* SVC 94 ISSUE SVC * 54000020 .* * 56000020 .********************************************************************** 58000020 AIF ('&A' NE '').ERROR 60000020 &NAME SR 1,1 PREPARE PARM 62000020 LA 0,13 LOAD ENTRY CODE 64000020 SLL 0,24 PUT ENTRY CODE IN HIGH ORDER 66000020 .* BYTE IN REG 68000020 SVC 94 ISSUE SVC 70000020 MEXIT 72000020 .ERROR ANOP 74000020 IHBERMAC 36,,&A 76000020 MEXIT 78000020 MEND 80000020