changeset 2424:0e88aedc428b

login now exits when receiving S$HUP
author boisy
date Fri, 29 Jan 2010 17:11:46 +0000
parents 8194ea2e9906
children 375bbafa44fa
files level1/cmds/login.asm
diffstat 1 files changed, 8 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/level1/cmds/login.asm	Wed Jan 27 14:36:46 2010 +0000
+++ b/level1/cmds/login.asm	Fri Jan 29 17:11:46 2010 +0000
@@ -15,6 +15,9 @@
 *  18      2002/07/20  Boisy G. Pitre
 * Changed icpt routine rts to rti, put in conditionals for Level One
 * not to execute the os9 F$SUser command.
+*
+*  19      2010/01/29  Boisy G. Pitre
+* Changed icpt routine to honor the S$HUP signal and exit
 
          nam   Login
          ttl   Timeshare login utility
@@ -28,7 +31,7 @@
 tylg     set   Prgrm+Objct   
 atrv     set   ReEnt+rev
 rev      set   $00
-edition  set   18
+edition  set   19
 
          mod   eom,name,tylg,atrv,start,size
 
@@ -107,7 +110,10 @@
 
 root     fcc   "...... "
 
-IcptRtn  rti			note, was rts in original code
+IcptRtn
+         cmpb  #S$HUP
+         lbeq  Exit
+         rti			note, was rts in original code
 
 * Entry: X = pointer to start of nul terminated string
 * Exit:  D = length of string