|
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, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0500e0
└─⟦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 0220 | | .CONST 0x0220 ; 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 00c6 | | .CONST 0x00c6 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001a | | .CONST 0x001a ; Number of locals
000b INIT_0008:
000b e001 | | Load 0x0,0x1 ; Debug Table 0x0 = .DEBUG 0x000b,0x027a,0x8000,0x0000,0x0058,0x68b5,0x0000,0x0009
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
000d 0129 | ) | Execute Any,Make_Visible
000e 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0xe,0xfffe
0010 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0x10,0xfffd
0012 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x12,0xfffc
0014 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x14,0xfffb
0016 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x16,0xfffa
0018 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x18,0xfff9
001a 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x7 = 0x1a,0xfff8
001c 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x8 = 0x1c,0xfff7
001e 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x9 = 0x1e,0xfff6
0020 00bf | | Action Accept_Activation
0021 e002 | | Load 0x0,0x2 ; Debug Table 0x1 = .DEBUG 0x0021,0x0290,0x8000,0x0000,0x0058,0x7125,0x0000,0x000d
; Debug Table 0x1.0x0 = 0x21,0xffff
0022 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0023 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0024 0266 | f | Execute Discrete,Bounds
0025 e20d | | Load 0x1,0xd
0026 02a0 | | Declare_Subprogram Null_Subprogram
0027 4801 |H | Short_Literal 0x1
0028 035d | ] | Declare_Type Array,Defined
0029 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0x1 = 0x29,0xfffe
002a 0337 | 7 | Declare_Variable Array
002b 00d9 | | Load_Top At_Offset_1
002c 0337 | 7 | Declare_Variable Array
002d 4800 |H | Short_Literal 0x0
002e 4800 |H | Short_Literal 0x0
002f 00da | | Load_Top At_Offset_2
0030 01d6 | | Execute Vector,Field_Write
0031 4821 |H! | Short_Literal 0x21
0032 4801 |H | Short_Literal 0x1
0033 00da | | Load_Top At_Offset_2
0034 01d6 | | Execute Vector,Field_Write
0035 4822 |H" | Short_Literal 0x22
0036 4802 |H | Short_Literal 0x2
0037 00da | | Load_Top At_Offset_2
0038 01d6 | | Execute Vector,Field_Write
0039 4823 |H# | Short_Literal 0x23
003a 4803 |H | Short_Literal 0x3
003b 00da | | Load_Top At_Offset_2
003c 01d6 | | Execute Vector,Field_Write
003d 4814 |H | Short_Literal 0x14
003e 4804 |H | Short_Literal 0x4
003f 00da | | Load_Top At_Offset_2
0040 01d6 | | Execute Vector,Field_Write
0041 481c |H | Short_Literal 0x1c
0042 4805 |H | Short_Literal 0x5
0043 00da | | Load_Top At_Offset_2
0044 01d6 | | Execute Vector,Field_Write
0045 4824 |H$ | Short_Literal 0x24
0046 4806 |H | Short_Literal 0x6
0047 00da | | Load_Top At_Offset_2
0048 01d6 | | Execute Vector,Field_Write
0049 4825 |H% | Short_Literal 0x25
004a 4807 |H | Short_Literal 0x7
004b 00da | | Load_Top At_Offset_2
004c 01d6 | | Execute Vector,Field_Write
004d 4826 |H& | Short_Literal 0x26
004e 4808 |H | Short_Literal 0x8
004f 00da | | Load_Top At_Offset_2
0050 01d6 | | Execute Vector,Field_Write
0051 4827 |H' | Short_Literal 0x27
0052 4809 |H | Short_Literal 0x9
0053 00da | | Load_Top At_Offset_2
0054 01d6 | | Execute Vector,Field_Write
0055 481f |H | Short_Literal 0x1f
0056 480a |H | Short_Literal 0xa
0057 00da | | Load_Top At_Offset_2
0058 01d6 | | Execute Vector,Field_Write
0059 4828 |H( | Short_Literal 0x28
005a 480b |H | Short_Literal 0xb
005b 00da | | Load_Top At_Offset_2
005c 01d6 | | Execute Vector,Field_Write
005d 4829 |H) | Short_Literal 0x29
005e 480c |H | Short_Literal 0xc
005f 00da | | Load_Top At_Offset_2
0060 01d6 | | Execute Vector,Field_Write
0061 482a |H* | Short_Literal 0x2a
0062 480d |H | Short_Literal 0xd
0063 00da | | Load_Top At_Offset_2
0064 01d6 | | Execute Vector,Field_Write
0065 482b |H+ | Short_Literal 0x2b
0066 480e |H | Short_Literal 0xe
0067 00da | | Load_Top At_Offset_2
0068 01d6 | | Execute Vector,Field_Write
0069 00d9 | | Load_Top At_Offset_1
006a 01d4 | | Execute Vector,Structure_Write
006b e002 | | Load 0x0,0x2 ; Debug Table 0x1.0x2 = 0x6b,0xfffd
006c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
006d 0266 | f | Execute Discrete,Bounds
006e e20d | | Load 0x1,0xd
006f 02a0 | | Declare_Subprogram Null_Subprogram
0070 4801 |H | Short_Literal 0x1
0071 035d | ] | Declare_Type Array,Defined
0072 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0x3 = 0x72,0xfffc
0073 0337 | 7 | Declare_Variable Array
0074 00d9 | | Load_Top At_Offset_1
0075 0337 | 7 | Declare_Variable Array
0076 4800 |H | Short_Literal 0x0
0077 4800 |H | Short_Literal 0x0
0078 00da | | Load_Top At_Offset_2
0079 01d6 | | Execute Vector,Field_Write
007a 4814 |H | Short_Literal 0x14
007b 4801 |H | Short_Literal 0x1
007c 00da | | Load_Top At_Offset_2
007d 01d6 | | Execute Vector,Field_Write
007e 4815 |H | Short_Literal 0x15
007f 4802 |H | Short_Literal 0x2
0080 00da | | Load_Top At_Offset_2
0081 01d6 | | Execute Vector,Field_Write
0082 4816 |H | Short_Literal 0x16
0083 4803 |H | Short_Literal 0x3
0084 00da | | Load_Top At_Offset_2
0085 01d6 | | Execute Vector,Field_Write
0086 4817 |H | Short_Literal 0x17
0087 4804 |H | Short_Literal 0x4
0088 00da | | Load_Top At_Offset_2
0089 01d6 | | Execute Vector,Field_Write
008a 4818 |H | Short_Literal 0x18
008b 4805 |H | Short_Literal 0x5
008c 00da | | Load_Top At_Offset_2
008d 01d6 | | Execute Vector,Field_Write
008e 4819 |H | Short_Literal 0x19
008f 4806 |H | Short_Literal 0x6
0090 00da | | Load_Top At_Offset_2
0091 01d6 | | Execute Vector,Field_Write
0092 482c |H, | Short_Literal 0x2c
0093 4807 |H | Short_Literal 0x7
0094 00da | | Load_Top At_Offset_2
0095 01d6 | | Execute Vector,Field_Write
0096 481a |H | Short_Literal 0x1a
0097 4808 |H | Short_Literal 0x8
0098 00da | | Load_Top At_Offset_2
0099 01d6 | | Execute Vector,Field_Write
009a 481b |H | Short_Literal 0x1b
009b 4809 |H | Short_Literal 0x9
009c 00da | | Load_Top At_Offset_2
009d 01d6 | | Execute Vector,Field_Write
009e 481c |H | Short_Literal 0x1c
009f 480a |H | Short_Literal 0xa
00a0 00da | | Load_Top At_Offset_2
00a1 01d6 | | Execute Vector,Field_Write
00a2 481d |H | Short_Literal 0x1d
00a3 480b |H | Short_Literal 0xb
00a4 00da | | Load_Top At_Offset_2
00a5 01d6 | | Execute Vector,Field_Write
00a6 481e |H | Short_Literal 0x1e
00a7 480c |H | Short_Literal 0xc
00a8 00da | | Load_Top At_Offset_2
00a9 01d6 | | Execute Vector,Field_Write
00aa 481f |H | Short_Literal 0x1f
00ab 480d |H | Short_Literal 0xd
00ac 00da | | Load_Top At_Offset_2
00ad 01d6 | | Execute Vector,Field_Write
00ae 4820 |H | Short_Literal 0x20
00af 480e |H | Short_Literal 0xe
00b0 00da | | Load_Top At_Offset_2
00b1 01d6 | | Execute Vector,Field_Write
00b2 00d9 | | Load_Top At_Offset_1
00b3 01d4 | | Execute Vector,Structure_Write
00b4 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x4 = 0xb4,0xfffb
00b5 00c7 | | Action Elaborate_Subprogram
00b6 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x5 = 0xb6,0xfffa
00b7 00c7 | | Action Elaborate_Subprogram
00b8 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x6 = 0xb8,0xfff9
00b9 00c7 | | Action Elaborate_Subprogram
00ba 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x7 = 0xba,0xfff8
00bb 00c7 | | Action Elaborate_Subprogram
00bc 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0x8 = 0xbc,0xfff7
00bd 00c7 | | Action Elaborate_Subprogram
00be 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0x9 = 0xbe,0xfff6
00bf 00c7 | | Action Elaborate_Subprogram
00c0 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x1.0xa = 0xc0,0xfff5
00c1 00c7 | | Action Elaborate_Subprogram
00c2 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x1.0xb = 0xc2,0xfff4
00c3 00c7 | | Action Elaborate_Subprogram
00c4 1d16 | | Execute_Immediate Reference_Lex_1,0x16 ; Debug Table 0x1.0xc = 0xc4,0xfff3
00c5 00c7 | | Action Elaborate_Subprogram
00c6 BODY_0008:
00c6 00bc | | Action Signal_Activated
00c7 00bb | | Action Signal_Completion
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb | | .CONST 0x00cb ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0001 | | .CONST 0x0001 ; Number of locals
00cb BODY_00c8:
00cb INIT_00c8:
00cb 00cf | | Action Mark_Auxiliary ; Debug Table 0x2 = .DEBUG 0x00cb,0x02ac,0x0002,0x0000,0x0058,0x68b5,0x0000,0x0010
00cc e218 | | Load 0x1,0x18 ; Debug Table 0x2.0x0 = 0xcc,0x1
00cd 01d9 | | Execute Vector,Reverse_Bounds
00ce 0007 | | Action Break_Optional
00cf 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x1 = 0xcf,0x2
00d0 e218 | | Load 0x1,0x18
00d1 01d7 | | Execute Vector,Field_Read
00d2 e5ff | | Load 0x2,-0x1
00d3 027f | | Execute Discrete,Equal
00d4 6802 |h | Jump_Zero 0xd7
00d5 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x2 = 0xd5,0x3
00d6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00d7 00c8 | | Action Pop_Auxiliary_Range
00d8 3ff6 |? | Loop_Increasing 0xcf
00d9 00ce | | Action Pop_Auxiliary
00da 00da | | Load_Top At_Offset_2 ; Debug Table 0x2.0x3 = 0xda,0x4
00db e001 | | Load 0x0,0x1
00dc 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00dd 6802 |h | Jump_Zero 0xe0
00de 480e |H | Short_Literal 0xe ; Debug Table 0x2.0x4 = 0xde,0x5
00df 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00e0 4800 |H | Short_Literal 0x0 ; Debug Table 0x2.0x5 = 0xe0,0x6
00e1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00e2 0000 0000 | | .BLANK 0000[0x6]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb | | .CONST 0x00eb ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0001 | | .CONST 0x0001 ; Number of locals
00eb BODY_00e8:
00eb INIT_00e8:
00eb 00da | | Load_Top At_Offset_2 ; Debug Table 0x3 = .DEBUG 0x00eb,0x02ba,0x0002,0x0000,0x0058,0x68b5,0x0000,0x001d
; Debug Table 0x3.0x0 = 0xeb,0x1
00ec e218 | | Load 0x1,0x18
00ed 01d7 | | Execute Vector,Field_Read
00ee 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00ef 0000 | | .XXX[0x1]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3 | | .CONST 0x00f3 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0001 | | .CONST 0x0001 ; Number of locals
00f3 BODY_00f0:
00f3 INIT_00f0:
00f3 00da | | Load_Top At_Offset_2 ; Debug Table 0x4 = .DEBUG 0x00f3,0x02be,0x0002,0x0000,0x0058,0x68b5,0x0000,0x002a
; Debug Table 0x4.0x0 = 0xf3,0x1
00f4 e21a | | Load 0x1,0x1a
00f5 01d7 | | Execute Vector,Field_Read
00f6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00f7 0000 | | .XXX[0x1]
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 e002 | | Load 0x0,0x2 ; Debug Table 0x5 = .DEBUG 0x00fb,0x02c2,0x0001,0x0000,0x0058,0x68b5,0x0000,0x0035
; Debug Table 0x5.0x0 = 0xfb,0xffff
00fc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00fd 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00fe BODY_00f8:
00fe e002 | | Load 0x0,0x2 ; Debug Table 0x5.0x1 = 0xfe,0x1
00ff 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0100 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0101 e5fe | | Load 0x2,-0x2
0102 6115 |a | Indirect_Literal Discrete,0x218,{0x00000000, 0x00004000}
0103 e003 | | Load 0x0,0x3
0104 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0105 4800 |H | Short_Literal 0x0
0106 e004 | | Load 0x0,0x4
0107 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0108 e002 | | Load 0x0,0x2
0109 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
010a 1816 | | Execute Package,Field_Execute,Field_Number 0x16
010b e5ff | | Load 0x2,-0x1
010c e002 | | Load 0x0,0x2
010d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
010e 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
010f 00d1 | | Pop_Control Pop_Count_1
0110 0059 | Y | Store_Top Discrete,At_Offset_1
0111 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0x2 = 0x111,0x2
0112 820f | | Call 0x1,0xf
0113 a5fd | | Store_Unchecked 0x2,-0x3
0114 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0115 0000 0000 | | .XXX[0x3]
0117 0000 | |
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011d | | .CONST 0x011d ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0002 | | .CONST 0x0002 ; Number of locals
011b INIT_0118:
011b e002 | | Load 0x0,0x2 ; Debug Table 0x6 = .DEBUG 0x011b,0x02ca,0x0001,0x0000,0x0058,0x68b5,0x0000,0x0047
; Debug Table 0x6.0x0 = 0x11b,0xffff
011c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
011d BODY_0118:
011d e002 | | Load 0x0,0x2 ; Debug Table 0x6.0x1 = 0x11d,0x1
011e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
011f e5fe | | Load 0x2,-0x2
0120 0120 | | Execute Any,Is_Value
0121 6803 |h | Jump_Zero 0x125
0122 e002 | | Load 0x0,0x2
0123 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0124 7801 |x | Jump 0x126
0125 e5fe | | Load 0x2,-0x2
0126 60f1 |` | Indirect_Literal Discrete,0x218,{0x00000000, 0x00004000}
0127 e003 | | Load 0x0,0x3
0128 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0129 e5ff | | Load 0x2,-0x1
012a e002 | | Load 0x0,0x2
012b 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
012c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
012d c5fe | | Store 0x2,-0x2
012e 0059 | Y | Store_Top Discrete,At_Offset_1
012f 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x2 = 0x12f,0x2
0130 8210 | | Call 0x1,0x10
0131 a5fd | | Store_Unchecked 0x2,-0x3
0132 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0133 0000 0000 | | .BLANK 0000[0x5]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 014b | K | .CONST 0x014b ; Address of begin
0139 0197 | | .CONST 0x0197 ; Address of exception handler
013a 0006 | | .CONST 0x0006 ; Number of locals
013b INIT_0138:
013b e002 | | Load 0x0,0x2 ; Debug Table 0x7 = .DEBUG 0x013b,0x02d2,0x0001,0x0000,0x0058,0x68b5,0x0000,0x005b
; Debug Table 0x7.0x0 = 0x13b,0xffff
013c 1b14 | | Execute Package,Field_Read,Field_Number 0x14
013d 02ff | | Declare_Variable Variant_Record
013e 00d8 | | Load_Top At_Offset_0
013f 1c00 | | Execute_Immediate Run_Utility,0x0
0140 e005 | | Load 0x0,0x5 ; Debug Table 0x7.0x1 = 0x140,0xfffe
0141 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0142 02c7 | | Declare_Variable Any
0143 00d8 | | Load_Top At_Offset_0
0144 1c00 | | Execute_Immediate Run_Utility,0x0
0145 e002 | | Load 0x0,0x2 ; Debug Table 0x7.0x2 = 0x145,0xfffd
0146 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0147 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0148 00f1 | | Load_Encached Diana_Temp_Seq ; Debug Table 0x7.0x3 = 0x148,0xfffc
0149 e002 | | Load 0x0,0x2 ; Debug Table 0x7.0x4 = 0x149,0xfffb
014a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
014b BODY_0138:
014b 487e |H~ | Short_Literal 0x7e ; Debug Table 0x7.0x5 = 0x14b,0x1
014c a5fa | | Store_Unchecked 0x2,-0x6
014d e002 | | Load 0x0,0x2 ; Debug Table 0x7.0x6 = 0x14d,0x2
014e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
014f c5fb | | Store 0x2,-0x5
0150 e002 | | Load 0x0,0x2 ; Debug Table 0x7.0x7 = 0x150,0x3
0151 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0152 00f1 | | Load_Encached Diana_Temp_Seq
0153 e002 | | Load 0x0,0x2
0154 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0155 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0156 e403 | | Load 0x2,0x3
0157 0120 | | Execute Any,Is_Value
0158 6803 |h | Jump_Zero 0x15c
0159 e005 | | Load 0x0,0x5
015a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
015b 7801 |x | Jump 0x15d
015c e403 | | Load 0x2,0x3
015d e402 | | Load 0x2,0x2
015e 60b9 |` | Indirect_Literal Discrete,0x218,{0x00000000, 0x00004000}
015f e5fc | | Load 0x2,-0x4
0160 4800 |H | Short_Literal 0x0
0161 e002 | | Load 0x0,0x2
0162 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
0163 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0164 e002 | | Load 0x0,0x2
0165 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0166 60ad |` | Indirect_Literal Discrete,0x214,{0x00000000, 0x7fffffff}
0167 4ffc |O | Short_Literal -0x4
0168 4ffd |O | Short_Literal -0x3
0169 e004 | | Load 0x0,0x4
016a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
016b e002 | | Load 0x0,0x2
016c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
016d 1816 | | Execute Package,Field_Execute,Field_Number 0x16
016e e5fd | | Load 0x2,-0x3
016f e5fe | | Load 0x2,-0x2
0170 e5ff | | Load 0x2,-0x1
0171 e002 | | Load 0x0,0x2
0172 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b
0173 180f | | Execute Package,Field_Execute,Field_Number 0xf
0174 00d1 | | Pop_Control Pop_Count_1
0175 c403 | | Store 0x2,0x3
0176 c404 | | Store 0x2,0x4
0177 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0178 0059 | Y | Store_Top Discrete,At_Offset_1
0179 4800 |H | Short_Literal 0x0 ; Debug Table 0x7.0x8 = 0x179,0x4
017a 00d9 | | Load_Top At_Offset_1
017b 8210 | | Call 0x1,0x10
017c e001 | | Load 0x0,0x1
017d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
017e e002 | | Load 0x0,0x2 ; Debug Table 0x7.0x9 = 0x17e,0x5
017f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0180 e5fb | | Load 0x2,-0x5
0181 0120 | | Execute Any,Is_Value
0182 6803 |h | Jump_Zero 0x186
0183 e002 | | Load 0x0,0x2
0184 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0185 7801 |x | Jump 0x187
0186 e5fb | | Load 0x2,-0x5
0187 6090 |` | Indirect_Literal Discrete,0x218,{0x00000000, 0x00004000}
0188 e5fc | | Load 0x2,-0x4
0189 e402 | | Load 0x2,0x2
018a e002 | | Load 0x0,0x2
018b 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
018c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
018d c5fb | | Store 0x2,-0x5
018e 0059 | Y | Store_Top Discrete,At_Offset_1
018f 4800 |H | Short_Literal 0x0 ; Debug Table 0x7.0xa = 0x18f,0x6
0190 00d9 | | Load_Top At_Offset_1
0191 8210 | | Call 0x1,0x10
0192 e001 | | Load 0x0,0x1
0193 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0194 4800 |H | Short_Literal 0x0 ; Debug Table 0x7.0xb = 0x194,0x7
0195 a5fa | | Store_Unchecked 0x2,-0x6
0196 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0197 TRAP_0138:
0197 e001 | | Load 0x0,0x1
0198 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0199 010f | | Execute Exception,Equal
019a 6807 |h | Jump_Zero 0x1a2
019b e5fc | | Load 0x2,-0x4 ; Debug Table 0x7.0xc = 0x19b,0x8
019c e003 | | Load 0x0,0x3
019d 181a | | Execute Package,Field_Execute,Field_Number 0x1a
019e 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x7.0xd = 0x19e,0x9
019f 8210 | | Call 0x1,0x10
01a0 a5fa | | Store_Unchecked 0x2,-0x6
01a1 4505 |E | Exit_Suprogram New_Top_Offset 0x5
01a2 0100 | | Execute Exception,Raise
01a3 0000 0000 | | .BLANK 0000[0x5]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01b6 | | .CONST 0x01b6 ; Address of begin
01a9 01e3 | | .CONST 0x01e3 ; Address of exception handler
01aa 0005 | | .CONST 0x0005 ; Number of locals
01ab INIT_01a8:
01ab e005 | | Load 0x0,0x5 ; Debug Table 0x8 = .DEBUG 0x01ab,0x02f0,0x0001,0x0000,0x0058,0x68b5,0x0000,0x007f
; Debug Table 0x8.0x0 = 0x1ab,0xffff
01ac 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01ad 02c7 | | Declare_Variable Any
01ae 00d8 | | Load_Top At_Offset_0
01af 1c00 | | Execute_Immediate Run_Utility,0x0
01b0 e002 | | Load 0x0,0x2 ; Debug Table 0x8.0x1 = 0x1b0,0xfffe
01b1 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
01b2 1b17 | | Execute Package,Field_Read,Field_Number 0x17
01b3 00f1 | | Load_Encached Diana_Temp_Seq ; Debug Table 0x8.0x2 = 0x1b3,0xfffd
01b4 e002 | | Load 0x0,0x2 ; Debug Table 0x8.0x3 = 0x1b4,0xfffc
01b5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01b6 BODY_01a8:
01b6 487e |H~ | Short_Literal 0x7e ; Debug Table 0x8.0x4 = 0x1b6,0x1
01b7 a5fd | | Store_Unchecked 0x2,-0x3
01b8 e002 | | Load 0x0,0x2 ; Debug Table 0x8.0x5 = 0x1b8,0x2
01b9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01ba 00f1 | | Load_Encached Diana_Temp_Seq
01bb e002 | | Load 0x0,0x2
01bc 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
01bd 1b17 | | Execute Package,Field_Read,Field_Number 0x17
01be e402 | | Load 0x2,0x2
01bf 0120 | | Execute Any,Is_Value
01c0 6803 |h | Jump_Zero 0x1c4
01c1 e005 | | Load 0x0,0x5
01c2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01c3 7801 |x | Jump 0x1c5
01c4 e402 | | Load 0x2,0x2
01c5 6052 |`R | Indirect_Literal Discrete,0x218,{0x00000000, 0x00004000}
01c6 e5fe | | Load 0x2,-0x2
01c7 4800 |H | Short_Literal 0x0
01c8 e002 | | Load 0x0,0x2
01c9 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
01ca 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01cb e002 | | Load 0x0,0x2
01cc 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01cd 4800 |H | Short_Literal 0x0
01ce e004 | | Load 0x0,0x4
01cf 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01d0 e002 | | Load 0x0,0x2
01d1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01d2 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01d3 e5ff | | Load 0x2,-0x1
01d4 e002 | | Load 0x0,0x2
01d5 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b
01d6 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01d7 c402 | | Store 0x2,0x2
01d8 c403 | | Store 0x2,0x3
01d9 0033 | 3 | Store_Top Heap_Access,At_Offset_3
01da 0059 | Y | Store_Top Discrete,At_Offset_1
01db 4800 |H | Short_Literal 0x0 ; Debug Table 0x8.0x6 = 0x1db,0x3
01dc 00d9 | | Load_Top At_Offset_1
01dd 8210 | | Call 0x1,0x10
01de e001 | | Load 0x0,0x1
01df 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01e0 4800 |H | Short_Literal 0x0 ; Debug Table 0x8.0x7 = 0x1e0,0x4
01e1 a5fd | | Store_Unchecked 0x2,-0x3
01e2 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01e3 TRAP_01a8:
01e3 e001 | | Load 0x0,0x1
01e4 1b16 | | Execute Package,Field_Read,Field_Number 0x16
01e5 010f | | Execute Exception,Equal
01e6 6807 |h | Jump_Zero 0x1ee
01e7 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x8.0x8 = 0x1e7,0x5
01e8 8210 | | Call 0x1,0x10
01e9 a5fd | | Store_Unchecked 0x2,-0x3
01ea e5fe | | Load 0x2,-0x2 ; Debug Table 0x8.0x9 = 0x1ea,0x6
01eb e003 | | Load 0x0,0x3
01ec 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01ed 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01ee 0100 | | Execute Exception,Raise
01ef 0000 | | .XXX[0x1]
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 0x9 = .DEBUG 0x01f3,0x0306,0x0002,0x0000,0x0058,0x68b5,0x0000,0x0091
; Debug Table 0x9.0x0 = 0x1f3,0x1
01f4 e002 | | Load 0x0,0x2
01f5 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
01f6 e002 | | Load 0x0,0x2
01f7 181f | | Execute Package,Field_Execute,Field_Number 0x1f
01f8 0f00 | | Execute_Immediate Equal,0x0
01f9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01fa 0000 0000 | | .BLANK 0000[0x6]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 020f | | .CONST 0x020f ; Address of begin
0201 0004 | | .CONST 0x0004 ; Address of exception handler
0202 0003 | | .CONST 0x0003 ; Number of locals
0203 INIT_0200:
0203 00da | | Load_Top At_Offset_2 ; Debug Table 0xa = .DEBUG 0x0203,0x030a,0x0002,0x0000,0x0058,0x68b5,0x0000,0x009c
; Debug Table 0xa.0x0 = 0x203,0xffff
0204 e002 | | Load 0x0,0x2
0205 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0206 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0207 4801 |H | Short_Literal 0x1 ; Debug Table 0xa.0x1 = 0x207,0xfffe
0208 00d9 | | Load_Top At_Offset_1
0209 01db | | Execute Vector,Length
020a 00e9 | | Load_Encached String_Cache
020b 0334 | 4 | Declare_Variable Array,With_Constraint
020c 00d9 | | Load_Top At_Offset_1
020d 00d9 | | Load_Top At_Offset_1
020e 01d4 | | Execute Vector,Structure_Write
020f BODY_0200:
020f 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xa.0x2 = 0x20f,0x1
0210 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0211 0000 0000 | | .XXX[0x3]
0213 0000 | |
0214 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
0218 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
021c 0000 0000 | | .BLANK 0000[0x4]
0220 ; --------------------------------------------------------------------------------------
0220 ; Debug Table
0220 ; --------------------------------------------------------------------------------------
0220 0003 000b | | .CONST 0x0003,0x000b
0222 000b 027a | z| .DEBUG 0x000b,0x027a,0x8000,0x0000,0x0058,0x68b5,0x0000,0x0009
022a 0021 0290 | ! | .DEBUG 0x0021,0x0290,0x8000,0x0000,0x0058,0x7125,0x0000,0x000d
0232 00cb 02ac | | .DEBUG 0x00cb,0x02ac,0x0002,0x0000,0x0058,0x68b5,0x0000,0x0010
023a 00eb 02ba | | .DEBUG 0x00eb,0x02ba,0x0002,0x0000,0x0058,0x68b5,0x0000,0x001d
0242 00f3 02be | | .DEBUG 0x00f3,0x02be,0x0002,0x0000,0x0058,0x68b5,0x0000,0x002a
024a 00fb 02c2 | | .DEBUG 0x00fb,0x02c2,0x0001,0x0000,0x0058,0x68b5,0x0000,0x0035
0252 011b 02ca | | .DEBUG 0x011b,0x02ca,0x0001,0x0000,0x0058,0x68b5,0x0000,0x0047
025a 013b 02d2 | ; | .DEBUG 0x013b,0x02d2,0x0001,0x0000,0x0058,0x68b5,0x0000,0x005b
0262 01ab 02f0 | | .DEBUG 0x01ab,0x02f0,0x0001,0x0000,0x0058,0x68b5,0x0000,0x007f
026a 01f3 0306 | | .DEBUG 0x01f3,0x0306,0x0002,0x0000,0x0058,0x68b5,0x0000,0x0091
0272 0203 030a | | .DEBUG 0x0203,0x030a,0x0002,0x0000,0x0058,0x68b5,0x0000,0x009c
027a ; --------------------------------------------------------------------------------------
027a ; Debug3 Subtable 0x0
027a ; --------------------------------------------------------------------------------------
027a 000a 0000 | | .DBG3TAB 0x000a,0x0000
027c 000b ffff | | .CONST 0x000b,0xffff
027e 000e fffe | | .CONST 0x000e,0xfffe
0280 0010 fffd | | .CONST 0x0010,0xfffd
0282 0012 fffc | | .CONST 0x0012,0xfffc
0284 0014 fffb | | .CONST 0x0014,0xfffb
0286 0016 fffa | | .CONST 0x0016,0xfffa
0288 0018 fff9 | | .CONST 0x0018,0xfff9
028a 001a fff8 | | .CONST 0x001a,0xfff8
028c 001c fff7 | | .CONST 0x001c,0xfff7
028e 001e fff6 | | .CONST 0x001e,0xfff6
0290 ; --------------------------------------------------------------------------------------
0290 ; Debug3 Subtable 0x1
0290 ; --------------------------------------------------------------------------------------
0290 000d 0000 | | .DBG3TAB 0x000d,0x0000
0292 0021 ffff | ! | .CONST 0x0021,0xffff
0294 0029 fffe | ) | .CONST 0x0029,0xfffe
0296 006b fffd | k | .CONST 0x006b,0xfffd
0298 0072 fffc | r | .CONST 0x0072,0xfffc
029a 00b4 fffb | | .CONST 0x00b4,0xfffb
029c 00b6 fffa | | .CONST 0x00b6,0xfffa
029e 00b8 fff9 | | .CONST 0x00b8,0xfff9
02a0 00ba fff8 | | .CONST 0x00ba,0xfff8
02a2 00bc fff7 | | .CONST 0x00bc,0xfff7
02a4 00be fff6 | | .CONST 0x00be,0xfff6
02a6 00c0 fff5 | | .CONST 0x00c0,0xfff5
02a8 00c2 fff4 | | .CONST 0x00c2,0xfff4
02aa 00c4 fff3 | | .CONST 0x00c4,0xfff3
02ac ; --------------------------------------------------------------------------------------
02ac ; Debug3 Subtable 0x2
02ac ; --------------------------------------------------------------------------------------
02ac 0000 0006 | | .DBG3TAB 0x0000,0x0006
02ae 00cc 0001 | | .CONST 0x00cc,0x0001
02b0 00cf 0002 | | .CONST 0x00cf,0x0002
02b2 00d5 0003 | | .CONST 0x00d5,0x0003
02b4 00da 0004 | | .CONST 0x00da,0x0004
02b6 00de 0005 | | .CONST 0x00de,0x0005
02b8 00e0 0006 | | .CONST 0x00e0,0x0006
02ba ; --------------------------------------------------------------------------------------
02ba ; Debug3 Subtable 0x3
02ba ; --------------------------------------------------------------------------------------
02ba 0000 0001 | | .DBG3TAB 0x0000,0x0001
02bc 00eb 0001 | | .CONST 0x00eb,0x0001
02be ; --------------------------------------------------------------------------------------
02be ; Debug3 Subtable 0x4
02be ; --------------------------------------------------------------------------------------
02be 0000 0001 | | .DBG3TAB 0x0000,0x0001
02c0 00f3 0001 | | .CONST 0x00f3,0x0001
02c2 ; --------------------------------------------------------------------------------------
02c2 ; Debug3 Subtable 0x5
02c2 ; --------------------------------------------------------------------------------------
02c2 0001 0002 | | .DBG3TAB 0x0001,0x0002
02c4 00fb ffff | | .CONST 0x00fb,0xffff
02c6 00fe 0001 | | .CONST 0x00fe,0x0001
02c8 0111 0002 | | .CONST 0x0111,0x0002
02ca ; --------------------------------------------------------------------------------------
02ca ; Debug3 Subtable 0x6
02ca ; --------------------------------------------------------------------------------------
02ca 0001 0002 | | .DBG3TAB 0x0001,0x0002
02cc 011b ffff | | .CONST 0x011b,0xffff
02ce 011d 0001 | | .CONST 0x011d,0x0001
02d0 012f 0002 | / | .CONST 0x012f,0x0002
02d2 ; --------------------------------------------------------------------------------------
02d2 ; Debug3 Subtable 0x7
02d2 ; --------------------------------------------------------------------------------------
02d2 0005 0009 | | .DBG3TAB 0x0005,0x0009
02d4 013b ffff | ; | .CONST 0x013b,0xffff
02d6 0140 fffe | @ | .CONST 0x0140,0xfffe
02d8 0145 fffd | E | .CONST 0x0145,0xfffd
02da 0148 fffc | H | .CONST 0x0148,0xfffc
02dc 0149 fffb | I | .CONST 0x0149,0xfffb
02de 014b 0001 | K | .CONST 0x014b,0x0001
02e0 014d 0002 | M | .CONST 0x014d,0x0002
02e2 0150 0003 | P | .CONST 0x0150,0x0003
02e4 0179 0004 | y | .CONST 0x0179,0x0004
02e6 017e 0005 | ~ | .CONST 0x017e,0x0005
02e8 018f 0006 | | .CONST 0x018f,0x0006
02ea 0194 0007 | | .CONST 0x0194,0x0007
02ec 019b 0008 | | .CONST 0x019b,0x0008
02ee 019e 0009 | | .CONST 0x019e,0x0009
02f0 ; --------------------------------------------------------------------------------------
02f0 ; Debug3 Subtable 0x8
02f0 ; --------------------------------------------------------------------------------------
02f0 0004 0006 | | .DBG3TAB 0x0004,0x0006
02f2 01ab ffff | | .CONST 0x01ab,0xffff
02f4 01b0 fffe | | .CONST 0x01b0,0xfffe
02f6 01b3 fffd | | .CONST 0x01b3,0xfffd
02f8 01b4 fffc | | .CONST 0x01b4,0xfffc
02fa 01b6 0001 | | .CONST 0x01b6,0x0001
02fc 01b8 0002 | | .CONST 0x01b8,0x0002
02fe 01db 0003 | | .CONST 0x01db,0x0003
0300 01e0 0004 | | .CONST 0x01e0,0x0004
0302 01e7 0005 | | .CONST 0x01e7,0x0005
0304 01ea 0006 | | .CONST 0x01ea,0x0006
0306 ; --------------------------------------------------------------------------------------
0306 ; Debug3 Subtable 0x9
0306 ; --------------------------------------------------------------------------------------
0306 0000 0001 | | .DBG3TAB 0x0000,0x0001
0308 01f3 0001 | | .CONST 0x01f3,0x0001
030a ; --------------------------------------------------------------------------------------
030a ; Debug3 Subtable 0xa
030a ; --------------------------------------------------------------------------------------
030a 0002 0001 | | .DBG3TAB 0x0002,0x0001
030c 0203 ffff | | .CONST 0x0203,0xffff
030e 0207 fffe | | .CONST 0x0207,0xfffe
0310 020f 0001 | | .CONST 0x020f,0x0001
0312 0000 0000 | | .BLANK 0000[0xee]