|
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]