|
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: 3072 (0xc00)
Types: SEG
Notes: 5811_R1K_CODE
Names: »125971.SEG«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »125971.SEG«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »125971.SEG«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »125971.SEG«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »125971.SEG«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »125971.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 0288 | | .CONST 0x0288 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0084 | | .CONST 0x0084 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 002a | * | .CONST 0x002a ; Number of locals
000b INIT_0008:
000b 00f0 | | Load_Encached Segment_Cache ; Debug Table 0x0 = .DEBUG 0x000b,0x0322,0xc000,0x0000,0x0036,0x0854,0x0000,0x0009
; Debug Table 0x0.0x0 = 0xb,0xffff
; Debug Table 0x0.0x1 = 0xb,0xfffe
; Debug Table 0x0.0x2 = 0xb,0xfffd
000c 0129 | ) | Execute Any,Make_Visible
000d 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible ; Debug Table 0x0.0x3 = 0xd,0xfffc
000e 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0xe,0xfffb
0010 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x10,0xfffa
0012 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x12,0xfff9
0014 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x7 = 0x14,0xfff8
0016 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x8 = 0x16,0xfff7
0018 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x9 = 0x18,0xfff6
001a 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xa = 0x1a,0xfff5
001c 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xb = 0x1c,0xfff4
001e 4804 |H | Short_Literal 0x4 ; Debug Table 0x0.0xc = 0x1e,0xfff3
001f 032b | + | Declare_Type Record,Incomplete,Visible
0020 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xd = 0x20,0xfff2
0022 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xe = 0x22,0xfff1
0024 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xf = 0x24,0xfff0
0026 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x10 = 0x26,0xffef
0028 625b |b[ | Indirect_Literal Discrete,0x284,{0x00000000, 0x36085401} ; Debug Table 0x0.0x11 = 0x28,0xffee
0029 0129 | ) | Execute Any,Make_Visible
002a 6255 |bU | Indirect_Literal Discrete,0x280,{0x00000000, 0x36085402} ; Debug Table 0x0.0x12 = 0x2a,0xffed
002b 0129 | ) | Execute Any,Make_Visible
002c 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x13 = 0x2c,0xffec
002e 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x14 = 0x2e,0xffeb
0030 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x15 = 0x30,0xffea
0032 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x0.0x16 = 0x32,0xffe9
; Debug Table 0x0.0x17 = 0x32,0xffe8
; Debug Table 0x0.0x18 = 0x32,0xffe7
; Debug Table 0x0.0x19 = 0x32,0xffe6
0033 4800 |H | Short_Literal 0x0
0034 4801 |H | Short_Literal 0x1
0035 4801 |H | Short_Literal 0x1
0036 4804 |H | Short_Literal 0x4
0037 0318 | | Declare_Type Variant_Record,Incomplete
0038 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x1a = 0x38,0xffe5
0039 02a0 | | Declare_Subprogram Null_Subprogram
003a 03ad | | Declare_Type Heap_Access,Defined
003b 03a5 | | Declare_Type Heap_Access,Indirect_Literal,Values_Relative ; Debug Table 0x0.0x1b = 0x3b,0xffe4
; Debug Table 0x0.0x1c = 0x3b,0xffe3
003c 00d9 | | Load_Top At_Offset_1
003d 00d9 | | Load_Top At_Offset_1
003e 03a2 | | Complete_Type Heap_Access,By_Renaming
003f 4801 |H | Short_Literal 0x1 ; Debug Table 0x0.0x1d = 0x3f,0xffe2
; Debug Table 0x0.0x1e = 0x3f,0xffe1
0040 0358 | X | Declare_Type Array,Incomplete
0041 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x1f = 0x41,0xffe0
0042 02a0 | | Declare_Subprogram Null_Subprogram
0043 e212 | | Load 0x1,0x12
0044 03a3 | | Complete_Type Heap_Access,By_Defining
0045 e212 | | Load 0x1,0x12 ; Debug Table 0x0.0x20 = 0x45,0xffdf
; Debug Table 0x0.0x21 = 0x45,0xffde
0046 00e3 | | Load_Encached Natural_Cache
0047 e226 | & | Load 0x1,0x26
0048 00e1 | | Load_Encached Boolean_Cache
0049 02a0 | | Declare_Subprogram Null_Subprogram
004a e21b | | Load 0x1,0x1b
004b 0326 | & | Complete_Type Record,By_Defining
004c 00bf | | Action Accept_Activation
004d 4800 |H | Short_Literal 0x0 ; Debug Table 0x1 = .DEBUG 0x004d,0x0368,0xc000,0x0000,0x0036,0x0864,0x0000,0x0005
; Debug Table 0x1.0x0 = 0x4d,0xffff
004e e20f | | Load 0x1,0xf
004f 0aff | | Execute_Immediate Plus,-0x1
0050 0248 | H | Execute Discrete,Check_In_Integer
0051 00e3 | | Load_Encached Natural_Cache
0052 03f8 | | Declare_Type Discrete,Constrained
0053 4800 |H | Short_Literal 0x0 ; Debug Table 0x1.0x1 = 0x53,0xfffe
0054 00d9 | | Load_Top At_Offset_1
0055 0269 | i | Execute Discrete,Last
0056 e227 | ' | Load 0x1,0x27
0057 02a0 | | Declare_Subprogram Null_Subprogram
0058 e228 | ( | Load 0x1,0x28
0059 0343 | C | Complete_Type Array,By_Defining
005a 00da | | Load_Top At_Offset_2 ; Debug Table 0x1.0x2 = 0x5a,0xfffd
005b e210 | | Load 0x1,0x10
005c 00e9 | | Load_Encached String_Cache
005d 029f 0243 | C| Declare_Subprogram INIT_0240,For_Call
005f 4800 |H | Short_Literal 0x0
0060 4801 |H | Short_Literal 0x1
0061 4802 |H | Short_Literal 0x2
0062 e225 | % | Load 0x1,0x25
0063 0307 | | Complete_Type Variant_Record,By_Defining
0064 029d 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call ; Debug Table 0x1.0x3 = 0x64,0xfffc
0066 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0x4 = 0x66,0xfffb
; Debug Table 0x1.0x5 = 0x66,0xfffa
; Debug Table 0x1.0x6 = 0x66,0xfff9
0067 00c7 | | Action Elaborate_Subprogram
0068 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x1.0x7 = 0x68,0xfff8
0069 00c7 | | Action Elaborate_Subprogram
006a 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x1.0x8 = 0x6a,0xfff7
006b 00c7 | | Action Elaborate_Subprogram
006c 1d16 | | Execute_Immediate Reference_Lex_1,0x16 ; Debug Table 0x1.0x9 = 0x6c,0xfff6
006d 00c7 | | Action Elaborate_Subprogram
006e 1d1a | | Execute_Immediate Reference_Lex_1,0x1a ; Debug Table 0x1.0xa = 0x6e,0xfff5
006f 00c7 | | Action Elaborate_Subprogram
0070 1d17 | | Execute_Immediate Reference_Lex_1,0x17 ; Debug Table 0x1.0xb = 0x70,0xfff4
0071 00c7 | | Action Elaborate_Subprogram
0072 1d18 | | Execute_Immediate Reference_Lex_1,0x18 ; Debug Table 0x1.0xc = 0x72,0xfff3
0073 00c7 | | Action Elaborate_Subprogram
0074 1d19 | | Execute_Immediate Reference_Lex_1,0x19 ; Debug Table 0x1.0xd = 0x74,0xfff2
0075 00c7 | | Action Elaborate_Subprogram
0076 1d1c | | Execute_Immediate Reference_Lex_1,0x1c ; Debug Table 0x1.0xe = 0x76,0xfff1
0077 00c7 | | Action Elaborate_Subprogram
0078 1d1d | | Execute_Immediate Reference_Lex_1,0x1d ; Debug Table 0x1.0xf = 0x78,0xfff0
0079 00c7 | | Action Elaborate_Subprogram
007a 1d1e | | Execute_Immediate Reference_Lex_1,0x1e ; Debug Table 0x1.0x10 = 0x7a,0xffef
007b 00c7 | | Action Elaborate_Subprogram
007c 1d1f | | Execute_Immediate Reference_Lex_1,0x1f ; Debug Table 0x1.0x11 = 0x7c,0xffee
007d 00c7 | | Action Elaborate_Subprogram
007e 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 ; Debug Table 0x1.0x12 = 0x7e,0xffed
007f 00c7 | | Action Elaborate_Subprogram
0080 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 ; Debug Table 0x1.0x13 = 0x80,0xffec
0081 00c7 | | Action Elaborate_Subprogram
0082 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 ; Debug Table 0x1.0x14 = 0x82,0xffeb
0083 00c7 | | Action Elaborate_Subprogram
0084 BODY_0008:
0084 00bc | | Action Signal_Activated
0085 00bb | | Action Signal_Completion
0086 0000 0000 | | .XXX[0x2]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 0099 | | .CONST 0x0099 ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0002 | | .CONST 0x0002 ; Number of locals
008b INIT_0088:
008b e227 | ' | Load 0x1,0x27 ; Debug Table 0x2 = .DEBUG 0x008b,0x0394,0x1002,0x0000,0x0036,0x0854,0x0000,0x0030
; Debug Table 0x2.0x0 = 0x8b,0xffff
008c e5fe | | Load 0x2,-0x2
008d e5fe | | Load 0x2,-0x2 ; Debug Table 0x2.0x1 = 0x8d,0x401
008e e001 | | Load 0x0,0x1
008f 180d | | Execute Package,Field_Execute,Field_Number 0xd
0090 e20f | | Load 0x1,0xf
0091 026e | n | Execute Discrete,Modulo
0092 e229 | ) | Load 0x1,0x29
0093 025b | [ | Execute Discrete,Check_In_Type
0094 e5ff | | Load 0x2,-0x1 ; Debug Table 0x2.0x2 = 0x94,0xffff
0095 0217 | | Execute Heap_Access,All_Reference
0096 01d7 | | Execute Vector,Field_Read
0097 822a | * | Call 0x1,0x2a
0098 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0099 BODY_0088:
0099 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x3 = 0x99,0x1
009a 680b |h | Jump_Zero 0xa6
009b 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x4 = 0x9b,0x2
009c 0217 | | Execute Heap_Access,All_Reference
009d 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
009e 00d8 | | Load_Top At_Offset_0
009f 0120 | | Execute Any,Is_Value
00a0 7002 |p | Jump_Nonzero 0xa3
00a1 00d8 | | Load_Top At_Offset_0
00a2 011e | | Execute Any,Convert
00a3 e210 | | Load 0x1,0x10
00a4 0119 | | Execute Any,Check_In_Formal_Type
00a5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00a6 e220 | | Load 0x1,0x20 ; Debug Table 0x2.0x5 = 0xa6,0x3
00a7 0257 | W | Execute Discrete,Raise
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00b9 | | .CONST 0x00b9 ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0002 | | .CONST 0x0002 ; Number of locals
00ab INIT_00a8:
00ab e227 | ' | Load 0x1,0x27 ; Debug Table 0x3 = .DEBUG 0x00ab,0x03a2,0x1001,0x0000,0x0036,0x0854,0x0000,0x003d
; Debug Table 0x3.0x0 = 0xab,0xffff
00ac e5fe | | Load 0x2,-0x2
00ad e5fe | | Load 0x2,-0x2 ; Debug Table 0x3.0x1 = 0xad,0x401
00ae e001 | | Load 0x0,0x1
00af 180d | | Execute Package,Field_Execute,Field_Number 0xd
00b0 e20f | | Load 0x1,0xf
00b1 026e | n | Execute Discrete,Modulo
00b2 e229 | ) | Load 0x1,0x29
00b3 025b | [ | Execute Discrete,Check_In_Type
00b4 e5ff | | Load 0x2,-0x1 ; Debug Table 0x3.0x2 = 0xb4,0xffff
00b5 0217 | | Execute Heap_Access,All_Reference
00b6 01d7 | | Execute Vector,Field_Read
00b7 822a | * | Call 0x1,0x2a
00b8 0031 | 1 | Store_Top Heap_Access,At_Offset_1
00b9 BODY_00a8:
00b9 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x3 = 0xb9,0x1
00ba 6807 |h | Jump_Zero 0xc2
00bb 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x4 = 0xbb,0x2
00bc 0217 | | Execute Heap_Access,All_Reference
00bd 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
00be c5fd | | Store 0x2,-0x3
00bf 4801 |H | Short_Literal 0x1 ; Debug Table 0x3.0x5 = 0xbf,0x3
00c0 a5fc | | Store_Unchecked 0x2,-0x4
00c1 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00c2 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0x6 = 0xc2,0x4
00c3 a5fc | | Store_Unchecked 0x2,-0x4
00c4 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00c5 0000 0000 | | .XXX[0x3]
00c7 0000 | |
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00dd | | .CONST 0x00dd ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0004 | | .CONST 0x0004 ; Number of locals
00cb INIT_00c8:
00cb 00da | | Load_Top At_Offset_2 ; Debug Table 0x4 = .DEBUG 0x00cb,0x03b2,0x1001,0x0000,0x0036,0x0854,0x0000,0x0051
; Debug Table 0x4.0x0 = 0xcb,0xffff
; Debug Table 0x4.0x1 = 0xcb,0x401
00cc e001 | | Load 0x0,0x1
00cd 180d | | Execute Package,Field_Execute,Field_Number 0xd
00ce e20f | | Load 0x1,0xf
00cf 026e | n | Execute Discrete,Modulo
00d0 e229 | ) | Load 0x1,0x29
00d1 025b | [ | Execute Discrete,Check_In_Type
00d2 e5fc | | Load 0x2,-0x4 ; Debug Table 0x4.0x2 = 0xd2,0xffff
00d3 0217 | | Execute Heap_Access,All_Reference
00d4 01d5 | | Execute Vector,Field_Reference
00d5 e227 | ' | Load 0x1,0x27 ; Debug Table 0x4.0x3 = 0xd5,0xfffe
00d6 00d9 | | Load_Top At_Offset_1
00d7 0031 | 1 | Store_Top Heap_Access,At_Offset_1
00d8 e227 | ' | Load 0x1,0x27 ; Debug Table 0x4.0x4 = 0xd8,0xfffd
00d9 e5ff | | Load 0x2,-0x1
00da 00da | | Load_Top At_Offset_2
00db 822a | * | Call 0x1,0x2a
00dc 0031 | 1 | Store_Top Heap_Access,At_Offset_1
00dd BODY_00c8:
00dd 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x5 = 0xdd,0x1
00de 7018 |p | Jump_Nonzero 0xf7
00df e5ff | | Load 0x2,-0x1 ; Debug Table 0x4.0x6 = 0xdf,0x2
00e0 01db | | Execute Vector,Length
00e1 e225 | % | Load 0x1,0x25
00e2 1c08 | | Execute_Immediate Run_Utility,0x8
00e3 e227 | ' | Load 0x1,0x27
00e4 e5fc | | Load 0x2,-0x4
00e5 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
00e6 00d8 | | Load_Top At_Offset_0
00e7 0217 | | Execute Heap_Access,All_Reference
00e8 1c00 | | Execute_Immediate Run_Utility,0x0
00e9 a402 | | Store_Unchecked 0x2,0x2
00ea 00da | | Load_Top At_Offset_2 ; Debug Table 0x4.0x7 = 0xea,0x3
; Debug Table 0x4.0x8 = 0xea,0x4
; Debug Table 0x4.0x9 = 0xea,0xf7ff
00eb 0217 | | Execute Heap_Access,All_Reference
00ec 00da | | Load_Top At_Offset_2 ; Debug Table 0x4.0xa = 0xec,0x801
00ed 00d9 | | Load_Top At_Offset_1
00ee 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00ef e5fe | | Load 0x2,-0x2 ; Debug Table 0x4.0xb = 0xef,0x802
00f0 00d9 | | Load_Top At_Offset_1
00f1 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
00f2 e5ff | | Load 0x2,-0x1 ; Debug Table 0x4.0xc = 0xf2,0x803
00f3 00d9 | | Load_Top At_Offset_1
00f4 2904 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
00f5 00d1 | | Pop_Control Pop_Count_1
00f6 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00f7 e5fd | | Load 0x2,-0x3 ; Debug Table 0x4.0xd = 0xf7,0x5
00f8 6802 |h | Jump_Zero 0xfb
00f9 e221 | ! | Load 0x1,0x21 ; Debug Table 0x4.0xe = 0xf9,0x6
00fa 0257 | W | Execute Discrete,Raise
00fb e5fe | | Load 0x2,-0x2 ; Debug Table 0x4.0xf = 0xfb,0x7
00fc 00d9 | | Load_Top At_Offset_1
00fd 0217 | | Execute Heap_Access,All_Reference
00fe 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
00ff 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0113 | | .CONST 0x0113 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0004 | | .CONST 0x0004 ; Number of locals
0103 INIT_0100:
0103 00da | | Load_Top At_Offset_2 ; Debug Table 0x5 = .DEBUG 0x0103,0x03d4,0x1001,0x0000,0x0036,0x0854,0x0000,0x0066
; Debug Table 0x5.0x0 = 0x103,0xffff
; Debug Table 0x5.0x1 = 0x103,0x401
0104 e001 | | Load 0x0,0x1
0105 180d | | Execute Package,Field_Execute,Field_Number 0xd
0106 e20f | | Load 0x1,0xf
0107 026e | n | Execute Discrete,Modulo
0108 e229 | ) | Load 0x1,0x29
0109 025b | [ | Execute Discrete,Check_In_Type
010a e229 | ) | Load 0x1,0x29 ; Debug Table 0x5.0x2 = 0x10a,0xffff
010b 03f1 | | Declare_Variable Discrete,With_Value
010c e227 | ' | Load 0x1,0x27 ; Debug Table 0x5.0x3 = 0x10c,0xfffe
010d 00d9 | | Load_Top At_Offset_1
010e e5fe | | Load 0x2,-0x2
010f 0217 | | Execute Heap_Access,All_Reference
0110 01d7 | | Execute Vector,Field_Read
0111 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0112 e227 | ' | Load 0x1,0x27 ; Debug Table 0x5.0x4 = 0x112,0xfffd
0113 BODY_0100:
0113 781d |x | Jump 0x131
0114 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x5.0x5 = 0x114,0x2
0115 0217 | | Execute Heap_Access,All_Reference
0116 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0117 e5ff | | Load 0x2,-0x1
0118 01df | | Execute Vector,Equal
0119 6811 |h | Jump_Zero 0x12b
011a 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0x6 = 0x11a,0x3
011b 6807 |h | Jump_Zero 0x123
011c 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x5.0x7 = 0x11c,0x4
011d 0217 | | Execute Heap_Access,All_Reference
011e 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
011f 00d9 | | Load_Top At_Offset_1
0120 0217 | | Execute Heap_Access,All_Reference
0121 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0122 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0123 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x5.0x8 = 0x123,0x5
0124 0217 | | Execute Heap_Access,All_Reference
0125 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0126 00db | | Load_Top At_Offset_3
0127 e5fe | | Load 0x2,-0x2
0128 0217 | | Execute Heap_Access,All_Reference
0129 01d6 | | Execute Vector,Field_Write
012a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0x5.0x9 = 0x12a,0x6
012b 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x5.0xa = 0x12b,0x7
012c 0031 | 1 | Store_Top Heap_Access,At_Offset_1
012d 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x5.0xb = 0x12d,0x8
012e 0217 | | Execute Heap_Access,All_Reference
012f 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0130 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0131 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x5.0xc = 0x131,0x1
0132 77e1 |w | Jump_Nonzero 0x114
0133 e220 | | Load 0x1,0x20 ; Debug Table 0x5.0xd = 0x133,0x9
0134 0257 | W | Execute Discrete,Raise
0135 0000 0000 | | .XXX[0x3]
0137 0000 | |
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b | ; | .CONST 0x013b ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0001 | | .CONST 0x0001 ; Number of locals
013b BODY_0138:
013b INIT_0138:
013b e212 | | Load 0x1,0x12 ; Debug Table 0x6 = .DEBUG 0x013b,0x03f2,0x1001,0x0000,0x0036,0x0854,0x0000,0x0072
; Debug Table 0x6.0x0 = 0x13b,0x1
013c 00db | | Load_Top At_Offset_3
013d 039c | | Declare_Variable Heap_Access,By_Allocation
013e a5fd | | Store_Unchecked 0x2,-0x3
013f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; Debug Table 0x6.0x1 = 0x13f,0x2
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0145 | E | .CONST 0x0145 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0002 | | .CONST 0x0002 ; Number of locals
0143 INIT_0140:
0143 e21b | | Load 0x1,0x1b ; Debug Table 0x7 = .DEBUG 0x0143,0x03f8,0x1002,0x0000,0x0036,0x0854,0x0000,0x0083
; Debug Table 0x7.0x0 = 0x143,0xffff
0144 0322 | " | Declare_Variable Record
0145 BODY_0140:
0145 e229 | ) | Load 0x1,0x29 ; Debug Table 0x7.0x1 = 0x145,0x1
0146 0269 | i | Execute Discrete,Last
0147 4800 |H | Short_Literal 0x0
0148 0263 | c | Execute Discrete,Above_Bound
0149 7008 |p | Jump_Nonzero 0x152
014a 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0x2 = 0x14a,0x2
014b e5ff | | Load 0x2,-0x1
014c 0217 | | Execute Heap_Access,All_Reference
014d 01d7 | | Execute Vector,Field_Read
014e 6802 |h | Jump_Zero 0x151
014f 4800 |H | Short_Literal 0x0 ; Debug Table 0x7.0x3 = 0x14f,0x3
0150 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0151 3ff8 |? | Loop_Increasing 0x14a
0152 4801 |H | Short_Literal 0x1 ; Debug Table 0x7.0x4 = 0x152,0x4
0153 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0154 0000 0000 | | .BLANK 0000[0x4]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b | [ | .CONST 0x015b ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0001 | | .CONST 0x0001 ; Number of locals
015b BODY_0158:
015b INIT_0158:
015b e229 | ) | Load 0x1,0x29 ; Debug Table 0x8 = .DEBUG 0x015b,0x0404,0x1001,0x0000,0x0036,0x0854,0x0000,0x008c
; Debug Table 0x8.0x0 = 0x15b,0x1
015c 0269 | i | Execute Discrete,Last
015d 4800 |H | Short_Literal 0x0
015e 0263 | c | Execute Discrete,Above_Bound
015f 7006 |p | Jump_Nonzero 0x166
0160 e227 | ' | Load 0x1,0x27 ; Debug Table 0x8.0x1 = 0x160,0x2
0161 00d9 | | Load_Top At_Offset_1
0162 e5ff | | Load 0x2,-0x1
0163 0217 | | Execute Heap_Access,All_Reference
0164 01d6 | | Execute Vector,Field_Write
0165 3ffa |? | Loop_Increasing 0x160
0166 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0167 0000 | | .XXX[0x1]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016d | m | .CONST 0x016d ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0003 | | .CONST 0x0003 ; Number of locals
016b INIT_0168:
016b e227 | ' | Load 0x1,0x27 ; Debug Table 0x9 = .DEBUG 0x016b,0x040a,0x1001,0x0000,0x0036,0x0854,0x0000,0x0094
; Debug Table 0x9.0x0 = 0x16b,0xffff
016c e227 | ' | Load 0x1,0x27 ; Debug Table 0x9.0x1 = 0x16c,0xfffe
016d BODY_0168:
016d e229 | ) | Load 0x1,0x29 ; Debug Table 0x9.0x2 = 0x16d,0x1
016e 0269 | i | Execute Discrete,Last
016f 4800 |H | Short_Literal 0x0
0170 0263 | c | Execute Discrete,Above_Bound
0171 7040 |p@ | Jump_Nonzero 0x1b2
0172 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x3 = 0x172,0x2
0173 e5ff | | Load 0x2,-0x1
0174 0217 | | Execute Heap_Access,All_Reference
0175 01d7 | | Execute Vector,Field_Read
0176 a402 | | Store_Unchecked 0x2,0x2
0177 e227 | ' | Load 0x1,0x27 ; Debug Table 0x9.0x4 = 0x177,0x3
0178 00d9 | | Load_Top At_Offset_1
0179 e5fe | | Load 0x2,-0x2
017a 0217 | | Execute Heap_Access,All_Reference
017b 01d6 | | Execute Vector,Field_Write
017c 7832 |x2 | Jump 0x1af
017d 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x5 = 0x17d,0x5
017e e5fe | | Load 0x2,-0x2
017f 0217 | | Execute Heap_Access,All_Reference
0180 01d7 | | Execute Vector,Field_Read
0181 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0182 00db | | Load_Top At_Offset_3 ; Debug Table 0x9.0x6 = 0x182,0x6
0183 0217 | | Execute Heap_Access,All_Reference
0184 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0185 01db | | Execute Vector,Length
0186 e225 | % | Load 0x1,0x25
0187 1c08 | | Execute_Immediate Run_Utility,0x8
0188 e227 | ' | Load 0x1,0x27
0189 e5fe | | Load 0x2,-0x2
018a 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
018b 00d8 | | Load_Top At_Offset_0
018c 0217 | | Execute Heap_Access,All_Reference
018d 1c00 | | Execute_Immediate Run_Utility,0x0
018e 00d9 | | Load_Top At_Offset_1
018f e5fe | | Load 0x2,-0x2
0190 0217 | | Execute Heap_Access,All_Reference
0191 01d6 | | Execute Vector,Field_Write
0192 00db | | Load_Top At_Offset_3 ; Debug Table 0x9.0x7 = 0x192,0x7
; Debug Table 0x9.0x8 = 0x192,0x8
0193 0217 | | Execute Heap_Access,All_Reference
0194 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0195 00d9 | | Load_Top At_Offset_1
0196 e5fe | | Load 0x2,-0x2
0197 0217 | | Execute Heap_Access,All_Reference
0198 01d7 | | Execute Vector,Field_Read
0199 0217 | | Execute Heap_Access,All_Reference
019a 2904 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
019b 00db | | Load_Top At_Offset_3 ; Debug Table 0x9.0x9 = 0x19b,0x9
019c 0217 | | Execute Heap_Access,All_Reference
019d 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
019e 00d9 | | Load_Top At_Offset_1
019f e5fe | | Load 0x2,-0x2
01a0 0217 | | Execute Heap_Access,All_Reference
01a1 01d7 | | Execute Vector,Field_Read
01a2 0217 | | Execute Heap_Access,All_Reference
01a3 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
01a4 00da | | Load_Top At_Offset_2 ; Debug Table 0x9.0xa = 0x1a4,0xa
01a5 00d9 | | Load_Top At_Offset_1
01a6 e5fe | | Load 0x2,-0x2
01a7 0217 | | Execute Heap_Access,All_Reference
01a8 01d7 | | Execute Vector,Field_Read
01a9 0217 | | Execute Heap_Access,All_Reference
01aa 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01ab 00db | | Load_Top At_Offset_3 ; Debug Table 0x9.0xb = 0x1ab,0xb
01ac 0217 | | Execute Heap_Access,All_Reference
01ad 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01ae a402 | | Store_Unchecked 0x2,0x2
01af 00db | | Load_Top At_Offset_3 ; Debug Table 0x9.0xc = 0x1af,0x4
01b0 77cc |w | Jump_Nonzero 0x17d
01b1 3fc0 |? | Loop_Increasing 0x172
01b2 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01b3 0000 0000 | | .BLANK 0000[0x5]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bd | | .CONST 0x01bd ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0002 | | .CONST 0x0002 ; Number of locals
01bb INIT_01b8:
01bb e21b | | Load 0x1,0x1b ; Debug Table 0xa = .DEBUG 0x01bb,0x0426,0x1001,0x0000,0x0036,0x0854,0x0000,0x00a4
; Debug Table 0xa.0x0 = 0x1bb,0xffff
01bc 0322 | " | Declare_Variable Record
01bd BODY_01b8:
01bd 00db | | Load_Top At_Offset_3 ; Debug Table 0xa.0x1 = 0x1bd,0x1
01be 7004 |p | Jump_Nonzero 0x1c3
01bf 4801 |H | Short_Literal 0x1 ; Debug Table 0xa.0x2 = 0x1bf,0x2
01c0 e5fe | | Load 0x2,-0x2
01c1 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
01c2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0xa.0x3 = 0x1c2,0x3
01c3 e229 | ) | Load 0x1,0x29 ; Debug Table 0xa.0x4 = 0x1c3,0x4
01c4 0269 | i | Execute Discrete,Last
01c5 4800 |H | Short_Literal 0x0
01c6 0263 | c | Execute Discrete,Above_Bound
01c7 7017 |p | Jump_Nonzero 0x1df
01c8 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xa.0x5 = 0x1c8,0x5
01c9 e5ff | | Load 0x2,-0x1
01ca 0217 | | Execute Heap_Access,All_Reference
01cb 01d7 | | Execute Vector,Field_Read
01cc 00db | | Load_Top At_Offset_3
01cd 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01ce 00da | | Load_Top At_Offset_2 ; Debug Table 0xa.0x6 = 0x1ce,0x6
01cf 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01d0 680d |h | Jump_Zero 0x1de
01d1 4800 |H | Short_Literal 0x0 ; Debug Table 0xa.0x7 = 0x1d1,0x7
01d2 00db | | Load_Top At_Offset_3
01d3 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
01d4 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xa.0x8 = 0x1d4,0x8
01d5 00db | | Load_Top At_Offset_3
01d6 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01d7 e5ff | | Load 0x2,-0x1 ; Debug Table 0xa.0x9 = 0x1d7,0x9
01d8 00db | | Load_Top At_Offset_3
01d9 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01da 00da | | Load_Top At_Offset_2 ; Debug Table 0xa.0xa = 0x1da,0xa
01db e5fe | | Load 0x2,-0x2
01dc 017d | } | Execute Record,Structure_Write
01dd 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0xa.0xb = 0x1dd,0xb
01de 3fe9 |? | Loop_Increasing 0x1c8
01df 4801 |H | Short_Literal 0x1 ; Debug Table 0xa.0xc = 0x1df,0xc
01e0 00d9 | | Load_Top At_Offset_1
01e1 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
01e2 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xa.0xd = 0x1e2,0xd
01e3 e5fe | | Load 0x2,-0x2
01e4 017d | } | Execute Record,Structure_Write
01e5 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01e6 0000 0000 | | .XXX[0x2]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb | | .CONST 0x01eb ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0001 | | .CONST 0x0001 ; Number of locals
01eb BODY_01e8:
01eb INIT_01e8:
01eb 00da | | Load_Top At_Offset_2 ; Debug Table 0xb = .DEBUG 0x01eb,0x0444,0x1001,0x0000,0x0036,0x0854,0x0000,0x00b0
; Debug Table 0xb.0x0 = 0x1eb,0x1
01ec 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01ed 0217 | | Execute Heap_Access,All_Reference
01ee 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01ef 00db | | Load_Top At_Offset_3
01f0 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01f1 7817 |x | Jump 0x209
01f2 00da | | Load_Top At_Offset_2 ; Debug Table 0xb.0x1 = 0x1f2,0x3
01f3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01f4 e229 | ) | Load 0x1,0x29
01f5 0269 | i | Execute Discrete,Last
01f6 027f | | Execute Discrete,Equal
01f7 6804 |h | Jump_Zero 0x1fc
01f8 4801 |H | Short_Literal 0x1 ; Debug Table 0xb.0x2 = 0x1f8,0x4
01f9 00db | | Load_Top At_Offset_3
01fa 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
01fb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; Debug Table 0xb.0x3 = 0x1fb,0x5
01fc 00da | | Load_Top At_Offset_2 ; Debug Table 0xb.0x4 = 0x1fc,0x6
01fd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01fe 0a01 | | Execute_Immediate Plus,0x1
01ff 00db | | Load_Top At_Offset_3
0200 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0201 00da | | Load_Top At_Offset_2 ; Debug Table 0xb.0x5 = 0x201,0x7
0202 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0203 00db | | Load_Top At_Offset_3
0204 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0205 0217 | | Execute Heap_Access,All_Reference
0206 01d7 | | Execute Vector,Field_Read
0207 00db | | Load_Top At_Offset_3
0208 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0209 00da | | Load_Top At_Offset_2 ; Debug Table 0xb.0x6 = 0x209,0x2
020a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
020b 6fe6 |o | Jump_Zero 0x1f2
020c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
020d 0000 0000 | | .XXX[0x3]
020f 0000 | |
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213 | | .CONST 0x0213 ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0001 | | .CONST 0x0001 ; Number of locals
0213 BODY_0210:
0213 INIT_0210:
0213 00da | | Load_Top At_Offset_2 ; Debug Table 0xc = .DEBUG 0x0213,0x0454,0x1002,0x0000,0x0036,0x0854,0x0000,0x00b8
; Debug Table 0xc.0x0 = 0x213,0x1
0214 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0215 0217 | | Execute Heap_Access,All_Reference
0216 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0217 0335 | 5 | Declare_Variable Array,Duplicate
0218 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0219 0000 0000 | | .BLANK 0000[0x7]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223 | # | .CONST 0x0223 ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0001 | | .CONST 0x0001 ; Number of locals
0223 BODY_0220:
0223 INIT_0220:
0223 00da | | Load_Top At_Offset_2 ; Debug Table 0xd = .DEBUG 0x0223,0x0458,0x1002,0x0000,0x0036,0x0854,0x0000,0x00c1
; Debug Table 0xd.0x0 = 0x223,0x1
0224 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0225 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0226 0000 0000 | | .XXX[0x2]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022b | + | .CONST 0x022b ; Address of begin
0229 0004 | | .CONST 0x0004 ; Address of exception handler
022a 0001 | | .CONST 0x0001 ; Number of locals
022b BODY_0228:
022b INIT_0228:
022b e212 | | Load 0x1,0x12 ; Debug Table 0xe = .DEBUG 0x022b,0x045c,0x1002,0x0000,0x0036,0x0854,0x0000,0x00d0
; Debug Table 0xe.0x0 = 0x22b,0x1
022c 00ca | | Action Exit_Nullary_Function
022d 0000 0000 | | .XXX[0x3]
022f 0000 | |
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233 | 3 | .CONST 0x0233 ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0001 | | .CONST 0x0001 ; Number of locals
0233 BODY_0230:
0233 INIT_0230:
0233 00da | | Load_Top At_Offset_2 ; Debug Table 0xf = .DEBUG 0x0233,0x0460,0x1002,0x0000,0x0036,0x0854,0x0000,0x00d5
; Debug Table 0xf.0x0 = 0x233,0x1
0234 021d | | Execute Heap_Access,Is_Null
0235 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0236 0000 0000 | | .XXX[0x2]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023b | ; | .CONST 0x023b ; Address of begin
0239 0004 | | .CONST 0x0004 ; Address of exception handler
023a 0001 | | .CONST 0x0001 ; Number of locals
023b BODY_0238:
023b INIT_0238:
023b 48e2 |H | Short_Literal 0xe2 ; Debug Table 0x10 = .DEBUG 0x023b,0x0464,0x1002,0x0000,0x0036,0x0854,0x0000,0x00de
; Debug Table 0x10.0x0 = 0x23b,0x1
023c 0257 | W | Execute Discrete,Raise
023d 0000 0000 | | .XXX[0x3]
023f 0000 | |
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243 | C | .CONST 0x0243 ; Address of begin
0241 0004 | | .CONST 0x0004 ; Address of exception handler
0242 0001 | | .CONST 0x0001 ; Number of locals
0243 BODY_0240:
0243 INIT_0240:
0243 4608 |F | Jump_Case 0x9 ; Debug Table 0x11 = .DEBUG 0x0243,0x0468,0x1005,0x0000,0x0036,0x0864,0x0000,0x001a
0244 7808 |x | Jump 0x24d ; case 0x0
0245 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0246 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
0247 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0248 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
0249 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
024a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6
024b 7807 |x | Jump 0x253 ; case 0x7
024c 780f |x | Jump 0x25c ; case 0x8
024d 00da | | Load_Top At_Offset_2
024e 2203 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x3
024f 00da | | Load_Top At_Offset_2
0250 2403 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x3
0251 1c00 | | Execute_Immediate Run_Utility,0x0
0252 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0253 00db | | Load_Top At_Offset_3
0254 4801 |H | Short_Literal 0x1
0255 e5fe | | Load 0x2,-0x2
0256 00e9 | | Load_Encached String_Cache
0257 035b | [ | Declare_Type Array,Constrained
0258 4801 |H | Short_Literal 0x1
0259 e5ff | | Load 0x2,-0x1
025a 031b | | Declare_Type Variant_Record,Constrained
025b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
025c 00db | | Load_Top At_Offset_3
025d 00db | | Load_Top At_Offset_3
025e 02fc | | Declare_Variable Variant_Record,With_Constraint
025f 4801 |H | Short_Literal 0x1
0260 e5fe | | Load 0x2,-0x2
0261 00e9 | | Load_Encached String_Cache
0262 0334 | 4 | Declare_Variable Array,With_Constraint
0263 2d04 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x4
0264 016a | j | QQ_execute Variant_Record,XXX
0265 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0266 0000 0000 | | .XXX[0x2]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026e | n | .CONST 0x026e ; Address of begin
0269 0004 | | .CONST 0x0004 ; Address of exception handler
026a 0002 | | .CONST 0x0002 ; Number of locals
026b INIT_0268:
026b e227 | ' | Load 0x1,0x27 ; Debug Table 0x12 = .DEBUG 0x026b,0x046a,0x1002,0x0000,0x0036,0x0864,0x0000,0x0035
; Debug Table 0x12.0x0 = 0x26b,0xffff
026c 00db | | Load_Top At_Offset_3
026d 0031 | 1 | Store_Top Heap_Access,At_Offset_1
026e BODY_0268:
026e 780c |x | Jump 0x27b
026f 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x12.0x1 = 0x26f,0x2
0270 0217 | | Execute Heap_Access,All_Reference
0271 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0272 e5fe | | Load 0x2,-0x2
0273 01df | | Execute Vector,Equal
0274 6802 |h | Jump_Zero 0x277
0275 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x12.0x2 = 0x275,0x3
0276 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0277 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x12.0x3 = 0x277,0x4
0278 0217 | | Execute Heap_Access,All_Reference
0279 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
027a 0031 | 1 | Store_Top Heap_Access,At_Offset_1
027b 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x12.0x4 = 0x27b,0x1
027c 77f2 |w | Jump_Nonzero 0x26f
027d e227 | ' | Load 0x1,0x27 ; Debug Table 0x12.0x5 = 0x27d,0x5
027e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
027f 0000 | | .XXX[0x1]
0280 0000 0000 | | .LITERAL {0x00000000, 0x36085402}
0284 0000 0000 | | .LITERAL {0x00000000, 0x36085401}
0288 ; --------------------------------------------------------------------------------------
0288 ; Debug Table
0288 ; --------------------------------------------------------------------------------------
0288 0003 0013 | | .CONST 0x0003,0x0013
028a 000b 0322 | "| .DEBUG 0x000b,0x0322,0xc000,0x0000,0x0036,0x0854,0x0000,0x0009
0292 004d 0368 | M h| .DEBUG 0x004d,0x0368,0xc000,0x0000,0x0036,0x0864,0x0000,0x0005
029a 008b 0394 | | .DEBUG 0x008b,0x0394,0x1002,0x0000,0x0036,0x0854,0x0000,0x0030
02a2 00ab 03a2 | | .DEBUG 0x00ab,0x03a2,0x1001,0x0000,0x0036,0x0854,0x0000,0x003d
02aa 00cb 03b2 | | .DEBUG 0x00cb,0x03b2,0x1001,0x0000,0x0036,0x0854,0x0000,0x0051
02b2 0103 03d4 | | .DEBUG 0x0103,0x03d4,0x1001,0x0000,0x0036,0x0854,0x0000,0x0066
02ba 013b 03f2 | ; | .DEBUG 0x013b,0x03f2,0x1001,0x0000,0x0036,0x0854,0x0000,0x0072
02c2 0143 03f8 | C | .DEBUG 0x0143,0x03f8,0x1002,0x0000,0x0036,0x0854,0x0000,0x0083
02ca 015b 0404 | [ | .DEBUG 0x015b,0x0404,0x1001,0x0000,0x0036,0x0854,0x0000,0x008c
02d2 016b 040a | k | .DEBUG 0x016b,0x040a,0x1001,0x0000,0x0036,0x0854,0x0000,0x0094
02da 01bb 0426 | &| .DEBUG 0x01bb,0x0426,0x1001,0x0000,0x0036,0x0854,0x0000,0x00a4
02e2 01eb 0444 | D| .DEBUG 0x01eb,0x0444,0x1001,0x0000,0x0036,0x0854,0x0000,0x00b0
02ea 0213 0454 | T| .DEBUG 0x0213,0x0454,0x1002,0x0000,0x0036,0x0854,0x0000,0x00b8
02f2 0223 0458 | # X| .DEBUG 0x0223,0x0458,0x1002,0x0000,0x0036,0x0854,0x0000,0x00c1
02fa 022b 045c | + \| .DEBUG 0x022b,0x045c,0x1002,0x0000,0x0036,0x0854,0x0000,0x00d0
0302 0233 0460 | 3 `| .DEBUG 0x0233,0x0460,0x1002,0x0000,0x0036,0x0854,0x0000,0x00d5
030a 023b 0464 | ; d| .DEBUG 0x023b,0x0464,0x1002,0x0000,0x0036,0x0854,0x0000,0x00de
0312 0243 0468 | C h| .DEBUG 0x0243,0x0468,0x1005,0x0000,0x0036,0x0864,0x0000,0x001a
031a 026b 046a | k j| .DEBUG 0x026b,0x046a,0x1002,0x0000,0x0036,0x0864,0x0000,0x0035
0322 ; --------------------------------------------------------------------------------------
0322 ; Debug3 Subtable 0x0
0322 ; --------------------------------------------------------------------------------------
0322 0022 0000 | " | .DBG3TAB 0x0022,0x0000
0324 000b ffff | | .CONST 0x000b,0xffff
0326 000b fffe | | .CONST 0x000b,0xfffe
0328 000b fffd | | .CONST 0x000b,0xfffd
032a 000d fffc | | .CONST 0x000d,0xfffc
032c 000e fffb | | .CONST 0x000e,0xfffb
032e 0010 fffa | | .CONST 0x0010,0xfffa
0330 0012 fff9 | | .CONST 0x0012,0xfff9
0332 0014 fff8 | | .CONST 0x0014,0xfff8
0334 0016 fff7 | | .CONST 0x0016,0xfff7
0336 0018 fff6 | | .CONST 0x0018,0xfff6
0338 001a fff5 | | .CONST 0x001a,0xfff5
033a 001c fff4 | | .CONST 0x001c,0xfff4
033c 001e fff3 | | .CONST 0x001e,0xfff3
033e 0020 fff2 | | .CONST 0x0020,0xfff2
0340 0022 fff1 | " | .CONST 0x0022,0xfff1
0342 0024 fff0 | $ | .CONST 0x0024,0xfff0
0344 0026 ffef | & | .CONST 0x0026,0xffef
0346 0028 ffee | ( | .CONST 0x0028,0xffee
0348 002a ffed | * | .CONST 0x002a,0xffed
034a 002c ffec | , | .CONST 0x002c,0xffec
034c 002e ffeb | . | .CONST 0x002e,0xffeb
034e 0030 ffea | 0 | .CONST 0x0030,0xffea
0350 0032 ffe9 | 2 | .CONST 0x0032,0xffe9
0352 0032 ffe8 | 2 | .CONST 0x0032,0xffe8
0354 0032 ffe7 | 2 | .CONST 0x0032,0xffe7
0356 0032 ffe6 | 2 | .CONST 0x0032,0xffe6
0358 0038 ffe5 | 8 | .CONST 0x0038,0xffe5
035a 003b ffe4 | ; | .CONST 0x003b,0xffe4
035c 003b ffe3 | ; | .CONST 0x003b,0xffe3
035e 003f ffe2 | ? | .CONST 0x003f,0xffe2
0360 003f ffe1 | ? | .CONST 0x003f,0xffe1
0362 0041 ffe0 | A | .CONST 0x0041,0xffe0
0364 0045 ffdf | E | .CONST 0x0045,0xffdf
0366 0045 ffde | E | .CONST 0x0045,0xffde
0368 ; --------------------------------------------------------------------------------------
0368 ; Debug3 Subtable 0x1
0368 ; --------------------------------------------------------------------------------------
0368 0015 0000 | | .DBG3TAB 0x0015,0x0000
036a 004d ffff | M | .CONST 0x004d,0xffff
036c 0053 fffe | S | .CONST 0x0053,0xfffe
036e 005a fffd | Z | .CONST 0x005a,0xfffd
0370 0064 fffc | d | .CONST 0x0064,0xfffc
0372 0066 fffb | f | .CONST 0x0066,0xfffb
0374 0066 fffa | f | .CONST 0x0066,0xfffa
0376 0066 fff9 | f | .CONST 0x0066,0xfff9
0378 0068 fff8 | h | .CONST 0x0068,0xfff8
037a 006a fff7 | j | .CONST 0x006a,0xfff7
037c 006c fff6 | l | .CONST 0x006c,0xfff6
037e 006e fff5 | n | .CONST 0x006e,0xfff5
0380 0070 fff4 | p | .CONST 0x0070,0xfff4
0382 0072 fff3 | r | .CONST 0x0072,0xfff3
0384 0074 fff2 | t | .CONST 0x0074,0xfff2
0386 0076 fff1 | v | .CONST 0x0076,0xfff1
0388 0078 fff0 | x | .CONST 0x0078,0xfff0
038a 007a ffef | z | .CONST 0x007a,0xffef
038c 007c ffee | | | .CONST 0x007c,0xffee
038e 007e ffed | ~ | .CONST 0x007e,0xffed
0390 0080 ffec | | .CONST 0x0080,0xffec
0392 0082 ffeb | | .CONST 0x0082,0xffeb
0394 ; --------------------------------------------------------------------------------------
0394 ; Debug3 Subtable 0x2
0394 ; --------------------------------------------------------------------------------------
0394 0002 0004 | | .DBG3TAB 0x0002,0x0004
0396 008b ffff | | .CONST 0x008b,0xffff
0398 008d 0401 | | .CONST 0x008d,0x0401
039a 0094 ffff | | .CONST 0x0094,0xffff
039c 0099 0001 | | .CONST 0x0099,0x0001
039e 009b 0002 | | .CONST 0x009b,0x0002
03a0 00a6 0003 | | .CONST 0x00a6,0x0003
03a2 ; --------------------------------------------------------------------------------------
03a2 ; Debug3 Subtable 0x3
03a2 ; --------------------------------------------------------------------------------------
03a2 0002 0005 | | .DBG3TAB 0x0002,0x0005
03a4 00ab ffff | | .CONST 0x00ab,0xffff
03a6 00ad 0401 | | .CONST 0x00ad,0x0401
03a8 00b4 ffff | | .CONST 0x00b4,0xffff
03aa 00b9 0001 | | .CONST 0x00b9,0x0001
03ac 00bb 0002 | | .CONST 0x00bb,0x0002
03ae 00bf 0003 | | .CONST 0x00bf,0x0003
03b0 00c2 0004 | | .CONST 0x00c2,0x0004
03b2 ; --------------------------------------------------------------------------------------
03b2 ; Debug3 Subtable 0x4
03b2 ; --------------------------------------------------------------------------------------
03b2 0005 000b | | .DBG3TAB 0x0005,0x000b
03b4 00cb ffff | | .CONST 0x00cb,0xffff
03b6 00cb 0401 | | .CONST 0x00cb,0x0401
03b8 00d2 ffff | | .CONST 0x00d2,0xffff
03ba 00d5 fffe | | .CONST 0x00d5,0xfffe
03bc 00d8 fffd | | .CONST 0x00d8,0xfffd
03be 00dd 0001 | | .CONST 0x00dd,0x0001
03c0 00df 0002 | | .CONST 0x00df,0x0002
03c2 00ea 0003 | | .CONST 0x00ea,0x0003
03c4 00ea 0004 | | .CONST 0x00ea,0x0004
03c6 00ea f7ff | | .CONST 0x00ea,0xf7ff
03c8 00ec 0801 | | .CONST 0x00ec,0x0801
03ca 00ef 0802 | | .CONST 0x00ef,0x0802
03cc 00f2 0803 | | .CONST 0x00f2,0x0803
03ce 00f7 0005 | | .CONST 0x00f7,0x0005
03d0 00f9 0006 | | .CONST 0x00f9,0x0006
03d2 00fb 0007 | | .CONST 0x00fb,0x0007
03d4 ; --------------------------------------------------------------------------------------
03d4 ; Debug3 Subtable 0x5
03d4 ; --------------------------------------------------------------------------------------
03d4 0004 000a | | .DBG3TAB 0x0004,0x000a
03d6 0103 ffff | | .CONST 0x0103,0xffff
03d8 0103 0401 | | .CONST 0x0103,0x0401
03da 010a ffff | | .CONST 0x010a,0xffff
03dc 010c fffe | | .CONST 0x010c,0xfffe
03de 0112 fffd | | .CONST 0x0112,0xfffd
03e0 0114 0002 | | .CONST 0x0114,0x0002
03e2 011a 0003 | | .CONST 0x011a,0x0003
03e4 011c 0004 | | .CONST 0x011c,0x0004
03e6 0123 0005 | # | .CONST 0x0123,0x0005
03e8 012a 0006 | * | .CONST 0x012a,0x0006
03ea 012b 0007 | + | .CONST 0x012b,0x0007
03ec 012d 0008 | - | .CONST 0x012d,0x0008
03ee 0131 0001 | 1 | .CONST 0x0131,0x0001
03f0 0133 0009 | 3 | .CONST 0x0133,0x0009
03f2 ; --------------------------------------------------------------------------------------
03f2 ; Debug3 Subtable 0x6
03f2 ; --------------------------------------------------------------------------------------
03f2 0000 0002 | | .DBG3TAB 0x0000,0x0002
03f4 013b 0001 | ; | .CONST 0x013b,0x0001
03f6 013f 0002 | ? | .CONST 0x013f,0x0002
03f8 ; --------------------------------------------------------------------------------------
03f8 ; Debug3 Subtable 0x7
03f8 ; --------------------------------------------------------------------------------------
03f8 0001 0004 | | .DBG3TAB 0x0001,0x0004
03fa 0143 ffff | C | .CONST 0x0143,0xffff
03fc 0145 0001 | E | .CONST 0x0145,0x0001
03fe 014a 0002 | J | .CONST 0x014a,0x0002
0400 014f 0003 | O | .CONST 0x014f,0x0003
0402 0152 0004 | R | .CONST 0x0152,0x0004
0404 ; --------------------------------------------------------------------------------------
0404 ; Debug3 Subtable 0x8
0404 ; --------------------------------------------------------------------------------------
0404 0000 0002 | | .DBG3TAB 0x0000,0x0002
0406 015b 0001 | [ | .CONST 0x015b,0x0001
0408 0160 0002 | ` | .CONST 0x0160,0x0002
040a ; --------------------------------------------------------------------------------------
040a ; Debug3 Subtable 0x9
040a ; --------------------------------------------------------------------------------------
040a 0002 000b | | .DBG3TAB 0x0002,0x000b
040c 016b ffff | k | .CONST 0x016b,0xffff
040e 016c fffe | l | .CONST 0x016c,0xfffe
0410 016d 0001 | m | .CONST 0x016d,0x0001
0412 0172 0002 | r | .CONST 0x0172,0x0002
0414 0177 0003 | w | .CONST 0x0177,0x0003
0416 017d 0005 | } | .CONST 0x017d,0x0005
0418 0182 0006 | | .CONST 0x0182,0x0006
041a 0192 0007 | | .CONST 0x0192,0x0007
041c 0192 0008 | | .CONST 0x0192,0x0008
041e 019b 0009 | | .CONST 0x019b,0x0009
0420 01a4 000a | | .CONST 0x01a4,0x000a
0422 01ab 000b | | .CONST 0x01ab,0x000b
0424 01af 0004 | | .CONST 0x01af,0x0004
0426 ; --------------------------------------------------------------------------------------
0426 ; Debug3 Subtable 0xa
0426 ; --------------------------------------------------------------------------------------
0426 0001 000d | | .DBG3TAB 0x0001,0x000d
0428 01bb ffff | | .CONST 0x01bb,0xffff
042a 01bd 0001 | | .CONST 0x01bd,0x0001
042c 01bf 0002 | | .CONST 0x01bf,0x0002
042e 01c2 0003 | | .CONST 0x01c2,0x0003
0430 01c3 0004 | | .CONST 0x01c3,0x0004
0432 01c8 0005 | | .CONST 0x01c8,0x0005
0434 01ce 0006 | | .CONST 0x01ce,0x0006
0436 01d1 0007 | | .CONST 0x01d1,0x0007
0438 01d4 0008 | | .CONST 0x01d4,0x0008
043a 01d7 0009 | | .CONST 0x01d7,0x0009
043c 01da 000a | | .CONST 0x01da,0x000a
043e 01dd 000b | | .CONST 0x01dd,0x000b
0440 01df 000c | | .CONST 0x01df,0x000c
0442 01e2 000d | | .CONST 0x01e2,0x000d
0444 ; --------------------------------------------------------------------------------------
0444 ; Debug3 Subtable 0xb
0444 ; --------------------------------------------------------------------------------------
0444 0000 0007 | | .DBG3TAB 0x0000,0x0007
0446 01eb 0001 | | .CONST 0x01eb,0x0001
0448 01f2 0003 | | .CONST 0x01f2,0x0003
044a 01f8 0004 | | .CONST 0x01f8,0x0004
044c 01fb 0005 | | .CONST 0x01fb,0x0005
044e 01fc 0006 | | .CONST 0x01fc,0x0006
0450 0201 0007 | | .CONST 0x0201,0x0007
0452 0209 0002 | | .CONST 0x0209,0x0002
0454 ; --------------------------------------------------------------------------------------
0454 ; Debug3 Subtable 0xc
0454 ; --------------------------------------------------------------------------------------
0454 0000 0001 | | .DBG3TAB 0x0000,0x0001
0456 0213 0001 | | .CONST 0x0213,0x0001
0458 ; --------------------------------------------------------------------------------------
0458 ; Debug3 Subtable 0xd
0458 ; --------------------------------------------------------------------------------------
0458 0000 0001 | | .DBG3TAB 0x0000,0x0001
045a 0223 0001 | # | .CONST 0x0223,0x0001
045c ; --------------------------------------------------------------------------------------
045c ; Debug3 Subtable 0xe
045c ; --------------------------------------------------------------------------------------
045c 0000 0001 | | .DBG3TAB 0x0000,0x0001
045e 022b 0001 | + | .CONST 0x022b,0x0001
0460 ; --------------------------------------------------------------------------------------
0460 ; Debug3 Subtable 0xf
0460 ; --------------------------------------------------------------------------------------
0460 0000 0001 | | .DBG3TAB 0x0000,0x0001
0462 0233 0001 | 3 | .CONST 0x0233,0x0001
0464 ; --------------------------------------------------------------------------------------
0464 ; Debug3 Subtable 0x10
0464 ; --------------------------------------------------------------------------------------
0464 0000 0001 | | .DBG3TAB 0x0000,0x0001
0466 023b 0001 | ; | .CONST 0x023b,0x0001
0468 ; --------------------------------------------------------------------------------------
0468 ; Debug3 Subtable 0x11
0468 ; --------------------------------------------------------------------------------------
0468 0000 0000 | | .DBG3TAB 0x0000,0x0000
046a ; --------------------------------------------------------------------------------------
046a ; Debug3 Subtable 0x12
046a ; --------------------------------------------------------------------------------------
046a 0001 0005 | | .DBG3TAB 0x0001,0x0005
046c 026b ffff | k | .CONST 0x026b,0xffff
046e 026f 0002 | o | .CONST 0x026f,0x0002
0470 0275 0003 | u | .CONST 0x0275,0x0003
0472 0277 0004 | w | .CONST 0x0277,0x0004
0474 027b 0001 | { | .CONST 0x027b,0x0001
0476 027d 0005 | } | .CONST 0x027d,0x0005
0478 0000 0000 | | .BLANK 0000[0x188]