OU:HELLO.MAC;3/-BF/AU:72.=IN:[12,10]HELLO.MAC;1 \ -2,4 .IDENT /02.1/ ; ; COPYRIGHT (C) 1976, 1978,1979 -24,24 ; VERSION: 02.1 -96 ; JSS000 12-DEC-79 DO STOP/WAIT CORRECTLY ; ; JSS001 10-JAN-80 Hello spawns @lb:[1,2]syslogin.cmd to perform system- ; dependent login processing. The last thing such a ; command file should perform is to invoke the user's ; login file. ; ; JSS002 01-OCT-81 perform ASN XXNN:=HO:/LOGIN % -102,102,/;JSS000/ .MCALL SPWN$ .IF DF S$$TOP .MCALL STSE$ .IFF .MCALL WTSE$ .ENDC -118,,/;JSS002/ HOME: .ASCII %ASN SY:=HO:/LOGIN% HOMLEN=.-HOME -122,122,/;JSS000/ .IF DF S$$TOP EFNDPB: STSE$ EFN1 .IFF EFNDPB: WTSE$ EFN1 .ENDC -246,247,/; JSS001/ .WORD 8. ; .WORD HELP ; -285,290,/; JSS001/ FILNAM: .ASCII /LOGIN.TXT/ ; HELP: .ASCII /HELP.HLP/ ; ; ; THE FOLLOWING FOUR LINES MUST BE KEPT IN ORDER ; LOGINC: .ASCII /@/ ; START OF INDIRECT COMMAND LINE DEVNAM: .ASCII /LB0:/ ; DEVICE FOR [1,2]HELP.TXT AND LOGIN.TXT DIRNAM: .ASCII /[1,2]/ LOGINN: .ASCIZ /SYSLOGIN.CMD/<15> ; ; ; THE PRECEDING FOUR LINES MUST BE KEPT IN ORDER ; SYSLOG: .ASCIZ /@SYSLOGIN.CMD/ ; TELL USER STARTING SYSTEM LOGIN FILE -415,416,/; JSS001/ -751,751,/;JSS000/ DIR$ #EFNDPB ; WAIT UNTIL ASSIGN COMPLETES -752,752,/;JSS002/ MOV #HOME,SPWDPB+S.PWCA ; ADDRESS OF ASN SY:=HO:/LOGIN MOV #HOMLEN,SPWDPB+S.PWCL ; LENGTH OF SAME DIR$ #SPWDPB ; SPAWN COMMAND BCS 170$ ; IF FAILED, FORGET IT DIR$ #EFNDPB ; WAIT FOR IT BR 170$ ; CONTINUE ON -841,841,/; JSS001/ MOV #HLPDSP,R2 ; DATA SET POINTER MOV #12.,10(R2) ; 12 CHARACTERS IN SYSLOGIN.CMD MOV #LOGINN,12(R2) ; SYSLOGIN.CMD NOT HELP.HLP -849,849,/; JSS001/ MOV #SYSLOG,R0 ; SET COMMAND ADDRESS /