Mercurial > hg > Members > kono > nitros9-code

comparison level1/cmds/deiniz.asm @ 237:6a8f855fb173

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Moved from level2/CMDS
author boisy
date Wed, 17 Jul 2002 15:23:28 +0000
parents
children 064244c52232
comparison
equal deleted inserted replaced
236:3d67d211f12e 237:6a8f855fb173
1 ********************************************************************
2 * DeIniz - Deinitialize a device
3 *
4 * $Id$
5 *
6 * Ed. Comments Who YY/MM/DD
7 * ------------------------------------------------------------------
8 * 3 From OS-9 Level Two Vr. 2.00.01
9
10 nam DeIniz
11 ttl Deinitialize a device
12
13 * Disassembled 98/09/10 22:57:23 by Disasm v1.6 (C) 1988 by RML
14
15 ifp1
16 use defsfile
17 endc
18
19 tylg set Prgrm+Objct
20 atrv set ReEnt+rev
21 rev set $01
22 edition set 3
23
24 mod eom,name,tylg,atrv,start,size
25 u0000 rmb 2
26 u0002 rmb 330
27 size equ .
28
29 name fcs /DeIniz/
30 fcb edition
31
32 start lda ,x
33 cmpa #C$CR
34 beq L0020
35 bsr L0041
36 bra L0030
37 L001E bsr L0041
38 L0020 bsr L0034
39 bcs L002C
40 lda ,x
41 cmpa #C$CR
42 bne L001E
43 ldb #E$EOF
44 L002C cmpb #E$EOF
45 bne L0030
46 L0030 clrb
47 os9 F$Exit
48 L0034 clra
49 leax u0002,u
50 ldy #80
51 os9 I$ReadLn
52 bcc L0040
53 L0040 rts
54 L0041 lda #C$SPAC
55 L0043 cmpa ,x+
56 beq L0043
57 leax -1,x
58 stx <u0000
59 lda #PDELIM
60 cmpa ,x
61 bne L0053
62 leax 1,x
63 L0053 clra
64 os9 I$Attach
65 bcs L0070
66 os9 I$Detach
67 bcs L0070
68 os9 I$Detach
69 bcs L0070
70 lda ,x+
71 cmpa #C$COMA
72 beq L0041
73 lda ,-x
74 cmpa #C$CR
75 bne L0041
76 rts
77 L0070 pshs b
78 lda #$02
79 ldx <u0000
80 ldy #80
81 os9 I$WritLn
82 puls b
83 os9 F$PErr
84 rts
85
86 emod
87 eom equ *
88 end