470$,500$,510$,520$,530$ .word 540$,550$,560$ .word baderr,0 5$: .byte 0 10$: .asciz #Can't create file# 20$: .asciz #Invalid device name# 30$: .asciz #End of file# 40$: .asciz #File not found# 50$: .asciz #Bad filename# 60$: .asciz #Device full# 70$: .asciz #No more files# 100$: .asciz #Invalid i/o operation 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 large for user buffer# 170$: .asciz #No QUE elements available# 200$: .asciz #MT service - No data available/Buffer overflow# 210$: .asciz #MT service - Line not attached# 220$: .asciz #MT service - Non-existent unit# 230$: .asciz #MT service - Device not available# 240$: .asciz #MT service - Bad user buffer address (XM)# 250$: .asciz #Multiple Terminal Service support not present in executive# 260$: .asciz #MT service - RT11 device unit not mapped to internal LUN# 270$: .asciz #Unknown speed# 300$: .asciz #System error from RT11 .CLOSE# 310$: .asciz #System error from RT11 .CSISPC# 320$: .asciz #System error from RT11 .ENTER# 330$: .asciz #System error from RT11 .FETCH# 340$: .asciz #Disk home block is not RT11 format# 350$: .asciz #I/O channel not open# 360$: .asciz #Wildcarding not supported for this operation# 370$: .asciz #Could not open the XC/XL port# 400$: .asciz #Invalid function code to .SPFUN for XC:/XL:# 410$: .asciz #Hard I/O error on device XC:/XL:# 420$: .asciz #Insufficient lowcore memory to load handler# 430$: .asciz #Unknown serial line device name# 440$: .asciz #Internal/unknown error from .SERR# ; /51/ 450$: .asciz #NO device handler# ; /51/ 460$: .asciz #Error doing directory I/O# ; /51/ 470$: .asciz #.FETCH error, please manually load handler# ; /51/ 500$: .asciz #Overlay read error# ; /51/ 510$: .asciz #No room for file in directory# ; /51/ 520$: .asciz #Invalid address# ; /51/ 530$: .asciz #Invalid channel# ; /51/ 540$: .asciz #Invalid directory structure# ; /51/ 550$: .asciz #Can't .FETCH handler in Foreground. Please LOAD it# ; /51/ 560$: .asciz #PLAS mapping error# .even plaser::.word 5$,10$,20$,30$,40$,50$,60$,70$,100$,110$ 5$: .asciz #PLAS- Window alingnment error# 10$: .asciz #PLAS- Attempt to define more the seven windows# 20$: .asciz #PLAS- Invalid region identifier# 30$: .asciz #PLAS- Invalid window identifier# 40$: .asciz #PLAS- Offset into window inconsistent with map size# 50$: .asciz #PLAS- Specified window not mapped# 60$: .asciz #PLAS- No region control blocks available# 70$: .asciz #PLAS- Insufficient memory available to create region# 100$: .asciz #PLAS- Invalid region size or insufficient contiguous memory# 110$: .asciz #PLAS- Unknown plas error# .even .sbttl error print and mapping .psect $code maperr::asl r0 mov plaser(r0),r0 return ; R M S E R R ; ; input: @2(r5) error number (fortran/bp2 calling standard) ; output: 4(r5) the error text syserr::calls rmserr ,<#2,r5,2(r5)> ; simple return rmserr::save ; the registers we will use mov #baderr ,r1 ; preset bad error text mov 4(r5) ,r0 ; insure default of nothing clrb @r0 ; .asciz mov @2(r5) ,r0 ; the error number bge 10$ ; must change into > 0 neg r0 ; make it > 0 10$: cmp r0 ,#maxerr ; is this a valid call today? bhi 20$ ; yes asl r0 ; no, get error number into word mov errmap(r0),r1 ; offset and get the text address 20$: mov 4(r5) ,r0 ; where to put the error text mov r1 ,-(sp) 30$: movb (r1)+ ,(r0)+ ; copy it until a null byte bne 30$ ; next please cmp (sp)+ ,#baderr ; ?Unknown error call ? bne 100$ ; no movb #'( ,-1(r0) ; yes, convert the error number deccvt @2(r5) ,r0 ; so we can see what it was add #6 ,r0 ; skip past the converted number movb #') ,(r0)+ ; terminate the string movb #40 ,(r0)+ ; a space to be nice clrb @r0 ; finally, .asciz please 100$: unsave ; pop registers we used and exit return ; bye .end K11RTEMAC[.050032]K11RTE.MAC[.050032]~   X14|H [4;Ik(&'( k ߫H&P` \RrPP2PPzPP{PPPPP2P~\$\\TD 0D \~ hi) +\ ^( n ^( np\^txY\^ˀ\!kVk<\F˰<˴ˬ\VVkˤ1`@lP ABCDEFGHIJKLMNOPQRSTUVWXYZ$.?0123456789<@<SЬTЬ UQS>?\\\\\\\\\`:#@'="\abcdefghi\\\\\\\jklmnopqr\\\\\\\~stuvwxyz\\\\\\\\\\\\\\\\\\\\\\{ABCDEFGHI\\\\\\}JKLMNOPQR\\\\\\\\STUVWXYZ\\\\\\0123456789\\\\\