|
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: »1034259.SEG«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »1034259.SEG«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »1034259.SEG«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »1034259.SEG«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »1034259.SEG«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »1034259.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 01c0 | | .CONST 0x01c0 ; 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 0073 | s | .CONST 0x0073 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001e | | .CONST 0x001e ; Number of locals
000b INIT_0008:
000b 00da | | Load_Top At_Offset_2 ; Debug Table 0x0 = .DEBUG 0x000b,0x0232,0xc000,0x0000,0x0037,0x1394,0x0000,0x0003
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 00db | | Load_Top At_Offset_3
000d 4800 |H | Short_Literal 0x0
000e 4801 |H | Short_Literal 0x1
000f 4802 |H | Short_Literal 0x2
0010 4804 |H | Short_Literal 0x4
0011 0319 | | Declare_Type Variant_Record,Incomplete,Visible
0012 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0x12,0xfffe
0014 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0x14,0xfffd
0016 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x16,0xfffc
0018 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x18,0xfffb
001a 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x1a,0xfffa
001c 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x1c,0xfff9
001e 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x7 = 0x1e,0xfff8
0020 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x8 = 0x20,0xfff7
0022 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x9 = 0x22,0xfff6
0024 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x0.0xa = 0x24,0xfff5
0025 4801 |H | Short_Literal 0x1
0026 e210 | | Load 0x1,0x10
0027 029f 0133 | 3| Declare_Subprogram INIT_0130,For_Call
0029 4801 |H | Short_Literal 0x1
002a 4800 |H | Short_Literal 0x0
002b 4801 |H | Short_Literal 0x1
002c 4800 |H | Short_Literal 0x0
002d 4801 |H | Short_Literal 0x1
002e 031d | | Declare_Type Variant_Record,Defined
002f e20f | | Load 0x1,0xf ; Debug Table 0x0.0xb = 0x2f,0xfff4
0030 0266 | f | Execute Discrete,Bounds
0031 00da | | Load_Top At_Offset_2
0032 029f 0173 | s| Declare_Subprogram INIT_0170,For_Call
0034 4801 |H | Short_Literal 0x1
0035 0350 | P | Declare_Type Array,Defined,Bounds_With_Object
0036 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0xc = 0x36,0xfff3
0037 e20f | | Load 0x1,0xf
0038 0269 | i | Execute Discrete,Last
0039 e20f | | Load 0x1,0xf
003a 026a | j | Execute Discrete,First
003b 0272 | r | Execute Discrete,Minus
003c 0a01 | | Execute_Immediate Plus,0x1
003d 0248 | H | Execute Discrete,Check_In_Integer
003e 00e3 | | Load_Encached Natural_Cache
003f 03f8 | | Declare_Type Discrete,Constrained
0040 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0xd = 0x40,0xfff2
0041 00da | | Load_Top At_Offset_2
0042 01dd | | Execute Vector,First
0043 e20f | | Load 0x1,0xf
0044 026a | j | Execute Discrete,First
0045 027d | } | Execute Discrete,Greater
0046 6803 |h | Jump_Zero 0x4a
0047 00da | | Load_Top At_Offset_2
0048 01dd | | Execute Vector,First
0049 7802 |x | Jump 0x4c
004a e20f | | Load 0x1,0xf
004b 026a | j | Execute Discrete,First
004c 00db | | Load_Top At_Offset_3
004d 01dc | | Execute Vector,Last
004e e20f | | Load 0x1,0xf
004f 0269 | i | Execute Discrete,Last
0050 027c | | | Execute Discrete,Less
0051 6803 |h | Jump_Zero 0x55
0052 00db | | Load_Top At_Offset_3
0053 01dc | | Execute Vector,Last
0054 7802 |x | Jump 0x57
0055 e20f | | Load 0x1,0xf
0056 0269 | i | Execute Discrete,Last
0057 e21d | | Load 0x1,0x1d
0058 034e | N | QQ_Declare_Type Array,Constrained,Bounds_With_Object
0059 029f 018b | | Declare_Subprogram INIT_0188,For_Call
005b 4800 |H | Short_Literal 0x0
005c 4801 |H | Short_Literal 0x1
005d 4801 |H | Short_Literal 0x1
005e e212 | | Load 0x1,0x12
005f 0307 | | Complete_Type Variant_Record,By_Defining
0060 00bf | | Action Accept_Activation
0061 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1 = .DEBUG 0x0061,0x0250,0xc000,0x0000,0x0037,0x14c4,0x0000,0x0003
; Debug Table 0x1.0x0 = 0x61,0xffff
0062 00c7 | | Action Elaborate_Subprogram
0063 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x1.0x1 = 0x63,0xfffe
0064 00c7 | | Action Elaborate_Subprogram
0065 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x1.0x2 = 0x65,0xfffd
0066 00c7 | | Action Elaborate_Subprogram
0067 1d16 | | Execute_Immediate Reference_Lex_1,0x16 ; Debug Table 0x1.0x3 = 0x67,0xfffc
0068 00c7 | | Action Elaborate_Subprogram
0069 1d17 | | Execute_Immediate Reference_Lex_1,0x17 ; Debug Table 0x1.0x4 = 0x69,0xfffb
006a 00c7 | | Action Elaborate_Subprogram
006b 1d18 | | Execute_Immediate Reference_Lex_1,0x18 ; Debug Table 0x1.0x5 = 0x6b,0xfffa
006c 00c7 | | Action Elaborate_Subprogram
006d 1d19 | | Execute_Immediate Reference_Lex_1,0x19 ; Debug Table 0x1.0x6 = 0x6d,0xfff9
006e 00c7 | | Action Elaborate_Subprogram
006f 1d1a | | Execute_Immediate Reference_Lex_1,0x1a ; Debug Table 0x1.0x7 = 0x6f,0xfff8
0070 00c7 | | Action Elaborate_Subprogram
0071 1d1b | | Execute_Immediate Reference_Lex_1,0x1b ; Debug Table 0x1.0x8 = 0x71,0xfff7
0072 00c7 | | Action Elaborate_Subprogram
0073 BODY_0008:
0073 00bc | | Action Signal_Activated
0074 00bb | | Action Signal_Completion
0075 0000 0000 | | .XXX[0x3]
0077 0000 | |
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 00cf | | Action Mark_Auxiliary ; Debug Table 0x2 = .DEBUG 0x007b,0x0264,0x1001,0x0000,0x0037,0x1394,0x0000,0x0023
007c 00db | | Load_Top At_Offset_3 ; Debug Table 0x2.0x0 = 0x7c,0x1
007d 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
007e 01d9 | | Execute Vector,Reverse_Bounds
007f 0263 | c | Execute Discrete,Above_Bound
0080 7009 |p | Jump_Nonzero 0x8a
0081 4801 |H | Short_Literal 0x1 ; Debug Table 0x2.0x1 = 0x81,0x2
0082 e21c | | Load 0x1,0x1c
0083 1c08 | | Execute_Immediate Run_Utility,0x8
0084 00d9 | | Load_Top At_Offset_1
0085 e5ff | | Load 0x2,-0x1
0086 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0087 01d6 | | Execute Vector,Field_Write
0088 00c8 | | Action Pop_Auxiliary_Range
0089 3ff7 |? | Loop_Increasing 0x81
008a 00ce | | Action Pop_Auxiliary
008b 4800 |H | Short_Literal 0x0 ; Debug Table 0x2.0x2 = 0x8b,0x3
008c 00db | | Load_Top At_Offset_3
008d 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
008e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
008f 0000 | | .XXX[0x1]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0099 | | .CONST 0x0099 ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0002 | | .CONST 0x0002 ; Number of locals
0093 INIT_0090:
0093 00da | | Load_Top At_Offset_2 ; Debug Table 0x3 = .DEBUG 0x0093,0x026c,0x1002,0x0000,0x0037,0x1394,0x0000,0x002b
; Debug Table 0x3.0x0 = 0x93,0xffff
0094 e5fe | | Load 0x2,-0x2
0095 e212 | | Load 0x1,0x12
0096 1c08 | | Execute_Immediate Run_Utility,0x8
0097 00d8 | | Load_Top At_Offset_0
0098 1c00 | | Execute_Immediate Run_Utility,0x0
0099 BODY_0090:
0099 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x1 = 0x99,0x1
009a 8213 | | Call 0x1,0x13
009b 00d1 | | Pop_Control Pop_Count_1
009c 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x2 = 0x9c,0x2
009d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
009e 0000 0000 | | .XXX[0x2]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a3 | | .CONST 0x00a3 ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0001 | | .CONST 0x0001 ; Number of locals
00a3 BODY_00a0:
00a3 INIT_00a0:
00a3 00da | | Load_Top At_Offset_2 ; Debug Table 0x4 = .DEBUG 0x00a3,0x0274,0x1001,0x0000,0x0037,0x1394,0x0000,0x003e
; Debug Table 0x4.0x0 = 0xa3,0x1
00a4 e5fd | | Load 0x2,-0x3
00a5 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
00a6 01d5 | | Execute Vector,Field_Reference
00a7 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
00a8 7002 |p | Jump_Nonzero 0xab
00a9 4887 |H | Short_Literal 0x87
00aa 0257 | W | Execute Discrete,Raise
00ab 4800 |H | Short_Literal 0x0 ; Debug Table 0x4.0x1 = 0xab,0x2
00ac e21c | | Load 0x1,0x1c
00ad 1c08 | | Execute_Immediate Run_Utility,0x8
00ae e5fe | | Load 0x2,-0x2
00af e210 | | Load 0x1,0x10
00b0 0119 | | Execute Any,Check_In_Formal_Type
00b1 00d9 | | Load_Top At_Offset_1
00b2 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
00b3 00db | | Load_Top At_Offset_3
00b4 e5fd | | Load 0x2,-0x3
00b5 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
00b6 01d6 | | Execute Vector,Field_Write
00b7 e5fd | | Load 0x2,-0x3 ; Debug Table 0x4.0x2 = 0xb7,0x3
00b8 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
00b9 0a01 | | Execute_Immediate Plus,0x1
00ba e5fd | | Load 0x2,-0x3
00bb 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
00bc 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00bd 0000 0000 | | .XXX[0x3]
00bf 0000 | |
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3 | | .CONST 0x00c3 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0001 | | .CONST 0x0001 ; Number of locals
00c3 BODY_00c0:
00c3 INIT_00c0:
00c3 00db | | Load_Top At_Offset_3 ; Debug Table 0x5 = .DEBUG 0x00c3,0x027c,0x1002,0x0000,0x0037,0x1394,0x0000,0x004e
; Debug Table 0x5.0x0 = 0xc3,0x1
00c4 00db | | Load_Top At_Offset_3
00c5 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
00c6 01d5 | | Execute Vector,Field_Reference
00c7 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
00c8 0f00 | | Execute_Immediate Equal,0x0
00c9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00ca 0000 0000 | | .BLANK 0000[0x6]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3 | | .CONST 0x00d3 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0001 | | .CONST 0x0001 ; Number of locals
00d3 BODY_00d0:
00d3 INIT_00d0:
00d3 00db | | Load_Top At_Offset_3 ; Debug Table 0x6 = .DEBUG 0x00d3,0x0280,0x1001,0x0000,0x0037,0x1394,0x0000,0x005b
; Debug Table 0x6.0x0 = 0xd3,0x1
00d4 00db | | Load_Top At_Offset_3
00d5 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
00d6 01d5 | | Execute Vector,Field_Reference
00d7 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
00d8 6805 |h | Jump_Zero 0xde
00d9 4800 |H | Short_Literal 0x0 ; Debug Table 0x6.0x1 = 0xd9,0x2
00da a5fd | | Store_Unchecked 0x2,-0x3
00db e211 | | Load 0x1,0x11 ; Debug Table 0x6.0x2 = 0xdb,0x3
00dc c5fc | | Store 0x2,-0x4
00dd 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00de 4801 |H | Short_Literal 0x1 ; Debug Table 0x6.0x3 = 0xde,0x4
00df a5fd | | Store_Unchecked 0x2,-0x3
00e0 00db | | Load_Top At_Offset_3 ; Debug Table 0x6.0x4 = 0xe0,0x5
00e1 00db | | Load_Top At_Offset_3
00e2 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
00e3 01d5 | | Execute Vector,Field_Reference
00e4 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
00e5 c5fc | | Store 0x2,-0x4
00e6 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00e7 0000 | | .XXX[0x1]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb | | .CONST 0x00eb ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0001 | | .CONST 0x0001 ; Number of locals
00eb BODY_00e8:
00eb INIT_00e8:
00eb 00db | | Load_Top At_Offset_3 ; Debug Table 0x7 = .DEBUG 0x00eb,0x028c,0x1002,0x0000,0x0037,0x1394,0x0000,0x006f
; Debug Table 0x7.0x0 = 0xeb,0x1
00ec 00db | | Load_Top At_Offset_3
00ed 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
00ee 01d5 | | Execute Vector,Field_Reference
00ef 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
00f0 00d8 | | Load_Top At_Offset_0
00f1 0120 | | Execute Any,Is_Value
00f2 7002 |p | Jump_Nonzero 0xf5
00f3 00d8 | | Load_Top At_Offset_0
00f4 011e | | Execute Any,Convert
00f5 e210 | | Load 0x1,0x10
00f6 0119 | | Execute Any,Check_In_Formal_Type
00f7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb | | .CONST 0x00fb ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0001 | | .CONST 0x0001 ; Number of locals
00fb BODY_00f8:
00fb INIT_00f8:
00fb 00da | | Load_Top At_Offset_2 ; Debug Table 0x8 = .DEBUG 0x00fb,0x0290,0x1001,0x0000,0x0037,0x1394,0x0000,0x007c
; Debug Table 0x8.0x0 = 0xfb,0x1
00fc e5fd | | Load 0x2,-0x3
00fd 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
00fe 01d5 | | Execute Vector,Field_Reference
00ff 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0100 6802 |h | Jump_Zero 0x103
0101 4887 |H | Short_Literal 0x87
0102 0257 | W | Execute Discrete,Raise
0103 4800 |H | Short_Literal 0x0 ; Debug Table 0x8.0x1 = 0x103,0x2
0104 e21c | | Load 0x1,0x1c
0105 1c08 | | Execute_Immediate Run_Utility,0x8
0106 e5fe | | Load 0x2,-0x2
0107 e210 | | Load 0x1,0x10
0108 0119 | | Execute Any,Check_In_Formal_Type
0109 00d9 | | Load_Top At_Offset_1
010a 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
010b 00db | | Load_Top At_Offset_3
010c e5fd | | Load 0x2,-0x3
010d 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
010e 01d6 | | Execute Vector,Field_Write
010f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
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 00da | | Load_Top At_Offset_2 ; Debug Table 0x9 = .DEBUG 0x0113,0x0296,0x1001,0x0000,0x0037,0x1394,0x0000,0x008c
; Debug Table 0x9.0x0 = 0x113,0x1
0114 e5fe | | Load 0x2,-0x2
0115 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0116 01d5 | | Execute Vector,Field_Reference
0117 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0118 6802 |h | Jump_Zero 0x11b
0119 4887 |H | Short_Literal 0x87
011a 0257 | W | Execute Discrete,Raise
011b 4801 |H | Short_Literal 0x1 ; Debug Table 0x9.0x1 = 0x11b,0x2
011c e21c | | Load 0x1,0x1c
011d 1c08 | | Execute_Immediate Run_Utility,0x8
011e 00db | | Load_Top At_Offset_3
011f e5fe | | Load 0x2,-0x2
0120 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0121 01d6 | | Execute Vector,Field_Write
0122 00db | | Load_Top At_Offset_3 ; Debug Table 0x9.0x2 = 0x122,0x3
0123 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0124 0aff | | Execute_Immediate Plus,-0x1
0125 e5fe | | Load 0x2,-0x2
0126 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0127 4502 |E | Exit_Suprogram New_Top_Offset 0x2
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 0xa = .DEBUG 0x012b,0x029e,0x1002,0x0000,0x0037,0x1394,0x0000,0x0098
; Debug Table 0xa.0x0 = 0x12b,0x1
012c 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
012d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
012e 0000 0000 | | .XXX[0x2]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133 | 3 | .CONST 0x0133 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0001 | | .CONST 0x0001 ; Number of locals
0133 BODY_0130:
0133 INIT_0130:
0133 4608 |F | Jump_Case 0x9 ; Debug Table 0xb = .DEBUG 0x0133,0x02a2,0x1005,0x0000,0x0037,0x1394,0x0000,0x00a2
0134 7808 |x | Jump 0x13d ; case 0x0
0135 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0136 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
0137 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0138 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
0139 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
013a 7819 |x | Jump 0x154 ; case 0x6
013b 7820 |x | Jump 0x15c ; case 0x7
013c 782a |x* | Jump 0x167 ; case 0x8
013d 00da | | Load_Top At_Offset_2
013e 016c | l | Execute Variant_Record,Is_Constrained
013f 7009 |p | Jump_Nonzero 0x149
0140 00cf | | Action Mark_Auxiliary
0141 4801 |H | Short_Literal 0x1
0142 e5ff | | Load 0x2,-0x1
0143 1c08 | | Execute_Immediate Run_Utility,0x8
0144 00d8 | | Load_Top At_Offset_0
0145 1c00 | | Execute_Immediate Run_Utility,0x0
0146 c5ff | | Store 0x2,-0x1
0147 00ce | | Action Pop_Auxiliary
0148 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0149 00da | | Load_Top At_Offset_2
014a 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
014b 4601 |F | Jump_Case 0x2
014c 7801 |x | Jump 0x14e ; case 0x0
014d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
014e 00da | | Load_Top At_Offset_2
014f 2202 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x2
0150 00da | | Load_Top At_Offset_2
0151 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
0152 1c00 | | Execute_Immediate Run_Utility,0x0
0153 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0154 00db | | Load_Top At_Offset_3
0155 4601 |F | Jump_Case 0x2
0156 7803 |x | Jump 0x15a ; case 0x0
0157 7800 |x | Jump 0x158 ; case 0x1
0158 48ff |H | Short_Literal 0xff
0159 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
015a 4801 |H | Short_Literal 0x1
015b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
015c 00db | | Load_Top At_Offset_3
015d e5fe | | Load 0x2,-0x2
015e 4601 |F | Jump_Case 0x2
015f 7803 |x | Jump 0x163 ; case 0x0
0160 7800 |x | Jump 0x161 ; case 0x1
0161 48ff |H | Short_Literal 0xff
0162 7801 |x | Jump 0x164
0163 4801 |H | Short_Literal 0x1
0164 e5ff | | Load 0x2,-0x1
0165 031b | | Declare_Type Variant_Record,Constrained
0166 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0167 00db | | Load_Top At_Offset_3
0168 e5fe | | Load 0x2,-0x2
0169 e5ff | | Load 0x2,-0x1
016a 1c06 | | Execute_Immediate Run_Utility,0x6
016b e5ff | | Load 0x2,-0x1
016c 02fc | | Declare_Variable Variant_Record,With_Constraint
016d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
016e 0000 0000 | | .XXX[0x2]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173 | s | .CONST 0x0173 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0001 | | .CONST 0x0001 ; Number of locals
0173 BODY_0170:
0173 INIT_0170:
0173 00d1 | | Pop_Control Pop_Count_1 ; Debug Table 0xc = .DEBUG 0x0173,0x02a4,0x1005,0x0000,0x0037,0x1394,0x0000,0x00bc
0174 00da | | Load_Top At_Offset_2
0175 01dc | | Execute Vector,Last
0176 00db | | Load_Top At_Offset_3
0177 01dd | | Execute Vector,First
0178 0263 | c | Execute Discrete,Above_Bound
0179 7006 |p | Jump_Nonzero 0x180
017a 00d8 | | Load_Top At_Offset_0
017b e5ff | | Load 0x2,-0x1
017c 01d5 | | Execute Vector,Field_Reference
017d 1c00 | | Execute_Immediate Run_Utility,0x0
017e 0a01 | | Execute_Immediate Plus,0x1
017f 7ff8 | | Jump 0x178
0180 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0181 0000 0000 | | .BLANK 0000[0x7]
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 4608 |F | Jump_Case 0x9 ; Debug Table 0xd = .DEBUG 0x018b,0x02a6,0x1005,0x0000,0x0037,0x1394,0x0000,0x00e0
018c 7808 |x | Jump 0x195 ; case 0x0
018d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
018e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
018f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0190 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
0191 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
0192 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6
0193 7817 |x | Jump 0x1ab ; case 0x7
0194 7820 |x | Jump 0x1b5 ; case 0x8
0195 00da | | Load_Top At_Offset_2
0196 016c | l | Execute Variant_Record,Is_Constrained
0197 700c |p | Jump_Nonzero 0x1a4
0198 00cf | | Action Mark_Auxiliary
0199 e20f | | Load 0x1,0xf
019a 026a | j | Execute Discrete,First
019b e20f | | Load 0x1,0xf
019c 0269 | i | Execute Discrete,Last
019d e5ff | | Load 0x2,-0x1
019e 1c08 | | Execute_Immediate Run_Utility,0x8
019f 00d8 | | Load_Top At_Offset_0
01a0 1c00 | | Execute_Immediate Run_Utility,0x0
01a1 c5ff | | Store 0x2,-0x1
01a2 00ce | | Action Pop_Auxiliary
01a3 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
01a4 00da | | Load_Top At_Offset_2
01a5 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
01a6 1c00 | | Execute_Immediate Run_Utility,0x0
01a7 4800 |H | Short_Literal 0x0
01a8 00db | | Load_Top At_Offset_3
01a9 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
01aa 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
01ab e5fd | | Load 0x2,-0x3
01ac e5fe | | Load 0x2,-0x2
01ad e5fd | | Load 0x2,-0x3
01ae e5fe | | Load 0x2,-0x2
01af e21d | | Load 0x1,0x1d
01b0 035b | [ | Declare_Type Array,Constrained
01b1 4801 |H | Short_Literal 0x1
01b2 e5ff | | Load 0x2,-0x1
01b3 031b | | Declare_Type Variant_Record,Constrained
01b4 4203 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x3
01b5 e5fd | | Load 0x2,-0x3
01b6 e5fe | | Load 0x2,-0x2
01b7 e5ff | | Load 0x2,-0x1
01b8 02fc | | Declare_Variable Variant_Record,With_Constraint
01b9 e5fd | | Load 0x2,-0x3
01ba e5fe | | Load 0x2,-0x2
01bb e21d | | Load 0x1,0x1d
01bc 0334 | 4 | Declare_Variable Array,With_Constraint
01bd 2d04 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x4
01be 016a | j | QQ_execute Variant_Record,XXX
01bf 4203 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x3
01c0 ; --------------------------------------------------------------------------------------
01c0 ; Debug Table
01c0 ; --------------------------------------------------------------------------------------
01c0 0003 000e | | .CONST 0x0003,0x000e
01c2 000b 0232 | 2| .DEBUG 0x000b,0x0232,0xc000,0x0000,0x0037,0x1394,0x0000,0x0003
01ca 0061 0250 | a P| .DEBUG 0x0061,0x0250,0xc000,0x0000,0x0037,0x14c4,0x0000,0x0003
01d2 007b 0264 | { d| .DEBUG 0x007b,0x0264,0x1001,0x0000,0x0037,0x1394,0x0000,0x0023
01da 0093 026c | l| .DEBUG 0x0093,0x026c,0x1002,0x0000,0x0037,0x1394,0x0000,0x002b
01e2 00a3 0274 | t| .DEBUG 0x00a3,0x0274,0x1001,0x0000,0x0037,0x1394,0x0000,0x003e
01ea 00c3 027c | || .DEBUG 0x00c3,0x027c,0x1002,0x0000,0x0037,0x1394,0x0000,0x004e
01f2 00d3 0280 | | .DEBUG 0x00d3,0x0280,0x1001,0x0000,0x0037,0x1394,0x0000,0x005b
01fa 00eb 028c | | .DEBUG 0x00eb,0x028c,0x1002,0x0000,0x0037,0x1394,0x0000,0x006f
0202 00fb 0290 | | .DEBUG 0x00fb,0x0290,0x1001,0x0000,0x0037,0x1394,0x0000,0x007c
020a 0113 0296 | | .DEBUG 0x0113,0x0296,0x1001,0x0000,0x0037,0x1394,0x0000,0x008c
0212 012b 029e | + | .DEBUG 0x012b,0x029e,0x1002,0x0000,0x0037,0x1394,0x0000,0x0098
021a 0133 02a2 | 3 | .DEBUG 0x0133,0x02a2,0x1005,0x0000,0x0037,0x1394,0x0000,0x00a2
0222 0173 02a4 | s | .DEBUG 0x0173,0x02a4,0x1005,0x0000,0x0037,0x1394,0x0000,0x00bc
022a 018b 02a6 | | .DEBUG 0x018b,0x02a6,0x1005,0x0000,0x0037,0x1394,0x0000,0x00e0
0232 ; --------------------------------------------------------------------------------------
0232 ; Debug3 Subtable 0x0
0232 ; --------------------------------------------------------------------------------------
0232 000e 0000 | | .DBG3TAB 0x000e,0x0000
0234 000b ffff | | .CONST 0x000b,0xffff
0236 0012 fffe | | .CONST 0x0012,0xfffe
0238 0014 fffd | | .CONST 0x0014,0xfffd
023a 0016 fffc | | .CONST 0x0016,0xfffc
023c 0018 fffb | | .CONST 0x0018,0xfffb
023e 001a fffa | | .CONST 0x001a,0xfffa
0240 001c fff9 | | .CONST 0x001c,0xfff9
0242 001e fff8 | | .CONST 0x001e,0xfff8
0244 0020 fff7 | | .CONST 0x0020,0xfff7
0246 0022 fff6 | " | .CONST 0x0022,0xfff6
0248 0024 fff5 | $ | .CONST 0x0024,0xfff5
024a 002f fff4 | / | .CONST 0x002f,0xfff4
024c 0036 fff3 | 6 | .CONST 0x0036,0xfff3
024e 0040 fff2 | @ | .CONST 0x0040,0xfff2
0250 ; --------------------------------------------------------------------------------------
0250 ; Debug3 Subtable 0x1
0250 ; --------------------------------------------------------------------------------------
0250 0009 0000 | | .DBG3TAB 0x0009,0x0000
0252 0061 ffff | a | .CONST 0x0061,0xffff
0254 0063 fffe | c | .CONST 0x0063,0xfffe
0256 0065 fffd | e | .CONST 0x0065,0xfffd
0258 0067 fffc | g | .CONST 0x0067,0xfffc
025a 0069 fffb | i | .CONST 0x0069,0xfffb
025c 006b fffa | k | .CONST 0x006b,0xfffa
025e 006d fff9 | m | .CONST 0x006d,0xfff9
0260 006f fff8 | o | .CONST 0x006f,0xfff8
0262 0071 fff7 | q | .CONST 0x0071,0xfff7
0264 ; --------------------------------------------------------------------------------------
0264 ; Debug3 Subtable 0x2
0264 ; --------------------------------------------------------------------------------------
0264 0000 0003 | | .DBG3TAB 0x0000,0x0003
0266 007c 0001 | | | .CONST 0x007c,0x0001
0268 0081 0002 | | .CONST 0x0081,0x0002
026a 008b 0003 | | .CONST 0x008b,0x0003
026c ; --------------------------------------------------------------------------------------
026c ; Debug3 Subtable 0x3
026c ; --------------------------------------------------------------------------------------
026c 0001 0002 | | .DBG3TAB 0x0001,0x0002
026e 0093 ffff | | .CONST 0x0093,0xffff
0270 0099 0001 | | .CONST 0x0099,0x0001
0272 009c 0002 | | .CONST 0x009c,0x0002
0274 ; --------------------------------------------------------------------------------------
0274 ; Debug3 Subtable 0x4
0274 ; --------------------------------------------------------------------------------------
0274 0000 0003 | | .DBG3TAB 0x0000,0x0003
0276 00a3 0001 | | .CONST 0x00a3,0x0001
0278 00ab 0002 | | .CONST 0x00ab,0x0002
027a 00b7 0003 | | .CONST 0x00b7,0x0003
027c ; --------------------------------------------------------------------------------------
027c ; Debug3 Subtable 0x5
027c ; --------------------------------------------------------------------------------------
027c 0000 0001 | | .DBG3TAB 0x0000,0x0001
027e 00c3 0001 | | .CONST 0x00c3,0x0001
0280 ; --------------------------------------------------------------------------------------
0280 ; Debug3 Subtable 0x6
0280 ; --------------------------------------------------------------------------------------
0280 0000 0005 | | .DBG3TAB 0x0000,0x0005
0282 00d3 0001 | | .CONST 0x00d3,0x0001
0284 00d9 0002 | | .CONST 0x00d9,0x0002
0286 00db 0003 | | .CONST 0x00db,0x0003
0288 00de 0004 | | .CONST 0x00de,0x0004
028a 00e0 0005 | | .CONST 0x00e0,0x0005
028c ; --------------------------------------------------------------------------------------
028c ; Debug3 Subtable 0x7
028c ; --------------------------------------------------------------------------------------
028c 0000 0001 | | .DBG3TAB 0x0000,0x0001
028e 00eb 0001 | | .CONST 0x00eb,0x0001
0290 ; --------------------------------------------------------------------------------------
0290 ; Debug3 Subtable 0x8
0290 ; --------------------------------------------------------------------------------------
0290 0000 0002 | | .DBG3TAB 0x0000,0x0002
0292 00fb 0001 | | .CONST 0x00fb,0x0001
0294 0103 0002 | | .CONST 0x0103,0x0002
0296 ; --------------------------------------------------------------------------------------
0296 ; Debug3 Subtable 0x9
0296 ; --------------------------------------------------------------------------------------
0296 0000 0003 | | .DBG3TAB 0x0000,0x0003
0298 0113 0001 | | .CONST 0x0113,0x0001
029a 011b 0002 | | .CONST 0x011b,0x0002
029c 0122 0003 | " | .CONST 0x0122,0x0003
029e ; --------------------------------------------------------------------------------------
029e ; Debug3 Subtable 0xa
029e ; --------------------------------------------------------------------------------------
029e 0000 0001 | | .DBG3TAB 0x0000,0x0001
02a0 012b 0001 | + | .CONST 0x012b,0x0001
02a2 ; --------------------------------------------------------------------------------------
02a2 ; Debug3 Subtable 0xb
02a2 ; --------------------------------------------------------------------------------------
02a2 0000 0000 | | .DBG3TAB 0x0000,0x0000
02a4 ; --------------------------------------------------------------------------------------
02a4 ; Debug3 Subtable 0xc
02a4 ; --------------------------------------------------------------------------------------
02a4 0000 0000 | | .DBG3TAB 0x0000,0x0000
02a6 ; --------------------------------------------------------------------------------------
02a6 ; Debug3 Subtable 0xd
02a6 ; --------------------------------------------------------------------------------------
02a6 0000 0000 | | .DBG3TAB 0x0000,0x0000
02a8 0000 0000 | | .BLANK 0000[0x158]