|
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_ccb0b3
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 02b8 | | .CONST 0x02b8 ; 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 004d | M | .CONST 0x004d ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001b | | .CONST 0x001b ; Number of locals
000b INIT_0008:
000b 00e3 | | Load_Encached Natural_Cache
000c e001 | | Load 0x0,0x1
000d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
000e 00e9 | | Load_Encached String_Cache
000f 029f 0263 | c| Declare_Subprogram INIT_0260,For_Call
0011 4800 |H | Short_Literal 0x0
0012 4801 |H | Short_Literal 0x1
0013 4801 |H | Short_Literal 0x1
0014 4800 |H | Short_Literal 0x0
0015 4801 |H | Short_Literal 0x1
0016 4801 |H | Short_Literal 0x1
0017 031e | | Declare_Type Variant_Record,Defined,Visible
0018 e002 | | Load 0x0,0x2
0019 0129 | ) | Execute Any,Make_Visible
001a 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated
001c 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated
001e 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated
0020 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated
0022 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated
0024 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated
0026 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated
0028 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated
002a 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated
002c 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated
002e 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated
0030 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated
0032 00bf | | Action Accept_Activation
0033 029d 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call
0035 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0036 00c7 | | Action Elaborate_Subprogram
0037 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0038 00c7 | | Action Elaborate_Subprogram
0039 1d11 | | Execute_Immediate Reference_Lex_1,0x11
003a 00c7 | | Action Elaborate_Subprogram
003b 1d12 | | Execute_Immediate Reference_Lex_1,0x12
003c 00c7 | | Action Elaborate_Subprogram
003d 1d13 | | Execute_Immediate Reference_Lex_1,0x13
003e 00c7 | | Action Elaborate_Subprogram
003f 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0040 00c7 | | Action Elaborate_Subprogram
0041 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0042 00c7 | | Action Elaborate_Subprogram
0043 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0044 00c7 | | Action Elaborate_Subprogram
0045 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0046 00c7 | | Action Elaborate_Subprogram
0047 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0048 00c7 | | Action Elaborate_Subprogram
0049 1d19 | | Execute_Immediate Reference_Lex_1,0x19
004a 00c7 | | Action Elaborate_Subprogram
004b 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
004c 00c7 | | Action Elaborate_Subprogram
004d BODY_0008:
004d 00bc | | Action Signal_Activated
004e 00bb | | Action Signal_Completion
004f 0000 | | .XXX[0x1]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0059 | Y | .CONST 0x0059 ; Address of begin
0051 0004 | | .CONST 0x0004 ; Address of exception handler
0052 0003 | | .CONST 0x0003 ; Number of locals
0053 INIT_0050:
0053 00da | | Load_Top At_Offset_2
0054 e003 | | Load 0x0,0x3
0055 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0056 180d | | Execute Package,Field_Execute,Field_Number 0xd
0057 e004 | | Load 0x0,0x4
0058 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0059 BODY_0050:
0059 e004 | | Load 0x0,0x4
005a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
005b e5f4 | | Load 0x2,-0xc
005c e5f5 | | Load 0x2,-0xb
005d e5f6 | | Load 0x2,-0xa
005e e5f7 | | Load 0x2,-0x9
005f e5f8 | | Load 0x2,-0x8
0060 e5f9 | | Load 0x2,-0x7
0061 e5fa | | Load 0x2,-0x6
0062 4800 |H | Short_Literal 0x0
0063 e402 | | Load 0x2,0x2
0064 e5fb | | Load 0x2,-0x5
0065 e5fc | | Load 0x2,-0x4
0066 e5fd | | Load 0x2,-0x3
0067 e5fe | | Load 0x2,-0x2
0068 e5f4 | | Load 0x2,-0xc
0069 4800 |H | Short_Literal 0x0
006a e5ff | | Load 0x2,-0x1
006b e005 | | Load 0x0,0x5
006c 181d | | Execute Package,Field_Execute,Field_Number 0x1d
006d e006 | | Load 0x0,0x6
006e 1820 | | Execute Package,Field_Execute,Field_Number 0x20
006f 0059 | Y | Store_Top Discrete,At_Offset_1
0070 e5f3 | | Load 0x2,-0xd
0071 00d9 | | Load_Top At_Offset_1
0072 e007 | | Load 0x0,0x7
0073 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0074 c5f3 | | Store 0x2,-0xd
0075 450d |E | Exit_Suprogram New_Top_Offset 0xd
0076 0000 0000 | | .XXX[0x2]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 0081 | | .CONST 0x0081 ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0003 | | .CONST 0x0003 ; Number of locals
007b INIT_0078:
007b 00da | | Load_Top At_Offset_2
007c e003 | | Load 0x0,0x3
007d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
007e 180d | | Execute Package,Field_Execute,Field_Number 0xd
007f e004 | | Load 0x0,0x4
0080 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0081 BODY_0078:
0081 e004 | | Load 0x0,0x4
0082 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0083 e5fd | | Load 0x2,-0x3
0084 00db | | Load_Top At_Offset_3
0085 e5fe | | Load 0x2,-0x2
0086 e5fd | | Load 0x2,-0x3
0087 4800 |H | Short_Literal 0x0
0088 e5ff | | Load 0x2,-0x1
0089 e005 | | Load 0x0,0x5
008a 181d | | Execute Package,Field_Execute,Field_Number 0x1d
008b e006 | | Load 0x0,0x6
008c 1819 | | Execute Package,Field_Execute,Field_Number 0x19
008d 0059 | Y | Store_Top Discrete,At_Offset_1
008e e5fc | | Load 0x2,-0x4
008f 00d9 | | Load_Top At_Offset_1
0090 e007 | | Load 0x0,0x7
0091 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0092 c5fc | | Store 0x2,-0x4
0093 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0094 0000 0000 | | .BLANK 0000[0x4]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 00a1 | | .CONST 0x00a1 ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0003 | | .CONST 0x0003 ; Number of locals
009b INIT_0098:
009b 00da | | Load_Top At_Offset_2
009c e003 | | Load 0x0,0x3
009d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
009e 180d | | Execute Package,Field_Execute,Field_Number 0xd
009f e004 | | Load 0x0,0x4
00a0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00a1 BODY_0098:
00a1 e004 | | Load 0x0,0x4
00a2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00a3 e5fd | | Load 0x2,-0x3
00a4 00db | | Load_Top At_Offset_3
00a5 e5fe | | Load 0x2,-0x2
00a6 e5fd | | Load 0x2,-0x3
00a7 4800 |H | Short_Literal 0x0
00a8 e5ff | | Load 0x2,-0x1
00a9 e005 | | Load 0x0,0x5
00aa 181d | | Execute Package,Field_Execute,Field_Number 0x1d
00ab e006 | | Load 0x0,0x6
00ac 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00ad 0059 | Y | Store_Top Discrete,At_Offset_1
00ae e5fc | | Load 0x2,-0x4
00af 00d9 | | Load_Top At_Offset_1
00b0 e007 | | Load 0x0,0x7
00b1 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00b2 c5fc | | Store 0x2,-0x4
00b3 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00b4 0000 0000 | | .BLANK 0000[0x4]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00c1 | | .CONST 0x00c1 ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0003 | | .CONST 0x0003 ; Number of locals
00bb INIT_00b8:
00bb 00da | | Load_Top At_Offset_2
00bc e003 | | Load 0x0,0x3
00bd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00be 180d | | Execute Package,Field_Execute,Field_Number 0xd
00bf e004 | | Load 0x0,0x4
00c0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00c1 BODY_00b8:
00c1 e004 | | Load 0x0,0x4
00c2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00c3 e5fd | | Load 0x2,-0x3
00c4 00db | | Load_Top At_Offset_3
00c5 e5fe | | Load 0x2,-0x2
00c6 e5fd | | Load 0x2,-0x3
00c7 4800 |H | Short_Literal 0x0
00c8 e5ff | | Load 0x2,-0x1
00c9 e005 | | Load 0x0,0x5
00ca 181d | | Execute Package,Field_Execute,Field_Number 0x1d
00cb e006 | | Load 0x0,0x6
00cc 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00cd 0059 | Y | Store_Top Discrete,At_Offset_1
00ce e5fc | | Load 0x2,-0x4
00cf 00d9 | | Load_Top At_Offset_1
00d0 e007 | | Load 0x0,0x7
00d1 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00d2 c5fc | | Store 0x2,-0x4
00d3 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00d4 0000 0000 | | .BLANK 0000[0x4]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00ee | | .CONST 0x00ee ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0004 | | .CONST 0x0004 ; Number of locals
00db INIT_00d8:
00db 00da | | Load_Top At_Offset_2
00dc e003 | | Load 0x0,0x3
00dd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00de 180d | | Execute Package,Field_Execute,Field_Number 0xd
00df e5fe | | Load 0x2,-0x2
00e0 00d9 | | Load_Top At_Offset_1
00e1 e5fe | | Load 0x2,-0x2
00e2 4800 |H | Short_Literal 0x0
00e3 e5ff | | Load 0x2,-0x1
00e4 e005 | | Load 0x0,0x5
00e5 181d | | Execute Package,Field_Execute,Field_Number 0x1d
00e6 e006 | | Load 0x0,0x6
00e7 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00e8 00d8 | | Load_Top At_Offset_0
00e9 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
00ea e20d | | Load 0x1,0xd
00eb 1c08 | | Execute_Immediate Run_Utility,0x8
00ec 00d8 | | Load_Top At_Offset_0
00ed 1c00 | | Execute_Immediate Run_Utility,0x0
00ee BODY_00d8:
00ee 00d9 | | Load_Top At_Offset_1
00ef 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
00f0 00d9 | | Load_Top At_Offset_1
00f1 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
00f2 00d8 | | Load_Top At_Offset_0
00f3 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00f4 00da | | Load_Top At_Offset_2
00f5 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00f6 e007 | | Load 0x0,0x7
00f7 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00f8 00d9 | | Load_Top At_Offset_1
00f9 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00fa 00d8 | | Load_Top At_Offset_0
00fb 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00fc 0000 0000 | | .BLANK 0000[0x4]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0116 | | .CONST 0x0116 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0004 | | .CONST 0x0004 ; Number of locals
0103 INIT_0100:
0103 00da | | Load_Top At_Offset_2
0104 e003 | | Load 0x0,0x3
0105 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0106 180d | | Execute Package,Field_Execute,Field_Number 0xd
0107 e5fe | | Load 0x2,-0x2
0108 00d9 | | Load_Top At_Offset_1
0109 e5fe | | Load 0x2,-0x2
010a 4800 |H | Short_Literal 0x0
010b e5ff | | Load 0x2,-0x1
010c e005 | | Load 0x0,0x5
010d 181d | | Execute Package,Field_Execute,Field_Number 0x1d
010e e006 | | Load 0x0,0x6
010f 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0110 00d8 | | Load_Top At_Offset_0
0111 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0112 e20d | | Load 0x1,0xd
0113 1c08 | | Execute_Immediate Run_Utility,0x8
0114 00d8 | | Load_Top At_Offset_0
0115 1c00 | | Execute_Immediate Run_Utility,0x0
0116 BODY_0100:
0116 00d9 | | Load_Top At_Offset_1
0117 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0118 00d9 | | Load_Top At_Offset_1
0119 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
011a 00d8 | | Load_Top At_Offset_0
011b 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
011c 00da | | Load_Top At_Offset_2
011d 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
011e e007 | | Load 0x0,0x7
011f 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0120 00d9 | | Load_Top At_Offset_1
0121 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0122 00d8 | | Load_Top At_Offset_0
0123 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0124 0000 0000 | | .BLANK 0000[0x4]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 013e | > | .CONST 0x013e ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0004 | | .CONST 0x0004 ; Number of locals
012b INIT_0128:
012b 00da | | Load_Top At_Offset_2
012c e003 | | Load 0x0,0x3
012d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
012e 180d | | Execute Package,Field_Execute,Field_Number 0xd
012f e5fe | | Load 0x2,-0x2
0130 00d9 | | Load_Top At_Offset_1
0131 e5fe | | Load 0x2,-0x2
0132 4800 |H | Short_Literal 0x0
0133 e5ff | | Load 0x2,-0x1
0134 e005 | | Load 0x0,0x5
0135 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0136 e006 | | Load 0x0,0x6
0137 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0138 00d8 | | Load_Top At_Offset_0
0139 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
013a e20d | | Load 0x1,0xd
013b 1c08 | | Execute_Immediate Run_Utility,0x8
013c 00d8 | | Load_Top At_Offset_0
013d 1c00 | | Execute_Immediate Run_Utility,0x0
013e BODY_0128:
013e 00d9 | | Load_Top At_Offset_1
013f 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0140 00d9 | | Load_Top At_Offset_1
0141 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
0142 00d8 | | Load_Top At_Offset_0
0143 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0144 00da | | Load_Top At_Offset_2
0145 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0146 e007 | | Load 0x0,0x7
0147 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0148 00d9 | | Load_Top At_Offset_1
0149 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
014a 00d8 | | Load_Top At_Offset_0
014b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
014c 0000 0000 | | .BLANK 0000[0x4]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 015c | \ | .CONST 0x015c ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0003 | | .CONST 0x0003 ; Number of locals
0153 INIT_0150:
0153 00da | | Load_Top At_Offset_2
0154 e008 | | Load 0x0,0x8
0155 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0156 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0157 e003 | | Load 0x0,0x3
0158 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0159 180d | | Execute Package,Field_Execute,Field_Number 0xd
015a e004 | | Load 0x0,0x4
015b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
015c BODY_0150:
015c e004 | | Load 0x0,0x4
015d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
015e e5fd | | Load 0x2,-0x3
015f 00db | | Load_Top At_Offset_3
0160 e5fe | | Load 0x2,-0x2
0161 e5ff | | Load 0x2,-0x1
0162 e006 | | Load 0x0,0x6
0163 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0164 0059 | Y | Store_Top Discrete,At_Offset_1
0165 e5fc | | Load 0x2,-0x4
0166 00d9 | | Load_Top At_Offset_1
0167 e007 | | Load 0x0,0x7
0168 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0169 c5fc | | Store 0x2,-0x4
016a 4504 |E | Exit_Suprogram New_Top_Offset 0x4
016b 0000 0000 | | .BLANK 0000[0x5]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 017f | | .CONST 0x017f ; Address of begin
0171 0181 | | .CONST 0x0181 ; Address of exception handler
0172 0004 | | .CONST 0x0004 ; Number of locals
0173 INIT_0170:
0173 e009 | | Load 0x0,0x9
0174 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0175 0322 | " | Declare_Variable Record
0176 e5fe | | Load 0x2,-0x2
0177 e009 | | Load 0x0,0x9
0178 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0179 00d9 | | Load_Top At_Offset_1
017a 017d | } | Execute Record,Structure_Write
017b 029f 01f3 | | Declare_Subprogram INIT_01f0,For_Call
017d 029f 0213 | | Declare_Subprogram INIT_0210,For_Call
017f BODY_0170:
017f 8403 | | Call 0x2,0x3
0180 0831 | 1 | Execute_Immediate Raise,0x31
0181 TRAP_0170:
0181 0007 | | Action Break_Optional
0182 8404 | | Call 0x2,0x4
0183 0831 | 1 | Execute_Immediate Raise,0x31
0184 0000 0000 | | .BLANK 0000[0x4]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 0197 | | .CONST 0x0197 ; Address of begin
0189 0199 | | .CONST 0x0199 ; Address of exception handler
018a 0004 | | .CONST 0x0004 ; Number of locals
018b INIT_0188:
018b e009 | | Load 0x0,0x9
018c 1b14 | | Execute Package,Field_Read,Field_Number 0x14
018d 0322 | " | Declare_Variable Record
018e e5fe | | Load 0x2,-0x2
018f e009 | | Load 0x0,0x9
0190 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0191 00d9 | | Load_Top At_Offset_1
0192 017d | } | Execute Record,Structure_Write
0193 029f 022b | +| Declare_Subprogram INIT_0228,For_Call
0195 029f 024b | K| Declare_Subprogram INIT_0248,For_Call
0197 BODY_0188:
0197 8403 | | Call 0x2,0x3
0198 0831 | 1 | Execute_Immediate Raise,0x31
0199 TRAP_0188:
0199 0007 | | Action Break_Optional
019a 8404 | | Call 0x2,0x4
019b 0831 | 1 | Execute_Immediate Raise,0x31
019c 0000 0000 | | .BLANK 0000[0x4]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01b4 | | .CONST 0x01b4 ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0003 | | .CONST 0x0003 ; Number of locals
01a3 INIT_01a0:
01a3 e009 | | Load 0x0,0x9
01a4 1b14 | | Execute Package,Field_Read,Field_Number 0x14
01a5 0322 | " | Declare_Variable Record
01a6 e5fe | | Load 0x2,-0x2
01a7 e009 | | Load 0x0,0x9
01a8 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
01a9 00d9 | | Load_Top At_Offset_1
01aa 017d | } | Execute Record,Structure_Write
01ab e008 | | Load 0x0,0x8
01ac 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01ad 02c7 | | Declare_Variable Any
01ae e5fb | | Load 0x2,-0x5
01af 4801 |H | Short_Literal 0x1
01b0 e5fd | | Load 0x2,-0x3
01b1 e005 | | Load 0x0,0x5
01b2 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01b3 a403 | | Store_Unchecked 0x2,0x3
01b4 BODY_01a0:
01b4 e5fb | | Load 0x2,-0x5
01b5 4800 |H | Short_Literal 0x0
01b6 00da | | Load_Top At_Offset_2
01b7 e402 | | Load 0x2,0x2
01b8 e5ff | | Load 0x2,-0x1
01b9 e00a | | Load 0x0,0xa
01ba 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
01bb 4506 |E | Exit_Suprogram New_Top_Offset 0x6
01bc 0000 0000 | | .BLANK 0000[0x4]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01d4 | | .CONST 0x01d4 ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0003 | | .CONST 0x0003 ; Number of locals
01c3 INIT_01c0:
01c3 e009 | | Load 0x0,0x9
01c4 1b14 | | Execute Package,Field_Read,Field_Number 0x14
01c5 0322 | " | Declare_Variable Record
01c6 e5fe | | Load 0x2,-0x2
01c7 e009 | | Load 0x0,0x9
01c8 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
01c9 00d9 | | Load_Top At_Offset_1
01ca 017d | } | Execute Record,Structure_Write
01cb e008 | | Load 0x0,0x8
01cc 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01cd 02c7 | | Declare_Variable Any
01ce e5fb | | Load 0x2,-0x5
01cf 4801 |H | Short_Literal 0x1
01d0 e5fd | | Load 0x2,-0x3
01d1 e005 | | Load 0x0,0x5
01d2 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01d3 a403 | | Store_Unchecked 0x2,0x3
01d4 BODY_01c0:
01d4 e5fb | | Load 0x2,-0x5
01d5 4800 |H | Short_Literal 0x0
01d6 00da | | Load_Top At_Offset_2
01d7 e402 | | Load 0x2,0x2
01d8 e5ff | | Load 0x2,-0x1
01d9 e00a | | Load 0x0,0xa
01da 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
01db 4506 |E | Exit_Suprogram New_Top_Offset 0x6
01dc 0000 0000 | | .BLANK 0000[0x4]
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 00db | | Load_Top At_Offset_3
01e4 4802 |H | Short_Literal 0x2
01e5 0092 0287 | | Action Push_String_Extended,0x287 ; "caught in "
01e7 e5ff | | Load 0x2,-0x1
01e8 01cc | | Execute Vector,Catenate
01e9 0092 0288 | | Action Push_String_Extended,0x288 ; "Unhandled Exception:"
01eb e001 | | Load 0x0,0x1
01ec 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01ed c5fe | | Store 0x2,-0x2
01ee 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01ef 0000 | | .XXX[0x1]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01fd | | .CONST 0x01fd ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0003 | | .CONST 0x0003 ; Number of locals
01f3 INIT_01f0:
01f3 e402 | | Load 0x2,0x2
01f4 e5ff | | Load 0x2,-0x1
01f5 e00a | | Load 0x0,0xa
01f6 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01f7 00d8 | | Load_Top At_Offset_0
01f8 01db | | Execute Vector,Length
01f9 e20d | | Load 0x1,0xd
01fa 1c08 | | Execute_Immediate Run_Utility,0x8
01fb 00d8 | | Load_Top At_Offset_0
01fc 1c00 | | Execute_Immediate Run_Utility,0x0
01fd BODY_01f0:
01fd 00d8 | | Load_Top At_Offset_0
01fe 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01ff e001 | | Load 0x0,0x1
0200 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0201 00d9 | | Load_Top At_Offset_1
0202 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0203 00d9 | | Load_Top At_Offset_1
0204 00d9 | | Load_Top At_Offset_1
0205 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
0206 00d8 | | Load_Top At_Offset_0
0207 00cb | | Action Pop_Block_With_Result
0208 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0209 0000 0000 | | .BLANK 0000[0x7]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0218 | | .CONST 0x0218 ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0002 | | .CONST 0x0002 ; Number of locals
0213 INIT_0210:
0213 4800 |H | Short_Literal 0x0
0214 e20d | | Load 0x1,0xd
0215 1c08 | | Execute_Immediate Run_Utility,0x8
0216 00d8 | | Load_Top At_Offset_0
0217 1c00 | | Execute_Immediate Run_Utility,0x0
0218 BODY_0210:
0218 00d8 | | Load_Top At_Offset_0
0219 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
021a 0092 0289 | | Action Push_String_Extended,0x289 ; "Default_Remote_Machine"
021c 821b | | Call 0x1,0x1b
021d 00d9 | | Load_Top At_Offset_1
021e 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
021f 00d8 | | Load_Top At_Offset_0
0220 00cb | | Action Pop_Block_With_Result
0221 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0222 0000 0000 | | .BLANK 0000[0x6]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 0235 | 5 | .CONST 0x0235 ; Address of begin
0229 0004 | | .CONST 0x0004 ; Address of exception handler
022a 0003 | | .CONST 0x0003 ; Number of locals
022b INIT_0228:
022b e402 | | Load 0x2,0x2
022c e5ff | | Load 0x2,-0x1
022d e00a | | Load 0x0,0xa
022e 1814 | | Execute Package,Field_Execute,Field_Number 0x14
022f 00d8 | | Load_Top At_Offset_0
0230 01db | | Execute Vector,Length
0231 e20d | | Load 0x1,0xd
0232 1c08 | | Execute_Immediate Run_Utility,0x8
0233 00d8 | | Load_Top At_Offset_0
0234 1c00 | | Execute_Immediate Run_Utility,0x0
0235 BODY_0228:
0235 00d8 | | Load_Top At_Offset_0
0236 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0237 e001 | | Load 0x0,0x1
0238 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0239 00d9 | | Load_Top At_Offset_1
023a 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
023b 00d9 | | Load_Top At_Offset_1
023c 00d9 | | Load_Top At_Offset_1
023d 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
023e 00d8 | | Load_Top At_Offset_0
023f 00cb | | Action Pop_Block_With_Result
0240 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0241 0000 0000 | | .BLANK 0000[0x7]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 0250 | P | .CONST 0x0250 ; Address of begin
0249 0004 | | .CONST 0x0004 ; Address of exception handler
024a 0002 | | .CONST 0x0002 ; Number of locals
024b INIT_0248:
024b 4800 |H | Short_Literal 0x0
024c e20d | | Load 0x1,0xd
024d 1c08 | | Execute_Immediate Run_Utility,0x8
024e 00d8 | | Load_Top At_Offset_0
024f 1c00 | | Execute_Immediate Run_Utility,0x0
0250 BODY_0248:
0250 00d8 | | Load_Top At_Offset_0
0251 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0252 0092 028a | | Action Push_String_Extended,0x28a ; "Default_Remote_Directory"
0254 821b | | Call 0x1,0x1b
0255 00d9 | | Load_Top At_Offset_1
0256 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0257 00d8 | | Load_Top At_Offset_0
0258 00cb | | Action Pop_Block_With_Result
0259 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
025a 0000 0000 | | .BLANK 0000[0x6]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0263 | c | .CONST 0x0263 ; Address of begin
0261 0004 | | .CONST 0x0004 ; Address of exception handler
0262 0001 | | .CONST 0x0001 ; Number of locals
0263 BODY_0260:
0263 INIT_0260:
0263 4608 |F | Jump_Case 0x9
0264 7808 |x | Jump 0x26d ; case 0x0
0265 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0266 781f |x | Jump 0x286 ; case 0x2
0267 781e |x | Jump 0x286 ; case 0x3
0268 781d |x | Jump 0x286 ; case 0x4
0269 781c |x | Jump 0x286 ; case 0x5
026a 781b |x | Jump 0x286 ; case 0x6
026b 7807 |x | Jump 0x273 ; case 0x7
026c 780f |x | Jump 0x27c ; case 0x8
026d 00da | | Load_Top At_Offset_2
026e 2202 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x2
026f 00da | | Load_Top At_Offset_2
0270 2402 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
0271 1c00 | | Execute_Immediate Run_Utility,0x0
0272 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0273 00db | | Load_Top At_Offset_3
0274 4801 |H | Short_Literal 0x1
0275 e5fe | | Load 0x2,-0x2
0276 00e9 | | Load_Encached String_Cache
0277 035b | [ | Declare_Type Array,Constrained
0278 4801 |H | Short_Literal 0x1
0279 e5ff | | Load 0x2,-0x1
027a 031b | | Declare_Type Variant_Record,Constrained
027b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
027c 00db | | Load_Top At_Offset_3
027d 00db | | Load_Top At_Offset_3
027e 02fc | | Declare_Variable Variant_Record,With_Constraint
027f 4801 |H | Short_Literal 0x1
0280 e5fe | | Load 0x2,-0x2
0281 00e9 | | Load_Encached String_Cache
0282 0334 | 4 | Declare_Variable Array,With_Constraint
0283 2d03 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3
0284 016a | j | QQ_execute Variant_Record,XXX
0285 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0286 0869 | i | Execute_Immediate Raise,0x69
0287 ; --------------------------------------------------------------------------------------
0287 ; STRING TABLE
0287 ; --------------------------------------------------------------------------------------
0287 000a | | .STRTAB 0x000a->0x028c ; "caught in "
0288 0012 | | .STRTAB 0x0012->0x0291 ; "Unhandled Exception:"
0289 0024 | $ | .STRTAB 0x0024->0x029b ; "Default_Remote_Machine"
028a 0038 | 8 | .STRTAB 0x0038->0x02a6 ; "Default_Remote_Directory"
028b 004e | N | .STREND 0x004e->0x02b2
028c 6361 7567 |caug| .STRTAB_STRINGS
02b2 0000 0000 | | .BLANK 0000[0x6]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; Debug Table
02b8 ; --------------------------------------------------------------------------------------
02b8 0004 000f | | .DEBUG4 0x0004,0x000f,0x32ca,0x0000,0x0001,0x0000
02be 0257 0000 | W | .XXX[0x26]
02c0 00c8 00e0 | |
02c2 0002 e006 | |
02c4 1b0e 0322 | "|
02c6 00d8 1c00 | |
02c8 00be 0007 | |
02ca 00db e007 | |
02cc 1813 0f00 | |
02ce 7010 00d8 |p |
02d0 e5fc e5fd | |
02d2 4802 e5ff |H |
02d4 8008 00d1 | |
02d6 e5fe e002 | |
02d8 1b0f 0119 | |
02da 00d9 8218 | |
02dc 00d8 8009 | |
02de 00d1 4505 | E |
02e0 0007 00d9 | |
02e2 8009 4505 | E |
02e4 0000 0000 | | .BLANK 0000[0x4]
02e8 00ed 0004 | | .XXX[0x42]
02ea 0002 e00a | |
02ec 0007 821a | |
02ee 800b e5ff | |
02f0 800c 0031 | 1|
02f2 00d8 700a | p |
02f4 e211 00d8 | |
02f6 0120 7002 | p |
02f8 00d8 011e | |
02fa e002 1b0f | |
02fc 0119 4401 | D |
02fe 00d8 0217 | |
0300 3c01 e5ff |< |
0302 e21b 1811 | |
0304 e002 1b0f | |
0306 0119 4401 | D |
0308 010d 0004 | |
030a 0002 e00a | |
030c 0007 821a | |
030e 800b e5ff | |
0310 800c 0031 | 1|
0312 00d8 700c | p |
0314 e211 e002 | |
0316 1b0f 0119 | |
0318 e5ff 8218 | |
031a 00db 8217 | |
031c e002 1b10 | |
031e 0213 4401 | D |
0320 00d8 0217 | |
0322 3c01 e5ff |< |
0324 e21c 1811 | |
0326 e002 1b10 | |
0328 0213 4401 | D |
032a 0000 0000 | | .BLANK 0000[0x6]
0330 0135 0004 | 5 | .XXX[0x54]
0332 0002 e00a | |
0334 0007 821a | |
0336 800b e5ff | |
0338 800c 0031 | 1|
033a 00d8 700d | p |
033c e00a 821a | |
033e 800b e5ff | |
0340 800d 0031 | 1|
0342 00db e003 | |
0344 182a 00d9 | * |
0346 0217 3801 | 8 |
0348 7827 e5fe |x' |
034a 011f 6803 | h |
034c e002 1b0f | |
034e 7801 e5fe |x |
0350 012c 00d9 | , |
0352 0217 3c01 | < |
0354 800e 00d9 | |
0356 0217 3c01 | < |
0358 e5ff e21b | |
035a 1810 e003 | |
035c 181a 6812 | h |
035e 00db e003 | |
0360 182a 00d9 | * |
0362 0217 3c01 | < |
0364 e5ff e21b | |
0366 1810 e003 | |
0368 181a 6806 | h |
036a 00db e003 | |
036c 182a 00d9 | * |
036e 0217 3801 | 8 |
0370 00db e006 | |
0372 184b e20f | K |
0374 027e 6803 | ~h |
0376 e006 1b18 | |
0378 0257 e5fe | W |
037a e002 1b0f | |
037c 0119 00d9 | |
037e 0217 3c01 | < |
0380 e5ff e21b | |
0382 1812 4503 | E |
0384 0000 0000 | | .BLANK 0000[0x4]
0388 018b 0004 | | .XXX[0xb]
038a 0001 e219 | |
038c 7004 e210 |p |
038e 800b 800f | |
0390 a219 e219 | |
0392 00ca | |
0393 0000 0000 | | .BLANK 0000[0x5]
0398 019b 0004 | | .XXX[0x9]
039a 0001 821a | |
039c 800b e5ff | |
039e 800c 021c | |
03a0 4402 |D |
03a1 0000 0000 | | .BLANK 0000[0x7]
03a8 01ab 0004 | | .XXX[0xa]
03aa 0001 e211 | |
03ac e002 1b0f | |
03ae 0119 e002 | |
03b0 1811 4401 | D |
03b2 0000 0000 | | .BLANK 0000[0x6]
03b8 01bb 0004 | | .XXX[0x9]
03ba 0001 00db | |
03bc e002 1812 | |
03be e211 012f | /|
03c0 4402 |D |
03c1 0000 0000 | | .BLANK 0000[0x7]
03c8 01cb 0004 | | .XXX[0xb]
03ca 0001 00da | |
03cc 8216 e002 | |
03ce 1b0f 0119 | |
03d0 e002 1811 | |
03d2 4402 |D |
03d3 0000 0000 | | .BLANK 0000[0x5]
03d8 01e6 0004 | | .XXX[0x28]
03da 0003 e5fd | |
03dc e002 1812 | |
03de e002 1b0f | |
03e0 011e 00db | |
03e2 8216 e002 | |
03e4 1b0f 011e | |
03e6 00d8 00da | |
03e8 012e 6806 | .h |
03ea 00d9 e002 | |
03ec 1b0f 0119 | |
03ee e5ff 8218 | |
03f0 e5fd e5ff | |
03f2 e003 1828 | (|
03f4 8213 4504 | E |
03f6 0000 0000 | |
03f8 01fb 0004 | |
03fa 0001 e002 | |
03fc 1b15 4401 | D |
03fe 0000 0000 | |