Command > + I T L Name F Leng Index/Init/EM/Name/Comment Top - ----------------------------- - ---- --------------------------------- * * LOCAL DATA AREA FOR GOPHER SERVER * * 1 #NULL A 1 /* H'00' 1 #HEX-EF A 1 /* H'EF' 1 #HEX-FE A 1 /* H'FE' 1 #EOF A 1 /* H'FF' 1 #CR A 1 /* H'0D' * 1 #BLANK A 1 /* MVS=H'40' UNIX=H'20 1 #TAB A 1 /* MVS=H'05' UNIX=H'09' 1 #LF A 1 /* MVS=H'15' UNIX=H'0A' 1 #CRLF A 2 /* MVS=H'0D15' UNIX=H'0D0A' * * END OF MESSAGE 1 #EOM A 4 /*M=H'4B0D1500' U=H'2E0D0A00' * 1 #DQU A 1 INIT /* DOUBLE QUOTE * * 1 #DATN N 8 R 1 #DATN /* REDEF. BEGIN : #DATN 2 #DATN-CC A 2 2 #DATN-YY A 2 2 #DATN-MM A 2 2 #DATN-DD A 2 R 1 #DATN /* REDEF. BEGIN : #DATN 2 #DATN-A A 8 1 #TIMN N 7 R 1 #TIMN /* REDEF. BEGIN : #TIMN 2 #TIMN-A A 7 * * * * LOCAL DATA AREA FOR MOSAIC %XX TO EBCDIC CONVERSION * 1 #PERTABLEN N 2 INIT<35> /* NUM OF TABLE ENTRIES 1 #PERTST A 2 /* USE TO TEST AGAINST TABLE R 1 #PERTST 2 #P-TS A 1 (1:2) /*FILL IN 1 CHAR AT A TIME 1 #P-REPLACE A 1 /* THE EBCDIC REPLACEMENT AREA * * * * TABLE OF MOSAIC %XX ASCII TO 1 CHAR EBCDIC TRANSLATE TABLE * 1 #PERHEX 2 #PERHX00 A 2 INIT<'09'> /* tab 2 #PERHF00 A 1 INIT<'+'> /* + becomes space 2 #PERHX01 A 2 INIT<'0A'> /* LINE FEED 2 #PERHF01 A 1 INIT<'+'> /* + BECOMES SPACE 2 #PERHX02 A 2 INIT<'0D'> /* CARRIAGE RETURN 2 #PERHF02 A 1 INIT<'+'> /* + BECOMES SPACE 2 #PERHX03 A 2 INIT<'20'> /* SPACE 3/3/95 2 #PERHF03 A 1 INIT<'+'> /* USE + -> SPACE 2 #PERHF03A A 2 INIT<'21'> /* ! 2 #PERHF03B A 1 INIT 2 #PERHX04 A 2 INIT<'22'> /* " 2 #PERHF04 A 1 INIT 2 #PERHX05 A 2 INIT<'23'> /* # 2 #PERHF05 A 1 INIT 2 #PERHX06 A 2 INIT<'24'> /* $ 2 #PERHF06 A 1 INIT 2 #PERHX07 A 2 INIT<'25'> /* % 2 #PERHF07 A 1 INIT 2 #PERHX08 A 2 INIT<'26'> /* & 2 #PERHF08 A 1 INIT 2 #PERHX09 A 2 INIT<'27'> /* ' 2 #PERHF09 A 1 INIT 2 #PERHX10 A 2 INIT<'28'> /* ( 2 #PERHF10 A 1 INIT 2 #PERHX11 A 2 INIT<'29'> /* ) 2 #PERHF11 A 1 INIT 2 #PERHX12 A 2 INIT<'2A'> /* * 2 #PERHF12 A 1 INIT 2 #PERHX13 A 2 INIT<'2B'> /* ?? + CONFUSION 2 #OTHERPLUS A 1 INIT /* NOT THE REQULAR + 2 #PERHX14 A 2 INIT<'2C'> /* , 2 #PERHF14 A 1 INIT 2 #PERHX15 A 2 INIT<'2E'> /* . 2 #PERHF15 A 1 INIT 2 #PERHX16 A 2 INIT<'2F'> /* / 2 #PERHF16 A 1 INIT 2 #PERHX17 A 2 INIT<'3A'> /* : 2 #PERHF17 A 1 INIT 2 #PERHX18 A 2 INIT<'3B'> /* ; 2 #PERHF18 A 1 INIT 2 #PERHX19 A 2 INIT<'3C'> /* < 2 #PERHF19 A 1 INIT 2 #PERHX20 A 2 INIT<'3D'> /* = 2 #PERHF20 A 1 INIT 2 #PERHX21 A 2 INIT<'3E'> /* > 2 #PERHF21 A 1 INIT 2 #PERHX22 A 2 INIT<'3F'> /* ? 2 #PERHF22 A 1 INIT 2 #PERHX23 A 2 INIT<'5B'> /* LEFT SQ BRACKET 2 #PERHF23 A 1 INIT 2 #PERHX24 A 2 INIT<'5C'> /* \ 2 #PERHF24 A 1 INIT 2 #PERHX25 A 2 INIT<'5D'> /* RIGHT SQ BRACKET 2 #PERHF25 A 1 INIT 2 #PERHX26 A 2 INIT<'5E'> /* UPSIDE DOWN V 2 #PERHF26 A 1 INIT /* 1/31/95 2 #PERHX27 A 2 INIT<'5F'> /* _ 2 #PERHF27 A 1 INIT 2 #PERHX28 A 2 INIT<'60'> /* ` 2 #PERHF28 A 1 INIT 2 #PERHX29 A 2 INIT<'7B'> /* { 2 #PERHF29 A 1 INIT 2 #PERHX30 A 2 INIT<'7C'> /* | 2 #PERHF30 A 1 INIT 2 #PERHX31 A 2 INIT<'7D'> /* } 2 #PERHF31 A 1 INIT 2 #PERHX32 A 2 INIT<'7E'> /* ~ 2 #PERHF32 A 1 INIT 2 #PERHX33 A 2 INIT<'FF'> 2 #PERHF33 A 1 INIT R 1 #PERHEX 2 #PERHASCGP (1:35) 3 #PERHASC A 2 3 #PERETAB A 1 * * * *** USED TO MOVE THE B1'S OF THE IP ADDRESS TO N3 FOR PRINTING * 1 #IPADDRPRINT 2 #XIP1 N 3 /* IPADDR OF REQUESTOR 2 #XIP2 N 3 2 #XIP3 N 3 2 #XIP4 N 3 R 1 #IPADDRPRINT 2 #XIP1A A 3 /* IPADDR OF REQUESTOR 2 #XIP2A A 3 2 #XIP3A A 3 2 #XIP4A A 3