|
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_6a18da
└─⟦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 02d0 | | .CONST 0x02d0 ; 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 006d | m | .CONST 0x006d ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0020 | | .CONST 0x0020 ; Number of locals
000b INIT_0008:
000b 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated
000d 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated
000f 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated
0011 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated
0013 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated
0015 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated
0017 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated
0019 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated
001b 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated
001d 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated
001f e002 | | Load 0x0,0x2
0020 0129 | ) | Execute Any,Make_Visible
0021 4804 |H | Short_Literal 0x4
0022 032b | + | Declare_Type Record,Incomplete,Visible
0023 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated
0025 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated
0027 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated
0029 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated
002b e003 | | Load 0x0,0x3
002c 1b37 | 7 | Execute Package,Field_Read,Field_Number 0x37
002d e001 | | Load 0x0,0x1
002e 1b13 | | Execute Package,Field_Read,Field_Number 0x13
002f 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31
0030 e001 | | Load 0x0,0x1
0031 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0032 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
0033 e001 | | Load 0x0,0x1
0034 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0035 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
0036 e001 | | Load 0x0,0x1
0037 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0038 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0039 e004 | | Load 0x0,0x4
003a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
003b 029f 024b | K| Declare_Subprogram INIT_0248,For_Call
003d 4806 |H | Short_Literal 0x6
003e 032d | - | Declare_Type Record,Defined
003f e005 | | Load 0x0,0x5
0040 e006 | | Load 0x0,0x6
0041 4840 |H@ | Short_Literal 0x40
0042 00db | | Load_Top At_Offset_3
0043 4801 |H | Short_Literal 0x1
0044 e007 | | Load 0x0,0x7
0045 0387 | | Declare_Variable Package
0046 00d8 | | Load_Top At_Offset_0
0047 020f | | Execute Module,Activate
0048 00d8 | | Load_Top At_Offset_0
0049 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
004a e218 | | Load 0x1,0x18
004b 0325 | % | Complete_Type Record,By_Renaming
004c 00bf | | Action Accept_Activation
004d 00d8 | | Load_Top At_Offset_0
004e 1b12 | | Execute Package,Field_Read,Field_Number 0x12
004f 029d 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call
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 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0058 00c7 | | Action Elaborate_Subprogram
0059 1d11 | | Execute_Immediate Reference_Lex_1,0x11
005a 00c7 | | Action Elaborate_Subprogram
005b 1d12 | | Execute_Immediate Reference_Lex_1,0x12
005c 00c7 | | Action Elaborate_Subprogram
005d 1d13 | | Execute_Immediate Reference_Lex_1,0x13
005e 00c7 | | Action Elaborate_Subprogram
005f 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0060 00c7 | | Action Elaborate_Subprogram
0061 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0062 00c7 | | Action Elaborate_Subprogram
0063 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0064 00c7 | | Action Elaborate_Subprogram
0065 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0066 00c7 | | Action Elaborate_Subprogram
0067 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0068 00c7 | | Action Elaborate_Subprogram
0069 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
006a 00c7 | | Action Elaborate_Subprogram
006b 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
006c 00c7 | | Action Elaborate_Subprogram
006d BODY_0008:
006d 00da | | Load_Top At_Offset_2
006e 1b12 | | Execute Package,Field_Read,Field_Number 0x12
006f 00db | | Load_Top At_Offset_3
0070 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0071 003a | : | Store_Top Access,At_Offset_2
0072 00bc | | Action Signal_Activated
0073 00bb | | Action Signal_Completion
0074 0000 0000 | | .BLANK 0000[0x4]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 0082 | | .CONST 0x0082 ; Address of begin
0079 0095 | | .CONST 0x0095 ; Address of exception handler
007a 0004 | | .CONST 0x0004 ; Number of locals
007b INIT_0078:
007b e21d | | Load 0x1,0x1d
007c 0322 | " | Declare_Variable Record
007d 00d8 | | Load_Top At_Offset_0
007e 1c00 | | Execute_Immediate Run_Utility,0x0
007f 00e1 | | Load_Encached Boolean_Cache
0080 0092 026b | k| Action Push_String_Extended,0x26b ; "Initialize"
0082 BODY_0078:
0082 e5ff | | Load 0x2,-0x1
0083 e008 | | Load 0x0,0x8
0084 180d | | Execute Package,Field_Execute,Field_Number 0xd
0085 00e1 | | Load_Encached Boolean_Cache
0086 00db | | Load_Top At_Offset_3
0087 e5ff | | Load 0x2,-0x1
0088 e21f | | Load 0x1,0x1f
0089 e21e | | Load 0x1,0x1e
008a 1814 | | Execute Package,Field_Execute,Field_Number 0x14
008b 00d1 | | Pop_Control Pop_Count_1
008c 005a | Z | Store_Top Discrete,At_Offset_2
008d 00d9 | | Load_Top At_Offset_1
008e 6805 |h | Jump_Zero 0x94
008f e21f | | Load 0x1,0x1f
0090 e5ff | | Load 0x2,-0x1
0091 e21e | | Load 0x1,0x1e
0092 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0093 c21f | | Store 0x1,0x1f
0094 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0095 TRAP_0078:
0095 0007 | | Action Break_Optional
0096 e5fe | | Load 0x2,-0x2
0097 00da | | Load_Top At_Offset_2
0098 8220 | | Call 0x1,0x20
0099 c5fe | | Store 0x2,-0x2
009a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
009b 0000 0000 | | .BLANK 0000[0x5]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a8 | | .CONST 0x00a8 ; Address of begin
00a1 00e0 | | .CONST 0x00e0 ; Address of exception handler
00a2 0003 | | .CONST 0x0003 ; Number of locals
00a3 INIT_00a0:
00a3 00e1 | | Load_Encached Boolean_Cache
00a4 e21d | | Load 0x1,0x1d
00a5 0322 | " | Declare_Variable Record
00a6 00d8 | | Load_Top At_Offset_0
00a7 1c00 | | Execute_Immediate Run_Utility,0x0
00a8 BODY_00a0:
00a8 00e1 | | Load_Encached Boolean_Cache
00a9 00d9 | | Load_Top At_Offset_1
00aa e5ff | | Load 0x2,-0x1
00ab e21f | | Load 0x1,0x1f
00ac e21e | | Load 0x1,0x1e
00ad 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00ae 00d1 | | Pop_Control Pop_Count_1
00af 005a | Z | Store_Top Discrete,At_Offset_2
00b0 00d9 | | Load_Top At_Offset_1
00b1 680c |h | Jump_Zero 0xbe
00b2 e5f8 | | Load 0x2,-0x8
00b3 4802 |H | Short_Literal 0x2
00b4 e5ff | | Load 0x2,-0x1
00b5 0092 026c | l| Action Push_String_Extended,0x26c ; " is already registered."
00b7 01cc | | Execute Vector,Catenate
00b8 0092 026d | m| Action Push_String_Extended,0x26d ; "Register failed: "
00ba e009 | | Load 0x0,0x9
00bb 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00bc c5f8 | | Store 0x2,-0x8
00bd 4508 |E | Exit_Suprogram New_Top_Offset 0x8
00be e5ff | | Load 0x2,-0x1
00bf e008 | | Load 0x0,0x8
00c0 180e | | Execute Package,Field_Execute,Field_Number 0xe
00c1 e5fe | | Load 0x2,-0x2
00c2 00d9 | | Load_Top At_Offset_1
00c3 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00c4 e5fd | | Load 0x2,-0x3
00c5 00d9 | | Load_Top At_Offset_1
00c6 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00c7 e5fc | | Load 0x2,-0x4
00c8 00d9 | | Load_Top At_Offset_1
00c9 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00ca e5fb | | Load 0x2,-0x5
00cb 00d9 | | Load_Top At_Offset_1
00cc 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
00cd e5fa | | Load 0x2,-0x6
00ce 00d9 | | Load_Top At_Offset_1
00cf 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
00d0 e5f9 | | Load 0x2,-0x7
00d1 00d9 | | Load_Top At_Offset_1
00d2 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
00d3 e21f | | Load 0x1,0x1f
00d4 4800 |H | Short_Literal 0x0
00d5 00da | | Load_Top At_Offset_2
00d6 e5ff | | Load 0x2,-0x1
00d7 e21e | | Load 0x1,0x1e
00d8 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00d9 c21f | | Store 0x1,0x1f
00da e5f8 | | Load 0x2,-0x8
00db e5ff | | Load 0x2,-0x1
00dc e00a | | Load 0x0,0xa
00dd 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00de c5f8 | | Store 0x2,-0x8
00df 4508 |E | Exit_Suprogram New_Top_Offset 0x8
00e0 TRAP_00a0:
00e0 e008 | | Load 0x0,0x8
00e1 1b12 | | Execute Package,Field_Read,Field_Number 0x12
00e2 010f | | Execute Exception,Equal
00e3 680c |h | Jump_Zero 0xf0
00e4 e5f8 | | Load 0x2,-0x8
00e5 4802 |H | Short_Literal 0x2
00e6 e5ff | | Load 0x2,-0x1
00e7 0092 026e | n| Action Push_String_Extended,0x26e ; " is not initialized."
00e9 01cc | | Execute Vector,Catenate
00ea 0092 026f | o| Action Push_String_Extended,0x26f ; "Register failed: "
00ec e009 | | Load 0x0,0x9
00ed 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00ee c5f8 | | Store 0x2,-0x8
00ef 4508 |E | Exit_Suprogram New_Top_Offset 0x8
00f0 e5f8 | | Load 0x2,-0x8
00f1 0092 0270 | p| Action Push_String_Extended,0x270 ; "Register"
00f3 8220 | | Call 0x1,0x20
00f4 c5f8 | | Store 0x2,-0x8
00f5 4508 |E | Exit_Suprogram New_Top_Offset 0x8
00f6 0000 0000 | | .XXX[0x2]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 0100 | | .CONST 0x0100 ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0003 | | .CONST 0x0003 ; Number of locals
00fb INIT_00f8:
00fb 00e1 | | Load_Encached Boolean_Cache
00fc e21d | | Load 0x1,0x1d
00fd 0322 | " | Declare_Variable Record
00fe 00d8 | | Load_Top At_Offset_0
00ff 1c00 | | Execute_Immediate Run_Utility,0x0
0100 BODY_00f8:
0100 00e1 | | Load_Encached Boolean_Cache
0101 00d9 | | Load_Top At_Offset_1
0102 e5ff | | Load 0x2,-0x1
0103 e21f | | Load 0x1,0x1f
0104 e21e | | Load 0x1,0x1e
0105 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0106 00d1 | | Pop_Control Pop_Count_1
0107 005a | Z | Store_Top Discrete,At_Offset_2
0108 00d9 | | Load_Top At_Offset_1
0109 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
010a 0000 0000 | | .BLANK 0000[0x6]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0118 | | .CONST 0x0118 ; Address of begin
0111 0137 | 7 | .CONST 0x0137 ; Address of exception handler
0112 0003 | | .CONST 0x0003 ; Number of locals
0113 INIT_0110:
0113 00e1 | | Load_Encached Boolean_Cache
0114 e21d | | Load 0x1,0x1d
0115 0322 | " | Declare_Variable Record
0116 00d8 | | Load_Top At_Offset_0
0117 1c00 | | Execute_Immediate Run_Utility,0x0
0118 BODY_0110:
0118 00e1 | | Load_Encached Boolean_Cache
0119 00d9 | | Load_Top At_Offset_1
011a e5ff | | Load 0x2,-0x1
011b e21f | | Load 0x1,0x1f
011c e21e | | Load 0x1,0x1e
011d 1814 | | Execute Package,Field_Execute,Field_Number 0x14
011e 00d1 | | Pop_Control Pop_Count_1
011f 005a | Z | Store_Top Discrete,At_Offset_2
0120 00d9 | | Load_Top At_Offset_1
0121 700c |p | Jump_Nonzero 0x12e
0122 e5fd | | Load 0x2,-0x3
0123 4802 |H | Short_Literal 0x2
0124 e5ff | | Load 0x2,-0x1
0125 0092 0271 | q| Action Push_String_Extended,0x271 ; " is not registered."
0127 01cc | | Execute Vector,Catenate
0128 0092 0272 | r| Action Push_String_Extended,0x272 ; "Unregister failed: "
012a e009 | | Load 0x0,0x9
012b 181a | | Execute Package,Field_Execute,Field_Number 0x1a
012c c5fd | | Store 0x2,-0x3
012d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
012e e21f | | Load 0x1,0x1f
012f e5ff | | Load 0x2,-0x1
0130 e21e | | Load 0x1,0x1e
0131 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0132 c21f | | Store 0x1,0x1f
0133 e5ff | | Load 0x2,-0x1
0134 e008 | | Load 0x0,0x8
0135 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0136 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0137 TRAP_0110:
0137 e008 | | Load 0x0,0x8
0138 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0139 010f | | Execute Exception,Equal
013a 680c |h | Jump_Zero 0x147
013b e5fd | | Load 0x2,-0x3
013c 4802 |H | Short_Literal 0x2
013d e5ff | | Load 0x2,-0x1
013e 0092 026e | n| Action Push_String_Extended,0x26e ; " is not initialized."
0140 01cc | | Execute Vector,Catenate
0141 0092 0272 | r| Action Push_String_Extended,0x272 ; "Unregister failed: "
0143 e009 | | Load 0x0,0x9
0144 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0145 c5fd | | Store 0x2,-0x3
0146 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0147 e5fd | | Load 0x2,-0x3
0148 0092 0273 | s| Action Push_String_Extended,0x273 ; "Unregister"
014a 8220 | | Call 0x1,0x20
014b c5fd | | Store 0x2,-0x3
014c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
014d 0000 0000 | | .XXX[0x3]
014f 0000 | |
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0158 | X | .CONST 0x0158 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0003 | | .CONST 0x0003 ; Number of locals
0153 INIT_0150:
0153 e21d | | Load 0x1,0x1d
0154 0322 | " | Declare_Variable Record
0155 00d8 | | Load_Top At_Offset_0
0156 1c00 | | Execute_Immediate Run_Utility,0x0
0157 00e1 | | Load_Encached Boolean_Cache
0158 BODY_0150:
0158 00e1 | | Load_Encached Boolean_Cache
0159 00da | | Load_Top At_Offset_2
015a e5ff | | Load 0x2,-0x1
015b e00b | | Load 0x0,0xb
015c 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
015d e21f | | Load 0x1,0x1f
015e e21e | | Load 0x1,0x1e
015f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0160 00d1 | | Pop_Control Pop_Count_1
0161 0059 | Y | Store_Top Discrete,At_Offset_1
0162 00d8 | | Load_Top At_Offset_0
0163 7002 |p | Jump_Nonzero 0x166
0164 e217 | | Load 0x1,0x17
0165 0257 | W | Execute Discrete,Raise
0166 00d9 | | Load_Top At_Offset_1
0167 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0168 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0169 0000 0000 | | .BLANK 0000[0x7]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0178 | x | .CONST 0x0178 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0003 | | .CONST 0x0003 ; Number of locals
0173 INIT_0170:
0173 e21d | | Load 0x1,0x1d
0174 0322 | " | Declare_Variable Record
0175 00d8 | | Load_Top At_Offset_0
0176 1c00 | | Execute_Immediate Run_Utility,0x0
0177 00e1 | | Load_Encached Boolean_Cache
0178 BODY_0170:
0178 00e1 | | Load_Encached Boolean_Cache
0179 00da | | Load_Top At_Offset_2
017a e5ff | | Load 0x2,-0x1
017b e00b | | Load 0x0,0xb
017c 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
017d e21f | | Load 0x1,0x1f
017e e21e | | Load 0x1,0x1e
017f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0180 00d1 | | Pop_Control Pop_Count_1
0181 0059 | Y | Store_Top Discrete,At_Offset_1
0182 00d8 | | Load_Top At_Offset_0
0183 7002 |p | Jump_Nonzero 0x186
0184 e217 | | Load 0x1,0x17
0185 0257 | W | Execute Discrete,Raise
0186 00d9 | | Load_Top At_Offset_1
0187 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0188 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0189 0000 0000 | | .BLANK 0000[0x7]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0198 | | .CONST 0x0198 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0003 | | .CONST 0x0003 ; Number of locals
0193 INIT_0190:
0193 e21d | | Load 0x1,0x1d
0194 0322 | " | Declare_Variable Record
0195 00d8 | | Load_Top At_Offset_0
0196 1c00 | | Execute_Immediate Run_Utility,0x0
0197 00e1 | | Load_Encached Boolean_Cache
0198 BODY_0190:
0198 00e1 | | Load_Encached Boolean_Cache
0199 00da | | Load_Top At_Offset_2
019a e5ff | | Load 0x2,-0x1
019b e00b | | Load 0x0,0xb
019c 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
019d e21f | | Load 0x1,0x1f
019e e21e | | Load 0x1,0x1e
019f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01a0 00d1 | | Pop_Control Pop_Count_1
01a1 0059 | Y | Store_Top Discrete,At_Offset_1
01a2 00d8 | | Load_Top At_Offset_0
01a3 7002 |p | Jump_Nonzero 0x1a6
01a4 e217 | | Load 0x1,0x17
01a5 0257 | W | Execute Discrete,Raise
01a6 00d9 | | Load_Top At_Offset_1
01a7 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01a8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01a9 0000 0000 | | .BLANK 0000[0x7]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b8 | | .CONST 0x01b8 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0003 | | .CONST 0x0003 ; Number of locals
01b3 INIT_01b0:
01b3 e21d | | Load 0x1,0x1d
01b4 0322 | " | Declare_Variable Record
01b5 00d8 | | Load_Top At_Offset_0
01b6 1c00 | | Execute_Immediate Run_Utility,0x0
01b7 00e1 | | Load_Encached Boolean_Cache
01b8 BODY_01b0:
01b8 00e1 | | Load_Encached Boolean_Cache
01b9 00da | | Load_Top At_Offset_2
01ba e5ff | | Load 0x2,-0x1
01bb e00b | | Load 0x0,0xb
01bc 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
01bd e21f | | Load 0x1,0x1f
01be e21e | | Load 0x1,0x1e
01bf 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01c0 00d1 | | Pop_Control Pop_Count_1
01c1 0059 | Y | Store_Top Discrete,At_Offset_1
01c2 00d8 | | Load_Top At_Offset_0
01c3 7002 |p | Jump_Nonzero 0x1c6
01c4 e217 | | Load 0x1,0x17
01c5 0257 | W | Execute Discrete,Raise
01c6 00d9 | | Load_Top At_Offset_1
01c7 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
01c8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01c9 0000 0000 | | .BLANK 0000[0x7]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d8 | | .CONST 0x01d8 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0003 | | .CONST 0x0003 ; Number of locals
01d3 INIT_01d0:
01d3 e21d | | Load 0x1,0x1d
01d4 0322 | " | Declare_Variable Record
01d5 00d8 | | Load_Top At_Offset_0
01d6 1c00 | | Execute_Immediate Run_Utility,0x0
01d7 00e1 | | Load_Encached Boolean_Cache
01d8 BODY_01d0:
01d8 00e1 | | Load_Encached Boolean_Cache
01d9 00da | | Load_Top At_Offset_2
01da e5ff | | Load 0x2,-0x1
01db e00b | | Load 0x0,0xb
01dc 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
01dd e21f | | Load 0x1,0x1f
01de e21e | | Load 0x1,0x1e
01df 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01e0 00d1 | | Pop_Control Pop_Count_1
01e1 0059 | Y | Store_Top Discrete,At_Offset_1
01e2 00d8 | | Load_Top At_Offset_0
01e3 7002 |p | Jump_Nonzero 0x1e6
01e4 e217 | | Load 0x1,0x17
01e5 0257 | W | Execute Discrete,Raise
01e6 00d9 | | Load_Top At_Offset_1
01e7 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
01e8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01e9 0000 0000 | | .BLANK 0000[0x7]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f8 | | .CONST 0x01f8 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0003 | | .CONST 0x0003 ; Number of locals
01f3 INIT_01f0:
01f3 e21d | | Load 0x1,0x1d
01f4 0322 | " | Declare_Variable Record
01f5 00d8 | | Load_Top At_Offset_0
01f6 1c00 | | Execute_Immediate Run_Utility,0x0
01f7 00e1 | | Load_Encached Boolean_Cache
01f8 BODY_01f0:
01f8 00e1 | | Load_Encached Boolean_Cache
01f9 00da | | Load_Top At_Offset_2
01fa e5ff | | Load 0x2,-0x1
01fb e00b | | Load 0x0,0xb
01fc 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
01fd e21f | | Load 0x1,0x1f
01fe e21e | | Load 0x1,0x1e
01ff 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0200 00d1 | | Pop_Control Pop_Count_1
0201 0059 | Y | Store_Top Discrete,At_Offset_1
0202 00d8 | | Load_Top At_Offset_0
0203 7002 |p | Jump_Nonzero 0x206
0204 e217 | | Load 0x1,0x17
0205 0257 | W | Execute Discrete,Raise
0206 00d9 | | Load_Top At_Offset_1
0207 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0208 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0209 0000 0000 | | .BLANK 0000[0x7]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213 | | .CONST 0x0213 ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0001 | | .CONST 0x0001 ; Number of locals
0213 BODY_0210:
0213 INIT_0210:
0213 00da | | Load_Top At_Offset_2
0214 e21f | | Load 0x1,0x1f
0215 e21e | | Load 0x1,0x1e
0216 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0217 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021b | | .CONST 0x021b ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0001 | | .CONST 0x0001 ; Number of locals
021b BODY_0218:
021b INIT_0218:
021b 00da | | Load_Top At_Offset_2
021c e21e | | Load 0x1,0x1e
021d 181d | | Execute Package,Field_Execute,Field_Number 0x1d
021e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
021f 0000 | | .XXX[0x1]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223 | # | .CONST 0x0223 ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0001 | | .CONST 0x0001 ; Number of locals
0223 BODY_0220:
0223 INIT_0220:
0223 00da | | Load_Top At_Offset_2
0224 e21e | | Load 0x1,0x1e
0225 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0226 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0227 0000 | | .XXX[0x1]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022b | + | .CONST 0x022b ; Address of begin
0229 0004 | | .CONST 0x0004 ; Address of exception handler
022a 0001 | | .CONST 0x0001 ; Number of locals
022b BODY_0228:
022b INIT_0228:
022b 00da | | Load_Top At_Offset_2
022c e21e | | Load 0x1,0x1e
022d 181e | | Execute Package,Field_Execute,Field_Number 0x1e
022e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
022f 0000 | | .XXX[0x1]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233 | 3 | .CONST 0x0233 ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0001 | | .CONST 0x0001 ; Number of locals
0233 BODY_0230:
0233 INIT_0230:
0233 00db | | Load_Top At_Offset_3
0234 4802 |H | Short_Literal 0x2
0235 0092 0274 | t| Action Push_String_Extended,0x274 ; "with unhandled exception "
0237 4800 |H | Short_Literal 0x0
0238 4801 |H | Short_Literal 0x1
0239 e00c | | Load 0x0,0xc
023a 1815 | | Execute Package,Field_Execute,Field_Number 0x15
023b 01cc | | Execute Vector,Catenate
023c e5ff | | Load 0x2,-0x1
023d 0092 0275 | u| Action Push_String_Extended,0x275 ; " failed "
023f 01cc | | Execute Vector,Catenate
0240 e009 | | Load 0x0,0x9
0241 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0242 c5fe | | Store 0x2,-0x2
0243 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0244 0000 0000 | | .BLANK 0000[0x4]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024b | K | .CONST 0x024b ; Address of begin
0249 0004 | | .CONST 0x0004 ; Address of exception handler
024a 0001 | | .CONST 0x0001 ; Number of locals
024b BODY_0248:
024b INIT_0248:
024b 4608 |F | Jump_Case 0x9
024c 7808 |x | Jump 0x255 ; case 0x0
024d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
024e 781b |x | Jump 0x26a ; case 0x2
024f 781a |x | Jump 0x26a ; case 0x3
0250 7819 |x | Jump 0x26a ; case 0x4
0251 7818 |x | Jump 0x26a ; case 0x5
0252 7817 |x | Jump 0x26a ; case 0x6
0253 7816 |x | Jump 0x26a ; case 0x7
0254 7815 |x | Jump 0x26a ; case 0x8
0255 e001 | | Load 0x0,0x1
0256 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0257 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0258 00db | | Load_Top At_Offset_3
0259 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
025a e001 | | Load 0x0,0x1
025b 1b14 | | Execute Package,Field_Read,Field_Number 0x14
025c 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
025d 00db | | Load_Top At_Offset_3
025e 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
025f e001 | | Load 0x0,0x1
0260 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0261 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0262 00db | | Load_Top At_Offset_3
0263 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0264 e001 | | Load 0x0,0x1
0265 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0266 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0267 00db | | Load_Top At_Offset_3
0268 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0269 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
026a 0869 | i | Execute_Immediate Raise,0x69
026b ; --------------------------------------------------------------------------------------
026b ; STRING TABLE
026b ; --------------------------------------------------------------------------------------
026b 0018 | | .STRTAB 0x0018->0x0277 ; "Initialize"
026c 0020 | | .STRTAB 0x0020->0x027c ; " is already registered."
026d 0035 | 5 | .STRTAB 0x0035->0x0287 ; "Register failed: "
026e 0045 | E | .STRTAB 0x0045->0x0290 ; " is not initialized."
026f 0057 | W | .STRTAB 0x0057->0x029a ; "Register failed: "
0270 0066 | f | .STRTAB 0x0066->0x02a3 ; "Register"
0271 006c | l | .STRTAB 0x006c->0x02a7 ; " is not registered."
0272 007d | } | .STRTAB 0x007d->0x02b0 ; "Unregister failed: "
0273 008e | | .STRTAB 0x008e->0x02ba ; "Unregister"
0274 0096 | | .STRTAB 0x0096->0x02bf ; "with unhandled exception "
0275 00ad | | .STRTAB 0x00ad->0x02cb ; " failed "
0276 00b4 | | .STREND 0x00b4->0x02d0
0277 496e 6974 |Init| .STRTAB_STRINGS
02d0 ; --------------------------------------------------------------------------------------
02d0 ; Debug Table
02d0 ; --------------------------------------------------------------------------------------
02d0 0004 000c | | .DEBUG4 0x0004,0x000c,0x2e6a,0x0000,0x0001,0x0000
02d6 8000 0000 | | .XXX[0x2e]
02d8 8000 8601 | |
02da 8040 4061 | @@a|
02dc 9000 0000 | |
02de 1000 10c6 | |
02e0 6008 0820 |` |
02e2 7c00 aa29 || )|
02e4 8000 0000 | |
02e6 0005 39f8 | 9 |
02e8 0202 099a | |
02ea 8029 d760 | ) `|
02ec 1010 56c8 | V |
02ee 014e f800 | N |
02f0 8083 05e0 | |
02f2 0a79 a804 | y |
02f4 041b 2b00 | + |
02f6 53dc 8020 |S |
02f8 20f1 3800 | 8 |
02fa 0000 0101 | |
02fc 04cd 4000 | @ |
02fe 0000 8000 | |
0300 013a b0f4 | : |
0302 0001 d458 | X|
0304 0000 0000 | | .BLANK 0000[0x4]
0308 0415 b200 | | .XXX[0xe0]
030a 0000 0200 | |
030c 00d0 6f00 | o |
030e 8082 b65f | _|
0310 ffff ffc0 | |
0312 001a 1a40 | @|
0314 1010 60bc | ` |
0316 0000 0008 | |
0318 0003 44d4 | D |
031a 0202 0c17 | |
031c ffff fffe | |
031e 8000 68cc | h |
0320 0040 41b2 | @A |
0322 b000 0000 | |
0324 2000 12f7 | |
0326 c008 0836 | 6|
0328 57ff ffff |W |
032a f800 025f | _|
032c be01 0107 | |
032e 89c0 0000 | |
0330 0080 0000 | |
0332 0000 2020 | |
0334 f13f ffff | ? |
0336 ffd8 0000 | |
0338 0000 0404 | |
033a 10e2 0000 | |
033c 0005 0000 | |
033e ee9c 0080 | |
0340 821c 4000 | @ |
0342 0000 0000 | |
0344 1ddf e010 | |
0346 1096 3401 | 4 |
0348 599f 0000 |Y |
034a 0000 000a | |
034c a668 0404 | h |
034e 2884 0055 |( U|
0350 4280 2021 |B !|
0352 5808 02aa |X |
0354 8e01 010b | |
0356 7f40 1558 | @ X|
0358 4008 0861 |@ a|
035a f200 0000 | |
035c 0040 4288 | @B |
035e 4000 0000 |@ |
0360 2000 0000 | |
0362 0008 0851 | Q|
0364 09ff ffff | |
0366 fe00 0000 | |
0368 0001 010a | |
036a c040 0000 | @ |
036c 0080 0000 | |
036e 0000 2021 | !|
0370 580f ffff |X |
0372 fff0 0000 | |
0374 0000 0404 | |
0376 2dfd 0000 |- |
0378 0002 0001 | |
037a 3f14 0080 |? |
037c 85bf bfff | |
037e ffff a000 | |
0380 27ee e010 |' |
0382 10c3 e400 | |
0384 0000 0800 | |
0386 0000 0002 | |
0388 0218 7cff | | |
038a ffff fe00 | |
038c 0000 0000 | |
038e 4042 6310 |@Bc |
0390 0000 0040 | @|
0392 0012 56d0 | V |
0394 0808 4c62 | Lb|
0396 0000 0000 | |
0398 0002 4ba0 | K |
039a 0101 0df0 | |
039c 8015 eeb0 | |
039e 0000 0000 | |
03a0 00ad 0c80 | |
03a2 4043 ab90 |@C |
03a4 0569 5802 | iX |
03a6 021e 9b00 | |
03a8 2b52 6010 |+R` |
03aa 1100 c801 | |
03ac 5ad0 0080 |Z |
03ae 8865 c000 | e |
03b0 0000 0404 | |
03b2 3ab9 0000 |: |
03b4 0002 0001 | |
03b6 2df0 0080 |- |
03b8 8757 3fff | W? |
03ba ffff e000 | |
03bc 25ca 6010 |% ` |
03be 10f4 d800 | |
03c0 0000 0800 | |
03c2 03e5 8802 | |
03c4 021e 9b7f | |
03c6 ffff ff00 | |
03c8 007c e280 | | |
03ca 4044 0320 |@D |
03cc 0000 0020 | |
03ce 0011 c150 | P|
03d0 0808 8065 | e|
03d2 ffff fffa | |
03d4 0002 38f0 | 8 |
03d6 0101 10cb | |
03d8 8000 0000 | |
03da 8000 238c | # |
03dc 0020 2219 | " |
03de 77ff ffff |w |
03e0 e000 0474 | t|
03e2 9804 0438 | 8|
03e4 6600 0000 |f |
03e6 0400 0141 | A|
03e8 0000 0000 | | .BLANK 0000[0x4]
03ec 0016 ed0b | | .XXX[0x14]
03ee 0000 0006 | |
03f0 0001 0404 | |
03f2 0000 0700 | |
03f4 0016 ed0b | |
03f6 0000 1a70 | p|
03f8 fffe 0008 | |
03fa 0000 0001 | |
03fc 0000 0000 | |
03fe 0000 0008 | |