Mercurial > hg > Members > kono > nitros9-code

annotate level1/cmds/iniz.asm @ 200:e9ce43cc215e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Made major changes to headers for consistency and identification
author boisy
date Mon, 15 Jul 2002 03:42:42 +0000
parents 9c342f3c6503
children 6c56dfe1de1c
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
96
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
9
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
10 nam Iniz
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
11 ttl Initialize a device
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
12
189
9c342f3c6503 Migrated over OS-9 Level Two version
boisy
parents: 96
diff changeset
13 * 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
14
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
15 ifp1
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
16 use defsfile
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
17 endc
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
18
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
19 tylg set Prgrm+Objct
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
20 atrv set ReEnt+rev
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
21 rev set $01
189
9c342f3c6503 Migrated over OS-9 Level Two version
boisy
parents: 96
diff changeset
22 edition set 3
96
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
23
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
24 mod eom,name,tylg,atrv,start,size
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
25 u0000 rmb 2
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
26 u0002 rmb 330
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
27 size equ .
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
28
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
29 name fcs /Iniz/
189
9c342f3c6503 Migrated over OS-9 Level Two version
boisy
parents: 96
diff changeset
30 fcb edition
96
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
31
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
32 start lda ,x
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
33 cmpa #C$CR
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
34 beq L001E
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
35 bsr L003F
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
36 bra L002E
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
37 L001C bsr L003F
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
38 L001E bsr L0032
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
39 bcs L002A
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
40 lda ,x
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
41 cmpa #C$CR
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
42 bne L001C
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
43 ldb #E$EOF
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
44 L002A cmpb #E$EOF
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
45 bne L002E
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
46 L002E clrb
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
47 os9 F$Exit
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
48 L0032 clra
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
49 leax u0002,u
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
50 ldy #80
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
51 os9 I$ReadLn
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
52 bcc L003E
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
53 L003E rts
189
9c342f3c6503 Migrated over OS-9 Level Two version
boisy
parents: 96
diff changeset
54 L003F lda #C$SPAC
9c342f3c6503 Migrated over OS-9 Level Two version
boisy
parents: 96
diff changeset
55 L0041 cmpa ,x+
9c342f3c6503 Migrated over OS-9 Level Two version
boisy
parents: 96
diff changeset
56 beq L0041
9c342f3c6503 Migrated over OS-9 Level Two version
boisy
parents: 96
diff changeset
57 leax -$01,x
9c342f3c6503 Migrated over OS-9 Level Two version
boisy
parents: 96
diff changeset
58 stx <u0000
9c342f3c6503 Migrated over OS-9 Level Two version
boisy
parents: 96
diff changeset
59 lda #PDELIM
9c342f3c6503 Migrated over OS-9 Level Two version
boisy
parents: 96
diff changeset
60 cmpa ,x
9c342f3c6503 Migrated over OS-9 Level Two version
boisy
parents: 96
diff changeset
61 bne L0051
9c342f3c6503 Migrated over OS-9 Level Two version
boisy
parents: 96
diff changeset
62 leax 1,x
9c342f3c6503 Migrated over OS-9 Level Two version
boisy
parents: 96
diff changeset
63 L0051 clra
96
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
64 os9 I$Attach
189
9c342f3c6503 Migrated over OS-9 Level Two version
boisy
parents: 96
diff changeset
65 bcs L0064
96
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
66 lda ,x+
189
9c342f3c6503 Migrated over OS-9 Level Two version
boisy
parents: 96
diff changeset
67 cmpa #C$COMA
96
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
68 beq L003F
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
69 lda ,-x
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
70 cmpa #C$CR
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
71 bne L003F
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
72 rts
189
9c342f3c6503 Migrated over OS-9 Level Two version
boisy
parents: 96
diff changeset
73 L0064 pshs b
96
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
74 lda #$02
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
75 ldx <u0000
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
76 ldy #80
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
77 os9 I$WritLn
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
78 puls b
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
79 os9 F$PErr
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
80 rts
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
81
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
82 emod
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
83 eom equ *
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
84 end