home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
SIMTEL
/
CPMUG
/
CPMUG001.ARK
/
LIOS.ASM
< prev
next >
Wrap
Assembly Source File
|
1984-04-29
|
6KB
|
271 lines
;********************************;
; LOGICAL I/O SYSTEM FOR CP/M ;
;********************************;
;********************************;
; MISCELLANEOUS EQUATES ;
;********************************;
BOOT EQU 0000H ;REBOOT ENTRY POINT
CPM EQU 0005H ;CPM ENTRY POINT
TBUF EQU 0080H ;TRANS. BUFFER
TFCB EQU 005CH ;TRANS. FCB
SDISK EQU 14 ;SET DISK FUNCT. CODE
OPEN EQU 15 ;OPEN FUNCTION CODE
CLOSE EQU 16 ;CLOSE FUNCTION CODE
DELET EQU 19 ;DELETE FUNCTION CODE
READ EQU 20 ;READ FUNCTION CODE
WRITE EQU 21 ;WRITE FUNCTION CODE
CREAT EQU 22 ;CREATE FUNCTION CODE
RENAM EQU 23 ;RENAME FUNCTION CODE
;********************************;
; JUMP VECTORS ;
;********************************;
ORG 1000H
JMP FFCB ;FILL FCB
JMP FMAKE ;FILE CREATE
JMP FOPEN ;FILE OPEN
JMP FCLOS ;FILE CLOSE
JMP FDELE ;DELETE FILE
JMP OUTBT ;BYTE OUTPUT
JMP GETBT ;BYTE INPUT
;********************************;
; F F C B ;
; ROUTINE TO FILL IN ID FIELDS ;
; OF FCB ;
; ;
; INPUTS: HL = A(FCB) ;
; DE = A(ID STRING) ;
; OUTPUTS: CARRY = ERROR ;
;********************************;
FFCB: MVI M,00 ;CLEAR FIRST BYTE OF FCB
INX H ;SKIP BYTE
PUSH H ;SAVE FCB NAME ADDRESS
MVI C,8+3 ;SIZE OF ID FIELD
MVI A,' ' ;SPACE
FFCB0: MOV M,A ;CLEAR ID FIELD TO SPACES
INX H
DCR C
JNZ FFCB0
POP H ;GET ID FIELD ADDR.
MVI C,8 ;MAZ SIZE OF NAME
FFCB1: LDAX D ;GET ID BYTES
CPI ' ' ;LEADING SPACES?
JNZ FFCB2 ;NO, CONTINUE
INX D ;SKIP LEADING SPACES
JMP FFCB1
FFCB2: LDAX D ;GET ID BYTE
CPI 0DH ;CR?
RZ ;YES, DONE
CPI ' ' ;IMBEDDED SPACE?
RZ ;YES, DONE
CPI '.' ;NAME.TYP SEPARATOR?
JZ FFCB3 ;YES, PROCESS TYPE
MOV M,A ;STORE NAME BYTE
INX D
INX H ;BUMP POINTERS
DCR C ;DECREMENT MAX COUNT
JNZ FFCB2 ;LOOP
JMP FFCBE ;ERROR, NAME TOO BIG
FFCB3: INX D ;SKIP OVER '.'
FFCB4: INX H ;SKIP TO TYPE FIELD
DCR C
JNZ FFCB4
MVI C,3 ;SIZE OF TYPE FIELD
FFCB5: LDAX D ;GET ID BYTE
CPI 0DH ;CR?
RZ ;YES, DONE
CPI ' ' ;SPACE?
RZ ;YES, DONE
MOV M,A ;STORE TYPE BYTE
INX D ;BUMP POINTER
INX H
DCR C ;DECREMENT MAX COUNT
JNZ FFCB5 ;LOOP
RET ;DONE
FFCBE: STC ;SET CARRY
RET
;********************************;
; F M A K E ;
; ROUTINE TO CREATE A DISK FILE ;
; ;
; INPUT: DE=A(FCB) ;
; OUTPUT: CARRY=ERROR ;
;********************************;
FMAKE: MVI C,CREAT ;CREATE CODE
CALL CPM ;ISSUE CREATE
CPI 0FFH ;ERROR?
JZ FMERR ;YES
XRA A ;CLEAR CARRY
RET
FMERR: STC ;SET CARRY
RET ;EXIT
;********************************;
; F O P E N ;
; ROUTINE TO OPEN A DISK FILE ;
; ;
; INPUT: DE=A(FCB) ;
; OUTPUT: CARRY=ERROR ;
;********************************;
FOPEN: MVI C,OPEN ;OPNE CODE
CALL CPM ;ISSUE OPEN
CPI 0FFH ;ERROR?
JZ FOERR ;YES
XRA A ;CLEAR CARRY
RET
FOERR: STC
RET
;********************************;
; F C L O S ;
; ROUTINE TO CLOSE A DISK FILE ;
; ;
; INPUT: DE=A(FCB) ;
; OUTPUT: CARRY=ERROR ;
;********************************;
FCLOS: MVI C,CLOSE ;CLOSE CODE
CALL CPM
CPI 0FFH ;ERROR?
JZ FCERR ;YES
XRA A ;CLEAR CARRY
RET
FCERR: STC
RET
;********************************;
; F D E L E ;
; ROUTINE TO DELETE A DISK FILE ;
; ;
; INPUT: DE=A(FCB) ;
;********************************;
FDELE: MVI C,DELET
CALL CPM ;ISSUE DELETE
XRA A ;RESET CARRY
RET
;********************************;
; O U T B T ;
; ROUTINE TO OUTPUT A BYTE ;
; ;
; INPUT: A=BYTE) ;
; OUTPUT: CARRY=ERROR ;
;********************************;
OUTBT: STA TEMP ;SAVE BYTE
OUT1: LXI H,OBUF+128
XCHG ;BUFFER END ADDR IN DE
LHLD OUTPT ;CURRENT ADDR IN HL
CALL CPHL ;TEST FOR END OF BUFFER
JZ OUT2 ;YES, WRITE
LDA TEMP
MOV M,A ;STORE DATA BYTE IN BUFFER
INX H ;BUMP BUFFER POINTER
SHLD OUTPT ;SAVE BUFFER POINTER
ORA A
RET ;EXIT
OUT2: LXI D,OBUF ;POINT TO OUTPUT BUFFER
LXI H,TBUF ;TEMP BUFFER
MVI B,128
CALL MOVE ;COPY BUFFERS
MVI C,WRITE ;WRITE CODE
LXI D,OFCB ;OUTPUT FCB
CALL CPM ;ISSUE WRITE
CPI 00 ;OK?
JNZ OERR ;NO
OUT2A: LXI H,OBUF ;RESET POINTER
SHLD OUTPT
JMP OUT1 ;CONTINUE
OERR: STC
RET
;********************************;
; G E T B T ;
; ROUTINE TO READ A BYTE ;
; ;
; OUTPUTS: A=BYTE ;
; CARRY=ERROR ;
;********************************;
GETBT: LXI H,IBUF+128
XCHG ;BUFFER END ADDR. IN DE
LHLD INPTR ;CURRENT POINTER IN HL
CALL CPHL ;TEST FOR END OF BUFFER
JZ GETB2 ;YES, READ
GETB1: MOV A,M ;GET BYTE
INX H ;BUMP POINTER
SHLD INPTR ;SAVE POINTER
ORA A ;RESET CARRY
RET
GETB2: MVI C,READ ;READ CODE
LXI D,IFCB ;FCB ADDRESS
CALL CPM ;ISSUE READ
CPI 00 ;ERROR?
JNZ IERR ;YES
LXI D,TBUF ;POINT TO TEMP BUFFER
LXI H,IBUF ;INPUT BUFFER
MVI B,128
CALL MOVE ;COPY BUFFER
LXI H,IBUF ;RESET BUFFER POINTER
SHLD INPTR
JMP GETB1 ;CONTINUE
IERR: STC
RET
;********************************;
; MISCELLANEOUS SUBROUTINES ;
;********************************;
;********************************;
; M O V E ;
; ROUTINE TO MOVE BLOCKS OF DATA;
;********************************;
MOVE: LDAX D ;GET BYTE
MOV M,A ;STORE BYTE
INX H
INX D ;BUMPP POINTERS
DCR B ;DECREMENT COUNT
JNZ MOVE ;LOOP
RET
;********************************;
; C P H L ;
; ROUTINE TO COMPARE HL VS DE ;
;********************************;
CPHL: MOV A,H
CMP D
RNZ
MOV A,L
CMP E
RET
;********************************;
; D A T A ;
;********************************;
TEMP: DS 2 ;TEMP SAVE WORD
IFCB: DS 33 ;INPUT FCB
OFCB: DS 33 ;OUTPUT FCB
OUTPT: DW OBUF ;OUTPUT POINTER
INPTR: DW IBUF+128;INPUT POINTER
OBUF: DS 128 ;INPUT BUFFER
IBUF: DS 128 ;OUTPUT BUFFER
END