Mercurial > hg > Members > kono > nitros9-code

annotate level1/cmds/iniz.asm @ 830:80e125a9357d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
One more try to fix variable name collision
author boisy
date Tue, 14 Jan 2003 03:08:40 +0000
parents a114971abd3b
children 84ea83668304
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
96
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
1 ********************************************************************
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
2 * Iniz - Initialize a device
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
3 *
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
4 * $Id$
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
5 *
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
6 * Ed. Comments Who YY/MM/DD
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
7 * ------------------------------------------------------------------
200
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 189
diff changeset
8 * 3 From Tandy OS-9 Level Two VR 02.00.01
827
6653afab1671 Made smaller, better!
boisy
parents: 826
diff changeset
9 * 4 Tightened code, changed behavior slightly BGP 03/01/13
96
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
10
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
11 nam Iniz
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
12 ttl Initialize a device
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
13
189
9c342f3c6503 Migrated over OS-9 Level Two version
boisy
parents: 96
diff changeset
14 * Disassembled 98/09/10 22:56:37 by Disasm v1.6 (C) 1988 by RML
96
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
15
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
16 ifp1
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
17 use defsfile
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
18 endc
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
19
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
20 tylg set Prgrm+Objct
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
21 atrv set ReEnt+rev
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
22 rev set $01
827
6653afab1671 Made smaller, better!
boisy
parents: 826
diff changeset
23 edition set 4
6653afab1671 Made smaller, better!
boisy
parents: 826
diff changeset
24
830
80e125a9357d One more try to fix variable name collision
boisy
parents: 829
diff changeset
25 lsize equ 80
96
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
26
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
27 mod eom,name,tylg,atrv,start,size
826
6c56dfe1de1c Added comments
boisy
parents: 200
diff changeset
28
6c56dfe1de1c Added comments
boisy
parents: 200
diff changeset
29 org 0
830
80e125a9357d One more try to fix variable name collision
boisy
parents: 829
diff changeset
30 rbuffer rmb lsize+1
827
6653afab1671 Made smaller, better!
boisy
parents: 826
diff changeset
31 stack rmb 64
96
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
32 size equ .
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
33
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
34 name fcs /Iniz/
189
9c342f3c6503 Migrated over OS-9 Level Two version
boisy
parents: 96
diff changeset
35 fcb edition
96
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
36
826
6c56dfe1de1c Added comments
boisy
parents: 200
diff changeset
37 start lda ,x get command line char
6c56dfe1de1c Added comments
boisy
parents: 200
diff changeset
38 cmpa #C$CR CR?
6c56dfe1de1c Added comments
boisy
parents: 200
diff changeset
39 beq ReadnInz branch if so
827
6653afab1671 Made smaller, better!
boisy
parents: 826
diff changeset
40 InizDev lda ,x+
96
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
41 cmpa #C$CR
827
6653afab1671 Made smaller, better!
boisy
parents: 826
diff changeset
42 beq ExitOk
6653afab1671 Made smaller, better!
boisy
parents: 826
diff changeset
43 cmpa #C$SPAC
6653afab1671 Made smaller, better!
boisy
parents: 826
diff changeset
44 beq InizDev
6653afab1671 Made smaller, better!
boisy
parents: 826
diff changeset
45 cmpa #PDELIM pathlist?
6653afab1671 Made smaller, better!
boisy
parents: 826
diff changeset
46 beq AttachIt
6653afab1671 Made smaller, better!
boisy
parents: 826
diff changeset
47 leax -1,x else back up X
6653afab1671 Made smaller, better!
boisy
parents: 826
diff changeset
48 AttachIt clra
6653afab1671 Made smaller, better!
boisy
parents: 826
diff changeset
49 os9 I$Attach attach to the device at X
6653afab1671 Made smaller, better!
boisy
parents: 826
diff changeset
50 bcs Exit branch if error
6653afab1671 Made smaller, better!
boisy
parents: 826
diff changeset
51 bra InizDev
826
6c56dfe1de1c Added comments
boisy
parents: 200
diff changeset
52
827
6653afab1671 Made smaller, better!
boisy
parents: 826
diff changeset
53 ReadnInz clra from stdin
830
80e125a9357d One more try to fix variable name collision
boisy
parents: 829
diff changeset
54 leax rbuffer,u point to read buffer
80e125a9357d One more try to fix variable name collision
boisy
parents: 829
diff changeset
55 ldy #lsize get lsize bytes
827
6653afab1671 Made smaller, better!
boisy
parents: 826
diff changeset
56 os9 I$ReadLn read it!
6653afab1671 Made smaller, better!
boisy
parents: 826
diff changeset
57 bcc InizDev branch if error
6653afab1671 Made smaller, better!
boisy
parents: 826
diff changeset
58 cmpb #E$EOF end of file?
6653afab1671 Made smaller, better!
boisy
parents: 826
diff changeset
59 bne Exit branch if not
6653afab1671 Made smaller, better!
boisy
parents: 826
diff changeset
60 ExitOk clrb
6653afab1671 Made smaller, better!
boisy
parents: 826
diff changeset
61 Exit os9 F$Exit
96
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
62
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
63 emod
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
64 eom equ *
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
65 end