CP/M/CPM_CDROM.iso/simtel/sigm/vols000/vol076/ed8.c

C/C++ Source or Header | 1984-04-29 | 4.5 KB | 253 lines

/* ED8.C */

/* altered for Software Toolworks compiler with M80 option */
#include ed0.c
#include ed1.ccc
cpmcall(o,c) int o; char c;    /* new: cpmcall absent from original listing */
{
#asm
    POP    H    ;RETURN
    POP    D    ;CHAR C -- INPUT OR OUTPUT
    POP    B    ;INT O -- OPCODE
    PUSH    B
    PUSH    D
    PUSH    H    ;REPLACE RETURN
    CALL    5
    MOV    L,A
    MVI    H,0
/*    RET         Note: Software Tookworks compiler supplies RET */
#endasm
}    /* added */
syscstat()
{
int c;
    c=cpmcall(6,-1);
    if (c==0){        /* correction of original version */
        return(-1);
    }
    else {
        return(c);
    }
}
syscin()    /* extensively altered to recognize escape sequences */
{        /* from H19/H89 special keys */
int s,c;
    while ((c=cpmcall(6,-1))==0) {
        ;
    }
    if (c==ESC1) {
        while ((c=cpmcall(6,-1))==0) {
            ;
        }
        if (c=='?') {
            while ((c=cpmcall(6,-1))==0) {
                ;
            }
/* "switch" and "case" construct can be altered to a sequence of        */
/* "else if" statements if compiler lacks "switch".                */
/* Looks slow, but main body is executed only in command mode and only        */
/* for escape sequences */
            switch (c) {
                case 'q': return(UP1);
                case 'x': return(UP2);
                case 'r': return(DOWN2);
                case 't': return(LEFT1);
                case 'v': return(RIGHT1);
                case 'w': return(INS1);
                case 'M': return(ESC1);
                case 'y': return(DEL1);
                case 'p': return(GTOCH);
                case 's': return(ZAP1);
                case 'n': return(DTOCH);
                case 'u': return(HOME);
                default: continue;
            }
        }
        else {
            switch (c) {
                case 'S': return(DSCROL);
                case 'W': return(USCROL);
                case 'U': return(GOTO);
                case 'V': return(LSTRT);
                case 'Q': return(ABT1);
                case 'P': return(EDIT1);
                case 'T': return(LEND);
                case 'R': return(ESC1);
                case 'J': return(ERASE);
                default: return(c);
            }
        }
    }
    else {
        return(c);
    }
}
syscout(c) char c;
{
    cpmcall(6,c);
    return(c);
}
syslout(c) char c;
{
    cpmcall(5,c);
    return(c);
}
sysend()
{
#asm
    LHLD    6
    DCX    H
/*    RET         Note: Software Tookworks compiler supplies RET */
#endasm
}    /* added */
sysopen(name,mode) char *name, *mode;
{
int file;
    if ((file=fopen(name,mode))==0) {
        return(ERR);
    }
    else {
        return(file);
    }
}
sysclose(file) int file;
{
    fclose(file);
    return(OK);
}
sysrdch(file) int file;
{
int c;
    if ((c=getc(file))==-1) {
        return(EOF);
    }
    else if (c==LF) {    /* map LF to CR for Software Toolworks    */
        return(CR);    /* compiler */
    }
    else {
        return(c);
    }
}
syspshch(c,file) char c; int file;
{
    if (c==CR) {        /* map CR to LF for Software Toolworks     */
        if (putc(LF,file)==-1) {    /* compiler */
            error("disk write failed");
            return(ERR);
        }
    }
    else if (putc(c,file)==-1) {
        error("disk write failed");
        return(ERR);
    }
    else {
        return(c);
    }
}
syspopch(file) int file;
{
    error("syspopch() not implemented");
    return(ERR);
}
syschkfn(args) char *args;
{
    if (args[0] == EOS) {    /* add check for zero-length file name */
        message("no file name");
        return(ERR);
    }
    else {
        return(OK);
    }
}
syscopfn(args,buffer) char *args, *buffer;
{
int n;
    n=0;
    while (n<SYSFNMAX-1) {
        if (args[n]==EOS) {
            break;
        }
        else {
            buffer[n]=args[n];
            n++;
        }
    }
    buffer[n]=EOS;
}
sysdnmov(n,d,s) int n,d,s;
{
/* extensively altered to allow LDDR for Z80 processors using parity check
   for processor type.    Also checks for zero-length move to avoid moving
   everything */
#asm
    POP    PSW    ;RETURN
    POP    H    ;SOURCE
    POP    D    ;DESTINATION
    POP    B    ;LENGTH
    PUSH    PSW    ;RESTORE RETURN
    MOV    A,C
    ORA    B
    JZ    SYSDN3
    MVI    A,2
    INR    A
    JPE    SYSDN1
    DB    0EDH,0B8H    ;LDDR INSTRUCTION FOR Z80
    JMP    SYSDN3
;
SYSDN1: MOV    A,B
    ORA    C
    JZ    SYSDN3
    MOV    A,M
    STAX    D
    DCX    H
    DCX    D
    DCX    B
    JMP    SYSDN1
;
SYSDN3: POP    H
    PUSH    H
    PUSH    H
    PUSH    H
    PUSH    H
/*    RET         Note: Software Tookworks compiler supplies RET */
#endasm
}    /* added */
sysupmov (n,d,s) int n,d,s;
/* extensively altered to allow LDIR for Z80 processors using parity check
   for processor type.    Also checks for zero-length move to avoid moving
   everything */
{
#asm
    POP    PSW    ;RETURN
    POP    H    ;SOURCE
    POP    D    ;DESTINATION
    POP    B    ;LENGTH
    PUSH    PSW    ;RESTORE RETURN
    MOV    A,C
    ORA    B
    JZ    SYSUP3
    MVI    A,2
    INR    A
    JPE    SYSUP1
    DB    0EDH,0B0H    ;LDIR INSTRUCTION FOR Z80
    JMP    SYSUP3
;
SYSUP1: MOV    A,B
    ORA    C
    JZ    SYSUP3
    MOV    A,M
    STAX    D
    INX    H
    INX    D
    DCX    B
    JMP    SYSUP1
;
SYSUP3: POP    H
    PUSH    H
    PUSH    H
    PUSH    H
    PUSH    H
/*    RET         Note: Software Tookworks compiler supplies RET */
#endasm
}    /* added */