# HG changeset patch
# User Boisy Pitre <boisy.pitre@nuance.com>
# Date 1359718441 21600
# Node ID 439531b77983c7d93e15d2ed3ffd96ed52bced68
# Parent  a52a60c66f5a7d5dad93c875353c6b41cbc22107
Updated with stack value

diff -r a52a60c66f5a -r 439531b77983 level1/cmds/telnet.as
--- 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