Directory of image this file is from
This file as a plain text file
L*()BTC U/W-FOCAL:12DEMO15.10.78?MB.BJT :18"THIS IS A PDP-12 DEMO PROGRAM"!!!;V -1?M?CUBTT "IT BEGINS BY DISPLAYING ANY CHANNEL OF THE A/D CONVERTER IN THE MQ."!?MC=B^T "THE CHANNEL IS SELECTED BY THE SETTING OF THE RIGHT SWITCHES AND THE"!?M?D"B(T "LOOP S INTERRUPTED BY HITTING ANY KEY ON THE TERMINAL."!!;S T=.5?MD4B2S FMQ(FADC(FRS()));J T;A !:-1?M?D7B<?ME CFT "NOW SET THE RELAYS USING THE LEFT SWITCHES - HIT ANY KEY TO CONTINUE"!?M?E,CPK FLS();J .8;A :-1?M?FSDJT "NEXT EACH OF THE 16 A/D CHANNELS WILL BE INTEROGATED AND DISPLAYED"!?M?F:DTT "AND THE STATUS OF THE 6 SENSE SWITCHES AND THE 12 SENSE LINES WILL" ?M?G D^T "ALSO BE SAMPLED. THE DISPLAY HAS THE FOLLOWING FORMAT:"!!"LEFT "?MHFD(T "SWITCHES":30"CHANNELS 0-7"!"RIGHT SWITCHES":30"CHANNELS 10-17"!"SENSE?MH,D2T " SWITCHES":30"EXTERNAL LEVELS"!!"THE DISPLAY REPEATS AS BEFORE":-1?M?H?D<T %4,FLS()" ";F T=,7;T F DC(T)?MIREFT !!FRS()" ";F T=T,15;T FADC(T)?MI-EPT %1!!;F T=,5;T FSS(T);N;T " ";F T=,11;T FXL(T)?MI;EZH -4,1000,;J .6;A :-1?MJ"FJT "FINALLY WE WILL DEMONSTRATE THE KW12 CLOCK FUNCTIONS. ENTER A TIME"!?MKIFTT "PERIOD OF A SECOND OR SO AND THEN WATCH AS T E ACCUMULATED TIME IS"!?M?K0F^T "DISPLAYED (UNTIL YOU INTERRUPT THE PROGRAM). YOU CAN SELECT A DIF-"!?MLVF(A "FERENT TIME PERIOD AND RE-RUN GROUP 3. PERIOD= "%3 T,!;H -4,T*1000?ML F2S T=FTIM(-1)?MF<H;T FTIM();J .6?M?6?L D 12DEMO;L S 12DEMO;E?M?1,1;SET C(I)=- ?;CLEAR OUT PREVIOUS CHARACTERS?M?M0FTIF (255-C=FIN()),.3;IF (141-C),1.8;SET C(I=I+1)=-C;GO .2?MNPF^SET C(I)=- ?,I=I-FSGN(I);IF Note: Lines longer than 256 characters were wrapped