|
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: 2048 (0x800)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0340e4
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 02a8 | | .CONST 0x02a8 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 002c | , | .CONST 0x002c ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001b | | .CONST 0x001b ; Number of locals
000b INIT_0008:
000b 00c4 | | Action Make_Default
000c 00c4 | | Action Make_Default
000d 00c4 | | Action Make_Default
000e 00c4 | | Action Make_Default
000f 00c4 | | Action Make_Default
0010 029a 0033 | 3| Declare_Subprogram INIT_0030,For_Outer_Call,Visible,Unelaborated
0012 c214 | | Store 0x1,0x14
0013 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated
0015 c215 | | Store 0x1,0x15
0016 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated
0018 c213 | | Store 0x1,0x13
0019 00bf | | Action Accept_Activation
001a 029d 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call
001c 029d 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call
001e 029d 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call
0020 029d 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call
0022 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0023 00c7 | | Action Elaborate_Subprogram
0024 029d 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call
0026 029d 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call
0028 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0029 00c7 | | Action Elaborate_Subprogram
002a 1d13 | | Execute_Immediate Reference_Lex_1,0x13
002b 00c7 | | Action Elaborate_Subprogram
002c BODY_0008:
002c 00bc | | Action Signal_Activated
002d 00bb | | Action Signal_Completion
002e 0000 0000 | | .XXX[0x2]
0030 ; --------------------------------------------------------------------------------------
0030 ; SUBPROGRAM
0030 ; --------------------------------------------------------------------------------------
0030 003c | < | .CONST 0x003c ; Address of begin
0031 0004 | | .CONST 0x0004 ; Address of exception handler
0032 0004 | | .CONST 0x0004 ; Number of locals
0033 INIT_0030:
0033 e001 | | Load 0x0,0x1
0034 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0035 02c7 | | Declare_Variable Any
0036 00db | | Load_Top At_Offset_3
0037 e002 | | Load 0x0,0x2
0038 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0039 a402 | | Store_Unchecked 0x2,0x2
003a 00e2 | | Load_Encached Integer_Cache
003b 03e9 | | Declare_Variable Discrete,Duplicate
003c BODY_0030:
003c e5fc | | Load 0x2,-0x4
003d 684a |hJ | Jump_Zero 0x88
003e 00da | | Load_Top At_Offset_2
003f e001 | | Load 0x0,0x1
0040 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0041 460c |F | Jump_Case 0xd
0042 780c |x | Jump 0x4f ; case 0x0
0043 780b |x | Jump 0x4f ; case 0x1
0044 780a |x | Jump 0x4f ; case 0x2
0045 7809 |x | Jump 0x4f ; case 0x3
0046 7808 |x | Jump 0x4f ; case 0x4
0047 780c |x | Jump 0x54 ; case 0x5
0048 781b |x | Jump 0x64 ; case 0x6
0049 7820 |x | Jump 0x6a ; case 0x7
004a 7828 |x( | Jump 0x73 ; case 0x8
004b 7803 |x | Jump 0x4f ; case 0x9
004c 7802 |x | Jump 0x4f ; case 0xa
004d 7801 |x | Jump 0x4f ; case 0xb
004e 7800 |x | Jump 0x4f ; case 0xc
004f e5ff | | Load 0x2,-0x1
0050 e002 | | Load 0x0,0x2
0051 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0052 8216 | | Call 0x1,0x16
0053 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0054 00e2 | | Load_Encached Integer_Cache
0055 00e2 | | Load_Encached Integer_Cache
0056 e5fd | | Load 0x2,-0x3
0057 e5ff | | Load 0x2,-0x1
0058 e002 | | Load 0x0,0x2
0059 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
005a 8218 | | Call 0x1,0x18
005b 005b | [ | Store_Top Discrete,At_Offset_3
005c 0059 | Y | Store_Top Discrete,At_Offset_1
005d e5fc | | Load 0x2,-0x4
005e e5fe | | Load 0x2,-0x2
005f 00da | | Load_Top At_Offset_2
0060 e403 | | Load 0x2,0x3
0061 e5ff | | Load 0x2,-0x1
0062 8213 | | Call 0x1,0x13
0063 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0064 e5fc | | Load 0x2,-0x4
0065 e5fd | | Load 0x2,-0x3
0066 e5fe | | Load 0x2,-0x2
0067 e5ff | | Load 0x2,-0x1
0068 8215 | | Call 0x1,0x15
0069 4505 |E | Exit_Suprogram New_Top_Offset 0x5
006a e5fc | | Load 0x2,-0x4
006b 4801 |H | Short_Literal 0x1
006c e402 | | Load 0x2,0x2
006d e001 | | Load 0x0,0x1
006e 1858 | X | Execute Package,Field_Execute,Field_Number 0x58
006f e003 | | Load 0x0,0x3
0070 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
0071 8219 | | Call 0x1,0x19
0072 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0073 e5ff | | Load 0x2,-0x1
0074 e004 | | Load 0x0,0x4
0075 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0076 0092 0279 | y| Action Push_String_Extended,0x279 ; "("
0078 01cc | | Execute Vector,Catenate
0079 820f | | Call 0x1,0xf
007a e5fc | | Load 0x2,-0x4
007b e5fd | | Load 0x2,-0x3
007c e5fe | | Load 0x2,-0x2
007d 4801 |H | Short_Literal 0x1
007e e402 | | Load 0x2,0x2
007f e001 | | Load 0x0,0x1
0080 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59
0081 e003 | | Load 0x0,0x3
0082 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
0083 8214 | | Call 0x1,0x14
0084 0092 027a | z| Action Push_String_Extended,0x27a ; ")"
0086 820f | | Call 0x1,0xf
0087 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0088 e5ff | | Load 0x2,-0x1
0089 e002 | | Load 0x0,0x2
008a 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
008b 8216 | | Call 0x1,0x16
008c 4505 |E | Exit_Suprogram New_Top_Offset 0x5
008d 0000 0000 | | .XXX[0x3]
008f 0000 | |
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 00b7 | | .CONST 0x00b7 ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0007 | | .CONST 0x0007 ; Number of locals
0093 INIT_0090:
0093 e003 | | Load 0x0,0x3
0094 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0095 02c7 | | Declare_Variable Any
0096 00db | | Load_Top At_Offset_3
0097 e002 | | Load 0x0,0x2
0098 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0099 a402 | | Store_Unchecked 0x2,0x2
009a e003 | | Load 0x0,0x3
009b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
009c 02c7 | | Declare_Variable Any
009d 00d8 | | Load_Top At_Offset_0
009e 1c00 | | Execute_Immediate Run_Utility,0x0
009f e003 | | Load 0x0,0x3
00a0 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00a1 02c7 | | Declare_Variable Any
00a2 00da | | Load_Top At_Offset_2
00a3 e001 | | Load 0x0,0x1
00a4 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
00a5 a404 | | Store_Unchecked 0x2,0x4
00a6 e003 | | Load 0x0,0x3
00a7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00a8 02c7 | | Declare_Variable Any
00a9 00d8 | | Load_Top At_Offset_0
00aa 1c00 | | Execute_Immediate Run_Utility,0x0
00ab e003 | | Load 0x0,0x3
00ac 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00ad 02c7 | | Declare_Variable Any
00ae e402 | | Load 0x2,0x2
00af e001 | | Load 0x0,0x1
00b0 184c | L | Execute Package,Field_Execute,Field_Number 0x4c
00b1 a406 | | Store_Unchecked 0x2,0x6
00b2 e003 | | Load 0x0,0x3
00b3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00b4 02c7 | | Declare_Variable Any
00b5 00d8 | | Load_Top At_Offset_0
00b6 1c00 | | Execute_Immediate Run_Utility,0x0
00b7 BODY_0090:
00b7 0092 0279 | y| Action Push_String_Extended,0x279 ; "("
00b9 820f | | Call 0x1,0xf
00ba 00cf | | Action Mark_Auxiliary
00bb 7816 |x | Jump 0xd2
00bc 00da | | Load_Top At_Offset_2
00bd e003 | | Load 0x0,0x3
00be 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00bf c407 | | Store 0x2,0x7
00c0 00d9 | | Load_Top At_Offset_1
00c1 e002 | | Load 0x0,0x2
00c2 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
00c3 0092 027b | {| Action Push_String_Extended,0x27b ; " => "
00c5 01cc | | Execute Vector,Catenate
00c6 820f | | Call 0x1,0xf
00c7 00ea | | Load_Encached Null_String_Cache
00c8 8216 | | Call 0x1,0x16
00c9 00da | | Load_Top At_Offset_2
00ca e003 | | Load 0x0,0x3
00cb 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00cc c406 | | Store 0x2,0x6
00cd 0092 027c | || Action Push_String_Extended,0x27c ; ", "
00cf 820f | | Call 0x1,0xf
00d0 8210 | | Call 0x1,0x10
00d1 00c9 | | Action Pop_Auxiliary_Loop
00d2 00da | | Load_Top At_Offset_2
00d3 e003 | | Load 0x0,0x3
00d4 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00d5 6fe6 |o | Jump_Zero 0xbc
00d6 00c9 | | Action Pop_Auxiliary_Loop
00d7 7828 |x( | Jump 0x100
00d8 e404 | | Load 0x2,0x4
00d9 e003 | | Load 0x0,0x3
00da 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00db c405 | | Store 0x2,0x5
00dc 00db | | Load_Top At_Offset_3
00dd e001 | | Load 0x0,0x1
00de 1853 | S | Execute Package,Field_Execute,Field_Number 0x53
00df 4603 |F | Jump_Case 0x4
00e0 7812 |x | Jump 0xf3 ; case 0x0
00e1 7809 |x | Jump 0xeb ; case 0x1
00e2 7801 |x | Jump 0xe4 ; case 0x2
00e3 780f |x | Jump 0xf3 ; case 0x3
00e4 0092 027d | }| Action Push_String_Extended,0x27d ; "-- variant_component here"
00e6 820f | | Call 0x1,0xf
00e7 8210 | | Call 0x1,0x10
00e8 00ea | | Load_Encached Null_String_Cache
00e9 8216 | | Call 0x1,0x16
00ea 7808 |x | Jump 0xf3
00eb e5fc | | Load 0x2,-0x4
00ec e405 | | Load 0x2,0x5
00ed e002 | | Load 0x0,0x2
00ee 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
00ef e5fd | | Load 0x2,-0x3
00f0 e5fe | | Load 0x2,-0x2
00f1 e405 | | Load 0x2,0x5
00f2 821b | | Call 0x1,0x1b
00f3 e404 | | Load 0x2,0x4
00f4 e003 | | Load 0x0,0x3
00f5 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00f6 c404 | | Store 0x2,0x4
00f7 e404 | | Load 0x2,0x4
00f8 e003 | | Load 0x0,0x3
00f9 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00fa 7004 |p | Jump_Nonzero 0xff
00fb 0092 027c | || Action Push_String_Extended,0x27c ; ", "
00fd 820f | | Call 0x1,0xf
00fe 8210 | | Call 0x1,0x10
00ff 00c9 | | Action Pop_Auxiliary_Loop
0100 e404 | | Load 0x2,0x4
0101 e003 | | Load 0x0,0x3
0102 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0103 6fd4 |o | Jump_Zero 0xd8
0104 00ce | | Action Pop_Auxiliary
0105 0092 027a | z| Action Push_String_Extended,0x27a ; ")"
0107 820f | | Call 0x1,0xf
0108 8210 | | Call 0x1,0x10
0109 4505 |E | Exit_Suprogram New_Top_Offset 0x5
010a 0000 0000 | | .BLANK 0000[0x6]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0126 | & | .CONST 0x0126 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0003 | | .CONST 0x0003 ; Number of locals
0113 INIT_0110:
0113 e001 | | Load 0x0,0x1
0114 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0115 02c7 | | Declare_Variable Any
0116 00db | | Load_Top At_Offset_3
0117 e002 | | Load 0x0,0x2
0118 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0119 e001 | | Load 0x0,0x1
011a 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
011b a402 | | Store_Unchecked 0x2,0x2
011c e003 | | Load 0x0,0x3
011d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
011e 02c7 | | Declare_Variable Any
011f 4801 |H | Short_Literal 0x1
0120 00da | | Load_Top At_Offset_2
0121 e003 | | Load 0x0,0x3
0122 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
0123 e003 | | Load 0x0,0x3
0124 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0125 a403 | | Store_Unchecked 0x2,0x3
0126 BODY_0110:
0126 0092 0279 | y| Action Push_String_Extended,0x279 ; "("
0128 820f | | Call 0x1,0xf
0129 00cf | | Action Mark_Auxiliary
012a e5fd | | Load 0x2,-0x3
012b e5fe | | Load 0x2,-0x2
012c 0263 | c | Execute Discrete,Above_Bound
012d 7023 |p# | Jump_Nonzero 0x151
012e e5fc | | Load 0x2,-0x4
012f 680a |h | Jump_Zero 0x13a
0130 4820 |H | Short_Literal 0x20
0131 00d9 | | Load_Top At_Offset_1
0132 00e0 | | Load_Encached Standard_Cache
0133 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0134 e005 | | Load 0x0,0x5
0135 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0136 820f | | Call 0x1,0xf
0137 0092 027b | {| Action Push_String_Extended,0x27b ; " => "
0139 820f | | Call 0x1,0xf
013a e5fb | | Load 0x2,-0x5
013b e5fd | | Load 0x2,-0x3
013c e5fe | | Load 0x2,-0x2
013d 0272 | r | Execute Discrete,Minus
013e 0a01 | | Execute_Immediate Plus,0x1
013f 00d8 | | Load_Top At_Offset_0
0140 00e4 | | Load_Encached Positive_Cache
0141 0260 | ` | Execute Discrete,In_Type
0142 7001 |p | Jump_Nonzero 0x144
0143 0801 | | Execute_Immediate Raise,0x1
0144 e5fc | | Load 0x2,-0x4
0145 e403 | | Load 0x2,0x3
0146 8214 | | Call 0x1,0x14
0147 00d8 | | Load_Top At_Offset_0
0148 e5fd | | Load 0x2,-0x3
0149 027c | | | Execute Discrete,Less
014a 6804 |h | Jump_Zero 0x14f
014b 0092 027c | || Action Push_String_Extended,0x27c ; ", "
014d 820f | | Call 0x1,0xf
014e 8210 | | Call 0x1,0x10
014f 00c8 | | Action Pop_Auxiliary_Range
0150 3fdd |? | Loop_Increasing 0x12e
0151 00ce | | Action Pop_Auxiliary
0152 0092 027a | z| Action Push_String_Extended,0x27a ; ")"
0154 820f | | Call 0x1,0xf
0155 8210 | | Call 0x1,0x10
0156 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0157 0000 | | .XXX[0x1]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b | [ | .CONST 0x015b ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0001 | | .CONST 0x0001 ; Number of locals
015b BODY_0158:
015b INIT_0158:
015b 00da | | Load_Top At_Offset_2
015c 01db | | Execute Vector,Length
015d 7004 |p | Jump_Nonzero 0x162
015e 0092 027e | ~| Action Push_String_Extended,0x27e ; "[expression]"
0160 820f | | Call 0x1,0xf
0161 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0162 0092 027f | | Action Push_String_Extended,0x27f ; "["
0164 00db | | Load_Top At_Offset_3
0165 01cc | | Execute Vector,Catenate
0166 0092 0280 | | Action Push_String_Extended,0x280 ; "-expression]"
0168 01cc | | Execute Vector,Catenate
0169 820f | | Call 0x1,0xf
016a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
016b 0000 0000 | | .BLANK 0000[0x5]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 017a | z | .CONST 0x017a ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0002 | | .CONST 0x0002 ; Number of locals
0173 INIT_0170:
0173 e003 | | Load 0x0,0x3
0174 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0175 02c7 | | Declare_Variable Any
0176 00db | | Load_Top At_Offset_3
0177 e001 | | Load 0x0,0x1
0178 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
0179 a402 | | Store_Unchecked 0x2,0x2
017a BODY_0170:
017a 00d8 | | Load_Top At_Offset_0
017b e004 | | Load 0x0,0x4
017c 180d | | Execute Package,Field_Execute,Field_Number 0xd
017d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
017e 0000 0000 | | .XXX[0x2]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 019e | | .CONST 0x019e ; Address of begin
0181 0004 | | .CONST 0x0004 ; Address of exception handler
0182 0008 | | .CONST 0x0008 ; Number of locals
0183 INIT_0180:
0183 e003 | | Load 0x0,0x3
0184 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0185 02c7 | | Declare_Variable Any
0186 00db | | Load_Top At_Offset_3
0187 e001 | | Load 0x0,0x1
0188 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
0189 a402 | | Store_Unchecked 0x2,0x2
018a e003 | | Load 0x0,0x3
018b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
018c 02c7 | | Declare_Variable Any
018d 00d9 | | Load_Top At_Offset_1
018e e003 | | Load 0x0,0x3
018f 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0190 a403 | | Store_Unchecked 0x2,0x3
0191 00e5 | | Load_Encached Long_Integer_Cache
0192 03e9 | | Declare_Variable Discrete,Duplicate
0193 00e1 | | Load_Encached Boolean_Cache
0194 e003 | | Load 0x0,0x3
0195 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0196 02c7 | | Declare_Variable Any
0197 00d8 | | Load_Top At_Offset_0
0198 1c00 | | Execute_Immediate Run_Utility,0x0
0199 e003 | | Load 0x0,0x3
019a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
019b 02c7 | | Declare_Variable Any
019c 00d8 | | Load_Top At_Offset_0
019d 1c00 | | Execute_Immediate Run_Utility,0x0
019e BODY_0180:
019e 00d8 | | Load_Top At_Offset_0
019f 0120 | | Execute Any,Is_Value
01a0 6803 |h | Jump_Zero 0x1a4
01a1 e006 | | Load 0x0,0x6
01a2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01a3 7801 |x | Jump 0x1a5
01a4 00d8 | | Load_Top At_Offset_0
01a5 00da | | Load_Top At_Offset_2
01a6 0120 | | Execute Any,Is_Value
01a7 6803 |h | Jump_Zero 0x1ab
01a8 e006 | | Load 0x0,0x6
01a9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01aa 7801 |x | Jump 0x1ac
01ab 00da | | Load_Top At_Offset_2
01ac 00e1 | | Load_Encached Boolean_Cache
01ad e405 | | Load 0x2,0x5
01ae e404 | | Load 0x2,0x4
01af e403 | | Load 0x2,0x3
01b0 e007 | | Load 0x0,0x7
01b1 180d | | Execute Package,Field_Execute,Field_Number 0xd
01b2 c404 | | Store 0x2,0x4
01b3 c405 | | Store 0x2,0x5
01b4 c406 | | Store 0x2,0x6
01b5 c407 | | Store 0x2,0x7
01b6 c408 | | Store 0x2,0x8
01b7 00da | | Load_Top At_Offset_2
01b8 6820 |h | Jump_Zero 0x1d9
01b9 e404 | | Load 0x2,0x4
01ba 00d8 | | Load_Top At_Offset_0
01bb 00e2 | | Load_Encached Integer_Cache
01bc 0260 | ` | Execute Discrete,In_Type
01bd 7001 |p | Jump_Nonzero 0x1bf
01be 0801 | | Execute_Immediate Raise,0x1
01bf a5fd | | Store_Unchecked 0x2,-0x3
01c0 00db | | Load_Top At_Offset_3
01c1 e404 | | Load 0x2,0x4
01c2 0272 | r | Execute Discrete,Minus
01c3 e5fe | | Load 0x2,-0x2
01c4 027a | z | Execute Discrete,Less_Equal
01c5 6808 |h | Jump_Zero 0x1ce
01c6 00db | | Load_Top At_Offset_3
01c7 00d8 | | Load_Top At_Offset_0
01c8 00e2 | | Load_Encached Integer_Cache
01c9 0260 | ` | Execute Discrete,In_Type
01ca 7001 |p | Jump_Nonzero 0x1cc
01cb 0801 | | Execute_Immediate Raise,0x1
01cc a5fc | | Store_Unchecked 0x2,-0x4
01cd 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01ce e404 | | Load 0x2,0x4
01cf 00d8 | | Load_Top At_Offset_0
01d0 00e2 | | Load_Encached Integer_Cache
01d1 0260 | ` | Execute Discrete,In_Type
01d2 7001 |p | Jump_Nonzero 0x1d4
01d3 0801 | | Execute_Immediate Raise,0x1
01d4 e5fe | | Load 0x2,-0x2
01d5 0273 | s | Execute Discrete,Plus
01d6 0aff | | Execute_Immediate Plus,-0x1
01d7 c5fc | | Store 0x2,-0x4
01d8 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01d9 4801 |H | Short_Literal 0x1
01da a5fd | | Store_Unchecked 0x2,-0x3
01db 4801 |H | Short_Literal 0x1
01dc a5fc | | Store_Unchecked 0x2,-0x4
01dd 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01de 0000 0000 | | .XXX[0x2]
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 0092 0281 | | Action Push_String_Extended,0x281 ; "new "
01e5 00db | | Load_Top At_Offset_3
01e6 e004 | | Load 0x0,0x4
01e7 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01e8 01cc | | Execute Vector,Catenate
01e9 0092 0282 | | Action Push_String_Extended,0x282 ; "'"
01eb 01cc | | Execute Vector,Catenate
01ec 820f | | Call 0x1,0xf
01ed 00db | | Load_Top At_Offset_3
01ee 4801 |H | Short_Literal 0x1
01ef 4800 |H | Short_Literal 0x0
01f0 e5ff | | Load 0x2,-0x1
01f1 8214 | | Call 0x1,0x14
01f2 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01f3 0000 0000 | | .BLANK 0000[0x5]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 020a | | .CONST 0x020a ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0003 | | .CONST 0x0003 ; Number of locals
01fb INIT_01f8:
01fb e003 | | Load 0x0,0x3
01fc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01fd 02c7 | | Declare_Variable Any
01fe 00d8 | | Load_Top At_Offset_0
01ff 1c00 | | Execute_Immediate Run_Utility,0x0
0200 e003 | | Load 0x0,0x3
0201 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0202 02c7 | | Declare_Variable Any
0203 4801 |H | Short_Literal 0x1
0204 e5ff | | Load 0x2,-0x1
0205 e002 | | Load 0x0,0x2
0206 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0207 e003 | | Load 0x0,0x3
0208 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
0209 a403 | | Store_Unchecked 0x2,0x3
020a BODY_01f8:
020a e5ff | | Load 0x2,-0x1
020b e002 | | Load 0x0,0x2
020c 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
020d c402 | | Store 0x2,0x2
020e 00d9 | | Load_Top At_Offset_1
020f e003 | | Load 0x0,0x3
0210 180f | | Execute Package,Field_Execute,Field_Number 0xf
0211 680b |h | Jump_Zero 0x21d
0212 e5fe | | Load 0x2,-0x2
0213 6804 |h | Jump_Zero 0x218
0214 0092 0283 | | Action Push_String_Extended,0x283 ; "\x22\x22"
0216 820f | | Call 0x1,0xf
0217 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0218 00d8 | | Load_Top At_Offset_0
0219 e002 | | Load 0x0,0x2
021a 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
021b 8216 | | Call 0x1,0x16
021c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
021d 00d9 | | Load_Top At_Offset_1
021e e003 | | Load 0x0,0x3
021f 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0220 820f | | Call 0x1,0xf
0221 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0222 0000 0000 | | .BLANK 0000[0x6]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 023b | ; | .CONST 0x023b ; Address of begin
0229 0004 | | .CONST 0x0004 ; Address of exception handler
022a 0005 | | .CONST 0x0005 ; Number of locals
022b INIT_0228:
022b e003 | | Load 0x0,0x3
022c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
022d 02c7 | | Declare_Variable Any
022e e5fc | | Load 0x2,-0x4
022f e001 | | Load 0x0,0x1
0230 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0231 a402 | | Store_Unchecked 0x2,0x2
0232 e003 | | Load 0x0,0x3
0233 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0234 02c7 | | Declare_Variable Any
0235 00d9 | | Load_Top At_Offset_1
0236 e002 | | Load 0x0,0x2
0237 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0238 a403 | | Store_Unchecked 0x2,0x3
0239 00e2 | | Load_Encached Integer_Cache
023a 03e9 | | Declare_Variable Discrete,Duplicate
023b BODY_0228:
023b e5ff | | Load 0x2,-0x1
023c e002 | | Load 0x0,0x2
023d 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
023e 820f | | Call 0x1,0xf
023f 0092 027b | {| Action Push_String_Extended,0x27b ; " => "
0241 820f | | Call 0x1,0xf
0242 e5fb | | Load 0x2,-0x5
0243 6831 |h1 | Jump_Zero 0x275
0244 00da | | Load_Top At_Offset_2
0245 e001 | | Load 0x0,0x1
0246 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0247 460c |F | Jump_Case 0xd
0248 780c |x | Jump 0x255 ; case 0x0
0249 780b |x | Jump 0x255 ; case 0x1
024a 780a |x | Jump 0x255 ; case 0x2
024b 7809 |x | Jump 0x255 ; case 0x3
024c 7808 |x | Jump 0x255 ; case 0x4
024d 780b |x | Jump 0x259 ; case 0x5
024e 7820 |x | Jump 0x26f ; case 0x6
024f 7805 |x | Jump 0x255 ; case 0x7
0250 7804 |x | Jump 0x255 ; case 0x8
0251 7803 |x | Jump 0x255 ; case 0x9
0252 7802 |x | Jump 0x255 ; case 0xa
0253 7801 |x | Jump 0x255 ; case 0xb
0254 7800 |x | Jump 0x255 ; case 0xc
0255 4800 |H | Short_Literal 0x0
0256 e5ff | | Load 0x2,-0x1
0257 821a | | Call 0x1,0x1a
0258 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0259 00da | | Load_Top At_Offset_2
025a e001 | | Load 0x0,0x1
025b 181f | | Execute Package,Field_Execute,Field_Number 0x1f
025c 6804 |h | Jump_Zero 0x261
025d 4801 |H | Short_Literal 0x1
025e e5ff | | Load 0x2,-0x1
025f 821a | | Call 0x1,0x1a
0260 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0261 00e2 | | Load_Encached Integer_Cache
0262 00e2 | | Load_Encached Integer_Cache
0263 e5fd | | Load 0x2,-0x3
0264 e403 | | Load 0x2,0x3
0265 8218 | | Call 0x1,0x18
0266 005b | [ | Store_Top Discrete,At_Offset_3
0267 0059 | Y | Store_Top Discrete,At_Offset_1
0268 e5fb | | Load 0x2,-0x5
0269 4800 |H | Short_Literal 0x0
026a 00da | | Load_Top At_Offset_2
026b e404 | | Load 0x2,0x4
026c e402 | | Load 0x2,0x2
026d 8213 | | Call 0x1,0x13
026e 4506 |E | Exit_Suprogram New_Top_Offset 0x6
026f e5fb | | Load 0x2,-0x5
0270 e5fd | | Load 0x2,-0x3
0271 e5fe | | Load 0x2,-0x2
0272 e402 | | Load 0x2,0x2
0273 8215 | | Call 0x1,0x15
0274 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0275 4800 |H | Short_Literal 0x0
0276 e5ff | | Load 0x2,-0x1
0277 821a | | Call 0x1,0x1a
0278 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0279 ; --------------------------------------------------------------------------------------
0279 ; STRING TABLE
0279 ; --------------------------------------------------------------------------------------
0279 0018 | | .STRTAB 0x0018->0x0285 ; "("
027a 0017 | | .STRTAB 0x0017->0x0285 ; ")"
027b 0016 | | .STRTAB 0x0016->0x0286 ; " => "
027c 0018 | | .STRTAB 0x0018->0x0288 ; ", "
027d 0019 | | .STRTAB 0x0019->0x0289 ; "-- variant_component here"
027e 0030 | 0 | .STRTAB 0x0030->0x0296 ; "[expression]"
027f 003a | : | .STRTAB 0x003a->0x029c ; "["
0280 0039 | 9 | .STRTAB 0x0039->0x029c ; "-expression]"
0281 0043 | C | .STRTAB 0x0043->0x02a2 ; "new "
0282 0045 | E | .STRTAB 0x0045->0x02a4 ; "'"
0283 0044 | D | .STRTAB 0x0044->0x02a5 ; "\x22\x22"
0284 0044 | D | .STREND 0x0044->0x02a6
0285 2829 203d |() =| .STRTAB_STRINGS
02a6 0000 0000 | | .XXX[0x2]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; Debug Table
02a8 ; --------------------------------------------------------------------------------------
02a8 0004 0004 | | .DEBUG4 0x0004,0x0004,0x2fa6,0x0000,0x0001,0x000b
02ae 000b 02da | | .DBG4T 0x000b,0x02da,0xc000,0x0000
02b2 001a 02df | | .DBG4T 0x001a,0x02df,0xc000,0x0000
02b6 0033 02ea | 3 | .DBG4T 0x0033,0x02ea,0x1001,0x4000
02ba 0093 0304 | | .DBG4T 0x0093,0x0304,0x1001,0x4000
02be 0113 0336 | 6| .DBG4T 0x0113,0x0336,0x1001,0x0000
02c2 015b 0345 | [ E| .DBG4T 0x015b,0x0345,0x1001,0x0000
02c6 0173 034a | s J| .DBG4T 0x0173,0x034a,0x1002,0x0000
02ca 0183 034e | N| .DBG4T 0x0183,0x034e,0x1001,0x0000
02ce 01e3 035d | ]| .DBG4T 0x01e3,0x035d,0x1001,0x0000
02d2 01fb 0361 | a| .DBG4T 0x01fb,0x0361,0x1001,0x0000
02d6 022b 036b | + k| .DBG4T 0x022b,0x036b,0x1001,0x4000
02da ; --------------------------------------------------------------------------------------
02da ; Debug chain
02da ; --------------------------------------------------------------------------------------
02da 0003 0000 | | .DBGLEN 0x0003,0x0000
02dc 0010 0013 | | .DBGLNO 0x0010,0x0013,0x0016
02df ; --------------------------------------------------------------------------------------
02df ; Debug chain
02df ; --------------------------------------------------------------------------------------
02df 0009 0000 | | .DBGLEN 0x0009,0x0000
02e1 001a 001c | | .DBGLNO 0x001a,0x001c,0x001e,0x0020,0x0022,0x0024,0x0026,0x0028,0x002a
02ea ; --------------------------------------------------------------------------------------
02ea ; Debug chain
02ea ; --------------------------------------------------------------------------------------
02ea 0002 000b | | .DBGLEN 0x0002,0x000b
02ec 0033 003a | 3 :| .DBGLNO 0x0033,0x003a,0x003c,0x003e,0x004f,0x0054,0x005d,0x0064,0x006a,0x0073,0x007a,0x0084,0x0088
02f9 0001 0002 | | .XXX[0xb]
02fb 000a 0003 | |
02fd 0004 0005 | |
02ff 0006 0007 | |
0301 0008 0009 | |
0303 000b | |
0304 ; --------------------------------------------------------------------------------------
0304 ; Debug chain
0304 ; --------------------------------------------------------------------------------------
0304 0006 0015 | | .DBGLEN 0x0006,0x0015
0306 0093 009a | | .DBGLNO 0x0093,0x009a,0x009f,0x00a6,0x00ab,0x00b2,0x00b7,0x00bc,0x00c0,0x00c7,0x00c9,0x00cd,0x00d0,0x00d2,0x00d8,0x00dc,0x00e4,0x00e7,0x00e8,0x00eb,0x00f3,0x00f7,0x00fb,0x00fe,0x0100,0x0105,0x0108
0321 0001 0003 | | .XXX[0x15]
0323 0004 0005 | |
0325 0006 0007 | |
0327 0008 0002 | |
0329 000a 000b | |
032b 000d 000e | |
032d 000f 0010 | |
032f 0011 0012 | |
0331 0013 0014 | |
0333 0009 0015 | |
0335 0016 | |
0336 ; --------------------------------------------------------------------------------------
0336 ; Debug chain
0336 ; --------------------------------------------------------------------------------------
0336 0002 000b | | .DBGLEN 0x0002,0x000b
0338 0113 011c | | .DBGLNO 0x0113,0x011c,0x0126,0x012a,0x012e,0x0130,0x0137,0x013a,0x0147,0x014b,0x014e,0x0152,0x0155
0345 ; --------------------------------------------------------------------------------------
0345 ; Debug chain
0345 ; --------------------------------------------------------------------------------------
0345 0000 0003 | | .DBGLEN 0x0000,0x0003
0347 015b 015e | [ ^| .DBGLNO 0x015b,0x015e,0x0162
034a ; --------------------------------------------------------------------------------------
034a ; Debug chain
034a ; --------------------------------------------------------------------------------------
034a 0001 0001 | | .DBGLEN 0x0001,0x0001
034c 0173 017a | s z| .DBGLNO 0x0173,0x017a
034e ; --------------------------------------------------------------------------------------
034e ; Debug chain
034e ; --------------------------------------------------------------------------------------
034e 0005 0008 | | .DBGLEN 0x0005,0x0008
0350 0183 018a | | .DBGLNO 0x0183,0x018a,0x0191,0x0193,0x0194,0x019e,0x01b7,0x01b9,0x01c0,0x01c6,0x01ce,0x01d9,0x01db
035d ; --------------------------------------------------------------------------------------
035d ; Debug chain
035d ; --------------------------------------------------------------------------------------
035d 0000 0002 | | .DBGLEN 0x0000,0x0002
035f 01e3 01ed | | .DBGLNO 0x01e3,0x01ed
0361 ; --------------------------------------------------------------------------------------
0361 ; Debug chain
0361 ; --------------------------------------------------------------------------------------
0361 0002 0006 | | .DBGLEN 0x0002,0x0006
0363 01fb 0200 | | .DBGLNO 0x01fb,0x0200,0x020a,0x020e,0x0212,0x0214,0x0218,0x021d
036b ; --------------------------------------------------------------------------------------
036b ; Debug chain
036b ; --------------------------------------------------------------------------------------
036b 0003 000b | | .DBGLEN 0x0003,0x000b
036d 022b 0232 | + 2| .DBGLNO 0x022b,0x0232,0x0239,0x023b,0x023f,0x0242,0x0244,0x0255,0x0259,0x025d,0x0261,0x0268,0x026f,0x0275
037b 0001 0002 | | .XXX[0xb]
037d 0003 0004 | |
037f 000a 0005 | |
0381 0006 0007 | |
0383 0008 0009 | |
0385 000b | |
0386 0000 0000 | | .BLANK 0000[0x7a]