2 ; KERMIT - (Celtic for "FREE")
4 ; This is the CP/M-80 implementation of the Columbia University
5 ; KERMIT file transfer protocol.
9 ; Copyright June 1981,1982,1983,1984
12 ; Originally written by Bill Catchings of the Columbia University Center for
13 ; Computing Activities, 612 W. 115th St., New York, NY 10025.
15 ; Contributions by Frank da Cruz, Daphne Tzoar, Bernie Eiben,
16 ; Bruce Tanner, Nick Bush, Greg Small, Kimmo Laaksonen, Jeff Damens, and many
19 ; This file duplicates the CP/M DIR and ERA functions so we don't have
24 ;edit 14, 1-Apr-1991 by MF. Correct a bug which crept in with edit 13 which
25 ; caused any control-key other than ^Y or ^Z to act like ^X after a key
26 ; had been depressed to halt output of the TYPE/PRINT commands.
27 ;edit 13, 25-Mar-1991 by MF. Make the TYPE command always abort to Kermit
28 ; command-level if ^C is entered on the console even if multiple files
29 ; are being typed via wild-cards. Make ^X typed on the console abort
30 ; typeout of the current file and begin typeout of the next file,
31 ; if any, otherwise go back to Kermit command-level.
32 ; The foregoing also applies to the PRINT command.
33 ;edit 12, 14-Feb-1991 by MF. Call "clrtop" in TYPE command at "type1"
34 ; rather than sending a <ff> directly to the terminal as some
35 ; terminals don't respond to <ff> characters. Thus the screen will be
36 ; cleared (if the terminal allows) before each file is typed.
37 ; Also use "getfil" rather than the bdos "openf" call to open
38 ; files for typing (label "type2"). This tightens up the code.
39 ; Zero "fcbcnt" before starting to type files (label "type0b").
40 ; This apparently fixes a phantom bug which caused incorrect lookup (and
41 ; hence garbage typeout) of files occassionally after a new disk
42 ; was inserted and a SET DEFAULT-DISK was performed to reset the disk
43 ; system. (It looked like parts of other files were being typed, as
44 ; if the directory had been misread or had not been reset.)
45 ;edit 11, 8-Feb-1991 by MF. Cause the bdos call for direct console input
46 ; in "ckchr" **not** to go thru the bdos trap but to call bdos at 0005h
47 ; directly. This corrects a bug wherein if commands such as INPUT
48 ; (which check to see if a keyboard key has been pressed) were executed
49 ; from a TAKE-file, the character following the terminator of such
50 ; commands was being interpreted as that keyboard input, thus causing
51 ; the next command in the TAKE-file to be unrecognized since its
52 ; first character had been eaten as a result of the keyboard check.
53 ; This bug **may** be the cause of a report received by Dr. Martin
54 ; J. Carter of Nottingham University in the U.K. in which Kermit
55 ; was reported to have read a character beyond a command terminator
56 ; in a TAKE-file, making the subsequent command unrecognizable since
57 ; its first character was missing.
58 ;edit 10, 29-Jan-1991 by MF. Use the big buffer for TYPE/PRINT commands.
59 ; Thus, edit 9 has been superseded.
60 ;edit 9, 29-Jan-1991 by MF. Corrected EOF check in TYPE command routine
61 ; following label "type20". a READF call, if successful, gives A=0
62 ; (not A=0FFH) and A not zero if failure. Thus the "INR A" instruction
63 ; checking for EOF was **always** nonzero. The reason the TYPE command
64 ; worked is that CP/M text files indicate the text end-of-file with a
65 ; Control-Z, in which case the TYPE routine branched correctly. In
66 ; other words, this edit is more for aesthetic purposes to satisfy
67 ; purists than something brought about by dire necessity!
68 ;edit 8, 28-Jan-1991 by MF. Added code courtesy of Dr. Martin J. Carter
69 ; of Nottingham University, UK, to use the big buffer for the COPY
71 ;edit 7, 18-Sep-1990 by MF. Added RENAME routine to implement the
72 ; RENAME (FRENAME) command to rename a CP/M file.
73 ; Modified COPY routine to explicitly reject wild-carded filenames
74 ; by using COMND function CMOFI rather than functions CMIFI and
75 ; CMIFIN to get input and output filenames.
76 ; Modified ERA and COPY routines to not act upon the respective
77 ; commands until a "confirm" is typed. This prevents these
78 ; routines from taking off upon recognition of action characters
79 ; like "?", which can be quite annoying if one is an inexperienced user.
80 ; edit 6, March 11, 1987 by OBSchou. Added in the TYPE and PRINT commands
81 ; Both type to the screen, print also echoes to printer.
83 ; edit 5 20 June, 1986. Added support for multiple file FCB buffering.
85 ; edit 4: June 16, 1986 OBSchou at Loughborough University, UK
86 ; added in a test to prevent a DIR command issued from a TAKE command
87 ; being interruped by the next character in the take command buffer.
88 ; Also added code for USER nn. (Well, its OS related,is it not?)
90 ; edit 3: July 8, 1984 (CJC)
91 ; Merge modifications from Toad Hall: support LASM (linked by CPSTT,
92 ; links to CPSWLD), use prcrlf where appropriate.
94 ; edit 2: June 5, 1984 (CJC)
95 ; documentation and formatting; delete unused code (dir13); add module
98 ; edit 1: May, 1984 (CJC)
99 ; extracted from CPMBASE.M80 version 3.9; modifications are described in
100 ; the accompanying .UPD file.
102 cpmver: db 'CPSCPM.ASM (14) 1-Apr-1991$' ; name, edit number, date
104 npl EQU 04H ;Number of names per line for dir command.
106 ; This is the DIR command. Display the name and size of all files
107 ; matching the filespec.
110 ; Note: This is abstracted from Keith Peterson's DIRF.ASM
111 ; directory print function. Thanks again Keith.
114 dir: lxi d,fcb ;Where to put the data, if any.
116 call comnd ;Parse a full or piece of file-spec
117 jmp dir2 ;Didn't get a FULL file-spec
121 ;Make FCB all '?' to match any file
123 cpi ' ' ;CMIFIN leaves that as ' '
124 jnz dir2a ;he typed at least x:
126 sta fcb ;default drive
128 mvi b,11 ;FN+FT count.
130 dir3: mvi m,'?' ;Store '?'s in FCB.
134 ;Print signon message and drive name
135 dir4: call getun ; get current user number
137 ora a ;if not zero, get default
139 lda curdsk ;get default
140 dir4a: adi 'A'-1 ;Asciize it
141 sta dnam14+2 ;[4] add in user no, and Save it in message.
142 lda temp1+1 ;[4] most sig. user number
143 cpi '0' ;[4] if zero set space
146 dir4b: sta dnam14 ;[4]
148 sta dnam14+1 ;[4] ls user number digit
150 lxi d,inms14 ;Point to message
153 ;Initialize number of names per line counter
154 mvi a,npl ;Nr. names per line.
155 sta nnams ;Init counter.
156 lda hidefs ; are we doing file size?
158 jnz dir4c ; we are not showing file size,
161 sta nnams ; so we can show another name per line
163 dir4c: xra a ; clear the flags ready for multi-sector buffering
164 sta fcbcnt ; clear fcb counter
168 lxi h,fcb0 ; reset pointer for fcb save space
171 call dir26 ;Get disk parameters
172 xra a ;[5] say first time round, so no spare fcbs
174 dir5: call mfname ;get some names
176 jmp dir17 ;got none - do summary
178 dir6: ;Check for console break
179 lda takflg ;[4] ... but not if issued from TAKE....
181 jnz dir6a ;[4] we do the lot regardless.
183 mvi c,consta ;Ck status of kbd.
185 ora a ;Any key pressed?
186 jz dir6a ;nope, keep going
188 call bdos ;gobble key
189 jmp dir17 ;and print summary only
193 lxi h,fcb+1 ;point to Filename
194 mvi b,8 ;File name length.
195 call dir11 ;Type filename.
196 mvi a,'.' ;Period after FN.
198 mvi b,3 ;Get the filetype.
200 call dir25 ;print size
201 lxi h,nnams ;Point to names counter.
202 dcr m ;One less on this line.
204 cnz dir7 ;No cr-lf needed, do fence.
206 cz dir12 ;Cr-lf needed.
209 ;Print space, fence character, then space
211 mvi a,':' ;Fence character.
215 ; dir8 - Print two spaces
216 ; dir9 - Print one space
217 ; dir10 - Type char in A register
223 mov e,a ;Char to E for CP/M.
224 mvi c,conout ;Write char to console function.
231 ;Type (B) characters from memory (HL)
233 ani 7FH ;Remove CP/M 2.x attributes.
240 ;CR-LF routine. HL=NNAMS upon entry
244 call prcrlf ;Print CR/LF [Toad Hall]
245 pop h ;(did use call to dir10, but slooow)
248 mvi m,npl ;Number of names per line.
249 lda hidefs ; are we showing file size?
252 inr m ; else show another file per line
255 ;Exit - All done, return via jmp (as for all main commands)
261 call bdos ;back to "logged in" disk
262 jmp kermit ;...and return to kermit.
265 ;Determines free space remaining
268 sta mfflg1 ;clean up MFNAME
270 lda fcb ; get drive number from FCB
273 dcr a ; no, make requested drive current drive.
277 dir18: call sysspc ; get space available for current drive
279 lxi d,inms15 ;"Drive "
281 lda fcb ;If no drive, get
282 ora a ;logged in drive
289 lxi d,inms16 ;"x has "
291 pop h ;Get number of bytes available
293 lxi d,inms17 ;"K bytes free"
297 ;Compute the size of the file
299 dir25: lda hidefs ; do we show file size?
300 ana a ; if non zero, we dont.
302 mvi c,cflsz ;get file-size
305 lda fcbrno ;shift least sign. part
310 lxi b,1 ;save for later
311 dir250: push b ;save 0 or 1 to add to size
312 mvi b,3 ;shift 3 bits
313 dir25a: xra a ;clear sign
314 lda fcbrno+1 ;get most sig byte
316 sta fcbrno+1 ;put back
317 lda fcbrno ;get least sig part
326 dad b ;round up to KB used
327 lda bmask ;get (sectors/block)-1
333 dad b ;add (K/block)-1 to size to round up
335 ana l ;truncate after rounding up
338 lxi b,-10 ;subtract 10
341 call dir8 ; print a leading space
344 dir25d: pop h ;get size again
346 lxi b,-100 ;subtract 100
349 call dir9 ; print another leading space
350 dir25e: call dir9 ;a space
352 call nout ;..go print it
353 mvi a,'k' ;..and follow with K size
357 dir26: mvi c,gtdpar ;current DISK PARAMETER BLOCK
361 mov a,m ;Get Block Shift Factor
363 inx h ;Bump to Block Mask
368 mov e,m ;Get Max Block number
372 shld bmax ;Put it away
375 ; ERA command - erase a CP/M file
378 era: mvi a,cmifi ;Parse a file-spec
381 jmp kermit ;bad parse
382 mvi a,cmcfm ;[MF]Get a confirm from the user
384 jmp kermit ;[MF]NO? try another command
386 mvi c,sfirst ;check if valid
388 inr a ;0 if FILE not found
389 jnz era1 ;found at least one
390 lxi d,erms15 ;"unable to find file"
397 lxi d,inms18 ;" File(s) erased"
401 ; USER - select a new user. This is an unusual routine in that the user
402 ; enters a number. The others take on/off or filename (except
405 user: mvi a,cmnum ; go parse a number
407 jmp kermit ; if we can not do it, quit to command loop
408 mvi a,cmcfm ; get a confirm from the user
410 jmp kermit ; if no, then try another command
411 lhld number ; else get the number...
412 xchg ; until a non valid digit is typed (eg cr)
413 lxi h,-32 ; if a carry, then ok
414 dad d ; ... else its above 32
416 xchg ; restor number in hl again
417 mov a,l ; Lets save it
418 sta curusr ; as current user number
419 mov e,l ; get user no to e...
422 call getun ; get user number to temp1 and temp2
425 jnz user0 ; dont do ms digit if a zero
427 user0: sta kerm1 ; save into string etc
428 sta dnam14 ; also for dir command
431 sta dnam14+1 ; also for dir command
434 user1: lxi d,erms23 ; tell user sorry
440 ; TYPE - type a file or files to the console.
442 ; This utility also used by print, where the characters printed to
443 ; the console are also copied to the printer if the prnfl flag
444 ; is non-zero. Uses mfname to type (print) multiple names.
445 ; Each file is preceeded with a formfeed character (usually clears
446 ; the screen on a VDU)
449 type: mvi a,cmifi ; parse a file name
450 lxi d,fcb ; let the parser know where the FCB is
452 jmp type02 ; if error say so
455 xra a ; clear some flags for mfname
460 lxi h,fcb0 ; reset the fcb pointers etc
463 jc type02 ; match not found
465 ;[MF][10]The following code to type a file using a 1-sector buffer has
466 ;[MF][10]been replaced by code to use the "big buffer" -- 30-Jan-1991
467 ;type1: lxi d,buff ; point to the default DMA address
469 ; call bdos ; tell bdos where to put the dma address
470 ; mvi a,ff ; do a form feed
472 ; xra a ; clear the character count
475 ;type2: mvi c,openf ; open the file for reading
477 ; xra a ; but first clear bits of fcb...
482 ; call bdos ; NOW open the file
484 ;type20: mvi c,readf ; open up the file and read first sector
487 ;;[MF][9]Correct EOF test below (next two instructions)
488 ;; inr a ; if 0ffh returned, error. Assume EOF
489 ;; jz typex ; so exit from here
490 ; ora a ;[MF][9]If error, assume EOF
491 ; jnz typex ;[MF][9]so exit
492 ; lxi h,0 ; else clear the pointer into the file
496 ;type2a: lxi d,buff ;ok, so lets get the byte to print
498 ; dad d ; add offset to the DMA base
499 ; mov a,m ; and get character to type (print)
500 ; ani 7fh ; make sure it is printable
501 ; cpi 20h ; is it a control character?
503 ; cpi 09h ; if its a tab, then expand it
506 ;type2c: mvi a,' ' ; send a space
507 ; call typit ; type it
508 ; lda chrcnt ; get the number of chrs so far
509 ; ani 7h ; see of an 8th pos?
510 ; jnz type2c ; loop until all spaces done, then exit
513 ;type2b: cpi cr ; is it a cr or lf?
515 ; call typit ; do a cr
517 ; sta chrcnt ; cr of lf => clear character count
518 ; jmp type4 ; and exit
522 ; call typit ; print the character
524 ; sta chrcnt ; cr or lf clears the character count
527 ;type2e: cpi cntlz ; is it end of file?
529 ; jmp typex ; yes, so close and try for another file
531 ;type2f: push psw ; control char - save the character
532 ; mvi a,'^' ; send control chars as ^A, for ex.
539 ;type4: lhld typptr ; get the pointer
541 ; shld typptr ; up it by one character, and save it.
542 ; mov a,l ; lets see if the sector has been typed
544 ; jm type20 ; if 80h => read new sector
545 ; jmp type2a ; else just continue along
547 ;[MF][10]The following code uses the "big buffer" to read the file
548 ;[MF][10]which is to be typed
549 ;[12]Clear the screen explicitly as some terminals don't respond
550 ;[12]to the <ff> character.
551 ;type1: mvi a,ff ; do a form feed
553 type1: call clrtop ;[12] Clear the screen
554 xra a ; clear the character count
555 sta temp1 ;[MF]alias column counter
558 ;[12]Eliminate call to openf in favor of call to "getfil"
559 ; mvi c,openf ; open the file for reading
561 ; xra a ; but first clear bits of fcb...
566 ; call bdos ; NOW open the file
567 call getfil ;[12] NOW open the file
569 type20: call inbuf ;[MF]Fill input buffers
570 jmp typex ;[MF]Tru end-of-file reached
571 jmp type21 ;[MF]Begin typing/printing characters
573 type2a: lda chrcnt ;[MF]Get buffer character counter
574 dcr a ;[MF]and decrement it
575 jm type20 ;[MF]Get more characters if needed
576 type21: sta chrcnt ;[MF]else remember new buffer character counter
577 lhld bufpnt ;[MF]Now get character pointer
578 mov a,m ; and get character to type (print)
579 inx h ;[MF]Increment the pointer
580 shld bufpnt ;[MF]and remember it
581 ani 7fh ; make sure character is printable
582 cpi 20h ; is it a control character?
584 cpi 09h ; if its a tab, then expand it
587 type2c: mvi a,' ' ; send a space
589 lda temp1 ;[MF]Get the number of characters so far
590 ani 7h ; see if an 8th pos?
591 jnz type2c ; loop until all spaces done, then exit
592 jmp type2a ;[MF]and continue
594 type2b: cpi cr ; is it a cr or lf?
598 sta temp1 ; cr or lf => clear character count
599 jmp type2a ;[MF]and continue
603 call typit ; print the character
605 sta temp1 ; cr or lf clears the character count
606 jmp type2a ;[MF]and continue
608 type2e: cpi cntlz ; is it end of file?
610 jmp typex ; yes, so close and try for another file
612 type2f: push psw ; control char - save the character
613 mvi a,'^' ; send control chars as ^A, for ex.
618 jmp type2a ; and continue along
622 call bdos ; close the file
623 mvi a,cr ; send cr lf to screen/printer to clear buffers
627 call mfname ; and see if there are other files to type
628 jnc type1 ; yup, so go do it
629 xra a ; make sure the flag is reset
631 jmp kermit ; then exit.
633 typex0: mvi c,closf ;[MF]Close the file
636 mvi a,cr ;[MF]Clear buffers
640 xra a ;[MF]Clear flag
642 lda takflg ;[MF]See if we're TAKEing commands
643 ani 1 ;[MF]from a file
644 cnz closet ;[MF]If we are, abort TAKE-file processing
645 jmp kermit ;[MF]Back to Kermit command-level
647 ; error for file not found for type
648 type02: lxi d,nofile ; say no file name (its invalid)
651 sta prnfl ; clear the flag
652 jmp kermit ; so abort
656 call ckqtyp ; see if a cntl-c or other character from user
657 jmp typit2 ;[MF] Control-C entered, abort
658 jc typit1 ; CNTL-X entered, so abort file [MF]
659 push d ; save for a bit
660 call outcon ; send it to the console
661 lda temp1 ; update the number of characters sent[MF]
665 lda prnfl ; see if we have to print it too
668 call outprn ; send character to printer (buffer)
671 typit1: pop d ; adjust stack again
672 jmp typex ; and say we are done (for this file)
674 typit2: pop d ;[MF] Adjust the stack
675 jmp typex0 ;[MF] and abort file typeout completely
678 ; CKQTYP - CHeck for requested Quiet TYPe (ie hang on a second)
679 ; Routine sees if the user has typed ANY key. If a key HAS been pressed
680 ; see if its a Control-c. If so, flag for an abort, else wait for
681 ; a second entry from the user. If its a Control C, flag an abort
682 ; else continue with the print.
683 ; note: only the DE registers maintained. All others destroyed.
684 ; **NOTE** CKQTYP now gives a nonskip return if Control-C is typed,
685 ; a skip-return with carry set if a Control-X is typed and a skip-return
686 ; with carry clear if any other character is typed as the second
689 ckqtyp: push d ; save the character to be printed
690 call ckchr ; see if user entered a character
691 ani 7fh ; strip parity etc
692 jz ckqty3 ; nothing entered, so go on as usual (See below)
693 cpi ctrlc ; control c?
694 jz ckqt1a ;[MF] Yup, give nonskip return
695 cpi 'X'-100o ;[MF] If Control-X,
696 jz ckqty1 ; yup, set carry and exit
697 ckqty2: call ckchr ; another character to wait for (ie pause)
699 jz ckqty2 ; wait until some input
700 cpi ctrlc ; if control c, abort
702 cpi 'X'-100o ;[MF] Control-X?
703 jz ckqty1 ; yuss, so flag abort file [MF]
704 ckqty3: pop d ; else restore the character to be typed [MF]
705 ; ret ; no, so continue with type/print
707 cmc ;[MF]Then clear it
708 jmp rskp ;[MF] Continue with type/print (skip ret)
710 ckqty1: pop d ; restore stack again
711 stc ; set carry and return
715 ckqt1a: pop d ;[MF] Adjust stack
718 ;[MF][14]No longer need these lines
719 ;ckqty3: pop d ; restore stack again
721 ; stc ;[MF] Clear carry
723 ; jmp rskp ;[MF] and give skip return
725 ckchr: call selcon ; make sure we are talking to the console
726 mvi e,0ffh ; see if user has any input for us
728 ; call bdos ;[11]Don't go thru bdos trap
729 call 0005h ;[11]Call bdos directly
730 ret ; This routine does not care what comes back
734 ; COPY - routine to copy from a source file to a destination file
735 ; from the Kermit command state.
737 ; Note. This could be tricky, as there are several forms of copy
738 ; copy d:source.ext d:dest.ext (Easy one)
739 ; copy d:source.ext d: (File to another drive)
740 ; copy d:source.??? d: (several files)
741 ; copy d:*.* d: (Several files)
743 ; Initially, lets make it top one, and see how we go, ok?
746 ;Things to do for copy:
749 ; 3) if both source and destination = abort
750 ; 4) if source does not exist abort
751 ; 5) attempt to delete destination file if it exists
752 ; 6) open source and destination files
753 ; 7) copy file across
755 ; 9) return to command mode
758 ; 1) get source file name
759 mvi a,cmofi ; go parse a file name
761 lxi d,cfcbs ; use the source for copy FCB (Allows copy
762 call comnd ; from a TAKE file etc)
763 jmp kermit ; if error, abort
766 mvi a,cmofi ; go parse a target file name
768 lxi d,cfcbd ; use destination fcb
770 jmp kermit ;[MF]Couldn't.
771 mvi a,cmcfm ;[MF]Get a confirm from the user
773 jmp kermit ;[MF]No? try another command
775 ; 3) see if both target and source are equal
776 copy0: mvi b,12 ; we are gonna test drive, file and extention
777 lxi d,cfcbs ; from source file name...
778 lxi h,cfcbd ; to destination file name
779 xra a ; clear flag for difference found
781 copy1: ldax d ; get source file name character
782 cmp m ; test with targer file name
783 jz copy2 ; if equal, do nothing
784 lda equflg ; else update flage (ie files are different)
790 jnz copy1 ; up pointers and test for next char
792 lda equflg ; if still null, then its a daft thing to do
794 jnz copy3 ; its not a daft thing to do
795 lxi d,samems ; load up "File source and destination the same"
796 call prtstr ; tell user
797 jmp kermit ; and try again
799 ; 4) If source does not exist, abort. Assume we have a full file name.
801 lxi d,cfcbs ; load up source fcb
802 mvi c,openf ; open file
804 inr a ; error on open?
806 lxi d,nofile ; assume file not found
810 copy4: lxi d,cfcbd ; load up destination fcb
811 mvi c,delf ; destroy target name if it exists
812 call bdos ; ignore error messages
813 lxi d,cfcbd ; load up destination fcb
814 mvi c,makef ; make a file
818 lxi d,erms12 ; no directory space
820 jmp copy7 ; close source file
822 copy4a: lxi d,cfcbd ; load up destination fcb...
823 mvi c,openf ; for open
825 inr a ; error on open?
826 jnz copy5 ; could do with better error detection...
827 lxi d,erms15 ;... but assume its a disk full
829 jmp copy7 ; close source file and jmp kermit
831 ;copy5: lxi d,buff ; set default dma address to 80h
835 ;copy6: lxi d,cfcbs ; copy routine proper.. get a sector
838 ; ana a ; error reading the file?
839 ; jnz copy8 ; yes, then cope with it (could be EOF)
840 ; [MaJoC 910128] The above code, which reads single logical sectors,
841 ; is grossly inefficient with systems (most of them) with larger physical
842 ; disk blocks and a single shared read/write buffer. Use of INBUF below
843 ; is functionally equivalent at this level, but does actual disk reads
844 ; by the Big Buffer-ful.
846 xra a ; Initialise INBUF, to force reading of
847 sta seccnt ; the first Big Buffer-ful. Redundant
848 sta endsts ; if file opened by GETFIL (or variant).
850 lxi h,cfcbs ;[MF]Copy source fcb to default fcb
851 lxi d,fcb ;[MF]since INBUF uses the default fcb
855 ; INBUF returns a pointer to the next logical bufferful via bufpnt, filling
856 ; the Big Buffer as necessary, with skip return for success and nonskip on
858 call inbuf ; Start of copy proper: get bufferful.
859 jmp copy8 ; Nonskip return: treat as EOF.
860 lhld bufpnt ; Skip return => OK: pick up buffer pointer.
862 mvi c, setdma ; Tell system where to write from.
864 ; [majoc 910128: end]
865 lxi d,cfcbd ; send sector to destination
868 ana a ; error on write (disk full?)
869 jz copy6 ; no error, so do another sector.
870 lxi d,erms17 ; say disk is full
872 lxi d,cfcbd ; close the output file...
875 lxi d,cfcbd ; ... and then delete it
877 call bdos ; ... and then drop through to...
879 copy7: lxi d,cfcbs ; here to close the source FCB
884 copy8: lxi d,cfcbd ; orderly close of destination file
887 jmp copy7 ; now close the source file as well.
890 ;[MF]RENAME - Rename a file
892 rename: mvi a,cmofi ;[MF]Get nonwild filename
893 lxi d,cfcbs ;[MF]Use "COPY" fcb's
895 jmp kermit ;[MF]Couldn't get it.
896 mvi a,cmofi ;[MF]Get filespec to rename it to
899 jmp kermit ;[MF]Couldn't.
900 renam0: lxi d,cfcbs ;[MF]See if file to be renamed exists
901 mvi c,openf ;[MF]by trying to open it
903 inr a ;[MF]Does the file exist?
905 lxi d,nofile ;[MF]No, inform the user
907 jmp kermit ;[MF]and bomb
908 renam1: lxi d,cfcbd ;[MF]Point to rename filespec
909 mvi c,openf ;[MF]Set function code to
910 call bdos ;[MF]See if rename file exists
913 lxi d,erms31 ;[MF]Yes, complain
915 jmp kermit ;[MF]and depart with tail between legs
916 renam2: lxi h,cfcbd ;[MF]Now get rename filespec again
917 lxi d,cfcbs+16 ;[MF]and where to copy it to
918 lxi b,16 ;[MF]We copy drive, filename, filetype, extent
920 lxi d,cfcbs ;[MF]Point to fcb for rename
921 mvi c,renam ;[MF]Get rename function
922 call bdos ;[MF]Try to rename the file
923 inr a ;[MF]Did we succeed?
924 jnz kermit ;[MF]Yes, done
925 lxi d,erms16 ;[MF]No, complain
927 jmp kermit ;[MF]and start over
932 ENDIF;lasm [Toad Hall]
projects / kermit-80.git / blob