|
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 - metrics - download
Length: 2048 (0x800)
Notes: 00_class, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0ea8df
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5813 |X | .CONST 0x5813 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 01d0 | | .CONST 0x01d0 ; 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 0039 | 9 | .CONST 0x0039 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0014 | | .CONST 0x0014 ; Number of locals
000b INIT_0008:
000b 00bf | | Action Accept_Activation ; Debug Table 0x0 = .DEBUG 0x000b,0x020a,0x8000,0x0000,0x0059,0xf1b5,0x0000,0x0003
000c 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x000c,0x020c,0x8000,0x0000,0x0059,0xf505,0x0000,0x001d
; Debug Table 0x1.0x0 = 0xc,0xffff
000d 0007 | | Action Break_Optional ; Debug Table 0x1.0x1 = 0xd,0xfffe
000e 029d 0043 | C| Declare_Subprogram For_Outer_Call,INIT_0040 ; Debug Table 0x1.0x2 = 0xe,0xfffd
0010 029d 008b | | Declare_Subprogram For_Outer_Call,INIT_0088 ; Debug Table 0x1.0x3 = 0x10,0xfffc
0012 029d 00b3 | | Declare_Subprogram For_Outer_Call,INIT_00b0 ; Debug Table 0x1.0x4 = 0x12,0xfffb
0014 61b7 |a | Indirect_Literal Discrete,0x1cc,{0x00000000, 0x0059f505} ; Debug Table 0x1.0x5 = 0x14,0xfffa
0015 49a7 |I | Short_Literal 0x1a7
0016 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0017 480a |H | Short_Literal 0xa
0018 e001 | | Load 0x0,0x1
0019 1811 | | Execute Package,Field_Execute,Field_Number 0x11
001a e001 | | Load 0x0,0x1
001b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
001c 0387 | | Declare_Variable Package
001d 00d8 | | Load_Top At_Offset_0
001e 020f | | Execute Module,Activate
001f 029d 00e3 | | Declare_Subprogram For_Outer_Call,INIT_00e0 ; Debug Table 0x1.0x6 = 0x1f,0xfff9
0021 61aa |a | Indirect_Literal Discrete,0x1cc,{0x00000000, 0x0059f505} ; Debug Table 0x1.0x7 = 0x21,0xfff8
0022 4a96 |J | Short_Literal 0x296
0023 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0024 4809 |H | Short_Literal 0x9
0025 e001 | | Load 0x0,0x1
0026 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0027 e001 | | Load 0x0,0x1
0028 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0029 0387 | | Declare_Variable Package
002a 00d8 | | Load_Top At_Offset_0
002b 020f | | Execute Module,Activate
002c 029d 015b | [| Declare_Subprogram For_Outer_Call,INIT_0158 ; Debug Table 0x1.0x8 = 0x2c,0xfff7
002e 619d |a | Indirect_Literal Discrete,0x1cc,{0x00000000, 0x0059f505} ; Debug Table 0x1.0x9 = 0x2e,0xfff6
002f 4b85 |K | Short_Literal 0x385
0030 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0031 480b |H | Short_Literal 0xb
0032 e001 | | Load 0x0,0x1
0033 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0034 e001 | | Load 0x0,0x1
0035 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0036 0387 | | Declare_Variable Package
0037 00d8 | | Load_Top At_Offset_0
0038 020f | | Execute Module,Activate
0039 BODY_0008:
0039 00bc | | Action Signal_Activated
003a 00bb | | Action Signal_Completion
003b 0000 0000 | | .BLANK 0000[0x5]
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 0043 | C | .CONST 0x0043 ; Address of begin
0041 0004 | | .CONST 0x0004 ; Address of exception handler
0042 0001 | | .CONST 0x0001 ; Number of locals
0043 BODY_0040:
0043 INIT_0040:
0043 00db | | Load_Top At_Offset_3 ; Debug Table 0x2 = .DEBUG 0x0043,0x0222,0x0001,0x0000,0x0059,0xf505,0x0000,0x0042
; Debug Table 0x2.0x0 = 0x43,0x1
0044 e002 | | Load 0x0,0x2
0045 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0046 7027 |p' | Jump_Nonzero 0x6e
0047 e003 | | Load 0x0,0x3 ; Debug Table 0x2.0x1 = 0x47,0x2
0048 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0049 e5fc | | Load 0x2,-0x4
004a 0120 | | Execute Any,Is_Value
004b 6803 |h | Jump_Zero 0x4f
004c e002 | | Load 0x0,0x2
004d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
004e 7801 |x | Jump 0x50
004f e5fc | | Load 0x2,-0x4
0050 e5fe | | Load 0x2,-0x2
0051 e003 | | Load 0x0,0x3
0052 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0053 c5fc | | Store 0x2,-0x4
0054 c5fb | | Store 0x2,-0x5
0055 e5fc | | Load 0x2,-0x4 ; Debug Table 0x2.0x2 = 0x55,0x3
0056 e002 | | Load 0x0,0x2
0057 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0058 e004 | | Load 0x0,0x4
0059 1b0e | | Execute Package,Field_Read,Field_Number 0xe
005a 027f | | Execute Discrete,Equal
005b 7012 |p | Jump_Nonzero 0x6e
005c 00da | | Load_Top At_Offset_2
005d e002 | | Load 0x0,0x2
005e 1816 | | Execute Package,Field_Execute,Field_Number 0x16
005f 700e |p | Jump_Nonzero 0x6e
0060 e003 | | Load 0x0,0x3 ; Debug Table 0x2.0x3 = 0x60,0x4
0061 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0062 e5fc | | Load 0x2,-0x4
0063 0120 | | Execute Any,Is_Value
0064 6803 |h | Jump_Zero 0x68
0065 e002 | | Load 0x0,0x2
0066 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0067 7801 |x | Jump 0x69
0068 e5fc | | Load 0x2,-0x4
0069 e5ff | | Load 0x2,-0x1
006a e003 | | Load 0x0,0x3
006b 1812 | | Execute Package,Field_Execute,Field_Number 0x12
006c c5fc | | Store 0x2,-0x4
006d c5fb | | Store 0x2,-0x5
006e e5fc | | Load 0x2,-0x4 ; Debug Table 0x2.0x4 = 0x6e,0x5
006f e002 | | Load 0x0,0x2
0070 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0071 e004 | | Load 0x0,0x4
0072 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0073 027f | | Execute Discrete,Equal
0074 7010 |p | Jump_Nonzero 0x85
0075 e005 | | Load 0x0,0x5 ; Debug Table 0x2.0x5 = 0x75,0x6
0076 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0077 e5fc | | Load 0x2,-0x4
0078 0120 | | Execute Any,Is_Value
0079 6803 |h | Jump_Zero 0x7d
007a e005 | | Load 0x0,0x5
007b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
007c 7801 |x | Jump 0x7e
007d e5fc | | Load 0x2,-0x4
007e 4801 |H | Short_Literal 0x1
007f e5fd | | Load 0x2,-0x3
0080 e005 | | Load 0x0,0x5
0081 1b22 | " | Execute Package,Field_Read,Field_Number 0x22
0082 180e | | Execute Package,Field_Execute,Field_Number 0xe
0083 c5fc | | Store 0x2,-0x4
0084 c5fb | | Store 0x2,-0x5
0085 4504 |E | Exit_Subprogram 0x4
0086 0000 0000 | | .XXX[0x2]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008b | | .CONST 0x008b ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0001 | | .CONST 0x0001 ; Number of locals
008b BODY_0088:
008b INIT_0088:
008b 00db | | Load_Top At_Offset_3 ; Debug Table 0x3 = .DEBUG 0x008b,0x0230,0x0001,0x0000,0x0059,0xf505,0x0000,0x00b7
; Debug Table 0x3.0x0 = 0x8b,0x1
008c e006 | | Load 0x0,0x6
008d 1812 | | Execute Package,Field_Execute,Field_Number 0x12
008e e007 | | Load 0x0,0x7
008f 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0090 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0091 027f | | Execute Discrete,Equal
0092 6806 |h | Jump_Zero 0x99
0093 00db | | Load_Top At_Offset_3 ; Debug Table 0x3.0x1 = 0x93,0x2
0094 e007 | | Load 0x0,0x7
0095 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0096 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0097 a5fc | | Store_Unchecked 0x2,-0x4
0098 4504 |E | Exit_Subprogram 0x4
0099 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0x2 = 0x99,0x3
009a e006 | | Load 0x0,0x6
009b 1812 | | Execute Package,Field_Execute,Field_Number 0x12
009c e007 | | Load 0x0,0x7
009d 1b13 | | Execute Package,Field_Read,Field_Number 0x13
009e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
009f 027f | | Execute Discrete,Equal
00a0 6806 |h | Jump_Zero 0xa7
00a1 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0x3 = 0xa1,0x4
00a2 e007 | | Load 0x0,0x7
00a3 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00a4 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
00a5 a5fc | | Store_Unchecked 0x2,-0x4
00a6 4504 |E | Exit_Subprogram 0x4
00a7 e5fd | | Load 0x2,-0x3 ; Debug Table 0x3.0x4 = 0xa7,0x5
00a8 e008 | | Load 0x0,0x8
00a9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00aa 025b | [ | Execute Discrete,Check_In_Type
00ab e008 | | Load 0x0,0x8
00ac 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00ad a5fc | | Store_Unchecked 0x2,-0x4
00ae 4504 |E | Exit_Subprogram 0x4
00af 0000 | | .XXX[0x1]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b7 | | .CONST 0x00b7 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0003 | | .CONST 0x0003 ; Number of locals
00b3 INIT_00b0:
00b3 e009 | | Load 0x0,0x9 ; Debug Table 0x4 = .DEBUG 0x00b3,0x023c,0x0001,0x0000,0x0059,0xf505,0x0000,0x0124
; Debug Table 0x4.0x0 = 0xb3,0xffff
00b4 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00b5 e00a | | Load 0x0,0xa ; Debug Table 0x4.0x1 = 0xb5,0xfffe
00b6 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00b7 BODY_00b0:
00b7 00eb | | Load_Encached Diana_Cache ; Debug Table 0x4.0x2 = 0xb7,0x1
00b8 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00b9 a5fb | | Store_Unchecked 0x2,-0x5
00ba e002 | | Load 0x0,0x2 ; Debug Table 0x4.0x3 = 0xba,0x2
00bb 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00bc c5fa | | Store 0x2,-0x6
00bd e002 | | Load 0x0,0x2 ; Debug Table 0x4.0x4 = 0xbd,0x3
00be 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00bf e5f9 | | Load 0x2,-0x7
00c0 016d | m | Execute Variant_Record,Structure_Write
00c1 480e |H | Short_Literal 0xe ; Debug Table 0x4.0x5 = 0xc1,0x4
00c2 a5f8 | | Store_Unchecked 0x2,-0x8
00c3 e009 | | Load 0x0,0x9 ; Debug Table 0x4.0x6 = 0xc3,0x5
00c4 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00c5 e5fc | | Load 0x2,-0x4
00c6 e5fd | | Load 0x2,-0x3
00c7 e5fe | | Load 0x2,-0x2
00c8 820e | | Call 0x1,0xe
00c9 005a | Z | Store_Top Discrete,At_Offset_2
00ca e005 | | Load 0x0,0x5 ; Debug Table 0x4.0x7 = 0xca,0x6
00cb 1b19 | | Execute Package,Field_Read,Field_Number 0x19
00cc e5fa | | Load 0x2,-0x6
00cd 0120 | | Execute Any,Is_Value
00ce 6803 |h | Jump_Zero 0xd2
00cf e005 | | Load 0x0,0x5
00d0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00d1 7801 |x | Jump 0xd3
00d2 e5fa | | Load 0x2,-0x6
00d3 4801 |H | Short_Literal 0x1
00d4 e402 | | Load 0x2,0x2
00d5 e005 | | Load 0x0,0x5
00d6 1b22 | " | Execute Package,Field_Read,Field_Number 0x22
00d7 180e | | Execute Package,Field_Execute,Field_Number 0xe
00d8 c5fa | | Store 0x2,-0x6
00d9 0059 | Y | Store_Top Discrete,At_Offset_1
00da 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x8 = 0xda,0x7
00db e003 | | Load 0x0,0x3
00dc 180e | | Execute Package,Field_Execute,Field_Number 0xe
00dd a5f8 | | Store_Unchecked 0x2,-0x8
00de 4505 |E | Exit_Subprogram 0x5
00df 0000 | | .XXX[0x1]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00ef | | .CONST 0x00ef ; Address of begin
00e1 013f | ? | .CONST 0x013f ; Address of exception handler
00e2 0005 | | .CONST 0x0005 ; Number of locals
00e3 INIT_00e0:
00e3 e002 | | Load 0x0,0x2 ; Debug Table 0x5 = .DEBUG 0x00e3,0x0250,0x0001,0x0000,0x0059,0xf505,0x0000,0x01bb
; Debug Table 0x5.0x0 = 0xe3,0xffff
00e4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00e5 02c7 | | Declare_Variable Any
00e6 e002 | | Load 0x0,0x2
00e7 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00e8 c402 | | Store 0x2,0x2
00e9 e005 | | Load 0x0,0x5 ; Debug Table 0x5.0x1 = 0xe9,0xfffe
00ea 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00eb e009 | | Load 0x0,0x9 ; Debug Table 0x5.0x2 = 0xeb,0xfffd
00ec 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00ed e00a | | Load 0x0,0xa ; Debug Table 0x5.0x3 = 0xed,0xfffc
00ee 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00ef BODY_00e0:
00ef 00eb | | Load_Encached Diana_Cache ; Debug Table 0x5.0x4 = 0xef,0x1
00f0 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00f1 a5fb | | Store_Unchecked 0x2,-0x5
00f2 e002 | | Load 0x0,0x2 ; Debug Table 0x5.0x5 = 0xf2,0x2
00f3 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00f4 c5fa | | Store 0x2,-0x6
00f5 e002 | | Load 0x0,0x2 ; Debug Table 0x5.0x6 = 0xf5,0x3
00f6 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00f7 e5f9 | | Load 0x2,-0x7
00f8 016d | m | Execute Variant_Record,Structure_Write
00f9 480e |H | Short_Literal 0xe ; Debug Table 0x5.0x7 = 0xf9,0x4
00fa a5f8 | | Store_Unchecked 0x2,-0x8
00fb e009 | | Load 0x0,0x9 ; Debug Table 0x5.0x8 = 0xfb,0x5
00fc 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00fd e5fc | | Load 0x2,-0x4
00fe e5fd | | Load 0x2,-0x3
00ff e5fe | | Load 0x2,-0x2
0100 820e | | Call 0x1,0xe
0101 005a | Z | Store_Top Discrete,At_Offset_2
0102 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0x9 = 0x102,0x6
0103 e402 | | Load 0x2,0x2
0104 00db | | Load_Top At_Offset_3
0105 e5fd | | Load 0x2,-0x3
0106 e5fe | | Load 0x2,-0x2
0107 820d | | Call 0x1,0xd
0108 c402 | | Store 0x2,0x2
0109 0059 | Y | Store_Top Discrete,At_Offset_1
010a 4800 |H | Short_Literal 0x0 ; Debug Table 0x5.0xa = 0x10a,0x7
010b 00d9 | | Load_Top At_Offset_1
010c e00a | | Load 0x0,0xa
010d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
010e e005 | | Load 0x0,0x5 ; Debug Table 0x5.0xb = 0x10e,0x8
010f 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0110 e005 | | Load 0x0,0x5
0111 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0112 e5ff | | Load 0x2,-0x1
0113 00f0 | | Load_Encached Segment_Cache
0114 4801 |H | Short_Literal 0x1
0115 e402 | | Load 0x2,0x2
0116 e005 | | Load 0x0,0x5
0117 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0118 180f | | Execute Package,Field_Execute,Field_Number 0xf
0119 c403 | | Store 0x2,0x3
011a 0059 | Y | Store_Top Discrete,At_Offset_1
011b 4800 |H | Short_Literal 0x0 ; Debug Table 0x5.0xc = 0x11b,0x9
011c 00d9 | | Load_Top At_Offset_1
011d e00a | | Load 0x0,0xa
011e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
011f e005 | | Load 0x0,0x5 ; Debug Table 0x5.0xd = 0x11f,0xa
0120 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0121 e5fa | | Load 0x2,-0x6
0122 0120 | | Execute Any,Is_Value
0123 6803 |h | Jump_Zero 0x127
0124 e005 | | Load 0x0,0x5
0125 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0126 7801 |x | Jump 0x128
0127 e5fa | | Load 0x2,-0x6
0128 4801 |H | Short_Literal 0x1
0129 e404 | | Load 0x2,0x4
012a e403 | | Load 0x2,0x3
012b e005 | | Load 0x0,0x5
012c 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
012d 180e | | Execute Package,Field_Execute,Field_Number 0xe
012e c5fa | | Store 0x2,-0x6
012f 0059 | Y | Store_Top Discrete,At_Offset_1
0130 4800 |H | Short_Literal 0x0 ; Debug Table 0x5.0xe = 0x130,0xb
0131 00d9 | | Load_Top At_Offset_1
0132 e00a | | Load 0x0,0xa
0133 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0134 e005 | | Load 0x0,0x5 ; Debug Table 0x5.0xf = 0x134,0xc
0135 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0136 00db | | Load_Top At_Offset_3
0137 e005 | | Load 0x0,0x5
0138 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0139 1810 | | Execute Package,Field_Execute,Field_Number 0x10
013a c403 | | Store 0x2,0x3
013b 0059 | Y | Store_Top Discrete,At_Offset_1
013c 4800 |H | Short_Literal 0x0 ; Debug Table 0x5.0x10 = 0x13c,0xd
013d a5f8 | | Store_Unchecked 0x2,-0x8
013e 4505 |E | Exit_Subprogram 0x5
013f TRAP_00e0:
013f e00a | | Load 0x0,0xa
0140 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0141 010f | | Execute Exception,Equal
0142 680d |h | Jump_Zero 0x150
0143 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x5.0x11 = 0x143,0xe
0144 e003 | | Load 0x0,0x3
0145 180e | | Execute Package,Field_Execute,Field_Number 0xe
0146 a5f8 | | Store_Unchecked 0x2,-0x8
0147 e005 | | Load 0x0,0x5 ; Debug Table 0x5.0x12 = 0x147,0xf
0148 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0149 e403 | | Load 0x2,0x3
014a e005 | | Load 0x0,0x5
014b 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
014c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
014d c403 | | Store 0x2,0x3
014e 005a | Z | Store_Top Discrete,At_Offset_2
014f 4505 |E | Exit_Subprogram 0x5
0150 0100 | | Execute Exception,Raise
0151 0000 0000 | | .BLANK 0000[0x7]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 0167 | g | .CONST 0x0167 ; Address of begin
0159 01b7 | | .CONST 0x01b7 ; Address of exception handler
015a 0005 | | .CONST 0x0005 ; Number of locals
015b INIT_0158:
015b e002 | | Load 0x0,0x2 ; Debug Table 0x6 = .DEBUG 0x015b,0x0278,0x0001,0x0000,0x0059,0xf505,0x0000,0x02aa
; Debug Table 0x6.0x0 = 0x15b,0xffff
015c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
015d 02c7 | | Declare_Variable Any
015e e002 | | Load 0x0,0x2
015f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0160 c402 | | Store 0x2,0x2
0161 e005 | | Load 0x0,0x5 ; Debug Table 0x6.0x1 = 0x161,0xfffe
0162 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0163 e009 | | Load 0x0,0x9 ; Debug Table 0x6.0x2 = 0x163,0xfffd
0164 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0165 e00a | | Load 0x0,0xa ; Debug Table 0x6.0x3 = 0x165,0xfffc
0166 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0167 BODY_0158:
0167 00eb | | Load_Encached Diana_Cache ; Debug Table 0x6.0x4 = 0x167,0x1
0168 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0169 a5fb | | Store_Unchecked 0x2,-0x5
016a e002 | | Load 0x0,0x2 ; Debug Table 0x6.0x5 = 0x16a,0x2
016b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
016c c5fa | | Store 0x2,-0x6
016d e002 | | Load 0x0,0x2 ; Debug Table 0x6.0x6 = 0x16d,0x3
016e 1815 | | Execute Package,Field_Execute,Field_Number 0x15
016f e5f9 | | Load 0x2,-0x7
0170 016d | m | Execute Variant_Record,Structure_Write
0171 480e |H | Short_Literal 0xe ; Debug Table 0x6.0x7 = 0x171,0x4
0172 a5f8 | | Store_Unchecked 0x2,-0x8
0173 e009 | | Load 0x0,0x9 ; Debug Table 0x6.0x8 = 0x173,0x5
0174 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0175 e5fc | | Load 0x2,-0x4
0176 e5fd | | Load 0x2,-0x3
0177 e5fe | | Load 0x2,-0x2
0178 820e | | Call 0x1,0xe
0179 005a | Z | Store_Top Discrete,At_Offset_2
017a 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x9 = 0x17a,0x6
017b e402 | | Load 0x2,0x2
017c 00db | | Load_Top At_Offset_3
017d e5fd | | Load 0x2,-0x3
017e e5fe | | Load 0x2,-0x2
017f 820d | | Call 0x1,0xd
0180 c402 | | Store 0x2,0x2
0181 0059 | Y | Store_Top Discrete,At_Offset_1
0182 4800 |H | Short_Literal 0x0 ; Debug Table 0x6.0xa = 0x182,0x7
0183 00d9 | | Load_Top At_Offset_1
0184 e00a | | Load 0x0,0xa
0185 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0186 e005 | | Load 0x0,0x5 ; Debug Table 0x6.0xb = 0x186,0x8
0187 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0188 e005 | | Load 0x0,0x5
0189 1b13 | | Execute Package,Field_Read,Field_Number 0x13
018a e5ff | | Load 0x2,-0x1
018b 00f0 | | Load_Encached Segment_Cache
018c 4801 |H | Short_Literal 0x1
018d e402 | | Load 0x2,0x2
018e e005 | | Load 0x0,0x5
018f 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0190 180f | | Execute Package,Field_Execute,Field_Number 0xf
0191 c403 | | Store 0x2,0x3
0192 0059 | Y | Store_Top Discrete,At_Offset_1
0193 4800 |H | Short_Literal 0x0 ; Debug Table 0x6.0xc = 0x193,0x9
0194 00d9 | | Load_Top At_Offset_1
0195 e00a | | Load 0x0,0xa
0196 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0197 e005 | | Load 0x0,0x5 ; Debug Table 0x6.0xd = 0x197,0xa
0198 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0199 e5fa | | Load 0x2,-0x6
019a 0120 | | Execute Any,Is_Value
019b 6803 |h | Jump_Zero 0x19f
019c e005 | | Load 0x0,0x5
019d 1b10 | | Execute Package,Field_Read,Field_Number 0x10
019e 7801 |x | Jump 0x1a0
019f e5fa | | Load 0x2,-0x6
01a0 4801 |H | Short_Literal 0x1
01a1 e404 | | Load 0x2,0x4
01a2 e403 | | Load 0x2,0x3
01a3 e005 | | Load 0x0,0x5
01a4 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a
01a5 180e | | Execute Package,Field_Execute,Field_Number 0xe
01a6 c5fa | | Store 0x2,-0x6
01a7 0059 | Y | Store_Top Discrete,At_Offset_1
01a8 4800 |H | Short_Literal 0x0 ; Debug Table 0x6.0xe = 0x1a8,0xb
01a9 00d9 | | Load_Top At_Offset_1
01aa e00a | | Load 0x0,0xa
01ab 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01ac e005 | | Load 0x0,0x5 ; Debug Table 0x6.0xf = 0x1ac,0xc
01ad 1b19 | | Execute Package,Field_Read,Field_Number 0x19
01ae 00db | | Load_Top At_Offset_3
01af e005 | | Load 0x0,0x5
01b0 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
01b1 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01b2 c403 | | Store 0x2,0x3
01b3 0059 | Y | Store_Top Discrete,At_Offset_1
01b4 4800 |H | Short_Literal 0x0 ; Debug Table 0x6.0x10 = 0x1b4,0xd
01b5 a5f8 | | Store_Unchecked 0x2,-0x8
01b6 4505 |E | Exit_Subprogram 0x5
01b7 TRAP_0158:
01b7 e00a | | Load 0x0,0xa
01b8 1b16 | | Execute Package,Field_Read,Field_Number 0x16
01b9 010f | | Execute Exception,Equal
01ba 680d |h | Jump_Zero 0x1c8
01bb 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x6.0x11 = 0x1bb,0xe
01bc e003 | | Load 0x0,0x3
01bd 180e | | Execute Package,Field_Execute,Field_Number 0xe
01be a5f8 | | Store_Unchecked 0x2,-0x8
01bf e005 | | Load 0x0,0x5 ; Debug Table 0x6.0x12 = 0x1bf,0xf
01c0 1b19 | | Execute Package,Field_Read,Field_Number 0x19
01c1 e403 | | Load 0x2,0x3
01c2 e005 | | Load 0x0,0x5
01c3 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
01c4 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01c5 c403 | | Store 0x2,0x3
01c6 005a | Z | Store_Top Discrete,At_Offset_2
01c7 4505 |E | Exit_Subprogram 0x5
01c8 0100 | | Execute Exception,Raise
01c9 0000 0000 | | .XXX[0x3]
01cb 0000 | |
01cc 0000 0000 | | .LITERAL {0x00000000, 0x0059f505}
01d0 ; --------------------------------------------------------------------------------------
01d0 ; Debug Table
01d0 ; --------------------------------------------------------------------------------------
01d0 0003 0007 | | .CONST 0x0003,0x0007
01d2 000b 020a | | .DEBUG 0x000b,0x020a,0x8000,0x0000,0x0059,0xf1b5,0x0000,0x0003
01da 000c 020c | | .DEBUG 0x000c,0x020c,0x8000,0x0000,0x0059,0xf505,0x0000,0x001d
01e2 0043 0222 | C "| .DEBUG 0x0043,0x0222,0x0001,0x0000,0x0059,0xf505,0x0000,0x0042
01ea 008b 0230 | 0| .DEBUG 0x008b,0x0230,0x0001,0x0000,0x0059,0xf505,0x0000,0x00b7
01f2 00b3 023c | <| .DEBUG 0x00b3,0x023c,0x0001,0x0000,0x0059,0xf505,0x0000,0x0124
01fa 00e3 0250 | P| .DEBUG 0x00e3,0x0250,0x0001,0x0000,0x0059,0xf505,0x0000,0x01bb
0202 015b 0278 | [ x| .DEBUG 0x015b,0x0278,0x0001,0x0000,0x0059,0xf505,0x0000,0x02aa
020a ; --------------------------------------------------------------------------------------
020a ; Debug3 Subtable 0x0
020a ; --------------------------------------------------------------------------------------
020a 0000 0000 | | .DBG3TAB 0x0000,0x0000
020c ; --------------------------------------------------------------------------------------
020c ; Debug3 Subtable 0x1
020c ; --------------------------------------------------------------------------------------
020c 000a 0000 | | .DBG3TAB 0x000a,0x0000
020e 000c ffff | | .CONST 0x000c,0xffff
0210 000d fffe | | .CONST 0x000d,0xfffe
0212 000e fffd | | .CONST 0x000e,0xfffd
0214 0010 fffc | | .CONST 0x0010,0xfffc
0216 0012 fffb | | .CONST 0x0012,0xfffb
0218 0014 fffa | | .CONST 0x0014,0xfffa
021a 001f fff9 | | .CONST 0x001f,0xfff9
021c 0021 fff8 | ! | .CONST 0x0021,0xfff8
021e 002c fff7 | , | .CONST 0x002c,0xfff7
0220 002e fff6 | . | .CONST 0x002e,0xfff6
0222 ; --------------------------------------------------------------------------------------
0222 ; Debug3 Subtable 0x2
0222 ; --------------------------------------------------------------------------------------
0222 0000 0006 | | .DBG3TAB 0x0000,0x0006
0224 0043 0001 | C | .CONST 0x0043,0x0001
0226 0047 0002 | G | .CONST 0x0047,0x0002
0228 0055 0003 | U | .CONST 0x0055,0x0003
022a 0060 0004 | ` | .CONST 0x0060,0x0004
022c 006e 0005 | n | .CONST 0x006e,0x0005
022e 0075 0006 | u | .CONST 0x0075,0x0006
0230 ; --------------------------------------------------------------------------------------
0230 ; Debug3 Subtable 0x3
0230 ; --------------------------------------------------------------------------------------
0230 0000 0005 | | .DBG3TAB 0x0000,0x0005
0232 008b 0001 | | .CONST 0x008b,0x0001
0234 0093 0002 | | .CONST 0x0093,0x0002
0236 0099 0003 | | .CONST 0x0099,0x0003
0238 00a1 0004 | | .CONST 0x00a1,0x0004
023a 00a7 0005 | | .CONST 0x00a7,0x0005
023c ; --------------------------------------------------------------------------------------
023c ; Debug3 Subtable 0x4
023c ; --------------------------------------------------------------------------------------
023c 0002 0007 | | .DBG3TAB 0x0002,0x0007
023e 00b3 ffff | | .CONST 0x00b3,0xffff
0240 00b5 fffe | | .CONST 0x00b5,0xfffe
0242 00b7 0001 | | .CONST 0x00b7,0x0001
0244 00ba 0002 | | .CONST 0x00ba,0x0002
0246 00bd 0003 | | .CONST 0x00bd,0x0003
0248 00c1 0004 | | .CONST 0x00c1,0x0004
024a 00c3 0005 | | .CONST 0x00c3,0x0005
024c 00ca 0006 | | .CONST 0x00ca,0x0006
024e 00da 0007 | | .CONST 0x00da,0x0007
0250 ; --------------------------------------------------------------------------------------
0250 ; Debug3 Subtable 0x5
0250 ; --------------------------------------------------------------------------------------
0250 0004 000f | | .DBG3TAB 0x0004,0x000f
0252 00e3 ffff | | .CONST 0x00e3,0xffff
0254 00e9 fffe | | .CONST 0x00e9,0xfffe
0256 00eb fffd | | .CONST 0x00eb,0xfffd
0258 00ed fffc | | .CONST 0x00ed,0xfffc
025a 00ef 0001 | | .CONST 0x00ef,0x0001
025c 00f2 0002 | | .CONST 0x00f2,0x0002
025e 00f5 0003 | | .CONST 0x00f5,0x0003
0260 00f9 0004 | | .CONST 0x00f9,0x0004
0262 00fb 0005 | | .CONST 0x00fb,0x0005
0264 0102 0006 | | .CONST 0x0102,0x0006
0266 010a 0007 | | .CONST 0x010a,0x0007
0268 010e 0008 | | .CONST 0x010e,0x0008
026a 011b 0009 | | .CONST 0x011b,0x0009
026c 011f 000a | | .CONST 0x011f,0x000a
026e 0130 000b | 0 | .CONST 0x0130,0x000b
0270 0134 000c | 4 | .CONST 0x0134,0x000c
0272 013c 000d | < | .CONST 0x013c,0x000d
0274 0143 000e | C | .CONST 0x0143,0x000e
0276 0147 000f | G | .CONST 0x0147,0x000f
0278 ; --------------------------------------------------------------------------------------
0278 ; Debug3 Subtable 0x6
0278 ; --------------------------------------------------------------------------------------
0278 0004 000f | | .DBG3TAB 0x0004,0x000f
027a 015b ffff | [ | .CONST 0x015b,0xffff
027c 0161 fffe | a | .CONST 0x0161,0xfffe
027e 0163 fffd | c | .CONST 0x0163,0xfffd
0280 0165 fffc | e | .CONST 0x0165,0xfffc
0282 0167 0001 | g | .CONST 0x0167,0x0001
0284 016a 0002 | j | .CONST 0x016a,0x0002
0286 016d 0003 | m | .CONST 0x016d,0x0003
0288 0171 0004 | q | .CONST 0x0171,0x0004
028a 0173 0005 | s | .CONST 0x0173,0x0005
028c 017a 0006 | z | .CONST 0x017a,0x0006
028e 0182 0007 | | .CONST 0x0182,0x0007
0290 0186 0008 | | .CONST 0x0186,0x0008
0292 0193 0009 | | .CONST 0x0193,0x0009
0294 0197 000a | | .CONST 0x0197,0x000a
0296 01a8 000b | | .CONST 0x01a8,0x000b
0298 01ac 000c | | .CONST 0x01ac,0x000c
029a 01b4 000d | | .CONST 0x01b4,0x000d
029c 01bb 000e | | .CONST 0x01bb,0x000e
029e 01bf 000f | | .CONST 0x01bf,0x000f
02a0 0000 0000 | | .BLANK 0000[0x160]