þþ%èX;SAVE #D2:DUPFIL.M65òA—DUPLICATE A SINGLE FILEAü+X; **** DUPLICATE FILE COMMAND ****X;X;3X; DUPLICATE FILE FROM ONE DISK TO ANOTHER$ D;;DUPLICATE FILE ONLY FOR DISK DEVICEöF†ISDISK)!„ODMS;;IF NOT -- SAY CANNOT DO & EXIT X;:†ISDISK †USEPGM;;ASK USER IF TO USE PROG AREA OR BUFFERX;(@X; HAVE USER INSERT SOURCE FILE AND HIT WHEN DONE2X;<*$>5ƒISD;;ARG: LINE TO BE DISPLAYED ADDRFQ>4ƒISD;;IN REG. A & XP$ †DSPLIN;;PRINT INSERT SOURCE MSGZ( †GETLIN;;GOTO SCREEN & WAIT FOR d% „PERX;;GOTO MENU IF BREAK KEY HITnX;x- †LOOKWC;;SEE IF FILE SPEC. USES WILDCARDS‚9H„NOWC;;BRANCH IF NO WILD CARDS USED - USE OLD ROUTINEŒ&Q>@;;SET 'DUPLICATE WILDCARD' MODE–/!†WCINIT;;OPEN WILDCARD DIRECTORY FILE, ETC. X;ª „NOWC ´X;¾&X; MAKE SURE DEST NOT DOS.SYSÈX;Ò/$>;;ENTRY-INDEX TO FIRST CHAR OF FILE NAMEÜ' †TSTDOS;;WON'T RETURN IF IS DOS.SYSæX;ðHX; OPEN SOURCE FILE - ADDR OF FILENAME STRING IN PARAM LIST ISú)X; ALREADY ASSIGNED TO IOCB # 2X;†WCDUPS$>;;USE IOCB #2Q>„OPEN;;OPEN COMMAND"P…ICCOM9,Q>;;READ ONLY6P…ICAX19@7 …CIOCL;;CALL CIO - IF ERR PRNT MSG,CLOSE, GOTO MENUJX;TLX; EOFFLG - SOURCE FILE EOF FLAG FTRF - FLAG TO SHOW IF 1ST TIME SOURCE^X; FILE WAS READhX;rQ>|P†EOFFLG;;CLEAR EOF FLAG†!P„FTRF;;CLEAR MEANS FIRST TIMEX;š2X; DO UNTIL (SOURCE EOF FLAG (EOFFLG) IS SET)¤GX; SET UP IOCB#2 TO DO GET CHAR. ZP LOC BUFADR HAS BUFFER ADDRESS® X; BUFLEN HAS BUFFER LENGTH¸X;Â…DODUP$>;;USE IOCB #2ÌQ†BUFADR;;IN LSB,MSB ORDERÖ'P…ICBAL9;;SET BUFFER ADDR IN IOCB #2àQ†BUFADRêP…ICBAH9ôQ†BUFLEN;;IN LSB,MSB ORDERþ P…ICBLL9;;STORE BUFFER LENGTHQ†BUFLEN;;IN IOCB #2P…ICBLH95Q>†GETCHR;;COMMAND TO GET CHAR - IGNORE EOL'S (9B)&P…ICCOM90 ƒCIO;;CALL CIO:X;DJX; CHECK FOR ENDFILE. IF YES, THEN SET FLG. CHECK FOR ERR. IF ERRN;X; THEN PRINT MSG, CLOSE FILE, AND RETURN TO MENU.XX;b&I†INSDES;;IF GOOD READ WRITE BUFFERl)>ƒEOF;;WAS IT EOF?vF†SETFLG;;YES, THEN SET FLAG€0!†CIOER1;;WAS ERR - PRINT MSG,CLOSE,GOTO MENUŠ$†SETFLG"†EOFFLG;;SET ENDFILE FLAG”X;žLX; WHEN GOOD READ OR EOF GET HERE. ASK USER TO INSERT DESTINATION¨;X; DISK AND ATTEMPT TO WRITE TO DESTINATION FILE.²X;¼6†INSDES$>5ƒIDD;;ARG: ADDRESS OF LINE TO BE PRINTEDÆQ>4ƒIDD;;IN REGS A AND XÐ †DSPLIN;;SAY TO SWAP DISKSÚ$ †GETLIN;;WAIT TIL USER HITS ä*ƒPER;;WAS BREAK KEY HIT?îI†DODEST;;NO, TRY WRITEø#!†CLSSRC;;YES, CLOSE & GOTO MENUX;JX; CHECK IF FIRST TIME SRC WAS READ. IF YES, THEN OPEN FOR OUTPUT5X; ONLY. OTHERWISE, OPEN FOR OUTPUT APPEND. X;*+†DODEST$> ;;USE IOCB #3 FOR DESTINATION4%> ;;ASSUME APPEND>Q„FTRF;;IS FLAG CLEAR?H,H†OPNDES;;NO,NOT FIRST TIME - OPEN APPENDR %>;;YES, THEN OPEN OUT ONLY\/#„FTRF;;SET TO SHOW NOT FIRST TIME NEXT TIMEfX;p†OPNDESC;;GET OPEN TYPE CODEzP…ICAX19;;SET AUX1 BYTE„Q>„OPEN;;OPEN COMMANDŽP…ICCOM9˜X;¢FX; THE FILENAME IS THE FIRST FILE IN THE PARAMETER LIST-PAR.¬X;¶3Q>4ƒPAR;;SET BUFR ADDR TO FILE SPEC TO BE OPENEDÀ %>5ƒPARÊ3*†WCFLAG;;IF WLDCARD-WLDCARD BUFR INSTEAD OF PARÔJ†SKIPWCÞX;è Q>4†WCBUF2ò %>5†WCBUF2üX; †SKIPWCP…ICBAL9 C P…ICBAH9$ ( …CIOCL;;CALL CIO, IF ERROR GOTO MENU. X;8 IX; CHECK IF SOURCE BUFR LEN IS NOT EQUAL TO ZERO. IF NOT = ZEROB 6X; THEN WRITE BUFFER TO THE DESTINATION FILE.L X;V %>;;SOURCE IS AT IOCB #2` $> ;;DEST IS AT IOCB #3j "Q>;;CHECK LENGTH LOW FOR ZEROt R…ICBLL8;;LOW=0~ !H†DOWRIT;;NO THEN WRITE BUFFERˆ R…ICBLH8;;IS HI=0?’ *F†CLSDES;;YES, DON'T WRITE EMPTY BUFFERœ X;¦ *†DOWRITQ>†PUTCHR;;PUT CHAR COMMAND CODE° P…ICCOM9;;IGNORE EOLS (9B)º Q†BUFADR;;GET BUFFER ADDRESSÄ P…ICBAL9Î Q†BUFADRØ P…ICBAH9â 'Q…ICBLL8;;GET BUFFER LENGTH TO WRITEì %P…ICBLL9;;FROM IOCB OF SOURCE FILEö &Q…ICBLH8;;SET BY GET TO ACTUAL BYTE #P…ICBLH9;;COUNT READ INTO BUFFER ' …CIOCL;;DO WRITE - IF ERR GOTO MENU X; #X; CLOSE DESTINATION FILE( X;2 &†CLSDESQ>…CLOSE;;CLOSE COMMAND CODE< &P…ICCOM9;;CALL CIO - IF ERROR GOTOF …CIOCL;;MENU AFTER PRINT MSGP X;Z HX; TEST ENDFILE FLAG. IF IT IS SET THEN COMPLETED DUPLICATION.d =X; OTHERWISE, DO LOOP BODY AGAIN (READ THEN WRITE).n X;x "Q†EOFFLG;;IS SOURCE AT ENDFILE?‚ H†CLSSRC;;YES, THEN DONEŒ X;– GX; ASK USER TO INSERT SOURCE FOR NEXT READ & THEN REPEAT LOOP X;ª .$>5ƒISD;;ARGS: ADDRESS OF LINE TO PRINT IN´ Q>4ƒISD;;REGS A AND X¾ ! †DSPLIN;;SAY TO INSERT SOURCEÈ $ †GETLIN;;WAIT TIL USER HITS Ò *ƒPER;;WAS BREAK KEY HIT?Ü #G†CLSSRC;;YES, CLOSE & GOTO MENUæ !…DODUP;;REPEAT LOOPð X;ú ;;SOURCE AT IOCB #2,Q>…CLOSE;;CLOSE COMMAND CODE6P…ICCOM9@ ƒCIO;;CALL CIOJX;T.*†WCFLAG;;TEST IF 'DUPLICATE WILDCARD' MODE^0J†DUPFEX;;BR IF NOT 'DUPLICATE WILDCARD' MODEh!$>5ƒISD;;INSERT SOURCE MESSAGEr Q>4ƒISD|2 †DSPLIN;;NEEDED TO GET NEXT WILDCARD DIR ENTRY† †GETLIN;;WAIT FOR CR, „PERX;;IF BREAK-KEY ABORT - EXIT TO MENUš"!†WCOPYL;;JUMP TO WILDCARD LOOP¤†DUPFEX ®X;¸!†MENUSL;;GO TO THE MENUÂÌ?X; **** ASK IF OK TO USE PROGRAM AREA ROUTINE ****ÖX;àX;ê4‚OK;;ARGS: IN A AND X ADDRX$>5‚OK;;OF LINE TO DISPLAYb †DSPLIN;;ASK TO USE PGM AREAl"Q>4„CMSI;;SAY A Y RESPONSE WILLv$>5„CMSI;;INVALIDATE MEM.SAV€ †DSPLIN;;PRINT CAUTIONŠ †CHRGET;;GET 1ST CHAR OF”R> Y;;USERS RESPONSEžH†USEBUF;;NO, THEN USE DBUFF¨X;²*X;USE ALL MEMORY AVAILABLE-PROGRAM AREA¼3X;MEMLO,MEMTOP,BUFADR,BUFLEN ARE IN LSB,MSB FORMÆX;Ð$†USEDB4Q>;;CLEAR WARMSTART FLAGÚ"P†WARMST;;TO SHOW PGM AREA USEDä0P†MEMFLG;;SHOW NO USER AREA GOOD-MEM.SAV ALSOîQ>4…NMDUP;;USE ALL AVAILABLEø-P†BUFADR;;MEMORY-FROM END OF DUP TO MEMTOP Q>5…NMDUP;;BUFADR HAS BUFFER P†BUFADR;;ADDRESS Q†MEMTOP;;GET LENGTH OF ;;;PGM AREA* S>4…NMDUP4 P†BUFLEN;;LSB,MSB ORDER> Q†MEMTOPH S>5…NMDUPR P†BUFLEN\ X;f IX; FIND THE GREATEST MULTIPLE OF 125 LESS THAN THE PROGRAM AREAp JX; THEN SET BUFR LEN TO IT. THIS PREVENTS FRAGMENTATION TO FILEz +X; WHEN APPEND IS USED IN DUPFIL.„ X;Ž .Q>;;INIT MULTIPLE OF 125 (MLT125) TO ZERO˜ P†MLT125¢ P†MLT125¬ X;¶ &X; DO UNTIL (MLT125 > BUFLEN)À X;Ê .†FINDGMQ>};;INC THE MULTIPLE OF 125 BY 125Ô %,;;TO GET THE NEXT HIGHER MULTIPLEÞ O†MLT125è P†MLT125ò Q>ü *O†MLT125;;MLT125 IS IN LSB,MSB ORDERP†MLT125X;1X; TEST FOR MLT125 > BUFLEN - LOOP TEST$X;.1Q†BUFLEN;;IS MSB OF MLT125 > MSB OF BUFLEN?8R†MLT125BD†GETMLT;;YES, THEN END LOOPL'H†FINDGM;;IF MLT LSB BUFLEN?jE†FINDGM;;NO, REPEAT LOOPt3X; ;ELSE END LOOP.~>X;********************** END OF LOOP***********************ˆX;’LX; CHECK IF MULTIPLE = TO 125. IF IS, THEN LEAVE BUFLEN AS IS. IFœEX; ISN'T THEN SET BUFLEN TO THAT NULTIPLE OF 125 MINUS 125.¦X;°)†GETMLTQ†MLT125;;IS MSB NOT = ZERO?º H†REPLAC;;YES, VALUE IS > 125ÄQ>};;IS LSB > 125?ÎR†MLT125Ø,D†REPLAC;;YES, REPLACE BUFLEN WITH MLT125â:;;ELSE LEAVE BUFLEN AS ISìX;ö3†REPLACQ†MLT125;;SUBTRACT 125 FROM MLT125 TO GET*;;;GREATEST MULTIPLE LESS THAN OR EQUAL S>};;TO THE PROGRAM AREA.)P†BUFLEN;;USE IT AS THE BUFFER LENGTH.Q†MLT125(S>2P†BUFLEN<:;;RETURNFX;P8X;USE BUFFER DBUF (250 BYTES) INSTEAD OF PROGRAM AREAZX;d†USEBUFQ>4„DBUF;;USE DBUF ASnP†BUFADR;;BUFFER ADDRESSxQ>5„DBUF;;IN LSB,MSB ORDER‚P†BUFADRŒQ>4„EDBL;;STORE DATA–P†BUFLEN;;BUFFER LENGTH Q>5„EDBL;;=TO 256(100HEX)ª P†BUFLEN;;IN LSB,MSB ORDER´:;;RETURN¾È=X; **** CHECK FILENAME FOR WILDCARD CHARACTERS ****ÒX;ÜX;æJX; CHECKS THE STRING AT PAR,X FOR WLDCARD CHARACTERS (* OR ?). IFðJX; THEY ARE FOUND THE ROUTINE SETS THE = FLAG. IF A IS FOUNDúEX; RETURNS TO THE CALLING ROUTINE WITH THE EQUAL FLAG RESET.X;†LOOKWCQƒPAR92"R> *,F†LOOKW26R> ?@F†LOOKW2JR>‚CRTF†LOOKW1^#R> ,;;TERMINATE WITH CR OR COMMAhH†LOOKWCrX;|†LOOKW12††LOOKW2: