|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0a7cf5
└─⟦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 0248 | H | .CONST 0x0248 ; 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 0073 | s | .CONST 0x0073 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0023 | # | .CONST 0x0023 ; Number of locals
000b INIT_0008:
000b 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated
000d 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated
000f 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated
0011 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated
0013 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated
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 00c4 | | Action Make_Default
001b 00c4 | | Action Make_Default
001c 00c4 | | Action Make_Default
001d 00c4 | | Action Make_Default
001e 00c4 | | Action Make_Default
001f 00c4 | | Action Make_Default
0020 00c4 | | Action Make_Default
0021 00c4 | | Action Make_Default
0022 00c4 | | Action Make_Default
0023 00c4 | | Action Make_Default
0024 00c4 | | Action Make_Default
0025 00c4 | | Action Make_Default
0026 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated
0028 c221 | ! | Store 0x1,0x21
0029 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated
002b c222 | " | Store 0x1,0x22
002c 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated
002e c212 | | Store 0x1,0x12
002f 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated
0031 c213 | | Store 0x1,0x13
0032 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated
0034 c220 | | Store 0x1,0x20
0035 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated
0037 c214 | | Store 0x1,0x14
0038 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated
003a c215 | | Store 0x1,0x15
003b 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated
003d c21a | | Store 0x1,0x1a
003e 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated
0040 c21b | | Store 0x1,0x1b
0041 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated
0043 c21f | | Store 0x1,0x1f
0044 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated
0046 c216 | | Store 0x1,0x16
0047 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated
0049 c217 | | Store 0x1,0x17
004a 00bf | | Action Accept_Activation
004b e001 | | Load 0x0,0x1
004c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
004d 02c7 | | Declare_Variable Any
004e e001 | | Load 0x0,0x1
004f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0050 a223 | # | Store_Unchecked 0x1,0x23
0051 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0052 00c7 | | Action Elaborate_Subprogram
0053 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0054 00c7 | | Action Elaborate_Subprogram
0055 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0056 00c7 | | Action Elaborate_Subprogram
0057 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
0058 00c7 | | Action Elaborate_Subprogram
0059 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
005a 00c7 | | Action Elaborate_Subprogram
005b 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
005c 00c7 | | Action Elaborate_Subprogram
005d 1d16 | | Execute_Immediate Reference_Lex_1,0x16
005e 00c7 | | Action Elaborate_Subprogram
005f 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0060 00c7 | | Action Elaborate_Subprogram
0061 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0062 00c7 | | Action Elaborate_Subprogram
0063 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0064 00c7 | | Action Elaborate_Subprogram
0065 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0066 00c7 | | Action Elaborate_Subprogram
0067 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0068 00c7 | | Action Elaborate_Subprogram
0069 1d20 | | Execute_Immediate Reference_Lex_1,0x20
006a 00c7 | | Action Elaborate_Subprogram
006b 1d14 | | Execute_Immediate Reference_Lex_1,0x14
006c 00c7 | | Action Elaborate_Subprogram
006d 1d15 | | Execute_Immediate Reference_Lex_1,0x15
006e 00c7 | | Action Elaborate_Subprogram
006f 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0070 00c7 | | Action Elaborate_Subprogram
0071 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0072 00c7 | | Action Elaborate_Subprogram
0073 BODY_0008:
0073 00bc | | Action Signal_Activated
0074 00bb | | Action Signal_Completion
0075 0000 0000 | | .XXX[0x3]
0077 0000 | |
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b | { | .CONST 0x007b ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0001 | | .CONST 0x0001 ; Number of locals
007b BODY_0078:
007b INIT_0078:
007b 00da | | Load_Top At_Offset_2
007c e002 | | Load 0x0,0x2
007d 181a | | Execute Package,Field_Execute,Field_Number 0x1a
007e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
007f 0000 | | .XXX[0x1]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083 | | .CONST 0x0083 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0001 | | .CONST 0x0001 ; Number of locals
0083 BODY_0080:
0083 INIT_0080:
0083 e001 | | Load 0x0,0x1
0084 180e | | Execute Package,Field_Execute,Field_Number 0xe
0085 e002 | | Load 0x0,0x2
0086 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0087 e002 | | Load 0x0,0x2
0088 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0089 4501 |E | Exit_Suprogram New_Top_Offset 0x1
008a 0000 0000 | | .BLANK 0000[0x6]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 009a | | .CONST 0x009a ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0003 | | .CONST 0x0003 ; Number of locals
0093 INIT_0090:
0093 e003 | | Load 0x0,0x3
0094 1b4b | K | Execute Package,Field_Read,Field_Number 0x4b
0095 02c7 | | Declare_Variable Any
0096 00d8 | | Load_Top At_Offset_0
0097 1c00 | | Execute_Immediate Run_Utility,0x0
0098 029f 01f3 | | Declare_Subprogram INIT_01f0,For_Call
009a BODY_0090:
009a 00d9 | | Load_Top At_Offset_1
009b 0120 | | Execute Any,Is_Value
009c 6803 |h | Jump_Zero 0xa0
009d e003 | | Load 0x0,0x3
009e 1b4b | K | Execute Package,Field_Read,Field_Number 0x4b
009f 7801 |x | Jump 0xa1
00a0 00d9 | | Load_Top At_Offset_1
00a1 e003 | | Load 0x0,0x3
00a2 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00a3 e003 | | Load 0x0,0x3
00a4 184c | L | Execute Package,Field_Execute,Field_Number 0x4c
00a5 c402 | | Store 0x2,0x2
00a6 00cf | | Action Mark_Auxiliary
00a7 7806 |x | Jump 0xae
00a8 8403 | | Call 0x2,0x3
00a9 00da | | Load_Top At_Offset_2
00aa e003 | | Load 0x0,0x3
00ab 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00ac c402 | | Store 0x2,0x2
00ad 00c9 | | Action Pop_Auxiliary_Loop
00ae 00da | | Load_Top At_Offset_2
00af e003 | | Load 0x0,0x3
00b0 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
00b1 6ff6 |o | Jump_Zero 0xa8
00b2 00ce | | Action Pop_Auxiliary
00b3 4800 |H | Short_Literal 0x0
00b4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00b5 0000 0000 | | .XXX[0x3]
00b7 0000 | |
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00d3 | | .CONST 0x00d3 ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0002 | | .CONST 0x0002 ; Number of locals
00bb INIT_00b8:
00bb e001 | | Load 0x0,0x1
00bc 180e | | Execute Package,Field_Execute,Field_Number 0xe
00bd e001 | | Load 0x0,0x1
00be 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
00bf e001 | | Load 0x0,0x1
00c0 180e | | Execute Package,Field_Execute,Field_Number 0xe
00c1 e001 | | Load 0x0,0x1
00c2 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
00c3 e001 | | Load 0x0,0x1
00c4 180e | | Execute Package,Field_Execute,Field_Number 0xe
00c5 e001 | | Load 0x0,0x1
00c6 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
00c7 e001 | | Load 0x0,0x1
00c8 180e | | Execute Package,Field_Execute,Field_Number 0xe
00c9 e001 | | Load 0x0,0x1
00ca 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
00cb e001 | | Load 0x0,0x1
00cc 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
00cd 4801 |H | Short_Literal 0x1
00ce e001 | | Load 0x0,0x1
00cf 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
00d0 e001 | | Load 0x0,0x1
00d1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00d2 011e | | Execute Any,Convert
00d3 BODY_00b8:
00d3 e001 | | Load 0x0,0x1
00d4 180e | | Execute Package,Field_Execute,Field_Number 0xe
00d5 c223 | # | Store 0x1,0x23
00d6 00d8 | | Load_Top At_Offset_0
00d7 e001 | | Load 0x0,0x1
00d8 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00d9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00da 0000 0000 | | .BLANK 0000[0x6]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3 | | .CONST 0x00e3 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0001 | | .CONST 0x0001 ; Number of locals
00e3 BODY_00e0:
00e3 INIT_00e0:
00e3 e223 | # | Load 0x1,0x23
00e4 e001 | | Load 0x0,0x1
00e5 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00e6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00e7 0000 | | .XXX[0x1]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb | | .CONST 0x00eb ; Address of begin
00e9 00f7 | | .CONST 0x00f7 ; Address of exception handler
00ea 0001 | | .CONST 0x0001 ; Number of locals
00eb BODY_00e8:
00eb INIT_00e8:
00eb 4801 |H | Short_Literal 0x1
00ec 4806 |H | Short_Literal 0x6
00ed 00e9 | | Load_Encached String_Cache
00ee 0334 | 4 | Declare_Variable Array,With_Constraint
00ef 500c |P | Indirect_Literal Any,0xfc,{0x5443502f, 0x49502020}
00f0 e004 | | Load 0x0,0x4
00f1 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00f2 e004 | | Load 0x0,0x4
00f3 180e | | Execute Package,Field_Execute,Field_Number 0xe
00f4 e005 | | Load 0x0,0x5
00f5 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00f6 00ca | | Action Exit_Nullary_Function
00f7 TRAP_00e8:
00f7 0007 | | Action Break_Optional
00f8 00ea | | Load_Encached Null_String_Cache
00f9 00ca | | Action Exit_Nullary_Function
00fa 0000 0000 | | .XXX[0x2]
00fc 5443 502f |TCP/| .LITERAL {0x5443502f, 0x49502020}
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103 | | .CONST 0x0103 ; Address of begin
0101 010d | | .CONST 0x010d ; Address of exception handler
0102 0001 | | .CONST 0x0001 ; Number of locals
0103 BODY_0100:
0103 INIT_0100:
0103 4801 |H | Short_Literal 0x1
0104 4806 |H | Short_Literal 0x6
0105 00e9 | | Load_Encached String_Cache
0106 0334 | 4 | Declare_Variable Array,With_Constraint
0107 5008 |P | Indirect_Literal Any,0x110,{0x5443502f, 0x49502020}
0108 e004 | | Load 0x0,0x4
0109 1817 | | Execute Package,Field_Execute,Field_Number 0x17
010a e006 | | Load 0x0,0x6
010b 1814 | | Execute Package,Field_Execute,Field_Number 0x14
010c 00ca | | Action Exit_Nullary_Function
010d TRAP_0100:
010d 0007 | | Action Break_Optional
010e 00ea | | Load_Encached Null_String_Cache
010f 00ca | | Action Exit_Nullary_Function
0110 5443 502f |TCP/| .LITERAL {0x5443502f, 0x49502020}
0114 0000 0000 | | .BLANK 0000[0x4]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b | | .CONST 0x011b ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0001 | | .CONST 0x0001 ; Number of locals
011b BODY_0118:
011b INIT_0118:
011b e001 | | Load 0x0,0x1
011c 180e | | Execute Package,Field_Execute,Field_Number 0xe
011d 4800 |H | Short_Literal 0x0
011e e5ff | | Load 0x2,-0x1
011f e002 | | Load 0x0,0x2
0120 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0121 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0122 0000 0000 | | .BLANK 0000[0x6]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 0131 | 1 | .CONST 0x0131 ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0002 | | .CONST 0x0002 ; Number of locals
012b INIT_0128:
012b e001 | | Load 0x0,0x1
012c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
012d 02c7 | | Declare_Variable Any
012e e001 | | Load 0x0,0x1
012f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0130 a402 | | Store_Unchecked 0x2,0x2
0131 BODY_0128:
0131 e001 | | Load 0x0,0x1
0132 180e | | Execute Package,Field_Execute,Field_Number 0xe
0133 4802 |H | Short_Literal 0x2
0134 e5ff | | Load 0x2,-0x1
0135 e002 | | Load 0x0,0x2
0136 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0137 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b | ; | .CONST 0x013b ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0001 | | .CONST 0x0001 ; Number of locals
013b BODY_0138:
013b INIT_0138:
013b e001 | | Load 0x0,0x1
013c 180e | | Execute Package,Field_Execute,Field_Number 0xe
013d 4801 |H | Short_Literal 0x1
013e e5ff | | Load 0x2,-0x1
013f e002 | | Load 0x0,0x2
0140 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0141 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0142 0000 0000 | | .BLANK 0000[0x6]
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 e001 | | Load 0x0,0x1
014c 180e | | Execute Package,Field_Execute,Field_Number 0xe
014d 4806 |H | Short_Literal 0x6
014e e5ff | | Load 0x2,-0x1
014f e002 | | Load 0x0,0x2
0150 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0151 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0152 0000 0000 | | .BLANK 0000[0x6]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b | [ | .CONST 0x015b ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0001 | | .CONST 0x0001 ; Number of locals
015b BODY_0158:
015b INIT_0158:
015b e001 | | Load 0x0,0x1
015c 180e | | Execute Package,Field_Execute,Field_Number 0xe
015d 4807 |H | Short_Literal 0x7
015e e5ff | | Load 0x2,-0x1
015f e002 | | Load 0x0,0x2
0160 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0161 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0162 0000 0000 | | .BLANK 0000[0x6]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 0192 | | .CONST 0x0192 ; Address of begin
0169 01ba | | .CONST 0x01ba ; Address of exception handler
016a 0005 | | .CONST 0x0005 ; Number of locals
016b INIT_0168:
016b 4801 |H | Short_Literal 0x1
016c 00db | | Load_Top At_Offset_3
016d 01db | | Execute Vector,Length
016e 00d8 | | Load_Top At_Offset_0
016f 00e2 | | Load_Encached Integer_Cache
0170 0260 | ` | Execute Discrete,In_Type
0171 7001 |p | Jump_Nonzero 0x173
0172 0801 | | Execute_Immediate Raise,0x1
0173 00e9 | | Load_Encached String_Cache
0174 035b | [ | Declare_Type Array,Constrained
0175 0337 | 7 | Declare_Variable Array
0176 00db | | Load_Top At_Offset_3
0177 01dd | | Execute Vector,First
0178 e5ff | | Load 0x2,-0x1
0179 01d7 | | Execute Vector,Field_Read
017a e006 | | Load 0x0,0x6
017b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
017c e5ff | | Load 0x2,-0x1
017d 01dd | | Execute Vector,First
017e 0a01 | | Execute_Immediate Plus,0x1
017f 00d8 | | Load_Top At_Offset_0
0180 00e2 | | Load_Encached Integer_Cache
0181 0260 | ` | Execute Discrete,In_Type
0182 7001 |p | Jump_Nonzero 0x184
0183 0801 | | Execute_Immediate Raise,0x1
0184 e5ff | | Load 0x2,-0x1
0185 01dc | | Execute Vector,Last
0186 e5ff | | Load 0x2,-0x1
0187 01cf | | Execute Vector,Slice_Read
0188 e006 | | Load 0x0,0x6
0189 1815 | | Execute Package,Field_Execute,Field_Number 0x15
018a 01ca | | Execute Vector,Prepend
018b 00d9 | | Load_Top At_Offset_1
018c 01d4 | | Execute Vector,Structure_Write
018d 00e3 | | Load_Encached Natural_Cache
018e 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
018f 00e2 | | Load_Encached Integer_Cache
0190 029f 020b | | Declare_Subprogram INIT_0208,For_Call
0192 BODY_0168:
0192 00cf | | Action Mark_Auxiliary
0193 00db | | Load_Top At_Offset_3
0194 e5ff | | Load 0x2,-0x1
0195 01db | | Execute Vector,Length
0196 00d8 | | Load_Top At_Offset_0
0197 00e2 | | Load_Encached Integer_Cache
0198 0260 | ` | Execute Discrete,In_Type
0199 7001 |p | Jump_Nonzero 0x19b
019a 0801 | | Execute_Immediate Raise,0x1
019b e402 | | Load 0x2,0x2
019c 01cf | | Execute Vector,Slice_Read
019d 8405 | | Call 0x2,0x5
019e 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
019f 00da | | Load_Top At_Offset_2
01a0 0a01 | | Execute_Immediate Plus,0x1
01a1 c403 | | Store 0x2,0x3
01a2 00da | | Load_Top At_Offset_2
01a3 0f00 | | Execute_Immediate Equal,0x0
01a4 e403 | | Load 0x2,0x3
01a5 e5ff | | Load 0x2,-0x1
01a6 01db | | Execute Vector,Length
01a7 027d | } | Execute Discrete,Greater
01a8 0278 | x | Execute Discrete,Or
01a9 6801 |h | Jump_Zero 0x1ab
01aa 780a |x | Jump 0x1b5
01ab 00db | | Load_Top At_Offset_3
01ac e402 | | Load 0x2,0x2
01ad 01d7 | | Execute Vector,Field_Read
01ae e006 | | Load 0x0,0x6
01af 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01b0 e403 | | Load 0x2,0x3
01b1 e402 | | Load 0x2,0x2
01b2 01d6 | | Execute Vector,Field_Write
01b3 00c9 | | Action Pop_Auxiliary_Loop
01b4 7fde | | Jump 0x193
01b5 00ce | | Action Pop_Auxiliary
01b6 00db | | Load_Top At_Offset_3
01b7 00e9 | | Load_Encached String_Cache
01b8 01c6 | | Execute Vector,Convert_To_Formal
01b9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ba TRAP_0168:
01ba 0007 | | Action Break_Optional
01bb e402 | | Load 0x2,0x2
01bc 00e9 | | Load_Encached String_Cache
01bd 01c6 | | Execute Vector,Convert_To_Formal
01be 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01bf 0000 | | .XXX[0x1]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3 | | .CONST 0x01c3 ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0001 | | .CONST 0x0001 ; Number of locals
01c3 BODY_01c0:
01c3 INIT_01c0:
01c3 00da | | Load_Top At_Offset_2
01c4 e006 | | Load 0x0,0x6
01c5 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01c6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01c7 0000 | | .XXX[0x1]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb | | .CONST 0x01cb ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0001 | | .CONST 0x0001 ; Number of locals
01cb BODY_01c8:
01cb INIT_01c8:
01cb 00da | | Load_Top At_Offset_2
01cc e006 | | Load 0x0,0x6
01cd 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01ce 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01cf 0000 | | .XXX[0x1]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3 | | .CONST 0x01d3 ; Address of begin
01d1 01dd | | .CONST 0x01dd ; Address of exception handler
01d2 0001 | | .CONST 0x0001 ; Number of locals
01d3 BODY_01d0:
01d3 INIT_01d0:
01d3 8210 | | Call 0x1,0x10
01d4 0092 0226 | &| Action Push_String_Extended,0x226 ; "<PROFILE>"
01d6 0092 0227 | '| Action Push_String_Extended,0x227 ; "<DIRECTORIES>"
01d8 e5ff | | Load 0x2,-0x1
01d9 e007 | | Load 0x0,0x7
01da 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01db 8211 | | Call 0x1,0x11
01dc 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01dd TRAP_01d0:
01dd 0007 | | Action Break_Optional
01de 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01df 0000 | | .XXX[0x1]
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 0228 | (| Action Push_String_Extended,0x228 ; "!machine.temporary.discover_"
01e5 4800 |H | Short_Literal 0x0
01e6 4803 |H | Short_Literal 0x3
01e7 4804 |H | Short_Literal 0x4
01e8 e008 | | Load 0x0,0x8
01e9 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01ea e008 | | Load 0x0,0x8
01eb 181f | | Execute Package,Field_Execute,Field_Number 0x1f
01ec 01cc | | Execute Vector,Catenate
01ed 00ca | | Action Exit_Nullary_Function
01ee 0000 0000 | | .XXX[0x2]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f8 | | .CONST 0x01f8 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0002 | | .CONST 0x0002 ; Number of locals
01f3 INIT_01f0:
01f3 e402 | | Load 0x2,0x2
01f4 e003 | | Load 0x0,0x3
01f5 184d | M | Execute Package,Field_Execute,Field_Number 0x4d
01f6 e003 | | Load 0x0,0x3
01f7 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01f8 BODY_01f0:
01f8 4801 |H | Short_Literal 0x1
01f9 00d9 | | Load_Top At_Offset_1
01fa e5ff | | Load 0x2,-0x1
01fb e006 | | Load 0x0,0x6
01fc 181d | | Execute Package,Field_Execute,Field_Number 0x1d
01fd 6803 |h | Jump_Zero 0x201
01fe 4801 |H | Short_Literal 0x1
01ff 00cb | | Action Pop_Block_With_Result
0200 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0201 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0202 0000 0000 | | .BLANK 0000[0x6]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b | | .CONST 0x020b ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0001 | | .CONST 0x0001 ; Number of locals
020b BODY_0208:
020b INIT_0208:
020b 00cf | | Action Mark_Auxiliary
020c 00db | | Load_Top At_Offset_3
020d 01d9 | | Execute Vector,Reverse_Bounds
020e 0263 | c | Execute Discrete,Above_Bound
020f 7013 |p | Jump_Nonzero 0x223
0210 00d8 | | Load_Top At_Offset_0
0211 e7ff | | Load 0x3,-0x1
0212 01d7 | | Execute Vector,Field_Read
0213 0f5f | _ | Execute_Immediate Equal,0x5f
0214 00d9 | | Load_Top At_Offset_1
0215 e7ff | | Load 0x3,-0x1
0216 01d7 | | Execute Vector,Field_Read
0217 0f2e | . | Execute_Immediate Equal,0x2e
0218 0278 | x | Execute Discrete,Or
0219 00d9 | | Load_Top At_Offset_1
021a e7ff | | Load 0x3,-0x1
021b 01d7 | | Execute Vector,Field_Read
021c 0f21 | ! | Execute_Immediate Equal,0x21
021d 0278 | x | Execute Discrete,Or
021e 6802 |h | Jump_Zero 0x221
021f 00d8 | | Load_Top At_Offset_0
0220 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0221 00c8 | | Action Pop_Auxiliary_Range
0222 3fed |? | Loop_Increasing 0x210
0223 00ce | | Action Pop_Auxiliary
0224 4800 |H | Short_Literal 0x0
0225 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0226 ; --------------------------------------------------------------------------------------
0226 ; STRING TABLE
0226 ; --------------------------------------------------------------------------------------
0226 0008 | | .STRTAB 0x0008->0x022a ; "<PROFILE>"
0227 000f | | .STRTAB 0x000f->0x022e ; "<DIRECTORIES>"
0228 001a | | .STRTAB 0x001a->0x0235 ; "!machine.temporary.discover_"
0229 0034 | 4 | .STREND 0x0034->0x0243
022a 3c50 524f |<PRO| .STRTAB_STRINGS
0243 0000 0000 | | .BLANK 0000[0x5]
0248 ; --------------------------------------------------------------------------------------
0248 ; Debug Table
0248 ; --------------------------------------------------------------------------------------
0248 0004 0014 | | .DEBUG4 0x0004,0x0014,0x0e3a,0x0000,0x0001,0x0000
024e 0040 0026 | @ &| .XXX[0x16]
0250 4000 0002 |@ |
0252 f610 0001 | |
0254 0000 0000 | |
0256 c00a 0000 | |
0258 0002 0000 | |
025a 0080 0000 | |
025c 0440 0000 | @ |
025e 0002 0000 | |
0260 0014 8000 | |
0262 0404 8196 | |
0264 0000 0000 | | .BLANK 0000[0x1b]
027f 0600 00a3 | | .XXX[0x1f]
0281 7a85 c020 |z |
0283 1600 0006 | |
0285 e2b4 4c80 | L |
0287 8008 0004 | |
0289 c800 0000 | |
028b 5ec2 0000 |^ |
028d 2000 0000 | |
028f 1801 4000 | @ |
0291 0000 4000 | @ |
0293 0010 0000 | |
0295 0088 0000 | |
0297 0000 4000 | @ |
0299 0002 9000 | |
029b 0080 9032 | 2|
029d c000 | |
029e 0000 0000 | | .BLANK 0000[0x1a]
02b8 00c0 0014 | | .XXX[0x1f]
02ba 6f50 b804 |oP |
02bc 02c0 0000 | |
02be dc56 8990 | V |
02c0 1001 0000 | |
02c2 9900 0000 | |
02c4 0bd8 4000 | @ |
02c6 0400 0000 | |
02c8 0300 2800 | ( |
02ca 0000 0800 | |
02cc 0002 0000 | |
02ce 0011 0000 | |
02d0 0000 0800 | |
02d2 0000 5200 | R |
02d4 0010 1206 | |
02d6 5800 |X |
02d7 0000 0000 | | .BLANK 0000[0x1a]
02f1 0018 0002 | | .XXX[0x3]
02f3 8de8 | |
02f4 0000 0000 | | .BLANK 0000[0xd]
0301 0020 0500 | | .XXX[0xc]
0303 0000 0000 | |
0305 0000 4000 | @ |
0307 0002 2000 | |
0309 0000 0100 | |
030b 0000 0a00 | |
030d 0000 0000 | | .BLANK 0000[0x2d]
033a 0004 00a0 | | .XXX[0xc]
033c 0000 0000 | |
033e 0000 0800 | |
0340 0000 4400 | D |
0342 0000 0020 | |
0344 0000 0140 | @|
0346 0000 0000 | | .BLANK 0000[0x2e]
0374 8014 0000 | | .XXX[0xb]
0376 0000 0000 | |
0378 0100 0000 | |
037a 0880 0000 | |
037c 0004 0000 | |
037e 0028 | ( |
037f 0000 0000 | | .BLANK 0000[0x2e]
03ad 1002 8000 | | .XXX[0xb]
03af 0000 0000 | |
03b1 0020 0000 | |
03b3 0110 0000 | |
03b5 0000 8000 | |
03b7 0005 | |
03b8 0000 0000 | | .BLANK 0000[0x48]