Mercurial > hg > Members > kono > nitros9-code

annotate level1/cmds/iniz.asm @ 829:a114971abd3b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Changed the name of a def because it collided with Level 2
author boisy
date Tue, 14 Jan 2003 03:06:30 +0000
parents 6653afab1671
children 80e125a9357d
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
829
a114971abd3b Changed the name of a def because it collided with Level 2
boisy
parents: 827
diff changeset
25 linebsiz 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
829
a114971abd3b Changed the name of a def because it collided with Level 2
boisy
parents: 827
diff changeset
30 readbuf rmb linebsiz+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
6653afab1671 Made smaller, better!
boisy
parents: 826
diff changeset
54 leax readbuf,u point to read buffer
829
a114971abd3b Changed the name of a def because it collided with Level 2
boisy
parents: 827
diff changeset
55 ldy #linebsiz get linebsiz 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