Members/kono/nitros9-code: level1/cmds/dir.asm annotate

annotate level1/cmds/dir.asm @ 1809:c01130e000dc

Updated for better window size support.

author	boisy
date	Tue, 19 Apr 2005 23:58:15 +0000
parents	4604b8d90bd5
children	fc5761a685b6

rev	line source
0 6641a883d6b0 Initial revision boisy parents: diff changeset	1 ********************************************************************
6641a883d6b0 Initial revision boisy parents: diff changeset	2 * Dir - Show directory
6641a883d6b0 Initial revision boisy parents: diff changeset	3 *
6641a883d6b0 Initial revision boisy parents: diff changeset	4 * $Id$
6641a883d6b0 Initial revision boisy parents: diff changeset	5 *
326 bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	6 * This dir initially started from the dir command that came with
bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	7 * the OS-9 Level Two package, then incorporated Glenside's Y2K
bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	8 * fix.
bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	9 *
1325 84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0 boisy parents: 935 diff changeset	10 * Edt/Rev YYYY/MM/DD Modified by
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0 boisy parents: 935 diff changeset	11 * Comment
0 6641a883d6b0 Initial revision boisy parents: diff changeset	12 * ------------------------------------------------------------------
1325 84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0 boisy parents: 935 diff changeset	13 * 10 1999/05/11 Boisy G. Pitre
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0 boisy parents: 935 diff changeset	14 * Incorporated Glenside Y2K fixes.
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0 boisy parents: 935 diff changeset	15 *
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0 boisy parents: 935 diff changeset	16 * 11 2003/01/14 Boisy G. Pitre
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0 boisy parents: 935 diff changeset	17 * Made option handling more flexible, now they must be preceeded
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0 boisy parents: 935 diff changeset	18 * by a dash.
1809 c01130e000dc Updated for better window size support. boisy parents: 1791 diff changeset	19 *
c01130e000dc Updated for better window size support. boisy parents: 1791 diff changeset	20 * 11 2003/01/14 Boisy G. Pitre
c01130e000dc Updated for better window size support. boisy parents: 1791 diff changeset	21 * Made option handling more flexible, now they must be preceeded
c01130e000dc Updated for better window size support. boisy parents: 1791 diff changeset	22 * by a dash.
c01130e000dc Updated for better window size support. boisy parents: 1791 diff changeset	23 *
c01130e000dc Updated for better window size support. boisy parents: 1791 diff changeset	24 * 11r1 2005/04/19 Boisy G. Pitre
c01130e000dc Updated for better window size support. boisy parents: 1791 diff changeset	25 * Made column width code more robust.
0 6641a883d6b0 Initial revision boisy parents: diff changeset	26
6641a883d6b0 Initial revision boisy parents: diff changeset	27 nam Dir
6641a883d6b0 Initial revision boisy parents: diff changeset	28 ttl Show directory
6641a883d6b0 Initial revision boisy parents: diff changeset	29
326 bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	30 * Disassembled 99/04/11 16:36:40 by Disasm v1.6 (C) 1988 by RML
0 6641a883d6b0 Initial revision boisy parents: diff changeset	31
6641a883d6b0 Initial revision boisy parents: diff changeset	32 ifp1
6641a883d6b0 Initial revision boisy parents: diff changeset	33 use defsfile
6641a883d6b0 Initial revision boisy parents: diff changeset	34 endc
6641a883d6b0 Initial revision boisy parents: diff changeset	35
6641a883d6b0 Initial revision boisy parents: diff changeset	36 tylg set Prgrm+Objct
6641a883d6b0 Initial revision boisy parents: diff changeset	37 atrv set ReEnt+rev
1809 c01130e000dc Updated for better window size support. boisy parents: 1791 diff changeset	38 rev set $01
851 16b8c7dc0082 Made source comment improvements boisy parents: 848 diff changeset	39 edition set 11
0 6641a883d6b0 Initial revision boisy parents: diff changeset	40
6641a883d6b0 Initial revision boisy parents: diff changeset	41 mod eom,name,tylg,atrv,start,size
6641a883d6b0 Initial revision boisy parents: diff changeset	42
848 c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	43 org 0
851 16b8c7dc0082 Made source comment improvements boisy parents: 848 diff changeset	44 nextdir rmb 2
848 c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	45 dircount rmb 1
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	46 dirpath rmb 1
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	47 extended rmb 1
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	48 addmode rmb 1 additional mode
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	49 rawpath rmb 1
326 bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	50 u0006 rmb 2
0 6641a883d6b0 Initial revision boisy parents: diff changeset	51 u0008 rmb 1
6641a883d6b0 Initial revision boisy parents: diff changeset	52 u0009 rmb 1
848 c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	53 narrow rmb 1
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	54 bufptr rmb 1
326 bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	55 u000C rmb 1
848 c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	56 date rmb 3
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	57 time rmb 3
326 bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	58 u0013 rmb 29
0 6641a883d6b0 Initial revision boisy parents: diff changeset	59 u0030 rmb 1
6641a883d6b0 Initial revision boisy parents: diff changeset	60 u0031 rmb 1
6641a883d6b0 Initial revision boisy parents: diff changeset	61 u0032 rmb 1
326 bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	62 u0033 rmb 1
bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	63 u0034 rmb 2
bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	64 u0036 rmb 6
bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	65 u003C rmb 2
bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	66 u003E rmb 2
848 c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	67 linebuff rmb 530
0 6641a883d6b0 Initial revision boisy parents: diff changeset	68 size equ .
6641a883d6b0 Initial revision boisy parents: diff changeset	69
1809 c01130e000dc Updated for better window size support. boisy parents: 1791 diff changeset	70 colsize equ 16
c01130e000dc Updated for better window size support. boisy parents: 1791 diff changeset	71
0 6641a883d6b0 Initial revision boisy parents: diff changeset	72 name fcs /Dir/
6641a883d6b0 Initial revision boisy parents: diff changeset	73 fcb edition
6641a883d6b0 Initial revision boisy parents: diff changeset	74
848 c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	75 DirOf fcb C$LF
0 6641a883d6b0 Initial revision boisy parents: diff changeset	76 fcs " Directory of "
848 c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	77 Dot fcc "."
0 6641a883d6b0 Initial revision boisy parents: diff changeset	78 fcb C$CR
848 c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	79 Raw fcc "@"
0 6641a883d6b0 Initial revision boisy parents: diff changeset	80 fcb C$CR
848 c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	81 WHeader fcb C$CR,C$LF
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	82 fcc "Owner Last modified Attributes Sector Bytecount Name"
326 bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	83 fcb C$CR,C$LF
848 c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	84 fcc "----- ---------------- ---------- ------ --------- ----"
326 bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	85 fcb C$CR,C$LF
848 c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	86 WHeaderL equ *-WHeader
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	87 NHeader fcb C$CR,C$LF
326 bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	88 fcc "Modified on Owner Name"
bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	89 fcb C$CR,C$LF
0 6641a883d6b0 Initial revision boisy parents: diff changeset	90 fcc " Attr Sector Size"
326 bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	91 fcb C$CR,C$LF
0 6641a883d6b0 Initial revision boisy parents: diff changeset	92 fcc "==============================="
6641a883d6b0 Initial revision boisy parents: diff changeset	93 fcb C$CR
326 bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	94 fcb C$LF
848 c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	95 NHeaderL equ *-NHeader
0 6641a883d6b0 Initial revision boisy parents: diff changeset	96
848 c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	97 start leay <linebuff,u get ptr to line buffer
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	98 sty <bufptr and save it
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	99 clr <addmode
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	100 clr <extended
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	101 clr <narrow
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	102 clr <dircount
0 6641a883d6b0 Initial revision boisy parents: diff changeset	103 pshs y,x,b,a
1809 c01130e000dc Updated for better window size support. boisy parents: 1791 diff changeset	104 ldd #$01*256+SS.ScSiz standard output and screen size call
848 c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	105 os9 I$GetStt get it
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	106 bcc L0120 branch if gotten
1809 c01130e000dc Updated for better window size support. boisy parents: 1791 diff changeset	107 ldx #80
c01130e000dc Updated for better window size support. boisy parents: 1791 diff changeset	108 L0120 tfr x,d
c01130e000dc Updated for better window size support. boisy parents: 1791 diff changeset	109 cmpb #51
c01130e000dc Updated for better window size support. boisy parents: 1791 diff changeset	110 bgt higher
c01130e000dc Updated for better window size support. boisy parents: 1791 diff changeset	111 inc <narrow
c01130e000dc Updated for better window size support. boisy parents: 1791 diff changeset	112 lda #10
c01130e000dc Updated for better window size support. boisy parents: 1791 diff changeset	113 fcb $8C
c01130e000dc Updated for better window size support. boisy parents: 1791 diff changeset	114 higher lda #16
c01130e000dc Updated for better window size support. boisy parents: 1791 diff changeset	115 pshs a
c01130e000dc Updated for better window size support. boisy parents: 1791 diff changeset	116 subb ,s+
c01130e000dc Updated for better window size support. boisy parents: 1791 diff changeset	117 std <u0008 save new column width and last column
0 6641a883d6b0 Initial revision boisy parents: diff changeset	118 puls y,x,b,a
848 c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	119 pshs x save start of command line
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	120 lbsr GetOpts parse for options
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	121 puls x get start of command line
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	122 lbsr SkipSpcs skip any spaces
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	123 cmpa #C$CR any dir names?
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	124 bne opendir branch if so
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	125 leax >Dot,pcr else assume dot
851 16b8c7dc0082 Made source comment improvements boisy parents: 848 diff changeset	126 opendir stx <nextdir
848 c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	127 lda #DIR.+READ.
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	128 ora <addmode
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	129 pshs x,a preserve mode, dir name
0 6641a883d6b0 Initial revision boisy parents: diff changeset	130 os9 I$Open
848 c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	131 sta <dirpath
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	132 puls x,a get mode, dir name
326 bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	133 lbcs L0268
848 c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	134 os9 I$ChgDir change to dir
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	135 lbcs L0268 branch if error
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	136 pshs x X now points just past name
851 16b8c7dc0082 Made source comment improvements boisy parents: 848 diff changeset	137 leay >DirOf,pcr point to "Dir of..."
16b8c7dc0082 Made source comment improvements boisy parents: 848 diff changeset	138 lbsr PutStr put it in buffer
16b8c7dc0082 Made source comment improvements boisy parents: 848 diff changeset	139 ldx <nextdir point to directory we are processing
16b8c7dc0082 Made source comment improvements boisy parents: 848 diff changeset	140 L0161 lda ,x+ get char
16b8c7dc0082 Made source comment improvements boisy parents: 848 diff changeset	141 lbsr PutNBuf put in buffer
16b8c7dc0082 Made source comment improvements boisy parents: 848 diff changeset	142 cmpx ,s at end of char string?
16b8c7dc0082 Made source comment improvements boisy parents: 848 diff changeset	143 bcs L0161 branch if not
16b8c7dc0082 Made source comment improvements boisy parents: 848 diff changeset	144 leas $02,s else clean up stack
16b8c7dc0082 Made source comment improvements boisy parents: 848 diff changeset	145 lbsr PutSpace and put a space
16b8c7dc0082 Made source comment improvements boisy parents: 848 diff changeset	146 lbsr PutSpace and another one
16b8c7dc0082 Made source comment improvements boisy parents: 848 diff changeset	147 leax date,u point to date buffer
16b8c7dc0082 Made source comment improvements boisy parents: 848 diff changeset	148 os9 F$Time get current time
16b8c7dc0082 Made source comment improvements boisy parents: 848 diff changeset	149 leax <time,u point to time
16b8c7dc0082 Made source comment improvements boisy parents: 848 diff changeset	150 lbsr ShowDate show it
16b8c7dc0082 Made source comment improvements boisy parents: 848 diff changeset	151 lbsr CRnWrite
848 c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	152 tst <extended
326 bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	153 beq L01B3
848 c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	154 lda #READ.
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	155 ora <addmode
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	156 leax >Raw,pcr
0 6641a883d6b0 Initial revision boisy parents: diff changeset	157 os9 I$Open
326 bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	158 lbcs L0268
848 c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	159 sta <rawpath
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	160 tst <narrow
326 bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	161 bne L01A6
848 c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	162 leax >WHeader,pcr
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	163 ldy #WHeaderL
326 bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	164 bra L01AE
848 c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	165 L01A6 leax >NHeader,pcr
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	166 ldy #NHeaderL
326 bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	167 L01AE lda #$01
bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	168 os9 I$Write
848 c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	169 L01B3 lda <dirpath
0 6641a883d6b0 Initial revision boisy parents: diff changeset	170 ldx #$0000
6641a883d6b0 Initial revision boisy parents: diff changeset	171 pshs u
848 c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	172 ldu #DIR.SZ*2
0 6641a883d6b0 Initial revision boisy parents: diff changeset	173 os9 I$Seek
6641a883d6b0 Initial revision boisy parents: diff changeset	174 puls u
326 bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	175 lbra L0253
bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	176 L01C5 tst <u0013
bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	177 lbeq L0253
848 c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	178 tst <extended
326 bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	179 bne L01E8
bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	180 leay <u0013,u
851 16b8c7dc0082 Made source comment improvements boisy parents: 848 diff changeset	181 lbsr PutStr
848 c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	182 L01D5 lbsr PutSpace
326 bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	183 ldb <u000C
bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	184 subb #$40
bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	185 cmpb <u0009
bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	186 bhi L022C
bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	187 L01E0 subb <u0008
bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	188 bhi L01E0
bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	189 bne L01D5
bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	190 bra L0253
bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	191 L01E8 pshs u
bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	192 lda <u0032
0 6641a883d6b0 Initial revision boisy parents: diff changeset	193 clrb
6641a883d6b0 Initial revision boisy parents: diff changeset	194 tfr d,u
326 bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	195 ldx <u0030
848 c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	196 lda <rawpath
0 6641a883d6b0 Initial revision boisy parents: diff changeset	197 os9 I$Seek
6641a883d6b0 Initial revision boisy parents: diff changeset	198 puls u
326 bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	199 bcs L0268
bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	200 leax <u0033,u
0 6641a883d6b0 Initial revision boisy parents: diff changeset	201 ldy #$000D
6641a883d6b0 Initial revision boisy parents: diff changeset	202 os9 I$Read
326 bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	203 bcs L0268
848 c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	204 tst <narrow
326 bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	205 bne L0231
bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	206 ldd <u0034
0 6641a883d6b0 Initial revision boisy parents: diff changeset	207 clr <u0006
326 bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	208 bsr L0274
848 c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	209 lbsr PutSpace
326 bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	210 lbsr L030B
848 c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	211 lbsr PutSpace
326 bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	212 lbsr L02D3
848 c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	213 lbsr PutSpace
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	214 lbsr PutSpace
326 bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	215 bsr L026E
bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	216 bsr L0280
bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	217 leay <u0013,u
851 16b8c7dc0082 Made source comment improvements boisy parents: 848 diff changeset	218 lbsr PutStr
16b8c7dc0082 Made source comment improvements boisy parents: 848 diff changeset	219 L022C lbsr CRnWrite
326 bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	220 bra L0253
bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	221 L0231 lbsr L030B
bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	222 ldd <u0034
0 6641a883d6b0 Initial revision boisy parents: diff changeset	223 clr <u0006
326 bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	224 bsr L0274
848 c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	225 bsr PutSpace
326 bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	226 leay <u0013,u
851 16b8c7dc0082 Made source comment improvements boisy parents: 848 diff changeset	227 lbsr PutStr
16b8c7dc0082 Made source comment improvements boisy parents: 848 diff changeset	228 lbsr CRnWrite
326 bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	229 lbsr L02D3
848 c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	230 bsr PutSpace
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	231 bsr PutSpace
326 bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	232 bsr L026E
bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	233 bsr L0280
851 16b8c7dc0082 Made source comment improvements boisy parents: 848 diff changeset	234 lbsr CRnWrite
326 bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	235 L0253 leax <u0013,u
848 c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	236 ldy #DIR.SZ
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	237 lda <dirpath
0 6641a883d6b0 Initial revision boisy parents: diff changeset	238 os9 I$Read
326 bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	239 lbcc L01C5
848 c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	240 cmpb #E$EOF
326 bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	241 bne L0268
0 6641a883d6b0 Initial revision boisy parents: diff changeset	242 clrb
851 16b8c7dc0082 Made source comment improvements boisy parents: 848 diff changeset	243 L0268 lbsr CRnWrite
848 c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	244 Exit os9 F$Exit
326 bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	245 L026E lda <u0030
bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	246 bsr L0298
bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	247 ldd <u0031
bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	248 L0274 bsr L029A
0 6641a883d6b0 Initial revision boisy parents: diff changeset	249 tfr b,a
326 bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	250 bsr L028E
0 6641a883d6b0 Initial revision boisy parents: diff changeset	251 inc <u0006
326 bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	252 bsr L029C
848 c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	253 bra PutSpace
326 bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	254 L0280 ldd <u003C
bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	255 bsr L0298
0 6641a883d6b0 Initial revision boisy parents: diff changeset	256 tfr b,a
326 bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	257 bsr L029A
848 c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	258 bsr PutSpace
326 bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	259 ldd <u003E
bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	260 bra L0274
bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	261 L028E pshs a
0 6641a883d6b0 Initial revision boisy parents: diff changeset	262 lsra
6641a883d6b0 Initial revision boisy parents: diff changeset	263 lsra
6641a883d6b0 Initial revision boisy parents: diff changeset	264 lsra
6641a883d6b0 Initial revision boisy parents: diff changeset	265 lsra
326 bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	266 bsr L029E
0 6641a883d6b0 Initial revision boisy parents: diff changeset	267 puls pc,a
326 bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	268 L0298 clr <u0006
bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	269 L029A bsr L028E
bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	270 L029C anda #$0F
bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	271 L029E tsta
bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	272 beq L02A3
0 6641a883d6b0 Initial revision boisy parents: diff changeset	273 sta <u0006
326 bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	274 L02A3 tst <u0006
bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	275 bne L02AB
848 c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	276 lda #C$SPAC
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	277 bra PutNBuf
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	278 L02AB adda #'0
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	279 cmpa #'9
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	280 bls PutNBuf
0 6641a883d6b0 Initial revision boisy parents: diff changeset	281 adda #$07
848 c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	282 bra PutNBuf
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	283 PutSpace lda #C$SPAC
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	284
851 16b8c7dc0082 Made source comment improvements boisy parents: 848 diff changeset	285 * Entry: A = char to put in buffer
848 c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	286 PutNBuf pshs x save caller's X
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	287 ldx <bufptr get buffer next pointer
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	288 cmpx #$0090 past end?
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	289 bne PutOk branch if not
851 16b8c7dc0082 Made source comment improvements boisy parents: 848 diff changeset	290 bsr WriteBuf
848 c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	291 ldx <bufptr get pointer
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	292 PutOk sta ,x+ save A
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	293 stx <bufptr and update pointer
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	294 puls pc,x return
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	295
851 16b8c7dc0082 Made source comment improvements boisy parents: 848 diff changeset	296 PermMask fcc "dsewrewr"
326 bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	297 fcb $FF
851 16b8c7dc0082 Made source comment improvements boisy parents: 848 diff changeset	298
16b8c7dc0082 Made source comment improvements boisy parents: 848 diff changeset	299 L02D3 ldb <u0033
16b8c7dc0082 Made source comment improvements boisy parents: 848 diff changeset	300 leax <PermMask,pcr
0 6641a883d6b0 Initial revision boisy parents: diff changeset	301 lda ,x+
326 bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	302 L02DA lslb
bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	303 bcs L02DF
848 c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	304 lda #'-
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	305 L02DF bsr PutNBuf
0 6641a883d6b0 Initial revision boisy parents: diff changeset	306 lda ,x+
326 bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	307 bpl L02DA
0 6641a883d6b0 Initial revision boisy parents: diff changeset	308 rts
851 16b8c7dc0082 Made source comment improvements boisy parents: 848 diff changeset	309
16b8c7dc0082 Made source comment improvements boisy parents: 848 diff changeset	310 * Put hi-bit terminated string at Y into line buffer
16b8c7dc0082 Made source comment improvements boisy parents: 848 diff changeset	311 PutStr lda ,y get char in A from Y
16b8c7dc0082 Made source comment improvements boisy parents: 848 diff changeset	312 anda #$7F strip off hi-bit
16b8c7dc0082 Made source comment improvements boisy parents: 848 diff changeset	313 bsr PutNBuf put in buffer
16b8c7dc0082 Made source comment improvements boisy parents: 848 diff changeset	314 lda ,y+ get char again
16b8c7dc0082 Made source comment improvements boisy parents: 848 diff changeset	315 bpl PutStr if hi-bit not set, continue
0 6641a883d6b0 Initial revision boisy parents: diff changeset	316 rts
851 16b8c7dc0082 Made source comment improvements boisy parents: 848 diff changeset	317
16b8c7dc0082 Made source comment improvements boisy parents: 848 diff changeset	318 WriteBuf pshs y,x,b,a
16b8c7dc0082 Made source comment improvements boisy parents: 848 diff changeset	319 bra DoWrite
16b8c7dc0082 Made source comment improvements boisy parents: 848 diff changeset	320 CRnWrite pshs y,x,b,a
848 c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	321 lda #C$CR
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	322 bsr PutNBuf
851 16b8c7dc0082 Made source comment improvements boisy parents: 848 diff changeset	323 DoWrite leax <linebuff,u
848 c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	324 stx <bufptr
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	325 ldy #80
0 6641a883d6b0 Initial revision boisy parents: diff changeset	326 lda #$01
6641a883d6b0 Initial revision boisy parents: diff changeset	327 os9 I$WritLn
326 bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	328 puls pc,y,x,b,a
bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	329 L030B leax <u0036,u
bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	330 L030E bsr L0338
bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	331 bsr L0324
bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	332 bsr L0324
848 c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	333 bsr PutSpace
851 16b8c7dc0082 Made source comment improvements boisy parents: 848 diff changeset	334 bsr Byte2ASC
848 c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	335 tst <narrow
326 bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	336 beq L0320
851 16b8c7dc0082 Made source comment improvements boisy parents: 848 diff changeset	337 bsr Byte2ASC
848 c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	338 bra PutSpace
851 16b8c7dc0082 Made source comment improvements boisy parents: 848 diff changeset	339 L0320 bsr DoColon
848 c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	340 bra PutSpace
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	341 L0324 lda #'/
326 bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	342 bra L0334
851 16b8c7dc0082 Made source comment improvements boisy parents: 848 diff changeset	343
16b8c7dc0082 Made source comment improvements boisy parents: 848 diff changeset	344 ShowDate tst <narrow are we on a narrow screen?
16b8c7dc0082 Made source comment improvements boisy parents: 848 diff changeset	345 bne ShowTime branch if we are
16b8c7dc0082 Made source comment improvements boisy parents: 848 diff changeset	346 leax date,u else point to date buffer
16b8c7dc0082 Made source comment improvements boisy parents: 848 diff changeset	347 bra L030E and show date and time
16b8c7dc0082 Made source comment improvements boisy parents: 848 diff changeset	348 ShowTime bsr Byte2ASC show hours
16b8c7dc0082 Made source comment improvements boisy parents: 848 diff changeset	349 DoColon lda #': put up colon
16b8c7dc0082 Made source comment improvements boisy parents: 848 diff changeset	350 L0334 bsr PutNBuf put in buffer
16b8c7dc0082 Made source comment improvements boisy parents: 848 diff changeset	351 bra Byte2ASC show minutes
16b8c7dc0082 Made source comment improvements boisy parents: 848 diff changeset	352
326 bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	353 L0338 lda #$AE
0 6641a883d6b0 Initial revision boisy parents: diff changeset	354 ldb ,x
326 bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	355 L033C inca
848 c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	356 subb #100
326 bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	357 bcc L033C
0 6641a883d6b0 Initial revision boisy parents: diff changeset	358 stb ,x
326 bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	359 tfr a,b
848 c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	360 tst <narrow
326 bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	361 bne L034B
bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	362 bsr L035F
bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	363 L034B ldb ,x+
bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	364 bra L035F
851 16b8c7dc0082 Made source comment improvements boisy parents: 848 diff changeset	365
16b8c7dc0082 Made source comment improvements boisy parents: 848 diff changeset	366 * Get byte at X and put ASCII value in buffer
16b8c7dc0082 Made source comment improvements boisy parents: 848 diff changeset	367 Byte2ASC ldb ,x+
326 bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	368 lda #$2F
bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	369 L0353 inca
848 c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	370 subb #100
326 bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	371 bcc L0353
848 c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	372 cmpa #'0
326 bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	373 beq L035F
848 c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	374 lbsr PutNBuf
326 bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	375 L035F lda #$3A
bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	376 L0361 deca
848 c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	377 addb #10
326 bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	378 bcc L0361
848 c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	379 lbsr PutNBuf
0 6641a883d6b0 Initial revision boisy parents: diff changeset	380 tfr b,a
848 c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	381 adda #'0
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	382 lbra PutNBuf
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	383
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	384 * Entry: X = ptr to line to start parsing
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	385 GetOpts lda ,x+ get next char on cmd line
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	386 cmpa #C$CR CR?
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	387 beq L039A yep, return
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	388 cmpa #'- option?
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	389 beq GetDash branch if not
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	390 * Must be dir name, skip
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	391 inc <dircount
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	392 bsr SkipNSpc skip spaces
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	393 ChkDash bsr SkipSpcs skip spaces
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	394 bra GetOpts and resart parsing
326 bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with boisy parents: 200 diff changeset	395 L039A rts
0 6641a883d6b0 Initial revision boisy parents: diff changeset	396
848 c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	397 GetDash lda #C$SPAC
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	398 sta -1,x
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	399 GetDash2 ldd ,x+
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	400 ora #$20 make lowercase
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	401 IsItE cmpa #'e extended dir?
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	402 bne IsItX
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	403 sta <extended
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	404 bra FixCmdLn
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	405 IsItX cmpa #'x
935 6a26cab206d2 E$IllArg is returned if bad option used boisy parents: 851 diff changeset	406 beq ItIsX
6a26cab206d2 E$IllArg is returned if bad option used boisy parents: 851 diff changeset	407 ldb #E$IllArg
6a26cab206d2 E$IllArg is returned if bad option used boisy parents: 851 diff changeset	408 lbra Exit bad option, just exit
6a26cab206d2 E$IllArg is returned if bad option used boisy parents: 851 diff changeset	409 ItIsX lda #EXEC.
848 c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	410 sta <addmode
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	411 FixCmdLn lda #C$SPAC
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	412 sta -1,x
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	413 cmpb #'0
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	414 lblt ChkDash
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	415 bra GetDash
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	416
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	417 SkipSpcs lda ,x+
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	418 cmpa #C$SPAC
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	419 beq SkipSpcs
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	420 leax -1,x
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	421 rts
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	422
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	423 SkipNSpc lda ,x+
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	424 cmpa #C$SPAC
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	425 beq SkipNRTS
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	426 cmpa #C$CR
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	427 bne SkipNSpc
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	428 SkipNRTS leax -1,x
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	429 rts
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly boisy parents: 364 diff changeset	430
0 6641a883d6b0 Initial revision boisy parents: diff changeset	431 emod
6641a883d6b0 Initial revision boisy parents: diff changeset	432 eom equ *
6641a883d6b0 Initial revision boisy parents: diff changeset	433 end

Mercurial > hg > Members > kono > nitros9-code

annotate level1/cmds/dir.asm @ 1809:c01130e000dc