|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2048 (0x800) Notes: 00_class, 5811_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_07b4f8
└─⟦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 5811 |X | .CONST 0x5811 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 01e8 | | .CONST 0x01e8 ; 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 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 002d | - | .CONST 0x002d ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0014 | | .CONST 0x0014 ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 ; Debug Table 0x0 = .DEBUG 0x000b,0x0232,0x8000,0x0000,0x0032,0xc7f4,0x0000,0x0007 ; Debug Table 0x0.0x0 = 0xb,0xffff 000c 4803 |H | Short_Literal 0x3 000d 029f 0033 | 3| Declare_Subprogram INIT_0030,For_Call 000f 03fe | | Declare_Type Discrete,Defined,Visible 0010 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x1 = 0x10,0xfffe 0011 4801 |H | Short_Literal 0x1 0012 00da | | Load_Top At_Offset_2 0013 03f9 | | Declare_Type Discrete,Constrained,Visible 0014 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0x14,0xfffd 0016 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x16,0xfffc 0018 00bf | | Action Accept_Activation 0019 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x0019,0x023c,0x8000,0x0000,0x0033,0xd704,0x0000,0x0009 ; Debug Table 0x1.0x0 = 0x19,0xffff 001a 0007 | | Action Break_Optional ; Debug Table 0x1.0x1 = 0x1a,0xfffe 001b 0007 | | Action Break_Optional ; Debug Table 0x1.0x2 = 0x1b,0xfffd 001c 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x1.0x3 = 0x1c,0xfffc 001d 00eb | | Load_Encached Diana_Cache 001e 1812 | | Execute Package,Field_Execute,Field_Number 0x12 001f 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0020 029d 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call ; Debug Table 0x1.0x4 = 0x20,0xfffb 0022 0007 | | Action Break_Optional ; Debug Table 0x1.0x5 = 0x22,0xfffa 0023 029d 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call ; Debug Table 0x1.0x6 = 0x23,0xfff9 0025 0007 | | Action Break_Optional ; Debug Table 0x1.0x7 = 0x25,0xfff8 0026 029d 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call ; Debug Table 0x1.0x8 = 0x26,0xfff7 0028 0007 | | Action Break_Optional ; Debug Table 0x1.0x9 = 0x28,0xfff6 0029 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0xa = 0x29,0xfff5 002a 00c7 | | Action Elaborate_Subprogram 002b 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0xb = 0x2b,0xfff4 002c 00c7 | | Action Elaborate_Subprogram 002d BODY_0008: 002d 00bc | | Action Signal_Activated 002e 00bb | | Action Signal_Completion 002f 0000 | | .XXX[0x1] 0030 ; -------------------------------------------------------------------------------------- 0030 ; SUBPROGRAM 0030 ; -------------------------------------------------------------------------------------- 0030 0033 | 3 | .CONST 0x0033 ; Address of begin 0031 0004 | | .CONST 0x0004 ; Address of exception handler 0032 0001 | | .CONST 0x0001 ; Number of locals 0033 BODY_0030: 0033 INIT_0030: 0033 4603 |F | Jump_Case 0x4 ; Debug Table 0x2 = .DEBUG 0x0033,0x0256,0x0005,0x0000,0x0032,0xc7f4,0x0000,0x0008 0034 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0035 7802 |x | Jump 0x38 ; case 0x1 0036 7805 |x | Jump 0x3c ; case 0x2 0037 7809 |x | Jump 0x41 ; case 0x3 0038 00da | | Load_Top At_Offset_2 0039 0091 01ce | | Action Push_String_Extended_Indexed,0x1ce ; "BEFORE" 003b 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 003c 00db | | Load_Top At_Offset_3 003d 00db | | Load_Top At_Offset_3 003e 00e0 | | Load_Encached Standard_Cache 003f 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0040 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0041 00da | | Load_Top At_Offset_2 0042 00e0 | | Load_Encached Standard_Cache 0043 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0044 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0045 0000 0000 | | .XXX[0x3] 0047 0000 | | 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 0052 | R | .CONST 0x0052 ; Address of begin 0049 0004 | | .CONST 0x0004 ; Address of exception handler 004a 0004 | | .CONST 0x0004 ; Number of locals 004b INIT_0048: 004b e001 | | Load 0x0,0x1 ; Debug Table 0x3 = .DEBUG 0x004b,0x0258,0x0002,0x0000,0x0032,0xc7f4,0x0000,0x0017 ; Debug Table 0x3.0x0 = 0x4b,0xffff 004c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 004d 0322 | " | Declare_Variable Record 004e e001 | | Load 0x0,0x1 004f 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0050 0322 | " | Declare_Variable Record 0051 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x3.0x1 = 0x51,0xfffe 0052 BODY_0048: 0052 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0x2 = 0x52,0x1 0053 e5fe | | Load 0x2,-0x2 0054 e5ff | | Load 0x2,-0x1 0055 e001 | | Load 0x0,0x1 0056 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0057 00db | | Load_Top At_Offset_3 0058 017d | } | Execute Record,Structure_Write 0059 e5fd | | Load 0x2,-0x3 ; Debug Table 0x3.0x3 = 0x59,0x2 005a 0f02 | | Execute_Immediate Equal,0x2 005b 6802 |h | Jump_Zero 0x5e 005c 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0x4 = 0x5c,0x3 005d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 005e e5ff | | Load 0x2,-0x1 ; Debug Table 0x3.0x5 = 0x5e,0x4 005f 8213 | | Call 0x1,0x13 0060 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0061 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x6 = 0x61,0x5 0062 e211 | | Load 0x1,0x11 0063 021f | | Execute Heap_Access,Equal 0064 6802 |h | Jump_Zero 0x67 0065 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0x7 = 0x65,0x6 0066 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0067 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0x8 = 0x67,0x7 0068 e5fe | | Load 0x2,-0x2 0069 00da | | Load_Top At_Offset_2 006a e001 | | Load 0x0,0x1 006b 1819 | | Execute Package,Field_Execute,Field_Number 0x19 006c 00da | | Load_Top At_Offset_2 006d 017d | } | Execute Record,Structure_Write 006e e5fd | | Load 0x2,-0x3 ; Debug Table 0x3.0x9 = 0x6e,0x8 006f 4603 |F | Jump_Case 0x4 0070 7805 |x | Jump 0x76 ; case 0x0 0071 7813 |x | Jump 0x85 ; case 0x1 0072 7801 |x | Jump 0x74 ; case 0x2 0073 781a |x | Jump 0x8e ; case 0x3 0074 48e2 |H | Short_Literal 0xe2 ; Debug Table 0x3.0xa = 0x74,0x9 0075 0257 | W | Execute Discrete,Raise 0076 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0xb = 0x76,0xa 0077 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0078 0aff | | Execute_Immediate Plus,-0x1 0079 00db | | Load_Top At_Offset_3 007a 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 007b e5fe | | Load 0x2,-0x2 ; Debug Table 0x3.0xc = 0x7b,0xb 007c 00db | | Load_Top At_Offset_3 007d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 007e 00e4 | | Load_Encached Positive_Cache 007f 025b | [ | Execute Discrete,Check_In_Type 0080 e001 | | Load 0x0,0x1 0081 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0082 00db | | Load_Top At_Offset_3 0083 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0084 780b |x | Jump 0x90 0085 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0xd = 0x85,0xc 0086 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0087 0a01 | | Execute_Immediate Plus,0x1 0088 00db | | Load_Top At_Offset_3 0089 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 008a 4801 |H | Short_Literal 0x1 ; Debug Table 0x3.0xe = 0x8a,0xd 008b 00db | | Load_Top At_Offset_3 008c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 008d 7802 |x | Jump 0x90 008e 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0xf = 0x8e,0xe 008f 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0090 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0x10 = 0x90,0xf 0091 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0092 0000 0000 | | .BLANK 0000[0x6] 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 009f | | .CONST 0x009f ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 0003 | | .CONST 0x0003 ; Number of locals 009b INIT_0098: 009b e001 | | Load 0x0,0x1 ; Debug Table 0x4 = .DEBUG 0x009b,0x027c,0x0002,0x0000,0x0032,0xc7f4,0x0000,0x002f ; Debug Table 0x4.0x0 = 0x9b,0xffff 009c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 009d 0322 | " | Declare_Variable Record 009e 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x4.0x1 = 0x9e,0xfffe 009f BODY_0098: 009f e5fd | | Load 0x2,-0x3 ; Debug Table 0x4.0x2 = 0x9f,0x1 00a0 4603 |F | Jump_Case 0x4 00a1 7803 |x | Jump 0xa5 ; case 0x0 00a2 780b |x | Jump 0xae ; case 0x1 00a3 7801 |x | Jump 0xa5 ; case 0x2 00a4 7811 |x | Jump 0xb6 ; case 0x3 00a5 e5fe | | Load 0x2,-0x2 ; Debug Table 0x4.0x3 = 0xa5,0x2 00a6 4801 |H | Short_Literal 0x1 00a7 e5ff | | Load 0x2,-0x1 00a8 8212 | | Call 0x1,0x12 00a9 e001 | | Load 0x0,0x1 00aa 181f | | Execute Package,Field_Execute,Field_Number 0x1f 00ab 00da | | Load_Top At_Offset_2 00ac 017d | } | Execute Record,Structure_Write 00ad 781a |x | Jump 0xc8 00ae e5fe | | Load 0x2,-0x2 ; Debug Table 0x4.0x4 = 0xae,0x3 00af 4801 |H | Short_Literal 0x1 00b0 e5ff | | Load 0x2,-0x1 00b1 e001 | | Load 0x0,0x1 00b2 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00b3 00da | | Load_Top At_Offset_2 00b4 017d | } | Execute Record,Structure_Write 00b5 7812 |x | Jump 0xc8 00b6 e5ff | | Load 0x2,-0x1 ; Debug Table 0x4.0x5 = 0xb6,0x4 00b7 8213 | | Call 0x1,0x13 00b8 0031 | 1 | Store_Top Heap_Access,At_Offset_1 00b9 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x6 = 0xb9,0x5 00ba e211 | | Load 0x1,0x11 00bb 021f | | Execute Heap_Access,Equal 00bc 7008 |p | Jump_Nonzero 0xc5 00bd e5fe | | Load 0x2,-0x2 ; Debug Table 0x4.0x7 = 0xbd,0x6 00be 4801 |H | Short_Literal 0x1 00bf 00da | | Load_Top At_Offset_2 00c0 e001 | | Load 0x0,0x1 00c1 181f | | Execute Package,Field_Execute,Field_Number 0x1f 00c2 00da | | Load_Top At_Offset_2 00c3 017d | } | Execute Record,Structure_Write 00c4 7803 |x | Jump 0xc8 00c5 e001 | | Load 0x0,0x1 ; Debug Table 0x4.0x8 = 0xc5,0x7 00c6 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00c7 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6 00c8 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x4.0x9 = 0xc8,0x8 00c9 e5fa | | Load 0x2,-0x6 00ca e5fb | | Load 0x2,-0x5 00cb e5fc | | Load 0x2,-0x4 00cc 0f00 | | Execute_Immediate Equal,0x0 00cd e5fe | | Load 0x2,-0x2 00ce 8214 | | Call 0x1,0x14 00cf 00d1 | | Pop_Control Pop_Count_1 00d0 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x4.0xa = 0xd0,0x9 00d1 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6 00d2 0000 0000 | | .BLANK 0000[0x6] 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00dc | | .CONST 0x00dc ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0002 | | .CONST 0x0002 ; Number of locals 00db INIT_00d8: 00db 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x5 = .DEBUG 0x00db,0x0294,0x0002,0x0000,0x0033,0xd704,0x0000,0x0038 ; Debug Table 0x5.0x0 = 0xdb,0xffff 00dc BODY_00d8: 00dc 00db | | Load_Top At_Offset_3 ; Debug Table 0x5.0x1 = 0xdc,0x1 00dd 00eb | | Load_Encached Diana_Cache 00de 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00df 0ba8 | | Execute_Immediate Case_Compare,0xa8 00e0 700f |p | Jump_Nonzero 0xf0 00e1 e5ff | | Load 0x2,-0x1 ; Debug Table 0x5.0x2 = 0xe1,0x3 00e2 00eb | | Load_Encached Diana_Cache 00e3 18ec | | Execute Package,Field_Execute,Field_Number 0xec 00e4 0032 | 2 | Store_Top Heap_Access,At_Offset_2 00e5 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x5.0x3 = 0xe5,0x4 00e6 00eb | | Load_Encached Diana_Cache 00e7 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00e8 0ba8 | | Execute_Immediate Case_Compare,0xa8 00e9 7002 |p | Jump_Nonzero 0xec 00ea e5ff | | Load 0x2,-0x1 ; Debug Table 0x5.0x4 = 0xea,0x6 00eb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00ec 00da | | Load_Top At_Offset_2 ; Debug Table 0x5.0x5 = 0xec,0x5 00ed 00eb | | Load_Encached Diana_Cache 00ee 18bb | | Execute Package,Field_Execute,Field_Number 0xbb 00ef 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00f0 e5ff | | Load 0x2,-0x1 ; Debug Table 0x5.0x6 = 0xf0,0x2 00f1 00eb | | Load_Encached Diana_Cache 00f2 18bb | | Execute Package,Field_Execute,Field_Number 0xbb 00f3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00f4 0000 0000 | | .BLANK 0000[0x4] 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 00fe | | .CONST 0x00fe ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0002 | | .CONST 0x0002 ; Number of locals 00fb INIT_00f8: 00fb 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x6 = .DEBUG 0x00fb,0x02a4,0x0002,0x0000,0x0033,0xd704,0x0000,0x0090 ; Debug Table 0x6.0x0 = 0xfb,0xffff 00fc 00db | | Load_Top At_Offset_3 00fd 0031 | 1 | Store_Top Heap_Access,At_Offset_1 00fe BODY_00f8: 00fe 00cf | | Action Mark_Auxiliary 00ff 0007 | | Action Break_Optional ; Debug Table 0x6.0x1 = 0xff,0x1 0100 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x6.0x2 = 0x100,0x2 0101 00eb | | Load_Encached Diana_Cache 0102 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0103 0ba8 | | Execute_Immediate Case_Compare,0xa8 0104 7016 |p | Jump_Nonzero 0x11b 0105 0b49 | I | Execute_Immediate Case_Compare,0x49 0106 7019 |p | Jump_Nonzero 0x120 0107 0b41 | A | Execute_Immediate Case_Compare,0x41 0108 701c |p | Jump_Nonzero 0x125 0109 0b3b | ; | Execute_Immediate Case_Compare,0x3b 010a 701f |p | Jump_Nonzero 0x12a 010b 0b3f | ? | Execute_Immediate Case_Compare,0x3f 010c 702a |p* | Jump_Nonzero 0x137 010d 0b3e | > | Execute_Immediate Case_Compare,0x3e 010e 702c |p, | Jump_Nonzero 0x13b 010f 0b73 | s | Execute_Immediate Case_Compare,0x73 0110 702e |p. | Jump_Nonzero 0x13f 0111 0b47 | G | Execute_Immediate Case_Compare,0x47 0112 702e |p. | Jump_Nonzero 0x141 0113 0b46 | F | Execute_Immediate Case_Compare,0x46 0114 702c |p, | Jump_Nonzero 0x141 0115 0b48 | H | Execute_Immediate Case_Compare,0x48 0116 702a |p* | Jump_Nonzero 0x141 0117 0b7c | | | Execute_Immediate Case_Compare,0x7c 0118 702c |p, | Jump_Nonzero 0x145 0119 e211 | | Load 0x1,0x11 ; Debug Table 0x6.0x3 = 0x119,0xf 011a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 011b 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0x4 = 0x11b,0x3 011c 00eb | | Load_Encached Diana_Cache 011d 18e9 | | Execute Package,Field_Execute,Field_Number 0xe9 011e 0033 | 3 | Store_Top Heap_Access,At_Offset_3 011f 7827 |x' | Jump 0x147 0120 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0x5 = 0x120,0x4 0121 00eb | | Load_Encached Diana_Cache 0122 18e5 | | Execute Package,Field_Execute,Field_Number 0xe5 0123 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0124 7822 |x" | Jump 0x147 0125 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0x6 = 0x125,0x5 0126 00eb | | Load_Encached Diana_Cache 0127 18cc | | Execute Package,Field_Execute,Field_Number 0xcc 0128 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0129 781d |x | Jump 0x147 012a 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0x7 = 0x12a,0x6 012b 00eb | | Load_Encached Diana_Cache 012c 18e8 | | Execute Package,Field_Execute,Field_Number 0xe8 012d 0033 | 3 | Store_Top Heap_Access,At_Offset_3 012e 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0x8 = 0x12e,0x7 012f 00eb | | Load_Encached Diana_Cache 0130 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0131 0b73 | s | Execute_Immediate Case_Compare,0x73 0132 7002 |p | Jump_Nonzero 0x135 0133 e211 | | Load 0x1,0x11 ; Debug Table 0x6.0x9 = 0x133,0x9 0134 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0135 00db | | Load_Top At_Offset_3 ; Debug Table 0x6.0xa = 0x135,0x8 0136 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0137 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0xb = 0x137,0xa 0138 00eb | | Load_Encached Diana_Cache 0139 18e6 | | Execute Package,Field_Execute,Field_Number 0xe6 013a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 013b 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0xc = 0x13b,0xb 013c 00eb | | Load_Encached Diana_Cache 013d 18d8 | | Execute Package,Field_Execute,Field_Number 0xd8 013e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 013f 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0xd = 0x13f,0xc 0140 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0141 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0xe = 0x141,0xd 0142 00eb | | Load_Encached Diana_Cache 0143 18b6 | | Execute Package,Field_Execute,Field_Number 0xb6 0144 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0145 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0xf = 0x145,0xe 0146 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0147 00d1 | | Pop_Control Pop_Count_1 0148 00c9 | | Action Pop_Auxiliary_Loop 0149 7fb6 | | Jump 0x100 014a 0000 0000 | | .BLANK 0000[0x6] 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0155 | U | .CONST 0x0155 ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0002 | | .CONST 0x0002 ; Number of locals 0153 INIT_0150: 0153 029f 0193 | | Declare_Subprogram INIT_0190,For_Call ; Debug Table 0x7 = .DEBUG 0x0153,0x02c6,0x0001,0x0000,0x0033,0xd704,0x0000,0x0148 ; Debug Table 0x7.0x0 = 0x153,0xffff 0155 BODY_0150: 0155 e5fe | | Load 0x2,-0x2 ; Debug Table 0x7.0x1 = 0x155,0x1 0156 6814 |h | Jump_Zero 0x16b 0157 00cf | | Action Mark_Auxiliary 0158 e5fb | | Load 0x2,-0x5 ; Debug Table 0x7.0x2 = 0x158,0x2 0159 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 015a e5fb | | Load 0x2,-0x5 015b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 015c 0264 | d | Execute Discrete,Below_Bound 015d 700b |p | Jump_Nonzero 0x169 015e 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0x3 = 0x15e,0x3 015f 8402 | | Call 0x2,0x2 0160 6806 |h | Jump_Zero 0x167 0161 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0x4 = 0x161,0x4 0162 0a01 | | Execute_Immediate Plus,0x1 0163 e5fb | | Load 0x2,-0x5 0164 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0165 00d2 | | Pop_Control Pop_Count_2 ; Debug Table 0x7.0x5 = 0x165,0x5 0166 7802 |x | Jump 0x169 0167 00c8 | | Action Pop_Auxiliary_Range 0168 37f5 |7 | Loop_Decreasing 0x15e 0169 00ce | | Action Pop_Auxiliary 016a 7813 |x | Jump 0x17e 016b 00cf | | Action Mark_Auxiliary 016c e5fb | | Load 0x2,-0x5 ; Debug Table 0x7.0x6 = 0x16c,0x6 016d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 016e e5fb | | Load 0x2,-0x5 016f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0170 0263 | c | Execute Discrete,Above_Bound 0171 700b |p | Jump_Nonzero 0x17d 0172 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0x7 = 0x172,0x7 0173 8402 | | Call 0x2,0x2 0174 6806 |h | Jump_Zero 0x17b 0175 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0x8 = 0x175,0x8 0176 0aff | | Execute_Immediate Plus,-0x1 0177 e5fb | | Load 0x2,-0x5 0178 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0179 00d2 | | Pop_Control Pop_Count_2 ; Debug Table 0x7.0x9 = 0x179,0x9 017a 7802 |x | Jump 0x17d 017b 00c8 | | Action Pop_Auxiliary_Range 017c 3ff5 |? | Loop_Increasing 0x172 017d 00ce | | Action Pop_Auxiliary 017e e5fb | | Load 0x2,-0x5 ; Debug Table 0x7.0xa = 0x17e,0xa 017f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0180 e5fb | | Load 0x2,-0x5 0181 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0182 027d | } | Execute Discrete,Greater 0183 6804 |h | Jump_Zero 0x188 0184 e001 | | Load 0x0,0x1 ; Debug Table 0x7.0xb = 0x184,0xb 0185 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0186 e5fb | | Load 0x2,-0x5 0187 017d | } | Execute Record,Structure_Write 0188 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0189 0000 0000 | | .BLANK 0000[0x7] 0190 ; -------------------------------------------------------------------------------------- 0190 ; SUBPROGRAM 0190 ; -------------------------------------------------------------------------------------- 0190 019c | | .CONST 0x019c ; Address of begin 0191 0004 | | .CONST 0x0004 ; Address of exception handler 0192 0002 | | .CONST 0x0002 ; Number of locals 0193 INIT_0190: 0193 4820 |H | Short_Literal 0x20 ; Debug Table 0x8 = .DEBUG 0x0193,0x02e0,0x0002,0x0000,0x0033,0xd704,0x0000,0x0163 ; Debug Table 0x8.0x0 = 0x193,0xffff 0194 e5ff | | Load 0x2,-0x1 0195 e7ff | | Load 0x3,-0x1 0196 00e4 | | Load_Encached Positive_Cache 0197 025b | [ | Execute Discrete,Check_In_Type 0198 e001 | | Load 0x0,0x1 0199 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 019a e002 | | Load 0x0,0x2 019b 181c | | Execute Package,Field_Execute,Field_Number 0x1c 019c BODY_0190: 019c 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x8.0x1 = 0x19c,0x1 019d 01db | | Execute Vector,Length 019e 0b00 | | Execute_Immediate Case_Compare,0x0 019f 702a |p* | Jump_Nonzero 0x1ca 01a0 0b01 | | Execute_Immediate Case_Compare,0x1 01a1 702a |p* | Jump_Nonzero 0x1cc 01a2 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x8.0x2 = 0x1a2,0x4 01a3 01dd | | Execute Vector,First 01a4 00da | | Load_Top At_Offset_2 01a5 01dd | | Execute Vector,First 01a6 0a01 | | Execute_Immediate Plus,0x1 01a7 0248 | H | Execute Discrete,Check_In_Integer 01a8 00db | | Load_Top At_Offset_3 01a9 01cf | | Execute Vector,Slice_Read 01aa 0092 01d2 | | Action Push_String_Extended,0x1d2 ; "--" 01ac 01df | | Execute Vector,Equal 01ad 681a |h | Jump_Zero 0x1c8 01ae e5fc | | Load 0x2,-0x4 ; Debug Table 0x8.0x3 = 0x1ae,0x5 01af 01db | | Execute Vector,Length 01b0 7002 |p | Jump_Nonzero 0x1b3 01b1 4800 |H | Short_Literal 0x0 ; Debug Table 0x8.0x4 = 0x1b1,0x6 01b2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01b3 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x8.0x5 = 0x1b3,0x7 01b4 01dd | | Execute Vector,First 01b5 0a02 | | Execute_Immediate Plus,0x2 01b6 00da | | Load_Top At_Offset_2 01b7 01dc | | Execute Vector,Last 01b8 027a | z | Execute Discrete,Less_Equal 01b9 680c |h | Jump_Zero 0x1c6 01ba 4800 |H | Short_Literal 0x0 ; Debug Table 0x8.0x6 = 0x1ba,0x8 01bb e5fc | | Load 0x2,-0x4 01bc 00db | | Load_Top At_Offset_3 01bd 01dd | | Execute Vector,First 01be 0a02 | | Execute_Immediate Plus,0x2 01bf 0248 | H | Execute Discrete,Check_In_Integer 01c0 e602 | | Load 0x3,0x2 01c1 01d7 | | Execute Vector,Field_Read 01c2 e002 | | Load 0x0,0x2 01c3 181e | | Execute Package,Field_Execute,Field_Number 0x1e 01c4 0f00 | | Execute_Immediate Equal,0x0 01c5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01c6 4801 |H | Short_Literal 0x1 ; Debug Table 0x8.0x7 = 0x1c6,0x9 01c7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01c8 4801 |H | Short_Literal 0x1 ; Debug Table 0x8.0x8 = 0x1c8,0xa 01c9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01ca e5fd | | Load 0x2,-0x3 ; Debug Table 0x8.0x9 = 0x1ca,0x2 01cb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01cc 4801 |H | Short_Literal 0x1 ; Debug Table 0x8.0xa = 0x1cc,0x3 01cd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01ce ; -------------------------------------------------------------------------------------- 01ce ; STRING TABLE 01ce ; -------------------------------------------------------------------------------------- 01ce 000c | | .STRTAB 0x000c->0x01d4 ; "BEFORE" 01cf 0010 | | .STRTAB 0x0010->0x01d7 ; "AFTER" 01d0 0013 | | .STRTAB 0x0013->0x01d9 ; "EVERYTHING" 01d1 001b | | .STRTAB 0x001b->0x01de ; "INSIDE" 01d2 001f | | .STRTAB 0x001f->0x01e1 ; "--" 01d3 001f | | .STREND 0x001f->0x01e2 01d4 4245 464f |BEFO| .STRTAB_STRINGS 01e3 0000 0000 | | .BLANK 0000[0x5] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; Debug Table 01e8 ; -------------------------------------------------------------------------------------- 01e8 0003 0009 | | .CONST 0x0003,0x0009 01ea 000b 0232 | 2| .DEBUG 0x000b,0x0232,0x8000,0x0000,0x0032,0xc7f4,0x0000,0x0007 01f2 0019 023c | <| .DEBUG 0x0019,0x023c,0x8000,0x0000,0x0033,0xd704,0x0000,0x0009 01fa 0033 0256 | 3 V| .DEBUG 0x0033,0x0256,0x0005,0x0000,0x0032,0xc7f4,0x0000,0x0008 0202 004b 0258 | K X| .DEBUG 0x004b,0x0258,0x0002,0x0000,0x0032,0xc7f4,0x0000,0x0017 020a 009b 027c | || .DEBUG 0x009b,0x027c,0x0002,0x0000,0x0032,0xc7f4,0x0000,0x002f 0212 00db 0294 | | .DEBUG 0x00db,0x0294,0x0002,0x0000,0x0033,0xd704,0x0000,0x0038 021a 00fb 02a4 | | .DEBUG 0x00fb,0x02a4,0x0002,0x0000,0x0033,0xd704,0x0000,0x0090 0222 0153 02c6 | S | .DEBUG 0x0153,0x02c6,0x0001,0x0000,0x0033,0xd704,0x0000,0x0148 022a 0193 02e0 | | .DEBUG 0x0193,0x02e0,0x0002,0x0000,0x0033,0xd704,0x0000,0x0163 0232 ; -------------------------------------------------------------------------------------- 0232 ; Debug3 Subtable 0x0 0232 ; -------------------------------------------------------------------------------------- 0232 0004 0000 | | .DBG3TAB 0x0004,0x0000 0234 000b ffff | | .CONST 0x000b,0xffff 0236 0010 fffe | | .CONST 0x0010,0xfffe 0238 0014 fffd | | .CONST 0x0014,0xfffd 023a 0016 fffc | | .CONST 0x0016,0xfffc 023c ; -------------------------------------------------------------------------------------- 023c ; Debug3 Subtable 0x1 023c ; -------------------------------------------------------------------------------------- 023c 000c 0000 | | .DBG3TAB 0x000c,0x0000 023e 0019 ffff | | .CONST 0x0019,0xffff 0240 001a fffe | | .CONST 0x001a,0xfffe 0242 001b fffd | | .CONST 0x001b,0xfffd 0244 001c fffc | | .CONST 0x001c,0xfffc 0246 0020 fffb | | .CONST 0x0020,0xfffb 0248 0022 fffa | " | .CONST 0x0022,0xfffa 024a 0023 fff9 | # | .CONST 0x0023,0xfff9 024c 0025 fff8 | % | .CONST 0x0025,0xfff8 024e 0026 fff7 | & | .CONST 0x0026,0xfff7 0250 0028 fff6 | ( | .CONST 0x0028,0xfff6 0252 0029 fff5 | ) | .CONST 0x0029,0xfff5 0254 002b fff4 | + | .CONST 0x002b,0xfff4 0256 ; -------------------------------------------------------------------------------------- 0256 ; Debug3 Subtable 0x2 0256 ; -------------------------------------------------------------------------------------- 0256 0000 0000 | | .DBG3TAB 0x0000,0x0000 0258 ; -------------------------------------------------------------------------------------- 0258 ; Debug3 Subtable 0x3 0258 ; -------------------------------------------------------------------------------------- 0258 0002 000f | | .DBG3TAB 0x0002,0x000f 025a 004b ffff | K | .CONST 0x004b,0xffff 025c 0051 fffe | Q | .CONST 0x0051,0xfffe 025e 0052 0001 | R | .CONST 0x0052,0x0001 0260 0059 0002 | Y | .CONST 0x0059,0x0002 0262 005c 0003 | \ | .CONST 0x005c,0x0003 0264 005e 0004 | ^ | .CONST 0x005e,0x0004 0266 0061 0005 | a | .CONST 0x0061,0x0005 0268 0065 0006 | e | .CONST 0x0065,0x0006 026a 0067 0007 | g | .CONST 0x0067,0x0007 026c 006e 0008 | n | .CONST 0x006e,0x0008 026e 0074 0009 | t | .CONST 0x0074,0x0009 0270 0076 000a | v | .CONST 0x0076,0x000a 0272 007b 000b | { | .CONST 0x007b,0x000b 0274 0085 000c | | .CONST 0x0085,0x000c 0276 008a 000d | | .CONST 0x008a,0x000d 0278 008e 000e | | .CONST 0x008e,0x000e 027a 0090 000f | | .CONST 0x0090,0x000f 027c ; -------------------------------------------------------------------------------------- 027c ; Debug3 Subtable 0x4 027c ; -------------------------------------------------------------------------------------- 027c 0002 0009 | | .DBG3TAB 0x0002,0x0009 027e 009b ffff | | .CONST 0x009b,0xffff 0280 009e fffe | | .CONST 0x009e,0xfffe 0282 009f 0001 | | .CONST 0x009f,0x0001 0284 00a5 0002 | | .CONST 0x00a5,0x0002 0286 00ae 0003 | | .CONST 0x00ae,0x0003 0288 00b6 0004 | | .CONST 0x00b6,0x0004 028a 00b9 0005 | | .CONST 0x00b9,0x0005 028c 00bd 0006 | | .CONST 0x00bd,0x0006 028e 00c5 0007 | | .CONST 0x00c5,0x0007 0290 00c8 0008 | | .CONST 0x00c8,0x0008 0292 00d0 0009 | | .CONST 0x00d0,0x0009 0294 ; -------------------------------------------------------------------------------------- 0294 ; Debug3 Subtable 0x5 0294 ; -------------------------------------------------------------------------------------- 0294 0001 0006 | | .DBG3TAB 0x0001,0x0006 0296 00db ffff | | .CONST 0x00db,0xffff 0298 00dc 0001 | | .CONST 0x00dc,0x0001 029a 00e1 0003 | | .CONST 0x00e1,0x0003 029c 00e5 0004 | | .CONST 0x00e5,0x0004 029e 00ea 0006 | | .CONST 0x00ea,0x0006 02a0 00ec 0005 | | .CONST 0x00ec,0x0005 02a2 00f0 0002 | | .CONST 0x00f0,0x0002 02a4 ; -------------------------------------------------------------------------------------- 02a4 ; Debug3 Subtable 0x6 02a4 ; -------------------------------------------------------------------------------------- 02a4 0001 000f | | .DBG3TAB 0x0001,0x000f 02a6 00fb ffff | | .CONST 0x00fb,0xffff 02a8 00ff 0001 | | .CONST 0x00ff,0x0001 02aa 0100 0002 | | .CONST 0x0100,0x0002 02ac 0119 000f | | .CONST 0x0119,0x000f 02ae 011b 0003 | | .CONST 0x011b,0x0003 02b0 0120 0004 | | .CONST 0x0120,0x0004 02b2 0125 0005 | % | .CONST 0x0125,0x0005 02b4 012a 0006 | * | .CONST 0x012a,0x0006 02b6 012e 0007 | . | .CONST 0x012e,0x0007 02b8 0133 0009 | 3 | .CONST 0x0133,0x0009 02ba 0135 0008 | 5 | .CONST 0x0135,0x0008 02bc 0137 000a | 7 | .CONST 0x0137,0x000a 02be 013b 000b | ; | .CONST 0x013b,0x000b 02c0 013f 000c | ? | .CONST 0x013f,0x000c 02c2 0141 000d | A | .CONST 0x0141,0x000d 02c4 0145 000e | E | .CONST 0x0145,0x000e 02c6 ; -------------------------------------------------------------------------------------- 02c6 ; Debug3 Subtable 0x7 02c6 ; -------------------------------------------------------------------------------------- 02c6 0001 000b | | .DBG3TAB 0x0001,0x000b 02c8 0153 ffff | S | .CONST 0x0153,0xffff 02ca 0155 0001 | U | .CONST 0x0155,0x0001 02cc 0158 0002 | X | .CONST 0x0158,0x0002 02ce 015e 0003 | ^ | .CONST 0x015e,0x0003 02d0 0161 0004 | a | .CONST 0x0161,0x0004 02d2 0165 0005 | e | .CONST 0x0165,0x0005 02d4 016c 0006 | l | .CONST 0x016c,0x0006 02d6 0172 0007 | r | .CONST 0x0172,0x0007 02d8 0175 0008 | u | .CONST 0x0175,0x0008 02da 0179 0009 | y | .CONST 0x0179,0x0009 02dc 017e 000a | ~ | .CONST 0x017e,0x000a 02de 0184 000b | | .CONST 0x0184,0x000b 02e0 ; -------------------------------------------------------------------------------------- 02e0 ; Debug3 Subtable 0x8 02e0 ; -------------------------------------------------------------------------------------- 02e0 0001 000a | | .DBG3TAB 0x0001,0x000a 02e2 0193 ffff | | .CONST 0x0193,0xffff 02e4 019c 0001 | | .CONST 0x019c,0x0001 02e6 01a2 0004 | | .CONST 0x01a2,0x0004 02e8 01ae 0005 | | .CONST 0x01ae,0x0005 02ea 01b1 0006 | | .CONST 0x01b1,0x0006 02ec 01b3 0007 | | .CONST 0x01b3,0x0007 02ee 01ba 0008 | | .CONST 0x01ba,0x0008 02f0 01c6 0009 | | .CONST 0x01c6,0x0009 02f2 01c8 000a | | .CONST 0x01c8,0x000a 02f4 01ca 0002 | | .CONST 0x01ca,0x0002 02f6 01cc 0003 | | .CONST 0x01cc,0x0003 02f8 0000 0000 | | .BLANK 0000[0x108]