CUR=0 TASK=ECHO1 ECHOLOC=5000 CHANNL=4 STEP=45 PRIME=7757 FIELD CUR%10 INIWT=0 CCB=ECHOLOC *CCB+12 0 TEXT /ECHO1/ ZBLOCK 3 1;2 *CCB+210 START, CLA DCA FIRST DCA RCMSG+3 /ZERO STATUS L1, DCA EXPCT /FIRST TIME, ACCEPT ALL #'S CIF CDF CUR /BREIFLY DISABLE AST TRAPS TAD I LCONFL SZA CLA JMP GOTCON IOF /FIX KILLER BUG!!!!! CIF /GET READY FOR FIELD 0 JMP WAITM MSGWT /PUT OURSELVES IN MSG WAIT JMP L1 /GO SEE IF CONNECT RECEIVED GOTCON, TAD (-BUFSIZ DCA RCMSG+10 /RESET BUFFER SIZE CAL /GET A MESSAGE SENDW NSP RCMSG TAD RCMSG+3 /OK SZA CLA JMP DISC /NO, DISCONNECT CLL /PSEUDO RANDOM, DO WE ISSUE DISCONNECT TAD PSEUD TAD (STEP /PARTICULAR STEP SIZE FROM CONTROL FILE SZL /SKIP IF NO OVERFLOW TAD (-PRIME /OVERFLOW, ADD TO MAKE MOD A PRIME <4095 DCA PSEUD /NEW POINTER FIRST, TAD I PSEUD TAD (3 / ONE OF 32 CHANCE OF QUITTING AND (37 SNA CLA JMP DISC /DISCONNECT TAD EXPCT /CHECK EXPECTED VALUE FOR SEQUENCE CHAR CIA SZA TAD BUFF /WHICH LEADING CHAR DID WE GET? SZA CLA HLT TAD BUFF TAD (7401 SMA IAC AND (377 DCA EXPCT /NEXT EXPECTED VALUE ISZ JOBC1 /COUNT RECEIVED MESSAGES SKP ISZ JOBC0 NOP TAD (TAD I PSEUD DCA FIRST JMP GOTCON BUFSIZ=100 POINTR, 0 COUNTR, 0 JOBC0, 0 JOBC1, 0 PSEUD, 0 LCONFL, CONFLG EXPCT, 0 PAGE L6060, 6060 LPLOP, ERRTXT+3 OOPS, TAD L6060 DCA I LPLOP / CAL /EEROR MESS / SENDW / TTY / ERRMSG DISC, DCA CONFLG CAL SENDW NSP DIMSG JMP START DIMSG, ZBLOCK 3 0 DISCON CHANNL 0 ERRMSG, ZBLOCK 5 ERRTXT, TEXT /ECHO> 00/ RCMSG, ZBLOCK 3 0 RCVMSG CHANNL CDF CUR BUFF 0 BUFF, ZBLOCK 100 *CCB+130 /AST ROUTINE FOR ECHO TASK USRAST, CLL STA TAD CCBRSN /LOOK AT REASON SZA CLA JMP NOTCON /NOT A CONNECT CAL SENDW NSP /EXEC CONNECT CONFIRM COMMAND CCMSG TAD CCBSTA CLL RTL SNL CLA JMP NOTCON /NOT CONNECTED TAD (START /RESET MAIN LINE PC DCA CCBPC IAC /NOW SET CONNECTED FLAG NOTCON, DCA CONFLG JMP CCBRTN /EXIT AST CCMSG, ZBLOCK 3 CCSTA, 0 CONCNF CHANNL 0 CONFLG, 0 PAGE