CP/M

home *** CD-ROM | disk | FTP | other *** search

/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol027 / consrc.doc < prev next >

Wrap

Text File | 1985-02-10 | 50.9 KB | 1,282 lines

.op ..File CONSRC.DOC Source code documentation for ATS confidence ..tests ADVANCED TERMINAL SYSTEMS CONFIDENCE TESTS DOCUMENTATION Version 1.0 Date of Issue: February 1981 Prepared for: Lister Hill National Center for Biomedical Communications National Library Of Medicine Prepared By: Dan A. Steele Information Development and Applications, Inc. 10759 Tucker Street Beltsville, Maryland 20705 .op .paè Table of Contents Page Overview ........................................... 1 Background Monitor ................................. 2 MCP CPU Test ....................................... 4 MCP RAM Test ....................................... 6 Disk Drive System Test ............................. 8 Serial Ports Test .................................. 9 MCP APU Test ....................................... 10 MCP Data Link Test ................................. 12 GCP Down-load Test ................................. 14 Plasma Panel Test .................................. 16 Touch Panel Test ................................... 18 Keyboard Test ...................................... 19 GCP CPU Test ....................................... 20 GCP RAM Test ....................................... 22 GCP EPROM Test ..................................... 24 GCP APU Test ....................................... 24 .paè.pn 1 ┴á numbe≥ oµ confidencσ test≤ arσ provideΣ t∩ thσ use≥ witΦ thσá ATS« ì Thesσá test≤ arσ designeΣ t∩ checδ ou⌠ variou≤ basiπ operation≤ oµ thσ AT╙ ì iε orde≥ tha⌠ thσ use≥ ma∙ gaiε confidencσ tha⌠ thσ systeφ i≤á functioninτ ì correctly«á Iµ thσ systeφ werσ t∩ develo≡ an∙ majo≥ problem¼á thesσ test≤ ì woulΣá mos⌠ likel∙ no⌠ function«á Thei≥ primar∙ valuσ i≤ t∩ hel≡ thσ use≥ ì isolatσá aε illusivσ probleφ anΣ displa∙ codeΣ informatioε oε thσá consolσ ì whicΦ wil∞ bσ oµ hel≡ t∩ thσ servicσ personnel. Onl∙ function≤ interna∞ t∩ thσ AT╙ arσ tested¼á thereforσ n∩ externa∞ ì equipmen⌠á i≤ requireΣ fo≥ an∙ oµ thσ tests«á Fourteeε test≤ arσá iεá thσ ì packagσ anΣ arσ covereΣ individuall∙ below« Thσá AT╙ confidencσ test≤ arσ madσ u≡ oµ ß collectioε oµ Pascal-┌ anΣ ì assembl∙á languagσ routines«á Thσ maiε drive≥ fo≥ al∞ oµ thσ test≤ ¿á thσ ì monitor⌐á i≤ writteε iε Ithicß Intersystemsº Pascal-Z«á Thi≤ wa≤ donσá t∩ ì takσ advantagσ oµ Pascal'≤ consolσ I/╧ capabilities¼á whicΦ arσ needeΣá iε ì thi≤ portioε oµ thσ system¼á a≤ wel∞ a≤ thσ selµ documentinτ propertie≤ oµ ì Pascal«á Thi≤á prograφá wil∞á bσá linkeΣ iε witΦá thσá AT╙á librar∙á filσ ì (ATSLIB.REL⌐á anΣ thσ assembl∙ languagσ portioε oµ thσ test≤ tha⌠á operatσ ì iεá thσ MC╨ ('GTESTS.REL')«á Al∞ oµ thσ test≤ whicΦ wil∞ functioε iεá thσ ì MCP¼á s∩á tha⌠ the∙ ma∙ bσ linkeΣ t∩ thσ monitor¼á arσ writteε iε Ithica'≤ ì assembl∙ language«á Thσ remainde≥ oµ thσ programs¼á tha⌠ functioε iεá thσ ì GCP¼á anΣ thσ utilitie≤ (ie« CRCGEN⌐ arσ writteε t∩ bσ compatablσ witΦ MA├ ì thσ Digita∞ ResearcΦ assemble≥ whicΦ wa≤ useΣ fo≥ othe≥ developmen⌠ oµ thσ ì AT╙ systeφ software. Al∞á oµá thσ test≤ tha⌠ executσ iε thσ GC╨ arσ locateΣ iε thσá sourcσ ì filσ 'GCPMON.ASM'« The∙ eacΦ havσ ß smal∞ counterpar⌠ (whicΦ wil∞ executσ ì iε thσ GCP⌐ tha⌠ i≤ locateΣ iε GTESTS.SRC«á GTESTS.SR├ wil∞ contaiεá codσ ì t∩á down-loaΣ datß t∩ thσ GC╨ a≤ wel∞ a≤ routine≤ t∩ senΣ thσá appropriatσ ì executσ commanΣ fo≥ thσ variou≤ GC╨ tests. Al∞á test≤ arσ declareΣ iε thσ monito≥ a≤ externa∞á functions«á Thi≤ ì wil∞á easσá thσ paiε iµ thσ neeΣ shoulΣ arisσ t∩ changσ ß tes⌠ o≥ adΣá ne≈ ì tests«á Iε al∞ tests¼ thσ result≤ wil∞ bσ returneΣ t∩ thσ monito≥ prograφ ì iεá thσ forφ oµ ß tw∩ bytσ word«á Thi≤ wil∞ theε bσ decodeΣ anΣ displayeΣ ì iεá thσ diagnostiπ field¼á a⌠ thσ enΣ oµ ß serie≤ oµ tests¼á a≤ ßá 1╢á bi⌠ ì binar∙ number«á Normall∙ thi≤ field¼ whicΦ i≤ locateΣ t∩ thσ righ⌠ oµ thσ ì numbe≥á oµá failures¼á wil∞ bσ blanδ indicatinτ tha⌠ therσ werσ n∩á error≤ ì detected«á Iεá thσ even⌠ oµ aε erro≥ beinτ detected¼á thi≤ fielΣ wil∞á bσ ì lef⌠ blanδ filleΣ anΣ righ⌠ zer∩ filled«á Blank≤ wil∞ bσ indicateΣ b∙ 'bº ì iε thσ tes⌠ result≤ covereΣ below« Fo≥á thσá monito≥ anΣ eacΦ test¼á therσ wil∞ bσ ßá brieµá descriptioε ì followeΣá b∙ ß Dijkstrß typσ char⌠ t∩ illustratσ thσ genera∞ flo≈ oµá tha⌠ ì module«á A≤ al∞ oµ thσ sourcσ codσ i≤ selµ documentinτ n∩ attemp⌠ i≤ madσ ì t∩á delvσ deepl∙ int∩ thσ tests«á Rathe≥ i⌠ i≤ suggesteΣ tha⌠ thσá persoε ì wh∩ need≤ aε iε deptΦ knowledgσ jus⌠ refe≥ t∩ thσ sourcσ codσ listings. Iε thσ flo≈ diagrams¼á word≤ iε al∞ capita∞ letter≤ arσ actua∞ label≤ ì iε thσ sourcσ code. .paèBACKGROUND MONITOR Thσá monito≥á fo≥ thσ tes⌠ i≤ entirel∙ men⌡ driveε t∩á allo≈á someonσ ì witΦ littlσ o≥ n∩ experiancσ t∩ ruε anΣ witΦ thσ hel≡ othe≥ tha⌠ thσá 'AT╙ ì Confidencσ Test≤ Operator'≤ Manualº interpre⌠ al∞ oµ thσ tests. .cp52è Monitor flow: _____________________________ | / \| | INIT | | | Write the Menu | | | Get Test Numbers To Execute | | | Get the Number of Repititions | | | Get the Device to Put Output On | | | Output Device = Disk ? | | | ____no______/ \_____yes____ | / \ | | Open Output File | \____________ ____________/ | \ / | Disk Test Selected ? | | | ____no______/ \_____yes____ | / \ | | Get Drive To Test | \____________ ____________/ | \ / | | | Ready to Go ? \______________________no______/| |yes RepsDone := 0 | X := 1 _____________________________ | / \| | Do Case X | | | _________________________________________________________________ | Tes⌠ ▒ Tes⌠ ▓ Tes⌠ │ . . . . . . . . . Tes⌠ 14 | | | | | | _________________________________________________________________ | | | X := X+1 | | | RepsDone := RepsDone + 1 | | | Print the Failures | | | Delay | | | RepsDone = Repititions and Repititions <> 999 ? \_____________________________/| |yes Exitè MCP CPU Thσá firs⌠á tes⌠á oε thσ men⌡ i≤ thσ MC╨ CP╒ test«á Thi≤á tes⌠á wil∞ ì executσá anΣá checδ thσ result≤ oµ severa∞ instruction≤á iεá eacΦá logica∞ ì grou≡á oµ thσ Z-8░ instructioε set«á Al∞ instruction≤ wil∞ no⌠ bσá testeΣ ì no≥á wil∞á al∞á flag≤ bσ testeΣ fo≥ eacΦ instructioε a≤á i⌠á i≤á executed« ì Therσ arσ somσ instruction≤ tha⌠ arσ useΣ s∩ ofteε b∙ thσ operatinτ systeφ ì tha⌠ i⌠ i≤ no⌠ necessar∙ t∩ tes⌠ them« Thesσ woulΣ includσ 'PUSH'¼ 'POP'¼ ì 'IN'¼ anΣ 'OUT'. Thσá sourcσ codσ fo≥ thi≤ tes⌠ i≤ iε filσ 'CPUTST.SRCº anΣ i≤ writteε ì iε Ithica'≤ assembly« Thσ tes⌠ i≤ linkeΣ witΦ thσ monito≥ anΣ i≤ includeΣ ì iε 'ATSLIB.REL'. The Z-80 instructions tested are listed below: Hex Mnemonic Hex Mnemonic Calls: C4 CNZ Jumps: C2 JNZ DC CC DA JC E4 CNV E2 JNV FC CM FA JM CC CZ CA JZ F4 CP F2 JP EC CPE EA JPE Returns: C0 RNZ Rotates: 1F RAR D8 RC 0F RLC E0 RNV F8 RM Blk.Moves:EDB0 LDIR C8 RZ EDB8 LDDR E8 RPE F0 RP Moves: 3E MVI C9 RET 67 MOV H,A 6C MOV L,H Load/ 01 LXI B 55 MOV D,L Stores: 0A LDAX B 5A MOV E,B 02 STAX B 43 MOV B,E 3A LDA 48 MOV C,B 32 STA 71 MOV M,C 2A LHLD 46 MOV B,M ED4B LBCD ED5B LDED Adds: ED4A DADC B 22 SHLD ED5A DADC D ED43 SBCD ED53 SDED Inc./Dec.:23 INX H 25 DCR H Accum.: C6 ADI 2C INR L CE ACI 2B DCX H FE CPI 102E DJNZ DE SBI 25 DCR H B0 ORA B A8 XRA B 90 SUB Bè Iε additioε t∩ thσ abovσ instructioε tests¼ therσ i≤ ß timinτ tes⌠ t∩ ì assurσ tha⌠ thσ processo≥ i≤ workinτ a⌠ thσ prope≥ speed« A⌠ thσ star⌠ oµ ì thσ timinτ test¼ aε 'Sº i≤ displayeΣ a⌠ thσ console« A⌠ thσ finisΦ aε 'Fº ì i≤ displayed« Thesσ shoulΣ occu≥ approximatel∙ 1╕ second≤ apart. .cp3 Results from MCP CPU Test FEDCBA9876543210 ---------------x --> b = passed 1 = failed .cp30 MCP CPU Test Flow: CPUTST | CPUERR (Clear the error flag) | CALLT (Test the conditional calls) | RETT (Test conditional returns and flags) | JMPT (Test conditional jumps and flags) | ROTT (Test rotates) | BMT (Test Block Moves) | MOVT (Test Moves) | LOADT (Test Loads and Stores) | DADT (Test Double Adds and Subtracts) | INCT (Test Register Increment and Decrement) | ACCT (Test Accumulator Instructions) | TIMT (Timing test) | Exit .cp25èMCP RAM Tes⌠ tw∩ i≤ thσ MC╨ RA═ test«á I⌠ wil∞ tes⌠ 64╦ oµ RA═ iε 1╦ blocks« ì Thσá test≤ arσ donσ withou⌠ destroyinτ an∙ portioε oµ RA═ witΦ thσá excepì tioε oµ thσ 5╦ blocδ jus⌠ belo≈ CP/M. Thσá tes⌠ wil∞ firs⌠ fil∞ memor∙ witΦ 0FF╚ theε checδá fo≥á 0FFH╗á i⌠ ì wil∞ theε fil∞ witΦ 0░ anΣ theε checδ fo≥ 00«á Followinτ thσ test≤ fo≥ 0░ ì anΣá 0FFH¼á ß tes⌠ wil∞ bσ donσ t∩ checδ fo≥ crosseΣ addres≤ lines«á Thi≤ ì wil∞ bσ donσ b∙ writinτ 88╚ t∩ thσ firs⌠ bytσ iε thσ tes⌠ block« Countinτ ì upward≤ iε memor∙ eacΦ locatioε i≤ writteε witΦ thσ valuσ oµ thσá previou≤ ì locatioεá rotateΣá righ⌠ witΦ carr∙ whicΦ wil∞ causσ aε uneveε patterεá iε ì memor∙ anΣ allo≈ thσ check«á Afte≥ thi≤ 1δ blocδ ha≤ beeε testeΣ thσ nex⌠ ì blocδ i≤ tested. Thi≤á test¼á whicΦ i≤ writteε iε Ithica'≤ assembly¼á ha≤ beeεá linkeΣ ì int∩ the AT╙ librar∙ filσ 'ATSLIB.RELº anΣ mus⌠ bσ linkeΣ t∩ thσ monitor. Unlikσ othe≥ tests¼á thi≤ onσ wil∞ prin⌠ ou⌠ t∩ thσ consolσ thσá tes⌠ ì result≤á immediatel∙á afte≥ i⌠ executes«á Thσ result≤ wil∞á indicatσá thσ ì numbe≥á oµ 1╦ block≤ tha⌠ error≤ werσ detecteΣ iε anΣ whicΦ 4δ block≤á thσ ì error≤ werσ locateΣ in«á Seσ thσ sourcσ codσ fo≥ additiona∞ documentatioε ì oε thi≤ routine. .cp19 Results from MCP RAM Test FEDCBA9876543210 b or ░ ╜ápasseΣá ▒á╜ failed ---------------x --> blocδ 0000H t∩ 0FFF╚ --------------x- --> block 1000H to 1FFFH -------------x-- --> block 2000H to 2FFFH ------------x--- --> block 3000H to 3FFFH -----------x---- --> block 4000H to 4FFFH ----------x----- --> block 5000H to 5FFFH ---------x------ --> block 6000H to 6FFFH --------x------- --> block 7000H to 7FFFH -------x-------- --> block 8000H to 8FFFH ------x--------- --> block 9000H to 9FFFH -----x---------- --> block A000H to AFFFH ----x----------- --> block B000H to BFFFH ---x------------ --> block C000H to CFFFH --x------------- --> block D000H to DFFFH -x-------------- --> block E000H to EFFFH x--------------- --> block F000H to FFFFH .cp47èMCP RAM Test Flow: MEMTST | Get the current stack pointer | Start a new stack | Save the old stack pointer | INIT (Initialize) | SAVEME (Move test code to save area) ____________________________ | / \| | SAVE (Save the data in the block to be tested) | | | TEST1 (Do the 0FFH and 00 fill tests) | | | TEST2 (Do crossed address line test) | | | REST (Restore data to the block just tested) | | | Did test fail ? | | | _____no___/ \___yes____ | / \ | | FAIL (Set the error flag) | \__________ __________/ | \ / | | | Move test block base up 1K | | | Are we getting close to save area ? | ____no______/ \_____yes____ | / \ | ⁿ RESTM┼ (Jum≡ back to original execution area) | \____________ ____________/ | \ / | | | Is the test done ? \_____________________no______/| |yes DONE ( Set flags) | Restore the old stack pointer | Exit .cp12èDisk Drive System Thσ thirΣ tes⌠ i≤ fo≥ thσ disδ drivσ system«á Thi≤ onσ i≤ relativel∙ ì simplσ anΣ streigh⌠ forward«á I⌠ i≤ writteε iε Pascal-┌ anΣ i≤á thereforσ ì selµ documenting« Briefl∙ wha⌠ happen≤ i≤ tha⌠ 1▓ sector≤ oµ thσ disδ arσ ì writteεá anΣ theε al∞ 1▓ sector≤ arσ reaΣ bacδ anΣ compaireΣ witΦ wha⌠ wa≤ ì written«á An∙ discrepancie≤ wil∞ causσ thσ erro≥ flaτ t∩ bσá incremented« ì A≤á BDO╙á doe≤ continuou≤ check≤ oε disδ activity¼á anΣ thi≤ wil∞ bσá disì playeΣ iµ an∙ error≤ arσ detested¼ thi≤ tes⌠ i≤ onl∙ designeΣ t∩ checδ fo≥ ì thosσ type≤ oµ erro≥ tha⌠ ma∙ no⌠ bσ detecteΣ b∙ BDOS. .cp3 Results from Disk Drive System Test: FEDCBA9876543210 xxxxxxxxxxxxxxxx --> The the failure count in binary. .cp22 .paèDisk Drive System Flow: Zero error flags | Set 128 byte array with MAXINT | Reset test file _____________________________ | / \| | Read record | | | Is it as written ? | | | ____no______/ \_____yes____ | / \ | Increment error flag | | \____________ ____________/ | \ / | | | Last record ? | | \_____________________no______/| |yes | Exit .cp10 Serial Ports Tes⌠ fou≥ wil∞ bσ oµ thσ tw∩ seria∞ port≤ iε thσ MCP«á Thσ tw∩ UART╙ ì arσá testeΣ b∙ puttinτ theφ int∩ loca∞ loopbacδ modσ anΣ sendinτ datßá anΣ ì checkinτ RxRD┘ anΣ readinτ datß anΣ checkinτ TxRDY. Thσá sourcσ codσ oµ thi≤ tes⌠ i≤ writteε iε Ithica'≤á assembly«á Thσ ì tes⌠ mus⌠ bσ linkeΣ witΦ thσ monito≥ anΣ iε includeΣ iε 'ATSLIB.REL'. .cp4 Results from Serial Ports Test: FEDCBA9876543210 0 or b = passed 1 = failed ---------------x --> UART based at 0 --------------x- --> UART based at 4 .cp25èSerial Ports Test Flow: SERTST | Zero error flag | Note the test to be performed _____________________________ | / \| | Save the current command and mode registers | | | Set the UART to local loopback | | | Do the test | | | Restore command and mode register | | | Increment to the next UART | | | Are we done ? | | \_______________________no____/|yes | Exit .cp24 MCP APU Tes⌠á fivσá i≤ t∩ insurσ tha⌠ thσ AP╒ i≤ se⌠ u≡ anΣ functioninτá proì perly« Thi≤ i≤ donσ b∙ performinτ ß numbe≥ oµ operation≤ anΣ checkinτ thσ ì results« Beforσá an∙ operation≤ arσ done¼á thσ AP╒ i≤ se⌠ u≡ witΦá ßá softwarσ ì routinσ t∩ assurσ tha⌠ it'≤ interna∞ stacδ pointe≥ i≤ oε ß 1╢ bi⌠ boundry« ì Thσ tes⌠ wil∞ assurσ thσ interna∞ stacδ oµ thσ AP╒ i≤ functioninτ properl∙ ì a≤ wel∞ as d∩ thσ severa∞ tes⌠ operations« Thσ tes⌠ operation≤ includσ DDAD¼á DSUB¼ DMUL¼ DDIV¼ SQRT¼ PWR¼ FIXD¼ ì FLTD¼á anΣ CHSF« Normall∙ thσ AP╒ bus∙ bi⌠ i≤ checkeΣ beforσ aε operatioε ì resul⌠á i≤ read«á Thi≤ i≤ no⌠ truσ oε thσ Bus∙ Bi⌠ Test«á Thi≤ tes⌠ wil∞ ì perforφ aε operatioε anΣ immediatel∙ attemp⌠ t∩ reaΣ ß result«á B∙á doinτ ì this¼á ßá checδá wil∞á bσ madσ t∩ seσ tha⌠ thσ pausσ linσ t∩á thσá CP╒á i≤ ì dropped¼á a≤á i⌠á shoulΣ be¼á iε thσ even⌠ ß datß reaΣ i≤ donσ beforσá thσ ì operatioε i≤ complete« Thσ sourcσ codσ i≤ locateΣ iε 'APUTST.SRCº anΣ i≤ writteε iε Ithica'≤ ì assembly«á I⌠á i≤á locateΣ iε 'ATSLIB.RELº anΣ mus⌠ bσá linkeΣá witΦá thσ ì monitor. .cp12èResults from MCP APU Test: 0 or b = passed 1 = failed FEDCBA9876543210 ---------------x --> APU bus test --------------x- --> APU stack test -------------x-- --> DADD test (32 bit add) ------------x--- --> DSUB test (32 bit subtract) -----------x---- --> DMUL & DDIV test ----------x----- --> Skip busy bit test ---------x------ --> 16 bit arithmetic test --------x------- --> Misc function test ------x--------- --> Time out xxxxxx-x-------- --> Unused .cp24 MCP APU Test Flow: Zero the error flag | INIT (Initialize the APU) | Test the APU bus | Test the internal stack | DADD test | DSUB test | DMUL & DDIV test | Busy bit test | 16 bit arithmetic test | Misc. operation test | Exit .cp16èMCP Data Link Tes⌠ si° i≤ designeΣ t∩ checδ thσ bidirectiona∞ datß linδ betweeε thσ ì MC╨ anΣ thσ GCP«á Thσ tes⌠ prograφ iε thσ GC╨ take≤ contro∞ oµ al∞ I/╧ iε ì tha⌠á sidσ oµ thσ system«á Thσ MC╨ send≤ acros≤ ß binar∙ count«á A≤ eacΦ ì characte≥ i≤ sen⌠ b∙ thσ MC╨ i⌠ i≤ receiveΣ anΣ returneΣ b∙ thσá GCP«á A≤ ì thσá GC╨á receive≤ eacΦ characte≥ thσ communicatioε protoco∞á i≤á checked« ì Wheεá thσ characte≥ i≤ receiveΣ bacδ b∙ thσ MC╨ i⌠ i≤ confirmeΣ t∩ bσá thσ ì samσ a≤ thσ characte≥ sen⌠ beforσ thσ nex⌠ characte≥ i≤ sent. Thσ MC╨ sourcσ codσ fo≥ thi≤ tes⌠ i≤ locateΣ iε thσ filσ 'GTESTS.SRCº ì anΣ thσ GC╨ portioε i≤ locateΣ iε 'GCPMON.ASM'. Thi≤ tes⌠ wil∞ diffe≥ froφ thσ other≤ iε tha⌠ i⌠ execute≤ iε botΦ thσ ì GC╨ anΣ thσ MC╨ durinτ thσ entirσ test. .cp7 Results from MCP Data Link Test: FEDCBA9876543210 --------xxxxxxxx --> The number of protocol errors in the ---------------- GCP in binary. xxxxxxxx-------- --> The number of character errors in binary. .paèMCP Data Link Test Flow: MCPLNK | Zero the error flag | Set output character to 20H _____________________________ | / \| | Send output character to the GCP | | | Wait for its return | | | Is it the same as the character sent ? | | | ____no______/ \_____yes____ | / \ | Increment error flag | | \____________ ____________/ | \ / | | | Was it the last character ? | | \_____________________no______/| |yes Exit GCPLNK | Zero the error flag _____________________________ | / \| | Wait for first protocol byte | | | Get that byte | | | Is it a 3 ? | | | ____no______/ \_____yes____ | / \ | Increment error flag | | \____________ ____________/ | \ / | | | Wait for next protocol byte | | | Get it | | | Is it a 50H ? | | | ____no______/ \_____yes____ | / \ | Increment error flag | | \____________ ____________/è| \ / | | | Wait for next protocol byte | | | Get it | | | Is it a 1 ? | | | ____no______/ \_____yes____ | / \ | Increment error flag | | \____________ ____________/ | \ / | | | Wait for the text character | | | Get it | | | Send it back to the MCP | | | Was it the last character ? | | \______________________no_____/| |yes Exit .cp8 GCP Down-load Tes⌠á seveε i≤ designeΣ t∩ tes⌠ thσ GC╨ down-loaΣ datß linδ anΣá wil∞ ì requirσ aε additiona∞ filσ calleΣ 'DOWNLOAD.COMº t∩ bσ oµ drivσ 'A'«á Thσ ì MC╨á portioεá oµ thσ routinσ wil∞ down-loaΣ thi≤ datß filσ t∩ thσ GC╨á anΣ ì theεá star⌠ thσ test«á EacΦ bytσ tha⌠ wa≤ down-loadeΣ i≤ checkeΣá agains⌠ ì thσ knowε patterε anΣ thσ erro≥ flaτ wil∞ bσ incrementeΣ eacΦ timσ ßá bytσ ì i≤ incorrect. Results from GCP Down-load Test: FEDCBA9876543210 xxxxxxxxxxxxxxxx --> The binary count of the number of bytes detected to be in error. .cp29èGCP Data Down-load Flow: GCPDWN | Zero the error flag | Set pointer to down-load data area | Set the test pattern ____________________________ | / \| | Do bytes match ? | | | ____no______/ \_____yes____ | / \ | Increment error flag | | \____________ ____________/ | \ / | | | Increment the data pointer | | | Rotate the test pattern | | | Is this the last byte ? \_______________________no____/| |yes | Exit .cp46èPlasma Panel Tes⌠á eigh⌠ i≤ designeΣ t∩ ruε iε thσ GC╨ anΣ tes⌠ graphiπ operation≤ ì oµ thσ plasmß panel«á EacΦ differen⌠ displa∙ test≤ ß spacifiπ portioεá oµ ì thσ hardwarσ necessar∙ t∩ operatσ thσ panel« EacΦ oµ thσ seveε test≤ wil∞ ì bσá displayeΣá fo≥á approximatel∙ 1░ second≤ eacΦ anΣá theεá automaticall∙ ì cyclσ t∩ thσ next. Tes⌠ onσ shoulΣ firs⌠ clea≥ thσ screeε anΣ theε fil∞ i⌠ witΦ horizonì ta∞ line≤ 1╢ dot≤ apart« Thi≤ i≤ theε overlayeΣ witΦ vertica∞ line≤ whicΦ ì arσá 1╢ dot≤ apar⌠ anΣ theε overlayeΣ witΦ diagona∞ line≤ 1╢á dot≤á apart« ì Thi≤ patterε wil∞ bσ helΣ fo≥ 1░ second≤ beforσ goinτ t∩ tes⌠ two. Tes⌠á tw∩á wil∞á clea≥ thσ screeε anΣ theε displa∙ ßá 1╢á bi⌠á binar∙ ì counter« Startinτ a⌠ thσ lowe≥ left¼ onσ bi⌠ wil∞ bσ on.« theε two.« etc« ì fo≥ thσ entirσ screen. Tes⌠ threσ wil∞ blanδ thσ screen«á I⌠ shoulΣ sta∙ blanδ fo≥ abou⌠ 1░ ì seconds. Test four will fill the screen (all bits will be on). Tes⌠á fivσá run≤á immediatel∙á afte≥á tes⌠á fou≥á fill≤á thσá screen« ì Diagona∞á line≤ 1╢ bit≤ apar⌠ wil∞ bσ erased«á Thi≤ patterε wil∞ bσá disì playeΣ fo≥ abou⌠ 1░ seconds« Tes⌠á si°á wil∞ erasσ thσ screeε anΣ display¼á startinτ a⌠ thσá lowe≥ ì left¼ ß stairste≡ patterε t∩ thσ uppe≥ right« Tes⌠á seveε wil∞ erasσ thσ screeε anΣ theε displa∙ eigh⌠ column≤á anΣ ì eigh⌠ rows« Fo≥ referencσ thσ columns/row≤ wil∞ bσ numbereΣ froφ thσ lef⌠ ì anΣ thσ bottoφ respectively. Column/row Action 1 On for its entire length 2 Off for its entire length but flashes for the upper/right half 3 Same as 2 4 On for the entire length 5 Off for lower/left half, on for the upper/right half 6 Same as 2 7 Same as 5 8 On for its entire length .cp3 Results from Plasma Panel Test: Thi≤ tes⌠ wil∞ neve≥ indicatσ aε erro≥ a≤ thσ operato≥ mus⌠á visuall∙ ì checδ thσ panel. .cp56èPlasma Panel Test Flow: GCPPNL | PSETUP (Set up the plasma panel hardware) | SERASE (Do a screen erase) | HLINES (Print horizontal lines) | VLINES (Print vertical lines) | SAW (Print diagonal lines) | Delay | SERASE | PSETUP | PART (Display 16 bit binary counter) | Delay | PARTE (Erase 16 bit binary counter) | Delay | PSETUP | FILLS (Fill the screen) | SAWS (Erase diagnol lines) | Delay | SERASE | PSETUP | LONG (Display stair-step pattern) | Delay | SERASE | PSETUP | Do 8 bit column/row test | SERASE | PSETUP | Exitè .cp14 Touch Panel A⌠á thσá star⌠ oµ tes⌠ ╣ 'ToucΦ Panelº wil∞ bσ displayeΣ oε thσá conì sole«á Thσá use≥á ma∙á theε checδ thσ toucΦ pane∞á b∙á touchinτá variou≤ ì positions«á Wheε ß positioε i≤ touched¼ thσ tes⌠ wil∞ prin⌠ ou⌠ iε he° t∩ ì thσ consolσ thσ X,┘ coordinate≤ whicΦ havσ beeε touched«á Thσ lowe≥á lef⌠ ì oµá thσ pane∞ wil∞ bσ coordinatσ 0░ anΣ thσ uppe≥ righ⌠ wil∞ bσ coordinatσ ì FF«á EacΦ timσ thσ pane∞ i≤ touched¼á therσ shoulΣ bσ ß 'beep'« Thσ tes⌠ ì wil∞á continuσá a≤á lonτ a≤ thσ operato≥ continue≤á t∩á toucΦá thσá panel« ì Approximatel∙á 1░á seconΣ afte≥ thσ las⌠ touch¼á thσ tes⌠á wil∞á terminatσ ì automatically. This test executes in the GCP. .cp3 Results from Touch Panel Test: Thi≤á tes⌠ wil∞ neve≥ indicatσ aε erro≥ a≤ thσ operato≥ mus⌠ visuall∙ ì checδ thσ panel. .cp32 Touch Panel Test Flow: GCPTP | Print 'Touch Panel' message | Set timer _____________________________ | / \| | Decrement timer | | | Is time up ? | | | no|\___yes______________________ | | \ | Get the Pouch Panel's status | | | | | Is there a character ready ? | | | | |\______________________no_____/|yes | | Read it | | | | | Print the X,Y coordinates | | | | | Reset the timer | | | | \_____________________________/ | ____________________________/ / | Exit è.cp12 Keyboard Tes⌠ teε i≤ ß keyboarΣ test«á A⌠ thσ start¼á 'Keyboardº i≤ printeΣ oε ì thσ screen« A⌠ thi≤ poin⌠ al∞ character≤ typeΣ a⌠ thσ keyboarΣ arσ echoeΣ ì t∩ thσ consolσ witΦ thei≥ ASCI╔ equivalent«á Al∞ contro∞ character≤á wil∞ ì bσ indicateΣ b∙ ß '^º beinτ printeΣ beforσ thσ equivalen⌠ ASCI╔ character« ì Thi≤ tes⌠ wil∞ continuσ a≤ lonτ a≤ typinτ i≤ continued« Teε second≤ afte≥ ì thσ use≥ stop≤ typinτ thσ tes⌠ wil∞ terminatσ automatically. Thσá keyboarΣá tes⌠á wil∞ executσ iε thσ MC╨ anΣ i≤á locateΣá iεá thσ ì 'GTESTS.SRCº file. .cp3 Results from Keyboard Test: Thi≤á tes⌠ wil∞ neve≥ indicatσ aε erro≥ a≤ thσ operato≥ mus⌠ visuall∙ ì checδ thσ panel. .cp38 KeyboarΣ Tes⌠ Flow: KEYBRD | Print 'Keyboard' | Set the timer _____________________________ | / \| | Was there input ? | | | ____________no_____/ \_____yes____________ | / \ | | | | | Get the character | | | | | Is it a control character ? | | | | | ______no_/ \___yes__ | | / \ | | | Subtract 40H | | | | | | | Print '^' | | \________▀ ________/ | | \ / | | | | | Print the character | | | | | Reset the timer | \___________________ ____________________/ | \ / | | | Decrement the timer | | | Is it zero \________________________no___/| |yes ExitèGCP CPU Tes⌠ eleveε oε thσ men⌡ i≤ thσ GC╨ CP╒ test«á Thi≤ test¼á whicΦ run≤ ì iε thσ GCP¼á wil∞ executσ anΣ checδ thσ result≤ oµ severa∞ instruction≤ iε ì eacΦ logica∞ grou≡ oµ thσ Z-8░ instructioε set« Al∞ instruction≤ wil∞ no⌠ ì bσá testeΣá no≥á wil∞ al∞ flag≤ bσ testeΣ fo≥ eacΦ instructioεá a≤á i⌠á i≤ ì executed«á Therσá arσá somσ instruction≤ tha⌠ arσ useΣ s∩á ofteεá b∙á thσ ì operatinτá systeφá tha⌠á i⌠ i≤ no⌠ necessar∙ t∩ tes⌠á them«á Thesσá woulΣ ì includσ 'PUSH'¼ 'POP'¼ 'IN'¼ anΣ 'OUT'. The Z-80 instructions tested are listed below: Hex Mnemonic Hex Mnemonic Calls: C4 CNZ Jumps: C2 JNZ DC CC DA JC E4 CNV E2 JNV FC CM FA JM CC CZ CA JZ F4 CP F2 JP EC CPE EA JPE Returns: C0 RNZ Rotates: 1F RAR D8 RC 0F RLC E0 RNV F8 RM Blk.Moves:EDB0 LDIR C8 RZ EDB8 LDDR E8 RPE F0 RP Moves: 3E MVI C9 RET 67 MOV H,A 6C MOV L,H Load/ 01 LXI B 55 MOV D,L Stores: 0A LDAX B 5A MOV E,B 02 STAX B 43 MOV B,E 3A LDA 48 MOV C,B 32 STA 71 MOV M,C 2A LHLD 46 MOV B,M ED4B LBCD ED5B LDED Adds: ED4A DADC B 22 SHLD ED5A DADC D ED43 SBCD ED53 SDED Inc./Dec.:23 INX H 25 DCR H Accum.: C6 ADI 2C INR L CE ACI 2B DCX H FE CPI 102E DJNZ DE SBI 25 DCR H B0 ORA B A8 XRA B 90 SUB B Iε additioε t∩ thσ abovσ instructioε tests¼ therσ i≤ ß timinτ tes⌠ t∩ ì assurσ tha⌠ thσ processo≥ i≤ workinτ a⌠ thσ prope≥ speed« A⌠ thσ star⌠ oµ ì thσ timinτ test¼ aε 'Sº i≤ displayeΣ a⌠ thσ console« A⌠ thσ finisΦ aε 'Fº ì i≤ displayed« Thesσ shoulΣ occu≥ approximatel∙ 1╕ second≤ apart. .cp3èResults from GCP CPU Test: FEDCBA9876543210 ---------------x --> b = passed 1 = failed .cp30 GCP CPU Test Flow: CPUTST | CPUERR (Clear the error flag) | CALLT (Test the conditional calls) | RETT (Test conditional returns and flags) | JMPT (Test conditional jumps and flags) | ROTT (Test rotates) | BMT (Test Block Moves) | MOVT (Test Moves) | LOADT (Test Loads and Stores) | DADT (Test Double Adds and Subtracts) | INCT (Test Register Increment and Decrement) | ACCT (Test Accumulator Instructions) | TIMT (Timing test) | Exit .cp19èGCP RAM Tes⌠ twelvσ i≤ thσ GC╨ RA═ test«á I⌠ wil∞ tes⌠ al∞ RA═ iε thσ GC╨ iε ì 1╦ blocks«á Thσ test≤ arσ donσ withou⌠ destroyinτ an∙ portioε oµ RA═ witΦ ì thσ exceptioε oµ thσ 5╦ blocδ a⌠ 0A000H. Thσá tes⌠ wil∞ firs⌠ fil∞ memor∙ witΦ 0FF╚ theε checδá fo≥á 0FFH╗á i⌠ ì wil∞ theε fil∞ witΦ 0░ anΣ theε checδ fo≥ 00«á Followinτ thσ test≤ fo≥ 0░ ì anΣá 0FFH¼á ß tes⌠ wil∞ bσ donσ t∩ checδ fo≥ crosseΣ addres≤ lines«á Thi≤ ì wil∞ bσ donσ b∙ writinτ 88╚ t∩ thσ firs⌠ bytσ iε thσ tes⌠ block« Countinτ ì upward≤ iε memor∙ eacΦ locatioε i≤ writteε witΦ thσ valuσ oµ thσá previou≤ ì locatioεá rotateΣá righ⌠ witΦ carr∙ whicΦ wil∞ causσ aε uneveε patterεá iε ì memor∙ anΣ allo≈ thσ check«á Afte≥ thi≤ 1δ blocδ ha≤ beeε testeΣ thσ nex⌠ ì blocδ i≤ tested. Thi≤ tes⌠ i≤ essentiall∙ thσ samσ a≤ thσ MC╨ RA═ tes⌠ bu⌠ execute≤ iε ì thσ GCP« Seσ thσ sourcσ codσ fo≥ additiona∞ documentatioε oε thi≤ routine. .cp19 Results from GCP RAM Test: FEDCBA9876543210 b or ░ ╜ápasseΣá ▒á╜ failed ---------------x --> blocδ 0000H t∩ 0FFF╚ --------------x- --> block 1000H to 1FFFH -------------x-- --> block 2000H to 2FFFH ------------x--- --> block 3000H to 3FFFH -----------x---- --> block 4000H to 4FFFH ----------x----- --> block 5000H to 5FFFH ---------x------ --> block 6000H to 6FFFH --------x------- --> block 7000H to 7FFFH -------x-------- --> block 8000H to 8FFFH ------x--------- --> block 9000H to 9FFFH -----x---------- --> block A000H to AFFFH ----x----------- --> block B000H to BFFFH ---x------------ --> block C000H to CFFFH --x------------- --> block D000H to DFFFH -x-------------- --> block E000H to EFFFH x--------------- --> block F000H to FFFFH .cp47èGCP RAM Test Flow: MEMTST | Get the current stack pointer | Start a new stack | Save the old stack pointer | INIT (Initialize) | SAVEME (Move test code to save area) ____________________________ | / \| | SAVE (Save the data in the block to be tested) | | | TEST1 (Do the 0FFH and 00 fill tests) | | | TEST2 (Do crossed address line test) | | | REST (Restore data to the block just tested) | | | Did test fail ? | | | _____no___/ \___yes____ | / \ | | FAIL (Set the error flag) | \__________ __________/ | \ / | | | Move test block base up 1K | | | Are we getting close to save area ? | ____no______/ \_____yes____ | / \ | ⁿ RESTM┼ (Jum≡ back to original execution area) | \____________ ____________/ | \ / | | | Is the test done ? \_____________________no______/| |yes DONE ( Set flags) | Restore the old stack pointer | Exit .cp9èGCP EPROM Tes⌠ thirteeε is ß checδ oµ thσ EPRO═ iε thσ GCP«á Iε orde≥ fo≥ thi≤ ì routinσá t∩ function¼á thσ filσ 'CRCC.DATº mus⌠ residσ oε drivσá 'A'«á I⌠ ì wil∞á holΣá thσá CRC├ whicΦ i≤ generateΣ a⌠ thσ timσ thσá GC╨á EPROM╙á arσ ì changed« Thi≤ filσ i≤ reaΣ b∙ thσ MC╨ portioε oµ thσ test« ┴ ne≈ CRC├ i≤ ì theεá calculateΣ fo≥ thσ RO═ spacσ anΣ returneΣ t∩ thσ MC╨ portioε oµá thσ ì tes⌠ wherσ i⌠ i≤ compareΣ witΦ thσ valuσ reaΣ froφ thσ file«á Iµ the∙ arσ ì no⌠ thσ samσ thσ erro≥ flaτ i≤ set. .cp3 Results from GCP EPROM Test: FEDCBA9876543210 ---------------x --> b = passed 1 = failed .cp7 GCP EPROM Test Flow: GCPROM | Do the CRCC calculation | Exit .cp19 GCP APU Tes⌠ fourteeε i≤ t∩ insurσ tha⌠ thσ GC╨ AP╒ i≤ se⌠ u≡ anΣ functioninτ ì properly«á Thi≤ i≤ donσ b∙ performinτ ß numbe≥ oµ operation≤ anΣ checkinτ ì thσá results«á Thσ tes⌠ wil∞ checδ tha⌠ thσ interna∞ stacδ oµ thσ AP╒á i≤ ì functioninτ properl∙ a≤ wel∞ as d∩ thσ severa∞ tes⌠ operations« Beforσá an∙ operation≤ arσ done¼á thσ AP╒ i≤ se⌠ u≡ witΦá ßá softwarσ ì routinσá t∩á assurσá tha⌠á it'≤á interna∞ stacδ pointe≥ i≤á oεá ßá 1╢á bi⌠ ì boundary« Thσ tes⌠ operation≤ includσ DDAD¼á DSUB¼ DMUL¼ DDIV¼ SQRT¼ PWR¼ FIXD¼ ì FLTD¼á anΣ CHSF« Normall∙ thσ AP╒ bus∙ bi⌠ i≤ checkeΣ beforσ aε operatioε ì resul⌠á i≤ read«á Thi≤ i≤ no⌠ truσ oε thσ Bus∙ Bi⌠ Test«á Thi≤ tes⌠ wil∞ ì perforφ aε operatioε anΣ immediatel∙ attemp⌠ t∩ reaΣ ß result«á B∙á doinτ ì this¼á ßá checδá wil∞á bσ madσ t∩ seσ tha⌠ thσ pausσ linσ t∩á thσá CP╒á i≤ ì dropped¼á a≤á i⌠á shoulΣ be¼á iε thσ even⌠ ß datß reaΣ i≤ donσ beforσá thσ ì operatioε i≤ complete« .cp12 Results from GCP APU Test 0 or b = passed 1 = failed FEDCBA9876543210 ---------------x --> APU bus test --------------x- --> APU stack test -------------x-- --> DADD test (32 bit add) ------------x--- --> DSUB test (32 bit subtract) -----------x---- --> DMUL & DDIV test ----------x----- --> Skip busy bit test ---------x------ --> 16 bit arithmetic test --------x------- --> Misc function test ------x--------- --> Time out xxxxxx-x-------- --> Unused è.cp24 GCP APU Test Flow: Zero the error flag | INIT (Initialize the APU) | Test the APU buss | Test the internal stack | DADD test | DSUB test | DMUL & DDIV test | Busy bit test | 16 bit arithmetic test | Misc operation test | Exit .paè.op Appendix A ATS Confidence Tests Source Code Thσá followinτá wil∞ summarizσ al∞ oµ thσ sourcσ file≤ fo≥á thσá conì ì fidencσá tests«á Thesσá file≤á wil∞ bσ locateΣ oεá thσá diskettσá labeleΣ ì ì 'Confidencσá Test≤á Sourcσá Codeº anΣ wil∞ contaiε al∞ codσá useΣá iεá thσ ì ì tests. FILE DESCRIPTION .. L-----------------------------------------R ..L----!----!----!----!----!----!----!----!----!----!----!--------R CONTESTS.PAS áá Thσ maiε drive≥ prograφ fo≥ al∞ oµ thσ tests« GTESTS.SRC ááááAl∞á oµá thσ assembl∙ languagσ tes⌠ program≤á tha⌠ ì ááááááááááááááááááááááááruε iε thσ MCP«á I⌠ i≤ writteε iε Ithica'≤ assemì áááááááááááááááááááááááábl∙ anΣ need≤ t∩ bσ linkeΣ witΦ CONTESTS. ATSLIB.REL áá ┴ librar∙ filσ linkablσ witΦ Ithica'≤ Link«á Conì áááááááááááááááááááááááátain≤á somσá oµ thσ MC╨ tes⌠ routine≤ a≤á wel∞á a≤ ì áááááááááááááááááááááááásomσ utilit∙ routines. CPUTST.SRC áá I≤ containeΣ iε ATSLIB«á Thσ CP╒ tes⌠ useΣ iε thσ ì ááááááááááááááááááááááááMCP. AND.SRC áá ContaineΣ iε ATSLIB«á ┴ utilit∙ routinσ t∩ returε ì áááááááááááááááááááááááát∩ Pascal-┌ truσ o≥ falsσ baseΣ oε thσ result≤á oµ ì ááááááááááááááááááááááááß logica∞ AND. APUT.SRC áá ContaineΣ iε ATSLIB«á Thσ tes⌠ oµ thσ 951▒ AP╒ iε ì ááááááááááááááááááááááááthσ MCP. DTST.PAS áá ContaineΣ iε ATSLIB« Thσ AT╙ disδ test. SERT.SRC áá ContaineΣ iε ATSLIB« Thσ tes⌠ fo≥ thσ UARTS. LOGIAND.SRC áá ContaineΣá iεá ATSLIB«á Aε externa∞á routinσá fo≥ ì ááááááááááááááááááááááááPascal-Z¼á wil∞á perforφ ß logica∞ AN─ anΣá returε ì ááááááááááááááááááááááááthσ results. LOGIOR.SRC áá ContaineΣá iεá ATSLIB«á Aε externa∞á routinσá fo≥ ì ááááááááááááááááááááááááPascal-Z¼ wil∞ perforφ ß logica∞ O╥ anΣ returε thσ ì ááááááááááááááááááááááááresults. MEMTST.SRC áá ContaineΣ iε ATSLIB« Thσ tes⌠ oµ thσ AT╙ MC╨ RAM. GCPMON.ASM áá Al∞á oµ thσ test≤ t∩ bσ down-loadeΣ anΣ ruε iε thσ ì ááááááááááááááááááááááááGCP. DOWNLOAD.ASM áá Tes⌠ datß useΣ b∙ thσ down-loaΣ test. è TESTSAVE.ASM áá UseΣ t∩ savσ GCPMO╬ a≤ ß down-loadablσ CO═ file. CRCGEN.ASM áá Generate≤ ß CRC├ fo≥ thσ RO═ tes⌠ iε thσ GCP. GOCRCGEN.ASMá áá Down-load≤á thσá CRCGE╬á prograφ t∩á thσá GC╨á anΣ ì áááááááááááááááááááááááábegin≤ execution. CONFIDEN.DOC áá Thσá Confidencσ Tes⌠s Operator'≤ Manual. LIB.REL Pascal-Z's library file. File types are: .ASM Digital Research MAC source file. .PAS Ithica's Pascal-Z source file. .SRC Ithica's ASMBL source file. .DOC Wordstar document file. .paè Appendix B Creating a CRCC New Data File 1. Run 'GOCRCGEN'. 2. RecorΣá thσ result≤ printeΣ oε thσ screeε fo≥ lo≈ bytσ anΣá higΦ ì ááááááááábyte. 3. Run 'DDT'. 4. Enter 'F100,1FF,00' to zero 1 page of memory. 5. Usσá 'Sº commanΣ t∩ pu⌠ lo≈ bytσ froφ GOCRCGE╬ a⌠á locatioεá 100╚ ì áááááááááanΣ higΦ bytσ a⌠ 101╚ a≤ follows. Enter 'S100' Response will be '100 00' Enter low byte value obtained from GOCRCGEN Response will be '101 00' Enter high byte value obtained from GOCRCGEN Response will be '102 00' Enter '.' 6. Enter 'G0' to warm boot. 7.á Creatσ thσ ne≈ datß filσ witΦ thσ savσ commanΣ a≤ follows: 'SAVE 1 CRCC.DAT'