home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
archives
/
krt11.tar.gz
/
krt11.tar
/
krterr.min
< prev
next >
Wrap
Text File
|
1997-10-17
|
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