File: SLIEST.MA of Tape: Various/Decus/decus-2
(Source file text)
.TITLE L I N K - L I B R A R Y .SBTTL SLIEST:ZEICHEN VON TTY LESEN MIT ECHO .INCLUDE SYS:MACLIB.MA /****SLIEST**** /04.09.81 PMO,15.8.83 VH /(L,AC)=?,? /CALL SLIEST /(L,AC)=0,GELESENES ZEICHEN /************** /DIESES UNTERPROGRAMM WIRD VOM MACRO LIESTT VERWENDET /ES DIENT ZUR AUFNAHME EINES ZEICHENS VOM TTY /EIN ECHO WIRD AUSSER BEI CONTROL-ZEICHEN ZURUECKGESENDET /DAS ECHO KANN DURCH SPHSR AUCH AUF LPT GEGEBEN WERDEN. /HIERBEI IST SPHSR=0 ECHO AUF TTY / SPHSR=1 ECHO AUF TTY+LPT /IM AC STEHT DAS GELESENE ZEICHEN OPEN "SLIEST","F" .ENTRY SLIEST SLIEST, OPNSUB RT:LIESR$ LIES TTY /WURDE ZEICHEN EINGEGEBEN VADCA SPTTY /ZEICHEN SICHERN VATAD SPTTY TAD (-SPACE) SPA JMP LIES0$ /CONT ROL-ZEICHEN TAD (SPACE-RUB) /WENN RUBOUT, KEIN ECHO SNA CLA JMP LIES0$ VATAD SPTTY TYPECL VAINC SPRUB LIES0$: CLA VATAD SPTTY LIESR$: V /RUECKSPRUNG JMP I SLIEST CLOSE "SLIEST" ENDPR