|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_779ce4
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0570 | p | .CONST 0x0570 ; 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 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00f6 | | .CONST 0x00f6 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0037 | 7 | .CONST 0x0037 ; Number of locals
000b INIT_0008:
000b 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated
000d 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated
000f 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated
0011 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated
0013 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated
0015 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated
0017 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated
0019 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated
001b 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated
001d 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated
001f 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated
0021 029a 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call,Visible,Unelaborated
0023 029a 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call,Visible,Unelaborated
0025 029a 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call,Visible,Unelaborated
0027 029a 02c3 | | Declare_Subprogram INIT_02c0,For_Outer_Call,Visible,Unelaborated
0029 029a 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call,Visible,Unelaborated
002b 029a 02eb | | Declare_Subprogram INIT_02e8,For_Outer_Call,Visible,Unelaborated
002d e002 | | Load 0x0,0x2
002e 0129 | ) | Execute Any,Make_Visible
002f 029a 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call,Visible,Unelaborated
0031 029a 030b | | Declare_Subprogram INIT_0308,For_Outer_Call,Visible,Unelaborated
0033 029a 031b | | Declare_Subprogram INIT_0318,For_Outer_Call,Visible,Unelaborated
0035 029a 0323 | #| Declare_Subprogram INIT_0320,For_Outer_Call,Visible,Unelaborated
0037 029a 032b | +| Declare_Subprogram INIT_0328,For_Outer_Call,Visible,Unelaborated
0039 029a 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call,Visible,Unelaborated
003b 029a 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call,Visible,Unelaborated
003d 029a 036b | k| Declare_Subprogram INIT_0368,For_Outer_Call,Visible,Unelaborated
003f e003 | | Load 0x0,0x3
0040 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0041 e004 | | Load 0x0,0x4
0042 00e1 | | Load_Encached Boolean_Cache
0043 00e1 | | Load_Encached Boolean_Cache
0044 e005 | | Load 0x0,0x5
0045 e006 | | Load 0x0,0x6
0046 00e1 | | Load_Encached Boolean_Cache
0047 029f 050b | | Declare_Subprogram INIT_0508,For_Call
0049 4807 |H | Short_Literal 0x7
004a 032e | . | Declare_Type Record,Defined,Visible
004b 4800 |H | Short_Literal 0x0
004c 4804 |H | Short_Literal 0x4
004d 029f 039b | | Declare_Subprogram INIT_0398,For_Call
004f 03fe | | Declare_Type Discrete,Defined,Visible
0050 00d9 | | Load_Top At_Offset_1
0051 00e1 | | Load_Encached Boolean_Cache
0052 00da | | Load_Top At_Offset_2
0053 00e1 | | Load_Encached Boolean_Cache
0054 e007 | | Load 0x0,0x7
0055 029f 051b | | Declare_Subprogram INIT_0518,For_Call
0057 4805 |H | Short_Literal 0x5
0058 032e | . | Declare_Type Record,Defined,Visible
0059 00bf | | Action Accept_Activation
005a 00d9 | | Load_Top At_Offset_1
005b 0266 | f | Execute Discrete,Bounds
005c 00e1 | | Load_Encached Boolean_Cache
005d 02a0 | | Declare_Subprogram Null_Subprogram
005e 4801 |H | Short_Literal 0x1
005f 035d | ] | Declare_Type Array,Defined
0060 00d8 | | Load_Top At_Offset_0
0061 0337 | 7 | Declare_Variable Array
0062 00d8 | | Load_Top At_Offset_0
0063 0335 | 5 | Declare_Variable Array,Duplicate
0064 00cd | | Action Spare6_Action
0065 4801 |H | Short_Literal 0x1
0066 4804 |H | Short_Literal 0x4
0067 00da | | Load_Top At_Offset_2
0068 01d6 | | Execute Vector,Field_Write
0069 4800 |H | Short_Literal 0x0
006a 4800 |H | Short_Literal 0x0
006b 00da | | Load_Top At_Offset_2
006c 01d6 | | Execute Vector,Field_Write
006d 4800 |H | Short_Literal 0x0
006e 4801 |H | Short_Literal 0x1
006f 00da | | Load_Top At_Offset_2
0070 01d6 | | Execute Vector,Field_Write
0071 4800 |H | Short_Literal 0x0
0072 4802 |H | Short_Literal 0x2
0073 00da | | Load_Top At_Offset_2
0074 01d6 | | Execute Vector,Field_Write
0075 4800 |H | Short_Literal 0x0
0076 4803 |H | Short_Literal 0x3
0077 00da | | Load_Top At_Offset_2
0078 01d6 | | Execute Vector,Field_Write
0079 00d9 | | Load_Top At_Offset_1
007a 01d4 | | Execute Vector,Structure_Write
007b 4800 |H | Short_Literal 0x0
007c 4802 |H | Short_Literal 0x2
007d 029f 03c3 | | Declare_Subprogram INIT_03c0,For_Call
007f 03fd | | Declare_Type Discrete,Defined
0080 4800 |H | Short_Literal 0x0
0081 4803 |H | Short_Literal 0x3
0082 029f 03eb | | Declare_Subprogram INIT_03e8,For_Call
0084 03fd | | Declare_Type Discrete,Defined
0085 e228 | ( | Load 0x1,0x28
0086 0266 | f | Execute Discrete,Bounds
0087 00da | | Load_Top At_Offset_2
0088 02a0 | | Declare_Subprogram Null_Subprogram
0089 4801 |H | Short_Literal 0x1
008a 035d | ] | Declare_Type Array,Defined
008b 00d8 | | Load_Top At_Offset_0
008c 0337 | 7 | Declare_Variable Array
008d 00d8 | | Load_Top At_Offset_0
008e 0335 | 5 | Declare_Variable Array,Duplicate
008f 00cd | | Action Spare6_Action
0090 4800 |H | Short_Literal 0x0
0091 4800 |H | Short_Literal 0x0
0092 00da | | Load_Top At_Offset_2
0093 01d6 | | Execute Vector,Field_Write
0094 4801 |H | Short_Literal 0x1
0095 4801 |H | Short_Literal 0x1
0096 00da | | Load_Top At_Offset_2
0097 01d6 | | Execute Vector,Field_Write
0098 4802 |H | Short_Literal 0x2
0099 4802 |H | Short_Literal 0x2
009a 00da | | Load_Top At_Offset_2
009b 01d6 | | Execute Vector,Field_Write
009c 4802 |H | Short_Literal 0x2
009d 4803 |H | Short_Literal 0x3
009e 00da | | Load_Top At_Offset_2
009f 01d6 | | Execute Vector,Field_Write
00a0 4803 |H | Short_Literal 0x3
00a1 4804 |H | Short_Literal 0x4
00a2 00da | | Load_Top At_Offset_2
00a3 01d6 | | Execute Vector,Field_Write
00a4 00d9 | | Load_Top At_Offset_1
00a5 01d4 | | Execute Vector,Structure_Write
00a6 e008 | | Load 0x0,0x8
00a7 e009 | | Load 0x0,0x9
00a8 e22d | - | Load 0x1,0x2d
00a9 4800 |H | Short_Literal 0x0
00aa 4801 |H | Short_Literal 0x1
00ab 4803 |H | Short_Literal 0x3
00ac 0092 053a | :| Action Push_String_Extended,0x53a ; "others => Unspecified"
00ae 00ea | | Load_Encached Null_String_Cache
00af 00ea | | Load_Encached Null_String_Cache
00b0 4801 |H | Short_Literal 0x1
00b1 4803 |H | Short_Literal 0x3
00b2 e00a | | Load 0x0,0xa
00b3 0387 | | Declare_Variable Package
00b4 00d8 | | Load_Top At_Offset_0
00b5 020f | | Execute Module,Activate
00b6 1d0d | | Execute_Immediate Reference_Lex_1,0xd
00b7 00c7 | | Action Elaborate_Subprogram
00b8 1d0e | | Execute_Immediate Reference_Lex_1,0xe
00b9 00c7 | | Action Elaborate_Subprogram
00ba 029d 0413 | | Declare_Subprogram INIT_0410,For_Outer_Call
00bc 1d0f | | Execute_Immediate Reference_Lex_1,0xf
00bd 00c7 | | Action Elaborate_Subprogram
00be 1d10 | | Execute_Immediate Reference_Lex_1,0x10
00bf 00c7 | | Action Elaborate_Subprogram
00c0 1d11 | | Execute_Immediate Reference_Lex_1,0x11
00c1 00c7 | | Action Elaborate_Subprogram
00c2 1d12 | | Execute_Immediate Reference_Lex_1,0x12
00c3 00c7 | | Action Elaborate_Subprogram
00c4 1d13 | | Execute_Immediate Reference_Lex_1,0x13
00c5 00c7 | | Action Elaborate_Subprogram
00c6 1d14 | | Execute_Immediate Reference_Lex_1,0x14
00c7 00c7 | | Action Elaborate_Subprogram
00c8 1d15 | | Execute_Immediate Reference_Lex_1,0x15
00c9 00c7 | | Action Elaborate_Subprogram
00ca 1d16 | | Execute_Immediate Reference_Lex_1,0x16
00cb 00c7 | | Action Elaborate_Subprogram
00cc 1d17 | | Execute_Immediate Reference_Lex_1,0x17
00cd 00c7 | | Action Elaborate_Subprogram
00ce 1d18 | | Execute_Immediate Reference_Lex_1,0x18
00cf 00c7 | | Action Elaborate_Subprogram
00d0 1d19 | | Execute_Immediate Reference_Lex_1,0x19
00d1 00c7 | | Action Elaborate_Subprogram
00d2 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
00d3 00c7 | | Action Elaborate_Subprogram
00d4 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
00d5 00c7 | | Action Elaborate_Subprogram
00d6 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
00d7 00c7 | | Action Elaborate_Subprogram
00d8 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
00d9 00c7 | | Action Elaborate_Subprogram
00da 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
00db 00c7 | | Action Elaborate_Subprogram
00dc 1d20 | | Execute_Immediate Reference_Lex_1,0x20
00dd 00c7 | | Action Elaborate_Subprogram
00de 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
00df 00c7 | | Action Elaborate_Subprogram
00e0 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
00e1 00c7 | | Action Elaborate_Subprogram
00e2 029d 0433 | 3| Declare_Subprogram INIT_0430,For_Outer_Call
00e4 029d 044b | K| Declare_Subprogram INIT_0448,For_Outer_Call
00e6 029d 0463 | c| Declare_Subprogram INIT_0460,For_Outer_Call
00e8 029d 0473 | s| Declare_Subprogram INIT_0470,For_Outer_Call
00ea 029d 0483 | | Declare_Subprogram INIT_0480,For_Outer_Call
00ec 029d 04a3 | | Declare_Subprogram INIT_04a0,For_Outer_Call
00ee 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
00ef 00c7 | | Action Elaborate_Subprogram
00f0 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
00f1 00c7 | | Action Elaborate_Subprogram
00f2 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
00f3 00c7 | | Action Elaborate_Subprogram
00f4 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
00f5 00c7 | | Action Elaborate_Subprogram
00f6 BODY_0008:
00f6 00bc | | Action Signal_Activated
00f7 00bb | | Action Signal_Completion
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00ff | | .CONST 0x00ff ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0002 | | .CONST 0x0002 ; Number of locals
00fb INIT_00f8:
00fb e227 | ' | Load 0x1,0x27
00fc 0322 | " | Declare_Variable Record
00fd 00d8 | | Load_Top At_Offset_0
00fe 1c00 | | Execute_Immediate Run_Utility,0x0
00ff BODY_00f8:
00ff 00db | | Load_Top At_Offset_3
0100 00d9 | | Load_Top At_Offset_1
0101 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0102 00db | | Load_Top At_Offset_3
0103 800b | | Call 0x0,0xb
0104 00d9 | | Load_Top At_Offset_1
0105 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0106 00db | | Load_Top At_Offset_3
0107 800c | | Call 0x0,0xc
0108 00d9 | | Load_Top At_Offset_1
0109 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
010a 00d8 | | Load_Top At_Offset_0
010b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
010c 0000 0000 | | .BLANK 0000[0x4]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 011d | | .CONST 0x011d ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0004 | | .CONST 0x0004 ; Number of locals
0113 INIT_0110:
0113 e227 | ' | Load 0x1,0x27
0114 0322 | " | Declare_Variable Record
0115 00d8 | | Load_Top At_Offset_0
0116 1c00 | | Execute_Immediate Run_Utility,0x0
0117 00db | | Load_Top At_Offset_3
0118 800d | | Call 0x0,0xd
0119 e00e | | Load 0x0,0xe
011a 03f1 | | Declare_Variable Discrete,With_Value
011b e00f | | Load 0x0,0xf
011c 0007 | | Action Break_Optional
011d BODY_0110:
011d e5fe | | Load 0x2,-0x2
011e 820d | | Call 0x1,0xd
011f 00db | | Load_Top At_Offset_3
0120 017d | } | Execute Record,Structure_Write
0121 e5fb | | Load 0x2,-0x5
0122 e5fc | | Load 0x2,-0x4
0123 e402 | | Load 0x2,0x2
0124 0092 053b | ;| Action Push_String_Extended,0x53b ; "<FULL>"
0126 e5ff | | Load 0x2,-0x1
0127 8010 | | Call 0x0,0x10
0128 8011 | | Call 0x0,0x11
0129 8216 | | Call 0x1,0x16
012a 00d1 | | Pop_Control Pop_Count_1
012b c5fc | | Store 0x2,-0x4
012c c5fb | | Store 0x2,-0x5
012d 00d9 | | Load_Top At_Offset_1
012e 0f02 | | Execute_Immediate Equal,0x2
012f 7003 |p | Jump_Nonzero 0x133
0130 00d9 | | Load_Top At_Offset_1
0131 0f03 | | Execute_Immediate Equal,0x3
0132 7801 |x | Jump 0x134
0133 4801 |H | Short_Literal 0x1
0134 00db | | Load_Top At_Offset_3
0135 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0136 00d9 | | Load_Top At_Offset_1
0137 0f02 | | Execute_Immediate Equal,0x2
0138 7003 |p | Jump_Nonzero 0x13c
0139 00d9 | | Load_Top At_Offset_1
013a 0f01 | | Execute_Immediate Equal,0x1
013b 7801 |x | Jump 0x13d
013c 4801 |H | Short_Literal 0x1
013d 00db | | Load_Top At_Offset_3
013e 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
013f e5fe | | Load 0x2,-0x2
0140 800c | | Call 0x0,0xc
0141 00db | | Load_Top At_Offset_3
0142 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0143 e00f | | Load 0x0,0xf
0144 e5fe | | Load 0x2,-0x2
0145 e5ff | | Load 0x2,-0x1
0146 8012 | | Call 0x0,0x12
0147 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0148 00cf | | Action Mark_Auxiliary
0149 00d9 | | Load_Top At_Offset_1
014a 8013 | | Call 0x0,0x13
014b 700e |p | Jump_Nonzero 0x15a
014c e5fb | | Load 0x2,-0x5
014d e5fc | | Load 0x2,-0x4
014e e402 | | Load 0x2,0x2
014f e404 | | Load 0x2,0x4
0150 8014 | | Call 0x0,0x14
0151 821c | | Call 0x1,0x1c
0152 00d1 | | Pop_Control Pop_Count_1
0153 c5fc | | Store 0x2,-0x4
0154 c5fb | | Store 0x2,-0x5
0155 00d9 | | Load_Top At_Offset_1
0156 8015 | | Call 0x0,0x15
0157 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0158 00c9 | | Action Pop_Auxiliary_Loop
0159 7fef | | Jump 0x149
015a 00ce | | Action Pop_Auxiliary
015b 00da | | Load_Top At_Offset_2
015c e5fd | | Load 0x2,-0x3
015d 017d | } | Execute Record,Structure_Write
015e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
015f 0000 | | .XXX[0x1]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 016a | j | .CONST 0x016a ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0003 | | .CONST 0x0003 ; Number of locals
0163 INIT_0160:
0163 00da | | Load_Top At_Offset_2
0164 e230 | 0 | Load 0x1,0x30
0165 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0166 e227 | ' | Load 0x1,0x27
0167 0322 | " | Declare_Variable Record
0168 00d8 | | Load_Top At_Offset_0
0169 1c00 | | Execute_Immediate Run_Utility,0x0
016a BODY_0160:
016a 00d9 | | Load_Top At_Offset_1
016b e230 | 0 | Load 0x1,0x30
016c 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
016d 7002 |p | Jump_Nonzero 0x170
016e e016 | | Load 0x0,0x16
016f 0257 | W | Execute Discrete,Raise
0170 e5fe | | Load 0x2,-0x2
0171 820d | | Call 0x1,0xd
0172 00d9 | | Load_Top At_Offset_1
0173 017d | } | Execute Record,Structure_Write
0174 e5fd | | Load 0x2,-0x3
0175 00d9 | | Load_Top At_Offset_1
0176 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0177 4801 |H | Short_Literal 0x1
0178 00d9 | | Load_Top At_Offset_1
0179 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
017a e5fe | | Load 0x2,-0x2
017b 00ea | | Load_Encached Null_String_Cache
017c 4801 |H | Short_Literal 0x1
017d e22f | / | Load 0x1,0x2f
017e 01d7 | | Execute Vector,Field_Read
017f e402 | | Load 0x2,0x2
0180 e230 | 0 | Load 0x1,0x30
0181 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0182 8017 | | Call 0x0,0x17
0183 00d9 | | Load_Top At_Offset_1
0184 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0185 00e1 | | Load_Encached Boolean_Cache
0186 00e1 | | Load_Encached Boolean_Cache
0187 00ea | | Load_Encached Null_String_Cache
0188 4802 |H | Short_Literal 0x2
0189 e22f | / | Load 0x1,0x2f
018a 01d7 | | Execute Vector,Field_Read
018b e402 | | Load 0x2,0x2
018c e230 | 0 | Load 0x1,0x30
018d 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
018e 8231 | 1 | Call 0x1,0x31
018f 00da | | Load_Top At_Offset_2
0190 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0191 00d9 | | Load_Top At_Offset_1
0192 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0193 e5fd | | Load 0x2,-0x3
0194 e5fe | | Load 0x2,-0x2
0195 00ea | | Load_Encached Null_String_Cache
0196 4804 |H | Short_Literal 0x4
0197 e22f | / | Load 0x1,0x2f
0198 01d7 | | Execute Vector,Field_Read
0199 e402 | | Load 0x2,0x2
019a e230 | 0 | Load 0x1,0x30
019b 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
019c 8018 | | Call 0x0,0x18
019d 00d9 | | Load_Top At_Offset_1
019e 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
019f 00d8 | | Load_Top At_Offset_0
01a0 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
01a1 0000 0000 | | .BLANK 0000[0x7]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab | | .CONST 0x01ab ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0001 | | .CONST 0x0001 ; Number of locals
01ab BODY_01a8:
01ab INIT_01a8:
01ab e003 | | Load 0x0,0x3
01ac 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
01ad 00db | | Load_Top At_Offset_3
01ae 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01af 00da | | Load_Top At_Offset_2
01b0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01b1 8019 | | Call 0x0,0x19
01b2 00db | | Load_Top At_Offset_3
01b3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01b4 4800 |H | Short_Literal 0x0
01b5 00db | | Load_Top At_Offset_3
01b6 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01b7 4800 |H | Short_Literal 0x0
01b8 00db | | Load_Top At_Offset_3
01b9 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
01ba 00da | | Load_Top At_Offset_2
01bb 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
01bc 801a | | Call 0x0,0x1a
01bd 00db | | Load_Top At_Offset_3
01be 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
01bf 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3 | | .CONST 0x01c3 ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0001 | | .CONST 0x0001 ; Number of locals
01c3 BODY_01c0:
01c3 INIT_01c0:
01c3 00da | | Load_Top At_Offset_2
01c4 e5fe | | Load 0x2,-0x2
01c5 017f | | Execute Record,Equal
01c6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01c7 0000 | | .XXX[0x1]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb | | .CONST 0x01cb ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0001 | | .CONST 0x0001 ; Number of locals
01cb BODY_01c8:
01cb INIT_01c8:
01cb 4801 |H | Short_Literal 0x1
01cc 00db | | Load_Top At_Offset_3
01cd 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01ce 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01cf 0000 | | .XXX[0x1]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3 | | .CONST 0x01d3 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0001 | | .CONST 0x0001 ; Number of locals
01d3 BODY_01d0:
01d3 INIT_01d0:
01d3 00da | | Load_Top At_Offset_2
01d4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01d5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01d6 0000 0000 | | .XXX[0x2]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db | | .CONST 0x01db ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0001 | | .CONST 0x0001 ; Number of locals
01db BODY_01d8:
01db INIT_01d8:
01db 4801 |H | Short_Literal 0x1
01dc 00db | | Load_Top At_Offset_3
01dd 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
01de 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01df 0000 | | .XXX[0x1]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3 | | .CONST 0x01e3 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0001 | | .CONST 0x0001 ; Number of locals
01e3 BODY_01e0:
01e3 INIT_01e0:
01e3 00da | | Load_Top At_Offset_2
01e4 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
01e5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01e6 0000 0000 | | .XXX[0x2]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01fc | | .CONST 0x01fc ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0007 | | .CONST 0x0007 ; Number of locals
01eb INIT_01e8:
01eb 00da | | Load_Top At_Offset_2
01ec 0335 | 5 | Declare_Variable Array,Duplicate
01ed 00cd | | Action Spare6_Action
01ee 4801 |H | Short_Literal 0x1
01ef 00d9 | | Load_Top At_Offset_1
01f0 483b |H; | Short_Literal 0x3b
01f1 e01b | | Load 0x0,0x1b
01f2 1820 | | Execute Package,Field_Execute,Field_Number 0x20
01f3 00e3 | | Load_Encached Natural_Cache
01f4 03f1 | | Declare_Variable Discrete,With_Value
01f5 00e1 | | Load_Encached Boolean_Cache
01f6 00e3 | | Load_Encached Natural_Cache
01f7 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
01f8 e004 | | Load 0x0,0x4
01f9 0007 | | Action Break_Optional
01fa 029f 04bb | | Declare_Subprogram INIT_04b8,For_Call
01fc BODY_01e8:
01fc e5fe | | Load 0x2,-0x2
01fd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01fe 8019 | | Call 0x0,0x19
01ff e5fe | | Load 0x2,-0x2
0200 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0201 e403 | | Load 0x2,0x3
0202 7002 |p | Jump_Nonzero 0x205
0203 8407 | | Call 0x2,0x7
0204 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0205 e5fe | | Load 0x2,-0x2
0206 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0207 e402 | | Load 0x2,0x2
0208 01dd | | Execute Vector,First
0209 e403 | | Load 0x2,0x3
020a 0aff | | Execute_Immediate Plus,-0x1
020b e402 | | Load 0x2,0x2
020c 01cf | | Execute Vector,Slice_Read
020d 8017 | | Call 0x0,0x17
020e 0032 | 2 | Store_Top Heap_Access,At_Offset_2
020f 00e1 | | Load_Encached Boolean_Cache
0210 00db | | Load_Top At_Offset_3
0211 00db | | Load_Top At_Offset_3
0212 e5fd | | Load 0x2,-0x3
0213 801c | | Call 0x0,0x1c
0214 c405 | | Store 0x2,0x5
0215 c404 | | Store 0x2,0x4
0216 00db | | Load_Top At_Offset_3
0217 700a |p | Jump_Nonzero 0x222
0218 e5fd | | Load 0x2,-0x3
0219 e5fc | | Load 0x2,-0x4
021a 00db | | Load_Top At_Offset_3
021b 801d | | Call 0x0,0x1d
021c c5fd | | Store 0x2,-0x3
021d e5fc | | Load 0x2,-0x4
021e 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
021f e5fc | | Load 0x2,-0x4
0220 0a01 | | Execute_Immediate Plus,0x1
0221 c5fc | | Store 0x2,-0x4
0222 e5fe | | Load 0x2,-0x2
0223 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0224 4820 |H | Short_Literal 0x20
0225 4800 |H | Short_Literal 0x0
0226 480a |H | Short_Literal 0xa
0227 e405 | | Load 0x2,0x5
0228 e01b | | Load 0x0,0x1b
0229 1816 | | Execute Package,Field_Execute,Field_Number 0x16
022a e403 | | Load 0x2,0x3
022b e402 | | Load 0x2,0x2
022c 01dc | | Execute Vector,Last
022d e402 | | Load 0x2,0x2
022e 01cf | | Execute Vector,Slice_Read
022f 01cc | | Execute Vector,Catenate
0230 8017 | | Call 0x0,0x17
0231 e5fe | | Load 0x2,-0x2
0232 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0233 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0234 0000 0000 | | .BLANK 0000[0x4]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 024a | J | .CONST 0x024a ; Address of begin
0239 0275 | u | .CONST 0x0275 ; Address of exception handler
023a 0007 | | .CONST 0x0007 ; Number of locals
023b INIT_0238:
023b 00da | | Load_Top At_Offset_2
023c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
023d 801e | | Call 0x0,0x1e
023e 4801 |H | Short_Literal 0x1
023f 00d9 | | Load_Top At_Offset_1
0240 483b |H; | Short_Literal 0x3b
0241 e01b | | Load 0x0,0x1b
0242 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0243 00e3 | | Load_Encached Natural_Cache
0244 03f1 | | Declare_Variable Discrete,With_Value
0245 00e3 | | Load_Encached Natural_Cache
0246 00e1 | | Load_Encached Boolean_Cache
0247 00e1 | | Load_Encached Boolean_Cache
0248 e004 | | Load 0x0,0x4
0249 0007 | | Action Break_Optional
024a BODY_0238:
024a e403 | | Load 0x2,0x3
024b 7002 |p | Jump_Nonzero 0x24e
024c e402 | | Load 0x2,0x2
024d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
024e 00e1 | | Load_Encached Boolean_Cache
024f 00e2 | | Load_Encached Integer_Cache
0250 480a |H | Short_Literal 0xa
0251 e402 | | Load 0x2,0x2
0252 01dd | | Execute Vector,First
0253 e403 | | Load 0x2,0x3
0254 0aff | | Execute_Immediate Plus,-0x1
0255 e402 | | Load 0x2,0x2
0256 01cf | | Execute Vector,Slice_Read
0257 e01b | | Load 0x0,0x1b
0258 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0259 c404 | | Store 0x2,0x4
025a 005b | [ | Store_Top Discrete,At_Offset_3
025b 00da | | Load_Top At_Offset_2
025c 6816 |h | Jump_Zero 0x273
025d 00e1 | | Load_Encached Boolean_Cache
025e 00d9 | | Load_Top At_Offset_1
025f e404 | | Load 0x2,0x4
0260 e5ff | | Load 0x2,-0x1
0261 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0262 801f | | Call 0x0,0x1f
0263 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0264 005a | Z | Store_Top Discrete,At_Offset_2
0265 00d9 | | Load_Top At_Offset_1
0266 680c |h | Jump_Zero 0x273
0267 480a |H | Short_Literal 0xa
0268 00d9 | | Load_Top At_Offset_1
0269 801e | | Call 0x0,0x1e
026a e01b | | Load 0x0,0x1b
026b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
026c e403 | | Load 0x2,0x3
026d e402 | | Load 0x2,0x2
026e 01dc | | Execute Vector,Last
026f e402 | | Load 0x2,0x2
0270 01cf | | Execute Vector,Slice_Read
0271 01cc | | Execute Vector,Catenate
0272 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0273 e402 | | Load 0x2,0x2
0274 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0275 TRAP_0238:
0275 0007 | | Action Break_Optional
0276 e402 | | Load 0x2,0x2
0277 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027b | { | .CONST 0x027b ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0001 | | .CONST 0x0001 ; Number of locals
027b BODY_0278:
027b INIT_0278:
027b 00da | | Load_Top At_Offset_2
027c 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
027d 8020 | | Call 0x0,0x20
027e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
027f 0000 | | .XXX[0x1]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0283 | | .CONST 0x0283 ; Address of begin
0281 0004 | | .CONST 0x0004 ; Address of exception handler
0282 0001 | | .CONST 0x0001 ; Number of locals
0283 BODY_0280:
0283 INIT_0280:
0283 00da | | Load_Top At_Offset_2
0284 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0285 8021 | ! | Call 0x0,0x21
0286 00db | | Load_Top At_Offset_3
0287 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0288 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0289 0000 0000 | | .BLANK 0000[0x7]
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 0293 | | .CONST 0x0293 ; Address of begin
0291 0004 | | .CONST 0x0004 ; Address of exception handler
0292 0001 | | .CONST 0x0001 ; Number of locals
0293 BODY_0290:
0293 INIT_0290:
0293 e5fd | | Load 0x2,-0x3
0294 8210 | | Call 0x1,0x10
0295 00d1 | | Pop_Control Pop_Count_1
0296 00db | | Load_Top At_Offset_3
0297 820d | | Call 0x1,0xd
0298 e5fd | | Load 0x2,-0x3
0299 017d | } | Execute Record,Structure_Write
029a 00da | | Load_Top At_Offset_2
029b 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
029c e5fd | | Load 0x2,-0x3
029d 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
029e 00da | | Load_Top At_Offset_2
029f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02a0 e5fd | | Load 0x2,-0x3
02a1 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
02a2 00da | | Load_Top At_Offset_2
02a3 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
02a4 6807 |h | Jump_Zero 0x2ac
02a5 00da | | Load_Top At_Offset_2
02a6 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
02a7 e5fd | | Load 0x2,-0x3
02a8 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
02a9 4801 |H | Short_Literal 0x1
02aa e5fd | | Load 0x2,-0x3
02ab 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
02ac e5fd | | Load 0x2,-0x3
02ad 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02ae e5fe | | Load 0x2,-0x2
02af e5ff | | Load 0x2,-0x1
02b0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02b1 8022 | " | Call 0x0,0x22
02b2 e5fd | | Load 0x2,-0x3
02b3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02b4 e5fd | | Load 0x2,-0x3
02b5 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
02b6 e5fe | | Load 0x2,-0x2
02b7 e5ff | | Load 0x2,-0x1
02b8 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
02b9 8023 | # | Call 0x0,0x23
02ba e5fd | | Load 0x2,-0x3
02bb 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
02bc 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02bd 0000 0000 | | .XXX[0x3]
02bf 0000 | |
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c3 | | .CONST 0x02c3 ; Address of begin
02c1 0004 | | .CONST 0x0004 ; Address of exception handler
02c2 0001 | | .CONST 0x0001 ; Number of locals
02c3 BODY_02c0:
02c3 INIT_02c0:
02c3 00da | | Load_Top At_Offset_2
02c4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02c5 e5fe | | Load 0x2,-0x2
02c6 8024 | $ | Call 0x0,0x24
02c7 00db | | Load_Top At_Offset_3
02c8 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
02c9 8025 | % | Call 0x0,0x25
02ca 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02cb 0000 0000 | | .BLANK 0000[0x5]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02d5 | | .CONST 0x02d5 ; Address of begin
02d1 0004 | | .CONST 0x0004 ; Address of exception handler
02d2 0002 | | .CONST 0x0002 ; Number of locals
02d3 INIT_02d0:
02d3 e026 | & | Load 0x0,0x26
02d4 0007 | | Action Break_Optional
02d5 BODY_02d0:
02d5 e5fc | | Load 0x2,-0x4
02d6 e5fd | | Load 0x2,-0x3
02d7 00da | | Load_Top At_Offset_2
02d8 e5fe | | Load 0x2,-0x2
02d9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02da e5ff | | Load 0x2,-0x1
02db 8027 | ' | Call 0x0,0x27
02dc 8028 | ( | Call 0x0,0x28
02dd 0033 | 3 | Store_Top Heap_Access,At_Offset_3
02de c5fd | | Store 0x2,-0x3
02df c5fc | | Store 0x2,-0x4
02e0 e5fe | | Load 0x2,-0x2
02e1 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
02e2 00d9 | | Load_Top At_Offset_1
02e3 8029 | ) | Call 0x0,0x29
02e4 e5fe | | Load 0x2,-0x2
02e5 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
02e6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02e7 0000 | | .XXX[0x1]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02eb | | .CONST 0x02eb ; Address of begin
02e9 0004 | | .CONST 0x0004 ; Address of exception handler
02ea 0001 | | .CONST 0x0001 ; Number of locals
02eb BODY_02e8:
02eb INIT_02e8:
02eb 00db | | Load_Top At_Offset_3
02ec 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
02ed e5fe | | Load 0x2,-0x2
02ee 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02ef e5ff | | Load 0x2,-0x1
02f0 8024 | $ | Call 0x0,0x24
02f1 802a | * | Call 0x0,0x2a
02f2 e5fe | | Load 0x2,-0x2
02f3 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
02f4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02f5 0000 0000 | | .XXX[0x3]
02f7 0000 | |
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 02fb | | .CONST 0x02fb ; Address of begin
02f9 0004 | | .CONST 0x0004 ; Address of exception handler
02fa 0001 | | .CONST 0x0001 ; Number of locals
02fb BODY_02f8:
02fb INIT_02f8:
02fb e002 | | Load 0x0,0x2
02fc 00db | | Load_Top At_Offset_3
02fd 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
02fe 802b | + | Call 0x0,0x2b
02ff c5fe | | Store 0x2,-0x2
0300 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0301 0000 0000 | | .BLANK 0000[0x7]
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 030b | | .CONST 0x030b ; Address of begin
0309 0004 | | .CONST 0x0004 ; Address of exception handler
030a 0001 | | .CONST 0x0001 ; Number of locals
030b BODY_0308:
030b INIT_0308:
030b 00da | | Load_Top At_Offset_2
030c e002 | | Load 0x0,0x2
030d 0226 | & | Execute Access,Convert
030e 802c | , | Call 0x0,0x2c
030f 003b | ; | Store_Top Access,At_Offset_3
0310 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0311 0000 0000 | | .BLANK 0000[0x7]
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 031b | | .CONST 0x031b ; Address of begin
0319 0004 | | .CONST 0x0004 ; Address of exception handler
031a 0001 | | .CONST 0x0001 ; Number of locals
031b BODY_0318:
031b INIT_0318:
031b 00da | | Load_Top At_Offset_2
031c 802d | - | Call 0x0,0x2d
031d 802e | . | Call 0x0,0x2e
031e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
031f 0000 | | .XXX[0x1]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 0323 | # | .CONST 0x0323 ; Address of begin
0321 0004 | | .CONST 0x0004 ; Address of exception handler
0322 0001 | | .CONST 0x0001 ; Number of locals
0323 BODY_0320:
0323 INIT_0320:
0323 00da | | Load_Top At_Offset_2
0324 802f | / | Call 0x0,0x2f
0325 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0326 0000 0000 | | .XXX[0x2]
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 032f | / | .CONST 0x032f ; Address of begin
0329 0004 | | .CONST 0x0004 ; Address of exception handler
032a 0002 | | .CONST 0x0002 ; Number of locals
032b INIT_0328:
032b e229 | ) | Load 0x1,0x29
032c 0322 | " | Declare_Variable Record
032d 00d8 | | Load_Top At_Offset_0
032e 1c00 | | Execute_Immediate Run_Utility,0x0
032f BODY_0328:
032f 00db | | Load_Top At_Offset_3
0330 00d9 | | Load_Top At_Offset_1
0331 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0332 4801 |H | Short_Literal 0x1
0333 00d9 | | Load_Top At_Offset_1
0334 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0335 00d8 | | Load_Top At_Offset_0
0336 00d9 | | Load_Top At_Offset_1
0337 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0338 8232 | 2 | Call 0x1,0x32
0339 00d1 | | Pop_Control Pop_Count_1
033a 00d8 | | Load_Top At_Offset_0
033b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
033c 0000 0000 | | .BLANK 0000[0x4]
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0343 | C | .CONST 0x0343 ; Address of begin
0341 0004 | | .CONST 0x0004 ; Address of exception handler
0342 0001 | | .CONST 0x0001 ; Number of locals
0343 BODY_0340:
0343 INIT_0340:
0343 00da | | Load_Top At_Offset_2
0344 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0345 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0346 0000 0000 | | .XXX[0x2]
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 0359 | Y | .CONST 0x0359 ; Address of begin
0349 0004 | | .CONST 0x0004 ; Address of exception handler
034a 0004 | | .CONST 0x0004 ; Number of locals
034b INIT_0348:
034b 00da | | Load_Top At_Offset_2
034c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
034d e22f | / | Load 0x1,0x2f
034e 01d7 | | Execute Vector,Field_Read
034f e22d | - | Load 0x1,0x2d
0350 011c | | Execute Any,Convert_Unchecked
0351 1c01 | | Execute_Immediate Run_Utility,0x1
0352 0092 053c | <| Action Push_String_Extended,0x53c ; "=>"
0354 01cc | | Execute Vector,Catenate
0355 029f 04cb | | Declare_Subprogram INIT_04c8,For_Call
0357 029f 04e3 | | Declare_Subprogram INIT_04e0,For_Call
0359 BODY_0348:
0359 e5ff | | Load 0x2,-0x1
035a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
035b e22b | + | Load 0x1,0x2b
035c 01d7 | | Execute Vector,Field_Read
035d 6802 |h | Jump_Zero 0x360
035e 8403 | | Call 0x2,0x3
035f 7801 |x | Jump 0x361
0360 8404 | | Call 0x2,0x4
0361 0831 | 1 | Execute_Immediate Raise,0x31
0362 0000 0000 | | .BLANK 0000[0x6]
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 036b | k | .CONST 0x036b ; Address of begin
0369 0004 | | .CONST 0x0004 ; Address of exception handler
036a 0001 | | .CONST 0x0001 ; Number of locals
036b BODY_0368:
036b INIT_0368:
036b 00da | | Load_Top At_Offset_2
036c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
036d 7023 |p# | Jump_Nonzero 0x391
036e 00da | | Load_Top At_Offset_2
036f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0370 e22b | + | Load 0x1,0x2b
0371 01d7 | | Execute Vector,Field_Read
0372 680b |h | Jump_Zero 0x37e
0373 00da | | Load_Top At_Offset_2
0374 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0375 00db | | Load_Top At_Offset_3
0376 8234 | 4 | Call 0x1,0x34
0377 7006 |p | Jump_Nonzero 0x37e
0378 00da | | Load_Top At_Offset_2
0379 00db | | Load_Top At_Offset_3
037a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
037b 8233 | 3 | Call 0x1,0x33
037c 00d1 | | Pop_Control Pop_Count_1
037d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
037e 00da | | Load_Top At_Offset_2
037f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0380 0f04 | | Execute_Immediate Equal,0x4
0381 6804 |h | Jump_Zero 0x386
0382 4801 |H | Short_Literal 0x1
0383 00db | | Load_Top At_Offset_3
0384 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0385 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0386 e228 | ( | Load 0x1,0x28
0387 00db | | Load_Top At_Offset_3
0388 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0389 0268 | h | Execute Discrete,Successor
038a 00db | | Load_Top At_Offset_3
038b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
038c 00da | | Load_Top At_Offset_2
038d 00db | | Load_Top At_Offset_3
038e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
038f 8232 | 2 | Call 0x1,0x32
0390 00d1 | | Pop_Control Pop_Count_1
0391 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0392 0000 0000 | | .BLANK 0000[0x6]
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 039b | | .CONST 0x039b ; Address of begin
0399 0004 | | .CONST 0x0004 ; Address of exception handler
039a 0001 | | .CONST 0x0001 ; Number of locals
039b BODY_0398:
039b INIT_0398:
039b 4607 |F | Jump_Case 0x8
039c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
039d 7807 |x | Jump 0x3a5 ; case 0x1
039e 780a |x | Jump 0x3a9 ; case 0x2
039f 780e |x | Jump 0x3ae ; case 0x3
03a0 7811 |x | Jump 0x3b2 ; case 0x4
03a1 7812 |x | Jump 0x3b4 ; case 0x5
03a2 7813 |x | Jump 0x3b6 ; case 0x6
03a3 7816 |x | Jump 0x3ba ; case 0x7
03a4 4302 |C | .XXX[0x1]
03a5 00da | | Load_Top At_Offset_2
03a6 0091 052e | .| Action Push_String_Extended_Indexed,0x52e ; "NONE"
03a8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
03a9 00db | | Load_Top At_Offset_3
03aa 00db | | Load_Top At_Offset_3
03ab 00e0 | | Load_Encached Standard_Cache
03ac 181b | | Execute Package,Field_Execute,Field_Number 0x1b
03ad 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
03ae 00da | | Load_Top At_Offset_2
03af 00e0 | | Load_Encached Standard_Cache
03b0 181c | | Execute Package,Field_Execute,Field_Number 0x1c
03b1 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
03b2 00db | | Load_Top At_Offset_3
03b3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
03b4 00db | | Load_Top At_Offset_3
03b5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
03b6 e228 | ( | Load 0x1,0x28
03b7 00dc | | Load_Top At_Offset_4
03b8 0267 | g | Execute Discrete,Predecessor
03b9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
03ba e228 | ( | Load 0x1,0x28
03bb 00dc | | Load_Top At_Offset_4
03bc 0268 | h | Execute Discrete,Successor
03bd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
03be 0000 0000 | | .XXX[0x2]
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03c3 | | .CONST 0x03c3 ; Address of begin
03c1 0004 | | .CONST 0x0004 ; Address of exception handler
03c2 0001 | | .CONST 0x0001 ; Number of locals
03c3 BODY_03c0:
03c3 INIT_03c0:
03c3 4607 |F | Jump_Case 0x8
03c4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
03c5 7807 |x | Jump 0x3cd ; case 0x1
03c6 780a |x | Jump 0x3d1 ; case 0x2
03c7 780e |x | Jump 0x3d6 ; case 0x3
03c8 7811 |x | Jump 0x3da ; case 0x4
03c9 7812 |x | Jump 0x3dc ; case 0x5
03ca 7813 |x | Jump 0x3de ; case 0x6
03cb 7816 |x | Jump 0x3e2 ; case 0x7
03cc 4302 |C | .XXX[0x1]
03cd 00da | | Load_Top At_Offset_2
03ce 0091 0533 | 3| Action Push_String_Extended_Indexed,0x533 ; "S"
03d0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
03d1 00db | | Load_Top At_Offset_3
03d2 00db | | Load_Top At_Offset_3
03d3 00e0 | | Load_Encached Standard_Cache
03d4 181b | | Execute Package,Field_Execute,Field_Number 0x1b
03d5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
03d6 00da | | Load_Top At_Offset_2
03d7 00e0 | | Load_Encached Standard_Cache
03d8 181c | | Execute Package,Field_Execute,Field_Number 0x1c
03d9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
03da 00db | | Load_Top At_Offset_3
03db 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
03dc 00db | | Load_Top At_Offset_3
03dd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
03de e22c | , | Load 0x1,0x2c
03df 00dc | | Load_Top At_Offset_4
03e0 0267 | g | Execute Discrete,Predecessor
03e1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
03e2 e22c | , | Load 0x1,0x2c
03e3 00dc | | Load_Top At_Offset_4
03e4 0268 | h | Execute Discrete,Successor
03e5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
03e6 0000 0000 | | .XXX[0x2]
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 03eb | | .CONST 0x03eb ; Address of begin
03e9 0004 | | .CONST 0x0004 ; Address of exception handler
03ea 0001 | | .CONST 0x0001 ; Number of locals
03eb BODY_03e8:
03eb INIT_03e8:
03eb 4607 |F | Jump_Case 0x8
03ec 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
03ed 7807 |x | Jump 0x3f5 ; case 0x1
03ee 780a |x | Jump 0x3f9 ; case 0x2
03ef 780e |x | Jump 0x3fe ; case 0x3
03f0 7811 |x | Jump 0x402 ; case 0x4
03f1 7812 |x | Jump 0x404 ; case 0x5
03f2 7813 |x | Jump 0x406 ; case 0x6
03f3 7816 |x | Jump 0x40a ; case 0x7
03f4 4302 |C | .XXX[0x1]
03f5 00da | | Load_Top At_Offset_2
03f6 0091 0536 | 6| Action Push_String_Extended_Indexed,0x536 ; "N"
03f8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
03f9 00db | | Load_Top At_Offset_3
03fa 00db | | Load_Top At_Offset_3
03fb 00e0 | | Load_Encached Standard_Cache
03fc 181b | | Execute Package,Field_Execute,Field_Number 0x1b
03fd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
03fe 00da | | Load_Top At_Offset_2
03ff 00e0 | | Load_Encached Standard_Cache
0400 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0401 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0402 00db | | Load_Top At_Offset_3
0403 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0404 00db | | Load_Top At_Offset_3
0405 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0406 e22d | - | Load 0x1,0x2d
0407 00dc | | Load_Top At_Offset_4
0408 0267 | g | Execute Discrete,Predecessor
0409 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
040a e22d | - | Load 0x1,0x2d
040b 00dc | | Load_Top At_Offset_4
040c 0268 | h | Execute Discrete,Successor
040d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
040e 0000 0000 | | .XXX[0x2]
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 0418 | | .CONST 0x0418 ; Address of begin
0411 0004 | | .CONST 0x0004 ; Address of exception handler
0412 0002 | | .CONST 0x0002 ; Number of locals
0413 INIT_0410:
0413 00da | | Load_Top At_Offset_2
0414 e22c | , | Load 0x1,0x2c
0415 1c02 | | Execute_Immediate Run_Utility,0x2
0416 e22c | , | Load 0x1,0x2c
0417 03f1 | | Declare_Variable Discrete,With_Value
0418 BODY_0410:
0418 00d8 | | Load_Top At_Offset_0
0419 4602 |F | Jump_Case 0x3
041a 7807 |x | Jump 0x422 ; case 0x0
041b 780b |x | Jump 0x427 ; case 0x1
041c 7800 |x | Jump 0x41d ; case 0x2
041d 4801 |H | Short_Literal 0x1
041e a5fe | | Store_Unchecked 0x2,-0x2
041f 4801 |H | Short_Literal 0x1
0420 a5fd | | Store_Unchecked 0x2,-0x3
0421 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0422 4801 |H | Short_Literal 0x1
0423 a5fe | | Store_Unchecked 0x2,-0x2
0424 4800 |H | Short_Literal 0x0
0425 a5fd | | Store_Unchecked 0x2,-0x3
0426 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0427 4800 |H | Short_Literal 0x0
0428 a5fe | | Store_Unchecked 0x2,-0x2
0429 4801 |H | Short_Literal 0x1
042a a5fd | | Store_Unchecked 0x2,-0x3
042b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
042c 0000 0000 | | .BLANK 0000[0x4]
0430 ; --------------------------------------------------------------------------------------
0430 ; SUBPROGRAM
0430 ; --------------------------------------------------------------------------------------
0430 0433 | 3 | .CONST 0x0433 ; Address of begin
0431 0004 | | .CONST 0x0004 ; Address of exception handler
0432 0001 | | .CONST 0x0001 ; Number of locals
0433 BODY_0430:
0433 INIT_0430:
0433 00da | | Load_Top At_Offset_2
0434 4800 |H | Short_Literal 0x0
0435 4803 |H | Short_Literal 0x3
0436 0262 | b | Execute Discrete,In_Range
0437 7006 |p | Jump_Nonzero 0x43e
0438 00db | | Load_Top At_Offset_3
0439 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
043a 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
043b 8030 | 0 | Call 0x0,0x30
043c e5fe | | Load 0x2,-0x2
043d 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
043e 4801 |H | Short_Literal 0x1
043f e5fe | | Load 0x2,-0x2
0440 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0441 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0442 0000 0000 | | .BLANK 0000[0x6]
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 044b | K | .CONST 0x044b ; Address of begin
0449 0004 | | .CONST 0x0004 ; Address of exception handler
044a 0001 | | .CONST 0x0001 ; Number of locals
044b BODY_0448:
044b INIT_0448:
044b 00da | | Load_Top At_Offset_2
044c 4800 |H | Short_Literal 0x0
044d 4803 |H | Short_Literal 0x3
044e 0262 | b | Execute Discrete,In_Range
044f 7005 |p | Jump_Nonzero 0x455
0450 00db | | Load_Top At_Offset_3
0451 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0452 8031 | 1 | Call 0x0,0x31
0453 00d1 | | Pop_Control Pop_Count_1
0454 7801 |x | Jump 0x456
0455 0833 | 3 | Execute_Immediate Raise,0x33
0456 4800 |H | Short_Literal 0x0
0457 e5fe | | Load 0x2,-0x2
0458 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0459 4502 |E | Exit_Suprogram New_Top_Offset 0x2
045a 0000 0000 | | .BLANK 0000[0x6]
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 0463 | c | .CONST 0x0463 ; Address of begin
0461 0004 | | .CONST 0x0004 ; Address of exception handler
0462 0001 | | .CONST 0x0001 ; Number of locals
0463 BODY_0460:
0463 INIT_0460:
0463 00db | | Load_Top At_Offset_3
0464 4800 |H | Short_Literal 0x0
0465 4803 |H | Short_Literal 0x3
0466 0262 | b | Execute Discrete,In_Range
0467 7004 |p | Jump_Nonzero 0x46c
0468 00da | | Load_Top At_Offset_2
0469 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
046a 8032 | 2 | Call 0x0,0x32
046b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
046c 0833 | 3 | Execute_Immediate Raise,0x33
046d 0000 0000 | | .XXX[0x3]
046f 0000 | |
0470 ; --------------------------------------------------------------------------------------
0470 ; SUBPROGRAM
0470 ; --------------------------------------------------------------------------------------
0470 0473 | s | .CONST 0x0473 ; Address of begin
0471 0004 | | .CONST 0x0004 ; Address of exception handler
0472 0001 | | .CONST 0x0001 ; Number of locals
0473 BODY_0470:
0473 INIT_0470:
0473 00da | | Load_Top At_Offset_2
0474 e5fe | | Load 0x2,-0x2
0475 0279 | y | Execute Discrete,And
0476 6802 |h | Jump_Zero 0x479
0477 4802 |H | Short_Literal 0x2
0478 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0479 00da | | Load_Top At_Offset_2
047a 6802 |h | Jump_Zero 0x47d
047b 4800 |H | Short_Literal 0x0
047c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
047d 4801 |H | Short_Literal 0x1
047e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
047f 0000 | | .XXX[0x1]
0480 ; --------------------------------------------------------------------------------------
0480 ; SUBPROGRAM
0480 ; --------------------------------------------------------------------------------------
0480 0485 | | .CONST 0x0485 ; Address of begin
0481 0004 | | .CONST 0x0004 ; Address of exception handler
0482 0002 | | .CONST 0x0002 ; Number of locals
0483 INIT_0480:
0483 029f 04fb | | Declare_Subprogram INIT_04f8,For_Call
0485 BODY_0480:
0485 e5fe | | Load 0x2,-0x2
0486 4604 |F | Jump_Case 0x5
0487 7804 |x | Jump 0x48c ; case 0x0
0488 7804 |x | Jump 0x48d ; case 0x1
0489 7805 |x | Jump 0x48f ; case 0x2
048a 780f |x | Jump 0x49a ; case 0x3
048b 7800 |x | Jump 0x48c ; case 0x4
048c 0833 | 3 | Execute_Immediate Raise,0x33
048d 8402 | | Call 0x2,0x2
048e 780d |x | Jump 0x49c
048f 00db | | Load_Top At_Offset_3
0490 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0491 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0492 e5ff | | Load 0x2,-0x1
0493 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0494 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0495 8235 | 5 | Call 0x1,0x35
0496 e22c | , | Load 0x1,0x2c
0497 011c | | Execute Any,Convert_Unchecked
0498 1c01 | | Execute_Immediate Run_Utility,0x1
0499 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
049a 00ea | | Load_Encached Null_String_Cache
049b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
049c 0831 | 1 | Execute_Immediate Raise,0x31
049d 0000 0000 | | .XXX[0x3]
049f 0000 | |
04a0 ; --------------------------------------------------------------------------------------
04a0 ; SUBPROGRAM
04a0 ; --------------------------------------------------------------------------------------
04a0 04a3 | | .CONST 0x04a3 ; Address of begin
04a1 0004 | | .CONST 0x0004 ; Address of exception handler
04a2 0001 | | .CONST 0x0001 ; Number of locals
04a3 BODY_04a0:
04a3 INIT_04a0:
04a3 00db | | Load_Top At_Offset_3
04a4 00db | | Load_Top At_Offset_3
04a5 8234 | 4 | Call 0x1,0x34
04a6 6803 |h | Jump_Zero 0x4aa
04a7 0092 053d | =| Action Push_String_Extended,0x53d ; ")"
04a9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
04aa 00db | | Load_Top At_Offset_3
04ab 4800 |H | Short_Literal 0x0
04ac 4803 |H | Short_Literal 0x3
04ad 0262 | b | Execute Discrete,In_Range
04ae 7004 |p | Jump_Nonzero 0x4b3
04af 00da | | Load_Top At_Offset_2
04b0 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
04b1 8033 | 3 | Call 0x0,0x33
04b2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
04b3 0833 | 3 | Execute_Immediate Raise,0x33
04b4 0000 0000 | | .BLANK 0000[0x4]
04b8 ; --------------------------------------------------------------------------------------
04b8 ; SUBPROGRAM
04b8 ; --------------------------------------------------------------------------------------
04b8 04bb | | .CONST 0x04bb ; Address of begin
04b9 0004 | | .CONST 0x0004 ; Address of exception handler
04ba 0001 | | .CONST 0x0001 ; Number of locals
04bb BODY_04b8:
04bb INIT_04b8:
04bb e5fe | | Load 0x2,-0x2
04bc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
04bd e402 | | Load 0x2,0x2
04be 8017 | | Call 0x0,0x17
04bf e5fe | | Load 0x2,-0x2
04c0 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
04c1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04c2 0000 0000 | | .BLANK 0000[0x6]
04c8 ; --------------------------------------------------------------------------------------
04c8 ; SUBPROGRAM
04c8 ; --------------------------------------------------------------------------------------
04c8 04cf | | .CONST 0x04cf ; Address of begin
04c9 0004 | | .CONST 0x0004 ; Address of exception handler
04ca 0002 | | .CONST 0x0002 ; Number of locals
04cb INIT_04c8:
04cb e5ff | | Load 0x2,-0x1
04cc 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
04cd e5ff | | Load 0x2,-0x1
04ce 8237 | 7 | Call 0x1,0x37
04cf BODY_04c8:
04cf e5ff | | Load 0x2,-0x1
04d0 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
04d1 6808 |h | Jump_Zero 0x4da
04d2 e402 | | Load 0x2,0x2
04d3 0092 053e | >| Action Push_String_Extended,0x53e ; "("
04d5 01cc | | Execute Vector,Catenate
04d6 00d9 | | Load_Top At_Offset_1
04d7 01cc | | Execute Vector,Catenate
04d8 00cb | | Action Pop_Block_With_Result
04d9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04da 00d8 | | Load_Top At_Offset_0
04db 00cb | | Action Pop_Block_With_Result
04dc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04dd 0000 0000 | | .XXX[0x3]
04df 0000 | |
04e0 ; --------------------------------------------------------------------------------------
04e0 ; SUBPROGRAM
04e0 ; --------------------------------------------------------------------------------------
04e0 04e7 | | .CONST 0x04e7 ; Address of begin
04e1 0004 | | .CONST 0x0004 ; Address of exception handler
04e2 0002 | | .CONST 0x0002 ; Number of locals
04e3 INIT_04e0:
04e3 e5ff | | Load 0x2,-0x1
04e4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
04e5 e5ff | | Load 0x2,-0x1
04e6 8236 | 6 | Call 0x1,0x36
04e7 BODY_04e0:
04e7 00d8 | | Load_Top At_Offset_0
04e8 01db | | Execute Vector,Length
04e9 6808 |h | Jump_Zero 0x4f2
04ea e402 | | Load 0x2,0x2
04eb e5ff | | Load 0x2,-0x1
04ec 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
04ed e5ff | | Load 0x2,-0x1
04ee 8236 | 6 | Call 0x1,0x36
04ef 01cc | | Execute Vector,Catenate
04f0 00cb | | Action Pop_Block_With_Result
04f1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04f2 00ea | | Load_Encached Null_String_Cache
04f3 00cb | | Action Pop_Block_With_Result
04f4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04f5 0000 0000 | | .XXX[0x3]
04f7 0000 | |
04f8 ; --------------------------------------------------------------------------------------
04f8 ; SUBPROGRAM
04f8 ; --------------------------------------------------------------------------------------
04f8 0504 | | .CONST 0x0504 ; Address of begin
04f9 0004 | | .CONST 0x0004 ; Address of exception handler
04fa 0002 | | .CONST 0x0002 ; Number of locals
04fb INIT_04f8:
04fb 4829 |H) | Short_Literal 0x29
04fc 4828 |H( | Short_Literal 0x28
04fd e5ff | | Load 0x2,-0x1
04fe 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
04ff 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0500 801e | | Call 0x0,0x1e
0501 01ca | | Execute Vector,Prepend
0502 01cb | | Execute Vector,Append
0503 0007 | | Action Break_Optional
0504 BODY_04f8:
0504 00d8 | | Load_Top At_Offset_0
0505 00cb | | Action Pop_Block_With_Result
0506 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0507 0000 | | .XXX[0x1]
0508 ; --------------------------------------------------------------------------------------
0508 ; SUBPROGRAM
0508 ; --------------------------------------------------------------------------------------
0508 050b | | .CONST 0x050b ; Address of begin
0509 0004 | | .CONST 0x0004 ; Address of exception handler
050a 0001 | | .CONST 0x0001 ; Number of locals
050b BODY_0508:
050b INIT_0508:
050b 4601 |F | Jump_Case 0x2
050c 7801 |x | Jump 0x50e ; case 0x0
050d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
050e 4800 |H | Short_Literal 0x0
050f 00db | | Load_Top At_Offset_3
0510 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0511 4800 |H | Short_Literal 0x0
0512 00db | | Load_Top At_Offset_3
0513 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0514 4800 |H | Short_Literal 0x0
0515 00db | | Load_Top At_Offset_3
0516 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0517 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0518 ; --------------------------------------------------------------------------------------
0518 ; SUBPROGRAM
0518 ; --------------------------------------------------------------------------------------
0518 051b | | .CONST 0x051b ; Address of begin
0519 0004 | | .CONST 0x0004 ; Address of exception handler
051a 0001 | | .CONST 0x0001 ; Number of locals
051b BODY_0518:
051b INIT_0518:
051b 4601 |F | Jump_Case 0x2
051c 7801 |x | Jump 0x51e ; case 0x0
051d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
051e 00da | | Load_Top At_Offset_2
051f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0520 1c00 | | Execute_Immediate Run_Utility,0x0
0521 4800 |H | Short_Literal 0x0
0522 00db | | Load_Top At_Offset_3
0523 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0524 4800 |H | Short_Literal 0x0
0525 00db | | Load_Top At_Offset_3
0526 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0527 4801 |H | Short_Literal 0x1
0528 00db | | Load_Top At_Offset_3
0529 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
052a 00da | | Load_Top At_Offset_2
052b 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
052c 1c00 | | Execute_Immediate Run_Utility,0x0
052d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
052e ; --------------------------------------------------------------------------------------
052e ; STRING TABLE
052e ; --------------------------------------------------------------------------------------
052e 0024 | $ | .STRTAB 0x0024->0x0540 ; "NONE"
052f 0026 | & | .STRTAB 0x0026->0x0542 ; "THE_ADA_ELEMENT"
0530 0033 | 3 | .STRTAB 0x0033->0x0549 ; "IS_SEGMENT"
0531 003b | ; | .STRTAB 0x003b->0x054e ; "IS_DECISION"
0532 0044 | D | .STRTAB 0x0044->0x0554 ; "THE_SET"
0533 0049 | I | .STRTAB 0x0049->0x0557 ; "S"
0534 0048 | H | .STRTAB 0x0048->0x0558 ; "D"
0535 0047 | G | .STRTAB 0x0047->0x0558 ; "B"
0536 0046 | F | .STRTAB 0x0046->0x0559 ; "N"
0537 0045 | E | .STRTAB 0x0045->0x0559 ; "A"
0538 0044 | D | .STRTAB 0x0044->0x055a ; "D"
0539 0043 | C | .STRTAB 0x0043->0x055a ; "S"
053a 0042 | B | .STRTAB 0x0042->0x055b ; "others => Unspecified"
053b 0055 | U | .STRTAB 0x0055->0x0565 ; "<FULL>"
053c 0059 | Y | .STRTAB 0x0059->0x0568 ; "=>"
053d 0059 | Y | .STRTAB 0x0059->0x0569 ; ")"
053e 0058 | X | .STRTAB 0x0058->0x056a ; "("
053f 0057 | W | .STREND 0x0057->0x056a
0540 4e4f 4e45 |NONE| .STRTAB_STRINGS
056b 0000 0000 | | .BLANK 0000[0x5]
0570 ; --------------------------------------------------------------------------------------
0570 ; Debug Table
0570 ; --------------------------------------------------------------------------------------
0570 0004 000a | | .DEBUG4 0x0004,0x000a,0x60ea,0x0000,0x0001,0x0000
0576 0000 0000 | | .BLANK 0000[0x8a]