|
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: 2048 (0x800) Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0694fc
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0288 | | .CONST 0x0288 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 003a | : | .CONST 0x003a ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0018 | | .CONST 0x0018 ; Number of locals 000b INIT_0008: 000b 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated 000d 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated 000f 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated 0011 00c4 | | Action Make_Default 0012 00c4 | | Action Make_Default 0013 00c4 | | Action Make_Default 0014 00c4 | | Action Make_Default 0015 00c4 | | Action Make_Default 0016 00c4 | | Action Make_Default 0017 00c4 | | Action Make_Default 0018 00c4 | | Action Make_Default 0019 00c4 | | Action Make_Default 001a 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated 001c c211 | | Store 0x1,0x11 001d 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated 001f c212 | | Store 0x1,0x12 0020 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated 0022 c213 | | Store 0x1,0x13 0023 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 0025 c218 | | Store 0x1,0x18 0026 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated 0028 c215 | | Store 0x1,0x15 0029 00bf | | Action Accept_Activation 002a 1d0d | | Execute_Immediate Reference_Lex_1,0xd 002b 00c7 | | Action Elaborate_Subprogram 002c 1d0e | | Execute_Immediate Reference_Lex_1,0xe 002d 00c7 | | Action Elaborate_Subprogram 002e 1d0f | | Execute_Immediate Reference_Lex_1,0xf 002f 00c7 | | Action Elaborate_Subprogram 0030 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0031 00c7 | | Action Elaborate_Subprogram 0032 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0033 00c7 | | Action Elaborate_Subprogram 0034 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0035 00c7 | | Action Elaborate_Subprogram 0036 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0037 00c7 | | Action Elaborate_Subprogram 0038 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0039 00c7 | | Action Elaborate_Subprogram 003a BODY_0008: 003a 00bc | | Action Signal_Activated 003b 00bb | | Action Signal_Completion 003c 0000 0000 | | .BLANK 0000[0x4] 0040 ; -------------------------------------------------------------------------------------- 0040 ; SUBPROGRAM 0040 ; -------------------------------------------------------------------------------------- 0040 0043 | C | .CONST 0x0043 ; Address of begin 0041 0004 | | .CONST 0x0004 ; Address of exception handler 0042 0001 | | .CONST 0x0001 ; Number of locals 0043 BODY_0040: 0043 INIT_0040: 0043 00ea | | Load_Encached Null_String_Cache 0044 00ea | | Load_Encached Null_String_Cache 0045 0092 0232 | 2| Action Push_String_Extended,0x232 ; "File to insert:" 0047 e001 | | Load 0x0,0x1 0048 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0049 0092 0233 | 3| Action Push_String_Extended,0x233 ; "Insert File" 004b 4af8 |J | Short_Literal 0x2f8 004c e002 | | Load 0x0,0x2 004d 1819 | | Execute Package,Field_Execute,Field_Number 0x19 004e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 004f 0000 | | .XXX[0x1] 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 0053 | S | .CONST 0x0053 ; Address of begin 0051 0004 | | .CONST 0x0004 ; Address of exception handler 0052 0001 | | .CONST 0x0001 ; Number of locals 0053 BODY_0050: 0053 INIT_0050: 0053 00da | | Load_Top At_Offset_2 0054 e003 | | Load 0x0,0x3 0055 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0056 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0057 0000 | | .XXX[0x1] 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 007b | { | .CONST 0x007b ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 0007 | | .CONST 0x0007 ; Number of locals 005b INIT_0058: 005b e004 | | Load 0x0,0x4 005c 1b19 | | Execute Package,Field_Read,Field_Number 0x19 005d 0322 | " | Declare_Variable Record 005e e005 | | Load 0x0,0x5 005f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0060 e004 | | Load 0x0,0x4 0061 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0062 00d9 | | Load_Top At_Offset_1 0063 017d | } | Execute Record,Structure_Write 0064 00d8 | | Load_Top At_Offset_0 0065 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0066 e004 | | Load 0x0,0x4 0067 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0068 e006 | | Load 0x0,0x6 0069 1b12 | | Execute Package,Field_Read,Field_Number 0x12 006a 011e | | Execute Any,Convert 006b 00d8 | | Load_Top At_Offset_0 006c e006 | | Load 0x0,0x6 006d 1b36 | 6 | Execute Package,Field_Read,Field_Number 0x36 006e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 006f 00e1 | | Load_Encached Boolean_Cache 0070 03f1 | | Declare_Variable Discrete,With_Value 0071 00d9 | | Load_Top At_Offset_1 0072 e006 | | Load 0x0,0x6 0073 1b36 | 6 | Execute Package,Field_Read,Field_Number 0x36 0074 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0075 00e1 | | Load_Encached Boolean_Cache 0076 03f1 | | Declare_Variable Discrete,With_Value 0077 029f 01cb | | Declare_Subprogram INIT_01c8,For_Call 0079 029f 01e3 | | Declare_Subprogram INIT_01e0,For_Call 007b BODY_0058: 007b 00ea | | Load_Encached Null_String_Cache 007c 00ea | | Load_Encached Null_String_Cache 007d 00ea | | Load_Encached Null_String_Cache 007e 00ea | | Load_Encached Null_String_Cache 007f 00ea | | Load_Encached Null_String_Cache 0080 8406 | | Call 0x2,0x6 0081 e405 | | Load 0x2,0x5 0082 8407 | | Call 0x2,0x7 0083 e404 | | Load 0x2,0x4 0084 8407 | | Call 0x2,0x7 0085 4b01 |K | Short_Literal 0x301 0086 4845 |HE | Short_Literal 0x45 0087 e002 | | Load 0x0,0x2 0088 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0089 4501 |E | Exit_Suprogram New_Top_Offset 0x1 008a 0000 0000 | | .BLANK 0000[0x6] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0093 | | .CONST 0x0093 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0001 | | .CONST 0x0001 ; Number of locals 0093 BODY_0090: 0093 INIT_0090: 0093 00da | | Load_Top At_Offset_2 0094 e007 | | Load 0x0,0x7 0095 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0096 180d | | Execute Package,Field_Execute,Field_Number 0xd 0097 00db | | Load_Top At_Offset_3 0098 e007 | | Load 0x0,0x7 0099 1b19 | | Execute Package,Field_Read,Field_Number 0x19 009a 180e | | Execute Package,Field_Execute,Field_Number 0xe 009b 00db | | Load_Top At_Offset_3 009c 6809 |h | Jump_Zero 0xa6 009d e5fd | | Load 0x2,-0x3 009e 00d8 | | Load_Top At_Offset_0 009f 00e4 | | Load_Encached Positive_Cache 00a0 0260 | ` | Execute Discrete,In_Type 00a1 7001 |p | Jump_Nonzero 0xa3 00a2 0801 | | Execute_Immediate Raise,0x1 00a3 e007 | | Load 0x0,0x7 00a4 1b19 | | Execute Package,Field_Read,Field_Number 0x19 00a5 180f | | Execute Package,Field_Execute,Field_Number 0xf 00a6 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00a7 0000 | | .XXX[0x1] 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00ab | | .CONST 0x00ab ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0001 | | .CONST 0x0001 ; Number of locals 00ab BODY_00a8: 00ab INIT_00a8: 00ab e001 | | Load 0x0,0x1 00ac 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00ad 4610 |F | Jump_Case 0x11 00ae 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x0 00af 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x1 00b0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x2 00b1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x3 00b2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x4 00b3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x5 00b4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x6 00b5 7809 |x | Jump 0xbf ; case 0x7 00b6 7808 |x | Jump 0xbf ; case 0x8 00b7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x9 00b8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0xa 00b9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0xb 00ba 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0xc 00bb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0xd 00bc 7802 |x | Jump 0xbf ; case 0xe 00bd 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0xf 00be 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x10 00bf 4801 |H | Short_Literal 0x1 00c0 4800 |H | Short_Literal 0x0 00c1 0092 0234 | 4| Action Push_String_Extended,0x234 ; "<IMAGE>" 00c3 e003 | | Load 0x0,0x3 00c4 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00c5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00c6 0000 0000 | | .XXX[0x2] 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00d3 | | .CONST 0x00d3 ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0005 | | .CONST 0x0005 ; Number of locals 00cb INIT_00c8: 00cb 00e1 | | Load_Encached Boolean_Cache 00cc 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00cd 00e1 | | Load_Encached Boolean_Cache 00ce 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00cf 00e1 | | Load_Encached Boolean_Cache 00d0 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 00d1 029f 01f3 | | Declare_Subprogram INIT_01f0,For_Call 00d3 BODY_00c8: 00d3 8405 | | Call 0x2,0x5 00d4 00ea | | Load_Encached Null_String_Cache 00d5 00ea | | Load_Encached Null_String_Cache 00d6 00ea | | Load_Encached Null_String_Cache 00d7 00ea | | Load_Encached Null_String_Cache 00d8 00ea | | Load_Encached Null_String_Cache 00d9 e403 | | Load 0x2,0x3 00da 00e1 | | Load_Encached Boolean_Cache 00db 011c | | Execute Any,Convert_Unchecked 00dc 1c01 | | Execute_Immediate Run_Utility,0x1 00dd e402 | | Load 0x2,0x2 00de 00e1 | | Load_Encached Boolean_Cache 00df 011c | | Execute Any,Convert_Unchecked 00e0 1c01 | | Execute_Immediate Run_Utility,0x1 00e1 e404 | | Load 0x2,0x4 00e2 00e1 | | Load_Encached Boolean_Cache 00e3 011c | | Execute Any,Convert_Unchecked 00e4 1c01 | | Execute_Immediate Run_Utility,0x1 00e5 4af4 |J | Short_Literal 0x2f4 00e6 4846 |HF | Short_Literal 0x46 00e7 e002 | | Load 0x0,0x2 00e8 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00e9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00ea 0000 0000 | | .BLANK 0000[0x6] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 0105 | | .CONST 0x0105 ; Address of begin 00f1 0186 | | .CONST 0x0186 ; Address of exception handler 00f2 0007 | | .CONST 0x0007 ; Number of locals 00f3 INIT_00f0: 00f3 4801 |H | Short_Literal 0x1 00f4 e5fe | | Load 0x2,-0x2 00f5 e5ff | | Load 0x2,-0x1 00f6 01cf | | Execute Vector,Slice_Read 00f7 0335 | 5 | Declare_Variable Array,Duplicate 00f8 00cd | | Action Spare6_Action 00f9 4801 |H | Short_Literal 0x1 00fa e5fc | | Load 0x2,-0x4 00fb e5fd | | Load 0x2,-0x3 00fc 01cf | | Execute Vector,Slice_Read 00fd 0335 | 5 | Declare_Variable Array,Duplicate 00fe 00cd | | Action Spare6_Action 00ff 00e1 | | Load_Encached Boolean_Cache 0100 00e1 | | Load_Encached Boolean_Cache 0101 00e1 | | Load_Encached Boolean_Cache 0102 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0103 029f 0203 | | Declare_Subprogram INIT_0200,For_Call 0105 BODY_00f0: 0105 e5fe | | Load 0x2,-0x2 0106 0c01 | | Execute_Immediate Greater_Equal,0x1 0107 6879 |hy | Jump_Zero 0x181 0108 e5f4 | | Load 0x2,-0xc 0109 6801 |h | Jump_Zero 0x10b 010a 8407 | | Call 0x2,0x7 010b e5f5 | | Load 0x2,-0xb 010c 0b01 | | Execute_Immediate Case_Compare,0x1 010d 703f |p? | Jump_Nonzero 0x14d 010e 0b02 | | Execute_Immediate Case_Compare,0x2 010f 7005 |p | Jump_Nonzero 0x115 0110 0b03 | | Execute_Immediate Case_Compare,0x3 0111 7016 |p | Jump_Nonzero 0x128 0112 0f04 | | Execute_Immediate Equal,0x4 0113 7027 |p' | Jump_Nonzero 0x13b 0114 7846 |xF | Jump 0x15b 0115 00d1 | | Pop_Control Pop_Count_1 0116 e5f6 | | Load 0x2,-0xa 0117 6808 |h | Jump_Zero 0x120 0118 e5f9 | | Load 0x2,-0x7 0119 4800 |H | Short_Literal 0x0 011a e403 | | Load 0x2,0x3 011b e402 | | Load 0x2,0x2 011c e007 | | Load 0x0,0x7 011d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 011e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 011f 783b |x; | Jump 0x15b 0120 e5f9 | | Load 0x2,-0x7 0121 4800 |H | Short_Literal 0x0 0122 e403 | | Load 0x2,0x3 0123 e402 | | Load 0x2,0x2 0124 e007 | | Load 0x0,0x7 0125 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0126 180f | | Execute Package,Field_Execute,Field_Number 0xf 0127 7833 |x3 | Jump 0x15b 0128 00d1 | | Pop_Control Pop_Count_1 0129 e5f6 | | Load 0x2,-0xa 012a 6808 |h | Jump_Zero 0x133 012b e5f9 | | Load 0x2,-0x7 012c 4801 |H | Short_Literal 0x1 012d e403 | | Load 0x2,0x3 012e e402 | | Load 0x2,0x2 012f e007 | | Load 0x0,0x7 0130 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0131 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0132 7828 |x( | Jump 0x15b 0133 e5f9 | | Load 0x2,-0x7 0134 4801 |H | Short_Literal 0x1 0135 e403 | | Load 0x2,0x3 0136 e402 | | Load 0x2,0x2 0137 e007 | | Load 0x0,0x7 0138 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0139 180f | | Execute Package,Field_Execute,Field_Number 0xf 013a 7820 |x | Jump 0x15b 013b e5f6 | | Load 0x2,-0xa 013c 6808 |h | Jump_Zero 0x145 013d e5f9 | | Load 0x2,-0x7 013e 4fff |O | Short_Literal -0x1 013f e403 | | Load 0x2,0x3 0140 e402 | | Load 0x2,0x2 0141 e007 | | Load 0x0,0x7 0142 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0143 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0144 7816 |x | Jump 0x15b 0145 e5f9 | | Load 0x2,-0x7 0146 4fff |O | Short_Literal -0x1 0147 e403 | | Load 0x2,0x3 0148 e402 | | Load 0x2,0x2 0149 e007 | | Load 0x0,0x7 014a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 014b 180f | | Execute Package,Field_Execute,Field_Number 0xf 014c 780e |x | Jump 0x15b 014d 00d1 | | Pop_Control Pop_Count_1 014e e5f6 | | Load 0x2,-0xa 014f 6806 |h | Jump_Zero 0x156 0150 e5f9 | | Load 0x2,-0x7 0151 e402 | | Load 0x2,0x2 0152 e007 | | Load 0x0,0x7 0153 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0154 180e | | Execute Package,Field_Execute,Field_Number 0xe 0155 7805 |x | Jump 0x15b 0156 e5f9 | | Load 0x2,-0x7 0157 e402 | | Load 0x2,0x2 0158 e007 | | Load 0x0,0x7 0159 1b0e | | Execute Package,Field_Read,Field_Number 0xe 015a 180d | | Execute Package,Field_Execute,Field_Number 0xd 015b 00d9 | | Load_Top At_Offset_1 015c 6823 |h# | Jump_Zero 0x180 015d e5fb | | Load 0x2,-0x5 015e 0f00 | | Execute_Immediate Equal,0x0 015f e404 | | Load 0x2,0x4 0160 027e | ~ | Execute Discrete,Not_Equal 0161 680d |h | Jump_Zero 0x16f 0162 0092 0235 | 5| Action Push_String_Extended,0x235 ; "<PROFILE>" 0164 0092 0236 | 6| Action Push_String_Extended,0x236 ; "<SESSION>" 0166 0092 0237 | 7| Action Push_String_Extended,0x237 ; "Search_Ignore_Case := " 0168 e404 | | Load 0x2,0x4 0169 00e1 | | Load_Encached Boolean_Cache 016a 011c | | Execute Any,Convert_Unchecked 016b 1c01 | | Execute_Immediate Run_Utility,0x1 016c 01cc | | Execute Vector,Catenate 016d e008 | | Load 0x0,0x8 016e 1815 | | Execute Package,Field_Execute,Field_Number 0x15 016f e5fa | | Load 0x2,-0x6 0170 00db | | Load_Top At_Offset_3 0171 027e | ~ | Execute Discrete,Not_Equal 0172 680d |h | Jump_Zero 0x180 0173 0092 0235 | 5| Action Push_String_Extended,0x235 ; "<PROFILE>" 0175 0092 0236 | 6| Action Push_String_Extended,0x236 ; "<SESSION>" 0177 0092 0238 | 8| Action Push_String_Extended,0x238 ; "Search_Preserve_Case := " 0179 e405 | | Load 0x2,0x5 017a 00e1 | | Load_Encached Boolean_Cache 017b 011c | | Execute Any,Convert_Unchecked 017c 1c01 | | Execute_Immediate Run_Utility,0x1 017d 01cc | | Execute Vector,Catenate 017e e008 | | Load 0x0,0x8 017f 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0180 450d |E | Exit_Suprogram New_Top_Offset 0xd 0181 0092 0239 | 9| Action Push_String_Extended,0x239 ; "\x22\x22 not found." 0183 e009 | | Load 0x0,0x9 0184 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 0185 450d |E | Exit_Suprogram New_Top_Offset 0xd 0186 TRAP_00f0: 0186 0007 | | Action Break_Optional 0187 450d |E | Exit_Suprogram New_Top_Offset 0xd 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 0195 | | .CONST 0x0195 ; Address of begin 0189 0004 | | .CONST 0x0004 ; Address of exception handler 018a 0004 | | .CONST 0x0004 ; Number of locals 018b INIT_0188: 018b e00a | | Load 0x0,0xa 018c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 018d 02c7 | | Declare_Variable Any 018e 00d8 | | Load_Top At_Offset_0 018f 1c00 | | Execute_Immediate Run_Utility,0x0 0190 e00a | | Load 0x0,0xa 0191 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0192 0322 | " | Declare_Variable Record 0193 00d8 | | Load_Top At_Offset_0 0194 0322 | " | Declare_Variable Record 0195 BODY_0188: 0195 e00a | | Load 0x0,0xa 0196 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0197 180d | | Execute Package,Field_Execute,Field_Number 0xd 0198 c402 | | Store 0x2,0x2 0199 00da | | Load_Top At_Offset_2 019a e00a | | Load 0x0,0xa 019b 1b18 | | Execute Package,Field_Read,Field_Number 0x18 019c 1812 | | Execute Package,Field_Execute,Field_Number 0x12 019d 00da | | Load_Top At_Offset_2 019e 017d | } | Execute Record,Structure_Write 019f 00da | | Load_Top At_Offset_2 01a0 e00a | | Load 0x0,0xa 01a1 1b18 | | Execute Package,Field_Read,Field_Number 0x18 01a2 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01a3 00d9 | | Load_Top At_Offset_1 01a4 017d | } | Execute Record,Structure_Write 01a5 0092 023a | :| Action Push_String_Extended,0x23a ; "Line" 01a7 00d9 | | Load_Top At_Offset_1 01a8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01a9 00e0 | | Load_Encached Standard_Cache 01aa 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01ab 01cc | | Execute Vector,Catenate 01ac 0092 023b | ;| Action Push_String_Extended,0x23b ; ", Column" 01ae 01cc | | Execute Vector,Catenate 01af 00d9 | | Load_Top At_Offset_1 01b0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01b1 00e0 | | Load_Encached Standard_Cache 01b2 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01b3 01cc | | Execute Vector,Catenate 01b4 0092 023c | <| Action Push_String_Extended,0x23c ; " of " 01b6 01cc | | Execute Vector,Catenate 01b7 00da | | Load_Top At_Offset_2 01b8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01b9 00e0 | | Load_Encached Standard_Cache 01ba 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01bb 01cc | | Execute Vector,Catenate 01bc 0092 023d | =| Action Push_String_Extended,0x23d ; " lines." 01be 01cc | | Execute Vector,Catenate 01bf e009 | | Load 0x0,0x9 01c0 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 01c1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01c2 0000 0000 | | .BLANK 0000[0x6] 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; SUBPROGRAM 01c8 ; -------------------------------------------------------------------------------------- 01c8 01cf | | .CONST 0x01cf ; Address of begin 01c9 01da | | .CONST 0x01da ; Address of exception handler 01ca 0002 | | .CONST 0x0002 ; Number of locals 01cb INIT_01c8: 01cb e403 | | Load 0x2,0x3 01cc e006 | | Load 0x0,0x6 01cd 1b36 | 6 | Execute Package,Field_Read,Field_Number 0x36 01ce 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01cf BODY_01c8: 01cf 00d8 | | Load_Top At_Offset_0 01d0 7005 |p | Jump_Nonzero 0x1d6 01d1 e00b | | Load 0x0,0xb 01d2 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01d3 00e0 | | Load_Encached Standard_Cache 01d4 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01d5 00ca | | Action Exit_Nullary_Function 01d6 00d8 | | Load_Top At_Offset_0 01d7 00e0 | | Load_Encached Standard_Cache 01d8 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01d9 00ca | | Action Exit_Nullary_Function 01da TRAP_01c8: 01da 0007 | | Action Break_Optional 01db 0092 023e | >| Action Push_String_Extended,0x23e ; "72" 01dd 00ca | | Action Exit_Nullary_Function 01de 0000 0000 | | .XXX[0x2] 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 00da | | Load_Top At_Offset_2 01e4 6803 |h | Jump_Zero 0x1e8 01e5 0092 023f | ?| Action Push_String_Extended,0x23f ; "T" 01e7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01e8 0092 0240 | @| Action Push_String_Extended,0x240 ; "F" 01ea 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01eb 0000 0000 | | .BLANK 0000[0x5] 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 01f3 | | .CONST 0x01f3 ; Address of begin 01f1 01fb | | .CONST 0x01fb ; Address of exception handler 01f2 0001 | | .CONST 0x0001 ; Number of locals 01f3 BODY_01f0: 01f3 INIT_01f0: 01f3 e00b | | Load 0x0,0xb 01f4 1819 | | Execute Package,Field_Execute,Field_Number 0x19 01f5 0f00 | | Execute_Immediate Equal,0x0 01f6 a402 | | Store_Unchecked 0x2,0x2 01f7 e00b | | Load 0x0,0xb 01f8 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01f9 a403 | | Store_Unchecked 0x2,0x3 01fa 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01fb TRAP_01f0: 01fb 0007 | | Action Break_Optional 01fc 4800 |H | Short_Literal 0x0 01fd a404 | | Store_Unchecked 0x2,0x4 01fe 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01ff 0000 | | .XXX[0x1] 0200 ; -------------------------------------------------------------------------------------- 0200 ; SUBPROGRAM 0200 ; -------------------------------------------------------------------------------------- 0200 0203 | | .CONST 0x0203 ; Address of begin 0201 022e | . | .CONST 0x022e ; Address of exception handler 0202 0001 | | .CONST 0x0001 ; Number of locals 0203 BODY_0200: 0203 INIT_0200: 0203 e00b | | Load 0x0,0xb 0204 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0205 a404 | | Store_Unchecked 0x2,0x4 0206 e404 | | Load 0x2,0x4 0207 e5fb | | Load 0x2,-0x5 0208 0f00 | | Execute_Immediate Equal,0x0 0209 027e | ~ | Execute Discrete,Not_Equal 020a 680e |h | Jump_Zero 0x219 020b 0092 0235 | 5| Action Push_String_Extended,0x235 ; "<PROFILE>" 020d 0092 0236 | 6| Action Push_String_Extended,0x236 ; "<SESSION>" 020f 0092 0237 | 7| Action Push_String_Extended,0x237 ; "Search_Ignore_Case := " 0211 e5fb | | Load 0x2,-0x5 0212 0f00 | | Execute_Immediate Equal,0x0 0213 00e1 | | Load_Encached Boolean_Cache 0214 011c | | Execute Any,Convert_Unchecked 0215 1c01 | | Execute_Immediate Run_Utility,0x1 0216 01cc | | Execute Vector,Catenate 0217 e008 | | Load 0x0,0x8 0218 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0219 e00b | | Load 0x0,0xb 021a 181c | | Execute Package,Field_Execute,Field_Number 0x1c 021b a405 | | Store_Unchecked 0x2,0x5 021c e405 | | Load 0x2,0x5 021d e5fa | | Load 0x2,-0x6 021e 027e | ~ | Execute Discrete,Not_Equal 021f 680d |h | Jump_Zero 0x22d 0220 0092 0235 | 5| Action Push_String_Extended,0x235 ; "<PROFILE>" 0222 0092 0236 | 6| Action Push_String_Extended,0x236 ; "<SESSION>" 0224 0092 0238 | 8| Action Push_String_Extended,0x238 ; "Search_Preserve_Case := " 0226 e5fa | | Load 0x2,-0x6 0227 00e1 | | Load_Encached Boolean_Cache 0228 011c | | Execute Any,Convert_Unchecked 0229 1c01 | | Execute_Immediate Run_Utility,0x1 022a 01cc | | Execute Vector,Catenate 022b e008 | | Load 0x0,0x8 022c 1815 | | Execute Package,Field_Execute,Field_Number 0x15 022d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 022e TRAP_0200: 022e 0007 | | Action Break_Optional 022f 4800 |H | Short_Literal 0x0 0230 a406 | | Store_Unchecked 0x2,0x6 0231 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0232 ; -------------------------------------------------------------------------------------- 0232 ; STRING TABLE 0232 ; -------------------------------------------------------------------------------------- 0232 0020 | | .STRTAB 0x0020->0x0242 ; "File to insert:" 0233 002d | - | .STRTAB 0x002d->0x0249 ; "Insert File" 0234 0036 | 6 | .STRTAB 0x0036->0x024f ; "<IMAGE>" 0235 003b | ; | .STRTAB 0x003b->0x0252 ; "<PROFILE>" 0236 0042 | B | .STRTAB 0x0042->0x0257 ; "<SESSION>" 0237 0049 | I | .STRTAB 0x0049->0x025b ; "Search_Ignore_Case := " 0238 005d | ] | .STRTAB 0x005d->0x0266 ; "Search_Preserve_Case := " 0239 0073 | s | .STRTAB 0x0073->0x0272 ; "\x22\x22 not found." 023a 007e | ~ | .STRTAB 0x007e->0x0279 ; "Line" 023b 0080 | | .STRTAB 0x0080->0x027b ; ", Column" 023c 0086 | | .STRTAB 0x0086->0x027f ; " of " 023d 0088 | | .STRTAB 0x0088->0x0281 ; " lines." 023e 008d | | .STRTAB 0x008d->0x0284 ; "72" 023f 008d | | .STRTAB 0x008d->0x0285 ; "T" 0240 008c | | .STRTAB 0x008c->0x0286 ; "F" 0241 008b | | .STREND 0x008b->0x0286 0242 4669 6c65 |File| .STRTAB_STRINGS 0287 0000 | | .XXX[0x1] 0288 ; -------------------------------------------------------------------------------------- 0288 ; Debug Table 0288 ; -------------------------------------------------------------------------------------- 0288 0004 0012 | | .DEBUG4 0x0004,0x0012,0x7975,0x0000,0x0001,0x0000 028e 0000 0000 | | .BLANK 0000[0x172]