.TITLE NETMSG IP/TCP interface messages .NLIST BEX,CND .ENABL LC ; ; Pdp11/dcn - IP/TCP interface messages ; ; External symbols ; .GLOBL FORMAT ;format interpreter ; ; Entry symbols ; .GLOBL NETMSG ;net-signal messages .GLOBL RTNMSG ;return-code messages ; ; Procedure segment ; .PSECT $BOSI,RO,I ; ; NETMSG (msg) decode and display net-signal message ; R0 = type r1 = code ; NETMSG: ASL R0 ;display message type ASL R0 MOV SIGMSG+2(R0),-(SP) MOV SIGMSG(R0),R0 JSR PC,FORMAT MOV (SP)+,R0 ;is there a reason code BEQ 1$ ;branch if no ADD R1,R0 ;yes. display it, too ADD R1,R0 MOV @R0,R0 JSR PC,FORMAT 1$: RTS PC ; ; RTNMSG (msg) decode and display return-code message (CTRL, SEND) ; R0 = type ; RTNMSG: ASL R0 ;easy, isn't it MOV OPNTXT(R0),R0 JSR PC,FORMAT RTS PC ; ; Data segment ; .PSECT $BOSD,RO,D ; ; Index table for net-signal messages ; SIGMSG: .WORD NET00,0 ;0 open .WORD NET01,ERRTBL ;1 connection error (reason) .WORD NET02,HNRTBL ;2 host not responding (reason) .WORD NET03,0 ;3 closed .WORD NET04,0 ;4 data available .WORD NET05,RFSTBL ;5 connection reset (reason) .WORD NET04,0 ;6 send complete .WORD NET07,0 ;7 remote disconnect .WORD NET08,0 ;8 remote interrupt .WORD NET04,0 ;9 nsp (decnet) ; ; Index table for 'connection error' strings ; ERRTBL: .WORD NET10 ;0 unspecified reason .WORD NET11 ;1 parameter error .WORD NET12 ;2 time exceeded .WORD NET13 ;3 reassembly error .WORD NET14 ;4 net unreachable .WORD NET15 ;5 host unreachable .WORD NET16 ;6 protocol unreachable .WORD NET17 ;7 port unreachable .WORD NET18 ;8 fragmentation error .WORD NET19 ;9 source route failed .WORD NET1A ;10 gateway down .WORD NET1B ;11 host down ; ; Index table for 'host not responding' strings ; HNRTBL: .WORD NET10 ;0 unspecified reason .WORD NET21 ;1 initial connection timeout .WORD NET22 ;2 ack timeout .WORD NET23 ;3 send window timeout .WORD NET24 ;4 idle connection timeout ; ; Index table for 'connection reset' strings ; RFSTBL: .WORD NET10 ;0 unspecified reason .WORD NET31 ;1 connection-open state .WORD NET32 ;2 data-transfer state .WORD NET33 ;3 connection-close state ; ; Index table for return-code messages ; OPNTXT: .WORD RTN00 ;0 listening... .WORD RTN01 ;1 connection open error .WORD RTN02 ;2 parmameter error .WORD RTN03 ;3 insufficient resources .WORD RTN04 ;4 gateway down .WORD RTN05 ;5 host down .WORD RTN06 ;9 net error .WORD RTN07 ;7 invalid name syntax .WORD RTN08 ;6 name server not responding .WORD RTN09 ;8 name not found .WORD RTN10 ;9 name does not exist ; ; Message strings ; NET00: .ASCIZ 'I-Open' NET01: .ASCIZ 'W-Connection error: ^+' NET02: .ASCIZ 'W-Host not responding: ^+' NET03: .ASCIZ 'I-Closed' NET04: .ASCIZ 'F-Invalid signal' NET05: .ASCIZ 'F-Connection reset: ^+' NET07: .ASCIZ 'I-Remote disconnect' NET08: .ASCIZ 'I-Remote interrupt' NET10: .ASCIZ 'unspecified reason' NET11: .ASCIZ 'parameter error' NET12: .ASCIZ 'time exceeded' NET13: .ASCIZ 'reassembly error' NET14: .ASCIZ 'net unreachable' NET15: .ASCIZ 'host unreachable' NET16: .ASCIZ 'protocol unreachable' NET17: .ASCIZ 'port unreachable' NET18: .ASCIZ 'fragmentation error' NET19: .ASCIZ 'source route failed' NET1A: .ASCIZ 'gateway down' NET1B: .ASCIZ 'host down' NET21: .ASCIZ 'initial connection timeout' NET22: .ASCIZ 'ACK timeout' NET23: .ASCIZ 'send window timeout' NET24: .ASCIZ 'idle connection timeout' NET31: .ASCIZ 'connection-open state' NET32: .ASCIZ 'data-transfer state' NET33: .ASCIZ 'connection-close state' RTN00: .ASCIZ 'I-Listening...' RTN01: .ASCIZ 'F-Connection open error' RTN02: .ASCIZ 'F-Parameter error' RTN03: .ASCIZ 'W-Insufficient resources' RTN04: .ASCIZ 'W-Gateway down' RTN05: .ASCIZ 'W-Host down' RTN06: .ASCIZ 'W-Net error' RTN07: .ASCIZ 'F-Invalid name syntax' RTN08: .ASCIZ 'W-Name server not responding' RTN09: .ASCIZ 'W-Name not found' RTN10: .ASCIZ 'F-Name does not exist' .EVEN ; .END