CP/M

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

/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol054 / ttcbios.asm < prev next >

Wrap

Assembly Source File | 1984-04-29 | 6.1 KB | 466 lines

; TTCBIOS.ASM ; ; ; ; Original coding by: Thinker Toys ; Richmond, CA ; ; ; Patching to minimize size to fit ok for cp/m 2.2 ; by: Jack Burge ; 518A Fifth Street ; East Northport, LI NY 11731 ; ; (516) 261-7219 ; ; Patching to automatically determine `START` equate value ; inserted by: ; Henry B. Rothberg ; 1 Laticrete Park North ; Bethany, CT 06525 ; 1/12/82 ; ; From excellent coding done by: ; ; TKI (The Kendall Institute) ; ; Bruce Kendall ; 334-A Camille Court ; Mountain View, CA 94040 ; ; ; To use this and ttboot.asm see TTSDDJ.HLP ; ; To use, change the values at MSIZE & DELTA for ; your system size, then change the I/O routines ; below to match your system requirements. ; ;************************************************************* ; *** MSIZE EQU 56 ; Insert system size in KB here *** ; *** ;************************************************************* ; DELTA EQU 0000H ; Offset from standard CP/M ; ;************************************************************* ; BIAS EQU (MSIZE-20)*1024-DELTA ; Offset from 20K CP/M system ; CCP EQU 3400H+BIAS ; Base of CP/M ; OFFSET EQU 980H-CCP ; Offset used to read in ttcbios.hex ; with ddt.com during configuration ; ; TITLE 'CBIOS DRIVERS FOR E000H' ;CBIOS DRIVERS FOR CP/M ; CPM EQU CCP ; For ALL cp/m 2.2 systems ; ENTRY EQU CPM+806H CDISK EQU 4 ORIGIN EQU 0E000H ; For prom at E000H INPUT EQU ORIGIN+3 OUTPUT EQU ORIGIN+6 TKZERO EQU ORIGIN+9H TSEEK EQU ORIGIN+0CH SECTOR EQU ORIGIN+0FH DMA EQU ORIGIN+12H DISKR EQU ORIGIN+15H DISKW EQU ORIGIN+18H STACK EQU ORIGIN+26EH DRIVE EQU ORIGIN+273H DMAADR EQU ORIGIN+274H TRACK EQU ORIGIN+277H STATUS EQU ORIGIN+302H DELAY EQU ORIGIN+1F3H SCON EQU ORIGIN+270H IOBYTE EQU 3H INTIOBY EQU 0 RDYMSK EQU 80H WPTCT EQU 1 ; ; ORG CPM+1600H ; NSECTS EQU ($-CPM)/128 ; START JMP BOOT WBOOTE JMP WBOOT JMP CONST JMP CHRIN CPOUT JMP CONOUT JMP LIST JMP PUNCH JMP READER JMP HOME JMP SELDISK JMP SETTRK JMP SETSEC JMP DMA JMP READ JMP WRITE JMP LISTST JMP SECTRAN ; DISK PARAMETER HEADER FOR DISK 00 DPBASE DW TRANS,0000H DW 0000H,0000H DW DIRBF,DPBLK DW CHK00,ALL00 ; DISK PARAMETER HEADER FOR DISK 01 DW TRANS,0000H DW 0000H,0000H DW DIRBF,DPBLK DW CHK01,ALL01 ; DISK PARAMETER HEADER FOR DISK 02 DW TRANS,0000H DW 0000H,0000H DW DIRBF,DPBLK DW CHK02,ALL02 ; DISK PARAMETER HEADER FOR DISK 03 DW TRANS,0000H DW 0000H,0000H DW DIRBF,DPBLK DW CHK03,ALL03 ; SECTOR TRANSLATE VECTOR TRANS DB 1,7,13,19 DB 25,5,11,17 DB 23,3,9,15 DB 21,2,8,14 DB 20,26,6,12 DB 18,24,4,10 DB 16,22 ; DPBLK DW 26 DB 3 DB 7 DB 0 DW 242 DW 63 DB 192 DB 0 DW 16 DW 2 ; ; ; BOOT LXI SP,STACK CALL TINIT CALL QINIT LXI H,PROMPT CALL MESSG XRA A STA CDISK GOCPM LXI H,80H SHLD DMAADR MVI A,0C3H STA 0 LXI H,START+3 SHLD 1 STA 5 LXI H,ENTRY SHLD 6 LDA CDISK MOV C,A JMP CPM ; TINIT MVI A,INTIOBY STA IOBYTE LXI H,0 RET ; WBOOT LXI SP,STACK LXI B,0080H CALL DMA MVI A,88H STA DRIVE CALL ORIGIN+2AH LXI H,GOCPM SHLD 0092H MVI A,2DH STA 00CFH MVI A,(CPM+1600H)/100H STA 00FAH JMP 0080H ; HOME CALL SELDSK CALL TKZERO RET ; ; LISTST IN 04 ANI 40H MVI A,0 RZ CMA RET ; ; CONST IN 000 ANI 40H MVI A,00 RZ CMA RET ; ; STATUS5 DB 00 SETTRK PUSH B CALL SELDSK POP B JMP TSEEK ; ; CONIN LXI H,CITBLE CONIN1 LDA IOBYTE RAL SELDEV ANI 6H MVI D,0 MOV E,A DAD D MOV A,M INX H MOV H,M MOV L,A PCHL ; CONOUT IN 00H ANI 80H JZ CONOUT MOV A,C OUT 01H RET ; ; ; READER JMP CONIN ; ; PUNCH JMP CONOUT ; LIST IN 04H ANI 80H JZ LIST MOV A,C OUT 05H RET ; ; CITBLE DW CITTY DW CICRT DW READER DW CIUC1 COTBLE DW COTTY DW COCRT DW LIST DW COUC1 LTBLE DW LITTY DW COCRT DW LITTY DW COUL1 PTBLE DW COTTY DW COPTP DW COUP1 DW COUP2 RTBLE DW CITTY DW CIPTR DW CIUR1 DW CIUR2 COTTY EQU $ COCRT EQU $ COUC1 EQU $ COLPT EQU $ COUL1 EQU $ COPTP EQU $ COUP1 EQU $ COUP2 EQU $ ; CHROUT JMP CONOUT ; CITTY EQU $ CICRT EQU $ CIPTR EQU $ CIUC1 EQU $ CIUR1 EQU $ CIUR2 EQU $ LXI H,STATUS5 MOV A,M ORA A JZ CHRIN MVI M,0 RET ; CHRIN IN 00 ANI 40H JZ CHRIN IN 01 ANI 07FH RET ; ; SELDISK MOV A,C STA NEWDRV+1 MOV L,A MVI H,0 DAD H DAD H DAD H DAD H LXI D,DPBASE DAD D RET ; SELDSK LXI H,CDISKA NEWDRV MVI A,0 CMP M MOV M,A RZ MOV C,A ; SELDSK1 LDA DRIVE PUSH PSW ANI 0F7H LXI H,DTABLE PUSH H SLOOP CMP M JZ FOUND INX H INX H JMP SLOOP FOUND INX H LDA TRACK MOV M,A POP H MOV A,C ADD A ADD L MOV L,A JNC HISOK INR H HISOK POP PSW ANI 8 ORA M STA STATUS STA DRIVE INX H MOV A,M STA TRACK XRA A LXI D,STATUS CALL DELAY LDA CDISKA MOV L,A MVI H,0 DAD H DAD H DAD H DAD H LXI D,DPBASE DAD D RET ; DTABLE DB 80H DB 0 DB 1 DB 0 DB 20H DB 0 DB 2 DB 0 CDISKA DB 0 ; SETSEC MOV A,C STA SECTORA+1 RET ; SECTORA MVI C,0 JMP SECTOR ; READ CALL SELDSK CALL SECTORA MVI C,10 READ1 PUSH B CALL DISKR POP B ANA A RZ DCR C JNZ READ1 READY CMA RET ; WRITE CALL SELDSK CALL SECTORA MVI C,10 DSKW PUSH B CALL DISKW POP B ANA A RZ DCR C JNZ DSKW PROTCT LDA STATUS ANI WPTCT JZ READY LXI H,PTCTMSG MESSG MOV A,M ANA A RZ PUSH H MOV C,A CALL CHROUT POP H INX H JMP MESSG ; ; QINIT: RET ; MVI A,0CEH ; OUT 03 ; OUT 05 ; MVI A,25H ; OUT 03 ; OUT 05 ; RET ; LITTY: IN 05H ANI 01 JZ LITTY MOV A,C OUT 04H RET ; ; SECTRAN XCHG DAD B MOV L,M MVI H,0 RET ; PROMPT DS 0 DB 1AH,0DH,0AH DB 0DH,0AH DB '20K CP/M 2.2, ' DB 'Version ' DB '1.1 as of 1/11/82' DB 0DH,0AH DB 0 PTCTMSG DB 0DH,0AH DB 'PROTECT' DB 0DH,0AH DB 0 ; DIRBF DS 128 ALL00 DS 31 ALL01 DS 31 ALL02 DS 31 ALL03 DS 31 CHK00 DS 16 CHK01 DS 16 CHK02 DS 16 CHK03 DS 16 ; ; END