Mercurial > hg > Members > kono > nitros9-code

annotate level1/cmds/iniz.asm @ 189:9c342f3c6503

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Migrated over OS-9 Level Two version
author boisy
date Sun, 14 Jul 2002 04:14:13 +0000
parents 307e956c5124
children e9ce43cc215e
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 * ------------------------------------------------------------------
189
9c342f3c6503 Migrated over OS-9 Level Two version
boisy
parents: 96
diff changeset
8 * 3 Original Tandy/Microware version
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