|
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: 3072 (0xc00) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_1884fe
└─⟦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 0348 | H | .CONST 0x0348 ; 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 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 00b1 | | .CONST 0x00b1 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0037 | 7 | .CONST 0x0037 ; Number of locals 000b INIT_0008: 000b 4802 |H | Short_Literal 0x2 000c 032b | + | Declare_Type Record,Incomplete,Visible 000d 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated 000f 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated 0011 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated 0013 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated 0015 4802 |H | Short_Literal 0x2 0016 032b | + | Declare_Type Record,Incomplete,Visible 0017 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 0019 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated 001b 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 001d 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated 001f 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated 0021 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated 0023 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated 0025 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated 0027 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated 0029 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated 002b 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated 002d 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated 002f 00e4 | | Load_Encached Positive_Cache 0030 0129 | ) | Execute Any,Make_Visible 0031 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated 0033 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated 0035 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated 0037 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated 0039 4800 |H | Short_Literal 0x0 003a 4801 |H | Short_Literal 0x1 003b 029f 022b | +| Declare_Subprogram INIT_0228,For_Call 003d 03fe | | Declare_Type Discrete,Defined,Visible 003e 029a 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call,Visible,Unelaborated 0040 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated 0042 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated 0044 029a 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call,Visible,Unelaborated 0046 029a 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call,Visible,Unelaborated 0048 029a 02e3 | | Declare_Subprogram INIT_02e0,For_Outer_Call,Visible,Unelaborated 004a e001 | | Load 0x0,0x1 004b 0129 | ) | Execute Any,Make_Visible 004c e002 | | Load 0x0,0x2 004d 0129 | ) | Execute Any,Make_Visible 004e e003 | | Load 0x0,0x3 004f 0129 | ) | Execute Any,Make_Visible 0050 e004 | | Load 0x0,0x4 0051 0129 | ) | Execute Any,Make_Visible 0052 e005 | | Load 0x0,0x5 0053 0129 | ) | Execute Any,Make_Visible 0054 e006 | | Load 0x0,0x6 0055 e007 | | Load 0x0,0x7 0056 4814 |H | Short_Literal 0x14 0057 e008 | | Load 0x0,0x8 0058 0387 | | Declare_Variable Package 0059 00d8 | | Load_Top At_Offset_0 005a 020f | | Execute Module,Activate 005b 00d8 | | Load_Top At_Offset_0 005c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 005d 00e1 | | Load_Encached Boolean_Cache 005e 029f 030b | | Declare_Subprogram INIT_0308,For_Call 0060 e20d | | Load 0x1,0xd 0061 0326 | & | Complete_Type Record,By_Defining 0062 e009 | | Load 0x0,0x9 0063 e00a | | Load 0x0,0xa 0064 e20d | | Load 0x1,0xd 0065 e00b | | Load 0x0,0xb 0066 0387 | | Declare_Variable Package 0067 00d8 | | Load_Top At_Offset_0 0068 020f | | Execute Module,Activate 0069 00d8 | | Load_Top At_Offset_0 006a 1b10 | | Execute Package,Field_Read,Field_Number 0x10 006b 00e1 | | Load_Encached Boolean_Cache 006c 029f 0323 | #| Declare_Subprogram INIT_0320,For_Call 006e e212 | | Load 0x1,0x12 006f 0326 | & | Complete_Type Record,By_Defining 0070 00bf | | Action Accept_Activation 0071 029d 02eb | | Declare_Subprogram INIT_02e8,For_Outer_Call 0073 029d 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call 0075 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0076 00c7 | | Action Elaborate_Subprogram 0077 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0078 00c7 | | Action Elaborate_Subprogram 0079 1d10 | | Execute_Immediate Reference_Lex_1,0x10 007a 00c7 | | Action Elaborate_Subprogram 007b 1d11 | | Execute_Immediate Reference_Lex_1,0x11 007c 00c7 | | Action Elaborate_Subprogram 007d 1d13 | | Execute_Immediate Reference_Lex_1,0x13 007e 00c7 | | Action Elaborate_Subprogram 007f 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0080 00c7 | | Action Elaborate_Subprogram 0081 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0082 00c7 | | Action Elaborate_Subprogram 0083 00da | | Load_Top At_Offset_2 0084 1914 | | Execute Package,Field_Reference,Field_Number 0x14 0085 00c6 | | Action Check_Subprogram_Elaborated 0086 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0087 e00c | | Load 0x0,0xc 0088 e00d | | Load 0x0,0xd 0089 4800 |H | Short_Literal 0x0 008a 0007 | | Action Break_Optional 008b 1d16 | | Execute_Immediate Reference_Lex_1,0x16 008c 00c7 | | Action Elaborate_Subprogram 008d 1d17 | | Execute_Immediate Reference_Lex_1,0x17 008e 00c7 | | Action Elaborate_Subprogram 008f 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0090 00c7 | | Action Elaborate_Subprogram 0091 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0092 00c7 | | Action Elaborate_Subprogram 0093 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0094 00c7 | | Action Elaborate_Subprogram 0095 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0096 00c7 | | Action Elaborate_Subprogram 0097 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0098 00c7 | | Action Elaborate_Subprogram 0099 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 009a 00c7 | | Action Elaborate_Subprogram 009b 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 009c 00c7 | | Action Elaborate_Subprogram 009d 1d20 | | Execute_Immediate Reference_Lex_1,0x20 009e 00c7 | | Action Elaborate_Subprogram 009f 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 00a0 00c7 | | Action Elaborate_Subprogram 00a1 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 00a2 00c7 | | Action Elaborate_Subprogram 00a3 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 00a4 00c7 | | Action Elaborate_Subprogram 00a5 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 00a6 00c7 | | Action Elaborate_Subprogram 00a7 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 00a8 00c7 | | Action Elaborate_Subprogram 00a9 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 00aa 00c7 | | Action Elaborate_Subprogram 00ab 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 00ac 00c7 | | Action Elaborate_Subprogram 00ad 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 00ae 00c7 | | Action Elaborate_Subprogram 00af 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 00b0 00c7 | | Action Elaborate_Subprogram 00b1 BODY_0008: 00b1 00bc | | Action Signal_Activated 00b2 00bb | | Action Signal_Completion 00b3 0000 0000 | | .BLANK 0000[0x5] 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00bf | | .CONST 0x00bf ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0002 | | .CONST 0x0002 ; Number of locals 00bb INIT_00b8: 00bb e20d | | Load 0x1,0xd 00bc 0322 | " | Declare_Variable Record 00bd 00d8 | | Load_Top At_Offset_0 00be 1c00 | | Execute_Immediate Run_Utility,0x0 00bf BODY_00b8: 00bf 00d8 | | Load_Top At_Offset_0 00c0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00c1 e5ff | | Load 0x2,-0x1 00c2 e230 | 0 | Load 0x1,0x30 00c3 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00c4 00d9 | | Load_Top At_Offset_1 00c5 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00c6 4801 |H | Short_Literal 0x1 00c7 00d9 | | Load_Top At_Offset_1 00c8 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00c9 00d8 | | Load_Top At_Offset_0 00ca 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00cb 0000 0000 | | .BLANK 0000[0x5] 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d3 | | .CONST 0x00d3 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0001 | | .CONST 0x0001 ; Number of locals 00d3 BODY_00d0: 00d3 INIT_00d0: 00d3 00ea | | Load_Encached Null_String_Cache 00d4 820e | | Call 0x1,0xe 00d5 00ca | | Action Exit_Nullary_Function 00d6 0000 0000 | | .XXX[0x2] 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00db | | .CONST 0x00db ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0001 | | .CONST 0x0001 ; Number of locals 00db BODY_00d8: 00db INIT_00d8: 00db 00da | | Load_Top At_Offset_2 00dc 8211 | | Call 0x1,0x11 00dd 820e | | Call 0x1,0xe 00de 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00df 0000 | | .XXX[0x1] 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 00da | | Load_Top At_Offset_2 00e4 8232 | 2 | Call 0x1,0x32 00e5 00da | | Load_Top At_Offset_2 00e6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00e7 e230 | 0 | Load 0x1,0x30 00e8 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00e9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00ea 0000 0000 | | .BLANK 0000[0x6] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00f7 | | .CONST 0x00f7 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0002 | | .CONST 0x0002 ; Number of locals 00f3 INIT_00f0: 00f3 e212 | | Load 0x1,0x12 00f4 0322 | " | Declare_Variable Record 00f5 00d8 | | Load_Top At_Offset_0 00f6 1c00 | | Execute_Immediate Run_Utility,0x0 00f7 BODY_00f0: 00f7 4801 |H | Short_Literal 0x1 00f8 00d9 | | Load_Top At_Offset_1 00f9 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00fa 00d8 | | Load_Top At_Offset_0 00fb 00ca | | Action Exit_Nullary_Function 00fc 0000 0000 | | .BLANK 0000[0x4] 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0103 | | .CONST 0x0103 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0001 | | .CONST 0x0001 ; Number of locals 0103 BODY_0100: 0103 INIT_0100: 0103 00da | | Load_Top At_Offset_2 0104 8233 | 3 | Call 0x1,0x33 0105 00da | | Load_Top At_Offset_2 0106 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0107 e231 | 1 | Load 0x1,0x31 0108 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0109 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 010a 0000 0000 | | .BLANK 0000[0x6] 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0113 | | .CONST 0x0113 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0001 | | .CONST 0x0001 ; Number of locals 0113 BODY_0110: 0113 INIT_0110: 0113 00da | | Load_Top At_Offset_2 0114 8233 | 3 | Call 0x1,0x33 0115 00da | | Load_Top At_Offset_2 0116 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0117 e231 | 1 | Load 0x1,0x31 0118 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0119 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 011a 0000 0000 | | .BLANK 0000[0x6] 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0127 | ' | .CONST 0x0127 ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0002 | | .CONST 0x0002 ; Number of locals 0123 INIT_0120: 0123 e212 | | Load 0x1,0x12 0124 0322 | " | Declare_Variable Record 0125 00d8 | | Load_Top At_Offset_0 0126 1c00 | | Execute_Immediate Run_Utility,0x0 0127 BODY_0120: 0127 00db | | Load_Top At_Offset_3 0128 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0129 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34 012a 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35 012b e231 | 1 | Load 0x1,0x31 012c 1814 | | Execute Package,Field_Execute,Field_Number 0x14 012d 00d9 | | Load_Top At_Offset_1 012e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 012f 4801 |H | Short_Literal 0x1 0130 00d9 | | Load_Top At_Offset_1 0131 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0132 00d8 | | Load_Top At_Offset_0 0133 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0134 0000 0000 | | .BLANK 0000[0x4] 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 00da | | Load_Top At_Offset_2 013c 8233 | 3 | Call 0x1,0x33 013d 00da | | Load_Top At_Offset_2 013e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 013f e231 | 1 | Load 0x1,0x31 0140 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0141 4501 |E | Exit_Suprogram New_Top_Offset 0x1 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 00da | | Load_Top At_Offset_2 014c 8233 | 3 | Call 0x1,0x33 014d 00da | | Load_Top At_Offset_2 014e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 014f e231 | 1 | Load 0x1,0x31 0150 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0151 4501 |E | Exit_Suprogram New_Top_Offset 0x1 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 00da | | Load_Top At_Offset_2 015c 8233 | 3 | Call 0x1,0x33 015d 00da | | Load_Top At_Offset_2 015e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 015f e231 | 1 | Load 0x1,0x31 0160 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0161 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0162 0000 0000 | | .BLANK 0000[0x6] 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 016b | k | .CONST 0x016b ; Address of begin 0169 0004 | | .CONST 0x0004 ; Address of exception handler 016a 0001 | | .CONST 0x0001 ; Number of locals 016b BODY_0168: 016b INIT_0168: 016b 00da | | Load_Top At_Offset_2 016c 8233 | 3 | Call 0x1,0x33 016d 00da | | Load_Top At_Offset_2 016e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 016f e231 | 1 | Load 0x1,0x31 0170 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0171 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0172 0000 0000 | | .BLANK 0000[0x6] 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 017b | { | .CONST 0x017b ; Address of begin 0179 0004 | | .CONST 0x0004 ; Address of exception handler 017a 0001 | | .CONST 0x0001 ; Number of locals 017b BODY_0178: 017b INIT_0178: 017b 00da | | Load_Top At_Offset_2 017c 8233 | 3 | Call 0x1,0x33 017d 00da | | Load_Top At_Offset_2 017e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 017f e231 | 1 | Load 0x1,0x31 0180 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0181 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0182 0000 0000 | | .BLANK 0000[0x6] 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 018b | | .CONST 0x018b ; Address of begin 0189 0192 | | .CONST 0x0192 ; Address of exception handler 018a 0001 | | .CONST 0x0001 ; Number of locals 018b BODY_0188: 018b INIT_0188: 018b 00da | | Load_Top At_Offset_2 018c 8233 | 3 | Call 0x1,0x33 018d 00da | | Load_Top At_Offset_2 018e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 018f e231 | 1 | Load 0x1,0x31 0190 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0191 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0192 TRAP_0188: 0192 e231 | 1 | Load 0x1,0x31 0193 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 0194 010f | | Execute Exception,Equal 0195 6802 |h | Jump_Zero 0x198 0196 e22d | - | Load 0x1,0x2d 0197 0257 | W | Execute Discrete,Raise 0198 0100 | | Execute Exception,Raise 0199 0000 0000 | | .BLANK 0000[0x7] 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01a3 | | .CONST 0x01a3 ; Address of begin 01a1 01aa | | .CONST 0x01aa ; Address of exception handler 01a2 0001 | | .CONST 0x0001 ; Number of locals 01a3 BODY_01a0: 01a3 INIT_01a0: 01a3 00da | | Load_Top At_Offset_2 01a4 8233 | 3 | Call 0x1,0x33 01a5 00da | | Load_Top At_Offset_2 01a6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01a7 e231 | 1 | Load 0x1,0x31 01a8 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01a9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01aa TRAP_01a0: 01aa e231 | 1 | Load 0x1,0x31 01ab 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a 01ac 010f | | Execute Exception,Equal 01ad 6802 |h | Jump_Zero 0x1b0 01ae e22e | . | Load 0x1,0x2e 01af 0257 | W | Execute Discrete,Raise 01b0 0100 | | Execute Exception,Raise 01b1 0000 0000 | | .BLANK 0000[0x7] 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01bb | | .CONST 0x01bb ; Address of begin 01b9 01c2 | | .CONST 0x01c2 ; Address of exception handler 01ba 0001 | | .CONST 0x0001 ; Number of locals 01bb BODY_01b8: 01bb INIT_01b8: 01bb 00da | | Load_Top At_Offset_2 01bc 8233 | 3 | Call 0x1,0x33 01bd 00da | | Load_Top At_Offset_2 01be 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01bf e231 | 1 | Load 0x1,0x31 01c0 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01c1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01c2 TRAP_01b8: 01c2 e231 | 1 | Load 0x1,0x31 01c3 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 01c4 010f | | Execute Exception,Equal 01c5 6802 |h | Jump_Zero 0x1c8 01c6 e22c | , | Load 0x1,0x2c 01c7 0257 | W | Execute Discrete,Raise 01c8 0100 | | Execute Exception,Raise 01c9 0000 0000 | | .BLANK 0000[0x7] 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01d3 | | .CONST 0x01d3 ; Address of begin 01d1 01da | | .CONST 0x01da ; Address of exception handler 01d2 0001 | | .CONST 0x0001 ; Number of locals 01d3 BODY_01d0: 01d3 INIT_01d0: 01d3 00da | | Load_Top At_Offset_2 01d4 8233 | 3 | Call 0x1,0x33 01d5 00da | | Load_Top At_Offset_2 01d6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01d7 e231 | 1 | Load 0x1,0x31 01d8 181e | | Execute Package,Field_Execute,Field_Number 0x1e 01d9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01da TRAP_01d0: 01da e231 | 1 | Load 0x1,0x31 01db 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 01dc 010f | | Execute Exception,Equal 01dd 6802 |h | Jump_Zero 0x1e0 01de e22c | , | Load 0x1,0x2c 01df 0257 | W | Execute Discrete,Raise 01e0 0100 | | Execute Exception,Raise 01e1 0000 0000 | | .BLANK 0000[0x7] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01eb | | .CONST 0x01eb ; Address of begin 01e9 01f3 | | .CONST 0x01f3 ; Address of exception handler 01ea 0001 | | .CONST 0x0001 ; Number of locals 01eb BODY_01e8: 01eb INIT_01e8: 01eb 00db | | Load_Top At_Offset_3 01ec 8233 | 3 | Call 0x1,0x33 01ed 00db | | Load_Top At_Offset_3 01ee 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01ef 00db | | Load_Top At_Offset_3 01f0 e231 | 1 | Load 0x1,0x31 01f1 181f | | Execute Package,Field_Execute,Field_Number 0x1f 01f2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01f3 TRAP_01e8: 01f3 e231 | 1 | Load 0x1,0x31 01f4 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b 01f5 010f | | Execute Exception,Equal 01f6 6802 |h | Jump_Zero 0x1f9 01f7 e22f | / | Load 0x1,0x2f 01f8 0257 | W | Execute Discrete,Raise 01f9 0100 | | Execute Exception,Raise 01fa 0000 0000 | | .BLANK 0000[0x6] 0200 ; -------------------------------------------------------------------------------------- 0200 ; SUBPROGRAM 0200 ; -------------------------------------------------------------------------------------- 0200 0203 | | .CONST 0x0203 ; Address of begin 0201 020b | | .CONST 0x020b ; Address of exception handler 0202 0001 | | .CONST 0x0001 ; Number of locals 0203 BODY_0200: 0203 INIT_0200: 0203 00db | | Load_Top At_Offset_3 0204 8233 | 3 | Call 0x1,0x33 0205 00db | | Load_Top At_Offset_3 0206 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0207 00db | | Load_Top At_Offset_3 0208 e231 | 1 | Load 0x1,0x31 0209 1820 | | Execute Package,Field_Execute,Field_Number 0x20 020a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 020b TRAP_0200: 020b e231 | 1 | Load 0x1,0x31 020c 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b 020d 010f | | Execute Exception,Equal 020e 6802 |h | Jump_Zero 0x211 020f e22f | / | Load 0x1,0x2f 0210 0257 | W | Execute Discrete,Raise 0211 0100 | | Execute Exception,Raise 0212 0000 0000 | | .BLANK 0000[0x6] 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 00db | | Load_Top At_Offset_3 021c 8233 | 3 | Call 0x1,0x33 021d 00da | | Load_Top At_Offset_2 021e 8232 | 2 | Call 0x1,0x32 021f 00db | | Load_Top At_Offset_3 0220 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0221 00db | | Load_Top At_Offset_3 0222 e231 | 1 | Load 0x1,0x31 0223 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0224 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0225 0000 0000 | | .XXX[0x3] 0227 0000 | | 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 4607 |F | Jump_Case 0x8 022c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 022d 7806 |x | Jump 0x234 ; case 0x1 022e 7809 |x | Jump 0x238 ; case 0x2 022f 780d |x | Jump 0x23d ; case 0x3 0230 7810 |x | Jump 0x241 ; case 0x4 0231 7811 |x | Jump 0x243 ; case 0x5 0232 7812 |x | Jump 0x245 ; case 0x6 0233 7815 |x | Jump 0x249 ; case 0x7 0234 00da | | Load_Top At_Offset_2 0235 0091 0336 | 6| Action Push_String_Extended_Indexed,0x336 ; "PRECEEDING" 0237 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0238 00db | | Load_Top At_Offset_3 0239 00db | | Load_Top At_Offset_3 023a 00e0 | | Load_Encached Standard_Cache 023b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 023c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 023d 00da | | Load_Top At_Offset_2 023e 00e0 | | Load_Encached Standard_Cache 023f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0240 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0241 00db | | Load_Top At_Offset_3 0242 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0243 00db | | Load_Top At_Offset_3 0244 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0245 e224 | $ | Load 0x1,0x24 0246 00dc | | Load_Top At_Offset_4 0247 0267 | g | Execute Discrete,Predecessor 0248 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0249 e224 | $ | Load 0x1,0x24 024a 00dc | | Load_Top At_Offset_4 024b 0268 | h | Execute Discrete,Successor 024c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 024d 0000 0000 | | .XXX[0x3] 024f 0000 | | 0250 ; -------------------------------------------------------------------------------------- 0250 ; SUBPROGRAM 0250 ; -------------------------------------------------------------------------------------- 0250 0253 | S | .CONST 0x0253 ; Address of begin 0251 0269 | i | .CONST 0x0269 ; Address of exception handler 0252 0001 | | .CONST 0x0001 ; Number of locals 0253 BODY_0250: 0253 INIT_0250: 0253 e5fd | | Load 0x2,-0x3 0254 8233 | 3 | Call 0x1,0x33 0255 00da | | Load_Top At_Offset_2 0256 8232 | 2 | Call 0x1,0x32 0257 00db | | Load_Top At_Offset_3 0258 6808 |h | Jump_Zero 0x261 0259 e5fd | | Load 0x2,-0x3 025a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 025b 4801 |H | Short_Literal 0x1 025c e5ff | | Load 0x2,-0x1 025d e231 | 1 | Load 0x1,0x31 025e 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 025f 00d1 | | Pop_Control Pop_Count_1 0260 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0261 e5fd | | Load 0x2,-0x3 0262 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0263 4800 |H | Short_Literal 0x0 0264 e5ff | | Load 0x2,-0x1 0265 e231 | 1 | Load 0x1,0x31 0266 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0267 00d1 | | Pop_Control Pop_Count_1 0268 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0269 TRAP_0250: 0269 e231 | 1 | Load 0x1,0x31 026a 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 026b 010f | | Execute Exception,Equal 026c 6802 |h | Jump_Zero 0x26f 026d e22c | , | Load 0x1,0x2c 026e 0257 | W | Execute Discrete,Raise 026f 0100 | | Execute Exception,Raise 0270 ; -------------------------------------------------------------------------------------- 0270 ; SUBPROGRAM 0270 ; -------------------------------------------------------------------------------------- 0270 0273 | s | .CONST 0x0273 ; Address of begin 0271 028b | | .CONST 0x028b ; Address of exception handler 0272 0001 | | .CONST 0x0001 ; Number of locals 0273 BODY_0270: 0273 INIT_0270: 0273 e5fc | | Load 0x2,-0x4 0274 8233 | 3 | Call 0x1,0x33 0275 00da | | Load_Top At_Offset_2 0276 8232 | 2 | Call 0x1,0x32 0277 e5fd | | Load 0x2,-0x3 0278 6809 |h | Jump_Zero 0x282 0279 e5fc | | Load 0x2,-0x4 027a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 027b 4801 |H | Short_Literal 0x1 027c e5fe | | Load 0x2,-0x2 027d e5ff | | Load 0x2,-0x1 027e e231 | 1 | Load 0x1,0x31 027f 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0280 00d1 | | Pop_Control Pop_Count_1 0281 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0282 e5fc | | Load 0x2,-0x4 0283 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0284 4800 |H | Short_Literal 0x0 0285 e5fe | | Load 0x2,-0x2 0286 e5ff | | Load 0x2,-0x1 0287 e231 | 1 | Load 0x1,0x31 0288 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0289 00d1 | | Pop_Control Pop_Count_1 028a 4504 |E | Exit_Suprogram New_Top_Offset 0x4 028b TRAP_0270: 028b e231 | 1 | Load 0x1,0x31 028c 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b 028d 010f | | Execute Exception,Equal 028e 6802 |h | Jump_Zero 0x291 028f e22f | / | Load 0x1,0x2f 0290 0257 | W | Execute Discrete,Raise 0291 0100 | | Execute Exception,Raise 0292 0000 0000 | | .BLANK 0000[0x6] 0298 ; -------------------------------------------------------------------------------------- 0298 ; SUBPROGRAM 0298 ; -------------------------------------------------------------------------------------- 0298 029b | | .CONST 0x029b ; Address of begin 0299 02a5 | | .CONST 0x02a5 ; Address of exception handler 029a 0001 | | .CONST 0x0001 ; Number of locals 029b BODY_0298: 029b INIT_0298: 029b 00db | | Load_Top At_Offset_3 029c 8233 | 3 | Call 0x1,0x33 029d 00da | | Load_Top At_Offset_2 029e 8232 | 2 | Call 0x1,0x32 029f 00db | | Load_Top At_Offset_3 02a0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02a1 00db | | Load_Top At_Offset_3 02a2 e231 | 1 | Load 0x1,0x31 02a3 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 02a4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02a5 TRAP_0298: 02a5 e231 | 1 | Load 0x1,0x31 02a6 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 02a7 010f | | Execute Exception,Equal 02a8 6802 |h | Jump_Zero 0x2ab 02a9 e22c | , | Load 0x1,0x2c 02aa 0257 | W | Execute Discrete,Raise 02ab 0100 | | Execute Exception,Raise 02ac 0000 0000 | | .BLANK 0000[0x4] 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; SUBPROGRAM 02b0 ; -------------------------------------------------------------------------------------- 02b0 02b3 | | .CONST 0x02b3 ; Address of begin 02b1 02ba | | .CONST 0x02ba ; Address of exception handler 02b2 0001 | | .CONST 0x0001 ; Number of locals 02b3 BODY_02b0: 02b3 INIT_02b0: 02b3 00da | | Load_Top At_Offset_2 02b4 8233 | 3 | Call 0x1,0x33 02b5 00da | | Load_Top At_Offset_2 02b6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02b7 e231 | 1 | Load 0x1,0x31 02b8 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 02b9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02ba TRAP_02b0: 02ba e231 | 1 | Load 0x1,0x31 02bb 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 02bc 010f | | Execute Exception,Equal 02bd 6802 |h | Jump_Zero 0x2c0 02be e22c | , | Load 0x1,0x2c 02bf 0257 | W | Execute Discrete,Raise 02c0 0100 | | Execute Exception,Raise 02c1 0000 0000 | | .BLANK 0000[0x7] 02c8 ; -------------------------------------------------------------------------------------- 02c8 ; SUBPROGRAM 02c8 ; -------------------------------------------------------------------------------------- 02c8 02cb | | .CONST 0x02cb ; Address of begin 02c9 02d3 | | .CONST 0x02d3 ; Address of exception handler 02ca 0001 | | .CONST 0x0001 ; Number of locals 02cb BODY_02c8: 02cb INIT_02c8: 02cb 00db | | Load_Top At_Offset_3 02cc 8233 | 3 | Call 0x1,0x33 02cd 00db | | Load_Top At_Offset_3 02ce 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02cf 00db | | Load_Top At_Offset_3 02d0 e231 | 1 | Load 0x1,0x31 02d1 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 02d2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02d3 TRAP_02c8: 02d3 e231 | 1 | Load 0x1,0x31 02d4 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b 02d5 010f | | Execute Exception,Equal 02d6 6802 |h | Jump_Zero 0x2d9 02d7 e22f | / | Load 0x1,0x2f 02d8 0257 | W | Execute Discrete,Raise 02d9 0100 | | Execute Exception,Raise 02da 0000 0000 | | .BLANK 0000[0x6] 02e0 ; -------------------------------------------------------------------------------------- 02e0 ; SUBPROGRAM 02e0 ; -------------------------------------------------------------------------------------- 02e0 02e3 | | .CONST 0x02e3 ; Address of begin 02e1 0004 | | .CONST 0x0004 ; Address of exception handler 02e2 0001 | | .CONST 0x0001 ; Number of locals 02e3 BODY_02e0: 02e3 INIT_02e0: 02e3 00da | | Load_Top At_Offset_2 02e4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02e5 e231 | 1 | Load 0x1,0x31 02e6 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 02e7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02e8 ; -------------------------------------------------------------------------------------- 02e8 ; SUBPROGRAM 02e8 ; -------------------------------------------------------------------------------------- 02e8 02eb | | .CONST 0x02eb ; Address of begin 02e9 0004 | | .CONST 0x0004 ; Address of exception handler 02ea 0001 | | .CONST 0x0001 ; Number of locals 02eb BODY_02e8: 02eb INIT_02e8: 02eb 00da | | Load_Top At_Offset_2 02ec 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02ed 7002 |p | Jump_Nonzero 0x2f0 02ee e22b | + | Load 0x1,0x2b 02ef 0257 | W | Execute Discrete,Raise 02f0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02f1 0000 0000 | | .BLANK 0000[0x7] 02f8 ; -------------------------------------------------------------------------------------- 02f8 ; SUBPROGRAM 02f8 ; -------------------------------------------------------------------------------------- 02f8 02fb | | .CONST 0x02fb ; Address of begin 02f9 0004 | | .CONST 0x0004 ; Address of exception handler 02fa 0001 | | .CONST 0x0001 ; Number of locals 02fb BODY_02f8: 02fb INIT_02f8: 02fb 00da | | Load_Top At_Offset_2 02fc 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02fd 7002 |p | Jump_Nonzero 0x300 02fe e22b | + | Load 0x1,0x2b 02ff 0257 | W | Execute Discrete,Raise 0300 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0301 0000 0000 | | .BLANK 0000[0x7] 0308 ; -------------------------------------------------------------------------------------- 0308 ; SUBPROGRAM 0308 ; -------------------------------------------------------------------------------------- 0308 030b | | .CONST 0x030b ; Address of begin 0309 0004 | | .CONST 0x0004 ; Address of exception handler 030a 0001 | | .CONST 0x0001 ; Number of locals 030b BODY_0308: 030b INIT_0308: 030b 4608 |F | Jump_Case 0x9 030c 7808 |x | Jump 0x315 ; case 0x0 030d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 030e 780a |x | Jump 0x319 ; case 0x2 030f 7809 |x | Jump 0x319 ; case 0x3 0310 7808 |x | Jump 0x319 ; case 0x4 0311 7807 |x | Jump 0x319 ; case 0x5 0312 7806 |x | Jump 0x319 ; case 0x6 0313 7805 |x | Jump 0x319 ; case 0x7 0314 7804 |x | Jump 0x319 ; case 0x8 0315 4800 |H | Short_Literal 0x0 0316 00db | | Load_Top At_Offset_3 0317 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0318 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0319 0869 | i | Execute_Immediate Raise,0x69 031a 0000 0000 | | .BLANK 0000[0x6] 0320 ; -------------------------------------------------------------------------------------- 0320 ; SUBPROGRAM 0320 ; -------------------------------------------------------------------------------------- 0320 0323 | # | .CONST 0x0323 ; Address of begin 0321 0004 | | .CONST 0x0004 ; Address of exception handler 0322 0001 | | .CONST 0x0001 ; Number of locals 0323 BODY_0320: 0323 INIT_0320: 0323 4608 |F | Jump_Case 0x9 0324 7808 |x | Jump 0x32d ; case 0x0 0325 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0326 780e |x | Jump 0x335 ; case 0x2 0327 780d |x | Jump 0x335 ; case 0x3 0328 780c |x | Jump 0x335 ; case 0x4 0329 780b |x | Jump 0x335 ; case 0x5 032a 780a |x | Jump 0x335 ; case 0x6 032b 7809 |x | Jump 0x335 ; case 0x7 032c 7808 |x | Jump 0x335 ; case 0x8 032d e231 | 1 | Load 0x1,0x31 032e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 032f 00db | | Load_Top At_Offset_3 0330 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0331 4800 |H | Short_Literal 0x0 0332 00db | | Load_Top At_Offset_3 0333 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0334 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0335 0869 | i | Execute_Immediate Raise,0x69 0336 ; -------------------------------------------------------------------------------------- 0336 ; STRING TABLE 0336 ; -------------------------------------------------------------------------------------- 0336 0006 | | .STRTAB 0x0006->0x0339 ; "PRECEEDING" 0337 000e | | .STRTAB 0x000e->0x033e ; "FOLLOWING" 0338 0015 | | .STREND 0x0015->0x0342 0339 5052 4543 |PREC| .STRTAB_STRINGS 0343 0000 0000 | | .BLANK 0000[0x5] 0348 ; -------------------------------------------------------------------------------------- 0348 ; Debug Table 0348 ; -------------------------------------------------------------------------------------- 0348 0004 0001 | | .DEBUG4 0x0004,0x0001,0x7146,0x0000,0x0001,0x0021 034e 000b 03d2 | | .DBG4T 0x000b,0x03d2,0x8000,0x0000 0352 0071 03fb | q | .DBG4T 0x0071,0x03fb,0x8000,0x0000 0356 00bb 041a | | .DBG4T 0x00bb,0x041a,0x0002,0x0000 035a 00d3 0420 | | .DBG4T 0x00d3,0x0420,0x0002,0x0000 035e 00db 0423 | #| .DBG4T 0x00db,0x0423,0x0002,0x0000 0362 00e3 0426 | &| .DBG4T 0x00e3,0x0426,0x0002,0x0000 0366 00f3 042a | *| .DBG4T 0x00f3,0x042a,0x0002,0x0000 036a 0103 042f | /| .DBG4T 0x0103,0x042f,0x0002,0x0000 036e 0113 0433 | 3| .DBG4T 0x0113,0x0433,0x0002,0x0000 0372 0123 0437 | # 7| .DBG4T 0x0123,0x0437,0x0002,0x0000 0376 013b 043d | ; =| .DBG4T 0x013b,0x043d,0x0001,0x0000 037a 014b 0441 | K A| .DBG4T 0x014b,0x0441,0x0001,0x0000 037e 015b 0445 | [ E| .DBG4T 0x015b,0x0445,0x0002,0x0000 0382 016b 0449 | k I| .DBG4T 0x016b,0x0449,0x0002,0x0000 0386 017b 044d | { M| .DBG4T 0x017b,0x044d,0x0002,0x0000 038a 018b 0451 | Q| .DBG4T 0x018b,0x0451,0x0001,0x0000 038e 01a3 0456 | V| .DBG4T 0x01a3,0x0456,0x0001,0x0000 0392 01bb 045b | [| .DBG4T 0x01bb,0x045b,0x0002,0x0000 0396 01d3 0460 | `| .DBG4T 0x01d3,0x0460,0x0002,0x0000 039a 01eb 0465 | e| .DBG4T 0x01eb,0x0465,0x0001,0x0000 039e 0203 046a | j| .DBG4T 0x0203,0x046a,0x0002,0x0000 03a2 021b 046f | o| .DBG4T 0x021b,0x046f,0x0001,0x0000 03a6 022b 0000 | + | .DBG4T 0x022b,0x0000,0x0005,0x0000 03aa 0253 0474 | S t| .DBG4T 0x0253,0x0474,0x0001,0x4000 03ae 0273 0482 | s | .DBG4T 0x0273,0x0482,0x0001,0x4000 03b2 029b 0490 | | .DBG4T 0x029b,0x0490,0x0001,0x0000 03b6 02b3 0496 | | .DBG4T 0x02b3,0x0496,0x0001,0x0000 03ba 02cb 049b | | .DBG4T 0x02cb,0x049b,0x0001,0x0000 03be 02e3 04a0 | | .DBG4T 0x02e3,0x04a0,0x0001,0x0000 03c2 02eb 04a3 | | .DBG4T 0x02eb,0x04a3,0x0001,0x0000 03c6 02fb 04a7 | | .DBG4T 0x02fb,0x04a7,0x0001,0x0000 03ca 030b 0000 | | .DBG4T 0x030b,0x0000,0x0005,0x0000 03ce 0323 0000 | # | .DBG4T 0x0323,0x0000,0x0005,0x0000 03d2 ; -------------------------------------------------------------------------------------- 03d2 ; Debug chain 03d2 ; -------------------------------------------------------------------------------------- 03d2 0027 0000 | ' | .DBGLEN 0x0027,0x0000 03d4 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b,0x002d,0x002f,0x0031,0x0033,0x0035,0x0037,0x0039,0x003e,0x0040,0x0042,0x0044,0x0046,0x0048,0x004a,0x004c,0x004e,0x0050,0x0052,0x0054,0x005b,0x0062,0x0069 03fb ; -------------------------------------------------------------------------------------- 03fb ; Debug chain 03fb ; -------------------------------------------------------------------------------------- 03fb 001d 0000 | | .DBGLEN 0x001d,0x0000 03fd 0071 0073 | q s| .DBGLNO 0x0071,0x0073,0x0075,0x0077,0x0079,0x007b,0x007d,0x007f,0x0081,0x0083,0x008b,0x008d,0x008f,0x0091,0x0093,0x0095,0x0097,0x0099,0x009b,0x009d,0x009f,0x00a1,0x00a3,0x00a5,0x00a7,0x00a9,0x00ab,0x00ad,0x00af 041a ; -------------------------------------------------------------------------------------- 041a ; Debug chain 041a ; -------------------------------------------------------------------------------------- 041a 0001 0003 | | .DBGLEN 0x0001,0x0003 041c 00bb 00bf | | .DBGLNO 0x00bb,0x00bf,0x00c6,0x00c9 0420 ; -------------------------------------------------------------------------------------- 0420 ; Debug chain 0420 ; -------------------------------------------------------------------------------------- 0420 0000 0001 | | .DBGLEN 0x0000,0x0001 0422 00d3 | | .DBGLNO 0x00d3 0423 ; -------------------------------------------------------------------------------------- 0423 ; Debug chain 0423 ; -------------------------------------------------------------------------------------- 0423 0000 0001 | | .DBGLEN 0x0000,0x0001 0425 00db | | .DBGLNO 0x00db 0426 ; -------------------------------------------------------------------------------------- 0426 ; Debug chain 0426 ; -------------------------------------------------------------------------------------- 0426 0000 0002 | | .DBGLEN 0x0000,0x0002 0428 00e3 00e5 | | .DBGLNO 0x00e3,0x00e5 042a ; -------------------------------------------------------------------------------------- 042a ; Debug chain 042a ; -------------------------------------------------------------------------------------- 042a 0001 0002 | | .DBGLEN 0x0001,0x0002 042c 00f3 00f7 | | .DBGLNO 0x00f3,0x00f7,0x00fa 042f ; -------------------------------------------------------------------------------------- 042f ; Debug chain 042f ; -------------------------------------------------------------------------------------- 042f 0000 0002 | | .DBGLEN 0x0000,0x0002 0431 0103 0105 | | .DBGLNO 0x0103,0x0105 0433 ; -------------------------------------------------------------------------------------- 0433 ; Debug chain 0433 ; -------------------------------------------------------------------------------------- 0433 0000 0002 | | .DBGLEN 0x0000,0x0002 0435 0113 0115 | | .DBGLNO 0x0113,0x0115 0437 ; -------------------------------------------------------------------------------------- 0437 ; Debug chain 0437 ; -------------------------------------------------------------------------------------- 0437 0001 0003 | | .DBGLEN 0x0001,0x0003 0439 0123 0127 | # '| .DBGLNO 0x0123,0x0127,0x012f,0x0132 043d ; -------------------------------------------------------------------------------------- 043d ; Debug chain 043d ; -------------------------------------------------------------------------------------- 043d 0000 0002 | | .DBGLEN 0x0000,0x0002 043f 013b 013d | ; =| .DBGLNO 0x013b,0x013d 0441 ; -------------------------------------------------------------------------------------- 0441 ; Debug chain 0441 ; -------------------------------------------------------------------------------------- 0441 0000 0002 | | .DBGLEN 0x0000,0x0002 0443 014b 014d | K M| .DBGLNO 0x014b,0x014d 0445 ; -------------------------------------------------------------------------------------- 0445 ; Debug chain 0445 ; -------------------------------------------------------------------------------------- 0445 0000 0002 | | .DBGLEN 0x0000,0x0002 0447 015b 015d | [ ]| .DBGLNO 0x015b,0x015d 0449 ; -------------------------------------------------------------------------------------- 0449 ; Debug chain 0449 ; -------------------------------------------------------------------------------------- 0449 0000 0002 | | .DBGLEN 0x0000,0x0002 044b 016b 016d | k m| .DBGLNO 0x016b,0x016d 044d ; -------------------------------------------------------------------------------------- 044d ; Debug chain 044d ; -------------------------------------------------------------------------------------- 044d 0000 0002 | | .DBGLEN 0x0000,0x0002 044f 017b 017d | { }| .DBGLNO 0x017b,0x017d 0451 ; -------------------------------------------------------------------------------------- 0451 ; Debug chain 0451 ; -------------------------------------------------------------------------------------- 0451 0000 0003 | | .DBGLEN 0x0000,0x0003 0453 018b 018d | | .DBGLNO 0x018b,0x018d,0x0196 0456 ; -------------------------------------------------------------------------------------- 0456 ; Debug chain 0456 ; -------------------------------------------------------------------------------------- 0456 0000 0003 | | .DBGLEN 0x0000,0x0003 0458 01a3 01a5 | | .DBGLNO 0x01a3,0x01a5,0x01ae 045b ; -------------------------------------------------------------------------------------- 045b ; Debug chain 045b ; -------------------------------------------------------------------------------------- 045b 0000 0003 | | .DBGLEN 0x0000,0x0003 045d 01bb 01bd | | .DBGLNO 0x01bb,0x01bd,0x01c6 0460 ; -------------------------------------------------------------------------------------- 0460 ; Debug chain 0460 ; -------------------------------------------------------------------------------------- 0460 0000 0003 | | .DBGLEN 0x0000,0x0003 0462 01d3 01d5 | | .DBGLNO 0x01d3,0x01d5,0x01de 0465 ; -------------------------------------------------------------------------------------- 0465 ; Debug chain 0465 ; -------------------------------------------------------------------------------------- 0465 0000 0003 | | .DBGLEN 0x0000,0x0003 0467 01eb 01ed | | .DBGLNO 0x01eb,0x01ed,0x01f7 046a ; -------------------------------------------------------------------------------------- 046a ; Debug chain 046a ; -------------------------------------------------------------------------------------- 046a 0000 0003 | | .DBGLEN 0x0000,0x0003 046c 0203 0205 | | .DBGLNO 0x0203,0x0205,0x020f 046f ; -------------------------------------------------------------------------------------- 046f ; Debug chain 046f ; -------------------------------------------------------------------------------------- 046f 0000 0003 | | .DBGLEN 0x0000,0x0003 0471 021b 021d | | .DBGLNO 0x021b,0x021d,0x021f 0474 ; -------------------------------------------------------------------------------------- 0474 ; Debug chain 0474 ; -------------------------------------------------------------------------------------- 0474 0000 0006 | | .DBGLEN 0x0000,0x0006 0476 0253 0255 | S U| .DBGLNO 0x0253,0x0255,0x0257,0x0259,0x0261,0x026d 047c 0001 0002 | | .XXX[0x6] 047e 0003 0005 | | 0480 0004 0006 | | 0482 ; -------------------------------------------------------------------------------------- 0482 ; Debug chain 0482 ; -------------------------------------------------------------------------------------- 0482 0000 0006 | | .DBGLEN 0x0000,0x0006 0484 0273 0275 | s u| .DBGLNO 0x0273,0x0275,0x0277,0x0279,0x0282,0x028f 048a 0001 0002 | | .XXX[0x6] 048c 0003 0005 | | 048e 0004 0006 | | 0490 ; -------------------------------------------------------------------------------------- 0490 ; Debug chain 0490 ; -------------------------------------------------------------------------------------- 0490 0000 0004 | | .DBGLEN 0x0000,0x0004 0492 029b 029d | | .DBGLNO 0x029b,0x029d,0x029f,0x02a9 0496 ; -------------------------------------------------------------------------------------- 0496 ; Debug chain 0496 ; -------------------------------------------------------------------------------------- 0496 0000 0003 | | .DBGLEN 0x0000,0x0003 0498 02b3 02b5 | | .DBGLNO 0x02b3,0x02b5,0x02be 049b ; -------------------------------------------------------------------------------------- 049b ; Debug chain 049b ; -------------------------------------------------------------------------------------- 049b 0000 0003 | | .DBGLEN 0x0000,0x0003 049d 02cb 02cd | | .DBGLNO 0x02cb,0x02cd,0x02d7 04a0 ; -------------------------------------------------------------------------------------- 04a0 ; Debug chain 04a0 ; -------------------------------------------------------------------------------------- 04a0 0000 0001 | | .DBGLEN 0x0000,0x0001 04a2 02e3 | | .DBGLNO 0x02e3 04a3 ; -------------------------------------------------------------------------------------- 04a3 ; Debug chain 04a3 ; -------------------------------------------------------------------------------------- 04a3 0000 0002 | | .DBGLEN 0x0000,0x0002 04a5 02eb 02ee | | .DBGLNO 0x02eb,0x02ee 04a7 ; -------------------------------------------------------------------------------------- 04a7 ; Debug chain 04a7 ; -------------------------------------------------------------------------------------- 04a7 0000 0002 | | .DBGLEN 0x0000,0x0002 04a9 02fb 02fe | | .DBGLNO 0x02fb,0x02fe 04ab 0000 0000 | | .BLANK 0000[0x155]