Oakland CPM Archive

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

/ Oakland CPM Archive / oakcpm.iso / sigm / sigmv009.ark / MDIR8-17.ASM < prev next >

Wrap

Assembly Source File | 1984-04-29 | 9.7 KB | 464 lines

; MDIR.ASM ; revised 8/17/80 ; ; CP/M-2 MASTER DISK DIRECTORY PROGRAM ; by Jeff Hammersley, MD. ; ; PRINTS A COMPLETE DISK DIRECTORY INCLUDING ALL USERS, ; SORTED ALPHABETICALLY AND PRINTED 4 WIDE. ; ; Based on 'FMAP' as originally written by Ward Christensen ; and its subsequent evolution to 'SDIR' by Keith Petersen. ; ;---------------------------------------------------------------; ; ; ; Commands: ; ; ; ; MDIR returns all files on the default disk under any user. ; ; ; ; Note: optional drive name may be specified. ; ; ; ; ; ; MDIR FILENAME.FILETYPE searches for all files that match ; ; in all user areas. ; ; ; ; MDIR S???.* returns all 4 character files with any extention ; ; in any user areas. ; ; ; ;_______________________________________________________________; ; ;07/02/80 FIXED TO ALLOW MORE THAN 256 NAMES IN DIRECTORY, ; PRINT DRIVE NAME, AND ALLOW SPECIFYING DRIVE. ; BY KEITH PETERSEN, W8SDZ. ; ;07/30/80 FIXED TO ELIMINATE CRASH WHEN NO NAMES ARE IN ; DIRECTORY. REPLACED DECIMAL OUTPUT ROUTINE WITH ; SIMPLER ONE WHICH IS SMALLER AND ALLOWS USE OF ; ONE LESS LEADING SPACE SO DISPLAY CAN BE PRINTED ; ON A 72-CHARACTER PRINTER. (KBP) ; ;08/17/80 CORRECTED MISSING INR A IN SEARCH FIRST ROUTINE, ; WHICH CAUSED DUPLICATE LISTING OF THIRD DIRECTORY ; ENTRY. (KBP) ; BASE SET 0 ; ALTCPM EQU 0 ;PUT 1 HERE FOR H8 OR TRS-80 CP/M ; IF ALTCPM BASE SET 4200H ENDIF ; NAMES EQU 256 ;MAX NUMBER OF NAMES IN DIRECTORY ; FCB EQU BASE+5CH ;SYSTEM FCB NPL EQU 4 ;NUMBER OF NAMES PER LINE CR EQU 0DH ;CARRIAGE RETURN LF EQU 0AH ;LINE FEED DELIM EQU ':' ;FENCE (DELIMITER) CHARACTER ; ORG BASE+100H ; JMP START ;JUMP AROUND I.D. DB 'MDIR.COM 8/17/80 ' ; ;SAVE THE STACK START LXI H,0 DAD SP ;H=STACK SHLD STACK ;SAVE IT LXI SP,STACK ;GET NEW STACK LDA FCB ORA A ;ANY DRIVE SPECIFIED? JZ FSPEC2 DCR A ;CORRECT DISK NUMBER FOR CP/M PUSH PSW ;SAVE REQUESTED DISK NUMBER MVI C,CURDSK ;FIND OUT WHERE WE'RE LOGGED CALL BDOS STA CDSK ;SAVE IT FOR LATER POP PSW ;GET REQUESTED DISK NR. MOV E,A ;TO E FOR CP/M MVI C,SELDSK ;SELECT DISK REQUESTED CALL BDOS ; FSPEC2 MVI C,CURDSK ;FIND OUT WHERE WE'RE LOGGED CALL BDOS ADI 'A' ;MAKE PRINTABLE STA DRNAME ;PRINT HEADER CALL FSPEC3 DB CR,LF DB '.. MASTER DIRECTORY - DRIVE ' DRNAME DB 'X:' DB CR,LF,CR,LF,'$' ; FSPEC3 POP D MVI C,PRINT CALL BDOS LXI H,FCB+1 MOV A,M ;GET 1ST CHAR. OF NAME REQUEST STA SAVFCB ;SAVE FOR LATER ; ;MAKE DR FIELD OF FCB '?' TO FORCE RETURN OF ALL USER ENTRIES DCX H ;POINT TO DR FIELD MVI M,'?' ;STORE '?' IN FCB ; ;RETURN ALL DIRECTORY ENTRIES MVI C,FSRCHF ;GET 'SEARCH FIRST' FNC LXI D,FCB CALL BDOS ;READ FIRST INR A ;COMPENSATE FOR LATER DCR JMP SOME ;GOT SOME (BECAUSE OF ? IN DR FIELD) ; ;READ MORE DIRECTORY ENTRIES MOREDIR MVI C,FSRCHN ;SEARCH NEXT LXI D,FCB CALL BDOS ;READ DIR ENTRY INR A ;CHECK FOR END (0FFH) JZ SPRINT ;NO MORE - SORT & PRINT ;POINT TO DIRECTORY ENTRY SOME DCR A ;UNDO PREV 'INR A' ANI 3 ;MAKE MODULUS 4 ADD A ;MULTIPLY... ADD A ;..BY 32 BECAUSE ADD A ;..EACH DIRECTORY ADD A ;..ENTRY IS 32 ADD A ;..BYTES LONG LXI H,BASE+80H ;POINT TO BUFFER ADD L ;POINT TO ENTRY MOV L,A ;SAVE (CAN'T CARRY TO H) ;MOVE ENTRY TO TABLE MOV A,M ;GET DR FIELD CPI 0E5H ;IS IT AN ERASED FILE ? JZ MOREDIR ;YES, IGNORE AND GET ANOTHER MOV D,H ;ENTRY TO DE MOV E,L MVI A,12 ;GET OFFSET TO EXTENT BYTE ADD L ;ADD TO GET CORRECT POINTER MOV L,A MOV A,M ;GET EXTENT BYTE ORA A ;IS EXTENT OTHER THAN ZERO ? JNZ MOREDIR ;IGNORE ALL EXTENTS BEYOND THE FIRST LHLD NEXTT ;NEXT TABLE ENTRY TO HL MVI B,12 ;ENTRY LENGTH ; TMOVE LDAX D ;GET ENTRY CHAR ANI 7FH ;REMOVE ATTRIBUTES MOV M,A ;STORE IN TABLE INX D INX H DCR B ;MORE? JNZ TMOVE SHLD NEXTT ;SAVE UPDATED TABLE ADDR LHLD COUNT ;GET PREV COUNT INX H ;ADD ONE SHLD COUNT ;RESAVE COUNT JMP MOREDIR ; ;SORT AND PRINT SPRINT LHLD COUNT ;GET COUNT MOV A,H ORA L ;CHECK FOR ZERO COUNT JZ NFEXIT ;NOTHING IN DIRECTORY, EXIT SHLD OCOUNT ;SAVE FOR ORDER TABLE COUNT SHLD SCOUNT ;SAVE FOR SORT COUNT LXI H,ORDER LXI D,TABLE LXI B,12 ;ENTRY LENGTH ; BLDORD MOV M,E ;SAVE LO ORD ADDR INX H MOV M,D ;SAVE HI ORD ADDR INX H XCHG ;TABLE ADDR TO HL DAD B ;POINT TO NEXT ENTRY XCHG ;NEXT ENTRY TO DE PUSH H LHLD OCOUNT ;GET COUNT DCX H ;ONE LESS SHLD OCOUNT ;SAVE NEW COUNT MOV A,L ORA H ;MORE? POP H JNZ BLDORD ;..YES LHLD COUNT ;GET COUNT DCX H MOV A,L ORA H ;ONLY 1 ENTRY? JZ DONE ;..YES, SO SKIP SORT ; SORT XRA A ;GET A ZERO STA SWITCH ;SHOW NONE SWITCHED LHLD SCOUNT ;GET COUNT DCX H ;USE 1 LESS SHLD TEMP ;SAVE # TO COMPARE SHLD SCOUNT ;SAVE HIGHEST ENTRY MOV A,L ORA H JZ DONE ;EXIT IF NO MORE LXI H,ORDER ;POINT TO ORDER TABLE ; SORTLP CALL COMPR ;COMPARE 2 ENTRIES CM SWAP ;SWAP IF NOT IN ORDER INX H ;BUMP ORDER INX H ;..TABLE POINTER PUSH H LHLD TEMP ;GET COUNT DCX H ;ONE LESS SHLD TEMP ;SAVE COUNT MOV A,L ORA H ;DONE? POP H JNZ SORTLP ;CONTINUE ;ONE PASS OF SORT DONE LDA SWITCH ;ANY SWAPS DONE? ORA A JNZ SORT ; ;SORT IS ALL DONE - PRINT ENTRIES DONE LXI H,ORDER SHLD NEXTT ; ;PRINT AN ENTRY MVI C,NPL ;NR. OF NAMES PER LINE ; ENTRY: PUSH B MVI C,CONST ;CK STATUS OF KBD CALL BDOS ;ANY KEY PRESSED? POP B ORA A JNZ ABORT ;YES, ABORT LHLD NEXTT ;GET ORDER TABLE POINTER MOV E,M ;GET LO ADDR INX H MOV D,M ;GET HI ADDR INX H SHLD NEXTT ;SAVE UPDATED TABLE POINTER XCHG ;TABLE ENTRY TO HL LDA SAVFCB ;GET SAVED 1ST CHAR. OF FCB CPI ' ' ;WAS NAME SPECIFIED? JNZ MATCH ;YES, GO SEE IF PRESENT ;PRINT USER # PTONE MOV A,M ;GET USER NUMBER CPI 32 ;IS IT VALID ? (IE.< 32) JNC NULL ; NO, IGNORE IT ORA A ;IS IT USER 0 ? JNZ PTONE2 ;NO, SKIP NEXT ROUTINE CALL SPACE2 ;USER 0, FILL WITH SPACES JMP PTONE3 ;SKIP DECOUT PRINT ; PTONE2 PUSH H MVI H,0 MOV L,A ;NUMBER TO L FOR DECOUT CPI 10 ;LESS THAN 10? CC SPACE ;YES, ADD ONE SPACE CALL DECOUT ;PRINT USER NUMBER POP H ; PTONE3 CALL SPACE ;MAKE IT LOOK NICE INX H ;POINT TO NAME MVI B,8 ;FILE NAME LENGTH CALL TYPEIT ;TYPE FILENAME CALL PERIOD ;PERIOD AFTER FN MVI B,3 ;GET THE FILETYPE CALL TYPEIT DCR C ;ONE LESS ON THIS LINE PUSH PSW CNZ FENCE ;NO CR-LF NEEDED, DO FENCE POP PSW CZ CRLF ;CR-LF NEEDED ;SEE IF MORE ENTRIES NULL PUSH H LHLD COUNT DCX H SHLD COUNT MOV A,L ORA H POP H JNZ ENTRY ;YES, MORE JMP EXIT ; MATCH PUSH D ;SAVE DE PUSH H ;SAVE HL LXI D,FCB ;GET FCB REQUEST INX H ;MOVE TO FN.FT INX D ; MVI B,11 ;GET NUMBER OF CHARACTERS TO COMPARE ; MAT1 LDAX D ;GET CHARACTER CPI '*' ;IS FILENAME OR FILETYPE AMBIGUOUS ? JZ WHCH ; YES, DETERMINE WHICH ONE CPI '?' ;IS IT A AMBIGUOUS CHARACTER ? JZ AMBC ; YES CMP M ;COMPARE TO MEMORY JNZ NOMATCH ;MATCH FAILURE ; AMBC INX D INX H ;GET NEW CHARACTERS DCR B ;ARE WE DONE ? JNZ MAT1 ;NO, COMPARE NEXT ; FTYP POP H POP D ;RESTORE REGISTERS JMP PTONE ;GO PRINT ONE ; WHCH MOV A,B ;GET B CPI 3 ;IS IT STILL THE FILENAME ? JC FTYP ; NO, IT IS ANY TYPE SO WE ARE DONE. MVI B,3 ;YES, LOAD UP TO FILETYPE JMP MAT1 ;RETURN FOR MORE ; NOMATCH POP H POP D ;RESTORE REGISTERS JMP NULL ;GET NEW FILENAME TO TRY ; PERIOD MVI A,'.' JMP TYPE ; FENCE CALL SPACE2 MVI A,DELIM ;FENCE CHARACTER JMP TYPE ; SPACE3 CALL SPACE ; SPACE2 CALL SPACE ; SPACE MVI A,' ' ; ;TYPE CHAR IN A TYPE PUSH B PUSH D PUSH H MOV E,A MVI C,WRCHR CALL BDOS POP H POP D POP B RET ; TYPEIT MOV A,M CALL TYPE INX H DCR B JNZ TYPEIT RET ; CRLF MVI A,CR ;CARRIAGE RETURN CALL TYPE MVI A,LF ;LINE FEED CALL TYPE MVI C,NPL ;NUMBER OF NAMES PER LINE RET ; ;DECIMAL OUTPUT ROUTINE ; DECOUT: PUSH B PUSH D PUSH H LXI B,-10 LXI D,-1 ; DECOU2: DAD B INX D JC DECOU2 LXI B,10 DAD B XCHG MOV A,H ORA L CNZ DECOUT MOV A,E ADI '0' CALL TYPE POP H POP D POP B RET ; ;COMPARE ROUTINE FOR SORT COMPR PUSH H ;SAVE TABLE ADDR MOV E,M ;LOAD LO INX H MOV D,M ;LOAD HI INX H MOV C,M INX H MOV B,M ;BC, DE NOW POINT TO ENTRIES TO BE COMPARED XCHG CMPLP LDAX B CMP M INX H INX B JZ CMPLP POP H RET ;COND CODE TELLS ALL ; ;SWAP ENTRIES IN THE ORDER TABLE SWAP MVI A,1 STA SWITCH ;SHOW A SWAP WAS MADE MOV C,M INX H PUSH H ;SAVE TABLE ADDR+1 MOV B,M INX H MOV E,M MOV M,C INX H MOV D,M MOV M,B POP H MOV M,D DCX H ;BACK POINTER TO CORRECT LOC'N MOV M,E RET ; NFEXIT CALL ERXIT DB '++NO FILES ON THIS DISK',CR,LF,'$' ; ;ERROR EXIT ERXIT POP D ;GET MSG MVI C,PRINT JMP CALLB ;PRINT MSG, EXIT ; ;ABORT - READ CHAR ENTERED ABORT MVI C,RDCHR ;DELETE THE CHAR CALLB CALL BDOS ; ;FALL INTO EXIT ;EXIT - ALL DONE, RESTORE DISK LOG IN AND STACK EXIT LDA CDSK ;GET ORIGINAL DISK NR. MOV E,A ;TO E FOR CP/M MVI C,SELDSK ;RESTORE LOG-IN TO IT CALL BDOS LHLD STACK ;GET OLD STACK SPHL ;MOVE TO STACK RET ;..AND RETURN ; NEXTT DW TABLE ;NEXT TABLE ENTRY COUNT DW 0 ;ENTRY COUNT SWITCH DB 0 ;SWAP SWITCH FOR SORT SAVFCB DS 1 ;SAVED 1ST CHAR. OF FCB CDSK DS 1 ;CURRENTLY LOGGED DISK NUMBER OCOUNT DS 2 ;# NAMES TO PUT IN ORDER TABLE SCOUNT DS 2 ;# TO SORT TEMP DS 2 ;SAVE DIR ENTRY ORDER DS NAMES*2 ;ORDER TABLE (TWO BYTES PER NAME) DS 60 ;STACK AREA STACK DS 2 ;SAVE OLD STACK HERE TABLE EQU $ ;READ ENTRIES IN HERE ; ; BDOS EQUATES ; RDCHR EQU 1 ;READ CHAR FROM CONSOLE WRCHR EQU 2 ;WRITE CHR TO CONSOLE PRINT EQU 9 ;PRINT CONSOLE BUFF CONST EQU 11 ;CHECK CONS STAT SELDSK EQU 14 ;SELECT DISK DRIVE FSRCHF EQU 17 ; " " FSRCHN EQU 18 ; " " CURDSK EQU 25 ;CHECK CURRENT DISK 0=A: 1=B:, ETC. BDOS EQU BASE+5 ; END