Digital PDFs
Documents
Guest
Register
Log In
AH-9031C-MC
July 1982
29 pages
Original
1.6MB
view
download
OCR Version
1.3MB
view
download
Document:
CZDZBC0 DZ11 OVERLAY INTERPRO JUL 1982 bw
Order Number:
AH-9031C-MC
Revision:
000
Pages:
29
Original Filename:
CZDZBC0__DZ11__OVERLAY_INTERPRO__AH-9031C-MC__JUL_1982_bw.pdf
OCR Text
OVERLAY INTERPRO €ZDZBCO = : TR ICHE "1 - (ISR OF "l Weve awiuce 8 MACY11 30A(1052) 0211 ITEP OVERLAY CZ028C.P1N 10-NOV-81 11:13 10-NOV=-81 11:23 1 PAGE 2 IDENTIFICATION PRODUCT CODE: AC-8785C=MC PRODUCT NAME: €2D2BCO DZ11 OVERLAY FOR INTERPROCESSOR TEST PROGRAM PROGRAM DATE: FEBRUAURY 1982 MAINTAINER: DIAGNOSTICS AUTHORS: goflndeSEr JERRYL PAYNE THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT 8Y DIGITAL EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL. COPYRIGHT (C) 1976, 1982 BY DIGITAL EQUIPMENT CORPORATION SEaQ 1 €20Z8C.P11 1.0 10-NOV-81 11:13 ABSTRACT. THIS PROGRAM IS TESIGNED AS A MAINTENANCE AID FOR FIELD SERVICE PERSONEL. 1T WILL VERIFY THE PROPER OPERATION OF A COMPLETE COMMUNICATION LINK FROM ONE PDP-11 SYSTEM TO ANOTHER OR TO A COMMUNICATION TEST CENTER. THIS PROGRAM MUST BE USED IN CONJUNCTION WITH THE INTERPROCESSOR TEST PROGRAM(DZITP) ON A PDP-11 SYSTEM WITH A DL=11 INTERFACE. 2.0 REQUIREMENTS. 2.1 EQUIPMENT A. B. 2.2 PDP-11 SYSTEM WITH 4K OF CORE. A DZ11 COMMUNICATION INTERFACE. STORAGE. 4K OF CORE 3.0 LOADING PROCEDURE 4.0 OPERATING PROCEDURES. THIS PROGRAM IS IN ABSOLUTE FORMAT. THE ABS LOADER MUST BE USED TO LOAD THE PROGRAM. A. TWO METHODS OF ENTERING PARAMETERS ARE PROVIDED B. CONSOLE DIALOGUE PARAMETER INPUT (CURRENT VALUES FJR PARAMETERS ARE FOUND IN OVERLAY) 1. LOAD ADDRESS 200 AND START TO ENTER PARAMS FROM CONSOLE TTY, PROCEED TO SECTION B. 2. LOAD ADDRESS 200 AND SET SWITCH REGISTER BIT 15 BEFORE STARTING TO ENTER PARAMS FROM CONSOLE SWITCHES, PROCEED TO SECT.ON C. *THE PROGRAM MAY BE RESTARTED AT LOC 204 (ONCE PARAMETERS HAVE ALREADY BEEN SELECTED) 1. THE PROGRAM WILL TYPEOUT THE NAME OF THE VARIABLE OVERLAY. A. IF YOU WISH TO SETUP JUST THE INDICATED OVERLAY, TYPE A CARAGE RETURN B. C. IF YOU WISH TO SETUP A DN11, TYPE IN DN. IF YOU WISH TO SETUP A DM11BB, TYPE IN DMB. IF DN DR DMB WAS TYPED IN STEP 1 _ABOVE THEN THE BUS ADDRESS VECTOR ETC. REFERED TO IN STEPS 2 THRU 7, PERTAIN TO THE DNi1 OR DMBB. 2. THE PROGRAM WILL TYPE THE DEFAULT BUS ADDRESS OF THE INTERFACE UNDER TEST. A. B. TYPE A CAR. RETURN TO USE DEFAULT BUS ADDRESS TYPEIN ACTUAL BUS ADDRESS 3. THE PROGRAM WILL TYPE OUT THE DEFAULT VECTOR ADDRESS A. TYPE A CAR. RETURN TO USE DEFAULT ADDRESS B. TYPEIN ACTUAL VECTOR ADDRESS 4. THE PROGRAM WILL TYPE OUT THE DEFAULT INTERFACE PRIORITY NOTE: 200=PRIO 4, 240=PRIO 5, 300=PRIO 6, ETC. €Z028C.P11 SEQ 3 10-NOV-81 11:13 A. 8. S. TYPE A CAR. RETURN TO USE DEFAULT VALUE TYPEIN ACTUAL VALUE THE PROGRAM WILL TYPEOUT THE DEFAULT VALUE OF PARAMA1 IF REQUIRED BY THE ISR.(SEE SECT. 10.0 IN OVERLAY LISTING FOR PARAMETER DESCRIPTION) A. B. TYPE A CAR. RETURN TO USE DEFAULT VALUE TYPEIN ACTUAL VALUE 6. THE PROGRAM WILL TYPEOUT THE DEFAULT VALUE OF PARAMA? 7. THE PROGRAM WILL TYPEOUT THE DEFAULT VALUE OF PARAMA3 IF REQUIRED BY THE ISR. A. TYPE A CAR., RETURN TO USE DEFAULT VALUE ENTER ACTUAL VALUE B. IF REQUIRED BY THE OVERLAY. A. TYPE A CAR. RETURN TO USE DEFAULT VALUE THE DN=11 WILL USE PARAM #3 AS THE # TO DIAL. IF USING A MODEM WITHOUT AUTOMATIC HANDSHAKING, THE NUMBER MUST TERMINATE WITH A B. 8. 9. "END=OF ~NUMBER'* CHARACTER (:). ENTER ACTUAL VALUE. THE PROGRAM WILL RETURN TO STEP B1 IF THIS SETUP WAS FOR DN11 OR DM1188. THE PROGRAM WILL REQUEST THAT SWITCH REG IS TER BE SET. A. SETUP SWITCH REGISTER AS SPECIFI ED IN STEP D. AND TYPE A CAR. RETURN. NOTE: IF ANY OF THE ABOVE ITEMS 2 THRU 7 WERE CHANGED BY ENTERING NEW VALUES,THE NEW VALUE BECOMES THE DEFAULT VALUE FOR SUBSEQUENT RESTARTS OF THE PROGRAM. C2028C.P11 10-NOV-81 11:13 C. MANUAL PARAMETER INPUT FROM SWITCH REGISTER 1. THE PROGRAM HALTS FOR ISR(INTERFACE SERVICE ROUTINE) SPECIFICATION SWR14=SETUP DM-118 ISR SWR13=SETUP DN=11 ISR SWR=000000=SETUP VARIABLE ISR 2. THE FOLLOWING HALTS ARE REPEATED FOR EACH ISR SPECIFIED. SETUP SEQUENCE IS: ON11,DM11-88 THEN VARIABLE OVERLAY. (EACH ENTRY SET SWICHES THEN HIT CONTINUE.) A. B. C. D. E. F. 3. HALT FOR BUS ADDRESS OF INTERFACE HALT FOR VECTOR ADDRESS OF INTERFACE HALT FOR PRIORITY OF INTERFACE HALT FOR INTERFACE PARAM #1 (SEE SECT. 10.0 IN OVERLAY LISTING FOR PARAMETER DESCRIPTION) HALT FOR INTERFACE PARAM #2 (DN11 AND DMBB PARAMETERS ARE DISCUSSED IN SECT. 10.0 OF THE MONITOR. GO BACK TO STEP A IF THIS SETUP WAS FOR DN OR DMB. HALT FOR OPERATIONAL SWITCH SETTINGS. (SEE STEP D.) A. PRESS CONTINUE TO START TESTING BEFORE ATTEMPTING TO RUN THIS PROGRAM, THE OPERATOR MUST ACCERTAIN THE COMPLETE COMMUNICATION LOOP AND PROCEEDURES TO BE USED, INCLUDIMS THE TYPE OF MODEMS, THE TYPE OF INTERFACE BEING USED AT THE OTHER CPU AND THE MODES OF OPERATION, DATA AND PARAMETERS TO BE USED AT EACH CPU. THIS WILL REQUIRED VOCAL COMMUNICATION WITH THE OPERATOR AT THE OTHER CPU UNLESS ITS CONFIGURATION AND OPERATION ARE FIXED AS A TEST CENTER. AFTER DETERMINING THAT THE EQUIPMENTS ARE COMPATIBLE AND AGREEING ON THE MODE AND VARIABLE PARAMETERS TO BE USED, THE SYSTEM WHICH IS TO RECEIVE DATA FIRST SHOULD BE LOADED AND STARTED. IF THE MODEM BEING USED ON THIS SYSTEM HAS AN AUTOMATIC ANSWER FEATURE, IT SHOULD BE ENABLED. THE SYSTEM WHICH IS TO TRANSMIT FIRST SHOULD THEN BE LOADED AND STARTED AND THE CONNECTION ESTABLISHED EITHER MANUALLY OR AUTOMATICALLY (VIA DN-11). SEQ 4 €z02BC.P11 10-NOV-81 11:13 D. OPERATIONAL SWITCH SETTINGS. SW15=1 HALT ON_ERROR SW14=1 SINGLE PASS SW14 HAS NO EFFECT IF SW04=0 =1 INHIBIT ERROR TYPEQUTS Swi2=1 INH%B&T ALL TYPEQUTS EXCEPT ERRORS IF SW12=0 AND SW04=1 END PASS IS TYPED AND TRANSMITTED/RECEIVED DATA IS TYPED. SW11=1 USE PREVIOUSLY SPECIFIED DATA SW10=1 DATA SELECT (WITH SW09) SW09=1 DATA SELECT (WITH SW10) 00=1 01=1 10=1 11=1 GET DATA FROM OPERATOR TEST MESSAGE #1 (SA QUICK BROWN FOX) TEST MESSAGE #2 ($8 NUMERICS) TEST MESSAGE #3 (SC COMTEST/QUICK BROWN FOX/NUMERICS) TRANSMIT RECEIVED DATA (INTERNAL LOOPBACK MODE) SW05=1 MONITOR RECEIVED DATA ON _CONSOLE TTY.* * IN MANY CASES, NOT ALL DATA WILL APPEAR ON THE CONSOLE TTY. THIS IS ESPECIALLY TRUE WHEN THE COMM INTERFACE IS RUNNING AT A FASTER BAUD THAN THE CONSOLE, BUT EVEN AT EQUAL OR SLOWER BAUDS, ALL CHARACTERS MAY NOT APPEAR ON THE CONSOLE. SW04=1 RETURN TO MONITOR FOR END PASS WHEN SW04=0 PROGRAM LOOPS IN THE OVERLAY NEVER RETURNING TO THE MONITOR. SW03=1 SW02=1 SW01=1 SW00=1 INTERNAL LOOPBACK MODE EXTERNAL LOOPBACK MODE ONE-WAY~IN MODE ONE-WAY-0UT MODE €2028C.P11 SEQ 6 10-NOV-81 11:13 THIS PROGRAM HAS BEEN MODIFIED TO RUN ON A PROCESSOR WITH OR WITHOUT A HARDWARE SWITCH REGISTER. WHEN FIRST EXECUTED THE PROGRAM TESTS THE EXISTENCE OF A HARDWARE SWITCH REGISTER. IF_NOT FOUND A SOFTWARE SWITCH REGISTER LOCATION (SWREG=LOC. 176 ) IS DEFAULTED TO. IF THIS IS THE CASE, UPON EXECUTION THE CONTENTS OF THE SWREG ARE DUMPED IN OCTAL ON fHE CONSOLE TTY AND ANY CHANGES ARE REQUESTED (1E) SWR=XXXXXX NEW= POSSIBLE RESPONSES ARE: 1. 2. <CR> 6 DIGITS 0-7 3. “V IF NO CHANGES ARE TO BE MADE TO REPRESENT IN OCTAL THE NEW SWITCH REGISTER VALUE ;LAST DIGIT FOLLOWED BY <CR>. TO ALLOW REENTERING VALUE IF ERROR IS COMMITTED KEYING IN SWREG VALUE. BUILT INTO THE PROGRAM IS THE ABILITY TO DYNAMICALLY CHANGE THE CONTENTS OF SWREG DURING PROGRAM EXECUTION. BY STRIKING “6 (CNTL G) ON CONSOLE TTY THE OPERATOR SETS A REQUEST FLAG TO CHANGE THE CONTENTS OF SWREG, WHICH IS PROCESSED IN KEY AREAS OF THE PROGRAM CODE (IE) ERROR ROUTINES, AFTER HALTS END OF PASS, AND OTHER APPLICABLE AREAS. IF OPERATOR SPECIFIED DATA WAS INDICATED, THE PROGRAM WILL TYPE A REQUEST FOR THE DATA. DATA MAY BE ENTERED AS ASCII CHARACTERS OR OCTAL CODE. TYPE IN THE DATA TERMINATED WITH A CR. OCTAL CODE MAY BE ENTERED BY TYPING AN “(UP ARROW) FOLLOWED BY THE OCTAL CODE (IN THE RANGE 000 TO 377) SEPERATED BY SPACES AND TERMINATED BY “(UP ARROW). I.E. ABCD* 000 123 377~ EFG (CAR.RETURN) A TYPICAL SWITCH SETTING FOR HALF-DUPLEX=003150 THIS SETTING USES INTERNAL LOOPBACK MODE, LOOPS IN OVERLAY, MONITORS TRANSMITTED AND RECEIVED DATA ON THE CONSOLE TTY, AND TESTS RECEIVED DATA USING TEST MESSAGE #3. A TYPICAL SWITCH SETTING FOR FULL-DUPLEX=003144 THIS SETTING IS THE SAME AS ABOVE EXCEPT IT USES THE EXTERNAL LOOPBACK MODE. ALL STANDARD MESSAGES(TEST MESSAGES 1-3) ARE PRECEDED BY 2 FILL CHARACTERS(177), AND ARE F9§LOUED BY A CR(015), LF(012) ,RECEIVE TERMINATING CHARACI1ER(001) & FILLS(177), AND A TRANSMIT FERMINATING CHARACTER(000). DURING TRANSMISSfON, WHEN A 000 CHARACTER IS SEEN THE TRANSMISSION IS STOPPED.DURING RECEPTION, WHEN A 001 CHARACTER IS RECEIVED, THE RECEIVER IS SHUT OFF, IF THE MESSAGE WAS INPUTED BY THE OPERATER, THE TERMINATING CHARACTERS ARE ADDED. €Z0zBC.P11 SEQ 7 10-NOV-81 11:13 TEST MODES INTERNAL LOOPBACK MODE : 4. THE OVERLAY WAITS TO RECEIVE A MESSAGE (TERMINATED BY <001>) VERFIES THE DATA AGAINST THE DATA SELECTED BY SW09 AND SW10(Sw7=0) TRANSMIT THE DATA SELECTED BY SW09 AND SW10 (Sw8=0) 0 TRANSMIT THE RECEIVED DATA (Sw8=1) RETURNS TO MONITOR FOR '‘END PASS'' (SWé=1) OR GO TO STEP 1. (SWé=0) EXTERNAL LOOPBACK MODE THE _OVERLAY SETS REOUEST TO SEND WAIT FOR CLEAR TO SEND TRANSMITS THE SELECTED DATA RESETS REQUEST TO_SEND WAIT FOR MESSAGE TO BE_RECEIVED VERIFIES THE DATA (SW07=0° RETURNS TO MONITOR FOR 'EN. PASS''. GO TO STEP 1(SW04=0) (SW04=1) OR ONE-WAY=IN MODE THE OVERLAY WAITS FOR_MESSAGE TO BE RECEIVED. VERIFIES THE DATA(SW07=0) RETURNS TO MONITOR FOR “END PASS''(SW04=1) OR GO TO STEP 1 (Sw04=0) ONE-WAY-0UT MODE 3. 4. THE_OVERLAY SETS REQUEST TO SEND WAITS FOR CLEAR TOSEND TRANSMITS SELECTED . RETURNS TO"MONITOR POR"END PASSTM. (SW04=1) OR GO TO STEP1 (SW04=0) THE OVERLAY IS THEN ENTERED AND A CONNECTION ESTABLISHED EITHER MANUALLY OR AUTOMATICALLY. IF _ONE-WAY=IN OR INTERNAL LOOPBAZK MODES ARE SELECTED. THE OVERLAY WILL SET DATA TERMINAL READY AND WAIT FOR DATA. IF ONE-WAY-OUT OR EXTERNAL LOCPBACK MODES WERE SELECTED. THE OVERLAY WILL SET DATA TERMINAL READY AND REQUEST TO SEND. mingfi?%x#m’ THEN WAIT FO? CLEAR TO SEND BEFORE ATTEMPTING TO THE PROGRAM WILL PRINTOUT A ‘WAITING FOR CLEAR TO SEND' MESSAGE AND THE CONTENTS OF THE XMIT CSR EVERY 60 SECS. UNTIL CLEAR TO SEND IS ASSERTED. €2028C.P11 10-NOV-81 11:13 F. IF SW04=0 THE OVERLAY WILL CONTINUE TO TRANSMIT/RECEIVE DATA. IF SW04=1 THE OVERLAY WILL RETURN TO THE MONITOR AND TYPE "END PASS'’. IF BOTH SW04=1 AND SW14=1, THE PROGRAM WILL REQUEST ?EgtlassngCE PARAMS AFTER ONE PASS OF THE SELECTED TEST EXECUTION MAY BE INTERRUPTED BY TYPING THE FOLLOWING CHARACTERS ON THE CONSOLE TTY, LINE FEED = RESTART PROGRAM AT LOCATION 200. QUESTION MARK = PRINTOUT FIRST 8 WORDS OF INPUT BUFFER.(ASCII) THEN TYPE FITHER: *WXXXXXX *BXXXXXX *C TO PRINTOUT THE 8 WORDS AT LOC XXXXXX. TO PRINTOUT THE AFTER LOC XXXXXX. 16 BYTES TO CONTINUE PROGRAM MUST BE RESTARTED AT 200 AFTER PRINTING. CARRIAGE RETURN = RESTART AT REQUEST FOR NEW OPERATIONAL SWITCHES. 5.0 PROGRAM AND/OR OPERATOR ACTION IF THE OPERATOR WISHES TO MANUALY EXAMINE THE TRANSMIT OR RECEIVE BUFFERS, DO THE FOLLOWING: TO FIND THE STARTING ADDRESS OF THE RECEIVE BUFFER, LOAD ADDRESS 11020 AND EXAMINE. TO FIND THE STARTING ADDRESS OF THE TRANSMIT BUFFER, LOAD ADDRESS 11022 AND EXAMINE. 5.1 NORMAL HALTS 6.0 ERRORS 6.1 ERROR REPORTING SEE SECTION 4. THE ONLY ERROR REPORT FROM THE CONTROL PROGRAM OCCURS IF THE INTERFACE SPECIFIED IS NOT LOADED. IF DATA IS RECEIVED AND SWITCH 7 (NO DATA COMPARE) IS RESET, THE DATA WILL BE COMPARED AGAINST THE PRESELECTED DATA AFTER A LINE FEED CHARACTER IS RECEIVED, IF THERE IS A MISMATCH, THE FOLLOWING ERROR REPORT IS PRINTED: RECEIVED DATA=RRRRRR DATA SHOULD BE TTTTITT DATA COMPARE ERROR; BAD DATA=BBB GOOD DATA=GGG . - €Zo28C.P11 SEQ@ 9 10-NOV-81 11:13 WHERE RRRRRR IS THE RECEIVE BUFFER_(UP TO 512 CHARACTERS) TTTTIT IS THE TRANSMIT BUFFER (UP TO 512 CHARACTERS) B88 IS THE BAD DATA CHARACTER GGG IS THE GOOD DATA CHARACTER IF THE INTERFACE DETECTS A DATA ERROR, THE FOLLOWING WILL BE PRINTED BEFORE THE DATA IS COMPARED: THERE WAS A RECEIVER ERROR. RECEIVER DATA REGISTER =XXXXXX WHERE XXXXXX IS THE CONTENTS OF THE RECEIVER DATA REGISTER THE LOW BYTE IS THE DATA, AND THE HIGH BYTE IS THE ERROR BITS. IF A RECEIVE TERMINATING CHARACTER<001> IS NOT DETECTED WITHIN 512 CHARACTERS A 'BUFFER FULL'' PRINTOUT WILL OCCUR. 7.0 RESTRICTIONS THE OPERATION OF THIS PROGRAM REQUIRES COORDINATION BETWEEN THE OPERATOR AND THE OPERATOR OF ANOTHER PDP=11 SYSTEM UNLESS ONE OF THE SYSTEMS IS ALWAYS OPERATING IN A FIXED MODE. THE FOLLOWING TABLE LISTS THE VALID COMBINATIONS: cPU M ONE-WAY-0UT ONE-WAY=IN EXTERNAL-LOOPBACK INTERNAL -L OOPBACK EXTERNAL-LOOPBACK CPU #2 ONE-WAY=IN ONE=WAY=-0UT INTERNAL -LOOPBACK EXTERNAL-LOOPBACK EXTERNAL-LOOPBACK (FULL DUPLEX) WHEN THE COMMUNICATION LINK INVOLVES MODEMS THE FOLLOWING RESTRICTION APPLY: IF RUNNING IN FULL DUPLEX MODE BOTH SYSTEMS MUST BE IN EXTERNAL LOOP BACK MODE. EOTH SYSTEMS SHOULD BE RUNNING IDENTICAL ROUTIN:S. XAMPLE: SWITCHES 14,13,7.,4 SHOULD BE THE SAME ON BOTH CPU S IF PROGRAM IS WAITING IN A SCAN ROUTINE AND TYPES OUT A 'WAITING MESSAGE'',IF AN INCOMING MESSAGE STARTS DURING THE TYPE OUT, IT WILL BE LOST BECAUSE THE TYPEOUT PRIORITY IS AT LEVEL 7. THIS WILL RESULT IN OVERRUN OR SILO OVER- RUN ERRORS, DEPENDING ON THE DEVICE.TO AVOID THIS SITUATION RUN WITH SWITCH 13 UP. IF OVERRUN DOES OCCURE DURING A TYPEOUT THE PROGRAM SHOULD BE RESTARTED. IF USING AN ASYNCRONOUS DEVICE, MODEMS AND THE MAYNARD TEST STATION AND INITALIZE DOES NOT CLEAR THE CONNECTION (EXAMPLE THE DJ11) IF THE PROGRAM IS RESTARTED IN T+E MIDDLE OF A MESSAGE AT LOC 204 OR BY HITTING CR AN IMMEDEATE ERROR MESSAGE FROM MAYNARD WILL BE RE- SEQ 10 €Z028C.P11 10-NOV-81 11:13 CEIVED. THIS 1S BECAUSE THE TEST STATION IS STILL LOOKING FOR THE REST OF THE INTERUPTED MESSAGE. TO AVOID THIS ERROR ., RESTART PROGRAM ONLY AT THE END OF THE MESSAGE CURRENFLY BEING TRANSMITTED. 8.0 MISCELLANEOUS ITEP WAS CHECKED OUT USING THE FOLLOWING BELL TELEPHONE MODEMS. 201A (HALF=-DUPLEX SYNCHRONOUS 2000 BAUD) 202C (HALF=-DUPLEX ASYNCHRONOUS 1200 BAUD) 103A (FULL=-DUPLEX ASYNCHRONOUS 110 BAUD) 9.0 9.1 PROGRAM DESCRIPTION THE DZ11 INTERFACE SERVICE PARAMS ARE SETUP, AS SPECIFIED BY THE OPERATOR, BY THE ITEP CONTROL PROGRAM. TIME: PROVIDES A MEANS OF MEASURING ELASPED TIME. IT IS INCREMENTED EVERY SECOND BY A CLOCK INTERRUPT ROUTINE IN ITEP. WHEN THE OVERLAY IS FIRST ENYERED BY ITEP AT LOCATION START:, THE CONTENTS OF THE SWITCH REGISTER ARE S/ RED IN REGISTER 0. THE MODE AND DATA SELECTIONS ARE FIXED AT THIS TIME AND CANNOT BE ALTERED WITHOUT RETURNING TO THE CONTROL PROGRAM. THE INTERRUPT VECTORS AND VARIABLES ARE THEN SETUP. THE SELECTED ROUTINE DETERMINED BY THE MODE IS THEN ENTERED 9.3 9.3 THE OVERLAY THEN LOOPS IN ROUTINES: SOWI ,IF '‘NE WAY IN'* MODE WAS SELECTED. SOWO,IF 'ONE WAY OUTTM MODE WAS SELECTED. SILB, IF, ‘‘INTERNAL'LOOP BACK'' MODE WAS SELECTED. SXLB.IF “EXTERNAL LOOP BACK'‘ WAS SELECTED. $OWI: IN THIS ROUTINE THE RECEIVER IS INITIALIZED AND PROGRAM LOOPS WAITING FOR THE RECEIVER TO FINISH.IF NOTHING 1S RECEIVED FOR 60 SECS A "WAITING'® MESSAGE IS TYPED. WHEN THE RECEIVER 1S DONE, THE PROGRAM CHECKS DATA IF SWITCHES PERMIT,AND TYPES END PASS DEPENDING ON SWITCH SETTINGS. 9.32 $OW0: THE TRANSMITTER IS INITIALIZED AND PROGRAM LOOPS WAITING FOR TRANSMITTER TO FINISH,A ‘WAITING'' MESSAGE IS TYPED EVERY 60 SECS IF THERE IS NO ACTION. WHEN THE TRANSMITTER IS DONE, THE PROGRAM EITHER LOOPS BACK TO $0WO OR TYPES END PASS DEPENDING ON SWITCH SETTINGS. 9.33 $ILB: THE RECEIVER IS INITIALIZED AND PROGRAM LOOPS WAITING FOR RECEIVER TO FINISH, A ‘MAITING'' MESSAGE IS TYPED EVERY 60 SEC IF NO ACTION. WHEN RECEIVER IS DONE PROGRAM CHECKS DATA IF SWITCH SETTINGS PERMIT, AND END PASS IS TYPED IF SWITCH SETTINGS PERMIT. THEN THE TRANSMITTER 1S INITIALIZED, A "WAITING'® MESSAGE IS TYPED EVERY 60 SEC IF NO ACTION. WHEN TRANSMITTER IS DONE PROGRAM RETURNS TO START OF ROUTINE. ($ILB) 9.34 D, $XLB: IF IN HALF DUPLEX THE TRANSMITTER IS INITIAL{ ZED A "WAITING MESSAGE IS TYPED EVERY 60 SEC IF THERE S NO ACTION - L CZ0ZBC.P11 1 10-NOV-81 11:13 WHEN THE TRANSMITTER IS DONE THE RECEIVER IS INITIALIZED LA 'WAITING'® MESSAGE IS TYPED EVERY 60 SEC IF THERE IS _NO ACTION. WHEN THE RECEIVER IS DONE,DATA IS CHECrED IF SWITCH SETTINGS PERMIT AND END PASS IS TYPED IF SWITCHES ALLOW.THE PROGRAM NOW REPEATS CYCLE STARTING AT $XLB. IF IN FULL DUPLEX THE RECEIVER AND TRANSMITTER ARE INITIALIZED . A ‘WAITING'® MESSAGE 1S TYPED EVERY 60 SEC IF THERE IS NO ACTION. WHEN BOTH THE RECEIVER AND TRANSMiTTFR ARE DONE,DATA IS CHECKED, END PASS IS TYPED AND PROGRAM LOOPS TO $XLB DEPENDING ON THE SWITCH SETTINGS. 9.4 THE RETURN TO MONITOR ROUTINE FOR END PASS AT EOP: LOCKS OUT INTERUPTS AND SAVES THE TRANSMITTER INTERUPT ENABLE BIT AND ALL GENERAL REGISTERS. IT THEN RETURNS TO THE MONITOR TO TYPE 'END PASS''. THE MONITOR CHECKS SW14 IF UP IT RETURNS TO ENTER:, OTHERWISE IT RESTARTS THE PROGRAM. 9.5 ENTER: IS ENTERED FROM THE MONITOR AFTER TYPEING ‘‘END PASS'‘, 9.6 THE INITIALIZE TRANSMIT SUBROUTINE AT STARTX: SETS UP THE INTERFACE AND POINTERS NECESSARY TO INITIATE A TRANSMIT OPERATI ON. IT RESTORES THE GENERAL REGISTERS AND THE TRANSMITTER CSR AS SAVED IN EOP. THE DELAY FLAG IS SET AND PROGRAM RETURNS TO THE SCAN ROUTINE(OWO,0WI,ILB,XLB) WHERE IT CAME FROM. AFTER SETTING ‘DATA TERMINAL READY'' AND 'REQUEST TO SEND'' A CHE(K IS MADE ON PARAM2 TO DETERMINE IF HALF DUPLEX OPERATION WAS SELECTED BY THE OPERATOR. IF IT WAS, THE SUBROUTINE WAITS FOR CLEAR TO SEND. A 'WAITING FOR CLEAR TO SEND' PRINTOUT OCCURS EVERY 30 SECONDS UNTIL CLEAR TO SEND IS ASSERTED. 9.7 THE INITIALIZE RECEIVED SUBROUTINE AT STARTR: SETS UP THE INTERFACE AND POINTERS NECESSARY TO RECEIVE A MESSAGE. 9.8 THE TRANSMIT INTERRUPT SERVICE ROUTINE, AT XISR:, IS ENTERED VIA TRANSMIT INTERRUPTS FROM THE INTERFACE. A TEST 1S MADE TO SEE IF THE_LAST CHARACTER TRANSMITTED WAS A NULL (,..L ZEROS) CHARACTER. IF 1T WAS; THE TRANSMIT LOGIC IN THE INTERFACE IS RESET AND THE TRANSMIT COMPLETE FLAG IS SET. AT XISR1: THE NEXT CHARACTER IS TRANSHMITTED AND PRINTED ON THE TTY IF THE MONITOR TRANSMIT SWITCH IS SET. 9.9 THE RECEIVE INTERRUPT SERVICE ROUTINE LAT RISR:, IS ENTERED VIA RECEIVER INTERRUPTS FROM THE INTERFACE. THE RECEIVED CHARACTER IS STORED IN THE INPUT BUFFER AND PRINTED ON THE TTY IF THE MONITOR RECEIVER SWITCH IS SET. IF THE INPUT BUFFER IS FULL, A 'BUFFER FULL' PRINTOUT WILL OCCUR. THIS INDICATES THAT A LINE FEED CHARACTER WAS NOT RECOGNIZED See 1 €Z0ZBC.P11 10-NOV-81 11:13 IN THE RECEIVED DATA (WITHIN 1000 CHARACTERS). IF THE RECEIVED CHARACTER IS A LINE FEED, THE RECEIVED LOGIC IS RESET AND THE RECEIVE COMPLETE FLAG IS SET. IF A 'RECEIVE ERROR' IS DETECTED AT RISR:, THE CSRTMAND DBR WILL BE SAVED AND PRINTED OUT AFTER THE COMPLETE MESSAGE HAS BEEN RECEIVED. 9.10 THE DATA TEST SUBROUTINE AT TESTD: IS SEEE?SQDAFIER A COMPLETE MESSAGE HAS BEEN IF A 'RECEIVE ERROR® HAD BEEN DETECTED THE CONTENTS OF THE 'RECEIVE BUFFER' AT THE TIME THE ERROR OCCURRED WILL BE PRINTED. THE DATA IS COMPARED UNTIL A ‘ALL ZEROS. CHARACTER 1S RECOGNIZED. ‘FILL' (ALL ONES) CHARACTERS ARE IGNORED. IF A MISMATCH IS DETECTED, THE COMPLETE CONTENTS OF THE INPUT BUFFER AND GOOD DATA IS PRINTED. 10.0 PARAMETERS FOR THE DZ11 PARAM#1 IS LOADED INTO THE LINE PARAMETER REGISTER(DZLPR) BITS 0-2 LINE NUMBER BEING USED, DEFAULT = LINE 0 CHARACTER LENGTH, DEFAULT = EIGHT BITS BITS 3.4 STOP BIT COUNT, DEFAULT IS TWO STOP BITS BIT 5 PARITY ENABLE AND SELECT, DEFAULT IS NO PARITY BITS 6.7 BITS 8-11 BAUD RATE SELECT, DEFAULT IS 110 BAUD RECEIVER ON (THIS SHOULD ALWAYS BE SET) BIT 12 PARAMA2 IS NOT USED AT THIS POINT IN TIME PARAMA3 IS NOT USED(177777). DZ11 RESTRICTIONS THE RTS MODEM SIGNAL ON THE DZ11 IS JUMPER SELECTABLE AT THE TERMINATION PANEL. IT IS EITHER ALWAYS ASSERTED OR ASSERTED WHEN DATA TERMINAL READY (DTR) IS SET. CONSEQUENTLY, AT THIS POINT IN TIME, D211 ITEP CAN NOT BE USED WITH SERIRES 200 AND OTHER HALF DUPLEX MODEMS. ALL ITEP MODES ARE VALID WITH FULL DUPLEX MODEMS, AND ALL MODES MAY BE USED TO TERMINALS (ONLY ONE WAY OUT AND IN ARE RECOMMENDED HERE, HOWEVER). SEQ 12 SEQ 13 10-NOV-81 11:13 cz028C.P1 cRRARRANRRARAANRRRAAACR [ OO0 W RRIRR]R OCO0VC,OLOC gNWNNNN—‘-‘-‘ 382 OB N= = OO D - b b o & oD b crd ad b b b —d e e e b and i e b b ok =D e b ad b b i b b e b b el b ad i NOOMNNOOO MO D b b b COO0O0OO0OO00OO0O0O0O0O0O0O0O0O0O00O R L S D211: BA: RIV: PRIOR: PARAM1: PARAMZ2: PARAM3: IRDA: IXDA: SETTLE: .=11000 .ASCIZ /DZ / 160010 300 240 11070 177777 177777 .WORD 0 .WORD O zgzg 8 B82016: .WORD AR EARARRAARAARAARAARNNNANANANNNANREANAR T L e T L T e L R e e e L e L L s ISR NAME sBUS ADDRESS sVECTOR ADDRESS N sPRIORITY b sPARAM M1 sPARAM lg ' sPARAM & sINITIAL READ DATA ADDRESS sINITIAL XMIT DATA ADDRESS sLINE SETTLE DELAY FLAG O sADDR OF BIN TO OCT TYPE ROUTINE TX.TERM WORD START sADDR OF START OF PROGRAM AX. TERM .BYTE 000 sTRANSMITTER TERMINATING CHAR. .BYTE 001 sRECEIVER TERMINATING CHAR. TIME: 01 RN D211 INTERFACE SERVICE PARAMS FLAG: .gggg .WORD 177570 SWR: DISPLAY:177570 8 0 s TIMER SRANRARAARARAAARAARAANC L RAANRAARAARERANANRRAARER . ERARACRRARRAEAR CONSTANTS + WORKING STORAGE SRNRRRARARARY CARARRNRR R AAANANRRARARAAARARRNAARARCARNRROAAROACAAR RSN O FIR 8 ~ - ) = Q00O S'nn =1 b anld b acd -—d and end aub O000 aud v aub ad b aed and b OO0O0O0 ViAW =l=lel=l —b b cod ed b OO0O0O00O b b ad cub b STAT=R0 XFLG=100000 RFLG=40000 DSFLG=20000 81713=20000 :XMIT COMPLETE FLAG JRCY COMPLETE FLAG :DATA SET STATUS CHANGE FLAG sINHIBIT PRINTOUTS SXCSR: SRCSR: ERCSR: ERDBR: DSSTAT: 0 0 0 0 0 :SAVED XMIT CSR :SAVED RCV CSR :RCY CSR SAVED ON ERROR :RCV DATA REG SAVED ON ERROR :RCV CSR SAVED ON DS CHANGE XCC: RCC: RDA: XDA: 0 0 0 0 :XMIT CHAR COUNT :RCY CHAR COUNT :RCV DATA ADCR. XMIT DATA ADDR. TKS: TXB: TPS: TP8: 17756 17756 177564 177566 FULL .DUPLEX=000001 CZ0ZBC.P11 SEQ 14 10-NOV-81 11:13 61,2 ;ttttttttttttttttttttttt'ttttttttttttttttttttttttttttt.tittttttt 641. CAARRARNRRRRRRRRARAAR AN AN RARARARANRNCARRARNNARRAARAARACARNRARANRY : 643 645 011102 000240 646 011104 017700 177734 648 649 650 651 652 653 011114 011120 011124 011130 0111364 011140 013702 012722 013722 012722 013722 013704 011006 013666 011010 0133564 011010 011004 655 656 657 658 659 660 661 011150 011156 011160 011164 011170 011174 011176 START: NOP MOV 647 011110 042700 177400 669 670 671 011240 011242 011244 006300 005301 000774 673 011252 012600 672 011246 010037 013516 RO RIV, #RISR, PRIOR. #XISR, PRIOR, BA R2 (R2)+ (R2)+ (R2)+ (R2)+ R4 2177400, MOV PARAM1, @RCSR -SETUP MODE IN RO RO :SETUP :INTERRUPT :VECTORS *SETUP BUS ADDR INDEX :SETUP VARIABLES PARAM2 . R2 : #0001,R2 : IN CSR*S XCSR(R4); R2, :CLEAR SILOSUARTS #DCLR,ARCSR *CLEAR PULSE DONE? #DCLR,ARCSR *BR IF NO 18 , TEMP1 PARAM1 48: 58: MOV 28: 38: ASL DEC BR MOV MOVEB g;g 011254 113764 013516 000005 #RCVON.TEMP1 TEMP1,LPR(RG) RO,=(SP) :;DON'T TURN ON RECEIVER YET :LOAD LINE NUMBER AND PARAMETERS *SAVE RO #°C<7> R 5$ :ISOLATE THE LINE NUMBER *CALCULATE TCR BIT RO, TCRTMP :SAVE THE ACTIVE TCR BIT #1,R0 PARAM1,R1 RO R1 X (SP)+,R0 TCRTMP,TCR+1(R4) 676 ;ttttttttttttttttt.tttttt*ttttttltttttt 680 ;ttttitttttQtttttttt'tttttt'ttttttttttt 677 678 679 681 : : : ROUTINE USED TO GOTO SUBROUTINE DEPENDENT ON MODE SELECTED. GO: CLR CLR CLR BIT BEQ TIME DELAY STOP #0W0,MODE 18 8IT BEQ JMP BIT BEQ JMP BIT BEQ JMP HALT #0W] ,MODE 2s $OV] #1LB,MODE 33 $ILB #XL8,MODE 4 $XLB 682 683 684 685 686 011262 011266 011272 011276 011302 005037 005037 005037 032700 00140 011032 013152 013156 000001 688 689 690 691 692 693 69 695 696 697 011310 011314 011316 011322 011326 011330 0113364 011340 011342 011346 032700 00140 000137 032700 00140 000137 032700 00140 000137 000000 000002 18: 011352 000010 28: 011556 000004 38: 687 011304 000137 011460 012006 :STRIP JUNK MOV BIC MOV 8IS BIT BNE MOV BIC MOV MOV MOV MOV BIC BEQ 1$: 013512 013512 000002 asWwR, BIC MOV MOV MOV MOV MOV MOV 654 011146 013714 011012 013702 011014 042702 000001 010264 000000 052714 000020 032714 000020 001375 013737 011012 662 011204 042737 010000 663 011212 013764 013512 664 011220 010046 665 011222 012700 000001 666 011226 013701 011012 667 011232 042701 177770 668 011236 001403 DZ11=X INTERFACE SERVICE ROUTINE 48: JMP $OW0 ;SET DATA TERMINAL READY CZ02BC.P11 698 699 700 701 702 703 704 705 706 70?7 708 709 710 m 712 10-NOV~81 11:13 011350 000776 C CRACARNANAS ANAAAC RAARLRANAARANAN ANRRAR RN RAAARARRAERNERA SRAARARRNARN ROUTINE USED IF "ONE WAY IN'* MODE WAS SELECTED. NOTE THAT WHEN IN THIS MODE HALF DUPLEX IS THE ONLY MODE AVAILABLE. "ONE WAY IN'' MEANS THAT ONLY THE RECEIVER IS, ENABLED. THE TRANSMITTER IS NEVER '‘TURNED ON''. CAANRARRRRARRAARARRAARAEEARARAAANNERARRAARRAERRAAARRAAAAARANERERARACANEAS 713 714 715 716 717 718 719 720 721 722 011352 011354 011360 011364 011366 011374 011376 011400 011404 011406 011412 104416 004737 032700 001013 023727 103771 011402 016403 104001 005037 000762 725 726 727 728 729 730 731 732 733 011414 011422 011424 011430 011434 011442 011444 011452 011456 032777 001002 004737 042700 032777 001405 012737 000137 000735 ;%2 734 735 736 737 738 739 740 741 742 743 764 745 746 747 748 749 750 751 752 753 $OwWl: 013524 040000 011032 18: 011032 012376 040000 000020 011456 012236 177422 177402 JSR BIT BNE P BLO MOV MOV HLT CLR BR 000100 000000 000200 KBDIN 2$: 3s: 013154 48: PC,STARTR ARFLG,STAT 2 TIME,#100 1$ aRCSR,R2 XCSR(R4) .R3 1 TIME 1$ 8IT BNE JSR 3SWR , AT #NOD 3$ PC,TESTD BIT BEQ MOV P . 3SWR #LOO 48 #4$,BACK BIC JMP B8R #RELG,STAT EOP $OW] ARL CRREAANACEE RRAARA NAANRANRARANAAA RARNAR R AR ARARNRARNRARRRA CARRANARRRRA ROUTINE USED IF "ONE WAY OUT'' WAS SELECTED. NOTE THAT WHEN IN THIS MODE HALF DUPLEX IS THE ONLY MODE AVAILABLE. 'ONE WAY OUT'* MEANS THAT ONLY THE TRANSMITTER IS ENABLED. THE RECEIVER IS NEVER ‘‘TURNED ON. N NAANARRARARAS NRNRR RAANNRAAANRARAA RNANR R RN R A RRRARAARAARARRA T AARRNREARA 011460 011462 011466 011472 011476 011500 011506 011510 011512 011516 104416 004737 005037 032700 1013 023727 103771 01140§ 01640 104001 $O0W0: 1$: 000100 000000 JSR CLR BIT BNE PC,STARTX TIME AXFLG,STAT 2$ BLO MOV 18 3RCSR,R2 HLT 1 CMP MOV TIME ,#100 ) ,R3 XCSR(R4 D cZ0zBC.P1 754 755 756 757 758 759 760 ;g} 011520 011526 0115%6 011532 011540 011548 011550 011554 10~-NOV-81 11:13 005037 000762 04%799 0327 001405 012737 000137 000741 011032 100000 000020 177304 011554 0131564 012236 2s: 38: CLR BR BIC BIT BEQ MoV JMP BR TIME 1$ #XFLG,STAT #LOOP ,3SWR 33 #3$ ,BACK EOP $OW0 2 SEQ 16 E czbz8C.P1 2 SEQ 17 10-NOV-81 11:13 765 CANRRARRRRARRNRARRAAALAARA RN NN AN RRAAARRAAANCEARRAAANCARAACAAAAORNOAS 767 ; NOTE THAT WHEN IN THIS MODE; HALF DUPLEX IS THE 769 770 : : INTERNAL LOOP BACKTM MEANS THAT THE RECEIVER IS ‘‘TURNED ON AND A COMLPETE MESSAGE IS RECEIVED. IF DATA IS TO BE CHECKED 772 : : : m : 773 779 780 781 782 783 784 785 786 787 788 789 011556 011560 011564 011570 011574 011576 011606 011606 011610 011614 011616 011622 011624 011632 011634 104416 904737 005037 032700 001013 023727 103771 o114o§ 016403 104007 $ILB: 013524 011032 040000 011032 18: 000100 032777 001405 012737 000137 000020 177172 795 011644 011652 011654 011662 011666 012236 013154 797 798 799 011674 011676 011702 001416 013702 013703 000200 011666 011706 032777 010337 801 011712 112223 807 808 011714 011716 011722 o117§4 011730 011732 011733 809 011742 810 811 812 813 011746 011750 011756 011760 815 816 817 818 011766 011770 011774 011776 001376 112743 005203 112723 105033 005037 004737 177212 012376 791 011640 042700 040000 802 803 804 805 806 , N IS DESIRED; IT IS GIVEN. THEN THE TRANSMITTER IS ENABLED. AFTER THE WHOLE MESSAGE IS TRANSMITTED:; THE CYCLE IS REPETED AS ABOVE. 00 177150 814 011762 016403 104001 005037 000762 042700 28: 38: 4$: 011020 011022 011070 000177 000177 011032 013160 011032 78: 5$: 000100 000000 011032 100000 819 012002 000137 011556 HLT CLR BR BIT BNE JSR BIC BIT BEQ MOV JMP 68: PC,STARTR TINE ARFLG,STAT 2 TIME ,#100 13 aRCSR,R2 XCSR(R4) ,R3 1 TIME 11 ANODAT, 3SWR 3s PC,TESTD MRFLG, STAT #LOOP,aSWR 4 #4$,BACK EOP #400, @SWR MOV R3 R2 R3 XDA BNE MOVB INC MOVB CLRB .#177. R3 #4177, (R3)+ BIT #XFLG,STAT MOV XCSR(R4) ,R3 8IT BEQ MOV MOV MOVB 032700 100000 001013 023727 103771 o114o§ KBDIN JSR CLR BIT BNE MOV 011032 800 IT IS: IF "END PASS'’ CMP BLO MOV 000000 005037 00076 032777 001002 004737 792 793 ONLY MODE AVAILABLE, :ttttttttttttttttttttfii"tttttttt.t.tlQtttttttttttttttttttt.ttttttttt 774 776 777 778 ROUTINE USED IF INTERNAL LOOP BACK'' WAS SELECTED. CLR JSR BNE P BLO MOV HLT CLR BR 8IC JMP 78 IRDA, IXDA, (RO)+, (R3)+ =(R3) (R3)+ TIME PC,STARTX 6 TIME ,#100 53 3RCSR,R2 1 TIME 53 AXFLG,STAT $ILB ;USE EXTERNAL DATA? :BR IF NO *SET POINTER *SET POINTER SSETUP XMIT DATA ADDR :MOVE INPUT TO OUTPUT *LOOP IF NOT 2ERO CHAR :INSERT A FILL CHAR ‘BUMP ADDRESS :INSERT ANOTHER FILL SINSERT ZERO CHAR F 2 10-NOV-81 11:13 cz0z8C.P1 X222 2220 02 a2 L 2222422 T addidadiidiididdditidtisdd) ROUTINE USED IF "EXTERNAL LOOP BACK'' WAS SELECTED. EITHER HALF OR FULL OUPLEX MAY BE SELECTED IN 1°'S MODE. EXTERNAL LOOP BACK'' MEANS THAT THE TRANSMITTER i FIRST TURNED ON (JF HALF DUPLEX) AND THE WHOLE MESSAG IS TRANSMITTED. THEN THE RECEIVER IS ENABLED. AFTER THE WHOLE MESSAGE IS RECEIVED DATA WILL THEN BE CHECKED IF DESIRED AND END PASS WILL THEN THE CYCLE IS REPEATED BE GIVEN IF DESIRED. AS ABOVE. IF RUNNING IN FULL DUPLEX THE PROGRAM WAITS FOR BOTH THE RECEIVER AND TRANSMITTER TO FINISH THEN RESTARTS THE RECEIVER AND TRANSMITTER. i md b b b NSO 013524 013:50 040000 011032 $XL8B: 8IT 1;ULL.DUPLEX.PARAH2 1$8: JSR JSR PC,STARTR PC,STARTX 2$: 8IT léFLG.STAT 7%: BIT 2§FLG.STAT CMP TIME.#100 2% SRCSR,R2 {CSR(Rk).R3 000100 000000 MOV MOV 011032 CLR 011014 000001 011014 ;;ULL.DUPLEX.PARAHZ (% H 8IC JSR BR 8IT #XFLG,STAT PC,STARTR 2% g;ULL.DUPLEX.PARAHZ BIT MOV #XFLG,STAT 6$ TINE ,#100 43 SRCSR,R2 CLR BR TIME 4s MOV 000000 NN= NNNINNY 011032 =t YO NN \NLN‘U\"NEE SR 28 QSRR323 NN O— ON=2N) o0 b o nd e e eh e WP 000100 6$: 8s: 100000 040000 011032 000200 176636 012376 000020 176622 012006 012236 013154 T!HE ¢ 8IT 100000 011032 TIME 3s: 100000 013524 b b e 011014 e b b b e e b e b b ond e b oo e ek et e e o e 000001 000001 b CRNRNNRESSS RRARBEREREFScRER noa~noa«:éaiglhc> NINLNLNLNLALNLAINININLNINININININININI NN NN NN b e OODIOOO0OO0O0O0OOO0OO0O0O0O0O0O0O0O0000 CHOO=OOODOO o NONONONNENS 22ze2020239202 = =R = RON hrt ¢ SEQUUWO L NNNNO ;fitttttttttt.'.tttttlt.'t'tt"tfittt't.tttttttt'ttt'ltttttttttttittttt 58: ¥csn(fi4).a3 8IC 8IC #XFLG,STATY #RFLG,STAT 8IT ggODAT.OSHR JSR BIT MOV TIME PC,TESTD #L0O0P,3SWR $XLB #$XLB,BACK EOP G C2028C.P11 SEQ 19 10-NOV-81 11:13 876 SHRANRANAARARARRRRARRECNCRORE 877 878 879 H : H ROUTINE TO RETURN TO MONITOR FOR END PASS. IERNARAREAARERRAARARAERAACANS 880 881 2 882 012236 884 885 012242 012250 016437 042737 889 890 012276 012302 010137 010237 013140 013142 892 893 ggg 012312 012316 012322 010437 010537 000207 013146 013150 EOP: STPS,PRTY? :SET PS PRIORITY TO 7 886 012256 042764 040000 000000 887 012264 012766 012324 000002 888 012272 010037 013136 8IC MOV MOV sCLEAR TX 1E (EVEN IF ]T WASN'T SET) :SET FOR RETURN IF SW 14=1 :SAVE REGISTER 0 891 MOV 883 012236 012306 896 012324 903 012354 012362 897 898 899 900 901 902 905 389 012326 012330 0123 012340 012344 012350 012370 012374 104414 010337 013700 013701 013702 013703 013 013705 012737 053764 000177 000000 000340 0000 137777 012374 012374 013144 013136 013140 013142 013144 013146 013150 177777 012374 00056 ENTER: 013152 000000 QTPIE: 910 : : 914 012376 013746 011056 916 012404 032777 020000 918 012414 104400 012576 915 012402 00141 012412 001007 919 012420 004077 176404 920 012424 921 922 923 012426 012432 012436 926 (012446 9246 925 927 928 929 930 931 MOV MOV R1,SAVR1 Rg.SAVR% MOV MOV MOV MOV MOV MoV MOV 8IS JMP 000000 lTIE.XCSfi(Rk) #ENTER,2(SP) RO, SAVRO R3,SAVR ;SAVE TX CSR ;CLEAR ALL BUT TX IE. :SAVE REGISTER 1 JSAVE REGISTER % JSAVE REGISTER R4 ,SAVR4 RS.SAVRS PC JSAVE REGISTER 4 :SAVE REGISTER 5 JRETURN TO CONTROL PRGGRAM SAVRO,RO SAVR1,R1 SAVR2,R2 SAVR3,R3 SAVR4 RG SAVRS RS #-1,DELAY QTPIE, XCSR(R4) aBACK :RESTORE RO :RESTORE R1 JRESTORE R JRESTORE R SRESTORE Ré& :RESTORE RS ;IF ORGINALLY SET; SET TX IE JARRRANRANRAARRRRRARAAARCCORARARAR 911 912 917 XCSR(R4) ,QTPIE #°C<TIE>,QTPIE MoV MOV RTS 908 909 913 MOV 8IC 005746 012442 012444 104400 013701 013703 12212 001776 012452 012454 012460 012462 0126466 001447 122742 001005 010237 104400 123741 012657 011022 011020 011040 000002 012470 R TESTD: 176432 SUBROUTINE TO CHECK RECEIVER DATA. L MOV BEQ T e Ll S T A ERDBR, TSTOAf 8IT #BIT13,38SWR TYPE MsSGO BNE JSR TST TYPE TSTDAT: MOV MoV SCANG: (CMPB BEQ CMPB BEQ CMP8 BNE MOV TYPE A <=(SP) TSTDAT §0.382016 -(SP) MSG1 IXDA, IRDA, (R1)+, SCANS R1 R2 (R2)+ TX.TERM,=-(R1) TESTDX #002,-(R2) 2% R2,1$ T L :WAS THERE A RECEIVE ERROR? :BR IF NO JINHIBIT PRINTOUTS? sBR IF YES :<155<12>THERE WAS A RECEIVE ERROR. RBUF= :PRINT CONTENTS OF RBUF 215D sSETUP XMIT DATA ADDR JSETUP RCV DATA ADDR sDATA OK ? ;BR IF 0K ;1S IT END OF DATA :BR IF YES H 0 O NN NNWNN =N NN OWVINY OANONN =O = N NONNNOIUWNO N ~ ON=O (v,] b ) b O O =bed — ;BACKUP :IS IT FILL? IRDA, RDAX MSG3 IXDA, TESTDX: .+10 ‘BR IF YES *BR IF YES *DATA ERROR *INHIBIT PRINTOUTS :*BR IF YES :<15><12>RECEIVED DATA = <15><12> :SETUP DATA ADRESS :PRINT RECEIVED DATA :RECEIVED DATA ADDR. :<155<12>DATA SHOULD BE<15><12> SSETUP ADDR. :PRINT GOOD DATA (R1),R3 ;SETUP XMIT DATA DERR: R -(R25 ,R2 :SETUP RCV DATA (SP)+ PC ‘POP STACK sRETURN FROM SUB/ROUT *DATA ERROR HALT MSGO: :};;:}ggerERE WAS A RECEIVER ERROR. REGISTER (SEL 2) =/ MSG&: <15><12>/RECEIVED DATA = /<15><12> <15><12>/DATA SHOULD BE/<15><12> 15><12>/PLEASE MAKE CONNECTION (DIAL NUMBER)./ DELAY: BACK: STOP: AAA MSGS: LEVEN SAVRO: SAVR1: SAVRZ2: SAVR3: SAVRG: SAVRS: 15><12>/WHEN CONNECTION COMPLETE; HIT CONTINUE SWITCH./<15><12> 15><12>/PLEASE MAKE CONNECTION (DJAL NUMBER)./<15><12> (=lelelelelalele ]l OB NOONSNO (R2)+ MSG2 012562 - W b N b b b b b b b b R1 M?7. #8IT13,35WR DERF RDAX: 040505 NN N N N N N b b md = b b d o —d SCANS: 042503 b N} elelelelelelolela R+ : *BR IF YES IS IT FILL CHAR? SCANS 012544 % 393 b ) b —2N) W 83 Rra==Ruf 238 8°§ O—b S0 OonN) o SEXRENA KR OO0 D wd i ad D b i i D o b b D d b b b b wivawviawiawa AW ViAW O b b 176316 051105 et d b o b (R2) TESTDX M77, SCANS b o W W o b ad b TESTDX 2%: AALE NIMNLNININININIAINININININININI NN NININI NNN OO0 OOO0O0OOOOO0OO0O0OO0OCOO 1$: N =2 O W SEQ 20 10-NOV-81 11:13 Cz02BC.P11 £32ER 2 I TRANSMITTER INITIALIZATION SUBROUTINE :tt.'ttt!ttt'i.t.tfittti.'tttt.tt.tttttttitt.'tfil.ttttttt.ttt't'. 2233282 013156 b ALY NN AN = N =2 VAN =2 N OWWNNNINO SN N NN N NN = N NNINWVININ NV 38322282382222 013152 013512 000007 013512 STARTX: TST BEQ CLR 013514 013514 013152 100000 011022 013156 011070 18: 013512 013514 013514 013516 000004 013516 000004 000005 177777 040040 013522 2s: el b b S2BVRER R (=] S \N= =2 ONIWWN - MoV ST IXDA, XDA STOP CLR BIC 011040 8 014107 DELAY AXFLG,STAT BNE 23 comM CLR MOV INC BNE STOP TEMPI #14%2, TEMP2 TEMPY .4 ,MSG& : INCREMENT DELAY :SET UP XMIT DATA ADD ‘FIRST TIME HERE? :NO *MAKE CONNECTION :COMPLEMENT STOP *YES PREPARE FOR DELAY : INCREMENT DELAY MOVB T TCRTMP.TCR(R4) MOVB TCRTMP,TCR+1(R4) ;SET DATA TERMINAL READY o ;SET LINE # IN TCR = CHANGE IN REV C TO A "MOVB' TO *CORRECT AN AIDS REPORT (HH0001070) - PROBLEM OCCURED SWHEN DTR WAS DROPPED ON A DFO3. NOP 38: ST BNE g%g :FIRST CHAR RECEIVED YET? SNCFLG “BR IF NO .4 :SET INTERUPT ENABLE,SCAN ENABLE msk gzmnsenm. XISR: (MPB @XDA,TX.TERM BIS g’xic #XFLG,STAT :gs SRCSR x1SR{ ‘BR IF NO MOVB BIC 1(R4).RS #AC<?5,RS :GET 1. INE NUMBER OF READY LINE SISOLATE THE LINE NUMBER BIC C(MP8 #4C<7> R kS,R1 SISOLATE IT ‘ARE THEY EQUAL? XISR1: BNE MOV BEQ ad b FRPPERRRY W ON ANPNINININ) ~=b = OO N CDOWUSLUOH b b b e d b b o o e —t 000001 177770 011012 177770 MOV INC BNE DEC BNE *PREPARE FOR DELAY :XLB MODE? #XLB,MODE *BR IF NO 3s *SET FLAG #-1,TRNFLG :SET INTERUPT ENABLE #TIE+MSENAB,RCSR 100000 040000 b NNN = [=l-Tolelolelelelelelalelela) 175510 t;m ;IF SW04=1 & SW14=0 DELAY *NO DELAY START TRANSMITTER BIT BEQ MOV 5£§r 013520 040040 DELAY 1$ 47, TEMP2 TERPT .4 TEMP2 =12 m; 012732 -— -—bd NN N —d o ) NN b b cd b and o b b NS SRNSERSRSNERS N NN NN (NN . lalolalelelelelalelelelod 8283 03555588 $8382332388 3 8888888888882 AN ARCACCRACEO R ANNA ANRANNNAANR AARR R AR ARARAANRAAR RRAN NN CE CARRAANR D b ad b O 0O OOV OV VOOV OVOO OVOOVOY SEQ 21 10-NOV-81 11:13 C2028C.P11 —d b cnd ) D nd wnd and b nd e e d h ODOOO0OOO00 o OO0 AININONIN) = —b b —d ed b b ad wh b NNV =O SNWN=20 0~ ONAS 2 PARAM1 -R1 x1$R2 ??x %csn.az HLT TYPE 10 ,SCANE ;IS CHAR TRANSMITTER TERMINATION CHAR *SET XMIT DONE FLAG *CLEAR ENABLES ‘GET THE EXPECTED LINE NUMBER “IF SO, GO TRANSMIT A CHARACTER *SET UP R2 WITH CSR CONTENTS ;ERROR WRONG L INE *TYPE ERROR MESSAGE J czb2BC.P11 1025 1026 1027 1028 1029 1030 1031 1032 1033 1034 1035 1036 1037 1038 1039 1040 1041 1042 013434 013436 013440 013446 013454 013456 013462 013464 013472 013476 013502 013506 013510 013512 013514 013516 013520 013522 2 SEQ 22 10-NOV-81 11:13 000000 000776 117764 032777 001406 105777 100003 117777 005237 005037 005037 000002 000000 000000 000000 000000 000000 00000¢ 175424 000100 000006 175370 175414 175400 011070 011032 013522 175406 HALT BR XISR2: MOVB BIT BEQ 1578 BPL MOov8 NOXMON: INC CLR CLR RTI ERRORT: 0 TEMP1: 0 TEMP2: 0 TCRTMP: 0 SNCFLG: 0 TRNFLG: 0 XISR3: .= 8XDA,TDR(R&) #100,35WR NOXMCA aTPS NOXMON @XDA,3TPB XDA TIME TRNFLG sHALT sTRANSMIT CATA cMONITOR TX DATA? :BR IF NO sTTY READY? ;B8R IF NO s TYPE CHAR sINC TTDR POINTER K C2028C.PN 2 SEQ 23 10-NOV-81 11:13 1043 ;"tttt"nttttttttttn"'t"n"t"t"nttnttntntattttttt.tt 1045 1046 ;n"ntut"ntttt"t"t"ntttttttttt"nttut"tntnttnnn 1044 : RECEIVER INITIALIZATION SUBROUTINE 1047 013524 005737 013156 STARTR: T1ST7 sSTO0P 1049 1050 013532 013536 104400 005137 012732 013156 TYPE COM MSGé4 STOP 105% 1053 1054 1055 1056 013544 013550 013552 013556 013562 032700 001405 005037 005237 001375 000004 8IT BEQ CLR INC BNE #XLB,MODE 2% TEMPI TEMPI .~4 :XLB MODE? :BR IF NO :START DELAY 1058 013570 013737 011020 011066 MOV IRDA _.RDA :SET UP RECEIVER DATA ADD 177777 013520 1048 013530 001005 1051 1057 013542 013564 000000 042700 BNE 1$: 013512 013512 040000 2s: 1060 01 012737 005037 013612 1063 013622 1066 1067 1068 1069 013636 013644 013652 013660 100775 013737 05¢7°%7 013764 113764 052714 1072 013666 105714 1076 013676 1081 1082 013712 013714 1084 1085 1086 1087 1088 1089 1090 1091 1092 1093 1096 1095 1096 013724 013726 013732 013736 013742 013750 013752 013756 013760 013764 013770 013774 014000 001404 011437 010137 110177 032777 001405 105777 10000; 110177 005237 105077 005337 001007 1098 0140064 005002 1062 1064 1065 ;8;? 1073 1074 1075 1077 1078 1079 1080 013616 013626 013630 013664 005037 005764 000207 013070 013672 013674 100403 011402 005003 013700 013704 N13706 013710 016401 100403 011402 005003 104010 104010 042701 011054 011056 011012 010000 013512 013516 000140 014002 000005 CLR 013512 013512 000002 000005 RISR: 000002 18: 2$: 000200 011054 011056 175124 000040 175120 175114 011066 175072 011064 175074 #RFLG,STAT l1006.RCC #=-1,SNCFLG ERCSR CLR ERDBR BM] MoV 3s PARAM1 , TEMP1 TST RBUF (R4) :FIRST TIME HERE? :BR IF NO " :TYPE'MAKE CONNECTION ;COMPLEMENT STOP sSET UP BUFFER LIMIT JCLEAR ERROR RECORDS ;CLEAR SILO JKEEP CLEARING UNTIL BIT 15 CLEAR :GET READY TO LOAD PARAMETERS 8IS MOV MOVB 8IS JBE SURE TO TURN RECEIVER ON #RCVON, TEMP TEMP1,LPR(R4) ;LOAD PARAMETERS, ENABLE RECEJVER TCRTMP,TCR+1(R4) :SET DATA TERMINAL READY #RIE!'MSENAB,RRCSR :SET INTERUPT ENABLE,RECEIVER ENABLE 1518 8RCSR HLT 10 :ERROR RECEIVER INTERUPTED BUT DONE NOT SET 10 #200,R1 :ERROR CHAR PRESENT NOT SET :STRIP A BIT 33 SRCSR,ERCSR R1,ERDBR R1,8RDA #5475 ,8SWR MORMON TIPS NORMON R1,37PB DA SRDA RCC 18 ;BR IF NO ERRORS :SAVE CSR :SAVE RBUF JSTORE CHAR SMONITOR RXDATA? :BR IF NO :1S TTY READY? :BR IF NO sTYPE CHAR ;INC RBUF POINTER JCLEAR NEXT POSITION :DEC CHAR COUNT ;BUFFER FULL YET? :STOP THE SHOW,BUFFER OVERFLOWED RTS 1083 013720 032701 070000 1097 MOV 3s: 000002 8IC MOV 1059 013576 012737 001000 011064 1061 HALT 13 BMI MoV CLR MOV BMI MOV CLR HLT 8IC 8IT BEQ MOV MoV 38: Move BIT BEQ T1ST8 8PL mnove NORMON: INC CLRB DEC BNE RESET CLR PC :DID RECEIVER DONE SET? 1$ SRCSR,R2 R3 :BR IF YES :SAVE CSR RBUF (R4) ,R1 23 SRCSRR2 R3 :GET CHAR :BR IF YES :SAVE CSR lORUN*FRHE+PARE.§1 R2 ;CHECK FOR RECEIVER ERRORS L €Z028C.P11 014006 014010 014012 005003 104000 104006 1103 014016 000776 1104 1105 014014 014020 123701 042714 052700 000100 040000 005015 01 5 042522 062412 014036 014042 014046 005037 005037 000002 1111 014050 014107 HALT 011041 0140246 1106 1107 CLR HLT HLT 000000 001004 014026 014032 1108 1109 1110 SEQ 24 10-NOV-81 11:13 1099 1100 1101 1102 2 014170 000001 18: RISR1: 011032 013520 042503 051122 MFULL: SCANE: .EVEN +END B8R R3 0 ) .=2 sRECEIVER BUFFER FULL CMPB RX.TERM,R1 ;1S CHAR 001? 8IC BIS #RIE,SRCSR #RFLG,STAT sCLEAR RECEIVER INTERUPTM ENABLE :SET R DONE FLAG BNE (LR CLR RT1 RISR1 TIME SNCFLG sBR_IF NO :GO HOME .ASCIZ<15><12>/RECEIVER BUFFER FULL ERROR!!/ TRANSMITTER SCAN STOPPED ON WRONG LINE/ .ASCIZ<15><12>/ERROR! n CROSS REFERENCE TABLE == USER SYMBOLS 10-NOV-81 11:13 011004 BA 013154 BACK 8IT0 = 000001 BIT1 = 000002 BIT10 = 002000 BIT11 = 004000 BIT12 = 010000 BIT13 = 020000 817114 = 040000 BIT15 = 100000 BIT2 = 000004 BIT3 = 000010 BIT4 = 000020 8115 = 000040 BIT6 = 000100 BIT7 = 000200 8IT8 = 000400 BIT9 = 001000 011030 B2016 DCLR = 000020 DELAY 013152 012564 DERR DISPLA 011046 DSFLG = 020000 DSSTAT 011060 DZ11 011009 ENTER 012324 012236 EOP 011054 ERCSR 011056 ERDBR ERRORY 013510 FLAG 011042 = 020000 FULL.D= 000001 GO 011262 = 000010 ILB 011020 IRDA IXDA 011022 KBDIN = 104416 LOOP = 000020 = 000002 LPR MFULL 014050 MSENAB= 000040 MSGO 012576 012657 MSG1 MSG2 012662 012707 MSG3 MSG4 012732 013064 MSG5 NODAT = 000200 NORMON 013764 NOXMON 013472 ORUN = 040000 = 000002 owl = 000001 owo PARAM1 011012 794+ 874+ 916 943 659 9654 973 981« 875 882# 905 9664 S88s g8 geeeREREE CZ02BC.P11 2 6234 1088 s88#4 795 1085+ 1062+ 1086« FRME 1058 95 983 872 1049 788 10934 10334 869 661 666 1017 1065 SEQ 25 N TCR = TOR = TCRTMP 013516 TEN©1 13512 13514 TEMP2 1237 TESTD TESTDX 01257 TIE = 04 TIME 011032 652 850 855 SS 3333333moo N g 964 9064 1093« 1094+ 779 791 841 867 1057 1107 792 796 869 872 916 943 1028 991« 10384 1054+ 1055+ 1065+ 1066+ 1067 778+ 781 786+ 807« m 816+ 1050+ » sw12 = 010000 SXCSR 011050 834 ugmwgmgmgm oo \g »® g » ghg 013136 SAVRO 013140 SAVR1 SAVR2 013142 013144 SAVRS 013146 SAVRG SAVRS 013150 014107 SCANE 012442 SCANG 012516 SCANS SETTLE 0110264 SNCFLG 013520 SRCSR 011052 011102 START STARTR 013524 STARTX 013160 STOP 013156 STPS = 104414 011044 SWR S98# S99 788 Qo Qo PARAM2 011014 PARAM3 011016 PARE = 010000 PRIOR 011010 PRTYO = 000000 PRTY1 = 000040 PRTYZ2 = 000100 PRTY3 = 000140 PRTYS4 = 000200 PRTYS = 000240 PRTY6 = 000300 PRTY7? = 000340 QTPIE 012374 RBUF = 000002 RCC 011064 RCVON = 010000 RDA 011066 012544 RDAX RFLG = 040000 = 000100 RIE RICR 013666 RISRT 014036 RIV 011006 RWAIT = 104410 RX.TER 011041 SEQ 26 CROSS REFERENCE TABLE == USER SYMBOLS 10-NOV-81 11:13 QOO VO N VO WO NONWNO cz028¢.PY1 2 1068 989+ 95 100§' 722+ 859 1013 864 949 858+ 754+ 1034 1178+ &3 b e a=b 949 951 986 1024 1049 814 1032 839 846 1033« 852 862 884 886+ 904+ 857 866 982 1012 980 992 994 1006 1026 1056 b —ld » s VOVOOO N=NH 00 =20ONNON » L2 5 el amb - 947 ol b ad TKB 011074 TKS 011072 011100 P8 TPS 011076 TRNFLG 013522 TSTDAT 012432 TX.TER 011040 TYPE = 104400 0110¢. XCC XCSR = 000000 011070 XDA XFLG = 100000 013354 XISR 013376 XISR1 013440 XISR2 013476 XISR3 XLB _ = 000004 XWAIT = 104412 011556 $ILB 011352 $OwWl $OW0 011460 012006 $xLB = 014170 . ~NON Voo ONNO CROSS REFERENCE TABLE == USER SYMBOLS 10-NOV-81 11:13 - cz0z28C.P11 SEQ 27 1052 978 1103 1M c DQDOC1 DQPARM DUPARM DUPPAR b b c=b aub DZPARM HELLO HLY SEQUAT SINTF SITEP $SERV d-‘ddg T T bVvDOC1 DVPARM 616 642 969 1 043 721 753 785 815 847 T DJPARM DLPARM DPPARM 589 T DHDOC1 DHPARM —b ad cod anb cud cub and ad wd amb and BOX DCPARM SEQ 28 CROSS REFERENCE TABLE == MACRO NAMES 10-NOV-81 11:13 €Z02BC.P11 3 . ABS. 014170 ERRORS DETECTED: O BC.P11 L/NL .MAC,CZDZ RF/SO : TOC=ITEP1 €202BC,C2DZBC/C RUN-TIME: 3 3 .3 SECONDS RUN-TIME RATIO: 55/7=7.7 16K (31 PAGES) CORE USED: 863 955 1023 1076 108t 1100 1101
Home
Privacy and Data
Site structure and layout ©2025 Majenko Technologies