Oakland CPM Archive

home *** CD-ROM | disk | FTP | other *** search

/ Oakland CPM Archive / oakcpm.iso / sigm / sigmv009.ark / MFT45.ASM < prev next >

Wrap

Assembly Source File | 1984-04-29 | 16.3 KB | 883 lines

;;; mft - multiple file transfer (for single drive systems) ; ; **Based on article in Dr. Dobbs Journal of Computer** ; **Calisthenics & Orthodontia #49, Box E, Menlo Park, Ca. 94025** ; ; Version 4.5 - 10/29/80 - Deleted system disk request of V4.0 ; to shorten messages, minor changes in abort options and ; other messages. Moved disk reset of V4.1 to point ; before directory search. (CHS) ; ; Version 4.4 - 10/28/80 - Modified to bail out with message ; if no FCB is specified. Updates rearranged with most ; recent first for reader convenience. (Charles H. Strom) ; ; VERSION 4.3 BY LEWIS MOSELEY, JR. 3/22/80 ; FIXED BUG WHICH SHOWED UP WHEN MULTIPLE COPIES WERE ; MADE OF A MULTIPLE EXTENT FILE, IN THAT CP/M OPEN ; THE NEXT EXTENT USING THE DATA AREA TO SEARCH THE ; DIRECTORY, SCREWING UP THE DATA BLOCK THAT IS THERE. ; ; VERSION 4.2 BY LEWIS MOSELEY, JR. 2/23/80 ; FIXED BUG THAT OCCURRED WHEN ONLY A SINGLE FILE ; WAS SPECIFIED AND THAT FILE WAS NOT FOUND: ; PROGRAM HUNG IN A LOOP ; ; VERSION 4.1 BY LES FREED AND LEWIS MOSELEY 2/11/80 ; ADDED DISK RESET ON DISK CHANGE TO ALLOW ; CHANGING DENSITY BETWEEN DISKS ; ADDED CTL-C ABORT ; ; VERSION 4.0 BY LEWIS MOSELEY, JR. 12/79 ; ADDED OPTION FOR MULTIPLE OUTPUT COPIES ; ADDED REQUEST FOR SYSTEM DISK BEFORE REBOOT ; ; l.e. hughes 9/79 ; mycroft labs ; atlanta, ga ; MODIFIED FOR SOL & COMPATABLE COMPUTERS BY ; LEWIS MOSELEY, JR. - ATLANTA,GA. VERSION EQU 4 MODLEV EQU 5 ; entry equ 0005H ;bdos entry point tfcb equ 005CH ;system file control block dbuf equ 0080H ;system disk buffer ; CR equ 0DH LF equ 0AH ; rcfc equ 01 ;read console wcfc equ 02 ;write console rdfc equ 13 ;reset disk offc equ 15 ;open file cffc equ 16 ;close file sffc equ 17 ;search first snfc equ 18 ;search next dffc equ 19 ;delete file rrfc equ 20 ;read record wrfc equ 21 ;write record mffc equ 22 ;make file safc equ 26 ;set address ; fn equ 01 ;file name offset ft equ 09 ;file type offset ex equ 12 ;extent number offset nr equ 32 ;next record offset ; org 100H mft: lxi sp,stack+64 lxi h,msg1 ;print 'MFT V4.0' call wasc xra a ;clear break flags sta ibflg sta obflg STA NDFLG ;CLEAR NO DUP FLAG ; LDA TFCB+1 ;If no FCB specified CPI ' ' ;then say so JNZ OK LXI H,MSGK ;and bail out CALL WASC ;here JMP 0H ; ; calculate buffer size = fwa(BDOS) - fwa(MBUF) ; OK lhld entry+1 ;hl = (entry+1) - 6 lxi d,-6 dad d mov a,l ani 80H ;hl = hl mod 128 mov l,a lxi d,mbuf ;hl = hl - fwa(MBUF) mov a,l sub e mov l,a mov a,h sbb d mov h,a dad h ;hl = hl / 128 mov l,h mvi a,0 aci 0 mov h,a dcx h ;subtract one shld space ;save as buffer size lxi h,msg2 ;write 'Buffer size = ' call wasc lhld space ;write size of buffer call wdwc lxi h,msg3 ;write ' sectors' call wasc ; ; ask user to mount input disk ; mft1: lxi h,msg4 ;write 'Mount input disk, type CR' call wasc call racc ;read response CPI 03 ;CTL-C ? JZ MFTL ;ABORT WITH MESSAGE cpi CR ;loop if anything but CR jnz mft1 call weolc ;echo CR,LF CALL RESET ;adjust density lda ibflg ;jump if ibflg set ora a jnz mft2a ; ; copy command line into cbuf ; lxi h,dbuf ;fwa of command line image lxi d,cbuf ;fwa of command buffer mov b,m ;fetch command line image length inx h mft2: mov a,m ;fetch next byte from cli inx h stax d ;store in dbuf inx d dcr b ;decrement count jnz mft2 ;loop until zero xra a ;store zero byte at end stax d lxi h,cbuf ;reset cbufp shld cbufp call cfnt ;create file name table lxi h,fnt ;reset fnt pointers shld ifntp shld ofntp mft2a: lxi h,mbuf ;reset mbuf pointer shld mbufp lhld space ;reset msize shld msize lda ibflg ;jump if ibflg not set ora a jz mft3 lxi h,ifcb ;copy IFCB into TFCB lxi d,tfcb mvi b,33 call move xra a ;clear ibflg sta ibflg inr a ;set obflg sta obflg lhld ifntp ;back ifntp up 4 bytes lxi d,-4 dad d shld ifntp lxi h,tfcb+fn ;write filename call wfnc lxi h,msg6 ;write ' - ' call wasc lhld ifntp ;DE = ifntp xchg jmp mft4 ;continue reading previous file ; ; parse off next name from cbuf ; mft3: lhld ifntp ;fetch input fnt pointer mov a,m ;jump if end of table cpi 0FFH jz mft9 mvi m,1 ;set 'file read' flag inx h lxi d,tfcb+fn ;copy filename into tfcb mvi b,11 call move shld ifntp ;save input fnt pointer lxi h,tfcb+fn ;write filename call wfnc lxi h,msg6 ;write ' - ' call wasc xra a ;setup tfcb sta tfcb sta tfcb+ex sta tfcb+nr call open ;open file lhld ifntp xchg mft4: lhld mbufp mov a,h ;copy into fnt entry stax d inx d mov a,l stax d inx d xchg ;save fnt pointer shld ifntp lxi h,0 ;file size (in sectors) = 0 shld fsize ; ; read next file from input disk ; mft6: lhld mbufp xchg call setdma call read ;read next sector ora a ;jump if normal transfer jz mft7 cpi 1 ;jump if EOF jz mft8 lxi h,msg8 ;write 'read error - ' call wasc jmp mft8 ;continue as if EOF mft7: lhld mbufp ;mbufp = mbufp + 128 lxi d,128 dad d shld mbufp lhld fsize ;fsize = fsize + 1 inx h shld fsize lhld msize ;decrement msize dcx h shld msize mov a,h ;loop if still positive ora l jnz mft6 lxi h,tfcb ;copy tfcb into ifcb lxi d,ifcb mvi b,33 call move mvi a,1 ;set ibflg sta ibflg mft8: lxi d,dbuf ;reset dma pointer call setdma call close ;close file lhld fsize ;write file size call wdwc lxi h,msg9 ;write ' sectors read' call wasc ; ; update fnt, loop ; lhld fsize ;DE = file size xchg lhld ifntp ;store file size in fnt entry mov m,d inx h mov m,e inx h shld ifntp ;save fnt pointer lda ibflg ;loop if ibflg not set ora a jz mft3 ; ; FLAG THAT THE MEMORY BUFFER HAS BEEN EXCEEDED, AND ; TELL USER THAT DUPLICATE COPIES CANNOT BE MADE LDA NDFLG ;TOLD HIM ALREADY? ORA A JNZ MFT9 ;JUMP IF SO LXI H,MSGH ;IF NOT, TELL HIM CALL WASC MVI A,1 ;SET NDFLG THIS TIME STA NDFLG ; ; Ask user to mount output disk ; mft9: lxi h,msgA ;write 'Mount output disk, type CR' call wasc call racc ;read response CPI 03 ;CTL-C? JZ MFTL ;ABORT WITH MESSAGE IF SO cpi CR ;loop if anything but CR jnz mft9 call weolc ;echo CR,LF call reset ;reset disk system ;make r/w and check density lda obflg ;jump if obflg not set ora a jz mftA lxi h,ofcb ;copy ofcb into tfcb lxi d,tfcb mvi b,33 call move call open ;open previous file lhld ofntp ;backup output fnt pointer 4 bytes lxi d,-4 dad d shld ofntp lxi h,tfcb+fn ;write file name call wfnc lxi h,msg6 ;write ' - ' call wasc jmp mftb ;continue writing previous file ; ; write next file to output disk ; mftA: lhld ofntp mov a,m ora a jz mftF cpi 0FFH jz mftF inx h lxi d,tfcb+fn mvi b,11 call move shld ofntp lxi h,tfcb+fn call wfnc lxi h,msg6 call wasc xra a sta tfcb sta tfcb+ex sta tfcb+nr call delt ;try to create output file call make cpi 255 ;jump if ok jnz mftB lxi h,msgB ;write 'unable to create' call wasc jmp mftG mftB: lhld ofntp mov d,m ;fetch fwa of file from fnt inx h mov e,m inx h xchg shld mbufp ;save it xchg mov d,m ;fetch size of file from fnt inx h mov e,m inx h xchg shld fsize ;save it shld xsize ;save for printout xchg shld ofntp lhld fsize ;jump if fsize=0 mov a,h ora l jz mftDA mftC: lhld mbufp ;set dma address to mbufp xchg call setdma call write ;write next sector ora a ;jump if ok jz mftD lxi h,msgC ;write 'error writing file' call wasc jmp mftG mftD: lhld mbufp ;mbufp = mbufp + 128 lxi d,128 dad d shld mbufp lhld fsize ;fsize = fsize - 1 dcx h shld fsize mov a,h ;loop until zero ora l jnz mftC mftDA: lxi h,tfcb ;copy tfcb into ofcb lxi d,ofcb mvi b,33 call move lxi d,dbuf ;reset dma pointer call setdma call close ;try to close file cpi 255 ;jump if ok jnz mftE lxi h,msgD ;write 'unable to close' call wasc mftE: lhld xsize ;write number of sectors written call wdwc lxi h,msgE ;write ' sectors written' call wasc jmp mftA mftF: lda ibflg ;loop if ibflg set ora a jnz mft1 ;Terminate program here on irrecoverable error or ;when all files have been copied. Must reload system ;disk to avoid crash when copying to someone else's disk. ;If normal end, and if buffer has not been exceeded, give ;user the option of making another copy of the same ;set of files. mftG: LXI H,MSGF ;SEE IF OPTION IS ALLOWED LDA NDFLG ORA A JNZ MFTH ;JUMP IF NOT ALLOWED CALL WASC ;ELSE TELL ABOUT OPTION MFTH: LXI H,MSGG ;ASK FOR SYSTEM DISK call wasc call racc ;wait for response CPI 03H ;WARM BOOT IF ^C JZ 0 CPI CR ;ATTEMPT REPEAT IF <RETURN> JZ MFTJ JMP MFTG ;ELSE LOOP TILL GOOD RESPONSE ; MFTJ: CALL WEOLC ;ACKNOWLEDGE COMMAND LDA NDFLG ;REPEAT ALLOWED? ORA A JNZ MFTK ;JUMP IF NOT LXI H,FNT ;ELSE RESET FNT POINTER SHLD OFNTP LXI H,MBUF ;RESET MEM BUF POINTER SHLD MBUFP XRA A ;RESET OUTPUT INTERRUPTED FLAG STA OBFLG JMP MFT9 ;AND DO AGAIN ; MFTK: LXI H,MSGH ;CANNOT REPEAT, TELL HIM AGAIN CALL WASC JMP MFTG ;AND WAIT FOR SYSTEM DISK ; MFTL: LXI H,MSGJ ;ABORT MESSAGE CALL WASC JMP 0H ;WARM BOOT ; subroutines ; move: mov a,m inx h stax d inx d dcr b jnz move ret ; ;; gfn - get file name ; ; gfn: mov a,m ora a rz cpi ' ' jnz gfn0 inx h jmp gfn gfn0: lxi d,xfcb xra a stax d inx d push d mvi b,11 mvi a,' ' gfn6: stax d inx d dcr b jnz gfn6 pop d mvi b,9 gfn1: mov a,m ora a jz gfn4 inx h cpi ' ' jz gfn4 cpi '.' jz gfn2 cpi '*' jz gfn7 stax d inx d dcr b jz gfn5 jmp gfn1 gfn7: dcr b jz gfn9 mvi a,'?' stax d inx d jmp gfn7 gfn9: mov a,m cpi '.' jnz gfn4 inx h gfn2: lxi d,xfcb+ft mvi b,4 gfn3: mov a,m ora a jz gfn4 inx h cpi ' ' jz gfn4 cpi '*' jz gfn8 stax d inx d dcr b jz gfn5 jmp gfn3 gfn8: dcr b jz gfn4 mvi a,'?' stax d inx d jmp gfn8 gfn4: xra a ret gfn5: stc ret ; ;; cfnt - create file name table ; ; cfnt: lxi h,fnt ;reset ifntp shld ifntp MVI M,0FFH ;VER 4.2 BUG FIX cfnt1: lhld cbufp ;get cbufp mov a,m ;exit if end of list ora a rz call gfn ;get next afn shld cbufp ;save command buffer ptr jnc cfnt2 ;jump if filename ok lxi h,msg5 ;write 'Syntax error in filename' call wasc jmp cfnt1 ;loop cfnt2: xra a ;clear xfcb extent field sta xfcb+ex lxi d,xfcb ;search for first occurance call srchf cpi 255 ;jump if found jnz cfnt3 lxi h,xfcb+fn ;write filename call wfnc lxi h,msg7 ;write ' not found' call wasc jmp cfnt1 ;loop cfnt3: ani 3 ;index into cbuf mov l,a mvi h,0 dad h dad h dad h dad h dad h lxi d,dbuf dad d xchg ;copy filename into fnt lhld ifntp xchg mvi b,12 call move lxi h,zeros ;zero fill rest of entry mvi b,4 call move xchg shld ifntp ;save input fnt pointer mvi m,0FFH ;insure FF byte at end lxi d,xfcb ;search for next occurance call srchn cpi 255 ;jump if found jnz cfnt3 jmp cfnt1 ;go get next afn ; ;; wasc - write ascii string to console ; ; wasc: mov a,m ora a rz call wacc inx h jmp wasc ; ; ;; wfnc - write file name to console ;Note: Under SOLOS and CUTER, 01 is the cursor-left character. ;When MFTing a multi-extent file, the extent character must ;be filtered out of the file-name-block to avoid wierd ;console output. ; wfnc: mov a,m ora a ;0=thru rz cpi 20h ;skip print if < space jc wfnc1 call wacc wfnc1 inx h jmp wfnc ; ;; weolc - write end of line to console ; ; weolc: mvi a,CR call wacc mvi a,LF jmp wacc ; ;; wdwc - write decimal word to console ; ; wdwc: push h push d push b mvi b,0 ;clear 'digit written' flag lxi d,10000 ;write 1st digit call wndd lxi d,1000 ;write 2nd digit call wndd lxi d,100 ;write 3rd digit call wndd lxi d,10 ;write 4th digit call wndd lxi d,1 ;write 5th digit mvi b,1 ;force last digit to print call wndd pop b pop d pop h ret ; wndd: mvi c,0 ;c=0 wndd1: mov a,l ;hl = hl - de sub e mov l,a mov a,h sbb d mov h,a jc wndd2 ;jump if < 0 inr c ;c = c + 1 jmp wndd1 ;loop wndd2: dad d ;hl = hl + de mov a,c ;jump if c non-zero ora c jnz wndd4 mov a,b ;jump if digit written ora b jnz wndd4 mvi a,' ' ;write one space jmp wacc wndd4: mvi b,1 ;set 'digit written' flag mov a,c ;encode c into decimal ascii adi '0' jmp wacc ;go write it ; ;; wacc - write ascii character to console ; ; wacc: push h push d push b push psw mvi c,wcfc mov e,a call entry pop psw pop b pop d pop h ret ; ;; racc - read ascii character from console ; ; racc: push h push d push b mvi c,rcfc call entry pop b pop d pop h ret ; ;; reset - reset disk system ; ; reset: push h push d push b mvi c,rdfc call entry pop b pop d pop h ret ; ;; open - open disk file ; ; open: push h push d push b lxi d,tfcb mvi c,offc call entry pop b pop d pop h ret ; ;; read - read record from disk file ; ; read: push h push d push b lxi d,tfcb mvi c,rrfc call entry pop b pop d pop h ret ; ;; close - close disk file ; ; close: push h push d push b lxi d,tfcb mvi c,cffc call entry pop b pop d pop h ret ; ;; delt - delete disk file ; ; delt: push h push d push b lxi d,tfcb mvi c,dffc call entry pop b pop d pop h ret ; ;; make - make new disk file ; ; make: push h push d push b lxi d,tfcb mvi c,mffc call entry pop b pop d pop h ret ; ;; write - write record to file ; ; write: push h push d push b ; ;REVISION 4.3 MODS LDA tfcb+nr ;LAST RECORD IN EXTENT? CPI 7FH JNZ WRITE1 ;NO, CONTINUE LHLD mbufp ;EXISTING DATA AREA LXI D,dbuf ;POINT TO SAFE AREA CALL SETDMA ;TELL CP/M WHERE TO GET DATA MVI B,80H ;LENGTH TO MOVE CALL MOVE ;MOVE DATA AWAY SO... ;CP/M DOESN'T OVERWRITE THE REAL DATA IN OPENING NEXT EXTENT ;END REVISION 4.3 MODS WRITE1: lxi d,tfcb mvi c,wrfc call entry pop b pop d pop h ret ; ;; setdma - set dma address ; ; setdma: push h push d push b mvi c,safc call entry pop b pop d pop h ret ; ;; srchf - search for first occurance of afn ; ; srchf: push h push d push b mvi c,sffc call entry pop b pop d pop h ret ; ;; srchn - search for next occurance of afn ; ; srchn: push h push d push b mvi c,snfc call entry pop b pop d pop h ret ; msg1: db CR,LF,'MFT V' DB VERSION+'0' ;VERSION # DB '.',MODLEV+'0' ;MODIFICATION LEVEL DB CR,LF db 'Multi-File-Transfer for single disk,',CR,LF db 'With multiple-copy option.',CR,LF,LF,0 msg2: db 'Buffer size = ',0 msg3: db ' sectors',CR,LF,LF,0 msg4: db 'Mount INPUT disk, type RETURN (or ^C to reboot)',0 msg5: db 'Syntax error in filename',CR,LF,0 msg6: db ' - ',0 msg7: db ' not found',CR,LF,0 msg8: db 'read error - ',0 msg9: db ' sectors read',CR,LF,0 msgA: db 'Mount OUTPUT disk, type RETURN (or ^C to reboot)',0 msgB: db 'unable to create',CR,LF,0 msgC: db 'error writing file',CR,LF,0 msgD: db 'unable to close',CR,LF,0 msgE: db ' sectors written',CR,LF,0 MSGF: db CR,LF,'Completed. ' db 'Type RETURN for another copy, OR...',0 MSGG: db CR,LF,'type ^C to reboot.',CR,LF,0 MSGH: db CR,LF,'++Memory buffer exceeded, cannot ',CR,LF db 'make duplicate copies this time;',CR,LF DB 'last ouput file is defective++',CR,LF,LF,0 MSGJ DB CR,LF,'++PROGRAM ABORTED++',CR,LF,0 MSGK DB CR,LF,'No file name specified',CR,LF,0 ; ; zeros: db 0,0,0,0 ; org ($+15)/16*16 ; fnt: ds 16*64+1 ; stack: ds 64 space: ds 2 ;available space msize: ds 2 ;memory size cbuf: ds 80 ;command buffer cbufp: ds 2 ;command buffer pointer fsize: ds 2 ;file size in sectors xsize: ds 2 ;file size for printout ifntp: ds 2 ;input fnt pointer ofntp: ds 2 ;output fnt pointer mbufp: ds 2 ;memory buffer pointer ifcb: ds 33 ;input fcb ofcb: ds 33 ;output fcb xfcb: ds 33 ;temporary fcb ibflg: ds 1 ;input break flag obflg: ds 1 ;output break flag NDFLG: DS 1 ;NO DUPLICATE ALLOWED FLAG ; mbuf equ $ ; end mft