Columbia Kermit/kermit.zip/b/krterr.min

Text File | 2020-01-01 | 4KB | 194 lines

    .title    KRTERR.MIN  Error code to message text translation
    .ident    "V03.62"

; /62/    31-May-93  Billy Youdelman

;    Copyright 1984 Change Software, Inc.

    .include "IN:KRTMAC.MIN"
    .iif ndf  KRTINC  .error    <; .include for IN:KRTMAC.MIN failed>

    .psect    $pdata
    .sbttl    Error codes defined

    cmd$ab    ==    -1
    cmd$ex    ==    -2
    cmd$nx    ==    -3
    cmd$bad    ==    -4
    cmd$un    ==    -5
    er$ful    ==    -6
    er$nmf    ==    -7
    er$iop    ==    -10
    er$sys    ==    -11
    er$lby    ==    -12
    er$rer    ==    -13
    er$wer    ==    -14
    er$prv    ==    -15
    er$rtb    ==    -16
    er$que    ==    -17
    er$nin    ==    -20
    er$lgf    ==    -21
    er$raw    ==    -22
    er$rax    ==    -23
    er$sy1    ==    -24
    er$sy2    ==    -25
    er$sy3    ==    -26
    er$vol    ==    -27
    er$nop    ==    -30
    er$wld    ==    -31
    er$bnl    ==    -32
    er$one    ==    -33
    fa$imp    ==    -34
    fa$nhd    ==    -35
    fa$dio    ==    -36
    fa$ovr    ==    -37
    fa$dfl    ==    -40
    fa$adr    ==    -41
    fa$lun    ==    -42
    er$try    ==    -43
    er$tim    ==    -44
    ld$bsy    ==    -45
    er$txp    ==    -46
    er$bad    ==    -47
    er$sam    ==    -50
    er$sun    ==    -51
    er$ass    ==    -52
    er$unr    ==    -53
    er$amb    ==    -54
    er$snd    ==    -55
    er$dk    ==    -56
    er$tam    ==    -57
    er$tun    ==    -60
    er$ser    ==    -61
    er$inr    ==    -62
    er$oct    ==    -63
    er$dev    ==    -64
    er$eof    ==    -65
    er$fnf    ==    -66
    er$iln    ==    -67
    er$aop    ==    -70
    er$lwe    ==    -71
    er$fnm    ==    -72

    maxerr    ==     72


    .sbttl    Error messages mapped

errmap:    .word    baderr
    .word    10$,20$,30$,40$,50$,60$,70$,100$,110$,120$
    .word    130$,140$,150$,160$,170$,200$,230$,240$,250$
    .word    300$,310$,320$,340$,350$,360$,400$,410$,440$
    .word    450$,460$,500$,510$,520$,530$,560$,610$,620$
    .word    630$,640$,650$,660$,700$,730$,740$,750$
    .word    1000$,1010$,1020$,1030$,1060$,1300$,1310$
    .word    1320$,1330$,1340$,1350$,1550$,1560$

10$:
20$:
30$:
40$:
50$:    .asciz    "Error handling failed!"
60$:    .asciz    "Not enough room"
70$:    .asciz    "No more files"
100$:    .asciz    "Invalid I/O request"
110$:    .asciz    "System error"
120$:    .asciz    "Logical unit already open"
130$:    .asciz    "Device read error"
140$:    .asciz    "Device write error"
150$:    .asciz    "File is protected"
160$:    .asciz    "Record too long for GETREC buffer"
170$:    .asciz    "No queue element free"
200$:    .asciz    "No data available"
230$:    .asciz    "Please open a LOGFILE first"
240$:    .asciz    "Can't log RAW I/O with another disk_based DEBUG option set"
250$:    .asciz    "Can't do this with RAW I/O logging on"
300$:    .asciz    ".CLOSE system error"
310$:    .asciz    ".CSISPC system error"
320$:    .asciz    ".ENTER system error"
340$:    .asciz    "Disk home block not RT-11 format, see HELP SET FILE NOVOL"
350$:    .asciz    "I/O channel not open"
360$:    .asciz    "Multiple files or wildcarding not supported here"
400$:    .asciz    "Maximum of 31 entries in the BINARY_TYPE list"
410$:    .asciz    "Illegal file type string"
440$:    .asciz    "Unknown .SERR error"
450$:    .asciz    "No device handler or device not responding"
460$:    .asciz    "Directory I/O error"
500$:    .asciz    "Overlay read error"
510$:    .asciz    "Directory is full"
520$:    .asciz    "Invalid address"
530$:    .asciz    "Invalid channel"
560$:    .asciz    "Retries must be between 3 and 30"
610$:    .asciz    "Time_out must be between 0 and 94"
620$:    .asciz    "Channel open to a logical disk"
630$:    .asciz    "Minimum packet length is 20"
640$:    .asciz    "Bad option or value"
650$:    .asciz    "Ambiguous SET command"
660$:    .asciz    "Unrecognizable SET command"
700$:    .asciz    "Syntax is ASS dev DK, only DK is supported"
730$:    .asciz    "Unrecognizable command"
740$:    .asciz    "Ambiguous command"
750$:    .asciz    "Syntax is SEND file.typ [dev:][asfile.new]"
1000$:    .asciz    "The only supported logical assign is DK"
1010$:    .asciz    "Ambiguous topic"
1020$:    .asciz    "Unrecognizable topic"
1030$:    .asciz    "Server sub-commands are not supported"
1060$:    .asciz    "Invalid number of retries"
1300$:    .asciz    "Range is 1 to 36 octal"
1310$:    .asciz    "Device not responding"
1320$:    .asciz    "End of file"
1330$:    .asciz    "File not found"
1340$:    .asciz    "Illegal logical name"
1350$:    .asciz    "Ambiguous option or value"
1550$:    .asciz    "Logfile write error"
1560$:    .asciz    "Bad file name"
baderr:    .asciz    "Unknown error  r0 = "
    .even


    .psect    $code
    .sbttl    Error message generator

syserr::save    <r0,r1,r2>
    mov    #baderr    ,r1
    mov    2(r5)    ,r2

    movb    #'?    ,(r2)+
    mov    #prompt    ,r0
1$:    movb    (r0)+    ,(r2)+
    beq    2$
    cmpb    -1(r2)    ,#'z!40
    bhi    1$
    cmpb    -1(r2)    ,#'a!40
    blo    1$
     bicb    #40    ,-1(r2)
    br    1$
2$:    dec    r2
    cmpb    -1(r2)    ,#'>
    bne    3$
    tstb    -(r2)
3$:    movb    #'-    ,(r2)+
    movb    #'E    ,(r2)+
    movb    #'-    ,(r2)+
    mov    (r5)    ,r0
    bge    10$
    neg    r0
10$:    cmp    r0    ,#maxerr
    bhi    20$
    asl    r0
    mov    errmap(r0),r1
20$:    mov    r1    ,-(sp)
30$:    movb    (r1)+    ,(r2)+
    bne    30$
    cmp    (sp)+    ,#baderr
    bne    100$
    movb    #'<    ,-1(r2)
    calls    l$otoa    ,<r2,2(r5)>
    add    #6    ,r2
    movb    #'>    ,(r2)+
    clrb    (r2)
100$:    unsave    <r2,r1,r0>
    return

    .end