.ENABLE SUBSTITUTION .DISABLE DISPLAY .; .; Get the status of a specific terminal. ...AT. is spawned from a task .; directly with the command line @LB:[1,2]PORTSTAT TTnn: .; The status returned describes the status: .; .; bit 1 = set if logged in .; bit 2 = set if terminal attached .; bit 4 = set if terminal allocated .; bit 10 = set if ICP error with specified device .; .ONERR 99 .SETN MTERM 62 .SETN STATS 0 .IF P1 = "" .GOTO 99 .PARSE P1 "TT:" PRE MID UNIT POST .IF UNIT = "" .GOTO 99 .SETN OUNIT 'UNIT' .IF OUNIT > MTERM .GOTO 99 .TESTDEVICE 'P1' .PARSE "," DEV UCW1 UCW2 UCW3 UCW4 REST .TEST REST "NSD" .IF NE 0 .GOTO 99 .TEST REST "ATT" .IF EQ 0 .GOTO 10 .SETN STATS STATS+2 .GOTO 15 .10: .TEST REST "ATU" .IF NE 0 .SETN STATS STATS+2 .15: .TEST REST "ALO" .IF EQ 0 .GOTO 20 .SETN STATS STATS+4 .GOTO 25 .20: .TEST REST "ALU" .IF NE 0 .SETN STATS STATS+4 .25: .TEST UCW2 .IF LE 2 .GOTO 99 .SETN I -2 .SETS LOG UCW2[I:I] .SETN BIT 'LOG' .IF BIT LT 4 .SETN STATS STATS+1 .GOTO 100 .99: .SETN STATS STATS+10 .100: .EXIT STATS