|
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, 580b_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 580b |X | .CONST 0x580b ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 01d8 | | .CONST 0x01d8 ; 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 0027 | ' | .CONST 0x0027 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0011 | | .CONST 0x0011 ; Number of locals 000b INIT_0008: 000b 0007 | | Action Break_Optional ; Debug Table 0x0 = .DEBUG 0x000b,0x023a,0x8000,0x0000,0x0039,0x3396,0x0000,0x0009 ; Debug Table 0x0.0x0 = 0xb,0xffff 000c 029a 0033 | 3| Declare_Subprogram INIT_0030,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0xc,0xfffe 000e 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0xe,0xfffd 0010 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x10,0xfffc 0012 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x12,0xfffb 0014 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x14,0xfffa 0016 00bf | | Action Accept_Activation 0017 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x0017,0x0248,0x8000,0x0000,0x0039,0x33a6,0x0000,0x000b ; Debug Table 0x1.0x0 = 0x17,0xffff 0018 0007 | | Action Break_Optional ; Debug Table 0x1.0x1 = 0x18,0xfffe 0019 0007 | | Action Break_Optional ; Debug Table 0x1.0x2 = 0x19,0xfffd 001a 0007 | | Action Break_Optional ; Debug Table 0x1.0x3 = 0x1a,0xfffc 001b 0007 | | Action Break_Optional ; Debug Table 0x1.0x4 = 0x1b,0xfffb 001c 0007 | | Action Break_Optional ; Debug Table 0x1.0x5 = 0x1c,0xfffa 001d 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x6 = 0x1d,0xfff9 001e 00c7 | | Action Elaborate_Subprogram 001f 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1.0x7 = 0x1f,0xfff8 0020 00c7 | | Action Elaborate_Subprogram 0021 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x8 = 0x21,0xfff7 0022 00c7 | | Action Elaborate_Subprogram 0023 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x9 = 0x23,0xfff6 0024 00c7 | | Action Elaborate_Subprogram 0025 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0xa = 0x25,0xfff5 0026 00c7 | | Action Elaborate_Subprogram 0027 BODY_0008: 0027 00bc | | Action Signal_Activated 0028 00bb | | Action Signal_Completion 0029 0000 0000 | | .BLANK 0000[0x7] 0030 ; -------------------------------------------------------------------------------------- 0030 ; SUBPROGRAM 0030 ; -------------------------------------------------------------------------------------- 0030 0042 | B | .CONST 0x0042 ; Address of begin 0031 0004 | | .CONST 0x0004 ; Address of exception handler 0032 0007 | | .CONST 0x0007 ; Number of locals 0033 INIT_0030: 0033 00ef | | Load_Encached Diana_Sequence_Cache ; Debug Table 0x2 = .DEBUG 0x0033,0x0260,0x0002,0x0000,0x0039,0x3396,0x0000,0x0010 ; Debug Table 0x2.0x0 = 0x33,0xffff 0034 00eb | | Load_Encached Diana_Cache 0035 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0036 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0037 029f 0143 | C| Declare_Subprogram INIT_0140,For_Call ; Debug Table 0x2.0x1 = 0x37,0xfffe 0039 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x2.0x2 = 0x39,0xfffd 003a 00c6 | | Action Check_Subprogram_Elaborated 003b 4803 |H | Short_Literal 0x3 003c 4802 |H | Short_Literal 0x2 003d 0099 | | Action Reference_Dynamic 003e 6195 |a | Indirect_Literal Discrete,0x1d4,{0x00000000, 0x003933a6} 003f 49d6 |I | Short_Literal 0x1d6 0040 4807 |H | Short_Literal 0x7 0041 0007 | | Action Break_Optional 0042 BODY_0030: 0042 e5fd | | Load 0x2,-0x3 ; Debug Table 0x2.0x3 = 0x42,0x1 0043 e5fe | | Load 0x2,-0x2 0044 e5ff | | Load 0x2,-0x1 0045 4804 |H | Short_Literal 0x4 0046 4802 |H | Short_Literal 0x2 0047 0099 | | Action Reference_Dynamic 0048 4805 |H | Short_Literal 0x5 0049 4802 |H | Short_Literal 0x2 004a 0099 | | Action Reference_Dynamic 004b 8211 | | Call 0x1,0x11 004c e402 | | Load 0x2,0x2 ; Debug Table 0x2.0x4 = 0x4c,0x2 004d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 004e 0000 0000 | | .XXX[0x2] 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 0062 | b | .CONST 0x0062 ; Address of begin 0051 0004 | | .CONST 0x0004 ; Address of exception handler 0052 0007 | | .CONST 0x0007 ; Number of locals 0053 INIT_0050: 0053 00ef | | Load_Encached Diana_Sequence_Cache ; Debug Table 0x3 = .DEBUG 0x0053,0x026c,0x0002,0x0000,0x0039,0x3396,0x0000,0x002b ; Debug Table 0x3.0x0 = 0x53,0xffff 0054 00eb | | Load_Encached Diana_Cache 0055 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0056 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0057 029f 0153 | S| Declare_Subprogram INIT_0150,For_Call ; Debug Table 0x3.0x1 = 0x57,0xfffe 0059 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x3.0x2 = 0x59,0xfffd 005a 00c6 | | Action Check_Subprogram_Elaborated 005b 4803 |H | Short_Literal 0x3 005c 4802 |H | Short_Literal 0x2 005d 0099 | | Action Reference_Dynamic 005e 6175 |au | Indirect_Literal Discrete,0x1d4,{0x00000000, 0x003933a6} 005f 4a36 |J6 | Short_Literal 0x236 0060 4807 |H | Short_Literal 0x7 0061 0007 | | Action Break_Optional 0062 BODY_0050: 0062 e5fd | | Load 0x2,-0x3 ; Debug Table 0x3.0x3 = 0x62,0x1 0063 e5fe | | Load 0x2,-0x2 0064 e5ff | | Load 0x2,-0x1 0065 4804 |H | Short_Literal 0x4 0066 4802 |H | Short_Literal 0x2 0067 0099 | | Action Reference_Dynamic 0068 4805 |H | Short_Literal 0x5 0069 4802 |H | Short_Literal 0x2 006a 0099 | | Action Reference_Dynamic 006b 8211 | | Call 0x1,0x11 006c e402 | | Load 0x2,0x2 ; Debug Table 0x3.0x4 = 0x6c,0x2 006d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 006e 0000 0000 | | .XXX[0x2] 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 0082 | | .CONST 0x0082 ; Address of begin 0071 0004 | | .CONST 0x0004 ; Address of exception handler 0072 0007 | | .CONST 0x0007 ; Number of locals 0073 INIT_0070: 0073 00ef | | Load_Encached Diana_Sequence_Cache ; Debug Table 0x4 = .DEBUG 0x0073,0x0278,0x0002,0x0000,0x0039,0x3396,0x0000,0x0046 ; Debug Table 0x4.0x0 = 0x73,0xffff 0074 00eb | | Load_Encached Diana_Cache 0075 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0076 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0077 029f 016b | k| Declare_Subprogram INIT_0168,For_Call ; Debug Table 0x4.0x1 = 0x77,0xfffe 0079 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x4.0x2 = 0x79,0xfffd 007a 00c6 | | Action Check_Subprogram_Elaborated 007b 4803 |H | Short_Literal 0x3 007c 4802 |H | Short_Literal 0x2 007d 0099 | | Action Reference_Dynamic 007e 6155 |aU | Indirect_Literal Discrete,0x1d4,{0x00000000, 0x003933a6} 007f 4a9e |J | Short_Literal 0x29e 0080 4807 |H | Short_Literal 0x7 0081 0007 | | Action Break_Optional 0082 BODY_0070: 0082 e5fd | | Load 0x2,-0x3 ; Debug Table 0x4.0x3 = 0x82,0x1 0083 e5fe | | Load 0x2,-0x2 0084 e5ff | | Load 0x2,-0x1 0085 4804 |H | Short_Literal 0x4 0086 4802 |H | Short_Literal 0x2 0087 0099 | | Action Reference_Dynamic 0088 4805 |H | Short_Literal 0x5 0089 4802 |H | Short_Literal 0x2 008a 0099 | | Action Reference_Dynamic 008b 8211 | | Call 0x1,0x11 008c e402 | | Load 0x2,0x2 ; Debug Table 0x4.0x4 = 0x8c,0x2 008d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 008e 0000 0000 | | .XXX[0x2] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 00a2 | | .CONST 0x00a2 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0007 | | .CONST 0x0007 ; Number of locals 0093 INIT_0090: 0093 00ef | | Load_Encached Diana_Sequence_Cache ; Debug Table 0x5 = .DEBUG 0x0093,0x0284,0x0002,0x0000,0x0039,0x3396,0x0000,0x0061 ; Debug Table 0x5.0x0 = 0x93,0xffff 0094 00eb | | Load_Encached Diana_Cache 0095 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0096 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0097 029f 0183 | | Declare_Subprogram INIT_0180,For_Call ; Debug Table 0x5.0x1 = 0x97,0xfffe 0099 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x5.0x2 = 0x99,0xfffd 009a 00c6 | | Action Check_Subprogram_Elaborated 009b 4803 |H | Short_Literal 0x3 009c 4802 |H | Short_Literal 0x2 009d 0099 | | Action Reference_Dynamic 009e 6135 |a5 | Indirect_Literal Discrete,0x1d4,{0x00000000, 0x003933a6} 009f 4b0c |K | Short_Literal 0x30c 00a0 4807 |H | Short_Literal 0x7 00a1 0007 | | Action Break_Optional 00a2 BODY_0090: 00a2 e5fd | | Load 0x2,-0x3 ; Debug Table 0x5.0x3 = 0xa2,0x1 00a3 e5fe | | Load 0x2,-0x2 00a4 e5ff | | Load 0x2,-0x1 00a5 4804 |H | Short_Literal 0x4 00a6 4802 |H | Short_Literal 0x2 00a7 0099 | | Action Reference_Dynamic 00a8 4805 |H | Short_Literal 0x5 00a9 4802 |H | Short_Literal 0x2 00aa 0099 | | Action Reference_Dynamic 00ab 8211 | | Call 0x1,0x11 00ac e402 | | Load 0x2,0x2 ; Debug Table 0x5.0x4 = 0xac,0x2 00ad 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 00ae 0000 0000 | | .XXX[0x2] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b6 | | .CONST 0x00b6 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0003 | | .CONST 0x0003 ; Number of locals 00b3 INIT_00b0: 00b3 00ee | | Load_Encached Diana_Seq_Type_Cache ; Debug Table 0x6 = .DEBUG 0x00b3,0x0290,0x2801,0x0002,0x0039,0x3396,0x0000,0x007c ; Debug Table 0x6.0x0 = 0xb3,0xffff 00b4 029f 019b | | Declare_Subprogram INIT_0198,For_Call ; Debug Table 0x6.0x1 = 0xb4,0xfffe 00b6 BODY_00b0: 00b6 e5fd | | Load 0x2,-0x3 ; Debug Table 0x6.0x2 = 0xb6,0x1 00b7 00eb | | Load_Encached Diana_Cache 00b8 1883 | | Execute Package,Field_Execute,Field_Number 0x83 00b9 4604 |F | Jump_Case 0x5 00ba 786b |xk | Jump 0x126 ; case 0x0 00bb 7803 |x | Jump 0xbf ; case 0x1 00bc 780f |x | Jump 0xcc ; case 0x2 00bd 7827 |x' | Jump 0xe5 ; case 0x3 00be 784b |xK | Jump 0x10a ; case 0x4 00bf e5fb | | Load 0x2,-0x5 ; Debug Table 0x6.0x3 = 0xbf,0x3 00c0 e5fc | | Load 0x2,-0x4 00c1 e5fd | | Load 0x2,-0x3 00c2 00eb | | Load_Encached Diana_Cache 00c3 1885 | | Execute Package,Field_Execute,Field_Number 0x85 00c4 4ffe |O | Short_Literal -0x2 00c5 4802 |H | Short_Literal 0x2 00c6 0099 | | Action Reference_Dynamic 00c7 4fff |O | Short_Literal -0x1 00c8 4802 |H | Short_Literal 0x2 00c9 0099 | | Action Reference_Dynamic 00ca 8211 | | Call 0x1,0x11 00cb 785a |xZ | Jump 0x126 00cc e5fb | | Load 0x2,-0x5 ; Debug Table 0x6.0x4 = 0xcc,0x4 00cd e5fc | | Load 0x2,-0x4 00ce e5fd | | Load 0x2,-0x3 00cf 00eb | | Load_Encached Diana_Cache 00d0 1885 | | Execute Package,Field_Execute,Field_Number 0x85 00d1 4ffe |O | Short_Literal -0x2 00d2 4802 |H | Short_Literal 0x2 00d3 0099 | | Action Reference_Dynamic 00d4 4fff |O | Short_Literal -0x1 00d5 4802 |H | Short_Literal 0x2 00d6 0099 | | Action Reference_Dynamic 00d7 8211 | | Call 0x1,0x11 00d8 e5fb | | Load 0x2,-0x5 ; Debug Table 0x6.0x5 = 0xd8,0x5 00d9 e5fc | | Load 0x2,-0x4 00da e5fd | | Load 0x2,-0x3 00db 00eb | | Load_Encached Diana_Cache 00dc 1886 | | Execute Package,Field_Execute,Field_Number 0x86 00dd 4ffe |O | Short_Literal -0x2 00de 4802 |H | Short_Literal 0x2 00df 0099 | | Action Reference_Dynamic 00e0 4fff |O | Short_Literal -0x1 00e1 4802 |H | Short_Literal 0x2 00e2 0099 | | Action Reference_Dynamic 00e3 8211 | | Call 0x1,0x11 00e4 7841 |xA | Jump 0x126 00e5 e5fb | | Load 0x2,-0x5 ; Debug Table 0x6.0x6 = 0xe5,0x6 00e6 e5fc | | Load 0x2,-0x4 00e7 e5fd | | Load 0x2,-0x3 00e8 00eb | | Load_Encached Diana_Cache 00e9 1885 | | Execute Package,Field_Execute,Field_Number 0x85 00ea 4ffe |O | Short_Literal -0x2 00eb 4802 |H | Short_Literal 0x2 00ec 0099 | | Action Reference_Dynamic 00ed 4fff |O | Short_Literal -0x1 00ee 4802 |H | Short_Literal 0x2 00ef 0099 | | Action Reference_Dynamic 00f0 8211 | | Call 0x1,0x11 00f1 e5fb | | Load 0x2,-0x5 ; Debug Table 0x6.0x7 = 0xf1,0x7 00f2 e5fc | | Load 0x2,-0x4 00f3 e5fd | | Load 0x2,-0x3 00f4 00eb | | Load_Encached Diana_Cache 00f5 1886 | | Execute Package,Field_Execute,Field_Number 0x86 00f6 4ffe |O | Short_Literal -0x2 00f7 4802 |H | Short_Literal 0x2 00f8 0099 | | Action Reference_Dynamic 00f9 4fff |O | Short_Literal -0x1 00fa 4802 |H | Short_Literal 0x2 00fb 0099 | | Action Reference_Dynamic 00fc 8211 | | Call 0x1,0x11 00fd e5fb | | Load 0x2,-0x5 ; Debug Table 0x6.0x8 = 0xfd,0x8 00fe e5fc | | Load 0x2,-0x4 00ff e5fd | | Load 0x2,-0x3 0100 00eb | | Load_Encached Diana_Cache 0101 1887 | | Execute Package,Field_Execute,Field_Number 0x87 0102 4ffe |O | Short_Literal -0x2 0103 4802 |H | Short_Literal 0x2 0104 0099 | | Action Reference_Dynamic 0105 4fff |O | Short_Literal -0x1 0106 4802 |H | Short_Literal 0x2 0107 0099 | | Action Reference_Dynamic 0108 8211 | | Call 0x1,0x11 0109 781c |x | Jump 0x126 010a e5fd | | Load 0x2,-0x3 ; Debug Table 0x6.0x9 = 0x10a,0x9 010b 00eb | | Load_Encached Diana_Cache 010c 1888 | | Execute Package,Field_Execute,Field_Number 0x88 010d 0032 | 2 | Store_Top Heap_Access,At_Offset_2 010e 00cf | | Action Mark_Auxiliary 010f 7811 |x | Jump 0x121 0110 e5fb | | Load 0x2,-0x5 ; Debug Table 0x6.0xa = 0x110,0xb 0111 e5fc | | Load 0x2,-0x4 0112 e402 | | Load 0x2,0x2 0113 00eb | | Load_Encached Diana_Cache 0114 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59 0115 4ffe |O | Short_Literal -0x2 0116 4802 |H | Short_Literal 0x2 0117 0099 | | Action Reference_Dynamic 0118 4fff |O | Short_Literal -0x1 0119 4802 |H | Short_Literal 0x2 011a 0099 | | Action Reference_Dynamic 011b 8211 | | Call 0x1,0x11 011c 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0xb = 0x11c,0xc 011d 00eb | | Load_Encached Diana_Cache 011e 185a | Z | Execute Package,Field_Execute,Field_Number 0x5a 011f 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0120 00c9 | | Action Pop_Auxiliary_Loop 0121 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0xc = 0x121,0xa 0122 00eb | | Load_Encached Diana_Cache 0123 1858 | X | Execute Package,Field_Execute,Field_Number 0x58 0124 6feb |o | Jump_Zero 0x110 0125 00ce | | Action Pop_Auxiliary 0126 e5fd | | Load 0x2,-0x3 ; Debug Table 0x6.0xd = 0x126,0xd 0127 00eb | | Load_Encached Diana_Cache 0128 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0129 6812 |h | Jump_Zero 0x13c 012a e5fd | | Load 0x2,-0x3 012b 00eb | | Load_Encached Diana_Cache 012c 18ec | | Execute Package,Field_Execute,Field_Number 0xec 012d e001 | | Load 0x0,0x1 012e 180d | | Execute Package,Field_Execute,Field_Number 0xd 012f 680c |h | Jump_Zero 0x13c 0130 e5fd | | Load 0x2,-0x3 ; Debug Table 0x6.0xe = 0x130,0xe 0131 e001 | | Load 0x0,0x1 0132 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0133 6803 |h | Jump_Zero 0x137 0134 e5fd | | Load 0x2,-0x3 ; Debug Table 0x6.0xf = 0x134,0xf 0135 8403 | | Call 0x2,0x3 0136 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0137 e002 | | Load 0x0,0x2 ; Debug Table 0x6.0x10 = 0x137,0x10 0138 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0139 1810 | | Execute Package,Field_Execute,Field_Number 0x10 013a e5fd | | Load 0x2,-0x3 013b 85fe | | Call 0x2,-0x2 013c 4506 |E | Exit_Suprogram New_Top_Offset 0x6 013d 0000 0000 | | .XXX[0x3] 013f 0000 | | 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0143 | C | .CONST 0x0143 ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0001 | | .CONST 0x0001 ; Number of locals 0143 BODY_0140: 0143 INIT_0140: 0143 e402 | | Load 0x2,0x2 ; Debug Table 0x7 = .DEBUG 0x0143,0x02b4,0x0001,0x0000,0x0039,0x33a6,0x0000,0x01bb ; Debug Table 0x7.0x0 = 0x143,0x1 0144 00db | | Load_Top At_Offset_3 0145 4975 |Iu | Short_Literal 0x175 0146 00eb | | Load_Encached Diana_Cache 0147 0098 | | Execute Package,Field_Read_Dynamic 0148 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 0149 c402 | | Store 0x2,0x2 014a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 014b 0000 0000 | | .BLANK 0000[0x5] 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0153 | S | .CONST 0x0153 ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0001 | | .CONST 0x0001 ; Number of locals 0153 BODY_0150: 0153 INIT_0150: 0153 00db | | Load_Top At_Offset_3 ; Debug Table 0x8 = .DEBUG 0x0153,0x02b8,0x0001,0x0000,0x0039,0x33a6,0x0000,0x0211 ; Debug Table 0x8.0x0 = 0x153,0x1 0154 e002 | | Load 0x0,0x2 0155 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0156 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0157 012f | / | Execute Any,Equal 0158 7007 |p | Jump_Nonzero 0x160 0159 e402 | | Load 0x2,0x2 ; Debug Table 0x8.0x1 = 0x159,0x2 015a 00db | | Load_Top At_Offset_3 015b 4975 |Iu | Short_Literal 0x175 015c 00eb | | Load_Encached Diana_Cache 015d 0098 | | Execute Package,Field_Read_Dynamic 015e 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 015f c402 | | Store 0x2,0x2 0160 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0161 0000 0000 | | .BLANK 0000[0x7] 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 00db | | Load_Top At_Offset_3 ; Debug Table 0x9 = .DEBUG 0x016b,0x02be,0x0001,0x0000,0x0039,0x33a6,0x0000,0x0271 ; Debug Table 0x9.0x0 = 0x16b,0x1 016c e002 | | Load 0x0,0x2 016d 1b13 | | Execute Package,Field_Read,Field_Number 0x13 016e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 016f 012f | / | Execute Any,Equal 0170 700c |p | Jump_Nonzero 0x17d 0171 00db | | Load_Top At_Offset_3 0172 e002 | | Load 0x0,0x2 0173 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0174 180f | | Execute Package,Field_Execute,Field_Number 0xf 0175 6807 |h | Jump_Zero 0x17d 0176 e402 | | Load 0x2,0x2 ; Debug Table 0x9.0x1 = 0x176,0x2 0177 00db | | Load_Top At_Offset_3 0178 4975 |Iu | Short_Literal 0x175 0179 00eb | | Load_Encached Diana_Cache 017a 0098 | | Execute Package,Field_Read_Dynamic 017b 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 017c c402 | | Store 0x2,0x2 017d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 017e 0000 0000 | | .XXX[0x2] 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0183 | | .CONST 0x0183 ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 0001 | | .CONST 0x0001 ; Number of locals 0183 BODY_0180: 0183 INIT_0180: 0183 00db | | Load_Top At_Offset_3 ; Debug Table 0xa = .DEBUG 0x0183,0x02c4,0x0001,0x0000,0x0039,0x33a6,0x0000,0x02d9 ; Debug Table 0xa.0x0 = 0x183,0x1 0184 e002 | | Load 0x0,0x2 0185 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0186 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0187 012f | / | Execute Any,Equal 0188 700d |p | Jump_Nonzero 0x196 0189 00db | | Load_Top At_Offset_3 018a e002 | | Load 0x0,0x2 018b 1b13 | | Execute Package,Field_Read,Field_Number 0x13 018c 181f | | Execute Package,Field_Execute,Field_Number 0x1f 018d 0d04 | | Execute_Immediate Less,0x4 018e 6807 |h | Jump_Zero 0x196 018f e402 | | Load 0x2,0x2 ; Debug Table 0xa.0x1 = 0x18f,0x2 0190 00db | | Load_Top At_Offset_3 0191 4975 |Iu | Short_Literal 0x175 0192 00eb | | Load_Encached Diana_Cache 0193 0098 | | Execute Package,Field_Read_Dynamic 0194 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 0195 c402 | | Store 0x2,0x2 0196 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0197 0000 | | .XXX[0x1] 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 01ab | | .CONST 0x01ab ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0004 | | .CONST 0x0004 ; Number of locals 019b INIT_0198: 019b e003 | | Load 0x0,0x3 ; Debug Table 0xb = .DEBUG 0x019b,0x02ca,0x0801,0x0002,0x0039,0x33a6,0x0000,0x0076 ; Debug Table 0xb.0x0 = 0x19b,0xffff 019c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 019d e002 | | Load 0x0,0x2 ; Debug Table 0xb.0x1 = 0x19d,0xfffe 019e 1b13 | | Execute Package,Field_Read,Field_Number 0x13 019f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01a0 02c7 | | Declare_Variable Any 01a1 00d8 | | Load_Top At_Offset_0 01a2 1c00 | | Execute_Immediate Run_Utility,0x0 01a3 e002 | | Load 0x0,0x2 ; Debug Table 0xb.0x2 = 0x1a3,0xfffd 01a4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01a5 02ff | | Declare_Variable Variant_Record 01a6 e7ff | | Load 0x3,-0x1 01a7 e001 | | Load 0x0,0x1 01a8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01a9 00d9 | | Load_Top At_Offset_1 01aa 016d | m | Execute Variant_Record,Structure_Write 01ab BODY_0198: 01ab e003 | | Load 0x0,0x3 ; Debug Table 0xb.0x3 = 0x1ab,0x1 01ac 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01ad 00da | | Load_Top At_Offset_2 01ae 0120 | | Execute Any,Is_Value 01af 6804 |h | Jump_Zero 0x1b4 01b0 e002 | | Load 0x0,0x2 01b1 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01b2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01b3 7801 |x | Jump 0x1b5 01b4 00da | | Load_Top At_Offset_2 01b5 e5fb | | Load 0x2,-0x5 01b6 4800 |H | Short_Literal 0x0 01b7 4800 |H | Short_Literal 0x0 01b8 e604 | | Load 0x3,0x4 01b9 e002 | | Load 0x0,0x2 01ba 181a | | Execute Package,Field_Execute,Field_Number 0x1a 01bb c603 | | Store 0x3,0x3 01bc 005b | [ | Store_Top Discrete,At_Offset_3 01bd 00da | | Load_Top At_Offset_2 ; Debug Table 0xb.0x4 = 0x1bd,0x2 01be 7012 |p | Jump_Nonzero 0x1d1 01bf e5fc | | Load 0x2,-0x4 ; Debug Table 0xb.0x5 = 0x1bf,0x3 01c0 700d |p | Jump_Nonzero 0x1ce 01c1 e5fb | | Load 0x2,-0x5 ; Debug Table 0xb.0x6 = 0x1c1,0x4 01c2 e5fc | | Load 0x2,-0x4 01c3 00db | | Load_Top At_Offset_3 01c4 e002 | | Load 0x0,0x2 01c5 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01c6 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01c7 4ffe |O | Short_Literal -0x2 01c8 4802 |H | Short_Literal 0x2 01c9 0099 | | Action Reference_Dynamic 01ca 4fff |O | Short_Literal -0x1 01cb 4802 |H | Short_Literal 0x2 01cc 0099 | | Action Reference_Dynamic 01cd 8211 | | Call 0x1,0x11 01ce 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xb.0x7 = 0x1ce,0x5 01cf e7ff | | Load 0x3,-0x1 01d0 85fe | | Call 0x2,-0x2 01d1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01d2 0000 0000 | | .XXX[0x2] 01d4 0000 0000 | | .LITERAL {0x00000000, 0x003933a6} 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; Debug Table 01d8 ; -------------------------------------------------------------------------------------- 01d8 0003 000c | | .CONST 0x0003,0x000c 01da 000b 023a | :| .DEBUG 0x000b,0x023a,0x8000,0x0000,0x0039,0x3396,0x0000,0x0009 01e2 0017 0248 | H| .DEBUG 0x0017,0x0248,0x8000,0x0000,0x0039,0x33a6,0x0000,0x000b 01ea 0033 0260 | 3 `| .DEBUG 0x0033,0x0260,0x0002,0x0000,0x0039,0x3396,0x0000,0x0010 01f2 0053 026c | S l| .DEBUG 0x0053,0x026c,0x0002,0x0000,0x0039,0x3396,0x0000,0x002b 01fa 0073 0278 | s x| .DEBUG 0x0073,0x0278,0x0002,0x0000,0x0039,0x3396,0x0000,0x0046 0202 0093 0284 | | .DEBUG 0x0093,0x0284,0x0002,0x0000,0x0039,0x3396,0x0000,0x0061 020a 00b3 0290 | | .DEBUG 0x00b3,0x0290,0x2801,0x0002,0x0039,0x3396,0x0000,0x007c 0212 0143 02b4 | C | .DEBUG 0x0143,0x02b4,0x0001,0x0000,0x0039,0x33a6,0x0000,0x01bb 021a 0153 02b8 | S | .DEBUG 0x0153,0x02b8,0x0001,0x0000,0x0039,0x33a6,0x0000,0x0211 0222 016b 02be | k | .DEBUG 0x016b,0x02be,0x0001,0x0000,0x0039,0x33a6,0x0000,0x0271 022a 0183 02c4 | | .DEBUG 0x0183,0x02c4,0x0001,0x0000,0x0039,0x33a6,0x0000,0x02d9 0232 019b 02ca | | .DEBUG 0x019b,0x02ca,0x0801,0x0002,0x0039,0x33a6,0x0000,0x0076 023a ; -------------------------------------------------------------------------------------- 023a ; Debug3 Subtable 0x0 023a ; -------------------------------------------------------------------------------------- 023a 0006 0000 | | .DBG3TAB 0x0006,0x0000 023c 000b ffff | | .CONST 0x000b,0xffff 023e 000c fffe | | .CONST 0x000c,0xfffe 0240 000e fffd | | .CONST 0x000e,0xfffd 0242 0010 fffc | | .CONST 0x0010,0xfffc 0244 0012 fffb | | .CONST 0x0012,0xfffb 0246 0014 fffa | | .CONST 0x0014,0xfffa 0248 ; -------------------------------------------------------------------------------------- 0248 ; Debug3 Subtable 0x1 0248 ; -------------------------------------------------------------------------------------- 0248 000b 0000 | | .DBG3TAB 0x000b,0x0000 024a 0017 ffff | | .CONST 0x0017,0xffff 024c 0018 fffe | | .CONST 0x0018,0xfffe 024e 0019 fffd | | .CONST 0x0019,0xfffd 0250 001a fffc | | .CONST 0x001a,0xfffc 0252 001b fffb | | .CONST 0x001b,0xfffb 0254 001c fffa | | .CONST 0x001c,0xfffa 0256 001d fff9 | | .CONST 0x001d,0xfff9 0258 001f fff8 | | .CONST 0x001f,0xfff8 025a 0021 fff7 | ! | .CONST 0x0021,0xfff7 025c 0023 fff6 | # | .CONST 0x0023,0xfff6 025e 0025 fff5 | % | .CONST 0x0025,0xfff5 0260 ; -------------------------------------------------------------------------------------- 0260 ; Debug3 Subtable 0x2 0260 ; -------------------------------------------------------------------------------------- 0260 0003 0002 | | .DBG3TAB 0x0003,0x0002 0262 0033 ffff | 3 | .CONST 0x0033,0xffff 0264 0037 fffe | 7 | .CONST 0x0037,0xfffe 0266 0039 fffd | 9 | .CONST 0x0039,0xfffd 0268 0042 0001 | B | .CONST 0x0042,0x0001 026a 004c 0002 | L | .CONST 0x004c,0x0002 026c ; -------------------------------------------------------------------------------------- 026c ; Debug3 Subtable 0x3 026c ; -------------------------------------------------------------------------------------- 026c 0003 0002 | | .DBG3TAB 0x0003,0x0002 026e 0053 ffff | S | .CONST 0x0053,0xffff 0270 0057 fffe | W | .CONST 0x0057,0xfffe 0272 0059 fffd | Y | .CONST 0x0059,0xfffd 0274 0062 0001 | b | .CONST 0x0062,0x0001 0276 006c 0002 | l | .CONST 0x006c,0x0002 0278 ; -------------------------------------------------------------------------------------- 0278 ; Debug3 Subtable 0x4 0278 ; -------------------------------------------------------------------------------------- 0278 0003 0002 | | .DBG3TAB 0x0003,0x0002 027a 0073 ffff | s | .CONST 0x0073,0xffff 027c 0077 fffe | w | .CONST 0x0077,0xfffe 027e 0079 fffd | y | .CONST 0x0079,0xfffd 0280 0082 0001 | | .CONST 0x0082,0x0001 0282 008c 0002 | | .CONST 0x008c,0x0002 0284 ; -------------------------------------------------------------------------------------- 0284 ; Debug3 Subtable 0x5 0284 ; -------------------------------------------------------------------------------------- 0284 0003 0002 | | .DBG3TAB 0x0003,0x0002 0286 0093 ffff | | .CONST 0x0093,0xffff 0288 0097 fffe | | .CONST 0x0097,0xfffe 028a 0099 fffd | | .CONST 0x0099,0xfffd 028c 00a2 0001 | | .CONST 0x00a2,0x0001 028e 00ac 0002 | | .CONST 0x00ac,0x0002 0290 ; -------------------------------------------------------------------------------------- 0290 ; Debug3 Subtable 0x6 0290 ; -------------------------------------------------------------------------------------- 0290 0002 000f | | .DBG3TAB 0x0002,0x000f 0292 00b3 ffff | | .CONST 0x00b3,0xffff 0294 00b4 fffe | | .CONST 0x00b4,0xfffe 0296 00b6 0001 | | .CONST 0x00b6,0x0001 0298 00bf 0003 | | .CONST 0x00bf,0x0003 029a 00cc 0004 | | .CONST 0x00cc,0x0004 029c 00d8 0005 | | .CONST 0x00d8,0x0005 029e 00e5 0006 | | .CONST 0x00e5,0x0006 02a0 00f1 0007 | | .CONST 0x00f1,0x0007 02a2 00fd 0008 | | .CONST 0x00fd,0x0008 02a4 010a 0009 | | .CONST 0x010a,0x0009 02a6 0110 000b | | .CONST 0x0110,0x000b 02a8 011c 000c | | .CONST 0x011c,0x000c 02aa 0121 000a | ! | .CONST 0x0121,0x000a 02ac 0126 000d | & | .CONST 0x0126,0x000d 02ae 0130 000e | 0 | .CONST 0x0130,0x000e 02b0 0134 000f | 4 | .CONST 0x0134,0x000f 02b2 0137 0010 | 7 | .CONST 0x0137,0x0010 02b4 ; -------------------------------------------------------------------------------------- 02b4 ; Debug3 Subtable 0x7 02b4 ; -------------------------------------------------------------------------------------- 02b4 0000 0001 | | .DBG3TAB 0x0000,0x0001 02b6 0143 0001 | C | .CONST 0x0143,0x0001 02b8 ; -------------------------------------------------------------------------------------- 02b8 ; Debug3 Subtable 0x8 02b8 ; -------------------------------------------------------------------------------------- 02b8 0000 0002 | | .DBG3TAB 0x0000,0x0002 02ba 0153 0001 | S | .CONST 0x0153,0x0001 02bc 0159 0002 | Y | .CONST 0x0159,0x0002 02be ; -------------------------------------------------------------------------------------- 02be ; Debug3 Subtable 0x9 02be ; -------------------------------------------------------------------------------------- 02be 0000 0002 | | .DBG3TAB 0x0000,0x0002 02c0 016b 0001 | k | .CONST 0x016b,0x0001 02c2 0176 0002 | v | .CONST 0x0176,0x0002 02c4 ; -------------------------------------------------------------------------------------- 02c4 ; Debug3 Subtable 0xa 02c4 ; -------------------------------------------------------------------------------------- 02c4 0000 0002 | | .DBG3TAB 0x0000,0x0002 02c6 0183 0001 | | .CONST 0x0183,0x0001 02c8 018f 0002 | | .CONST 0x018f,0x0002 02ca ; -------------------------------------------------------------------------------------- 02ca ; Debug3 Subtable 0xb 02ca ; -------------------------------------------------------------------------------------- 02ca 0003 0005 | | .DBG3TAB 0x0003,0x0005 02cc 019b ffff | | .CONST 0x019b,0xffff 02ce 019d fffe | | .CONST 0x019d,0xfffe 02d0 01a3 fffd | | .CONST 0x01a3,0xfffd 02d2 01ab 0001 | | .CONST 0x01ab,0x0001 02d4 01bd 0002 | | .CONST 0x01bd,0x0002 02d6 01bf 0003 | | .CONST 0x01bf,0x0003 02d8 01c1 0004 | | .CONST 0x01c1,0x0004 02da 01ce 0005 | | .CONST 0x01ce,0x0005 02dc 0000 0000 | | .BLANK 0000[0x124]