Mercurial > hg > Members > kono > nitros9-code

annotate level1/cmds/iniz.asm @ 2017:f273e28ea8d0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Breaking kernel down into individual files... added comments
author boisy
date Tue, 07 Mar 2006 12:20:16 +0000
parents 84ea83668304
children
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 *
1325
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents: 830
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: 830
diff changeset
7 * Comment
96
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
8 * ------------------------------------------------------------------
1325
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents: 830
diff changeset
9 * 3 ????/??/??
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents: 830
diff changeset
10 * From Tandy OS-9 Level One VR 02.00.00.
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents: 830
diff changeset
11 *
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents: 830
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: 830
diff changeset
13 * Tightened code, changed behavior slightly.
96
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
14
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
15 nam Iniz
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
16 ttl Initialize a device
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
17
189
9c342f3c6503 Migrated over OS-9 Level Two version
boisy
parents: 96
diff changeset
18 * 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
19
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
20 ifp1
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
21 use defsfile
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
22 endc
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
23
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
24 tylg set Prgrm+Objct
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
25 atrv set ReEnt+rev
1325
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents: 830
diff changeset
26 rev set $00
827
6653afab1671 Made smaller, better!
boisy
parents: 826
diff changeset
27 edition set 4
6653afab1671 Made smaller, better!
boisy
parents: 826
diff changeset
28
830
80e125a9357d One more try to fix variable name collision
boisy
parents: 829
diff changeset
29 lsize equ 80
96
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
30
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
31 mod eom,name,tylg,atrv,start,size
826
6c56dfe1de1c Added comments
boisy
parents: 200
diff changeset
32
6c56dfe1de1c Added comments
boisy
parents: 200
diff changeset
33 org 0
830
80e125a9357d One more try to fix variable name collision
boisy
parents: 829
diff changeset
34 rbuffer rmb lsize+1
827
6653afab1671 Made smaller, better!
boisy
parents: 826
diff changeset
35 stack rmb 64
96
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
36 size equ .
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
37
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
38 name fcs /Iniz/
189
9c342f3c6503 Migrated over OS-9 Level Two version
boisy
parents: 96
diff changeset
39 fcb edition
96
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
40
826
6c56dfe1de1c Added comments
boisy
parents: 200
diff changeset
41 start lda ,x get command line char
6c56dfe1de1c Added comments
boisy
parents: 200
diff changeset
42 cmpa #C$CR CR?
6c56dfe1de1c Added comments
boisy
parents: 200
diff changeset
43 beq ReadnInz branch if so
827
6653afab1671 Made smaller, better!
boisy
parents: 826
diff changeset
44 InizDev lda ,x+
96
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
45 cmpa #C$CR
827
6653afab1671 Made smaller, better!
boisy
parents: 826
diff changeset
46 beq ExitOk
6653afab1671 Made smaller, better!
boisy
parents: 826
diff changeset
47 cmpa #C$SPAC
6653afab1671 Made smaller, better!
boisy
parents: 826
diff changeset
48 beq InizDev
6653afab1671 Made smaller, better!
boisy
parents: 826
diff changeset
49 cmpa #PDELIM pathlist?
6653afab1671 Made smaller, better!
boisy
parents: 826
diff changeset
50 beq AttachIt
6653afab1671 Made smaller, better!
boisy
parents: 826
diff changeset
51 leax -1,x else back up X
6653afab1671 Made smaller, better!
boisy
parents: 826
diff changeset
52 AttachIt clra
6653afab1671 Made smaller, better!
boisy
parents: 826
diff changeset
53 os9 I$Attach attach to the device at X
6653afab1671 Made smaller, better!
boisy
parents: 826
diff changeset
54 bcs Exit branch if error
6653afab1671 Made smaller, better!
boisy
parents: 826
diff changeset
55 bra InizDev
826
6c56dfe1de1c Added comments
boisy
parents: 200
diff changeset
56
827
6653afab1671 Made smaller, better!
boisy
parents: 826
diff changeset
57 ReadnInz clra from stdin
830
80e125a9357d One more try to fix variable name collision
boisy
parents: 829
diff changeset
58 leax rbuffer,u point to read buffer
80e125a9357d One more try to fix variable name collision
boisy
parents: 829
diff changeset
59 ldy #lsize get lsize bytes
827
6653afab1671 Made smaller, better!
boisy
parents: 826
diff changeset
60 os9 I$ReadLn read it!
6653afab1671 Made smaller, better!
boisy
parents: 826
diff changeset
61 bcc InizDev branch if error
6653afab1671 Made smaller, better!
boisy
parents: 826
diff changeset
62 cmpb #E$EOF end of file?
6653afab1671 Made smaller, better!
boisy
parents: 826
diff changeset
63 bne Exit branch if not
6653afab1671 Made smaller, better!
boisy
parents: 826
diff changeset
64 ExitOk clrb
6653afab1671 Made smaller, better!
boisy
parents: 826
diff changeset
65 Exit os9 F$Exit
96
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
66
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
67 emod
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
68 eom equ *
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
69 end