home *** CD-ROM | disk | FTP | other *** search
/ kermit.columbia.edu / kermit.columbia.edu.tar / kermit.columbia.edu / test / pdp11 / krter2.mac < prev    next >
Text File  |  1996-10-17  |  4KB  |  134 lines
  1.     .title    rmser2    overlay 2 for rms error text
  2.     .ident /V04.64/
  3.  
  4. ; /E64/    10-May-96  John Santos
  5. ;
  6. ;    From K11ER2.MAC
  7.  
  8.     .psect
  9.  
  10.  
  11.  
  12.     .macro    save    list
  13.     .if b , <list>
  14.     .ift
  15.      save    <r0,r1,r2,r3,r4,r5>
  16.     .iff
  17.     .irp    x,<list>
  18.      mov    x,-(sp)
  19.         .endr
  20.     .endc
  21.     .endm    save
  22.  
  23.  
  24.     .macro    unsave    list
  25.     .if b , <list>
  26.     .ift
  27.     unsave    <r5,r4,r3,r2,r1,r0>
  28.     .iff
  29.     .irp    x,<list>
  30.      mov    (sp)+,x
  31.         .endr
  32.     .endc
  33.     .endm    unsave
  34.  
  35.  
  36. rmser2::save    <r0,r1,r2>        ; be nice to our caller
  37.     mov    4(r5)    ,r1        ; return buffer address
  38.     mov    r1    ,r2        ; save buffer address
  39.     clrb    (r1)+            ; make first char .asciz
  40.     mov    #77    ,r0        ; clear it out first
  41. 10$:    movb    #40    ,(r1)+        ; fill rest of buffer with spaces
  42.     sob    r0    ,10$        ; next please
  43.     mov    #dsp    ,r0        ; get the index table for errors
  44. 20$:    tst    @r0            ; hit the end yet ?
  45.     beq    100$            ; yes, exit with no text
  46.     cmp    @2(r5)    ,@r0        ; type indexentry = record
  47.     beq    30$            ;       errnum: integer
  48.     cmp    (r0)+    ,(r0)+        ;    errtxt: textaddress
  49.     br    20$            ;      end ;
  50.  
  51. 30$:    mov    2(r0)    ,r0        ; get the error text address
  52.     mov    #77    ,r1        ; maxlength of 77 (8) bytes
  53. 40$:    movb    (r0)+    ,(r2)+        ; copy until 63 characters or a
  54.     beq    50$            ; null byte is found
  55.     sob    r1    ,40$        ; next please
  56. 50$:    clrb    @r2            ; insure .asciz for output text
  57.  
  58. 100$:    unsave    <r2,r1,r0>        ; pop our registers and exit
  59.     return
  60.  
  61.  
  62.  
  63.  
  64.     .psect    dsp    ,ro,d,lcl,rel,con
  65. dsp:
  66.     .psect    msgtxt    ,ro,d,lcl,rel,con
  67.     .macro    $ioer$    nam,code,txt
  68.  
  69.     .psect    msgtxt
  70.     $$ = .
  71.     .ascii    #nam#
  72.     .ascii    #-#            ;/*60*/
  73.     .asciz    #txt#
  74.     .psect    dsp
  75.     .word    code,$$
  76.     nam    =    code
  77.     .psect
  78.     .endm
  79.  
  80.  
  81.  
  82.  
  83. $IOER$    ER$EXT,-624.,<File extend failure (STV=SYS err code)>
  84. $IOER$    ER$FAB,-640.,<Not a valid FAB>
  85. $IOER$    ER$FAC,-656.,<Record operation not supported in FAB FAC>
  86. $IOER$    ER$FAL,-664.,<Remote node does not support operation>
  87. $IOER$    ER$FEX,-672.,<File already exists>
  88. $IOER$    ER$FID,-168.,<Invalid FILE-ID>
  89. $IOER$    ER$FLG,-688.,<Invalid FLAG-BITS combination (STV=@XAB)>
  90. $IOER$    ER$FLK,-704.,<File is locked by other user>
  91. $IOER$    ER$FNA,-712.,<Zero FNA with non-zero FNS>
  92. $IOER$    ER$FND,-720.,<RSX-F11ACP "FIND" function failed (STV=SYS err code)>
  93. $IOER$    ER$FNF,-736.,<File not found>
  94. $IOER$    ER$FNM,-752.,<Error in file name>
  95. $IOER$    ER$FOP,-768.,<Invalid file options>
  96. $IOER$    ER$FSS,-776.,<System error during FNA/DNA string parse>
  97. $IOER$    ER$FUL,-784.,<Device/file full>
  98. $IOER$    ER$IAN,-800.,<Index area number invalid (STV=@XAB)>
  99. $IOER$    ER$IDX,-816.,<Index not initialized (STV only, STS=ER$RNF)>
  100. $IOER$    ER$IFI,-832.,<Invalid IFI value, or unopened file>
  101. $IOER$    ER$IMX,-848.,<Too many XABs of a given type (STV=@XAB)>
  102. $IOER$    ER$INI,-864.,<This error code no longer used>
  103. $IOER$    ER$IOP,-880.,<Operation illegal, or invalid for file org.>
  104. $IOER$    ER$IRC,-896.,<Illegal record encountered (Seq. files only)>
  105. $IOER$    ER$ISI,-912.,<Invalid ISI value, or unconnected RAB>
  106. $IOER$    ER$KBF,-928.,<Bad key buffer address (KBF=0)>
  107. $IOER$    ER$KEY,-944.,<Invalid key field (KEY=0/NEG)>
  108. $IOER$    ER$KRF,-960.,<Invalid key-of-reference ($GET/$FIND)>
  109. $IOER$    ER$KSZ,-976.,<Key size=0, or too large (IDX)/NOT=4(REL)>
  110. $IOER$    ER$LAN,-992.,<Lowest-level-index area number invalid (STV=@XAB)>
  111. $IOER$    ER$LBL,-1008.,<Not ANSI labeled tape>
  112. $IOER$    ER$LBY,-1024.,<Logical channel busy>
  113. $IOER$    ER$LCH,-1040.,<Logical channel number too large>
  114. $IOER$    ER$LEX,-1048.,<Logical extend error>
  115. $IOER$    ER$LIB,-1052.,<Old/inconsistent library configuration (CRASH)>
  116. $IOER$    ER$LOC,-1056.,<"LOC" field invalid (STV=@XAB)>
  117. $IOER$    ER$MAP,-1072.,<Buffer mapping error>
  118. $IOER$    ER$MEM,-1080.,<FNA, DNA, ESA, or RSA string wrapped to zero>
  119. $IOER$    ER$MKD,-1088.,<F11ACP could not mark file for deletion>
  120. $IOER$    ER$MRN,-1104.,<MRN value=NEG/REL. key gt MRN>
  121. $IOER$    ER$MRS,-1120.,<Illegal FAB MRS value>
  122. $IOER$    ER$NAE,-1128.,<Unmappable network access error>
  123. $IOER$    ER$NAM,-1136.,<"NAM" block address zero or odd>
  124. $IOER$    ER$NEF,-1152.,<Not positioned to EOF (Seq. files only)>
  125. $IOER$    ER$NET,-1160.,<Link or network aborted>
  126. $IOER$    ER$NID,-1168.,<This error code no longer in use>
  127. $IOER$    ER$NMF,-1172.,<No more files matching wild-card specification>
  128. $IOER$    ER$NOD,-1176.,<Error in node name (or imbalanced nodes for $RENAME)>
  129.  
  130.     .psect    dsp
  131.     .word    0,0            ; mark end of text
  132.  
  133.     .end
  134.