Mercurial > hg > Members > kono > nitros9-code
view level1/cmds/pd.asm @ 2798:b70d93f8d7ce lwtools-port
Updated coco1/modules/makefile and coco3/modules/makefile to help resolve issues with i(x) and s(x) descriptors.
Updated level1/coco1/modules/makefile & level2/coco3/modules/makefile
so that correct values would be sent to assembler when
building superdesc.asm for s(x).dd and i(x).dd descriptors.
| author | drencor-xeen |
|---|---|
| date | Mon, 28 Jan 2013 16:13:05 -0600 |
| parents | 1b7bc08e2e25 |
| children |
line wrap: on
line source
******************************************************************** * p[wx]d - Print work/execution directory * * $Id$ * * Edt/Rev YYYY/MM/DD Modified by * Comment * ------------------------------------------------------------------ * 1 ????/??/?? * From Tandy OS-9 Level One VR 02.00.00. NAM p[wx]d TTL Print work/execution directory * Disassembled 98/09/10 23:50:10 by Disasm v1.6 (C) 1988 by RML IFP1 USE defsfile ENDC tylg SET Prgrm+Objct atrv SET ReEnt+rev rev SET $00 edition SET 1 MOD eom,name,tylg,atrv,start,size ORG 0 fildes RMB 1 bufptr RMB 2 dotdotfd RMB 3 LSN of .. dotfd RMB 3 LSN of . ddcopy RMB 5 dentry RMB 160 buffer RMB 1 sttbuf RMB 282 size EQU . IFNE PXD name FCS /pxd/ ELSE IFNE PWD name FCS /pwd/ ENDC ENDC FCB edition IFNE PXD badnam FCC "pxd" ELSE IFNE PWD badnam FCC "pwd" ENDC ENDC FCC ": bad name in path" FCB C$CR dotdot FCC "." dot FCC "." cr FCB C$CR rdmsg FCC "read error" FCB C$CR start leax buffer,u point X to buffer lda #C$CR get CR sta ,x store at start of buffer stx <bufptr store buffer pointer leax dot,pcr point to '.' bsr open open directory sta <fildes save path lbsr rdtwo read '.' and '..' entries ldd <dotdotfd get 24 bit LSN of .. std <ddcopy lda <dotdotfd+2 sta <ddcopy+2 and save copy pdloop * Inlined the atroot routine - BGP 03/09/06 leax dotdotfd,u point X at .. entry leay dotfd,u point Y at . entry bsr attop check if we're at the top beq there branch if so leax dotdot,pcr else point to '..' * Inlined the chdir routine - BGP 03/09/06 IFNE PXD lda #DIR.+EXEC.+READ. ELSE IFNE PWD lda #DIR.+READ. ENDC ENDC os9 I$ChgDir lda <fildes get path to previous dir os9 I$Close close it bcs exit branch if error leax dot,pcr point X to new current dir bsr open open it bsr rdtwo read . and .. entires of this dir bsr findmtch search for match bsr prsent ldd <dotdotfd std <ddcopy lda <dotdotfd+2 sta <ddcopy+2 bra pdloop there * Inlined the getdevnm routine - BGP 03/09/06 lda <fildes ldb #SS.DevNm leax sttbuf,u os9 I$GetStt bsr prsnam ldx <bufptr point to buffer ldy #$0081 get bytes to write lda #$01 to stdout os9 I$WritLn write lda <fildes get path os9 I$Close close clrb exit bra exit1 IFNE PXD open lda #DIR.+EXEC.+READ. ELSE IFNE PWD open lda #DIR.+READ. ENDC ENDC os9 I$Open rts * Read directory entry readent lda <fildes leax dentry,u ldy #DIR.SZ os9 I$Read rts findmtch lda <fildes get path to current dir bsr readent read entry bcs cantread branch if error leax dentry,u point to entry buffer leax <DIR.FD,x point X to FD LSN leay ddcopy,u point Y to copy of LSN bsr attop compare the two bne FindMtch keep reading until we find match rts * Compare 3 bytes at X and Y attop ldd ,x++ cmpd ,y++ bne L00C5 lda ,x cmpa ,y L00C5 rts rdtwo bsr readent * read "." from directory ldd <dentry+DIR.FD std <dotfd lda <dentry+DIR.FD+2 sta <dotfd+2 bsr readent * read ".." from directory ldd <dentry+DIR.FD std <dotdotfd lda <dentry+DIR.FD+2 sta <dotdotfd+2 rts * Get name from directory entry prsent leax dentry,u prsnam os9 F$PrsNam bcs IlglName ldx <bufptr prsloop lda ,-y anda #$7F mask hi bit sta ,-x save decb bne prsloop lda #PDELIM sta ,-x stx <bufptr rts IlglName leax badnam,pcr bra wrerr cantread leax rdmsg,pcr wrerr lda #$02 os9 I$WritLn exit1 os9 F$Exit EMOD eom EQU * END