Digital PDFs
Documents
Guest
Register
Log In
AH-8640D-MC
January 1979
36 pages
Original
16MB
view
download
OCR Version
22MB
view
download
Document:
CZDQOD0 DQ11 OVERLAY FOR ITEP JAN 1979 bw
Order Number:
AH-8640D-MC
Revision:
000
Pages:
36
Original Filename:
CZDQOD0__DQ11__OVERLAY_FOR_ITEP__AH-8640D-MC__JAN_1979_gray.pdf
OCR Text
TEP OVERLAY CZDQODO AH-8640D-MC JAN 1979 copvriGHT 75-7s HOEAREN FICHE1 OF 1 MADE IN USA 0Q11 ITEP OVERLAY (ZDQOD.P11 MACY11 30A(1052) 18-0CT-78 10:51 PAGEg 1 SEQ 0001 05-0CT-78 09:22 IDENTIFICATION PRODUCT CODE : AC-8639D-M( PRODUCT NAME : CZDQODO DQ11 PROGRAM DATE : OCTOBER 1978 MAINTAINER: DIAGNOSTICS AUTHORS : R A JONES ITEP OVRLY JOHN EGOLF FAY BASHAW THE INFORMATION IN THIS DOCUMENT THE SOF TWARE DESCRIBED IS SUBJECT TO CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 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 NOT SUPPLIED BY DIGITAL. (OPYRIGHT (C) 1975, ITS SOFTWARE ON EQUIPMENT THAT IS 1978, BY DIGITAL EQUIPMENT CORPORATION OC11 ITEP OVERLAY CZDQOD.P11 1.0 MACY11 30A(1052) 18-0CT-78 10:51 PAGE.S» 1 SEQ 0002 05-0CT-78 09:22 ABSTRACT. THIS PROGRAM IS DESIGNED AS A MAINTENANCE AID FOR FIELD SERVICE PERSONEL. IT 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. 8. 2.2 PDP-11 A DQ11 SYSTEM WITH 4K OF CORE. 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 1. 2. LOAD ADDRESS 200 AND START TO ENTER PARAMS FROM CONSOLE LOAD ADDRESS 200 AND SET SWITCH REGISTER BIT 15 BEFORE TTY, PROCEED TO SECTION B. STARTING TO ENTER PARAMS FROM CONSOLE SWITCHES, PROCEED TO SECTION C. *THE PROGRAM MAY BE RESTARTED AT LOC 204 B. C(ONSOLE DIALOGUE PARAMETER INPUT 1. THE PROGRAM WILL TYPEOUT A. IF YOU WISH TO SETUP B. IF YOU WISH TO SETUP C. IF YOU WISH TO SETUP (CURRENT VALUES FOR PARAMETERS ARE FOUND IN OVERLAY) THE NAME OF THE VARIABLE OVERLAY. JUST THE INDICATED OVERLAY, TYPE A CARAGE RETURN A DN11, TYPE IN DN. A DM11B8, TYPE IN DMB. IF DN OR DMB WAS TYPED IN STEP 1 ABOVE THEN THE BUS ADDRESS VECTOR ETC. REFERED TO IN STEPS 2 THRU 7, PERTAIN TO THE DNT1 OR DMBB. 2. 3. THE PROGRAM WILL TYPE THE DEFAULT BUS ADDRESS OF THE INTERFACE UNDER TEST. A. B. B. 4. TYPE A CAR. RETURN TO USE DEFAULT BUS ADDRESS TYPEIN ACTUAL BUS ADDRESS THE PROGRAM WILL TYPE OUT THE DEFAULT VECTOR ADDRESS A. TYPE A CAR. RETURN TO USE DEFAULT ADDRESS TYPEIN ACTUAL VECTOR ADDRESS THE PROGRAM WILL TYPE OUT THE . (ONCE PARAMETERS HAVE ALREADY BEEN SELECTED) DEFAULT INTERFACE NOTE: 200=PRIO 4, 240=PRIO S5, 300=PRIO 6, ETC. PRIORITY DQ11 ITEP OVERLAY CZDQOD.P11 MACY11 30A(1052) 05-0CT-78 09:22 A. B. 18-0CT-78 10:51 ) PAGE 4 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 THE PROGRAM WILL TYPEOUT THE DEFAULT VALUE OF PARAMA?2 IF REQUIRED BY THE ISR. A. B. TYPE A CAR. RETURN TO USE DEFAULT VALUE ENTER ACTUAL VALUE THE PROGRAM WILL TYPEOUT THE DEFAULT VALUE OF PARAM#3 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. "END-OF -NUMBER'' CHARACTER (:). ENTER ACTUAL VALUE. THE PROGRAM WILL RETURN TO STEP B1 WAS FOR DN11 OR DMI1BB. IF THIS SETUP THE PROGRAM WILL REQUEST THAT SWITCH REGISTER BE SET. A. SETUP SWITCH REGISTER AS SPECIFIED 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. SEQ 0003 DQ11 ITEP OVERLAY CZDQOD.P11 MACY11 30A(1052) 18-0CT-78 10:51 PAGEE | SEQ 0004 05-0CT-78 09:22 C. MANUAL PARAMETER INPUT FROM SWITCH REGISTER 1. THE PROGRAM HALTS FOR ISR(INTERFACE SERVICE ROUTINE) SWR14=SETUP DM-11B ISR SWR13=SETUP DN-11 ISR SWR=000000=SETUP VARIABLE ISR 2. THE FOLLOWING HALTS ARE REPEATED FOR EACH ISR SPECIFIED. SETlP SEQUENCE IS: DN11,DM11-88 THEN VARIABLE OVERLAY. (EACH ENTRY SFT SWICHES THEN HIT CONTINUE.) B. C. D. HALT HALT HALT HALT F. GO BACK TO STEP A IF E. 3. SPECIFICATION FOR FOR FOR FOR BUS ADDRESS OF INTERFACE VECTOR _ADDRESS OF INTERFACE PRIORITY OF INTERFACE INTERFACE PARAM #1 (SEE SECT. THIS SETUP WAS FOR DN OR DMB. HALT FOR OPERATIONAL SWITCH SETTINGS. A. 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. PRESS CONTINUE TO START TESTING (SEE STEP D.) BEFORE ATTEMPTING TO RUN THIS PROGRAM, THE OPERATOR MUST ACCERTAIN THE COMPLETE COMMUNICATION LOOP AND PROCEEDURES TO BE USED, INCLUDING 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, THE SYSTEM WHICH IS IT SHOULD BE ENABLED. TO TRANSMIT FIRST SHOULD THEN BE LOADED AND STARTED AND THE CONNECTION ESTABLISHED EITHER MANUALLY OR AUTOMATICALLY (VIA DN=11). ITEP OVERLAY 05-0CT-78 09:22 D. 18-0CT-78 10:51 F PAGE 6 1 OPERATIONAL SWITCH SETTINGS. SW15=1 HALT ON ERROR SW14=1 SINGLE PASS SW14 HAS NO EFFECT IF SW04=0 SW13=1 INHIBIT ERROR TYPEOUTS SW12=1 INHIBIT ALL TYPEQUTS EXCEPT ERRORS IF SW12=0 AND SW04=1 END PASS IS TYPED AND TRANSMITTED/RECEIVED DATA IS TYPED. SW11 USE PREVIOUSLY SPECIFIED DATA Sw10 SW09 DATA SELECT (WITH SW09) DATA SELECT (WITH SW10) 1 GET _DATA FROM OPERATOR 1 TEST MESSAGE #1 (SA QUICK BROWN FOX) 1 TEST MESSAGE #2 ($8 NUMERICS) 1 TEST MESSAGE #3 ($C COMTEST/QUICK BROWN FOX/NUMERICS) niann CZDQOD.P11 MACY11 30A(1052) -—— OO0 nun - OO DQ11 SW08=1 TRANSMIT RECEIVED DATA (INTERNAL LOOPBACK MODE) SWO7=1 DO NOT TEST RECEIVED DATA SWO06=1 MONITOR TRANSMITTED DATA ON CONSOLE TTY.=* 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 INTERNAL LOOPBACK MODE SW02=1 EXTERNAL LOOPBACK MODE SWO1=1 ONE-WAY-IN MODE SWO0=1 ONE-WAY-OUT MODE SEQ 0005 DQ11 ITEP OVERLAY CZDQOD.P11 MACY11 30A(1052) 18-0CT-78 10:51 PAGE? SEQ 0006 05-0CT-78 09:22 THIS PROGRAM HAS BEEN MODIFIED TO RUN ON A PROCESSOR WITH OR WITHOUT A HARDWARE SWITCH REGISTER. WHEN FIRST EXECUTED THE PROGRM TESTS THE EXISTENCE OF A HARDWARE SWITCH REGISTER. IF INDT FOUND A SOF TWARE 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 THE CONSOLE TTY AND ANY CHANGES ARE REQUESTED (1) SWR=XXXXXX NEW= POSSIBLE RESPONSES ARE: 1. <CR> 2. 6 DIGITS 0-7 3. U IF NO CHANGES ARE TO BE MADE TO REPRESENT IN OCTAL THE NEW SWITCH REGISTER VALUE ;LAST DIGIT FOLLOWED BY <(CR>. 70 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 “G (CNTL G) ON CONSOLE TTY THE OPERATOR SETS A REQUEST FLAG TO CHANGE THE CODE CONTENTS OF (IE) SWREG, WHICH IS PROCESSED IN KEY AREAS OF THE PROGRAM 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). I1.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 FOLLOWED BY A CR(015), LF(012) ,RECEIVE TERMINATING CHARACTER(001), 4 FILLS(177), AND A TRANSMIT TERMINATING CHARACTER(000). DURING TRANSMI SSTON, 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 8Y THE OPERATER, THE TERMINATING CHARACTERS ARE ADDED. 0Q11 ITEP OVERLAY MACY11 CZDQOD.P11 05-0CT-78 09:22 30A(1052) 18-0CT-78 H PAGE 8 10:51 1 SEQ 0007 TEST MOLES INTERNAL LOOPBACK MODE 1. 2. 3. 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 SWO9 AND SW10 (Sw8=0) OR TRANSMIT THE RECEIVED DATA (SwW8=1) RETURNS TO MONITOR FOR 'END PASS'' (SW4=1) GO TO STEP 1. (SwW&=0) OR NOADN S WA = EXTERNAL LOOPBACK MODE . THE OVERLAY SETS REQUEST 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 "END PASS''. GO TO STEP 1(Sw04=0) (SW04=1) OR ONE-WAY=IN MODE 1. 2. 3. THE OVERLAY WAITS FOR_MESSAGE TO BE RECEIVED. VERIFIES THE DATA(SW07=0) RETURNS TO MONITOR FOR "END PASS'‘'(SW04=1) Ok GO TO STEP 1 (SW04=0) L] SN — ONE-WAY=0QUT MODE . E. THE OVERLAY SETS REQUEST WAITS FOR CLEAR TO SEND TRANSMITS SELECTED DATA TO SEND RETURNS TO MONITOR FOR "END PASS''. GO TO STEP 1 (SW04=0) (SW04=1) OR THE OVERLAY IS THEN ENTERED AND A CONNECTION ESTABLISHED EITHER MANUALLY OR AUTOMATICALLY. IF ONE-WAY=IN OR INTERNAL LOOPBACK MODES ARE SELECTED. THE OVERLAY WILL SET DATA TERMINAL READY AND WAIT FOR DATA. IF ONE-WAY-OUT OR EXTERNAL LCOPBACK MODES WERE SELECTED. THE OVERLAY WILL }gi~gx§$L3xTXILL SET DATA TERMINAL READY AND REQUEST TO SEND. THEN WAIT FOR 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. DQ11 ITEP OVERLAY CZDQOD.P11 MACY11 30A(1052) 18-0CT-78 10:51 PAGE 5 1 SEQ 0008 05-0CT-78 09:22 F. IF SW04=0 THE OVERLAY WILL TRANSMIT/RECEIVE DATA. IF SW04=1 CONTINUE TO THE OVERLAY WILL RETURN TO THE MONITOR AND TYPE "END PASS''. IF BOTH SWO4=1 AND SW14=1, THE PROGRAM WILL REQUEST ?EgTI%SIEQFACE 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 EITHER: *WXXXXXX TO PRINTOUT THE 8 WORDS AT LOC XXXXXX. *BXXXXXX TO PRINTOUT THE AFTER LOC XXXXXX. *( TO CONTINUE 16 BYTES 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 SEE SECTION 4. 6.0 ERRORS 6.1 ERROR REPORTINC THE ONLY ERROR REPORT FROM THE CONTROL PROGRAM OCCURS INTERFACE SPECIFIED IS NOT LOADED. IF THE 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 RECEIVLD. IF THERE IS A MISMATCH, THE FOLLOWING ERROR REPORT RECEIVED DATA=RRRRRR DATA SHOULD BE TTTTTT DATA COMPARE ERROR; BAD CATA=BBB IS PRINTED: GOOD DATA=GGG DQ11 ITEP OVERLAY MACY11 CZDQOD.P11 05-0CT-78 09:22 30A(1052) 18-0CT-78 J 10:51 PAGE 10 1 WHERE RRRRRR IS THE RECEIVE BUFFER (UP TO 512 CHARACTERS) TTTTTT IS THE TRANSMIT BUFFER (UP TO 512 CHARACTERS) BBB 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<O001> 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 #1 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. EE(JAT\;‘Pfgsrens SHOULD BE RUNNING IDENTICAL ROUTINES. 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 INITALIZF DOES NOT CLEAR THE CONNECTION (EXAMPLE THE DJ11) IF THE PROGRAM IS RESTARTED IN THE MIDDLE OF A MESSAGE AT LOC 204 OR c¥ HITTING (R AN IMMEDEATE ERROR MESSAGE FROM MAYNARD WILL BE RE- SEQ 0009 MACY11 0Q11 1 TE P OVERLAY 1 CZDQOD PN 05-0CT-78 09:22 CEIVED. 30A(1052) 18-0CT-78 SEQ 0010 THIS IS 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 CURRENTLY BEING TRANSMITTED. 8.0 K 1 PAGE 11 10:51 THE MESSAGE 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 PROGRAM DESCRIPTION 9.1 THE DQ11 INTERFACE SERVICE PARAMS ARE SETUP, AS SPECIFIED BY THE OPERATOR, BY THE ITEP CONTROL PROGRAM. TIME: PROVIDES A MEANS OF MEASURING ELASPED TIME. EVERY SECOND BY A CLOCK INTERRUPT ROUTINE IN ITEP. 9.2 9.5 IS INCREMENTED WHEN THE OVERLAY IS FIRST ENTERED BY ITEP AT LOCATION START:, THE CONTENTS OF THE SWITCH REGISTER ARE STORED 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 THE OVERLAY THEN LOOPS IN ROUTINES: $OWI ,IF ''ONE WAY WAS SELECTED. $OWO,IF 'ONE WAY OUT'' MODE WAS SELECTED. $ILB, IF "'INTERNAL LOOP BACK'' MODE WAS SELECTED. $XLB,1F 9.3 IT "EXTERNAL LOOP BACK'' IN'' MODE WAS SELECTED. $OWI: IN THIS ROUTINE THE RECEIVER IS INITIALIZED AND PROGRAM LOOPS WAITING FOR THE RECEIVER TO FINISH.IF NOTHING IS RECEIVED FOR 60 SECS A "WAITING'' MESSAGE IS TYPED. WHEN THE RECEIVER IS DONE , THE PROGRAM CHECKS DATA IF SWITCHES PERMIT,AND TYPES END PASS DEPENDING ON SWITCH SETTINGS. 9.32 $OWO: 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 $OWO OR TYPES END PASS DEPENDING ON SWITCH SETTINGS. 9.33 $ILB: THE RECEIVER IS INITIALIZED AND PROGRAM LOOPS WAITING FOR RECEIVER TO FINISH, A "WAITI MESSAGE IS TYPED EVERY 60 SEC IF NO ACTION. WHEN RECEIVER IS DONE PROGRA/M CHECKS DATA IF SWITCH SETTINGS PERMIT. AND END PASS IS TYPED IF SWITCH SETTINGS PERMIT. THEN THE TRANSMITTER IS INITIALIZED, A "WAITING'' MESSAGE IS TYPED EVERY 60 SEC IF NO ACTION. WHEN TRANSMITTER IS DONE PROGRAM RE TURNS TO START OF ROUTINE. 9.34 ($ILB) $XLB: IF IN HALF DUPLEX THE TRANSMITTER IZ INITIALIZED, A "WAITING MESSAGE IS TYPED EVERY 60 SEC IF THERE IS NO ACTION 0Q11 ITEP OVERLAY MACY11 30A(1052) CZDQOD.P11 05-0CT-78 09:22 18-0CT-78 10:51 L1 PAGE 12 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 CHECKED 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 INITIAUZED "WAITING'' MESSAGE IS TYPED EVERY 60 SEC IF THERE IS NO ACTION. WHEN BOTH THE RECEIVER AND TRANSMITTER 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 P IT RETURNS TO ENTER:, OTHERWISE 9.5 IT RESTARTS THE PROGRAM. ENTER: IS ENTERED FROM THE MONITOR AFTER TYPEING 'END PASS'’, IT RESTORES THE GENERAL REGISTERS AND THE TRANSMITTER (SR AS SAVED IN EOP., THE DELAY FLAG IS SET AND PROGRAM RETURNS TO THE SCAN ROUTINE (OWO,0WI,ILB,XLB) WHERE IT CAME FROM. 9.6 THE INITIALIZE TRANSMIT SUBROUTINE AT STARTX: SETS UP THE INTERFACE AND POINTERS NECESSARY TO INITIATE A TRANSMIT OPERATION. AFTER SETTING ‘DATA TERMINAL READY'' AND ‘REQUEST TO SEND'‘ A CHECK IS MADE ON PARAM2 TO DETERMINE IF HALF DUPLEX OPERATION WAS SELECTED BY THE OPERATOR. IF IT WAS, THE LBRQJTI'& WAITS FOR CLEAR TO SEND. A 'WAITING FOR CLEAR TO SEND' PRINTOUT OCCURS EVERY 30 SECONDS UNTIL CLEAR TO SEND IS ASSERTED. 9.7 9.8 THE INITIALIZE RECEIVED SUBROUTINE AT STARIR: SETS UP THE INTERFACE AND POINTERS NECESSARY TO RECEIVE A MESSAGE. THE TRANSMIT INTERRUPT SERVICE ROUTINE, AT XISR:, IS ENTERED VIA TRANSMIT INTERRUPTS FR(H THE INTERFACE. A TEST IS MADE TO SEE IF THE LAST CHARACTER TRANSMITTED WAS A NULL (ALL ZEROS) CHARACTER. IF IT WAS; THE TRANSMIT LOGIC IN THE INTERFACE IS RESET AND THE TRANSMIT COMPLETE FLAG IS SET. AT XISR1: THE NEXT CHARACTER IS TRANSMITTED AND PRINTED ON THE TTY IF THE MONITOR TRANSMIT SWITCH IS SET. 9.9 THE RECEIVE INTERRUPT SERVICE ROUTINE (AT RISR:, IS ENTERED VIA RECEIVER INTERRUFTS 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 SEQ 0011 DQ11 ITEP OVERLAY MACY11 (ZDQCD.P11 05-0CT-78 09:22 30A(1052) 18-0CT-78 10:51 M 1 PAGE 13 SEQ 0012 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 CSR_AND DBR WILL BE SAVED AND PRINTED OUT AFTER THE COMPLETE MESSAGE HAS BEEN RECEIVED. 9.10 THE DATA TEST SUBROUTINE AT TESTD: IS ngE?S(E)DAFTER 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 IS RECOGNIZED. 'FILL® (ALL ONES) CHARACTERS ARE IGNORED. IF A MISMATCH IS DETECTED, THE COMPLETE CONTENTS OF THE INPUT BUFFER AND GOOD DATA IS PRINTED. DQ11 RESTRICTIONS THE DQ11 HAS TWO MODES OF OPERATION IN ITEP, NORMAL( WHICH INTERUPTS EVERY TWO CHARACTERS), AND HI-BAUD(ONE INTERUPT PER MESSAGE, THE WHOLE MESSAGE IS TRANSMITTED OR RECEIVED ON A COMPLETE WORD COUNT.). WHEN IN HI-BAUD MODE, DATA CANNOT BE MONITORED ON THE CONSOLE TTY. IF SW 5=1 (MONITOR RECEIVED DATA) AN ‘R"* WILL BE TYPED AFTER THE WHOLE MESSAGE IS RECEIVED. IF SW 6=1 (MONITOR TRANSMIT DATA) A 'T'* WILL BE TYPED AFTER THE WHOLE MESSAGE IS TRANSMITTED. IN nww. MODE, EVEN IF THE CONSOLE TTY IS FASTER OR THE SAME BAUD AS THE DQ11, NOT EVERY CHARACTER CAN BE TYPED BECAUSE OF THE TWO CHARACTER PER INTERUPT OPERATION, IN THIS CASE EVERY OTHER CHARACTER WILL BE TYPED IF DATA MONITORING IS SELECTED. HI-BAUD MODE (SELECTABLE IN PARAMA2) SHOULD BE USED FOR BAUDS OF 40,000 OR HIGHER. NORMAL MODE IS SUFFICIENT FOR BAUDS LOWER THAN 40,000 . 10.0 PARAMETERS FOR THE DQ11 PARAM#1 IS NOT USED (0) PARAM#2 (LOW BYTE) BIT 0 BIT 1 FULL DUPLEX (1), DEFAULT= HALF DUPLEX (0) HI-BAUD (1), DEFAULT= NORMAL (0) (BITS 0,1 ARE NOT LOADED INTO ANY DQ!1 REGISTERS, PARAMY2 (HIGH BYTE) IS LOADED INTO THE SYNC REGISTER. BITS 8-15 SYNC CHARACTER, DEFAULT= 26 (26) PARAMN3 S NOT USED (177777) THEY ARE ONLY SOF TWARE FLAGS) DQ11 ITEP OVERLAY CZDQOD.P11 MACY11 30A(1052) 05-0CT-78 09:22 18-0CT-78 10:51 N 1 PAGE 14 SEQ 0013 0DQ11 ITEP OVERLAY CZDQOD.P11 18-0CT-78 MACY11 30A(1052) 05-0CT-78 09:22 MAAA AL B 10:51 i PAGE 15 il d 2 SEQ 0014 ittt : DQ11 INTERFACE SERVICE PARAMS DQ11: .=11000 _ASCIZ /DQ / ittt siiis sl PR RRRERERIOORS 2222838 i 000040 BA: 160010 RIV: 300 PRIOR: 240 PARAM1: 0 P IRDA: IXDA: 2 SETTLE: B2016: TIME: 177777 ;PARAM #2 ;PARAM #3 O 0O .WORD .WORD .WORD 9 0 O ;ADDR OF BIN TO OCT TYPE ROUTINE s TIMER 3 000 ;TRANSMITTER TERMINATING CHAR. 001 JRECEIVER TERMINATING CHAR. .xg — .BYTE SWR: ;BUS ADDRESS .WORD .WORD — .WORD FLAG: ;ISR NAME ;VECTOR ADDRESS sPRIORITY ;PARAM #1 Pm: 013000 A= =200 i il o ) i i D o i D D s i D i D s D i e b b D D i D e D D e i e ) e b D &H < s eleolalelalelololalelelalololelalelelelolels) ;'.".Q.'Q.......'..""'"Q.Q'......."...."""'.'."'...'..' .BYTE . WORD 177570 JINITIAL READ DATA ADDRESS JINITIAL XMIT DATA ADDRESS 8 ;LINE SETTLE DELAY FLAG START 0 JADDR OF START OF PROGRAM DISPLAY:177570 :'itt"t'i'tt'fi'tt‘.'ttttt'tt.ttttfi'i"tl'itttt"fi*"lt"fi.t.'t' SRR AR CONSTANTS + WORKING STORAGE A A A AR A A AR AR STAT=R0O XFLG=100000 RFLG=40000 g?:C“DC) oo v TXWC:0 RXWC:0 XCC: RCC: —e O AR AR AR R R AR AR AR AR AR AR AR AR AR AR N JXMIT COMPLETE FLAG JRCV COMPLETE FLAG .DATA SET STATUS CHANGE FLAG JINHIBIT PRINTOUTS 0 0 0 0 0 ;SAVED XMIT CSR ;SAVED RCV CSR ;RCV CSR SAVED ON ERROR sRCV DATA REG SAVED ON ERROR JRCV CSR SAVED ON DS CHANGE RDA: XDA: ¢ 0 0 0 JXMIT CHAR COUNT ;RCV CHAR COUNT ;RCV DATA ADDR. ;XMIT DATA ADDR. 177566 TKS: TKB: TPS: TPB: 177560 177562 177564 177566 000001 FULL .DUPLEX=000001 OO0O0O0O0O _— D — ) D D olele] OCOOC —_— 2 — —2 —2 ~ OOOCO B S S S —_ SXCSR: SRCSR: ERCSR: ERDBR: DSSTAT: RS N3 ;$§¥g n DSFLG=20000 BIT13=20000 AR AR DQ11 ITEP OVERLAY CZDQOD.P11 MACY11 05-0CT-78 09:22 30A(1052) 18-0CT-78 10:51 £ PAGE 16 & SEQ 0015 655 'fittfi'tfi.tt"ttttttitt'tttt'ttQttti'tfit.fittttttttt'ii.tififi'tttti 656 : DQ11=X INTERFACE SERVICE ROUTINE START: NOP MOV 657 'Qtttt'tt"fitt'tt*tttfi""'ttttfi**t.'t.t."tfi"ttt*Qttttt'i..t't 658 659 011106 011110 000240 017700 177730 661 011120 013702 011006 663 011130 013722 011010 660 011114 062700 662 011124 177400 012722 015052 MOV #RISR, MOV MOV MOV MOV MOV BIC MOV #XISR. (RQ)+ PRIOR. (R2)+ : BA, R4 *SETUP BUS ADDR INDEX PARAM1, @RCSR :SETUP VARIABLES PARAMZ _ R2 ; #0001 ,R2 : R2 XCSR(R4) - IN CSR'S MOVB #14.REG(RCSR) CLR DEC 8PL CLR CLR CLR SEC (RCSR) R3 1% aRCSR XCSR(R4) ERR (R4) *SEQUENCE CONTROL REGISTER *HAVE ALL 16 LOCATIONS BEEN CLEARED? *IF NO THEN BRANCH, OTHERWISE PROCEED ON *CLEAR THE RX CSR *CLEAR TX CSR ‘CLEAR THE snnoa REGISTER SEC (R4 ) *CLEAR THE SECONDARY REGISTER 011136 011140 011144 011150 011156 011160 011164 012722 013722 013704 013714 013702 042702 010264 014230 011010 011004 011012 011014 000001 000002 €72 011176 112764 000014 011170 673 011202 674 675 676 677 678 679 011206 011212 011214 011216 011220 011224 012703 000017 110364 000001 005064 005303 100372 005014 005064 005 MOV MOV 000005 000006 684 685 686 687 688 689 690 691 ggg 011250 011254 011260 011262 011264 011272 011300 011304 011312 011316 005064 105264 005303 001364 112764 012764 005037 052764 005037 005037 MOV 1$: 000002 000004 680 011230 012703 000020 681 011234 052764 010000 000004 682 011242 042764 060000 000004 683 ;SETUP MODE IN RO c177zoo 664 665 666 667 668 669 670 671 RO BIC 2%: 000006 000005 000006 000002 R2 PRIOR. (R2)+ (R2)+ #17 .R3 R3,7(RCSR) MOV BIS BIC #16. .R3 #ITI2 ERR(RG) #60000 . ERR (R4 ) INCB DEC BNE MOVB MOV CLR BIS CLR CLR REG(R4) R3 2% #12.REG(R4) #BIT5,SEC(R4) ERRORS #BIT3,XCSR(R4) TIME DELAY CLR 000005 000012 000040 014220 000010 011032 013274 MOVB RIV, RO :SETUP :STRIP JUNK :INTERRUPT =VECTORS *SET=UP TO CLEAR ALL 16 LOCATIONS :OF THE SEQUENCE CONTROL REGISTER *CLEAR A LOCATION OF THE : SETpCOUNTER -SETTWRITE ENABLE anaurmnmm *GET NEXT REGISTER ‘DONE YET?? *KEEP CLEARING *SELECT THE MISC REGISTER -ISSUE A MASTER CLEAR. ;ENABLE ERROR INTERUPTS ‘RESET TIMER ‘RESET DELAY INDICATOR. 694 ggg ;ROUTINE TO FIGURE RX AND TX WORD COUNTS. 697 698 *FOR HIGH BAUD THE TX AND RX MESSAGES MUST BE IDENTICAL *THE DATA WILL BE TRANSFERED AT A BURST MODE. 983 701 702 703 706 705 706 707 708 709 710 :THE TXWC AND RXWC SET FOR HOW MANY CHARS TO DEAL WITH. 011322 011322 011326 011330 011332 011336 011340 011342 011346 011352 013702 005003 005203 123722 001374 005403 010337 013702 005003 011022 011040 011062 011022 %Xz 1$: MOV CLR INC CMPB BNE NEG MOV MOV CLR IXDA,R2 R3 R3 TX.TERM, (R2)+ 1% R3 R3, TXWC 1M ,R2 R3 DQ11 ITEP OVERLAY CZDQOD.P11 011354 005203 714 011364 010302 011370 010337 715 ;}9 011356 011362 011366 18-0CT-78 05-0CT-78 09:22 711 712 713 MACY11 30A(1052) 123722 001374 005403 28: 011041 10:51 INC R3 MOV R3.R2 (MPB BNE SEQ 0016 RX.TERM, (R2)+ 2% NEG 011064 D_2 PAGE 17 R3 MoV R3.,RXWC 718 719 720 JRRARARARARRRARRRRARARRAR RN RARRR AR A AR 721 : ROUTINE USED TO GOTO 723 H ON MODE SELECTED. 011032 GO: CLR 011572 000002 1$: 011464 000010 2$: 011670 000004 3$: 722 : 724 725 726 727 728 729 730 731 732 733 734 735 736 737 738 739 740 741 742 743 764 745 SUBROUTINE DEPENDENT JRERRKARARRRRARRNARARAARACR RS AR AR AR 011374 011400 011404 011410 011414 011416 011422 011426 011430 011434 011440 011442 011446 011452 011454 011460 011462 005037 005037 005037 032700 001402 000137 032700 001402 000137 032700 001402 000137 032700 001402 000137 000000 000776 013274 013300 000001 012120 4%: 746 TIME CLR CLR BIT BEQ JMP BIT BEQ JMP BIT BEQ JMP BIT BEQ DELAY STOP #0W0 ,MODE 1$ $0w0 #OWI ,MODE 2% $0wW1 #1LB,MODE 3% $ILB #XLB ,MODE 4% JMP HALT BR $XLB e 747 AR AR AR 748 749 750 751 752 : ; : ; : 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''. $OwWl: KBDIN JSR BIT BNE 753 754 755 756 757 758 759 760 761 762 763 764 765 766 AR AR AR AR AR AR AR AR R 011464 011466 011472 011476 011500 011506 011510 011512 011516 011520 104416 004737 032700 001013 023727 103771 011402 016403 104001 005037 014556 040000 011032 000002 011032 18: 000100 cMP BLO MOV MoV HLT (LR AR AR R RRR R AR AR AR RARA AR e PC,STARTR #RiLG,STATY 2% TIME #4100 $ aRCSR, R2 XCSR(R4) ,R3 1 TIME AN R AR T DQ11 ITEP OVERLAY MACY11 30A(1052) CZDQOD.P11 05-0CT-78 09:22 011526 011534 032777 SRAAL L —_ D O%O‘b@'\)& 000762 [elelolelolels) 011524 000200 177310 012510 040000 000020 011570 012350 177270 18-0CT-78 2%: 3%: 013276 4%: 10:51 E 2 PAGE 18 BR 1% BIT BNE JSR BIC BIT BEQ MOV #NODAT ,aSWR 3% PC,TESTD #RFLG,STAT #LOO0P,aSWR 4% #4$ ,BACK JMP BR EOP $OWI R : NOTE THAT WHEN IN THIS MODE HALF DUPLEX IS THE ONLY MODE AVAILABLE. : ENABLED. R $0OW0: 100000 011032 1%: 000100 "ONE WAY OQUT'' MEANS THAT ONLY THE TRANSMITTER IS KBDIN JSR CLR BIT BNE CMP BLO MOV MOV 000002 HLT CLR 011032 100000 ROUTINE USED IF 'ONE WAY OUT'' WAS SELECTED. : : : 013302 011032 000020 177172 011666 012350 013276 T T, 2%: BR BIC BIT BEQ MOV 3%: JMP BR THE RECEIVER IS NEVER '‘TURNED ON. S PC,STARTX TIME #XFLG,STAT 2% TIME #7100 1$ aRCSR,R2 ¥CSR(R4) ,R3 ] TIME 1% #XFLG,STAT #LOOP,aSWR 33 #3% ,BACK EOP $0W0 SEQ 0017 DQ11 ITEP OVERLAY MACY11 CZDQOD.P11 05-0CT-78 09:22 30A(1052) 809 810 811 812 813 814 840 841 842 843 844 845 846 847 848 849 85C 851 852 853 854 855 856 857 ) T S T TN IR 011670 011672 011676 011702 011706 011710 011716 011720 011722 011726 011730 011734 011736 011744 011746 011752 011756 011764 011766 011774 012000 012006 012010 012014 012020 012024 (12026 (12030 012034 012036 012042 012044 012050 012054 012060 012062 012070 012072 011032 1%: 000100 000002 011032 000200 012510 040000 000020 012000 012350 000400 177100 177060 2%: 3%: 013276 177036 4%: 011020 011022 011074 000177 011032 7%: 100000 5%: 013302 011032 000002 863 012114 011670 000100 AR AR A AR A AR AR KBDIN JSR CLR BIT BNE (MP BLO MOV MOV HLT CLR BR BIT BNE AR AR o IS DESIRED; IT IS GIVEN. THE CYCLE IS REPETED AS ABOVE. AR AR A AR A AR AR R AR AR AR TIME #RFLG,STAT 2% TIME,#100 1% aRCSR,R2 ?CSR(R&),R3 TIME 1% #NODAT ,aSWR 3% PC,TESTD #RFLG,STAT BEQ MOV 4% #4$ BACK BIT JMP BIT BEQ MOV MOV #LOOP,aSWR MOV EOP #6400, 7% IRDA, IXDA, R3 MOVB INC #177, R3 (R)+, .- MovB #177, CLR TIME CLRB JSR BIT BNE BR BIC JMP AR AR R AR AR PC,STARTR JSR BIC CLR 68: "END PASS'' IS TRANSMITTED; (MP BLO MOV MOV 011032 100000 AR MOVB 000177 012074 012100 012102 012106 012110 $ILB: 014556 011032 040000 858 859 860 861 862 IT 1S IF IS SRR AR THEN THE TRANSMITTER IS ENABLED. AFTER THE WHOLE MESSAGE L 817 A AR SEQ 0018 ROUTINE USED IF INTERNAL LOOP BACK'' WAS SELECTED. NOTE THAT WHEN IN THIS MODE; HALF DUPLEX IS THE ONLY MODE AVAILABLE., “INTERNAL LOOP BACKTM MEANS THAT THE RECEIVER IS '‘TURNED ON AND A COMLPETE MESSAGE IS RECEIVED, IF DATA IS TO BE CHECKED IR 816 822 823 824 825 826 827 828 829 830 831 832 833 834 835 836 837 838 839 F 2 PAGE 19 10:51 S RAA AR AR AR AR AR AN AR 815 818 819 820 821 18-0CT-78 (R3)+ QSWR R2 R3 sUSE EXTERNAL DATA? :BR_IF NO :SET POINTER :SET POINTER (R3)+ :MOVE INPUT TO OUTPUT =(R3) :INSERT A FILL CHAR ;BUMP ADDRESS XDA (R3)+ PC,STARTX #XFLG,STAT 6% TIME #4100 5% aRCSR,R2 ¥CSR(R4),R3 T IME 5% #XFLG,STAT $..8 sSETUP XMIT DATA ADDR *LOOP IF NOT ZERO CHAR INSERT ANOTHER FILL s INSERT ZERO (CHAR AR ARk hd DQ11 ITEP OVERLAY CZDQOD.P11 MACY11 30A(1052) 18-0CT-78 10:51 PAGE 30 2 SEQ 0019 05-0CT-7€ 09:22 MRS A S SRRl d ittt iiii ittt iiiiiiiiisississdy ROUTINE USED IF "EXTERNAL LOOP BACK'' WAS SELECTED. EITHER HALF OR FULL DUPLEX MAY BE SELECTED IN THIS MODE. EXTERNAL LOOP BACK'' MEANS THAT THE TRANSMITTER IS FIRST TURNED ON (IF HALF DUPLEX) AND THE WHOLE MESSAGE IS TRANSMITTED; THEN THE RECEIVER IS ENABLED. AFTER THE WHOLE MESSAGE IS RECEIVED DATA WILL THEN BE CHECKED IF DESIRED AND END PASS WILL BE GIVEN IF DESIRED. THEN THE CYCLE IS REPEATED AS ABOVE. IF RUNNING IN FULL DUPLEX THE PROGRAM WAITS FOR BOTH THE RECEIVER AND TRANSMITTER TO FINISH THEN RESTARTS THE RECEIVER AND TRANSMITTER. .d.a_ha_a;::.acrgasa; ~ Vi i i i i ) i b - b o b W 889 USUSTS S STSTNTN LN [N ],8 1,8 lelelolelololelelelelsls) ttQtttt.iitt".ttfi"'.""'Q.Q"Q..ttltttt.".Qtfi.'fitt....t..'.'ttt. 012172 000001 011014 $XLB: 014556 013302 011032 00000 2%: 040000 7%: 011032 1%: 000100 000002 011014 3%: 074556 000001 011014 A ¥ 100000 011032 100000 b b - ~ - 0 b b elelelele] 018380 #RFLG,STAT BLO MOV MOV 2% aR(SR,R2 )1(CSR(R4).R3 BNE (MP BR 6%: 8%: 176524 176510 013276 4% TIME 4100 T IME 2% #FULL .DUPLEX ,PARAM? BIC JSR #XFLG,STAT PC,STARTR BIT #FULL .DUPLEX ,PARAM? BIT #XFLG,STAT BR BEQ 7% 2% 8$ 6% TIME,#100 4% MOV MOV aR(SR,R2 ¥CSR(R4) .R3 ER 4% TIME BIC BIC (LR BIT #XFLG,STAT #RFLG,STAT TII4E #NODAT ,aSWR JSR BIT BEQ PC,TESTD #LOOP,aSWR $XL8 BNE 5%: 3% BIT BNE HLT CLR 011032 012510 000020 BIT BNE BLO 000002 040000 011032 000200 PC,STARTR PC,STARTX TIME #XFLG,STAT BNE cMP 000100 #FULL .DUPLEX ,PARAMZ 1% JSR JSR CLR BIT HLT CLR 011032 000001 KBDIN BIT BEQ MOV JMP 5% #L¥LB,BACK EOP DQ11 ITEP OVERLAY MACY11 30A(1052) CZDQOD.P11 05-0CT-78 09:22 18-0CT-78 10: 51 H 2 PAGE 21 SEQ 0020 CRARRAARRA A AR AN AR AR w : : ROUTINE TO RETURN TO MONITOR FOR END PASS. ."'"'...*"..'QQ'*Q""'i" 012350 104414 016437 042737 042764 012766 010037 010137 010237 010337 010437 010537 000207 013700 013701 013702 013703 013704 013705 012737 053764 000177 000340 177737 012436 013260 013262 013264 013266 013270 013272 013260 013262 013264 013266 013270 01327 177777 012506 00057 EOP: 012506 012506 000002 000002 ENTER: 013274 000002 QTPIE: MOV BIC BIC MOV MOV MOV MOV MOV MOV MOV RTS STPS,PRTY? XCSR(R4) ,QTPIE #*C<TIE>,QTPIE #TIE, XCSR(R4) #ENTER Z(SP) RO, SAVRO R1,SAVR1 RZ.SAVRZ R3,SAVR3 R4, SAVRS RS, SAVRS PC ;SET _PS PRIORITY TO 7 sSAVE TX (SR sCLEAR ALL BUT TX IE. sCLEAR TX IE (EVEN IF IT WASN'T SET) :SET FOR RETURN IF SW 14=1 ;SAVE REGISTER 0 s SAVE REGISTER 1 :SAVE REGISTER 2 ;SAVE REGISTER 3 sSAVE REGISTER 4 sSAVE REGISTER 5 JRETURN TO CONTROL PROGRAM MOV MOV MOV MOV MOV MOV MOV BIS JMP SAVRO,RO SAVR1 ,R1 SAVR?2 ,R2 SAVR3,R3 SAVR4 R4 SAVRS RS #-1,DELAY QTPIE ,XCSR(R4) aBACK JRESTORE RC 000000 ;RESTORE R1 sRESTORE RZ2 sRESTORE R3 ;RESTORE R4 sRESTORE RS ;IF ORGINALLY SET; SET TX IE SUBROUTINE TO CHECK RECEIVER DATA. 012720 104400 013001 o v ) 013701 013702 122122 001776 123741 001453 122742 001005 010237 104400 011056 TESTD: MOV BEQ BIT BNE TYPE 020000 176272 011022 011020 011040 000002 012602 176320 JSR TST TYPE TSTDAT: MOV MOV SCAN4: (MPB BEQ C BEQ CMPB BNE MOV TYPE ERDBR, ~=-(SP) TSTDAT #BIT13,3SWR TSTDAT ,MSGO RO,aB2016 -(SP) LMSG1 IXDA, R1 IRDA, R2 (R1)+, (R2)+ SCANS TX.TERM,=(R1) TESTDX #002,-(R2) 2% RS,19 ;WAS THERE A RECEIVE ERROR? ;BR IF NO :BR s INHIBIT PRINTOUTS? :BR_IF YES ;<15><12>THERE WAS A RECEIVE ERROR. RBUF= :PRINT CONTENTS OF RBUF :<15<12> sSETUP XMIT DATA ADDR SETUP RCV DATA ADDR DATA oK ? :BR F OK ;1 S § END OF DATA ;BR IF YES ~ ~ —_ v n —_— N P P P G 013746 001413 032777 001007 104400 004077 005746 N G G i : : :t't'fi.fitt'."t"".fi.".""fit.fit — OQOOOOOOSOOOOOOOOO "ti""...Q.t*fifi"".fi*..".'*.fi.fi. MACY11 30A(1052) 18-0CT-78 10:51 PAGE 52 2 SEQ 0021 0Q11 ITEP OVERLAY CZDQOD.P11 05-0CT1-78 09:22 000000 1%: 000443 2%: 105712 001441 122721 0 . WORD BR TESTDX (R2) TESTDX #1177 (R1)+ 000177 0177 (R2)+ CANI SCAN4 -(R2) PARAM2+1, (R2) + 011015 020000 013004 011020 176174 SCANSG SCANS: #MIT13,3SWR DERR ,MSG2 012666 RDAX : 012704 042503 ,MSG3 IXDA, .+10 ‘BR IF YES ;BACKUP *1S 17 PILLY? :BR IF YES ;BACK UP POINTER ;BR IF CHAR WAS SYNC ;DATA ERROR JINHIBIT PRINTOUTS BR IF YES J<15><12>RECEIVED DATA = <15><12> ;SETUP DATA ADRESS :PRINT RECEIVED DATA JRECEIVED DATA ADDR. ;<15><12>DATA SHOULD BE<15><12> ;SETUP ADDR. sPRINT GOOD DATA ;SETUP RCV DATA TESTDX: (SP)+ PC ;POP STACK JRETURN FROM SUB/ROUT MSGO: MSG1: MSG2: :}g;:;g;/THERE WAS A RECEIVER ERROR. REGISTER (SEL 2) MSG4: MSGS: .EVEN SAVRO: SAVR1: SAVR?: SAVR3: : SAVRS SAVRS: DELAY: BACK: STOP: DATA ERROR HALT <15><12>/RECEIVED DATA = /<15><12> <15><12>/DATA SHOULD BE/<15><12> MSG3: =/ 15><12>/PLEASE MAKE CONNECTION (DIAL NUMBER)./ 15><12>/WHEN CONNECTION COMPLETE; HIT CONTINUE SWITCH./<15><12> 15><12>/PLEASE MAKE CONNECTION (DIAL NUMBER) ./<15><12> AAA 051105 RDAX YES ;IS IT FILL CHAR? (RZ) R2 RN 012712 012714 012716 IRDA, sBR IF (R1) ,R3 ;SETUP XMIT DATA DERR: 012720 013001 013004 013031 : 000177 jelelelelelelelele §SRSI828L8RYE 838 $828R5R2L2S NV v 388 VB WN=O Y e [ e ) —d —d —d — e lelalelelele LS SN NN —d NN NN N D e d —_ 0 a - 976 977 978 979 DQ11 ITEP OVERLAY CZDQOD.P11 MACY11 30A(1052) 18-0CT-78 10:51 PAGE 53 2 05-0CT=78 09:22 SEQ 0022 INITIALIZATION OF TRANSMITTER. 1016 .-tttttttttttttttttt'tt'ttttttttttttt't'ttt.ttttttttttt'ttttttfittttttt 1017 “INITIALIZE TRANSMITTER. 1018 1019 *PURPOSE OF THIS ROUTINE IS TO SEND OUT FIVE :SYNC CHARS. THE SYNC CHAR TO BE SENT IS FOUND 1020 1021 1022 1023 1024 1025 1026 013302 005737 013274 1028 013310 005037 014214 1027 *IN LOCATION PARAM2+1 (HIGH BYTE OF PARAM2). *WHEN THE SYNC CHARS. HAVE BEEN TRANSMITTED :THE TRANSMITTER WILL BE ENABLED FOR REAL DATA :TRANSFER. CHARACTERS WILL BE TRANSMITTED ONE AT A TIME. .'ti'tttttttttttttttttttttttttttfittttttttttttttttt.tttttttttttttt'tttt 013306 001416 1029 1030 1031 013314 013322 013330 012737 062737 001374 1033 013336 001371 1032 1034 1035 1036 1037 1038 1039 1040 1041 1042 1043 1044 1045 1046 }8‘45 013332 013340 000007 000001 005337 014216 005037 013274 013344 013350 005037 042764 011032 000300 013364 013372 013374 032764 001403 004737 000004 013356 052764 013400 013402 013406 000740 012701 012705 013416 005301 013422 105015 013412 013420 113725 000010 STARTX: (000002 000002 000002 1%: 011015 1056 013440 1057 1061 1062 1063 1064 1065 1066 1067 1068 1069 1070 1071 TEMP2 =14 DELAY TIME #300 XCSR(R4) ;ZERO DELAY :CLEAR BOTH DONE BITS FROM TX BIS #BITS,XCSR(RG) B8R MOV MOV STARTX #5.R1 #SYNC RS *GOTO BEGGINING *SET FOR FIVE SYNC CHARS. *SET POINTER LOCATION DEC R1 *ALL DONE?? CLRB (RS) *SET LAST BYTE TO ZERO MOVB 001374 *NO GO AHEAD AND TURN ON TX BNE #BIT2.XCSR(R4) 1% PC,GETPRI PARAM2+1,(RS)+ .~6 :ENABLE ERRORS :WHERE IS THE POINTER POINTING :BR IF PRI IS NEXT. “GO TOGGLE TO GET PRIMARY. :LOAD IN SYNC CHARS. *BRANCH IF NOT DONE :PICK UP AND TRANSMIT QUT. 013424 1058 1059 1060 CLR BIC BIT BEQ JSR 015426 000005 014222 CLR TEMP1 JIF SW04=1 & SW14=0 WAIT BEFORE TURNING TX ON ;NOW THE SYNC CHARS ARE LOADED IN CORE FOR THE D@11 TO 1052 1056 47, TEMP? #1 . TEMP .6 DEC 1049 1055 MOV ADD BNE BNE NDLY: DELAY NDL Y CLR 014216 014214 }8;9 1053 TST BEQ 112764 013432 012764 013446 012764 013454 013460 013466 013472 013500 000012 MOVB 004000 000006 MOV 014222 000006 MOV 177773 000006 MOV 112764 000002 105264 5 012764 000005 000005 MOVB 042700 052764 005737 100000 001000 013300 104400 013206 013516 032764 002000 000002 16%: 013526 032764 002000 000002 8$: 011032 000036 013504 001004 013512 005137 013506 013524 013534 013536 013544 013546 013550 001037 001017 023727 103770 011402 016403 013300 000002 000002 #12,REG(R4) #4000,SEC(R4) ;SELECT MISC REGISTER :SET FOR EIGHT BITS PER CHAR. #2,REG(R&) *SELECT THE TX BA PRI. INCB REG(R4) *SELECT THE TX WC PRI. BIC BIS TST #XFLG,STAT #DTR _XCSR(R4) STOP *RESET TX COMPLETE FLAG JSET DATA TERMINAL READY JFIRST TIME HERE? TYPE ,MSGS BNE COM #SYNC,SEC(R4) #-S,SEC (R4) 168 STOP BIT #MRDY ,XCSR(R4) BIT #MRDY , XCSR(R4) BLO 13 BNE BNE CMP MOV MOV :LOAD TX BA PRI. WITH SYNC ADDR. :SET FOR FIVE CHARS. ‘BR IF NO *MAKE CONNECTION 2% 3g TIME,#36 an"SR,R2 XCSR(R4) ,R3 ;HAVE 30 SEC ELAPSED YET *NO NOT YET *LOAD FOR TYPEOQUT ;LOAD FOR TYPEOQUT DQ11 ITEP OVERLAY MACY11 CZDQOD. P 05-0CT-78 09:22 013554 010000 D D D e d d D BIT BNE 011032 12%: 014214 000005 000001 3%: 000001 2%: 010000 108: 011032 011032 011032 8$ TEMP1 #5,TEMP2 DEC TEMP2 BNE 000400 020000 000002 000002 011032 000036 000002 010000 175074 011032 9%: 11%: 14%: ;TYPE "WAITING TO TRANSMIT'' MESSAGE. #1,TEMP1 .- .~14 g;ULL.DUPLEX.PARAMZ gég g}OOOO,XCSR(Rl.) CMP TIME ,#36 MOV MOV BIT aR(SR,R2 XCSR(R4) ,R3 #SW12,aSWR HLT 1 BR 108 BNE 13%: s INHIBIT PRINTOUTS? :BR IF YES ghllg BLO 175154 TIME BR CLR MOV ADD mE 014216 000002 010000 HLT+2 CLR #5W12,aSWR 12% SEQ 0023 CLR 108 13% TIME ;IS CARRIER UP? ;30 SECONDS UP ? :NOT YET :PREPARE TYPE OUT :AS ABOVE s INHIBIT PRINTOUTS? :BR IF YES :TYPE 'WAITING ** :ZERO TIMER CLR BIS BIT TIME #RQTS ,XCSR(R4) #CTS XCSR(R4) JSET TIME=0 CMP BLO MOV MOV BIT BNE TIME ,#36 118% @RCSR,R2 XCSR(R4) ,R3 #SW12,aSWR 14% :30 SECONDS UP ?? :NOT YET :PREPARE TYPE OUT +AS ABOVE :INHIBIT PRINTOUTS? ;BR IF YES BR 118 BNE HLT CLR 6% 2 TIME sTYPE "WAITING ** ;ZERO TIMER ;TEST AND SETUP FOR HI BAUD RATE. NOTE THE MESSAGES ;MUST BE THE SAME LENGTH IN Hl BAUD. 000002 011014 000006 011022 000007 011062 000005 000006 000095 000006 6$: BIT BEQ MOVB MOV MOVB MOV #H] .BAUD ,PARAM?2 17% ;HAS HI BAUD BEEN SELECTED? :BR IF _NO sSEL SEC TXBA :LOAD SEC TXBA WITH DATTA #6 ,REG(R4) I1XDA, SEC (R4) #7 ,REG(R4) TXWC, SEC (R4) SSEL SEC TXWC sSET TXWC FOR MAX CHAR XFER RATE — e e e D D ) K 2 18-0CT-78 10:51_PAGE 24 INITIALIZATION OF TRANSMITTER. 175262 D D D D D D D D D D D D D D D D D d D d D D D d D d D d i D ~N — e d e d el D o \lo\\hl\w'\)—'gom\lo\\hbwm-"osg Ngagwf\)—lg 3BIRIRIIIIRRRPERERE 1080 032777 30A(1052) HERE NOW BECAUSE CLEAR TO SEND HAS BEEN SET NOW SEND THE SYNC CHARS. 000001 011032 000002 000002 17%: BIS #.GO XCSR(R4) 4%: TSTR XCSR(R4) CLR TiME ;SET THE GO BIT sSET TIME TO ZERO 2iS TX DONE WITH SYNCS J:+4D }} 1 n 1 1 n 1 1 1 1 1 1 1 1 1 1 1 1 1 n -4 om . e g_. 100417 023727 103771 011402 014060 032777 010000 005037 000756 011032 014072 014076 016403 001001 104002 011032 000002 000036 BM] CMP BLO MOV 5% TIME ,#36 48 aRCSR,R2 BIT #SW12,aSWR CLR BR TIME 48 MOV 174756 158: BNE HLT XCSR(R4) ,R3 158 2 :BR IF YES *HAVE 30 SECOND GONE BY?? *BR IF NOT YET :LOAD FOR TYPE OUT :LOAD FOR TYPE OUT *INHIBIT PRINTOUTS? *BR IF YES *TYPE WAITING... *2ERO TIMER *GO WAIT FOR DONE sNOW TRANSMITTER DONE HAS SET AND THE SYNC CHARS Y S I S P 014066 014070 sHAVE BEEN SENT OUT. THE TRANSMITTER IS TO BE ;ENABLED AND THE DATA WILL BE TRANSFERED. 014100 014106 014110 014116 032737 001033 112764 013764 000002 011014 000002 011022 000005 000006 BIT BNE MOVB MOV 014132 112764 000003 000005 MOVB 112764 013764 112764 000006 011022 000007 58$: mm4WMOM%MM6 o~ o — — o~ 014140 o 1 1151 1152 Y S N S 1149 014154 014162 e 1148 014040 014042 014050 014052 SEQ 0024 INITIALIZATION OF TRANSMITTER. 014170 012764 012764 #H] .BAUD , PARAM2 ;HAS HI BAUD BEEN SELECTED? 7% ‘BR IF YES #2,REG(R4) ;SELECT TX BA PRI IXDA,SEC(R4) :LOAD BA ADD %fimu #3 REG(R4) 177776 000006 MOV #=2,SEC(R4) 177776 000006 MOV #-2,SEC (R4) 000005 000006 000005 MOVB MOV MOVB #6,REG(R4) IXDA,SEC(R4) #7,REG(R4) *POINT BA TWO HIGHER *SELECT TX WC PRI *SET TWO CHARS AT A TIME *SELECT TX BA SEC :LOAD TX BA SEC WITH DATA POINTER “SELECT TX WC SEC “SET WC WITH =2 :THE DQ11 IS TOTALLY ENABLE TO GO. THE TRANSMISSION sWILL BEGIN ON THE SECONDAY (THE SYNC CHARS WENT ON S 1 S S " 1143 1144 1145 1146 MACY11 30A(1052) 18-0CT-78 10:51 PAGE 55 2 05-0CT-78 09:22 014056 BRI pu—y ) ~3 1 1 1 1 1 n n 1 1 1 1 11 1 1 OVERLAY ;THE PRIMARY). THE DQ11 WILL INTERUPT AFTER EACH CHAR 7%: BIC BIS #300 ,XCSR(R4) ;CLEAR ALL TX DONES #1E+.GO,XCSR(R4) RTS PC sAND CONTINUE TRANSMITTING WHILE THE END CHAR IS s SEARCHED FOR. 014176 014204 042764 052764 014212 000207 000300 000041 000002 000002 sSYNC CHARACTER BUFFER AREA. 014214 014216 014220 014222 014224 014226 000000 000000 000000 026 026 026 026 026 026 TEMP1: 0 TEMP2: 0 ERRORS: 0 SYNC: .BYTE BYTE BYTE 26,26 26,26 26,26 sSET _INTERUPT ENABLE AND GO ;GO BACK TO MAIN PROGRAM ;144D AR R AR AR AR AR AR A AR AR R AR AR AR AR AR R AR AR AR AR ;ttttttttttttttt"tttttt.ttttitttttQQ.tttt..ttttt't.'tt'tttttt.ttt'tt 014230 014232 000240 005764 014236 100012 014240 016403 014244 011402 000002 1188 014250 016437 000004 011402 016403 000002 014246 014256 1190 1191 014264 014266 1193 014300 1194 1195 1196 014272 014302 014304 1197 1198 014312 014314 1200 014320 1199 1201 1202 1203 1204 }% 104000 042764 032764 001001 104000 032737 001402 005746 014316 000474 014326 014330 001424 112764 014336 014342 014350 032764 016401 062764 004737 1.5 4.4 000004 1184 1185 1186 119§ 000377 000300 d 014220 000004 000002 011014 000004 000002 000002 000005 000006 014354 1212 014370 1219 1220 }55} :DQ11 ERROR FLAG SET. EXAMINE REGISTERS FOR ERRO MOV ERR(R4) ,ERRORS 7.0 3.8 5.0 HLT 2%: 6.5 2.6 5.3 2.6 6.5 2.6 6.4 5.0 6.4 5.8 BIC #377 ,ERR(RG) BIT xsoo XCSR(R4) MOV MOV BNE 2.6 4.4 112764 000003 042764 000200 014362 012764 014376 000002 177776 000005 6.4 000002 7.0 000006 18: @RCSR,R2 XCSR(R4) ,R3 *NOT SET GOOD SO FAR. :SAVE DQ ERROR REG ;PREPARE FOR ERROR TYPEOUT *PREPARE FOR ERROR TYPEOUT 1S EITHER TX DONE SET?? :GOOD EITHER PRI OR SEC DONE IS SET HLT o BIT #H] .BAUD,PARAM2 :1S HIGH BAUD RATE SELECTED? BEQ TST 1% -(SP) BIT mrz XCSR(R4) BR BEQ TX.PRI: MOVB MOV ADD JSR MOVB 6.4 MOV 4.8 RTI *REPORT ERROR. INTERUPT WAS TO *BE CAUSED BY TX DONE; AND TX IS NOT DONE. *BR IF NO JFAKE STACK HBT CHK *XFER ALL DONE oz necmo *SECONDARY IS NEXT. *SELECT TX BA PRIMARY SEC(R4) ,R1 #2,SEC(R4) PC.TX.CK :WHERE IS POINTER?? *GET NEXT ADDRESS TO TRANSMIT FROM “UPDATE CURRENT ADDRESS. *GO CHECK FOR END CHAR. BIC #3,REG(R4) sSELECT TX WC SEC #BIT7,XCSR(R4) :CLEAR PRI DONE FROM TX #-2,SEC(R&) *LOAD WITH A =2 *LEAVE TX ISR ;THE ABOVE ROUTINE SERVICED THE INTERUPT IF THE :PRIMARY REGISTERS CAUSED THE INTERUPT. 014400 014406 014412 014420 112764 016401 062764 004737 000006 000006 000002 014450 000005 000006 6.4 5.0 é.4 5.8 TX.SEC: MOVB MOV ADD JSR #6,REG(R4) SEC(R4) ,R1 #2,SEC(R4) PC.TX.CK ;SELECT THE TX BA SECONDARY. *GET ADDRESS POINTER. *UPDATE CURRENT ADDRESS. :GO CHECK THE LAST CHARACTER. ;JUST LIKE ABOVE; IF I COME BACK FROM THE ABOVE SUBROUTIN 1224 “THAT MEANS THE ?ue LAST CHAR HASN'T BEEN TRANSMITTED }552 1228 1229 0 6.4 9.3 1223 1227 :LOCATION SET FOR HALT INSTRUCTION IN DEBUGGING. *IS THE DO11 ERROR FLAG SET?? 2$ XCSR(R4) ,R3 aRCSR,R2 1215 }5}9 1218 ERR(R4) ;IF 1 COME BACK FROM THE SUBROUTINE THAT MEANS THAT THE *END CHAR WAS NOT FOUND AND THE TRANSMISSON GOES ON. 1210 }g}z NOP ST BPL MOV MOV 9.3 000002 000006 000002 014450 XISR: 2.6 5.0 3.8 1207 }% 1211 | AR 1]80 1189 | TR SEQ 0025 :TRANSMITTER INTERUPT SERVICE ROUTINE m THIS ROUTINE THE END CHARACTER IS CHECKED FOR AND IF IT WASN'T FOUND THE TRANSMITTER CHARACTER COUNT “REGISTER IS ADJUSTED. 1187 | M2 18-0CT-78 10:51 PAGE 26 TRANSMITTER INTERUPT SERVICE ROUTINE. 1175 1176 177 ”;g 1181 1182 1183 | 30A(1052) ~ R ) — DQ11 ITEP OVERLAY MACY11 CZDQOD.P11 05-0CT-78 09:22 *AND THAT TRANSMISSON SHOULD CONTINUE. 014424 014432 014440 112764 012764 042764 000007 177776 000100 000005 000006 000002 6.4 6.4 7.0 MOVB MO BIC #7.REG(R4) #-2,SEC(R4) #8176, XCSR(R4) sSELECT me TX WC SEC ‘LOAD WITH A =2 :CLEAR SEC oous — — —a N3 TEP OVERLAY - il b ) i NN i VIS &S i i D i i D i D D i o D D e NN RRRRRRRY NN N=OVoO~N SRR o858 BLERRUKZS : P11 MACY11 05-0CT=78 09:22 30A(1052) N CT7-78 10:51 PAGE 27 . TRANSMITTER INTERUPT SERVICE ROUTINE. 014446 014450 000002 123741 011040 4.8 5.9 014456 123741 011040 5.9 014456 001427 014462 014464 014472 001424 032777 001405 014500 100002 014474 014502 014506 105777 174402 111177 000207 174376 014510 014516 032777 001406 014524 100003 014520 014526 000100 000100 174356 112777 000124 174350 000002 052700 042764 000441 014546 005037 011032 014552 014554 174326 005726 100000 TX.CK: RTI CMPB BEQ (MPB 2.6 7.7 2.6 BEQ MONDAT: BIT BEQ 2.6 8PL 5.6 105777 014534 014540 2.6 174352 SEQ 0026 18-0 7.6 3.5 TSTB 1%: MOVB RTS 7.7 2.6 HBTCHK: BIT BEQ 2.6 BPL 3.8 XISRDN: BIS 3.7 CLR 5.6 7.6 7.0 3.2 4.8 TXOUT: TX.TERM,=(R1) :LEAVE HERE :WAS THAT THE LAST CHARACTER. TX.TERM,=(R1) :LAST CHAR? X I SRDN X I SRON #B1T6,aSWR 1% ;ISR IS DONE IF BR IS MADE :BR IF YES :CHECK FOR DATA MONITOR. :DON'T MONITOR DATA aTPS *TTY READY?? (R1),aTPB PC :TYPE CHARACTER *GO BACK TO ISR 18 #81T6,aSWR X 1SRDN sTTY NOT READY GO ON WITH TEST “CHECK FOR DATA MONITOR *DON'T MONITOR ISTB @TPS MOVB #'T,aTPB BIC #1E+RQTS+.GO,XCSR(R4) ST RTI X I SRON #XFLG,STAT TIME (5P)+ *IS TTY READY :TTY NOT READY GO ON WITH TEST STYPE T SET TX COMPLETE FLAG :CLEAR ALL CONDITIONS FOR TX *ZERO TIMER *POP SUBROUTINE PC FROM STACK *LEAVE HERE FOR GOOD. DQ11 ITEP OVERLAY CZDQOD.P11 MACY11 30A(1052) 18-0CT=78 10:51 PAGE 38 05-0CT-78 09:22 IR 1255 IR 1254 000240 1259 014564 032714 014560 1260 1261 1262 014570 014572 014576 1265 014614 1263 1264 1266 1267 1268 1269 1270 1271 1272 1273 12764 1275 1276 014600 014606 042714 001403 004737 000767 000004 015426 011015 011015 014222 014223 014622 013764 014222 000006 014636 014644 013764 105264 011020 000005 014664 014672 014700 013764 062764 105264 014630 014650 014656 014704 014712 112764 012764 112764 012764 112764 000011 000000 177776 000004 011020 000002 000005 1281 1282 1283 1284 1285 1286 1287 1288 014744 014750 014756 014760 014766 014774 015002 015006 1289 1290 1291 015014 015020 015022 1293 1294 1295 1296 1297 1298 1299 015032 015032 015034 015036 015040 015042 015044 1292 }3}8? | 014726 014734 014740 015026 015050 012737 042700 005037 1%: 000005 R AR AR E AR AR AR R AR 005037 032737 001413 000006 000006 000006 112764 013764 112764 000001 011064 000005 000005 000006 000005 052764 001000 000002 005737 001004 104400 005137 000240 000240 000240 000240 000240 052714 000207 013300 000041 MOVB MOVB lBlTé.iRCSR ;LEAVE OPEN FOR TEST PURPOSES. sCLEAR ALL DONES ;sCHECK FOR POINTER TO SEC. ;BR IF POINTING TO PRI JPOINT REGISTERS TO PRI JBEGIN AGAIN PARAM2+1,SYNC ;GET SYNC CHAR PARAM2+1 ,SYNC+1 ;GET SECOND SYNC CHAR #0 ,REG(R4) ;SELECT RX BA PRI. MOV MOVB #-2,SEC(R4) #4 ,REG(R4) MOV MOVB #-2,SEC(R4) #12 ,REG(R4) MOV MOVB CLR BIS TST TYPE comM SYNC,SEC(R&) IRDA,SEC(R4) REG(R4) IRDA,SEC (R4) #2,SEC(RG) REG(R4) #4000,SEC(R4) #750 ,RCC #RFLG,STAT ERCSR sLOAD SYNC REGISTER sLOAD RX BA FOR DATA JGET WC REGISTER sSET FOR ONE CHAR. ;SELECT RX BA SEC. ;LOAD RX BA SEC. JUPDATE DATA POINTER BY ONE ;GET WC REGISTER ;SET FOR TWO CHAR. JSELECT MISC REGISTER :SELECT EIGHT BITS PER CHAR. :SET FOR MAX 750 CHARS TO BE RXED JRESET RX COMPLETE FLAG ERDBR #H] .BAUD ,PARAM? ;1S HIGH BAUD RATE SELECTED? 23 ;BR IF NO #1,REG(RS) JSELECT THE RX WC PRI RXWC ,SEC (R4) #5,REG(RS) SEC(R4) #DTR,XCSR(R4) JRECEIVE CHARS MAX. sSELECT THE RX WC SEC. ;ZERO THE RX WC SECONDARY. ;SET DATA TERMINAL READY. STOP 3% MSGS sFIRST TIME HERE? #1E+.GO,aRCSR PC ;SET INTERUPT ENABLE AND GO ;GO TO MAINLINE..... STOP NOP NOP NOP NOP BIS RTS 1302 1303 ;THE ABOVE SHOULD HAVE PREPARED THE RECEIVER TO JRECEIVE ALL THE CHARS NEEDED FOR TESTING. }3382 JCHECKING FOR THE END CHARACTER. 1304 RO RN RRAA AR RAAARRANNANARRRRAARAAR AR AR MOVB CLR BIT BEQ MOVB 3%: RARANR AR RN JSELECT SYNC REGISTER MOV BIC CLR °2%: RARR R #11.REG(§4) MOV 013206 013300 1$ PC,GETPRI STARTR MOV ADD INCB 011070 011014 000006 BEQ JSR BR MOV INCB 000006 000005 011056 000002 005064 #300,aRCSR MOV 000005 AR AR RN AR BIC MOVB 177776 000006 000012 .000005 000750 040000 011054 R BIT 113737 113737 112764 AR STARTR: NOP 000300 1277 014720 012764 004000 000006 1278 1279 1280 AR AR JINITIALIZE RECEIVER ROUTINE 014556 1258 SEQ 0027 INITIALIZATION OF RECEIVER. 1253 1256 1257 3 ;THE RECEIVER WILL INTERUPT AFTER EACH CHAR IS RECEIVED. — —_— — ~3 TEP MACY11 30A(1052) 18-0CT-78_ 10:51 PAGE 59 3 05-0CT-78 09:22 SEQ 0028 RECEIVER INTERUPT SERVICE ROUTINE. d S : P11 OVERLAY AR A AR AR AR A AR AR A AR AR AR R AR AR AR AR AR AR AR AR AR A AR AR R AR AR AR AR AR ARk R AR R AR AR AR AR AR AR ARk il VNN WO A AR sTHIS ROUTINE WILL SERVICE THE PRIMARY AND SECONDARY s NN WO RIS D e D e d e D b D d D R JREGISTERS WHEN THEY INTERUPT. sCHECKING FOR THE END CHAR IS PERFORMED. 015052 015054 015060 015062 015064 015070 015072 015100 015106 015112 015114 015116 015120 015122 015126 000240 005764 100012 011402 016403 104000 016437 042764 005337 001004 000005 104006 000000 000776 011402 015140 015142 015150 015152 015156 015160 015162 015166 015170 015176 015202 015210 104000 032737 d e D e 015126 015132 015136 B - OQVO\AJ*WN—'OOQVO\\AI\WN—‘O\O& R R W D e D b d e D e d e D e D e d De d e D e —d e ed e ed AR AR AR sRECEIVER INTERUPT SERVICE ROUTINE. ) cxcl s ) e i d e d D d e d b d D o SRR 016403 032714 001001 001404 042714 005746 000507 032714 001423 112764 016401 062764 004737 000004 000002 000004 ©00377 11070 014220 000004 000002 000300 000002 011014 000041 000004 000000 000006 000002 015304 000005 000006 1.5 4.4 2.6 5.8 5.0 %3 6.4 7.0 3.7 2.6 1.5 9.3 1.8 2.6 3.8 5.0 5.3 2.6 9.3 5.3 2.6 5.8 4.4 2.6 5.3 2.6 6.4 5.0 6.4 5.8 RISR: 2%: 1%: NOP TST BPL MOV MOV HLT MOV BIC DEC BNE RESET HLT+6 HALT BR MOV MOV BIT BNE HLT BIT BEQ BIC TST BR 3s%: BIT BEQ RX.PRI: MOVB MOV ADD JSR ERR(R4) 2% aRCSR,R2 XCSR(R4) ,R3 0 ERR(R4) ,ERRORS #377 ,ERR(R4) RCC 1% ;LEAVE SPACE FOR BEBUGGING ;CHECK THE DQ11 ERROR FLAG :BR IF ERROR FLAG NOT SET sCHECK ERROR REGISTER FOR ERROR. = 4 aR(CSR,R2 XCSR(R4) ,R3 #300,aRCSR . +4 0 ;CHECK THE BUFFER SIZE sBR IF OK :STOP THE SHOW sRECEIVER BUFFER FULL :STOP_EVERY THING sDISABLE CONT SWITCH sPREPARE FOR ERROR TYPEOUT sPREPARE FOR ERROR TYPEOUT ;1S EITHER DONE SET?? sBR IF AT LEAST ONE DONE IS SET sNOBODY IS DONE. BUT AN INTERUPT OCCURED. 3% #1E+.GO,aRCSR -(SP) HBRCHK #BIT2,aRCSR RX.SEC #0 ,REG(R4) SEC(R4) ,R1 #2,SEC(R4) PC.RX.CK :BR_IF NO ;CLEAR GO AND INTERUPT ENABLE sFAKE STACK sXFER _ALL DONE ;WHERE IS THE POINTER. sPOINTING TO SECONDARY. sSELECT THE RX BA PRIMARY ;GET THE ADDRESS OF DATA. sUPDATE CURRENT ADDRESS ;GO CHECK THE DATA. #HI .BAUD ,PARAM2 ;HIGH BAUD?? :IF I RETURN BACK FROM THE ABOVE SUBROUTINE THE END CHAR ;WAS NOT FOUND AND RECEIVING WILL CONTINUE. 015214 015222 015230 015234 112764 000001 042714 000200 012764 000002 177776 000005 000006 6.4 MOVB #1,REG(R4) 5.8 BIC #BIT7,aRCSR 6.4 4.8 MOV RTI #-2 ,SEC(R4) sSELECT THE RX WC PRI. ;LOAD WITH =2 ;CLEAR RX DONE sLEAVE HERE NOW. :THE ABOVE ROUTINE WAS FOR THE PRIMARY REGISTER INTERUPI. . THE BELOW ROUTINE IS FOR THE SECONDARY REGISTERS. 015236 015244 015250 015256 112764 016401 062764 004737 000004 000006 000002 015304 000005 000006 6.4 5.0 6.4 5.8 RX.SEC: MOVB MOV ADD Jo #4 ,REG(R4) SEC(R4) ,R1 #2,SEC(R4) PC.RX.CK sSELECT THE RX BA SEC. :GET DATA ADDRESS sUPDATE CURRENT ADDRESS ;GO CHECK THE DATA DQ11 ITEP OVERLAY CZDQOD.P11 MACY11 30A(1052) 18-0CT-78 10:51 PAGE gO 05-0CT-78 09:22 ;IF 1 COME BACK THAT MEANS THAT THE END CHARACTER WASN'T }ggg sFOUND AND ]I SHOULD CONTINUE RECEVING. 1366 015262 1368 015276 }%98 015270 015302 112764 000005 042714 000100 012764 000002 177776 000005 000006 6.4 6.4 015304 015310 142741 142741 015314 015320 015322 015326 015330 015330 015334 015340 015344 015350 015352 015354 015362 015364 015370 015372 015376 015400 015406 042714 042714 052700 005037 005726 000002 032777 001405 105777 100002 114177 000207 032777 001750 1395 1396 015414 015416 100345 112777 1397 #5 REG(R4) :SELECT THE RX WC SEC BIC #BIT6,aRCSR ;CLEAR RX DONE RTI l-é.SEC(Ré) ;LOAD WITH A <2 ;GO BACK TO MAINLINE .... ;THE BELOW ROUTINE CHECKS THE DATA FOR END CHAR. 1375 1376 1377 1378 1379 1380 1381 1382 1383 1384 1385 1386 1387 1388 1389 1390 1391 1392 1393 1394 MOVB MOV 4.8 }%;} 1373 1374 SEQ 0029 RECEIVER INTERUPT SERVICE ROUTINE. 1363 1367 3 015410 015424 123721 001403 123721 001012 105777 000741 000200 000200 7.0 7.0 011041 4.7 2.6 4.7 2.6 011041 000041 000300 040000 011032 000040 173462 173512 173506 000040 173436 173466 000122 RXISRDN: BICB BICB CMPR BEQ CMPB BNE 5.8 5.8 3.8 3.7 3.2 4.8 7.7 2.6 5.6 2.6 8.8 3.5 7.7 2.6 BIC BIC BIS CLR TST RTI NO.12: BIT BEQ TSTB BPL MOVB 1%: RTS HBRCHK: BIT BEQ 2.6 7.6 BPL MOVR 5.6 173460 RX.CK: 2.6 TSTB BR #8I177,-(R1) #BIT17,-(R1) ;CLEAR PARITY BIT. :CLEAR PARITY BIT. #1E+.GO,aRCSR #300,3RCSR #RFLG,STAT TIME (SP)+ #BITS,aSWR 1% aTPs 1% -(R1) ,aTPB PC #B175,aSWR RXISRDN ;CLEAR GO AND INTERUPT ENABLE :CLEAR ALL RX DONES :SET RX COMPLETE FLAG ;ZERO TIMER ;PCP SUBROUTINE POINTER. ;ALL DONE GO HOME........ ;MONITOR RX DATA?? ;DON'T MONITOR ;TTY READY?? sNOT READY GO ON WITH TEST ;PRINT CHARACTER ;GO TO RX ISR JMONITOR RX DATA? :BR IF NO RXISRDN #'R,aTPB :NO GO ON WITH TEST :TYPE 'R"’ RX.TERM,(R1)+ RXISRDN RX.TERM, (R1)+ NO.12 aTPsS RX I SRDN :WAS THE CHAR =001 :BR IF 001 : 001? : NO 001 :TTY READY? 18-0CT-78 10:51 PAGE §1 : ROUTINE TO GET TRANSMITTER OR RECEIVER ONTO THE PRIMARY REGISTERS IF THEY ARE ON THE SECONDARY. GETPRI : gég 000012 004019 00000 3 VONONN S W= D d d =D D D d #12.REG(R4) *SELECT THE MISC REG MOVB #7.REG(R&) *SELECT TX WC SEC #.GOXCSR(R4) :SET GO #-1,SEC(R&) BIT #BIT6,XCSR(R4) EIGHT BITS AND TEST LOOP FOR CLK sTX ONE CHAR *HANG HERE FOR SEC DONE *KEEP WAITING FOR TX DONE SEC. BIT BEQ MOVB #BIT2,3RCSR 2s #12.REG(R&) ;1S RX ON SECONDARY REG *BR IF ON PRI. *SELECT MISC REGISTERS MOVB #S.REG(R&) *SELECT RX WC SEC BIT 04010 SEC(R4) #-1,SEC(R&) +GO RECHECK AND CKECK RX :EIGHT BITS AND TEST LOOP (CLK) *RX ONE CHAR #4,REG(R&) *SEL RX BA SEC. #NO.DAT,SEC(R4) :LOAD RX BA SEC. #8]1712+.60,aRCSR ET GO!!'!'!'!'!''+ACTIVE 08176 aRCSR :HANG Heke FOR RX SEC DONE. B8R csrpnx *GO CHECK EVERY ONE MOVB BIC BIC BIC #12.REG(R4) #40710,SEC(R4) #300,3RCSR #300.XCSR(R4) BEQ RTS NO.DAT: 0 MFULL: MRXDA: MRXSB: F GETPRI MOVB MOV BIS 2%: =6 SET HE TX ON THE SEC?? BR MOV 015572 #4010,SEC(R4) MOV MOV d d e 1%: d D MOVB BEQ d D .IS BIS — d EENERRERE D 000001 000100 — e 1?172.XCSR(R4) MOV 177777 015626 015670 015715 SEQ 0030 RECEIVER INTERUPT SERVICE ROUTINE. : 015574 015602 015610 3 Me— 30A(1052) m DQ11 ITEP OVERLAY MACY11 CZDQOD.P11 05-0CT-78 09:22 .ASCIZ _ASCiZ LASCIZ PC *KEEP WAITING ;SELECT MISC REGISTER :CLEAR EIGHT BITS AND TEST LOOP *CLEAR RX DONES :CLEAR TX DONES *GO HOME <15><12>/RECEIVER BUFFER FILLED. ERROR!''/ <15><12>/RECEIVED DATA = /<15><12> <15><12>/RECEIVED DATA SHOULD BE /<15><12> 0Q11 ITEP OVERLAY MACY11 CZDQOD.P11 05-0(T-78 09:22 1432 000001 30A(1052) F.3 18-0CT-78 10:51 PAGE 32 RECEIVER INTERUPT SERVICE ROUTINE. .EVEN .END SEQ 0031 0Q11 ITEP OVERLAY CZDQOD.P1 BA BACK MACY11 30A(1052) 18-0CT-78 10:51 PAGE ?A 3 05-0CT-78 09:22 011004 013276 605# 775+ 666 803+ 838+ 918+ BIT12 = 010000 BIT13 = 020000 S99# 5994 681 6344 1420 960 990 1038 690 1200 1037 1259 688 1386 1235 1352 1392 963 1098 727 %7+ 8IT0 BIT1 BIT10 BIT11 = = = = 000001 000002 002000 004000 BIT14 BIT15 BIT2 BIT3 = = = = 040000 100000 000004 000010 BITS = 000040 BIT4 = 000020 BIT6 BIT7 BIT8 BIT9 B2016 CTS DELAY 000100 000200 000400 001000 011030 = 020000 013274 DISPLA 011046 DERR = = = = 012706 DQ11 011000 DSFLG = 0 DSSTAT 011060 DTR__ = 001000 ENTER 012436 EOP ERCSR 5994 5994 599 59% 5954 5994 6154 S99 692+ 991 6254 6044 S9o# 10004 1340 1401 1412 1241 1373 1368 1374 1408 1421 101228 1028 1034+ 919 9264 6334 011054 6384 1280+ 014220 689+ 11704 1188+ 1322+ 682« 1183 878 1261 894 14014 8 1410 1083 1423 1143 1247 1196 1299 1282 1337 1335 1380 967 993 1268 1272 012350 015400 014510 776 6394 5994 6234 6544 1040 7264 1288 804 839 958 679« 1281+ 681~ 000010 1339 1199 599 599% 5994 13924 12414 1114 1162 735 IXDA 011022 KBDIN = 104416 LOOP = 000020 6124 5994 5994 70 75 773 709 788 801 1064 1066 000002 000040 IRDA 011020 MFULL | MONDAT MRDY = MRXDA MRXSB 015626 014464 00, 015670 015715 14314 12354 599¢ 14314 MSG1 MSG2 MSG3 MSG4 013001 013004 013031 013054 965 992 996 10064 | 1229 1212 10134 1059 9404 FLAG 011042 FULL.D= 1 GETPRI 015426 GO 011374 HBRCHK HBTCHK H1.BAU= IE = ILB = 5994 5994 599# 5994 949 6404 599 931 ERDBR 011056 ERR = 000004 ERRORS 5994 S99# 5994 5994 012720 6114 14314 962 SEQ 0032 CROSS REFERENCE TABLE == USER SYMBOLS 842 10064 10064 10064 10064 843 820 836 966 877 916 1188 997 1189« 1317 1322 1323+ 999 117 1146 1151 DQ11 ITEP OVERLAY MACY11 30A(1052) MSGS 013206 NDLY 013344 NODAT = 000200 10064 1027 SS9 1 065 10354 769 oWl OwO S9o# 5994 732 729 CZDQOD.P11 NO.DAT NO.12 015624 015354 = 000002 = 000001 PARAM1 011012 PARAMZ2 011014 PARAM3 PRIOR 011016 05-0CT-78 09:22 1419 1378 6084 13830 6104 913 1%%% 878 894 665 667 663 PRTYS = 000240 PRTY6 = 000300 PRTY7 = 000340 QTPIE 012506 S99 S99# S99 928+ 927 929+ RCC RDA RDAX REG = = = = = 000000 000040 000100 000140 000200 5994 595« S99 5994 S99« 011070 6458 1278+ = 000005 SO 672+ 011072 012666 646¥ 993 1202+ = 040000 1350+ 6324 RQTS = 000400 RWAIT = 104410 RXISRD 015330 S99 S99 1376 RFLG RISR RIV 015052 011006 662 6064 1395 1375 1377 RX.SEC 015236 1341 13584 SAVRO SAVR1 013260 013262 9 %933« 9% 94 RX.TER SA SAVR SAVRG SAVRS SCANG SCANS SEC 011041 6214 013264 013266 934+ 935+ = 000006 9854 5 013270 013272 012554 012640 936+ 937« SETTLE SRCSR START STARTR STARTX STOP 011024 011052 011106 014556 013;8(2; 01 712 10064 1007# 94 944 945 946 969 10104 1011# 982 674 1203 L * 987 1044 1083 1054 1056+ 1116 1271« 1403 823 1405+ 835 1267+ 789 728+ 114 1143 1196 1263 1264 1269+ 1118+ 1145+« 1148+ 1150« 1152+ 1274 1276+ 1284% 1286+ 1342+ 1146* 1270« 1404+ 1147+ 1272« 1406+ 1149+ 1273« 1415+ 1151« 1275+ 1417« 1414* 885 1416+ 9N 1418+ 1279 1425+ 1382 }zgg' 683+ 1504' 1057« 1%%8' 1359 1117« 1;28' 1360 1119« 1;281367+ 1287« 985 988 688+ 1211« 1343 1053+ 1219 1344~ 1055« 1;20' 351« 97 12578 1262 6134 6374 91 5 SEQ 0033 1008# 10094 1153« ;z;;' 1397 1393 1285 13734 1052+ 1265+ 13794 716 1361 13420 687+« 1247 643n 1345 899 1227+ 1097 011064 015304 015170 684+ 1218+ 1366 772 13164 1 3 9504 1358+ 759 RXWC RX.CK RX.PRI 948 1324+ 9954 1210+ H PAGE 35 1291 832 6074 10:51 CROSS REFERENCE TABLE == USER SYMBOLS 14304 1 011010 PRTYO PRTY1 PRTY2 PRTY3 PRTY4 18-0CT-78 S84 21 852 10144 80 1 1 102 1063~ 1041 1289 1292+ MACY11 30A(1052) 18-0CT=78 10:51 PAGE &6 3 DQ11 ITEP OVERLAY CZDQ0OD.P11 STPS SWR 05-0CT=78 09:22 = 104414 S95# 011044 624m 1091 S9%% 6 104 SW12 = 010000 SXCSR 011050 SYNC 014222 927 659 1104 1072 1055 729 1133 1091 11718 773 1235 1104 1263« 01 1386 1264* 1266 766% 790+« 014214 014216 1028« 1029+« 1030 1032« 1077« 1078+ 1079+ 1081« TESTDX 012714 971 977 980 10034 011032 6164« 691+ 726* 761 1100 6504 64L9% 6524 6514 959 1251» 642N 1205 1202# 1201 6154 1107« 1126 1129 1136 1239« 1237 961 1245« 1243 664 1390+ 1388 1396+ 1394 708« 1221 1119 12314 1218# 705 970 1231 1233 670+ 1037« 678+ 1038 TIE TIME 012510 = 000040 KB TKS P8 TPS TSTDAT TTMXOUT TXWC TX.CK TX.PRI TX.SEC TX.TER TYPE XCC XCSR Ida SO0 860+ 011100 011076 011104 011102 012544 014554 011062 014450 014330 014400 011040 = 104400 011066 5994 644N = 000002 5994 1036« 1127 XDA XFLG XISR 011074 = 100000 XISRDN XxLB = XWAIT = X.X $ILB $Ow 1 $OWO $XLB 1331 6478 631 014230 664 014534 000004 104412 011322 1232 599# 5994 701# 011670 011464 011572 012120 962 1132 887 965 1161~ 892+« 990 1072 792 798+ 822+ 825 830+ 851« 855 912« 1035« 1068 1075« 992 994 996 998 1062 1291 690+ 1059+« 764 1064 796 1066 828 1071 858 1085 890 1090 1212+ 906 1097« 1229+ 1247+ 948+ 1103 1125+ 1333 1409 1098 896 901 910 1058 1246 1193 1329 800 853 862 1234 738 1242 1244 12464 9 10% 1033 1046 1080 1082 1125 1162 1247 1299 1337 1380 1407 1420 5 930+ 883 1428+ 997« = 000001 928 1200 846 .G0 1096+ 1192 1408 918 1094 1191 1407« 742 1087 1185 1401 844w 791 1182# 960 1383 1162+ 908+ 916 1249« 975 903 913 863 777 805 917 12%30 ERRORS DETECTED: 882+ 930 9584 840 574 788# 8774 = 015752 015752 929 915 1168# 1165# 936 1392 737 7% 731 740 " . ABS. 834 332 1241 1133 TEMP1 TEMP2 TESTD SEQ 0034 CROSS REFERENCE TABLE == USER SYMBOLS 000 O DSKZ : CZDQOD ,DSKZ : (ZDQOD, SEQ=DSKZ: I TEP1 . MAC ,DSK2:(2DQOD.P1 RUN-TIME: 4 5 |, CONDS RUN-TITMME RATIO: 172/10=16.0 TORE USED: 16k (31 PAGES) 1288+ 1320 | Q11 MACY11 30A(1052) 18-0CT-78 10:51 PAGE i? ITEP OVERLAY (ZDQOD.P11 05-0(T-78 09:22 DOCUMENT PAGES: 24 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0035
Home
Privacy and Data
Site structure and layout ©2025 Majenko Technologies