Mercurial > hg > Members > kono > nitros9-code
view 3rdparty/packages/os9l2bbs/cmds/DLD.unvalidate.asm @ 2679:8243b6c181b4 lwtools-port
Remove bogus immediate mode specifier.
| author | William Astle <lost@l-w.ca> |
|---|---|
| date | Sun, 10 Jun 2012 14:35:27 -0600 |
| parents | f87ec0b216c8 |
| children |
line wrap: on
line source
nam DLD.unvalidate ttl program module ifp1 use defsfile endc tylg set Prgrm+Objct atrv set ReEnt+rev rev set $01 mod eom,name,tylg,atrv,start,size U0000 rmb 2 U0002 rmb 2 U0004 rmb 82 U0056 rmb 27 U0071 rmb 31 U0090 rmb 1 U0091 rmb 464 size equ . name fcs /DLD.unvalidate/ * 000D 44 4C 44 2E 75 6E 76 61 6C 69 64 61 74 E5 DLD.unvalidate L001B fcc "DLD.lst" * 001B 44 4C 44 2E 6C 73 74 DLD.lst fcb $0D * 0022 0D . fcc "DLD.dsc" * 0023 44 4C 44 2E 64 73 63 DLD.dsc fcb $0D * 002A 0D . L002B fcc "Enter filename to unvalidate:" * 002B 45 6E 74 65 72 20 66 69 6C 65 6E 61 6D 65 20 74 6F 20 75 6E 76 61 6C 69 64 61 74 65 3A Enter filename to unvalidate: L0048 fcc "Filename not found." * 0048 46 69 6C 65 6E 61 6D 65 20 6E 6F 74 20 66 6F 75 6E 64 2E Filename not found. fcb $0D * 005B 0D . fcb $0A * 005C 0A . fcb $0D * 005D 0D . fcc "Name:Desc:--------------------------------------------------------------" * 005E 4E 61 6D 65 3A 44 65 73 63 3A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D Name:Desc:-------------------------------------------------------------- fcb $0D * 00A6 0D . L00A7 fcc "File unvalidated." * 00A7 46 69 6C 65 20 75 6E 76 61 6C 69 64 61 74 65 64 2E File unvalidated. fcb $0D * 00B8 0D . start lda 0,X * 00B9 A6 84 &. cmpa #13 * 00BB 81 0D .. beq L00C8 * 00BD 27 09 '. lda #1 * 00BF 86 01 .. os9 I$ChgDir * 00C1 10 3F 86 .?. lbcs L018A * 00C4 10 25 00 C2 .%.B L00C8 leax >L001B,PC * 00C8 30 8D FF 4F 0..O lda #3 * 00CC 86 03 .. os9 I$Open * 00CE 10 3F 84 .?. lbcs L018A * 00D1 10 25 00 B5 .%.5 sta U0000,U * 00D5 A7 C4 'D L00D7 leax >L002B,PC * 00D7 30 8D FF 50 0..P ldy #29 * 00DB 10 8E 00 1D .... lda #1 * 00DF 86 01 .. os9 I$Write * 00E1 10 3F 8A .?. leax <U0056,U * 00E4 30 C8 56 0HV ldy #27 * 00E7 10 8E 00 1B .... clra * 00EB 4F O os9 I$ReadLn * 00EC 10 3F 8B .?. lbcs L00D7 * 00EF 10 25 FF E4 .%.d cmpy #1 * 00F3 10 8C 00 01 .... lble L0189 * 00F7 10 2F 00 8E ./.. L00FB lda 0,X * 00FB A6 84 &. anda #223 * 00FD 84 DF ._ sta ,X+ * 00FF A7 80 '. cmpa #13 * 0101 81 0D .. bne L00FB * 0103 26 F6 &v L0105 lda U0000,U * 0105 A6 C4 &D ldb #5 * 0107 C6 05 F. pshs U * 0109 34 40 4@ os9 I$GetStt * 010B 10 3F 8D .?. lbcs L018A * 010E 10 25 00 78 .%.x tfr U,Y * 0112 1F 32 .2 puls U * 0114 35 40 5@ stx U0002,U * 0116 AF 42 /B sty U0004,U * 0118 10 AF 44 ./D leax <U0071,U * 011B 30 C8 71 0Hq lda U0000,U * 011E A6 C4 &D ldy #96 * 0120 10 8E 00 60 ...` clrb * 0124 5F _ os9 I$Read * 0125 10 3F 89 .?. lbcs L0145 * 0128 10 25 00 19 .%.. tst >U0090,U * 012C 6D C9 00 90 mI.. beq L0105 * 0130 27 D3 'S leay <U0056,U * 0132 31 C8 56 1HV L0135 lda 0,Y * 0135 A6 A4 &$ cmpa #13 * 0137 81 0D .. beq L015B * 0139 27 20 ' lda ,X+ * 013B A6 80 &. anda #223 * 013D 84 DF ._ cmpa ,Y+ * 013F A1 A0 ! bne L0105 * 0141 26 C2 &B bra L0135 * 0143 20 F0 p L0145 cmpb #211 * 0145 C1 D3 AS lbne L018A * 0147 10 26 00 3F .&.? leax >L0048,PC * 014B 30 8D FE F9 0.~y ldy #200 * 014F 10 8E 00 C8 ...H lda #1 * 0153 86 01 .. os9 I$WritLn * 0155 10 3F 8C .?. lbra L0189 * 0158 16 00 2E ... L015B clr >U0090,U * 015B 6F C9 00 90 oI.. ldx U0002,U * 015F AE 42 .B lda U0000,U * 0161 A6 C4 &D pshs U * 0163 34 40 4@ ldu U0004,U * 0165 EE 44 nD os9 I$Seek * 0167 10 3F 88 .?. lbcs L018A * 016A 10 25 00 1C .%.. puls U * 016E 35 40 5@ leax <U0071,U * 0170 30 C8 71 0Hq ldy #96 * 0173 10 8E 00 60 ...` lda U0000,U * 0177 A6 C4 &D os9 I$Write * 0179 10 3F 8A .?. leax >L00A7,PC * 017C 30 8D FF 27 0..' ldy #200 * 0180 10 8E 00 C8 ...H lda #1 * 0184 86 01 .. os9 I$WritLn * 0186 10 3F 8C .?. L0189 clrb * 0189 5F _ L018A os9 F$Exit * 018A 10 3F 06 .?. emod eom equ * end