|
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, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0ea8df
└─⟦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 5813 |X | .CONST 0x5813 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0270 | p | .CONST 0x0270 ; 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 007e | ~ | .CONST 0x007e ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0025 | % | .CONST 0x0025 ; Number of locals 000b INIT_0008: 000b e001 | | Load 0x0,0x1 ; Debug Table 0x0 = .DEBUG 0x000b,0x0322,0x8000,0x0000,0x0059,0xebf5,0x0000,0x000d ; Debug Table 0x0.0x0 = 0xb,0xffff 000c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 000d 0129 | ) | Execute Any,Make_Visible 000e e002 | | Load 0x0,0x2 ; Debug Table 0x0.0x1 = 0xe,0xfffe 000f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0010 0129 | ) | Execute Any,Make_Visible 0011 e003 | | Load 0x0,0x3 ; Debug Table 0x0.0x2 = 0x11,0xfffd 0012 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0013 0129 | ) | Execute Any,Make_Visible 0014 4805 |H | Short_Literal 0x5 ; Debug Table 0x0.0x3 = 0x14,0xfffc 0015 032b | + | Declare_Type Record,Incomplete,Visible 0016 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x4 = 0x16,0xfffb 0017 02a0 | | Declare_Subprogram Null_Subprogram 0018 03ae | | Declare_Type Heap_Access,Defined,Visible 0019 0007 | | Action Break_Optional ; Debug Table 0x0.0x5 = 0x19,0xfffa 001a 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x1a,0xfff9 001c 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x7 = 0x1c,0xfff8 001e 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x8 = 0x1e,0xfff7 0020 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x9 = 0x20,0xfff6 0021 4802 |H | Short_Literal 0x2 0022 029f 00c3 | | Declare_Subprogram INIT_00c0,For_Call 0024 03fe | | Declare_Type Discrete,Defined,Visible 0025 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xa = 0x25,0xfff5 0027 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xb = 0x27,0xfff4 0029 e20f | | Load 0x1,0xf ; Debug Table 0x0.0xc = 0x29,0xfff3 002a e004 | | Load 0x0,0x4 002b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 002c 029f 0103 | | Declare_Subprogram INIT_0100,For_Call 002e 4802 |H | Short_Literal 0x2 002f 032e | . | Declare_Type Record,Defined,Visible 0030 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xd = 0x30,0xfff2 0032 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xe = 0x32,0xfff1 0034 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xf = 0x34,0xfff0 0036 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x10 = 0x36,0xffef 0038 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x11 = 0x38,0xffee 003a 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x12 = 0x3a,0xffed 003c 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x13 = 0x3c,0xffec 003e 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x14 = 0x3e,0xffeb 0040 e20e | | Load 0x1,0xe ; Debug Table 0x0.0x15 = 0x40,0xffea 0041 e215 | | Load 0x1,0x15 0042 e218 | | Load 0x1,0x18 0043 e218 | | Load 0x1,0x18 0044 e005 | | Load 0x0,0x5 0045 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0046 029f 01c3 | | Declare_Subprogram INIT_01c0,For_Call 0048 e210 | | Load 0x1,0x10 0049 0326 | & | Complete_Type Record,By_Defining 004a 00bf | | Action Accept_Activation 004b e218 | | Load 0x1,0x18 ; Debug Table 0x1 = .DEBUG 0x004b,0x0350,0x8000,0x0000,0x0059,0xf775,0x0000,0x0013 ; Debug Table 0x1.0x0 = 0x4b,0xffff 004c 0322 | " | Declare_Variable Record 004d 4800 |H | Short_Literal 0x0 004e 00d9 | | Load_Top At_Offset_1 004f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0050 4800 |H | Short_Literal 0x0 0051 4801 |H | Short_Literal 0x1 0052 4801 |H | Short_Literal 0x1 0053 6208 |b | Indirect_Literal Discrete,0x25c,{0x00000000, 0x0000076d} 0054 e004 | | Load 0x0,0x4 0055 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0056 e004 | | Load 0x0,0x4 0057 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0058 0119 | | Execute Any,Check_In_Formal_Type 0059 00d9 | | Load_Top At_Offset_1 005a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 005b 0007 | | Action Break_Optional ; Debug Table 0x1.0x1 = 0x5b,0xfffe 005c 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0x2 = 0x5c,0xfffd 005d 00c7 | | Action Elaborate_Subprogram 005e 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0x3 = 0x5e,0xfffc 005f 00c7 | | Action Elaborate_Subprogram 0060 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x1.0x4 = 0x60,0xfffb 0061 00c7 | | Action Elaborate_Subprogram 0062 1d16 | | Execute_Immediate Reference_Lex_1,0x16 ; Debug Table 0x1.0x5 = 0x62,0xfffa 0063 00c7 | | Action Elaborate_Subprogram 0064 1d17 | | Execute_Immediate Reference_Lex_1,0x17 ; Debug Table 0x1.0x6 = 0x64,0xfff9 0065 00c7 | | Action Elaborate_Subprogram 0066 029d 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call ; Debug Table 0x1.0x7 = 0x66,0xfff8 0068 029d 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call ; Debug Table 0x1.0x8 = 0x68,0xfff7 006a 029d 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call ; Debug Table 0x1.0x9 = 0x6a,0xfff6 006c 029d 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call ; Debug Table 0x1.0xa = 0x6c,0xfff5 006e 1d19 | | Execute_Immediate Reference_Lex_1,0x19 ; Debug Table 0x1.0xb = 0x6e,0xfff4 006f 00c7 | | Action Elaborate_Subprogram 0070 1d1a | | Execute_Immediate Reference_Lex_1,0x1a ; Debug Table 0x1.0xc = 0x70,0xfff3 0071 00c7 | | Action Elaborate_Subprogram 0072 1d1b | | Execute_Immediate Reference_Lex_1,0x1b ; Debug Table 0x1.0xd = 0x72,0xfff2 0073 00c7 | | Action Elaborate_Subprogram 0074 1d1c | | Execute_Immediate Reference_Lex_1,0x1c ; Debug Table 0x1.0xe = 0x74,0xfff1 0075 00c7 | | Action Elaborate_Subprogram 0076 1d1d | | Execute_Immediate Reference_Lex_1,0x1d ; Debug Table 0x1.0xf = 0x76,0xfff0 0077 00c7 | | Action Elaborate_Subprogram 0078 1d1e | | Execute_Immediate Reference_Lex_1,0x1e ; Debug Table 0x1.0x10 = 0x78,0xffef 0079 00c7 | | Action Elaborate_Subprogram 007a 1d1f | | Execute_Immediate Reference_Lex_1,0x1f ; Debug Table 0x1.0x11 = 0x7a,0xffee 007b 00c7 | | Action Elaborate_Subprogram 007c 1d20 | | Execute_Immediate Reference_Lex_1,0x20 ; Debug Table 0x1.0x12 = 0x7c,0xffed 007d 00c7 | | Action Elaborate_Subprogram 007e BODY_0008: 007e 00bc | | Action Signal_Activated 007f 00bb | | Action Signal_Completion 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0083 | | .CONST 0x0083 ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0001 | | .CONST 0x0001 ; Number of locals 0083 BODY_0080: 0083 INIT_0080: 0083 e002 | | Load 0x0,0x2 ; Debug Table 0x2 = .DEBUG 0x0083,0x0378,0x0001,0x0000,0x0059,0xebf5,0x0000,0x002e ; Debug Table 0x2.0x0 = 0x83,0x1 0084 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0085 00db | | Load_Top At_Offset_3 0086 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0087 4800 |H | Short_Literal 0x0 ; Debug Table 0x2.0x1 = 0x87,0x2 0088 00db | | Load_Top At_Offset_3 0089 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 008a e221 | ! | Load 0x1,0x21 ; Debug Table 0x2.0x2 = 0x8a,0x3 008b 00db | | Load_Top At_Offset_3 008c 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 008d e221 | ! | Load 0x1,0x21 ; Debug Table 0x2.0x3 = 0x8d,0x4 008e 00db | | Load_Top At_Offset_3 008f 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0090 e005 | | Load 0x0,0x5 ; Debug Table 0x2.0x4 = 0x90,0x5 0091 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0092 00db | | Load_Top At_Offset_3 0093 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0094 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0095 0000 0000 | | .XXX[0x3] 0097 0000 | | 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 009b | | .CONST 0x009b ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 0001 | | .CONST 0x0001 ; Number of locals 009b BODY_0098: 009b INIT_0098: 009b 487e |H~ | Short_Literal 0x7e ; Debug Table 0x3 = .DEBUG 0x009b,0x0384,0x0001,0x0000,0x0059,0xebf5,0x0000,0x0036 ; Debug Table 0x3.0x0 = 0x9b,0x1 009c a5fd | | Store_Unchecked 0x2,-0x3 009d e002 | | Load 0x0,0x2 ; Debug Table 0x3.0x1 = 0x9d,0x2 009e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 009f c5fe | | Store 0x2,-0x2 00a0 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0x2 = 0xa0,0x3 00a1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00a2 c5fe | | Store 0x2,-0x2 00a3 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0x3 = 0xa3,0x4 00a4 a5fd | | Store_Unchecked 0x2,-0x3 00a5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00a6 0000 0000 | | .XXX[0x2] 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00ab | | .CONST 0x00ab ; Address of begin 00a9 00b3 | | .CONST 0x00b3 ; Address of exception handler 00aa 0001 | | .CONST 0x0001 ; Number of locals 00ab BODY_00a8: 00ab INIT_00a8: 00ab 487e |H~ | Short_Literal 0x7e ; Debug Table 0x4 = .DEBUG 0x00ab,0x038e,0x0001,0x0000,0x0059,0xebf5,0x0000,0x0046 ; Debug Table 0x4.0x0 = 0xab,0x1 00ac a5fd | | Store_Unchecked 0x2,-0x3 00ad 00da | | Load_Top At_Offset_2 ; Debug Table 0x4.0x1 = 0xad,0x2 00ae e5fe | | Load 0x2,-0x2 00af 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00b0 4800 |H | Short_Literal 0x0 ; Debug Table 0x4.0x2 = 0xb0,0x3 00b1 a5fd | | Store_Unchecked 0x2,-0x3 00b2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00b3 TRAP_00a8: 00b3 4885 |H | Short_Literal 0x85 00b4 010f | | Execute Exception,Equal 00b5 6803 |h | Jump_Zero 0xb9 00b6 480b |H | Short_Literal 0xb ; Debug Table 0x4.0x3 = 0xb6,0x4 00b7 a5fd | | Store_Unchecked 0x2,-0x3 00b8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00b9 0100 | | Execute Exception,Raise 00ba 0000 0000 | | .BLANK 0000[0x6] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c3 | | .CONST 0x00c3 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0001 | | .CONST 0x0001 ; Number of locals 00c3 BODY_00c0: 00c3 INIT_00c0: 00c3 4603 |F | Jump_Case 0x4 ; Debug Table 0x5 = .DEBUG 0x00c3,0x0398,0x0005,0x0000,0x0059,0xebf5,0x0000,0x0056 00c4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 00c5 7802 |x | Jump 0xc8 ; case 0x1 00c6 7805 |x | Jump 0xcc ; case 0x2 00c7 7809 |x | Jump 0xd1 ; case 0x3 00c8 00da | | Load_Top At_Offset_2 00c9 0091 0260 | `| Action Push_String_Extended_Indexed,0x260 ; "PENDING" 00cb 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00cc 00db | | Load_Top At_Offset_3 00cd 00db | | Load_Top At_Offset_3 00ce 00e0 | | Load_Encached Standard_Cache 00cf 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00d0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00d1 00da | | Load_Top At_Offset_2 00d2 00e0 | | Load_Encached Standard_Cache 00d3 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00d4 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00d5 0000 0000 | | .XXX[0x3] 00d7 0000 | | 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 487e |H~ | Short_Literal 0x7e ; Debug Table 0x6 = .DEBUG 0x00db,0x039a,0x0001,0x0000,0x0059,0xebf5,0x0000,0x005d ; Debug Table 0x6.0x0 = 0xdb,0x1 00dc a5fd | | Store_Unchecked 0x2,-0x3 00dd 4800 |H | Short_Literal 0x0 ; Debug Table 0x6.0x1 = 0xdd,0x2 00de a5fe | | Store_Unchecked 0x2,-0x2 00df 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0x2 = 0xdf,0x3 00e0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00e1 a5fe | | Store_Unchecked 0x2,-0x2 00e2 4800 |H | Short_Literal 0x0 ; Debug Table 0x6.0x3 = 0xe2,0x4 00e3 a5fd | | Store_Unchecked 0x2,-0x3 00e4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00e5 0000 0000 | | .XXX[0x3] 00e7 0000 | | 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00eb | | .CONST 0x00eb ; Address of begin 00e9 00f3 | | .CONST 0x00f3 ; Address of exception handler 00ea 0001 | | .CONST 0x0001 ; Number of locals 00eb BODY_00e8: 00eb INIT_00e8: 00eb 487e |H~ | Short_Literal 0x7e ; Debug Table 0x7 = .DEBUG 0x00eb,0x03a4,0x0001,0x0000,0x0059,0xebf5,0x0000,0x006d ; Debug Table 0x7.0x0 = 0xeb,0x1 00ec a5fd | | Store_Unchecked 0x2,-0x3 00ed 00da | | Load_Top At_Offset_2 ; Debug Table 0x7.0x1 = 0xed,0x2 00ee e5fe | | Load 0x2,-0x2 00ef 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00f0 4800 |H | Short_Literal 0x0 ; Debug Table 0x7.0x2 = 0xf0,0x3 00f1 a5fd | | Store_Unchecked 0x2,-0x3 00f2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00f3 TRAP_00e8: 00f3 4885 |H | Short_Literal 0x85 00f4 010f | | Execute Exception,Equal 00f5 6803 |h | Jump_Zero 0xf9 00f6 480b |H | Short_Literal 0xb ; Debug Table 0x7.0x3 = 0xf6,0x4 00f7 a5fd | | Store_Unchecked 0x2,-0x3 00f8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00f9 0100 | | Execute Exception,Raise 00fa 0000 0000 | | .BLANK 0000[0x6] 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 4608 |F | Jump_Case 0x9 ; Debug Table 0x8 = .DEBUG 0x0103,0x03ae,0x0005,0x0000,0x0059,0xebf5,0x0000,0x007d 0104 7808 |x | Jump 0x10d ; case 0x0 0105 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0106 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 0107 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 0108 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 0109 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5 010a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6 010b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7 010c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8 010d 00da | | Load_Top At_Offset_2 010e 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 010f 0125 | % | Execute Any,Set_Constraint 0110 00da | | Load_Top At_Offset_2 0111 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0112 1c00 | | Execute_Immediate Run_Utility,0x0 0113 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0114 0000 0000 | | .BLANK 0000[0x4] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 011b | | .CONST 0x011b ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0001 | | .CONST 0x0001 ; Number of locals 011b BODY_0118: 011b INIT_0118: 011b 487e |H~ | Short_Literal 0x7e ; Debug Table 0x9 = .DEBUG 0x011b,0x03b0,0x0001,0x0000,0x0059,0xebf5,0x0000,0x008d ; Debug Table 0x9.0x0 = 0x11b,0x1 011c a5fd | | Store_Unchecked 0x2,-0x3 011d e221 | ! | Load 0x1,0x21 ; Debug Table 0x9.0x1 = 0x11d,0x2 011e e5fe | | Load 0x2,-0x2 011f 017d | } | Execute Record,Structure_Write 0120 00da | | Load_Top At_Offset_2 ; Debug Table 0x9.0x2 = 0x120,0x3 0121 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0122 e5fe | | Load 0x2,-0x2 0123 017d | } | Execute Record,Structure_Write 0124 4800 |H | Short_Literal 0x0 ; Debug Table 0x9.0x3 = 0x124,0x4 0125 a5fd | | Store_Unchecked 0x2,-0x3 0126 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0127 0000 | | .XXX[0x1] 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 012e | . | .CONST 0x012e ; Address of begin 0129 0004 | | .CONST 0x0004 ; Address of exception handler 012a 0002 | | .CONST 0x0002 ; Number of locals 012b INIT_0128: 012b 00da | | Load_Top At_Offset_2 ; Debug Table 0xa = .DEBUG 0x012b,0x03ba,0x0002,0x0000,0x0059,0xebf5,0x0000,0x009d ; Debug Table 0xa.0x0 = 0x12b,0xffff 012c 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 012d 8222 | " | Call 0x1,0x22 012e BODY_0128: 012e 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xa.0x1 = 0x12e,0x1 012f 01db | | Execute Vector,Length 0130 7006 |p | Jump_Nonzero 0x137 0131 00db | | Load_Top At_Offset_3 ; Debug Table 0xa.0x2 = 0x131,0x2 0132 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0133 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0134 e006 | | Load 0x0,0x6 0135 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0136 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0137 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xa.0x3 = 0x137,0x3 0138 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0139 0000 0000 | | .BLANK 0000[0x7] 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0143 | C | .CONST 0x0143 ; Address of begin 0141 0151 | Q | .CONST 0x0151 ; Address of exception handler 0142 0001 | | .CONST 0x0001 ; Number of locals 0143 BODY_0140: 0143 INIT_0140: 0143 487e |H~ | Short_Literal 0x7e ; Debug Table 0xb = .DEBUG 0x0143,0x03c4,0x0001,0x0000,0x0059,0xebf5,0x0000,0x00a6 ; Debug Table 0xb.0x0 = 0x143,0x1 0144 a5fd | | Store_Unchecked 0x2,-0x3 0145 00da | | Load_Top At_Offset_2 ; Debug Table 0xb.0x1 = 0x145,0x2 0146 e5fe | | Load 0x2,-0x2 0147 0217 | | Execute Heap_Access,All_Reference 0148 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0149 00ea | | Load_Encached Null_String_Cache ; Debug Table 0xb.0x2 = 0x149,0x3 014a e221 | ! | Load 0x1,0x21 014b e5ff | | Load 0x2,-0x1 014c e5fe | | Load 0x2,-0x2 014d 8225 | % | Call 0x1,0x25 014e 4800 |H | Short_Literal 0x0 ; Debug Table 0xb.0x3 = 0x14e,0x4 014f a5fd | | Store_Unchecked 0x2,-0x3 0150 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0151 TRAP_0140: 0151 4885 |H | Short_Literal 0x85 0152 010f | | Execute Exception,Equal 0153 6803 |h | Jump_Zero 0x157 0154 480b |H | Short_Literal 0xb ; Debug Table 0xb.0x4 = 0x154,0x5 0155 a5fd | | Store_Unchecked 0x2,-0x3 0156 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0157 0100 | | Execute Exception,Raise 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 487e |H~ | Short_Literal 0x7e ; Debug Table 0xc = .DEBUG 0x015b,0x03d0,0x0001,0x0000,0x0059,0xebf5,0x0000,0x00b6 ; Debug Table 0xc.0x0 = 0x15b,0x1 015c a5fd | | Store_Unchecked 0x2,-0x3 015d e221 | ! | Load 0x1,0x21 ; Debug Table 0xc.0x1 = 0x15d,0x2 015e e5fe | | Load 0x2,-0x2 015f 017d | } | Execute Record,Structure_Write 0160 00da | | Load_Top At_Offset_2 ; Debug Table 0xc.0x2 = 0x160,0x3 0161 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0162 e5fe | | Load 0x2,-0x2 0163 017d | } | Execute Record,Structure_Write 0164 4800 |H | Short_Literal 0x0 ; Debug Table 0xc.0x3 = 0x164,0x4 0165 a5fd | | Store_Unchecked 0x2,-0x3 0166 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0167 0000 | | .XXX[0x1] 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 016e | n | .CONST 0x016e ; Address of begin 0169 0004 | | .CONST 0x0004 ; Address of exception handler 016a 0002 | | .CONST 0x0002 ; Number of locals 016b INIT_0168: 016b 00da | | Load_Top At_Offset_2 ; Debug Table 0xd = .DEBUG 0x016b,0x03da,0x0002,0x0000,0x0059,0xebf5,0x0000,0x00c6 ; Debug Table 0xd.0x0 = 0x16b,0xffff 016c 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 016d 8223 | # | Call 0x1,0x23 016e BODY_0168: 016e 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xd.0x1 = 0x16e,0x1 016f 01db | | Execute Vector,Length 0170 7006 |p | Jump_Nonzero 0x177 0171 00db | | Load_Top At_Offset_3 ; Debug Table 0xd.0x2 = 0x171,0x2 0172 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0173 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0174 e006 | | Load 0x0,0x6 0175 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0176 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0177 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xd.0x3 = 0x177,0x3 0178 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0179 0000 0000 | | .BLANK 0000[0x7] 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0183 | | .CONST 0x0183 ; Address of begin 0181 0191 | | .CONST 0x0191 ; Address of exception handler 0182 0001 | | .CONST 0x0001 ; Number of locals 0183 BODY_0180: 0183 INIT_0180: 0183 487e |H~ | Short_Literal 0x7e ; Debug Table 0xe = .DEBUG 0x0183,0x03e4,0x0001,0x0000,0x0059,0xebf5,0x0000,0x00cf ; Debug Table 0xe.0x0 = 0x183,0x1 0184 a5fd | | Store_Unchecked 0x2,-0x3 0185 00da | | Load_Top At_Offset_2 ; Debug Table 0xe.0x1 = 0x185,0x2 0186 e5fe | | Load 0x2,-0x2 0187 0217 | | Execute Heap_Access,All_Reference 0188 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0189 00ea | | Load_Encached Null_String_Cache ; Debug Table 0xe.0x2 = 0x189,0x3 018a 00db | | Load_Top At_Offset_3 018b e221 | ! | Load 0x1,0x21 018c e5fe | | Load 0x2,-0x2 018d 8225 | % | Call 0x1,0x25 018e 4800 |H | Short_Literal 0x0 ; Debug Table 0xe.0x3 = 0x18e,0x4 018f a5fd | | Store_Unchecked 0x2,-0x3 0190 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0191 TRAP_0180: 0191 4885 |H | Short_Literal 0x85 0192 010f | | Execute Exception,Equal 0193 6803 |h | Jump_Zero 0x197 0194 480b |H | Short_Literal 0xb ; Debug Table 0xe.0x4 = 0x194,0x5 0195 a5fd | | Store_Unchecked 0x2,-0x3 0196 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0197 0100 | | Execute Exception,Raise 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 019b | | .CONST 0x019b ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0001 | | .CONST 0x0001 ; Number of locals 019b BODY_0198: 019b INIT_0198: 019b 00da | | Load_Top At_Offset_2 ; Debug Table 0xf = .DEBUG 0x019b,0x03f0,0x0002,0x0000,0x0059,0xebf5,0x0000,0x00df ; Debug Table 0xf.0x0 = 0x19b,0x1 019c 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 019d 8224 | $ | Call 0x1,0x24 019e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 019f 0000 | | .XXX[0x1] 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01a3 | | .CONST 0x01a3 ; Address of begin 01a1 01b4 | | .CONST 0x01b4 ; Address of exception handler 01a2 0001 | | .CONST 0x0001 ; Number of locals 01a3 BODY_01a0: 01a3 INIT_01a0: 01a3 487e |H~ | Short_Literal 0x7e ; Debug Table 0x10 = .DEBUG 0x01a3,0x03f4,0x0001,0x0000,0x0059,0xebf5,0x0000,0x00e8 ; Debug Table 0x10.0x0 = 0x1a3,0x1 01a4 a5fd | | Store_Unchecked 0x2,-0x3 01a5 00db | | Load_Top At_Offset_3 ; Debug Table 0x10.0x1 = 0x1a5,0x2 01a6 7005 |p | Jump_Nonzero 0x1ac 01a7 4812 |H | Short_Literal 0x12 ; Debug Table 0x10.0x2 = 0x1a7,0x3 01a8 a5fd | | Store_Unchecked 0x2,-0x3 01a9 e001 | | Load 0x0,0x1 ; Debug Table 0x10.0x3 = 0x1a9,0x4 01aa 1b16 | | Execute Package,Field_Read,Field_Number 0x16 01ab 0257 | W | Execute Discrete,Raise 01ac 00da | | Load_Top At_Offset_2 ; Debug Table 0x10.0x4 = 0x1ac,0x5 01ad e221 | ! | Load 0x1,0x21 01ae e221 | ! | Load 0x1,0x21 01af e5fe | | Load 0x2,-0x2 01b0 8225 | % | Call 0x1,0x25 01b1 4800 |H | Short_Literal 0x0 ; Debug Table 0x10.0x5 = 0x1b1,0x6 01b2 a5fd | | Store_Unchecked 0x2,-0x3 01b3 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01b4 TRAP_01a0: 01b4 e001 | | Load 0x0,0x1 01b5 1b16 | | Execute Package,Field_Read,Field_Number 0x16 01b6 010f | | Execute Exception,Equal 01b7 6801 |h | Jump_Zero 0x1b9 01b8 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; Debug Table 0x10.0x6 = 0x1b8,0x7 01b9 4885 |H | Short_Literal 0x85 01ba 010f | | Execute Exception,Equal 01bb 6803 |h | Jump_Zero 0x1bf 01bc 480b |H | Short_Literal 0xb ; Debug Table 0x10.0x7 = 0x1bc,0x8 01bd a5fd | | Store_Unchecked 0x2,-0x3 01be 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01bf 0100 | | Execute Exception,Raise 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01c3 | | .CONST 0x01c3 ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0001 | | .CONST 0x0001 ; Number of locals 01c3 BODY_01c0: 01c3 INIT_01c0: 01c3 4608 |F | Jump_Case 0x9 ; Debug Table 0x11 = .DEBUG 0x01c3,0x0406,0x0005,0x0000,0x0059,0xebf5,0x0000,0x00f9 01c4 7808 |x | Jump 0x1cd ; case 0x0 01c5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 01c6 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 01c7 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 01c8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 01c9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5 01ca 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6 01cb 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7 01cc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8 01cd 00da | | Load_Top At_Offset_2 01ce 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01cf 0125 | % | Execute Any,Set_Constraint 01d0 00da | | Load_Top At_Offset_2 01d1 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01d2 1c00 | | Execute_Immediate Run_Utility,0x0 01d3 00da | | Load_Top At_Offset_2 01d4 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 01d5 1c00 | | Execute_Immediate Run_Utility,0x0 01d6 00da | | Load_Top At_Offset_2 01d7 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 01d8 1c00 | | Execute_Immediate Run_Utility,0x0 01d9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 01da 0000 0000 | | .BLANK 0000[0x6] 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01e3 | | .CONST 0x01e3 ; Address of begin 01e1 0004 | | .CONST 0x0004 ; Address of exception handler 01e2 0001 | | .CONST 0x0001 ; Number of locals 01e3 BODY_01e0: 01e3 INIT_01e0: 01e3 00da | | Load_Top At_Offset_2 ; Debug Table 0x12 = .DEBUG 0x01e3,0x0408,0x0002,0x0000,0x0059,0xf775,0x0000,0x010a ; Debug Table 0x12.0x0 = 0x1e3,0x1 01e4 7002 |p | Jump_Nonzero 0x1e7 01e5 00ea | | Load_Encached Null_String_Cache ; Debug Table 0x12.0x1 = 0x1e5,0x2 01e6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01e7 00da | | Load_Top At_Offset_2 ; Debug Table 0x12.0x2 = 0x1e7,0x3 01e8 0217 | | Execute Heap_Access,All_Reference 01e9 e007 | | Load 0x0,0x7 01ea 1812 | | Execute Package,Field_Execute,Field_Number 0x12 01eb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01ec 0000 0000 | | .BLANK 0000[0x4] 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 01f3 | | .CONST 0x01f3 ; Address of begin 01f1 0004 | | .CONST 0x0004 ; Address of exception handler 01f2 0001 | | .CONST 0x0001 ; Number of locals 01f3 BODY_01f0: 01f3 INIT_01f0: 01f3 00da | | Load_Top At_Offset_2 ; Debug Table 0x13 = .DEBUG 0x01f3,0x0410,0x0002,0x0000,0x0059,0xf775,0x0000,0x012d ; Debug Table 0x13.0x0 = 0x1f3,0x1 01f4 7002 |p | Jump_Nonzero 0x1f7 01f5 00ea | | Load_Encached Null_String_Cache ; Debug Table 0x13.0x1 = 0x1f5,0x2 01f6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01f7 00da | | Load_Top At_Offset_2 ; Debug Table 0x13.0x2 = 0x1f7,0x3 01f8 0217 | | Execute Heap_Access,All_Reference 01f9 e007 | | Load 0x0,0x7 01fa 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01fb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01fc 0000 0000 | | .BLANK 0000[0x4] 0200 ; -------------------------------------------------------------------------------------- 0200 ; SUBPROGRAM 0200 ; -------------------------------------------------------------------------------------- 0200 0203 | | .CONST 0x0203 ; Address of begin 0201 0004 | | .CONST 0x0004 ; Address of exception handler 0202 0001 | | .CONST 0x0001 ; Number of locals 0203 BODY_0200: 0203 INIT_0200: 0203 00da | | Load_Top At_Offset_2 ; Debug Table 0x14 = .DEBUG 0x0203,0x0418,0x0002,0x0000,0x0059,0xf775,0x0000,0x0150 ; Debug Table 0x14.0x0 = 0x203,0x1 0204 7002 |p | Jump_Nonzero 0x207 0205 00ea | | Load_Encached Null_String_Cache ; Debug Table 0x14.0x1 = 0x205,0x2 0206 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0207 00da | | Load_Top At_Offset_2 ; Debug Table 0x14.0x2 = 0x207,0x3 0208 0217 | | Execute Heap_Access,All_Reference 0209 e007 | | Load 0x0,0x7 020a 1814 | | Execute Package,Field_Execute,Field_Number 0x14 020b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 020c 0000 0000 | | .BLANK 0000[0x4] 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 021f | | .CONST 0x021f ; Address of begin 0211 0004 | | .CONST 0x0004 ; Address of exception handler 0212 0004 | | .CONST 0x0004 ; Number of locals 0213 INIT_0210: 0213 00da | | Load_Top At_Offset_2 ; Debug Table 0x15 = .DEBUG 0x0213,0x0420,0x0001,0x0000,0x0059,0xf775,0x0000,0x0173 ; Debug Table 0x15.0x0 = 0x213,0xffff 0214 0217 | | Execute Heap_Access,All_Reference 0215 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0216 8222 | " | Call 0x1,0x22 0217 00db | | Load_Top At_Offset_3 ; Debug Table 0x15.0x1 = 0x217,0xfffe 0218 0217 | | Execute Heap_Access,All_Reference 0219 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 021a 8223 | # | Call 0x1,0x23 021b e5ff | | Load 0x2,-0x1 ; Debug Table 0x15.0x2 = 0x21b,0xfffd 021c 0217 | | Execute Heap_Access,All_Reference 021d 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 021e 8224 | $ | Call 0x1,0x24 021f BODY_0210: 021f e5fe | | Load 0x2,-0x2 ; Debug Table 0x15.0x3 = 0x21f,0x1 0220 e221 | ! | Load 0x1,0x21 0221 017e | ~ | Execute Record,Not_Equal 0222 6810 |h | Jump_Zero 0x233 0223 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x15.0x4 = 0x223,0x2 0224 00da | | Load_Top At_Offset_2 0225 e007 | | Load 0x0,0x7 0226 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0227 e5fe | | Load 0x2,-0x2 0228 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0229 e007 | | Load 0x0,0x7 022a 180e | | Execute Package,Field_Execute,Field_Number 0xe 022b e005 | | Load 0x0,0x5 022c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 022d e5ff | | Load 0x2,-0x1 022e 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 022f e5ff | | Load 0x2,-0x1 0230 0217 | | Execute Heap_Access,All_Reference 0231 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0232 4505 |E | Exit_Suprogram New_Top_Offset 0x5 ; Debug Table 0x15.0x5 = 0x232,0x3 0233 e5fd | | Load 0x2,-0x3 ; Debug Table 0x15.0x6 = 0x233,0x4 0234 e221 | ! | Load 0x1,0x21 0235 017e | ~ | Execute Record,Not_Equal 0236 6810 |h | Jump_Zero 0x247 0237 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x15.0x7 = 0x237,0x5 0238 e5fd | | Load 0x2,-0x3 0239 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 023a e007 | | Load 0x0,0x7 023b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 023c 00db | | Load_Top At_Offset_3 023d e007 | | Load 0x0,0x7 023e 180f | | Execute Package,Field_Execute,Field_Number 0xf 023f e005 | | Load 0x0,0x5 0240 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0241 e5ff | | Load 0x2,-0x1 0242 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 0243 e5ff | | Load 0x2,-0x1 0244 0217 | | Execute Heap_Access,All_Reference 0245 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0246 4505 |E | Exit_Suprogram New_Top_Offset 0x5 ; Debug Table 0x15.0x8 = 0x246,0x6 0247 e5fc | | Load 0x2,-0x4 ; Debug Table 0x15.0x9 = 0x247,0x7 0248 01db | | Execute Vector,Length 0249 680e |h | Jump_Zero 0x258 024a e5fc | | Load 0x2,-0x4 ; Debug Table 0x15.0xa = 0x24a,0x8 024b 00da | | Load_Top At_Offset_2 024c e007 | | Load 0x0,0x7 024d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 024e 00db | | Load_Top At_Offset_3 024f e007 | | Load 0x0,0x7 0250 180f | | Execute Package,Field_Execute,Field_Number 0xf 0251 e005 | | Load 0x0,0x5 0252 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0253 e5ff | | Load 0x2,-0x1 0254 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 0255 e5ff | | Load 0x2,-0x1 0256 0217 | | Execute Heap_Access,All_Reference 0257 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0258 4505 |E | Exit_Suprogram New_Top_Offset 0x5 ; Debug Table 0x15.0xb = 0x258,0x9 0259 0000 0000 | | .XXX[0x3] 025b 0000 | | 025c 0000 0000 | | .LITERAL {0x00000000, 0x0000076d} 0260 ; -------------------------------------------------------------------------------------- 0260 ; STRING TABLE 0260 ; -------------------------------------------------------------------------------------- 0260 0008 | | .STRTAB 0x0008->0x0264 ; "PENDING" 0261 000d | | .STRTAB 0x000d->0x0267 ; "IN_PROGRESS" 0262 0016 | | .STRTAB 0x0016->0x026d ; "CLOSED" 0263 001a | | .STREND 0x001a->0x0270 0264 5045 4e44 |PEND| .STRTAB_STRINGS 0270 ; -------------------------------------------------------------------------------------- 0270 ; Debug Table 0270 ; -------------------------------------------------------------------------------------- 0270 0003 0016 | | .CONST 0x0003,0x0016 0272 000b 0322 | "| .DEBUG 0x000b,0x0322,0x8000,0x0000,0x0059,0xebf5,0x0000,0x000d 027a 004b 0350 | K P| .DEBUG 0x004b,0x0350,0x8000,0x0000,0x0059,0xf775,0x0000,0x0013 0282 0083 0378 | x| .DEBUG 0x0083,0x0378,0x0001,0x0000,0x0059,0xebf5,0x0000,0x002e 028a 009b 0384 | | .DEBUG 0x009b,0x0384,0x0001,0x0000,0x0059,0xebf5,0x0000,0x0036 0292 00ab 038e | | .DEBUG 0x00ab,0x038e,0x0001,0x0000,0x0059,0xebf5,0x0000,0x0046 029a 00c3 0398 | | .DEBUG 0x00c3,0x0398,0x0005,0x0000,0x0059,0xebf5,0x0000,0x0056 02a2 00db 039a | | .DEBUG 0x00db,0x039a,0x0001,0x0000,0x0059,0xebf5,0x0000,0x005d 02aa 00eb 03a4 | | .DEBUG 0x00eb,0x03a4,0x0001,0x0000,0x0059,0xebf5,0x0000,0x006d 02b2 0103 03ae | | .DEBUG 0x0103,0x03ae,0x0005,0x0000,0x0059,0xebf5,0x0000,0x007d 02ba 011b 03b0 | | .DEBUG 0x011b,0x03b0,0x0001,0x0000,0x0059,0xebf5,0x0000,0x008d 02c2 012b 03ba | + | .DEBUG 0x012b,0x03ba,0x0002,0x0000,0x0059,0xebf5,0x0000,0x009d 02ca 0143 03c4 | C | .DEBUG 0x0143,0x03c4,0x0001,0x0000,0x0059,0xebf5,0x0000,0x00a6 02d2 015b 03d0 | [ | .DEBUG 0x015b,0x03d0,0x0001,0x0000,0x0059,0xebf5,0x0000,0x00b6 02da 016b 03da | k | .DEBUG 0x016b,0x03da,0x0002,0x0000,0x0059,0xebf5,0x0000,0x00c6 02e2 0183 03e4 | | .DEBUG 0x0183,0x03e4,0x0001,0x0000,0x0059,0xebf5,0x0000,0x00cf 02ea 019b 03f0 | | .DEBUG 0x019b,0x03f0,0x0002,0x0000,0x0059,0xebf5,0x0000,0x00df 02f2 01a3 03f4 | | .DEBUG 0x01a3,0x03f4,0x0001,0x0000,0x0059,0xebf5,0x0000,0x00e8 02fa 01c3 0406 | | .DEBUG 0x01c3,0x0406,0x0005,0x0000,0x0059,0xebf5,0x0000,0x00f9 0302 01e3 0408 | | .DEBUG 0x01e3,0x0408,0x0002,0x0000,0x0059,0xf775,0x0000,0x010a 030a 01f3 0410 | | .DEBUG 0x01f3,0x0410,0x0002,0x0000,0x0059,0xf775,0x0000,0x012d 0312 0203 0418 | | .DEBUG 0x0203,0x0418,0x0002,0x0000,0x0059,0xf775,0x0000,0x0150 031a 0213 0420 | | .DEBUG 0x0213,0x0420,0x0001,0x0000,0x0059,0xf775,0x0000,0x0173 0322 ; -------------------------------------------------------------------------------------- 0322 ; Debug3 Subtable 0x0 0322 ; -------------------------------------------------------------------------------------- 0322 0016 0000 | | .DBG3TAB 0x0016,0x0000 0324 000b ffff | | .CONST 0x000b,0xffff 0326 000e fffe | | .CONST 0x000e,0xfffe 0328 0011 fffd | | .CONST 0x0011,0xfffd 032a 0014 fffc | | .CONST 0x0014,0xfffc 032c 0016 fffb | | .CONST 0x0016,0xfffb 032e 0019 fffa | | .CONST 0x0019,0xfffa 0330 001a fff9 | | .CONST 0x001a,0xfff9 0332 001c fff8 | | .CONST 0x001c,0xfff8 0334 001e fff7 | | .CONST 0x001e,0xfff7 0336 0020 fff6 | | .CONST 0x0020,0xfff6 0338 0025 fff5 | % | .CONST 0x0025,0xfff5 033a 0027 fff4 | ' | .CONST 0x0027,0xfff4 033c 0029 fff3 | ) | .CONST 0x0029,0xfff3 033e 0030 fff2 | 0 | .CONST 0x0030,0xfff2 0340 0032 fff1 | 2 | .CONST 0x0032,0xfff1 0342 0034 fff0 | 4 | .CONST 0x0034,0xfff0 0344 0036 ffef | 6 | .CONST 0x0036,0xffef 0346 0038 ffee | 8 | .CONST 0x0038,0xffee 0348 003a ffed | : | .CONST 0x003a,0xffed 034a 003c ffec | < | .CONST 0x003c,0xffec 034c 003e ffeb | > | .CONST 0x003e,0xffeb 034e 0040 ffea | @ | .CONST 0x0040,0xffea 0350 ; -------------------------------------------------------------------------------------- 0350 ; Debug3 Subtable 0x1 0350 ; -------------------------------------------------------------------------------------- 0350 0013 0000 | | .DBG3TAB 0x0013,0x0000 0352 004b ffff | K | .CONST 0x004b,0xffff 0354 005b fffe | [ | .CONST 0x005b,0xfffe 0356 005c fffd | \ | .CONST 0x005c,0xfffd 0358 005e fffc | ^ | .CONST 0x005e,0xfffc 035a 0060 fffb | ` | .CONST 0x0060,0xfffb 035c 0062 fffa | b | .CONST 0x0062,0xfffa 035e 0064 fff9 | d | .CONST 0x0064,0xfff9 0360 0066 fff8 | f | .CONST 0x0066,0xfff8 0362 0068 fff7 | h | .CONST 0x0068,0xfff7 0364 006a fff6 | j | .CONST 0x006a,0xfff6 0366 006c fff5 | l | .CONST 0x006c,0xfff5 0368 006e fff4 | n | .CONST 0x006e,0xfff4 036a 0070 fff3 | p | .CONST 0x0070,0xfff3 036c 0072 fff2 | r | .CONST 0x0072,0xfff2 036e 0074 fff1 | t | .CONST 0x0074,0xfff1 0370 0076 fff0 | v | .CONST 0x0076,0xfff0 0372 0078 ffef | x | .CONST 0x0078,0xffef 0374 007a ffee | z | .CONST 0x007a,0xffee 0376 007c ffed | | | .CONST 0x007c,0xffed 0378 ; -------------------------------------------------------------------------------------- 0378 ; Debug3 Subtable 0x2 0378 ; -------------------------------------------------------------------------------------- 0378 0000 0005 | | .DBG3TAB 0x0000,0x0005 037a 0083 0001 | | .CONST 0x0083,0x0001 037c 0087 0002 | | .CONST 0x0087,0x0002 037e 008a 0003 | | .CONST 0x008a,0x0003 0380 008d 0004 | | .CONST 0x008d,0x0004 0382 0090 0005 | | .CONST 0x0090,0x0005 0384 ; -------------------------------------------------------------------------------------- 0384 ; Debug3 Subtable 0x3 0384 ; -------------------------------------------------------------------------------------- 0384 0000 0004 | | .DBG3TAB 0x0000,0x0004 0386 009b 0001 | | .CONST 0x009b,0x0001 0388 009d 0002 | | .CONST 0x009d,0x0002 038a 00a0 0003 | | .CONST 0x00a0,0x0003 038c 00a3 0004 | | .CONST 0x00a3,0x0004 038e ; -------------------------------------------------------------------------------------- 038e ; Debug3 Subtable 0x4 038e ; -------------------------------------------------------------------------------------- 038e 0000 0004 | | .DBG3TAB 0x0000,0x0004 0390 00ab 0001 | | .CONST 0x00ab,0x0001 0392 00ad 0002 | | .CONST 0x00ad,0x0002 0394 00b0 0003 | | .CONST 0x00b0,0x0003 0396 00b6 0004 | | .CONST 0x00b6,0x0004 0398 ; -------------------------------------------------------------------------------------- 0398 ; Debug3 Subtable 0x5 0398 ; -------------------------------------------------------------------------------------- 0398 0000 0000 | | .DBG3TAB 0x0000,0x0000 039a ; -------------------------------------------------------------------------------------- 039a ; Debug3 Subtable 0x6 039a ; -------------------------------------------------------------------------------------- 039a 0000 0004 | | .DBG3TAB 0x0000,0x0004 039c 00db 0001 | | .CONST 0x00db,0x0001 039e 00dd 0002 | | .CONST 0x00dd,0x0002 03a0 00df 0003 | | .CONST 0x00df,0x0003 03a2 00e2 0004 | | .CONST 0x00e2,0x0004 03a4 ; -------------------------------------------------------------------------------------- 03a4 ; Debug3 Subtable 0x7 03a4 ; -------------------------------------------------------------------------------------- 03a4 0000 0004 | | .DBG3TAB 0x0000,0x0004 03a6 00eb 0001 | | .CONST 0x00eb,0x0001 03a8 00ed 0002 | | .CONST 0x00ed,0x0002 03aa 00f0 0003 | | .CONST 0x00f0,0x0003 03ac 00f6 0004 | | .CONST 0x00f6,0x0004 03ae ; -------------------------------------------------------------------------------------- 03ae ; Debug3 Subtable 0x8 03ae ; -------------------------------------------------------------------------------------- 03ae 0000 0000 | | .DBG3TAB 0x0000,0x0000 03b0 ; -------------------------------------------------------------------------------------- 03b0 ; Debug3 Subtable 0x9 03b0 ; -------------------------------------------------------------------------------------- 03b0 0000 0004 | | .DBG3TAB 0x0000,0x0004 03b2 011b 0001 | | .CONST 0x011b,0x0001 03b4 011d 0002 | | .CONST 0x011d,0x0002 03b6 0120 0003 | | .CONST 0x0120,0x0003 03b8 0124 0004 | $ | .CONST 0x0124,0x0004 03ba ; -------------------------------------------------------------------------------------- 03ba ; Debug3 Subtable 0xa 03ba ; -------------------------------------------------------------------------------------- 03ba 0001 0003 | | .DBG3TAB 0x0001,0x0003 03bc 012b ffff | + | .CONST 0x012b,0xffff 03be 012e 0001 | . | .CONST 0x012e,0x0001 03c0 0131 0002 | 1 | .CONST 0x0131,0x0002 03c2 0137 0003 | 7 | .CONST 0x0137,0x0003 03c4 ; -------------------------------------------------------------------------------------- 03c4 ; Debug3 Subtable 0xb 03c4 ; -------------------------------------------------------------------------------------- 03c4 0000 0005 | | .DBG3TAB 0x0000,0x0005 03c6 0143 0001 | C | .CONST 0x0143,0x0001 03c8 0145 0002 | E | .CONST 0x0145,0x0002 03ca 0149 0003 | I | .CONST 0x0149,0x0003 03cc 014e 0004 | N | .CONST 0x014e,0x0004 03ce 0154 0005 | T | .CONST 0x0154,0x0005 03d0 ; -------------------------------------------------------------------------------------- 03d0 ; Debug3 Subtable 0xc 03d0 ; -------------------------------------------------------------------------------------- 03d0 0000 0004 | | .DBG3TAB 0x0000,0x0004 03d2 015b 0001 | [ | .CONST 0x015b,0x0001 03d4 015d 0002 | ] | .CONST 0x015d,0x0002 03d6 0160 0003 | ` | .CONST 0x0160,0x0003 03d8 0164 0004 | d | .CONST 0x0164,0x0004 03da ; -------------------------------------------------------------------------------------- 03da ; Debug3 Subtable 0xd 03da ; -------------------------------------------------------------------------------------- 03da 0001 0003 | | .DBG3TAB 0x0001,0x0003 03dc 016b ffff | k | .CONST 0x016b,0xffff 03de 016e 0001 | n | .CONST 0x016e,0x0001 03e0 0171 0002 | q | .CONST 0x0171,0x0002 03e2 0177 0003 | w | .CONST 0x0177,0x0003 03e4 ; -------------------------------------------------------------------------------------- 03e4 ; Debug3 Subtable 0xe 03e4 ; -------------------------------------------------------------------------------------- 03e4 0000 0005 | | .DBG3TAB 0x0000,0x0005 03e6 0183 0001 | | .CONST 0x0183,0x0001 03e8 0185 0002 | | .CONST 0x0185,0x0002 03ea 0189 0003 | | .CONST 0x0189,0x0003 03ec 018e 0004 | | .CONST 0x018e,0x0004 03ee 0194 0005 | | .CONST 0x0194,0x0005 03f0 ; -------------------------------------------------------------------------------------- 03f0 ; Debug3 Subtable 0xf 03f0 ; -------------------------------------------------------------------------------------- 03f0 0000 0001 | | .DBG3TAB 0x0000,0x0001 03f2 019b 0001 | | .CONST 0x019b,0x0001 03f4 ; -------------------------------------------------------------------------------------- 03f4 ; Debug3 Subtable 0x10 03f4 ; -------------------------------------------------------------------------------------- 03f4 0000 0008 | | .DBG3TAB 0x0000,0x0008 03f6 01a3 0001 | | .CONST 0x01a3,0x0001 03f8 01a5 0002 | | .CONST 0x01a5,0x0002 03fa 01a7 0003 | | .CONST 0x01a7,0x0003 03fc 01a9 0004 | | .CONST 0x01a9,0x0004 03fe 01ac 0005 | | .CONST 0x01ac,0x0005 0400 01b1 0006 | | .CONST 0x01b1,0x0006 0402 01b8 0007 | | .CONST 0x01b8,0x0007 0404 01bc 0008 | | .CONST 0x01bc,0x0008 0406 ; -------------------------------------------------------------------------------------- 0406 ; Debug3 Subtable 0x11 0406 ; -------------------------------------------------------------------------------------- 0406 0000 0000 | | .DBG3TAB 0x0000,0x0000 0408 ; -------------------------------------------------------------------------------------- 0408 ; Debug3 Subtable 0x12 0408 ; -------------------------------------------------------------------------------------- 0408 0000 0003 | | .DBG3TAB 0x0000,0x0003 040a 01e3 0001 | | .CONST 0x01e3,0x0001 040c 01e5 0002 | | .CONST 0x01e5,0x0002 040e 01e7 0003 | | .CONST 0x01e7,0x0003 0410 ; -------------------------------------------------------------------------------------- 0410 ; Debug3 Subtable 0x13 0410 ; -------------------------------------------------------------------------------------- 0410 0000 0003 | | .DBG3TAB 0x0000,0x0003 0412 01f3 0001 | | .CONST 0x01f3,0x0001 0414 01f5 0002 | | .CONST 0x01f5,0x0002 0416 01f7 0003 | | .CONST 0x01f7,0x0003 0418 ; -------------------------------------------------------------------------------------- 0418 ; Debug3 Subtable 0x14 0418 ; -------------------------------------------------------------------------------------- 0418 0000 0003 | | .DBG3TAB 0x0000,0x0003 041a 0203 0001 | | .CONST 0x0203,0x0001 041c 0205 0002 | | .CONST 0x0205,0x0002 041e 0207 0003 | | .CONST 0x0207,0x0003 0420 ; -------------------------------------------------------------------------------------- 0420 ; Debug3 Subtable 0x15 0420 ; -------------------------------------------------------------------------------------- 0420 0003 0009 | | .DBG3TAB 0x0003,0x0009 0422 0213 ffff | | .CONST 0x0213,0xffff 0424 0217 fffe | | .CONST 0x0217,0xfffe 0426 021b fffd | | .CONST 0x021b,0xfffd 0428 021f 0001 | | .CONST 0x021f,0x0001 042a 0223 0002 | # | .CONST 0x0223,0x0002 042c 0232 0003 | 2 | .CONST 0x0232,0x0003 042e 0233 0004 | 3 | .CONST 0x0233,0x0004 0430 0237 0005 | 7 | .CONST 0x0237,0x0005 0432 0246 0006 | F | .CONST 0x0246,0x0006 0434 0247 0007 | G | .CONST 0x0247,0x0007 0436 024a 0008 | J | .CONST 0x024a,0x0008 0438 0258 0009 | X | .CONST 0x0258,0x0009 043a 0000 0000 | | .BLANK 0000[0x1c6]