FIELD 0 *6600 /S.R. UM AUF BAND ODER PLATTE ABZUSPEICHERN /S.R. STEHT IN FIELD 0, BENOETIGT PLATZ FUER DEV.HAN. /IN FIELD 0 VON 7200-7577,SOFERN NICHT DER SYSTEM- /DEV.HAN. VERWENDET WIRD. /ANRUF VON FIELD 1 AUS. S.R. BESTEHT AUS EINER /INITIALISIERUNGSROUTINE UND EINER ARBEITSROUTINE /CDF 10 /ARG. IN FELD 10 /CIF 0 /JMS WTRDNT /INITIALISIERUNGSROUTINE /ADR. DES FUNC.CONTR.WORDS FUER DEN DEV.HAN. /ADR. DER CORADRESSE /ADR. DER ANZ. DER SPEICHERUNGEN /ADR. DES FILENAMENS /ADR. DES DEVICENAMENS /CDF 10 /CIF 0 /JMS WRTRED /ARBEITSROUTINE CORAD, 0 DHFUN, 0 STORNR, 0 FLNAMA, FLNAME CDFIN, CDF 0 WTRDNT, 0 CLA TAD I WTRDNT DCA TEMW TAD I TEMW DCA DHFUN ISZ WTRDNT /D.H.FUNC.CONTR.WORD TAD I WTRDNT DCA TEMW TAD I TEMW DCA CORAD /COREADRESSE ISZ WTRDNT TAD I WTRDNT DCA TEMW TAD I TEMW DCA STORNR /NUMBER OF STORAGES ISZ WTRDNT TAD I WTRDNT DCA TEMU SWAB TAD FLNAMA DCA TEMV CLA CLL CMA RTL DCA TEMW CAM DAD TEMU, 0 CDF 0 DST TEMV, 0 WDATF, CDF 10 ISZ TEMU ISZ TEMU ISZ TEMV ISZ TEMV ISZ TEMW JMP TEMU-1 /UEBERTRAGEN DES FILENAMENS IN DIESES FELD ISZ WTRDNT CLA TAD I WTRDNT DCA TEMW CAM DAD TEMW, 0 CDF 0 DST DVNAME /UEBERTRAGEN DES DEVICENAMENS IN DIESES FELD ISZ WTRDNT CAM DAD DVNAME DST FETCH1 DPSZ /DEVICE VERWENDEN ? SKP /JA JMP WRETF /NEIN JMS SETRST /USR ARGUMENT INIT. CIF 10 JMS I (7700 /USRIN 10 CLA CIF 10 JMS I (200 1 /FETCH DEV.HAN. FETCH1, 0424 FETCH2, 0161 /DEV.NAME /DEV.NUMBER FETCH3, 7201 /PAGE LOCATION /ENTRY POINT OF DEV.HAN. JMS I TYDI TAD FETCH2 DCA DEVNUM TAD FETCH3 DCA I DHENTI TAD DHFUN SPA CLA /KERNSPEICHER LADEN ODER AUSLESEN? JMP AUSLES /AUSLESEN /LADEN LADEN, TAD DEVNUM CIF 10 JMS I (200 /LOOKUP 2 LOKUP1, FLNAME /FILE STARTING BLOCK LOKUP2, 0 /-FILELENGTH JMS I TYDI TAD LOKUP1 DCA I STRTBI TAD LOKUP2 DCA FILCNT JMP GETOF AUSLES, TAD DEVNUM CIF 10 JMS I (200 /ENTER 3 ENTER1, FLNAME /FILE STARTING BLOCK ENTER2, 0 /-FILELENGTH JMS I TYDI TAD ENTER1 DCA I STRTBI TAD ENTER2 TAD FILENG /PRUEFEN, OB GENUG PLATZ SMA SZA CLA JMS I TYDI /NEIN TAD FILENG /JA CIA DCA FILCNT TAD DEVNUM CIF 10 JMS I (200 /CLOSE 4 CLOSE1, FLNAME CLOSE2, 0 JMS I TYDI GETOF, CIF 10 JMS I (200 11 /USROUT WRETF, CIF CDF 10 JMP I WTRDNT FILCNT, 0 DEVNUM, 0 TYDI, TYD STRTBI, STRTBK DHENTI, DHENT FILENG, 0 PAGE DVNAME, 0;0 FLNAME, 0;0;0;0 SETRST, 0 CLA TAD (7201 DCA FETCH3 TAD DHFUN DCA DHFUNC TAD CORAD DCA CORADR TAD FLNAMA DCA LOKUP1 TAD FLNAMA DCA ENTER1 TAD FLNAMA DCA CLOSE1 TAD DHFUNC AND (3700 BSW CLL RAR /ANZ. DER OS8 BLOECKE MQL MUY STORNR SZA TYDER /ZU GROSSE FILELAENGE ACL DCA FILENG TAD FILENG DCA CLOSE2 JMP I SETRST WRTRED, 0 CDF 0 SWAB CAM DAD DVNAME DPSZ /DEVICE VERWENDET ? SKP CLA /JA JMP RF /NEIN TAD FILCNT IAC SMA SZA TYDER /VORBERECHNETE FILELAENGE ZU ENDE DCA FILCNT CIF 0 JMS I DHENT DHFUNC, 0 CORADR, 0 STRTBK, 0 TYDER TAD DHFUNC AND (3700 BSW CLL RAR TAD STRTBK DCA STRTBK RF, CDF CIF 10 JMP I WRTRED DHENT, 0 TYD, 0 CIF 10 JMS I (200 11 /USROUT TYDER