Mercurial > hg > Members > kono > nitros9-code

annotate level1/cmds/deiniz.asm @ 1347:89572d423498

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Made case fixes
author boisy
date Wed, 17 Sep 2003 17:40:49 +0000
parents 84ea83668304
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
237
6a8f855fb173 Moved from level2/CMDS
boisy
parents:
diff changeset
1 ********************************************************************
828
064244c52232 Tightened up code, made smaller
boisy
parents: 237
diff changeset
2 * DeIniz - Denitialize a device
237
6a8f855fb173 Moved from level2/CMDS
boisy
parents:
diff changeset
3 *
6a8f855fb173 Moved from level2/CMDS
boisy
parents:
diff changeset
4 * $Id$
6a8f855fb173 Moved from level2/CMDS
boisy
parents:
diff changeset
5 *
1325
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents: 924
diff changeset
6 * Edt/Rev YYYY/MM/DD Modified by
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents: 924
diff changeset
7 * Comment
237
6a8f855fb173 Moved from level2/CMDS
boisy
parents:
diff changeset
8 * ------------------------------------------------------------------
1325
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents: 924
diff changeset
9 * 3 ????/??/??
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents: 924
diff changeset
10 * From Tandy OS-9 Level Two VR 02.00.01.
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents: 924
diff changeset
11 *
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents: 924
diff changeset
12 * 4 2003/01/13 Boisy G. Pitre
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents: 924
diff changeset
13 * Tightened code, changed behavior slightly.
237
6a8f855fb173 Moved from level2/CMDS
boisy
parents:
diff changeset
14
6a8f855fb173 Moved from level2/CMDS
boisy
parents:
diff changeset
15 nam DeIniz
6a8f855fb173 Moved from level2/CMDS
boisy
parents:
diff changeset
16 ttl Deinitialize a device
6a8f855fb173 Moved from level2/CMDS
boisy
parents:
diff changeset
17
828
064244c52232 Tightened up code, made smaller
boisy
parents: 237
diff changeset
18 * Disassembled 98/09/10 22:56:37 by Disasm v1.6 (C) 1988 by RML
237
6a8f855fb173 Moved from level2/CMDS
boisy
parents:
diff changeset
19
6a8f855fb173 Moved from level2/CMDS
boisy
parents:
diff changeset
20 ifp1
6a8f855fb173 Moved from level2/CMDS
boisy
parents:
diff changeset
21 use defsfile
6a8f855fb173 Moved from level2/CMDS
boisy
parents:
diff changeset
22 endc
6a8f855fb173 Moved from level2/CMDS
boisy
parents:
diff changeset
23
924
c155aac72190 Made cosmetic changes
boisy
parents: 830
diff changeset
24 linebsiz equ 80
c155aac72190 Made cosmetic changes
boisy
parents: 830
diff changeset
25
237
6a8f855fb173 Moved from level2/CMDS
boisy
parents:
diff changeset
26 tylg set Prgrm+Objct
6a8f855fb173 Moved from level2/CMDS
boisy
parents:
diff changeset
27 atrv set ReEnt+rev
1325
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents: 924
diff changeset
28 rev set $00
828
064244c52232 Tightened up code, made smaller
boisy
parents: 237
diff changeset
29 edition set 4
064244c52232 Tightened up code, made smaller
boisy
parents: 237
diff changeset
30
237
6a8f855fb173 Moved from level2/CMDS
boisy
parents:
diff changeset
31 mod eom,name,tylg,atrv,start,size
828
064244c52232 Tightened up code, made smaller
boisy
parents: 237
diff changeset
32
064244c52232 Tightened up code, made smaller
boisy
parents: 237
diff changeset
33 org 0
830
80e125a9357d One more try to fix variable name collision
boisy
parents: 829
diff changeset
34 rbuffer rmb linebsiz+1
828
064244c52232 Tightened up code, made smaller
boisy
parents: 237
diff changeset
35 stack rmb 64
237
6a8f855fb173 Moved from level2/CMDS
boisy
parents:
diff changeset
36 size equ .
6a8f855fb173 Moved from level2/CMDS
boisy
parents:
diff changeset
37
6a8f855fb173 Moved from level2/CMDS
boisy
parents:
diff changeset
38 name fcs /DeIniz/
6a8f855fb173 Moved from level2/CMDS
boisy
parents:
diff changeset
39 fcb edition
6a8f855fb173 Moved from level2/CMDS
boisy
parents:
diff changeset
40
828
064244c52232 Tightened up code, made smaller
boisy
parents: 237
diff changeset
41 start lda ,x get command line char
064244c52232 Tightened up code, made smaller
boisy
parents: 237
diff changeset
42 cmpa #C$CR CR?
064244c52232 Tightened up code, made smaller
boisy
parents: 237
diff changeset
43 beq ReadnDnz branch if so
064244c52232 Tightened up code, made smaller
boisy
parents: 237
diff changeset
44 DenizDev lda ,x+
237
6a8f855fb173 Moved from level2/CMDS
boisy
parents:
diff changeset
45 cmpa #C$CR
828
064244c52232 Tightened up code, made smaller
boisy
parents: 237
diff changeset
46 beq ExitOk
064244c52232 Tightened up code, made smaller
boisy
parents: 237
diff changeset
47 cmpa #C$SPAC
064244c52232 Tightened up code, made smaller
boisy
parents: 237
diff changeset
48 beq DenizDev
064244c52232 Tightened up code, made smaller
boisy
parents: 237
diff changeset
49 cmpa #PDELIM pathlist?
064244c52232 Tightened up code, made smaller
boisy
parents: 237
diff changeset
50 beq DetachIt
064244c52232 Tightened up code, made smaller
boisy
parents: 237
diff changeset
51 leax -1,x else back up X
064244c52232 Tightened up code, made smaller
boisy
parents: 237
diff changeset
52 DetachIt clra
064244c52232 Tightened up code, made smaller
boisy
parents: 237
diff changeset
53 os9 I$Attach attach to the device at X
064244c52232 Tightened up code, made smaller
boisy
parents: 237
diff changeset
54 bcs Exit branch if error
064244c52232 Tightened up code, made smaller
boisy
parents: 237
diff changeset
55 os9 I$Detach now detatch from the device at U
064244c52232 Tightened up code, made smaller
boisy
parents: 237
diff changeset
56 bcs Exit branch if error
064244c52232 Tightened up code, made smaller
boisy
parents: 237
diff changeset
57 os9 I$Detach and detatch again from the device at U
064244c52232 Tightened up code, made smaller
boisy
parents: 237
diff changeset
58 bcs Exit branch if error
064244c52232 Tightened up code, made smaller
boisy
parents: 237
diff changeset
59 bra DenizDev
064244c52232 Tightened up code, made smaller
boisy
parents: 237
diff changeset
60
064244c52232 Tightened up code, made smaller
boisy
parents: 237
diff changeset
61 ReadnDnz clra from stdin
830
80e125a9357d One more try to fix variable name collision
boisy
parents: 829
diff changeset
62 leax rbuffer,u point to read buffer
829
a114971abd3b Changed the name of a def because it collided with Level 2
boisy
parents: 828
diff changeset
63 ldy #linebsiz get linebsiz bytes
828
064244c52232 Tightened up code, made smaller
boisy
parents: 237
diff changeset
64 os9 I$ReadLn read it!
064244c52232 Tightened up code, made smaller
boisy
parents: 237
diff changeset
65 bcc DenizDev branch if error
064244c52232 Tightened up code, made smaller
boisy
parents: 237
diff changeset
66 cmpb #E$EOF end of file?
064244c52232 Tightened up code, made smaller
boisy
parents: 237
diff changeset
67 bne Exit branch if not
064244c52232 Tightened up code, made smaller
boisy
parents: 237
diff changeset
68 ExitOk clrb
064244c52232 Tightened up code, made smaller
boisy
parents: 237
diff changeset
69 Exit os9 F$Exit
237
6a8f855fb173 Moved from level2/CMDS
boisy
parents:
diff changeset
70
6a8f855fb173 Moved from level2/CMDS
boisy
parents:
diff changeset
71 emod
6a8f855fb173 Moved from level2/CMDS
boisy
parents:
diff changeset
72 eom equ *
6a8f855fb173 Moved from level2/CMDS
boisy
parents:
diff changeset
73 end