Mercurial > hg > Members > kono > nitros9-code

changeset 2800:439531b77983 lwtools-port

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Updated with stack value
author Boisy Pitre <boisy.pitre@nuance.com>
date Fri, 01 Feb 2013 05:34:01 -0600
parents a52a60c66f5a
children 9ffe2daeb011
files level1/cmds/telnet.as
diffstat 1 files changed, 9 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/level1/cmds/telnet.as	Sun Jan 27 18:04:11 2013 -0600
+++ b/level1/cmds/telnet.as	Fri Feb 01 05:34:01 2013 -0600
@@ -44,11 +44,6 @@
                nam       telnet
                ttl       program module
 
-tylg           set       $01     Prgrm+Objct
-atrv           set       $80+rev ReEnt+rev
-rev            set       $00
-edition        set       5
-
                section   .bss
 connected      rmb       1
 netdatardy     rmb       1
@@ -73,7 +68,14 @@
 telctrlbuf     rmb       3
                endsect
 
-*               psect     telnet_a,tylg,atrv,edition,200,start
+               section    __os9
+type           equ        $01
+lang           equ        $01
+attr           equ        $80
+rev            equ        $05
+stack          equ        200
+               endsect
+
                section   code
 
 TELESCAPE      equ       'Y-$40              * CTRL-Y
@@ -125,6 +127,7 @@
                
 peerclosed
                clr       connected,u
+               lda       #1
                leax      peerclosm,pcr
                ldy       #peerclosml
                os9       I$WritLn