IMD 1.17: 16/01/2010 16:19:05 programs disc 130s21201 pd-a02.400 0981      *1.&M  &( "z2C  G !"""B"@e *r *RRORS $ DESTINATION DISK ERRORS $ TRACK DATA COMPARE ERRORS $Ã|}Ɛ'@'1Gx_ D:2CO:O@( J 7:O2BWBIOS13 ASM~$%&'()*+,-./0123 *   ( þ COPYING DISK ... PLEASE WAIT $ COPY COMPLETE $PERMANENT1>2*x>2M "(!"!"! "!"!""x2y2  ` : :Ga8xA8 :CO *[":COH*[":CO :C<2C! !"! *["!  K #  :B<2B*# DESTINATION DISK ERROR EXIT $ DISK COPY UTILITY VER 2.4 INSERT SOURCE DISK IN DRIVE A INSERT DESTINATION DISK IN DRIVE B  2    L  :O{  *u.5   X{:G!"u~"MD!"! "(*#"*": !"! "(*#"*":TOUCH RETURN WHEN READY$ TOUCH RETURN TO CONTINUE OR SPACE TO EXIT $ $ DESTINATION DISK IS WRITE PROTECTED $ SOURCE DISK ECOPY COMINIT COM INSTALL COM INSTALL COM~ !"# G _ FLOPPY DISK INITIALIZATION UTILITY VER 2.4 TO EXIT TOUCH CTRL-C $ ENTER DISK DRIVE TO BE INITIAL   I/O Master / O.E.M. Printer   > L2:G>[L!N:ͷ\!4>+ x*w>*w*:G**~=PGT7:($7?>2f>>= !N READY $ $ VERIFYING DISK $ INITIALIZING DISK $ FLAWED SECTORS $ INSERT DISK AND TOUCH ANY KEY TO CONTINUE $  @v‚vˆvŽv”všv v¦v¬v²v¸v¾vv81vvvvvvvvR Î] Î  @* ͡. ;ͣW!E# ¡ # ¬# ·@ʴʥzʖ=ʐ=|zJz?4)z z  ẍ́!F͇́(*u#"u x  8 |.{0_!N(G @(    "k "p "s d Ý |d }d :} 7     B K 0 1 2 3 4 5͋ ͛ E 24ɯ2n[*8"C w#  *C  !R ": 2 **C m ^ ͝ NOT ENOUGH MEMORY TO RUN INSTALLOR YOUR OP-__7777w͎nw͎ĎWx2z7W:G@..Y[]{}AEIOU.:+-JP 2} ͝ Filename of XEROX WP to modify? 0 !  Y͝ tributed XEROX WP, INSTALLing WSU.COM, producing WS.COM, and then running the INSTALLed XEROX WP.B INSTALLation or re-INST ʪ > *P ^ m ͝ DISK FULL ͝ DISKETTE DIRECTORY FULL+  ó  w# +   ê *EASE ENTER SELECTION (A, B, C, or D):s T TAaBCDʾ& &͝ Aa͝ Y>2} , WSU.COM!  Y l first-time INSTALLation of XEROX WP?(Y = yes; N = display other options): sNʪY  ͳ͝ Y͝ This willINCORECTLY FORMED FILENAME D H͝ THAT FILE DOES NOT EXISTA ! + Yկ _͚.!ALLation of a XEROX WP COM file of your choice, placing the newly INSTALLed XEROX WP in a file of your choice, and then exN }o|g)|! w#6Ʌo|g!"N !"P  , ! 6#  r > J ͜<==w s D ®͝ WSU.COM NOT FOUND ON CURRENT DISKê, WS.COM! + Y>2} >2} ͖ ͝ Filename of XEROX WP to be INSTALLed?  INSTALL the WSU.COM on the current drive, savethe result on file WS.COM on the current drive, and thenrun the INSTALLed XEROX ʒ7COM#͸ʭ š͸¦>  ®~#.:*? п[A?~ ##~+:~@##͈ <iting to the operating system.C Same as B except run the INSTALLed XEROX WP.D Modification of the INSTALLation of a XEROX ͈ N#͝ ͨ ͖ ~̖ ] ~#è ͝ !ͨ 6 !p ! ͨ * " * * | }͝ This versio0 !  Y3͝ INCORECTLY FORMED FILENAME D \͝ THAT FILE DOES NOT EXIST͖ ͝ Filename for saving INSTALLed WP. OK (Y/N):sYa \ \Nij͝  ***** XEROX WP INSTALLATION OPTIONS MENU *****A INSTALLation of a dis*C "P *N  4 > *P ^  ͝ UNEXPECTED END OF FILE DURING READó Gzg {x*N +  ʪ  MENU #3 *****1 Original Menu 2 Terminal Menu #2X Heath or Zenith H89/H19 % TRS-80 Model 2t͝   *****A Lear-Siegler ADM-3A C Lear-Siegler ADM-31D Hazeltine 1500 E Microterm ACT-IVF Beehive 150/CrON[-= 2m2t2{222222`2222go"d"2>2f22>22! @͏%!P"H.Lear-Seigler ADM-31 term[2!(( <'&>[&@&$,'#&%v'Z+͝  ***** XEROX WP TERMINAL MENU #2 *****M Microterm ACT-V N Televideo O:ʳ0GA::0:x=OOOO] O] x  ***** XEROX WP SECRET MENU *****< Adds Regent 20 > Adds Regent 40@ Ann Arbor 6080 # Data Gomemco 3100 G Imsai VIOH Hewlett-Packard 2621 A/P I Infoton I-100J Processor Tech Sol / VDM K Soroc IQ-120L Perkinina̓*Tͩ-Rͯ-E͵-'-)ͻ-(-.TEC Model 571 termina͝ Make sure the AUTO ROLL UP, ROLL UP and AUTO LINE FEEDswit 912O Visual 200 P Flashwriter IQ Flashwriter II R SWTPC CT-82S Compucolor 8001G V͝ ]  ͳOO^#V#~#=4^#V#N#F#3333;;;;aV>J ̇eeʳ ͨ eneral D100/D200$ IBM 3101 ( Hazeltine 14201 Original Menu 2 Terminal Menu #23 Terminal M-Elmer 550 (Bantam) 2 Terminal Menu #23 Terminal Menu #3 Z none of the above:6t͝ U no change͝ PLEASE ches are off for proper XEROX WP operation͎[-=` ͩ-ͯ- ͵->2>222.Televideo 912 termina̓*)ͻ-( TEC Model 5711 Original Menu 3 Terminal Menu #3Z none of the abovet͝  ***** XEROX WP TERMINAL ] :ʕ>×>2O> J a{ >] > ] >] 1 n.!Sͨ ͝  ***** XEROX WP TERMINAL MENU #1 enu #3t.Lear-Siegler ADM-3A termina͝  The CLEAR SCREEN and CURSOR CONTROL switches inside the ADM-3A terminal must be ENTER SELECTION (1 LETTER):!:6©!,>26-z.Uo+A 1=-CDnEu F G I$J$KL LQ%H$MNOP!Qb"ROSV(T"X%37 ~#  è>29>2922^#V#N#3333;;;;s    tion on a terminal with line insert, line delete, and erase to end line. Normally use selection "G" instead.̓!"m&"{&"͎~ͩ-ͯ-͵-ͻ----.Hazeltine 1420 Termina͈! *".Soroc IQ-120 termina̓*)ͻ-(-.MicroTerKIͩ->2""!(;%!36#r#w##;%!@6#s#w!"6#p#w##q##q.Heath or Zenith H89 Termina[-Y ͎Kͩ-Lhics Flashwriter ͝  Flashwriter must be addressed at F000H.̓!">22222>@2I!.Vector Graphics Flashwriter͵-ͻ--->2H>R2I.Compucolor 8001G termina[-͎>02H>P2I͑-͑-͑-.Visual 20t&"">2.SOL / VDM versio͝  This version may not work on all CP/M to VDM adaptations͎!@"H[-@@! ""m ACT-IV termina͎ [-!"m&"""".Beehive 150 / Cromemco 3100[-F ͎E.Imsai VIO displa͝  ͵-Mͯ-pͻ-q-! ͏%@!×%.Adds Regent Model 2͎[- X&! 6.Adds Regent Model 4>&lͯ-M͵- I͝ Flashwriter must be addressed at F000H.̓!">22222!.Imsai-VIO-used-as-a-termina͝  This version ac00 termina͝ The AUTO LF switch must be OFF for proper operation.[-Y ͎YKͩ-Mͯ-L͵-4ͻ-3-.Hazeltine 1500 &"m!!">222=2!w#w#w$! .INFOTON I-100 termina[-f ͎! Mͯ-L͵-4ͻ-3-.HEWLETTFor IMSAI VDP-40, VDP-80, & other systems with IMSAI VIO-C or VIO-D (with firmware) at F000. Accesses Video RAM directly. 24Kͩ- &R&͑-0P͑-0@2TB4.Ann Arbor Model 608͎[-@>2`!2`"H!".""">2.Data General cesses Imsai VIO through the operating system and the VIO firmware, as though it was a terminal, to demonstrate XEROX WP operatermina͝  The AUTO LF switch (under the little cover above the keyboard) must be OFF for proper XEROX WP operation.[-~-PACKARD 2621 termina͎[-&ayC>2`Kͩ-L͵-Mͯ-͑-&dA͑-&d@.Perkin-Elmer Bantam termina͎[-XY  * 80 format must be selected before XEROX WP is invoked.!̓!">22222!J!!""w#!.Vector Grap-͑-qwC,!".Microterm ACT-V termina[-͎͑-C͑-B.SWTPC CT-82 termina[-͎! "m."t  RE THE MODIFICATIONS TO WORDSTARCOMPLETE ?" question towards the end of INSTALL.>U,,,333-A-++##45Ⱦ#,^#VN): >Y-q.1)`)q..TRS-80 Model 2 Termina`)q..TRS-80 Model 2 VIO͵*͛- @N͝ ***** WARNING *****You musn.͝ ***** PRINTER MENU *****(More specific info is displayed after choice is entered)A Any "Teletype-like" Wy2Z>>:ZW͝  We have not tested this terminal or printer type. Please report any problems.!-͖ ͖ ͨ Ö>2͛-R5͛-U5: )͝ XEROX WP directly accesses the TRS-80 video board. Some CP/M'sdisable this video board w͖ -q.͝ OK (Y/N):>YGxA-B9-N7.-Y-] ] q.3-Ge S- T-xʳ J̓-S̓-X̓-~#2]~#2^~#2_2dt use this present terminal/printer selectionIf you wish to make another selection you should restartINSTALL again.Choosing printer (ie almost any printer)C "Teletype-like" printer that can BACKSPACED DIABLO 1610/1620 daisy wheel printerE DIABLO  ͝ For other terminals and video boards, XEROX WP must be"patched". Determine your terminal's control sequencesfrom the manufhile a program is running.If your CP/M is made by LifeBoat answer "N" to the next question.If your CP/M is made by FMG or Pick~#O ~#È-^#V#̓-^#V#N# ͈-!m-!t-!{-!-!-!-!6#r#s͝ Previous selection kept unchangedthis selection causes Install to patch one ormore of the following labels in USER1:INISUB:, UNISUB:, SWIN:, SWOUT: or MORPAT:1640/1650 daisy wheel printerF QUME Sprint 5 daisy wheel printerG NEC Spinwriter 5510/5520 thimble printerI "Half-Line-Feeacturer's manual; refer to the INSTALLATIONsection of the XEROX WP manual. Once these codes are determinedanswer "N" to the "Ales & Trout answer "Y".If you are not sure certain, consult your CP/M manual.Does your CP/M leave the Video Board enabled (Y/C..C...bk:56 #=#.{+~@.~#2.bk:56 #=I.{+~f.~#X.n.q.q.͖ ͖ XIt may also change the POSEND: routine in USER4:-}*![ /!? $ ,~ ,6 ~ !> w>>D100/D20͎[-! "m&"&">2.IBM 3101 Termina͎[-Y Iͩ-Oͯ-N͵-͑-3A͑-3E>2͎ͺ![-  icro-justified" output and additional formatting capabilities.'}͝ Refer to manual for instructions on patching in optioninter really is different, refer to the INSTALLATIONsection of the XEROX WP manual for information on patching ina custom prinand superscripts tobe printed offset by half a line. Backspacing capability is also assumed. Patching of control sequen ! "!"""""""">27!~6.Backspacing TTY-like printe͝  This choice is for any printer that w!0,-z.:76qZC1.20A2B=-C44D;Ey'4.Teletype-like printe͝ This selection will ces may be necessary to tailorthis choice to your printer; see manual. If run for demo purposes on TTY-like printer, this cill respond to anAscii BACKSPACE character (code 08) as well as carriagereturn, line feed, and printing characters."C͖ 5!00 Hy-Type I OEM daisy wheel printerQ Fancy TTY-like printer simulated on Diablo 1610-50 for demo1 return to printer menu ur printer has these capabilities.."Half line feed" printer͝  This choice is for printers that can advance in half-lindrive almost any printer. The printermust be capable of responding to ASCII printing characters,carriage return, and line feehoicewill double-space and otherwise function correctly."C4͑- ͑- .Fancy TTY-like demo on Diabl͝  This "3͝ If you have a DAISY WHEEL or thimble printer shown on themenu, use the appropriate choice in order to obtain "MX0!r+͝ Are you sure you mean "none of the above"? Almost any printerwill work with choice A, "Teletype-like".If your preunits but cannot roll carriage upward, such as a Selectricwith a half-line ratchet. Use of this choice causes subscripts d only."C͝  If your printer is capable of backspacing, use CHOICE Cinstead for faster output. 5>2>2͑- ͑-d" PrintersM I/O Master / O.E.M. Printer CombinationU no changeZ none of the abov͝ PLEASE ENTER SELECTION (1 LETTER):  2͌>>'4!"&"͝ This choice is for the indicated daisy printers only. The serial versions of these printers spriate, then patch inthe specific printer's control strings. See the"Installation" section of the XEROX WP manual.3͑- Hy-Type II 1345, 1355, 1355WPUsing the Micropro "I/O Master" interface board and cable(or an IMSAI PIO-4 board or equivalent; I?͖ ;͑-I͑-I!> "2>/"2>o2.NEC Spinwriter 1510/20 printe͖ ͘>͝ To prevent buffer overflow witibbon on a Teletype-like (non-Daisy)printer that has control sequences to roll the carriage up anddown partial lines, change phould be interfacedat 1200 baud, otherwise printout will be very slow.͝ To prevent buffer overflow with these printersi ͑-   ͑- ͑- ͑- ͑- ͑- ͑-A͑-Bt<.Diablo 1610/1620 printe͖ ͘>I?͖ >3>2see also selection L).22<2<2<2>27͌>͝ This selection activates a driver which accesses parallelpoh these printers at 1200 baudwithout using a cable adapter, specify "ETX/ACK" or "XON/XOFF"protocol at the next menu, and confitch, and/or change ribbon color. This demonstration runs on a Diablo 1610-50 but treats itlike a Teletype-like printer witnterfaced at 1200 baud, specify "ETX/ACK" protocolat the next menu."C.I/O Master / O.E.M. PrinterA͝ This selection sup͑- 4B  !<̓-!>"2>"2>5"2>6"2> "2>A"2>B"2222<22>~22>N2>'4.Diabrts F8 thru FA directly. This selection applies to noserial printers.!A!A:5==6 #=A.Diablo Hy-Type I O.E.M. prigure the printerappropriately."C͖ ;͑- 4KO@ ͑-= >]22>O2>2>@2>2>>2><2>92>32>4222>h additional control sequences. To make use of these capabilities on a real non-daisyprinter, select choice A or C as approports the following "OEM" printers: NEC Spinwriter 5500 Qume Sprint 3 (with cable adaptor) Diablo lo 1640/1650 printe͖ ͘>I?͖ ;͑- P͑- B S͑-  >2!>Y"2>Z"2>2.Qume Sprint 5 printe͖ ͘>choice tests and demonstrates XEROX WP's abililityto print subscripts, superscripts, two character pitches,and red and black r  ID PATCn.:G͝ With no protocol, the usual driver selection (below) is LjH͝ With a protocol, the driver must be able toCIFY ETX/ACK OR X-ON/X-OFF PROTOCOL,SET UP PRINTER TO MATCH, AND MAKE SURE DRIVER CAN INPUT (BELOW);OR SPECIFY NO PROTOCOL ANDPrinter DriverO Centronics Driver on TRS-80 Model-2Q Serial Driver on TRS-80 Model-2S User-installed driver subroutinesd outside of XEROX WP)U no changePLEASE ENTER SELECTION (E, X, N, B, or U):!%G,25G-͖ -ZCÈG-q.:ɯ>>2 It is also appropriate for a Hy-Type II (or compatibleequivalent) if the "data 1/2" bit is not connected, e.g. ifan unmodi input as well asoutput characters (such as T or C). If you use selection L,patching will be required.͝  *****  MAKE A CABLE ADAPTER.͝ At 300 baud or less, no protocol is required.< E͝ Most Teletype-like printers use no communicationsU no changePLEASE ENTER SELECTION (L,T,C,P,N,O,P,S,B or U):!q,x2y2-ڈG:IqR:Iq>23Iqp:Gr+y=."ETX/ACK" protocol:7!G͝ For ETX/ACK protocol, you must patch in your printer's buffersize, ESPECIALLY IF IT IS SMAfied IMSAI cable is used.A͝ Make sure any AUTO LF or LOCAL LF switch is OFFn.:7C͝ FOR DIABLO / QUME AT 120DRIVER MENU *****Or, how should XEROX WP send characters to your printer?L CP/M "List" device (LST:)T CP/M primary con protocol.͝  ***** COMMUNICATIONS PROTOCOL MENU *****A "Communications Protocol" is necessary with some printersto-ڈG:bJ:32͝  In most systems this is a "physical" device that is thepontains a "busy test", resulting in thebest response when editing and printing simultaneously.ɯ2WVڲUlb͝ *************nsole driver (CRT:>2͝  In most systems this is a "physical" device that is thesecondary console device and is capa͛L͝ Since the system List Output device driver is not capable ofcharacter input, you must code and patch in a List devicechrt driver directly acceses hardware port(s) to controlprinter. This driver is normally used with serial printersand a protocorimary console device and is capable of Input and Output.Thus it is suitable for use with communication protocols ifit is not ************************************************WHAT IS THE OUTPUT PORT FOR YOUR PRINTER?LWO`uS_uSo[RO`͝ ******ble of Input and Output.Thus it is suitable for use with communication protocols ifit is not being used for the actual consolearacter input subroutine (see manual). Alternately, youmay be able to use choice C or T, which select system devicedrivers cal. As hardware ports are very non-standard withrespect to location and status information, you may have toprovide data (Note being used for the actual console. You need onlyset the Baud rate to match the printer (usualy 1200 baud).͈ ͝ ***********************************************************WHAT IS THE OUTPUT STATUS PORT FOR YOUR PRINTER?LWܗahTԐ`To[. You need onlyset the Baud rate to match the printer (usualy 1200 baud).͈ ͝ **** WARNING **** CRT: is currentypable of input and output͝ You selected a communications protocol at the last menu.Using a protocol requires character ithat XEROX WP will try to determine the dataall by itself) so XEROX WP can modify the port driver. Notethat the port driver c WARNING **** TTY: is currenty the console. You maywant C (CRT:) unless you are INSTALLing for another system..CP/M Coice which must beassigned to the desired one of four "physical" devices withthe STAT command, before XEROX WP is invoked.: OLLOWING PROCEDURE WILL NOT WORK ON ALL HARDWARE ANDMAY HAVE UNUSUAL RESULTS SOMETIMES. PLEASE REMOVE YOURDISKS FROM THE DRIV**********WHAT ARE THE OUTPUT STATUS PORT BITS FOR YOUR PRINTER?LWh\V d\Vo[Uh:͝ ********************************* FAILURE *******************XEROX WP HAS FAILED IN THE DETERMINATION IT WAS ATTEMPTING.PLEASE CHECK YOUR PRINTER AND 0:X] :($X>I&X>M2V!00"L`"a"a""b"b"b" c"c"_c"ac"c"c"h"h"i"ih,Xh.Xi;Xi=XTԞfґTo[ Ta͝ *************************************************************WHAT IS THE INPUT STATUS PORT FOR YOUR PRIES AND REPLACE THEM ONLY WHEN TOLD TO.\>2n[͝ ***********************************************************************************************************WHAT ARE THE INPUT STATUS PORT BITS FOR YOUR PRINTER?LWܿiVԬdVo[aVܿi͝ Are t IT CONECTION TO YOUR SYSTEM.IF ALL ELSE FAILS RESET YOUR SYSTEM AND TRY INSTALLING AGAIN-}\͝ IF YOU WISH TO RETRY THIS :(ʱXb4X c)X_cAXc8XL`4Xa)XaAX"b8X 0:X0:X NTER?LW%bUgUo[ґT%b͝ *************************************************************WHAT ARE THE INPUT STATUS POR****************************************************YOU MAY NOW REPLACE THE DISKS YOU REMOVED EARLER.*************************he printer ports "I/O" or "Memory Mapped" (I or M):0V:VBIM74W:W7͝ DO YOU WISH XEROX WP TO DETERMINE THE VALUOPERATION ANSWER "Y" TO THE "OK Y/N"QUESTION BELOW. YOU MAY ABORT INSTALATION WITH A CONTROL C.-͝ IN ORDER TO USE XEROX 0:Y0:Y 0:1Y0:?Y͝  *************** CAUTION *****************THE FT BITS FOR YOUR PRINTER?LWܿiڱUԬdұUo[Uܿi͗bbc:Udcͮc͝ ******************************************************************************************************************************************************-د2n[͝  *********ES OR SHOULDXEROX WP ACCEPT THEM FROM YOU (D OR A): >AA-B͝ DW͝ A7͝  ÷W:n[CYWLW0:W]uSܗa:͝ *************************************************************WHAT IS THE INPUT PORT FOR YOUR PRINTER?LWa c2d2(272@>2d23:c:ʤb23>:2c2c2d2(272@>22d23*4b1u͝ What is the OUTPUT address in HEX: b͝ XEROX WP will now attempt to output to a number of ports and willask each time if anything printed on the printer. You S MASK FOR THE PRINTER IS: W͝ H7?7:=ed2c ¸d(dʩdødcGx!e~d dʩd(d~#3(dcdgc W͝ H2,͝ THE OUTPUT STATUS BIT MASK FOR THE PRINTER IS: W͝ H2.͝ THE OUTPUT STATUS ONES MASK FOR THE PRINTE AND WITH THE COVER CLOSED. THESERIAL PORT THAT THE PRINTER IS ATTACHED TO MUST BE SET TO THESAME BAUD RATE AS THE PRINTER.b͔h"4"d*) c1u͝ What is the OUTPUT STATUS address in HEX:  c c͔h")"d*A_c1u͝ What is the INanswer "Y"to the "OK Y/N" question when something is printed on the printer>_<ʩd͝ Now OUTPUTing to PORT #: W͝ H|d2;͝ THE INPUT STATUS BIT MASK FOR THE PRINTER IS: W͝ HO2=͝ THE INPUT STATUS ONES MASK FOR THE PRINTER ISR IS: W͝ H7?͝ What is the OUTPUT STATUS port number in HEX: aa͔h2)2d͝ What is the INPUT port nu-PUT address in HEX: _c_c͔h"A"c*8c1u͝ What is the INPUT STATUS address in HEX: cc͔h"8"cex 2d͝ OK (Y/N)J `>Y-_24͝ What is the OUTPUT port number in HEX: L: W͝ H7?TEST ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz d2c e(eʩdecG2 ʩd(e>3(ember in HEX: aa͔h2A2c͝ What is the INPUT STATUS port number in HEX: "b"b͔h282c:(yb23>2c2dG2 ʩd> 3dd2,͝ THE OUTPUT STATUS BIT MASK FOR THE PRINTER IS: W͝ H2.͝ THE OUTPUT STATUS ONE`L`͔h242d!^>2d>2dw=œ`#<–`!^ù`ʩd#x2)2d2 ʴ`> 3d`x͝ THE OUTPUT STATUS FOR THE PRINTER IS:WP'S AID TO DETERMINE THE OUTPUT PORTTHE PRINTER MUST BE CONNECT AND TURNED ON WITH PAPER, A PRINTWHEEL AND A RIBBON INSTALLED lyaccess the printer. (Default values are for the Centronicsport on the MicroPro I/O Master board)͗%>2=!40"n!80"nuhکdcg:8͝ THE INPUT STATUS PORT FOR THE PRINTER IS: W͝ H7?.:=gh>.2Oh!@"Mh>2Oh!2"Mh*Mh+"Mh}status portto inactivate strobe & activate clear (enter hex value): nn͔h2>͝ What value should be output to the staten the INPUT port has a chracter availiable for INPUT.(enter HEX value): ii͔h2;͝ Which bit(s) change(s) from a 0 tTHE PRINTER IS: W͝ H7?:=;g>ïff=ʩd2cc!C0"n>2WR͵*͛-O5:420͛-3:)262<͝ When the Centronics port is ready to print a character,it must set a bitʩd:Oh3(ڊh7?!ʭhͯh)))) ×h}0 ??͝ What are the bit(s) that change at the OUTPUT STATUS portus portto inactivate strobe & inactivate clear (enter hex value): nn͔h2:͝ Is there any way to disable the auto lineo a 1 (enter HEX value): ii͔h2=.Centronics printer driven`)͝ The Centronics driver directly accesses parallf2A͝ THE INPUT PORT FOR THE PRINTER IS: W͝ H7?>Dg3(lg>}g<]g2c high or low to strobe the printer.Another bit is usually set high or low to clear the printerWhat value should be output to when the OUTPUT port becomes ready to accept a characterfor OUTPUT (enter HEX value): hh͔h2,͝ Which bit(s) change feed functionof your printer (Y/N): >Y-͖ һngo"2 -ڈGIq.TRS-80 Model 2 Centronics Drive͗%>2.:el hardwareports to control the printer. Certain port addresses & masksmust be entered by the user so that XEROX WP can propercxg2A͝ THE INPUT PORT FOR THE PRINTER IS: W͝ H7?!^>2c>2cw=g#u*ʛu:~u+~uju COMPLETE? IF THEY ARE ANSWER YES TO THE NEXT QUESTION. IF YOU WISH TO MAKE ADDITIONAL PATCHES TO XEROX WP'S USER AREAS, ]LINOF^COLOF_ASCU`UCRPOdERAEOmLINDEtLININ{IVO΄TRMINɒTRMUNɛINISU¤UNISU§USELSԪMAY SPECIFYTHE NEW VALUE ONLY AS A HEX NUMBER. A LOCATION OF ZERO (0)WILL CAUSE THE END OF THE MODIFICATIONSht͝  OFve͝  See manual re coding and instal-ling your custom printer busy test, printer output, andpri+ʉu>++ʗu77?!u6qu u uýu####u ʬu6q#u~úu#^#V#F#N7?7OUTCHPATVE MSGVEANSWER NO TO THE NEXT QUESTION.-|͝ DELCUӮDELMIӯMEMAPְMEMADұHIBIֳHIBCUҴCRBLIֵZAFCIζRUBFXƸRFIXEҹPBGME\ITHEL`ITITOFSET IS NOT A HEX NUMBERht͝  ADDRESS IS NOT HEX OR : MISSINGht͝  NO SUCH LABEL ?!?!?!͝ LOCATION TO BE CHANGnter input subroutines (the input subroutine is needed onlywhen a communications protocol is in use).:O!J!P!oWSVECOPRISIGNOSIDTE؏PROTTPDRVTWFLAG WRAP JUST!VTAB"HYP$SHOWD%SHOWM&PYOU MAY NOW MODIFY ANY LOCATIONYOU MAY USE EITHER THE LABEL OR THE HEX ADDRESS TO SPECIFYTHE LOCATIONS YOU WISH TO CHANGE. IFʻn͝ **** WARNING ****You can not have a protocal with a Centronics type printerStart INSTALL over again and choose "N" o ISIN%POBS(POSTA)POMAS,POO.POSEN3POO4POIN7PISTA8POINS;POI=POIAPUBSLPUSENOile. D prints the file name you enter after pressing this key. E adds whatever is in another file to the file whicVQUOVARCHVARCHVAROPFPTAbPFPTA{PNFTAwPVTAyXTA=ACFInACSTAoACSTAwSOCH ULCHHүLFCHҰPAGCHұSOFTCҲHARDCҳPAGFI̸MARKӹDSKTNPODBLNOFTA0VTA}CLCH~CRCHLITCHҀPACE bar to return to your document file.-------------------------------------------------------------------------------- IF PUINRACBSXACSEN[ACINdCONFIPROTC̆EAKBSڇDHMILřDHMIFǞDHMIΟDHRNǡDFWģDBA˨DSЭ DBӲITPOPNITHLaAUTOB"BSCH-TRSCRTRSCIn.͝ CONFIRM TERMINAL AND PRINTER SELECTIONS:!DIRCȁSTPCH҄ERELCȅPOSMTȐBLDSTґDBLSTҒPSCRLƖPSCҡPSHALƨPBACKӯPALԵPSTĺROLUпROLDTHIS DISPLAYS YOU ARE USING WRONG VERSION OF WSMSGS.OVR --------------------------------------------------------------DLƷDRLƼDPHSPDNPRODMJWPSTAMORPADELDELDELDELIVOFƋSWISWOUUCNSTͨ !ͨ :}!ͨ !ͨ -,:H͝ PRESS ANY KEY FOR NEXT SCREENFUL OF TEXT:A-> ] OUSRUSRUSRUSRRIBBORIBOFPSINIPRINI PRFINCSWTCHAVBSLIBSLISENL erases an entire file C gives you an option of displaying one line of the directory even while working on a fUCONɽUCONDECCHҒFDTCHҴFNMRG FNOVLFNWSCHZONřITBIITMINOUFRVELISOFHY÷RbITDSDcINITPfINITLINITR̀INITSҁINITWƅDOTCHҔBLNCHҕDOTSOΖEOFCHҬBOFCHҭCONCHҮOVPC  JP SELECT JP SEEK JP SETSEC JP SETPTR JP READ JP WRITE JP CONST ;LIST DEVICE STATUS VECTOR JP TRANS ; ;  MSIZE EQU 60 ;MEMORY CAPACITY IN KBYTES MONITR EQU 0F000H ;BASE OF SYSTEM MONITOR EXTRA EQU MSIZE-20 BASE EQU .RES.EXT7H ;ADRS OF XEROX ID AFTER BOOT LD DE,XEROXID ;ADRS OF XEROX ID IN BIOS LD BC,09D HE OTHER SHOULD BE OFF AT ALL TIMES. ; DSKTY5 EQU 1 ;5.25 INCH DISK TYPE FLAG DSKTY8 EQU 0 ;8 INCH DISK TYPE FLAG ; ; ORG 8-INCH DISK VERSION * ;* * ;* APRIL 1981 * ;*  JUMP VECTORS TO DIRECT PRINTER DRIVERS ; JP POBUSY ;LIST DEVICE STATUS JP POSEND RA*1024 CCP EQU .RES.3400H+BASE ;CONSOLE COMMAND PROCESSOR BDOS EQU .RES.3C06H+BASE ;OPERATING SYSTEM ENTRY POINT CBIOS EQ ;NUMBER OF BYTES TO MOVE IN DECIMAL LDIR ;MOVE THEM ; LD HL,SIGNON CALL PMSG ;PRINT SIGNON  CBIOS ; JP BOOT ;STANDARD JUMP TABLE TO BVECTR: JP WBOOT ;THE SUBROUTINES OF CBIOS SVECTR: JP CONST IVECTR: JP CONIN O * ;* CBIOS FOR XEROX WORD PROCESSING DISK * ;* COMBINED VER ;LIST DEVICE OUTPUT JP POINP ;LIST DEVICE INPUT ; ; ; BOOT: XOR A LD (0003H),A ;RESET IOBYTE TO ZU .RES.4A00H+BASE ;BASE OF CUSTOM BIOS ; ; ; EQUATES TO SELECT THE CONDITIONAL ASSEMBLY ; FOR 5.25 OR 8 INCH DISKS ; ; THEMESSAGE JR GOCPM-$ ; ; IF DSKTY5 ;5.25 INCH DISK WBOOT: LD SP,STACK LD A,(UNIT) ;SAVE LOGGED DRIVE FOR LD (WUNVECTR: JP CONOUT JP LSTOUT ;LIST DEVICE VECTOR JP CONOUT ;PUNCH DEVICE VECTOR JP CONIN ;READER DEVICE VECTOR JP HOME SION FOR 5.25" AND 8" - JUNE 1981 * ;* * ;******************************************************** ; PSECT ABS ;EROS LD (WUNIT),A ;ZERO SAVE AREA FOR LOGGED DRIVE ; ; MOVE XEROX ID TO THE SIGN ON MESSAGE ; LD HL,00F EQUATES DSKTY5 OR DSKTY8 ARE USED FOR ; CONDITIONAL ASSEMBLY CONTROL ; ; ONE CONDITIONAL ASSEMBLY FLAG SHOULD BE ON ; AND T;******************************************************** ;* * ;* -- CUSTOM BIOS FOR CP/M VERSION 2.2 -- * ;*  K TO TRACK 1 JP NZ,BOMB-$ LD HL,.RES.4080H+BASE LD BC,0A01H CALL RDLOOP ;READ ODD SECTORS ON TRK 1 LD HL,.RES.4100H+ JR NZ,BOMB-$ LD HL,.RES.4580H+BASE LD BC,0501H CALL RDLOOP ;READ ODD SECTORS ON TRK 2 LD HL,.RES.4600H+BASE LD BC,; ; SET UP 'XWS' TO EXECUTE ON COLD AND WARM BOOT' ; ; LD DE,0D407H ;ADRS OF CCP COMMAND BUFFER LD HL,AUTOTXT ;ADRS OF COCH SECTION IF DSKTY8 ;8 INCH DISK WBOOT: LD SP,STACK LD A,(UNIT) ;SAVE LOGGED DRIVE FOR LD (WUNIT),A ;* LATER USE D BC,0803H CALL RDLOOP ;READ EVEN SECTORS ON TRK 0 LD HL,.RES.3400H+BASE LD BC,0902H CALL RDLOOP ;READ ODD SECTORS ON BASE LD BC,0902H CALL RDLOOP ;READ EVEN SECTORS ON TRK 1 GOCPM: LD A,0C3H ;STORE JUMP VECTORS IN RAM LD (00H),A LD HL0402H CALL RDLOOP ;READ EVEN SECTORS ON TRK 2 GOCPM: LD A,0C3H ;STORE JUMP VECTORS IN RAM LD (00H),A LD HL,CBIOS+3 ;JUMMMAND TO MOVE LD BC,5 ;NUMBER OF BYTES TO MOVE LDIR ;MOVE THEM ; ; INITIALIZE THE PRINTER ; LD A,0 LD C,0 CALL SELECT ;SELECT UNIT 0 CALL HOME ;SEEK TRACK ZERO LD HL,.RES.3400H+BASE LD BC,0D02H CALL RDLOOP ;READ TRK 0 LD C,1 CALL SEEK ;SEEK TO TRACK 1 JP NZ,BOMB LD HL,.RES.3C80H+BASE LD BC,0901H CALL RDLOOP ;READ ODD SECTOR,CBIOS+3 ;JUMP TO CBIOS WARM BOOT AT 00H LD (01H),HL LD (05H),A LD HL,BDOS ;JUMP TO BDOS GOES AT 05H LD (06H),HL LD (P TO CBIOS WARM BOOT AT 00H LD (01H),HL LD (05H),A LD HL,BDOS ;JUMP TO BDOS GOES AT 05H LD (06H),HL LD (38H),A LD H7 ;LOAD BAUD RATE OUT (0CH),A ;SEND TO SIO CH. B ; ; SEND A 'RESET' SEQUENCE TO THE PRINEVEN SECTORS ON TRK 0 LD HL,.RES.3480H+BASE LD BC,0C03H CALL RDLOOP ;READ ODD SECTORS ON TRK 0 LD C,1 CALL SEEK ;SEES ON TRK 1 LD HL,.RES.3D00H+BASE LD BC,0902H CALL RDLOOP ;READ EVEN SECTORS ON TRK 1 LD C,2 CALL SEEK ;SEEK TRACK #238H),A LD HL,MONITR ;JUMP TO MONTR GOES AT 38H LD (39H),HL LD BC,0080H CALL SETPTR ;MAKE DISK BUFFER=0080H ENDIF ; L,MONITR ;JUMP TO MONTR GOES AT 38H LD (39H),HL LD BC,0080H CALL SETPTR ;MAKE DISK BUFFER=0080H ENDIF ;END OF 5.25 INIT),A ;* LATER USE LD C,0 CALL SELECT ;SELECT UNIT 0 CALL HOME ;SEEK TRACK ZERO JP NZ,BOMB LD HL,.RES.3480H+BASE L ROM THE MONITOR. ; RES 7,A ;RESET THE HIGH ORDER BIT RET ; ; CONOUT: LD A,C JP MONITR+12 ;MONITOR CONSOLE OUTPUT RTN.LE PROCESSOR ; ; 'RESET' SEQUENCE TABLE FOR PRINTER ; INPR2: DEFB 1BH ; 'ESC' DEFB 0DH  ;CHECK IF PRINTER BUSY JR C,CPBSY-$ ;REPEAT TILL READY LD A,C ;GET CHARLOOP: JP LOOP DEAD: DEFB CR,LF DEFM 'cannot boot CP/M $' ; ; ; CONST: JP MONITR+6 ;MONITOR CONSOLE STATUS RTN. ; ; ;PR1: CALL POBUSY ;IS PRINTER READY? JR C,INPR1-$ ;* REPEAT TILL READY LD A,(HL)  ; ; ;******************************************** ;* * ;* LIST OUTPUT DEVICE ; 'CR' DEFB 50H ; 'P' ; ; RDLOOP: LD (POINTR),HL ;STORE ADDR. PASSED IN HL LD A,C LD (SE FROM C CALL POSEND ;PRINT THE CHARACTER CP 0AH ;WAS IT A LINE FEED?  CONIN WAS CHANGED TO LOOP UNTIL GET CTRL+C ; ; CONIN: CALL MONITR+9 ;MONITOR CONSOLE INPUT RTN. ; ; RESET THE HIGH ORDER B ;GET THE BYTE OUT (05H),A ;SEND IT INC HL ;POINT TO NEXT BYTE DJ DRIVER * ;* * ;******************************************** ; LSTOUT: CCTOR),A ;STORE SECT# PASSED IN C PUSH HL PUSH BC CALL READ ;READ THE SPECIFIED SECTOR POP BC POP HL JR NZ,BOMB-$ RET NZ ;RETURN IF NOT CPBSY2: CALL POBUSY ;IF SO GET PRINTER READY JR C,CPBSY2-$ IT IF THE ABOVE INSTRUCTION ; IS A 'CALL MONITR+9'. IF A 'JP MONITR+9' THIS CODE ; IS NOT EXECUTED AND THE 'RETURN' IS DONE FNZ INPR1-$ ;REPEAT TILL DONE ; ; LD A,(WUNIT) ;SELECT SAVED DRIVE LD C,A ;* JP CCP ;* JUMP TO COMMAND CONSOALL POINP ;CHECK IF PRINTER HAS DATA JR NC,LSTOUT-$ ;REPEAT TILL CLEAR CPBSY: CALL POBUSY INC H ;BUMP LOAD ADDRESS BY 256 INC C INC C ;BUMP SECTOR# BY 2 DJNZ RDLOOP-$ RET ; ; BOMB: LD HL,DEAD CALL PMSG TER ; LD B,03D ;NUMBER OF BYTES IN SEQUENCE LD HL,INPR2 ;ADRS OF 'RESET' TABLE IN  ;******************************************************** ; ; IF DSKTY5 ;5.25 INCH DISK ; ; ; SECTOR TRANSLATE TABLE F NZ ;RET WITH PRINTER NOT READY OR A ;* ELSE RESET CARRY RET 000000B ;ALLOCATION MASK MSB DEFB 00000000B ;' ' LSB DEFW 16 ;CHECK SIZE DEFW 3 ;RESERVED TRACKS ; ; ; DI SCF ;SET CARRY RET NZ ;RET WITH NO CHARA AVAIL. IN A,(05)  ;LOOP TILL RECEIVE JR C,WAIT-$ ;* AN 'ACT' RET ;THEN RETURN ; ; ; OR STANDARD ; 1 IN 5 INTERLEAVE FACTOR ; SECTAB: DEFB 1,6,11,16 DEFB 3,8,13,18 DEFB 5,10,15,2 DEFB 7,12,17,4 DEFB 9,1 ;* AND RET WITH PRINTER READY ; ; ; PRINTER OUTPUT ROUTINE ; POSEND: OUT (05),A ;SEND THE BYTE SK PARAMETER HEADERS FOR A 4 DISK SYSTEM ; DPHTAB: DEFW SECTAB,0000H ;DPH FOR UNIT 0 DEFW 0000H,0000H DEFW DIRBUF,DPBLK  ;* ELSE GET CHARACTER OR A ;* RESET CARRY RET ;* AND RETURN ; ;  PRINTER BUSY ROUTINE ; POBUSY: IN A,(07) ;READ SIO PORT CH. B AND 04 ;MASK OUT BITS O4 ; ; ; DISK PARAMETER BLOCK FOR STANDARD 5.25" MINI FLOPPY ; DPBLK: DEFW 18 ;SECTORS PER TRACK DEFB 3 ;BLOCK SHIFT CON RET ;* AND RETURN ; ; ; PRINTER INPUT STATUS ROUTINE ; POINP: IN A,(07) ;READEFW CHK0,ALL0 DEFW SECTAB,0000H ;DPH FOR UNIT 1 DEFW 0000H,0000H DEFW DIRBUF,DPBLK DEFW CHK1,ALL1 DEFW SECTAB,00 ; ;******************************************************** ;* * ;* DISK I/O SUBROUTINES FOR CP/M CBIOS * ;* *F INTEREST XOR 04 ;* TO CHECK PRINTER STATUS SCF ;SET CARRY RET ST. DEFB 7 ;BLOCK MASK CONST. DEFB 0 ;EXTENT MASK CONST. DEFW 81 ;MAX BLOCK# DEFW 31 ;MAX DIRECTORY ENTRY# DEFB 10D SIO PORT CH. B AND 01 ;CHECK FOR RECEIVE XOR 01 ;* CHARACTER AVAILABLE  ;* LD A,03 ;LOAD A 'ETX' CALL POSEND ;AND PRINT IT WAIT: CALL POINP  LD (POINTR),BC ;STORE DATA POINTER PASSED RET ; VIA BC ; ; ; SELECT: LD HL,0 ;PREP TO CHECK FOR MAX UNIT# LD A,C ; ORS PER TRACK DEFB 3 ;BLOCK SHIFT CONST. DEFB 7 ;BLOCK MASK CONST. DEFB 0 ;EXTENT MASK CONST. DEFW 242 ;MAX BLOCK# OCK RET ;DO NOT ACTUALLY SELECT THE DRIVE SELEX: PUSH BC ;SAVE REGISTERS VALUES  UNIT 1 DEFW 0000H,0000H DEFW DIRBUF,DPBLK DEFW CHK1,ALL1 ENDIF ;END OF 8 INCH SECTION ; ; ; ; SETSEC: LD A,C L0000H DEFW DIRBUF,DPBLK DEFW CHK3,ALL3 ENDIF ;END OF 5.25 INCH SECTION IF DSKTY8 ;8 INCH DISK ; ; ; SECTOR TRANSLA; IF DSKTY5 ;5.25" SYSTEM CP 4 ;IS ALLOWED TO HAVE 4 DRIVES ENDIF ; ; IF DSKTY8 ;8" SYSTEM CP 2 ;IS ALLOWED TO H DEFW 63 ;MAX DIRECTORY ENTRY# DEFB 11000000B ;ALLOCATION MASK MSB DEFB 00000000B ;' ' LSB DEFW 16 ;CHECK SI PUSH HL LD A,(UNIT) LD C,A ;LOAD C WITH DISK DRIVE NUMBER LD A,(PUNIT) ;LOAD PREVIOUSLY SELECTD (SECTOR),A ;STORE SECTOR NUMBER PASSED RET ; VIA BC ; ; TRANS: EX DE,HL ;ADD TRANSLATION TABLE ADDRESS ADD HL,BC ; TE TABLE FOR STANDARD ; 1 IN 6 INTERLEAVE FACTOR ; SECTAB: DEFB 1,7,13,19 DEFB 25,5,11,17 DEFB 23,3,9,15 DEFB 21,2,8,14AVE 2 DRIVES ENDIF ; ; RET NC ;RETURN WITH HL=0 IF C > 3 LD (UNIT),A ;STORE C AS NEW DRIVE UNIT# LD L,A ;ZE DEFW 2 ;RESERVED TRACKS ; ; ; DISK PARAMETER HEADERS FOR A 2 DISK SYSTEM ; THE LAST TWO REMOVED FOR SPACE. ; DED DRIVE CP C ;COMPARE WITH CURRENTLY SELECTED DRIVE JR Z,SELEX1-$ ;DO NOT SELECTPASSED IN DE TO SECTOR# IN BC LD L,(HL) LD H,0 ;LOOKUP PHYSICAL SECTOR NUMBER RET ; AND RETURN IT IN HL ; ; SETPTR:  DEFB 20,26,6,12 DEFB 18,24,4,10 DEFB 16,22 ; ; ; DISK PARAMETER BLOCK FOR STANDARD 8" FLOPPY ; DPBLK: DEFW 26 ;SECT ADD HL,HL ADD HL,HL ADD HL,HL ADD HL,HL ;MULTIPLY UNIT# BY 16 LD DE,DPHTAB ADD HL,DE ;ADD START ADDRESS OF DHP BLPHTAB: DEFW SECTAB,0000H ;DPH FOR UNIT 0 DEFW 0000H,0000H DEFW DIRBUF,DPBLK DEFW CHK0,ALL0 DEFW SECTAB,0000H ;DPH FOR00H ;DPH FOR UNIT 2 DEFW 0000H,0000H DEFW DIRBUF,DPBLK DEFW CHK2,ALL2 DEFW SECTAB,0000H ;DPH FOR UNIT 3 DEFW 0000H,  C,A CALL MONITR+36 ;CALL READ ROUTINE IN MONITOR RET Z ;RETURN IF NO ERRORS CALL REPORT ;REPORT DISK ERROR TO CONSOLE REVIOUS DRIVE POP HL POP BC ;RESTORE REGISTERS RET ;EXIT IF SELECTED SUCCESSFULY SELEX3:SG ;PRINT 'disk' LD HL,WRTERR CALL PMSG ;PRINT 'write protected' CALL REP3 ;WAIT FOR CONSOLE INPUT JR Z,WRITE-$ ;RETRECTED LD A,C ;GET TRACK # FROM C LD (TRACK),A CALL MONITR+33 ;CALL SEEK ROUTINE IN MONITOR RET Z ;EXIT IF NO ERRORS INMONITOR JR Z,SELEX1-$ CALL REPORT ;CALL ERROR ROUTINE JR NZ,SELEX3-$  JR Z,READ-$ ;RE-TRY READ IF INDICATED RET ; ; ; WRITE: CALL SELEX ;FIND OUT IF DRIVE IS SELECTED LD HL,(POINTR) LD A XOR A LD (UNIT),A JP 0H ;DISABLE FURTHER BIOS CALLS BY ; RET ; INDICATING SELECT ERROR TO BDOS Y IF INDICATED RET WRIT1: LD A,E ;RETRIEVE SAVED 1771 STATUS CALL REPORT ;REPORT DISK ERROR TO CONSOLE JR Z,WRITE-$ ;REDICATED CALL REPORT ;REPORT SEEK ERROR TO CONSOLE RET NZ ;RETURN PERMANENT ERROR UNLESS LD A,(TRACK) ; RE-TRY REQUEST IS LD A,(UNIT) ;SAVE AS NEXT DRIVE LD C,A ;LOAD DRIVE TO BE SELECTED IN C ,(SECTOR) LD C,A CALL MONITR+39 ;CALL WRITE ROUTINE IN MONITOR RET Z ;RETURN IF NO ERRORS LD E,A ;SAVE 1771 I/O STATUS ; ; ; HOME: CALL SELEX ;FIND OUT IF DRIVE IS SELECTED CALL MONITR+30 ;CALL HOME ROUTINE IN MONITOR RET Z ;RETURN IF AL-TRY WRITE IF INDICATED RET ;ELSE RETURN PERMANENT ERROR ; ; ; ON ENTRY (A) = 1771 I/O STATUS FLAG ; ; REPORT: PUSH AF INDICATED LD C,A JR SEEK-$ ; ; ; READ: CALL SELEX ;FIND OUT IF DRIVE IS SELECTED LD HL,(POINTR) LD A,(SECTOR) LD JR SELEX2-$ ; SELEX1: LD A,(UNIT) ;LOAD DRIVE JUST SELECTED LD (PUNIT),A ;STOR IT AS A P FLAG RLA RLA ;CRY CONTAINS WRITE PROTECT STATUS JR NC,WRIT1-$ ;CONTINUE IF NOT WRITE PROTECTED LD HL,DSKMSG CALL PML WENT WELL CALL REPORT JR Z,HOME-$ ;RE-TRY HOME IF ERROR INDICATED RET ; ; SEEK: CALL SELEX ;FIND OUT IF DRIVE IS SEL IF SAME DRIVE SELEX2: LD B,0 ;LOAD B WITH SEEK SPEED FOR THIS DRIVE CALL MONITR+27 ;CALL SELECT ROUTINE IN  CRLF: DEFB CR,LF DEFB '$' ; ; UNIT: DEFS 1 PUNIT DEFS 1 WUNIT DEFS 1 TRACK: DEFS 1 SECTOR: DEFS 1 POINTR: DEFS 1 DEFRETURN A=0 IF SOMETHING OTHER THAN RET ;CONTROL-C WAS TYPED AT THE CONSOLE ; ; ; ; CHARACTER STRING OUTPUT ROUTINE. PRINFS 32 ;UNIT 1 ALLOCATION VECTOR CHK1: DEFS 16 ;UNIT 1 CHECK VECTOR IF DSKTY5 ;ONLY FOR 5.25 INCH DISK ALL2: DEFS 32 ;UNI DEFM 'XWS' ;FILE NAME TO EXECUTE DEFB 00 ;ALWAYS A TRAILING ZERO ; DSKMSG: DEFB CR,LF DEFM 'disk $' ERRMSG: DEFE-NOT-READY ERROR JR C,REP2-$ ;JUMP IF THAT IS THE PROBLEM LD HL,ERRMSG ;OTHER TYPE OF ERROR SO --- CALL PMSG ;PRINT 'errS 32 STACK: DEFS 1 ;LOCAL STACK FOR WARM BOOT ; ;******************************************************** ;* * ;* DITS ASCII DATA ; POINTED TO BY HL UNTIL A DOLLAR SIGN IS ENCOUNTERED PMSG: LD A,(HL) ;HL POINTS TO ASCII STRING CP '$' IT 2 ALLOCATION VECTOR CHK2: DEFS 16 ;UNIT 2 CHECK VECTOR ALL3: DEFS 32 ;UNIT 3 ALLOCATION VECTOR CHK3: DEFS 16 ;UNIT 3 CHEM 'error $' RDYMSG: DEFM 'drive not ready -$' WRTERR: DEFM 'write protected$' SIGNON: DEFB CR,LF DEFM 'COPYRIGHT (C) 1981,or ' REP1: LD A,1 ;SET UP A NZERO CONDITION FOR RETURN OR A ;RETURN PERM ERROR INDICATION IN A RET ; REP2: LD HL,RDYMSGSK I/O BUFFERS FOR BDOS FILE HANDLER * ;* * ;******************************************************** ; ; ; DIRBUF:NC HL RET Z LD C,A ;PRINT CHARACTER IF NOT DOLLAR SIGN CALL OVECTR JR PMSG-$ ; ; ; ; LF EQU 0AH ;LINE FEED CR ECK VECTOR ENDIF ; ; ; ; ; END  XEROX CORPORATION' DEFB CR,LF DEFB CR,LF DEFM 'CP/M REG. TM 2.2 WP 1.3 2-294 ' XEROXID: DEFM ' '  CALL PMSG ;PRINT DISK-NOT-READY MESSAGE REP3: CALL IVECTR ;AND WAIT FOR CONSOLE INPUT CP 'C'-64 JR Z,REP1-$ XOR A ; DEFS 128 ;SCRATCH DIRECTORY BUFFER ; ALL0: DEFS 32 ;UNIT 0 ALLOCATION BUFFER CHK0: DEFS 16 ;UNIT 0 CHECK VECTOR ALL1: DEQU 0DH ;CARRIAGE RETURN ; ; ; COMMAND TO EXECUTE ON COLD AND WARM BOOT ; ; AUTOTXT : DEFB 3 ;LENGTH OF COMMAND (FOR CCP) ;SAVE 1771 I/O STATUS LD HL,DSKMSG CALL PMSG ;PRINT 'disk ' POP AF ;RETRIEVE SAVED STATUS RLA ;TEST FIRST FOR DRIV        ! " # $ % & '