|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00)
Notes: 00_class, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_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 0328 | ( | .CONST 0x0328 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00a4 | | .CONST 0x00a4 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0043 | C | .CONST 0x0043 ; Number of locals
000b INIT_0008:
000b 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0 = .DEBUG 0x000b,0x0372,0x8000,0x0000,0x0056,0xbcc5,0x0000,0x0009
; Debug Table 0x0.0x0 = 0xb,0xffff
; Debug Table 0x0.0x1 = 0xb,0xfffe
; Debug Table 0x0.0x2 = 0xb,0xfffd
000d 00bf | | Action Accept_Activation
000e 4800 |H | Short_Literal 0x0 ; Debug Table 0x1 = .DEBUG 0x000e,0x037a,0x8000,0x0000,0x0056,0xbcd5,0x0000,0x0013
; Debug Table 0x1.0x0 = 0xe,0xffff
; Debug Table 0x1.0x1 = 0xe,0xfffe
; Debug Table 0x1.0x2 = 0xe,0xfffd
; Debug Table 0x1.0x3 = 0xe,0xfffc
; Debug Table 0x1.0x4 = 0xe,0xfffb
000f 4808 |H | Short_Literal 0x8
0010 029f 0243 | C| Declare_Subprogram INIT_0240,For_Call
0012 03fd | | Declare_Type Discrete,Defined
0013 0092 02c9 | | Action Push_String_Extended,0x2c9 ; "ANY_TYPE"
; Debug Table 0x1.0x5 = 0x13,0xfffa
0015 4973 |Is | Short_Literal 0x173
0016 00eb | | Load_Encached Diana_Cache
0017 0098 | | Execute Package,Field_Read_Dynamic
0018 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0019 4973 |Is | Short_Literal 0x173
001a 00eb | | Load_Encached Diana_Cache
001b 0098 | | Execute Package,Field_Read_Dynamic
001c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
001d 03f1 | | Declare_Variable Discrete,With_Value
001e 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x1.0x6 = 0x1e,0xfff9
001f 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x1.0x7 = 0x1f,0xfff8
0020 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x1.0x8 = 0x20,0xfff7
0021 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x1.0x9 = 0x21,0xfff6
0022 039d | | Declare_Variable Heap_Access,Duplicate
0023 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x1.0xa = 0x23,0xfff5
0024 039d | | Declare_Variable Heap_Access,Duplicate
0025 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x1.0xb = 0x25,0xfff4
0026 039d | | Declare_Variable Heap_Access,Duplicate
0027 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x1.0xc = 0x27,0xfff3
0028 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x1.0xd = 0x28,0xfff2
0029 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x1.0xe = 0x29,0xfff1
002a 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x1.0xf = 0x2a,0xfff0
002b 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x1.0x10 = 0x2b,0xffef
002c 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x1.0x11 = 0x2c,0xffee
002d 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x1.0x12 = 0x2d,0xffed
002e 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x1.0x13 = 0x2e,0xffec
002f 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x1.0x14 = 0x2f,0xffeb
0030 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x1.0x15 = 0x30,0xffea
0031 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x1.0x16 = 0x31,0xffe9
0032 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x1.0x17 = 0x32,0xffe8
0033 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x1.0x18 = 0x33,0xffe7
0034 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x1.0x19 = 0x34,0xffe6
0035 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x1.0x1a = 0x35,0xffe5
0036 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x1.0x1b = 0x36,0xffe4
0037 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x1.0x1c = 0x37,0xffe3
0038 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x1.0x1d = 0x38,0xffe2
0039 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x1.0x1e = 0x39,0xffe1
003a 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x1.0x1f = 0x3a,0xffe0
003b 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x1.0x20 = 0x3b,0xffdf
003c 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x1.0x21 = 0x3c,0xffde
003d 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x1.0x22 = 0x3d,0xffdd
003e 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x1.0x23 = 0x3e,0xffdc
003f 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x1.0x24 = 0x3f,0xffdb
0040 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x1.0x25 = 0x40,0xffda
0041 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x1.0x26 = 0x41,0xffd9
0042 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x1.0x27 = 0x42,0xffd8
0043 00ee | | Load_Encached Diana_Seq_Type_Cache ; Debug Table 0x1.0x28 = 0x43,0xffd7
0044 00ef | | Load_Encached Diana_Sequence_Cache ; Debug Table 0x1.0x29 = 0x44,0xffd6
0045 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x1.0x2a = 0x45,0xffd5
0046 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x1.0x2b = 0x46,0xffd4
0047 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x1.0x2c = 0x47,0xffd3
0048 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x1.0x2d = 0x48,0xffd2
0049 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x1.0x2e = 0x49,0xffd1
; Debug Table 0x1.0x2f = 0x49,0xffd0
; Debug Table 0x1.0x30 = 0x49,0xffcf
004a 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x1.0x31 = 0x4a,0xffce
004b 4800 |H | Short_Literal 0x0 ; Debug Table 0x1.0x32 = 0x4b,0xffcd
004c 626f |bo | Indirect_Literal Discrete,0x2bc,{0x0046600e, 0x000000b0}
004d 02a0 | | Declare_Subprogram Null_Subprogram
004e 038e | | Declare_Type Package,Defined
004f 0387 | | Declare_Variable Package
0050 4800 |H | Short_Literal 0x0 ; Debug Table 0x1.0x33 = 0x50,0xffcc
0051 6266 |bf | Indirect_Literal Discrete,0x2b8,{0x00465c0e, 0x000000b0}
0052 02a0 | | Declare_Subprogram Null_Subprogram
0053 038e | | Declare_Type Package,Defined
0054 0387 | | Declare_Variable Package
0055 029d 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call ; Debug Table 0x1.0x34 = 0x55,0xffcb
0057 029d 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call ; Debug Table 0x1.0x35 = 0x57,0xffca
0059 029d 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call ; Debug Table 0x1.0x36 = 0x59,0xffc9
005b 029d 028b | | Declare_Subprogram INIT_0288,For_Outer_Call ; Debug Table 0x1.0x37 = 0x5b,0xffc8
005d 029d 029b | | Declare_Subprogram INIT_0298,For_Outer_Call ; Debug Table 0x1.0x38 = 0x5d,0xffc7
005f 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1.0x39 = 0x5f,0xffc6
0060 00c7 | | Action Elaborate_Subprogram
0061 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x3a = 0x61,0xffc5
0062 1d3f | ? | Execute_Immediate Reference_Lex_1,0x3f
0063 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0064 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0065 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0066 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0067 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0068 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32
0069 1d41 | A | Execute_Immediate Reference_Lex_1,0x41
006a 1d15 | | Execute_Immediate Reference_Lex_1,0x15
006b 1d17 | | Execute_Immediate Reference_Lex_1,0x17
006c 1d13 | | Execute_Immediate Reference_Lex_1,0x13
006d 1d16 | | Execute_Immediate Reference_Lex_1,0x16
006e 1d18 | | Execute_Immediate Reference_Lex_1,0x18
006f 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0070 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0071 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0072 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0073 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
0074 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
0075 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
0076 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
0077 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
0078 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
0079 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
007a 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
007b 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
007c 1d40 | @ | Execute_Immediate Reference_Lex_1,0x40
007d 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
007e 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
007f 1d20 | | Execute_Immediate Reference_Lex_1,0x20
0080 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e
0081 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30
0082 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
0083 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
0084 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
0085 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c
0086 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37
0087 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39
0088 a001 | | Store_Unchecked 0x0,0x1
0089 e002 | | Load 0x0,0x2
008a e003 | | Load 0x0,0x3
008b 482a |H* | Short_Literal 0x2a
008c e23e | > | Load 0x1,0x3e
008d 020e | | Execute Module,Augment_Imports
008e 00dd | | Load_Top At_Offset_5
008f 020f | | Execute Module,Activate
0090 e003 | | Load 0x0,0x3 ; Debug Table 0x1.0x3b = 0x90,0xffc4
0091 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0092 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38
0093 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37
0094 1d3b | ; | Execute_Immediate Reference_Lex_1,0x3b
0095 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39
0096 1d3c | < | Execute_Immediate Reference_Lex_1,0x3c
0097 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a
0098 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0099 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
009a 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
009b 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
009c 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
009d 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
009e 1d3f | ? | Execute_Immediate Reference_Lex_1,0x3f
009f 480f |H | Short_Literal 0xf
00a0 e23d | = | Load 0x1,0x3d
00a1 020e | | Execute Module,Augment_Imports
00a2 00de | | Load_Top At_Offset_6
00a3 020f | | Execute Module,Activate
00a4 BODY_0008:
00a4 00bc | | Action Signal_Activated
00a5 00bb | | Action Signal_Completion
00a6 0000 0000 | | .XXX[0x2]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ca | | .CONST 0x00ca ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0008 | | .CONST 0x0008 ; Number of locals
00ab INIT_00a8:
00ab e004 | | Load 0x0,0x4 ; Debug Table 0x2 = .DEBUG 0x00ab,0x03f4,0x0001,0x0000,0x0056,0xbcc5,0x0000,0x0017
; Debug Table 0x2.0x0 = 0xab,0xffff
00ac 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00ad 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ae e005 | | Load 0x0,0x5
00af 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00b0 4800 |H | Short_Literal 0x0
00b1 e004 | | Load 0x0,0x4
00b2 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00b3 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
00b4 0031 | 1 | Store_Top Heap_Access,At_Offset_1
00b5 e004 | | Load 0x0,0x4 ; Debug Table 0x2.0x1 = 0xb5,0xfffe
00b6 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00b7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00b8 e004 | | Load 0x0,0x4 ; Debug Table 0x2.0x2 = 0xb8,0xfffd
00b9 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00ba 02ff | | Declare_Variable Variant_Record
00bb 00d8 | | Load_Top At_Offset_0
00bc 1c00 | | Execute_Immediate Run_Utility,0x0
00bd e006 | | Load 0x0,0x6 ; Debug Table 0x2.0x3 = 0xbd,0xfffc
00be 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00bf 02c7 | | Declare_Variable Any
00c0 e005 | | Load 0x0,0x5
00c1 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00c2 e006 | | Load 0x0,0x6
00c3 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00c4 c405 | | Store 0x2,0x5
00c5 e007 | | Load 0x0,0x7 ; Debug Table 0x2.0x4 = 0xc5,0xfffb
00c6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00c7 e007 | | Load 0x0,0x7 ; Debug Table 0x2.0x5 = 0xc7,0xfffa
00c8 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00c9 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x2.0x6 = 0xc9,0xfff9
00ca BODY_00a8:
00ca 00ee | | Load_Encached Diana_Seq_Type_Cache ; Debug Table 0x2.0x7 = 0xca,0xfff8
; Debug Table 0x2.0x8 = 0xca,0x1
; Debug Table 0x2.0x9 = 0xca,0x401
00cb a235 | 5 | Store_Unchecked 0x1,0x35 ; Debug Table 0x2.0xa = 0xcb,0x1
00cc e007 | | Load 0x0,0x7 ; Debug Table 0x2.0xb = 0xcc,0x2
00cd 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00ce 00dd | | Load_Top At_Offset_5
00cf 4801 |H | Short_Literal 0x1
00d0 4800 |H | Short_Literal 0x0
00d1 e008 | | Load 0x0,0x8
00d2 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00d3 e006 | | Load 0x0,0x6
00d4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00d5 4800 |H | Short_Literal 0x0
00d6 e009 | | Load 0x0,0x9
00d7 181e | | Execute Package,Field_Execute,Field_Number 0x1e
00d8 4800 |H | Short_Literal 0x0
00d9 e004 | | Load 0x0,0x4
00da 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00db 00d1 | | Pop_Control Pop_Count_1
00dc 005b | [ | Store_Top Discrete,At_Offset_3
00dd 00da | | Load_Top At_Offset_2 ; Debug Table 0x2.0xc = 0xdd,0x3
00de 0b00 | | Execute_Immediate Case_Compare,0x0
00df 7002 |p | Jump_Nonzero 0xe2
00e0 61d3 |a | Indirect_Literal Discrete,0x2b4,{0x00000000, 0x56bcd501} ; Debug Table 0x2.0xd = 0xe0,0x5
00e1 0257 | W | Execute Discrete,Raise
00e2 00d1 | | Pop_Control Pop_Count_1
00e3 e007 | | Load 0x0,0x7 ; Debug Table 0x2.0xe = 0xe3,0x6
00e4 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00e5 e004 | | Load 0x0,0x4
00e6 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00e7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00e8 00dd | | Load_Top At_Offset_5
00e9 4800 |H | Short_Literal 0x0
00ea 4802 |H | Short_Literal 0x2
00eb e404 | | Load 0x2,0x4
00ec e004 | | Load 0x0,0x4
00ed 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00ee c403 | | Store 0x2,0x3
00ef 005a | Z | Store_Top Discrete,At_Offset_2
00f0 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x2.0xf = 0xf0,0x7
00f1 0b00 | | Execute_Immediate Case_Compare,0x0
00f2 7002 |p | Jump_Nonzero 0xf5
00f3 61c0 |a | Indirect_Literal Discrete,0x2b4,{0x00000000, 0x56bcd501} ; Debug Table 0x2.0x10 = 0xf3,0x9
00f4 0257 | W | Execute Discrete,Raise
00f5 00d1 | | Pop_Control Pop_Count_1
00f6 e005 | | Load 0x0,0x5 ; Debug Table 0x2.0x11 = 0xf6,0xa
00f7 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00f8 4800 |H | Short_Literal 0x0
00f9 e403 | | Load 0x2,0x3
00fa e004 | | Load 0x0,0x4
00fb 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00fc 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
00fd e23d | = | Load 0x1,0x3d ; Debug Table 0x2.0x12 = 0xfd,0xb
00fe 180d | | Execute Package,Field_Execute,Field_Number 0xd
00ff 0092 02ca | | Action Push_String_Extended,0x2ca ; "STANDARD"
; Debug Table 0x2.0x13 = 0xff,0xc
0101 00eb | | Load_Encached Diana_Cache
0102 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0103 4829 |H) | Short_Literal 0x29
0104 00eb | | Load_Encached Diana_Cache
0105 1879 | y | Execute Package,Field_Execute,Field_Number 0x79
0106 a231 | 1 | Store_Unchecked 0x1,0x31
0107 00ee | | Load_Encached Diana_Seq_Type_Cache ; Debug Table 0x2.0x14 = 0x107,0xd
; Debug Table 0x2.0x15 = 0x107,0x801
0108 488c |H | Short_Literal 0x8c ; Debug Table 0x2.0x16 = 0x108,0xd
0109 00eb | | Load_Encached Diana_Cache
010a 187f | | Execute Package,Field_Execute,Field_Number 0x7f
010b 00ee | | Load_Encached Diana_Seq_Type_Cache ; Debug Table 0x2.0x17 = 0x10b,0xc01
010c 488c |H | Short_Literal 0x8c ; Debug Table 0x2.0x18 = 0x10c,0x801
010d 00eb | | Load_Encached Diana_Cache
010e 187f | | Execute Package,Field_Execute,Field_Number 0x7f
010f 487c |H| | Short_Literal 0x7c
0110 00eb | | Load_Encached Diana_Cache
0111 187d | } | Execute Package,Field_Execute,Field_Number 0x7d
0112 a233 | 3 | Store_Unchecked 0x1,0x33
0113 e233 | 3 | Load 0x1,0x33 ; Debug Table 0x2.0x19 = 0x113,0xe
0114 e231 | 1 | Load 0x1,0x31
0115 483e |H> | Short_Literal 0x3e
0116 00eb | | Load_Encached Diana_Cache
0117 187d | } | Execute Package,Field_Execute,Field_Number 0x7d
0118 a232 | 2 | Store_Unchecked 0x1,0x32
0119 00ee | | Load_Encached Diana_Seq_Type_Cache ; Debug Table 0x2.0x1a = 0x119,0xf
; Debug Table 0x2.0x1b = 0x119,0x1001
011a 4895 |H | Short_Literal 0x95 ; Debug Table 0x2.0x1c = 0x11a,0xf
011b 00eb | | Load_Encached Diana_Cache
011c 187f | | Execute Package,Field_Execute,Field_Number 0x7f
011d e232 | 2 | Load 0x1,0x32
011e 00ee | | Load_Encached Diana_Seq_Type_Cache ; Debug Table 0x2.0x1d = 0x11e,0x1401
011f 4884 |H | Short_Literal 0x84 ; Debug Table 0x2.0x1e = 0x11f,0x1001
0120 00eb | | Load_Encached Diana_Cache
0121 187f | | Execute Package,Field_Execute,Field_Number 0x7f
0122 48a8 |H | Short_Literal 0xa8
0123 00eb | | Load_Encached Diana_Cache
0124 187e | ~ | Execute Package,Field_Execute,Field_Number 0x7e
0125 a234 | 4 | Store_Unchecked 0x1,0x34
0126 e232 | 2 | Load 0x1,0x32 ; Debug Table 0x2.0x1f = 0x126,0x10
0127 4975 |Iu | Short_Literal 0x175
0128 00eb | | Load_Encached Diana_Cache
0129 0098 | | Execute Package,Field_Read_Dynamic
012a 181f | | Execute Package,Field_Execute,Field_Number 0x1f
012b a236 | 6 | Store_Unchecked 0x1,0x36
012c 4801 |H | Short_Literal 0x1 ; Debug Table 0x2.0x20 = 0x12c,0x11
012d e234 | 4 | Load 0x1,0x34
012e e003 | | Load 0x0,0x3
012f 1887 | | Execute Package,Field_Execute,Field_Number 0x87
0130 4801 |H | Short_Literal 0x1 ; Debug Table 0x2.0x21 = 0x130,0x12
0131 e234 | 4 | Load 0x1,0x34
0132 e003 | | Load 0x0,0x3
0133 188d | | Execute Package,Field_Execute,Field_Number 0x8d
0134 4874 |Ht | Short_Literal 0x74 ; Debug Table 0x2.0x22 = 0x134,0x13
0135 00eb | | Load_Encached Diana_Cache
0136 1878 | x | Execute Package,Field_Execute,Field_Number 0x78
0137 a237 | 7 | Store_Unchecked 0x1,0x37
0138 0092 02cb | | Action Push_String_Extended,0x2cb ; "*UNIVERSAL_INTEGER*"
; Debug Table 0x2.0x23 = 0x138,0x14
013a 00eb | | Load_Encached Diana_Cache
013b 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
013c 482f |H/ | Short_Literal 0x2f
013d 00eb | | Load_Encached Diana_Cache
013e 1879 | y | Execute Package,Field_Execute,Field_Number 0x79
013f a238 | 8 | Store_Unchecked 0x1,0x38
0140 e237 | 7 | Load 0x1,0x37 ; Debug Table 0x2.0x24 = 0x140,0x15
0141 e238 | 8 | Load 0x1,0x38
0142 4966 |If | Short_Literal 0x166
0143 00eb | | Load_Encached Diana_Cache
0144 0096 | | Execute Package,Entry
0145 e238 | 8 | Load 0x1,0x38 ; Debug Table 0x2.0x25 = 0x145,0x16
0146 e238 | 8 | Load 0x1,0x38
0147 496a |Ij | Short_Literal 0x16a
0148 00eb | | Load_Encached Diana_Cache
0149 0096 | | Execute Package,Entry
014a e237 | 7 | Load 0x1,0x37 ; Debug Table 0x2.0x26 = 0x14a,0x17
014b e23e | > | Load 0x1,0x3e
014c 180d | | Execute Package,Field_Execute,Field_Number 0xd
014d e238 | 8 | Load 0x1,0x38
014e 483b |H; | Short_Literal 0x3b
014f 00eb | | Load_Encached Diana_Cache
0150 187e | ~ | Execute Package,Field_Execute,Field_Number 0x7e
0151 8240 | @ | Call 0x1,0x40
0152 4876 |Hv | Short_Literal 0x76 ; Debug Table 0x2.0x27 = 0x152,0x18
0153 00eb | | Load_Encached Diana_Cache
0154 1878 | x | Execute Package,Field_Execute,Field_Number 0x78
0155 a239 | 9 | Store_Unchecked 0x1,0x39
0156 0092 02cc | | Action Push_String_Extended,0x2cc ; "*UNIVERSAL_REAL*"
; Debug Table 0x2.0x28 = 0x156,0x19
0158 00eb | | Load_Encached Diana_Cache
0159 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
015a 482f |H/ | Short_Literal 0x2f
015b 00eb | | Load_Encached Diana_Cache
015c 1879 | y | Execute Package,Field_Execute,Field_Number 0x79
015d a23b | ; | Store_Unchecked 0x1,0x3b
015e e239 | 9 | Load 0x1,0x39 ; Debug Table 0x2.0x29 = 0x15e,0x1a
015f e23b | ; | Load 0x1,0x3b
0160 4966 |If | Short_Literal 0x166
0161 00eb | | Load_Encached Diana_Cache
0162 0096 | | Execute Package,Entry
0163 e23b | ; | Load 0x1,0x3b ; Debug Table 0x2.0x2a = 0x163,0x1b
0164 e23b | ; | Load 0x1,0x3b
0165 496a |Ij | Short_Literal 0x16a
0166 00eb | | Load_Encached Diana_Cache
0167 0096 | | Execute Package,Entry
0168 e239 | 9 | Load 0x1,0x39 ; Debug Table 0x2.0x2b = 0x168,0x1c
0169 e23e | > | Load 0x1,0x3e
016a 180d | | Execute Package,Field_Execute,Field_Number 0xd
016b e23b | ; | Load 0x1,0x3b
016c 483b |H; | Short_Literal 0x3b
016d 00eb | | Load_Encached Diana_Cache
016e 187e | ~ | Execute Package,Field_Execute,Field_Number 0x7e
016f 8240 | @ | Call 0x1,0x40
0170 4875 |Hu | Short_Literal 0x75 ; Debug Table 0x2.0x2c = 0x170,0x1d
0171 00eb | | Load_Encached Diana_Cache
0172 1878 | x | Execute Package,Field_Execute,Field_Number 0x78
0173 a23a | : | Store_Unchecked 0x1,0x3a
0174 0092 02cd | | Action Push_String_Extended,0x2cd ; "*UNIVERSAL_FIXED*"
; Debug Table 0x2.0x2d = 0x174,0x1e
0176 00eb | | Load_Encached Diana_Cache
0177 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0178 482f |H/ | Short_Literal 0x2f
0179 00eb | | Load_Encached Diana_Cache
017a 1879 | y | Execute Package,Field_Execute,Field_Number 0x79
017b a23c | < | Store_Unchecked 0x1,0x3c
017c e23a | : | Load 0x1,0x3a ; Debug Table 0x2.0x2e = 0x17c,0x1f
017d e23c | < | Load 0x1,0x3c
017e 4966 |If | Short_Literal 0x166
017f 00eb | | Load_Encached Diana_Cache
0180 0096 | | Execute Package,Entry
0181 e23c | < | Load 0x1,0x3c ; Debug Table 0x2.0x2f = 0x181,0x20
0182 e23c | < | Load 0x1,0x3c
0183 496a |Ij | Short_Literal 0x16a
0184 00eb | | Load_Encached Diana_Cache
0185 0096 | | Execute Package,Entry
0186 e23a | : | Load 0x1,0x3a ; Debug Table 0x2.0x30 = 0x186,0x21
0187 e23e | > | Load 0x1,0x3e
0188 180d | | Execute Package,Field_Execute,Field_Number 0xd
0189 e23c | < | Load 0x1,0x3c
018a 483b |H; | Short_Literal 0x3b
018b 00eb | | Load_Encached Diana_Cache
018c 187e | ~ | Execute Package,Field_Execute,Field_Number 0x7e
018d 8240 | @ | Call 0x1,0x40
018e e23e | > | Load 0x1,0x3e ; Debug Table 0x2.0x31 = 0x18e,0x22
018f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0190 4800 |H | Short_Literal 0x0 ; Debug Table 0x2.0x32 = 0x190,0x23
0191 e213 | | Load 0x1,0x13
0192 e217 | | Load 0x1,0x17
0193 e23d | = | Load 0x1,0x3d
0194 180e | | Execute Package,Field_Execute,Field_Number 0xe
0195 4804 |H | Short_Literal 0x4 ; Debug Table 0x2.0x33 = 0x195,0x24
0196 e219 | | Load 0x1,0x19
0197 e21b | | Load 0x1,0x1b
0198 e23d | = | Load 0x1,0x3d
0199 180f | | Execute Package,Field_Execute,Field_Number 0xf
019a 4801 |H | Short_Literal 0x1 ; Debug Table 0x2.0x34 = 0x19a,0x25
019b e214 | | Load 0x1,0x14
019c e218 | | Load 0x1,0x18
019d e23d | = | Load 0x1,0x3d
019e 180e | | Execute Package,Field_Execute,Field_Number 0xe
019f 4806 |H | Short_Literal 0x6 ; Debug Table 0x2.0x35 = 0x19f,0x26
01a0 e228 | ( | Load 0x1,0x28
01a1 e22a | * | Load 0x1,0x2a
01a2 e23d | = | Load 0x1,0x3d
01a3 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01a4 e23d | = | Load 0x1,0x3d ; Debug Table 0x2.0x36 = 0x1a4,0x27
01a5 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01a6 e23d | = | Load 0x1,0x3d ; Debug Table 0x2.0x37 = 0x1a6,0x28
01a7 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01a8 e23d | = | Load 0x1,0x3d ; Debug Table 0x2.0x38 = 0x1a8,0x29
01a9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01aa e23d | = | Load 0x1,0x3d ; Debug Table 0x2.0x39 = 0x1aa,0x2a
01ab 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01ac 0092 02ce | | Action Push_String_Extended,0x2ce ; "CONSTRAINT_ERROR"
; Debug Table 0x2.0x3a = 0x1ac,0x2b
01ae 00eb | | Load_Encached Diana_Cache
01af 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
01b0 8243 | C | Call 0x1,0x43
01b1 0092 02cf | | Action Push_String_Extended,0x2cf ; "NUMERIC_ERROR"
; Debug Table 0x2.0x3b = 0x1b1,0x2c
01b3 00eb | | Load_Encached Diana_Cache
01b4 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
01b5 8243 | C | Call 0x1,0x43
01b6 0092 02d0 | | Action Push_String_Extended,0x2d0 ; "STORAGE_ERROR"
; Debug Table 0x2.0x3c = 0x1b6,0x2d
01b8 00eb | | Load_Encached Diana_Cache
01b9 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
01ba 8243 | C | Call 0x1,0x43
01bb 0092 02d1 | | Action Push_String_Extended,0x2d1 ; "TASKING_ERROR"
; Debug Table 0x2.0x3d = 0x1bb,0x2e
01bd 00eb | | Load_Encached Diana_Cache
01be 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
01bf 8243 | C | Call 0x1,0x43
01c0 0092 02d2 | | Action Push_String_Extended,0x2d2 ; "PROGRAM_ERROR"
; Debug Table 0x2.0x3e = 0x1c0,0x2f
01c2 00eb | | Load_Encached Diana_Cache
01c3 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
01c4 8243 | C | Call 0x1,0x43
01c5 e220 | | Load 0x1,0x20 ; Debug Table 0x2.0x3f = 0x1c5,0x30
01c6 8240 | @ | Call 0x1,0x40
01c7 e233 | 3 | Load 0x1,0x33 ; Debug Table 0x2.0x40 = 0x1c7,0x31
01c8 e231 | 1 | Load 0x1,0x31
01c9 4963 |Ic | Short_Literal 0x163
01ca 00eb | | Load_Encached Diana_Cache
01cb 0096 | | Execute Package,Entry
01cc e231 | 1 | Load 0x1,0x31 ; Debug Table 0x2.0x41 = 0x1cc,0x32
01cd e231 | 1 | Load 0x1,0x31
01ce 496a |Ij | Short_Literal 0x16a
01cf 00eb | | Load_Encached Diana_Cache
01d0 0096 | | Execute Package,Entry
01d1 e235 | 5 | Load 0x1,0x35 ; Debug Table 0x2.0x42 = 0x1d1,0x33
01d2 e233 | 3 | Load 0x1,0x33
01d3 00eb | | Load_Encached Diana_Cache
01d4 18bd | | Execute Package,Field_Execute,Field_Number 0xbd
01d5 00eb | | Load_Encached Diana_Cache
01d6 1890 | | Execute Package,Field_Execute,Field_Number 0x90
01d7 8242 | B | Call 0x1,0x42 ; Debug Table 0x2.0x43 = 0x1d7,0x34
01d8 e233 | 3 | Load 0x1,0x33 ; Debug Table 0x2.0x44 = 0x1d8,0x35
01d9 00eb | | Load_Encached Diana_Cache
01da 18bd | | Execute Package,Field_Execute,Field_Number 0xbd
01db 0031 | 1 | Store_Top Heap_Access,At_Offset_1
01dc 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x45 = 0x1dc,0x36
01dd 4972 |Ir | Short_Literal 0x172
01de 00eb | | Load_Encached Diana_Cache
01df 0098 | | Execute Package,Field_Read_Dynamic
01e0 180f | | Execute Package,Field_Execute,Field_Number 0xf
01e1 00eb | | Load_Encached Diana_Cache ; Debug Table 0x2.0x46 = 0x1e1,0x37
01e2 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
01e3 00d9 | | Load_Top At_Offset_1
01e4 4976 |Iv | Short_Literal 0x176
01e5 00eb | | Load_Encached Diana_Cache
01e6 0098 | | Execute Package,Field_Read_Dynamic
01e7 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01e8 00d9 | | Load_Top At_Offset_1
01e9 4972 |Ir | Short_Literal 0x172
01ea 00eb | | Load_Encached Diana_Cache
01eb 0098 | | Execute Package,Field_Read_Dynamic
01ec 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01ed e233 | 3 | Load 0x1,0x33 ; Debug Table 0x2.0x47 = 0x1ed,0x38
01ee 00eb | | Load_Encached Diana_Cache
01ef 18be | | Execute Package,Field_Execute,Field_Number 0xbe
01f0 4972 |Ir | Short_Literal 0x172
01f1 00eb | | Load_Encached Diana_Cache
01f2 0098 | | Execute Package,Field_Read_Dynamic
01f3 180f | | Execute Package,Field_Execute,Field_Number 0xf
01f4 e232 | 2 | Load 0x1,0x32 ; Debug Table 0x2.0x48 = 0x1f4,0x39
01f5 4972 |Ir | Short_Literal 0x172
01f6 00eb | | Load_Encached Diana_Cache
01f7 0098 | | Execute Package,Field_Read_Dynamic
01f8 180f | | Execute Package,Field_Execute,Field_Number 0xf
01f9 e231 | 1 | Load 0x1,0x31 ; Debug Table 0x2.0x49 = 0x1f9,0x3a
01fa e232 | 2 | Load 0x1,0x32
01fb 4972 |Ir | Short_Literal 0x172
01fc 00eb | | Load_Encached Diana_Cache
01fd 0098 | | Execute Package,Field_Read_Dynamic
01fe 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01ff e230 | 0 | Load 0x1,0x30 ; Debug Table 0x2.0x4a = 0x1ff,0x3b
0200 00eb | | Load_Encached Diana_Cache
0201 18bd | | Execute Package,Field_Execute,Field_Number 0xbd
0202 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0203 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x4b = 0x203,0x3c
0204 4972 |Ir | Short_Literal 0x172
0205 00eb | | Load_Encached Diana_Cache
0206 0098 | | Execute Package,Field_Read_Dynamic
0207 180f | | Execute Package,Field_Execute,Field_Number 0xf
0208 00eb | | Load_Encached Diana_Cache ; Debug Table 0x2.0x4c = 0x208,0x3d
0209 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
020a 00d9 | | Load_Top At_Offset_1
020b 4976 |Iv | Short_Literal 0x176
020c 00eb | | Load_Encached Diana_Cache
020d 0098 | | Execute Package,Field_Read_Dynamic
020e 181a | | Execute Package,Field_Execute,Field_Number 0x1a
020f 00d9 | | Load_Top At_Offset_1
0210 4972 |Ir | Short_Literal 0x172
0211 00eb | | Load_Encached Diana_Cache
0212 0098 | | Execute Package,Field_Read_Dynamic
0213 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0214 00dd | | Load_Top At_Offset_5 ; Debug Table 0x2.0x4d = 0x214,0x3e
0215 e234 | 4 | Load 0x1,0x34
0216 e004 | | Load 0x0,0x4
0217 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0218 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0219 4803 |H | Short_Literal 0x3 ; Debug Table 0x2.0x4e = 0x219,0x3f
021a 00de | | Load_Top At_Offset_6
021b e004 | | Load 0x0,0x4
021c 1b13 | | Execute Package,Field_Read,Field_Number 0x13
021d 1820 | | Execute Package,Field_Execute,Field_Number 0x20
021e e007 | | Load 0x0,0x7 ; Debug Table 0x2.0x4f = 0x21e,0x40
021f 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0220 4800 |H | Short_Literal 0x0
0221 4801 |H | Short_Literal 0x1
0222 00de | | Load_Top At_Offset_6
0223 e404 | | Load 0x2,0x4
0224 e004 | | Load 0x0,0x4
0225 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0226 005a | Z | Store_Top Discrete,At_Offset_2
0227 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x2.0x50 = 0x227,0x41
0228 0b00 | | Execute_Immediate Case_Compare,0x0
0229 7002 |p | Jump_Nonzero 0x22c
022a 6089 |` | Indirect_Literal Discrete,0x2b4,{0x00000000, 0x56bcd501} ; Debug Table 0x2.0x51 = 0x22a,0x43
022b 0257 | W | Execute Discrete,Raise
022c 00d1 | | Pop_Control Pop_Count_1
022d 00db | | Load_Top At_Offset_3 ; Debug Table 0x2.0x52 = 0x22d,0x44
022e 4801 |H | Short_Literal 0x1
022f e5ff | | Load 0x2,-0x1
0230 e006 | | Load 0x0,0x6
0231 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0232 c405 | | Store 0x2,0x5
0233 e005 | | Load 0x0,0x5 ; Debug Table 0x2.0x53 = 0x233,0x45
0234 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0235 4800 |H | Short_Literal 0x0
0236 e402 | | Load 0x2,0x2
0237 e004 | | Load 0x0,0x4
0238 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0239 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
023a 00dc | | Load_Top At_Offset_4 ; Debug Table 0x2.0x54 = 0x23a,0x46
023b e5fe | | Load 0x2,-0x2
023c 016d | m | Execute Variant_Record,Structure_Write
023d e234 | 4 | Load 0x1,0x34 ; Debug Table 0x2.0x55 = 0x23d,0x47
023e a5fd | | Store_Unchecked 0x2,-0x3
023f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243 | C | .CONST 0x0243 ; Address of begin
0241 0004 | | .CONST 0x0004 ; Address of exception handler
0242 0001 | | .CONST 0x0001 ; Number of locals
0243 BODY_0240:
0243 INIT_0240:
0243 4603 |F | Jump_Case 0x4 ; Debug Table 0x3 = .DEBUG 0x0243,0x04a2,0x0005,0x0000,0x0056,0xbcd5,0x0000,0x002a
0244 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0245 7802 |x | Jump 0x248 ; case 0x1
0246 7805 |x | Jump 0x24c ; case 0x2
0247 7809 |x | Jump 0x251 ; case 0x3
0248 00da | | Load_Top At_Offset_2
0249 0091 02c0 | | Action Push_String_Extended_Indexed,0x2c0 ; "INT"
024b 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
024c 00db | | Load_Top At_Offset_3
024d 00db | | Load_Top At_Offset_3
024e 00e0 | | Load_Encached Standard_Cache
024f 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0250 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0251 00da | | Load_Top At_Offset_2
0252 00e0 | | Load_Encached Standard_Cache
0253 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0254 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0255 0000 0000 | | .XXX[0x3]
0257 0000 | |
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b | [ | .CONST 0x025b ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 0001 | | .CONST 0x0001 ; Number of locals
025b BODY_0258:
025b INIT_0258:
025b e236 | 6 | Load 0x1,0x36 ; Debug Table 0x4 = .DEBUG 0x025b,0x04a4,0x0001,0x0000,0x0056,0xbcd5,0x0000,0x01f7
; Debug Table 0x4.0x0 = 0x25b,0x1
025c 00db | | Load_Top At_Offset_3
025d 4975 |Iu | Short_Literal 0x175
025e 00eb | | Load_Encached Diana_Cache
025f 0098 | | Execute Package,Field_Read_Dynamic
0260 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0261 c236 | 6 | Store 0x1,0x36
0262 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0263 0000 0000 | | .BLANK 0000[0x5]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026b | k | .CONST 0x026b ; Address of begin
0269 0004 | | .CONST 0x0004 ; Address of exception handler
026a 0001 | | .CONST 0x0001 ; Number of locals
026b BODY_0268:
026b INIT_0268:
026b e235 | 5 | Load 0x1,0x35 ; Debug Table 0x5 = .DEBUG 0x026b,0x04a8,0x0001,0x0000,0x0056,0xbcd5,0x0000,0x020c
; Debug Table 0x5.0x0 = 0x26b,0x1
026c 00db | | Load_Top At_Offset_3
026d 4975 |Iu | Short_Literal 0x175
026e 00eb | | Load_Encached Diana_Cache
026f 0098 | | Execute Package,Field_Read_Dynamic
0270 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0271 c235 | 5 | Store 0x1,0x35
0272 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0273 0000 0000 | | .BLANK 0000[0x5]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027b | { | .CONST 0x027b ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0001 | | .CONST 0x0001 ; Number of locals
027b BODY_0278:
027b INIT_0278:
027b 00db | | Load_Top At_Offset_3 ; Debug Table 0x6 = .DEBUG 0x027b,0x04ac,0x0001,0x0000,0x0056,0xbcd5,0x0000,0x0221
; Debug Table 0x6.0x0 = 0x27b,0x1
027c 00eb | | Load_Encached Diana_Cache
027d 18cf | | Execute Package,Field_Execute,Field_Number 0xcf
027e 00db | | Load_Top At_Offset_3
027f e003 | | Load 0x0,0x3
0280 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0281 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0282 0000 0000 | | .BLANK 0000[0x6]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028b | | .CONST 0x028b ; Address of begin
0289 0004 | | .CONST 0x0004 ; Address of exception handler
028a 0001 | | .CONST 0x0001 ; Number of locals
028b BODY_0288:
028b INIT_0288:
028b e210 | | Load 0x1,0x10 ; Debug Table 0x7 = .DEBUG 0x028b,0x04b0,0x0001,0x0000,0x0056,0xbcd5,0x0000,0x0241
; Debug Table 0x7.0x0 = 0x28b,0x1
028c e20f | | Load 0x1,0xf
028d e234 | 4 | Load 0x1,0x34
028e 4973 |Is | Short_Literal 0x173
028f 00eb | | Load_Encached Diana_Cache
0290 0098 | | Execute Package,Field_Read_Dynamic
0291 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0292 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0293 0000 0000 | | .BLANK 0000[0x5]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 02a2 | | .CONST 0x02a2 ; Address of begin
0299 0004 | | .CONST 0x0004 ; Address of exception handler
029a 0003 | | .CONST 0x0003 ; Number of locals
029b INIT_0298:
029b 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x8 = .DEBUG 0x029b,0x04b4,0x0001,0x0000,0x0056,0xbcd5,0x0000,0x0253
; Debug Table 0x8.0x0 = 0x29b,0xffff
029c 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x8.0x1 = 0x29c,0xfffe
029d 00dc | | Load_Top At_Offset_4
029e 4820 |H | Short_Literal 0x20
029f 00eb | | Load_Encached Diana_Cache
02a0 1879 | y | Execute Package,Field_Execute,Field_Number 0x79
02a1 0031 | 1 | Store_Top Heap_Access,At_Offset_1
02a2 BODY_0298:
02a2 4800 |H | Short_Literal 0x0 ; Debug Table 0x8.0x2 = 0x2a2,0x1
02a3 00eb | | Load_Encached Diana_Cache
02a4 1878 | x | Execute Package,Field_Execute,Field_Number 0x78
02a5 00d9 | | Load_Top At_Offset_1
02a6 4975 |Iu | Short_Literal 0x175
02a7 00eb | | Load_Encached Diana_Cache
02a8 0098 | | Execute Package,Field_Read_Dynamic
02a9 180e | | Execute Package,Field_Execute,Field_Number 0xe
02aa 4890 |H | Short_Literal 0x90
02ab 00eb | | Load_Encached Diana_Cache
02ac 187f | | Execute Package,Field_Execute,Field_Number 0x7f
02ad 4837 |H7 | Short_Literal 0x37
02ae 00eb | | Load_Encached Diana_Cache
02af 187d | } | Execute Package,Field_Execute,Field_Number 0x7d
02b0 0032 | 2 | Store_Top Heap_Access,At_Offset_2
02b1 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x8.0x3 = 0x2b1,0x2
02b2 8240 | @ | Call 0x1,0x40
02b3 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02b4 0000 0000 | | .LITERAL {0x00000000, 0x56bcd501}
02b8 0046 5c0e | F\ | .LITERAL {0x00465c0e, 0x000000b0}
02bc 0046 600e | F` | .LITERAL {0x0046600e, 0x000000b0}
02c0 ; --------------------------------------------------------------------------------------
02c0 ; STRING TABLE
02c0 ; --------------------------------------------------------------------------------------
02c0 0028 | ( | .STRTAB 0x0028->0x02d4 ; "INT"
02c1 0029 | ) | .STRTAB 0x0029->0x02d5 ; "LINT"
02c2 002b | + | .STRTAB 0x002b->0x02d7 ; "UINT"
02c3 002d | - | .STRTAB 0x002d->0x02d9 ; "BOOL"
02c4 002f | / | .STRTAB 0x002f->0x02db ; "FLO"
02c5 0030 | 0 | .STRTAB 0x0030->0x02dd ; "UFLO"
02c6 0032 | 2 | .STRTAB 0x0032->0x02df ; "DUR"
02c7 0033 | 3 | .STRTAB 0x0033->0x02e0 ; "CHAR"
02c8 0035 | 5 | .STRTAB 0x0035->0x02e2 ; "STR"
02c9 0036 | 6 | .STRTAB 0x0036->0x02e4 ; "ANY_TYPE"
02ca 003c | < | .STRTAB 0x003c->0x02e8 ; "STANDARD"
02cb 0042 | B | .STRTAB 0x0042->0x02ec ; "*UNIVERSAL_INTEGER*"
02cc 0053 | S | .STRTAB 0x0053->0x02f5 ; "*UNIVERSAL_REAL*"
02cd 0061 | a | .STRTAB 0x0061->0x02fd ; "*UNIVERSAL_FIXED*"
02ce 0070 | p | .STRTAB 0x0070->0x0306 ; "CONSTRAINT_ERROR"
02cf 007e | ~ | .STRTAB 0x007e->0x030e ; "NUMERIC_ERROR"
02d0 0089 | | .STRTAB 0x0089->0x0314 ; "STORAGE_ERROR"
02d1 0094 | | .STRTAB 0x0094->0x031b ; "TASKING_ERROR"
02d2 009f | | .STRTAB 0x009f->0x0321 ; "PROGRAM_ERROR"
02d3 00aa | | .STREND 0x00aa->0x0328
02d4 494e 544c |INTL| .STRTAB_STRINGS
0328 ; --------------------------------------------------------------------------------------
0328 ; Debug Table
0328 ; --------------------------------------------------------------------------------------
0328 0003 0009 | | .CONST 0x0003,0x0009
032a 000b 0372 | r| .DEBUG 0x000b,0x0372,0x8000,0x0000,0x0056,0xbcc5,0x0000,0x0009
0332 000e 037a | z| .DEBUG 0x000e,0x037a,0x8000,0x0000,0x0056,0xbcd5,0x0000,0x0013
033a 00ab 03f4 | | .DEBUG 0x00ab,0x03f4,0x0001,0x0000,0x0056,0xbcc5,0x0000,0x0017
0342 0243 04a2 | C | .DEBUG 0x0243,0x04a2,0x0005,0x0000,0x0056,0xbcd5,0x0000,0x002a
034a 025b 04a4 | [ | .DEBUG 0x025b,0x04a4,0x0001,0x0000,0x0056,0xbcd5,0x0000,0x01f7
0352 026b 04a8 | k | .DEBUG 0x026b,0x04a8,0x0001,0x0000,0x0056,0xbcd5,0x0000,0x020c
035a 027b 04ac | { | .DEBUG 0x027b,0x04ac,0x0001,0x0000,0x0056,0xbcd5,0x0000,0x0221
0362 028b 04b0 | | .DEBUG 0x028b,0x04b0,0x0001,0x0000,0x0056,0xbcd5,0x0000,0x0241
036a 029b 04b4 | | .DEBUG 0x029b,0x04b4,0x0001,0x0000,0x0056,0xbcd5,0x0000,0x0253
0372 ; --------------------------------------------------------------------------------------
0372 ; Debug3 Subtable 0x0
0372 ; --------------------------------------------------------------------------------------
0372 0003 0000 | | .DBG3TAB 0x0003,0x0000
0374 000b ffff | | .CONST 0x000b,0xffff
0376 000b fffe | | .CONST 0x000b,0xfffe
0378 000b fffd | | .CONST 0x000b,0xfffd
037a ; --------------------------------------------------------------------------------------
037a ; Debug3 Subtable 0x1
037a ; --------------------------------------------------------------------------------------
037a 003c 0000 | < | .DBG3TAB 0x003c,0x0000
037c 000e ffff | | .CONST 0x000e,0xffff
037e 000e fffe | | .CONST 0x000e,0xfffe
0380 000e fffd | | .CONST 0x000e,0xfffd
0382 000e fffc | | .CONST 0x000e,0xfffc
0384 000e fffb | | .CONST 0x000e,0xfffb
0386 0013 fffa | | .CONST 0x0013,0xfffa
0388 001e fff9 | | .CONST 0x001e,0xfff9
038a 001f fff8 | | .CONST 0x001f,0xfff8
038c 0020 fff7 | | .CONST 0x0020,0xfff7
038e 0021 fff6 | ! | .CONST 0x0021,0xfff6
0390 0023 fff5 | # | .CONST 0x0023,0xfff5
0392 0025 fff4 | % | .CONST 0x0025,0xfff4
0394 0027 fff3 | ' | .CONST 0x0027,0xfff3
0396 0028 fff2 | ( | .CONST 0x0028,0xfff2
0398 0029 fff1 | ) | .CONST 0x0029,0xfff1
039a 002a fff0 | * | .CONST 0x002a,0xfff0
039c 002b ffef | + | .CONST 0x002b,0xffef
039e 002c ffee | , | .CONST 0x002c,0xffee
03a0 002d ffed | - | .CONST 0x002d,0xffed
03a2 002e ffec | . | .CONST 0x002e,0xffec
03a4 002f ffeb | / | .CONST 0x002f,0xffeb
03a6 0030 ffea | 0 | .CONST 0x0030,0xffea
03a8 0031 ffe9 | 1 | .CONST 0x0031,0xffe9
03aa 0032 ffe8 | 2 | .CONST 0x0032,0xffe8
03ac 0033 ffe7 | 3 | .CONST 0x0033,0xffe7
03ae 0034 ffe6 | 4 | .CONST 0x0034,0xffe6
03b0 0035 ffe5 | 5 | .CONST 0x0035,0xffe5
03b2 0036 ffe4 | 6 | .CONST 0x0036,0xffe4
03b4 0037 ffe3 | 7 | .CONST 0x0037,0xffe3
03b6 0038 ffe2 | 8 | .CONST 0x0038,0xffe2
03b8 0039 ffe1 | 9 | .CONST 0x0039,0xffe1
03ba 003a ffe0 | : | .CONST 0x003a,0xffe0
03bc 003b ffdf | ; | .CONST 0x003b,0xffdf
03be 003c ffde | < | .CONST 0x003c,0xffde
03c0 003d ffdd | = | .CONST 0x003d,0xffdd
03c2 003e ffdc | > | .CONST 0x003e,0xffdc
03c4 003f ffdb | ? | .CONST 0x003f,0xffdb
03c6 0040 ffda | @ | .CONST 0x0040,0xffda
03c8 0041 ffd9 | A | .CONST 0x0041,0xffd9
03ca 0042 ffd8 | B | .CONST 0x0042,0xffd8
03cc 0043 ffd7 | C | .CONST 0x0043,0xffd7
03ce 0044 ffd6 | D | .CONST 0x0044,0xffd6
03d0 0045 ffd5 | E | .CONST 0x0045,0xffd5
03d2 0046 ffd4 | F | .CONST 0x0046,0xffd4
03d4 0047 ffd3 | G | .CONST 0x0047,0xffd3
03d6 0048 ffd2 | H | .CONST 0x0048,0xffd2
03d8 0049 ffd1 | I | .CONST 0x0049,0xffd1
03da 0049 ffd0 | I | .CONST 0x0049,0xffd0
03dc 0049 ffcf | I | .CONST 0x0049,0xffcf
03de 004a ffce | J | .CONST 0x004a,0xffce
03e0 004b ffcd | K | .CONST 0x004b,0xffcd
03e2 0050 ffcc | P | .CONST 0x0050,0xffcc
03e4 0055 ffcb | U | .CONST 0x0055,0xffcb
03e6 0057 ffca | W | .CONST 0x0057,0xffca
03e8 0059 ffc9 | Y | .CONST 0x0059,0xffc9
03ea 005b ffc8 | [ | .CONST 0x005b,0xffc8
03ec 005d ffc7 | ] | .CONST 0x005d,0xffc7
03ee 005f ffc6 | _ | .CONST 0x005f,0xffc6
03f0 0061 ffc5 | a | .CONST 0x0061,0xffc5
03f2 0090 ffc4 | | .CONST 0x0090,0xffc4
03f4 ; --------------------------------------------------------------------------------------
03f4 ; Debug3 Subtable 0x2
03f4 ; --------------------------------------------------------------------------------------
03f4 0008 004e | N| .DBG3TAB 0x0008,0x004e
03f6 00ab ffff | | .CONST 0x00ab,0xffff
03f8 00b5 fffe | | .CONST 0x00b5,0xfffe
03fa 00b8 fffd | | .CONST 0x00b8,0xfffd
03fc 00bd fffc | | .CONST 0x00bd,0xfffc
03fe 00c5 fffb | | .CONST 0x00c5,0xfffb
0400 00c7 fffa | | .CONST 0x00c7,0xfffa
0402 00c9 fff9 | | .CONST 0x00c9,0xfff9
0404 00ca fff8 | | .CONST 0x00ca,0xfff8
0406 00ca 0001 | | .CONST 0x00ca,0x0001
0408 00ca 0401 | | .CONST 0x00ca,0x0401
040a 00cb 0001 | | .CONST 0x00cb,0x0001
040c 00cc 0002 | | .CONST 0x00cc,0x0002
040e 00dd 0003 | | .CONST 0x00dd,0x0003
0410 00e0 0005 | | .CONST 0x00e0,0x0005
0412 00e3 0006 | | .CONST 0x00e3,0x0006
0414 00f0 0007 | | .CONST 0x00f0,0x0007
0416 00f3 0009 | | .CONST 0x00f3,0x0009
0418 00f6 000a | | .CONST 0x00f6,0x000a
041a 00fd 000b | | .CONST 0x00fd,0x000b
041c 00ff 000c | | .CONST 0x00ff,0x000c
041e 0107 000d | | .CONST 0x0107,0x000d
0420 0107 0801 | | .CONST 0x0107,0x0801
0422 0108 000d | | .CONST 0x0108,0x000d
0424 010b 0c01 | | .CONST 0x010b,0x0c01
0426 010c 0801 | | .CONST 0x010c,0x0801
0428 0113 000e | | .CONST 0x0113,0x000e
042a 0119 000f | | .CONST 0x0119,0x000f
042c 0119 1001 | | .CONST 0x0119,0x1001
042e 011a 000f | | .CONST 0x011a,0x000f
0430 011e 1401 | | .CONST 0x011e,0x1401
0432 011f 1001 | | .CONST 0x011f,0x1001
0434 0126 0010 | & | .CONST 0x0126,0x0010
0436 012c 0011 | , | .CONST 0x012c,0x0011
0438 0130 0012 | 0 | .CONST 0x0130,0x0012
043a 0134 0013 | 4 | .CONST 0x0134,0x0013
043c 0138 0014 | 8 | .CONST 0x0138,0x0014
043e 0140 0015 | @ | .CONST 0x0140,0x0015
0440 0145 0016 | E | .CONST 0x0145,0x0016
0442 014a 0017 | J | .CONST 0x014a,0x0017
0444 0152 0018 | R | .CONST 0x0152,0x0018
0446 0156 0019 | V | .CONST 0x0156,0x0019
0448 015e 001a | ^ | .CONST 0x015e,0x001a
044a 0163 001b | c | .CONST 0x0163,0x001b
044c 0168 001c | h | .CONST 0x0168,0x001c
044e 0170 001d | p | .CONST 0x0170,0x001d
0450 0174 001e | t | .CONST 0x0174,0x001e
0452 017c 001f | | | .CONST 0x017c,0x001f
0454 0181 0020 | | .CONST 0x0181,0x0020
0456 0186 0021 | !| .CONST 0x0186,0x0021
0458 018e 0022 | "| .CONST 0x018e,0x0022
045a 0190 0023 | #| .CONST 0x0190,0x0023
045c 0195 0024 | $| .CONST 0x0195,0x0024
045e 019a 0025 | %| .CONST 0x019a,0x0025
0460 019f 0026 | &| .CONST 0x019f,0x0026
0462 01a4 0027 | '| .CONST 0x01a4,0x0027
0464 01a6 0028 | (| .CONST 0x01a6,0x0028
0466 01a8 0029 | )| .CONST 0x01a8,0x0029
0468 01aa 002a | *| .CONST 0x01aa,0x002a
046a 01ac 002b | +| .CONST 0x01ac,0x002b
046c 01b1 002c | ,| .CONST 0x01b1,0x002c
046e 01b6 002d | -| .CONST 0x01b6,0x002d
0470 01bb 002e | .| .CONST 0x01bb,0x002e
0472 01c0 002f | /| .CONST 0x01c0,0x002f
0474 01c5 0030 | 0| .CONST 0x01c5,0x0030
0476 01c7 0031 | 1| .CONST 0x01c7,0x0031
0478 01cc 0032 | 2| .CONST 0x01cc,0x0032
047a 01d1 0033 | 3| .CONST 0x01d1,0x0033
047c 01d7 0034 | 4| .CONST 0x01d7,0x0034
047e 01d8 0035 | 5| .CONST 0x01d8,0x0035
0480 01dc 0036 | 6| .CONST 0x01dc,0x0036
0482 01e1 0037 | 7| .CONST 0x01e1,0x0037
0484 01ed 0038 | 8| .CONST 0x01ed,0x0038
0486 01f4 0039 | 9| .CONST 0x01f4,0x0039
0488 01f9 003a | :| .CONST 0x01f9,0x003a
048a 01ff 003b | ;| .CONST 0x01ff,0x003b
048c 0203 003c | <| .CONST 0x0203,0x003c
048e 0208 003d | =| .CONST 0x0208,0x003d
0490 0214 003e | >| .CONST 0x0214,0x003e
0492 0219 003f | ?| .CONST 0x0219,0x003f
0494 021e 0040 | @| .CONST 0x021e,0x0040
0496 0227 0041 | ' A| .CONST 0x0227,0x0041
0498 022a 0043 | * C| .CONST 0x022a,0x0043
049a 022d 0044 | - D| .CONST 0x022d,0x0044
049c 0233 0045 | 3 E| .CONST 0x0233,0x0045
049e 023a 0046 | : F| .CONST 0x023a,0x0046
04a0 023d 0047 | = G| .CONST 0x023d,0x0047
04a2 ; --------------------------------------------------------------------------------------
04a2 ; Debug3 Subtable 0x3
04a2 ; --------------------------------------------------------------------------------------
04a2 0000 0000 | | .DBG3TAB 0x0000,0x0000
04a4 ; --------------------------------------------------------------------------------------
04a4 ; Debug3 Subtable 0x4
04a4 ; --------------------------------------------------------------------------------------
04a4 0000 0001 | | .DBG3TAB 0x0000,0x0001
04a6 025b 0001 | [ | .CONST 0x025b,0x0001
04a8 ; --------------------------------------------------------------------------------------
04a8 ; Debug3 Subtable 0x5
04a8 ; --------------------------------------------------------------------------------------
04a8 0000 0001 | | .DBG3TAB 0x0000,0x0001
04aa 026b 0001 | k | .CONST 0x026b,0x0001
04ac ; --------------------------------------------------------------------------------------
04ac ; Debug3 Subtable 0x6
04ac ; --------------------------------------------------------------------------------------
04ac 0000 0001 | | .DBG3TAB 0x0000,0x0001
04ae 027b 0001 | { | .CONST 0x027b,0x0001
04b0 ; --------------------------------------------------------------------------------------
04b0 ; Debug3 Subtable 0x7
04b0 ; --------------------------------------------------------------------------------------
04b0 0000 0001 | | .DBG3TAB 0x0000,0x0001
04b2 028b 0001 | | .CONST 0x028b,0x0001
04b4 ; --------------------------------------------------------------------------------------
04b4 ; Debug3 Subtable 0x8
04b4 ; --------------------------------------------------------------------------------------
04b4 0002 0002 | | .DBG3TAB 0x0002,0x0002
04b6 029b ffff | | .CONST 0x029b,0xffff
04b8 029c fffe | | .CONST 0x029c,0xfffe
04ba 02a2 0001 | | .CONST 0x02a2,0x0001
04bc 02b1 0002 | | .CONST 0x02b1,0x0002
04be 0000 0000 | | .BLANK 0000[0x142]