A2osX/ProDOS.FX/ProDOS.S.SEL1.txt

NEW
  AUTO 3,1
*--------------------------------------
* object code = sel_1
* Bird's Better Bye at org = dispadr
*--------------------------------------
SEL1.START		cld
				bit RROMBNK2			read ROM

				stz softev
				lda #$10				set reset vector to 'dispadr'
				sta softev+1
				jsr setpwrc				create power-up byte

				lda #$A0
				jsr $C300			 	initialize 80 column text card

* set up memory bitmap in global page

				ldx #0
				jsr GP.TOOLBOX			reset MEMTABL

				lda #$02
				sta smparms				init set mark parms pcount.
*--------------------------------------
* drive selector
*--------------------------------------
				ldx DEVCNT				get device count and
				
.1				lda DEVLST,x
				and #$F0
				cmp DEVNUM
				beq SEL1.VolName
				
				dex
				bra .1

SEL1.NextVol	ldx lstpntr				get device list pointer.
				bne .1

				ldx DEVCNT				get device count.
				inx
				
.1				dex
				lda DEVLST,x			get unit number from list.

SEL1.VolName	stx lstpntr
				sta ol_unit				store unit number for online.
				jsr MLI
				.DA #MLIONLINE
				.DA ol_parms
				bcs SEL1.NextVol	  	error check.

				stz dlevel			 	haven't read root directory yet.
				lda pbuf+1				load description byte.
				and #$0F			 	mask for name length.
				beq SEL1.NextVol	  	if 0, then try next unit.

				adc #$02			 	add 2 to length.
				tax		 				name length in x.

vnam1			stx pbuf				save the name length
				lda #$2F			 	'/'
				sta pbuf+1			 	slash before and
				sta pbuf,x			 	after name.
				stz pbuf+1,x			null after complete name.

* open and read directory

				jsr MLI
			   .DA #MLIOPEN
			   .DA op_parms
				bcc L5D7F				good open.

				lda dlevel			 	trying to open root directory ?
				beq SEL1.NextVol	  	yes, just move to next volume.

				jsr bell1			  	no, generate bell tone
				jsr popdir				and stay at same level.
				stx pbuf
				jmp keyloop

L5D7F  			inc dlevel
				stz filecount			zero file count.
				lda op_refn				get file reference number
				sta rd_refn				store in read
				sta sm_refn				and setmark parm lists.
				lda #$2B			 	set read parm list for
				sta rd_reqlen			directory header length.
				stz rd_reqlen+1
				jsr SEL1.ReadEntry		read directory
				bcs L5DB3

				ldx #$03

L5D9A  			lda sysentry+$23,x		copy directory info
				sta entlen,x			to zero page.
				dex
				bpl L5D9A

				sta rd_reqlen			put entry length in read parm list.
				lda #$01			 	set block file counter to 1.
				sta blkfl
				stz fpos_mid			zero out msb's of file position
				stz fpos_hi				in setmark parm list.
				lda filecnt				any files in directory ?
				ora filecnt+1
				bne L5DB5			  	if so, continue

L5DB3  			bra L5E29			  	else go close directory file.

L5DB5  			bit filecnt+1			check msb of file count.
				bmi L5DB3			  	if set then done.

L5DB9  			lda fpos_mid			get mid byte of setmark file position.
				and #$FE			 	reset lsb
				sta fpos_mid			and save.
				ldy blkfl			  	block file counter
				lda #$00
				cpy entblk			 	have we read all entries in this block ?
				bcc L5DCE				if not, continue.

				tay		 				if so, zero y-reg and
				sty blkfl			  	reset block counter / flag
				inc fpos_mid

* set up setmark parameters for next file to be read.
* if transfer to second sector, handle it.

L5DCC  			inc fpos_mid

L5DCE  			dey						decrement file block counter
				clc
				bmi L5DD8

				adc entlen			 	add entry length to acc.
				bcc L5DCE			  	determine if we flopped into 2nd half of
				bcs L5DCC				block, if so inc mid byte position.

L5DD8  			adc #$04				add 4 and put in
				sta fpos_lo				low byte of setmark.
				jsr MLI					call mli
				.DA #MLISETMARK
				.DA #smparms			parameters address = $0060
				.HS 00
				bcs L5DB3				error

				jsr SEL1.ReadEntry
				bcs L5DB3			  	error.

				inc blkfl			  	increase count of files read.
				lda sysentry			file type/length.
				and #$F0			 	mask off high nibble.
				beq L5DB9			  	deleted file, try next one.

				dec filecnt				decrement low file count.
				bne L5DF8

				dec filecnt+1			and high if necessary.

L5DF8  			ror sysentry+$1E		check access bit.
				bcc L5DB5			  	if no read, try next file.

				lda sysentry+$10		get file type.
				cmp #$0F			 	directory file ?
				beq L5E08			  	then continue.

				cmp #$FF			 	system file ?
				bne L5DB5			  	no, read next file.

L5E08  			ldx filecount			get valid files read.
				cpx #$80			 	if greater than size of filename buffer
				bcs L5E29			  	then close directory

				sta filetyps,x			else store filetype in zero page
				jsr namecalc			and go set up storage area.
				ldy #$0F

L5E15  			lda sysentry,y			get byte of filename
				sta (fnstore),y			store in directed area
				dey
				bpl L5E15

				iny		 				y = 0
				and #$0F			 	mask off low nibble (name length)
				sta (fnstore),y			restore in name buffer
				inc filecount			increment valid file counter
				bne L5DB5			  	get next file (branch always)

L5E26  			jmp SEL1.NextVol  		error. try next unit.

L5E29  			jsr MLI					close directory file
			   .DA #MLICLOSE
			   .DA cl_parms
				bcs L5E26				error.

				jsr settxt			 	use full screen for windows
				jsr home
				lda #$17			 	cursor at bottom of screen.
				jsr TABV				set vertical position.
				ldy #$00
				lda #$14			 	horizontal position.
				jsr sethorz				print message.
				jsr homecurs			cursor to upper/left.

				ldx #$00

L5E48  			lda pbuf+1,x
				beq showfiles

				jsr output
				inx
				bne L5E48

showfiles 		stz	valcnt
				stz topname				init top filename index.
				lda filecount			# of valid files.
				beq keyloop			  	if no files.

				cmp #$15			 	more than what will fit on screen ?
				bcc L5E61			  	no.

				lda #$14			 	limit to 20 files on the screen.

L5E61  			sta gp_cnt
				lda #$02				set window dimensions
				sta wndtop
				sta wndlft
				lda #$16
				sta wndwdth
				sta wndbot

L5E6F  			jsr nameprnt			output filename to screen
				inc valcnt
				dec gp_cnt			 	file counter.
				bne L5E6F			  	continue printing names.

				stz valcnt
				beq L5EAA			  	if last file, it needs to be inverse.

uparrow			jsr	nameprnt			print old name in normal.
				ldx valcnt			 	get old name number.
				beq L5EAA			 	if already at the top name

				dec valcnt			 	else fix index.
				lda cv			   		current cursor line.
				cmp #$02			 	at top line of window ?
				bne L5EAA			  	no, move up normally.

				dec topname				fix offset index
				lda #$16			 	else sroll windows down a line.
				bne L5EA7			  	branch always.

dnarrow			jsr	nameprnt			print old name in normal.
				ldx valcnt			 	get old name number.
				inx		 				add one.
				cpx filecount
				bcs L5EAA			  	if already at last filename

				stx valcnt			 	else update index.
				lda cv			   		current cursor line.
				cmp #$15			 	at bottom line of window ?
				bne L5EAA			  	no, move cursor normally.

				inc topname				update offset index
				lda #$17			 	else scroll up a line.

L5EA7  			jsr cout
L5EAA  			jsr setinv			 	set inverse text mode.
				jsr nameprnt			output last filename.

keyloop			lda kbd			  		get keyboard input.
				bpl keyloop			  	loop until key pressed.

				sta KBDSTROBE			clear strobe.
				jsr setnorm				set normal text mode.
				ldx filecount			are any files displayed ?
				beq L5ECB			  	no, don't accept arrow keys or return.

				cmp #$8D			 	return ?
				beq L5EF4			  	then run selected file.

				cmp #$8A			 	down ?
				beq dnarrow				move down a name.

				cmp #$8B			 	up ?
				beq uparrow				move up a name.

L5ECB  			cmp #$89			 	tab ?
				beq L5EED			  	new volume.

				cmp #$9B			 	esc ?
				bne keyloop			  	no, try again else pop up a directory.

* pop a directory level

				jsr popdir
				dec dlevel
				bra L5EF1

popdir			ldx pbuf

L5EDD  			dex
				lda pbuf,x
				cmp #$2F				slash
				bne L5EDD

				cpx #$01
				bne L5EEC

				ldx pbuf
L5EEC  			rts

L5EED  			jmp SEL1.NextVol		set up new unit number.

L5EF0  			inx

L5EF1  			jmp vnam1			  	get new directory info.

* run selected file

L5EF4  			jsr MLI
			   .DA #MLISETPREFIX
			   .DA pf_parms
				bcs L5EED				error.

				ldx valcnt			 	get name number.
				jsr namecalc			set up name storage area (on return y=0)

				ldx pbuf			 	get prefix length.

L5F04  			iny		 				start at y = 1.
				lda (fnstore),y			get character of name.
				inx
				sta pbuf,x			 	store in prefix buffer.
				cpy namelen				check length of name.
				bcc L5F04			  	loop until all transferred.

				stx pbuf			 	put prefix length into buffer.
				ldy valcnt			 	get file number.
				lda	filetyps,y			get file type.
				bpl L5EF0			  	branch if directory.

				jsr settxt			 	reset to full window.
				jsr home			 	makes for no flash.
				lda #$95			 	ctrl-u
				jsr cout			 	turn off 80 columns.

				jsr MLI					open file
			   .DA #MLIOPEN
			   .DA op_parms
				bcs L5EED			  	if error.

				lda op_refn				move reference number
				sta rd_refn				for read.

*				lda #$FF			 	read the entire file.
*				sta rd_reqlen
*				sta rd_reqlen+1

				dec rd_reqlen+1			was $002B, now $FF2B

				jsr SEL1.Read		 	read selected file.
				php		 				save possible error.
				jsr MLI					close file. ignore any error from close
			   .DA #MLICLOSE
			   .DA cl_parms
				plp		 				restore status from read.
				bcs L5EED			  	if any errors.
				jmp sysentry			execute selected system file.

* output messages. on entry: acc = horizontal position,
* y = index to message teminated by 0.

sethorz			sta ch

msgout			lda dsp2msg,y
				beq L5F57

				jsr cout
				iny
				bne msgout

L5F57  			rts

* name pointer calculator for name storage area

namecalc 		stz fnstore+1			init high byte of 16-bit shift
				txa
				asl			 			shift to high nibble
				rol fnstore+1
				asl
				rol fnstore+1
				asl
				rol fnstore+1
				asl
				rol fnstore+1
				sta fnstore				low pointer
				lda /iobuf
				clc
				adc fnstore+1
				sta fnstore+1

				ldy #$00
				lda (fnstore),y			file name length
				sta namelen
				rts

* output a filename line

nameprnt 		lda #$02
				sta ch80col				horizontal position = 2.
				ldx valcnt			 	filename number
				txa
				sec
				sbc topname				calculate line # to display name
				inc
				inc
				jsr TABV				set vertical position.
				lda filetyps,x			get filetype (x is unchanged by tabv).
				bmi L5F99			  	branch if system file.

				stz ch80col				adjust cursor position.
				lda invflg				ave current inverse setting
				pha
				ldy #fldrmsg-dsp2msg
				jsr msgout			 	display the folder.
				pla		 				restore inverse setting.
				sta invflg

L5F99  			jsr outsp				output a space.
				jsr namecalc			calc name location.

L5F9F  			iny		 				y = 1 (first time).
				lda (fnstore),y			get name character.
				jsr output			 	put on screen.
				cpy namelen				end of name ?
				bcc L5F9F			  	no.

outsp			lda #$A0
				.HS 2C					BIT ABS

homecurs 		lda #$99

output			ora #$80			 	set high bit.
				jmp cout			 	output to screen.

SEL1.ReadEntry	jsr SEL1.Read
				bcs SEL1.Read.RTS

				ldy #sysentry
				lda /sysentry
				ldx #2
				jmp GP.TOOLBOX

SEL1.Read		jsr MLI					mli read call
			   .DA #MLIREAD
			   .DA rd_parms
SEL1.Read.RTS	rts
*--------------------------------------
* data area
*--------------------------------------
dsp2msg			.AS -"RETURN: Select | TAB: Chg Vol | ESC: Back"
				.HS 00

fldrmsg			.HS 0F					inverse control code
				.HS 1B			 		enable mousetext
				.AS -"XY"				folder characters
				.HS 18			  		disable mousetext
				.HS 0E			  		normal control code
				.HS 00
*--------------------------------------
op_parms 		.DA #3				  	3 parms
				.DA pbuf				pathname
				.DA op_buf				file buffer
op_refn			.HS 00					reference number

cl_parms 		.HS 01			  		1 parm
				.HS 00					reference number.

ol_parms 		.HS 02					2 parms
ol_unit			.HS 60					unit number, default = s6, d1
				.DA pbuf+1				data buffer

pf_parms 		.DA #01		  			one parm
				.DA pbuf				pathname

rd_parms 		.DA #04			  		4 parms
rd_refn			.HS 01					reference number
				.DA sysentry			data buffer
*--------------------------------------
				.LIST ON
SEL1.LEN		.EQ *-SEL1.START
				.LIST OFF
*--------------------------------------
* these last 2 parms (4 bytes) may extend past $300 length limit since
* the request count is set prior to using the parm block and the transfer
* count isn't used at all (except by prodos)
*--------------------------------------
				.DUMMY
rd_reqlen		.BS 2					requested length
				.BS 2					actual length
				.ED
*--------------------------------------
MAN
SAVE usr/src/prodos.fx/prodos.s.sel1
LOAD usr/src/prodos.fx/prodos.s
ASM