-2,2 .IDENT /WECO/ .Enabl lc -96 ; MRS01 5-NOV-79 ALLOW WIZARD ACCESS WHEN LOGINS ARE DISABLED ;MRS01 ; ; Sbr01 5-Sep-80 Look for LB:[1,2]SYSLOGIN.CMD at Login. -117,117 ASSN: .ASCIZ %ASN XXNN:=SY:/LOGIN%<33> ;sbr01 -138,148 ACCT: .ASCIZ /Account or Name: / ;sbr01 PSWD: .ASCIZ /Password: / MS1: .ASCII <15><12>%Odprsx(60) RSX-11M BL% ;MRS01 MS1A: .ASCIZ % Multi-User System%<12> MS2: .BLKB 16. .ASCII /Logged on terminal / MS2A: .ASCIZ /XXXX:/ MS3: .ASCIZ /Good morning/ MS4: .ASCIZ /Good afternoon/ MS5: .ASCIZ / MS6: .ASCIZ /What the hell are you doing up at this hour?/ -242,246 ; modify for LB:[1,2]SYSLOGIN.CMD LOGDSP: .WORD 4 ; .WORD DEVNAM ; .WORD 5. ; .WORD DIRNAM ; .WORD 12. ; -289,292 ; Look for system login procedure ;sbr01 LOGINC: .ASCIZ /@LB:[1,2]SYSLOGIN.CMD/<15> ; ;sbr01 LOGINN=LOGINC+9. LOGINU: .ASCII /[000,000]/ ; USER LOGIN.CMD UFD TEMPLATE MONTH: .ASCII /JanFebMarAprMayJunJulAugSepOctNovDec/ -442,444 ; BIT #FE.NLG,$FMASK ; ARE LOGINS DISABLED? ;MRS01 ; BEQ 701$ ; NO ;MRS01 ; JMP ERR7 ; YES ;MRS01 -465,466 ; BCC 41$ ; OKAY ;MRS01 BCC 4000$ ; OKAY ;MRS01 JMP ERR1 ; NO, SYNTAX ERROR 4000$: CMP #1,GRP ; CHECK IF THE WIZARD IS THERE. ;MRS01 BNE 4001$ ; NOT POSSIBLE ;MRS01 CMP #2,MEM ; POSSIBLE - CHECK FURTHER ;MRS01 BEQ 402$ ; IT IS HIM - DO NOT CHECK LOGIN ENAB ;MRS01 4001$: BIT #FE.NLG,$FMASK ; ARE LOGINS DISABLED ;MRS01 BEQ 402$ ; NO - OK TO CONTINUE ;MRS01 JMP ERR7 ; SAY - NO NO ;MRS01 402$: ; REFERENCE LABEL ;MRS01 -784,785 180$: -837,837 ; EXECUTE System LOGIN.CMD IF IT EXISTS -844,850 BCS 211$ ; THIS IS STRANGE ERROR CALL .FIND ; NOW LOOK FOR THAT FILE BCS 211$ ; BR IF NOT FOUND ; He doesnt have to know! ;sbr01 ; MOV #IO.WVB,ODPB+2 ; SET FUNCTION ; MOV #'+,ODPB+Q.IOPL+4 ; SET CARRIAGE CONTROL ; MOV #LOGINC,R0 ; SET COMMAND ADDRESS ; CALL WRIT ; PRINT COMMAND -867 211$: mov $tktcb,r0 ; get my tcb ;sbr01 mov t.ucb(r0),r1 ; get ti: ucb address ;sbr01 bic #u2.slv,u.cw2(r1); Unslave terminal only when no ;sbr01 ; System login file present. ;sbr01 br 210$ ; proceed ;sbr01 /