HED TESTS 05 - 07 * * AUTOMATIC DIALER TESTS, TEST 05 - 07 * * THESE 3 TESTS ARE EXECUTED EXCLUSIVLY ON THE * 12589 AUTOMATIC DIALER INTERFACE BOARD. * * TEST 5 CHECKS THE COMBINATION OF: * OUTPUT INPUT * CRQ(BIT14) PWI(NO STATUS OR FLAG) * NB1(BIT0) PND(BIT15 AND FLAG) * NB2(BIT1) DSS(BIT14 AND FLAG) * NB3(BIT2) DLO(BIT13 ONLY) * NB4(BIT3) ACR(BIT12 AND FLAG) * * SWITCH REG. BIT 7 UP-DOWN CAUSES TEST 6 OR 7 TO ABORT * * SWITCH REG. BITS 1-4 ARE USED TO TURN ON AND OFF DS2 * DURING TEST 6 (ALL ON = DS2 ON). * * DS1 IS CYCLED EVERY 2 SEC. DURING TEST 7 UNTIL SWR. BIT 7 * IS PUT UP THEN DOWN. * DS1 ON = BIT 14 (CRQ-PWI=1 + NB1-PND=1)+CLA-OTA * DS1 OFF = BIT 15 (CRQ-PWI=0 + NB1-PND=1) * DS1 ON = BIT 14 (CRQ-PWI=1 + NB1-PND=1)+CLA-OTA * DS1 OFF = BIT 0 (CRQ-PWI=1 + NB1-PND=0) * SKP * * MAIN TESTS * * LOGIC GROUP * TST05 EQU * * LG NOP LDA USSC IS THIS A 12589 AUTO DIALER? AND BIT8 SZA,RSS JMP LG,I NO, RETURN TO EXEC CLA,INA YES, SET ERROR NUMBER STA LGEN SECTION NUMBER LDA BIT15 INITIALIZE CARD JSB A2ACU OUTPUT A-REG TO ACU & WAIT 1 MS * 1-2 LDA LGSFC CHECK FOR FLAG = 0 JSB LGLC RESET OCT 100017 PWI=PND=DSS=DLO=ACR=0 OCT 170000 IOB 15-12 SHOULD = 0 * 3-4 LDA LGSFC CHECK FOR FLAG = 0 JSB LGLC BIT15 OCT 100000 PWI=0,PND=DSS=DLO=ACR=1 OCT 170000 IOB 15-12 SHOULD = 0 * 5-6 LDA *+4 PWI=1 MUST BE EXECUTED TWICE JSB A2ACU LDA LGSFC CHECK FOR FLAG = 0 JSB LGLC OCT 40017 PWI=1,PND=DSS=DLO=ACR=0 OCT 170000 IOB 15-12 SHOULD = 0 * 7-10 LDA LGSFS CHECK FOR FLAG = 1 JSB LGLC OCT 40016 PWI=PND=1,DSS=DLO=ACR=0 OCT 100001 IOB 15 SHOULD = 1 * 11-12 LDA RESET RESET CALL REQUEST JSB A2ACU LDA LGSFS CHECK FOR FLAG = 1 JSB LGLC OCT 40015 PWI=DSS=1,PND=DLO=ACR=0 OCT 40001 IOB 14 SHOULD = 1 * 13-14 LDA LGSFC CHECK FOR FLAG = 0 JSB LGLC OCT 40013 PWI=DLO=1,PND=DSS=ACR=0 OCT 20001 IOB 13 SHOULD = 1 * 15-16 LDA RESET RESET CALL REQUEST JSB A2ACU LDA LGSFS CHECK FOR FLAG = 1 JSB LGLC OCT 40007 PWI=ACR=1,PND=DSS=DLO=0 OCT 10001 IOB 12 SHOULD = 1 * JMP LG,I RETURN TO CONTROL * LGSFS SFS ACU LGSFC SFC ACU * * * * LOGIC CHECK * LGLC NOP STA FC SAVE FLAG CHECK LGS1 CLF ACU LDA LGLC,I GET DATA OUTPUT WORD JSB A2ACU GIVE TO ACU FC NOP CHECK FLAG JSB LGER NOT RIGHT REPORT ERROR ISZ LGEN MOVE TO NEXT SECTION LDA LGLC GET INA DATA LDB A,I MASK LGS2 LIA ACU GET INPUT DATA SLB LOOKING FOR HI OR LOW? CMA HIGH ERB,CLE,ELB AND B SZA PROPER DATA BITS INPUT? JSB LGER NO - REPORT IT ISZ LGEN MOVE TO NEXT SECTION LDA LGLC ADA .2 JMP A,I RETURN * SKP * * ERROR REPORT * LGER NOP JSB CFTN,I OUTPUT TEST NR. IF NEEDED LDB AT ASSUME "@" SYMBOL HAS TO BE OUTPUT LDA LGEN WAS THIS A FLAG CHECK? SLA,RSS LDB EQ NO, LOAD B-REG WITH "=" SYMBOL STB FLG STORE " @" OR " =" INTO FLG LDB ZERO ASSUME "0" HAS TO BE OUTPUT LDA FC CHECK IF FLAG IS SUPPOSE TO BE CPA LGSFC SET OR CLEARED INB SUPPOSED TO BE CLEARED, BUT WAS SET. IN- STB FLG+1 CREMENT & STORE INTO NEXT LOCATION * LDB EQ ASSIUME "=" SYMBOL HAS TO BE OUTPUTTED LDA LGEN WAS IT AN IOBI CHECK SLA,RSS LDB AT YES, LOAD B-REG WITH "@" SYMBOL BLF,BLF EXCHANGE THE 2 CHARACTERS STB IOB & STORE INTO IOB LGS3 LIA ACU PICK UP INPUT DATA STA DATA AND SAVE FOR ERROR MESSAGE CCE LDA LGLC,I SET-UP OUTPUT DATA MESSAGE LDB LGIOA FOR IOBO REPRESENTATION JSB O2AS,I * LDA LGEN GET ERROR NUMBER JSB N2AO,I CONVERT TO ASCII STA LGEM1+1 PUT IT IN PLACE * LDA DATA SET UP OUTPUT DATA MESSAGE CLE FOR IOBI REPRESENTATION LDB LGIOB JSB O2AS,I * LDA DATA GET DATA FOR DISPLAY LDB LGLC,I GET OUTPUT JSB ERMS,I REPORT ERROR DEF LGEM1 POINTER TO MESSAGE JMP LGER,I RETURN FOR FURTHER CHECKS * LGEM1 ASC 14,E1XX IOBO = YYYYYY, FLAG FLG NOP NOP ASC 4,, IOBI IOB NOP ASC 4,ZZZZZZ/ * LGEN NOP DATA NOP AT ASC 1, @ EQ ASC 1, = ZERO ASC 1, 0 LGIOB DEF IOB+1 LGIOA DEF LGEM1+6 N2AO DEF ZN2AO BIT8 OCT 400 * * * * * MULTI LINE OPERATION (DS2) * TST06 EQU * * MLO NOP LDA USSC IS THIS A 12589 AUTO DIALER? AND BIT8 SZA,RSS JMP MLO,I NO, RETURN TO ECEC LDB S128 YES, CHECK FOR SUPR MANUAL OPERATION JSB SWRT,I JMP MLO,I YES JSB CFTN,I OUTPUT TEST NR. H050 JSB MSGH,I TELL OPERATOR TO USE SWR DEF MLOM1 POINTER TO MESSAGE * CLA STA TMP MLL1 JSB SWLK CHECK FOR ABORT OCT 200 JMP MLO,I YES - RETURN TO CONTROL CCB GET SWITCHES JSB SWRT,I NOP LDA B AND SWKR ISOLATE SWITCHES RAR CPA TMP ANY CHANGES? JMP MLL1 NO STA TMP YES ALF,ALF SET RAL,RAL UP MLS1 OTA ACU COMMAND JMP MLL1 * SWKR OCT 36 MLOM1 ASC 13,H100 MULTI LINE OPERATION OCT 6412 ASC 16,USE SWR BITS 1-4 TO OPERATE DS2/ SKP * DPR(DS1) * TST07 EQU * * DPR NOP LDA USSC IS THIS A 12589 AUTO DIALER? AND BIT8 SZA,RSS JMP DPR,I NO, RETURN TO EXEC LDB S128 YES, CHECK TO SUPR MANUAL OPERATION JSB SWRT,I JMP DPR,I YES JSB CFTN,I OUTPUT TEST NR. JSB MSGC,I OUTPUT INFORM. TO CONSOLE DEF MSGT7 * LDA ON.1 ISSUE A CALL REQUEST & PREVENT DPRS1 OTA ACU DIGIT PRESENT FF FROM TURNING ON CLA DPRS5 OTA ACU NOW TURN DS1 ON JSB WAIT WAIT FOR 2 SEC AND CK FOR ABORT LDA OFF.1 ISSUE A CALL DISCONNECT WHICH DPRS2 OTA ACU TURNS OFF DS1 JSB WAIT WAIT FOR 2 SEC AND CK FOR ABORT LDA ON.1 ISSUE A CALL REQUEST & PREVENT DPRS3 OTA ACU DIGIT FF FROM TURNING ON CLA DPRS6 OTA ACU NOW TURN ON JSB WAIT WAIT FOR 2 SEC AND CK FOR ABORT LDA OFF.2 ISSUE A NB1 WHICH CLEARS THE DIGIT DPRS4 OTA ACU PRESENT FF RESULTING IN TURN OFF OF DS1 JSB WAIT WAIT FOR 2 SEC AND CK FOR ABORT JMP DPRS1-1 NO LOOP AGAIN * * WAIT NOP LDA DM20 SET WAIT COUNT STA CNTR WAITL JSB SWLK CHECK FOR ABORT OCT 200 SWITCH MASK JMP DPR,I ABORTED RETURN TO EXEC LDA D100 WAIT 100 MILLSEC JSB TMRR,I ISZ CNTR CHECK FOR ABORT AND WAIT LONGER? JMP WAITL YES JMP WAIT,I RETURN FOR NEXT STEP * * ON.1 OCT 40000 (CRQ-PWI=1,NB1-PND=1) OFF.1 OCT 100000 (CRQ-PWI=0,NB1-PND=1) OFF.2 OCT 1 (CRQ-PWI=1,NB1-PND=0) * MSGT7 ASC 9,H117 OBSERVE DS1/ * *************************************************************** SKP HED TESTS 08 - 11 * * UNIVERSAL INTERFACE BOARD TEST, TEST 08 * * TEST 08 IS RUN EXCLUSIVELY ON THE 12930 UI BOARD. * CHECKS COMMAND AND STATUS REGISTER, INTERFERENCE * BETWEEN COMMAND/STATUS REGISTER AND DATA REGISTER * AND CHECKS THE DATA REGISTER AT FULL SPEED. THE * ONE SHOT FOR THE CRS-STRECHED SIGNAL IS ALSO TESTED. * * THE FOLLOWING SWITCHES HAVE TO BE IN THE SPECIFIED * POSITIONS TO RUN THIS TEST: * U85S2-POS.6 U85S3-POS.10 U102S2-POS.7 * U102S3-POS.10 U106S2-POS.6 * * (TO PASS BASIC I/O ON COMMAND CHANNEL U97S1-POS.1) * * TST08 EQU * * UNIN8 NOP LDA USSC IS THIS A UI BOARD? AND .200 SZA,RSS JMP UNIN8,I NO, EXIT TEST CLC INTP,C YES, RESET ALL CONTR.& COMD.FF, INTR OFF UI2 CLC SC,C RESET CONTR, COMD, FLAG & IRQ FF ON DATA UI3 CLC SC+1,C CH AND ON COMD CH. * JSB NOP NOP LOC. STCD1,2&3 IN SUBRT CSDCH LDA JSB8 SELECT SUBRT TST8X FOR DATA TRANSFER STA DTR81 & STORE INTO TST08 STA DTR82 * JSB CSDCH GO TO COMMAND, STATUS & DATA CHECK * * * * * CHECK IF CRS SETS THE OS (U75B) FOR < AND > 5 MICROSEC. * CRSCH LDA NBT11 SET COMD REG TO 172000 & CHECK FOR < 5 USEC UI9 OTA SC+1 OUTPUT COMMAND WORD CLC INTP SET OS (75B) VIA CLC 0 UI11 LIB SC+1 READ STATUS WORD IMMEDIATELY (<5 USEC) CPB M201 & COMPARE AGAINST 177577 JMP CRSTS STATUS WORD OK. STB INPAT STATUS WORD INCORRECT, STORE LDA MIN1 STORE EXPECTED STATUS WORD STA EXPWD LDA MP56 READ MESSAGE POINTER IOR B15 IOR BIT 15 TO LINK TO MULTIPLE MESSAGE STA MSXYZ & STORE INTO ERROR MESSAGE SUBROUTINE E056 JSB EMR3L GO TO ERROR MESSAGE SUBROUTINE SKP CRSTS LDA NBT11 SET COMMAND REG TO 172000, CHECK F >5 USEC UI12 OTA SC+1 OUTPUT COMMAND WORD CLC INTP SET OS (U75B) AND WAIT NOP NOP NOP UI14 LIB SC+1 READ STATUS WORD AND COMPARE CPB M4605 AGAINST 173173 JMP NSUR STATUS WORD OK. STB INPAT STATUS WORD INCORRECT, STORE LDA M4605 STORE EXPECTED STSTUS WORD STA EXPWD LDA MP57 READ MESSAGE POINTER IOR B15 IOR BIT 15 TO LINK TO MULTIPLE MESSAGE STA MSXYZ & STORE INTO ERROR MESSAGE SUBROUTINE E057 JSB EMR3L GO TO ERROR MESSAGE SUBROUTINE NSUR JSB MSPTR GO TO NEXT SUBRT JMP UNIN8,I EXIT TEST SKP * * CHECK DATA TRANSFER AT MAX SPEED AND CHECK IF DATA WORD * MODIFIES COMMAND AND/OR STATUS WORD. * MSPTR NOP CCA CREATE A DATA WORD OF 177777 CLB CREATE A COMMAND WORD OF 000000 STB DARFL SET FLAG TO INDICATE 1. EXEC OF ROUT UI16 OTB SC+1 OUTPUT COMD WORD FOLLOWED DTR81 NOP IMMEDIATELY BY ENTRING DATA TRNSF ROUT CPA B COMPARE TRANSM. W RECEIVED DATA WORD JMP *+2 COMPARE OK JMP NCPD ERROR INA INCREM DATA REG TO 000000, OUTPUT DTR82 NOP NEW PATTERN TO DATA REG VIA ROUT CPA B COMPARE TRANSM. W RECEIVED DATA WORD JMP FSDT COMPARE OK. NCPD STA EXPWD DATA WORDS DO NOT COMPARE AT FULL SPEED STB INPAT TRANSFERS. LDA MP60 READ MESSAGE POINTER, IOR B15 IOR BIT 15 TO LINK TO MULTI. MESSAGE & STA MSXYZ STORE INTO ERROR MESSAGE SUBROUTINE. E060 JSB EMR3L GO TO ERROR MESSAGE SUBROUTINE. * FSDT ISZ A INCREMENT DATA WORD TO BE TRANSMITTED JMP DTR82 & REPEAT PROCESS * LDA DARFL CHECK DARFL F 1. OR 2. EXECUTION OF ROUT SZA IF 1., STAT WORD SHOULD BE 000200 LDA M1001 IF 2., STAT WORD SHOULD BE 177177 ADA .200 CREATE THIS STATUS WORD UI20 LIB SC+1 CHECK ORIG. CONTROL WORD WITH CPA B PRESENT STATUS WORD RSS COMPARE OK JMP CSWER ERROR OF CONTROL OR STATUS WORD LDA DARFL CHECK F 1.OR 2.EXEC OF ROUTN SZA JMP MSPTR,I 2.EXEC, EXIT TEST INA 1.EXEC, MODIFY DARFL STA DARFL CCB CREATE A COMMAND WORD OF 177777 CCA & A DATA WORD OF 177777 JMP UI16 & GO THROUGH 2.EXEC CSWER STA EXPWD CONTROL OR STATUS REG WAS MODIFIED STB INPAT BY DATA WORDS LDA MP61 READ MESSAGE POINTER, IOR B15 IOR BIT 15 TO LINK TO MULTI. MESSAGE & STA MSXYZ STORE INTO ERROR MESSAGE SUBROUTINE. E061 JSB EMR3L GO TO ERROR MESSAGE SUBROUTINE. TE8ED JMP MSPTR,I EXIT TEST. SKP * * STORAGE LOCATIONS FOR TESTS 08 & 09 * MP54 DEF MS054 MP55 DEF MS055 MP56 DEF MS056 MP57 DEF MS057 MP60 DEF MS060 MP61 DEF MS061 * MS054 ASC 14,E054 INCORRECT STATUS WORD/ MS055 ASC 21,E055 DATA WORD MODIFIED BY COMMAND/STATUS MS056 ASC 14,E056 CRS STRECHED IS < 5 US/ MS057 ASC 14,E057 CRS STRECHED IS > 5 US/ MS060 ASC 20,E060 FULL SPEED DATA TRANSFER FAILURE/ MS061 ASC 23,E061 COMMAND OR STATUS MODIFIED BY DATA WORD/ * * SKP * * UNIVERSAL INTERFACE BOARD TEST, TEST 09 * * TEST 09 IS RUN EXCLUSIVELY ON THE 12930 UI BOARD. * IT REPEATES TEST 08 WITH DIFFERENT SWITCH SETTINGS * REQUIRING STC,C INSTRUCTIONS FOR DATA TRANSFERS. * * THE FOLLOWING SWITCHES HAVE TO BE SET TO THE NEW * POSITIONS: * U85S1-POS.1 U106S1-POS.1 * U106S2-POS.5 * * TST09 EQU * * UNIN9 NOP LDA USSC IS THIS A UI BOARD? AND .200 SZA,RSS JMP UNIN9,I NO, EXIT TEST LDA PU09 ESTABLISH POWER FAIL RETURN STA PUJP+1 ADDRESS JSB POWOF YES, GO TO POWER OFF ROUTN. * MSET9 JSB POWUP REESTABLISH S-REG CONTENTS LDA STCD STORE STC INSTR INTO THE NOP'S OF SUBRT STA STCD1 CSDCH TO TRANSFER THE DATA OUTPUT REG STA STCD2 TO INPUT REG BEFORE COMD WORD TRANSF JSB CSDCH THEN ENTER ROUTINE * CLA RESET THE 2 INSTR IN THE SUBRT STA STCD1 STA STCD2 LDA STCD STORE STC INSTR INTO THE NOP OF SUBRT STA STCD3 CSDCH TO TRNSF THE DATA OUTPUT REG TO * THE DATA INPUT REG AFTER COMD WORD TRANSF JSB CSDCH THEN ENTER ROUTN * LDA JSB9 LOAD SUBRT TST9X FOR DATA TRANSFER STA DTR81 STA DTR82 JSB MSPTR * JMP UNIN9,I * SKP * * STORAGE LOCATIONS FOR TESTS 09 & 10 * MS062 ASC 17,H062 TURN CPU POWER OFF (STANDBY), OCT 6412 ASC 22, CHANGE SWITCHES ON UI BOARD PER APPX A, OCT 6412 ASC 11, & TURN POWER ON/ * * * * RESETS UI BOARD FF'S, RESETS 3 PROGRAM LOCATIONS, * SAVES S-REG, STORES JUMP INTO POWER FAIL TRAP CELL * & OUTPUTS MESSAGE FOR POWER FAIL TURN OFF. * POWOF NOP CLC INTP,C YES, RESET ALL CONTR.& COMD.FF, INTR OFF UI21 CLC SC,C RESET CONTR, COMD, FLAG & IRQ FF ON DATA UI22 CLC SC+1,C CH AND ON COMD CH. JSB NOP NOP LOC STCD1,2&3 LIA 1B SAVE S-REG BEFORE POWER DOWN STA SWRPR LDB B13 CHECK IF OUTPUT MESSAGE & HALT SHALL BE JSB SWRT,I OMITTED DUE TO S-REG BIT 13 SET JMP POWOF,I YES LDA PUJP STORE JMP,I INTO POWER FAIL TRAP CELL STA 4 TO PREPARE POWER DOWN/UP PROCEDURE JSB CFTN,I OUTPUT TEST NR JSB MSGH,I OUTPUT MESSAGE TO CHANGE SWITCHES ON UI DEF MS062 JMP POWOF,I RETURN TO SAME TEST IN CASE OF NO POWER DOWN SKP * * CHECK IF DATA INPUT OR OUTPUT REG WAS MODIFIED BY * COMMAND WORD OUTPUT OR STATUS WORD INPUT IN PREVIOUS * ROUTINE. * STCD3 NOP WILL BE OVERLAYED IN TST09 W STC SC UI7 LIB SC READ DATA REG IN & STORE STB INPAT LDA DARFL CHECK DATA REG FLAG. SHALL DATA REG SLA BE SET OR CLEARED? JMP DARST DATA REG IS SUPPOSE TO BE SET SZB DATA REG IS SURROSE TO BE CLEARED JMP CPEA NO, ERROR, COMD CH INTERFERED W. DATA CH IDAFL CCB YES, DATA REG IS CLEARED, WAS NOT MODIFIED UI8 OTB SC SET DATA REG TO 177777 STCD2 NOP WILL BE OVERLAYED IN TST09 W STC SC ISZ DARFL INCREMENT THE DATA REG FLAG NOP JMP CSWCH REPEAT COMD & STATUS REG CHECK W 177777 * DARST CPB MIN1 DATA REG SUPPOSE TO BE SET, CHECK IF SO JMP CSDCH,I YES, DATA REG IS SET, WAS'T MODIF, EXIT LDA MIN1 NO, ERROR, COMD CH INTERFERED W DATA CH JMP *+1 LOAD A-REG W EXPECTED DATA REG (177777) CPEA CLA " " " " " " (000000) STA EXPWD & STORE IN EXPWD. LDA MP55 ERROR DOES NOT COMPARE. READ MESGE POINTER IOR B15 IOR BIT 15 TO LINK TO MULTIPLE MESSAGE STA MSXYZ & STORE INTO ERROR MESSAGE SUBROUTINE E055 JSB EMR3L GO TO ERROR MESSAGE SUBROUTINE LDA DARFL CHECK IF DATA REG WAS SUPPOSE SZA TO BE CLEARED. JMP CSDCH,I NO, EXIT JMP IDAFL YES, GO & REPEAT TESTING W DATA REG SET * * * JSB8 JSB TST8X JSB9 JSB TST9X SKP * * UNIVERSAL INTERFACE BOARD TEST, TEST 10 * * TEST 10 IS RUN EXCLUSIVELY ON THE 12930 BOARD. * IT CHECKS COMMAND AND DATA CHANNELS WITH DIFFERENT * SWITCH SETTINGS TO VERIFY THE COMPONENTS ASSOCIATED * WITH THESE SPECIFIC SETTINGS. * * THE FOLLOWING SWITCHES HAVE TO BE SET TO THE NEW * POSITIONS: * U85S2-POS.5 * U85S3-POS.9 * ORG 6000B * TST10 EQU * * UNI10 NOP LDA USSC IS THIS A UI BOARD? AND .200 SZA,RSS JMP UNI10,I NO, EXIT TEST LDA PU10 ESTABLISH POWER FAIL RETURN STA PUJP+1 ADDRESS JSB POWF,I GO TO POWER OFF SUBRT * UN10 JSB POWUP REESTABLISH S-REG JSB NPRS STORE NOP/RSS INSTR'S LDA C&SWB SET THE POINTER OF THE CONTR & STA C&SWP STATUS WORD TO BEGIN. OF TABLE UI39 CLC SC RESET DATA & CONTROL CH FF UI41 CLC SC+1 JSB T10 TEST WITHOUT STC & SFS ON COMD. CH * JSB STCSF STORE STC/SFS INSTR'S UI40 CLC SC RESET DATA & CONTROL CH FF UI42 CLC SC+1 JSB T10 TEST WITH STC & SFS ON COMD. CH JMP UNI10,I * * T10 NOP JSB T10CW OUTPUT A CONTR WORD OF 0 JSB T10SW CHECK THE STATUS WORD FOR 200 JSB T10DT OUTPUT DATA WORDS JSB T10SW CHECK THE STATUS WORD AGAIN FOR 200 ISZ C&SWP INCREMENT CONTROL/STATUS WORD NOP TABLE POINTER JSB T10CW OUTPUT CONTROL WORD OF 176000 JSB T10SW CHECK STATUS WORD FOR 174374 JSB T10DT OUTPUT DATA WORDS JSB T10SW CHECK STATUS WORD AGAIN FOR 174374 ISZ C&SWP INCREMENT CONTROL/STATUS WORD NOP TABLE POINTER JMP T10,I * SKP * * UNIVERSAL INTERFACE BOARD TEST, TEST 11 * * TEST 11 IS RUN EXCLUSIVELY ON THE 12930 BOARD. * IT IS SIMILAR TO TEST 10 BUT REQUIRES DIFFERENT * SWITCH SETTINGS TO VERIFY THE COMPONENTS ASSOCIATED * WITH THESE SPECIFIC SETTINGS. * * THE FOLLOWING SWITCHES HAVE TO BE SET TO THE NEW * POSITIONS: * U85S3-POS.8 U97S3-POS.9 U106S1-POS.2 * U97S2-POS.4 U102S2-POS.6 U106S3-POS.10 * TST11 EQU * * UNI11 NOP LDA USSC IS THIS A UI BOARD? AND .200 SZA,RSS JMP UNI11,I NO, EXIT TEST LDA PU11 ESTABLISH POWER FAIL RETURN STA PUJP+1 ADDRESS JSB POWF,I GO TO POWER OFF SUBRT * UN11 JSB POWUP REESTABLISH S-REG JSB NPRS STORE NOP/RSS INSTR'S LDA C&SWA SET THE POINTER OF THE CONTR & STA C&SWP STATUS WORD TO BEGIN. OF TABLE UI35 CLC SC RESET DATA & CONTROL CH FF UI37 CLC SC+1 JSB T11 TEST WITHOUT STC & SFS ON COMD. CH * JSB STCSF STORE STC/SFS INSTR'S UI36 CLC SC RESET DATA & CONTROL CH FF UI38 CLC SC+1 JSB T11 TEST WITH STC & SFS ON COMD. CH JMP UNI11,I * * T11 NOP JSB T10CW OUTPUT A CONTR WORD OF 000/100000 LDA .1 ALLOW A DELAY OF 1 MILLISEC F OPTIC. JSB TMRR,I COUPLED ISOLATOR U51 TO TURN OFF JSB T10SW CHECK THE STATUS WORD FOR 001/100300 JSB T10DT OUTPUT DATA WORDS (STC SC CHANGES STAT WD) ISZ C&SWP INCREMENT CONTROL/STATUS WORD NOP ADDRESS POINTER JSB T10SW CHECK THE STATUS WORD FOR 2003/102302 UI34 CLC SC RESET DATA CHANNEL CONTROL FF ISZ C&SWP INCREMENT CONTROL/STATUS WORD NOP TABLE POINTER JSB T10SW CHECK THE STATUS WORD FOR 001/100300 ISZ C&SWP INCREMENT CONTROL/STATUS WORD NOP ADDRESS POINTER * SKP JSB T10CW OUTPUT CONTROL WORD OF 176000 LDA .1 ALLOW A DELAY OF 1 MILLISEC F OPTIC. JSB TMRR,I COUPLED ISOLATORS U51 TO TURN ON JSB T10SW CHECK STATUS WORD FOR 174374 JSB T10DT OUTPUT DATA WORDS ISZ C&SWP INCREMENT CONTROL/STATUS WORD NOP TABLE POINTER JSB T10SW CHECK STATUS WORD AGAIN FOR 176376 ISZ C&SWP INCREMENT CONTR/STATUS WORD NOP TABLE POINTER JSB T10CW OUTPUT CONTROL WORD OF 176000 UI33 STC SC SET DATA CHANNEL CONTROL FF JSB T10SW CHECK STATUS WORD FOR 176376 JSB T10DT OUTPUT DATA WORDS JSB T10SW CHECK STATUS WORD AGAIN FOR 176376 ISZ C&SWP INCREMENT CONTROL/STATUS WORD NOP TABLE POINTER JSB T10CW OUTPUT CONTROL WORD OF 0 LDA .1 ALLOW A DELAY OF 1 MILLISEC F OPTIC. JSB TMRR,I COUPLED ISOLATORS U51 TO TURN OFF JSB T10SW CHECK STATUS WORD FOR 2003 ISZ C&SWP INCREMENT CONTROL/STATUS WORD NOP TABLE POINTER JMP T11,I * SKP * * OUTPUT ALL COMBINATIONS OF DATA WORDS, READ THEM BACK * & CHECK THE WORDS. * T10DT NOP CLA SET DATA OUTPUT REG TO 0 UI26 OTA SC OUTPUT DATA WORD UI27 STC SC,C TRANSFER TO INPUT DATA REG & UI27A SFS SC CHECK IF FLAG IS SET JSB E065 NO, ERROR UI28 LIB SC READ DATA IN CPB A COMPARE DATA JMP GDWD OK, NO CHANGE OF DATA STA OTPAT ERROR, STORE OUTPUTTED, STA EXPWD EXPECTED & INCOMMING STB INPAT DATA WORD AWAY LDA MP63 LOAD MESSAGE POINTER, IOR B15 LINK TO MULTIPLE MESSAGE STA MSXYZ & STORE INTO ERROR MESSAGE ROUTN. JSB EMR3L GO TO ERROR MESSAGE LDA OTPAT WHEN RETURNING F ROUTN GET OTPAT GDWD ISZ A INCREMENT DATA WORD & JMP UI26 REPEAT TRANSFER JMP T10DT,I EXIT ROUTN * E065 NOP JSB ERMS,I DEF MS065 JMP E065,I * MP63 DEF MS063 MS063 ASC 14,E063 DATA WORD WAS MODIFIED/ MS065 ASC 15,E065 DATA CH FLAG FF NOT SET/ * * * * STORE A NOP INTO SUBROUTINE T10CW & AN RSS * INTO SUBROUTINE T10SW * NPRS NOP CLA STA T10NP LDA SW010 STA T10NQ JMP NPRS,I * SKP * * STORE A STC SC+1 INTO SUBROUTINE T10CW & A * SFS SC+1 INTO SUBROUTINE T10SW * STCSF NOP LDA UI29A STA T10NP LDA UI29B STA T10NQ JMP STCSF,I * * * * OUTPUT ONE CONTROL WORD FETCHED FROM THE TABLE * & INCREMENT THE TABLE POINTER * T10CW NOP LDA C&SWP,I FETCH CONTROL WORD F TABLE UI29 OTA SC+1 & OUTPUT T10NP NOP NOP/STC SC+1,C INSTR ISZ C&SWP INCREMENT TABLE POINTER NOP JMP T10CW,I EXIT * UI29A STC SC+1,C * * C&SWP OCT 0 STATUS & CONT WORD TABLE POINTER C&SWB DEF C&SWD * C&SWD OCT 0 OCT 200 OCT 176000 OCT 174374 OCT 0 OCT 2202 OCT 176000 OCT 176376 * C&SWA DEF C&SWC C&SWC OCT 0 OCT 1 OCT 2003 OCT 1 OCT 176000 OCT 174374 OCT 176376 OCT 176000 OCT 176376 OCT 0 OCT 2003 OCT 100000 OCT 100300 OCT 102302 OCT 100300 OCT 176000 OCT 174374 OCT 176376 OCT 176000 OCT 176376 OCT 0 OCT 2003 SKP * * INPUT ONE STATUS WORD & COMPARE AGAINST TABLE * T10SW NOP T10NQ NOP RSS/SFS SC+1 INSTR JSB E066 UI30 LIB SC+1 READ IN STATUS WORD CPB C&SWP,I COMPARE STATUS WORD AGAINST TABLE VALUE JMP T10SW,I OK. EXIT ROUTN STB INPAT ERROR, STORE READ STATUS WORD LDA C&SWP,I READ EXPECTED STATUS WORD & STORE STA EXPWD LDA MP64 LOAD MESSAGE POINTER IOR B15 LINK TO MULTIPLE MESSAGE STA MSXYZ & STORE INTO ERROR MESSAGE ROUTN JSB EMR3L GO TO ERROR MESSAGE JMP T10SW,I EXIT ROUTN * E066 NOP JSB ERMS,I DEF MS066 JMP E066,I * UI29B SFS SC+1 * * MP64 DEF MS064 MS064 ASC 14,E064 INCORRECT STATUS WORD/ MS066 ASC 16,E066 COMMAND CH FLAG FF NOT SET/ * * * ************************************************************** SKP HED TEST 12 * * PSEUDO OPDESIGN * SWR * BIT OPERATION * 0 - INEREMENT PATTERN * 1 - OUTPUT PATTERN (OTA SC) * 2 - ENCODE PATTERN (STC SC,C) * 3 - WAIT FOR FLAG (SFS SC) * 4 - INPUT PATTERN (LIA SC) * 5 - COMPAIR PATTERN * 6 - LOOP * TST12 EQU * * POD NOP JSB MSGC,I TELL OPERATOR TO DEF PODM MAKE SWR SELECTION CLA PODH LDB BTMSK CMB H054 EQU * HLT 54B WAIT FOR HIM STA PTRN ESTABLISH PATTERN CMB STB BTMSK AND BIT MASK AND BTMSK ESTABLISH EXPECTED STA EXP PODL LDB .177 JSB SWRT,I RSS JMP POD,I EXIT CLB,INB JSB SWRT,I JSB INPT INCREMET PATTERN LDB .2 JSB SWRT,I JSB OUT OUTPUT PATTERN LDB .4 JSB SWRT,I JSB ENCD ENCODE PATTERN LDB .10 JSB SWRT,I JSB WFL WAIT FOR FLAG LDB .20 JSB SWRT,I JSB IN INPUT PATTERN LDB .40 JSB SWRT,I JSB CMPR COMPAR PATTERNS LDB .100 JSB SWRT,I JMP PODL LOOP LDA PTRN JMP PODH HALT FOR OPERATOR SKP PODM ASC 21,H070 SET SWITCH REG. FOR PSEUDO OPDESIGN/ * * * ************************************************************** * FWAA EQU * END