|
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_0ea8df
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦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 0a78 | x | .CONST 0x0a78 ; 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 00ba | | .CONST 0x00ba ; Address of begin 0019 00dd | | .CONST 0x00dd ; Address of exception handler 001a 0020 | | .CONST 0x0020 ; Number of locals 001b INIT_0018: 001b 00e9 | | Load_Encached String_Cache 001c 02a0 | | Declare_Subprogram Null_Subprogram 001d 4818 |H | Short_Literal 0x18 001e 03d3 | | Declare_Type Access,Defined,Accesses_Protected 001f e002 | | Load 0x0,0x2 0020 e003 | | Load 0x0,0x3 0021 480b |H | Short_Literal 0xb 0022 00db | | Load_Top At_Offset_3 0023 4801 |H | Short_Literal 0x1 0024 e004 | | Load 0x0,0x4 0025 0387 | | Declare_Variable Package 0026 00d8 | | Load_Top At_Offset_0 0027 020f | | Execute Module,Activate 0028 00d8 | | Load_Top At_Offset_0 0029 1b12 | | Execute Package,Field_Read,Field_Number 0x12 002a e005 | | Load 0x0,0x5 002b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 002c 02c7 | | Declare_Variable Any 002d 00d8 | | Load_Top At_Offset_0 002e 1c00 | | Execute_Immediate Run_Utility,0x0 002f 480f |H | Short_Literal 0xf 0030 48ff |H | Short_Literal 0xff 0031 00e3 | | Load_Encached Natural_Cache 0032 03f8 | | Declare_Type Discrete,Constrained 0033 e006 | | Load 0x0,0x6 0034 e007 | | Load 0x0,0x7 0035 00da | | Load_Top At_Offset_2 0036 480f |H | Short_Literal 0xf 0037 4810 |H | Short_Literal 0x10 0038 48ff |H | Short_Literal 0xff 0039 0092 07ff | | Action Push_String_Extended,0x7ff ; "others => Unspecified" 003b 00ea | | Load_Encached Null_String_Cache 003c 00ea | | Load_Encached Null_String_Cache 003d 4810 |H | Short_Literal 0x10 003e 48ff |H | Short_Literal 0xff 003f e008 | | Load 0x0,0x8 0040 0387 | | Declare_Variable Package 0041 00d8 | | Load_Top At_Offset_0 0042 020f | | Execute Module,Activate 0043 4800 |H | Short_Literal 0x0 0044 4814 |H | Short_Literal 0x14 0045 029f 00fb | | Declare_Subprogram INIT_00f8,For_Call 0047 03fd | | Declare_Type Discrete,Defined 0048 e009 | | Load 0x0,0x9 0049 e00a | | Load 0x0,0xa 004a 00da | | Load_Top At_Offset_2 004b 4800 |H | Short_Literal 0x0 004c 4801 |H | Short_Literal 0x1 004d 4814 |H | Short_Literal 0x14 004e 0092 0800 | | Action Push_String_Extended,0x800 ; "Enable | Disable | Disconnect_On_Logoff..Detach_On_Disconnect => Boolean_Valued,Stop_Bits => Integer_Valued, others => Unspecified" 0050 00ea | | Load_Encached Null_String_Cache 0051 00ea | | Load_Encached Null_String_Cache 0052 4801 |H | Short_Literal 0x1 0053 4814 |H | Short_Literal 0x14 0054 e008 | | Load 0x0,0x8 0055 0387 | | Declare_Variable Package 0056 00d8 | | Load_Top At_Offset_0 0057 020f | | Execute Module,Activate 0058 4800 |H | Short_Literal 0x0 0059 4810 |H | Short_Literal 0x10 005a 029f 0123 | #| Declare_Subprogram INIT_0120,For_Call 005c 03fd | | Declare_Type Discrete,Defined 005d 4800 |H | Short_Literal 0x0 005e 4803 |H | Short_Literal 0x3 005f 029f 014b | K| Declare_Subprogram INIT_0148,For_Call 0061 03fd | | Declare_Type Discrete,Defined 0062 4800 |H | Short_Literal 0x0 0063 4804 |H | Short_Literal 0x4 0064 029f 0173 | s| Declare_Subprogram INIT_0170,For_Call 0066 03fd | | Declare_Type Discrete,Defined 0067 4800 |H | Short_Literal 0x0 0068 4804 |H | Short_Literal 0x4 0069 029f 019b | | Declare_Subprogram INIT_0198,For_Call 006b 03fd | | Declare_Type Discrete,Defined 006c e00b | | Load 0x0,0xb 006d e00c | | Load 0x0,0xc 006e e40a | | Load 0x2,0xa 006f 4800 |H | Short_Literal 0x0 0070 4800 |H | Short_Literal 0x0 0071 4801 |H | Short_Literal 0x1 0072 e409 | | Load 0x2,0x9 0073 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32 0074 0387 | | Declare_Variable Package 0075 00d8 | | Load_Top At_Offset_0 0076 020f | | Execute Module,Activate 0077 e00d | | Load 0x0,0xd 0078 e00e | | Load 0x0,0xe 0079 e40b | | Load 0x2,0xb 007a 4800 |H | Short_Literal 0x0 007b 4800 |H | Short_Literal 0x0 007c 4801 |H | Short_Literal 0x1 007d e409 | | Load 0x2,0x9 007e 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32 007f 0387 | | Declare_Variable Package 0080 00d8 | | Load_Top At_Offset_0 0081 020f | | Execute Module,Activate 0082 e00f | | Load 0x0,0xf 0083 e010 | | Load 0x0,0x10 0084 e40c | | Load 0x2,0xc 0085 4800 |H | Short_Literal 0x0 0086 4800 |H | Short_Literal 0x0 0087 4801 |H | Short_Literal 0x1 0088 e409 | | Load 0x2,0x9 0089 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32 008a 0387 | | Declare_Variable Package 008b 00d8 | | Load_Top At_Offset_0 008c 020f | | Execute Module,Activate 008d e011 | | Load 0x0,0x11 008e e012 | | Load 0x0,0x12 008f e40d | | Load 0x2,0xd 0090 4800 |H | Short_Literal 0x0 0091 4800 |H | Short_Literal 0x0 0092 4801 |H | Short_Literal 0x1 0093 e409 | | Load 0x2,0x9 0094 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32 0095 0387 | | Declare_Variable Package 0096 00d8 | | Load_Top At_Offset_0 0097 020f | | Execute Module,Activate 0098 029f 01c3 | | Declare_Subprogram INIT_01c0,For_Call 009a 029f 01e3 | | Declare_Subprogram INIT_01e0,For_Call 009c 029f 0203 | | Declare_Subprogram INIT_0200,For_Call 009e 029f 0223 | #| Declare_Subprogram INIT_0220,For_Call 00a0 029f 026b | k| Declare_Subprogram INIT_0268,For_Call 00a2 029f 028b | | Declare_Subprogram INIT_0288,For_Call 00a4 029f 02bb | | Declare_Subprogram INIT_02b8,For_Call 00a6 029f 02eb | | Declare_Subprogram INIT_02e8,For_Call 00a8 029f 0343 | C| Declare_Subprogram INIT_0340,For_Call 00aa 029f 0393 | | Declare_Subprogram INIT_0390,For_Call 00ac 029f 040b | | Declare_Subprogram INIT_0408,For_Call 00ae 029e 0453 | S| Declare_Subprogram INIT_0450,For_Call,Unelaborated 00b0 029f 04a3 | | Declare_Subprogram INIT_04a0,For_Call 00b2 481d |H | Short_Literal 0x1d 00b3 4802 |H | Short_Literal 0x2 00b4 0099 | | Action Reference_Dynamic 00b5 00c7 | | Action Elaborate_Subprogram 00b6 029f 057b | {| Declare_Subprogram INIT_0578,For_Call 00b8 029f 05fb | | Declare_Subprogram INIT_05f8,For_Call 00ba BODY_0018: 00ba e5fe | | Load 0x2,-0x2 00bb 7004 |p | Jump_Nonzero 0xc0 00bc 4800 |H | Short_Literal 0x0 00bd 4810 |H | Short_Literal 0x10 00be e013 | | Load 0x0,0x13 00bf 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00c0 e403 | | Load 0x2,0x3 00c1 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00c2 4864 |Hd | Short_Literal 0x64 00c3 e403 | | Load 0x2,0x3 00c4 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00c5 c404 | | Store 0x2,0x4 00c6 e405 | | Load 0x2,0x5 00c7 00ea | | Load_Encached Null_String_Cache 00c8 e5ff | | Load 0x2,-0x1 00c9 4800 |H | Short_Literal 0x0 00ca e005 | | Load 0x0,0x5 00cb 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00cc c405 | | Store 0x2,0x5 00cd 00cf | | Action Mark_Auxiliary 00ce 7804 |x | Jump 0xd3 00cf e405 | | Load 0x2,0x5 00d0 8420 | | Call 0x2,0x20 00d1 841f | | Call 0x2,0x1f 00d2 00c9 | | Action Pop_Auxiliary_Loop 00d3 e405 | | Load 0x2,0x5 00d4 e005 | | Load 0x0,0x5 00d5 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 00d6 6ff8 |o | Jump_Zero 0xcf 00d7 00ce | | Action Pop_Auxiliary 00d8 e405 | | Load 0x2,0x5 00d9 e005 | | Load 0x0,0x5 00da 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00db c405 | | Store 0x2,0x5 00dc 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00dd TRAP_0018: 00dd 00d8 | | Load_Top At_Offset_0 00de 0107 | | Execute Exception,Get_Name 00df 4920 |I | Short_Literal 0x120 00e0 492f |I/ | Short_Literal 0x12f 00e1 0262 | b | Execute Discrete,In_Range 00e2 6807 |h | Jump_Zero 0xea 00e3 e5ff | | Load 0x2,-0x1 00e4 0092 0801 | | Action Push_String_Extended,0x801 ; " does not exist" 00e6 01cc | | Execute Vector,Catenate 00e7 e005 | | Load 0x0,0x5 00e8 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 00e9 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00ea 00d8 | | Load_Top At_Offset_0 00eb 0107 | | Execute Exception,Get_Name 00ec 4950 |IP | Short_Literal 0x150 00ed 495f |I_ | Short_Literal 0x15f 00ee 0262 | b | Execute Discrete,In_Range 00ef 6801 |h | Jump_Zero 0xf1 00f0 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00f1 0100 | | Execute Exception,Raise 00f2 0000 0000 | | .BLANK 0000[0x6] 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 00fb | | .CONST 0x00fb ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0001 | | .CONST 0x0001 ; Number of locals 00fb BODY_00f8: 00fb INIT_00f8: 00fb 4607 |F | Jump_Case 0x8 00fc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 00fd 7807 |x | Jump 0x105 ; case 0x1 00fe 780a |x | Jump 0x109 ; case 0x2 00ff 780e |x | Jump 0x10e ; case 0x3 0100 7811 |x | Jump 0x112 ; case 0x4 0101 7812 |x | Jump 0x114 ; case 0x5 0102 7813 |x | Jump 0x116 ; case 0x6 0103 7816 |x | Jump 0x11a ; case 0x7 0104 4302 |C | .XXX[0x1] 0105 00da | | Load_Top At_Offset_2 0106 0091 07cb | | Action Push_String_Extended_Indexed,0x7cb ; "NIL" 0108 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0109 00db | | Load_Top At_Offset_3 010a 00db | | Load_Top At_Offset_3 010b 00e0 | | Load_Encached Standard_Cache 010c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 010d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 010e 00da | | Load_Top At_Offset_2 010f 00e0 | | Load_Encached Standard_Cache 0110 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0111 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0112 00db | | Load_Top At_Offset_3 0113 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0114 00db | | Load_Top At_Offset_3 0115 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0116 e408 | | Load 0x2,0x8 0117 00dc | | Load_Top At_Offset_4 0118 0267 | g | Execute Discrete,Predecessor 0119 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 011a e408 | | Load 0x2,0x8 011b 00dc | | Load_Top At_Offset_4 011c 0268 | h | Execute Discrete,Successor 011d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 011e 0000 0000 | | .XXX[0x2] 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0123 | # | .CONST 0x0123 ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0001 | | .CONST 0x0001 ; Number of locals 0123 BODY_0120: 0123 INIT_0120: 0123 4607 |F | Jump_Case 0x8 0124 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0125 7807 |x | Jump 0x12d ; case 0x1 0126 780a |x | Jump 0x131 ; case 0x2 0127 780e |x | Jump 0x136 ; case 0x3 0128 7811 |x | Jump 0x13a ; case 0x4 0129 7812 |x | Jump 0x13c ; case 0x5 012a 7813 |x | Jump 0x13e ; case 0x6 012b 7816 |x | Jump 0x142 ; case 0x7 012c 4302 |C | .XXX[0x1] 012d 00da | | Load_Top At_Offset_2 012e 0091 07e0 | | Action Push_String_Extended_Indexed,0x7e0 ; "NIL" 0130 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0131 00db | | Load_Top At_Offset_3 0132 00db | | Load_Top At_Offset_3 0133 00e0 | | Load_Encached Standard_Cache 0134 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0135 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0136 00da | | Load_Top At_Offset_2 0137 00e0 | | Load_Encached Standard_Cache 0138 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0139 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 013a 00db | | Load_Top At_Offset_3 013b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 013c 00db | | Load_Top At_Offset_3 013d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 013e e40a | | Load 0x2,0xa 013f 00dc | | Load_Top At_Offset_4 0140 0267 | g | Execute Discrete,Predecessor 0141 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0142 e40a | | Load 0x2,0xa 0143 00dc | | Load_Top At_Offset_4 0144 0268 | h | Execute Discrete,Successor 0145 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0146 0000 0000 | | .XXX[0x2] 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 014b | K | .CONST 0x014b ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0001 | | .CONST 0x0001 ; Number of locals 014b BODY_0148: 014b INIT_0148: 014b 4607 |F | Jump_Case 0x8 014c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 014d 7807 |x | Jump 0x155 ; case 0x1 014e 780a |x | Jump 0x159 ; case 0x2 014f 780e |x | Jump 0x15e ; case 0x3 0150 7811 |x | Jump 0x162 ; case 0x4 0151 7812 |x | Jump 0x164 ; case 0x5 0152 7813 |x | Jump 0x166 ; case 0x6 0153 7816 |x | Jump 0x16a ; case 0x7 0154 4302 |C | .XXX[0x1] 0155 00da | | Load_Top At_Offset_2 0156 0091 07f1 | | Action Push_String_Extended_Indexed,0x7f1 ; "NIL" 0158 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0159 00db | | Load_Top At_Offset_3 015a 00db | | Load_Top At_Offset_3 015b 00e0 | | Load_Encached Standard_Cache 015c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 015d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 015e 00da | | Load_Top At_Offset_2 015f 00e0 | | Load_Encached Standard_Cache 0160 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0161 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0162 00db | | Load_Top At_Offset_3 0163 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0164 00db | | Load_Top At_Offset_3 0165 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0166 e40b | | Load 0x2,0xb 0167 00dc | | Load_Top At_Offset_4 0168 0267 | g | Execute Discrete,Predecessor 0169 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 016a e40b | | Load 0x2,0xb 016b 00dc | | Load_Top At_Offset_4 016c 0268 | h | Execute Discrete,Successor 016d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 016e 0000 0000 | | .XXX[0x2] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0173 | s | .CONST 0x0173 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0001 | | .CONST 0x0001 ; Number of locals 0173 BODY_0170: 0173 INIT_0170: 0173 4607 |F | Jump_Case 0x8 0174 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0175 7807 |x | Jump 0x17d ; case 0x1 0176 780a |x | Jump 0x181 ; case 0x2 0177 780e |x | Jump 0x186 ; case 0x3 0178 7811 |x | Jump 0x18a ; case 0x4 0179 7812 |x | Jump 0x18c ; case 0x5 017a 7813 |x | Jump 0x18e ; case 0x6 017b 7816 |x | Jump 0x192 ; case 0x7 017c 4302 |C | .XXX[0x1] 017d 00da | | Load_Top At_Offset_2 017e 0091 07f5 | | Action Push_String_Extended_Indexed,0x7f5 ; "NIL" 0180 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0181 00db | | Load_Top At_Offset_3 0182 00db | | Load_Top At_Offset_3 0183 00e0 | | Load_Encached Standard_Cache 0184 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0185 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0186 00da | | Load_Top At_Offset_2 0187 00e0 | | Load_Encached Standard_Cache 0188 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0189 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 018a 00db | | Load_Top At_Offset_3 018b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 018c 00db | | Load_Top At_Offset_3 018d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 018e e40c | | Load 0x2,0xc 018f 00dc | | Load_Top At_Offset_4 0190 0267 | g | Execute Discrete,Predecessor 0191 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0192 e40c | | Load 0x2,0xc 0193 00dc | | Load_Top At_Offset_4 0194 0268 | h | Execute Discrete,Successor 0195 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0196 0000 0000 | | .XXX[0x2] 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 019b | | .CONST 0x019b ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0001 | | .CONST 0x0001 ; Number of locals 019b BODY_0198: 019b INIT_0198: 019b 4607 |F | Jump_Case 0x8 019c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 019d 7807 |x | Jump 0x1a5 ; case 0x1 019e 780a |x | Jump 0x1a9 ; case 0x2 019f 780e |x | Jump 0x1ae ; case 0x3 01a0 7811 |x | Jump 0x1b2 ; case 0x4 01a1 7812 |x | Jump 0x1b4 ; case 0x5 01a2 7813 |x | Jump 0x1b6 ; case 0x6 01a3 7816 |x | Jump 0x1ba ; case 0x7 01a4 4302 |C | .XXX[0x1] 01a5 00da | | Load_Top At_Offset_2 01a6 0091 07fa | | Action Push_String_Extended_Indexed,0x7fa ; "NIL" 01a8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 01a9 00db | | Load_Top At_Offset_3 01aa 00db | | Load_Top At_Offset_3 01ab 00e0 | | Load_Encached Standard_Cache 01ac 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01ad 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01ae 00da | | Load_Top At_Offset_2 01af 00e0 | | Load_Encached Standard_Cache 01b0 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01b1 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 01b2 00db | | Load_Top At_Offset_3 01b3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01b4 00db | | Load_Top At_Offset_3 01b5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01b6 e40d | | Load 0x2,0xd 01b7 00dc | | Load_Top At_Offset_4 01b8 0267 | g | Execute Discrete,Predecessor 01b9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01ba e40d | | Load 0x2,0xd 01bb 00dc | | Load_Top At_Offset_4 01bc 0268 | h | Execute Discrete,Successor 01bd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01be 0000 0000 | | .XXX[0x2] 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01d5 | | .CONST 0x01d5 ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0002 | | .CONST 0x0002 ; Number of locals 01c3 INIT_01c0: 01c3 00da | | Load_Top At_Offset_2 01c4 0092 0802 | | Action Push_String_Extended,0x802 ; " (Line => " 01c6 01cc | | Execute Vector,Catenate 01c7 e7fe | | Load 0x3,-0x2 01c8 00e0 | | Load_Encached Standard_Cache 01c9 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01ca 01cc | | Execute Vector,Catenate 01cb 0092 0803 | | Action Push_String_Extended,0x803 ; ", To_Be => " 01cd 01cc | | Execute Vector,Catenate 01ce e7fd | | Load 0x3,-0x3 01cf 01cc | | Execute Vector,Catenate 01d0 0092 0804 | | Action Push_String_Extended,0x804 ; ");" 01d2 01cc | | Execute Vector,Catenate 01d3 e014 | | Load 0x0,0x14 01d4 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 01d5 BODY_01c0: 01d5 00d8 | | Load_Top At_Offset_0 01d6 e005 | | Load 0x0,0x5 01d7 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 01d8 4504 |E | Exit_Suprogram New_Top_Offset 0x4 01d9 0000 0000 | | .BLANK 0000[0x7] 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01e3 | | .CONST 0x01e3 ; Address of begin 01e1 0004 | | .CONST 0x0004 ; Address of exception handler 01e2 0001 | | .CONST 0x0001 ; Number of locals 01e3 BODY_01e0: 01e3 INIT_01e0: 01e3 0092 0805 | | Action Push_String_Extended,0x805 ; "Illegal value: The " 01e5 00db | | Load_Top At_Offset_3 01e6 e014 | | Load 0x0,0x14 01e7 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 01e8 01cc | | Execute Vector,Catenate 01e9 0092 0806 | | Action Push_String_Extended,0x806 ; " could not be set for port " 01eb 01cc | | Execute Vector,Catenate 01ec e7fd | | Load 0x3,-0x3 01ed 00e0 | | Load_Encached Standard_Cache 01ee 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01ef 01cc | | Execute Vector,Catenate 01f0 e005 | | Load 0x0,0x5 01f1 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 01f2 0092 0807 | | Action Push_String_Extended,0x807 ; " because \x22" 01f4 e7fe | | Load 0x3,-0x2 01f5 01cc | | Execute Vector,Catenate 01f6 0092 0808 | | Action Push_String_Extended,0x808 ; "\x22 is not a valid setting." 01f8 01cc | | Execute Vector,Catenate 01f9 e005 | | Load 0x0,0x5 01fa 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 01fb 4504 |E | Exit_Suprogram New_Top_Offset 0x4 01fc 0000 0000 | | .BLANK 0000[0x4] 0200 ; -------------------------------------------------------------------------------------- 0200 ; SUBPROGRAM 0200 ; -------------------------------------------------------------------------------------- 0200 0208 | | .CONST 0x0208 ; Address of begin 0201 0004 | | .CONST 0x0004 ; Address of exception handler 0202 0002 | | .CONST 0x0002 ; Number of locals 0203 INIT_0200: 0203 00ea | | Load_Encached Null_String_Cache 0204 4803 |H | Short_Literal 0x3 0205 e7ff | | Load 0x3,-0x1 0206 e409 | | Load 0x2,0x9 0207 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0208 BODY_0200: 0208 0092 0809 | | Action Push_String_Extended,0x809 ; "\x22" 020a 00d9 | | Load_Top At_Offset_1 020b 01cc | | Execute Vector,Catenate 020c 0092 0809 | | Action Push_String_Extended,0x809 ; "\x22" 020e 01cc | | Execute Vector,Catenate 020f e7fe | | Load 0x3,-0x2 0210 0092 080a | | Action Push_String_Extended,0x80a ; "Terminal.Set_Terminal_Type" 0212 8412 | | Call 0x2,0x12 0213 e5fe | | Load 0x2,-0x2 0214 7004 |p | Jump_Nonzero 0x219 0215 00d8 | | Load_Top At_Offset_0 0216 e7fe | | Load 0x3,-0x2 0217 e013 | | Load 0x0,0x13 0218 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0219 4503 |E | Exit_Suprogram New_Top_Offset 0x3 021a 0000 0000 | | .BLANK 0000[0x6] 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 022f | / | .CONST 0x022f ; Address of begin 0221 0004 | | .CONST 0x0004 ; Address of exception handler 0222 0003 | | .CONST 0x0003 ; Number of locals 0223 INIT_0220: 0223 4800 |H | Short_Literal 0x0 0224 4801 |H | Short_Literal 0x1 0225 4800 |H | Short_Literal 0x0 0226 e7ff | | Load 0x3,-0x1 0227 e40e | | Load 0x2,0xe 0228 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0229 e40a | | Load 0x2,0xa 022a 03f1 | | Declare_Variable Discrete,With_Value 022b e7fd | | Load 0x3,-0x3 022c e408 | | Load 0x2,0x8 022d 011c | | Execute Any,Convert_Unchecked 022e 1c01 | | Execute_Immediate Run_Utility,0x1 022f BODY_0220: 022f 00d9 | | Load_Top At_Offset_1 0230 6829 |h) | Jump_Zero 0x25a 0231 0092 0809 | | Action Push_String_Extended,0x809 ; "\x22" 0233 00da | | Load_Top At_Offset_2 0234 e40a | | Load 0x2,0xa 0235 011c | | Execute Any,Convert_Unchecked 0236 1c01 | | Execute_Immediate Run_Utility,0x1 0237 01cc | | Execute Vector,Catenate 0238 0092 0809 | | Action Push_String_Extended,0x809 ; "\x22" 023a 01cc | | Execute Vector,Catenate 023b e7fe | | Load 0x3,-0x2 023c 0092 080b | | Action Push_String_Extended,0x80b ; "Terminal.Set_" 023e 00db | | Load_Top At_Offset_3 023f 01cc | | Execute Vector,Catenate 0240 8412 | | Call 0x2,0x12 0241 e5fe | | Load 0x2,-0x2 0242 7016 |p | Jump_Nonzero 0x259 0243 e7fd | | Load 0x3,-0x3 0244 0b04 | | Execute_Immediate Case_Compare,0x4 0245 700b |p | Jump_Nonzero 0x251 0246 0f05 | | Execute_Immediate Equal,0x5 0247 7001 |p | Jump_Nonzero 0x249 0248 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0249 00d9 | | Load_Top At_Offset_1 024a e40a | | Load 0x2,0xa 024b 011c | | Execute Any,Convert_Unchecked 024c 1c01 | | Execute_Immediate Run_Utility,0x1 024d e7fe | | Load 0x3,-0x2 024e e013 | | Load 0x0,0x13 024f 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0250 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0251 00d1 | | Pop_Control Pop_Count_1 0252 00d9 | | Load_Top At_Offset_1 0253 e40a | | Load 0x2,0xa 0254 011c | | Execute Any,Convert_Unchecked 0255 1c01 | | Execute_Immediate Run_Utility,0x1 0256 e7fe | | Load 0x3,-0x2 0257 e013 | | Load 0x0,0x13 0258 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0259 4504 |E | Exit_Suprogram New_Top_Offset 0x4 025a e7fe | | Load 0x3,-0x2 025b 00ea | | Load_Encached Null_String_Cache 025c 4800 |H | Short_Literal 0x0 025d e7ff | | Load 0x3,-0x1 025e e409 | | Load 0x2,0x9 025f 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0260 00da | | Load_Top At_Offset_2 0261 8413 | | Call 0x2,0x13 0262 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0263 0000 0000 | | .BLANK 0000[0x5] 0268 ; -------------------------------------------------------------------------------------- 0268 ; SUBPROGRAM 0268 ; -------------------------------------------------------------------------------------- 0268 0275 | u | .CONST 0x0275 ; Address of begin 0269 0004 | | .CONST 0x0004 ; Address of exception handler 026a 0003 | | .CONST 0x0003 ; Number of locals 026b INIT_0268: 026b 4800 |H | Short_Literal 0x0 026c 4801 |H | Short_Literal 0x1 026d 4800 |H | Short_Literal 0x0 026e e7ff | | Load 0x3,-0x1 026f e40f | | Load 0x2,0xf 0270 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0271 e40b | | Load 0x2,0xb 0272 03f1 | | Declare_Variable Discrete,With_Value 0273 029f 0633 | 3| Declare_Subprogram INIT_0630,For_Call 0275 BODY_0268: 0275 00d9 | | Load_Top At_Offset_1 0276 6802 |h | Jump_Zero 0x279 0277 8603 | | Call 0x3,0x3 0278 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0279 e7fe | | Load 0x3,-0x2 027a 00ea | | Load_Encached Null_String_Cache 027b 4800 |H | Short_Literal 0x0 027c e7ff | | Load 0x3,-0x1 027d e409 | | Load 0x2,0x9 027e 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 027f 0092 080c | | Action Push_String_Extended,0x80c ; "Parity" 0281 8413 | | Call 0x2,0x13 0282 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0283 0000 0000 | | .BLANK 0000[0x5] 0288 ; -------------------------------------------------------------------------------------- 0288 ; SUBPROGRAM 0288 ; -------------------------------------------------------------------------------------- 0288 028d | | .CONST 0x028d ; Address of begin 0289 02a7 | | .CONST 0x02a7 ; Address of exception handler 028a 0002 | | .CONST 0x0002 ; Number of locals 028b INIT_0288: 028b e013 | | Load 0x0,0x13 028c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 028d BODY_0288: 028d 6026 |`& | Indirect_Literal Discrete,0x2b4,{0x00000000, 0x7fffffff} 028e 4800 |H | Short_Literal 0x0 028f e7ff | | Load 0x3,-0x1 0290 e409 | | Load 0x2,0x9 0291 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 0292 00d8 | | Load_Top At_Offset_0 0293 e015 | | Load 0x0,0x15 0294 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c 0295 0260 | ` | Execute Discrete,In_Type 0296 7001 |p | Jump_Nonzero 0x298 0297 0801 | | Execute_Immediate Raise,0x1 0298 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0299 00d8 | | Load_Top At_Offset_0 029a 00e0 | | Load_Encached Standard_Cache 029b 1818 | | Execute Package,Field_Execute,Field_Number 0x18 029c e7fe | | Load 0x3,-0x2 029d 0092 080d | | Action Push_String_Extended,0x80d ; "Terminal.Set_Stop_Bits" 029f 8412 | | Call 0x2,0x12 02a0 e5fe | | Load 0x2,-0x2 02a1 7004 |p | Jump_Nonzero 0x2a6 02a2 00d8 | | Load_Top At_Offset_0 02a3 e7fe | | Load 0x3,-0x2 02a4 e013 | | Load 0x0,0x13 02a5 1817 | | Execute Package,Field_Execute,Field_Number 0x17 02a6 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02a7 TRAP_0288: 02a7 0007 | | Action Break_Optional 02a8 e7fe | | Load 0x3,-0x2 02a9 00ea | | Load_Encached Null_String_Cache 02aa 4800 |H | Short_Literal 0x0 02ab e7ff | | Load 0x3,-0x1 02ac e409 | | Load 0x2,0x9 02ad 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 02ae 0092 080e | | Action Push_String_Extended,0x80e ; "Stop_Bits" 02b0 8413 | | Call 0x2,0x13 02b1 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02b2 0000 0000 | | .XXX[0x2] 02b4 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 02b8 ; -------------------------------------------------------------------------------------- 02b8 ; SUBPROGRAM 02b8 ; -------------------------------------------------------------------------------------- 02b8 02c4 | | .CONST 0x02c4 ; Address of begin 02b9 0004 | | .CONST 0x0004 ; Address of exception handler 02ba 0003 | | .CONST 0x0003 ; Number of locals 02bb INIT_02b8: 02bb 4800 |H | Short_Literal 0x0 02bc 4801 |H | Short_Literal 0x1 02bd 4800 |H | Short_Literal 0x0 02be e7ff | | Load 0x3,-0x1 02bf e410 | | Load 0x2,0x10 02c0 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02c1 e40c | | Load 0x2,0xc 02c2 03f1 | | Declare_Variable Discrete,With_Value 02c3 00e3 | | Load_Encached Natural_Cache 02c4 BODY_02b8: 02c4 00d9 | | Load_Top At_Offset_1 02c5 6817 |h | Jump_Zero 0x2dd 02c6 00d9 | | Load_Top At_Offset_1 02c7 0a04 | | Execute_Immediate Plus,0x4 02c8 0059 | Y | Store_Top Discrete,At_Offset_1 02c9 00d8 | | Load_Top At_Offset_0 02ca 00e0 | | Load_Encached Standard_Cache 02cb 1818 | | Execute Package,Field_Execute,Field_Number 0x18 02cc e7fe | | Load 0x3,-0x2 02cd 0092 080f | | Action Push_String_Extended,0x80f ; "Terminal.Set_Character_Size" 02cf 8412 | | Call 0x2,0x12 02d0 e5fe | | Load 0x2,-0x2 02d1 700a |p | Jump_Nonzero 0x2dc 02d2 00d8 | | Load_Top At_Offset_0 02d3 00d8 | | Load_Top At_Offset_0 02d4 e015 | | Load 0x0,0x15 02d5 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d 02d6 0260 | ` | Execute Discrete,In_Type 02d7 7001 |p | Jump_Nonzero 0x2d9 02d8 0801 | | Execute_Immediate Raise,0x1 02d9 e7fe | | Load 0x3,-0x2 02da e013 | | Load 0x0,0x13 02db 1818 | | Execute Package,Field_Execute,Field_Number 0x18 02dc 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02dd e7fe | | Load 0x3,-0x2 02de 00ea | | Load_Encached Null_String_Cache 02df 4800 |H | Short_Literal 0x0 02e0 e7ff | | Load 0x3,-0x1 02e1 e409 | | Load 0x2,0x9 02e2 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 02e3 0092 0810 | | Action Push_String_Extended,0x810 ; "Bits_Per_Char" 02e5 8413 | | Call 0x2,0x13 02e6 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02e7 0000 | | .XXX[0x1] 02e8 ; -------------------------------------------------------------------------------------- 02e8 ; SUBPROGRAM 02e8 ; -------------------------------------------------------------------------------------- 02e8 02f7 | | .CONST 0x02f7 ; Address of begin 02e9 0004 | | .CONST 0x0004 ; Address of exception handler 02ea 0003 | | .CONST 0x0003 ; Number of locals 02eb INIT_02e8: 02eb 4800 |H | Short_Literal 0x0 02ec 4801 |H | Short_Literal 0x1 02ed 4800 |H | Short_Literal 0x0 02ee e7ff | | Load 0x3,-0x1 02ef e411 | | Load 0x2,0x11 02f0 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02f1 e40d | | Load 0x2,0xd 02f2 03f1 | | Declare_Variable Discrete,With_Value 02f3 e7fd | | Load 0x3,-0x3 02f4 e408 | | Load 0x2,0x8 02f5 011c | | Execute Any,Convert_Unchecked 02f6 1c01 | | Execute_Immediate Run_Utility,0x1 02f7 BODY_02e8: 02f7 00d9 | | Load_Top At_Offset_1 02f8 683a |h: | Jump_Zero 0x333 02f9 0092 0809 | | Action Push_String_Extended,0x809 ; "\x22" 02fb 00da | | Load_Top At_Offset_2 02fc e40d | | Load 0x2,0xd 02fd 011c | | Execute Any,Convert_Unchecked 02fe 1c01 | | Execute_Immediate Run_Utility,0x1 02ff 01cc | | Execute Vector,Catenate 0300 0092 0809 | | Action Push_String_Extended,0x809 ; "\x22" 0302 01cc | | Execute Vector,Catenate 0303 e7fe | | Load 0x3,-0x2 0304 0092 080b | | Action Push_String_Extended,0x80b ; "Terminal.Set_" 0306 00db | | Load_Top At_Offset_3 0307 01cc | | Execute Vector,Catenate 0308 8412 | | Call 0x2,0x12 0309 e5fe | | Load 0x2,-0x2 030a 7027 |p' | Jump_Nonzero 0x332 030b e7fd | | Load 0x3,-0x3 030c 4614 |F | Jump_Case 0x15 030d 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x0 030e 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x1 030f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x2 0310 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x3 0311 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x4 0312 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x5 0313 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x6 0314 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x7 0315 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x8 0316 780c |x | Jump 0x323 ; case 0x9 0317 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0xa 0318 7812 |x | Jump 0x32b ; case 0xb 0319 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0xc 031a 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0xd 031b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0xe 031c 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0xf 031d 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x10 031e 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x11 031f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x12 0320 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x13 0321 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x14 0322 4504 |E | .XXX[0x1] 0323 00d9 | | Load_Top At_Offset_1 0324 e40d | | Load 0x2,0xd 0325 011c | | Execute Any,Convert_Unchecked 0326 1c01 | | Execute_Immediate Run_Utility,0x1 0327 e7fe | | Load 0x3,-0x2 0328 e013 | | Load 0x0,0x13 0329 181b | | Execute Package,Field_Execute,Field_Number 0x1b 032a 4504 |E | Exit_Suprogram New_Top_Offset 0x4 032b 00d9 | | Load_Top At_Offset_1 032c e40d | | Load 0x2,0xd 032d 011c | | Execute Any,Convert_Unchecked 032e 1c01 | | Execute_Immediate Run_Utility,0x1 032f e7fe | | Load 0x3,-0x2 0330 e013 | | Load 0x0,0x13 0331 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0332 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0333 e7fe | | Load 0x3,-0x2 0334 00ea | | Load_Encached Null_String_Cache 0335 4800 |H | Short_Literal 0x0 0336 e7ff | | Load 0x3,-0x1 0337 e409 | | Load 0x2,0x9 0338 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0339 00da | | Load_Top At_Offset_2 033a 8413 | | Call 0x2,0x13 033b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 033c 0000 0000 | | .BLANK 0000[0x4] 0340 ; -------------------------------------------------------------------------------------- 0340 ; SUBPROGRAM 0340 ; -------------------------------------------------------------------------------------- 0340 0354 | T | .CONST 0x0354 ; Address of begin 0341 0004 | | .CONST 0x0004 ; Address of exception handler 0342 0005 | | .CONST 0x0005 ; Number of locals 0343 INIT_0340: 0343 00ea | | Load_Encached Null_String_Cache 0344 4800 |H | Short_Literal 0x0 0345 e7ff | | Load 0x3,-0x1 0346 e409 | | Load 0x2,0x9 0347 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0348 4801 |H | Short_Literal 0x1 0349 4802 |H | Short_Literal 0x2 034a e016 | | Load 0x0,0x16 034b 1b12 | | Execute Package,Field_Read,Field_Number 0x12 034c 035b | [ | Declare_Type Array,Constrained 034d 0337 | 7 | Declare_Variable Array 034e e7fd | | Load 0x3,-0x3 034f e408 | | Load 0x2,0x8 0350 011c | | Execute Any,Convert_Unchecked 0351 1c01 | | Execute_Immediate Run_Utility,0x1 0352 029f 0653 | S| Declare_Subprogram INIT_0650,For_Call 0354 BODY_0340: 0354 8605 | | Call 0x3,0x5 0355 4801 |H | Short_Literal 0x1 0356 00db | | Load_Top At_Offset_3 0357 01d7 | | Execute Vector,Field_Read 0358 00e0 | | Load_Encached Standard_Cache 0359 1818 | | Execute Package,Field_Execute,Field_Number 0x18 035a 0092 0811 | | Action Push_String_Extended,0x811 ; "," 035c 01cc | | Execute Vector,Catenate 035d 4802 |H | Short_Literal 0x2 035e e603 | | Load 0x3,0x3 035f 01d7 | | Execute Vector,Field_Read 0360 00e0 | | Load_Encached Standard_Cache 0361 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0362 01cc | | Execute Vector,Catenate 0363 e7fe | | Load 0x3,-0x2 0364 0092 080b | | Action Push_String_Extended,0x80b ; "Terminal.Set_" 0366 e604 | | Load 0x3,0x4 0367 01cc | | Execute Vector,Catenate 0368 8412 | | Call 0x2,0x12 0369 e5fe | | Load 0x2,-0x2 036a 7021 |p! | Jump_Nonzero 0x38c 036b e7fd | | Load 0x3,-0x3 036c 4614 |F | Jump_Case 0x15 036d 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x0 036e 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x1 036f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x2 0370 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x3 0371 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x4 0372 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x5 0373 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x6 0374 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x7 0375 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x8 0376 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x9 0377 780b |x | Jump 0x383 ; case 0xa 0378 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0xb 0379 780e |x | Jump 0x388 ; case 0xc 037a 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0xd 037b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0xe 037c 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0xf 037d 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x10 037e 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x11 037f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x12 0380 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x13 0381 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x14 0382 4504 |E | .XXX[0x1] 0383 00da | | Load_Top At_Offset_2 0384 e7fe | | Load 0x3,-0x2 0385 e013 | | Load 0x0,0x13 0386 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0387 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0388 00da | | Load_Top At_Offset_2 0389 e7fe | | Load 0x3,-0x2 038a e013 | | Load 0x0,0x13 038b 181d | | Execute Package,Field_Execute,Field_Number 0x1d 038c 4504 |E | Exit_Suprogram New_Top_Offset 0x4 038d 0000 0000 | | .XXX[0x3] 038f 0000 | | 0390 ; -------------------------------------------------------------------------------------- 0390 ; SUBPROGRAM 0390 ; -------------------------------------------------------------------------------------- 0390 03b3 | | .CONST 0x03b3 ; Address of begin 0391 0004 | | .CONST 0x0004 ; Address of exception handler 0392 0004 | | .CONST 0x0004 ; Number of locals 0393 INIT_0390: 0393 4800 |H | Short_Literal 0x0 0394 4800 |H | Short_Literal 0x0 0395 e7ff | | Load 0x3,-0x1 0396 e409 | | Load 0x2,0x9 0397 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0398 00e1 | | Load_Encached Boolean_Cache 0399 03f1 | | Declare_Variable Discrete,With_Value 039a 0092 0812 | | Action Push_String_Extended,0x812 ; "Terminal.SET_" 039c e7fe | | Load 0x3,-0x2 039d e408 | | Load 0x2,0x8 039e 011c | | Execute Any,Convert_Unchecked 039f 1c01 | | Execute_Immediate Run_Utility,0x1 03a0 01cc | | Execute Vector,Catenate 03a1 e014 | | Load 0x0,0x14 03a2 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 03a3 0092 0802 | | Action Push_String_Extended,0x802 ; " (Line => " 03a5 01cc | | Execute Vector,Catenate 03a6 e7fd | | Load 0x3,-0x3 03a7 00e0 | | Load_Encached Standard_Cache 03a8 1818 | | Execute Package,Field_Execute,Field_Number 0x18 03a9 01cc | | Execute Vector,Catenate 03aa 0007 | | Action Break_Optional 03ab 00d9 | | Load_Top At_Offset_1 03ac 00e1 | | Load_Encached Boolean_Cache 03ad 011c | | Execute Any,Convert_Unchecked 03ae 1c01 | | Execute_Immediate Run_Utility,0x1 03af 0092 0804 | | Action Push_String_Extended,0x804 ; ");" 03b1 01cc | | Execute Vector,Catenate 03b2 0007 | | Action Break_Optional 03b3 BODY_0390: 03b3 e7fe | | Load 0x3,-0x2 03b4 0f12 | | Execute_Immediate Equal,0x12 03b5 6809 |h | Jump_Zero 0x3bf 03b6 00d9 | | Load_Top At_Offset_1 03b7 0092 0813 | | Action Push_String_Extended,0x813 ; ", Disabled => " 03b9 01cc | | Execute Vector,Catenate 03ba 00d9 | | Load_Top At_Offset_1 03bb 01cc | | Execute Vector,Catenate 03bc e005 | | Load 0x0,0x5 03bd 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 03be 7808 |x | Jump 0x3c7 03bf 00d9 | | Load_Top At_Offset_1 03c0 0092 0814 | | Action Push_String_Extended,0x814 ; ", Enabled => " 03c2 01cc | | Execute Vector,Catenate 03c3 00d9 | | Load_Top At_Offset_1 03c4 01cc | | Execute Vector,Catenate 03c5 e005 | | Load 0x0,0x5 03c6 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 03c7 e5fe | | Load 0x2,-0x2 03c8 703a |p: | Jump_Nonzero 0x403 03c9 e7fe | | Load 0x3,-0x2 03ca 4614 |F | Jump_Case 0x15 03cb 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x0 03cc 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x1 03cd 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x2 03ce 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x3 03cf 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x4 03d0 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x5 03d1 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x6 03d2 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x7 03d3 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x8 03d4 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x9 03d5 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0xa 03d6 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0xb 03d7 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0xc 03d8 7826 |x& | Jump 0x3ff ; case 0xd 03d9 7807 |x | Jump 0x3e1 ; case 0xe 03da 780b |x | Jump 0x3e6 ; case 0xf 03db 780f |x | Jump 0x3eb ; case 0x10 03dc 7813 |x | Jump 0x3f0 ; case 0x11 03dd 7817 |x | Jump 0x3f5 ; case 0x12 03de 781b |x | Jump 0x3fa ; case 0x13 03df 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x14 03e0 4504 |E | .XXX[0x1] 03e1 00da | | Load_Top At_Offset_2 03e2 e7fd | | Load 0x3,-0x3 03e3 e013 | | Load 0x0,0x13 03e4 1820 | | Execute Package,Field_Execute,Field_Number 0x20 03e5 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03e6 00da | | Load_Top At_Offset_2 03e7 e7fd | | Load 0x3,-0x3 03e8 e013 | | Load 0x0,0x13 03e9 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 03ea 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03eb 00da | | Load_Top At_Offset_2 03ec e7fd | | Load 0x3,-0x3 03ed e013 | | Load 0x0,0x13 03ee 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 03ef 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03f0 00da | | Load_Top At_Offset_2 03f1 e7fd | | Load 0x3,-0x3 03f2 e013 | | Load 0x0,0x13 03f3 181f | | Execute Package,Field_Execute,Field_Number 0x1f 03f4 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03f5 00da | | Load_Top At_Offset_2 03f6 e7fd | | Load 0x3,-0x3 03f7 e013 | | Load 0x0,0x13 03f8 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 03f9 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03fa 00da | | Load_Top At_Offset_2 03fb e7fd | | Load 0x3,-0x3 03fc e013 | | Load 0x0,0x13 03fd 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 03fe 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03ff 00da | | Load_Top At_Offset_2 0400 e7fd | | Load 0x3,-0x3 0401 e013 | | Load 0x0,0x13 0402 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0403 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0404 0000 0000 | | .BLANK 0000[0x4] 0408 ; -------------------------------------------------------------------------------------- 0408 ; SUBPROGRAM 0408 ; -------------------------------------------------------------------------------------- 0408 043f | ? | .CONST 0x043f ; Address of begin 0409 0004 | | .CONST 0x0004 ; Address of exception handler 040a 0007 | | .CONST 0x0007 ; Number of locals 040b INIT_0408: 040b 00da | | Load_Top At_Offset_2 040c 01dd | | Execute Vector,First 040d 00e3 | | Load_Encached Natural_Cache 040e 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 040f 4801 |H | Short_Literal 0x1 0410 e7ff | | Load 0x3,-0x1 0411 0092 0815 | | Action Push_String_Extended,0x815 ; "=" 0413 e014 | | Load 0x0,0x14 0414 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0415 00e3 | | Load_Encached Natural_Cache 0416 03f1 | | Declare_Variable Discrete,With_Value 0417 e7ff | | Load 0x3,-0x1 0418 01dc | | Execute Vector,Last 0419 00e3 | | Load_Encached Natural_Cache 041a 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 041b 4801 |H | Short_Literal 0x1 041c 00da | | Load_Top At_Offset_2 041d 0a01 | | Execute_Immediate Plus,0x1 041e 00d8 | | Load_Top At_Offset_0 041f 00e2 | | Load_Encached Integer_Cache 0420 0260 | ` | Execute Discrete,In_Type 0421 7001 |p | Jump_Nonzero 0x423 0422 0801 | | Execute_Immediate Raise,0x1 0423 00da | | Load_Top At_Offset_2 0424 e7ff | | Load 0x3,-0x1 0425 01cf | | Execute Vector,Slice_Read 0426 0092 0816 | | Action Push_String_Extended,0x816 ; "(" 0428 e014 | | Load 0x0,0x14 0429 181d | | Execute Package,Field_Execute,Field_Number 0x1d 042a 00e3 | | Load_Encached Natural_Cache 042b 03f1 | | Declare_Variable Discrete,With_Value 042c 4801 |H | Short_Literal 0x1 042d 00db | | Load_Top At_Offset_3 042e 0a01 | | Execute_Immediate Plus,0x1 042f 00d8 | | Load_Top At_Offset_0 0430 00e2 | | Load_Encached Integer_Cache 0431 0260 | ` | Execute Discrete,In_Type 0432 7001 |p | Jump_Nonzero 0x434 0433 0801 | | Execute_Immediate Raise,0x1 0434 00db | | Load_Top At_Offset_3 0435 e7ff | | Load 0x3,-0x1 0436 01cf | | Execute Vector,Slice_Read 0437 0092 0817 | | Action Push_String_Extended,0x817 ; ")" 0439 e014 | | Load 0x0,0x14 043a 181f | | Execute Package,Field_Execute,Field_Number 0x1f 043b 00e3 | | Load_Encached Natural_Cache 043c 03f1 | | Declare_Variable Discrete,With_Value 043d 029f 0693 | | Declare_Subprogram INIT_0690,For_Call 043f BODY_0408: 043f e603 | | Load 0x3,0x3 0440 0c01 | | Execute_Immediate Greater_Equal,0x1 0441 6808 |h | Jump_Zero 0x44a 0442 00da | | Load_Top At_Offset_2 0443 0c01 | | Execute_Immediate Greater_Equal,0x1 0444 00da | | Load_Top At_Offset_2 0445 e605 | | Load 0x3,0x5 0446 027d | } | Execute Discrete,Greater 0447 0279 | y | Execute Discrete,And 0448 6801 |h | Jump_Zero 0x44a 0449 8607 | | Call 0x3,0x7 044a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 044b 0000 0000 | | .BLANK 0000[0x5] 0450 ; -------------------------------------------------------------------------------------- 0450 ; SUBPROGRAM 0450 ; -------------------------------------------------------------------------------------- 0450 0455 | U | .CONST 0x0455 ; Address of begin 0451 0004 | | .CONST 0x0004 ; Address of exception handler 0452 0002 | | .CONST 0x0002 ; Number of locals 0453 INIT_0450: 0453 e409 | | Load 0x2,0x9 0454 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 0455 BODY_0450: 0455 e7fe | | Load 0x3,-0x2 0456 01db | | Execute Vector,Length 0457 6843 |hC | Jump_Zero 0x49b 0458 e7fe | | Load 0x3,-0x2 0459 e409 | | Load 0x2,0x9 045a 1820 | | Execute Package,Field_Execute,Field_Number 0x20 045b 0031 | 1 | Store_Top Heap_Access,At_Offset_1 045c 00d8 | | Load_Top At_Offset_0 045d e409 | | Load 0x2,0x9 045e 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 045f 682c |h, | Jump_Zero 0x48c 0460 00cf | | Action Mark_Auxiliary 0461 7824 |x$ | Jump 0x486 0462 4800 |H | Short_Literal 0x0 0463 00da | | Load_Top At_Offset_2 0464 e409 | | Load 0x2,0x9 0465 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0466 680a |h | Jump_Zero 0x471 0467 4800 |H | Short_Literal 0x0 0468 00da | | Load_Top At_Offset_2 0469 e409 | | Load 0x2,0x9 046a 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 046b 6815 |h | Jump_Zero 0x481 046c e7ff | | Load 0x3,-0x1 046d e7fe | | Load 0x3,-0x2 046e 00db | | Load_Top At_Offset_3 046f 841e | | Call 0x2,0x1e 0470 7810 |x | Jump 0x481 0471 480a |H | Short_Literal 0xa 0472 0092 0818 | | Action Push_String_Extended,0x818 ; "Illegal item in line: " 0474 e7fe | | Load 0x3,-0x2 0475 01cc | | Execute Vector,Catenate 0476 01cb | | Execute Vector,Append 0477 0092 0819 | | Action Push_String_Extended,0x819 ; " " 0479 01cc | | Execute Vector,Catenate 047a 4800 |H | Short_Literal 0x0 047b 00db | | Load_Top At_Offset_3 047c e409 | | Load 0x2,0x9 047d 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 047e 01cc | | Execute Vector,Catenate 047f e005 | | Load 0x0,0x5 0480 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0481 00d9 | | Load_Top At_Offset_1 0482 e409 | | Load 0x2,0x9 0483 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0484 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0485 00c9 | | Action Pop_Auxiliary_Loop 0486 00d9 | | Load_Top At_Offset_1 0487 e409 | | Load 0x2,0x9 0488 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0489 6fd8 |o | Jump_Zero 0x462 048a 00ce | | Action Pop_Auxiliary 048b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 048c 0092 081a | | Action Push_String_Extended,0x81a ; "Illegal format: " 048e e7fe | | Load 0x3,-0x2 048f 01cc | | Execute Vector,Catenate 0490 e005 | | Load 0x0,0x5 0491 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0492 0092 0819 | | Action Push_String_Extended,0x819 ; " " 0494 4800 |H | Short_Literal 0x0 0495 00da | | Load_Top At_Offset_2 0496 e409 | | Load 0x2,0x9 0497 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0498 01cc | | Execute Vector,Catenate 0499 e005 | | Load 0x0,0x5 049a 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 049b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 049c 0000 0000 | | .BLANK 0000[0x4] 04a0 ; -------------------------------------------------------------------------------------- 04a0 ; SUBPROGRAM 04a0 ; -------------------------------------------------------------------------------------- 04a0 04a6 | | .CONST 0x04a6 ; Address of begin 04a1 0004 | | .CONST 0x0004 ; Address of exception handler 04a2 0003 | | .CONST 0x0003 ; Number of locals 04a3 INIT_04a0: 04a3 e408 | | Load 0x2,0x8 04a4 029f 06fb | | Declare_Subprogram INIT_06f8,For_Call 04a6 BODY_04a0: 04a6 e7ff | | Load 0x3,-0x1 04a7 e409 | | Load 0x2,0x9 04a8 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 04a9 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 04aa 00d9 | | Load_Top At_Offset_1 04ab 4614 |F | Jump_Case 0x15 04ac 7816 |x | Jump 0x4c3 ; case 0x0 04ad 7826 |x& | Jump 0x4d4 ; case 0x1 04ae 783f |x? | Jump 0x4ee ; case 0x2 04af 7858 |xX | Jump 0x508 ; case 0x3 04b0 7860 |x` | Jump 0x511 ; case 0x4 04b1 7869 |xi | Jump 0x51b ; case 0x5 04b2 7872 |xr | Jump 0x525 ; case 0x6 04b3 787a |xz | Jump 0x52e ; case 0x7 04b4 7882 |x | Jump 0x537 ; case 0x8 04b5 788a |x | Jump 0x540 ; case 0x9 04b6 7893 |x | Jump 0x54a ; case 0xa 04b7 789c |x | Jump 0x554 ; case 0xb 04b8 78a5 |x | Jump 0x55e ; case 0xc 04b9 78ae |x | Jump 0x568 ; case 0xd 04ba 78ad |x | Jump 0x568 ; case 0xe 04bb 78ac |x | Jump 0x568 ; case 0xf 04bc 78ab |x | Jump 0x568 ; case 0x10 04bd 78aa |x | Jump 0x568 ; case 0x11 04be 78a9 |x | Jump 0x568 ; case 0x12 04bf 78a8 |x | Jump 0x568 ; case 0x13 04c0 7800 |x | Jump 0x4c1 ; case 0x14 04c1 8603 | | Call 0x3,0x3 04c2 4504 |E | Exit_Suprogram New_Top_Offset 0x4 04c3 480a |H | Short_Literal 0xa 04c4 0092 081b | | Action Push_String_Extended,0x81b ; "Illegal value on line: " 04c6 e7fe | | Load 0x3,-0x2 04c7 01cc | | Execute Vector,Catenate 04c8 01cb | | Execute Vector,Append 04c9 0092 081c | | Action Push_String_Extended,0x81c ; " " 04cb 01cc | | Execute Vector,Catenate 04cc 4800 |H | Short_Literal 0x0 04cd e7ff | | Load 0x3,-0x1 04ce e409 | | Load 0x2,0x9 04cf 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 04d0 01cc | | Execute Vector,Catenate 04d1 e005 | | Load 0x0,0x5 04d2 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 04d3 4504 |E | Exit_Suprogram New_Top_Offset 0x4 04d4 0092 081d | | Action Push_String_Extended,0x81d ; "Operator.Enable_Terminal (" 04d6 e7fd | | Load 0x3,-0x3 04d7 00e0 | | Load_Encached Standard_Cache 04d8 1818 | | Execute Package,Field_Execute,Field_Number 0x18 04d9 01cc | | Execute Vector,Catenate 04da 0092 0804 | | Action Push_String_Extended,0x804 ; ");" 04dc 01cc | | Execute Vector,Catenate 04dd e005 | | Load 0x0,0x5 04de 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 04df e5fe | | Load 0x2,-0x2 04e0 700c |p | Jump_Nonzero 0x4ed 04e1 0092 081e | | Action Push_String_Extended,0x81e ; "<PROFILE>" 04e3 e7fd | | Load 0x3,-0x3 04e4 e013 | | Load 0x0,0x13 04e5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04e6 00d9 | | Load_Top At_Offset_1 04e7 00d0 | | Action Swap_Control 04e8 0260 | ` | Execute Discrete,In_Type 04e9 7001 |p | Jump_Nonzero 0x4eb 04ea 0801 | | Execute_Immediate Raise,0x1 04eb e017 | | Load 0x0,0x17 04ec 1819 | | Execute Package,Field_Execute,Field_Number 0x19 04ed 4504 |E | Exit_Suprogram New_Top_Offset 0x4 04ee 0092 081f | | Action Push_String_Extended,0x81f ; "Operator.Disable_Terminal (" 04f0 e7fd | | Load 0x3,-0x3 04f1 00e0 | | Load_Encached Standard_Cache 04f2 1818 | | Execute Package,Field_Execute,Field_Number 0x18 04f3 01cc | | Execute Vector,Catenate 04f4 0092 0804 | | Action Push_String_Extended,0x804 ; ");" 04f6 01cc | | Execute Vector,Catenate 04f7 e005 | | Load 0x0,0x5 04f8 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 04f9 e5fe | | Load 0x2,-0x2 04fa 700c |p | Jump_Nonzero 0x507 04fb 0092 081e | | Action Push_String_Extended,0x81e ; "<PROFILE>" 04fd e7fd | | Load 0x3,-0x3 04fe e013 | | Load 0x0,0x13 04ff 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0500 00d9 | | Load_Top At_Offset_1 0501 00d0 | | Action Swap_Control 0502 0260 | ` | Execute Discrete,In_Type 0503 7001 |p | Jump_Nonzero 0x505 0504 0801 | | Execute_Immediate Raise,0x1 0505 e017 | | Load 0x0,0x17 0506 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0507 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0508 e7fd | | Load 0x3,-0x3 0509 00d8 | | Load_Top At_Offset_0 050a e406 | | Load 0x2,0x6 050b 0260 | ` | Execute Discrete,In_Type 050c 7001 |p | Jump_Nonzero 0x50e 050d 0801 | | Execute_Immediate Raise,0x1 050e e7ff | | Load 0x3,-0x1 050f 8414 | | Call 0x2,0x14 0510 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0511 00d9 | | Load_Top At_Offset_1 0512 e7fd | | Load 0x3,-0x3 0513 00d8 | | Load_Top At_Offset_0 0514 e406 | | Load 0x2,0x6 0515 0260 | ` | Execute Discrete,In_Type 0516 7001 |p | Jump_Nonzero 0x518 0517 0801 | | Execute_Immediate Raise,0x1 0518 e7ff | | Load 0x3,-0x1 0519 8415 | | Call 0x2,0x15 051a 4504 |E | Exit_Suprogram New_Top_Offset 0x4 051b 00d9 | | Load_Top At_Offset_1 051c e7fd | | Load 0x3,-0x3 051d 00d8 | | Load_Top At_Offset_0 051e e406 | | Load 0x2,0x6 051f 0260 | ` | Execute Discrete,In_Type 0520 7001 |p | Jump_Nonzero 0x522 0521 0801 | | Execute_Immediate Raise,0x1 0522 e7ff | | Load 0x3,-0x1 0523 8415 | | Call 0x2,0x15 0524 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0525 e7fd | | Load 0x3,-0x3 0526 00d8 | | Load_Top At_Offset_0 0527 e406 | | Load 0x2,0x6 0528 0260 | ` | Execute Discrete,In_Type 0529 7001 |p | Jump_Nonzero 0x52b 052a 0801 | | Execute_Immediate Raise,0x1 052b e7ff | | Load 0x3,-0x1 052c 8416 | | Call 0x2,0x16 052d 4504 |E | Exit_Suprogram New_Top_Offset 0x4 052e e7fd | | Load 0x3,-0x3 052f 00d8 | | Load_Top At_Offset_0 0530 e406 | | Load 0x2,0x6 0531 0260 | ` | Execute Discrete,In_Type 0532 7001 |p | Jump_Nonzero 0x534 0533 0801 | | Execute_Immediate Raise,0x1 0534 e7ff | | Load 0x3,-0x1 0535 8418 | | Call 0x2,0x18 0536 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0537 e7fd | | Load 0x3,-0x3 0538 00d8 | | Load_Top At_Offset_0 0539 e406 | | Load 0x2,0x6 053a 0260 | ` | Execute Discrete,In_Type 053b 7001 |p | Jump_Nonzero 0x53d 053c 0801 | | Execute_Immediate Raise,0x1 053d e7ff | | Load 0x3,-0x1 053e 8417 | | Call 0x2,0x17 053f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0540 00d9 | | Load_Top At_Offset_1 0541 e7fd | | Load 0x3,-0x3 0542 00d8 | | Load_Top At_Offset_0 0543 e406 | | Load 0x2,0x6 0544 0260 | ` | Execute Discrete,In_Type 0545 7001 |p | Jump_Nonzero 0x547 0546 0801 | | Execute_Immediate Raise,0x1 0547 e7ff | | Load 0x3,-0x1 0548 8419 | | Call 0x2,0x19 0549 4504 |E | Exit_Suprogram New_Top_Offset 0x4 054a 00d9 | | Load_Top At_Offset_1 054b e7fd | | Load 0x3,-0x3 054c 00d8 | | Load_Top At_Offset_0 054d e406 | | Load 0x2,0x6 054e 0260 | ` | Execute Discrete,In_Type 054f 7001 |p | Jump_Nonzero 0x551 0550 0801 | | Execute_Immediate Raise,0x1 0551 e7ff | | Load 0x3,-0x1 0552 841a | | Call 0x2,0x1a 0553 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0554 00d9 | | Load_Top At_Offset_1 0555 e7fd | | Load 0x3,-0x3 0556 00d8 | | Load_Top At_Offset_0 0557 e406 | | Load 0x2,0x6 0558 0260 | ` | Execute Discrete,In_Type 0559 7001 |p | Jump_Nonzero 0x55b 055a 0801 | | Execute_Immediate Raise,0x1 055b e7ff | | Load 0x3,-0x1 055c 8419 | | Call 0x2,0x19 055d 4504 |E | Exit_Suprogram New_Top_Offset 0x4 055e 00d9 | | Load_Top At_Offset_1 055f e7fd | | Load 0x3,-0x3 0560 00d8 | | Load_Top At_Offset_0 0561 e406 | | Load 0x2,0x6 0562 0260 | ` | Execute Discrete,In_Type 0563 7001 |p | Jump_Nonzero 0x565 0564 0801 | | Execute_Immediate Raise,0x1 0565 e7ff | | Load 0x3,-0x1 0566 841a | | Call 0x2,0x1a 0567 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0568 e7fd | | Load 0x3,-0x3 0569 00d8 | | Load_Top At_Offset_0 056a e406 | | Load 0x2,0x6 056b 0260 | ` | Execute Discrete,In_Type 056c 7001 |p | Jump_Nonzero 0x56e 056d 0801 | | Execute_Immediate Raise,0x1 056e 00da | | Load_Top At_Offset_2 056f e7ff | | Load 0x3,-0x1 0570 841b | | Call 0x2,0x1b 0571 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0572 0000 0000 | | .BLANK 0000[0x6] 0578 ; -------------------------------------------------------------------------------------- 0578 ; SUBPROGRAM 0578 ; -------------------------------------------------------------------------------------- 0578 057f | | .CONST 0x057f ; Address of begin 0579 0004 | | .CONST 0x0004 ; Address of exception handler 057a 0003 | | .CONST 0x0003 ; Number of locals 057b INIT_0578: 057b e406 | | Load 0x2,0x6 057c 0007 | | Action Break_Optional 057d e407 | | Load 0x2,0x7 057e 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 057f BODY_0578: 057f e7ff | | Load 0x3,-0x1 0580 01db | | Execute Vector,Length 0581 6873 |hs | Jump_Zero 0x5f5 0582 e7ff | | Load 0x3,-0x1 0583 01db | | Execute Vector,Length 0584 0c02 | | Execute_Immediate Greater_Equal,0x2 0585 6811 |h | Jump_Zero 0x597 0586 e7ff | | Load 0x3,-0x1 0587 01dd | | Execute Vector,First 0588 e7ff | | Load 0x3,-0x1 0589 01dd | | Execute Vector,First 058a 0a01 | | Execute_Immediate Plus,0x1 058b 00d8 | | Load_Top At_Offset_0 058c 00e2 | | Load_Encached Integer_Cache 058d 0260 | ` | Execute Discrete,In_Type 058e 7001 |p | Jump_Nonzero 0x590 058f 0801 | | Execute_Immediate Raise,0x1 0590 e7ff | | Load 0x3,-0x1 0591 01cf | | Execute Vector,Slice_Read 0592 0092 0820 | | Action Push_String_Extended,0x820 ; "--" 0594 01df | | Execute Vector,Equal 0595 6801 |h | Jump_Zero 0x597 0596 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0597 e7ff | | Load 0x3,-0x1 0598 e407 | | Load 0x2,0x7 0599 1820 | | Execute Package,Field_Execute,Field_Number 0x20 059a 0031 | 1 | Store_Top Heap_Access,At_Offset_1 059b 00d8 | | Load_Top At_Offset_0 059c e407 | | Load 0x2,0x7 059d 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 059e 682e |h. | Jump_Zero 0x5cd 059f 00cf | | Action Mark_Auxiliary 05a0 7826 |x& | Jump 0x5c7 05a1 480f |H | Short_Literal 0xf 05a2 00da | | Load_Top At_Offset_2 05a3 e407 | | Load 0x2,0x7 05a4 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 05a5 680c |h | Jump_Zero 0x5b2 05a6 00d9 | | Load_Top At_Offset_1 05a7 e407 | | Load 0x2,0x7 05a8 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 05a9 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 05aa 00ea | | Load_Encached Null_String_Cache 05ab 480f |H | Short_Literal 0xf 05ac 00db | | Load_Top At_Offset_3 05ad e407 | | Load 0x2,0x7 05ae 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 05af 00db | | Load_Top At_Offset_3 05b0 841d | | Call 0x2,0x1d 05b1 7810 |x | Jump 0x5c2 05b2 480a |H | Short_Literal 0xa 05b3 0092 0818 | | Action Push_String_Extended,0x818 ; "Illegal item in line: " 05b5 e7ff | | Load 0x3,-0x1 05b6 01cc | | Execute Vector,Catenate 05b7 01cb | | Execute Vector,Append 05b8 0092 0819 | | Action Push_String_Extended,0x819 ; " " 05ba 01cc | | Execute Vector,Catenate 05bb 480f |H | Short_Literal 0xf 05bc 00db | | Load_Top At_Offset_3 05bd e407 | | Load 0x2,0x7 05be 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 05bf 01cc | | Execute Vector,Catenate 05c0 e005 | | Load 0x0,0x5 05c1 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 05c2 00d9 | | Load_Top At_Offset_1 05c3 e407 | | Load 0x2,0x7 05c4 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 05c5 0032 | 2 | Store_Top Heap_Access,At_Offset_2 05c6 00c9 | | Action Pop_Auxiliary_Loop 05c7 00d9 | | Load_Top At_Offset_1 05c8 e407 | | Load 0x2,0x7 05c9 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 05ca 6fd6 |o | Jump_Zero 0x5a1 05cb 00ce | | Action Pop_Auxiliary 05cc 4502 |E | Exit_Suprogram New_Top_Offset 0x2 05cd 4800 |H | Short_Literal 0x0 05ce e7ff | | Load 0x3,-0x1 05cf 0092 0815 | | Action Push_String_Extended,0x815 ; "=" 05d1 e014 | | Load 0x0,0x14 05d2 181d | | Execute Package,Field_Execute,Field_Number 0x1d 05d3 0c01 | | Execute_Immediate Greater_Equal,0x1 05d4 6811 |h | Jump_Zero 0x5e6 05d5 4800 |H | Short_Literal 0x0 05d6 e7ff | | Load 0x3,-0x1 05d7 0092 0815 | | Action Push_String_Extended,0x815 ; "=" 05d9 e014 | | Load 0x0,0x14 05da 181d | | Execute Package,Field_Execute,Field_Number 0x1d 05db 4800 |H | Short_Literal 0x0 05dc e7ff | | Load 0x3,-0x1 05dd 0092 0821 | !| Action Push_String_Extended,0x821 ; "=>" 05df e014 | | Load 0x0,0x14 05e0 181d | | Execute Package,Field_Execute,Field_Number 0x1d 05e1 027e | ~ | Execute Discrete,Not_Equal 05e2 6803 |h | Jump_Zero 0x5e6 05e3 e7ff | | Load 0x3,-0x1 05e4 841c | | Call 0x2,0x1c 05e5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 05e6 0092 081a | | Action Push_String_Extended,0x81a ; "Illegal format: " 05e8 e7ff | | Load 0x3,-0x1 05e9 01cc | | Execute Vector,Catenate 05ea e005 | | Load 0x0,0x5 05eb 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 05ec 0092 0819 | | Action Push_String_Extended,0x819 ; " " 05ee 480f |H | Short_Literal 0xf 05ef 00da | | Load_Top At_Offset_2 05f0 e407 | | Load 0x2,0x7 05f1 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 05f2 01cc | | Execute Vector,Catenate 05f3 e005 | | Load 0x0,0x5 05f4 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 05f5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 05f6 0000 0000 | | .XXX[0x2] 05f8 ; -------------------------------------------------------------------------------------- 05f8 ; SUBPROGRAM 05f8 ; -------------------------------------------------------------------------------------- 05f8 060a | | .CONST 0x060a ; Address of begin 05f9 0616 | | .CONST 0x0616 ; Address of exception handler 05fa 0007 | | .CONST 0x0007 ; Number of locals 05fb INIT_05f8: 05fb 4801 |H | Short_Literal 0x1 05fc 4be8 |K | Short_Literal 0x3e8 05fd 00e9 | | Load_Encached String_Cache 05fe 035b | [ | Declare_Type Array,Constrained 05ff 0337 | 7 | Declare_Variable Array 0600 00e3 | | Load_Encached Natural_Cache 0601 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0602 00e3 | | Load_Encached Natural_Cache 0603 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0604 00e3 | | Load_Encached Natural_Cache 0605 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0606 029f 0723 | #| Declare_Subprogram INIT_0720,For_Call 0608 029f 0743 | C| Declare_Subprogram INIT_0740,For_Call 060a BODY_05f8: 060a 00cf | | Action Mark_Auxiliary 060b 8607 | | Call 0x3,0x7 060c 00c9 | | Action Pop_Auxiliary_Loop 060d 7ffd | | Jump 0x60b 060e 00ce | | Action Pop_Auxiliary 060f 4801 |H | Short_Literal 0x1 0610 e603 | | Load 0x3,0x3 0611 e602 | | Load 0x3,0x2 0612 01cf | | Execute Vector,Slice_Read 0613 00e9 | | Load_Encached String_Cache 0614 01c6 | | Execute Vector,Convert_To_Formal 0615 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0616 TRAP_05f8: 0616 00d8 | | Load_Top At_Offset_0 0617 0107 | | Execute Exception,Get_Name 0618 4950 |IP | Short_Literal 0x150 0619 495f |I_ | Short_Literal 0x15f 061a 0262 | b | Execute Discrete,In_Range 061b 680f |h | Jump_Zero 0x62b 061c e604 | | Load 0x3,0x4 061d e605 | | Load 0x3,0x5 061e 027e | ~ | Execute Discrete,Not_Equal 061f 6809 |h | Jump_Zero 0x629 0620 0092 0822 | "| Action Push_String_Extended,0x822 ; "The parentheses in the file " 0622 e5ff | | Load 0x2,-0x1 0623 01cc | | Execute Vector,Catenate 0624 0092 0823 | #| Action Push_String_Extended,0x823 ; " do not match" 0626 01cc | | Execute Vector,Catenate 0627 e005 | | Load 0x0,0x5 0628 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0629 00d8 | | Load_Top At_Offset_0 062a 0101 | | Execute Exception,Reraise 062b 0100 | | Execute Exception,Raise 062c 0000 0000 | | .BLANK 0000[0x4] 0630 ; -------------------------------------------------------------------------------------- 0630 ; SUBPROGRAM 0630 ; -------------------------------------------------------------------------------------- 0630 063d | = | .CONST 0x063d ; Address of begin 0631 0004 | | .CONST 0x0004 ; Address of exception handler 0632 0002 | | .CONST 0x0002 ; Number of locals 0633 INIT_0630: 0633 e602 | | Load 0x3,0x2 0634 e40b | | Load 0x2,0xb 0635 011c | | Execute Any,Convert_Unchecked 0636 1c01 | | Execute_Immediate Run_Utility,0x1 0637 e015 | | Load 0x0,0x15 0638 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 0639 1c02 | | Execute_Immediate Run_Utility,0x2 063a e015 | | Load 0x0,0x15 063b 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 063c 03f1 | | Declare_Variable Discrete,With_Value 063d BODY_0630: 063d 00d8 | | Load_Top At_Offset_0 063e e015 | | Load 0x0,0x15 063f 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 0640 011c | | Execute Any,Convert_Unchecked 0641 1c01 | | Execute_Immediate Run_Utility,0x1 0642 e7fe | | Load 0x3,-0x2 0643 0092 0824 | $| Action Push_String_Extended,0x824 ; "Terminal.Set_Parity" 0645 8412 | | Call 0x2,0x12 0646 e5fe | | Load 0x2,-0x2 0647 7004 |p | Jump_Nonzero 0x64c 0648 00d8 | | Load_Top At_Offset_0 0649 e7fe | | Load 0x3,-0x2 064a e013 | | Load 0x0,0x13 064b 1816 | | Execute Package,Field_Execute,Field_Number 0x16 064c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 064d 0000 0000 | | .XXX[0x3] 064f 0000 | | 0650 ; -------------------------------------------------------------------------------------- 0650 ; SUBPROGRAM 0650 ; -------------------------------------------------------------------------------------- 0650 0654 | T | .CONST 0x0654 ; Address of begin 0651 0682 | | .CONST 0x0682 ; Address of exception handler 0652 0002 | | .CONST 0x0002 ; Number of locals 0653 INIT_0650: 0653 00e3 | | Load_Encached Natural_Cache 0654 BODY_0650: 0654 4801 |H | Short_Literal 0x1 0655 e602 | | Load 0x3,0x2 0656 0092 0811 | | Action Push_String_Extended,0x811 ; "," 0658 e014 | | Load 0x0,0x14 0659 181d | | Execute Package,Field_Execute,Field_Number 0x1d 065a 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 065b 00d8 | | Load_Top At_Offset_0 065c 0c01 | | Execute_Immediate Greater_Equal,0x1 065d 681e |h | Jump_Zero 0x67c 065e e602 | | Load 0x3,0x2 065f 01dd | | Execute Vector,First 0660 00d9 | | Load_Top At_Offset_1 0661 0aff | | Execute_Immediate Plus,-0x1 0662 e602 | | Load 0x3,0x2 0663 01cf | | Execute Vector,Slice_Read 0664 00e2 | | Load_Encached Integer_Cache 0665 00e0 | | Load_Encached Standard_Cache 0666 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0667 4801 |H | Short_Literal 0x1 0668 e603 | | Load 0x3,0x3 0669 01d6 | | Execute Vector,Field_Write 066a 00d8 | | Load_Top At_Offset_0 066b 0a01 | | Execute_Immediate Plus,0x1 066c 00d8 | | Load_Top At_Offset_0 066d 00e2 | | Load_Encached Integer_Cache 066e 0260 | ` | Execute Discrete,In_Type 066f 7001 |p | Jump_Nonzero 0x671 0670 0801 | | Execute_Immediate Raise,0x1 0671 e602 | | Load 0x3,0x2 0672 01dc | | Execute Vector,Last 0673 e602 | | Load 0x3,0x2 0674 01cf | | Execute Vector,Slice_Read 0675 00e2 | | Load_Encached Integer_Cache 0676 00e0 | | Load_Encached Standard_Cache 0677 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0678 4802 |H | Short_Literal 0x2 0679 e603 | | Load 0x3,0x3 067a 01d6 | | Execute Vector,Field_Write 067b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 067c e7fe | | Load 0x3,-0x2 067d e602 | | Load 0x3,0x2 067e e604 | | Load 0x3,0x4 067f 8413 | | Call 0x2,0x13 0680 00cc | | Action Pop_Block 0681 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0682 TRAP_0650: 0682 0007 | | Action Break_Optional 0683 e7fe | | Load 0x3,-0x2 0684 e602 | | Load 0x3,0x2 0685 e604 | | Load 0x3,0x4 0686 8413 | | Call 0x2,0x13 0687 00cc | | Action Pop_Block 0688 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0689 0000 0000 | | .BLANK 0000[0x7] 0690 ; -------------------------------------------------------------------------------------- 0690 ; SUBPROGRAM 0690 ; -------------------------------------------------------------------------------------- 0690 06b1 | | .CONST 0x06b1 ; Address of begin 0691 0004 | | .CONST 0x0004 ; Address of exception handler 0692 0008 | | .CONST 0x0008 ; Number of locals 0693 INIT_0690: 0693 4820 |H | Short_Literal 0x20 0694 e602 | | Load 0x3,0x2 0695 e603 | | Load 0x3,0x3 0696 0aff | | Execute_Immediate Plus,-0x1 0697 e7ff | | Load 0x3,-0x1 0698 01cf | | Execute Vector,Slice_Read 0699 e014 | | Load 0x0,0x14 069a 181c | | Execute Package,Field_Execute,Field_Number 0x1c 069b e605 | | Load 0x3,0x5 069c 0a01 | | Execute_Immediate Plus,0x1 069d 00d8 | | Load_Top At_Offset_0 069e 00e2 | | Load_Encached Integer_Cache 069f 0260 | ` | Execute Discrete,In_Type 06a0 7001 |p | Jump_Nonzero 0x6a2 06a1 0801 | | Execute_Immediate Raise,0x1 06a2 e606 | | Load 0x3,0x6 06a3 0aff | | Execute_Immediate Plus,-0x1 06a4 e7ff | | Load 0x3,-0x1 06a5 01cf | | Execute Vector,Slice_Read 06a6 0335 | 5 | Declare_Variable Array,Duplicate 06a7 00cd | | Action Spare6_Action 06a8 e402 | | Load 0x2,0x2 06a9 0007 | | Action Break_Optional 06aa 00d8 | | Load_Top At_Offset_0 06ab 0007 | | Action Break_Optional 06ac 00e1 | | Load_Encached Boolean_Cache 06ad e409 | | Load 0x2,0x9 06ae 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 06af 029f 07a3 | | Declare_Subprogram INIT_07a0,For_Call 06b1 BODY_0690: 06b1 e803 | | Load 0x4,0x3 06b2 e409 | | Load 0x2,0x9 06b3 1820 | | Execute Package,Field_Execute,Field_Number 0x20 06b4 0032 | 2 | Store_Top Heap_Access,At_Offset_2 06b5 00d9 | | Load_Top At_Offset_1 06b6 e409 | | Load 0x2,0x9 06b7 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 06b8 7017 |p | Jump_Nonzero 0x6d0 06b9 0092 081a | | Action Push_String_Extended,0x81a ; "Illegal format: " 06bb e803 | | Load 0x4,0x3 06bc 01cc | | Execute Vector,Catenate 06bd e005 | | Load 0x0,0x5 06be 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 06bf 0092 0819 | | Action Push_String_Extended,0x819 ; " " 06c1 4800 |H | Short_Literal 0x0 06c2 00db | | Load_Top At_Offset_3 06c3 e409 | | Load 0x2,0x9 06c4 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 06c5 01cc | | Execute Vector,Catenate 06c6 e005 | | Load 0x0,0x5 06c7 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 06c8 e802 | | Load 0x4,0x2 06c9 0092 0825 | %| Action Push_String_Extended,0x825 ; " therefore cannot be defined" 06cb 01cc | | Execute Vector,Catenate 06cc e005 | | Load 0x0,0x5 06cd 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 06ce 00cc | | Action Pop_Block 06cf 4502 |E | Exit_Suprogram New_Top_Offset 0x2 06d0 00e1 | | Load_Encached Boolean_Cache 06d1 e805 | | Load 0x4,0x5 06d2 e802 | | Load 0x4,0x2 06d3 e404 | | Load 0x2,0x4 06d4 e403 | | Load 0x2,0x3 06d5 1814 | | Execute Package,Field_Execute,Field_Number 0x14 06d6 c805 | | Store 0x4,0x5 06d7 005b | [ | Store_Top Discrete,At_Offset_3 06d8 00da | | Load_Top At_Offset_2 06d9 6802 |h | Jump_Zero 0x6dc 06da 8808 | | Call 0x4,0x8 06db 4501 |E | Exit_Suprogram New_Top_Offset 0x1 06dc e803 | | Load 0x4,0x3 06dd 01da | | Execute Vector,Bounds 06de e402 | | Load 0x2,0x2 06df 03ba | | Declare_Variable Access,By_Allocation,With_Constraint 06e0 a804 | | Store_Unchecked 0x4,0x4 06e1 e803 | | Load 0x4,0x3 06e2 e804 | | Load 0x4,0x4 06e3 0228 | ( | Execute Access,All_Write 06e4 e404 | | Load 0x2,0x4 06e5 4800 |H | Short_Literal 0x0 06e6 e804 | | Load 0x4,0x4 06e7 e802 | | Load 0x4,0x2 06e8 e403 | | Load 0x2,0x3 06e9 1815 | | Execute Package,Field_Execute,Field_Number 0x15 06ea c404 | | Store 0x2,0x4 06eb 4800 |H | Short_Literal 0x0 06ec 00ea | | Load_Encached Null_String_Cache 06ed 4805 |H | Short_Literal 0x5 06ee e802 | | Load 0x4,0x2 06ef 4814 |H | Short_Literal 0x14 06f0 e409 | | Load 0x2,0x9 06f1 1819 | | Execute Package,Field_Execute,Field_Number 0x19 06f2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 06f3 0000 0000 | | .BLANK 0000[0x5] 06f8 ; -------------------------------------------------------------------------------------- 06f8 ; SUBPROGRAM 06f8 ; -------------------------------------------------------------------------------------- 06f8 06fb | | .CONST 0x06fb ; Address of begin 06f9 070c | | .CONST 0x070c ; Address of exception handler 06fa 0001 | | .CONST 0x0001 ; Number of locals 06fb BODY_06f8: 06fb INIT_06f8: 06fb 00ea | | Load_Encached Null_String_Cache 06fc 4800 |H | Short_Literal 0x0 06fd e7ff | | Load 0x3,-0x1 06fe e409 | | Load 0x2,0x9 06ff 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0700 e404 | | Load 0x2,0x4 0701 e403 | | Load 0x2,0x3 0702 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0703 0227 | ' | Execute Access,All_Reference 0704 e7fd | | Load 0x3,-0x3 0705 00d8 | | Load_Top At_Offset_0 0706 e406 | | Load 0x2,0x6 0707 0260 | ` | Execute Discrete,In_Type 0708 7001 |p | Jump_Nonzero 0x70a 0709 0801 | | Execute_Immediate Raise,0x1 070a 841d | | Call 0x2,0x1d 070b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 070c TRAP_06f8: 070c e403 | | Load 0x2,0x3 070d 1b20 | | Execute Package,Field_Read,Field_Number 0x20 070e 010f | | Execute Exception,Equal 070f 680b |h | Jump_Zero 0x71b 0710 0092 0826 | &| Action Push_String_Extended,0x826 ; "Illegal predefined value: " 0712 00ea | | Load_Encached Null_String_Cache 0713 4800 |H | Short_Literal 0x0 0714 e7ff | | Load 0x3,-0x1 0715 e409 | | Load 0x2,0x9 0716 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0717 01cc | | Execute Vector,Catenate 0718 e005 | | Load 0x0,0x5 0719 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 071a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 071b 0100 | | Execute Exception,Raise 071c 0000 0000 | | .BLANK 0000[0x4] 0720 ; -------------------------------------------------------------------------------------- 0720 ; SUBPROGRAM 0720 ; -------------------------------------------------------------------------------------- 0720 0723 | # | .CONST 0x0723 ; Address of begin 0721 0004 | | .CONST 0x0004 ; Address of exception handler 0722 0001 | | .CONST 0x0001 ; Number of locals 0723 BODY_0720: 0723 INIT_0720: 0723 00cf | | Action Mark_Auxiliary 0724 00db | | Load_Top At_Offset_3 0725 01dc | | Execute Vector,Last 0726 e9ff | | Load 0x4,-0x1 0727 01dd | | Execute Vector,First 0728 0263 | c | Execute Discrete,Above_Bound 0729 7012 |p | Jump_Nonzero 0x73c 072a 00d8 | | Load_Top At_Offset_0 072b e9ff | | Load 0x4,-0x1 072c 01d7 | | Execute Vector,Field_Read 072d 0f28 | ( | Execute_Immediate Equal,0x28 072e 6803 |h | Jump_Zero 0x732 072f e9fe | | Load 0x4,-0x2 0730 0a01 | | Execute_Immediate Plus,0x1 0731 c9fe | | Store 0x4,-0x2 0732 00d8 | | Load_Top At_Offset_0 0733 e9ff | | Load 0x4,-0x1 0734 01d7 | | Execute Vector,Field_Read 0735 0f29 | ) | Execute_Immediate Equal,0x29 0736 6803 |h | Jump_Zero 0x73a 0737 e9fd | | Load 0x4,-0x3 0738 0a01 | | Execute_Immediate Plus,0x1 0739 c9fd | | Store 0x4,-0x3 073a 00c8 | | Action Pop_Auxiliary_Range 073b 3fee |? | Loop_Increasing 0x72a 073c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 073d 0000 0000 | | .XXX[0x3] 073f 0000 | | 0740 ; -------------------------------------------------------------------------------------- 0740 ; SUBPROGRAM 0740 ; -------------------------------------------------------------------------------------- 0740 075d | ] | .CONST 0x075d ; Address of begin 0741 0004 | | .CONST 0x0004 ; Address of exception handler 0742 0006 | | .CONST 0x0006 ; Number of locals 0743 INIT_0740: 0743 4820 |H | Short_Literal 0x20 0744 e7ff | | Load 0x3,-0x1 0745 e005 | | Load 0x0,0x5 0746 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0747 e014 | | Load 0x0,0x14 0748 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0749 00d8 | | Load_Top At_Offset_0 074a 01dd | | Execute Vector,First 074b 00e3 | | Load_Encached Natural_Cache 074c 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 074d 00d9 | | Load_Top At_Offset_1 074e 01dc | | Execute Vector,Last 074f 00e3 | | Load_Encached Natural_Cache 0750 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0751 00da | | Load_Top At_Offset_2 0752 01db | | Execute Vector,Length 0753 00e3 | | Load_Encached Natural_Cache 0754 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0755 4801 |H | Short_Literal 0x1 0756 e802 | | Load 0x4,0x2 0757 0092 0820 | | Action Push_String_Extended,0x820 ; "--" 0759 e014 | | Load 0x0,0x14 075a 181d | | Execute Package,Field_Execute,Field_Number 0x1d 075b 00e3 | | Load_Encached Natural_Cache 075c 03f1 | | Declare_Variable Discrete,With_Value 075d BODY_0740: 075d 00d8 | | Load_Top At_Offset_0 075e 0c01 | | Execute_Immediate Greater_Equal,0x1 075f 6810 |h | Jump_Zero 0x770 0760 4820 |H | Short_Literal 0x20 0761 e803 | | Load 0x4,0x3 0762 00da | | Load_Top At_Offset_2 0763 0aff | | Execute_Immediate Plus,-0x1 0764 e802 | | Load 0x4,0x2 0765 01cf | | Execute Vector,Slice_Read 0766 e014 | | Load 0x0,0x14 0767 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0768 01dc | | Execute Vector,Last 0769 005b | [ | Store_Top Discrete,At_Offset_3 076a 00db | | Load_Top At_Offset_3 076b 00db | | Load_Top At_Offset_3 076c e802 | | Load 0x4,0x2 076d 01cf | | Execute Vector,Slice_Read 076e 01db | | Execute Vector,Length 076f 005a | Z | Store_Top Discrete,At_Offset_2 0770 00da | | Load_Top At_Offset_2 0771 e803 | | Load 0x4,0x3 0772 027d | } | Execute Discrete,Greater 0773 6828 |h( | Jump_Zero 0x79c 0774 00db | | Load_Top At_Offset_3 0775 00db | | Load_Top At_Offset_3 0776 e802 | | Load 0x4,0x2 0777 01cf | | Execute Vector,Slice_Read 0778 e603 | | Load 0x3,0x3 0779 0a01 | | Execute_Immediate Plus,0x1 077a 00d8 | | Load_Top At_Offset_0 077b 00e2 | | Load_Encached Integer_Cache 077c 0260 | ` | Execute Discrete,In_Type 077d 7001 |p | Jump_Nonzero 0x77f 077e 0801 | | Execute_Immediate Raise,0x1 077f e603 | | Load 0x3,0x3 0780 e805 | | Load 0x4,0x5 0781 0273 | s | Execute Discrete,Plus 0782 00d8 | | Load_Top At_Offset_0 0783 00e2 | | Load_Encached Integer_Cache 0784 0260 | ` | Execute Discrete,In_Type 0785 7001 |p | Jump_Nonzero 0x787 0786 0801 | | Execute_Immediate Raise,0x1 0787 e602 | | Load 0x3,0x2 0788 01ce | | Execute Vector,Slice_Write 0789 e603 | | Load 0x3,0x3 078a 00da | | Load_Top At_Offset_2 078b 0273 | s | Execute Discrete,Plus 078c c603 | | Store 0x3,0x3 078d e605 | | Load 0x3,0x5 078e e604 | | Load 0x3,0x4 078f e803 | | Load 0x4,0x3 0790 e804 | | Load 0x4,0x4 0791 e802 | | Load 0x4,0x2 0792 01cf | | Execute Vector,Slice_Read 0793 8606 | | Call 0x3,0x6 0794 c604 | | Store 0x3,0x4 0795 c605 | | Store 0x3,0x5 0796 e604 | | Load 0x3,0x4 0797 e605 | | Load 0x3,0x5 0798 027f | | Execute Discrete,Equal 0799 6802 |h | Jump_Zero 0x79c 079a 00cc | | Action Pop_Block 079b 7e72 |~r | Jump 0x60e 079c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 079d 0000 0000 | | .XXX[0x3] 079f 0000 | | 07a0 ; -------------------------------------------------------------------------------------- 07a0 ; SUBPROGRAM 07a0 ; -------------------------------------------------------------------------------------- 07a0 07a7 | | .CONST 0x07a7 ; Address of begin 07a1 0004 | | .CONST 0x0004 ; Address of exception handler 07a2 0002 | | .CONST 0x0002 ; Number of locals 07a3 INIT_07a0: 07a3 e805 | | Load 0x4,0x5 07a4 0227 | ' | Execute Access,All_Reference 07a5 0335 | 5 | Declare_Variable Array,Duplicate 07a6 00cd | | Action Spare6_Action 07a7 BODY_07a0: 07a7 4801 |H | Short_Literal 0x1 07a8 00d9 | | Load_Top At_Offset_1 07a9 01db | | Execute Vector,Length 07aa e803 | | Load 0x4,0x3 07ab 01db | | Execute Vector,Length 07ac 0273 | s | Execute Discrete,Plus 07ad 0a01 | | Execute_Immediate Plus,0x1 07ae 00d8 | | Load_Top At_Offset_0 07af 00e2 | | Load_Encached Integer_Cache 07b0 0260 | ` | Execute Discrete,In_Type 07b1 7001 |p | Jump_Nonzero 0x7b3 07b2 0801 | | Execute_Immediate Raise,0x1 07b3 e402 | | Load 0x2,0x2 07b4 03ba | | Declare_Variable Access,By_Allocation,With_Constraint 07b5 a804 | | Store_Unchecked 0x4,0x4 07b6 00d8 | | Load_Top At_Offset_0 07b7 0092 0811 | | Action Push_String_Extended,0x811 ; "," 07b9 01cc | | Execute Vector,Catenate 07ba e803 | | Load 0x4,0x3 07bb 01cc | | Execute Vector,Catenate 07bc e804 | | Load 0x4,0x4 07bd 0228 | ( | Execute Access,All_Write 07be e404 | | Load 0x2,0x4 07bf e802 | | Load 0x4,0x2 07c0 e403 | | Load 0x2,0x3 07c1 1816 | | Execute Package,Field_Execute,Field_Number 0x16 07c2 c404 | | Store 0x2,0x4 07c3 e404 | | Load 0x2,0x4 07c4 4800 |H | Short_Literal 0x0 07c5 e804 | | Load 0x4,0x4 07c6 e802 | | Load 0x4,0x2 07c7 e403 | | Load 0x2,0x3 07c8 1815 | | Execute Package,Field_Execute,Field_Number 0x15 07c9 c404 | | Store 0x2,0x4 07ca 4501 |E | Exit_Suprogram New_Top_Offset 0x1 07cb ; -------------------------------------------------------------------------------------- 07cb ; STRING TABLE 07cb ; -------------------------------------------------------------------------------------- 07cb 00ba | | .STRTAB 0x00ba->0x0828 ; "NIL" 07cc 00bb | | .STRTAB 0x00bb->0x0829 ; "ENABLE" 07cd 00bf | | .STRTAB 0x00bf->0x082c ; "DISABLE" 07ce 00c4 | | .STRTAB 0x00c4->0x0830 ; "TERMINAL_TYPE" 07cf 00cf | | .STRTAB 0x00cf->0x0836 ; "INPUT_RATE" 07d0 00d7 | | .STRTAB 0x00d7->0x083b ; "OUTPUT_RATE" 07d1 00e0 | | .STRTAB 0x00e0->0x0841 ; "PARITY" 07d2 00e4 | | .STRTAB 0x00e4->0x0844 ; "BITS_PER_CHAR" 07d3 00ef | | .STRTAB 0x00ef->0x084a ; "STOP_BITS" 07d4 00f6 | | .STRTAB 0x00f6->0x084f ; "FLOW_CONTROL" 07d5 0100 | | .STRTAB 0x0100->0x0855 ; "XON_XOFF_BYTES" 07d6 010c | | .STRTAB 0x010c->0x085c ; "RECEIVE_FLOW_CONTROL" 07d7 011e | | .STRTAB 0x011e->0x0866 ; "RECEIVE_XON_XOFF_BYTES" 07d8 0132 | 2 | .STRTAB 0x0132->0x0871 ; "DISCONNECT_ON_LOGOFF" 07d9 0144 | D | .STRTAB 0x0144->0x087b ; "LOGOFF_ON_DISCONNECT" 07da 0156 | V | .STRTAB 0x0156->0x0885 ; "LOG_FAILED_LOGINS" 07db 0165 | e | .STRTAB 0x0165->0x088d ; "DISCONNECT_ON_FAILED_LOGIN" 07dc 017d | } | .STRTAB 0x017d->0x089a ; "DISCONNECT_ON_DISCONNECT" 07dd 0193 | | .STRTAB 0x0193->0x08a6 ; "LOGIN_DISABLED" 07de 019f | | .STRTAB 0x019f->0x08ad ; "DETACH_ON_DISCONNECT" 07df 01b1 | | .STRTAB 0x01b1->0x08b7 ; "PREDEFINED" 07e0 01b9 | | .STRTAB 0x01b9->0x08bc ; "NIL" 07e1 01ba | | .STRTAB 0x01ba->0x08be ; "DISABLE" 07e2 01bf | | .STRTAB 0x01bf->0x08c1 ; "BAUD_50" 07e3 01c4 | | .STRTAB 0x01c4->0x08c5 ; "BAUD_75" 07e4 01c9 | | .STRTAB 0x01c9->0x08c8 ; "BAUD_110" 07e5 01cf | | .STRTAB 0x01cf->0x08cc ; "BAUD_134_5" 07e6 01d7 | | .STRTAB 0x01d7->0x08d1 ; "BAUD_150" 07e7 01dd | | .STRTAB 0x01dd->0x08d5 ; "BAUD_200" 07e8 01e3 | | .STRTAB 0x01e3->0x08d9 ; "BAUD_300" 07e9 01e9 | | .STRTAB 0x01e9->0x08dd ; "BAUD_600" 07ea 01ef | | .STRTAB 0x01ef->0x08e1 ; "BAUD_1200" 07eb 01f6 | | .STRTAB 0x01f6->0x08e6 ; "BAUD_1800" 07ec 01fd | | .STRTAB 0x01fd->0x08ea ; "BAUD_2400" 07ed 0204 | | .STRTAB 0x0204->0x08ef ; "BAUD_4800" 07ee 020b | | .STRTAB 0x020b->0x08f3 ; "BAUD_9600" 07ef 0212 | | .STRTAB 0x0212->0x08f8 ; "BAUD_19200" 07f0 021a | | .STRTAB 0x021a->0x08fd ; "EXT_REC_CLK" 07f1 0223 | # | .STRTAB 0x0223->0x0902 ; "NIL" 07f2 0224 | $ | .STRTAB 0x0224->0x0904 ; "NONE" 07f3 0226 | & | .STRTAB 0x0226->0x0906 ; "EVEN" 07f4 0228 | ( | .STRTAB 0x0228->0x0908 ; "ODD" 07f5 0229 | ) | .STRTAB 0x0229->0x0909 ; "NIL" 07f6 022a | * | .STRTAB 0x022a->0x090b ; "CHAR_5" 07f7 022e | . | .STRTAB 0x022e->0x090e ; "CHAR_6" 07f8 0232 | 2 | .STRTAB 0x0232->0x0911 ; "CHAR_7" 07f9 0236 | 6 | .STRTAB 0x0236->0x0914 ; "CHAR_8" 07fa 023a | : | .STRTAB 0x023a->0x0917 ; "NIL" 07fb 023b | ; | .STRTAB 0x023b->0x0918 ; "NONE" 07fc 023d | = | .STRTAB 0x023d->0x091a ; "XON_XOFF" 07fd 0243 | C | .STRTAB 0x0243->0x091e ; "DTR" 07fe 0244 | D | .STRTAB 0x0244->0x0920 ; "RTS" 07ff 0245 | E | .STRTAB 0x0245->0x0921 ; "others => Unspecified" 0800 0258 | X | .STRTAB 0x0258->0x092c ; "Enable | Disable | Disconnect_On_Logoff..Detach_On_Disconnect => Boolean_Valued,Stop_Bits => Integer_Valued, others => Unspecified" 0801 02d8 | | .STRTAB 0x02d8->0x096d ; " does not exist" 0802 02e5 | | .STRTAB 0x02e5->0x0974 ; " (Line => " 0803 02ed | | .STRTAB 0x02ed->0x0979 ; ", To_Be => " 0804 02f6 | | .STRTAB 0x02f6->0x097f ; ");" 0805 02f6 | | .STRTAB 0x02f6->0x0980 ; "Illegal value: The " 0806 0307 | | .STRTAB 0x0307->0x0989 ; " could not be set for port " 0807 0320 | | .STRTAB 0x0320->0x0997 ; " because \x22" 0808 032c | , | .STRTAB 0x032c->0x099e ; "\x22 is not a valid setting." 0809 0343 | C | .STRTAB 0x0343->0x09aa ; "\x22" 080a 0342 | B | .STRTAB 0x0342->0x09ab ; "Terminal.Set_Terminal_Type" 080b 035a | Z | .STRTAB 0x035a->0x09b8 ; "Terminal.Set_" 080c 0365 | e | .STRTAB 0x0365->0x09be ; "Parity" 080d 0369 | i | .STRTAB 0x0369->0x09c1 ; "Terminal.Set_Stop_Bits" 080e 037d | } | .STRTAB 0x037d->0x09cc ; "Stop_Bits" 080f 0384 | | .STRTAB 0x0384->0x09d1 ; "Terminal.Set_Character_Size" 0810 039d | | .STRTAB 0x039d->0x09de ; "Bits_Per_Char" 0811 03a8 | | .STRTAB 0x03a8->0x09e5 ; "," 0812 03a7 | | .STRTAB 0x03a7->0x09e5 ; "Terminal.SET_" 0813 03b2 | | .STRTAB 0x03b2->0x09ec ; ", Disabled => " 0814 03be | | .STRTAB 0x03be->0x09f3 ; ", Enabled => " 0815 03c9 | | .STRTAB 0x03c9->0x09f9 ; "=" 0816 03c8 | | .STRTAB 0x03c8->0x09fa ; "(" 0817 03c7 | | .STRTAB 0x03c7->0x09fa ; ")" 0818 03c6 | | .STRTAB 0x03c6->0x09fb ; "Illegal item in line: " 0819 03da | | .STRTAB 0x03da->0x0a06 ; " " 081a 03dd | | .STRTAB 0x03dd->0x0a08 ; "Illegal format: " 081b 03eb | | .STRTAB 0x03eb->0x0a10 ; "Illegal value on line: " 081c 0400 | | .STRTAB 0x0400->0x0a1c ; " " 081d 0402 | | .STRTAB 0x0402->0x0a1e ; "Operator.Enable_Terminal (" 081e 041a | | .STRTAB 0x041a->0x0a2b ; "<PROFILE>" 081f 0421 | ! | .STRTAB 0x0421->0x0a2f ; "Operator.Disable_Terminal (" 0820 043a | : | .STRTAB 0x043a->0x0a3d ; "--" 0821 043a | : | .STRTAB 0x043a->0x0a3e ; "=>" 0822 043a | : | .STRTAB 0x043a->0x0a3f ; "The parentheses in the file " 0823 0454 | T | .STRTAB 0x0454->0x0a4d ; " do not match" 0824 045f | _ | .STRTAB 0x045f->0x0a53 ; "Terminal.Set_Parity" 0825 0470 | p | .STRTAB 0x0470->0x0a5d ; " therefore cannot be defined" 0826 048a | | .STRTAB 0x048a->0x0a6b ; "Illegal predefined value: " 0827 04a2 | | .STREND 0x04a2->0x0a78 0828 4e49 4c45 |NILE| .STRTAB_STRINGS 0a78 ; -------------------------------------------------------------------------------------- 0a78 ; Debug Table 0a78 ; -------------------------------------------------------------------------------------- 0a78 0004 0002 | | .DEBUG4 0x0004,0x0002,0x06db,0x0000,0x0001,0x0000 0a7e e002 7000 | p | .XXX[0xc] 0a80 246e 4000 |$n@ | 0a82 2470 4006 |$p@ | 0a84 4c81 a000 |L | 0a86 0000 0007 | | 0a88 d14c e000 | L | 0a8a 0000 0000 | | .BLANK 0000[0x4] 0a8e 8414 0020 | | .XXX[0x15] 0a90 0024 6e41 | $nA| 0a92 8008 5c00 | \ | 0a94 7e00 048d |~ | 0a96 c800 7d13 | } | 0a98 d000 0000 | | 0a9a 0000 0000 | | 0a9c 0400 0000 | | 0a9e 0000 0000 | | 0aa0 0200 0841 | A| 0aa2 4000 |@ | 0aa3 0000 0000 | | .BLANK 0000[0x4] 0aa7 7d15 d000 |} | .XXX[0xc] 0aa9 0000 0000 | | 0aab 0000 0400 | | 0aad 0000 0000 | | 0aaf 0000 0200 | | 0ab1 0841 4000 | A@ | 0ab3 0000 0000 | | .BLANK 0000[0x5] 0ab8 1200 0247 | G| .XXX[0x5] 0aba 0400 7d0c | } | 0abc 7c00 || | 0abd 0000 0000 | | .BLANK 0000[0x4] 0ac1 3e8c 4b00 |> K | .XXX[0x44] 0ac3 00b1 4dc0 | M | 0ac5 07d1 9160 | `| 0ac7 07d1 bbc0 | | 0ac9 000e 3e40 | >@| 0acb 0fa3 e440 | @| 0acd 0000 0000 | | 0acf 0fa4 4980 | I | 0ad1 0000 0000 | | 0ad3 0fa4 8980 | | 0ad5 002d bd00 | - | 0ad7 a000 0001 | | 0ad9 0100 90a0 | | 0adb 001c 00fa | | 0add 3fe4 0001 |? | 0adf c7c8 01f4 | | 0ae1 7c88 0000 || | 0ae3 0000 01f4 | | 0ae5 ae20 0000 | | 0ae7 0000 01f4 | | 0ae9 b620 0005 | | 0aeb b7a0 1400 | | 0aed 0000 2020 | | 0aef 1214 0003 | | 0af1 801f 4a4b | JK| 0af3 8000 0000 | | 0af5 001f 47c8 | G | 0af7 8000 0000 | | 0af9 0000 0000 | | 0afb 8000 0002 | | 0afd a722 ad20 | " | 0aff a6c0 4000 | @ | 0b01 0001 0000 | | 0b03 0000 0026 | &| 0b05 0000 0000 | | .BLANK 0000[0x5] 0b0a 000f 8000 | | .XXX[0x2] 0b0c 0000 0000 | | .BLANK 0000[0x5] 0b11 8888 8c00 | | .XXX[0xe] 0b13 fa46 9c00 | F | 0b15 0000 0000 | | 0b17 0000 0800 | | 0b19 0000 0000 | | 0b1b 0000 0400 | | 0b1d 02db d000 | | 0b1f 0000 0000 | | .BLANK 0000[0x4] 0b23 fa4a 9c00 | J | .XXX[0x14] 0b25 0000 0000 | | 0b27 0000 1000 | | 0b29 0000 0000 | | 0b2b 1316 8600 | | 0b2d 00e3 f400 | | 0b2f 0000 0000 | | 0b31 fa4c 9e00 | L | 0b33 7d28 0e00 |}( | 0b35 0278 3c00 | x< | 0b37 0000 0000 | | .BLANK 0000[0x6] 0b3d 7d28 0e00 |}( | .XXX[0x12] 0b3f 0000 0000 | | 0b41 0000 0200 | | 0b43 0000 14a6 | | 0b45 989e a8be | | 0b47 8ca4 829a | | 0b49 8b01 0000 | | 0b4b 0004 0000 | | 0b4d 0000 0098 | | 0b4f 0000 0000 | | .BLANK 0000[0x5] 0b54 003e | > | .XXX[0x1] 0b55 0000 0000 | | .BLANK 0000[0x5] 0b5a 0002 2222 | ""| .XXX[0x2e] 0b5c 3003 e964 |0 d| 0b5e 5000 0000 |P | 0b60 0000 0000 | | 0b62 2000 0000 | | 0b64 0000 0000 | | 0b66 1000 0b6f | o| 0b68 4000 0000 |@ | 0b6a 0000 0000 | | 0b6c 0003 e97c | || 0b6e 5000 0000 |P | 0b70 0000 0000 | | 0b72 6000 0000 |` | 0b74 0000 4c5a | LZ| 0b76 1800 038f | | 0b78 d000 0000 | | 0b7a 0000 0000 | | 0b7c 0001 f4a0 | | 0b7e 3800 09e0 |8 | 0b80 f003 e974 | t| 0b82 5003 e984 |P | 0b84 5001 677f |P g | 0b86 e800 0390 | | 0b88 0000 0000 | | .BLANK 0000[0x6] 0b8e 4800 01c7 |H | .XXX[0x5] 0b90 c801 f460 | `| 0b92 4000 |@ | 0b93 0000 0000 | | .BLANK 0000[0x4] 0b97 fa66 a400 | f | .XXX[0x10] 0b99 004d 0480 | M | 0b9b 1f4c f480 | L | 0b9d 1f4d 9e00 | M | 0b9f 00ae 3e00 | > | 0ba1 3e9c ef00 |> | 0ba3 0000 0000 | | 0ba5 3e9d 7f00 |> | 0ba7 0000 0000 | | .BLANK 0000[0x5] 0bac 5801 0000 |X | .XXX[0x8] 0bae 0009 1000 | | 0bb0 4000 0070 |@ p| 0bb2 0000 0120 | | 0bb4 0000 0000 | | .BLANK 0000[0xe] 0bc2 2000 0000 | | .XXX[0x5] 0bc4 0000 0000 | | 0bc6 000e | | 0bc7 0000 0000 | | .BLANK 0000[0x4] 0bcb 007d 39de | }9 | .XXX[0x19] 0bcd 0000 0000 | | 0bcf 0000 0002 | | 0bd1 0000 0014 | | 0bd3 8c98 9286 | | 0bd5 9692 9c8e | | 0bd7 8aa4 007d | }| 0bd9 3c00 0000 |< | 0bdb 0000 0000 | | 0bdd 0004 0000 | | 0bdf 0000 0000 | | 0be1 0002 0000 | | 0be3 00b0 | | 0be4 0000 0000 | | .BLANK 0000[0x5] 0be9 0012 0001 | | .XXX[0x17] 0beb 5c7c 007d |\| }| 0bed 32cc 007d |2 }| 0bef 318a 007d |1 }| 0bf1 4892 003e |H >| 0bf3 9f63 0007 | c | 0bf5 04db 4007 | @ | 0bf7 d3f4 6007 | ` | 0bf9 d41e c000 | | 0bfb 48e0 c00c |H | 0bfd 9959 4000 | Y@ | 0bff 0000 | |