|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 DFS Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 DFS Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2048 (0x800)
Types: SEG
Notes: 5811_R1K_CODE
Names: »4121.SEG«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »4121.SEG«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »4121.SEG«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »4121.SEG«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »4121.SEG«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »4121.SEG«
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5811 |X | .CONST 0x5811 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0198 | | .CONST 0x0198 ; 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 0101 | | .CONST 0x0101 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0047 | G | .CONST 0x0047 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0017 | | .CONST 0x0017 ; Number of locals
000b INIT_0008:
000b 00e4 | | Load_Encached Positive_Cache ; Debug Table 0x0 = .DEBUG 0x000b,0x0202,0x8000,0x0000,0x0035,0xd7e4,0x0000,0x0005
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 4800 |H | Short_Literal 0x0
000d 4801 |H | Short_Literal 0x1
000e 4801 |H | Short_Literal 0x1
000f 4803 |H | Short_Literal 0x3
0010 0319 | | Declare_Type Variant_Record,Incomplete,Visible
0011 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0x11,0xfffe
0013 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0x13,0xfffd
0015 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x15,0xfffc
0017 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x17,0xfffb
0019 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x19,0xfffa
001b 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x1b,0xfff9
001d 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x7 = 0x1d,0xfff8
001f 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x8 = 0x1f,0xfff7
0021 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x9 = 0x21,0xfff6
0023 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xa = 0x23,0xfff5
0025 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x0.0xb = 0x25,0xfff4
0026 4801 |H | Short_Literal 0x1
0027 6168 |ah | Indirect_Literal Discrete,0x190,{0x00000000, 0x7fffffff}
0028 e001 | | Load 0x0,0x1
0029 1b12 | | Execute Package,Field_Read,Field_Number 0x12
002a 034e | N | QQ_Declare_Type Array,Constrained,Bounds_With_Object
002b 029f 016b | k| Declare_Subprogram INIT_0168,For_Call
002d 4800 |H | Short_Literal 0x0
002e 4801 |H | Short_Literal 0x1
002f 4801 |H | Short_Literal 0x1
0030 e20d | | Load 0x1,0xd
0031 0307 | | Complete_Type Variant_Record,By_Defining
0032 00bf | | Action Accept_Activation
0033 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1 = .DEBUG 0x0033,0x021c,0x8000,0x0000,0x0035,0xdae4,0x0000,0x0003
; Debug Table 0x1.0x0 = 0x33,0xffff
0034 00c7 | | Action Elaborate_Subprogram
0035 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x1 = 0x35,0xfffe
0036 00c7 | | Action Elaborate_Subprogram
0037 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x2 = 0x37,0xfffd
0038 00c7 | | Action Elaborate_Subprogram
0039 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x3 = 0x39,0xfffc
003a 00c7 | | Action Elaborate_Subprogram
003b 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0x4 = 0x3b,0xfffb
003c 00c7 | | Action Elaborate_Subprogram
003d 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x1.0x5 = 0x3d,0xfffa
003e 00c7 | | Action Elaborate_Subprogram
003f 1d17 | | Execute_Immediate Reference_Lex_1,0x17 ; Debug Table 0x1.0x6 = 0x3f,0xfff9
0040 00c7 | | Action Elaborate_Subprogram
0041 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0x7 = 0x41,0xfff8
0042 00c7 | | Action Elaborate_Subprogram
0043 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x1.0x8 = 0x43,0xfff7
0044 00c7 | | Action Elaborate_Subprogram
0045 1d16 | | Execute_Immediate Reference_Lex_1,0x16 ; Debug Table 0x1.0x9 = 0x45,0xfff6
0046 00c7 | | Action Elaborate_Subprogram
0047 BODY_0008:
0047 00bc | | Action Signal_Activated
0048 00bb | | Action Signal_Completion
0049 0000 0000 | | .BLANK 0000[0x7]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0053 | S | .CONST 0x0053 ; Address of begin
0051 0004 | | .CONST 0x0004 ; Address of exception handler
0052 0001 | | .CONST 0x0001 ; Number of locals
0053 BODY_0050:
0053 INIT_0050:
0053 00da | | Load_Top At_Offset_2 ; Debug Table 0x2 = .DEBUG 0x0053,0x0232,0x0001,0x0000,0x0035,0xd7e4,0x0000,0x000e
; Debug Table 0x2.0x0 = 0x53,0x1
0054 00db | | Load_Top At_Offset_3
0055 820f | | Call 0x1,0xf
0056 8217 | | Call 0x1,0x17
0057 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005b | [ | .CONST 0x005b ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0001 | | .CONST 0x0001 ; Number of locals
005b BODY_0058:
005b INIT_0058:
005b 00da | | Load_Top At_Offset_2 ; Debug Table 0x3 = .DEBUG 0x005b,0x0236,0x0002,0x0000,0x0035,0xd7e4,0x0000,0x0016
; Debug Table 0x3.0x0 = 0x5b,0x1
005c 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
005d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
005e 0000 0000 | | .XXX[0x2]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0063 | c | .CONST 0x0063 ; Address of begin
0061 0004 | | .CONST 0x0004 ; Address of exception handler
0062 0001 | | .CONST 0x0001 ; Number of locals
0063 BODY_0060:
0063 INIT_0060:
0063 00da | | Load_Top At_Offset_2 ; Debug Table 0x4 = .DEBUG 0x0063,0x023a,0x0002,0x0000,0x0035,0xd7e4,0x0000,0x001f
; Debug Table 0x4.0x0 = 0x63,0x1
0064 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0065 01db | | Execute Vector,Length
0066 00db | | Load_Top At_Offset_3
0067 820f | | Call 0x1,0xf
0068 0272 | r | Execute Discrete,Minus
0069 00e3 | | Load_Encached Natural_Cache
006a 025b | [ | Execute Discrete,Check_In_Type
006b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
006c 0000 0000 | | .BLANK 0000[0x4]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0077 | w | .CONST 0x0077 ; Address of begin
0071 0004 | | .CONST 0x0004 ; Address of exception handler
0072 0002 | | .CONST 0x0002 ; Number of locals
0073 INIT_0070:
0073 00da | | Load_Top At_Offset_2 ; Debug Table 0x5 = .DEBUG 0x0073,0x023e,0x0001,0x0000,0x0035,0xd7e4,0x0000,0x0028
; Debug Table 0x5.0x0 = 0x73,0xffff
0074 01db | | Execute Vector,Length
0075 00e3 | | Load_Encached Natural_Cache
0076 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0077 BODY_0070:
0077 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0x1 = 0x77,0x1
0078 e5fe | | Load 0x2,-0x2
0079 8210 | | Call 0x1,0x10
007a 027d | } | Execute Discrete,Greater
007b 6803 |h | Jump_Zero 0x7f
007c e5fe | | Load 0x2,-0x2 ; Debug Table 0x5.0x2 = 0x7c,0x2
007d 8210 | | Call 0x1,0x10
007e 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
007f 00db | | Load_Top At_Offset_3 ; Debug Table 0x5.0x3 = 0x7f,0x3
0080 01dd | | Execute Vector,First
0081 e5ff | | Load 0x2,-0x1
0082 01dd | | Execute Vector,First
0083 00da | | Load_Top At_Offset_2
0084 0273 | s | Execute Discrete,Plus
0085 0aff | | Execute_Immediate Plus,-0x1
0086 0248 | H | Execute Discrete,Check_In_Integer
0087 e5ff | | Load 0x2,-0x1
0088 01cf | | Execute Vector,Slice_Read
0089 e5fe | | Load 0x2,-0x2
008a 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
008b 0a01 | | Execute_Immediate Plus,0x1
008c 0248 | H | Execute Discrete,Check_In_Integer
008d e5fe | | Load 0x2,-0x2
008e 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
008f 0a01 | | Execute_Immediate Plus,0x1
0090 0248 | H | Execute Discrete,Check_In_Integer
0091 00db | | Load_Top At_Offset_3
0092 0273 | s | Execute Discrete,Plus
0093 0aff | | Execute_Immediate Plus,-0x1
0094 0248 | H | Execute Discrete,Check_In_Integer
0095 e5fe | | Load 0x2,-0x2
0096 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0097 01ce | | Execute Vector,Slice_Write
0098 e5fe | | Load 0x2,-0x2 ; Debug Table 0x5.0x4 = 0x98,0x4
0099 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
009a 00d9 | | Load_Top At_Offset_1
009b 0273 | s | Execute Discrete,Plus
009c e5fe | | Load 0x2,-0x2
009d 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
009e 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0x5 = 0x9e,0x5
009f a5fd | | Store_Unchecked 0x2,-0x3
00a0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00a1 0000 0000 | | .BLANK 0000[0x7]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00b1 | | .CONST 0x00b1 ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0003 | | .CONST 0x0003 ; Number of locals
00ab INIT_00a8:
00ab 4801 |H | Short_Literal 0x1 ; Debug Table 0x6 = .DEBUG 0x00ab,0x024c,0x0001,0x0000,0x0035,0xd7e4,0x0000,0x003a
; Debug Table 0x6.0x0 = 0xab,0xffff
00ac 4801 |H | Short_Literal 0x1
00ad e001 | | Load 0x0,0x1
00ae 1b12 | | Execute Package,Field_Read,Field_Number 0x12
00af 0334 | 4 | Declare_Variable Array,With_Constraint
00b0 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x6.0x1 = 0xb0,0xfffe
00b1 BODY_00a8:
00b1 e5ff | | Load 0x2,-0x1 ; Debug Table 0x6.0x2 = 0xb1,0x1
00b2 4801 |H | Short_Literal 0x1
00b3 00db | | Load_Top At_Offset_3
00b4 01d6 | | Execute Vector,Field_Write
00b5 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x6.0x3 = 0xb5,0x2
00b6 e5fe | | Load 0x2,-0x2
00b7 00db | | Load_Top At_Offset_3
00b8 8211 | | Call 0x1,0x11
00b9 00d1 | | Pop_Control Pop_Count_1
00ba 0059 | Y | Store_Top Discrete,At_Offset_1
00bb 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x4 = 0xbb,0x3
00bc 0f01 | | Execute_Immediate Equal,0x1
00bd 6801 |h | Jump_Zero 0xbf
00be 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0x6.0x5 = 0xbe,0x4
00bf 48e0 |H | Short_Literal 0xe0 ; Debug Table 0x6.0x6 = 0xbf,0x5
00c0 0257 | W | Execute Discrete,Raise
00c1 0000 0000 | | .BLANK 0000[0x7]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00d5 | | .CONST 0x00d5 ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0003 | | .CONST 0x0003 ; Number of locals
00cb INIT_00c8:
00cb 00da | | Load_Top At_Offset_2 ; Debug Table 0x7 = .DEBUG 0x00cb,0x025c,0x0001,0x0000,0x0035,0xd7e4,0x0000,0x0048
; Debug Table 0x7.0x0 = 0xcb,0xffff
00cc 01db | | Execute Vector,Length
00cd 00e3 | | Load_Encached Natural_Cache
00ce 025b | [ | Execute Discrete,Check_In_Type
00cf e5fe | | Load 0x2,-0x2
00d0 8215 | | Call 0x1,0x15
00d1 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0x1 = 0xd1,0xfffe
00d2 01db | | Execute Vector,Length
00d3 00e3 | | Load_Encached Natural_Cache
00d4 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
00d5 BODY_00c8:
00d5 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0x2 = 0xd5,0x1
00d6 a5fd | | Store_Unchecked 0x2,-0x3
00d7 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x7.0x3 = 0xd7,0x2
00d8 e5ff | | Load 0x2,-0x1
00d9 01dd | | Execute Vector,First
00da e5ff | | Load 0x2,-0x1
00db 01dd | | Execute Vector,First
00dc 00db | | Load_Top At_Offset_3
00dd 0273 | s | Execute Discrete,Plus
00de 0aff | | Execute_Immediate Plus,-0x1
00df 0248 | H | Execute Discrete,Check_In_Integer
00e0 e5ff | | Load 0x2,-0x1
00e1 01ce | | Execute Vector,Slice_Write
00e2 e5fe | | Load 0x2,-0x2 ; Debug Table 0x7.0x4 = 0xe2,0x3
00e3 00d9 | | Load_Top At_Offset_1
00e4 8217 | | Call 0x1,0x17
00e5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00e6 0000 0000 | | .XXX[0x2]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00f1 | | .CONST 0x00f1 ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0003 | | .CONST 0x0003 ; Number of locals
00eb INIT_00e8:
00eb 4801 |H | Short_Literal 0x1 ; Debug Table 0x8 = .DEBUG 0x00eb,0x0268,0x0001,0x0000,0x0035,0xd7e4,0x0000,0x005a
; Debug Table 0x8.0x0 = 0xeb,0xffff
00ec 4801 |H | Short_Literal 0x1
00ed e001 | | Load 0x0,0x1
00ee 1b12 | | Execute Package,Field_Read,Field_Number 0x12
00ef 0334 | 4 | Declare_Variable Array,With_Constraint
00f0 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x8.0x1 = 0xf0,0xfffe
00f1 BODY_00e8:
00f1 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x8.0x2 = 0xf1,0x1
00f2 e5fe | | Load 0x2,-0x2
00f3 00db | | Load_Top At_Offset_3
00f4 8213 | | Call 0x1,0x13
00f5 00d2 | | Pop_Control Pop_Count_2
00f6 0059 | Y | Store_Top Discrete,At_Offset_1
00f7 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x8.0x3 = 0xf7,0x2
00f8 0f01 | | Execute_Immediate Equal,0x1
00f9 6805 |h | Jump_Zero 0xff
00fa 4801 |H | Short_Literal 0x1 ; Debug Table 0x8.0x4 = 0xfa,0x3
00fb 00da | | Load_Top At_Offset_2
00fc 01d7 | | Execute Vector,Field_Read
00fd a5ff | | Store_Unchecked 0x2,-0x1
00fe 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00ff 48e0 |H | Short_Literal 0xe0 ; Debug Table 0x8.0x5 = 0xff,0x4
0100 0257 | W | Execute Discrete,Raise
0101 0000 0000 | | .BLANK 0000[0x7]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010e | | .CONST 0x010e ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0002 | | .CONST 0x0002 ; Number of locals
010b INIT_0108:
010b 00db | | Load_Top At_Offset_3 ; Debug Table 0x9 = .DEBUG 0x010b,0x0276,0x0002,0x0000,0x0035,0xd7e4,0x0000,0x0068
; Debug Table 0x9.0x0 = 0x10b,0xffff
010c 00e3 | | Load_Encached Natural_Cache
010d 03f1 | | Declare_Variable Discrete,With_Value
010e BODY_0108:
010e 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x1 = 0x10e,0x1
010f e5ff | | Load 0x2,-0x1
0110 820f | | Call 0x1,0xf
0111 027d | } | Execute Discrete,Greater
0112 6803 |h | Jump_Zero 0x116
0113 00db | | Load_Top At_Offset_3 ; Debug Table 0x9.0x2 = 0x113,0x2
0114 820f | | Call 0x1,0xf
0115 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0116 4801 |H | Short_Literal 0x1 ; Debug Table 0x9.0x3 = 0x116,0x3
0117 00d9 | | Load_Top At_Offset_1
0118 0a01 | | Execute_Immediate Plus,0x1
0119 0aff | | Execute_Immediate Plus,-0x1
011a 0248 | H | Execute Discrete,Check_In_Integer
011b e5ff | | Load 0x2,-0x1
011c 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
011d 01cf | | Execute Vector,Slice_Read
011e 0335 | 5 | Declare_Variable Array,Duplicate
011f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0126 | & | .CONST 0x0126 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0002 | | .CONST 0x0002 ; Number of locals
0123 INIT_0120:
0123 4801 |H | Short_Literal 0x1 ; Debug Table 0xa = .DEBUG 0x0123,0x0280,0x0002,0x0000,0x0035,0xd7e4,0x0000,0x0077
; Debug Table 0xa.0x0 = 0x123,0xffff
0124 00db | | Load_Top At_Offset_3
0125 8215 | | Call 0x1,0x15
0126 BODY_0120:
0126 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xa.0x1 = 0x126,0x1
0127 01db | | Execute Vector,Length
0128 0f01 | | Execute_Immediate Equal,0x1
0129 6805 |h | Jump_Zero 0x12f
012a 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xa.0x2 = 0x12a,0x2
012b 01dd | | Execute Vector,First
012c 00d9 | | Load_Top At_Offset_1
012d 01d7 | | Execute Vector,Field_Read
012e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
012f 48e0 |H | Short_Literal 0xe0 ; Debug Table 0xa.0x3 = 0x12f,0x3
0130 0257 | W | Execute Discrete,Raise
0131 0000 0000 | | .BLANK 0000[0x7]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013e | > | .CONST 0x013e ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0002 | | .CONST 0x0002 ; Number of locals
013b INIT_0138:
013b 00da | | Load_Top At_Offset_2 ; Debug Table 0xb = .DEBUG 0x013b,0x028a,0x0001,0x0000,0x0035,0xd7e4,0x0000,0x0082
; Debug Table 0xb.0x0 = 0x13b,0xffff
013c 00e3 | | Load_Encached Natural_Cache
013d 03f1 | | Declare_Variable Discrete,With_Value
013e BODY_0138:
013e 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xb.0x1 = 0x13e,0x1
013f e5fe | | Load 0x2,-0x2
0140 820f | | Call 0x1,0xf
0141 027d | } | Execute Discrete,Greater
0142 6803 |h | Jump_Zero 0x146
0143 e5fe | | Load 0x2,-0x2 ; Debug Table 0xb.0x2 = 0x143,0x2
0144 820f | | Call 0x1,0xf
0145 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0146 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xb.0x3 = 0x146,0x3
0147 0a01 | | Execute_Immediate Plus,0x1
0148 0248 | H | Execute Discrete,Check_In_Integer
0149 e5fe | | Load 0x2,-0x2
014a 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
014b 0a01 | | Execute_Immediate Plus,0x1
014c 0aff | | Execute_Immediate Plus,-0x1
014d 0248 | H | Execute Discrete,Check_In_Integer
014e e5fe | | Load 0x2,-0x2
014f 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0150 01cf | | Execute Vector,Slice_Read
0151 4801 |H | Short_Literal 0x1
0152 e5fe | | Load 0x2,-0x2
0153 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0154 00db | | Load_Top At_Offset_3
0155 0272 | r | Execute Discrete,Minus
0156 0248 | H | Execute Discrete,Check_In_Integer
0157 0a01 | | Execute_Immediate Plus,0x1
0158 0aff | | Execute_Immediate Plus,-0x1
0159 0248 | H | Execute Discrete,Check_In_Integer
015a e5fe | | Load 0x2,-0x2
015b 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
015c 01ce | | Execute Vector,Slice_Write
015d e5fe | | Load 0x2,-0x2 ; Debug Table 0xb.0x4 = 0x15d,0x4
015e 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
015f 00d9 | | Load_Top At_Offset_1
0160 0272 | r | Execute Discrete,Minus
0161 e5fe | | Load 0x2,-0x2
0162 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0163 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0164 0000 0000 | | .BLANK 0000[0x4]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b | k | .CONST 0x016b ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0001 | | .CONST 0x0001 ; Number of locals
016b BODY_0168:
016b INIT_0168:
016b 4608 |F | Jump_Case 0x9 ; Debug Table 0xc = .DEBUG 0x016b,0x0296,0x0005,0x0000,0x0035,0xd7e4,0x0000,0x0090
016c 7808 |x | Jump 0x175 ; case 0x0
016d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
016e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
016f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0170 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
0171 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
0172 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6
0173 7805 |x | Jump 0x179 ; case 0x7
0174 780e |x | Jump 0x183 ; case 0x8
0175 4800 |H | Short_Literal 0x0
0176 00db | | Load_Top At_Offset_3
0177 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0178 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0179 00db | | Load_Top At_Offset_3
017a 4801 |H | Short_Literal 0x1
017b e5fe | | Load 0x2,-0x2
017c e001 | | Load 0x0,0x1
017d 1b12 | | Execute Package,Field_Read,Field_Number 0x12
017e 035b | [ | Declare_Type Array,Constrained
017f 4801 |H | Short_Literal 0x1
0180 e5ff | | Load 0x2,-0x1
0181 031b | | Declare_Type Variant_Record,Constrained
0182 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0183 00db | | Load_Top At_Offset_3
0184 00db | | Load_Top At_Offset_3
0185 02fc | | Declare_Variable Variant_Record,With_Constraint
0186 4801 |H | Short_Literal 0x1
0187 e5fe | | Load 0x2,-0x2
0188 e001 | | Load 0x0,0x1
0189 1b12 | | Execute Package,Field_Read,Field_Number 0x12
018a 0334 | 4 | Declare_Variable Array,With_Constraint
018b 2d03 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3
018c 016a | j | QQ_execute Variant_Record,XXX
018d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
018e 0000 0000 | | .XXX[0x2]
0190 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
0194 0000 0000 | | .BLANK 0000[0x4]
0198 ; --------------------------------------------------------------------------------------
0198 ; Debug Table
0198 ; --------------------------------------------------------------------------------------
0198 0003 000d | | .CONST 0x0003,0x000d
019a 000b 0202 | | .DEBUG 0x000b,0x0202,0x8000,0x0000,0x0035,0xd7e4,0x0000,0x0005
01a2 0033 021c | 3 | .DEBUG 0x0033,0x021c,0x8000,0x0000,0x0035,0xdae4,0x0000,0x0003
01aa 0053 0232 | S 2| .DEBUG 0x0053,0x0232,0x0001,0x0000,0x0035,0xd7e4,0x0000,0x000e
01b2 005b 0236 | [ 6| .DEBUG 0x005b,0x0236,0x0002,0x0000,0x0035,0xd7e4,0x0000,0x0016
01ba 0063 023a | c :| .DEBUG 0x0063,0x023a,0x0002,0x0000,0x0035,0xd7e4,0x0000,0x001f
01c2 0073 023e | s >| .DEBUG 0x0073,0x023e,0x0001,0x0000,0x0035,0xd7e4,0x0000,0x0028
01ca 00ab 024c | L| .DEBUG 0x00ab,0x024c,0x0001,0x0000,0x0035,0xd7e4,0x0000,0x003a
01d2 00cb 025c | \| .DEBUG 0x00cb,0x025c,0x0001,0x0000,0x0035,0xd7e4,0x0000,0x0048
01da 00eb 0268 | h| .DEBUG 0x00eb,0x0268,0x0001,0x0000,0x0035,0xd7e4,0x0000,0x005a
01e2 010b 0276 | v| .DEBUG 0x010b,0x0276,0x0002,0x0000,0x0035,0xd7e4,0x0000,0x0068
01ea 0123 0280 | # | .DEBUG 0x0123,0x0280,0x0002,0x0000,0x0035,0xd7e4,0x0000,0x0077
01f2 013b 028a | ; | .DEBUG 0x013b,0x028a,0x0001,0x0000,0x0035,0xd7e4,0x0000,0x0082
01fa 016b 0296 | k | .DEBUG 0x016b,0x0296,0x0005,0x0000,0x0035,0xd7e4,0x0000,0x0090
0202 ; --------------------------------------------------------------------------------------
0202 ; Debug3 Subtable 0x0
0202 ; --------------------------------------------------------------------------------------
0202 000c 0000 | | .DBG3TAB 0x000c,0x0000
0204 000b ffff | | .CONST 0x000b,0xffff
0206 0011 fffe | | .CONST 0x0011,0xfffe
0208 0013 fffd | | .CONST 0x0013,0xfffd
020a 0015 fffc | | .CONST 0x0015,0xfffc
020c 0017 fffb | | .CONST 0x0017,0xfffb
020e 0019 fffa | | .CONST 0x0019,0xfffa
0210 001b fff9 | | .CONST 0x001b,0xfff9
0212 001d fff8 | | .CONST 0x001d,0xfff8
0214 001f fff7 | | .CONST 0x001f,0xfff7
0216 0021 fff6 | ! | .CONST 0x0021,0xfff6
0218 0023 fff5 | # | .CONST 0x0023,0xfff5
021a 0025 fff4 | % | .CONST 0x0025,0xfff4
021c ; --------------------------------------------------------------------------------------
021c ; Debug3 Subtable 0x1
021c ; --------------------------------------------------------------------------------------
021c 000a 0000 | | .DBG3TAB 0x000a,0x0000
021e 0033 ffff | 3 | .CONST 0x0033,0xffff
0220 0035 fffe | 5 | .CONST 0x0035,0xfffe
0222 0037 fffd | 7 | .CONST 0x0037,0xfffd
0224 0039 fffc | 9 | .CONST 0x0039,0xfffc
0226 003b fffb | ; | .CONST 0x003b,0xfffb
0228 003d fffa | = | .CONST 0x003d,0xfffa
022a 003f fff9 | ? | .CONST 0x003f,0xfff9
022c 0041 fff8 | A | .CONST 0x0041,0xfff8
022e 0043 fff7 | C | .CONST 0x0043,0xfff7
0230 0045 fff6 | E | .CONST 0x0045,0xfff6
0232 ; --------------------------------------------------------------------------------------
0232 ; Debug3 Subtable 0x2
0232 ; --------------------------------------------------------------------------------------
0232 0000 0001 | | .DBG3TAB 0x0000,0x0001
0234 0053 0001 | S | .CONST 0x0053,0x0001
0236 ; --------------------------------------------------------------------------------------
0236 ; Debug3 Subtable 0x3
0236 ; --------------------------------------------------------------------------------------
0236 0000 0001 | | .DBG3TAB 0x0000,0x0001
0238 005b 0001 | [ | .CONST 0x005b,0x0001
023a ; --------------------------------------------------------------------------------------
023a ; Debug3 Subtable 0x4
023a ; --------------------------------------------------------------------------------------
023a 0000 0001 | | .DBG3TAB 0x0000,0x0001
023c 0063 0001 | c | .CONST 0x0063,0x0001
023e ; --------------------------------------------------------------------------------------
023e ; Debug3 Subtable 0x5
023e ; --------------------------------------------------------------------------------------
023e 0001 0005 | | .DBG3TAB 0x0001,0x0005
0240 0073 ffff | s | .CONST 0x0073,0xffff
0242 0077 0001 | w | .CONST 0x0077,0x0001
0244 007c 0002 | | | .CONST 0x007c,0x0002
0246 007f 0003 | | .CONST 0x007f,0x0003
0248 0098 0004 | | .CONST 0x0098,0x0004
024a 009e 0005 | | .CONST 0x009e,0x0005
024c ; --------------------------------------------------------------------------------------
024c ; Debug3 Subtable 0x6
024c ; --------------------------------------------------------------------------------------
024c 0002 0005 | | .DBG3TAB 0x0002,0x0005
024e 00ab ffff | | .CONST 0x00ab,0xffff
0250 00b0 fffe | | .CONST 0x00b0,0xfffe
0252 00b1 0001 | | .CONST 0x00b1,0x0001
0254 00b5 0002 | | .CONST 0x00b5,0x0002
0256 00bb 0003 | | .CONST 0x00bb,0x0003
0258 00be 0004 | | .CONST 0x00be,0x0004
025a 00bf 0005 | | .CONST 0x00bf,0x0005
025c ; --------------------------------------------------------------------------------------
025c ; Debug3 Subtable 0x7
025c ; --------------------------------------------------------------------------------------
025c 0002 0003 | | .DBG3TAB 0x0002,0x0003
025e 00cb ffff | | .CONST 0x00cb,0xffff
0260 00d1 fffe | | .CONST 0x00d1,0xfffe
0262 00d5 0001 | | .CONST 0x00d5,0x0001
0264 00d7 0002 | | .CONST 0x00d7,0x0002
0266 00e2 0003 | | .CONST 0x00e2,0x0003
0268 ; --------------------------------------------------------------------------------------
0268 ; Debug3 Subtable 0x8
0268 ; --------------------------------------------------------------------------------------
0268 0002 0004 | | .DBG3TAB 0x0002,0x0004
026a 00eb ffff | | .CONST 0x00eb,0xffff
026c 00f0 fffe | | .CONST 0x00f0,0xfffe
026e 00f1 0001 | | .CONST 0x00f1,0x0001
0270 00f7 0002 | | .CONST 0x00f7,0x0002
0272 00fa 0003 | | .CONST 0x00fa,0x0003
0274 00ff 0004 | | .CONST 0x00ff,0x0004
0276 ; --------------------------------------------------------------------------------------
0276 ; Debug3 Subtable 0x9
0276 ; --------------------------------------------------------------------------------------
0276 0001 0003 | | .DBG3TAB 0x0001,0x0003
0278 010b ffff | | .CONST 0x010b,0xffff
027a 010e 0001 | | .CONST 0x010e,0x0001
027c 0113 0002 | | .CONST 0x0113,0x0002
027e 0116 0003 | | .CONST 0x0116,0x0003
0280 ; --------------------------------------------------------------------------------------
0280 ; Debug3 Subtable 0xa
0280 ; --------------------------------------------------------------------------------------
0280 0001 0003 | | .DBG3TAB 0x0001,0x0003
0282 0123 ffff | # | .CONST 0x0123,0xffff
0284 0126 0001 | & | .CONST 0x0126,0x0001
0286 012a 0002 | * | .CONST 0x012a,0x0002
0288 012f 0003 | / | .CONST 0x012f,0x0003
028a ; --------------------------------------------------------------------------------------
028a ; Debug3 Subtable 0xb
028a ; --------------------------------------------------------------------------------------
028a 0001 0004 | | .DBG3TAB 0x0001,0x0004
028c 013b ffff | ; | .CONST 0x013b,0xffff
028e 013e 0001 | > | .CONST 0x013e,0x0001
0290 0143 0002 | C | .CONST 0x0143,0x0002
0292 0146 0003 | F | .CONST 0x0146,0x0003
0294 015d 0004 | ] | .CONST 0x015d,0x0004
0296 ; --------------------------------------------------------------------------------------
0296 ; Debug3 Subtable 0xc
0296 ; --------------------------------------------------------------------------------------
0296 0000 0000 | | .DBG3TAB 0x0000,0x0000
0298 0000 0000 | | .BLANK 0000[0x168]