Mercurial > hg > Members > kono > nitros9-code

annotate level1/cmds/iniz.asm @ 96:307e956c5124

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Initial import of iniz.asm
author boisy
date Sat, 06 Jul 2002 02:57:08 +0000
parents
children 9c342f3c6503
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 * ------------------------------------------------------------------
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
8 * 2 Original Tandy/Microware version BGP 02/07/05
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
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
13 * Disassembled 02/07/05 21:52:55 by Disasm v1.6 (C) 1988 by RML
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
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
22
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
23 mod eom,name,tylg,atrv,start,size
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
24 u0000 rmb 2
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
25 u0002 rmb 330
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
26 size equ .
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
27
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
28 name fcs /Iniz/
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
29 fcb $02
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
30
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
31 start lda ,x
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
32 cmpa #C$CR
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
33 beq L001E
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
34 bsr L003F
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
35 bra L002E
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
36 L001C bsr L003F
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
37 L001E bsr L0032
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
38 bcs L002A
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
39 lda ,x
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
40 cmpa #C$CR
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
41 bne L001C
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
42 ldb #E$EOF
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
43 L002A cmpb #E$EOF
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
44 bne L002E
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
45 L002E clrb
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
46 os9 F$Exit
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
47 L0032 clra
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
48 leax u0002,u
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
49 ldy #80
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
50 os9 I$ReadLn
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
51 bcc L003E
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
52 L003E rts
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
53 L003F stx <u0000
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
54 clra
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
55 os9 I$Attach
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
56 bcs L0054
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
57 lda ,x+
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
58 cmpa #',
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
59 beq L003F
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
60 lda ,-x
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
61 cmpa #C$CR
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
62 bne L003F
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
63 rts
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
64 L0054 pshs b
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
65 lda #$02
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
66 ldx <u0000
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
67 ldy #80
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
68 os9 I$WritLn
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
69 puls b
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
70 os9 F$PErr
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
71 rts
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
72
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
73 emod
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
74 eom equ *
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
75 end
307e956c5124 Initial import of iniz.asm
boisy
parents:
diff changeset
76