|
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 - metrics - download
Length: 2048 (0x800)
Types: SEG
Notes: 5811_R1K_CODE
Names: »138259.SEG«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─⟦this⟧ »138259.SEG«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─⟦this⟧ »138259.SEG«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─⟦this⟧ »138259.SEG«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─⟦this⟧ »138259.SEG«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─⟦this⟧ »138259.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 01e0 | | .CONST 0x01e0 ; 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 0070 | p | .CONST 0x0070 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 002c | , | .CONST 0x002c ; Number of locals
000b INIT_0008:
000b 4818 |H | Short_Literal 0x18 ; Debug Table 0x0 = .DEBUG 0x000b,0x0252,0xc000,0x0000,0x0036,0x09b4,0x0000,0x0005
; Debug Table 0x0.0x0 = 0xb,0xffff
; Debug Table 0x0.0x1 = 0xb,0xfffe
; Debug Table 0x0.0x2 = 0xb,0xfffd
000c 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected
000d 4818 |H | Short_Literal 0x18 ; Debug Table 0x0.0x3 = 0xd,0xfffc
000e 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected
000f 61cc |a | Indirect_Literal Discrete,0x1dc,{0x00000000, 0x3609b401} ; Debug Table 0x0.0x4 = 0xf,0xfffb
0010 0129 | ) | Execute Any,Make_Visible
0011 029a 007b | {| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0078 ; Debug Table 0x0.0x5 = 0x11,0xfffa
0013 00c4 | | Action Make_Default ; Debug Table 0x0.0x6 = 0x13,0xfff9
0014 029a 008b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0088 ; Debug Table 0x0.0x7 = 0x14,0xfff8
0016 029a 00db | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00d8 ; Debug Table 0x0.0x8 = 0x16,0xfff7
0018 029a 0113 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0110 ; Debug Table 0x0.0x9 = 0x18,0xfff6
001a 029a 012b | +| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0128 ; Debug Table 0x0.0xa = 0x1a,0xfff5
001c 029a 0143 | C| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0140 ; Debug Table 0x0.0xb = 0x1c,0xfff4
001e 029a 0163 | c| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0160 ; Debug Table 0x0.0xc = 0x1e,0xfff3
0020 4803 |H | Short_Literal 0x3 ; Debug Table 0x0.0xd = 0x20,0xfff2
0021 032b | + | Declare_Type Record,Incomplete,Visible
0022 029a 0173 | s| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0170 ; Debug Table 0x0.0xe = 0x22,0xfff1
0024 029a 018b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0188 ; Debug Table 0x0.0xf = 0x24,0xfff0
0026 029a 01ab | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01a8 ; Debug Table 0x0.0x10 = 0x26,0xffef
0028 029a 01b3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01b0 ; Debug Table 0x0.0x11 = 0x28,0xffee
002a e20f | | Load 0x1,0xf ; Debug Table 0x0.0x12 = 0x2a,0xffed
002b 02a0 | | Declare_Subprogram Null_Subprogram
002c e213 | | Load 0x1,0x13
002d 03c7 | | Complete_Type Access,By_Defining
002e e213 | | Load 0x1,0x13 ; Debug Table 0x0.0x13 = 0x2e,0xffec
002f 0129 | ) | Execute Any,Make_Visible
0030 c217 | | Store 0x1,0x17
0031 4801 |H | Short_Literal 0x1 ; Debug Table 0x0.0x14 = 0x31,0xffeb
0032 034b | K | Declare_Type Array,Incomplete,Bounds_With_Object
0033 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x15 = 0x33,0xffea
0034 02a0 | | Declare_Subprogram Null_Subprogram
0035 e214 | | Load 0x1,0x14
0036 03c7 | | Complete_Type Access,By_Defining
0037 4802 |H | Short_Literal 0x2 ; Debug Table 0x0.0x16 = 0x37,0xffe9
0038 032a | * | Declare_Type Record,Incomplete
0039 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x17 = 0x39,0xffe8
003a 02a0 | | Declare_Subprogram Null_Subprogram
003b 4818 |H | Short_Literal 0x18
003c 03d3 | | Declare_Type Access,Defined,Accesses_Protected
003d 00e2 | | Load_Encached Integer_Cache ; Debug Table 0x0.0x18 = 0x3d,0xffe7
003e e214 | | Load 0x1,0x14 ; Debug Table 0x0.0x19 = 0x3e,0xffe6
003f 00d9 | | Load_Top At_Offset_1
0040 00db | | Load_Top At_Offset_3
0041 02a0 | | Declare_Subprogram Null_Subprogram
0042 e21e | | Load 0x1,0x1e
0043 0326 | & | Complete_Type Record,By_Defining
0044 00bf | | Action Accept_Activation
0045 e213 | | Load 0x1,0x13 ; Debug Table 0x1 = .DEBUG 0x0045,0x0288,0xc000,0x0000,0x0036,0x0ae4,0x0000,0x0007
; Debug Table 0x1.0x0 = 0x45,0xffff
0046 00da | | Load_Top At_Offset_2
0047 02a0 | | Declare_Subprogram Null_Subprogram
0048 e224 | $ | Load 0x1,0x24
0049 0326 | & | Complete_Type Record,By_Defining
004a 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0x1 = 0x4a,0xfffe
004b 0266 | f | Execute Discrete,Bounds
004c 00db | | Load_Top At_Offset_3
004d 02a0 | | Declare_Subprogram Null_Subprogram
004e e223 | # | Load 0x1,0x23
004f 0343 | C | Complete_Type Array,By_Defining
0050 1d16 | | Execute_Immediate Reference_Lex_1,0x16 ; Debug Table 0x1.0x2 = 0x50,0xfffd
; Debug Table 0x1.0x3 = 0x50,0xfffc
; Debug Table 0x1.0x4 = 0x50,0xfffb
0051 00c7 | | Action Elaborate_Subprogram
0052 1d18 | | Execute_Immediate Reference_Lex_1,0x18 ; Debug Table 0x1.0x5 = 0x52,0xfffa
0053 00c7 | | Action Elaborate_Subprogram
0054 1d19 | | Execute_Immediate Reference_Lex_1,0x19 ; Debug Table 0x1.0x6 = 0x54,0xfff9
0055 00c7 | | Action Elaborate_Subprogram
0056 1d1a | | Execute_Immediate Reference_Lex_1,0x1a ; Debug Table 0x1.0x7 = 0x56,0xfff8
0057 00c7 | | Action Elaborate_Subprogram
0058 1d1c | | Execute_Immediate Reference_Lex_1,0x1c ; Debug Table 0x1.0x8 = 0x58,0xfff7
0059 00c7 | | Action Elaborate_Subprogram
005a e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x9 = 0x5a,0xfff6
005b 190d | | Execute Package,Field_Reference,Field_Number 0xd
005c 00c6 | | Action Check_Subprogram_Elaborated
005d e20f | | Load 0x1,0xf
005e e213 | | Load 0x1,0x13
005f 6178 |ax | Indirect_Literal Discrete,0x1d8,{0x00000000, 0x00360ae4}
0060 495b |I[ | Short_Literal 0x15b
0061 4800 |H | Short_Literal 0x0
0062 1d1d | | Execute_Immediate Reference_Lex_1,0x1d ; Debug Table 0x1.0xa = 0x62,0xfff5
0063 00c7 | | Action Elaborate_Subprogram
0064 1d1b | | Execute_Immediate Reference_Lex_1,0x1b ; Debug Table 0x1.0xb = 0x64,0xfff4
0065 00c7 | | Action Elaborate_Subprogram
0066 029d 01bb | | Declare_Subprogram For_Outer_Call,INIT_01b8 ; Debug Table 0x1.0xc = 0x66,0xfff3
0068 1d1f | | Execute_Immediate Reference_Lex_1,0x1f ; Debug Table 0x1.0xd = 0x68,0xfff2
0069 00c7 | | Action Elaborate_Subprogram
006a 1d20 | | Execute_Immediate Reference_Lex_1,0x20 ; Debug Table 0x1.0xe = 0x6a,0xfff1
006b 00c7 | | Action Elaborate_Subprogram
006c 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 ; Debug Table 0x1.0xf = 0x6c,0xfff0
006d 00c7 | | Action Elaborate_Subprogram
006e 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 ; Debug Table 0x1.0x10 = 0x6e,0xffef
006f 00c7 | | Action Elaborate_Subprogram
0070 BODY_0008:
0070 00bc | | Action Signal_Activated
0071 00bb | | Action Signal_Completion
0072 0000 0000 | | .BLANK 0000[0x6]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b | { | .CONST 0x007b ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0001 | | .CONST 0x0001 ; Number of locals
007b BODY_0078:
007b INIT_0078:
007b 4800 |H | Short_Literal 0x0 ; Debug Table 0x2 = .DEBUG 0x007b,0x02ac,0x1002,0x0000,0x0036,0x09b4,0x0000,0x003f
; Debug Table 0x2.0x0 = 0x7b,0x1
007c 00db | | Load_Top At_Offset_3
007d 0aff | | Execute_Immediate Plus,-0x1
007e 0248 | H | Execute Discrete,Check_In_Integer
007f e214 | | Load 0x1,0x14
0080 03ba | | Declare_Variable Access,By_Allocation,With_Constraint
0081 4401 |D | Exit_Subprogram With_Result,0x1
0082 0000 0000 | | .BLANK 0000[0x6]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 009f | | .CONST 0x009f ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0003 | | .CONST 0x0003 ; Number of locals
008b INIT_0088:
008b 00db | | Load_Top At_Offset_3 ; Debug Table 0x3 = .DEBUG 0x008b,0x02b0,0x1002,0x0000,0x0036,0x09b4,0x0000,0x004d
; Debug Table 0x3.0x0 = 0x8b,0xffff
008c 0227 | ' | Execute Access,All_Reference
008d 01db | | Execute Vector,Length
008e 00e4 | | Load_Encached Positive_Cache
008f 025b | [ | Execute Discrete,Check_In_Type
0090 00db | | Load_Top At_Offset_3 ; Debug Table 0x3.0x1 = 0x90,0x401
0091 e20f | | Load 0x1,0xf
0092 0119 | | Execute Any,Check_In_Formal_Type
0093 8211 | | Call 0x1,0x11
0094 00d9 | | Load_Top At_Offset_1
0095 026e | n | Execute Discrete,Modulo
0096 0274 | t | Execute Discrete,Absolute_Value
0097 00d0 | | Action Swap_Control
0098 00d1 | | Pop_Control Pop_Count_1
0099 e5fe | | Load 0x2,-0x2 ; Debug Table 0x3.0x2 = 0x99,0xffff
009a 0227 | ' | Execute Access,All_Reference
009b 01d5 | | Execute Vector,Field_Reference
009c e225 | % | Load 0x1,0x25 ; Debug Table 0x3.0x3 = 0x9c,0xfffe
009d 00d9 | | Load_Top At_Offset_1
009e 0039 | 9 | Store_Top Access,At_Offset_1
009f BODY_0088:
009f e210 | | Load 0x1,0x10 ; Debug Table 0x3.0x4 = 0x9f,0x1
00a0 e20f | | Load 0x1,0xf
00a1 0119 | | Execute Any,Check_In_Formal_Type
00a2 e5ff | | Load 0x2,-0x1
00a3 e20f | | Load 0x1,0xf
00a4 0119 | | Execute Any,Check_In_Formal_Type
00a5 8212 | | Call 0x1,0x12
00a6 6815 |h | Jump_Zero 0xbc
00a7 e213 | | Load 0x1,0x13 ; Debug Table 0x3.0x5 = 0xa7,0x2
00a8 4402 |D | Exit_Subprogram With_Result,0x2
00a9 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x6 = 0xa9,0x4
00aa 0227 | ' | Execute Access,All_Reference
00ab 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00ac 0229 | ) | Execute Access,All_Read
00ad e20f | | Load 0x1,0xf
00ae 0119 | | Execute Any,Check_In_Formal_Type
00af e5ff | | Load 0x2,-0x1
00b0 e20f | | Load 0x1,0xf
00b1 0119 | | Execute Any,Check_In_Formal_Type
00b2 8212 | | Call 0x1,0x12
00b3 6804 |h | Jump_Zero 0xb8
00b4 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x7 = 0xb4,0x5
00b5 0227 | ' | Execute Access,All_Reference
00b6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00b7 4402 |D | Exit_Subprogram With_Result,0x2
00b8 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x8 = 0xb8,0x6
00b9 0227 | ' | Execute Access,All_Reference
00ba 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00bb 0039 | 9 | Store_Top Access,At_Offset_1
00bc 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x9 = 0xbc,0x3
00bd 77eb |w | Jump_Nonzero 0xa9
00be e225 | % | Load 0x1,0x25 ; Debug Table 0x3.0xa = 0xbe,0x7
00bf 03bc | | Declare_Variable Access,By_Allocation
00c0 0039 | 9 | Store_Top Access,At_Offset_1
00c1 e5ff | | Load 0x2,-0x1 ; Debug Table 0x3.0xb = 0xc1,0x8
00c2 e20f | | Load 0x1,0xf
00c3 0119 | | Execute Any,Check_In_Formal_Type
00c4 e213 | | Load 0x1,0x13
00c5 03b6 | | Declare_Variable Access,By_Allocation,With_Value
00c6 00d9 | | Load_Top At_Offset_1
00c7 0227 | ' | Execute Access,All_Reference
00c8 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00c9 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0xc = 0xc9,0x9
00ca 00d9 | | Load_Top At_Offset_1
00cb 0227 | ' | Execute Access,All_Reference
00cc 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00cd 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0xd = 0xcd,0xa
00ce a402 | | Store_Unchecked 0x2,0x2
00cf 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0xe = 0xcf,0xb
00d0 0227 | ' | Execute Access,All_Reference
00d1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00d2 4402 |D | Exit_Subprogram With_Result,0x2
00d3 0000 0000 | | .BLANK 0000[0x5]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00ee | | .CONST 0x00ee ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0002 | | .CONST 0x0002 ; Number of locals
00db INIT_00d8:
00db e225 | % | Load 0x1,0x25 ; Debug Table 0x4 = .DEBUG 0x00db,0x02d0,0x1002,0x0000,0x0036,0x09b4,0x0000,0x005a
; Debug Table 0x4.0x0 = 0xdb,0xffff
00dc e5fe | | Load 0x2,-0x2
00dd 0227 | ' | Execute Access,All_Reference
00de 01db | | Execute Vector,Length
00df 00e4 | | Load_Encached Positive_Cache
00e0 025b | [ | Execute Discrete,Check_In_Type
00e1 e5ff | | Load 0x2,-0x1 ; Debug Table 0x4.0x1 = 0xe1,0x401
00e2 e20f | | Load 0x1,0xf
00e3 0119 | | Execute Any,Check_In_Formal_Type
00e4 8211 | | Call 0x1,0x11
00e5 00d9 | | Load_Top At_Offset_1
00e6 026e | n | Execute Discrete,Modulo
00e7 0274 | t | Execute Discrete,Absolute_Value
00e8 00d0 | | Action Swap_Control
00e9 00d1 | | Pop_Control Pop_Count_1
00ea e5fe | | Load 0x2,-0x2 ; Debug Table 0x4.0x2 = 0xea,0xffff
00eb 0227 | ' | Execute Access,All_Reference
00ec 01d7 | | Execute Vector,Field_Read
00ed 0039 | 9 | Store_Top Access,At_Offset_1
00ee BODY_00d8:
00ee e210 | | Load 0x1,0x10 ; Debug Table 0x4.0x3 = 0xee,0x1
00ef e20f | | Load 0x1,0xf
00f0 0119 | | Execute Any,Check_In_Formal_Type
00f1 e5ff | | Load 0x2,-0x1
00f2 e20f | | Load 0x1,0xf
00f3 0119 | | Execute Any,Check_In_Formal_Type
00f4 8212 | | Call 0x1,0x12
00f5 6815 |h | Jump_Zero 0x10b
00f6 e213 | | Load 0x1,0x13 ; Debug Table 0x4.0x4 = 0xf6,0x2
00f7 4402 |D | Exit_Subprogram With_Result,0x2
00f8 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x5 = 0xf8,0x4
00f9 0227 | ' | Execute Access,All_Reference
00fa 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00fb 0229 | ) | Execute Access,All_Read
00fc e20f | | Load 0x1,0xf
00fd 0119 | | Execute Any,Check_In_Formal_Type
00fe e5ff | | Load 0x2,-0x1
00ff e20f | | Load 0x1,0xf
0100 0119 | | Execute Any,Check_In_Formal_Type
0101 8212 | | Call 0x1,0x12
0102 6804 |h | Jump_Zero 0x107
0103 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x6 = 0x103,0x5
0104 0227 | ' | Execute Access,All_Reference
0105 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0106 4402 |D | Exit_Subprogram With_Result,0x2
0107 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x7 = 0x107,0x6
0108 0227 | ' | Execute Access,All_Reference
0109 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
010a 0039 | 9 | Store_Top Access,At_Offset_1
010b 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x8 = 0x10b,0x3
010c 77eb |w | Jump_Nonzero 0xf8
010d e213 | | Load 0x1,0x13 ; Debug Table 0x4.0x9 = 0x10d,0x7
010e 4402 |D | Exit_Subprogram With_Result,0x2
010f 0000 | | .XXX[0x1]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113 | | .CONST 0x0113 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0001 | | .CONST 0x0001 ; Number of locals
0113 BODY_0110:
0113 INIT_0110:
0113 e210 | | Load 0x1,0x10 ; Debug Table 0x5 = .DEBUG 0x0113,0x02e6,0x1002,0x0000,0x0036,0x09b4,0x0000,0x0067
; Debug Table 0x5.0x0 = 0x113,0x1
0114 e20f | | Load 0x1,0xf
0115 0119 | | Execute Any,Check_In_Formal_Type
0116 00db | | Load_Top At_Offset_3
0117 e20f | | Load 0x1,0xf
0118 0119 | | Execute Any,Check_In_Formal_Type
0119 8212 | | Call 0x1,0x12
011a 6802 |h | Jump_Zero 0x11d
011b e213 | | Load 0x1,0x13 ; Debug Table 0x5.0x1 = 0x11b,0x2
011c 4402 |D | Exit_Subprogram With_Result,0x2
011d 00da | | Load_Top At_Offset_2 ; Debug Table 0x5.0x2 = 0x11d,0x3
011e e20f | | Load 0x1,0xf
011f 0119 | | Execute Any,Check_In_Formal_Type
0120 e213 | | Load 0x1,0x13
0121 03b6 | | Declare_Variable Access,By_Allocation,With_Value
0122 4402 |D | Exit_Subprogram With_Result,0x2
0123 0000 0000 | | .BLANK 0000[0x5]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b | + | .CONST 0x012b ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0001 | | .CONST 0x0001 ; Number of locals
012b BODY_0128:
012b INIT_0128:
012b 00da | | Load_Top At_Offset_2 ; Debug Table 0x6 = .DEBUG 0x012b,0x02ee,0x1002,0x0000,0x0036,0x09b4,0x0000,0x0074
; Debug Table 0x6.0x0 = 0x12b,0x1
012c 7009 |p | Jump_Nonzero 0x136
012d e210 | | Load 0x1,0x10 ; Debug Table 0x6.0x1 = 0x12d,0x2
012e 00d8 | | Load_Top At_Offset_0
012f 0120 | | Execute Any,Is_Value
0130 7002 |p | Jump_Nonzero 0x133
0131 00d8 | | Load_Top At_Offset_0
0132 011e | | Execute Any,Convert
0133 e20f | | Load 0x1,0xf
0134 0119 | | Execute Any,Check_In_Formal_Type
0135 4401 |D | Exit_Subprogram With_Result,0x1
0136 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0x2 = 0x136,0x3
0137 0229 | ) | Execute Access,All_Read
0138 00d8 | | Load_Top At_Offset_0
0139 0120 | | Execute Any,Is_Value
013a 7002 |p | Jump_Nonzero 0x13d
013b 00d8 | | Load_Top At_Offset_0
013c 011e | | Execute Any,Convert
013d e20f | | Load 0x1,0xf
013e 0119 | | Execute Any,Check_In_Formal_Type
013f 4401 |D | Exit_Subprogram With_Result,0x1
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143 | C | .CONST 0x0143 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0001 | | .CONST 0x0001 ; Number of locals
0143 BODY_0140:
0143 INIT_0140:
0143 00da | | Load_Top At_Offset_2 ; Debug Table 0x7 = .DEBUG 0x0143,0x02f6,0x1002,0x0000,0x0036,0x09b4,0x0000,0x007d
; Debug Table 0x7.0x0 = 0x143,0x1
0144 e5fe | | Load 0x2,-0x2
0145 022f | / | Execute Access,Equal
0146 7013 |p | Jump_Nonzero 0x15a
0147 00da | | Load_Top At_Offset_2
0148 6803 |h | Jump_Zero 0x14c
0149 00db | | Load_Top At_Offset_3
014a 022c | , | Execute Access,Not_Null
014b 7801 |x | Jump 0x14d
014c 4800 |H | Short_Literal 0x0
014d 680a |h | Jump_Zero 0x158
014e 00db | | Load_Top At_Offset_3
014f 0229 | ) | Execute Access,All_Read
0150 e20f | | Load 0x1,0xf
0151 0119 | | Execute Any,Check_In_Formal_Type
0152 00db | | Load_Top At_Offset_3
0153 0229 | ) | Execute Access,All_Read
0154 e20f | | Load 0x1,0xf
0155 0119 | | Execute Any,Check_In_Formal_Type
0156 8212 | | Call 0x1,0x12
0157 4402 |D | Exit_Subprogram With_Result,0x2
0158 4800 |H | Short_Literal 0x0
0159 4402 |D | Exit_Subprogram With_Result,0x2
015a 4801 |H | Short_Literal 0x1
015b 4402 |D | Exit_Subprogram With_Result,0x2
015c 0000 0000 | | .BLANK 0000[0x4]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163 | c | .CONST 0x0163 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0001 | | .CONST 0x0001 ; Number of locals
0163 BODY_0160:
0163 INIT_0160:
0163 00da | | Load_Top At_Offset_2 ; Debug Table 0x8 = .DEBUG 0x0163,0x02fa,0x1002,0x0000,0x0036,0x09b4,0x0000,0x0087
; Debug Table 0x8.0x0 = 0x163,0x1
0164 e227 | ' | Load 0x1,0x27
0165 e228 | ( | Load 0x1,0x28
0166 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
0167 e001 | | Load 0x0,0x1
0168 180d | | Execute Package,Field_Execute,Field_Number 0xd
0169 4401 |D | Exit_Subprogram With_Result,0x1
016a 0000 0000 | | .BLANK 0000[0x6]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0175 | u | .CONST 0x0175 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0002 | | .CONST 0x0002 ; Number of locals
0173 INIT_0170:
0173 e21e | | Load 0x1,0x1e ; Debug Table 0x9 = .DEBUG 0x0173,0x02fe,0x1001,0x0000,0x0036,0x09b4,0x0000,0x0094
; Debug Table 0x9.0x0 = 0x173,0xffff
0174 0322 | " | Declare_Variable Record
0175 BODY_0170:
0175 00db | | Load_Top At_Offset_3 ; Debug Table 0x9.0x1 = 0x175,0x1
0176 00d9 | | Load_Top At_Offset_1
0177 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0178 4800 |H | Short_Literal 0x0 ; Debug Table 0x9.0x2 = 0x178,0x2
0179 00d9 | | Load_Top At_Offset_1
017a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
017b 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x3 = 0x17b,0x3
017c 822c | , | Call 0x1,0x2c
017d 00d1 | | Pop_Control Pop_Count_1
017e 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x4 = 0x17e,0x4
017f e5fe | | Load 0x2,-0x2
0180 017d | } | Execute Record,Structure_Write
0181 4502 |E | Exit_Subprogram 0x2
0182 0000 0000 | | .BLANK 0000[0x6]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b | | .CONST 0x018b ; Address of begin
0189 0004 | | .CONST 0x0004 ; Address of exception handler
018a 0001 | | .CONST 0x0001 ; Number of locals
018b BODY_0188:
018b INIT_0188:
018b 00da | | Load_Top At_Offset_2 ; Debug Table 0xa = .DEBUG 0x018b,0x030a,0x1001,0x0000,0x0036,0x09b4,0x0000,0x00a0
; Debug Table 0xa.0x0 = 0x18b,0x1
018c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
018d 0227 | ' | Execute Access,All_Reference
018e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
018f 00db | | Load_Top At_Offset_3
0190 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0191 00da | | Load_Top At_Offset_2 ; Debug Table 0xa.0x1 = 0x191,0x2
0192 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0193 7010 |p | Jump_Nonzero 0x1a4
0194 00da | | Load_Top At_Offset_2
0195 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0196 00db | | Load_Top At_Offset_3
0197 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0198 0227 | ' | Execute Access,All_Reference
0199 01dc | | Execute Vector,Last
019a 027e | ~ | Execute Discrete,Not_Equal
019b 6808 |h | Jump_Zero 0x1a4
019c 00da | | Load_Top At_Offset_2 ; Debug Table 0xa.0x2 = 0x19c,0x3
019d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
019e 0a01 | | Execute_Immediate Plus,0x1
019f 00db | | Load_Top At_Offset_3
01a0 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01a1 00da | | Load_Top At_Offset_2 ; Debug Table 0xa.0x3 = 0x1a1,0x4
01a2 822c | , | Call 0x1,0x2c
01a3 00d1 | | Pop_Control Pop_Count_1
01a4 4501 |E | Exit_Subprogram 0x1
01a5 0000 0000 | | .XXX[0x3]
01a7 0000 | |
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab | | .CONST 0x01ab ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0001 | | .CONST 0x0001 ; Number of locals
01ab BODY_01a8:
01ab INIT_01a8:
01ab 00da | | Load_Top At_Offset_2 ; Debug Table 0xb = .DEBUG 0x01ab,0x0314,0x1002,0x0000,0x0036,0x09b4,0x0000,0x00a8
; Debug Table 0xb.0x0 = 0x1ab,0x1
01ac 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01ad 022d | - | Execute Access,Is_Null
01ae 4401 |D | Exit_Subprogram With_Result,0x1
01af 0000 | | .XXX[0x1]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3 | | .CONST 0x01b3 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0001 | | .CONST 0x0001 ; Number of locals
01b3 BODY_01b0:
01b3 INIT_01b0:
01b3 00da | | Load_Top At_Offset_2 ; Debug Table 0xc = .DEBUG 0x01b3,0x0318,0x1002,0x0000,0x0036,0x09b4,0x0000,0x00b1
; Debug Table 0xc.0x0 = 0x1b3,0x1
01b4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01b5 0227 | ' | Execute Access,All_Reference
01b6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01b7 4401 |D | Exit_Subprogram With_Result,0x1
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb | | .CONST 0x01bb ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0001 | | .CONST 0x0001 ; Number of locals
01bb BODY_01b8:
01bb INIT_01b8:
01bb 00da | | Load_Top At_Offset_2 ; Debug Table 0xd = .DEBUG 0x01bb,0x031c,0x1001,0x0000,0x0036,0x0ae4,0x0000,0x0194
; Debug Table 0xd.0x0 = 0x1bb,0x1
; Debug Table 0xd.0x1 = 0x1bb,0x2
01bc 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01bd 00db | | Load_Top At_Offset_3
01be 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01bf 0227 | ' | Execute Access,All_Reference
01c0 01d7 | | Execute Vector,Field_Read
01c1 00db | | Load_Top At_Offset_3
01c2 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01c3 00da | | Load_Top At_Offset_2 ; Debug Table 0xd.0x2 = 0x1c3,0x3
01c4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01c5 700e |p | Jump_Nonzero 0x1d4
01c6 00da | | Load_Top At_Offset_2
01c7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01c8 00db | | Load_Top At_Offset_3
01c9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01ca 0227 | ' | Execute Access,All_Reference
01cb 01dc | | Execute Vector,Last
01cc 027f | | Execute Discrete,Equal
01cd 7006 |p | Jump_Nonzero 0x1d4
01ce 00da | | Load_Top At_Offset_2 ; Debug Table 0xd.0x3 = 0x1ce,0x4
01cf 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01d0 0a01 | | Execute_Immediate Plus,0x1
01d1 00db | | Load_Top At_Offset_3
01d2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01d3 7fe7 | | Jump INIT_01b8
01d4 4501 |E | Exit_Subprogram 0x1
01d5 0000 0000 | | .XXX[0x3]
01d7 0000 | |
01d8 0000 0000 | | .LITERAL {0x00000000, 0x00360ae4}
01dc 0000 0000 | | .LITERAL {0x00000000, 0x3609b401}
01e0 ; --------------------------------------------------------------------------------------
01e0 ; Debug Table
01e0 ; --------------------------------------------------------------------------------------
01e0 0003 000e | | .CONST 0x0003,0x000e
01e2 000b 0252 | R| .DEBUG 0x000b,0x0252,0xc000,0x0000,0x0036,0x09b4,0x0000,0x0005
01ea 0045 0288 | E | .DEBUG 0x0045,0x0288,0xc000,0x0000,0x0036,0x0ae4,0x0000,0x0007
01f2 007b 02ac | { | .DEBUG 0x007b,0x02ac,0x1002,0x0000,0x0036,0x09b4,0x0000,0x003f
01fa 008b 02b0 | | .DEBUG 0x008b,0x02b0,0x1002,0x0000,0x0036,0x09b4,0x0000,0x004d
0202 00db 02d0 | | .DEBUG 0x00db,0x02d0,0x1002,0x0000,0x0036,0x09b4,0x0000,0x005a
020a 0113 02e6 | | .DEBUG 0x0113,0x02e6,0x1002,0x0000,0x0036,0x09b4,0x0000,0x0067
0212 012b 02ee | + | .DEBUG 0x012b,0x02ee,0x1002,0x0000,0x0036,0x09b4,0x0000,0x0074
021a 0143 02f6 | C | .DEBUG 0x0143,0x02f6,0x1002,0x0000,0x0036,0x09b4,0x0000,0x007d
0222 0163 02fa | c | .DEBUG 0x0163,0x02fa,0x1002,0x0000,0x0036,0x09b4,0x0000,0x0087
022a 0173 02fe | s | .DEBUG 0x0173,0x02fe,0x1001,0x0000,0x0036,0x09b4,0x0000,0x0094
0232 018b 030a | | .DEBUG 0x018b,0x030a,0x1001,0x0000,0x0036,0x09b4,0x0000,0x00a0
023a 01ab 0314 | | .DEBUG 0x01ab,0x0314,0x1002,0x0000,0x0036,0x09b4,0x0000,0x00a8
0242 01b3 0318 | | .DEBUG 0x01b3,0x0318,0x1002,0x0000,0x0036,0x09b4,0x0000,0x00b1
024a 01bb 031c | | .DEBUG 0x01bb,0x031c,0x1001,0x0000,0x0036,0x0ae4,0x0000,0x0194
0252 ; --------------------------------------------------------------------------------------
0252 ; Debug3 Subtable 0x0
0252 ; --------------------------------------------------------------------------------------
0252 001a 0000 | | .DBG3TAB 0x001a,0x0000
0254 000b ffff | | .CONST 0x000b,0xffff
0256 000b fffe | | .CONST 0x000b,0xfffe
0258 000b fffd | | .CONST 0x000b,0xfffd
025a 000d fffc | | .CONST 0x000d,0xfffc
025c 000f fffb | | .CONST 0x000f,0xfffb
025e 0011 fffa | | .CONST 0x0011,0xfffa
0260 0013 fff9 | | .CONST 0x0013,0xfff9
0262 0014 fff8 | | .CONST 0x0014,0xfff8
0264 0016 fff7 | | .CONST 0x0016,0xfff7
0266 0018 fff6 | | .CONST 0x0018,0xfff6
0268 001a fff5 | | .CONST 0x001a,0xfff5
026a 001c fff4 | | .CONST 0x001c,0xfff4
026c 001e fff3 | | .CONST 0x001e,0xfff3
026e 0020 fff2 | | .CONST 0x0020,0xfff2
0270 0022 fff1 | " | .CONST 0x0022,0xfff1
0272 0024 fff0 | $ | .CONST 0x0024,0xfff0
0274 0026 ffef | & | .CONST 0x0026,0xffef
0276 0028 ffee | ( | .CONST 0x0028,0xffee
0278 002a ffed | * | .CONST 0x002a,0xffed
027a 002e ffec | . | .CONST 0x002e,0xffec
027c 0031 ffeb | 1 | .CONST 0x0031,0xffeb
027e 0033 ffea | 3 | .CONST 0x0033,0xffea
0280 0037 ffe9 | 7 | .CONST 0x0037,0xffe9
0282 0039 ffe8 | 9 | .CONST 0x0039,0xffe8
0284 003d ffe7 | = | .CONST 0x003d,0xffe7
0286 003e ffe6 | > | .CONST 0x003e,0xffe6
0288 ; --------------------------------------------------------------------------------------
0288 ; Debug3 Subtable 0x1
0288 ; --------------------------------------------------------------------------------------
0288 0011 0000 | | .DBG3TAB 0x0011,0x0000
028a 0045 ffff | E | .CONST 0x0045,0xffff
028c 004a fffe | J | .CONST 0x004a,0xfffe
028e 0050 fffd | P | .CONST 0x0050,0xfffd
0290 0050 fffc | P | .CONST 0x0050,0xfffc
0292 0050 fffb | P | .CONST 0x0050,0xfffb
0294 0052 fffa | R | .CONST 0x0052,0xfffa
0296 0054 fff9 | T | .CONST 0x0054,0xfff9
0298 0056 fff8 | V | .CONST 0x0056,0xfff8
029a 0058 fff7 | X | .CONST 0x0058,0xfff7
029c 005a fff6 | Z | .CONST 0x005a,0xfff6
029e 0062 fff5 | b | .CONST 0x0062,0xfff5
02a0 0064 fff4 | d | .CONST 0x0064,0xfff4
02a2 0066 fff3 | f | .CONST 0x0066,0xfff3
02a4 0068 fff2 | h | .CONST 0x0068,0xfff2
02a6 006a fff1 | j | .CONST 0x006a,0xfff1
02a8 006c fff0 | l | .CONST 0x006c,0xfff0
02aa 006e ffef | n | .CONST 0x006e,0xffef
02ac ; --------------------------------------------------------------------------------------
02ac ; Debug3 Subtable 0x2
02ac ; --------------------------------------------------------------------------------------
02ac 0000 0001 | | .DBG3TAB 0x0000,0x0001
02ae 007b 0001 | { | .CONST 0x007b,0x0001
02b0 ; --------------------------------------------------------------------------------------
02b0 ; Debug3 Subtable 0x3
02b0 ; --------------------------------------------------------------------------------------
02b0 0003 000c | | .DBG3TAB 0x0003,0x000c
02b2 008b ffff | | .CONST 0x008b,0xffff
02b4 0090 0401 | | .CONST 0x0090,0x0401
02b6 0099 ffff | | .CONST 0x0099,0xffff
02b8 009c fffe | | .CONST 0x009c,0xfffe
02ba 009f 0001 | | .CONST 0x009f,0x0001
02bc 00a7 0002 | | .CONST 0x00a7,0x0002
02be 00a9 0004 | | .CONST 0x00a9,0x0004
02c0 00b4 0005 | | .CONST 0x00b4,0x0005
02c2 00b8 0006 | | .CONST 0x00b8,0x0006
02c4 00bc 0003 | | .CONST 0x00bc,0x0003
02c6 00be 0007 | | .CONST 0x00be,0x0007
02c8 00c1 0008 | | .CONST 0x00c1,0x0008
02ca 00c9 0009 | | .CONST 0x00c9,0x0009
02cc 00cd 000a | | .CONST 0x00cd,0x000a
02ce 00cf 000b | | .CONST 0x00cf,0x000b
02d0 ; --------------------------------------------------------------------------------------
02d0 ; Debug3 Subtable 0x4
02d0 ; --------------------------------------------------------------------------------------
02d0 0002 0008 | | .DBG3TAB 0x0002,0x0008
02d2 00db ffff | | .CONST 0x00db,0xffff
02d4 00e1 0401 | | .CONST 0x00e1,0x0401
02d6 00ea ffff | | .CONST 0x00ea,0xffff
02d8 00ee 0001 | | .CONST 0x00ee,0x0001
02da 00f6 0002 | | .CONST 0x00f6,0x0002
02dc 00f8 0004 | | .CONST 0x00f8,0x0004
02de 0103 0005 | | .CONST 0x0103,0x0005
02e0 0107 0006 | | .CONST 0x0107,0x0006
02e2 010b 0003 | | .CONST 0x010b,0x0003
02e4 010d 0007 | | .CONST 0x010d,0x0007
02e6 ; --------------------------------------------------------------------------------------
02e6 ; Debug3 Subtable 0x5
02e6 ; --------------------------------------------------------------------------------------
02e6 0000 0003 | | .DBG3TAB 0x0000,0x0003
02e8 0113 0001 | | .CONST 0x0113,0x0001
02ea 011b 0002 | | .CONST 0x011b,0x0002
02ec 011d 0003 | | .CONST 0x011d,0x0003
02ee ; --------------------------------------------------------------------------------------
02ee ; Debug3 Subtable 0x6
02ee ; --------------------------------------------------------------------------------------
02ee 0000 0003 | | .DBG3TAB 0x0000,0x0003
02f0 012b 0001 | + | .CONST 0x012b,0x0001
02f2 012d 0002 | - | .CONST 0x012d,0x0002
02f4 0136 0003 | 6 | .CONST 0x0136,0x0003
02f6 ; --------------------------------------------------------------------------------------
02f6 ; Debug3 Subtable 0x7
02f6 ; --------------------------------------------------------------------------------------
02f6 0000 0001 | | .DBG3TAB 0x0000,0x0001
02f8 0143 0001 | C | .CONST 0x0143,0x0001
02fa ; --------------------------------------------------------------------------------------
02fa ; Debug3 Subtable 0x8
02fa ; --------------------------------------------------------------------------------------
02fa 0000 0001 | | .DBG3TAB 0x0000,0x0001
02fc 0163 0001 | c | .CONST 0x0163,0x0001
02fe ; --------------------------------------------------------------------------------------
02fe ; Debug3 Subtable 0x9
02fe ; --------------------------------------------------------------------------------------
02fe 0001 0004 | | .DBG3TAB 0x0001,0x0004
0300 0173 ffff | s | .CONST 0x0173,0xffff
0302 0175 0001 | u | .CONST 0x0175,0x0001
0304 0178 0002 | x | .CONST 0x0178,0x0002
0306 017b 0003 | { | .CONST 0x017b,0x0003
0308 017e 0004 | ~ | .CONST 0x017e,0x0004
030a ; --------------------------------------------------------------------------------------
030a ; Debug3 Subtable 0xa
030a ; --------------------------------------------------------------------------------------
030a 0000 0004 | | .DBG3TAB 0x0000,0x0004
030c 018b 0001 | | .CONST 0x018b,0x0001
030e 0191 0002 | | .CONST 0x0191,0x0002
0310 019c 0003 | | .CONST 0x019c,0x0003
0312 01a1 0004 | | .CONST 0x01a1,0x0004
0314 ; --------------------------------------------------------------------------------------
0314 ; Debug3 Subtable 0xb
0314 ; --------------------------------------------------------------------------------------
0314 0000 0001 | | .DBG3TAB 0x0000,0x0001
0316 01ab 0001 | | .CONST 0x01ab,0x0001
0318 ; --------------------------------------------------------------------------------------
0318 ; Debug3 Subtable 0xc
0318 ; --------------------------------------------------------------------------------------
0318 0000 0001 | | .DBG3TAB 0x0000,0x0001
031a 01b3 0001 | | .CONST 0x01b3,0x0001
031c ; --------------------------------------------------------------------------------------
031c ; Debug3 Subtable 0xd
031c ; --------------------------------------------------------------------------------------
031c 0000 0004 | | .DBG3TAB 0x0000,0x0004
031e 01bb 0001 | | .CONST 0x01bb,0x0001
0320 01bb 0002 | | .CONST 0x01bb,0x0002
0322 01c3 0003 | | .CONST 0x01c3,0x0003
0324 01ce 0004 | | .CONST 0x01ce,0x0004
0326 0000 0000 | | .BLANK 0000[0xda]