|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 6144 (0x1800) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0500e0
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0ab8 | | .CONST 0x0ab8 ; Offset of debug table 0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction 0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion 0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments) 0007 8006 | | .CONST 0x8006 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0010 | | .CONST 0x0010 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0001 | | .CONST 0x0001 ; Number of locals 000b INIT_0008: 000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 000f 00c7 | | Action Elaborate_Subprogram 0010 BODY_0008: 0010 00bc | | Action Signal_Activated 0011 00bb | | Action Signal_Completion 0012 0000 0000 | | .BLANK 0000[0x6] 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 0087 | | .CONST 0x0087 ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0013 | | .CONST 0x0013 ; Number of locals 001b INIT_0018: 001b e5fb | | Load 0x2,-0x5 001c 0092 0850 | P| Action Push_String_Extended,0x850 ; ".Remote_Access" 001e 01cc | | Execute Vector,Catenate 001f 0007 | | Action Break_Optional 0020 4801 |H | Short_Literal 0x1 0021 4806 |H | Short_Literal 0x6 0022 00e9 | | Load_Encached String_Cache 0023 0334 | 4 | Declare_Variable Array,With_Constraint 0024 509f |P | Indirect_Literal Any,0xc4,{0x7463702f, 0x69702020} 0025 e001 | | Load 0x0,0x1 0026 180f | | Execute Package,Field_Execute,Field_Number 0xf 0027 00e9 | | Load_Encached String_Cache 0028 02a0 | | Declare_Subprogram Null_Subprogram 0029 4818 |H | Short_Literal 0x18 002a 03d3 | | Declare_Type Access,Defined,Accesses_Protected 002b 00d8 | | Load_Top At_Offset_0 002c 0007 | | Action Break_Optional 002d 00d9 | | Load_Top At_Offset_1 002e 00da | | Load_Top At_Offset_2 002f 00db | | Load_Top At_Offset_3 0030 02a0 | | Declare_Subprogram Null_Subprogram 0031 4803 |H | Short_Literal 0x3 0032 032d | - | Declare_Type Record,Defined 0033 00d8 | | Load_Top At_Offset_0 0034 02a0 | | Declare_Subprogram Null_Subprogram 0035 4818 |H | Short_Literal 0x18 0036 03d3 | | Declare_Type Access,Defined,Accesses_Protected 0037 e002 | | Load 0x0,0x2 0038 e003 | | Load 0x0,0x3 0039 4864 |Hd | Short_Literal 0x64 003a 00db | | Load_Top At_Offset_3 003b 4801 |H | Short_Literal 0x1 003c e004 | | Load 0x0,0x4 003d 0387 | | Declare_Variable Package 003e 00d8 | | Load_Top At_Offset_0 003f 020f | | Execute Module,Activate 0040 00d8 | | Load_Top At_Offset_0 0041 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0042 4800 |H | Short_Literal 0x0 0043 4801 |H | Short_Literal 0x1 0044 029f 00cb | | Declare_Subprogram INIT_00c8,For_Call 0046 03fd | | Declare_Type Discrete,Defined 0047 e005 | | Load 0x0,0x5 0048 e006 | | Load 0x0,0x6 0049 00da | | Load_Top At_Offset_2 004a 4800 |H | Short_Literal 0x0 004b 4801 |H | Short_Literal 0x1 004c 4801 |H | Short_Literal 0x1 004d 0092 0851 | Q| Action Push_String_Extended,0x851 ; "others => Unspecified" 004f 00ea | | Load_Encached Null_String_Cache 0050 00ea | | Load_Encached Null_String_Cache 0051 4801 |H | Short_Literal 0x1 0052 4801 |H | Short_Literal 0x1 0053 e007 | | Load 0x0,0x7 0054 0387 | | Declare_Variable Package 0055 00d8 | | Load_Top At_Offset_0 0056 020f | | Execute Module,Activate 0057 4800 |H | Short_Literal 0x0 0058 480b |H | Short_Literal 0xb 0059 029f 00f3 | | Declare_Subprogram INIT_00f0,For_Call 005b 03fd | | Declare_Type Discrete,Defined 005c e008 | | Load 0x0,0x8 005d e009 | | Load 0x0,0x9 005e 00da | | Load_Top At_Offset_2 005f 4800 |H | Short_Literal 0x0 0060 4801 |H | Short_Literal 0x1 0061 480b |H | Short_Literal 0xb 0062 0092 0852 | R| Action Push_String_Extended,0x852 ; "Laser_Comm | Reverse_Output_Pages => Boolean_Valued, others => unspecified" 0064 00ea | | Load_Encached Null_String_Cache 0065 00ea | | Load_Encached Null_String_Cache 0066 4801 |H | Short_Literal 0x1 0067 480b |H | Short_Literal 0xb 0068 e007 | | Load 0x0,0x7 0069 0387 | | Declare_Variable Package 006a 00d8 | | Load_Top At_Offset_0 006b 020f | | Execute Module,Activate 006c 4800 |H | Short_Literal 0x0 006d 4804 |H | Short_Literal 0x4 006e 029f 011b | | Declare_Subprogram INIT_0118,For_Call 0070 03fd | | Declare_Type Discrete,Defined 0071 4800 |H | Short_Literal 0x0 0072 4802 |H | Short_Literal 0x2 0073 029f 0143 | C| Declare_Subprogram INIT_0140,For_Call 0075 03fd | | Declare_Type Discrete,Defined 0076 e00a | | Load 0x0,0xa 0077 e00b | | Load 0x0,0xb 0078 00da | | Load_Top At_Offset_2 0079 4800 |H | Short_Literal 0x0 007a 4800 |H | Short_Literal 0x0 007b 4801 |H | Short_Literal 0x1 007c e40d | | Load 0x2,0xd 007d 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32 007e 0387 | | Declare_Variable Package 007f 00d8 | | Load_Top At_Offset_0 0080 020f | | Execute Module,Activate 0081 029f 016b | k| Declare_Subprogram INIT_0168,For_Call 0083 029f 01bb | | Declare_Subprogram INIT_01b8,For_Call 0085 029f 01f3 | | Declare_Subprogram INIT_01f0,For_Call 0087 BODY_0018: 0087 e5fa | | Load 0x2,-0x6 0088 7018 |p | Jump_Nonzero 0xa1 0089 e00c | | Load 0x0,0xc 008a 1811 | | Execute Package,Field_Execute,Field_Number 0x11 008b e5fb | | Load 0x2,-0x5 008c 8413 | | Call 0x2,0x13 008d 7008 |p | Jump_Nonzero 0x96 008e 0092 0853 | S| Action Push_String_Extended,0x853 ; "<ERRORS>" 0090 00ea | | Load_Encached Null_String_Cache 0091 4800 |H | Short_Literal 0x0 0092 4801 |H | Short_Literal 0x1 0093 e5fb | | Load 0x2,-0x5 0094 e00d | | Load 0x0,0xd 0095 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0096 0092 0854 | T| Action Push_String_Extended,0x854 ; "Holding" 0098 e00c | | Load 0x0,0xc 0099 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 009a 680d |h | Jump_Zero 0xa8 009b 00ea | | Load_Encached Null_String_Cache 009c 0092 0854 | T| Action Push_String_Extended,0x854 ; "Holding" 009e e00c | | Load 0x0,0xc 009f 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00a0 7807 |x | Jump 0xa8 00a1 0092 0855 | U| Action Push_String_Extended,0x855 ; ">>> Set EFFORT_ONLY to false for these settings to take effect <<<" 00a3 e00e | | Load 0x0,0xe 00a4 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 00a5 4801 |H | Short_Literal 0x1 00a6 e00e | | Load 0x0,0xe 00a7 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 00a8 e408 | | Load 0x2,0x8 00a9 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00aa 4864 |Hd | Short_Literal 0x64 00ab e408 | | Load 0x2,0x8 00ac 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00ad c409 | | Store 0x2,0x9 00ae e5ff | | Load 0x2,-0x1 00af 8411 | | Call 0x2,0x11 00b0 e5fe | | Load 0x2,-0x2 00b1 8411 | | Call 0x2,0x11 00b2 e405 | | Load 0x2,0x5 00b3 6804 |h | Jump_Zero 0xb8 00b4 e5fc | | Load 0x2,-0x4 00b5 e5fd | | Load 0x2,-0x3 00b6 8412 | | Call 0x2,0x12 00b7 4507 |E | Exit_Suprogram New_Top_Offset 0x7 00b8 0092 0856 | V| Action Push_String_Extended,0x856 ; "The file " 00ba e5fc | | Load 0x2,-0x4 00bb 01cc | | Execute Vector,Catenate 00bc 0092 0857 | W| Action Push_String_Extended,0x857 ; " will not be created" 00be 01cc | | Execute Vector,Catenate 00bf e00e | | Load 0x0,0xe 00c0 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 00c1 4507 |E | Exit_Suprogram New_Top_Offset 0x7 00c2 0000 0000 | | .XXX[0x2] 00c4 7463 702f |tcp/| .LITERAL {0x7463702f, 0x69702020} 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00cb | | .CONST 0x00cb ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0001 | | .CONST 0x0001 ; Number of locals 00cb BODY_00c8: 00cb INIT_00c8: 00cb 4607 |F | Jump_Case 0x8 00cc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 00cd 7806 |x | Jump 0xd4 ; case 0x1 00ce 7809 |x | Jump 0xd8 ; case 0x2 00cf 780d |x | Jump 0xdd ; case 0x3 00d0 7810 |x | Jump 0xe1 ; case 0x4 00d1 7811 |x | Jump 0xe3 ; case 0x5 00d2 7812 |x | Jump 0xe5 ; case 0x6 00d3 7815 |x | Jump 0xe9 ; case 0x7 00d4 00da | | Load_Top At_Offset_2 00d5 0091 083a | :| Action Push_String_Extended_Indexed,0x83a ; "NIL" 00d7 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00d8 00db | | Load_Top At_Offset_3 00d9 00db | | Load_Top At_Offset_3 00da 00e0 | | Load_Encached Standard_Cache 00db 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00dc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00dd 00da | | Load_Top At_Offset_2 00de 00e0 | | Load_Encached Standard_Cache 00df 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00e0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00e1 00db | | Load_Top At_Offset_3 00e2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00e3 00db | | Load_Top At_Offset_3 00e4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00e5 e40a | | Load 0x2,0xa 00e6 00dc | | Load_Top At_Offset_4 00e7 0267 | g | Execute Discrete,Predecessor 00e8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00e9 e40a | | Load 0x2,0xa 00ea 00dc | | Load_Top At_Offset_4 00eb 0268 | h | Execute Discrete,Successor 00ec 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00ed 0000 0000 | | .XXX[0x3] 00ef 0000 | | 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00f3 | | .CONST 0x00f3 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0001 | | .CONST 0x0001 ; Number of locals 00f3 BODY_00f0: 00f3 INIT_00f0: 00f3 4607 |F | Jump_Case 0x8 00f4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 00f5 7806 |x | Jump 0xfc ; case 0x1 00f6 7809 |x | Jump 0x100 ; case 0x2 00f7 780d |x | Jump 0x105 ; case 0x3 00f8 7810 |x | Jump 0x109 ; case 0x4 00f9 7811 |x | Jump 0x10b ; case 0x5 00fa 7812 |x | Jump 0x10d ; case 0x6 00fb 7815 |x | Jump 0x111 ; case 0x7 00fc 00da | | Load_Top At_Offset_2 00fd 0091 083c | <| Action Push_String_Extended_Indexed,0x83c ; "NIL" 00ff 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0100 00db | | Load_Top At_Offset_3 0101 00db | | Load_Top At_Offset_3 0102 00e0 | | Load_Encached Standard_Cache 0103 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0104 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0105 00da | | Load_Top At_Offset_2 0106 00e0 | | Load_Encached Standard_Cache 0107 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0108 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0109 00db | | Load_Top At_Offset_3 010a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 010b 00db | | Load_Top At_Offset_3 010c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 010d e40c | | Load 0x2,0xc 010e 00dc | | Load_Top At_Offset_4 010f 0267 | g | Execute Discrete,Predecessor 0110 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0111 e40c | | Load 0x2,0xc 0112 00dc | | Load_Top At_Offset_4 0113 0268 | h | Execute Discrete,Successor 0114 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0115 0000 0000 | | .XXX[0x3] 0117 0000 | | 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 011b | | .CONST 0x011b ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0001 | | .CONST 0x0001 ; Number of locals 011b BODY_0118: 011b INIT_0118: 011b 4607 |F | Jump_Case 0x8 011c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 011d 7806 |x | Jump 0x124 ; case 0x1 011e 7809 |x | Jump 0x128 ; case 0x2 011f 780d |x | Jump 0x12d ; case 0x3 0120 7810 |x | Jump 0x131 ; case 0x4 0121 7811 |x | Jump 0x133 ; case 0x5 0122 7812 |x | Jump 0x135 ; case 0x6 0123 7815 |x | Jump 0x139 ; case 0x7 0124 00da | | Load_Top At_Offset_2 0125 0091 0848 | H| Action Push_String_Extended_Indexed,0x848 ; "NIL" 0127 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0128 00db | | Load_Top At_Offset_3 0129 00db | | Load_Top At_Offset_3 012a 00e0 | | Load_Encached Standard_Cache 012b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 012c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 012d 00da | | Load_Top At_Offset_2 012e 00e0 | | Load_Encached Standard_Cache 012f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0130 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0131 00db | | Load_Top At_Offset_3 0132 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0133 00db | | Load_Top At_Offset_3 0134 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0135 e40e | | Load 0x2,0xe 0136 00dc | | Load_Top At_Offset_4 0137 0267 | g | Execute Discrete,Predecessor 0138 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0139 e40e | | Load 0x2,0xe 013a 00dc | | Load_Top At_Offset_4 013b 0268 | h | Execute Discrete,Successor 013c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 013d 0000 0000 | | .XXX[0x3] 013f 0000 | | 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0143 | C | .CONST 0x0143 ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0001 | | .CONST 0x0001 ; Number of locals 0143 BODY_0140: 0143 INIT_0140: 0143 4607 |F | Jump_Case 0x8 0144 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0145 7806 |x | Jump 0x14c ; case 0x1 0146 7809 |x | Jump 0x150 ; case 0x2 0147 780d |x | Jump 0x155 ; case 0x3 0148 7810 |x | Jump 0x159 ; case 0x4 0149 7811 |x | Jump 0x15b ; case 0x5 014a 7812 |x | Jump 0x15d ; case 0x6 014b 7815 |x | Jump 0x161 ; case 0x7 014c 00da | | Load_Top At_Offset_2 014d 0091 084d | M| Action Push_String_Extended_Indexed,0x84d ; "NIL" 014f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0150 00db | | Load_Top At_Offset_3 0151 00db | | Load_Top At_Offset_3 0152 00e0 | | Load_Encached Standard_Cache 0153 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0154 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0155 00da | | Load_Top At_Offset_2 0156 00e0 | | Load_Encached Standard_Cache 0157 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0158 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0159 00db | | Load_Top At_Offset_3 015a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 015b 00db | | Load_Top At_Offset_3 015c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 015d e40f | | Load 0x2,0xf 015e 00dc | | Load_Top At_Offset_4 015f 0267 | g | Execute Discrete,Predecessor 0160 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0161 e40f | | Load 0x2,0xf 0162 00dc | | Load_Top At_Offset_4 0163 0268 | h | Execute Discrete,Successor 0164 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0165 0000 0000 | | .XXX[0x3] 0167 0000 | | 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 018c | | .CONST 0x018c ; Address of begin 0169 01a3 | | .CONST 0x01a3 ; Address of exception handler 016a 0010 | | .CONST 0x0010 ; Number of locals 016b INIT_0168: 016b e00e | | Load 0x0,0xe 016c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 016d 02c7 | | Declare_Variable Any 016e 00d8 | | Load_Top At_Offset_0 016f 1c00 | | Execute_Immediate Run_Utility,0x0 0170 029f 0223 | #| Declare_Subprogram INIT_0220,For_Call 0172 029f 023b | ;| Declare_Subprogram INIT_0238,For_Call 0174 029f 0253 | S| Declare_Subprogram INIT_0250,For_Call 0176 029f 02bb | | Declare_Subprogram INIT_02b8,For_Call 0178 029f 02db | | Declare_Subprogram INIT_02d8,For_Call 017a 029f 030b | | Declare_Subprogram INIT_0308,For_Call 017c 029f 032b | +| Declare_Subprogram INIT_0328,For_Call 017e 029f 034b | K| Declare_Subprogram INIT_0348,For_Call 0180 029f 03bb | | Declare_Subprogram INIT_03b8,For_Call 0182 029f 03e3 | | Declare_Subprogram INIT_03e0,For_Call 0184 029f 042b | +| Declare_Subprogram INIT_0428,For_Call 0186 029f 04db | | Declare_Subprogram INIT_04d8,For_Call 0188 029f 050b | | Declare_Subprogram INIT_0508,For_Call 018a 029f 0563 | c| Declare_Subprogram INIT_0560,For_Call 018c BODY_0168: 018c e602 | | Load 0x3,0x2 018d 00ea | | Load_Encached Null_String_Cache 018e e7ff | | Load 0x3,-0x1 018f 4800 |H | Short_Literal 0x0 0190 e00e | | Load 0x0,0xe 0191 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0192 c602 | | Store 0x3,0x2 0193 00cf | | Action Mark_Auxiliary 0194 7804 |x | Jump 0x199 0195 e602 | | Load 0x3,0x2 0196 8610 | | Call 0x3,0x10 0197 860f | | Call 0x3,0xf 0198 00c9 | | Action Pop_Auxiliary_Loop 0199 e602 | | Load 0x3,0x2 019a e00e | | Load 0x0,0xe 019b 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 019c 6ff8 |o | Jump_Zero 0x195 019d 00ce | | Action Pop_Auxiliary 019e e602 | | Load 0x3,0x2 019f e00e | | Load 0x0,0xe 01a0 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01a1 c602 | | Store 0x3,0x2 01a2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01a3 TRAP_0168: 01a3 00d8 | | Load_Top At_Offset_0 01a4 0107 | | Execute Exception,Get_Name 01a5 4920 |I | Short_Literal 0x120 01a6 492f |I/ | Short_Literal 0x12f 01a7 0262 | b | Execute Discrete,In_Range 01a8 6807 |h | Jump_Zero 0x1b0 01a9 e7ff | | Load 0x3,-0x1 01aa 0092 0858 | X| Action Push_String_Extended,0x858 ; " does not exist" 01ac 01cc | | Execute Vector,Catenate 01ad e00e | | Load 0x0,0xe 01ae 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 01af 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01b0 00d8 | | Load_Top At_Offset_0 01b1 0107 | | Execute Exception,Get_Name 01b2 4950 |IP | Short_Literal 0x150 01b3 495f |I_ | Short_Literal 0x15f 01b4 0262 | b | Execute Discrete,In_Range 01b5 6801 |h | Jump_Zero 0x1b7 01b6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01b7 0100 | | Execute Exception,Raise 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01cd | | .CONST 0x01cd ; Address of begin 01b9 0004 | | .CONST 0x0004 ; Address of exception handler 01ba 0007 | | .CONST 0x0007 ; Number of locals 01bb INIT_01b8: 01bb e00e | | Load 0x0,0xe 01bc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01bd 02c7 | | Declare_Variable Any 01be 00d8 | | Load_Top At_Offset_0 01bf 1c00 | | Execute_Immediate Run_Utility,0x0 01c0 e00e | | Load 0x0,0xe 01c1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01c2 02c7 | | Declare_Variable Any 01c3 00d8 | | Load_Top At_Offset_0 01c4 1c00 | | Execute_Immediate Run_Utility,0x0 01c5 029f 059b | | Declare_Subprogram INIT_0598,For_Call 01c7 029f 05db | | Declare_Subprogram INIT_05d8,For_Call 01c9 029f 0613 | | Declare_Subprogram INIT_0610,For_Call 01cb 029f 0633 | 3| Declare_Subprogram INIT_0630,For_Call 01cd BODY_01b8: 01cd e5fa | | Load 0x2,-0x6 01ce 7007 |p | Jump_Nonzero 0x1d6 01cf e603 | | Load 0x3,0x3 01d0 00ea | | Load_Encached Null_String_Cache 01d1 e7fe | | Load 0x3,-0x2 01d2 4801 |H | Short_Literal 0x1 01d3 e00e | | Load 0x0,0xe 01d4 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01d5 c603 | | Store 0x3,0x3 01d6 00ea | | Load_Encached Null_String_Cache 01d7 e00e | | Load 0x0,0xe 01d8 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 01d9 0092 0859 | Y| Action Push_String_Extended,0x859 ; "The contents of the file " 01db e7fe | | Load 0x3,-0x2 01dc e00f | | Load 0x0,0xf 01dd 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 01de 01cc | | Execute Vector,Catenate 01df 0092 085a | Z| Action Push_String_Extended,0x85a ; " are:" 01e1 01cc | | Execute Vector,Catenate 01e2 e00e | | Load 0x0,0xe 01e3 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 01e4 8607 | | Call 0x3,0x7 01e5 8606 | | Call 0x3,0x6 01e6 e5fa | | Load 0x2,-0x6 01e7 7004 |p | Jump_Nonzero 0x1ec 01e8 e603 | | Load 0x3,0x3 01e9 e00e | | Load 0x0,0xe 01ea 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01eb c603 | | Store 0x3,0x3 01ec 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01ed 0000 0000 | | .XXX[0x3] 01ef 0000 | | 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 01fb | | .CONST 0x01fb ; Address of begin 01f1 0004 | | .CONST 0x0004 ; Address of exception handler 01f2 0003 | | .CONST 0x0003 ; Number of locals 01f3 INIT_01f0: 01f3 e010 | | Load 0x0,0x10 01f4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01f5 02c7 | | Declare_Variable Any 01f6 00d8 | | Load_Top At_Offset_0 01f7 1c00 | | Execute_Immediate Run_Utility,0x0 01f8 e010 | | Load 0x0,0x10 01f9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01fa 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01fb BODY_01f0: 01fb e010 | | Load 0x0,0x10 01fc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01fd 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01fe 00da | | Load_Top At_Offset_2 01ff 0120 | | Execute Any,Is_Value 0200 6803 |h | Jump_Zero 0x204 0201 e010 | | Load 0x0,0x10 0202 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0203 7801 |x | Jump 0x205 0204 00da | | Load_Top At_Offset_2 0205 6012 |` | Indirect_Literal Discrete,0x218,{0x00000000, 0x00004000} 0206 e011 | | Load 0x0,0x11 0207 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0208 e012 | | Load 0x0,0x12 0209 1811 | | Execute Package,Field_Execute,Field_Number 0x11 020a e010 | | Load 0x0,0x10 020b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 020c 1816 | | Execute Package,Field_Execute,Field_Number 0x16 020d e7ff | | Load 0x3,-0x1 020e e010 | | Load 0x0,0x10 020f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0210 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0211 c602 | | Store 0x3,0x2 0212 0059 | Y | Store_Top Discrete,At_Offset_1 0213 00d8 | | Load_Top At_Offset_0 0214 0f00 | | Execute_Immediate Equal,0x0 0215 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0216 0000 0000 | | .XXX[0x2] 0218 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 021c 0000 0000 | | .BLANK 0000[0x4] 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 022d | - | .CONST 0x022d ; Address of begin 0221 0004 | | .CONST 0x0004 ; Address of exception handler 0222 0003 | | .CONST 0x0003 ; Number of locals 0223 INIT_0220: 0223 4801 |H | Short_Literal 0x1 0224 00db | | Load_Top At_Offset_3 0225 0092 085b | [| Action Push_String_Extended,0x85b ; "=" 0227 e00f | | Load 0x0,0xf 0228 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0229 00e3 | | Load_Encached Natural_Cache 022a 03f1 | | Declare_Variable Discrete,With_Value 022b 029f 0663 | c| Declare_Subprogram INIT_0660,For_Call 022d BODY_0220: 022d 00d9 | | Load_Top At_Offset_1 022e 0c01 | | Execute_Immediate Greater_Equal,0x1 022f 6801 |h | Jump_Zero 0x231 0230 8803 | | Call 0x4,0x3 0231 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0232 0000 0000 | | .BLANK 0000[0x6] 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 023d | = | .CONST 0x023d ; Address of begin 0239 0004 | | .CONST 0x0004 ; Address of exception handler 023a 0002 | | .CONST 0x0002 ; Number of locals 023b INIT_0238: 023b e404 | | Load 0x2,0x4 023c 0007 | | Action Break_Optional 023d BODY_0238: 023d 4801 |H | Short_Literal 0x1 023e e9ff | | Load 0x4,-0x1 023f 01db | | Execute Vector,Length 0240 00d8 | | Load_Top At_Offset_0 0241 00e2 | | Load_Encached Integer_Cache 0242 0260 | ` | Execute Discrete,In_Type 0243 7001 |p | Jump_Nonzero 0x245 0244 0801 | | Execute_Immediate Raise,0x1 0245 e404 | | Load 0x2,0x4 0246 03ba | | Declare_Variable Access,By_Allocation,With_Constraint 0247 0039 | 9 | Store_Top Access,At_Offset_1 0248 00db | | Load_Top At_Offset_3 0249 00d9 | | Load_Top At_Offset_1 024a 0228 | ( | Execute Access,All_Write 024b 00d8 | | Load_Top At_Offset_0 024c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 024d 0000 0000 | | .XXX[0x3] 024f 0000 | | 0250 ; -------------------------------------------------------------------------------------- 0250 ; SUBPROGRAM 0250 ; -------------------------------------------------------------------------------------- 0250 0261 | a | .CONST 0x0261 ; Address of begin 0251 0004 | | .CONST 0x0004 ; Address of exception handler 0252 0003 | | .CONST 0x0003 ; Number of locals 0253 INIT_0250: 0253 480a |H | Short_Literal 0xa 0254 e9fe | | Load 0x4,-0x2 0255 e40d | | Load 0x2,0xd 0256 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0257 4800 |H | Short_Literal 0x0 0258 480a |H | Short_Literal 0xa 0259 e9fe | | Load 0x4,-0x2 025a e40d | | Load 0x2,0xd 025b 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 025c 0279 | y | Execute Discrete,And 025d 00e1 | | Load_Encached Boolean_Cache 025e 03f1 | | Declare_Variable Discrete,With_Value 025f e407 | | Load 0x2,0x7 0260 0007 | | Action Break_Optional 0261 BODY_0250: 0261 e407 | | Load 0x2,0x7 0262 03bc | | Declare_Variable Access,By_Allocation 0263 0039 | 9 | Store_Top Access,At_Offset_1 0264 e9fc | | Load 0x4,-0x4 0265 01db | | Execute Vector,Length 0266 7006 |p | Jump_Nonzero 0x26d 0267 e9ff | | Load 0x4,-0x1 0268 8604 | | Call 0x3,0x4 0269 00d9 | | Load_Top At_Offset_1 026a 0227 | ' | Execute Access,All_Reference 026b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 026c 780d |x | Jump 0x27a 026d 0092 085c | \| Action Push_String_Extended,0x85c ; "!!" 026f e9fc | | Load 0x4,-0x4 0270 01cc | | Execute Vector,Catenate 0271 0092 085d | ]| Action Push_String_Extended,0x85d ; "." 0273 01cc | | Execute Vector,Catenate 0274 e9ff | | Load 0x4,-0x1 0275 01cc | | Execute Vector,Catenate 0276 8604 | | Call 0x3,0x4 0277 00d9 | | Load_Top At_Offset_1 0278 0227 | ' | Execute Access,All_Reference 0279 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 027a 00d9 | | Load_Top At_Offset_1 027b 6807 |h | Jump_Zero 0x283 027c 0092 085e | ^| Action Push_String_Extended,0x85e ; "Laser" 027e 8604 | | Call 0x3,0x4 027f 00d9 | | Load_Top At_Offset_1 0280 0227 | ' | Execute Access,All_Reference 0281 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0282 7806 |x | Jump 0x289 0283 0092 085f | _| Action Push_String_Extended,0x85f ; "Other" 0285 8604 | | Call 0x3,0x4 0286 00d9 | | Load_Top At_Offset_1 0287 0227 | ' | Execute Access,All_Reference 0288 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0289 00d9 | | Load_Top At_Offset_1 028a 6819 |h | Jump_Zero 0x2a4 028b 480b |H | Short_Literal 0xb 028c e9fe | | Load 0x4,-0x2 028d e40d | | Load 0x2,0xd 028e 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 028f 6814 |h | Jump_Zero 0x2a4 0290 4800 |H | Short_Literal 0x0 0291 480b |H | Short_Literal 0xb 0292 e9fe | | Load 0x4,-0x2 0293 e40d | | Load 0x2,0xd 0294 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0295 6807 |h | Jump_Zero 0x29d 0296 0092 0860 | `| Action Push_String_Extended,0x860 ; "Reversed => True" 0298 8604 | | Call 0x3,0x4 0299 00d9 | | Load_Top At_Offset_1 029a 0227 | ' | Execute Access,All_Reference 029b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 029c 780d |x | Jump 0x2aa 029d 0092 0861 | a| Action Push_String_Extended,0x861 ; "Reversed => False" 029f 8604 | | Call 0x3,0x4 02a0 00d9 | | Load_Top At_Offset_1 02a1 0227 | ' | Execute Access,All_Reference 02a2 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 02a3 7806 |x | Jump 0x2aa 02a4 0092 0862 | b| Action Push_String_Extended,0x862 ; " " 02a6 8604 | | Call 0x3,0x4 02a7 00d9 | | Load_Top At_Offset_1 02a8 0227 | ' | Execute Access,All_Reference 02a9 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 02aa e409 | | Load 0x2,0x9 02ab 4800 |H | Short_Literal 0x0 02ac 00da | | Load_Top At_Offset_2 02ad e9ff | | Load 0x4,-0x1 02ae e408 | | Load 0x2,0x8 02af 1815 | | Execute Package,Field_Execute,Field_Number 0x15 02b0 c409 | | Store 0x2,0x9 02b1 e405 | | Load 0x2,0x5 02b2 7003 |p | Jump_Nonzero 0x2b6 02b3 e9ff | | Load 0x4,-0x1 02b4 8604 | | Call 0x3,0x4 02b5 a405 | | Store_Unchecked 0x2,0x5 02b6 4505 |E | Exit_Suprogram New_Top_Offset 0x5 02b7 0000 | | .XXX[0x1] 02b8 ; -------------------------------------------------------------------------------------- 02b8 ; SUBPROGRAM 02b8 ; -------------------------------------------------------------------------------------- 02b8 02bb | | .CONST 0x02bb ; Address of begin 02b9 02c6 | | .CONST 0x02c6 ; Address of exception handler 02ba 0001 | | .CONST 0x0001 ; Number of locals 02bb BODY_02b8: 02bb INIT_02b8: 02bb 00da | | Load_Top At_Offset_2 02bc 01db | | Execute Vector,Length 02bd 7002 |p | Jump_Nonzero 0x2c0 02be 4801 |H | Short_Literal 0x1 02bf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02c0 00da | | Load_Top At_Offset_2 02c1 e013 | | Load 0x0,0x13 02c2 180e | | Execute Package,Field_Execute,Field_Number 0xe 02c3 e403 | | Load 0x2,0x3 02c4 01df | | Execute Vector,Equal 02c5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02c6 TRAP_02b8: 02c6 e013 | | Load 0x0,0x13 02c7 1b10 | | Execute Package,Field_Read,Field_Number 0x10 02c8 010f | | Execute Exception,Equal 02c9 6808 |h | Jump_Zero 0x2d2 02ca 00db | | Load_Top At_Offset_3 02cb 0092 0863 | c| Action Push_String_Extended,0x863 ; " is not defined on the server" 02cd 01cc | | Execute Vector,Catenate 02ce e00e | | Load 0x0,0xe 02cf 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 02d0 e014 | | Load 0x0,0x14 02d1 0257 | W | Execute Discrete,Raise 02d2 0100 | | Execute Exception,Raise 02d3 0000 0000 | | .BLANK 0000[0x5] 02d8 ; -------------------------------------------------------------------------------------- 02d8 ; SUBPROGRAM 02d8 ; -------------------------------------------------------------------------------------- 02d8 02db | | .CONST 0x02db ; Address of begin 02d9 0004 | | .CONST 0x0004 ; Address of exception handler 02da 0001 | | .CONST 0x0001 ; Number of locals 02db BODY_02d8: 02db INIT_02d8: 02db 4802 |H | Short_Literal 0x2 02dc 00db | | Load_Top At_Offset_3 02dd e40d | | Load 0x2,0xd 02de 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 02df 4803 |H | Short_Literal 0x3 02e0 e9ff | | Load 0x4,-0x1 02e1 e40d | | Load 0x2,0xd 02e2 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 02e3 0279 | y | Execute Discrete,And 02e4 6802 |h | Jump_Zero 0x2e7 02e5 4801 |H | Short_Literal 0x1 02e6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02e7 4804 |H | Short_Literal 0x4 02e8 00db | | Load_Top At_Offset_3 02e9 e40d | | Load 0x2,0xd 02ea 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 02eb 4803 |H | Short_Literal 0x3 02ec e9ff | | Load 0x4,-0x1 02ed e40d | | Load 0x2,0xd 02ee 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 02ef 0279 | y | Execute Discrete,And 02f0 6802 |h | Jump_Zero 0x2f3 02f1 4802 |H | Short_Literal 0x2 02f2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02f3 4806 |H | Short_Literal 0x6 02f4 00db | | Load_Top At_Offset_3 02f5 e40d | | Load 0x2,0xd 02f6 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 02f7 6802 |h | Jump_Zero 0x2fa 02f8 4803 |H | Short_Literal 0x3 02f9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02fa 4807 |H | Short_Literal 0x7 02fb 00db | | Load_Top At_Offset_3 02fc e40d | | Load 0x2,0xd 02fd 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 02fe 4808 |H | Short_Literal 0x8 02ff e9ff | | Load 0x4,-0x1 0300 e40d | | Load 0x2,0xd 0301 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0302 0279 | y | Execute Discrete,And 0303 6802 |h | Jump_Zero 0x306 0304 4804 |H | Short_Literal 0x4 0305 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0306 4800 |H | Short_Literal 0x0 0307 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0308 ; -------------------------------------------------------------------------------------- 0308 ; SUBPROGRAM 0308 ; -------------------------------------------------------------------------------------- 0308 030c | | .CONST 0x030c ; Address of begin 0309 0004 | | .CONST 0x0004 ; Address of exception handler 030a 0002 | | .CONST 0x0002 ; Number of locals 030b INIT_0308: 030b 00e1 | | Load_Encached Boolean_Cache 030c BODY_0308: 030c 480a |H | Short_Literal 0xa 030d e9ff | | Load 0x4,-0x1 030e e40d | | Load 0x2,0xd 030f 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0310 6810 |h | Jump_Zero 0x321 0311 4800 |H | Short_Literal 0x0 0312 480a |H | Short_Literal 0xa 0313 e9ff | | Load 0x4,-0x1 0314 e40d | | Load 0x2,0xd 0315 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0316 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0317 00d8 | | Load_Top At_Offset_0 0318 6808 |h | Jump_Zero 0x321 0319 e9fe | | Load 0x4,-0x2 031a 6803 |h | Jump_Zero 0x31e 031b 0092 0864 | d| Action Push_String_Extended,0x864 ; ", Laser_Comm" 031d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 031e 0092 0865 | e| Action Push_String_Extended,0x865 ; "Laser_Comm" 0320 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0321 00ea | | Load_Encached Null_String_Cache 0322 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0323 0000 0000 | | .BLANK 0000[0x5] 0328 ; -------------------------------------------------------------------------------------- 0328 ; SUBPROGRAM 0328 ; -------------------------------------------------------------------------------------- 0328 0333 | 3 | .CONST 0x0333 ; Address of begin 0329 0004 | | .CONST 0x0004 ; Address of exception handler 032a 0002 | | .CONST 0x0002 ; Number of locals 032b INIT_0328: 032b 4800 |H | Short_Literal 0x0 032c 4801 |H | Short_Literal 0x1 032d 4802 |H | Short_Literal 0x2 032e e9ff | | Load 0x4,-0x1 032f e410 | | Load 0x2,0x10 0330 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0331 e40f | | Load 0x2,0xf 0332 03f1 | | Declare_Variable Discrete,With_Value 0333 BODY_0328: 0333 00d8 | | Load_Top At_Offset_0 0334 6806 |h | Jump_Zero 0x33b 0335 00ea | | Load_Encached Null_String_Cache 0336 4802 |H | Short_Literal 0x2 0337 e9ff | | Load 0x4,-0x1 0338 e40d | | Load 0x2,0xd 0339 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 033a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 033b 00ea | | Load_Encached Null_String_Cache 033c 4802 |H | Short_Literal 0x2 033d e9ff | | Load 0x4,-0x1 033e e40d | | Load 0x2,0xd 033f 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0340 0092 0866 | f| Action Push_String_Extended,0x866 ; " is not a proper protocol" 0342 01cc | | Execute Vector,Catenate 0343 e00e | | Load 0x0,0xe 0344 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0345 e014 | | Load 0x0,0x14 0346 0257 | W | Execute Discrete,Raise 0347 0000 | | .XXX[0x1] 0348 ; -------------------------------------------------------------------------------------- 0348 ; SUBPROGRAM 0348 ; -------------------------------------------------------------------------------------- 0348 036b | k | .CONST 0x036b ; Address of begin 0349 03a4 | | .CONST 0x03a4 ; Address of exception handler 034a 0006 | | .CONST 0x0006 ; Number of locals 034b INIT_0348: 034b 00ea | | Load_Encached Null_String_Cache 034c 4807 |H | Short_Literal 0x7 034d e9fe | | Load 0x4,-0x2 034e e40d | | Load 0x2,0xd 034f 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0350 00ea | | Load_Encached Null_String_Cache 0351 4808 |H | Short_Literal 0x8 0352 e9fe | | Load 0x4,-0x2 0353 e40d | | Load 0x2,0xd 0354 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0355 00ea | | Load_Encached Null_String_Cache 0356 4809 |H | Short_Literal 0x9 0357 e9fe | | Load 0x4,-0x2 0358 e40d | | Load 0x2,0xd 0359 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 035a e5fb | | Load 0x2,-0x5 035b 0092 085d | ]| Action Push_String_Extended,0x85d ; "." 035d 01cc | | Execute Vector,Catenate 035e 00db | | Load_Top At_Offset_3 035f 01cc | | Execute Vector,Catenate 0360 0092 0867 | g| Action Push_String_Extended,0x867 ; "_" 0362 01cc | | Execute Vector,Catenate 0363 e9ff | | Load 0x4,-0x1 0364 01cc | | Execute Vector,Catenate 0365 0007 | | Action Break_Optional 0366 e00e | | Load 0x0,0xe 0367 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0368 02c7 | | Declare_Variable Any 0369 00d8 | | Load_Top At_Offset_0 036a 1c00 | | Execute_Immediate Run_Utility,0x0 036b BODY_0348: 036b 0092 0868 | h| Action Push_String_Extended,0x868 ; "Creating a file " 036d 00da | | Load_Top At_Offset_2 036e 01cc | | Execute Vector,Catenate 036f e00e | | Load 0x0,0xe 0370 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0371 0092 0869 | i| Action Push_String_Extended,0x869 ; " containing -> " 0373 e802 | | Load 0x4,0x2 0374 01cc | | Execute Vector,Catenate 0375 0092 086a | j| Action Push_String_Extended,0x86a ; " nl " 0377 01cc | | Execute Vector,Catenate 0378 e803 | | Load 0x4,0x3 0379 01cc | | Execute Vector,Catenate 037a 0092 086a | j| Action Push_String_Extended,0x86a ; " nl " 037c 01cc | | Execute Vector,Catenate 037d 00db | | Load_Top At_Offset_3 037e 01cc | | Execute Vector,Catenate 037f 0092 086a | j| Action Push_String_Extended,0x86a ; " nl " 0381 01cc | | Execute Vector,Catenate 0382 e402 | | Load 0x2,0x2 0383 01cc | | Execute Vector,Catenate 0384 e00e | | Load 0x0,0xe 0385 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0386 e5fa | | Load 0x2,-0x6 0387 701b |p | Jump_Nonzero 0x3a3 0388 00d8 | | Load_Top At_Offset_0 0389 00ea | | Load_Encached Null_String_Cache 038a 00db | | Load_Top At_Offset_3 038b 4801 |H | Short_Literal 0x1 038c e00e | | Load 0x0,0xe 038d 1814 | | Execute Package,Field_Execute,Field_Number 0x14 038e c806 | | Store 0x4,0x6 038f e802 | | Load 0x4,0x2 0390 00d9 | | Load_Top At_Offset_1 0391 e00e | | Load 0x0,0xe 0392 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0393 00db | | Load_Top At_Offset_3 0394 00d9 | | Load_Top At_Offset_1 0395 e00e | | Load 0x0,0xe 0396 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0397 00da | | Load_Top At_Offset_2 0398 00d9 | | Load_Top At_Offset_1 0399 e00e | | Load 0x0,0xe 039a 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 039b e402 | | Load 0x2,0x2 039c 00d9 | | Load_Top At_Offset_1 039d e00e | | Load 0x0,0xe 039e 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 039f 00d8 | | Load_Top At_Offset_0 03a0 e00e | | Load 0x0,0xe 03a1 181b | | Execute Package,Field_Execute,Field_Number 0x1b 03a2 c806 | | Store 0x4,0x6 03a3 4503 |E | Exit_Suprogram New_Top_Offset 0x3 03a4 TRAP_0348: 03a4 00d8 | | Load_Top At_Offset_0 03a5 0107 | | Execute Exception,Get_Name 03a6 4920 |I | Short_Literal 0x120 03a7 492f |I/ | Short_Literal 0x12f 03a8 0262 | b | Execute Discrete,In_Range 03a9 6808 |h | Jump_Zero 0x3b2 03aa 0092 086b | k| Action Push_String_Extended,0x86b ; "*** Cound not create the file " 03ac 00db | | Load_Top At_Offset_3 03ad 01cc | | Execute Vector,Catenate 03ae e00e | | Load 0x0,0xe 03af 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 03b0 e014 | | Load 0x0,0x14 03b1 0257 | W | Execute Discrete,Raise 03b2 0100 | | Execute Exception,Raise 03b3 0000 0000 | | .BLANK 0000[0x5] 03b8 ; -------------------------------------------------------------------------------------- 03b8 ; SUBPROGRAM 03b8 ; -------------------------------------------------------------------------------------- 03b8 03bd | | .CONST 0x03bd ; Address of begin 03b9 0004 | | .CONST 0x0004 ; Address of exception handler 03ba 0002 | | .CONST 0x0002 ; Number of locals 03bb INIT_03b8: 03bb 029f 067b | {| Declare_Subprogram INIT_0678,For_Call 03bd BODY_03b8: 03bd e9fd | | Load 0x4,-0x3 03be 4604 |F | Jump_Case 0x5 03bf 781c |x | Jump 0x3dc ; case 0x0 03c0 7813 |x | Jump 0x3d4 ; case 0x1 03c1 7812 |x | Jump 0x3d4 ; case 0x2 03c2 7813 |x | Jump 0x3d6 ; case 0x3 03c3 7800 |x | Jump 0x3c4 ; case 0x4 03c4 e5fb | | Load 0x2,-0x5 03c5 0092 085d | ]| Action Push_String_Extended,0x85d ; "." 03c7 01cc | | Execute Vector,Catenate 03c8 00ea | | Load_Encached Null_String_Cache 03c9 4807 |H | Short_Literal 0x7 03ca e9fe | | Load 0x4,-0x2 03cb e40d | | Load 0x2,0xd 03cc 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 03cd 01cc | | Execute Vector,Catenate 03ce 0092 0867 | g| Action Push_String_Extended,0x867 ; "_" 03d0 01cc | | Execute Vector,Catenate 03d1 e9ff | | Load 0x4,-0x1 03d2 01cc | | Execute Vector,Catenate 03d3 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 03d4 8802 | | Call 0x4,0x2 03d5 7808 |x | Jump 0x3de 03d6 00ea | | Load_Encached Null_String_Cache 03d7 4806 |H | Short_Literal 0x6 03d8 e9fe | | Load 0x4,-0x2 03d9 e40d | | Load 0x2,0xd 03da 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 03db 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 03dc e014 | | Load 0x0,0x14 03dd 0257 | W | Execute Discrete,Raise 03de 0831 | 1 | Execute_Immediate Raise,0x31 03df 0000 | | .XXX[0x1] 03e0 ; -------------------------------------------------------------------------------------- 03e0 ; SUBPROGRAM 03e0 ; -------------------------------------------------------------------------------------- 03e0 03e3 | | .CONST 0x03e3 ; Address of begin 03e1 0004 | | .CONST 0x0004 ; Address of exception handler 03e2 0001 | | .CONST 0x0001 ; Number of locals 03e3 BODY_03e0: 03e3 INIT_03e0: 03e3 00db | | Load_Top At_Offset_3 03e4 4604 |F | Jump_Case 0x5 03e5 783c |x< | Jump 0x422 ; case 0x0 03e6 7806 |x | Jump 0x3ed ; case 0x1 03e7 780c |x | Jump 0x3f4 ; case 0x2 03e8 7836 |x6 | Jump 0x41f ; case 0x3 03e9 7800 |x | Jump 0x3ea ; case 0x4 03ea 0092 086c | l| Action Push_String_Extended,0x86c ; "FTP" 03ec 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03ed 00da | | Load_Top At_Offset_2 03ee 8609 | | Call 0x3,0x9 03ef 4801 |H | Short_Literal 0x1 03f0 e9ff | | Load 0x4,-0x1 03f1 8608 | | Call 0x3,0x8 03f2 01cc | | Execute Vector,Catenate 03f3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03f4 4805 |H | Short_Literal 0x5 03f5 00db | | Load_Top At_Offset_3 03f6 e40d | | Load 0x2,0xd 03f7 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 03f8 6819 |h | Jump_Zero 0x412 03f9 0092 086d | m| Action Push_String_Extended,0x86d ; "Host => " 03fb 00ea | | Load_Encached Null_String_Cache 03fc 4804 |H | Short_Literal 0x4 03fd e9ff | | Load 0x4,-0x1 03fe e40d | | Load 0x2,0xd 03ff 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0400 01cc | | Execute Vector,Catenate 0401 0092 086e | n| Action Push_String_Extended,0x86e ; ", Socket => (" 0403 01cc | | Execute Vector,Catenate 0404 00ea | | Load_Encached Null_String_Cache 0405 4805 |H | Short_Literal 0x5 0406 e9ff | | Load 0x4,-0x1 0407 e40d | | Load 0x2,0xd 0408 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0409 01cc | | Execute Vector,Catenate 040a 0092 086f | o| Action Push_String_Extended,0x86f ; ")" 040c 01cc | | Execute Vector,Catenate 040d 4801 |H | Short_Literal 0x1 040e e9ff | | Load 0x4,-0x1 040f 8608 | | Call 0x3,0x8 0410 01cc | | Execute Vector,Catenate 0411 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0412 0092 086d | m| Action Push_String_Extended,0x86d ; "Host => " 0414 00ea | | Load_Encached Null_String_Cache 0415 4804 |H | Short_Literal 0x4 0416 e9ff | | Load 0x4,-0x1 0417 e40d | | Load 0x2,0xd 0418 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0419 01cc | | Execute Vector,Catenate 041a 4801 |H | Short_Literal 0x1 041b e9ff | | Load 0x4,-0x1 041c 8608 | | Call 0x3,0x8 041d 01cc | | Execute Vector,Catenate 041e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 041f 0092 0870 | p| Action Push_String_Extended,0x870 ; "Xon_Xoff" 0421 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0422 e014 | | Load 0x0,0x14 0423 0257 | W | Execute Discrete,Raise 0424 0000 0000 | | .BLANK 0000[0x4] 0428 ; -------------------------------------------------------------------------------------- 0428 ; SUBPROGRAM 0428 ; -------------------------------------------------------------------------------------- 0428 0436 | 6 | .CONST 0x0436 ; Address of begin 0429 0004 | | .CONST 0x0004 ; Address of exception handler 042a 0005 | | .CONST 0x0005 ; Number of locals 042b INIT_0428: 042b e9fd | | Load 0x4,-0x3 042c e9fe | | Load 0x4,-0x2 042d e9ff | | Load 0x4,-0x1 042e 860b | | Call 0x3,0xb 042f e9fd | | Load 0x4,-0x3 0430 e9fe | | Load 0x4,-0x2 0431 860c | | Call 0x3,0xc 0432 029f 069b | | Declare_Subprogram INIT_0698,For_Call 0434 029f 06c3 | | Declare_Subprogram INIT_06c0,For_Call 0436 BODY_0428: 0436 0092 0871 | q| Action Push_String_Extended,0x871 ; "Setting up " 0438 e9ff | | Load 0x4,-0x1 0439 01cc | | Execute Vector,Catenate 043a e00e | | Load 0x0,0xe 043b 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 043c 0092 0872 | r| Action Push_String_Extended,0x872 ; " Class -> " 043e e9ff | | Load 0x4,-0x1 043f 01cc | | Execute Vector,Catenate 0440 e00e | | Load 0x0,0xe 0441 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0442 0092 0873 | s| Action Push_String_Extended,0x873 ; " Device -> " 0444 e802 | | Load 0x4,0x2 0445 01cc | | Execute Vector,Catenate 0446 e00e | | Load 0x0,0xe 0447 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0448 0092 0874 | t| Action Push_String_Extended,0x874 ; " Options -> " 044a 00db | | Load_Top At_Offset_3 044b 01cc | | Execute Vector,Catenate 044c e00e | | Load 0x0,0xe 044d 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 044e e5fa | | Load 0x2,-0x6 044f 7050 |pP | Jump_Nonzero 0x4a0 0450 e00e | | Load 0x0,0xe 0451 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0452 e00e | | Load 0x0,0xe 0453 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0454 0092 0854 | T| Action Push_String_Extended,0x854 ; "Holding" 0456 e00c | | Load 0x0,0xc 0457 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0458 00db | | Load_Top At_Offset_3 0459 e00c | | Load 0x0,0xc 045a 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 045b 680f |h | Jump_Zero 0x46b 045c 0092 0875 | u| Action Push_String_Extended,0x875 ; "---" 045e e00e | | Load 0x0,0xe 045f 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0460 0092 0876 | v| Action Push_String_Extended,0x876 ; "Disabling device: " 0462 e802 | | Load 0x4,0x2 0463 01cc | | Execute Vector,Catenate 0464 e00e | | Load 0x0,0xe 0465 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0466 4800 |H | Short_Literal 0x0 0467 e802 | | Load 0x4,0x2 0468 e00c | | Load 0x0,0xc 0469 1820 | | Execute Package,Field_Execute,Field_Number 0x20 046a 8804 | | Call 0x4,0x4 046b 6068 |`h | Indirect_Literal Discrete,0x4d4,{0x00000000, 0x00050000} 046c 00ba | | Action Initiate_Delay 046d e9ff | | Load 0x4,-0x1 046e e00c | | Load 0x0,0xc 046f 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0470 6806 |h | Jump_Zero 0x477 0471 0092 0854 | T| Action Push_String_Extended,0x854 ; "Holding" 0473 e9ff | | Load 0x4,-0x1 0474 e00c | | Load 0x0,0xc 0475 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0476 8805 | | Call 0x4,0x5 0477 00db | | Load_Top At_Offset_3 0478 e00c | | Load 0x0,0xc 0479 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 047a 680e |h | Jump_Zero 0x489 047b 0092 0875 | u| Action Push_String_Extended,0x875 ; "---" 047d e00e | | Load 0x0,0xe 047e 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 047f 0092 0877 | w| Action Push_String_Extended,0x877 ; "Deleting existing device: " 0481 e802 | | Load 0x4,0x2 0482 01cc | | Execute Vector,Catenate 0483 e00e | | Load 0x0,0xe 0484 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0485 4800 |H | Short_Literal 0x0 0486 e802 | | Load 0x4,0x2 0487 e00c | | Load 0x0,0xc 0488 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0489 0092 0875 | u| Action Push_String_Extended,0x875 ; "---" 048b e00e | | Load 0x0,0xe 048c 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 048d 0092 0878 | x| Action Push_String_Extended,0x878 ; "Creating class: " 048f e9ff | | Load 0x4,-0x1 0490 01cc | | Execute Vector,Catenate 0491 e00e | | Load 0x0,0xe 0492 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0493 e9ff | | Load 0x4,-0x1 0494 e00c | | Load 0x0,0xc 0495 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0496 0092 0875 | u| Action Push_String_Extended,0x875 ; "---" 0498 e00e | | Load 0x0,0xe 0499 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 049a 0092 0879 | y| Action Push_String_Extended,0x879 ; "Creating device: " 049c e802 | | Load 0x4,0x2 049d 01cc | | Execute Vector,Catenate 049e e00e | | Load 0x0,0xe 049f 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 04a0 e9fd | | Load 0x4,-0x3 04a1 0f04 | | Execute_Immediate Equal,0x4 04a2 6803 |h | Jump_Zero 0x4a6 04a3 e9fe | | Load 0x4,-0x2 04a4 e9ff | | Load 0x4,-0x1 04a5 860a | | Call 0x3,0xa 04a6 e5fa | | Load 0x2,-0x6 04a7 702b |p+ | Jump_Nonzero 0x4d3 04a8 00da | | Load_Top At_Offset_2 04a9 e802 | | Load 0x4,0x2 04aa e00c | | Load 0x0,0xc 04ab 181b | | Execute Package,Field_Execute,Field_Number 0x1b 04ac 0092 0875 | u| Action Push_String_Extended,0x875 ; "---" 04ae e00e | | Load 0x0,0xe 04af 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 04b0 0092 087a | z| Action Push_String_Extended,0x87a ; "Registering " 04b2 e802 | | Load 0x4,0x2 04b3 01cc | | Execute Vector,Catenate 04b4 0092 087b | {| Action Push_String_Extended,0x87b ; " with " 04b6 01cc | | Execute Vector,Catenate 04b7 e9ff | | Load 0x4,-0x1 04b8 01cc | | Execute Vector,Catenate 04b9 e00e | | Load 0x0,0xe 04ba 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 04bb e9ff | | Load 0x4,-0x1 04bc e802 | | Load 0x4,0x2 04bd e00c | | Load 0x0,0xc 04be 181d | | Execute Package,Field_Execute,Field_Number 0x1d 04bf 0092 0875 | u| Action Push_String_Extended,0x875 ; "---" 04c1 e00e | | Load 0x0,0xe 04c2 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 04c3 0092 087c | || Action Push_String_Extended,0x87c ; "Enabling device. See error log if there are errors for more information" 04c5 e00e | | Load 0x0,0xe 04c6 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 04c7 00db | | Load_Top At_Offset_3 04c8 e00c | | Load 0x0,0xc 04c9 181f | | Execute Package,Field_Execute,Field_Number 0x1f 04ca 0092 0875 | u| Action Push_String_Extended,0x875 ; "---" 04cc e00e | | Load 0x0,0xe 04cd 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 04ce e9ff | | Load 0x4,-0x1 04cf 0092 0854 | T| Action Push_String_Extended,0x854 ; "Holding" 04d1 e00c | | Load 0x0,0xc 04d2 1819 | | Execute Package,Field_Execute,Field_Number 0x19 04d3 4504 |E | Exit_Suprogram New_Top_Offset 0x4 04d4 0000 0000 | | .LITERAL {0x00000000, 0x00050000} 04d8 ; -------------------------------------------------------------------------------------- 04d8 ; SUBPROGRAM 04d8 ; -------------------------------------------------------------------------------------- 04d8 04df | | .CONST 0x04df ; Address of begin 04d9 04fc | | .CONST 0x04fc ; Address of exception handler 04da 0003 | | .CONST 0x0003 ; Number of locals 04db INIT_04d8: 04db e40d | | Load 0x2,0xd 04dc 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 04dd 029f 06eb | | Declare_Subprogram INIT_06e8,For_Call 04df BODY_04d8: 04df e9fe | | Load 0x4,-0x2 04e0 01db | | Execute Vector,Length 04e1 6819 |h | Jump_Zero 0x4fb 04e2 e9fe | | Load 0x4,-0x2 04e3 e40d | | Load 0x2,0xd 04e4 1820 | | Execute Package,Field_Execute,Field_Number 0x20 04e5 0032 | 2 | Store_Top Heap_Access,At_Offset_2 04e6 00d9 | | Load_Top At_Offset_1 04e7 e40d | | Load 0x2,0xd 04e8 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 04e9 6802 |h | Jump_Zero 0x4ec 04ea 8803 | | Call 0x4,0x3 04eb 4503 |E | Exit_Suprogram New_Top_Offset 0x3 04ec 0092 087d | }| Action Push_String_Extended,0x87d ; "Illegal format: " 04ee e9fe | | Load 0x4,-0x2 04ef 01cc | | Execute Vector,Catenate 04f0 e00e | | Load 0x0,0xe 04f1 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 04f2 0092 087e | ~| Action Push_String_Extended,0x87e ; " " 04f4 4800 |H | Short_Literal 0x0 04f5 00db | | Load_Top At_Offset_3 04f6 e40d | | Load 0x2,0xd 04f7 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 04f8 01cc | | Execute Vector,Catenate 04f9 e00e | | Load 0x0,0xe 04fa 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 04fb 4503 |E | Exit_Suprogram New_Top_Offset 0x3 04fc TRAP_04d8: 04fc e014 | | Load 0x0,0x14 04fd 010f | | Execute Exception,Equal 04fe 6807 |h | Jump_Zero 0x506 04ff 0092 087f | | Action Push_String_Extended,0x87f ; "Illegal item in line: " 0501 e9fe | | Load 0x4,-0x2 0502 01cc | | Execute Vector,Catenate 0503 e00e | | Load 0x0,0xe 0504 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0505 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0506 0100 | | Execute Exception,Raise 0507 0000 | | .XXX[0x1] 0508 ; -------------------------------------------------------------------------------------- 0508 ; SUBPROGRAM 0508 ; -------------------------------------------------------------------------------------- 0508 050f | | .CONST 0x050f ; Address of begin 0509 0004 | | .CONST 0x0004 ; Address of exception handler 050a 0003 | | .CONST 0x0003 ; Number of locals 050b INIT_0508: 050b e40b | | Load 0x2,0xb 050c 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 050d 029f 071b | | Declare_Subprogram INIT_0718,For_Call 050f BODY_0508: 050f e9ff | | Load 0x4,-0x1 0510 01db | | Execute Vector,Length 0511 6846 |hF | Jump_Zero 0x558 0512 e9ff | | Load 0x4,-0x1 0513 01db | | Execute Vector,Length 0514 0c02 | | Execute_Immediate Greater_Equal,0x2 0515 6811 |h | Jump_Zero 0x527 0516 e9ff | | Load 0x4,-0x1 0517 01dd | | Execute Vector,First 0518 e9ff | | Load 0x4,-0x1 0519 01dd | | Execute Vector,First 051a 0a01 | | Execute_Immediate Plus,0x1 051b 00d8 | | Load_Top At_Offset_0 051c 00e2 | | Load_Encached Integer_Cache 051d 0260 | ` | Execute Discrete,In_Type 051e 7001 |p | Jump_Nonzero 0x520 051f 0801 | | Execute_Immediate Raise,0x1 0520 e9ff | | Load 0x4,-0x1 0521 01cf | | Execute Vector,Slice_Read 0522 0092 0880 | | Action Push_String_Extended,0x880 ; "--" 0524 01df | | Execute Vector,Equal 0525 6801 |h | Jump_Zero 0x527 0526 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0527 e9ff | | Load 0x4,-0x1 0528 8603 | | Call 0x3,0x3 0529 e9ff | | Load 0x4,-0x1 052a e40b | | Load 0x2,0xb 052b 1820 | | Execute Package,Field_Execute,Field_Number 0x20 052c 0032 | 2 | Store_Top Heap_Access,At_Offset_2 052d 00d9 | | Load_Top At_Offset_1 052e e40b | | Load 0x2,0xb 052f 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0530 6818 |h | Jump_Zero 0x549 0531 4800 |H | Short_Literal 0x0 0532 00da | | Load_Top At_Offset_2 0533 e40b | | Load 0x2,0xb 0534 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0535 6802 |h | Jump_Zero 0x538 0536 8803 | | Call 0x4,0x3 0537 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0538 480a |H | Short_Literal 0xa 0539 0092 087f | | Action Push_String_Extended,0x87f ; "Illegal item in line: " 053b e9ff | | Load 0x4,-0x1 053c 01cc | | Execute Vector,Catenate 053d 01cb | | Execute Vector,Append 053e 0092 087e | ~| Action Push_String_Extended,0x87e ; " " 0540 01cc | | Execute Vector,Catenate 0541 4800 |H | Short_Literal 0x0 0542 00db | | Load_Top At_Offset_3 0543 e40b | | Load 0x2,0xb 0544 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0545 01cc | | Execute Vector,Catenate 0546 e00e | | Load 0x0,0xe 0547 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0548 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0549 0092 087d | }| Action Push_String_Extended,0x87d ; "Illegal format: " 054b e9ff | | Load 0x4,-0x1 054c 01cc | | Execute Vector,Catenate 054d e00e | | Load 0x0,0xe 054e 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 054f 0092 087e | ~| Action Push_String_Extended,0x87e ; " " 0551 4800 |H | Short_Literal 0x0 0552 00db | | Load_Top At_Offset_3 0553 e40b | | Load 0x2,0xb 0554 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0555 01cc | | Execute Vector,Catenate 0556 e00e | | Load 0x0,0xe 0557 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0558 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0559 0000 0000 | | .BLANK 0000[0x7] 0560 ; -------------------------------------------------------------------------------------- 0560 ; SUBPROGRAM 0560 ; -------------------------------------------------------------------------------------- 0560 0572 | r | .CONST 0x0572 ; Address of begin 0561 057e | ~ | .CONST 0x057e ; Address of exception handler 0562 0007 | | .CONST 0x0007 ; Number of locals 0563 INIT_0560: 0563 4801 |H | Short_Literal 0x1 0564 4be8 |K | Short_Literal 0x3e8 0565 00e9 | | Load_Encached String_Cache 0566 035b | [ | Declare_Type Array,Constrained 0567 0337 | 7 | Declare_Variable Array 0568 00e3 | | Load_Encached Natural_Cache 0569 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 056a 00e3 | | Load_Encached Natural_Cache 056b 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 056c 00e3 | | Load_Encached Natural_Cache 056d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 056e 029f 0733 | 3| Declare_Subprogram INIT_0730,For_Call 0570 029f 0753 | S| Declare_Subprogram INIT_0750,For_Call 0572 BODY_0560: 0572 00cf | | Action Mark_Auxiliary 0573 8807 | | Call 0x4,0x7 0574 00c9 | | Action Pop_Auxiliary_Loop 0575 7ffd | | Jump 0x573 0576 00ce | | Action Pop_Auxiliary 0577 4801 |H | Short_Literal 0x1 0578 e803 | | Load 0x4,0x3 0579 e802 | | Load 0x4,0x2 057a 01cf | | Execute Vector,Slice_Read 057b 00e9 | | Load_Encached String_Cache 057c 01c6 | | Execute Vector,Convert_To_Formal 057d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 057e TRAP_0560: 057e 00d8 | | Load_Top At_Offset_0 057f 0107 | | Execute Exception,Get_Name 0580 4950 |IP | Short_Literal 0x150 0581 495f |I_ | Short_Literal 0x15f 0582 0262 | b | Execute Discrete,In_Range 0583 680f |h | Jump_Zero 0x593 0584 e804 | | Load 0x4,0x4 0585 e805 | | Load 0x4,0x5 0586 027e | ~ | Execute Discrete,Not_Equal 0587 6809 |h | Jump_Zero 0x591 0588 0092 0881 | | Action Push_String_Extended,0x881 ; "The parentheses in the file " 058a e7ff | | Load 0x3,-0x1 058b 01cc | | Execute Vector,Catenate 058c 0092 0882 | | Action Push_String_Extended,0x882 ; " do not match" 058e 01cc | | Execute Vector,Catenate 058f e00e | | Load 0x0,0xe 0590 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0591 00d8 | | Load_Top At_Offset_0 0592 0101 | | Execute Exception,Reraise 0593 0100 | | Execute Exception,Raise 0594 0000 0000 | | .BLANK 0000[0x4] 0598 ; -------------------------------------------------------------------------------------- 0598 ; SUBPROGRAM 0598 ; -------------------------------------------------------------------------------------- 0598 05a1 | | .CONST 0x05a1 ; Address of begin 0599 0004 | | .CONST 0x0004 ; Address of exception handler 059a 0003 | | .CONST 0x0003 ; Number of locals 059b INIT_0598: 059b 00da | | Load_Top At_Offset_2 059c 01dd | | Execute Vector,First 059d 00e2 | | Load_Encached Integer_Cache 059e 03f1 | | Declare_Variable Discrete,With_Value 059f 00e2 | | Load_Encached Integer_Cache 05a0 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 05a1 BODY_0598: 05a1 00cf | | Action Mark_Auxiliary 05a2 e9ff | | Load 0x4,-0x1 05a3 01d9 | | Execute Vector,Reverse_Bounds 05a4 0263 | c | Execute Discrete,Above_Bound 05a5 701f |p | Jump_Nonzero 0x5c5 05a6 00d8 | | Load_Top At_Offset_0 05a7 e9ff | | Load 0x4,-0x1 05a8 01d7 | | Execute Vector,Field_Read 05a9 0f20 | | Execute_Immediate Equal,0x20 05aa 6818 |h | Jump_Zero 0x5c3 05ab e802 | | Load 0x4,0x2 05ac 00d9 | | Load_Top At_Offset_1 05ad 027f | | Execute Discrete,Equal 05ae 6804 |h | Jump_Zero 0x5b3 05af 00d8 | | Load_Top At_Offset_0 05b0 0a01 | | Execute_Immediate Plus,0x1 05b1 c802 | | Store 0x4,0x2 05b2 7810 |x | Jump 0x5c3 05b3 00db | | Load_Top At_Offset_3 05b4 0a01 | | Execute_Immediate Plus,0x1 05b5 c803 | | Store 0x4,0x3 05b6 00db | | Load_Top At_Offset_3 05b7 e9fe | | Load 0x4,-0x2 05b8 027f | | Execute Discrete,Equal 05b9 6806 |h | Jump_Zero 0x5c0 05ba e802 | | Load 0x4,0x2 05bb 00d9 | | Load_Top At_Offset_1 05bc 0aff | | Execute_Immediate Plus,-0x1 05bd e9ff | | Load 0x4,-0x1 05be 01cf | | Execute Vector,Slice_Read 05bf 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 05c0 00d8 | | Load_Top At_Offset_0 05c1 0a01 | | Execute_Immediate Plus,0x1 05c2 c802 | | Store 0x4,0x2 05c3 00c8 | | Action Pop_Auxiliary_Range 05c4 3fe1 |? | Loop_Increasing 0x5a6 05c5 00ce | | Action Pop_Auxiliary 05c6 00d8 | | Load_Top At_Offset_0 05c7 0a01 | | Execute_Immediate Plus,0x1 05c8 0059 | Y | Store_Top Discrete,At_Offset_1 05c9 00d8 | | Load_Top At_Offset_0 05ca e9fe | | Load 0x4,-0x2 05cb 027f | | Execute Discrete,Equal 05cc 6806 |h | Jump_Zero 0x5d3 05cd 00d9 | | Load_Top At_Offset_1 05ce e9ff | | Load 0x4,-0x1 05cf 01dc | | Execute Vector,Last 05d0 e9ff | | Load 0x4,-0x1 05d1 01cf | | Execute Vector,Slice_Read 05d2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 05d3 00ea | | Load_Encached Null_String_Cache 05d4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 05d5 0000 0000 | | .XXX[0x3] 05d7 0000 | | 05d8 ; -------------------------------------------------------------------------------------- 05d8 ; SUBPROGRAM 05d8 ; -------------------------------------------------------------------------------------- 05d8 05e3 | | .CONST 0x05e3 ; Address of begin 05d9 05fd | | .CONST 0x05fd ; Address of exception handler 05da 0004 | | .CONST 0x0004 ; Number of locals 05db INIT_05d8: 05db 4801 |H | Short_Literal 0x1 05dc 00db | | Load_Top At_Offset_3 05dd 8604 | | Call 0x3,0x4 05de 4802 |H | Short_Literal 0x2 05df e9ff | | Load 0x4,-0x1 05e0 8604 | | Call 0x3,0x4 05e1 029f 07b3 | | Declare_Subprogram INIT_07b0,For_Call 05e3 BODY_05d8: 05e3 e9ff | | Load 0x4,-0x1 05e4 01db | | Execute Vector,Length 05e5 6816 |h | Jump_Zero 0x5fc 05e6 e9ff | | Load 0x4,-0x1 05e7 01db | | Execute Vector,Length 05e8 0c02 | | Execute_Immediate Greater_Equal,0x2 05e9 6811 |h | Jump_Zero 0x5fb 05ea e9ff | | Load 0x4,-0x1 05eb 01dd | | Execute Vector,First 05ec e9ff | | Load 0x4,-0x1 05ed 01dd | | Execute Vector,First 05ee 0a01 | | Execute_Immediate Plus,0x1 05ef 00d8 | | Load_Top At_Offset_0 05f0 00e2 | | Load_Encached Integer_Cache 05f1 0260 | ` | Execute Discrete,In_Type 05f2 7001 |p | Jump_Nonzero 0x5f4 05f3 0801 | | Execute_Immediate Raise,0x1 05f4 e9ff | | Load 0x4,-0x1 05f5 01cf | | Execute Vector,Slice_Read 05f6 0092 0880 | | Action Push_String_Extended,0x880 ; "--" 05f8 01df | | Execute Vector,Equal 05f9 6801 |h | Jump_Zero 0x5fb 05fa 4502 |E | Exit_Suprogram New_Top_Offset 0x2 05fb 8804 | | Call 0x4,0x4 05fc 4502 |E | Exit_Suprogram New_Top_Offset 0x2 05fd TRAP_05d8: 05fd e408 | | Load 0x2,0x8 05fe 1b20 | | Execute Package,Field_Read,Field_Number 0x20 05ff 010f | | Execute Exception,Equal 0600 680d |h | Jump_Zero 0x60e 0601 00da | | Load_Top At_Offset_2 0602 0092 0883 | | Action Push_String_Extended,0x883 ; " is not a defined printer" 0604 01cc | | Execute Vector,Catenate 0605 e00e | | Load 0x0,0xe 0606 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0607 0092 0884 | | Action Push_String_Extended,0x884 ; " In line: " 0609 e9ff | | Load 0x4,-0x1 060a 01cc | | Execute Vector,Catenate 060b e00e | | Load 0x0,0xe 060c 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 060d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 060e 0100 | | Execute Exception,Raise 060f 0000 | | .XXX[0x1] 0610 ; -------------------------------------------------------------------------------------- 0610 ; SUBPROGRAM 0610 ; -------------------------------------------------------------------------------------- 0610 0618 | | .CONST 0x0618 ; Address of begin 0611 0004 | | .CONST 0x0004 ; Address of exception handler 0612 0003 | | .CONST 0x0003 ; Number of locals 0613 INIT_0610: 0613 e408 | | Load 0x2,0x8 0614 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0615 0322 | " | Declare_Variable Record 0616 029f 07e3 | | Declare_Subprogram INIT_07e0,For_Call 0618 BODY_0610: 0618 00d9 | | Load_Top At_Offset_1 0619 e409 | | Load 0x2,0x9 061a e408 | | Load 0x2,0x8 061b 181c | | Execute Package,Field_Execute,Field_Number 0x1c 061c 00d1 | | Pop_Control Pop_Count_1 061d 00cf | | Action Mark_Auxiliary 061e 7806 |x | Jump 0x625 061f 8803 | | Call 0x4,0x3 0620 00da | | Load_Top At_Offset_2 0621 e408 | | Load 0x2,0x8 0622 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0623 00d1 | | Pop_Control Pop_Count_1 0624 00c9 | | Action Pop_Auxiliary_Loop 0625 00da | | Load_Top At_Offset_2 0626 e408 | | Load 0x2,0x8 0627 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0628 6ff6 |o | Jump_Zero 0x61f 0629 4501 |E | Exit_Suprogram New_Top_Offset 0x1 062a 0000 0000 | | .BLANK 0000[0x6] 0630 ; -------------------------------------------------------------------------------------- 0630 ; SUBPROGRAM 0630 ; -------------------------------------------------------------------------------------- 0630 0635 | 5 | .CONST 0x0635 ; Address of begin 0631 0650 | P | .CONST 0x0650 ; Address of exception handler 0632 0002 | | .CONST 0x0002 ; Number of locals 0633 INIT_0630: 0633 029f 081b | | Declare_Subprogram INIT_0818,For_Call 0635 BODY_0630: 0635 e602 | | Load 0x3,0x2 0636 00ea | | Load_Encached Null_String_Cache 0637 e7ff | | Load 0x3,-0x1 0638 4800 |H | Short_Literal 0x0 0639 e00e | | Load 0x0,0xe 063a 1815 | | Execute Package,Field_Execute,Field_Number 0x15 063b c602 | | Store 0x3,0x2 063c 00cf | | Action Mark_Auxiliary 063d 7808 |x | Jump 0x646 063e 4820 |H | Short_Literal 0x20 063f e602 | | Load 0x3,0x2 0640 e00e | | Load 0x0,0xe 0641 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0642 e00f | | Load 0x0,0xf 0643 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0644 8605 | | Call 0x3,0x5 0645 00c9 | | Action Pop_Auxiliary_Loop 0646 e602 | | Load 0x3,0x2 0647 e00e | | Load 0x0,0xe 0648 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0649 6ff4 |o | Jump_Zero 0x63e 064a 00ce | | Action Pop_Auxiliary 064b e602 | | Load 0x3,0x2 064c e00e | | Load 0x0,0xe 064d 181b | | Execute Package,Field_Execute,Field_Number 0x1b 064e c602 | | Store 0x3,0x2 064f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0650 TRAP_0630: 0650 00d8 | | Load_Top At_Offset_0 0651 0107 | | Execute Exception,Get_Name 0652 4920 |I | Short_Literal 0x120 0653 492f |I/ | Short_Literal 0x12f 0654 0262 | b | Execute Discrete,In_Range 0655 6802 |h | Jump_Zero 0x658 0656 8802 | | Call 0x4,0x2 0657 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0658 0100 | | Execute Exception,Raise 0659 0000 0000 | | .BLANK 0000[0x7] 0660 ; -------------------------------------------------------------------------------------- 0660 ; SUBPROGRAM 0660 ; -------------------------------------------------------------------------------------- 0660 066c | l | .CONST 0x066c ; Address of begin 0661 0004 | | .CONST 0x0004 ; Address of exception handler 0662 0002 | | .CONST 0x0002 ; Number of locals 0663 INIT_0660: 0663 4820 |H | Short_Literal 0x20 0664 e9ff | | Load 0x4,-0x1 0665 01dd | | Execute Vector,First 0666 e802 | | Load 0x4,0x2 0667 0aff | | Execute_Immediate Plus,-0x1 0668 e9ff | | Load 0x4,-0x1 0669 01cf | | Execute Vector,Slice_Read 066a e00f | | Load 0x0,0xf 066b 181c | | Execute Package,Field_Execute,Field_Number 0x1c 066c BODY_0660: 066c 4800 |H | Short_Literal 0x0 066d 00ea | | Load_Encached Null_String_Cache 066e 4800 |H | Short_Literal 0x0 066f 00db | | Load_Top At_Offset_3 0670 4801 |H | Short_Literal 0x1 0671 e40b | | Load 0x2,0xb 0672 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0673 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0674 0000 0000 | | .BLANK 0000[0x4] 0678 ; -------------------------------------------------------------------------------------- 0678 ; SUBPROGRAM 0678 ; -------------------------------------------------------------------------------------- 0678 0680 | | .CONST 0x0680 ; Address of begin 0679 0004 | | .CONST 0x0004 ; Address of exception handler 067a 0002 | | .CONST 0x0002 ; Number of locals 067b INIT_0678: 067b 00ea | | Load_Encached Null_String_Cache 067c 4803 |H | Short_Literal 0x3 067d e9fe | | Load 0x4,-0x2 067e e40d | | Load 0x2,0xd 067f 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0680 BODY_0678: 0680 4801 |H | Short_Literal 0x1 0681 00d9 | | Load_Top At_Offset_1 0682 0092 0885 | | Action Push_String_Extended,0x885 ; "Terminal_" 0684 e00f | | Load 0x0,0xf 0685 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0686 0c01 | | Execute_Immediate Greater_Equal,0x1 0687 6803 |h | Jump_Zero 0x68b 0688 00d8 | | Load_Top At_Offset_0 0689 00cb | | Action Pop_Block_With_Result 068a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 068b 00d8 | | Load_Top At_Offset_0 068c 0092 0886 | | Action Push_String_Extended,0x886 ; " is not a proper device name" 068e 01cc | | Execute Vector,Catenate 068f e00e | | Load 0x0,0xe 0690 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0691 e014 | | Load 0x0,0x14 0692 0257 | W | Execute Discrete,Raise 0693 0000 0000 | | .BLANK 0000[0x5] 0698 ; -------------------------------------------------------------------------------------- 0698 ; SUBPROGRAM 0698 ; -------------------------------------------------------------------------------------- 0698 06a4 | | .CONST 0x06a4 ; Address of begin 0699 0004 | | .CONST 0x0004 ; Address of exception handler 069a 0002 | | .CONST 0x0002 ; Number of locals 069b INIT_0698: 069b e015 | | Load 0x0,0x15 069c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 069d 02c7 | | Declare_Variable Any 069e 6019 |` | Indirect_Literal Discrete,0x6b8,{0x00000000, 0x012c0000} 069f e015 | | Load 0x0,0x15 06a0 1812 | | Execute Package,Field_Execute,Field_Number 0x12 06a1 e015 | | Load 0x0,0x15 06a2 1819 | | Execute Package,Field_Execute,Field_Number 0x19 06a3 aa02 | | Store_Unchecked 0x5,0x2 06a4 BODY_0698: 06a4 00cf | | Action Mark_Auxiliary 06a5 7803 |x | Jump 0x6a9 06a6 600d |` | Indirect_Literal Discrete,0x6b4,{0x00000000, 0x00028000} 06a7 00ba | | Action Initiate_Delay 06a8 00c9 | | Action Pop_Auxiliary_Loop 06a9 e802 | | Load 0x4,0x2 06aa e00c | | Load 0x0,0xc 06ab 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 06ac 00da | | Load_Top At_Offset_2 06ad e015 | | Load 0x0,0x15 06ae 1812 | | Execute Package,Field_Execute,Field_Number 0x12 06af e015 | | Load 0x0,0x15 06b0 181d | | Execute Package,Field_Execute,Field_Number 0x1d 06b1 0279 | y | Execute Discrete,And 06b2 77f3 |w | Jump_Nonzero 0x6a6 06b3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 06b4 0000 0000 | | .LITERAL {0x00000000, 0x00028000} 06b8 0000 0000 | | .LITERAL {0x00000000, 0x012c0000} 06bc 0000 0000 | | .BLANK 0000[0x4] 06c0 ; -------------------------------------------------------------------------------------- 06c0 ; SUBPROGRAM 06c0 ; -------------------------------------------------------------------------------------- 06c0 06cc | | .CONST 0x06cc ; Address of begin 06c1 0004 | | .CONST 0x0004 ; Address of exception handler 06c2 0002 | | .CONST 0x0002 ; Number of locals 06c3 INIT_06c0: 06c3 e015 | | Load 0x0,0x15 06c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06c5 02c7 | | Declare_Variable Any 06c6 6019 |` | Indirect_Literal Discrete,0x6e0,{0x00000000, 0x00960000} 06c7 e015 | | Load 0x0,0x15 06c8 1812 | | Execute Package,Field_Execute,Field_Number 0x12 06c9 e015 | | Load 0x0,0x15 06ca 1819 | | Execute Package,Field_Execute,Field_Number 0x19 06cb aa02 | | Store_Unchecked 0x5,0x2 06cc BODY_06c0: 06cc 00cf | | Action Mark_Auxiliary 06cd 7803 |x | Jump 0x6d1 06ce 600d |` | Indirect_Literal Discrete,0x6dc,{0x00000000, 0x00010000} 06cf 00ba | | Action Initiate_Delay 06d0 00c9 | | Action Pop_Auxiliary_Loop 06d1 e9ff | | Load 0x4,-0x1 06d2 e00c | | Load 0x0,0xc 06d3 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 06d4 00da | | Load_Top At_Offset_2 06d5 e015 | | Load 0x0,0x15 06d6 1812 | | Execute Package,Field_Execute,Field_Number 0x12 06d7 e015 | | Load 0x0,0x15 06d8 181d | | Execute Package,Field_Execute,Field_Number 0x1d 06d9 0279 | y | Execute Discrete,And 06da 77f3 |w | Jump_Nonzero 0x6ce 06db 4501 |E | Exit_Suprogram New_Top_Offset 0x1 06dc 0000 0000 | | .LITERAL {0x00000000, 0x00010000} 06e0 0000 0000 | | .LITERAL {0x00000000, 0x00960000} 06e4 0000 0000 | | .BLANK 0000[0x4] 06e8 ; -------------------------------------------------------------------------------------- 06e8 ; SUBPROGRAM 06e8 ; -------------------------------------------------------------------------------------- 06e8 06f4 | | .CONST 0x06f4 ; Address of begin 06e9 0004 | | .CONST 0x0004 ; Address of exception handler 06ea 0003 | | .CONST 0x0003 ; Number of locals 06eb INIT_06e8: 06eb 00ea | | Load_Encached Null_String_Cache 06ec 4801 |H | Short_Literal 0x1 06ed e802 | | Load 0x4,0x2 06ee e40d | | Load 0x2,0xd 06ef 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 06f0 e802 | | Load 0x4,0x2 06f1 8607 | | Call 0x3,0x7 06f2 e40e | | Load 0x2,0xe 06f3 03f1 | | Declare_Variable Discrete,With_Value 06f4 BODY_06e8: 06f4 00d9 | | Load_Top At_Offset_1 06f5 8606 | | Call 0x3,0x6 06f6 6812 |h | Jump_Zero 0x709 06f7 00d8 | | Load_Top At_Offset_0 06f8 680a |h | Jump_Zero 0x703 06f9 00d8 | | Load_Top At_Offset_0 06fa e802 | | Load 0x4,0x2 06fb e9ff | | Load 0x4,-0x1 06fc 860d | | Call 0x3,0xd 06fd 00ea | | Load_Encached Null_String_Cache 06fe 00d9 | | Load_Top At_Offset_1 06ff e802 | | Load 0x4,0x2 0700 e9ff | | Load 0x4,-0x1 0701 8605 | | Call 0x3,0x5 0702 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0703 0092 0887 | | Action Push_String_Extended,0x887 ; "The current options do not define a device" 0705 e00e | | Load 0x0,0xe 0706 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0707 e014 | | Load 0x0,0x14 0708 0257 | W | Execute Discrete,Raise 0709 e9ff | | Load 0x4,-0x1 070a 0092 0888 | | Action Push_String_Extended,0x888 ; " is located on " 070c 01cc | | Execute Vector,Catenate 070d 00da | | Load_Top At_Offset_2 070e 01cc | | Execute Vector,Catenate 070f e00e | | Load 0x0,0xe 0710 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0711 00d9 | | Load_Top At_Offset_1 0712 00d9 | | Load_Top At_Offset_1 0713 e802 | | Load 0x4,0x2 0714 e9ff | | Load 0x4,-0x1 0715 8605 | | Call 0x3,0x5 0716 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0717 0000 | | .XXX[0x1] 0718 ; -------------------------------------------------------------------------------------- 0718 ; SUBPROGRAM 0718 ; -------------------------------------------------------------------------------------- 0718 071f | | .CONST 0x071f ; Address of begin 0719 0004 | | .CONST 0x0004 ; Address of exception handler 071a 0002 | | .CONST 0x0002 ; Number of locals 071b INIT_0718: 071b 4800 |H | Short_Literal 0x0 071c e802 | | Load 0x4,0x2 071d e40b | | Load 0x2,0xb 071e 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 071f BODY_0718: 071f 4820 |H | Short_Literal 0x20 0720 00ea | | Load_Encached Null_String_Cache 0721 4800 |H | Short_Literal 0x0 0722 e802 | | Load 0x4,0x2 0723 e40b | | Load 0x2,0xb 0724 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0725 e00f | | Load 0x0,0xf 0726 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0727 00d9 | | Load_Top At_Offset_1 0728 860e | | Call 0x3,0xe 0729 4501 |E | Exit_Suprogram New_Top_Offset 0x1 072a 0000 0000 | | .BLANK 0000[0x6] 0730 ; -------------------------------------------------------------------------------------- 0730 ; SUBPROGRAM 0730 ; -------------------------------------------------------------------------------------- 0730 0733 | 3 | .CONST 0x0733 ; Address of begin 0731 0004 | | .CONST 0x0004 ; Address of exception handler 0732 0001 | | .CONST 0x0001 ; Number of locals 0733 BODY_0730: 0733 INIT_0730: 0733 00cf | | Action Mark_Auxiliary 0734 00db | | Load_Top At_Offset_3 0735 01dc | | Execute Vector,Last 0736 ebff | | Load 0x5,-0x1 0737 01dd | | Execute Vector,First 0738 0263 | c | Execute Discrete,Above_Bound 0739 7012 |p | Jump_Nonzero 0x74c 073a 00d8 | | Load_Top At_Offset_0 073b ebff | | Load 0x5,-0x1 073c 01d7 | | Execute Vector,Field_Read 073d 0f28 | ( | Execute_Immediate Equal,0x28 073e 6803 |h | Jump_Zero 0x742 073f ebfe | | Load 0x5,-0x2 0740 0a01 | | Execute_Immediate Plus,0x1 0741 cbfe | | Store 0x5,-0x2 0742 00d8 | | Load_Top At_Offset_0 0743 ebff | | Load 0x5,-0x1 0744 01d7 | | Execute Vector,Field_Read 0745 0f29 | ) | Execute_Immediate Equal,0x29 0746 6803 |h | Jump_Zero 0x74a 0747 ebfd | | Load 0x5,-0x3 0748 0a01 | | Execute_Immediate Plus,0x1 0749 cbfd | | Store 0x5,-0x3 074a 00c8 | | Action Pop_Auxiliary_Range 074b 3fee |? | Loop_Increasing 0x73a 074c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 074d 0000 0000 | | .XXX[0x3] 074f 0000 | | 0750 ; -------------------------------------------------------------------------------------- 0750 ; SUBPROGRAM 0750 ; -------------------------------------------------------------------------------------- 0750 076d | m | .CONST 0x076d ; Address of begin 0751 0004 | | .CONST 0x0004 ; Address of exception handler 0752 0006 | | .CONST 0x0006 ; Number of locals 0753 INIT_0750: 0753 4820 |H | Short_Literal 0x20 0754 e9ff | | Load 0x4,-0x1 0755 e00e | | Load 0x0,0xe 0756 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0757 e00f | | Load 0x0,0xf 0758 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0759 00d8 | | Load_Top At_Offset_0 075a 01dd | | Execute Vector,First 075b 00e3 | | Load_Encached Natural_Cache 075c 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 075d 00d9 | | Load_Top At_Offset_1 075e 01dc | | Execute Vector,Last 075f 00e3 | | Load_Encached Natural_Cache 0760 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0761 00da | | Load_Top At_Offset_2 0762 01db | | Execute Vector,Length 0763 00e3 | | Load_Encached Natural_Cache 0764 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0765 4801 |H | Short_Literal 0x1 0766 ea02 | | Load 0x5,0x2 0767 0092 0880 | | Action Push_String_Extended,0x880 ; "--" 0769 e00f | | Load 0x0,0xf 076a 181d | | Execute Package,Field_Execute,Field_Number 0x1d 076b 00e3 | | Load_Encached Natural_Cache 076c 03f1 | | Declare_Variable Discrete,With_Value 076d BODY_0750: 076d 00d8 | | Load_Top At_Offset_0 076e 0c01 | | Execute_Immediate Greater_Equal,0x1 076f 6810 |h | Jump_Zero 0x780 0770 4820 |H | Short_Literal 0x20 0771 ea03 | | Load 0x5,0x3 0772 00da | | Load_Top At_Offset_2 0773 0aff | | Execute_Immediate Plus,-0x1 0774 ea02 | | Load 0x5,0x2 0775 01cf | | Execute Vector,Slice_Read 0776 e00f | | Load 0x0,0xf 0777 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0778 01dc | | Execute Vector,Last 0779 005b | [ | Store_Top Discrete,At_Offset_3 077a 00db | | Load_Top At_Offset_3 077b 00db | | Load_Top At_Offset_3 077c ea02 | | Load 0x5,0x2 077d 01cf | | Execute Vector,Slice_Read 077e 01db | | Execute Vector,Length 077f 005a | Z | Store_Top Discrete,At_Offset_2 0780 00da | | Load_Top At_Offset_2 0781 ea03 | | Load 0x5,0x3 0782 027d | } | Execute Discrete,Greater 0783 6828 |h( | Jump_Zero 0x7ac 0784 00db | | Load_Top At_Offset_3 0785 00db | | Load_Top At_Offset_3 0786 ea02 | | Load 0x5,0x2 0787 01cf | | Execute Vector,Slice_Read 0788 e803 | | Load 0x4,0x3 0789 0a01 | | Execute_Immediate Plus,0x1 078a 00d8 | | Load_Top At_Offset_0 078b 00e2 | | Load_Encached Integer_Cache 078c 0260 | ` | Execute Discrete,In_Type 078d 7001 |p | Jump_Nonzero 0x78f 078e 0801 | | Execute_Immediate Raise,0x1 078f e803 | | Load 0x4,0x3 0790 ea05 | | Load 0x5,0x5 0791 0273 | s | Execute Discrete,Plus 0792 00d8 | | Load_Top At_Offset_0 0793 00e2 | | Load_Encached Integer_Cache 0794 0260 | ` | Execute Discrete,In_Type 0795 7001 |p | Jump_Nonzero 0x797 0796 0801 | | Execute_Immediate Raise,0x1 0797 e802 | | Load 0x4,0x2 0798 01ce | | Execute Vector,Slice_Write 0799 e803 | | Load 0x4,0x3 079a 00da | | Load_Top At_Offset_2 079b 0273 | s | Execute Discrete,Plus 079c c803 | | Store 0x4,0x3 079d e805 | | Load 0x4,0x5 079e e804 | | Load 0x4,0x4 079f ea03 | | Load 0x5,0x3 07a0 ea04 | | Load 0x5,0x4 07a1 ea02 | | Load 0x5,0x2 07a2 01cf | | Execute Vector,Slice_Read 07a3 8806 | | Call 0x4,0x6 07a4 c804 | | Store 0x4,0x4 07a5 c805 | | Store 0x4,0x5 07a6 e804 | | Load 0x4,0x4 07a7 e805 | | Load 0x4,0x5 07a8 027f | | Execute Discrete,Equal 07a9 6802 |h | Jump_Zero 0x7ac 07aa 00cc | | Action Pop_Block 07ab 7dca |} | Jump 0x576 07ac 4501 |E | Exit_Suprogram New_Top_Offset 0x1 07ad 0000 0000 | | .XXX[0x3] 07af 0000 | | 07b0 ; -------------------------------------------------------------------------------------- 07b0 ; SUBPROGRAM 07b0 ; -------------------------------------------------------------------------------------- 07b0 07d1 | | .CONST 0x07d1 ; Address of begin 07b1 0004 | | .CONST 0x0004 ; Address of exception handler 07b2 0003 | | .CONST 0x0003 ; Number of locals 07b3 INIT_07b0: 07b3 e803 | | Load 0x4,0x3 07b4 e409 | | Load 0x2,0x9 07b5 e408 | | Load 0x2,0x8 07b6 1813 | | Execute Package,Field_Execute,Field_Number 0x13 07b7 e802 | | Load 0x4,0x2 07b8 0092 0862 | b| Action Push_String_Extended,0x862 ; " " 07ba 01cc | | Execute Vector,Catenate 07bb 00d9 | | Load_Top At_Offset_1 07bc 0227 | ' | Execute Access,All_Reference 07bd 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 07be 0227 | ' | Execute Access,All_Reference 07bf 01cc | | Execute Vector,Catenate 07c0 0092 0862 | b| Action Push_String_Extended,0x862 ; " " 07c2 01cc | | Execute Vector,Catenate 07c3 00d9 | | Load_Top At_Offset_1 07c4 0227 | ' | Execute Access,All_Reference 07c5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 07c6 0227 | ' | Execute Access,All_Reference 07c7 01cc | | Execute Vector,Catenate 07c8 0092 0862 | b| Action Push_String_Extended,0x862 ; " " 07ca 01cc | | Execute Vector,Catenate 07cb 00d9 | | Load_Top At_Offset_1 07cc 0227 | ' | Execute Access,All_Reference 07cd 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 07ce 0227 | ' | Execute Access,All_Reference 07cf 01cc | | Execute Vector,Catenate 07d0 0007 | | Action Break_Optional 07d1 BODY_07b0: 07d1 00d8 | | Load_Top At_Offset_0 07d2 e00e | | Load 0x0,0xe 07d3 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 07d4 e5fa | | Load 0x2,-0x6 07d5 7004 |p | Jump_Nonzero 0x7da 07d6 00d8 | | Load_Top At_Offset_0 07d7 e603 | | Load 0x3,0x3 07d8 e00e | | Load 0x0,0xe 07d9 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 07da 4501 |E | Exit_Suprogram New_Top_Offset 0x1 07db 0000 0000 | | .BLANK 0000[0x5] 07e0 ; -------------------------------------------------------------------------------------- 07e0 ; SUBPROGRAM 07e0 ; -------------------------------------------------------------------------------------- 07e0 0807 | | .CONST 0x0807 ; Address of begin 07e1 0004 | | .CONST 0x0004 ; Address of exception handler 07e2 0004 | | .CONST 0x0004 ; Number of locals 07e3 INIT_07e0: 07e3 e802 | | Load 0x4,0x2 07e4 e408 | | Load 0x2,0x8 07e5 181e | | Execute Package,Field_Execute,Field_Number 0x1e 07e6 00d8 | | Load_Top At_Offset_0 07e7 e409 | | Load 0x2,0x9 07e8 e408 | | Load 0x2,0x8 07e9 1813 | | Execute Package,Field_Execute,Field_Number 0x13 07ea 0092 0889 | | Action Push_String_Extended,0x889 ; "*" 07ec 00da | | Load_Top At_Offset_2 07ed 01cc | | Execute Vector,Catenate 07ee 0092 0862 | b| Action Push_String_Extended,0x862 ; " " 07f0 01cc | | Execute Vector,Catenate 07f1 00d9 | | Load_Top At_Offset_1 07f2 0227 | ' | Execute Access,All_Reference 07f3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 07f4 0227 | ' | Execute Access,All_Reference 07f5 01cc | | Execute Vector,Catenate 07f6 0092 0862 | b| Action Push_String_Extended,0x862 ; " " 07f8 01cc | | Execute Vector,Catenate 07f9 00d9 | | Load_Top At_Offset_1 07fa 0227 | ' | Execute Access,All_Reference 07fb 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 07fc 0227 | ' | Execute Access,All_Reference 07fd 01cc | | Execute Vector,Catenate 07fe 0092 0862 | b| Action Push_String_Extended,0x862 ; " " 0800 01cc | | Execute Vector,Catenate 0801 00d9 | | Load_Top At_Offset_1 0802 0227 | ' | Execute Access,All_Reference 0803 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0804 0227 | ' | Execute Access,All_Reference 0805 01cc | | Execute Vector,Catenate 0806 0007 | | Action Break_Optional 0807 BODY_07e0: 0807 00d8 | | Load_Top At_Offset_0 0808 e00e | | Load 0x0,0xe 0809 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 080a e5fa | | Load 0x2,-0x6 080b 7004 |p | Jump_Nonzero 0x810 080c 00d8 | | Load_Top At_Offset_0 080d e603 | | Load 0x3,0x3 080e e00e | | Load 0x0,0xe 080f 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0810 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0811 0000 0000 | | .BLANK 0000[0x7] 0818 ; -------------------------------------------------------------------------------------- 0818 ; SUBPROGRAM 0818 ; -------------------------------------------------------------------------------------- 0818 0830 | 0 | .CONST 0x0830 ; Address of begin 0819 0004 | | .CONST 0x0004 ; Address of exception handler 081a 0003 | | .CONST 0x0003 ; Number of locals 081b INIT_0818: 081b e405 | | Load 0x2,0x5 081c 0227 | ' | Execute Access,All_Reference 081d e409 | | Load 0x2,0x9 081e e408 | | Load 0x2,0x8 081f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0820 0092 088a | | Action Push_String_Extended,0x88a ; "others " 0822 00d9 | | Load_Top At_Offset_1 0823 0227 | ' | Execute Access,All_Reference 0824 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0825 0227 | ' | Execute Access,All_Reference 0826 01cc | | Execute Vector,Catenate 0827 0092 0862 | b| Action Push_String_Extended,0x862 ; " " 0829 01cc | | Execute Vector,Catenate 082a 00d9 | | Load_Top At_Offset_1 082b 0227 | ' | Execute Access,All_Reference 082c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 082d 0227 | ' | Execute Access,All_Reference 082e 01cc | | Execute Vector,Catenate 082f 0007 | | Action Break_Optional 0830 BODY_0818: 0830 00d8 | | Load_Top At_Offset_0 0831 e00e | | Load 0x0,0xe 0832 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0833 e5fa | | Load 0x2,-0x6 0834 7004 |p | Jump_Nonzero 0x839 0835 00d8 | | Load_Top At_Offset_0 0836 e603 | | Load 0x3,0x3 0837 e00e | | Load 0x0,0xe 0838 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0839 4501 |E | Exit_Suprogram New_Top_Offset 0x1 083a ; -------------------------------------------------------------------------------------- 083a ; STRING TABLE 083a ; -------------------------------------------------------------------------------------- 083a 00a4 | | .STRTAB 0x00a4->0x088c ; "NIL" 083b 00a5 | | .STRTAB 0x00a5->0x088d ; "NEW_NAME" 083c 00ab | | .STRTAB 0x00ab->0x0891 ; "NIL" 083d 00ac | | .STRTAB 0x00ac->0x0893 ; "ON_NODE" 083e 00b1 | | .STRTAB 0x00b1->0x0896 ; "DIRECT" 083f 00b5 | | .STRTAB 0x00b5->0x0899 ; "DEVICE" 0840 00b9 | | .STRTAB 0x00b9->0x089c ; "TELNET" 0841 00bd | | .STRTAB 0x00bd->0x089f ; "SOCKET" 0842 00c1 | | .STRTAB 0x00c1->0x08a2 ; "FILE" 0843 00c3 | | .STRTAB 0x00c3->0x08a4 ; "WORKSTATION" 0844 00cc | | .STRTAB 0x00cc->0x08aa ; "PATH" 0845 00ce | | .STRTAB 0x00ce->0x08ac ; "SUFFIX" 0846 00d2 | | .STRTAB 0x00d2->0x08af ; "LASER_COMM" 0847 00da | | .STRTAB 0x00da->0x08b4 ; "REVERSE_OUTPUT_PAGES" 0848 00ec | | .STRTAB 0x00ec->0x08be ; "NIL" 0849 00ed | | .STRTAB 0x00ed->0x08bf ; "DIRECT_CONNECTION" 084a 00fc | | .STRTAB 0x00fc->0x08c8 ; "TELNET_CONNECTION" 084b 010b | | .STRTAB 0x010b->0x08d0 ; "LOCAL_FILE" 084c 0113 | | .STRTAB 0x0113->0x08d5 ; "REMOTE_FILE" 084d 011c | | .STRTAB 0x011c->0x08db ; "NIL" 084e 011d | | .STRTAB 0x011d->0x08dc ; "XON_XOFF" 084f 0123 | # | .STRTAB 0x0123->0x08e0 ; "RTS" 0850 0124 | $ | .STRTAB 0x0124->0x08e2 ; ".Remote_Access" 0851 0130 | 0 | .STRTAB 0x0130->0x08e9 ; "others => Unspecified" 0852 0143 | C | .STRTAB 0x0143->0x08f3 ; "Laser_Comm | Reverse_Output_Pages => Boolean_Valued, others => unspecified" 0853 018b | | .STRTAB 0x018b->0x0918 ; "<ERRORS>" 0854 0191 | | .STRTAB 0x0191->0x091c ; "Holding" 0855 0196 | | .STRTAB 0x0196->0x0920 ; ">>> Set EFFORT_ONLY to false for these settings to take effect <<<" 0856 01d7 | | .STRTAB 0x01d7->0x0941 ; "The file " 0857 01de | | .STRTAB 0x01de->0x0946 ; " will not be created" 0858 01f0 | | .STRTAB 0x01f0->0x0950 ; " does not exist" 0859 01fd | | .STRTAB 0x01fd->0x0957 ; "The contents of the file " 085a 0214 | | .STRTAB 0x0214->0x0964 ; " are:" 085b 0217 | | .STRTAB 0x0217->0x0966 ; "=" 085c 0216 | | .STRTAB 0x0216->0x0967 ; "!!" 085d 0216 | | .STRTAB 0x0216->0x0968 ; "." 085e 0215 | | .STRTAB 0x0215->0x0968 ; "Laser" 085f 0218 | | .STRTAB 0x0218->0x096b ; "Other" 0860 021b | | .STRTAB 0x021b->0x096d ; "Reversed => True" 0861 0229 | ) | .STRTAB 0x0229->0x0975 ; "Reversed => False" 0862 0238 | 8 | .STRTAB 0x0238->0x097e ; " " 0863 0237 | 7 | .STRTAB 0x0237->0x097e ; " is not defined on the server" 0864 0252 | R | .STRTAB 0x0252->0x098d ; ", Laser_Comm" 0865 025c | \ | .STRTAB 0x025c->0x0993 ; "Laser_Comm" 0866 0264 | d | .STRTAB 0x0264->0x0998 ; " is not a proper protocol" 0867 027b | { | .STRTAB 0x027b->0x09a4 ; "_" 0868 027a | z | .STRTAB 0x027a->0x09a5 ; "Creating a file " 0869 0288 | | .STRTAB 0x0288->0x09ad ; " containing -> " 086a 0297 | | .STRTAB 0x0297->0x09b5 ; " nl " 086b 0299 | | .STRTAB 0x0299->0x09b7 ; "*** Cound not create the file " 086c 02b5 | | .STRTAB 0x02b5->0x09c6 ; "FTP" 086d 02b6 | | .STRTAB 0x02b6->0x09c8 ; "Host => " 086e 02bc | | .STRTAB 0x02bc->0x09cc ; ", Socket => (" 086f 02c7 | | .STRTAB 0x02c7->0x09d2 ; ")" 0870 02c6 | | .STRTAB 0x02c6->0x09d3 ; "Xon_Xoff" 0871 02cc | | .STRTAB 0x02cc->0x09d7 ; "Setting up " 0872 02d5 | | .STRTAB 0x02d5->0x09dc ; " Class -> " 0873 02e0 | | .STRTAB 0x02e0->0x09e3 ; " Device -> " 0874 02eb | | .STRTAB 0x02eb->0x09e9 ; " Options -> " 0875 02f6 | | .STRTAB 0x02f6->0x09f0 ; "---" 0876 02f7 | | .STRTAB 0x02f7->0x09f1 ; "Disabling device: " 0877 0307 | | .STRTAB 0x0307->0x09fa ; "Deleting existing device: " 0878 031f | | .STRTAB 0x031f->0x0a07 ; "Creating class: " 0879 032d | - | .STRTAB 0x032d->0x0a0f ; "Creating device: " 087a 033c | < | .STRTAB 0x033c->0x0a18 ; "Registering " 087b 0346 | F | .STRTAB 0x0346->0x0a1e ; " with " 087c 034a | J | .STRTAB 0x034a->0x0a21 ; "Enabling device. See error log if there are errors for more information" 087d 0390 | | .STRTAB 0x0390->0x0a45 ; "Illegal format: " 087e 039e | | .STRTAB 0x039e->0x0a4d ; " " 087f 03a1 | | .STRTAB 0x03a1->0x0a4f ; "Illegal item in line: " 0880 03b5 | | .STRTAB 0x03b5->0x0a5a ; "--" 0881 03b5 | | .STRTAB 0x03b5->0x0a5b ; "The parentheses in the file " 0882 03cf | | .STRTAB 0x03cf->0x0a69 ; " do not match" 0883 03da | | .STRTAB 0x03da->0x0a70 ; " is not a defined printer" 0884 03f1 | | .STRTAB 0x03f1->0x0a7c ; " In line: " 0885 03fb | | .STRTAB 0x03fb->0x0a82 ; "Terminal_" 0886 0402 | | .STRTAB 0x0402->0x0a87 ; " is not a proper device name" 0887 041c | | .STRTAB 0x041c->0x0a95 ; "The current options do not define a device" 0888 0444 | D | .STRTAB 0x0444->0x0aaa ; " is located on " 0889 0451 | Q | .STRTAB 0x0451->0x0ab1 ; "*" 088a 0450 | P | .STRTAB 0x0450->0x0ab2 ; "others " 088b 0455 | U | .STREND 0x0455->0x0ab5 088c 4e49 4c4e |NILN| .STRTAB_STRINGS 0ab6 0000 0000 | | .XXX[0x2] 0ab8 ; -------------------------------------------------------------------------------------- 0ab8 ; Debug Table 0ab8 ; -------------------------------------------------------------------------------------- 0ab8 0004 0000 | | .DEBUG4 0x0004,0x0000,0x7715,0x0000,0x0001,0x0000 0abe 78e1 b000 |x | .XXX[0x17] 0ac0 0000 001a | | 0ac2 78f1 b000 |x | 0ac4 3021 6010 |0!` | 0ac6 0007 d3d0 | | 0ac8 41c4 2e00 |A . | 0aca 0400 00fa | | 0acc 7a00 00fe |z | 0ace 4803 14f5 |H | 0ad0 da00 0000 | | 0ad2 0003 4f20 | O | 0ad4 3800 |8 | 0ad5 0000 0000 | | .BLANK 0000[0x4] 0ad9 0604 2c02 | , | .XXX[0x15] 0adb 0000 fa7a | z| 0add 0838 85c0 | 8 | 0adf 0080 001f | | 0ae1 4f40 34f1 |O@4 | 0ae3 d380 0000 | | 0ae5 0000 0000 | | 0ae7 0040 0000 | @ | 0ae9 0000 0000 | | 0aeb 00c0 0060 | `| 0aed 42c0 |B | 0aee 0000 0000 | | .BLANK 0000[0x4] 0af2 34f1 f380 |4 | .XXX[0xc] 0af4 0000 0000 | | 0af6 0000 0040 | @| 0af8 0000 0000 | | 0afa 097b 3780 | {7 | 0afc 0010 2aa0 | * | 0afe 0000 0000 | | .BLANK 0000[0x4] 0b02 1a79 09d0 | y | .XXX[0xc] 0b04 0000 0000 | | 0b06 0000 0020 | | 0b08 0000 0000 | | 0b0a 0000 0060 | `| 0b0c 0030 2160 | 0!`| 0b0e 0000 0000 | | .BLANK 0000[0x5] 0b13 0090 0007 | | .XXX[0x5] 0b15 f240 1a78 | @ x| 0b17 af20 | | 0b18 0000 0000 | | .BLANK 0000[0x4] 0b1c 0d3c 9000 | < | .XXX[0x26] 0b1e 0001 e4fa | | 0b20 01a7 9240 | @| 0b22 01a7 9393 | | 0b24 0000 61ee | a | 0b26 034d 68b8 | Mh | 0b28 0000 0000 | | 0b2a 034f 29cc | O) | 0b2c 0000 0000 | | 0b2e 034f 2bcc | O+ | 0b30 0001 2aa8 | * | 0b32 0200 0061 | a| 0b34 c608 1a85 | | 0b36 4000 8000 |@ | 0b38 0c38 c000 | 8 | 0b3a 0c3d c069 | = i| 0b3c ad17 0000 | | 0b3e 0000 0069 | i| 0b40 e5b9 c000 | | 0b42 0000 0000 | | .BLANK 0000[0x4] 0b46 2555 0040 |%U @| .XXX[0x35] 0b48 000c 38c1 | 8 | 0b4a 0350 a800 | P | 0b4c 0c00 0187 | | 0b4e 1806 9e55 | U| 0b50 9c00 0000 | | 0b52 0000 0000 | | 0b54 0800 0000 | | 0b56 0000 0000 | | 0b58 0400 0255 | U| 0b5a 5000 0000 |P | 0b5c 0000 0000 | | 0b5e 0006 9e59 | Y| 0b60 9c00 0000 | | 0b62 0000 0000 | | 0b64 0800 0000 | | 0b66 0000 12e2 | | 0b68 0000 00d6 | | 0b6a d000 0000 | | 0b6c 0000 0000 | | 0b6e 0003 4f2e | O.| 0b70 d000 0000 | | 0b72 0000 0000 | | 0b74 0400 0000 | | 0b76 0000 0000 | | 0b78 0200 012a | *| 0b7a a800 | | 0b7b 0000 0000 | | .BLANK 0000[0x5] 0b80 1200 0061 | a| .XXX[0x19] 0b82 ee03 4f23 | O#| 0b84 7a00 0000 |z | 0b86 0000 0000 | | 0b88 0001 a798 | | 0b8a cb00 013c | <| 0b8c 7f60 34f3 | `4 | 0b8e 2160 34f3 |!`4 | 0b90 4bc0 0016 |K | 0b92 0380 0249 | I| 0b94 4f80 0000 |O | 0b96 0000 69e6 | i | 0b98 ec40 | @ | 0b99 0000 0000 | | .BLANK 0000[0x4] 0b9d 00a4 af00 | | .XXX[0x11] 0b9f 4000 1068 |@ h| 0ba1 4103 50a0 |A P | 0ba3 0010 0002 | | 0ba5 0d08 0002 | | 0ba7 c070 0049 | p I| 0ba9 29f0 0000 |) | 0bab 0000 0d3c | <| 0bad e588 | | 0bae 0000 0000 | | .BLANK 0000[0x4] 0bb2 0014 95e0 | | .XXX[0x15] 0bb4 0800 020d | | 0bb6 0820 6a14 | j | 0bb8 0001 8000 | | 0bba 41a1 00d3 |A | 0bbc ce19 0000 | | 0bbe 0000 0000 | | 0bc0 0001 0000 | | 0bc2 0000 0000 | | 0bc4 0001 0001 | | 0bc6 495e |I^ | 0bc7 0000 0000 | | .BLANK 0000[0x4] 0bcb 00d3 ce99 | | .XXX[0xc] 0bcd 0000 0000 | | 0bcf 0000 0001 | | 0bd1 0000 0000 | | 0bd3 0000 0001 | | 0bd5 0001 495e | I^| 0bd7 0000 0000 | | .BLANK 0000[0x5] 0bdc 0004 8000 | | .XXX[0x1a] 0bde 2c07 00d3 |, | 0be0 cc44 00d3 | D | 0be2 cbf3 80d3 | | 0be4 d1bd 8069 | i| 0be6 e7a5 4000 | @ | 0be8 712d 480d |q-H | 0bea 3cf6 a80d |< | 0bec 3d01 4000 |= @ | 0bee 07f2 5006 | P | 0bf0 7850 6000 |xP` | 0bf2 0000 001a | | 0bf4 7a17 b000 |z | 0bf6 0000 0000 | | .BLANK 0000[0x4] 0bfa 2f57 0010 |/W | .XXX[0x6] 0bfc 0007 d3d0 | | 0bfe 40d4 2e00 |@ . |