CP/M

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

/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol040 / menu-v2.asm < prev next >

Wrap

Assembly Source File | 1984-04-29 | 17.9 KB | 688 lines

; ; MENU.ASM Version 2.0 as of April 26, 1981 ; ; Original Program by: James J. Frantz, May 31, 1979 ; ; Menu Program Selection for '.BAS', '.INT' or '.COM' Files ; ; ; Modified from original by: Kelly Smith ; ; Version 2.0 contains the following modifications: ; ; (1) Made CP/M 2.X compatible; previous version would ; "clobber" the '$' string delimiter in filename and ; would display filenames and garbage memory 'ad ; nauseum'. ; ; (2) Added equates for either MBASIC or CBASIC assembly ; function, and corresponding 'heading'. ; ; Note: You must have MBASIC.COM on the currently ; logged diskette if 'mbasic$program' equate is ; true, and it will expect files of type '.BAS'. ; If 'cbasic$program' equate is true, you must ; have CRUN.COM on the currently logged ; diskette, and it will expect files of type ; '.INT'. If neither is equated to true, '.COM' ; filetypes are assumed. ; ; (3) Added command option to select drive for user ; requested MENU. (i.e., MENU B:<cr>). If corresponding ; filetype is not found for assembled MENU type (.BAS, ; .INT or .COM), MENU will display "+++ File Not Found ; +++" and return to the default drive. ; ; (4) Added "Disk Drive - X:" to heading display, where 'X' ; is the selected drive. ; ; (5) Added conditional assembly switches for 'upper' ; (uppercase only terminals), 'stdcpm' (standard CP/M), ; 'altcpm' (alternate CP/M). ; ; (6) Added conditional assembly switch for 'no$sys$files', ; to inhibit display of CP/M 2.X 'SYS' files. Handy, if ; running a Remote CP/M System and you don't want to let ; the whole world know whats 'hidden'... ; ; (7) Stripped MSB "tag bit" for files set-up for Remote ; CP/M Systems as "not for distribution". Files would ; not be sorted in proper order for display without ; this...this will also work for MP/M system ; configuration where "tag bit" must be 'Bit 6' (NOT Bit ; 7)...Bit 7 used as "tag" in MP/M environment fouls up ; the 'Control-S' start/stop video scroll function, so ; some users are switching to Bit 6 as "tag"... ; ; (8) Fixed bug when MENU is set for BASIC file (either ; MBASIC or CBASIC) and is in B: (or greater drive) and ; attempting to load the MBASIC (or CRUN) and THEN the ; '.BAS' (or '.INT') file...now looks on same diskette ; that MENU is on. ; ; (9) Added 'widecrt' equate for two CRT terminal display ; formats. Set the equate 'widecrt' to true if your CRT ; terminal can display 80 columns by 24 rows. If ; 'widecrt' is false, the default display is 64 columns ; by 16 rows. ; ; As supplied, MENU.ASM is set-up for the following system ; configuration and display format: ; ; Lowercase terminal display: upper = false ; ; 80 column by 24 row display: widecrt = true ; ; Standard CP/M: stdcpm = true ; altcpm = false ; ; Display '.COM' Menu: mbasic$program = false ; cbasic$program = false ; ; No display of 'SYS' files: no$sys$files = true ; ; ; ; A Generalized Suggestions for Using MENU ; ; If you have kids that love to play games on your system, ; this is perhaps the most 'protective' way to keep there ; "busy little hands" out of the CP/M operating ; system...Just set the little BAST..errr, pardon me...set ; your "prodigy child" up with a GAMES diskette that ; AUTOLOAD's the MENU program, and never ever again will you ; hear "Gee Dad, I tried ERA *.* and now nuthi'n works...". ; ; ; true equ -1 ; define true false equ not true; define false ; mbasic$program equ false ; true = .BAS cbasic$program equ false ; true = .INT ; ; Note: Only one may be true, and ; both false = .COM ; no$sys$files equ true ; true = no SYS display, false = SYS display ; upper equ false ; true if uppercase only terminal widecrt equ true ; true if 80 column/24 row terminal ; stdcpm equ true ; true if standard CP/M (base address 0000h) altcpm equ false ; true if alternate CP/M (base address 4200h) ; if stdcpm ; if standard CP/M... base equ 0000h ; base for standard CP/M system endif ; end if... ; if altcpm ; if alternate CP/M... base equ 4200h ; base for H8 or TRS-80 CP/M system endif ; end if... ; bdos equ base+5 ; CP/M BDOS entry address for function call tfcb equ base+5ch; transient file control block base address ; nbr$col equ 4 ; number of columns to display if widecrt ; if 80 column/24 row crt terminal... screen$size equ 24 ; terminal has 24 lines/screen display screen$hgt equ 80 ; terminal has 80 rows/screen display endif ; end if... if not widecrt ; if 64 column/16 row crt terminal... screen$size equ 16 ; terminal has 16 lines/screen display screen$hgt equ 64 ; terminal has 64 rows/screen display endif ; end if... ; ccp$len equ 3c06h-3400h ; calculate CCP length ; bel equ 007h ; (^g) bell - human attention required lf equ 00ah ; (^j) line feed cr equ 00dh ; (^m) carriage return org base+100h start: lxi sp,stack$area ; set up a stack lda tfcb ; get drive specification ora a ; was drive explicity requested? jnz drive$request ; if yes, skip interrogate disk request mvi c,25 ; 'interrogate disk' function call bdos ; find out which disk we're on... inr a ; make A: = 1 ; drive$request: ; adi 'A'-1 ; make it ASCII sta driveid ; save the ASCII drive identification sbi '@' ; make it HEX sta srch$fcb ; set selection for requested or default drive mvi c,17 ; 'search first' command ; sort$loop: ; lxi d,srch$fcb ; point file control block call bdos ; use CP/M entry point ora a ; test for -1 jm assign$menu$nbr ; print empty jz kludge ; do not set file found, if zero sta file$found ; set file found flag kludge: rrc ; this is the same as rrc ; 5 "add a's" rrc ani 60h ; mask correct bits adi 80h ; add base address (0080h) mov e,a ; put pointer in (de) mvi d,0 ; as 16 bit value lxi h,dirtable ; point start of table of ; sorted names inx d ; point past erase field ; compare$loop: ; push d ; save pointer to next ; entry from disk directory mvi c,8 ; length of compare push h ; save pointer to table ; compare1: ; ldax d ; get trial name char ani 7fh ; mask-off high bit 'cause may be ; "tagged" as 'not for distribution' for RCPM's cmp m ; match? jnz end$compare ; if not, try next entry inx h ; advance pointers inx d dcr c ; one less char to compare jnz compare1 ; keep testing ; end$compare: ; pop b ; restore table pointer jc insert$name ; directory name goes in ; front of current table ; entry if lower (cy = 1) lxi h,14 ; length of table entry dad b ; (hl) to next table entry pop d ; recover trailer name point jmp compare$loop ; loop again ; insert$name: ; if no$sys$files ; if no SYStem files to be displayed... push b ; save pointer to table entry push d ; save pointer to file name xchg lxi d,9 ; add bias for "SYS" flag character dad d mov a,m ; get character ani 80h ; mask for "SYS" flag pop d ; adjust stack, in case we take the next jump pop b ; ...or we really need the pointers jnz abort ; abort this filename, if "SYS" endif ; end if... ldax d ; get first byte of filename ani 7fh ; mask-off high bit 'cause may be ; "tagged" as 'not for distribution' for RCPM's stax d ; and save back, so proper file sort display lxi h,file$count ; count the number of files inr m ; to be displayed lhld end$of$table ; get pointer to table xchg lxi h,14 ; distance to move dad d ; (hl) point destination shld end$of$table ; save the new end of table inx h inx d ; move$up: ; dcx d dcx h ldax d ; get byte to move mov m,a ; put in new spot mov a,c ; test for done cmp e ; (bc) = (de)? jnz move$up mov a,b cmp d jnz move$up pop h ; recover pointer mvi c,8 call block$move ; insert name in table lxi h,menu$buff ; point menu number block mvi c,6 ; length of movek call block$move ; insert text in table abort: mvi c,18 ; 'search next' command jmp sort$loop ; assign$menu$nbr: ; lda file$count mov b,a ; save in (b) push psw ; and on stack mvi c,0 ; initial file number lxi h,dirtable+11 ; point first file number lxi d,13 ; offset to other numbers ; number$files: ; mov a,c ; put file number in (a) adi 1 ; increment daa ; decimal convert mov c,a ; resave in (c) rrc ; get tens digit into rrc ; proper place rrc ; rrc ani 0fh ; add mask jz use$blank ; supress leading zero by adi 10h ; add either 20h (ASCII ' ') ; use$blank: ; adi ' ' ; or 20h + 10h for numeral mov m,a ; put in text stream mov a,c ; get units portion ani 0fh ; mask off tens portion adi '0' ; convert to ASCII inx h mov m,a dad d ; repeat until all files dcr b ; are sequentially numbered jnz number$files pop psw ; get file$count from stack push psw ; and save again for later adi nbr$col-1 mvi b,255 ; (b) accumulates quotient ; so set to -1 for at least ; 1 pass thru gives 0 ; divx: ; inr b sui nbr$col ; divide (file$count+3) by ; fout to get offset1 jp divx adi nbr$col ; substracted once too much ; so add it back on lxi h,offset1 mov m,b ; insert offset1 into table inx h ; point offset2 location jnz setoffset2 ; same as offset1 if non- ; zero remainder dcr b ; else offset2 = offset1-1 ; setoffset2: ; mov m,b ; put offset2 in table inx h ; point offset for col 3 dcr a ; test for remainder of 1 jnz setoffset3 ; if remainder <> 1, use ; offset3 = offset2-1 dcr b ; else offset3 = offset2-1y ; setoffset3: ; mov m,b ; else offset to column 4 ; reprint: ; pop psw ; recover file count ; reprint1: ; push psw ; save again for later use sta file$count ; save for counting mvi a,screen$hgt ; set for video display size sta line$count lda file$found ; get file$found flag ora a ; and set psw flags jz exit ; if zero, no files of this type found lxi d,heading mvi c,9 ; buffer printer command call bdos ; CP/M prints heading lxi h,dir$table-14 ; point dummy 0th entry ; print$line: ; push h ; save base address lxi d,offset0 ; point offset table mvi a,nbr$col ; 4 column per line ; print$name: ; sta column$cnt ; save count of columns push h ; save current name pointer push d ; save offset table pointer if widecrt ; if 80 column/24 row crt terminal... lxi d,doubl$space ; print 2 spaces mvi c,9 ; 'print buffer' command call bdos ; use CP/M endif ; end if... lxi d,doubl$space ; print 2 spaces mvi c,9 ; 'print buffer' command call bdos ; use CP/M pop d ; get offset table pointer pop h ; get name pointer ldax d ; get offset value lxi b,14 ; each name is 14 long ; mult$14: ; dad b ; add 14 for each offset dcr a ; until offset = 0 jnz mult$14 push h ; save new name pointer push d ; save offset pointer xchg ; pointer name to print w/(de) mvi c,9 ; print buffer call bdos ; print file name ; and it's menu number ; test$finish: ; lxi h,file$count ; see if done printing dcr m ; by testing count of files pop d ; get offset pointer pop h ; get pointer to last name jz finish ; no more to print inx d ; advance offset pointer lda column$cnt dcr a ; see if column left = 0 jnz print$name ; print another save line call crlf pop h ; get base of previous line lxi d,14 ; add offset dad d jmp print$line ; finish: ; pop h ; unjunk stack ; lf$loop: ; call crlf lxi d,prompt ; point instruction message mvi c,9 call bdos lxi d,input$buff mvi a,10 ; 10 characters maximum stax d mvi c,10 ; 'read buffer' command call bdos lxi h,input$buff+1 ; point to character counter mov a,m ; get it and see if >2 cpi 3 jnc reprint ; reprint the menu mov c,a ; count of digits to (c) mvi b,0 ; get$menu$nbr: ; inx h ; point ASCII digit mov a,m ; get it call ascii$convert ; convert to binary jc reprint ; re-display on error dcr c jnz get$menu$nbr pop psw ; recover file counter cmp b ; file count - request number jc reprint1 ; redisplay menu if illegal lxi d,14 ; increment between names lxi h,dir$table-14 ; point dummy 0th entry ; find$name: ; dad d ; add offset b times dcr b jnz find$name push d ; found filename, tidy-up screen... push h lxi d,crlfmsg mvi c,9 call bdos pop h pop d xchg ; save pointer to file name lhld base+6 ; get bdos entry point lxi b,-ccp$len ; offset to start of CP/M dad b push h ; save CP/M entry point ; on stack for branch lxi b,8 ; offset to command buffer "autoload" dad b ; (hl) points place to put name of ; .BAS, .INT, or .COM file to be ; executed push d ; save pointer to file name xchg ; (de) points to command buffer lxi h,128 ; offset to end of command buffer ; where pointer is stored dad d ; (hl) points to storage place mov m,e ; update buffer pointer to inx h ; the start of the command mov m,d ; buffer so CP/M will read lda driveid ; get selected drive identification stax d ; store at start of command buffer inx d ; bump for ':' delimeter position mvi a,':' ; make delimeter stax d ; and store it... inx d ; bump for destination pointer to filename if mbasic$program or cbasic$program ; if BASIC program... lxi h,command$name ; point command name mvi c,len$cmd$name ; length of command name call block$move lda driveid ; get selected drive identification stax d ; store at start of command buffer inx d ; bump for ':' delimeter position mvi a,':' ; make delimeter stax d ; and store it... inx d ; bump for destination pointer to filename endif ; end if... pop h ; point selected file name mvi c,8 ; length of file name call block$move if mbasic$program or cbasic$program ; if BASIC program... lxi h, spec$type mvi c,4 call block$move endif ; end if... xra a ; needs a 0 at end stax d ; of command line ret ; block$move: ; mov a,m stax d inx d inx h dcr c jnz block$move ret ; ascii$convert: ; sui '0' ; subtract ASCII bias cpi 9+1 ; be sure it's numeric cmc rc mov d,a mov a,b rlc rlc rlc add b rc add b rc add d mov b,a ret ; crlf: ; lxi d,crlfmsg mvi c,9 call bdos lxi h,line$count dcr m ret ; exit: lxi d,nofile ; indicate no files present mvi c,9 call bdos jmp base ; and exit to CP/M via "warm boot" ; if upper ; if uppercase only terminal... nofile: db cr,lf,lf,'+++ FILE NOT FOUND! +++',cr,lf,'$' endif if not upper ; if not uppercase only terminal... nofile: db cr,lf,lf,'+++ File Not Found! +++',cr,lf,'$' endif crlfmsg: db cr,lf,'$' ; heading: db cr,lf,lf if widecrt and mbasic$program db ' ' endif if not widecrt and mbasic$program db ' ' endif if upper and mbasic$program db 'MICROSOFT COMPATIBLE BASIC FILE MENU' endif if not upper and mbasic$program db 'Microsoft Compatible BASIC File Menu' endif if widecrt and cbasic$program db ' ' endif if not widecrt and cbasic$program db ' ' endif if upper and cbasic$program db 'COMPILER SYSTEMS COMPATIBLE BASIC FILE MENU' endif if not upper and cbasic$program db 'Compiler Systems Compatible BASIC File Menu' endif if widecrt and not mbasic$program and not cbasic$program db ' ' endif if not widecrt and not mbasic$program and not cbasic$program db ' ' endif if upper and not mbasic$program and not cbasic$program db 'CP/M COMMAND FILE MENU' endif if not upper and not mbasic$program and not cbasic$program db 'CP/M Command File Menu' endif db cr,lf if widecrt ; if 80 column/24 row crt terminal... db ' ' endif ; end if... if not widecrt ; if 64 column/16 row crt terminal db ' ' endif ; end if... if upper ; if uppercase only terminal... db 'DISK DRIVE - ' endif ; end if... if not upper ; if not uppercase only terminal db 'Disk Drive - ' endif ; end if... driveid:ds 1 ; current logged ASCII drive identification db ':',cr,lf,lf,'$' if upper ; if uppercase only terminal prompt: db cr,lf,bel,' ENTER MENU NUMBER, AND PRESS RETURN: $' endif ; end if... if not upper ; if not uppercase only terminal... prompt: db cr,lf,bel,' Enter menu number, and press return: $' endif ; end if... if mbasic$program ; if MBASIC program... command$name: db 'MBASIC ' ; Microsoft BASIC ; len$cmd$name equ $-command$name ; spec$type: db '.BAS' endif ; end if... if cbasic$program ; if CBASIC program... command$name: db 'CRUN ' ; Compiler Systems BASIC ; len$cmd$name equ $-command$name ; spec$type: db '.INT' endif ; end if... doubl$space: db ' $' ; menu$buff: db ' - 00$' ; offset0: db 1 ; offset1: db 0,0,0 ; end$of$table: dw dirtable ; file$count: db 0 ; column$cnt: db 4 ; line$count: db 0 ; file$found: db 0 ; file found flag if mbasic$program ; if MBASIC program... srch$fcb: db 0,'????????BAS',0,0,0,0 endif ; end if... if cbasic$program ; if CBASIC program... srch$fcb: db 0,'????????INT',0,0,0,0 endif ; end if... if not mbasic$program and not cbasic$program ; if not BASIC program... srch$fcb: db 0,'????????COM',0,0,0,0 endif ; end if... dir$table: db 255 ; stack$area equ 200*14 + 30 ; input$buff equ stack$area ; end start