home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
kermit.columbia.edu
/
kermit.columbia.edu.tar
/
kermit.columbia.edu
/
archives
/
kermit11.zip
/
k11er3.mac
< prev
next >
Wrap
Text File
|
1989-06-13
|
4KB
|
133 lines
.title rmser3 overlay 3 of 3 for rms error text
.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
rmser3::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 # #
.asciz #txt#
.psect dsp
.word code,$$
nam = code
.psect
.endm
$IOER$ ER$NPK,-1184.,<INDEXED FILE-NO PRIMARY KEY DEFINED>
$IOER$ ER$OPN,-1200.,<RSTS/E OPEN FUNCTION FAILED(STV=SYS ERR CODE)>
$IOER$ ER$ORD,-1216.,<XAB'S NOT IN CORRECT ORDER>
$IOER$ ER$ORG,-1232.,<INVALID FILE ORGANIZATION VALUE>
$IOER$ ER$PLG,-1248.,<ERROR IN FILE'S PROLOGUE(RECONSTRUCT FILE)>
$IOER$ ER$PLV,-1256.,<FILE PROLOGUE VERSION LEVEL UNSUPPORTED>
$IOER$ ER$POS,-1264.,<"POS" FIELD INVALID(POS GT MRS,STV=@XAB)>
$IOER$ ER$PRM,-1280.,<BAD FILE DATE FIELD RETRIEVED(STV=@XAB)>
$IOER$ ER$PRV,-1296.,<PRIVILEGE VIOLATION(OS DENIES ACCESS)>
$IOER$ ER$RAB,-1312.,<NOT A VALID RAB>
$IOER$ ER$RAC,-1328.,<ILLEGAL RAC VALUE>
$IOER$ ER$RAT,-1344.,<ILLEGAL RECORD ATTRIBUTES>
$IOER$ ER$RBF,-1360.,<INVALID RECORD BUFFER ADDR>
$IOER$ ER$RER,-1376.,<FILE READ ERROR(STV=SYS ERR CODE)>
$IOER$ ER$REX,-1392.,<RECORD ALREADY EXISTS>
$IOER$ ER$RFA,-1408.,<BAD RFA VALUE>
$IOER$ ER$RFM,-1424.,<INVALID RECORD FORMAT>
$IOER$ ER$RLK,-1440.,<TARGET BUCKET LOCKED BY ANOTHER ACCESSOR>
$IOER$ ER$RMV,-1456.,<RSX-F11ACP REMOVE FUNCTION FAILED(STV=SYS ERR CODE)>
$IOER$ ER$RNF,-1472.,<RECORD NOT FOUND(STV=0/ER$IDX)>
$IOER$ ER$RNL,-1488.,<RECORD NOT LOCKED>
$IOER$ ER$ROP,-1504.,<INVALID RECORD OPTIONS>
$IOER$ ER$RPL,-1520.,<ERROR WHILE READING PROLOGUE(STV=SYS ERR CODE)>
$IOER$ ER$RRV,-1536.,<INVALID RRV RECORD ENCOUNTERED>
$IOER$ ER$RSA,-1552.,<THIS ERROR CODE NO LONGER USED>
$IOER$ ER$RSL,-1556.,<NO RESULTANT STRING IN RESULTANT STRING AREA>
$IOER$ ER$RSS,-1560.,<INVALID RESULTANT STRING SIZE>
$IOER$ ER$RST,-1564.,<INVALID RESULTANT STRING ADDRESS>
$IOER$ ER$RSZ,-1568.,<BAD RECORD SIZE>
$IOER$ ER$RTB,-1584.,<RECORD TOO BIG FOR USER'S BUFFER(STV=ACTUAL REC SIZE)>
$IOER$ ER$RVU,-1592.,<RRV UPDATE ERROR ON INSERT>
$IOER$ ER$SEQ,-1600.,<PRIMARY KEY OUT OF SEQUENCE(RAC=RB$SEQ FOR $PUT)>
$IOER$ ER$SHR,-1616.,<UNRECOGNIZABLE VALUE IN FAB SHR FIELD>
$IOER$ ER$SIZ,-1632.,<"SIZ" FIELD INVALID(STV=@XAB)>
$IOER$ ER$STK,-1648.,<THIS ERROR CODE NO LONGER USED>
$IOER$ ER$SUP,-1656.,<OPERATION UNSUPPORTED OVER NETWORK>
$IOER$ ER$SYS,-1664.,<SYSTEM DIRECTIVE ERROR(STV=SYS ERR CODE)>
$IOER$ ER$TRE,-1680.,<INDEX TREE ERROR>
$IOER$ ER$TYP,-1696.,<ERROR IN FILE TYPE EXTENSION>
$IOER$ ER$UBF,-1712.,<INVALID USER BUFFER ADDR>
$IOER$ ER$UIN,-1720.,<FAL REJECTED SOME FIELD (STV TELLS WHICH)>
$IOER$ ER$USZ,-1728.,<INVALID USER BUFFER SIZE(USZ=0)>
$IOER$ ER$VER,-1744.,<ERROR IN VERSION NUMBER>
$IOER$ ER$VOL,-1760.,<INVALID VOLUME NUMBER(STV=@XAB)>
$IOER$ ER$WCD,-1768.,<WILD CARD ENCOUNTERED DURING FNA/DNA STRING PARSE>
$IOER$ ER$WER,-1776.,<FILE WRITE ERROR(STV=SYS ERR CODE)>
$IOER$ ER$WLK,-1784.,<DEVICE IS WRITE-LOCKED>
$IOER$ ER$WPL,-1792.,<ERROR WHILE WRITING PROLOGUE(STV=SYS ERR CODE)>
$IOER$ ER$XAB,-1808.,<NOT A VALID XAB(@XAB=ODD,STV=@XAB)>
$IOER$ ER$XTR,-1824.,<EXTRANEOUS FIELD DETECTED DURING PARSE>
.psect dsp
.word 0,0 ; mark end of text
.end