File: LA.TK of Tape: V50/Multi8/Multi-4
(Source file text)
/LA.TK 12-MAY-80 /THIS LITLE TASK IS CALLED BY CB AFTER A HOOK OPERATION /AND SENDS A STRING TO A VT100 TERMINAL THAT LIGHTS /ONE OF IT'S LED'S ON THE KEYBOARD TO INDICATE TO WHICH /BG THE TERMINAL IS CONNECTED. /IF THE TERMINAL IS NON-VT100 (INDICATED BY TTFCHR NON-ZERO) /A MESSAGE OF THE FORM BG # X IS PUT ON THE TERMINAL KL=4000 /KEYBOARD LOCKED ES=233 /ESCAPE /TASK HEADER: *200 "L^100+"A&3777 200 /1 PAGE TASK ? /PAGE HEADER 0 /TASK CODE: LA, DCA BASE /ENTER WITH BG HOOKED TO IN AC TAD BASE TAD (UTTY / CDF 10 /JUST FOR SURE JMS DEFER / SNA /IS IT DETACHED ? JMP LAEND /YES, GET OUT DCA TTNAME /USE THAT FOR THE OUTPUT ! TAD BASE TAD (UNUMB /WHICH BG IS IT ? JMS DEFER / DCA LNUM /SAVE NEW BG NUMBER AC4000 JMS LSEND /SEND NULL TO CONVERT NAME ACM1 TAD TTNAME /GET ASSOCIATED LIST CDF 0 JMS DEFER TAD (TTFCHR /LOOK AT TTFCHR IN LIST CDF 10 JMS DEFER SNA CLA /WAS IT 0 ? JMP LVT100 /YES, VT100 COMPATIBLE TERMINAL TAD (TAD MESBG /SOME OTHER TERMINAL: NO LAMPS DCA LALOOP /GIVE A MESSAGE ANYWAY TAD LNUM AND C7 TAD (KL "0 /BG NUMBER DCA MESBGN JMP LALOOP LVT100, TAD LNUM / AND C3 TAD (KL "0 /LIGHT LAMP 1-3 DCA LED /STORE THAT IN THE MESSAGE TAD LED DCA LED4 /IN CASE NO LAMP 4 TAD LNUM /GET LAMP 4 WHEN TERMINAL 4-7 AND C4 SNA CLA / JMP LALOOP /NO LAMP 4 TAD (KL "4 DCA LED4 / LALOOP, TAD MESSAG /INCREMENTED INSTRUCTION ! SNA /END OF MESSAGE ? JMP LAEND /YES, QUIT JMS LSEND /SEND CHAR ISZ LALOOP /NEXT CHARACTER JMP LALOOP / LSEND, 0 JMS MONITOR /SEND A CHARACTER CALL / TTNAME, "T^100+"1&3777 JMP .-3 CLA CLL JMP I LSEND LAEND, JMS MONITOR EXIT SWPOUT LNUM, 0 MESSAG, KL ES;KL "< /ANSI MODE KL ES;KL "[ /LED KL "0;KL "; /PS LED, KL "0;KL "; /PS LED4, KL "0;KL "q /PS, END KL ES;KL "[;KL "?;KL "2;"l;0 /VT52 MODE MESBG, IFNDEF GERMAN < KL 215;KL 212;KL 276;KL 240;KL "B;KL "G;KL 240;KL "#;KL 240 > IFDEF GERMAN < KL 215;KL 212;KL 276;KL 240 KL "B;KL "e;KL "r;KL "e;KL "i;KL "c;KL "h;KL 240 > MESBGN, KL "0;KL 215;212;0 $