ariC-5192OtariC-5262Quantum540Rodime20@Rotating Memory SystemsRMS-12MMAtasi33@Computer Memories, Inc.CM54122Computer Memories, Inc.CM56192Computer Memories, Inc.CM-6426@Computer Memories, Inc.CM-6640@Disctron, Inc.D5142Disctron, Inc.D5192Disctron, Inc.D5262Miniscribe3012dMOtariC-5142Ot H,SDTAB ;point to start of tables JZ DENSIT1 ;yes, overlay param. block ; IF DUBSID DAD B ;no, add offset to next table CPI 2 ;single den doub sided? JZ DENSIT1 ;yes DAD B ;no CPI 10H ;doub den single sided? JZ DENSIT1 ;yes ENDIF ; DAD B ;no, must be doub den , doub sided DENSIT1:XCHG ;drive table pointer --> d,e LDAX D ;get log and drive type byte. INX D ;bump pointer STA DENS ;set current drive density. PUSH D ;save drive table pointer.PV  ^XP X<tPSQVб^Y[XQYu0300tKuQ@ 0":tKu/0t}1 12~u0tZ$Q 22.Kouuuþ ' .1.J>u ut#.1u۾ ?0It t32þ #0-t@u t12 2.4.2`.2u .2`.420t t2þ l u1 u 12d0t.u221C.R' IN THE READ COMMAND. READE: OUT DCOM ;SEND COMMAND TO 1771. RLOOP: IN WAIT ;WAIT FOR DRQ OR INTRQ. ORA A ;SET FLAGS. JP RDDONE ;DONE IF INTRQ. IN DDATA ;READ A DATA BYTE FROM DISK. MOV M,A ;PUT BYTE INTO MEMORY. INX H ;INCREMENT MEMORY POINTER. JMP RLOOP ;KEEP READING. RDDONE: IN DSTAT ;READ DISK STATUS. ENDIF ; IF INTRP AND NOT DMACNTL;IF INTERRUPTS ALLOWED, EI ;ALLOW AGAIN HERE. ENDIF ; ANI 9DH ;LOOK AT ERROR BITS. RZ ;RETURN IF NONE. CALL ER CALL PARINDX ;compute parameter overlay area. POP D ;restore drive table pointer. LXI B,0208H ;B = 2, C = 8 (count values). MOVE: LDAX D ;GET XLT0 BYTE. MOV M,A ;AND PUT IT INTO DW TABLE FOR DRIVE. INX D ;BUMP INX H ; POINTERS DCR B ;DECREASE COUNT. JNZ MOVE ; AND LOOP TILL ZERO. DAD B ;NOW ADD INDEX INTO DPB0 AREA. MOV M,E ;GET LOW POINTER BYTE. INX H ;BUMP POINTER. MOV M,D ;GET HIGH POINTER BYTE. ; ;SELECT DRIVE AS A FUNCTION OF H,L ; PARINDX:LHt7t t t@t!t7t].tLtettt t@tt.t ot dt+ Yt^ N Teletek Hard Disk Controller Format Program Copyright (c) 1985 by Tarbell Electronics Last changed 12-18-85 No. Manufacturer and Model No. -- -------------------------------------- Entry not in table. Formatting bad sectors found. End of Formatting Load Aborted -- HD/CTC Board Does Not Respond. HD/CTC Board Failed Self Test. Check Hard Disk Drive(s). YES; Tarbell Concurrent CP/M-86 XIOS for Duplex 816 80186/Z80H Board. ; Copyright (c) 1983, 1984, 1985 by Tarbell Electronics. ; Derived from Tarbell CP/M-86 BIOS of 6-24-84. ; Changes by Don Tarbell: ; 7-13-85: fixed 4 virtual 2 physical consoles. ; 7-14-85: improved console interrupt response. ; 7-21-85: put time-out errors on disk accesses. ; 7-28-85: worked on drive selection routines. ; 7-29-85: re-worked hard disk error handling routines. ; 8-15-85: separated hard disk controller driver from drinumber of 4s/2p ports to initialize. mini equ false ; true to boot on 5-inch floppies. dtrcon equ false ; true for console d