|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00)
Notes: 00_class, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0500e0
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5813 |X | .CONST 0x5813 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 02c8 | | .CONST 0x02c8 ; 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 0083 | | .CONST 0x0083 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0022 | " | .CONST 0x0022 ; Number of locals
000b INIT_0008:
000b 4803 |H | Short_Literal 0x3 ; Debug Table 0x0 = .DEBUG 0x000b,0x036a,0x8000,0x0000,0x0057,0x50c5,0x0000,0x000f
; Debug Table 0x0.0x0 = 0xb,0xffff
; Debug Table 0x0.0x1 = 0xb,0xfffe
; Debug Table 0x0.0x2 = 0xb,0xfffd
; Debug Table 0x0.0x3 = 0xb,0xfffc
000c 032b | + | Declare_Type Record,Incomplete,Visible
000d 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0xd,0xfffb
000f 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0xf,0xfffa
0011 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x11,0xfff9
0013 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x7 = 0x13,0xfff8
0015 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x8 = 0x15,0xfff7
0017 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x9 = 0x17,0xfff6
0019 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xa = 0x19,0xfff5
001b 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xb = 0x1b,0xfff4
001d e001 | | Load 0x0,0x1 ; Debug Table 0x0.0xc = 0x1d,0xfff3
001e 1b36 | 6 | Execute Package,Field_Read,Field_Number 0x36
001f 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0020 0129 | ) | Execute Any,Make_Visible
0021 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xd = 0x21,0xfff2
0023 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xe = 0x23,0xfff1
0025 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xf = 0x25,0xfff0
0027 4801 |H | Short_Literal 0x1 ; Debug Table 0x0.0x10 = 0x27,0xffef
0028 032b | + | Declare_Type Record,Incomplete,Visible
0029 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x11 = 0x29,0xffee
002b 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x12 = 0x2b,0xffed
002d 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x13 = 0x2d,0xffec
002f 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x14 = 0x2f,0xffeb
0031 e216 | | Load 0x1,0x16 ; Debug Table 0x0.0x15 = 0x31,0xffea
0032 4801 |H | Short_Literal 0x1
0033 00e1 | | Load_Encached Boolean_Cache
0034 4801 |H | Short_Literal 0x1
0035 e002 | | Load 0x0,0x2
0036 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0037 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0038 4801 |H | Short_Literal 0x1
0039 00e2 | | Load_Encached Integer_Cache
003a 029f 0243 | C| Declare_Subprogram INIT_0240,For_Call
003c 4803 |H | Short_Literal 0x3
003d 4800 |H | Short_Literal 0x0
003e 4803 |H | Short_Literal 0x3
003f 4800 |H | Short_Literal 0x0
0040 4801 |H | Short_Literal 0x1
0041 031d | | Declare_Type Variant_Record,Defined
0042 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x16 = 0x42,0xffe9
0043 029f 028b | | Declare_Subprogram INIT_0288,For_Call
0045 4801 |H | Short_Literal 0x1
0046 032d | - | Declare_Type Record,Defined
0047 6254 |bT | Indirect_Literal Discrete,0x29c,{0x00000000, 0x005750c5} ; Debug Table 0x0.0x17 = 0x47,0xffe8
0048 4946 |IF | Short_Literal 0x146
0049 480a |H | Short_Literal 0xa
004a e003 | | Load 0x0,0x3
004b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
004c e220 | | Load 0x1,0x20
004d e004 | | Load 0x0,0x4
004e 1912 | | Execute Package,Field_Reference,Field_Number 0x12
004f e005 | | Load 0x0,0x5
0050 0387 | | Declare_Variable Package
0051 00d8 | | Load_Top At_Offset_0
0052 020f | | Execute Module,Activate
0053 e003 | | Load 0x0,0x3 ; Debug Table 0x0.0x18 = 0x53,0xffe7
0054 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0055 e002 | | Load 0x0,0x2
0056 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0057 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0058 00da | | Load_Top At_Offset_2
0059 1b14 | | Execute Package,Field_Read,Field_Number 0x14
005a 02a0 | | Declare_Subprogram Null_Subprogram
005b e20d | | Load 0x1,0xd
005c 0326 | & | Complete_Type Record,By_Defining
005d 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x19 = 0x5d,0xffe6
005e 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
005f 02a0 | | Declare_Subprogram Null_Subprogram
0060 e21a | | Load 0x1,0x1a
0061 0326 | & | Complete_Type Record,By_Defining
0062 00bf | | Action Accept_Activation
0063 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1 = .DEBUG 0x0063,0x03a0,0x8000,0x0000,0x0057,0x5135,0x0000,0x0003
; Debug Table 0x1.0x0 = 0x63,0xffff
; Debug Table 0x1.0x1 = 0x63,0xfffe
; Debug Table 0x1.0x2 = 0x63,0xfffd
; Debug Table 0x1.0x3 = 0x63,0xfffc
; Debug Table 0x1.0x4 = 0x63,0xfffb
; Debug Table 0x1.0x5 = 0x63,0xfffa
0064 00c7 | | Action Elaborate_Subprogram
0065 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x6 = 0x65,0xfff9
0066 00c7 | | Action Elaborate_Subprogram
0067 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x7 = 0x67,0xfff8
; Debug Table 0x1.0x8 = 0x67,0xfff7
; Debug Table 0x1.0x9 = 0x67,0xfff6
; Debug Table 0x1.0xa = 0x67,0xfff5
; Debug Table 0x1.0xb = 0x67,0xfff4
; Debug Table 0x1.0xc = 0x67,0xfff3
; Debug Table 0x1.0xd = 0x67,0xfff2
0068 00c7 | | Action Elaborate_Subprogram
0069 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0xe = 0x69,0xfff1
006a 00c7 | | Action Elaborate_Subprogram
006b 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0xf = 0x6b,0xfff0
006c 00c7 | | Action Elaborate_Subprogram
006d 029d 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call ; Debug Table 0x1.0x10 = 0x6d,0xffef
006f 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0x11 = 0x6f,0xffee
0070 00c7 | | Action Elaborate_Subprogram
0071 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x1.0x12 = 0x71,0xffed
0072 00c7 | | Action Elaborate_Subprogram
0073 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x1.0x13 = 0x73,0xffec
0074 00c7 | | Action Elaborate_Subprogram
0075 1d17 | | Execute_Immediate Reference_Lex_1,0x17 ; Debug Table 0x1.0x14 = 0x75,0xffeb
0076 00c7 | | Action Elaborate_Subprogram
0077 1d18 | | Execute_Immediate Reference_Lex_1,0x18 ; Debug Table 0x1.0x15 = 0x77,0xffea
0078 00c7 | | Action Elaborate_Subprogram
0079 1d19 | | Execute_Immediate Reference_Lex_1,0x19 ; Debug Table 0x1.0x16 = 0x79,0xffe9
007a 00c7 | | Action Elaborate_Subprogram
007b 1d1b | | Execute_Immediate Reference_Lex_1,0x1b ; Debug Table 0x1.0x17 = 0x7b,0xffe8
007c 00c7 | | Action Elaborate_Subprogram
007d 1d1c | | Execute_Immediate Reference_Lex_1,0x1c ; Debug Table 0x1.0x18 = 0x7d,0xffe7
007e 00c7 | | Action Elaborate_Subprogram
007f 1d1d | | Execute_Immediate Reference_Lex_1,0x1d ; Debug Table 0x1.0x19 = 0x7f,0xffe6
0080 00c7 | | Action Elaborate_Subprogram
0081 1d1e | | Execute_Immediate Reference_Lex_1,0x1e ; Debug Table 0x1.0x1a = 0x81,0xffe5
0082 00c7 | | Action Elaborate_Subprogram
0083 BODY_0008:
0083 00bc | | Action Signal_Activated
0084 00bb | | Action Signal_Completion
0085 0000 0000 | | .XXX[0x3]
0087 0000 | |
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008b | | .CONST 0x008b ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0001 | | .CONST 0x0001 ; Number of locals
008b BODY_0088:
008b INIT_0088:
008b 00da | | Load_Top At_Offset_2 ; Debug Table 0x2 = .DEBUG 0x008b,0x03d8,0x0001,0x0000,0x0057,0x50c5,0x0000,0x0021
; Debug Table 0x2.0x0 = 0x8b,0x1
008c e5fd | | Load 0x2,-0x3
008d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
008e 00db | | Load_Top At_Offset_3 ; Debug Table 0x2.0x1 = 0x8e,0x2
008f e002 | | Load 0x0,0x2
0090 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0091 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0092 e5fd | | Load 0x2,-0x3
0093 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0094 e221 | ! | Load 0x1,0x21 ; Debug Table 0x2.0x2 = 0x94,0x3
0095 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0096 480a |H | Short_Literal 0xa
0097 e5fe | | Load 0x2,-0x2
0098 e221 | ! | Load 0x1,0x21
0099 181b | | Execute Package,Field_Execute,Field_Number 0x1b
009a e5fd | | Load 0x2,-0x3
009b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
009c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
009d 0000 0000 | | .XXX[0x3]
009f 0000 | |
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 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; Debug Table 0x3 = .DEBUG 0x00a3,0x03e0,0x0001,0x0000,0x0057,0x50c5,0x0000,0x0035
; Debug Table 0x3.0x0 = 0xa3,0x1
00a4 0000 0000 | | .BLANK 0000[0x4]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00be | | .CONST 0x00be ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0004 | | .CONST 0x0004 ; Number of locals
00ab INIT_00a8:
00ab e220 | | Load 0x1,0x20 ; Debug Table 0x4 = .DEBUG 0x00ab,0x03e4,0x0001,0x0000,0x0057,0x50c5,0x0000,0x003d
; Debug Table 0x4.0x0 = 0xab,0xffff
00ac 0322 | " | Declare_Variable Record
00ad 00d8 | | Load_Top At_Offset_0
00ae 1c00 | | Execute_Immediate Run_Utility,0x0
00af e003 | | Load 0x0,0x3 ; Debug Table 0x4.0x1 = 0xaf,0xfffe
00b0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00b1 e5ff | | Load 0x2,-0x1
00b2 e5fd | | Load 0x2,-0x3
00b3 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x2 = 0xb3,0x401
00b4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00b5 00da | | Load_Top At_Offset_2
00b6 e004 | | Load 0x0,0x4
00b7 180f | | Execute Package,Field_Execute,Field_Number 0xf
00b8 00d0 | | Action Swap_Control
00b9 00d1 | | Pop_Control Pop_Count_1
00ba 00d0 | | Action Swap_Control
00bb 00d1 | | Pop_Control Pop_Count_1
00bc 0039 | 9 | Store_Top Access,At_Offset_1 ; Debug Table 0x4.0x3 = 0xbc,0xfffe
00bd 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x4.0x4 = 0xbd,0xfffd
00be BODY_00a8:
00be 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x4.0x5 = 0xbe,0x1
00bf 00db | | Load_Top At_Offset_3
00c0 00db | | Load_Top At_Offset_3
00c1 e5fd | | Load 0x2,-0x3
00c2 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00c3 e221 | ! | Load 0x1,0x21
00c4 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00c5 00d1 | | Pop_Control Pop_Count_1
00c6 0059 | Y | Store_Top Discrete,At_Offset_1
00c7 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x6 = 0xc7,0x2
00c8 681a |h | Jump_Zero 0xe3
00c9 00da | | Load_Top At_Offset_2
00ca 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00cb 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
00cc 0f01 | | Execute_Immediate Equal,0x1
00cd 6815 |h | Jump_Zero 0xe3
00ce 00da | | Load_Top At_Offset_2 ; Debug Table 0x4.0x7 = 0xce,0x3
00cf 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00d0 00d8 | | Load_Top At_Offset_0
00d1 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
00d2 e5fe | | Load 0x2,-0x2
00d3 e002 | | Load 0x0,0x2
00d4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00d5 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
00d6 00d9 | | Load_Top At_Offset_1
00d7 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
00d8 00d1 | | Pop_Control Pop_Count_1
00d9 e5fd | | Load 0x2,-0x3 ; Debug Table 0x4.0x8 = 0xd9,0x4
00da 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00db 4800 |H | Short_Literal 0x0
00dc e402 | | Load 0x2,0x2
00dd e403 | | Load 0x2,0x3
00de e221 | ! | Load 0x1,0x21
00df 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00e0 e5fd | | Load 0x2,-0x3
00e1 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00e2 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00e3 e5fd | | Load 0x2,-0x3 ; Debug Table 0x4.0x9 = 0xe3,0x5
00e4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00e5 4800 |H | Short_Literal 0x0
00e6 e5fe | | Load 0x2,-0x2
00e7 e5fd | | Load 0x2,-0x3
00e8 e220 | | Load 0x1,0x20 ; Debug Table 0x4.0xa = 0xe8,0x801
00e9 0322 | " | Declare_Variable Record
00ea 4801 |H | Short_Literal 0x1
00eb e21f | | Load 0x1,0x1f
00ec 1c08 | | Execute_Immediate Run_Utility,0x8
00ed 00da | | Load_Top At_Offset_2
00ee 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00ef e407 | | Load 0x2,0x7
00f0 e002 | | Load 0x0,0x2
00f1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00f2 181e | | Execute Package,Field_Execute,Field_Number 0x1e
00f3 00d9 | | Load_Top At_Offset_1
00f4 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
00f5 00d9 | | Load_Top At_Offset_1
00f6 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00f7 00d0 | | Action Swap_Control
00f8 00d1 | | Pop_Control Pop_Count_1
00f9 00d0 | | Action Swap_Control
00fa 00d1 | | Pop_Control Pop_Count_1
00fb e403 | | Load 0x2,0x3 ; Debug Table 0x4.0xb = 0xfb,0x5
00fc e221 | ! | Load 0x1,0x21
00fd 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00fe e5fd | | Load 0x2,-0x3
00ff 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0100 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0101 0000 0000 | | .BLANK 0000[0x7]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b | | .CONST 0x010b ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0001 | | .CONST 0x0001 ; Number of locals
010b BODY_0108:
010b INIT_0108:
010b e5fd | | Load 0x2,-0x3 ; Debug Table 0x5 = .DEBUG 0x010b,0x03fe,0x0001,0x0000,0x0057,0x50c5,0x0000,0x004d
; Debug Table 0x5.0x0 = 0x10b,0x1
010c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
010d 4800 |H | Short_Literal 0x0
010e e220 | | Load 0x1,0x20 ; Debug Table 0x5.0x1 = 0x10e,0x401
010f 0322 | " | Declare_Variable Record
0110 4802 |H | Short_Literal 0x2
0111 e21f | | Load 0x1,0x1f
0112 1c08 | | Execute_Immediate Run_Utility,0x8
0113 e5fe | | Load 0x2,-0x2
0114 00d9 | | Load_Top At_Offset_1
0115 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0116 00d9 | | Load_Top At_Offset_1
0117 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0118 e5ff | | Load 0x2,-0x1 ; Debug Table 0x5.0x2 = 0x118,0x1
0119 e5fd | | Load 0x2,-0x3
011a 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0x3 = 0x11a,0x801
011b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
011c 00da | | Load_Top At_Offset_2
011d e004 | | Load 0x0,0x4
011e 180f | | Execute Package,Field_Execute,Field_Number 0xf
011f 00d0 | | Action Swap_Control
0120 00d1 | | Pop_Control Pop_Count_1
0121 00d0 | | Action Swap_Control
0122 00d1 | | Pop_Control Pop_Count_1
0123 e221 | ! | Load 0x1,0x21 ; Debug Table 0x5.0x4 = 0x123,0x401
0124 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0125 e5fd | | Load 0x2,-0x3
0126 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0127 4503 |E | Exit_Suprogram New_Top_Offset 0x3
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 e5fd | | Load 0x2,-0x3 ; Debug Table 0x6 = .DEBUG 0x012b,0x040a,0x0001,0x0000,0x0057,0x50c5,0x0000,0x005d
; Debug Table 0x6.0x0 = 0x12b,0x1
012c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
012d 4800 |H | Short_Literal 0x0
012e e220 | | Load 0x1,0x20 ; Debug Table 0x6.0x1 = 0x12e,0x401
012f 0322 | " | Declare_Variable Record
0130 4803 |H | Short_Literal 0x3
0131 e21f | | Load 0x1,0x1f
0132 1c08 | | Execute_Immediate Run_Utility,0x8
0133 e5fe | | Load 0x2,-0x2
0134 00d9 | | Load_Top At_Offset_1
0135 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0136 00d9 | | Load_Top At_Offset_1
0137 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0138 e5ff | | Load 0x2,-0x1 ; Debug Table 0x6.0x2 = 0x138,0x1
0139 e5fd | | Load 0x2,-0x3
013a 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x3 = 0x13a,0x801
013b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
013c 00da | | Load_Top At_Offset_2
013d e004 | | Load 0x0,0x4
013e 180f | | Execute Package,Field_Execute,Field_Number 0xf
013f 00d0 | | Action Swap_Control
0140 00d1 | | Pop_Control Pop_Count_1
0141 00d0 | | Action Swap_Control
0142 00d1 | | Pop_Control Pop_Count_1
0143 e221 | ! | Load 0x1,0x21 ; Debug Table 0x6.0x4 = 0x143,0x401
0144 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0145 e5fd | | Load 0x2,-0x3
0146 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0147 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 0150 | P | .CONST 0x0150 ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0003 | | .CONST 0x0003 ; Number of locals
014b INIT_0148:
014b e21f | | Load 0x1,0x1f ; Debug Table 0x7 = .DEBUG 0x014b,0x0416,0x0002,0x0000,0x0057,0x50c5,0x0000,0x006d
; Debug Table 0x7.0x0 = 0x14b,0xffff
014c 02ff | | Declare_Variable Variant_Record
014d 00d8 | | Load_Top At_Offset_0
014e 1c00 | | Execute_Immediate Run_Utility,0x0
014f 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x7.0x1 = 0x14f,0xfffe
0150 BODY_0148:
0150 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x7.0x2 = 0x150,0x1
0151 00da | | Load_Top At_Offset_2
0152 e5fe | | Load 0x2,-0x2
0153 e5ff | | Load 0x2,-0x1
0154 8222 | " | Call 0x1,0x22
0155 00d1 | | Pop_Control Pop_Count_1
0156 0059 | Y | Store_Top Discrete,At_Offset_1
0157 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0x3 = 0x157,0x2
0158 6818 |h | Jump_Zero 0x171
0159 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x7.0x4 = 0x159,0x3
015a 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
015b 4603 |F | Jump_Case 0x4
015c 7814 |x | Jump 0x171 ; case 0x0
015d 7808 |x | Jump 0x166 ; case 0x1
015e 7801 |x | Jump 0x160 ; case 0x2
015f 780c |x | Jump 0x16c ; case 0x3
0160 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x7.0x5 = 0x160,0x4
0161 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0162 00e1 | | Load_Encached Boolean_Cache
0163 025e | ^ | Execute Discrete,Convert
0164 1c01 | | Execute_Immediate Run_Utility,0x1
0165 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0166 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x7.0x6 = 0x166,0x5
0167 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0168 e002 | | Load 0x0,0x2
0169 1b0d | | Execute Package,Field_Read,Field_Number 0xd
016a 181d | | Execute Package,Field_Execute,Field_Number 0x1d
016b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
016c 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x7.0x7 = 0x16c,0x6
016d 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
016e 00e0 | | Load_Encached Standard_Cache
016f 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0170 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0171 00ea | | Load_Encached Null_String_Cache ; Debug Table 0x7.0x8 = 0x171,0x8
0172 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0173 0000 0000 | | .BLANK 0000[0x5]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 0180 | | .CONST 0x0180 ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0003 | | .CONST 0x0003 ; Number of locals
017b INIT_0178:
017b e21f | | Load 0x1,0x1f ; Debug Table 0x8 = .DEBUG 0x017b,0x042a,0x0002,0x0000,0x0057,0x50c5,0x0000,0x007a
; Debug Table 0x8.0x0 = 0x17b,0xffff
017c 02ff | | Declare_Variable Variant_Record
017d 00d8 | | Load_Top At_Offset_0
017e 1c00 | | Execute_Immediate Run_Utility,0x0
017f 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x8.0x1 = 0x17f,0xfffe
0180 BODY_0178:
0180 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x8.0x2 = 0x180,0x1
0181 00da | | Load_Top At_Offset_2
0182 e5fe | | Load 0x2,-0x2
0183 e5ff | | Load 0x2,-0x1
0184 8222 | " | Call 0x1,0x22
0185 00d1 | | Pop_Control Pop_Count_1
0186 0059 | Y | Store_Top Discrete,At_Offset_1
0187 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x8.0x3 = 0x187,0x2
0188 6819 |h | Jump_Zero 0x1a2
0189 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x8.0x4 = 0x189,0x3
018a 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
018b 4603 |F | Jump_Case 0x4
018c 7815 |x | Jump 0x1a2 ; case 0x0
018d 7805 |x | Jump 0x193 ; case 0x1
018e 7801 |x | Jump 0x190 ; case 0x2
018f 780e |x | Jump 0x19e ; case 0x3
0190 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x8.0x5 = 0x190,0x4
0191 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0192 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0193 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x8.0x6 = 0x193,0x5
0194 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0195 e002 | | Load 0x0,0x2
0196 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0197 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0198 0092 02bf | | Action Push_String_Extended,0x2bf ; "TRUE"
019a 01df | | Execute Vector,Equal
019b 6806 |h | Jump_Zero 0x1a2
019c 4801 |H | Short_Literal 0x1 ; Debug Table 0x8.0x7 = 0x19c,0x6
019d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
019e 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x8.0x8 = 0x19e,0x7
019f 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
01a0 0e00 | | Execute_Immediate Not_Equal,0x0
01a1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01a2 4800 |H | Short_Literal 0x0 ; Debug Table 0x8.0x9 = 0x1a2,0x9
01a3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01a4 0000 0000 | | .BLANK 0000[0x4]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01b0 | | .CONST 0x01b0 ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0003 | | .CONST 0x0003 ; Number of locals
01ab INIT_01a8:
01ab e21f | | Load 0x1,0x1f ; Debug Table 0x9 = .DEBUG 0x01ab,0x0440,0x0002,0x0000,0x0057,0x50c5,0x0000,0x0087
; Debug Table 0x9.0x0 = 0x1ab,0xffff
01ac 02ff | | Declare_Variable Variant_Record
01ad 00d8 | | Load_Top At_Offset_0
01ae 1c00 | | Execute_Immediate Run_Utility,0x0
01af 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x9.0x1 = 0x1af,0xfffe
01b0 BODY_01a8:
01b0 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x9.0x2 = 0x1b0,0x1
01b1 00da | | Load_Top At_Offset_2
01b2 e5fe | | Load 0x2,-0x2
01b3 e5ff | | Load 0x2,-0x1
01b4 8222 | " | Call 0x1,0x22
01b5 00d1 | | Pop_Control Pop_Count_1
01b6 0059 | Y | Store_Top Discrete,At_Offset_1
01b7 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x3 = 0x1b7,0x2
01b8 680a |h | Jump_Zero 0x1c3
01b9 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x9.0x4 = 0x1b9,0x3
01ba 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01bb 4603 |F | Jump_Case 0x4
01bc 7806 |x | Jump 0x1c3 ; case 0x0
01bd 7805 |x | Jump 0x1c3 ; case 0x1
01be 7804 |x | Jump 0x1c3 ; case 0x2
01bf 7800 |x | Jump 0x1c0 ; case 0x3
01c0 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x9.0x5 = 0x1c0,0x4
01c1 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
01c2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01c3 4800 |H | Short_Literal 0x0 ; Debug Table 0x9.0x6 = 0x1c3,0x6
01c4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01c5 0000 0000 | | .XXX[0x3]
01c7 0000 | |
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01d0 | | .CONST 0x01d0 ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0003 | | .CONST 0x0003 ; Number of locals
01cb INIT_01c8:
01cb e21f | | Load 0x1,0x1f ; Debug Table 0xa = .DEBUG 0x01cb,0x0450,0x0002,0x0000,0x0057,0x50c5,0x0000,0x009c
; Debug Table 0xa.0x0 = 0x1cb,0xffff
01cc 02ff | | Declare_Variable Variant_Record
01cd 00d8 | | Load_Top At_Offset_0
01ce 1c00 | | Execute_Immediate Run_Utility,0x0
01cf 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0xa.0x1 = 0x1cf,0xfffe
01d0 BODY_01c8:
01d0 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0xa.0x2 = 0x1d0,0x1
01d1 00da | | Load_Top At_Offset_2
01d2 e5fe | | Load 0x2,-0x2
01d3 e5ff | | Load 0x2,-0x1
01d4 8222 | " | Call 0x1,0x22
01d5 00d1 | | Pop_Control Pop_Count_1
01d6 0059 | Y | Store_Top Discrete,At_Offset_1
01d7 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xa.0x3 = 0x1d7,0x2
01d8 6803 |h | Jump_Zero 0x1dc
01d9 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xa.0x4 = 0x1d9,0x3
01da 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01db 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01dc 4800 |H | Short_Literal 0x0 ; Debug Table 0xa.0x5 = 0x1dc,0x4
01dd 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01de 0000 0000 | | .XXX[0x2]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e8 | | .CONST 0x01e8 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0003 | | .CONST 0x0003 ; Number of locals
01e3 INIT_01e0:
01e3 e21f | | Load 0x1,0x1f ; Debug Table 0xb = .DEBUG 0x01e3,0x045e,0x0002,0x0000,0x0057,0x50c5,0x0000,0x00a9
; Debug Table 0xb.0x0 = 0x1e3,0xffff
01e4 02ff | | Declare_Variable Variant_Record
01e5 00d8 | | Load_Top At_Offset_0
01e6 1c00 | | Execute_Immediate Run_Utility,0x0
01e7 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0xb.0x1 = 0x1e7,0xfffe
01e8 BODY_01e0:
01e8 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0xb.0x2 = 0x1e8,0x1
01e9 00da | | Load_Top At_Offset_2
01ea e5fe | | Load 0x2,-0x2
01eb e5ff | | Load 0x2,-0x1
01ec 8222 | " | Call 0x1,0x22
01ed 00d1 | | Pop_Control Pop_Count_1
01ee 0059 | Y | Store_Top Discrete,At_Offset_1
01ef 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xb.0x3 = 0x1ef,0x2
01f0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01f1 0000 0000 | | .BLANK 0000[0x7]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb | | .CONST 0x01fb ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0001 | | .CONST 0x0001 ; Number of locals
01fb BODY_01f8:
01fb INIT_01f8:
01fb 00db | | Load_Top At_Offset_3 ; Debug Table 0xc = .DEBUG 0x01fb,0x0468,0x0001,0x0000,0x0057,0x50c5,0x0000,0x00b6
; Debug Table 0xc.0x0 = 0x1fb,0x1
01fc 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01fd 00db | | Load_Top At_Offset_3
01fe e5fe | | Load 0x2,-0x2
01ff 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xc.0x1 = 0x1ff,0x401
0200 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0201 00da | | Load_Top At_Offset_2
0202 e004 | | Load 0x0,0x4
0203 180f | | Execute Package,Field_Execute,Field_Number 0xf
0204 00d0 | | Action Swap_Control
0205 00d1 | | Pop_Control Pop_Count_1
0206 00d0 | | Action Swap_Control
0207 00d1 | | Pop_Control Pop_Count_1
0208 e221 | ! | Load 0x1,0x21 ; Debug Table 0xc.0x2 = 0x208,0x1
0209 181a | | Execute Package,Field_Execute,Field_Number 0x1a
020a e5fe | | Load 0x2,-0x2
020b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
020c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
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 00db | | Load_Top At_Offset_3 ; Debug Table 0xd = .DEBUG 0x0213,0x0470,0x0001,0x0000,0x0057,0x50c5,0x0000,0x00c6
; Debug Table 0xd.0x0 = 0x213,0x1
0214 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0215 00db | | Load_Top At_Offset_3
0216 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0217 e221 | ! | Load 0x1,0x21
0218 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0219 4502 |E | Exit_Suprogram New_Top_Offset 0x2
021a 0000 0000 | | .BLANK 0000[0x6]
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 00db | | Load_Top At_Offset_3 ; Debug Table 0xe = .DEBUG 0x0223,0x0474,0x0001,0x0000,0x0057,0x50c5,0x0000,0x00d2
; Debug Table 0xe.0x0 = 0x223,0x1
0224 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0225 e221 | ! | Load 0x1,0x21
0226 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0227 4502 |E | Exit_Suprogram New_Top_Offset 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 00da | | Load_Top At_Offset_2 ; Debug Table 0xf = .DEBUG 0x022b,0x0478,0x0002,0x0000,0x0057,0x50c5,0x0000,0x00de
; Debug Table 0xf.0x0 = 0x22b,0x1
022c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
022d e221 | ! | Load 0x1,0x21
022e 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
022f e004 | | Load 0x0,0x4
0230 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0231 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0232 0000 0000 | | .BLANK 0000[0x6]
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 00da | | Load_Top At_Offset_2 ; Debug Table 0x10 = .DEBUG 0x023b,0x047c,0x0002,0x0000,0x0057,0x50c5,0x0000,0x00eb
; Debug Table 0x10.0x0 = 0x23b,0x1
023c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
023d e221 | ! | Load 0x1,0x21
023e 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
023f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
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,0x0480,0x0005,0x0000,0x0057,0x50c5,0x0000,0x00f9
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 7815 |x | Jump 0x260 ; case 0x6
024b 7822 |x" | Jump 0x26e ; case 0x7
024c 7832 |x2 | Jump 0x27f ; case 0x8
024d 00da | | Load_Top At_Offset_2
024e 016c | l | Execute Variant_Record,Is_Constrained
024f 7009 |p | Jump_Nonzero 0x259
0250 00cf | | Action Mark_Auxiliary
0251 4800 |H | Short_Literal 0x0
0252 e5ff | | Load 0x2,-0x1
0253 1c08 | | Execute_Immediate Run_Utility,0x8
0254 00d8 | | Load_Top At_Offset_0
0255 1c00 | | Execute_Immediate Run_Utility,0x0
0256 c5ff | | Store 0x2,-0x1
0257 00ce | | Action Pop_Auxiliary
0258 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0259 00da | | Load_Top At_Offset_2
025a 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
025b 4603 |F | Jump_Case 0x4
025c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
025d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
025e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
025f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0260 00db | | Load_Top At_Offset_3
0261 4603 |F | Jump_Case 0x4
0262 7803 |x | Jump 0x266 ; case 0x0
0263 7806 |x | Jump 0x26a ; case 0x1
0264 7803 |x | Jump 0x268 ; case 0x2
0265 7806 |x | Jump 0x26c ; case 0x3
0266 48ff |H | Short_Literal 0xff
0267 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0268 4801 |H | Short_Literal 0x1
0269 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
026a 4802 |H | Short_Literal 0x2
026b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
026c 4803 |H | Short_Literal 0x3
026d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
026e 00db | | Load_Top At_Offset_3
026f e5fe | | Load 0x2,-0x2
0270 4603 |F | Jump_Case 0x4
0271 7803 |x | Jump 0x275 ; case 0x0
0272 7806 |x | Jump 0x279 ; case 0x1
0273 7803 |x | Jump 0x277 ; case 0x2
0274 7806 |x | Jump 0x27b ; case 0x3
0275 48ff |H | Short_Literal 0xff
0276 7805 |x | Jump 0x27c
0277 4801 |H | Short_Literal 0x1
0278 7803 |x | Jump 0x27c
0279 4802 |H | Short_Literal 0x2
027a 7801 |x | Jump 0x27c
027b 4803 |H | Short_Literal 0x3
027c e5ff | | Load 0x2,-0x1
027d 031b | | Declare_Type Variant_Record,Constrained
027e 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
027f 00db | | Load_Top At_Offset_3
0280 e5fe | | Load 0x2,-0x2
0281 e5ff | | Load 0x2,-0x1
0282 1c06 | | Execute_Immediate Run_Utility,0x6
0283 e5ff | | Load 0x2,-0x1
0284 02fc | | Declare_Variable Variant_Record,With_Constraint
0285 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0286 0000 0000 | | .XXX[0x2]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028b | | .CONST 0x028b ; Address of begin
0289 0004 | | .CONST 0x0004 ; Address of exception handler
028a 0001 | | .CONST 0x0001 ; Number of locals
028b BODY_0288:
028b INIT_0288:
028b 4608 |F | Jump_Case 0x9 ; Debug Table 0x12 = .DEBUG 0x028b,0x0482,0x0005,0x0000,0x0057,0x50c5,0x0000,0x013d
028c 7808 |x | Jump 0x295 ; case 0x0
028d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
028e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
028f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0290 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
0291 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
0292 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6
0293 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7
0294 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8
0295 00da | | Load_Top At_Offset_2
0296 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0297 1c00 | | Execute_Immediate Run_Utility,0x0
0298 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0299 0000 0000 | | .XXX[0x3]
029b 0000 | |
029c 0000 0000 | | .LITERAL {0x00000000, 0x005750c5}
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a7 | | .CONST 0x02a7 ; Address of begin
02a1 0004 | | .CONST 0x0004 ; Address of exception handler
02a2 0002 | | .CONST 0x0002 ; Number of locals
02a3 INIT_02a0:
02a3 e220 | | Load 0x1,0x20 ; Debug Table 0x13 = .DEBUG 0x02a3,0x0484,0x0001,0x0000,0x0057,0x5135,0x0000,0x01d6
; Debug Table 0x13.0x0 = 0x2a3,0xffff
02a4 0322 | " | Declare_Variable Record
02a5 00d8 | | Load_Top At_Offset_0
02a6 1c00 | | Execute_Immediate Run_Utility,0x0
02a7 BODY_02a0:
02a7 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x13.0x1 = 0x2a7,0x1
02a8 00d9 | | Load_Top At_Offset_1
02a9 e5fe | | Load 0x2,-0x2
02aa e5ff | | Load 0x2,-0x1
02ab 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x13.0x2 = 0x2ab,0x401
02ac 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02ad 00da | | Load_Top At_Offset_2
02ae e004 | | Load 0x0,0x4
02af 180f | | Execute Package,Field_Execute,Field_Number 0xf
02b0 00d0 | | Action Swap_Control
02b1 00d1 | | Pop_Control Pop_Count_1
02b2 00d0 | | Action Swap_Control
02b3 00d1 | | Pop_Control Pop_Count_1
02b4 e5ff | | Load 0x2,-0x1 ; Debug Table 0x13.0x3 = 0x2b4,0x1
02b5 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02b6 e221 | ! | Load 0x1,0x21
02b7 1817 | | Execute Package,Field_Execute,Field_Number 0x17
02b8 00d1 | | Pop_Control Pop_Count_1
02b9 c5fc | | Store 0x2,-0x4
02ba 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x13.0x4 = 0x2ba,0x2
02bb 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
02bc e5fd | | Load 0x2,-0x3
02bd 016d | m | Execute Variant_Record,Structure_Write
02be 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02bf ; --------------------------------------------------------------------------------------
02bf ; STRING TABLE
02bf ; --------------------------------------------------------------------------------------
02bf 0004 | | .STRTAB 0x0004->0x02c1 ; "TRUE"
02c0 0006 | | .STREND 0x0006->0x02c3
02c1 5452 5545 |TRUE| .STRTAB_STRINGS
02c3 0000 0000 | | .BLANK 0000[0x5]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; Debug Table
02c8 ; --------------------------------------------------------------------------------------
02c8 0003 0014 | | .CONST 0x0003,0x0014
02ca 000b 036a | j| .DEBUG 0x000b,0x036a,0x8000,0x0000,0x0057,0x50c5,0x0000,0x000f
02d2 0063 03a0 | c | .DEBUG 0x0063,0x03a0,0x8000,0x0000,0x0057,0x5135,0x0000,0x0003
02da 008b 03d8 | | .DEBUG 0x008b,0x03d8,0x0001,0x0000,0x0057,0x50c5,0x0000,0x0021
02e2 00a3 03e0 | | .DEBUG 0x00a3,0x03e0,0x0001,0x0000,0x0057,0x50c5,0x0000,0x0035
02ea 00ab 03e4 | | .DEBUG 0x00ab,0x03e4,0x0001,0x0000,0x0057,0x50c5,0x0000,0x003d
02f2 010b 03fe | | .DEBUG 0x010b,0x03fe,0x0001,0x0000,0x0057,0x50c5,0x0000,0x004d
02fa 012b 040a | + | .DEBUG 0x012b,0x040a,0x0001,0x0000,0x0057,0x50c5,0x0000,0x005d
0302 014b 0416 | K | .DEBUG 0x014b,0x0416,0x0002,0x0000,0x0057,0x50c5,0x0000,0x006d
030a 017b 042a | { *| .DEBUG 0x017b,0x042a,0x0002,0x0000,0x0057,0x50c5,0x0000,0x007a
0312 01ab 0440 | @| .DEBUG 0x01ab,0x0440,0x0002,0x0000,0x0057,0x50c5,0x0000,0x0087
031a 01cb 0450 | P| .DEBUG 0x01cb,0x0450,0x0002,0x0000,0x0057,0x50c5,0x0000,0x009c
0322 01e3 045e | ^| .DEBUG 0x01e3,0x045e,0x0002,0x0000,0x0057,0x50c5,0x0000,0x00a9
032a 01fb 0468 | h| .DEBUG 0x01fb,0x0468,0x0001,0x0000,0x0057,0x50c5,0x0000,0x00b6
0332 0213 0470 | p| .DEBUG 0x0213,0x0470,0x0001,0x0000,0x0057,0x50c5,0x0000,0x00c6
033a 0223 0474 | # t| .DEBUG 0x0223,0x0474,0x0001,0x0000,0x0057,0x50c5,0x0000,0x00d2
0342 022b 0478 | + x| .DEBUG 0x022b,0x0478,0x0002,0x0000,0x0057,0x50c5,0x0000,0x00de
034a 023b 047c | ; || .DEBUG 0x023b,0x047c,0x0002,0x0000,0x0057,0x50c5,0x0000,0x00eb
0352 0243 0480 | C | .DEBUG 0x0243,0x0480,0x0005,0x0000,0x0057,0x50c5,0x0000,0x00f9
035a 028b 0482 | | .DEBUG 0x028b,0x0482,0x0005,0x0000,0x0057,0x50c5,0x0000,0x013d
0362 02a3 0484 | | .DEBUG 0x02a3,0x0484,0x0001,0x0000,0x0057,0x5135,0x0000,0x01d6
036a ; --------------------------------------------------------------------------------------
036a ; Debug3 Subtable 0x0
036a ; --------------------------------------------------------------------------------------
036a 001a 0000 | | .DBG3TAB 0x001a,0x0000
036c 000b ffff | | .CONST 0x000b,0xffff
036e 000b fffe | | .CONST 0x000b,0xfffe
0370 000b fffd | | .CONST 0x000b,0xfffd
0372 000b fffc | | .CONST 0x000b,0xfffc
0374 000d fffb | | .CONST 0x000d,0xfffb
0376 000f fffa | | .CONST 0x000f,0xfffa
0378 0011 fff9 | | .CONST 0x0011,0xfff9
037a 0013 fff8 | | .CONST 0x0013,0xfff8
037c 0015 fff7 | | .CONST 0x0015,0xfff7
037e 0017 fff6 | | .CONST 0x0017,0xfff6
0380 0019 fff5 | | .CONST 0x0019,0xfff5
0382 001b fff4 | | .CONST 0x001b,0xfff4
0384 001d fff3 | | .CONST 0x001d,0xfff3
0386 0021 fff2 | ! | .CONST 0x0021,0xfff2
0388 0023 fff1 | # | .CONST 0x0023,0xfff1
038a 0025 fff0 | % | .CONST 0x0025,0xfff0
038c 0027 ffef | ' | .CONST 0x0027,0xffef
038e 0029 ffee | ) | .CONST 0x0029,0xffee
0390 002b ffed | + | .CONST 0x002b,0xffed
0392 002d ffec | - | .CONST 0x002d,0xffec
0394 002f ffeb | / | .CONST 0x002f,0xffeb
0396 0031 ffea | 1 | .CONST 0x0031,0xffea
0398 0042 ffe9 | B | .CONST 0x0042,0xffe9
039a 0047 ffe8 | G | .CONST 0x0047,0xffe8
039c 0053 ffe7 | S | .CONST 0x0053,0xffe7
039e 005d ffe6 | ] | .CONST 0x005d,0xffe6
03a0 ; --------------------------------------------------------------------------------------
03a0 ; Debug3 Subtable 0x1
03a0 ; --------------------------------------------------------------------------------------
03a0 001b 0000 | | .DBG3TAB 0x001b,0x0000
03a2 0063 ffff | c | .CONST 0x0063,0xffff
03a4 0063 fffe | c | .CONST 0x0063,0xfffe
03a6 0063 fffd | c | .CONST 0x0063,0xfffd
03a8 0063 fffc | c | .CONST 0x0063,0xfffc
03aa 0063 fffb | c | .CONST 0x0063,0xfffb
03ac 0063 fffa | c | .CONST 0x0063,0xfffa
03ae 0065 fff9 | e | .CONST 0x0065,0xfff9
03b0 0067 fff8 | g | .CONST 0x0067,0xfff8
03b2 0067 fff7 | g | .CONST 0x0067,0xfff7
03b4 0067 fff6 | g | .CONST 0x0067,0xfff6
03b6 0067 fff5 | g | .CONST 0x0067,0xfff5
03b8 0067 fff4 | g | .CONST 0x0067,0xfff4
03ba 0067 fff3 | g | .CONST 0x0067,0xfff3
03bc 0067 fff2 | g | .CONST 0x0067,0xfff2
03be 0069 fff1 | i | .CONST 0x0069,0xfff1
03c0 006b fff0 | k | .CONST 0x006b,0xfff0
03c2 006d ffef | m | .CONST 0x006d,0xffef
03c4 006f ffee | o | .CONST 0x006f,0xffee
03c6 0071 ffed | q | .CONST 0x0071,0xffed
03c8 0073 ffec | s | .CONST 0x0073,0xffec
03ca 0075 ffeb | u | .CONST 0x0075,0xffeb
03cc 0077 ffea | w | .CONST 0x0077,0xffea
03ce 0079 ffe9 | y | .CONST 0x0079,0xffe9
03d0 007b ffe8 | { | .CONST 0x007b,0xffe8
03d2 007d ffe7 | } | .CONST 0x007d,0xffe7
03d4 007f ffe6 | | .CONST 0x007f,0xffe6
03d6 0081 ffe5 | | .CONST 0x0081,0xffe5
03d8 ; --------------------------------------------------------------------------------------
03d8 ; Debug3 Subtable 0x2
03d8 ; --------------------------------------------------------------------------------------
03d8 0000 0003 | | .DBG3TAB 0x0000,0x0003
03da 008b 0001 | | .CONST 0x008b,0x0001
03dc 008e 0002 | | .CONST 0x008e,0x0002
03de 0094 0003 | | .CONST 0x0094,0x0003
03e0 ; --------------------------------------------------------------------------------------
03e0 ; Debug3 Subtable 0x3
03e0 ; --------------------------------------------------------------------------------------
03e0 0000 0001 | | .DBG3TAB 0x0000,0x0001
03e2 00a3 0001 | | .CONST 0x00a3,0x0001
03e4 ; --------------------------------------------------------------------------------------
03e4 ; Debug3 Subtable 0x4
03e4 ; --------------------------------------------------------------------------------------
03e4 0004 0008 | | .DBG3TAB 0x0004,0x0008
03e6 00ab ffff | | .CONST 0x00ab,0xffff
03e8 00af fffe | | .CONST 0x00af,0xfffe
03ea 00b3 0401 | | .CONST 0x00b3,0x0401
03ec 00bc fffe | | .CONST 0x00bc,0xfffe
03ee 00bd fffd | | .CONST 0x00bd,0xfffd
03f0 00be 0001 | | .CONST 0x00be,0x0001
03f2 00c7 0002 | | .CONST 0x00c7,0x0002
03f4 00ce 0003 | | .CONST 0x00ce,0x0003
03f6 00d9 0004 | | .CONST 0x00d9,0x0004
03f8 00e3 0005 | | .CONST 0x00e3,0x0005
03fa 00e8 0801 | | .CONST 0x00e8,0x0801
03fc 00fb 0005 | | .CONST 0x00fb,0x0005
03fe ; --------------------------------------------------------------------------------------
03fe ; Debug3 Subtable 0x5
03fe ; --------------------------------------------------------------------------------------
03fe 0000 0005 | | .DBG3TAB 0x0000,0x0005
0400 010b 0001 | | .CONST 0x010b,0x0001
0402 010e 0401 | | .CONST 0x010e,0x0401
0404 0118 0001 | | .CONST 0x0118,0x0001
0406 011a 0801 | | .CONST 0x011a,0x0801
0408 0123 0401 | # | .CONST 0x0123,0x0401
040a ; --------------------------------------------------------------------------------------
040a ; Debug3 Subtable 0x6
040a ; --------------------------------------------------------------------------------------
040a 0000 0005 | | .DBG3TAB 0x0000,0x0005
040c 012b 0001 | + | .CONST 0x012b,0x0001
040e 012e 0401 | . | .CONST 0x012e,0x0401
0410 0138 0001 | 8 | .CONST 0x0138,0x0001
0412 013a 0801 | : | .CONST 0x013a,0x0801
0414 0143 0401 | C | .CONST 0x0143,0x0401
0416 ; --------------------------------------------------------------------------------------
0416 ; Debug3 Subtable 0x7
0416 ; --------------------------------------------------------------------------------------
0416 0002 0007 | | .DBG3TAB 0x0002,0x0007
0418 014b ffff | K | .CONST 0x014b,0xffff
041a 014f fffe | O | .CONST 0x014f,0xfffe
041c 0150 0001 | P | .CONST 0x0150,0x0001
041e 0157 0002 | W | .CONST 0x0157,0x0002
0420 0159 0003 | Y | .CONST 0x0159,0x0003
0422 0160 0004 | ` | .CONST 0x0160,0x0004
0424 0166 0005 | f | .CONST 0x0166,0x0005
0426 016c 0006 | l | .CONST 0x016c,0x0006
0428 0171 0008 | q | .CONST 0x0171,0x0008
042a ; --------------------------------------------------------------------------------------
042a ; Debug3 Subtable 0x8
042a ; --------------------------------------------------------------------------------------
042a 0002 0008 | | .DBG3TAB 0x0002,0x0008
042c 017b ffff | { | .CONST 0x017b,0xffff
042e 017f fffe | | .CONST 0x017f,0xfffe
0430 0180 0001 | | .CONST 0x0180,0x0001
0432 0187 0002 | | .CONST 0x0187,0x0002
0434 0189 0003 | | .CONST 0x0189,0x0003
0436 0190 0004 | | .CONST 0x0190,0x0004
0438 0193 0005 | | .CONST 0x0193,0x0005
043a 019c 0006 | | .CONST 0x019c,0x0006
043c 019e 0007 | | .CONST 0x019e,0x0007
043e 01a2 0009 | | .CONST 0x01a2,0x0009
0440 ; --------------------------------------------------------------------------------------
0440 ; Debug3 Subtable 0x9
0440 ; --------------------------------------------------------------------------------------
0440 0002 0005 | | .DBG3TAB 0x0002,0x0005
0442 01ab ffff | | .CONST 0x01ab,0xffff
0444 01af fffe | | .CONST 0x01af,0xfffe
0446 01b0 0001 | | .CONST 0x01b0,0x0001
0448 01b7 0002 | | .CONST 0x01b7,0x0002
044a 01b9 0003 | | .CONST 0x01b9,0x0003
044c 01c0 0004 | | .CONST 0x01c0,0x0004
044e 01c3 0006 | | .CONST 0x01c3,0x0006
0450 ; --------------------------------------------------------------------------------------
0450 ; Debug3 Subtable 0xa
0450 ; --------------------------------------------------------------------------------------
0450 0002 0004 | | .DBG3TAB 0x0002,0x0004
0452 01cb ffff | | .CONST 0x01cb,0xffff
0454 01cf fffe | | .CONST 0x01cf,0xfffe
0456 01d0 0001 | | .CONST 0x01d0,0x0001
0458 01d7 0002 | | .CONST 0x01d7,0x0002
045a 01d9 0003 | | .CONST 0x01d9,0x0003
045c 01dc 0004 | | .CONST 0x01dc,0x0004
045e ; --------------------------------------------------------------------------------------
045e ; Debug3 Subtable 0xb
045e ; --------------------------------------------------------------------------------------
045e 0002 0002 | | .DBG3TAB 0x0002,0x0002
0460 01e3 ffff | | .CONST 0x01e3,0xffff
0462 01e7 fffe | | .CONST 0x01e7,0xfffe
0464 01e8 0001 | | .CONST 0x01e8,0x0001
0466 01ef 0002 | | .CONST 0x01ef,0x0002
0468 ; --------------------------------------------------------------------------------------
0468 ; Debug3 Subtable 0xc
0468 ; --------------------------------------------------------------------------------------
0468 0000 0003 | | .DBG3TAB 0x0000,0x0003
046a 01fb 0001 | | .CONST 0x01fb,0x0001
046c 01ff 0401 | | .CONST 0x01ff,0x0401
046e 0208 0001 | | .CONST 0x0208,0x0001
0470 ; --------------------------------------------------------------------------------------
0470 ; Debug3 Subtable 0xd
0470 ; --------------------------------------------------------------------------------------
0470 0000 0001 | | .DBG3TAB 0x0000,0x0001
0472 0213 0001 | | .CONST 0x0213,0x0001
0474 ; --------------------------------------------------------------------------------------
0474 ; Debug3 Subtable 0xe
0474 ; --------------------------------------------------------------------------------------
0474 0000 0001 | | .DBG3TAB 0x0000,0x0001
0476 0223 0001 | # | .CONST 0x0223,0x0001
0478 ; --------------------------------------------------------------------------------------
0478 ; Debug3 Subtable 0xf
0478 ; --------------------------------------------------------------------------------------
0478 0000 0001 | | .DBG3TAB 0x0000,0x0001
047a 022b 0001 | + | .CONST 0x022b,0x0001
047c ; --------------------------------------------------------------------------------------
047c ; Debug3 Subtable 0x10
047c ; --------------------------------------------------------------------------------------
047c 0000 0001 | | .DBG3TAB 0x0000,0x0001
047e 023b 0001 | ; | .CONST 0x023b,0x0001
0480 ; --------------------------------------------------------------------------------------
0480 ; Debug3 Subtable 0x11
0480 ; --------------------------------------------------------------------------------------
0480 0000 0000 | | .DBG3TAB 0x0000,0x0000
0482 ; --------------------------------------------------------------------------------------
0482 ; Debug3 Subtable 0x12
0482 ; --------------------------------------------------------------------------------------
0482 0000 0000 | | .DBG3TAB 0x0000,0x0000
0484 ; --------------------------------------------------------------------------------------
0484 ; Debug3 Subtable 0x13
0484 ; --------------------------------------------------------------------------------------
0484 0001 0004 | | .DBG3TAB 0x0001,0x0004
0486 02a3 ffff | | .CONST 0x02a3,0xffff
0488 02a7 0001 | | .CONST 0x02a7,0x0001
048a 02ab 0401 | | .CONST 0x02ab,0x0401
048c 02b4 0001 | | .CONST 0x02b4,0x0001
048e 02ba 0002 | | .CONST 0x02ba,0x0002
0490 0000 0000 | | .BLANK 0000[0x170]