Mercurial > hg > Members > kono > nitros9-code

comparison level1/cmds/dw.asm @ 2286:d3c1d1258b42

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Updated from Aaron's sources
author boisy
date Tue, 29 Dec 2009 02:34:05 +0000
parents 2a889a511f0a
children
comparison
equal deleted inserted replaced
2285:7948792bbab8 2286:d3c1d1258b42
66 66
67 * save parameters for later 67 * save parameters for later
68 pshs d 68 pshs d
69 pshs x 69 pshs x
70 70
71 * open port 71 * see if we can find a port to use
72 72
73 lda #UPDAT. get mode for modem path 73 * first setup pbuffer
74 leax <defport,pc point to modem path 74 leax pbuffer,u
75 os9 I$Open open it 75 lda #47
76 lbcs errex1 If error, exit with it 76 sta ,x+
77 sta portpath,u save path to modem 77 lda #85
78 sta ,x+
79 lda #48
80 sta ,x+
81 lda #13
82 sta ,x
83
84 tryport lda #UPDAT. get mode for modem path
85 leax pbuffer,u point to modem path
86 os9 I$Open open it
87 bcc gotport
78 88
89 cmpb #250 ;in use?
90 lbne errex1 ;other error, bail out
91 leax pbuffer,u
92 lda 2,x
93 inca
94 sta 2,x
95 bra tryport
96
97 gotport sta portpath,u
98
99
79 * write our name 100 * write our name
80 ldy #0001 101 ldy #0001
81 leax <name,pc 102 leax <name,pc
82 wrnlp lda ,x+ 103 wrnlp lda ,x+
83 bmi wrnout ;this is the last char 104 bmi wrnout ;this is the last char