a:std.h7$TEXTTINY 7(DOUBLE 7/ARGINTBOOLVOID 70LONG 73BITSCOUNTFILE 79BYTES 79$UTINY 790ULONG 793UCOUNT >75fio?@FILE_fd ACOUNT_nleft BCOUNT_fmode CTEXT_pnext DTEXT_buf E FIO mult.hFIOstdout /base /group /functs /wrdsze $stopsze $parity $eoparty $dtr  $rts !$threint "$drint #$rlint $$modint %$buffZ &/baud '/abaud )/dbaud 0/error  2/erflg mult2.csetbaud   /ixyz  zinbase outbase z ,i i Si .baudabaudi xydbaudi "   x yy outbasex outbase y outbase z ! #ckbaud %&/erwdixyz (zinbase *,i i Si +,.baudabaudi -.xydbaudi /" 0 1 3x 4yy 5outbase z 6.inbase xinbase y 7erwd 8)9erwd :outbase z ;2erwd < >albaud @A/i Cerroralbaud Dputs' ******testing the baud rates on port # Eputdecgroup Fputs ****** G,i i Si HIbaudabaudi Kbase` Msetbaud O.ckbaud  PQputs the non-test board won't set to Rputdecbaud Sputs baud rate! Tterflg U Wbaseh Ysetbaud [.ckbaud  \]putsthe test board won't set to ^putdecbaud _puts baud rate! `terflg a bcomm c d fcomm hi/a kbaseh merrorcomm otran qbase` s.arec  tterflg v.a wxputs#word 10100101 was recieved as word yputbina zputs @ {putdecbaud |puts# baud rate on the non-test board! }terflg ~ putspasses transmit test @ putdecbaud puts baud rate!  tran baseh .arec  terflg .a puts#word 10100101 was recieved as word putbina puts @ putdecbaud puts baud rate! terflg  )putspasses recieve test @ putdecbaud puts baud rate!   setparm /parm wrdsze wrdsze wrdsze  wrdsze wrdsze  wrdsze parmwrdsze .stopszel parm .parityy parm .eopartye parm  outbase parm  ckparm /parm /erwd parmwrdsze .stopszel parm .parityy parm .eopartye parm  .inbase parm erwd )erwd 2erwd  setmod /modcntl .dtry modcntl .rtsy modcntl outbase modcntl  ckmod /modcntl /erwd .dtry modcntl .rtsy modcntl .inbase modcntl erwd )erwd 2erwd  setint /inter .drinty inter .threinty inter .rlinty inter .modinty inter outbase inter  ckint /inter /erwd .drinty inter .threinty inter .rlinty inter  .modinty  inter  .inbase inter  erwd  )erwd 2erwd  trandata /data */basegroup /istatus ,i i' Si statusinbase  .status "  !.status "outbasedata #)$%puts the transmit register in port # &putdecgroup 'torstd (puts will not empty ! )fatal * + 1rec 35/istatus 7,i i' Si 89statusinbase  :.status ;" < >.status ?@.status ABputs# data was not ready when it should Cputshave been on port # Dputdecgroup Etorstd Fputc G I.status JKputs overrun error on port # Lputdecgroup Mtorstd Nputs @ Oputdecbaud Pputs baud rate! Q S.status TUputs parity error on port # Vputdecgroup Wtorstd Xputs @ Yputdecbaud Zputs baud rate ! [ ].status ^_puts framing error on port # `putdecgroup atorstd bputs @ cputdecbaud dputs baud rate ! e g2 h i2inbase k mfatal op/end   rputs this is a fatal error ! send  t vnonfatal xy*/error  {/end   }puts;do you want to loop in the test that failed (y/n,) ? ~putc putc .getch y erflg putsto end loop type any key. , cpm  error  cpm  end   putca $a .a putc cpma  putsa $a /i , a Sa putca ,i i' Si   putfa +a putbbuffdtofbuffa  putdeca /a putbbuffitobbuffa  putbina /a /bcdi bitobbuffa .b cb ,db d Dd buffd cbuffd ,i ic Si buffi0  putbbuff  putbab $a /b /i ,i ib iS putcaS  torstd .base` puts on the non-test bd. )puts on the test bd.  formfeed puts  terflg .erflg nonfatal  twalk /abi errortwalk puts$ ****** transmit walk-test on port # putdecgroup puts ****** in` ,ia i Si baseh trana base` .brec  terflg ).ba walerab baseh tranCa base` .brec  terflg ).bCa walerCa b aa  .erflg putspasses transmit walk-test !