home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
kermit.columbia.edu
/
kermit.columbia.edu.tar
/
kermit.columbia.edu
/
test
/
pdp11
/
krter2.mac
< prev
next >
Wrap
Text File
|
1996-10-17
|
4KB
|
134 lines
.title rmser2 overlay 2 for rms error text
.ident /V04.64/
; /E64/ 10-May-96 John Santos
;
; From K11ER2.MAC
.psect
.macro save list
.if b , <list>
.ift
save <r0,r1,r2,r3,r4,r5>
.iff
.irp x,<list>
mov x,-(sp)
.endr
.endc
.endm save
.macro unsave list
.if b , <list>
.ift
unsave <r5,r4,r3,r2,r1,r0>
.iff
.irp x,<list>
mov (sp)+,x
.endr
.endc
.endm unsave
rmser2::save <r0,r1,r2> ; be nice to our caller
mov 4(r5) ,r1 ; return buffer address
mov r1 ,r2 ; save buffer address
clrb (r1)+ ; make first char .asciz
mov #77 ,r0 ; clear it out first
10$: movb #40 ,(r1)+ ; fill rest of buffer with spaces
sob r0 ,10$ ; next please
mov #dsp ,r0 ; get the index table for errors
20$: tst @r0 ; hit the end yet ?
beq 100$ ; yes, exit with no text
cmp @2(r5) ,@r0 ; type indexentry = record
beq 30$ ; errnum: integer
cmp (r0)+ ,(r0)+ ; errtxt: textaddress
br 20$ ; end ;
30$: mov 2(r0) ,r0 ; get the error text address
mov #77 ,r1 ; maxlength of 77 (8) bytes
40$: movb (r0)+ ,(r2)+ ; copy until 63 characters or a
beq 50$ ; null byte is found
sob r1 ,40$ ; next please
50$: clrb @r2 ; insure .asciz for output text
100$: unsave <r2,r1,r0> ; pop our registers and exit
return
.psect dsp ,ro,d,lcl,rel,con
dsp:
.psect msgtxt ,ro,d,lcl,rel,con
.macro $ioer$ nam,code,txt
.psect msgtxt
$$ = .
.ascii #nam#
.ascii #-# ;/*60*/
.asciz #txt#
.psect dsp
.word code,$$
nam = code
.psect
.endm
$IOER$ ER$EXT,-624.,<File extend failure (STV=SYS err code)>
$IOER$ ER$FAB,-640.,<Not a valid FAB>
$IOER$ ER$FAC,-656.,<Record operation not supported in FAB FAC>
$IOER$ ER$FAL,-664.,<Remote node does not support operation>
$IOER$ ER$FEX,-672.,<File already exists>
$IOER$ ER$FID,-168.,<Invalid FILE-ID>
$IOER$ ER$FLG,-688.,<Invalid FLAG-BITS combination (STV=@XAB)>
$IOER$ ER$FLK,-704.,<File is locked by other user>
$IOER$ ER$FNA,-712.,<Zero FNA with non-zero FNS>
$IOER$ ER$FND,-720.,<RSX-F11ACP "FIND" function failed (STV=SYS err code)>
$IOER$ ER$FNF,-736.,<File not found>
$IOER$ ER$FNM,-752.,<Error in file name>
$IOER$ ER$FOP,-768.,<Invalid file options>
$IOER$ ER$FSS,-776.,<System error during FNA/DNA string parse>
$IOER$ ER$FUL,-784.,<Device/file full>
$IOER$ ER$IAN,-800.,<Index area number invalid (STV=@XAB)>
$IOER$ ER$IDX,-816.,<Index not initialized (STV only, STS=ER$RNF)>
$IOER$ ER$IFI,-832.,<Invalid IFI value, or unopened file>
$IOER$ ER$IMX,-848.,<Too many XABs of a given type (STV=@XAB)>
$IOER$ ER$INI,-864.,<This error code no longer used>
$IOER$ ER$IOP,-880.,<Operation illegal, or invalid for file org.>
$IOER$ ER$IRC,-896.,<Illegal record encountered (Seq. files only)>
$IOER$ ER$ISI,-912.,<Invalid ISI value, or unconnected RAB>
$IOER$ ER$KBF,-928.,<Bad key buffer address (KBF=0)>
$IOER$ ER$KEY,-944.,<Invalid key field (KEY=0/NEG)>
$IOER$ ER$KRF,-960.,<Invalid key-of-reference ($GET/$FIND)>
$IOER$ ER$KSZ,-976.,<Key size=0, or too large (IDX)/NOT=4(REL)>
$IOER$ ER$LAN,-992.,<Lowest-level-index area number invalid (STV=@XAB)>
$IOER$ ER$LBL,-1008.,<Not ANSI labeled tape>
$IOER$ ER$LBY,-1024.,<Logical channel busy>
$IOER$ ER$LCH,-1040.,<Logical channel number too large>
$IOER$ ER$LEX,-1048.,<Logical extend error>
$IOER$ ER$LIB,-1052.,<Old/inconsistent library configuration (CRASH)>
$IOER$ ER$LOC,-1056.,<"LOC" field invalid (STV=@XAB)>
$IOER$ ER$MAP,-1072.,<Buffer mapping error>
$IOER$ ER$MEM,-1080.,<FNA, DNA, ESA, or RSA string wrapped to zero>
$IOER$ ER$MKD,-1088.,<F11ACP could not mark file for deletion>
$IOER$ ER$MRN,-1104.,<MRN value=NEG/REL. key gt MRN>
$IOER$ ER$MRS,-1120.,<Illegal FAB MRS value>
$IOER$ ER$NAE,-1128.,<Unmappable network access error>
$IOER$ ER$NAM,-1136.,<"NAM" block address zero or odd>
$IOER$ ER$NEF,-1152.,<Not positioned to EOF (Seq. files only)>
$IOER$ ER$NET,-1160.,<Link or network aborted>
$IOER$ ER$NID,-1168.,<This error code no longer in use>
$IOER$ ER$NMF,-1172.,<No more files matching wild-card specification>
$IOER$ ER$NOD,-1176.,<Error in node name (or imbalanced nodes for $RENAME)>
.psect dsp
.word 0,0 ; mark end of text
.end