IMD 1.16: 2/09/2008 13:13:41 84-93717-01 a100 f71701 2/4 channel ht program modules scout multi-channel serial board hdwr. test program  ž ªªž @0‚|†ø)®wÂwЀЀÎtQº®q¦l) ˆ " ž}‚gÿA ¢`œžúž¼žöšèì Mˆ’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’IOS4 €MÁúE681081009111200810810091112 810810091112*F71701 VOL2/4 CHAN. HT PROGRAM MODULES   ’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’I’Ižúž¼žöšèì Mˆ@†jæjg€ÿígÿèÂg@ †o G€ÿò`úkžŽ¾ôž¾¢_„C# b# ž}€BŸ€ žuÒ[¾æ žþž]e‡ †JÂR¾­æði¾òÀˆÆCÆCp@€„†<€…†;€††:€ƒ †FÂ8P@ G€ÿÁÆ;à‰¾•NÆêP¾éâ×èCHùC €ˆC ˜GÈTºà€qEžç‚â¢'ŸÉž¦ *¦Ã C¦¦ÏŸxÆžì @0DAJ÷LÆ )®ê‘ЀЀΎQBžxªâ" ¦† i¾¦€„œªª+⟠fžE¾ùžB)3žß `jmBˆB¾ I,Ÿv ¾ °¾€B¾ I,ŸmžÊ ž @¬E°E¨F¤F)¤D¾^ÄE‚‚„Fž% †ÊæjHÿÆÄÆÄ@pÆO¾ÄŸv g€ÿ7gÿ4ò]X¾] P¢hâV+ì„s=è„胾cžÆ_†N‚£ ž‡žôŠGŠF¾Öž†›¾ÁžØ¾ø ¦•Â“@AúLèSÃ)"$ C ž‰žkžøª1žïŠ/žjŠ-ž žhÿöÿÿ ‚p ž…âv¾R†Ÿw ÞpÞpžwâ‚p¾ Þkâižº† ’ŸÂ¢œ€15 !¦^æ\žd ²X‚ žˆò %€À'+ò²NŸs愾Qâ‚)žs ‡EÞDŸ|Ÿ{ @ž$ ož¶ Ož¯ mž­ Jž« Kž© iž¸ gž¶†. žV tž²žì„sFè„n`" FàEžD)ž ¾E`¾CnrgŸy ¾w"¾NÞž{žR¾q1¾HÞ ž}žL¾2`¾0t¾žG¾- ²B¾c ¾(Þ>Þ=Þ<žy¦:ž;¾!ž9¾ü¾/ž5OS:: SYSž¦ž"ªªiüþŒþ‹Âwþ‹þŠÂvc Bc A@6<# þIc B# ÞgIþjHÀc r‡Ÿc ·œ‡›Þš# @0‚X†ß)P ®VÂVЀЀÎSQº®P¦‹pI þN@66 ÿa _Ç‘HüÓU… WT 6<‡P P`¤@ °@ž‚‘ ü€À @¿6AžQP P`¤@ ‚†„Bƒ…„A‚ °@žƒtt  ÿŠ? HþE¾T½ Ÿ‚½tiiÔ C @¢0( 0( o) Rp& ÿ”P „E„DP P`¤@  ‚‰„Bƒˆ„A‚‚°@ž†CO1Pttt ÿX«IÄAÄBP P`¤@  ‚‚°@ž‚CIÿ¤ žƒIÄAž¥y -žÆ ž  0žƒ 9žž‰  I G*Ð@"ÄAž[P P`¤@ ‚]„A °@ž„t ÿž2HÿÄBž×P P`¤@ ‚I„A °@žƒtŽ ÿ|P P`¤@ ‚†„Bƒ…„A‚"°@žƒtt ÿŒÐIÄBP P`¤@ ‚&°@ž‚t ÿH ž’IÄBž£P P`¤@ ‚„A °@ž‚ÿIž=y - ž[ ž 0žƒ 9žžf I  G*Ð@"ÄBžLI¢™C €€PŒA Ì „EC € ÿž‚ŒBÄC €‚„D ž†Kžm€EAž Ÿƒc # dÿÿæii SCOUT NM4/04 HARDWARE FUNCTIONAL TEST SYSTEM  (A300) **************** ************************ ********************  CONFIGURATION APPLICABLE FOR THE FOLLOWING BOARDS: i °@ž„t ÿž2HÿÄBž×P P`¤@ ‚I„A °@žƒtŽ ÿ|P P`¤@ ‚†„Bƒ…„A‚"°@žƒtt ÿŒÐIÄBP P`¤@ ‚&°@ž‚t ÿH ž’IÄBž£P P`¤@ ‚„A °@ž‚ÿIž=y - ž[ ž 0žƒ 9žžf I  G*Ð@"ÄBžLI¢™C €€PŒA Ì „EC € ÿž‚ŒBÄC €‚„D ž†Kžm€EAž Ÿƒc # dÿÿæii SCOUT NM4/04 HARDWJPRTHEX O0SEGMENTBLANK ROM o QKO:BY2H O:IO SYSERR im MACRO (F100) iig C @¢˜0( 0( o) Rp& ÿP „BP P`¤@ :„A€‚°@žƒ1Pt ÿŠ€AP P`¤@ €°@ž‚t ÿr„CP P`¤@ €ƒ„A€‚°@ž‚t ÿm C.r¤CP P`¤@ €ƒ „A€‚°@žÿ]c P` à@# ÿÿJFLUSH O0SEGMENTBLANK ROM o )KSYSERR O:IO im MACRO (F100) iiig C @¢—0( 0( o) Rp& ÿŽP @NqP P`¤@ €°@žƒ1Pt ÿŠ žž‚C®c P` à@# tÿÿJSYSERR O0SEGMENTBLANK ROM o 0KHFT:EXC O:MSG im MACRO (F100) i FATAL PROGRAM ERROR -  STACK OVERFLOW - ABORTg X*ð XP P`¤@ ‚†„B 0„A‚ƒ°@žƒCOÿ‚ ŸttÿÿJRTCSERV O0SEGMENTBLANK ROM o im MACRO (F100) ig_‡W# ÿÿJYES:NO O0SEGMENTBLANK ROM o LKFLUSH O:IO SYSERR im MACRO (F100) iig C @¢–0( 0( o) Rp& ÿP P P`¤@ ‚‚°@ž„CI1Pt ÿ¤I žžŽy /ž‚Ižž Yž‚IžŠ Nž‚Iž…  ž‚IžP P`¤@ ‚[„A °@žƒt ÿ†ÄAc P`€Aà@# tÿÿJBLINKER O0SEGMENTBLANK  ROM o KSYSERR im MACRO (F100) iig C @¢˜0( 0( o) Rp& ÿP € î„ ï6Âf žf/c P`à@# 1PtÿÿJERRACTN:ERRACTN O0SEGMENTBLANK TESTENTROROM o qKLTECHTSTTECHTST O:IO KO:MSG SYSERR im MACRO (F100) igÿ‚`Pž}dÿÿiig C @¢ª0( 0( o) Rp& ÿ¡P À1LžÕ„B)!,/ž„À€@ÿ 6A4ºÜ€À @6ê@Ï6ÑP P `¤@ „A‚‚°@ž…CO1Pt ÿ”À @ß6Ô BÀ€ÄAÜBP  P`¤@ €‚„B€„A‚h°@ž‚t ÿ™€ ¯6Á € Ÿ6Ü „1€  6ÒP P`¤@ ‚‡„Bƒ†„A‚L°@ž„ttt ÿ{c P` à@# c P` à@# ÿÿJLTECHTSTTECHTST LTSTRT2 JTSTRT2 LTSTRT TSTRT JLVERIFY VERIFY LSINGLE JSINGLE LXTEND XTEND JLALRMBELALRMBEL LERRLOOPJERRLOOP LERRHLT ERRHLT JLAIDS AIDS SIGNOFF JLSIGNOFFLDSHPRMTDSHPRMT JLCNTPRMTCNTPRMT LBRDPRMTJBRDPRMT O0SEGMENTBLANK ROM o Gim MACRO (F100) ig S ELECT BOARD-UNDER-TES T ("BUT") FROM THE ABOVE LIST: (RESPOND WITH TH E BOARD ASSEMBLY NUMBER.) >>>541gjg  - SPECIFY # OF "BUT"S  (ENTER RETURN TO SIGNIFY 1, OR ENTER ACTUAL #) >>>gNg BOARD DASH NUMBER >>> gg *** END OF TEST *** gg NON-STANDARD DIAGNOSTI C AIDS (Y N,OR ) ?g0g - HALT ON ERROR (Y N) ?gg - LOOP ON ERROR (Y N) ?gg  - RING BELL ON ERROR (Y N) ?g  g  - PRINT EXTENDED DIAGN OSTIC MESSAGES (Y N) ?g 0g  - RESTART TEST FOLLOWI NG COMPLETION (Y N) ?g.g TYPE A CARRIAGE RETU RN TO START TEST >>>g,g BOARD-UNDER-TEST ("BUT") NO. g g NOW UNDER TEST ****** ************************ ***************** gBg *** ENTER TECH TEST *** gÿÿJO:BY2H O:MSG O:IO JENDMSG ENDTABL O0SEGMENTBLANK JUMPTABLOMESSAGE ROM o1KSYSERR im MACRO (F100) igi giiig C @¢0( 0( o) Rp& ÿ”P „CÀAUjBr„DP P `¤@ €„„A€ƒ°@žƒ1Pt þÐ žž•UTB„DP P`¤@ €„„A€ƒ°@žƒt þ»ÜB žUÿ„Ec P`€Eà@# iiCg C @¢Z0( 0( o) Rp& ÿQP ² 8ªÀ€2Nr 8 ª—ô€ÄAc P`€Aà@# 0123 456789ABCDEFciitg C @¢)0( 0( o) Rp& ÿ P žžƒºž£ 01Ð P P`¤@ ‚…„A °@ž„CI þ§`â›%àÀ'h+  )¤0q„Bc P`€Bà@# „CP  P`¤@ €„A€ƒ°@žƒþ×c P` à@# iià C @¢¬0( 0( o) Rp& ÿ£P )Aù@O6½‚ùÂœBùù ?6½AøXÄB‚”ùMž•1-*ÿ P P`¤@ €‚„A °@ž†1Pt þ›žYP P`¤@  €‚„A °@žþ%ÅÁ'-P+M žCc P`à@# ii C @¢[0( 0( o) Rp& ÿRP €AøAù@O6=Aù@O6½ÂHBùc P`à@# ÿÿ9ABCDEFciitg C @¢)0( 0( o) Rp& ÿ P žžƒºž£ 01Ð P P`¤@ ‚…„A °@ž„CI þ§`â›%àÀ'h+  )¤0q„Bc P`€Bà@# „CP  P`¤@ €„A€ƒ°@žƒþ×c P` àOVicEdDanoúùfÿ‚`Pž}àà+ @0‚¥p‚¤` P ) Hð„€4ÀT½ „C„0„1H€Ç––ǖƒ–Ž–„FP P`¤@ ‚„B€†„A‚‚°@ž‰COÿ@’ö“úù‰"ÿ ¤‚ Ž  ž„ÿžÀCQEŸ˜¢™€‚„Džy „CŒÜ¼„ P P`¤@ ‚‹„BƒŠ„A‚X°@žˆø5áˆùˆù‚áÔ÷f÷~ÿwP P`¤@ °@žÿ“ÁŸ’ žV ŸhP P`¤@ ‚ˆ„Bƒ‡„A‚2°@ž…ö…áa÷$÷K3ÿT)IP P`¤@ ‚‚°@ž‚CIÿ£ ž‚Iž¤y /Ÿf žŸ ÐÍ ž‚ž‰@ @X '€ž] P P`¤@ ‚^„A °@žƒø©ÿ’ž7LI@ŒP P`¤@ ‚ˆ„Bƒ‡„A‚‚°@ž…COö(÷÷ŒÿP P`¤@ °@žÿ$ÁŸ# ž_ @¬P P`¤@ ‚†„Bƒ…„A‚_°@žƒ÷÷š ÿˆP P`¤@ °@ž‚ø5ÿÁžê ž` @œP P`¤@ ‚†„Bƒ…„A‚=°@žƒ÷›÷«ÿfP P`¤@ °@žÿ“ žÉ ža @ÌP P`¤@ ‚‡„Bƒ†„A‚°@ž…ö…÷¬÷Ä ÿCP P`¤@ °@žÿpg ž` @ÜP P`¤@ ‚‡„Bƒ†„A‚‚°@ž„CO÷Å÷Ü/ÿ"P P`¤@ °@žÿOF ža @¼Ä ž§P P`¤@ ‚‚°@žƒCIÿy@ žP P`¤@ ‚q„A °@žƒø©ÿ•LQŸ”LSIÄCŸ D1ÁŸŽP P`¤@ „A‚7°@ž…ö(à>àà6*ÿa _Ç‘HüÓU… WT6<‡P P`¤@ °@ž‚‘ü€À @¿6AžQP P`¤@ ‚†„Bƒ…„A‚ °@žƒ÷Y÷e ÿŠ? HþE¾T½ Ÿ‚½ø5àáÔ!C @¢0( 0( o) Rp&ÿ”P „E„DP P`¤@ ‚‰„Bƒˆ„A‚‚°@ž†CO1Pöiöî÷#6ÿX«IÄAÄBP P`¤@ ‚‚°@ž‚CIÿ¤ žƒIÄAž¥y -žÆ ž  0žƒ 9žž‰ I G*Ð@"ÄAž[P P`¤@ ‚]„A °@ž„ø©ÿž2HÿÄBž× P P`¤@ ‚I„A °@žƒö(âŽÿ|P P`¤@ ‚†„Bƒ…„A‚"°@žƒ÷L÷XÿŒÐIÄBP P`¤@ ‚&°@ž‚ø5EÿH ž’IÄBž£P P`¤@ ‚„A °@ž‚ÿIž=y -ž[ ž 0žƒ 9žžf I G*Ð@"ÄBžLI¢™C €€PŒAÌ „EC € ÿž‚ŒBÄC €‚„Dž†Kžm€EAž Ÿƒc # ù‚áæù‰V SCOUT NM4/04 HARDWARE FUNCTIONAL TEST SYSTEM (A300) ************************************************************ CONFIGURATION APPLICABLE FOR THE FOLLOWING BOARDS: ùß0 #54121 - MULTI - CHNL RS232 INTERFACE (D1) #54125 - MULTI - CHNL RS422 INTERFACE (D0)ù‚ÿÿã†ÿÿã†úŸ€ã–â«u  00@@þ€/¶½# þ€/¶º# þ€/¶·# þ€/¶´# þ€/¶±# þ€/¶®# þ€/¶«# þ€/¶¨# þ€/# þ€/# þ€/# þ€/ # þ€/# þ€/0# þ€/# þ€/@#  0@ BAUD RATE [9600] ? ** W ** TWO CHANNEL BOARD "ã ­ MULTI - CHNL RS232 SERIAL INTERFACE HARDWARE TEST PROGR(A1) - FOLLOW TEST PROCEDURE # 58-54121-00 d MULTI - CHNL RS422 SERIAL INTERFACE HARDWARE TEST PROGR(A1) -FOLLOW TEST PROCEDURE # 58-54125-00bÿ€C @¢Ã0( 0( o) Rp&ÿºP ž…„ þm`Pž}C @° @Jÿή⮀€„@+kT»c IǧÄA€/Å)€ñÄ€+½ÂRǞžǞÀ @¿6AžÓ @€ žP P`¤@ ‚„B‚=„A‚‚°@žŽCO1Pöiâ»ã€’ö“ãSÿŽž“P P`¤@ ‚‡„Bƒ†„A‚e°@ž…ø5ã ãRÿzP P`¤@ ‚†„Bƒ…„A‚R°@žƒ÷Ý÷ó/ÿiP P`¤@ ‚„„A °@ž‚CIÿŸ A1C€ ý„ +€ #AŸ•¤A€ ü„ € 6òP P`¤@ ‚ˆ„Bƒ‡„A‚!°@ž…ö(å÷ôøÿ6P P`¤@ €„A‚°@žÿP P`¤@ ‚‡„Bƒ†„A‚°@ž„õ×øø&[ÿ*ÿ.1 "‡œ)¤BIÈAC f 𻔞…€BAžwf/ž”€BAžr ‡‰P P`¤@ °@ž„`Tÿ³„B¬ƒx) $)  $)¢ " ")' " " !8ÿ,ÿžž¡ !8ÿ,ÿžž›)§€ 6ØP P`¤@ ‚‰„Bƒˆ„A‚ƒ°@ž‡bCOô°ãã)ÿ¦ž‚)§u(§£)ƒ; $ $ $ $+ß—žu€/AŸ”€ 6AžÇP P`¤@ ‚Š„Bƒ‰„A‚U°@ž‡ø5åPå{ãã WÿxÿÔ@ úÓžž¦úОž¤úÍžž¢úÊžž úÇžžžúÄžžœúÁžžšú¾žž˜)@*žžƒ žŠÿ¬ ž@ž|  ž (ž‹ Pž‰ ž‡‚©ž…‚¨žƒ‚§ž‚¦)€Ã—KC „€‡ ÇI Ç@ Gt@AǘP P`¤@ °@ž“€å‹H$–P@€ÑrtsÿŠ¢Š§ŠP P`¤@ °@ž„æbâ« aÿˆP P`¤@ °@ž‚ê~ ÿˆP P`¤@ °@ž‚ìŽ ÿˆP P`¤@ °@ž‚ðÿ’ƒ’) $Ÿ)€Ã5KC €€žÜ/žÜ/c P`à@# ñ¨`ä  )P P`¤@ ‚‚°@ž‚CIÿ“y„C ÐÊ žŠ ù ž„ žƒ€C# .1 žaø©ùjÿ‚`Pž}æbå¬Û EXTERNAL TEST CABLE IS MISSING CONNECT THE TEST CABLE AND RESTART THE TEST . CH1 TRANSMIT; CH2 RECEIVE  CH2 TRANSMIT; CH1 RECEIVE CH3 TRANSMIT; CH4 RECEIVE CH4 TRANSMIT; CH3 RECEIVE PROGRAMMED I/O TEST ŽNÞîÎ^ž~¾þ DATA TRANSFER TEST, BREAK DETECT TEST, OVERRUN ERROR TEST, PARITY ERROR TEST, FRAMING ERROR TEST, C @¢¡0( 0( o) Rp&ÿ˜P )§•§•§•  6ÖP P`¤@ ‚Œ„B‚„A‚‚°@žˆCO1PöiVWXæ$ÿ¢)§¡ƒ¡ $)  $ ž‡)§–ƒ–) $ž·  6ôP P`¤@ ‚‰„Bƒˆ„A‚W°@ž‡ø5Y`å¬å¼ÿxP P`¤@ ‚†„Bƒ…„A‚B°@žƒå½åÔ(ÿgP P`¤@ ‚„„A °@ž‚CIÿ˜)§—ƒX‡’‡‘  6ÕP P`¤@ ‚Š„Bƒ‰„A‚°@ž‡RSö(cåÕåã/ÿ;ƒwÃw)B "C "£4,ž…)% ")%ž„)' ")'C " !8,žš ‡Ž7§ ‡Œ‚ŒÿŒP P`¤@ °@ž‡TUqæ%êWÿ˜ žžƒCC !8,žŸ ‡n7§m ‡l‚lÿlP P`¤@ °@ž„ô°çGçNzÿ{ žž‡)@ƒ$ "C "ž'ƒ)ÿ "Ö !8,ž—Tº ‡D7§C ‡B‚BÿBP P`¤@ °@žƒrÿR žXƒ˜Ã–C !8,ž˜º ‡&7§% ‡$‚$ÿ$P P`¤@ °@ž„Ssÿ3 ž9ÃxC !,ž ‡ P P`¤@ °@ž‚ÿ ž%ƒ• !8,ž›  ‡7§Ž ‡‚ÿP P`¤@ °@žˆRTUqæ%êWÿ— žC !8,ž– ‡o7§n ‡m‚mÿmP P`¤@ °@žƒô°;ÿ| Ÿ¶ƒYÃ')@ "C "¢¯ƒ¯  €ƒN "C "£¨,ž…)' ")'ž„)% ")%C "£š,ž» !8¿,žš ‡37§2 ‡1‚1ÿ1P P`¤@ °@ž‡çGæcYÿ< ž@ƒC !8¿,žÒ ‡7§ ‡‚ÿP P`¤@ °@ž‚èvÿ! ž%ž¼ƒ• !8¿,…ž› ‡7…§Ž ‡‚ÿP P`¤@ °@žˆRTUqæ%êWÿ˜ žƒtC !8¿,…ž• ‡n7…§m ‡l‚lÿlP P`¤@ °@ž‚ô°#ÿ} ŸŸƒY(þ¤A)ª¤B "Ø !8,ž™Tº ‡K78¿§I ‡H‚HÿHP P`¤@ °@ž„çÞTrÿW Ÿy؃–C !8,ž˜º ‡+7§* ‡)‚)ÿ)P P`¤@ °@ž„sSÿ8 ŸZC ! ¸Bžƒž ‡ P P`¤@ °@žÿ! ŸCC !8,žš ‡Ž7§ ‡Œ‚ÿ‹P P`¤@ °@ž‡TUqêWæ%.ÿ Ÿ$ƒ§)ÿÜAž)ª "£;4¿)ÿ "£64¿)U "ƒ1C !8,ž˜º ‡\7§[ ‡Z‚ŠÿYP P`¤@ °@ž„Ræ=ÿ‹ Ÿ‹ƒ‰ ‡‡¢ˆ  €,ž†Ÿ‚ô°cçÞæ9ƒj)@ "C ")Ž "C "£©,ž…)'C ")/ž„)C ")-ƒŸ¿ƒQ "ƒ™C ! o6A»8o,gž™ ‡7g§ ‡‚ŒÿP P`¤@ °@ž†Ysræ1Eÿ? žBƒ,(þ§;)@ "C ")^ ")~C "£h,ž‡)' ")'ž†)% ")C ")ª "£V4¿)U "ƒQC !8,ž›º ‡Ž7§ ‡Œ‚ÿ‹P P`¤@ °@ž‡TUqêWæIMÿÊ ž9ßÈžž‹ƒÆ)@ "C ")~ ")^ž7ƒ»)@ "C ")Ž ")‚C "£,ž…)'C ")'ž„)C ")% ") "ƒC ! 6A»C !C !8,%ž™ ‡<7%§; ‡:‚ŒþäP P`¤@ °@ž†ô°cRæULÿy ž=ƒx)§u)@ "C "£¼,žŠ@‡lǸ)§µ¢¶¤A£µ¤BžŸ£³,žÔ£±,žƒ¯Ã®YǦ‡X)§§¢¨¤A£¢¤BžŒ£¤,žÁ@‡Lǘ)§¢¤A£•¤B  6ÛP P`¤@ €„B€‚„A‚‚°@žCOVSåäåãbW`åòXæÿ”Ÿ”„Cƒ“„D€ 6ÒP P`¤@ €ƒ„B€„„A‚`°@ž„ø5æõæaÿ{# c P`à@# ùnÿ‚`Pž}ê~êt/ INTERRUPT TEST C @¢¡0( 0( o) Rp&ÿ˜P )§•§•§•€ 6èP P`¤@ ‚Œ„B‚`„A‚‚°@žˆCO1PöiVWXêtÿP P`¤@ ‚‡„Bƒ†„A‚l°@ž„ø5åÕåãŽÿ{£È§È9§ÇƒÅÃÅ¢É $)Žƒ¿ "C ")! ")$C "õ)4C ")$C "×Å £¬,ž‚)ž) ƒ£ $ƒ¡)  "£ 4¿)  " £›…ÖC A@6A4º‡ÃC !V)§ŽP P`¤@ °@ž‰`RSYrsTÿ¹ ž@Ãu)4C ")$C "£o,ž‚) ž) ƒf $ÕÇ ƒa)! ")  "£]4¿)  " £X…ÃSC A@6A4º‡ÃLC !O)§KP P`¤@ °@ž‚ô°ªÿ} žDÃ9)4C ")$C "Ç× £0,ž‚)ž) ƒ' $ƒ%)! ") "£!4¿)  " £…ÃC A@6A4º‡ÃC !N)§P P`¤@ °@žÿB žE£Ð,ž‚) ž) ƒÅ $ƒÃÃÃX£Ã  €§½¤CN£½ B+ €ƒ¶ §´ƒ±)! "î)4C ")$C ")ÿ "£© ÀC…Jž4½‡Ã›)&C "£žÃ˜…Jž4½‡Ã‘C ALÿžš„B)§ŒP P`¤@ °@ž‹`RScTYarsÿ“ ž&€B£s*ž£I@ ž’)§mP P`¤@ °@ž„ô°ì +ÿ{ žžŽ)§[P P`¤@ °@žÿl Ÿ—ÃLC !8?,ž™ÃFC  ‡D7§‹ ‡ŠP P`¤@ °@ž…ëˆJUqÿM Ÿxƒ,)@ "C "£»,žŠ@‡"Ç")§´¢´¤A£³¤BžŸ£±,ž»£¯,žƒÃY‡Ç)§¥¢¥¤A£ ¤BžŒ£¡,ž¨@‡Ç)§š¢š¤A£“¤B  6ÙP P`¤@ €„B€‚„A‚Š°@ž‹VåäåãbWåòXæCOÿŸø5êÅc P`à@# ùrÿ‚`Pž}ìŽì}6 SPECIAL CHARACTER DETECT TEST C @¢¡0( 0( o) Rp&ÿ˜P )§•§•§•€ 6èP P`¤@ ‚Œ„B‚`„A‚‚°@žˆCO1PöiVWXì}ÿP P`¤@ ‚‡„Bƒ†„A‚l°@ž„ø5åÕåãƒÿ{£¹§µ9§´ƒ²Ã²)Ž "C ")! ")$C "X£¦  € ¤DN£  B+ €'‡™£š B+ € ¤A×Ç (¤B) ÏP P`¤@ °@ž†RSc`aÿÃÃy 4C  $C ƒq "¤E£¸ ÀD…Jž4½‡‡±ƒd)& "£­ƒ«Ã`…Jž4½‡‡¤ƒWÃWC AƒŸ£ÀA…@ ž4½‡ E‡–ƒII! Bƒ‘ÃF@ ž—IAIÇŒP P`¤@ °@ž‡öÑ&rdsTÿŸ ž!žƒ+ÜBž(¤B¢—Ã%C $+ÜBžz „C)„B ÌP P`¤@ °@žƒô°QÿUà 4C  $C ƒ "¤E£J ÀD…Jž4½‡‡Cƒ¶)& "£?ƒ=ñ…Jž4½‡‡6ƒ©ÃªC Aƒ1£/ÀA…@ ž4½‡ E‡(ƒ›I! B ƒ#ÀA@ ž¡€C „CÜBžŸ‚@¸Cž‚ž•IÇP P`¤@ °@ž‡RcSíÓzÿ) žž‹IžjÜBžž‚+ž€C žž`Ãk 4C  $C ÅÕ )ƒ^ "£² ÀD…Jž4½‡‡«ƒR)& "£§ƒ¥ÃM…Jž4½‡‡žƒEÃFC Aƒ™£—ÀA…@ ž4½‡‡‘ƒ8I! BƒŒR)§‹P P`¤@ °@ž…rdsTÿ¡ ž7×Ç (€¤B¢šÃC $+ C $ Œ+ÜBžv(€¤B) ÌP P`¤@ °@žƒô°DÿÁÃÁ 4C  $C ƒ» "¤E£I ÀD…Jž4½‡‡Bƒ®)& "£>ƒ<é…Jž4½‡‡5ƒ¡ÃŸC Aƒ0£.ÀA…@ ž4½‡ E‡'ƒ“I! Bƒ"ÀA@ ž”IÇP P`¤@ °@ž†öÑKSRcÿ4 ž'ŸÂ+Ãu 4C  $C ƒo "¤E£¶ ÀD…Jž4½‡‡¯ƒb)& "£«ƒ©Ã]…Jž4½‡‡¢ƒUÃSC Aƒ£›ÀA…@ ž4½‡ E‡”ƒGI! BƒÃC@ ž•IÇŒP P`¤@ °@ž‡ï™)rdsTÿ¢ ž5Ÿu+ÜBŸ(€¤B)Ã#C $ Œ+C $ +ÜBžv(€¤B) ÌP P`¤@ °@žƒô°î6æÿà 4C  $C ƒ¹ "¤E£G ÀD…Jž4½‡‡@ƒ¬)& "£<ƒ:ç…Jž4½‡‡3ƒŸÃ C Aƒ.£,ÀA…@ ž4½‡ E‡%ƒ‘I! Bƒ Ã@ ž“IÇP P`¤@ °@ž…RcSÿ5 ž(žÏ+Ãw 4C  $C ƒn "¤E£µ ÀD…Jž4½‡‡®ƒa)& "£ªƒ¨Ã\…Jž4½‡‡¡ƒTÃUC Aƒœ£šÀA…@ ž4½‡ E‡“ƒFI! BƒŽÀA@ ž”IÇ‹P P`¤@ °@ž†rdsTÿÑ ž6žƒ+ÜBŸÌÃ)ƒ&)@ "C "(¤B)C $+ÜBž{£½,žŠ@‡Ç)§¶¢¶¤A£µ¤BžŸ£³,žÀ£±,žƒ¯Ã®Y‡Ç)§§¢¨¤A£¢¤BžŒ£¤,ž­@‡¡Ç¡)§¢Ÿ¤A£•¤B  6ÞP P`¤@ €„B€‚„A‚°@žô°îñVåäåãbW`åòXRSæCOÿŸø5ìÐc P`à@# ùvÿ‚`Pž}ðïü1UªEe AUTO I/O TEST C @¢¡0( 0( o) Rp&ÿ˜P )§•§•§•  6èP P`¤@ ‚Œ„B‚`„A‚‚°@žˆCO1PöiVWXïÿÿP P`¤@ ‚‡„Bƒ†„A‚l°@ž„ø5åÕåãBÿ{) !‚½6Á ý ÿ„J¤F) ! b6Á ý ÿ„K¤E£¨§¨9§§ƒ¥Ã¥)Ž "C ")! ")$C "Ùƒ—¢ ¤D¢ G¤CX¢ ¤H€€‡Œ€‡‹€‚‡Š€ƒ‡‰žŠ`RSïü™efgh¢xN B¤I€€‡¢€‡¡€‚‡ €ƒ‡ŸƒjÃjXN£™ + €¤L £“ B+ €¤M §‡ƒV£†,ž)žŒžŠPYijkla)  $€C I„€€E„€K„‚€D H„€€F„€J„‚Ã4 £c,ž‚) ž) C $£É çÈÀMàL…@ žŠ` ž4¸‡ã»ÃYC !ž…‡ã´ÃC !£¯Ã?…@ ž4º‡„AãŸ,ž‚)ž) C $ØYC !ÕC !€A£$ žœ) ž—)§ŽP P`¤@ °@ž‰bRSñ,`sŸTÿÚ ŸÙž‚)žh HƒÕ„€ƒÔ„ƒÓ„‚ƒÒ„ƒ IƒÐ„€ƒÏ„ƒÎ„‚ƒÍ„ƒƒ_Ã_)@ "C "£Å,žŠ@‡TÇT)§¾¢¾¤A£½¤BžŸ£J,žÅ£¸,žƒ¶ÃµY‡AÇA)§®¢¯¤A£ª¤BžŒ£«,ž²@‡4Ç4)§¤¢¤¤A£¤B  6ãP P`¤@ €„B€‚„A‚”°@ž•ô°ðj efghijklVåäåãW`åòXæCOÿŸø5ð]c P`à@# ùzÿ‚`Pž}ñ¨ñž/ AUTO ECHO TEST C @¢¡0( 0( o) Rp&ÿ˜P )§•§•§•  6èP P`¤@ ‚Œ„B‚`„A‚‚°@žˆCO1PöiVWXñžÿP P`¤@ ‚‡„Bƒ†„A‚l°@ž„ø5åÕåãgÿ{)ÿ¤CƒÁ£Á,ž‚)(ž), $‡º‡¹ƒ·Ã·)Ž "C ")% ")$C "ƒªÃª C "è@C ! 6AT»8,ž§ÃœC A A ‡—7§—ƒ’)4 ")% " ‡P P`¤@ °@žŠ`YRSTsUqÿ– žJƒtÃt  C ž“ÃnC ! ‡kP P`¤@ °@žƒô°jÿ| ž0ƒZÃZ)@ "C "£Ü,ž•@‡OÇO)§Õ¢Õ¤A£Ô¤BƒE£E,ž‚)ž) $)U¤Cžµ£Ç,žÏ£Å,ž˜ƒ3Ã2Y‡1Ç1)§»¢»¤A£¶¤Bƒ'£',ž‚)ˆž)Œ $)ݤCž—£¬,ž±@‡Ç)§¥¢¥¤A£ž¤Bƒ£,ž‚)Hž)L $)å¤C  6ÙP P`¤@ €„B€‚„A‚Š°@ž‹VåäåãbWåòXæ COÿ…Ÿ…c P`à@# ø5ñôù~ÿ‚`Pž}ô°òÈòÐòçòþóó,óCóZóq ** E ** UART STATUS ERROR -- TXRDY ** E ** UART STATUS ERROR -- RCVRDY ** E ** UART STATUS ERROR -- TXE ** E ** UART STATUS ERROR -- PARITY ERR ** E ** UART STATUS ERROR -- OVERRUN ERR ** E ** UART STATUS ERROR -- FRAMING ERR ** E ** UART STATUS ERROR -- BD ** E ** UART STATUS ERROR -- DSR . ** E ** BOARD INTERRUPT DISABLE FAILURE, ** E ** UIS INTERRUPT DISABLE FAILUR E* ** E ** INTERRUPT VECTOR INCORRECT ( ** E ** EXPECTED INTERRUPT WAS NOT REQUESTED 2 ** E ** RECEIVE DATA BAD ** E ** SPECIAL CHARACTER RAM BAD - CAN'T WRITE '1' : ** E ** SPECIAL CHARACTER RAM BAD - CAN'T WRITE '0' : ** E ** AUTO ECHO FAILURE ** E ** INCORRECT DEVICR ADDR. RECEIVED ON 'RAL' 6 ** E ** UNEXPECTED INTERRUPT " ** E ** MISSING SPECIAL CHAR. INTERRUPT, ** E ** SPECIAL CHAR. DETECT FAILED(TRANSMITTER ERRORS:RECEIVER ERRORS: C @¢¨0( 0( o) Rp&ÿŸP )!,/ž„À€@ÿ6A4ºÜ€À€@üÄ€À @6à@Ï6ÐP P`¤@ „A‚„°@ž„1PöiOCOÿÎÀ @ß6Ë)§ÆÃÉMžÝž†£Æ¤B¢Å¤AŸ¾Ÿ¾Mž†žŠ£¿¤B¢¾¤AŸµ£¼¤B¢»¤AŸ°Mž¨žŠ£¶¤B¢µ¤AŸ¨£³¤B¢²¤AŸ£M žyž…£­¤B¢¬¤AžþMž†žŠ£§¤B¢¦¤Ažö£¤¤B¢£¤AžñMžq£ž¤B¢¤Ažé£›¤B¢š¤Ažäpõõ®ø©TóÊó¶óôóåóäóËô0ôô@ô1ô\ôAô…ôoônô]ôšô†ôóõ(Mž‹ž…££¤B¢¢¤AžÂ£ ¤B¢Ÿ¤Až½£1C¢œ¤Až‚¢š¤A£™¤B  6ØP P`¤@ €„B€‚„A‚‚°@žŠCOóŸó‰óµó qô¥ô›ô¯(ÿ¦£§¤Bƒ¦)§0)6I +,žžy6çÀÇ$‡• @ ¢•  €¤A @P P`¤@ €„B€‚„A‚Q°@ž†ø5PóˆUòÈ%ÿyƒyÃLž‡+ ,žXžP)§—€ ¯6Á € Ÿ6Ý€ 6ÒP P`¤@ ‚‡„Bƒ†„A‚(°@ž„pø'ø4ÿR  ¤ c P` à@# c P` à@# õ×C @¢˜0( 0( o) Rp&ÿP „BP P`¤@ :„A€‚°@žƒ1Pöi ÿŠ€AP P`¤@ €°@ž‚ø©ÿr„CP P`¤@ €ƒ„A€‚°@ž‚øxÿm C.r¤CP P`¤@ €ƒ„A€‚°@žÿ]c P` à@# ö(C @¢—0( 0( o) Rp&ÿŽP @NqP P`¤@ €°@žƒ1Pöi ÿŠ žž‚C®c P` à@# ø©öQ( FATAL PROGRAM ERROR - STACK OVERFLOW - ABORT X*ð XP P`¤@ ‚†„B 0„A‚ƒ°@žƒöQCOÿ‚ Ÿø5àö_‡W# ö…C @¢–0( 0( o) Rp&ÿP P P`¤@ ‚‚°@ž„CI1Pöi&ÿ¤I žžŽy /ž‚Ižž Yž‚IžŠ Nž‚Iž… ž‚IžP P`¤@ ‚[„A °@žƒø© ÿ†ÄAc P`€Aà@# ö(öÑC @¢˜0( 0( o) Rp&ÿP € î„ ï6Âf žf/c P`à@# 1PöiöîG SELECT BOARD-UNDER-TEST ("BUT") FROM THE ABOVE LIST: (RESPOND WITH THE BOARD ASSEMBLY NUMBER.) >>>541j - SPECIFY # OF "BUT"S (ENTER RETURN TO SIGNIFY 1, OR ENTER ACTUAL #) >>>N BOARD DASH NUMBER >>>  *** END OF TEST ***  NON-STANDARD DIAGNOSTIC AIDS (Y N,OR ) ?0 - HALT ON ERROR (Y N) ? - LOOP ON ERROR (Y N) ? - RING BELL ON ERROR (Y N) ? - PRINT EXTENDED DIAGNOSTIC MESSAGES (Y N) ?0 - RESTART TEST FOLLOWING COMPLETION (Y N) ?. TYPE A CARRIAGE RETURN TO START TEST >>>, BOARD-UNDER-TEST ("BUT") NO. NOW UNDER TEST *********************************************** B *** ENTER TECH TEST *** ùˆú úø5!C @¢0( 0( o) Rp&ÿ”P „CÀAUjBr„DP P`¤@ €„„A€ƒ°@žƒ1PöiþÐ žž•UTB„DP P`¤@ €„„A€ƒ°@žƒø© þ»ÜB žUÿ„Ec P`€Eà@# øx0C @¢Z0( 0( o) Rp&ÿQP ² 8ªÀ€2Nr 8ª—ô€ÄAc P`€Aà@# 0123456789ABCDEFø˜ø©NC @¢)0( 0( o) Rp&ÿ P žžƒºž£ 01ÐP P`¤@ ‚…„A °@ž„CIþ§`â›%àÀ'h+ )¤0q„Bc P`€Bà@# „CP P`¤@ €„A€ƒ°@žƒþ×c P` à@# ùIøø0C @¢¬0( 0( o) Rp&ÿ£P )Aù@O6½‚ùÂœBùù?6½AøXÄB‚”ùMž•1-*ÿP P`¤@ €‚„A °@ž†1Pöi þ›žYP P`¤@ €‚„A °@žþ%ÅÁ'-P+M žCc P`à@# ùIC @¢[0( 0( o) Rp&ÿRP €AøAù@O6=Aù@O6½ÂHBùc P`à@# mEEEBE5E3--E2E1ào) Rp&ÿQP ² 8ªÀ€2Nr 8ª—ô€ÄAc P`€Aà@# 0123456789ABCDEFø˜ø©NC @¢)0( 0( o) Rp&ÿ P žžƒºž£ 01ÐP P`¤@ ‚…„A °@ž„CI þ§`â›%àÀ'h+ )¤0q„Bc P`€Bà@# „CP P`¤@ €„A€ƒ°@žƒþ×c P` à@# ùIøø0C @¢¬0( 0( o) Rp&ÿ£P )Aù@O6½‚ùÂœBùù?6½AøXÄB‚”ùMž•1-*ÿP P`¤@ €‚„A °@ž†1Pöi þ›žYP P`¤@ €‚„A °@žþ%ÅÁ'-P+M žCc JHFT:IO: HFT:IO O0SEGMENTBLANK ROM OMESSAGE JUMPTABLBRDENTR o0KERR LVERIFY VERIFY KPRTHEX  LTSTRT2 TSTRT2 KLTSTRT TSTRT RTCSERV KSYSERR FLUSH O:IO KO:MSG TSTECHO TSTAUT KTSTSPEC TSTINT TSTIO im MACRO (F100) ii #54121 - MULTI - CHNL RS232 INTERFACE (D1) #54125 - MULTI - CHNL RS422 INTERFACE  (D0)iÿÿdÛÿÿÿÿdÛÿÿiigŸ€dëÿÿii   00 @@þ€/¶½# þ€/¶º#  þ€/¶·# þ€/¶´# þ€/¶±#  þ€/¶®# þ€/¶«# þ€/¶¨#  þ€/# þ€/# þ€/#  þ€/ # þ€/# þ€/0#  þ€/# þ€/@#   0@ BAUD RATE [960 0] ? ** W ** TWO  CHANNEL BOARD "u MULTI - CHNL RS232 SERI AL INTERFACE HARDWARE TE ST PROGR(A1) - FOLLOW T EST PROCEDURE # 58-54121 -00 d MULTI - CHNL RS42 2 SERIAL INTERFACE HARDW ARE TEST PROGR(A1) -FOL LOW TEST PROCEDURE # 58-54125-00bÿ€g C @¢Ã0( 0( o) Rp& ÿºP ž…„ þm`Pž}C @° @Jÿή⮀€„@+kT»c Iǧ ÄA€/Å)€ñÄ€+½ÂRǞžǞ À @¿6AžÓ @€ žP P` ¤@ ‚„B‚=„A‚‚°@žŽCO1Pt X€’t“¨ ÿŽž“P P`¤@ ‚‡„Bƒ†„A‚e°@ž…t u§ ÿzP P`¤@ ‚†„Bƒ…„A‚R°@žƒtt ÿiP P`¤@ ‚„„A °@ ž‚CIÿŸ A1C€ ý„ +€  #AŸ•¤A€ ü„ € 6òP  P`¤@ ‚ˆ„Bƒ‡„A‚!°@ž…t Ött ÿ6P P`¤@ €„A‚°@ žÿP P`¤@ ‚‡„Bƒ†„A‚°@ž„ttt ÿ*ÿ.1 "‡œ)¤BIÈAC  f 𻔞…€BAžwf/ž”€BA žr ‡‰P P`¤@ °@ž„` Tÿ³„B¬ƒx) $)   $)¢ " ")' " "  !8ÿ,ÿžž¡ !8ÿ,ÿžž›) §€ 6ØP P`¤@ ‚‰„Bƒˆ„A‚ƒ°@ž‡bCOtct ÿ¦ž‚)§u(§£)ƒ; $  $ $ $+ß—žu€/AŸ” € 6AžÇP P`¤@ ‚Š„Bƒ‰„A‚U°@ž‡t ePÐXb ÿxÿÔ@ úÓžž¦úОž¤ úÍžž¢úÊžž úÇžžž úÄžžœúÁžžšú¾žž˜ )@*žžƒ žŠÿ¬ ž@ž|  ž (ž‹ Pž‰ ž‡‚©ž…‚¨žƒ‚§ž ‚¦)€Ã—KC „€‡ ÇI Ç @ Gt@AǘP P`¤@ °@ž“€à H$–P@€Ñ rtsÿŠ¢Š§ŠP P`¤@ °@ž„t aÿˆP P`¤@ °@ž‚t ÿˆP P`¤@ °@ž‚t ÿˆP P`¤@ °@ž‚t ÿ’ƒ’) $Ÿ)€Ã5KC €€žÜ/žÜ/c P`à@# t `b )P P`¤@ ‚‚°@ž‚CI ÿ“y„C ÐÊ žŠ ù ž„ žƒ€C# .1 žat ÿÿ@ž‡t ePÐXb ÿxÿÔ@ úÓžž¦úОž¤ úÍžž¢úÊžž úÇžžž úÄžžœúÁžžšú¾žž˜ )@*žžƒ žŠÿ¬ ž@ž|  ž (ž‹ Pž‰ ž‡‚©ž…‚¨žƒ‚§ž ‚¦)€Ã—KC „€‡ ÇI Ç @ Gt@AǘP P`¤@ °@ž“€à H$–P@€Ñ rtsÿŠ¢Š§ŠP P`¤@ °@ž„tJTSTIO: LMSG2 MSG5 JMSG4 MSG3 MSG2 JTSTIO O0SEGMENTBLANK TESTENTROROM o ÈKERR FLUSH SYSERR KO:MSG im MACRO (F100) igÿ‚`Pž}d¶ÿÿii EXTERNAL TEST CABLE IS MISSING CONNECT THE  TEST CABLE AND RESTART THE TEST .g CH1 TRANSMIT; CH2 RECEIVE gg CH2 TRANSMIT; CH1 RECEIVE g CH3 TRANSMIT; CH4 RECEIVE g CH4 TRANSMIT; CH3 RECE IVE PROGRAMMED I/O TES T ŽNÞîÎ^ž~¾þ  DATA TRANSFER TEST , BREAK DETECT TEST, OVERRUN ERROR TEST , PARITY ERROR TEST, FRAMING ERROR TEST, g C @¢¡0( 0( o) Rp& ÿ˜P )§•§•§•  6ÖP  P`¤@ ‚Œ„B‚„A‚‚°@žˆCO1PtVWXb ÿ¢)§¡ƒ¡ $)  $  ž‡)§–ƒ–) $ž·  6ôP P`¤@ ‚‰„Bƒˆ„A‚W°@ž‡tY` ÿxP P`¤@ ‚†„Bƒ…„A‚B°@žƒ( ÿgP P`¤@ ‚„„A °@ ž‚CIÿ˜)§—ƒX‡’‡‘   6ÕP P`¤@ ‚Š„Bƒ‰„A‚°@ž‡RStc)7 ÿ;ƒwÃw)B "C "£4,ž… )% ")%ž„)' ")'C "  !8,žš ‡Ž7§ ‡Œ‚ŒÿŒ P P`¤@ °@ž‡TUqy« ÿ˜ žžƒCC !8,žŸ  ‡n7§m ‡l‚lÿlP P`¤@ °@ž„t›¢ ÿ{ žž‡)@ƒ$ "C "ž' ƒ)ÿ "Ö !8,ž—Tº  ‡D7§C ‡B‚BÿBP P`¤@ °@žƒrÿR žXƒ˜Ã–C  !8,ž˜º ‡&7§% ‡$‚$ ÿ$P P`¤@ °@ž„Ss ÿ3 ž9ÃxC !,ž ‡ P P`¤@ °@ž‚ÿ ž% ƒ• !8,ž› ‡7§Ž ‡ ‚ÿP P`¤@ °@žˆRTUqy« ÿ— žC !8,ž– ‡o 7§n ‡m‚mÿmP P`¤@ °@žƒt ÿ| Ÿ¶ƒYÃ')@ "C " ¢¯ƒ¯  €ƒN "C "£¨,ž… )' ")'ž„)% ")%C "£š ,ž» !8¿,žš ‡37§2  ‡1‚1ÿ1P P`¤@ °@ž‡›n cYÿ< ž@ƒC !8¿ ,žÒ ‡7§ ‡‚ÿP P`¤@ °@ž‚Ê ÿ! ž%ž¼ƒ• !8¿,…ž›  ‡7…§Ž ‡‚ÿP P`¤@ °@žˆRTUqy« ÿ˜ žƒtC !8¿,…ž•  ‡n7…§m ‡l‚lÿlP P`¤@ °@ž‚t ÿ} ŸŸƒY(þ¤A)ª¤B "Ø  !8,ž™Tº ‡K78¿§I  ‡H‚HÿHP P`¤@ °@ž„2 rÿW Ÿy؃–C !8, ž˜º ‡+7§* ‡)‚)ÿ)P  P`¤@ °@ž„sSÿ8  ŸZC ! ¸Bžƒž ‡  P P`¤@ °@žÿ! ŸC C !8,žš ‡Ž7§ ‡Œ‚ ÿ‹P P`¤@ °@ž‡TUq«y ÿ Ÿ$ƒ§)ÿÜAž)ª " £;4¿)ÿ "£64¿)U "ƒ1C  !8,ž˜º ‡\7§[ ‡Z‚Š ÿYP P`¤@ °@ž„R‘ ÿ‹ Ÿ‹ƒ‰ ‡‡¢ˆ  €,ž†Ÿ‚tc2n ƒj)@ "C ")Ž "C " £©,ž…)'C ")/ž„)C ")- ƒŸ¿ƒQ "ƒ™C ! o6A»8o ,gž™ ‡7g§ ‡‚ŒÿP  P`¤@ °@ž†Ysr… ÿ? žBƒ,(þ§;)@ "C  ")^ ")~C "£h,ž‡)'  ")'ž†)% ")C ")ª  "£V4¿)U "ƒQC !8, ž›º ‡Ž7§ ‡Œ‚ÿ‹P  P`¤@ °@ž‡TUq« ÿÊ ž9ßÈžž‹ƒÆ)@ " C ")~ ")^ž7ƒ»)@ "C  ")Ž ")‚C "£,ž…)'C  ")'ž„)C ")% ") " ƒC ! 6A»C !C !8,% ž™ ‡<7%§; ‡:‚ŒþäP P`¤@ °@ž†tcR© ÿy ž=ƒx)§u)@ "C  "£¼,žŠ@‡lǸ)§µ¢¶¤A£µ ¤BžŸ£³,žÔ£±,žƒ¯Ã®Y Ǧ‡X)§§¢¨¤A£¢¤BžŒ£¤,žÁ @‡Lǘ)§¢¤A£•¤B  6Û P P`¤@ €„B€‚„A‚‚°@žCOVS87bW`FXT ÿ”Ÿ”„Cƒ“„D€ 6ÒP  P`¤@ €ƒ„B€„„A‚`°@ž„tIµÿ{# c P`à@# ÿÿ‡Œ‚ÿ‹P  P`¤@ °@ž‡TUq« ÿÊ ž9ßÈžž‹ƒÆ)@ " C ")~ ")^ž7ƒ»)@ "C  ")Ž ")‚C "£,ž…)'C  ")'ž„)C ")% ") " ƒC ! 6A»C !C !8,% ž™ ‡<7%§; ‡:‚ŒþäP P`¤@ °@ž†tcR© ÿy ž=ƒx)§u)@ "C  "£¼,žŠ@‡lǸ)§µ¢¶¤A£µ ¤BžŸ£³,žÔ£±,žƒ¯Ã®Y Ǧ‡X)§§¢¨¤A£¢¤BžŒ£¤,žÁ @‡Lǘ)§¢¤A£•¤B  6Û P P`¤@ €„B€‚„A‚‚°@žCOVS87bW`FXT ÿ”Ÿ”„Cƒ“„D€ 6ÒP  P`¤@ €ƒ„B€„„A‚`°@JTSTINT: TSTINT O0SEGMENTBLANK TESTENTROROM o  KSYSERR ERR O:MSG KLMSG2 MSG5 MSG4 KMSG3 MSG2 im MACRO (F100) igÿ‚`Pž}d ÿÿii INTERRUPT TEST g C @¢¡0( 0( o)  Rp& ÿ˜P )§•§•§•€ 6èP  P`¤@ ‚Œ„B‚`„A‚‚°@žˆCO1PtVWX ÿP P`¤@ ‚‡„Bƒ†„A‚l°@ž„ttt ÿ{£ȧÈ9§ÇƒÅÃÅ¢É $)Ž ƒ¿ "C ")! ")$C "õ )4C ")$C "×Å £¬,ž‚ )ž) ƒ£ $ƒ¡)  "£ 4¿ )  " £›…ÖC A@6A4º ‡ÃC !V)§ŽP P`¤@ °@ž‰`RSYrsT ÿ¹ ž@Ãu)4C ")$C "£o, ž‚) ž) ƒf $ÕÇ ƒa)!  ")  "£]4¿)  " £X …ÃSC A@6A4º‡ÃLC !O )§KP P`¤@ °@ž‚t ÿ} žDÃ9)4C ")$C "Ç × £0,ž‚)ž) ƒ' $ƒ% )! ") "£!4¿)  "  £…ÃC A@6A4º‡ÃC ! N)§P P`¤@ °@ž ÿB žE£Ð,ž‚) ž) ƒÅ $ ƒÃÃÃX£Ã  €§½¤CN£½ B+ €ƒ¶ §´ƒ±)! "î)4 C ")$C ")ÿ "£© ÀC… Jž4½‡Ã›)&C "£žÃ˜…J ž4½‡Ã‘C ALÿžš„B)§ŒP P`¤@ °@ž‹`RScT Yarsÿ“ ž&€B£s* ž£I@ ž’)§mP P`¤@ °@ž„t• ÿ{ žžŽ)§[P P` ¤@ °@žÿl Ÿ—ÃLC !8? ,ž™ÃFC  ‡D7§‹ ‡ŠP P`¤@ °@ž… UqÿM Ÿxƒ,)@ "C  "£»,žŠ@‡"Ç")§´¢´¤A£³ ¤BžŸ£±,ž»£¯,žƒÃY ‡Ç)§¥¢¥¤A£ ¤BžŒ£¡,ž¨ @‡Ç)§š¢š¤A£“¤B  6Ù P P`¤@ €„B€‚„A‚Š°@ž‹VttbWtXtCOÿŸtQc P`à@# ÿÿ)! "î)4 C ")$C ")ÿ "£© ÀC… Jž4½‡Ã›)&C "£žÃ˜…J ž4½‡Ã‘C ALÿžš„B)§ŒP P`¤@ °@ž‹`RScTJTSTSPEC:TSTSPEC O0SEGMENTBLANK TESTENTROROM o KSYSERR BLINKER ERR KO:MSG LMSG2 MSG5 KMSG4 MSG3 MSG2 im MACRO (F100) igÿ‚`Pž}dÿÿii SPECIAL CHARACTER DETECT TEST g C @¢¡0( 0( o) Rp& ÿ˜P )§•§•§•€ 6èP  P`¤@ ‚Œ„B‚`„A‚‚°@žˆCO1PtVWX ÿP P`¤@ ‚‡„Bƒ†„A‚l°@ž„ttt ÿ{£¹§µ9§´ƒ²Ã²)Ž "C  ")! ")$C "X£¦   € ¤DN£  B+ €'‡™£š B + € ¤A×Ç (¤B)  ÏP P`¤@ °@ž†RSc `aÿÃÃy 4C  $C ƒq  "¤E£¸ ÀD…Jž4½‡‡± ƒd)& "£­ƒ«Ã`…Jž4½‡ ‡¤ƒWÃWC AƒŸ£ÀA…@ ž4½ ‡ E‡–ƒII! Bƒ‘ÃF@ ž—I AIÇŒP P`¤@ °@ž‡t rdsTÿŸ ž!žƒ+ÜB ž(¤B¢—Ã%C $+ÜBžz „C )„B ÌP P`¤@ °@žƒt ÿUà 4C  $C ƒ  "¤E£J ÀD…Jž4½‡‡Cƒ¶ )& "£?ƒ=ñ…Jž4½‡‡6 ƒ©ÃªC Aƒ1£/ÀA…@ ž4½‡  E‡(ƒ›I! Bƒ#ÀA@ ž¡€C  „CÜBžŸ‚@¸Cž‚ž•IÇP  P`¤@ °@ž‡RcSV ÿ) žž‹IžjÜBžž‚ +ž€C žž`Ãk 4C  $C  ÅÕ )ƒ^ "£² ÀD… Jž4½‡‡«ƒR)& "£§ƒ¥ÃM …Jž4½‡‡žƒEÃFC Aƒ™£— ÀA…@ ž4½‡‡‘ƒ8I! BƒŒ R)§‹P P`¤@ °@ž…r dsTÿ¡ ž7×Ç (€¤B ¢šÃC $+ C $ Œ+ÜBžv (€¤B) ÌP P`¤@ °@žƒt ÿÁÃÁ 4C  $C ƒ»  "¤E£I ÀD…Jž4½‡‡Bƒ® )& "£>ƒ<é…Jž4½‡‡5 ƒ¡ÃŸC Aƒ0£.ÀA…@ ž4½‡  E‡'ƒ“I! Bƒ"ÀA@ ž”IÇP P`¤@ °@ž†t SRcÿ4 ž'ŸÂ+Ãu 4 C  $C ƒo "¤E£¶ ÀD …Jž4½‡‡¯ƒb)& "£«ƒ© Ã]…Jž4½‡‡¢ƒUÃSC Aƒ £›ÀA…@ ž4½‡ E‡”ƒGI!  BƒÃC@ ž•IÇŒP P`¤@ °@ž‡ rdsTÿ¢ ž5Ÿu+ÜB Ÿ(€¤B)Ã#C $ Œ+C $  +ÜBžv(€¤B) ÌP P`¤@ °@žƒt¹ ÿà 4C  $C ƒ¹ " ¤E£G ÀD…Jž4½‡‡@ƒ¬)&  "£<ƒ:ç…Jž4½‡‡3ƒŸ àC Aƒ.£,ÀA…@ ž4½‡ E ‡%ƒ‘I! Bƒ Ã@ ž“IÇP P`¤@ °@ž…RcS ÿ5 ž(žÏ+Ãw 4C  $C  ƒn "¤E£µ ÀD…Jž4½‡ ‡®ƒa)& "£ªƒ¨Ã\…Jž4½ ‡‡¡ƒTÃUC Aƒœ£šÀA…@ ž 4½‡ E‡“ƒFI! BƒŽÀA@ ž” IÇ‹P P`¤@ °@ž†rd sTÿÑ ž6žƒ+ÜBŸÌÃ)  ƒ&)@ "C "(¤B)C $+ ÜBž{£½,žŠ@‡Ç)§¶¢¶¤A £µ¤BžŸ£³,žÀ£±,žƒ¯Ã® Y‡Ç)§§¢¨¤A£¢¤BžŒ£¤, ž­@‡¡Ç¡)§¢Ÿ¤A£•¤B   6ÞP P`¤@ €„B€‚„A‚°@žttVttbW`tXRStCOÿŸtSc P`à@# ÿÿŸ àC Aƒ.£,ÀA…@ ž4½‡ E ‡%ƒ‘I! Bƒ Ã@ ž“IÇP P`¤@ °@ž…RcS ÿ5 ž(žÏ+Ãw 4C  $C  ƒn "¤E£µ ÀD…Jž4½‡ ‡®ƒa)& "£ªƒ¨Ã\…Jž4½ ‡‡¡ƒTÃUC Aƒœ£šÀA…@ ž 4½‡ E‡“ƒFI! BƒŽÀA@ ž” IÇ‹P P`¤@ °@ž†rd sTÿÑ ž6žƒ+ÜBŸÌÃ) JTSTAUT: TSTAUT O0SEGMENTBLANK TESTENTROROM o ¢KSYSERR ERR O:MSG KLMSG2 MSG5 MSG4 KMSG3 MSG2 im MACRO (F100) igÿ‚`Pž}d ÿÿi     i UªEe AUTO I/O TEST g C @¢¡0( 0( o) Rp& ÿ˜P )§•§•§•  6èP  P`¤@ ‚Œ„B‚`„A‚‚°@žˆCO1PtVWX ÿP P`¤@ ‚‡„Bƒ†„A‚l°@ž„ttt ÿ{) !‚½6Á ý ÿ„J¤F) ! b6Á ý ÿ„K¤E£¨§¨9 §§ƒ¥Ã¥)Ž "C ")! ")$ C "Ùƒ—¢ ¤D¢ G¤CX ¢ ¤H€€‡Œ€‡‹€‚‡Š€ƒ‡‰žŠ`RS efgh¢xN B¤I€€‡¢€ ‡¡€‚‡ €ƒ‡ŸƒjÃjXN£™ + €¤L £“ B+ €¤M §‡ ƒV£†,ž)žŒžŠPYijk la)  $€C I„€€E „€K„‚€D H„€€F„€J„‚Ã4  £c,ž‚) ž) C $£É çÈÀM àL…@ žŠ` ž4¸‡ã» ÃYC !ž…‡ã´ÃC !£¯Ã? …@ ž4º‡„AãŸ, ž‚)ž) C $ØYC !ÕC  !€A£$ žœ) ž—)§ŽP  P`¤@ °@ž‰bRS0 sŸTÿÚ ŸÙž‚)žh H ƒÕ„€ƒÔ„ƒÓ„‚ƒÒ„ƒ IƒÐ„€ƒÏ „ƒÎ„‚ƒÍ„ƒƒ_Ã_)@ "C " £Å,žŠ@‡TÇT)§¾¢¾¤A£½¤B žŸ£J,žÅ£¸,žƒ¶ÃµY‡A ÇA)§®¢¯¤A£ª¤BžŒ£«,ž²@ ‡4Ç4)§¤¢¤¤A£¤B  6ãP P`¤@ €„B€‚„A‚”°@ž•tn efghijklVttW`tXtCOÿŸtac P`à@# ÿÿ „€K„‚€D H„€€F„€J„‚Ã4  £c,ž‚) ž) C $£É çÈÀM àL…@ žŠ` ž4¸‡ã» ÃYC !ž…‡ã´ÃC !£¯Ã? …@ ž4º‡„AãŸ, ž‚)ž) C $ØYC !ÕC  !€A£$ žœ) ž—)§ŽP  P`¤@ °@ž‰bRS0 sŸTÿÚ ŸÙž‚)žh H ƒÕ„€ƒÔ„ƒÓ„‚ƒÒ„ƒ IƒÐ„€ƒÏ „ƒÎ„‚ƒÍ„ƒƒ_Ã_)@ "C " £Å,žŠ@‡TÇT)§¾¢¾¤A£½¤BJTSTECHO:TSTECHO O0SEGMENTBLANK TESTENTROROM o *KSYSERR ERR O:MSG KLMSG2 MSG5 MSG4 KMSG3 MSG2 im MACRO (F100) igÿ‚`Pž}d ÿÿii AUTO ECHO TEST g C @¢¡0( 0( o) Rp& ÿ˜P )§•§•§•  6èP  P`¤@ ‚Œ„B‚`„A‚‚°@žˆCO1PtVWX ÿP P`¤@ ‚‡„Bƒ†„A‚l°@ž„ttt ÿ{)ÿ¤CƒÁ£Á,ž‚)(ž),  $‡º‡¹ƒ·Ã·)Ž "C ")%  ")$C "ƒªÃª C "è@C  ! 6AT»8,ž§ÃœC A  A ‡—7§—ƒ’)4 ")% " ‡P P`¤@ °@žŠ`Y RSTsUqÿ– žJƒt Ãt  C ž“ÃnC ! ‡kP P`¤@ °@žƒt ÿ| ž0ƒZÃZ)@ "C " £Ü,ž•@‡OÇO)§Õ¢Õ¤A£Ô¤B ƒE£E,ž‚)ž) $)U¤Cžµ £Ç,žÏ£Å,ž˜ƒ3Ã2Y‡1Ç1 )§»¢»¤A£¶¤Bƒ'£',ž‚)ˆž )Œ $)ݤCž—£¬,ž±@‡Ç )§¥¢¥¤A£ž¤Bƒ£,ž‚)Hž )L $)å¤C  6ÙP P` ¤@ €„B€‚„A‚Š°@ž‹VttbWtXt COÿ…Ÿ…c P`à@# tVÿÿ£Á,ž‚)(ž),  $‡º‡¹ƒ·Ã·)Ž "C ")%  ")$C "ƒªÃª C "è@C  ! 6AT»8,ž§ÃœC A  A ‡—7§—ƒ’)4 ")% "JERR: ERR O0SEGMENTBLANK TESTENTROROM o KLTECHTSTTECHTST O:IO KO:MSG SYSERR im MACRO (F100) igÿ‚`Pž}dèÿÿii6Md{’© ** E ** UART STATUS ERROR -- TXRDY   ** E ** UART STATUS E RROR -- RCVRDY  ** E ** UART STATUS ERR OR -- TXE ** E ** UART STATUS ERROR -- PARITY ERR ** E ** UART STATUS ERROR - - OVERRUN ERR ** E * * UART STATUS ERROR --  FRAMING ERR  ** E **  UART STATUS ERROR -- BD ** E ** U ART STATUS ERROR -- DSR  . ** E ** B OARD INTERRUPT DISABLE F AILURE, ** E ** UIS INTERRUPT DISABLE FAILU RE* ** E ** INTERRU PT VECTOR INCORRECT (   ** E ** EXPECTED INTE RRUPT WAS NOT REQUESTED  2 ** E ** RECEIVE  DATA BAD ** E **  SPECIAL CHARACTER RAM BA D - CAN'T WRITE '1' :  ** E ** SPECIAL CHAR ACTER RAM BAD - CAN'T WR ITE '0' : ** E ** A UTO ECHO FAILURE ** E ** INCORRECT DEVICR  ADDR. RECEIVED ON 'RAL'  6 ** E ** UNEXPECTE D INTERRUPT " ** E * * MISSING SPECIAL CHAR. INTERRUPT, ** E **  SPECIAL CHAR. DETECT FA ILED(TRANSMITTER ERROR S:RECEIVER ERRORS: g C @¢¨0( 0( o) Rp& ÿŸP )!,/ž„À€@ÿ6A4ºÜ€ À€@üÄ€À @6à@Ï6ÐP P`¤@ „A‚„°@ž„1Pt COÿÎÀ @ß6Ë)§ÆÃÉMžÝž† £Æ¤B¢Å¤AŸ¾Ÿ¾Mž†žŠ£¿¤B¢¾ ¤AŸµ£¼¤B¢»¤AŸ°Mž¨žŠ£¶¤B ¢µ¤AŸ¨£³¤B¢²¤AŸ£M žyž…£­ ¤B¢¬¤AžþMž†žŠ£§¤B¢¦¤Ažö £¤¤B¢£¤AžñMžq£ž¤B¢¤Ažé£›¤B¢š¤AžäpÇætT î,hKxi”y½§¦•Ò¾J- Mž‹ž…££¤B¢¢¤AžÂ£ ¤B¢Ÿ ¤Až½£1C¢œ¤Až‚¢š¤A£™¤B   6ØP P`¤@ €„B€‚„A‚‚°@žŠCO×ÁíØqÝÓç ÿ¦£§¤Bƒ¦)§0)6I + ,žžy6çÀÇ$‡• @ ¢•   €¤A @P P`¤@ €„B€‚„A‚Q°@ž†tPÀU ÿyƒyÃLž‡+ ,žXžP) §—€ ¯6Á € Ÿ6Ý€ 6ÒP P`¤@ ‚‡„Bƒ†„A‚(°@ž„ptt ÿR  ¤ c P` à@# c P` à@# ÿÿAŸ¨£³¤B¢²¤AŸ£M žyž…£­ ¤B¢¬¤AžþMž†žŠ£§¤B¢¦¤Ažö £¤¤B¢£¤AžñMžq£ TITL THE MONITOR FOR 2/4 S I/O 76-93717-20 (A100) ******************************************************************** ** THIS IS THE MONITOR FOR THE 54121 BOARD. ** IT IS DESIGNED TO BE LINKED WITH THE HFT EXECUTIVE ** AND LIBRARY MODULES TO CREATE A ROMMABLE DIAGNOSTIC ** PROGRAM ******************************************************************* ** ** ROM REL  NAM HFT:IO EXTR DEBUG4 EXTR TSTIO,TSTINT EXTR TSTSPEC,TSTAUT EXTR TSTECHO  EXTR O:MSG,O:IO EXTR FLUSH,SYSERR EXTR RTCSERV EXTR TSTRT,LTSTRT EXTR TSTRT2,LTSTRT2 EXTR TECHTST,LTECHTST EXTR PRTHEX EXTR VERIFY,LVERIFY EXTR ERR MESSAGE REL BYTE :0D,:0A,' #54121 - MULTI - CHNL RS232 INTERFACE ' BYTE ' (D1)' BYTE  :0D,:0A,' #54125 - MULTI - CHNL RS422 INTERFACE ' BYTE ' (D0)' JUMPTABL REL WORD 21 WORD  -1 WORD HFT:IO WORD 25 WORD -1 WORD HFT:IO *********************************************************** ** INITIALIZE TEST MONITOR ** ******************************************************************** ** ROM REL BRD:DEF HFT:IO CRNTBUT RES 1 TSTFLG RES 1 TERCHAR RES 1 ENDEF * * DATA FOR THE CHECK A PLACE THE INTERRUPT * TABLINT WORD :1 THE INTERRUPT DATA CH1 TX WORD :10 TH  E INTERRUPT EOB CH1 TX WORD :100 THE INTERRUPT DATA CH1 RX WORD :1000 THE INTERRUPT EOB CH1 RX WORD :2 THE INTERRUPT DATA CH2 TX WORD :20 THE INTERRUPT EOB CH2 TX  WORD :200 THE INTERRUPT DATA CH2 RX WORD :2000 THE INTERRUPT EOB CH2 RX WORD :3 THE INTERRUPT DATA CH3 TX WORD :30 THE INTERRUPT EOB CH3 TX WORD :300  THE INTERRUPT DATA CH3 RX WORD :3000 THE INTERRUPT EOB CH3 RX WORD :4 THE INTERRUPT DATA CH4 TX WORD :40 THE INTERRUPT EOB CH4 TX WORD :400 THE INTERRUPT DATA CH4 RX WORD :4000 THE INTERRUPT EOB CH4 RX * * IT IS SUBROTINS FOR INTERRUPTS * STRTINTR EQU $ DATCH1RX EQU $ JSK $+1 SIN 3 OR =:100,A RSK * EOBCH1RX EQU $ JSK $+1 SIN 3 OR =:1000,A RSK * DATCH2RX EQU $ JSK $+1 SIN 3  OR =:200,A RSK * EOBCH2RX EQU $ JSK $+1 SIN 3 OR =:2000,A  RSK * DATCH3RX EQU $ JSK $+1 SIN 3 OR =:300,A RSK * EOBCH3RX EQU $  JSK $+1 SIN 3 OR =:3000,A RSK * DATCH4RX EQU $ JSK $+1 SIN 3 OR =:400,A RSK * EOBCH4RX EQU $ JSK $+1 SIN 3 OR =:4000,A RSK * DATCH1TX EQU $ JSK $+1 SIN 3 OR =:1,A RSK * EOBCH1TX EQU $ JSK $+1 SIN 3 OR =:10,A RSK * DATCH2TX EQU $ JSK $+1  SIN 3 OR =:2,A RSK * EOBCH2TX EQU $ JSK $+1 SIN 3 OR  =:20,A RSK * DATCH3TX EQU $ JSK $+1 SIN 3 OR =:3,A RSK * EOBCH3TX EQU $ JSK $+1 SIN 3 OR =:30,A RSK * DATCH4TX EQU $ JSK  $+1 SIN 3 OR =:4,A RSK * EOBCH4TX EQU $ JSK $+1 SIN 3  OR =:40,A RSK LPOOL ENDINTR EQU $ * BAUD BYTE :D,:A,'BAUD RATE [9600] ?' BAUDL WORD $-BAUD*2 BORCH2 BYTE :0D,:0A,:0A,' ** W ** TWO CHANNEL BOARD ',:0A BORCH2L WORD $-BORCH2*2 ROM REL IOCNFG BYTE :0C,'MULTI - CHNL RS232 SERIAL INTERFACE HARDWARE TEST PROGRAM ' IOREV BYTE '(A1)' BYTE :0D,:0A,'- FOLLOW TEST PROCEDURE # 58-54121-00' LIOCNFG WORD $-IOCNFG*2 IOCNF BYTE :0C,'MULTI - CHNL RS422 SERIAL INTERFACE HARDWARE TEST PROGRAM' IORE BYTE  '(A1)' BYTE :0D,:0A,'-FOLLOW TEST PROCEDURE # 58-54125-00' LIOCNF WORD $-IOCNF*2 JSKNEXT JSK *$+1 HFT:IO ENTRY PUSH :40 COPY =STRTINTR,Q BEGIN OF INTERRUPT RUTINES COPY Q,X SAVE FOR FUTURE SUB =1,Q START WITH 0 SUB =ENDINTR,Q DO THE COUNTER COPY =VECTBASE,Y INTERRUPT BASE ADDR LOOPINT EQU $ COPY 0(X),A PICK THE DATA UP COPY A,0(Y) SAVE IT AD  D =1,X BUMP POINTERS ADD =1,Y IJNE Q,LOOPINT POP COPY =0,Q COPY Q,BAUDR COPY Q,CRNTBUT(Y) INITIALIZE CURRENT BUT-PTR COPY PASSCNT,A JNE A,MEMEND COPY =BAUDR,X COPY =-15,A CMEM EQU $ COPY Q,0(X) ADD =1,X IJNE A,CMEM MEMEND EQU $ COPY JSKNEXT,Q COPY Q,:92 COPY =RTCSERV,Q COPY Q,:93 SET UP THE RTC VECT COPY MODEREG,Q TBIT REPTFLAG,Q JT OV,PIC0011 IF A BURN IN SYSTEM, JMP AROUND MSG  JMP PIC0100 PIC0011 EQU $ COPY 0(Y),X COPY 1(X),A GET BRDTYPE FROM EXEC'S STACK FRAME CLSN A,=21 JMP RS232 CALL O:MSG,=CO,LIOCNF,=IOCNF JMP WAIT RS232 EQU $ CALL O:MSG,=CO,LIOCNFG,=IOCNFG WAIT EQU $ CALL O:MSG,=CO,LVERIFY,=VERIFY ************************************************************ ** ** WAIT FOR A CARRIAGE RETURN ** ************************************************************ CALL FLUSH,=:0D,=CI PIC0100 COPY CRNTBUT(Y),X FIND OUT WHO WAS LAST TESTED  JEQ X,PIC0101 IF 0 THEN THIS IS FIRST PASS COPY :20(X),A ELSE GET CURRENT STATUS REG. RBIT 15,A RESET THE CURRENT TEST FLAG COPY A,:20(X) PIC0101 ADD =1,X COPY MODEREG,A  AND =:F,A ISOLATE BUT COUNT SUB X,A COMPARE BUT COUNT WITH CURRENT BUT COUNT JGE  A,PIC0102 GO TEST NEXT BUT JMP PICEND ALL BUTS HAVE BEEN TESTED PIC0102 COPY X,CRNTBUT(Y) SAVE CURRENT BUT PTR COPY :20(X),A SBIT 15,A COPY A,:20(X) *********************************************************** ** ** COMPUTE DEVICE ADDRESS ** *********************************************************** COPY MODEREG,A TBIT MODEFLAG,A JF OV,PIC0103 NON INTERACTIVE CALL O:MSG,=CO,LTSTRT,=TSTRT  CALL PRTHEX,=CO,CRNTBUT CALL O:MSG,=CO,LTSTRT2,=TSTRT2 PIC0103 SUB =1,X START COUNTING WITH 0 NOT 1 SHIFT X,LO,4 MULTIPLY INDEX BY 4 COPY =:20,A BASE ADDR. ADD X,A  COMPUTE DEVICE ADDR. COPY A,BUTDA COPY =0,X COPY X,TSTFLG(Y) INITIALIZE THE TEST-TECH FLAG COPY =6,Q ADD CRNTBUT(Y),Q SAL:1 EQU $ XNX Q SAL 2,0 FILE 2 IS NULL OR A DATA FILE (NON EXECUTABLE) AND =:00F0,A GET THE ADDRES CSK A,BUTDA COMPARE THE ADDRESSES NOP JMP SAL:2 IF A> OR< THE ADDRESS COPY TSTFLG(Y),A IN TECH TEST MODE JEQ A,SAL:END JMP SAL:1 THE TECH LOOP SAL:END EQU $ SAL 2,:F  JMP BEGIN SAL:2 EQU $ COPY TSTFLG(Y),A JEQ A,SAL:ERR JMP SAL:1 SAL:ERR EQU  $ COPY =10,A COPY A,ER CALL ERR COPY A,TSTFLG(Y) JNE A,SAL:2 BEGIN EQU $ COPY BUTDA,A RESET THE BOARD COPY =0,X XNX A SELP X,3   COPY =:C,X XNX A SELP X,3 COPY =:A2,X XNX A OUT X,5  OUTPUT THE MODE XNX A OUT X,7 COPY =:27,X XNX A OUT X,5 XNX A OUT X,7 XNX A IN 5,X INPUT THE STAT REG CH 3 AND =:FF,X  CLSN X,=:FF JMP BOARD21 JMP BOARD4 INPUT THE STAT REG CH 4 BOARD21 EQU $  XNX A IN 7,X CHECK THE 4 CH AND =:FF,X CLSN X,=:FF JMP BOARD2  JMP BOARD4 BOARD2 EQU $ COPY =0,X COPY X,SW1 COPY MODEREG,A TBIT MODEFLAG,A JF OV,START CALL O:MSG,=CO,BORCH2L,=BORCH2 JMP START BOARD4 EQU $ COPY =1,X COPY X,SW1 START  EQU $ COPY =-256,X COPY X,STORE COUNTER FOR THE SPEC CHAR COPY =0,X DATA = SPEC CHAR COPY BUTDA,A OUTSPEC EQU $ XNX A SELP X,0 OUT 0 TO THE RAM CH1  XNX A SELP X,2 OUT 0 TO THE RAM CH2 XNX A SELP X,4 OUT 0 TO THE RAM CH3 XNX A SELP X,6 OUT 0 TO THE RAM CH4 ADD =1,X INCREMENT THE COUNTER IMS STORE JMP OUTSPEC COPY PASSCNT,A JEQ A,$+2 JMP AROUND COPY MODEREG,A TBIT MODEFLAG,A JT OV,CALL1 JMP B96 CALL1 CALL O:MSG,=CO,BAUDL,=BAUD JSK IHEX COPY X,Q CSK Q,=:1200 NOP JMP $+2 JMP B12 BAUD RATE 1200 CSK Q,=:4800 NOP JMP $+2 JMP B48 BAUD RATE 4800 CSK Q,=:2400 NOP JMP $+2 JMP B24 BAUD RATE 2400 CSK Q,=:9600 NOP JMP $+2 JMP B96 CSK Q,=:600 NOP JMP $+2 JMP B60 BAUD RATE 600 CSK Q,=:300 NOP JMP $+2 JMP B30 BAUD RATE 300 CSK Q,=:150 NOP  JMP $+2 JMP B15 BAUD RATE 150 CSK Q,=:110 NOP JMP $+2 JMP B11 BAUD RATE 110 COPY =0,X CSN X,Q JMP $+2 JMP BAK+1 CLSN =:D,A JMP B96 DEFALT 9600 BAK EQU $ JSK IHEX CLSN =:D,A JMP CALL1 JMP BAK B12 EQU $ COPY =160,A NUMBER OF LOOPS FOR 1200 BAUD RATE JMP WTABL B48 EQU $ COPY =40,A "-----" 4800 JMP WTABL B24 EQU $ COPY =80,A "----------" 2400 JMP WTABL B96 EQU $ COPY =20,A "----------" 9600 JMP WTABL B60 EQU $ COPY =320,A "----------" 600 JMP WTABL B30 EQU $ COPY =640,A "-----------" 300 JMP WTABL B15 EQU $ COPY =1280,A "----------"150 JMP WTABL B11 EQU $ COPY =1745,A "----------" 110 WTABL EQU $ COPY =BAUDR,X THE START ADDR COPY BAUDR,Q THE OFFSET (# BOARD) ADD =1,Q XNX Q COPY A,0(X) SORE IN THE TABLE SHORT1 EQU $ NEG A COPY A,SHORT STORE FOR SHORT LOOPS NEG A COPY Q,BAUDR PREPARE FOR A NEXT BOARD COPY =10,Q COPY Q,MUL COPY A,Q COPY =0,A MUL MUL,AQ COUNT NUMBER OF LONG LOOPS NEG Q COPY Q,LONG STORE THE NUMBER CALL TSTIO NEXT1 EQU $ COPY  =TABLINT,X COPY X,TABINT CALL TSTINT CALL TSTSPEC CALL TSTAUT CALL  TSTECHO COPY BUTDA,A COPY =0,X XNX A SELP X,3 JMP PIC0100 AROUND EQU $ COPY =BAUDR,X THE START ADDR COPY BAUDR,Q THE OFFSET (# BOARD) ADD =1,Q XNX Q COPY 0(X),A RESTORE DATA JMP SHORT1 PICEND EQU $   IMS PASSCNT JMP EXIT IMS PASSCNT EXIT EXIT LPOOL ****************************** * * IHEX - INPUT UP TO 4 HEX DIGITS * TO FORM A 16 BIT HEX NUMBER * FROM THE CRT OR TTY. * * CALLING SEQUENCE: * JSK IHEX * * EXIT UPON INPUT OF THE FIRST NON-HEX * ASCII CHARACTER, WHICH IS RETURNED IN * THE A-REG. WITH THE HEX VALUE IN *  THE X-REG. * * CALLS: CALLED BY: * IKB QUERIES * ***************************** * IHEX COPY =0,X SET INITIAL VALUE FOR 0 IHEX1 CALL O:IO,=CI GET CHARACTER SHIFT A,RO,8 COPY A,TERCHAR(Y) STORE POSSIBLE TERMINATING CHAR. SUB ='0',A SUBTRACT ASCII 0 JLT A,IHEX2 IF LESS THAN 0 EXIT CSK A,=10 IS CHARACTER 0-9? JMP IHEX3 YES, SET VALUE NOP NO,CONTINUE SUB =7,A SUBTRACT FOR ASCII A-F CSK A,=10 IS CHARACTER NON-HEX A-F? JMP IHEX2 YES, GO TO EXIT NOP NO, CONTINUE  CSK A,=16 IS CHARACTER HEX A-F? JMP IHEX3 YES, SET VALUE NOP NO,CONTINUE IHEX2 COPY TERCHAR(Y),A SET TERMINATING CHAR. IN A-REG. RSK EXIT IHEX3 SHIFT X,LO,4 SHIFT X FOR POSITION OF DIGIT OR A,X PUT DIGIT INTO PLACE JMP IHEX1 GET ANOTHER CHARACTER END HAR. SUB ='0',A SUBTRACT ASCII 0 JLT A,IHEX2 IF LESS THAN 0 EXIT CSK A,=10 IS CHARACTER 0-9? JMP IHEX3 YES, SET VALUE NOP TITL PROGRAMMED I/O TEST SUBROTINE 76-93717-21 (A100) NAM TSTIO NAM MSG2,MSG3,MSG4  NAM MSG5,LMSG2 EXTR O:MSG,O:IO EXTR SYSERR,FLUSH EXTR ERR EXTR DBUGX * * ER IS THE COUNTER FOR THE ERROR MSG. * ERRARG IS THE ARGUMENT FOR THE ERROR MSG. * BUTDA IS THE DEVICE ADDRESS. * DEFINE TSTIO MSGPTR RES 1 LMSG RES 1 MSGPTR1 RES 1 LMSG16 RES 1 ENDEF MSG1 BYTE :0D,:0A,'EXTERNAL TEST CABLE IS MISSING' LMSG1 WORD $-MSG1*2 MSG: BYTE :0D,:0A,'CONNECT THE TEST CABLE AND RESTART THE TEST' LMSG: WORD $-MSG:*2 MSG2 BYTE :0D,:0A,'CH1 TRANSMIT; CH2 RECEIVE' LMSG2 WORD $-MSG2*2 MSG3 BYTE :0D,:0A,'CH2 TRANSMIT; CH1 RECEIVE' MSG4 BYTE :0D,:0A,'CH3 TRANSMIT; CH4 RECEIVE' MSG5 BYTE :0D,:0A,'CH4 TRANSMIT; CH3 RECEIVE' MSG6 BYTE :0D,:0A,'PROGRAMMED I/O TEST ' LMSG6 WORD $-MSG6*2 TABLE WORD :8E,:4E,:DE,:EE,:CE,:5E,:9E,:7E,:BE,:FE,:0 TRANSM BYTE :0D,:0A,:0A BYTE 'DATA TRANSFER TEST, ' SEND BYTE :0D,:0A,:0A BYTE 'BREAK DETECT TEST, ' OVER BYTE :0D,:0A,:0A BYTE 'OVERRUN ERROR TEST, ' PAR BYTE :0D,:0A,:0A BYTE 'PARITY ERROR TEST, ' FRAM BYTE :0D,:0A,:0A BYTE 'FRAMING ERROR TEST, ' LTRANSM WORD $-FRAM*2 TSTIO ENTRY COPY =1,X COPY X,COUNT1 COPY X,COUNT2 COPY X,COUNT3 COPY MODEREG,X TBIT MODEFLAG,X JF OV,COPY CALL O:MSG,=CO,LMSG6,=MSG6 COPY COPY =0,X SW=0 FOR THE TEST CABLE COPY X,SW COPY BUTDA,A XNX A  SELP X,3 RESET THE BOARD COPY =:C,X TEST ENABLE XNX A SELP X,3 XNX A SST 0 IS THE CABLE PRESENT? JMP WITHOUT IT IS TEST WITHOUTTHE TEST CABLE COPY =1,X COPY X,SW COPY BUTDA,A !! COPY =8,X !!   XNX A !! SELP X,3 !! TEST DISABLE JMP TEST WITHOUT EQU $  COPY MODEREG,X TBIT MODEFLAG,X JF OV,TEST CALL O:MSG,=CO,LMSG1,=MSG1 CALL  O:MSG,=CO,LMSG:,=MSG: CALL FLUSH,=:0D,=CI WAIT A CARRIAGE RETURN TEST EQU $ COPY =0,X  THE TABLE COUNTER IS 0 COPY X,STORE1 COPY BUTDA,A COPY A,CHTX DA+#CH FOR THE CH TX OR =2,A COPY A,CHRX DA+#CH FOR THE CH RX COPY MODEREG,X TBIT MODEFLAG,X JF OV,BIGLOOP1 CALL O:MSG,=CO,LMSG2,=MSG2 BIGLOOP1 EQU $ COPY CHTX,TX RESTORE  TX COPY CHRX,RX RESTORE RX COPY =:42,X THE MODE WORD XNX TX OUT  X,1 OUTPUT IT XNX RX OUT X,1 COPY SW,X CLSN X,=1 IS THE CABLE PRESENT ? JMP CABLPRES GO TO CHECK LENGTH WITH THE TEST CABLE COPY =CONTX2,X XNX TX OUT X,1 OUT IT COPY =CONRX2,X CONTR WORD CHRX WITHOUT CONTR CABLE JMP CABLPR GO TO OUTPUT IT CABLPRES EQU $ COPY =CONTX1,X THE CONTR WORD WITH THE TEST CABLE  XNX TX OUT X,1 COPY =CONRX1,X CABLPR EQU $ XNX RX OUT X,1  XNX TX IN 1,X AND =:7F,X MASK DSR + #DON'T CARE CLSN X,=STATTX1  JMP NOERR COPY =1,A COPY A,ER XOR =STATTX1,X COPY X,ERRARG COPY =0,A COPY A,CHTEST COPY =TRANSM,A JSK MSGOUT CALL ERR CLSN A,=1 JMP BIG ERROR TECH EXIT NOERR EQU $ COPY CHTX,TX XNX RX IN 1,X THE RX STATUS AND  =:7F,X MASK DSR +# DON'T CARE CLSN X,=STATRX1 JMP WRITE1 GO TO WRITE DATA COPY =1,A COPY A,ER XOR =STATRX1,X COPY X,ERRARG COPY =1,A COPY A,CHTEST COPY =TRANSM,A  JSK MSGOUT CALL ERR CLSN A,=1 JMP BIG TECH TEST ENTER JMP WRITE1 BIG EQU $ COPY =:40,X COPY CHTX,TX XNX TX OUT X,1 XNX RX  OUT X,1 RESET CHANNELS JMP BIGLOOP1 TECH TEST ENTER WRITE1 EQU $ COPY  CHTX,TX COPY =:FF,X THE DATA XNX TX OUT X,0 COPY SHORT,Q ? SMALL LOOP *********** L1 EQU $ ? XNX TX IN 1,X AND =:7F,X CLSN X,=STATTX3  JMP READ1 GO TO CHECK DATA IJNE Q,L1 ? COPY =1,A COPY A,ER XOR =STATTX3,X COPY X,ERRARG COPY =0,A COPY A,CHTEST COPY =TRANSM,A JSK MSGOUT CALL ERR CLSN A,=1 JMP BIG TECH TEST READ1 EQU $ COPY LONG,A ? COPY CHRX,RX ? L2 EQU $ ? XNX   RX IN 1,X STATUS REG AND =:7F,X CLSN X,=STATRX3 JMP READDAT GO TO READ THE DATA IJNE A,L2 ? COPY =1,A COPY A,ER XOR =STATRX3,X COPY  X,ERRARG COPY =1,A COPY A,CHTEST COPY =TRANSM,A JSK MSGOUT CALL ERR CLSN A,=1 JMP BIG TECH TEST ENTER READDAT EQU $ COPY CHRX,RX ? XNX RX IN 0,X INPUT THE DATA CLSN =:1F,X JMP BIGL COPY =6,A COPY A,ER CALL ERR CLSN A,=1  JMP BIG TECH TEST ENTER BIGL EQU $ COPY CHTX,TX RESTORE CHTX XNX TX IN 1,X INPUT STAT TX AND =:7F,X MASK DSR & DON'T CARE CLSN X,=STATTX1 JMP GRATE COPY =1,A COPY A,ER XOR =STATTX1,X COPY X,ERRARG COPY =0,A COPY A,CHTEST COPY =TRANSM,A JSK MSGOUT CALL ERR CLSN A,=1 JMP BIG TECH TEST ENTER GRATE EQU $ XNX RX IN 1,X AND =:7F,X CLSN X,=STATRX1 JMP BIGLOOP COPY =1,A COPY A,ER XOR =STATRX1,X COPY X,ERRARG COPY =1,A COPY A,CHTEST COPY =TRANSM,A JSK MSGOUT CALL ERR CLSN A,=1 JMP BIG BIGLOOP EQU $  COPY CHTX,TX DA+#CH FOR CH TX COPY CHRX,RX DA+#CH FOR CH RX COPY =:40,X RESET  XNX TX OUT X,1 XNX RX OUT X,1 COPY =TABLE,X THE TABLE ADDRESS  COPY STORE1,A RESTORE THE COUNTER XNX A COPY 0(X),X LOAD THE WORD FROM THE TABLE COPY CHTX,TX XNX TX OUT X,1 OUT THE MODE WORD XNX RX  OUT X,1 COPY SW,X IS THE CABLE PRESENT? CLSN X,=0 JMP WITHOUT1 TEST WITHOUT THE TEST CABLE COPY =CONTX1,X OUTPUT THE CONTROL WORD XNX TX OUT X,1 COPY =CONRX1,X JMP OUTCH2 WITHOUT1 EQU $ * * WITHOUT THE TEST CABLE * COPY =CONTX2,X THE CONTR.WORD TO THE CH TX XNX TX OUT X,1 COPY =CONRX2,X THE CONTR. WORD TO THE CH RX OUTCH2 XNX RX OUT X,1 COPY SW,X IS THE CABLE PRESENT? CLSN X,=1 JMP  CONTRCAB JMP CHECK THE =STAT REGS WITH THE CABLE XNX TX READ THE =STAT TX WITHOUT THE CABLE  IN 1,X AND =:BF,X MASK THE BIT #6 CLSN X,=STATTX1 CHECK THE STAT REG CH TX JMP CHECK1 GOOD, GO TO CHECK CH RX COPY =1,A SAVE THE COUNT FOR THE ERR SUBR COPY A,ER XOR =STATTX1,X PASS ERROR BITS ONLY COPY X,ERRARG SAVE THE ARGUMENT COPY =0,A COPY A,CHTEST COPY =TRANSM,A JSK MSGOUT CALL ERR CLSN A,=1 JMP BIGLOOP CHECK1 EQU $   COPY CHTX,TX RESTORE CHTX AFTER CALL XNX RX IN 1,X READ THE =STAT CH RX  AND =:BF,X MASK THE BIT #6 CLSN X,=STATRX1 JMP WRITE GOOD, GO TO WRITE A DATA COPY =1,A COPY A,ER XOR =STATRX1,X COPY X,ERRARG COPY =1,A COPY A,CHTEST COPY =TRANSM,A JSK MSGOUT CALL ERR CLSN A,=1 JMP BIGLOOP JMP WRITE  LPOOL CONTRCAB EQU $ COPY CHTX,TX RESTORE TX AFTER CALL XNX TX IN 1,X  READ A =STAT WITH THE TEST CABLE CH TX AND =:BF,X MASK THE BIT #6 CLSN X,=STATTX2 CHECK THE STAT REG WITH THE CABLE CH TX JMP CHECK2 GOOD GO TO CHECK CH RX COPY =1,A COPY A,ER XOR =STATTX2,X COPY X,ERRARG COPY =0,A COPY A,CHTEST COPY =TRANSM,A JSK MSGOUT CALL ERR CLSN A,=1 JMP BIGLOOP CHECK2 EQU $ COPY CHTX,TX RESTORE TX XNX RX IN 1,X READ A =STAT REG WITH THE CABLE CH RX AND =:BF,X MASK THE BIT #6 CLSN X,=STATRX2 CHECK THE STAT REG WITH THE CABLE CH RX JMP WRITE GOOD GO TO WRITE A DATA COPY =1,A COPY A,ER XOR =STATRX2,X COPY X,ERRARG COPY =1,A COPY A,CHTEST COPY =TRANSM,A JSK MSGOUT CALL ERR CLSN A,=1 JMP BIGLOOP * * TEST A DATA * WRITE EQU $ COPY CHTX,TX RESTORE TX COPY =-2,X THE COUNTER FOR LOOPS THE READ&WRITE COPY X,MSGPTR(Y) COPY =:AA,X DATA RET COPY X,LMSG(Y) STORE IT XNX TX OUT  X,0 OUTPUT THE DATA COPY SHORT,Q ? SMALL LOOP ******************** L3 EQU $ ? XNX  TX IN 1,X READ A =STAT REG IMMEDIAT. AND =:7F,X MASK CLSN X,=STATTX3 CHECK THE STAT REG JMP WAIT IJNE Q,L3 ? COPY =1,A COPY A,ER XOR =STATTX3,X AND =:BF,X COPY X,ERRARG COPY =0,A COPY A,CHTEST COPY =TRANSM,A JSK MSGOUT CALL ERR CLSN A,=1 JMP BIGLOOP WAIT EQU $ COPY CHRX,RX RESRORE RX COPY LONG,A ? L4 EQU $ ? XNX RX IN 1,X READ A =STAT REG CH RX AND =:7F,X MASK CLSN X,=STATRX3 CHECK THE STAT REG AFTER RECEVED THE DATA JMP READ GOOD GO TO READ THE DATA IJNE A,L4 ? COPY =1,A COPY A,ER XOR =STATRX3,X COPY X,ERRARG COPY =1,A COPY A,CHTEST COPY =TRANSM,A JSK MSGOUT CALL ERR CLSN A,=1 JMP BIGLOOP READ EQU $ XNX RX IN 0,X READ THE DATA COPY X,A CSK A,LMSG(Y) COMPARE THE DATA NOP JMP TECH JMP GOOD LPOOL TECH COPY =6,A COPY  A,ER CALL ERR CLSN A,=1 JMP BIGLOOP GOOD EQU $ XNX RX IN  1,X READ THE =STAT REG AFTER THE DATA READ AND =:7F,X MASK CLSN X,=STATRX4 CHECK THE STAT REG AFTER THE DATA READ JMP SECOND GO TO SECOND CHECK A DATA COPY =1,A COPY A,ER XOR =STATRX4,X COPY X,ERRARG COPY =1,A COPY A,CHTEST COPY =TRANSM,A JSK MSGOUT CALL ERR CLSN A,=1 JMP BIGLOOP SECOND EQU $ COPY CHTX,TX RESTORE TX COPY =:FF,X IMS MSGPTR(Y) JMP RET SE=COND PASS * * OVERRUN ERROR * OVERRUNR EQU $  COPY =:AA,X DATA XNX TX OUT X,0 OUTPUT IT COPY LONG,X  IJNE X,$ COPY =:FF,X CHANGE THE DATA XNX TX OUT X,0 OUTPUT IT  COPY LONG,X IJNE X,$ WAIT COPY =:55,X XNX TX OUT X,0  COPY LONG,A ? L5 EQU $ ? XNX RX IN 1,X READ THE =STAT AND =:7F,X  MASK CLSN X,=STATRX7 CHECK THE OVERRUN ERROR JMP REPEAT GO TO INCREMENT THE COUNT IJNE A,L5 ? COPY =1,A COPY A,ER XOR =STATRX7,X COPY X,ERRARG COPY =1,A COPY A,CHTEST COPY =OVER,A JSK MSGOUT CALL ERR CLSN A,=1 JMP BIGLOOP REPEAT EQU $ COPY STORE1,A WAS THE TABLE ENDING? ADD =1,A COPY A,STORE1 NEXT WORD FROM THE TABL COPY =TABLE,X XNX A COPY 0(X),X CLSN X,=0 JMP SBKERR YES,IT WAS  JMP BIGLOOP GO TO CHECK NEXT WORD FROM THE TABL LPOOL * * THE SBK ERROR * SBKERR EQU $  COPY CHTX,TX RESTORE TX COPY =:40,X RESET CHANNELS XNX TX OUT X,1  XNX RX OUT X,1 COPY =MODE1,X WRITE THE MODE WORD TO CHANNELS XNX TX OUT X,1 XNX RX OUT X,1 COPY SW,X CLSN X,=0 IS THE CABLE PRESENT?  JMP SBCCAB COPY =CONRX3,X LOAD THE CONTR WORD INTO CH RX XNX RX OUT X,1  OUTPUT IT CH IS WITH THE TEST CABLE COPY =CONTX3,X THE CONTR WORD INTO CH TX WITH THE TEST CABLE  JMP SBCWITH SBCCAB EQU $ COPY =CONRX4,X THE CONTR WORD INTO CH RX WITHOUT THE CABLE XNX RX OUT X,1 COPY =CONTX4,X THE CONTR WORD INTO CH TX WITHOUT THE CABLE SBCWITH EQU $ COPY SHORT,A IJNE A,$ COPY CHTX,TX XNX TX OUT X,1 COPY LONG,A ? WAIT FOR SBC L6 EQU $  XNX RX IN 1,X TBIT 6,X RECIEVE READY JT OV,$+2 YES IJNE A,L6 LOOP AND =:6F,X MASK CLSN X,=STATRX5 CHECK IT FOR SBC JMP PARITY GO TO CHECK PARITY ERR COPY =1, A COPY A,ER XOR =STATRX5,X COPY X,ERRARG COPY =1,A COPY A,CHTEST COPY =SEND,A JSK MSGOUT CALL ERR CLSN A,=1 JMP SBKERR * * PARITY ERROR * PARITY EQU $ COPY CHTX,TX RESTORE TX COPY =-2,X COPY X,STORE1 COPY =:40,X RESET CHANNELS XNX TX OUT X,1 XNX RX OUT X,1 COPY =MODE2,X LOAD THE MODE WORD  XNX TX OUT X,1 OUTPUT IT INTO CH TX COPY =MODE3,X LOAD THE MODE WORD CH RX PASSEC EQU $ XNX RX OUT X,1 OUTPUT IT INTO CH RX COPY SW,X IS THE CABLE PRESENT? CLSN X,=0 JMP PARYES WITHOUT THE CABLE COPY =CONTX6,X THE CONTR WORD FOR THE CH TX WITH THE CABLE XNX TX OUT X,1 COPY =CONRX6,X THE CONTR WORD FOR THE CH RX WITH THE CABLE JMP PARWITH GO TO OUTPUT IT INTO CH RX LPOOL PARYES EQU $  COPY =CONTX7,X THE CONTR WORD FOR THE CH TX WITHOUT THE CABLE XNX TX OUT X,1 COPY =CONRX7,X THE CONTR WORD FOR THE CH RX WITHOUT THE CABLE PARWITH XNX RX OUT X,1 COPY =:AA,X THE DATA XNX TX OUT X,0 OUTPUT IT COPY LONG,X IJNE X,$ WAIT COPY =:55,X XNX TX OUT X,0 COPY LONG,A ? L7 EQU $ ?  XNX RX IN 1,X READ A =STAT REG AND =:7F,X MASK CLSN X,=STATRX6  CHECK THE PARITY ERROR JMP PARSEC GO TO CHECK FRAMING ERROR IJNE A,L7 ? COPY =1,A COPY A,ER XOR =STATRX6,X COPY X,ERRARG COPY =1,A COPY A,CHTEST COPY =PAR,A JSK MSGOUT CALL ERR CLSN A,=1 JMP PARITY PARSEC EQU $ IMS STORE1 JMP PASS  JMP FRAMING PASS EQU $ COPY CHTX,TX COPY =:40,X XNX TX OUT X,1 XNX RX OUT X,1 COPY =MODE3,X XNX TX OUT X,1 COPY =MODE2,X JMP PASSEC * * FRAMING ERROR * FRAMING EQU $ COPY CHTX,TX RESTORE CHTX COPY =:40,X RESET CHANNELS XNX TX OUT X,1 XNX RX OUT X,1 COPY =MODE1,X XNX TX OUT X,1 OUTPUT MODE WORD -> CHTX COPY =MODEFRAM,X  XNX RX OUT X,1 OUTPUT MODE WORD -> CHRX COPY SW,X CLSN X,=0 IS THE CABLE PRESENT JMP FRAMCAB COPY =CONRX3,X THE CONTR WORD CH RX XNX RX OUT X,1 OUTPUT IT COPY =CONTX1,X THE CONTR WORD CH TX JMP FRAMWITH FRAMCAB EQU $ COPY =CONRX4,X CONTR WORD CH RX WITHOUT THE CABLE XNX RX OUT X,1 OUTPUT  IT COPY =CONTX2,X CONTR WORD CH TX WITHOUT THE CABLE FRAMWITH EQU $ XNX TX OUT X,1 COPY =0,X THE DATA XNX TX OUT X,0 OUTPUT THE DATA COPY LONG,A ? L8 EQU $ ? XNX RX IN 1,X READ STAT TBIT 1,X RECIEVER READY JT OV,$+2 IJNE A,L8 XNX RX IN  0,X XNX RX IN 1,X INPUT THE STATUS AND =:7F,X MASK CLSN X,=STATRX5F CHECK FOR FRAMING ERROR JMP RESET COPY =1,A COPY A,ER XOR =STATRX5F,X COPY X,ERRARG COPY =1,A COPY A,CHTEST COPY =FRAM,A JSK MSGOUT CALL ERR CLSN A,=1 JMP FRAMING RESET EQU $ COPY CHTX,TX RESTORE TX COPY =0,X COUNT=0  COPY X,STORE1 COPY =:40,X RESET CHANNELS XNX TX OUT X,1 XNX RX OUT X,1 COPY COUNT1,X CLSN X,=0 MADE 1 ? JMP CHANGE GO TO CHANGE CH3 WITH CH1 & CH4 WITH CH2 EXCH TX,RX EXCHANGE CH1 & CH2 COPY TX,CHTX STORE IT  COPY RX,CHRX STORE IT COPY =0,X COPY X,COUNT1 COPY =MSG3,X COPY X,MSGPTR(Y) COPY LMSG2,X COPY X,LMSG(Y) JMP CALL CHANGE EQU $ COPY SW1,X  CLSN X,=0 JMP EXIT COPY COUNT2,X CLSN X,=0 JMP CHANGE1 COPY  BUTDA,TX COPY BUTDA,RX OR =4,TX CH3 IS TX OR =6,RX CH4 IS RX  COPY RX,CHRX STORE,IT COPY TX,CHTX COPY =0,X COPY X,COUNT2 COPY =MSG4,X COPY X,MSGPTR(Y) COPY LMSG2,X COPY X,LMSG(Y) JMP CALL CHANGE1 COPY COUNT3,X CLSN X,=0 JMP EXIT EXCH TX,RX COPY TX,CHTX COPY RX,CHRX  COPY =0,X COPY X,COUNT3 COPY =MSG5,X COPY X,MSGPTR(Y) COPY LMSG2,X COPY X,LMSG(Y) CALL EQU $ COPY MODEREG,X SKIP MSG TBIT MODEFLAG,X JF OV,JMP CALL O:MSG,=CO,LMSG,MSGPTR JMP EQU $ JMP BIGLOOP1 MSGOUT EQU $ COPY A,MSGPTR1(Y) COPY LTRANSM,A COPY A,LMSG16(Y) COPY MODEREG,A TBIT MODEFLAG,A JF OV,RSK CALL O:MSG,=CO,LMSG16,MSGPTR1 RSK EQU $ RSK EXIT EXIT  END X COPY X,COUNT3 COPY =MSG5,X COPY X,MSGPTR(Y) COPY LMSG2,X  TITL INTERRUPT TEST SUBROTINE 76-93717-22 (A100) NAM TSTINT EXTR MSG2,MSG3,MSG4 EXTR MSG5,LMSG2 EXTR O:MSG,ERR DEFINE TSTINT MSGPTR RES 1 LMSG RES 1 ST1 RES 1 ENDEF MSG1 BYTE :0D,:0A,'INTERRUPT TEST ' LMSG1 WORD $-MSG1*2 TSTINT ENTRY COPY =1,X COPY X,COUNT1 COPY X,COUNT2 COPY X,COUNT3 COPY MODEREG,A TBIT MODEFLAG,A JF   OV,SKIP SKIP THE MSG CALL O:MSG,=CO,LMSG1,=MSG1 CALL O:MSG,=CO,LMSG2,=MSG2 SKIP EQU $ COPY BUTDA,X COPY X,CHTX DA+#CH OR =2,X COPY X,CHRX DA+#CH FOR THE RX COPY CHTX,TX COPY CHRX,RX COPY =VECTBASE,X XNX TX SELP X,1  LOAD THE FECTOR BASE ADDRESS LOOP COPY =MODE,X MODE FOR THE BOTH CH COPY CHTX,TX XNX  TX OUT X,1 OUTPUT IT TO THE CH TX XNX RX OUT X,1 OUTPUT IT TO THE CH RX COPY =CONTR,X CONTROL WORD FOR BOTH CH XNX TX OUT X,1 OUTPYT IT TO THE TX COPY =CONTX,X CONTR WORD FOR CH RX XNX RX OUT X,1 OUTPUT IT TO THE RX BOARDINT EQU $ COPY CHRX,RX COPY =ERRES,X XNX RX OUT X,1 COPY  =CONTX,X XNX RX OUT X,1 RBIT DATA,S SBIT EOB,S UIS  ENABLE DATA AND DISABLE EOB INTERRUPT COPY SW,X !! IS THE CABLE PRESENT ? CLSN X,=0  !! JMP CABLE !! YES COPY =8,X !! NO JMP CABLE00 !! CABLE EQU $ !! COPY =:C,X CABLE00 EQU $ !! COPY BUTDA,A XNX A  SELP X,3 COPY CHTX,TX RESTORE CH+#CH COPY =:A,X DATA XNX TX  OUT X,0 OUTPUT IT COPY SHORT,X IJNE X,$ THE SMALL LOOP COPY =:20,X XNX TX OUT X,1 COPY =0,A COPY LONG,X SBIT 8,S C2 EQU $ COPY CHRX,RX XNX RX IN 1,Q TBIT 1,Q JT OV,C5 IJNE X,C2 C5 EQU $ RBIT 8,S COPY CHRX,RX XNX RX IN 0,X JEQ A,PROCINT COPY =3,X COPY X,ER CALL ERR CLSN  A,=1 JMP BOARDINT ENTER TECH TEST PROCINT EQU $ COPY CHRX,RX COPY =ERRES,X  XNX RX OUT X,1 COPY =CONTX,X XNX RX OUT X,1 COPY SW,X  !! IS THE CABLE PRESENT ? CLSN X,=0 !! JMP CABLE1 !! YES COPY =9,X !! NO JMP CABLE01 !! CABLE1 EQU $ !! COPY =:D,X **** CABLE01 EQU $ COPY BUTDA,A **** XNX A **** SELP X,3 ****  SBIT DATA,S DISABLE DATA INTERRUPT RBIT EOB,S UIS COPY CHTX,TX COPY =CONTR,X XNX TX OUT X,1 COPY =:A,X DATA XNX TX OUT X,0 OUTPUT IT COPY SHORT,X IJNE X,$ THE SMOLL LOOP COPY =:20,X XNX TX OUT X,1 COPY =0,A COPY LONG,X SBIT 8,S C3 EQU $ COPY CHRX,RX XNX RX IN 1,Q TBIT 1,Q JT OV,C6 IJNE X,C3 C6 EQU $ RBIT 8,S COPY CHRX,RX XNX RX IN 0,X JEQ A,BOARDEOB COPY =3,X COPY X,ER CALL ERR CLSN A,=1 JMP PROCINT BOARDEOB EQ U $ COPY CHRX,RX COPY =ERRES,X XNX RX OUT X,1 COPY =CONTX,X  XNX RX OUT X,1 RBIT EOB,S ENABLE EOB INTERR RBIT DATA,S ENABLE DATA INTERR UIS COPY SW,X !! CLSN X,=0 !! JMP CABLE2 !! COPY =8,X !! JMP CABLE02 !! CABLE2 EQU $ !! COPY =:C,X CABLE02 EQU $ COPY BUTDA,A XNX A SELP X,3 DISABLE BOARD INTERR COPY CHTX,TX COPY =CONTR,X XNX TX OUT X,1 COPY =:F,X XNX TX OUT X,0 COPY SHORT,X  IJNE X,$ THE SMOLL LOOP COPY =:20,X XNX TX OUT X,1 COPY =0,A COPY LONG,X SBIT 8,S C1 EQU $ COPY CHRX,RX XNX RX IN 1,Q TBIT 1,Q JT OV,C7 IJNE X,C1 C7 EQU $ RBIT 8,S COPY CHRX,RX XNX RX IN 0,X JEQ A,WRITE COPY =2,X COPY X,ER CALL ERR CLSN A,=1 JMP BOARDEOB WRITE EQU $ COPY  SW,X !! CLSN X,=0 !! JMP CABLE3 !! COPY =9,X !!  JMP CABLE03 !! CABLE3 EQU $ !! COPY =:D,X CABLE03 EQU $ !!  COPY BUTDA,A XNX A SELP X,3 COPY CHTX,TX **** COPY CHRX,RX  AND =6,TX ONLY #CH TX AND =6,RX ONLY #CH RX SHIFT TX,LO,1 MULTIPLAY CH TX BY 4 COPY TABINT,X ADD TX,X COPY 0(X),X DATA FOR CH TX INTERRUPTION COPY X,STORE1 COPY X,ST1(Y) SHIFT RX,LO,1 MULTIPLAY CH RX BY 4 COPY TABINT,X ADD RX,X ADD =2,X ADDR FOR THE1 CHECK DATA COPY 0(X),X COPY STORE1,A OR A,X DATA FOR CHE1CING COPY X,STORE1 STOREIT COPY CHTX,TX RE1STORE DA+#CH TX COPY =CONTR,X XNX TX OUT X,1 COPY CHRX,RX RESTORE DA+#CH RX COPY =ERRES,X XNX RX  OUT X,1 COPY =CONTX,X XNX RX OUT X,1 COPY =:FF,X DATA  XNX TX OUT X,0 OUTPUT IT COPY SHORT,X COPY =0,A COPY ST1(Y),Q SBIT 8,S S1 EQU $ CSN Q,A JMP $+2 IJNE X,S1 RBIT 8,S COPY CHTX,RX COPY =:26,X XNX RX OUT X,1 COPY LONG,X COPY STORE1,Q SBIT 8,S S2 EQU $ CSN Q,A JMP DAT IJNE X,S2 DAT EQU $ RBIT 8,S COPY CHRX,RX XNX RX IN 0,Q CLSN Q,=:FF CHECK A DATA  JMP INT COPY A,LMSG(Y) STORE THE CHECK DATA COPY =6,X COPY X,ER CALL  ERR CLSN A,=1 JMP WRITE COPY LMSG(Y),A INT EQU $ COPY STORE1,X  CSN X,A COMPARE PLASES JMP CHANGE COPY =0,Q CSN A,Q JMP INTERR COPY =4,X COPY X,ER CALL ERR CLSN =1,A JMP WRITE JMP  CHANGE INTERR EQU $ COPY =5,X COPY X,ER CALL ERR CLSN =1,A JMP WRITE CHANGE EQU $ COPY CHRX,RX XNX RX IN 1,X AND =:3F,X  CLSN X,=INTCONTR JMP CHANGE: COPY CHRX,RX XNX RX IN 0,A COPY  =1,A COPY A,ER XOR =INTCONTR,X COPY X,ERRARG COPY =1,A COPY A,CHTEST CALL ERR CLSN A,=1 JMP WRITE CHANGE: EQU $ COPY CHTX,TX COPY =:40,X RESEST CHANNELS XNX TX OUT X,1 XNX RX OUT X,1 COPY COUNT1,X  CLSN X,=0 JMP CHANGE1 EXCH TX,RX COPY TX,CHTX STORE IT COPY RX,CHRX STORE IT COPY =0,X COPY X,COUNT1 COPY =MSG3,X COPY X,MSGPTR(Y) COPY LMSG2,X COPY X,LMSG(Y) JMP CALL CHANGE1 EQU $ COPY SW1,X CLSN X,=0 JMP EXIT COPY COUNT2,X CLSN X,=0 JMP CHANGE2 COPY BUTDA,TX  COPY BUTDA,RX OR =4,TX OR =6,RX COPY TX,CHTX COPY RX,CHRX COPY =0,X COPY X,COUNT2 COPY =MSG4,X COPY X,MSGPTR(Y) COPY LMSG2,X COPY X,LMSG(Y) JMP CALL CHANGE2 EQU $ COPY COUNT3,X CLSN X,=0 JMP EXIT  EXCH TX,RX COPY TX,CHTX COPY RX,CHRX COPY =0,X COPY X,COUNT3 COPY =MSG5,X COPY X,MSGPTR(Y) COPY LMSG2,X COPY X,LMSG(Y) CALL EQU $ COPY MODEREG,X SKIP MSG TBIT MODEFLAG,X JF OV,JMP CALL O:MSG,=CO,LMSG,MSGPTR JMP EQU $ JMP LOOP LPOOL EXIT EXIT END UNT3,X CLSN X,=0 JMP EXIT  EXCH TX,RX COPY TX,CHTX COPY RX,CHRX COPY =0,X COPY X,COUNT3 COPY =MSG5,X COPY X,MSGPTR(Y) COPY LMSG2,X COPY X,LMSG(Y) CALL EQU $ COPY MODEREG,X SKIP MSG TBIT MODEFLAG,X JF OV,JMP CALL O:MSG,=CO,LMSG,MSGPTR JMP  TITL SCOUT HARDWARE FUNCTIONAL TEST SYSTEM TITL MACRO DEFINITIONS XMACRO BAR ************************************************************ ENDM BAR * * COPYRIGHT 1979, COMPUTER AUTOMATION, INC * ALL RIGHTS RESERVED * BAR BAR TITL BAR * * MACRO JLPOOL - GENERATE AN LPOOL WITH A JUMP AROUND IT * BAR XMACRO JLPOOL JMP !LPL: JUMP AROUND LPOOL LPOOL !LPL: EQU $ ENDM SPACE 4 BAR * * MACRO BRKPT - GENERATE A DEBUG DUMMY BREAKPOINT * BAR MACRO BRKPT JST *0 ENDM BAR * * MACROS DEFINE, RESERVE & ENDEF - * USED TO DEFINE THE Y-SCRATCHPAD AREA OF A SUBROUTINE * CALLING SYNTAX: *   DEFINE LABEL<,LABEL> . . . * OPERAND #1 - SUBROUTINE BEING DEFINED * OPERANDS #2 - #8 - OPTIONAL SUBROUTINE PARAMETERS * BAR MACRO DEFINE OPTIONS +:4 BRD:: SET FALSE IFT #(?)>1 #(2) EQU A ENDC LPOOL TESTENTR REL NAM #(1): #(1): JSK #1 COPY L,Y JMP $-2 ABS 0  RES 1 RESERVE A LOCATION FOR CALLER SCRATCH PTR DEF: SET #(?)-1 IFT DEF:>1 RESERVE  #3,#4,#5,#6,#7,#8,#9,#10 RESERVE SPACE FOR PASSED PARMAMETERS ENDC ENTRSIZ SET 4 ARGS: SET $-1 OPTIONS -:4  ENDM SPACE 4 MACRO RESERVE RES: SET $ #(RES:) RES 1 IFT $1 #(2) EQU A ENDC LPOOL BRDENTR REL NAM #(1): #(1): JMP *$+1 WORD  #(1)Z NOP NOP ABS 0 RES 1 RESERVE A LOCATION FOR THE CALLER SCRATCH PTR DEF: SET #(?)-1 IFT DEF:>1 RESERVE #3,#4,#5,#6,#7,#8,#9,#10 RESERVE SPACE FOR PASSED PARAMETERS ENDC ARGS: SET $-1 OPTIONS -:4 ENDM TITL BAR * * MACRO SYSDEF - SUBSTITUTE FOR THE DEFINE MACRO, * USED TO DEFINE THE SYSTEM ROUTINES * BAR MACRO SYSDEF OPTIONS +:4 BRD:: SET FALSE IFT #(?)>1 #(2) EQU A ENDC LPOOL ABS 0 RES 1 RESERVE A LOCATION FOR THH CALLER SCRATCH PTR DEF: SET  #(?)-1 IFT DEF:>1 RESERVE #3,#4,#5,#6,#7,#8,#9,#10 RESERVE SPACE FOR PASSED PARAMETERS ENDC ARGS: SET $-1 OPTIONS -:4 ENDM TITL BAR * * MACRO ENTRY - GENERATES CODE FOR A SUBROUTINE ENTRY * CALLING SYNTAX: *