|
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 - metrics - download
Length: 3072 (0xc00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03bcfe
└─⟦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 0440 | @ | .CONST 0x0440 ; 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 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0029 | ) | .CONST 0x0029 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0011 | | .CONST 0x0011 ; Number of locals
000b INIT_0008:
000b e5ff | | Load 0x2,-0x1
000c 01dd | | Execute Vector,First
000d 00e3 | | Load_Encached Natural_Cache
000e 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
000f e5ff | | Load 0x2,-0x1
0010 01dc | | Execute Vector,Last
0011 00e3 | | Load_Encached Natural_Cache
0012 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0013 e402 | | Load 0x2,0x2
0014 00e2 | | Load_Encached Integer_Cache
0015 03f1 | | Declare_Variable Discrete,With_Value
0016 00e2 | | Load_Encached Integer_Cache
0017 00e2 | | Load_Encached Integer_Cache
0018 00e2 | | Load_Encached Integer_Cache
0019 e011 | | Load 0x0,0x11
001a 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
001b 00e1 | | Load_Encached Boolean_Cache
001c e06e | n | Load 0x0,0x6e
001d 1b12 | | Execute Package,Field_Read,Field_Number 0x12
001e e06e | n | Load 0x0,0x6e
001f 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0020 00e8 | | Load_Encached Character_Cache
0021 00e8 | | Load_Encached Character_Cache
0022 00e2 | | Load_Encached Integer_Cache
0023 029f 01eb | | Declare_Subprogram For_Call,INIT_01e8
0025 029f 021b | | Declare_Subprogram For_Call,INIT_0218
0027 029f 023b | ;| Declare_Subprogram For_Call,INIT_0238
0029 BODY_0008:
0029 e5fe | | Load 0x2,-0x2
002a e017 | | Load 0x0,0x17
002b 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
002c 027d | } | Execute Discrete,Greater
002d 6808 |h | Jump_Zero 0x36
002e 0092 0410 | | Action Push_String_Extended,0x410 ; "Limiting evaluation recursion to avoid potential infinite loop"
0030 e01c | | Load 0x0,0x1c
0031 180f | | Execute Package,Field_Execute,Field_Number 0xf
0032 e5ff | | Load 0x2,-0x1
0033 0335 | 5 | Declare_Variable Array,Duplicate
0034 00cd | | Action Spare6_Action
0035 4402 |D | Exit_Subprogram With_Result,0x2
0036 00cf | | Action Mark_Auxiliary
0037 e404 | | Load 0x2,0x4
0038 e403 | | Load 0x2,0x3
0039 027b | { | Execute Discrete,Greater_Equal
003a 6804 |h | Jump_Zero 0x3f
003b e5ff | | Load 0x2,-0x1
003c 0335 | 5 | Declare_Variable Array,Duplicate
003d 00cd | | Action Spare6_Action
003e 4402 |D | Exit_Subprogram With_Result,0x2
003f e404 | | Load 0x2,0x4
0040 e5ff | | Load 0x2,-0x1
0041 01d7 | | Execute Vector,Field_Read
0042 0f7e | ~ | Execute_Immediate Equal,0x7e
0043 699d |i | Jump_Zero 0x1e1
0044 e404 | | Load 0x2,0x4
0045 0a01 | | Execute_Immediate Plus,0x1
0046 e5ff | | Load 0x2,-0x1
0047 01d7 | | Execute Vector,Field_Read
0048 00d8 | | Load_Top At_Offset_0
0049 4841 |HA | Short_Literal 0x41
004a 485a |HZ | Short_Literal 0x5a
004b 0262 | b | Execute Discrete,In_Range
004c 7008 |p | Jump_Nonzero 0x55
004d 4861 |Ha | Short_Literal 0x61
004e 487a |Hz | Short_Literal 0x7a
004f 0262 | b | Execute Discrete,In_Range
0050 7005 |p | Jump_Nonzero 0x56
0051 e404 | | Load 0x2,0x4
0052 0a02 | | Execute_Immediate Plus,0x2
0053 c404 | | Store 0x2,0x4
0054 798f |y | Jump 0x1e4
0055 00d1 | | Pop_Control Pop_Count_1
0056 e404 | | Load 0x2,0x4
0057 0a02 | | Execute_Immediate Plus,0x2
0058 c405 | | Store 0x2,0x5
0059 00cf | | Action Mark_Auxiliary
005a e405 | | Load 0x2,0x5
005b e403 | | Load 0x2,0x3
005c 027d | } | Execute Discrete,Greater
005d 701e |p | Jump_Nonzero 0x7c
005e e405 | | Load 0x2,0x5
005f e5ff | | Load 0x2,-0x1
0060 01d7 | | Execute Vector,Field_Read
0061 00d8 | | Load_Top At_Offset_0
0062 0d41 | A | Execute_Immediate Less,0x41
0063 700f |p | Jump_Nonzero 0x73
0064 00d8 | | Load_Top At_Offset_0
0065 0c5b | [ | Execute_Immediate Greater_Equal,0x5b
0066 7005 |p | Jump_Nonzero 0x6c
0067 00d1 | | Pop_Control Pop_Count_1
0068 e405 | | Load 0x2,0x5
0069 0a01 | | Execute_Immediate Plus,0x1
006a c405 | | Store 0x2,0x5
006b 780e |x | Jump 0x7a
006c 0b5f | _ | Execute_Immediate Case_Compare,0x5f
006d 77f9 |w | Jump_Nonzero 0x67
006e 4861 |Ha | Short_Literal 0x61
006f 487a |Hz | Short_Literal 0x7a
0070 0262 | b | Execute Discrete,In_Range
0071 77f6 |w | Jump_Nonzero 0x68
0072 7809 |x | Jump 0x7c
0073 0b2d | - | Execute_Immediate Case_Compare,0x2d
0074 77f2 |w | Jump_Nonzero 0x67
0075 4830 |H0 | Short_Literal 0x30
0076 4839 |H9 | Short_Literal 0x39
0077 0262 | b | Execute Discrete,In_Range
0078 77ef |w | Jump_Nonzero 0x68
0079 7802 |x | Jump 0x7c
007a 00c9 | | Action Pop_Auxiliary_Loop
007b 7fde | | Jump 0x5a
007c 00ce | | Action Pop_Auxiliary
007d 00e1 | | Load_Encached Boolean_Cache
007e e011 | | Load 0x0,0x11
007f 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
0080 e404 | | Load 0x2,0x4
0081 0a01 | | Execute_Immediate Plus,0x1
0082 00d8 | | Load_Top At_Offset_0
0083 00e2 | | Load_Encached Integer_Cache
0084 0260 | ` | Execute Discrete,In_Type
0085 7001 |p | Jump_Nonzero 0x87
0086 0801 | | Execute_Immediate Raise,0x1
0087 e405 | | Load 0x2,0x5
0088 0aff | | Execute_Immediate Plus,-0x1
0089 00d8 | | Load_Top At_Offset_0
008a 00e2 | | Load_Encached Integer_Cache
008b 0260 | ` | Execute Discrete,In_Type
008c 7001 |p | Jump_Nonzero 0x8e
008d 0801 | | Execute_Immediate Raise,0x1
008e e5ff | | Load 0x2,-0x1
008f 01cf | | Execute Vector,Slice_Read
0090 e06e | n | Load 0x0,0x6e
0091 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0092 c408 | | Store 0x2,0x8
0093 c409 | | Store 0x2,0x9
0094 e409 | | Load 0x2,0x9
0095 6865 |he | Jump_Zero 0xfb
0096 e405 | | Load 0x2,0x5
0097 a406 | | Store_Unchecked 0x2,0x6
0098 00cf | | Action Mark_Auxiliary
0099 e406 | | Load 0x2,0x6
009a e5ff | | Load 0x2,-0x1
009b 01d7 | | Execute Vector,Field_Read
009c a40c | | Store_Unchecked 0x2,0xc
009d 4800 |H | Short_Literal 0x0
009e e40a | | Load 0x2,0xa
009f e40c | | Load 0x2,0xc
00a0 e01a | | Load 0x0,0x1a
00a1 181e | | Execute Package,Field_Execute,Field_Number 0x1e
00a2 a40e | | Store_Unchecked 0x2,0xe
00a3 e40e | | Load 0x2,0xe
00a4 7027 |p' | Jump_Nonzero 0xcc
00a5 e40c | | Load 0x2,0xc
00a6 0e20 | | Execute_Immediate Not_Equal,0x20
00a7 e40c | | Load 0x2,0xc
00a8 0e0a | | Execute_Immediate Not_Equal,0xa
00a9 0279 | y | Execute Discrete,And
00aa e406 | | Load 0x2,0x6
00ab e403 | | Load 0x2,0x3
00ac 027f | | Execute Discrete,Equal
00ad 0278 | x | Execute Discrete,Or
00ae 6818 |h | Jump_Zero 0xc7
00af e402 | | Load 0x2,0x2
00b0 e406 | | Load 0x2,0x6
00b1 e5ff | | Load 0x2,-0x1
00b2 01cf | | Execute Vector,Slice_Read
00b3 e5fe | | Load 0x2,-0x2
00b4 0a01 | | Execute_Immediate Plus,0x1
00b5 00d8 | | Load_Top At_Offset_0
00b6 00e3 | | Load_Encached Natural_Cache
00b7 0260 | ` | Execute Discrete,In_Type
00b8 7001 |p | Jump_Nonzero 0xba
00b9 0801 | | Execute_Immediate Raise,0x1
00ba e406 | | Load 0x2,0x6
00bb 0a01 | | Execute_Immediate Plus,0x1
00bc 00d8 | | Load_Top At_Offset_0
00bd 00e2 | | Load_Encached Integer_Cache
00be 0260 | ` | Execute Discrete,In_Type
00bf 7001 |p | Jump_Nonzero 0xc1
00c0 0801 | | Execute_Immediate Raise,0x1
00c1 e403 | | Load 0x2,0x3
00c2 e5ff | | Load 0x2,-0x1
00c3 01cf | | Execute Vector,Slice_Read
00c4 8264 | d | Call 0x1,0x64
00c5 01cc | | Execute Vector,Catenate
00c6 4402 |D | Exit_Subprogram With_Result,0x2
00c7 e406 | | Load 0x2,0x6
00c8 0a01 | | Execute_Immediate Plus,0x1
00c9 c406 | | Store 0x2,0x6
00ca 00c9 | | Action Pop_Auxiliary_Loop
00cb 7fcd | | Jump 0x99
00cc 00ce | | Action Pop_Auxiliary
00cd e40e | | Load 0x2,0xe
00ce e40b | | Load 0x2,0xb
00cf 01d7 | | Execute Vector,Field_Read
00d0 a40d | | Store_Unchecked 0x2,0xd
00d1 4800 |H | Short_Literal 0x0
00d2 a40e | | Store_Unchecked 0x2,0xe
00d3 e406 | | Load 0x2,0x6
00d4 0a01 | | Execute_Immediate Plus,0x1
00d5 c407 | | Store 0x2,0x7
00d6 00cf | | Action Mark_Auxiliary
00d7 e407 | | Load 0x2,0x7
00d8 e403 | | Load 0x2,0x3
00d9 027d | } | Execute Discrete,Greater
00da 6804 |h | Jump_Zero 0xdf
00db e5ff | | Load 0x2,-0x1
00dc 0335 | 5 | Declare_Variable Array,Duplicate
00dd 00cd | | Action Spare6_Action
00de 4402 |D | Exit_Subprogram With_Result,0x2
00df e407 | | Load 0x2,0x7
00e0 e5ff | | Load 0x2,-0x1
00e1 01d7 | | Execute Vector,Field_Read
00e2 e40d | | Load 0x2,0xd
00e3 027f | | Execute Discrete,Equal
00e4 6807 |h | Jump_Zero 0xec
00e5 e40e | | Load 0x2,0xe
00e6 7001 |p | Jump_Nonzero 0xe8
00e7 7812 |x | Jump 0xfa
00e8 e40e | | Load 0x2,0xe
00e9 0aff | | Execute_Immediate Plus,-0x1
00ea c40e | | Store 0x2,0xe
00eb 7809 |x | Jump 0xf5
00ec e407 | | Load 0x2,0x7
00ed e5ff | | Load 0x2,-0x1
00ee 01d7 | | Execute Vector,Field_Read
00ef e40c | | Load 0x2,0xc
00f0 027f | | Execute Discrete,Equal
00f1 6803 |h | Jump_Zero 0xf5
00f2 e40e | | Load 0x2,0xe
00f3 0a01 | | Execute_Immediate Plus,0x1
00f4 c40e | | Store 0x2,0xe
00f5 e407 | | Load 0x2,0x7
00f6 0a01 | | Execute_Immediate Plus,0x1
00f7 c407 | | Store 0x2,0x7
00f8 00c9 | | Action Pop_Auxiliary_Loop
00f9 7fdd | | Jump 0xd7
00fa 00ce | | Action Pop_Auxiliary
00fb e408 | | Load 0x2,0x8
00fc 0f63 | c | Execute_Immediate Equal,0x63
00fd 6833 |h3 | Jump_Zero 0x131
00fe e017 | | Load 0x0,0x17
00ff 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
0100 6830 |h0 | Jump_Zero 0x131
0101 e402 | | Load 0x2,0x2
0102 e404 | | Load 0x2,0x4
0103 0aff | | Execute_Immediate Plus,-0x1
0104 00d8 | | Load_Top At_Offset_0
0105 00e2 | | Load_Encached Integer_Cache
0106 0260 | ` | Execute Discrete,In_Type
0107 7001 |p | Jump_Nonzero 0x109
0108 0801 | | Execute_Immediate Raise,0x1
0109 e5ff | | Load 0x2,-0x1
010a 01cf | | Execute Vector,Slice_Read
010b e406 | | Load 0x2,0x6
010c 0a01 | | Execute_Immediate Plus,0x1
010d 00d8 | | Load_Top At_Offset_0
010e 00e2 | | Load_Encached Integer_Cache
010f 0260 | ` | Execute Discrete,In_Type
0110 7001 |p | Jump_Nonzero 0x112
0111 0801 | | Execute_Immediate Raise,0x1
0112 e407 | | Load 0x2,0x7
0113 0aff | | Execute_Immediate Plus,-0x1
0114 00d8 | | Load_Top At_Offset_0
0115 00e2 | | Load_Encached Integer_Cache
0116 0260 | ` | Execute Discrete,In_Type
0117 7001 |p | Jump_Nonzero 0x119
0118 0801 | | Execute_Immediate Raise,0x1
0119 e5ff | | Load 0x2,-0x1
011a 01cf | | Execute Vector,Slice_Read
011b 8411 | | Call 0x2,0x11
011c 01cc | | Execute Vector,Catenate
011d e5fe | | Load 0x2,-0x2
011e 0a01 | | Execute_Immediate Plus,0x1
011f 00d8 | | Load_Top At_Offset_0
0120 00e3 | | Load_Encached Natural_Cache
0121 0260 | ` | Execute Discrete,In_Type
0122 7001 |p | Jump_Nonzero 0x124
0123 0801 | | Execute_Immediate Raise,0x1
0124 e407 | | Load 0x2,0x7
0125 0a01 | | Execute_Immediate Plus,0x1
0126 00d8 | | Load_Top At_Offset_0
0127 00e2 | | Load_Encached Integer_Cache
0128 0260 | ` | Execute Discrete,In_Type
0129 7001 |p | Jump_Nonzero 0x12b
012a 0801 | | Execute_Immediate Raise,0x1
012b e403 | | Load 0x2,0x3
012c e5ff | | Load 0x2,-0x1
012d 01cf | | Execute Vector,Slice_Read
012e 8264 | d | Call 0x1,0x64
012f 01cc | | Execute Vector,Catenate
0130 4402 |D | Exit_Subprogram With_Result,0x2
0131 e408 | | Load 0x2,0x8
0132 0f65 | e | Execute_Immediate Equal,0x65
0133 682d |h- | Jump_Zero 0x161
0134 e017 | | Load 0x0,0x17
0135 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0136 682a |h* | Jump_Zero 0x161
0137 e402 | | Load 0x2,0x2
0138 e404 | | Load 0x2,0x4
0139 0aff | | Execute_Immediate Plus,-0x1
013a 00d8 | | Load_Top At_Offset_0
013b 00e2 | | Load_Encached Integer_Cache
013c 0260 | ` | Execute Discrete,In_Type
013d 7001 |p | Jump_Nonzero 0x13f
013e 0801 | | Execute_Immediate Raise,0x1
013f e5ff | | Load 0x2,-0x1
0140 01cf | | Execute Vector,Slice_Read
0141 e404 | | Load 0x2,0x4
0142 0a01 | | Execute_Immediate Plus,0x1
0143 00d8 | | Load_Top At_Offset_0
0144 00e2 | | Load_Encached Integer_Cache
0145 0260 | ` | Execute Discrete,In_Type
0146 7001 |p | Jump_Nonzero 0x148
0147 0801 | | Execute_Immediate Raise,0x1
0148 e405 | | Load 0x2,0x5
0149 0aff | | Execute_Immediate Plus,-0x1
014a 00d8 | | Load_Top At_Offset_0
014b 00e2 | | Load_Encached Integer_Cache
014c 0260 | ` | Execute Discrete,In_Type
014d 7001 |p | Jump_Nonzero 0x14f
014e 0801 | | Execute_Immediate Raise,0x1
014f e5ff | | Load 0x2,-0x1
0150 01cf | | Execute Vector,Slice_Read
0151 840f | | Call 0x2,0xf
0152 01cc | | Execute Vector,Catenate
0153 e5fe | | Load 0x2,-0x2
0154 0a01 | | Execute_Immediate Plus,0x1
0155 00d8 | | Load_Top At_Offset_0
0156 00e3 | | Load_Encached Natural_Cache
0157 0260 | ` | Execute Discrete,In_Type
0158 7001 |p | Jump_Nonzero 0x15a
0159 0801 | | Execute_Immediate Raise,0x1
015a e405 | | Load 0x2,0x5
015b e403 | | Load 0x2,0x3
015c e5ff | | Load 0x2,-0x1
015d 01cf | | Execute Vector,Slice_Read
015e 8264 | d | Call 0x1,0x64
015f 01cc | | Execute Vector,Catenate
0160 4402 |D | Exit_Subprogram With_Result,0x2
0161 e408 | | Load 0x2,0x8
0162 0f66 | f | Execute_Immediate Equal,0x66
0163 6843 |hC | Jump_Zero 0x1a7
0164 e017 | | Load 0x0,0x17
0165 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
0166 6840 |h@ | Jump_Zero 0x1a7
0167 e402 | | Load 0x2,0x2
0168 e404 | | Load 0x2,0x4
0169 0aff | | Execute_Immediate Plus,-0x1
016a 00d8 | | Load_Top At_Offset_0
016b 00e2 | | Load_Encached Integer_Cache
016c 0260 | ` | Execute Discrete,In_Type
016d 7001 |p | Jump_Nonzero 0x16f
016e 0801 | | Execute_Immediate Raise,0x1
016f e5ff | | Load 0x2,-0x1
0170 01cf | | Execute Vector,Slice_Read
0171 e406 | | Load 0x2,0x6
0172 0a01 | | Execute_Immediate Plus,0x1
0173 00d8 | | Load_Top At_Offset_0
0174 00e2 | | Load_Encached Integer_Cache
0175 0260 | ` | Execute Discrete,In_Type
0176 7001 |p | Jump_Nonzero 0x178
0177 0801 | | Execute_Immediate Raise,0x1
0178 e407 | | Load 0x2,0x7
0179 0aff | | Execute_Immediate Plus,-0x1
017a 00d8 | | Load_Top At_Offset_0
017b 00e2 | | Load_Encached Integer_Cache
017c 0260 | ` | Execute Discrete,In_Type
017d 7001 |p | Jump_Nonzero 0x17f
017e 0801 | | Execute_Immediate Raise,0x1
017f e5ff | | Load 0x2,-0x1
0180 01cf | | Execute Vector,Slice_Read
0181 e404 | | Load 0x2,0x4
0182 0a01 | | Execute_Immediate Plus,0x1
0183 00d8 | | Load_Top At_Offset_0
0184 00e2 | | Load_Encached Integer_Cache
0185 0260 | ` | Execute Discrete,In_Type
0186 7001 |p | Jump_Nonzero 0x188
0187 0801 | | Execute_Immediate Raise,0x1
0188 e405 | | Load 0x2,0x5
0189 0aff | | Execute_Immediate Plus,-0x1
018a 00d8 | | Load_Top At_Offset_0
018b 00e2 | | Load_Encached Integer_Cache
018c 0260 | ` | Execute Discrete,In_Type
018d 7001 |p | Jump_Nonzero 0x18f
018e 0801 | | Execute_Immediate Raise,0x1
018f e5ff | | Load 0x2,-0x1
0190 01cf | | Execute Vector,Slice_Read
0191 8410 | | Call 0x2,0x10
0192 01cc | | Execute Vector,Catenate
0193 e5fe | | Load 0x2,-0x2
0194 0a01 | | Execute_Immediate Plus,0x1
0195 00d8 | | Load_Top At_Offset_0
0196 00e3 | | Load_Encached Natural_Cache
0197 0260 | ` | Execute Discrete,In_Type
0198 7001 |p | Jump_Nonzero 0x19a
0199 0801 | | Execute_Immediate Raise,0x1
019a e407 | | Load 0x2,0x7
019b 0a01 | | Execute_Immediate Plus,0x1
019c 00d8 | | Load_Top At_Offset_0
019d 00e2 | | Load_Encached Integer_Cache
019e 0260 | ` | Execute Discrete,In_Type
019f 7001 |p | Jump_Nonzero 0x1a1
01a0 0801 | | Execute_Immediate Raise,0x1
01a1 e403 | | Load 0x2,0x3
01a2 e5ff | | Load 0x2,-0x1
01a3 01cf | | Execute Vector,Slice_Read
01a4 8264 | d | Call 0x1,0x64
01a5 01cc | | Execute Vector,Catenate
01a6 4402 |D | Exit_Subprogram With_Result,0x2
01a7 e409 | | Load 0x2,0x9
01a8 6835 |h5 | Jump_Zero 0x1de
01a9 e407 | | Load 0x2,0x7
01aa e5ff | | Load 0x2,-0x1
01ab 01d7 | | Execute Vector,Field_Read
01ac e402 | | Load 0x2,0x2
01ad e406 | | Load 0x2,0x6
01ae e5ff | | Load 0x2,-0x1
01af 01cf | | Execute Vector,Slice_Read
01b0 e5fe | | Load 0x2,-0x2
01b1 0a01 | | Execute_Immediate Plus,0x1
01b2 00d8 | | Load_Top At_Offset_0
01b3 00e3 | | Load_Encached Natural_Cache
01b4 0260 | ` | Execute Discrete,In_Type
01b5 7001 |p | Jump_Nonzero 0x1b7
01b6 0801 | | Execute_Immediate Raise,0x1
01b7 e406 | | Load 0x2,0x6
01b8 0a01 | | Execute_Immediate Plus,0x1
01b9 00d8 | | Load_Top At_Offset_0
01ba 00e2 | | Load_Encached Integer_Cache
01bb 0260 | ` | Execute Discrete,In_Type
01bc 7001 |p | Jump_Nonzero 0x1be
01bd 0801 | | Execute_Immediate Raise,0x1
01be e407 | | Load 0x2,0x7
01bf 0aff | | Execute_Immediate Plus,-0x1
01c0 00d8 | | Load_Top At_Offset_0
01c1 00e2 | | Load_Encached Integer_Cache
01c2 0260 | ` | Execute Discrete,In_Type
01c3 7001 |p | Jump_Nonzero 0x1c5
01c4 0801 | | Execute_Immediate Raise,0x1
01c5 e5ff | | Load 0x2,-0x1
01c6 01cf | | Execute Vector,Slice_Read
01c7 8264 | d | Call 0x1,0x64
01c8 01cc | | Execute Vector,Catenate
01c9 01cb | | Execute Vector,Append
01ca e5fe | | Load 0x2,-0x2
01cb 0a01 | | Execute_Immediate Plus,0x1
01cc 00d8 | | Load_Top At_Offset_0
01cd 00e3 | | Load_Encached Natural_Cache
01ce 0260 | ` | Execute Discrete,In_Type
01cf 7001 |p | Jump_Nonzero 0x1d1
01d0 0801 | | Execute_Immediate Raise,0x1
01d1 e407 | | Load 0x2,0x7
01d2 0a01 | | Execute_Immediate Plus,0x1
01d3 00d8 | | Load_Top At_Offset_0
01d4 00e2 | | Load_Encached Integer_Cache
01d5 0260 | ` | Execute Discrete,In_Type
01d6 7001 |p | Jump_Nonzero 0x1d8
01d7 0801 | | Execute_Immediate Raise,0x1
01d8 e403 | | Load 0x2,0x3
01d9 e5ff | | Load 0x2,-0x1
01da 01cf | | Execute Vector,Slice_Read
01db 8264 | d | Call 0x1,0x64
01dc 01cc | | Execute Vector,Catenate
01dd 4402 |D | Exit_Subprogram With_Result,0x2
01de e405 | | Load 0x2,0x5
01df a404 | | Store_Unchecked 0x2,0x4
01e0 7803 |x | Jump 0x1e4
01e1 e404 | | Load 0x2,0x4
01e2 0a01 | | Execute_Immediate Plus,0x1
01e3 c404 | | Store 0x2,0x4
01e4 00c9 | | Action Pop_Auxiliary_Loop
01e5 7e51 |~Q | Jump 0x37
01e6 0000 0000 | | .XXX[0x2]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01ee | | .CONST 0x01ee ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0003 | | .CONST 0x0003 ; Number of locals
01eb INIT_01e8:
01eb e011 | | Load 0x0,0x11
01ec 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01ed 00e1 | | Load_Encached Boolean_Cache
01ee BODY_01e8:
01ee 00e1 | | Load_Encached Boolean_Cache
01ef e602 | | Load 0x3,0x2
01f0 e7ff | | Load 0x3,-0x1
01f1 e250 | P | Load 0x1,0x50
01f2 e24f | O | Load 0x1,0x4f
01f3 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01f4 c602 | | Store 0x3,0x2
01f5 c603 | | Store 0x3,0x3
01f6 00d8 | | Load_Top At_Offset_0
01f7 700d |p | Jump_Nonzero 0x205
01f8 e404 | | Load 0x2,0x4
01f9 e405 | | Load 0x2,0x5
01fa 0aff | | Execute_Immediate Plus,-0x1
01fb 00d8 | | Load_Top At_Offset_0
01fc 00e2 | | Load_Encached Integer_Cache
01fd 0260 | ` | Execute Discrete,In_Type
01fe 7001 |p | Jump_Nonzero 0x200
01ff 0801 | | Execute_Immediate Raise,0x1
0200 e5ff | | Load 0x2,-0x1
0201 01cf | | Execute Vector,Slice_Read
0202 0335 | 5 | Declare_Variable Array,Duplicate
0203 00cd | | Action Spare6_Action
0204 4401 |D | Exit_Subprogram With_Result,0x1
0205 e5fe | | Load 0x2,-0x2
0206 0a01 | | Execute_Immediate Plus,0x1
0207 00d8 | | Load_Top At_Offset_0
0208 00e3 | | Load_Encached Natural_Cache
0209 0260 | ` | Execute Discrete,In_Type
020a 7001 |p | Jump_Nonzero 0x20c
020b 0801 | | Execute_Immediate Raise,0x1
020c e602 | | Load 0x3,0x2
020d e011 | | Load 0x0,0x11
020e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
020f 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0210 8264 | d | Call 0x1,0x64
0211 4401 |D | Exit_Subprogram With_Result,0x1
0212 0000 0000 | | .BLANK 0000[0x6]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 0220 | | .CONST 0x0220 ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0004 | | .CONST 0x0004 ; Number of locals
021b INIT_0218:
021b e011 | | Load 0x0,0x11
021c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
021d 00e1 | | Load_Encached Boolean_Cache
021e 029f 0333 | 3| Declare_Subprogram For_Call,INIT_0330
0220 BODY_0218:
0220 00e1 | | Load_Encached Boolean_Cache
0221 e602 | | Load 0x3,0x2
0222 e7ff | | Load 0x3,-0x1
0223 e250 | P | Load 0x1,0x50
0224 e24f | O | Load 0x1,0x4f
0225 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0226 c602 | | Store 0x3,0x2
0227 c603 | | Store 0x3,0x3
0228 e603 | | Load 0x3,0x3
0229 7007 |p | Jump_Nonzero 0x231
022a e404 | | Load 0x2,0x4
022b e407 | | Load 0x2,0x7
022c e5ff | | Load 0x2,-0x1
022d 01cf | | Execute Vector,Slice_Read
022e 0335 | 5 | Declare_Variable Array,Duplicate
022f 00cd | | Action Spare6_Action
0230 4402 |D | Exit_Subprogram With_Result,0x2
0231 8604 | | Call 0x3,0x4
0232 0831 | 1 | Execute_Immediate Raise,0x31
0233 0000 0000 | | .BLANK 0000[0x5]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 0249 | I | .CONST 0x0249 ; Address of begin
0239 0004 | | .CONST 0x0004 ; Address of exception handler
023a 0007 | | .CONST 0x0007 ; Number of locals
023b INIT_0238:
023b e09c | | Load 0x0,0x9c
023c 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
023d e011 | | Load 0x0,0x11
023e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
023f e033 | 3 | Load 0x0,0x33
0240 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0241 0322 | " | Declare_Variable Record
0242 00d8 | | Load_Top At_Offset_0
0243 1c00 | | Execute_Immediate Run_Utility,0x0
0244 00e2 | | Load_Encached Integer_Cache
0245 029f 037b | {| Declare_Subprogram For_Call,INIT_0378
0247 029f 03e3 | | Declare_Subprogram For_Call,INIT_03e0
0249 BODY_0238:
0249 e7ff | | Load 0x3,-0x1
024a e09c | | Load 0x0,0x9c
024b 1820 | | Execute Package,Field_Execute,Field_Number 0x20
024c a602 | | Store_Unchecked 0x3,0x2
024d e602 | | Load 0x3,0x2
024e e09c | | Load 0x0,0x9c
024f 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0250 e7ff | | Load 0x3,-0x1
0251 01db | | Execute Vector,Length
0252 0e00 | | Execute_Immediate Not_Equal,0x0
0253 0279 | y | Execute Discrete,And
0254 6807 |h | Jump_Zero 0x25c
0255 e404 | | Load 0x2,0x4
0256 e407 | | Load 0x2,0x7
0257 e5ff | | Load 0x2,-0x1
0258 01cf | | Execute Vector,Slice_Read
0259 0335 | 5 | Declare_Variable Array,Duplicate
025a 00cd | | Action Spare6_Action
025b 4401 |D | Exit_Subprogram With_Result,0x1
025c 4801 |H | Short_Literal 0x1
025d e602 | | Load 0x3,0x2
025e e09c | | Load 0x0,0x9c
025f 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0260 7007 |p | Jump_Nonzero 0x268
0261 e404 | | Load 0x2,0x4
0262 e407 | | Load 0x2,0x7
0263 e5ff | | Load 0x2,-0x1
0264 01cf | | Execute Vector,Slice_Read
0265 0335 | 5 | Declare_Variable Array,Duplicate
0266 00cd | | Action Spare6_Action
0267 4401 |D | Exit_Subprogram With_Result,0x1
0268 4800 |H | Short_Literal 0x0
0269 4801 |H | Short_Literal 0x1
026a 4801 |H | Short_Literal 0x1
026b e602 | | Load 0x3,0x2
026c e09d | | Load 0x0,0x9d
026d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
026e 460c |F | Jump_Case 0xc
026f 78b6 |x | Jump 0x326 ; case 0x0
0270 7810 |x | Jump 0x281 ; case 0x1
0271 7813 |x | Jump 0x285 ; case 0x2
0272 7815 |x | Jump 0x288 ; case 0x3
0273 781b |x | Jump 0x28f ; case 0x4
0274 781f |x | Jump 0x294 ; case 0x5
0275 781e |x | Jump 0x294 ; case 0x6
0276 7840 |x@ | Jump 0x2b7 ; case 0x7
0277 783f |x? | Jump 0x2b7 ; case 0x8
0278 7874 |xt | Jump 0x2ed ; case 0x9
0279 7873 |xs | Jump 0x2ed ; case 0xa
027a 781e |x | Jump 0x299 ; case 0xb
027b 7800 |x | Jump 0x27c ; case 0xc
027c e095 | | Load 0x0,0x95
027d 1819 | | Execute Package,Field_Execute,Field_Number 0x19
027e e095 | | Load 0x0,0x95
027f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0280 4401 |D | Exit_Subprogram With_Result,0x1
0281 e09e | | Load 0x0,0x9e
0282 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0283 8606 | | Call 0x3,0x6
0284 4401 |D | Exit_Subprogram With_Result,0x1
0285 e09f | | Load 0x0,0x9f
0286 8606 | | Call 0x3,0x6
0287 4401 |D | Exit_Subprogram With_Result,0x1
0288 4801 |H | Short_Literal 0x1
0289 c06a | j | Store 0x0,0x6a
028a e068 | h | Load 0x0,0x68
028b e09e | | Load 0x0,0x9e
028c 1816 | | Execute Package,Field_Execute,Field_Number 0x16
028d 8606 | | Call 0x3,0x6
028e 4401 |D | Exit_Subprogram With_Result,0x1
028f e06d | m | Load 0x0,0x6d
0290 e011 | | Load 0x0,0x11
0291 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0292 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0293 4401 |D | Exit_Subprogram With_Result,0x1
0294 e0a0 | | Load 0x0,0xa0
0295 e011 | | Load 0x0,0x11
0296 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0297 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0298 4401 |D | Exit_Subprogram With_Result,0x1
0299 4801 |H | Short_Literal 0x1
029a e018 | | Load 0x0,0x18
029b 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
029c 01d7 | | Execute Vector,Field_Read
029d 6888 |h | Jump_Zero 0x326
029e e018 | | Load 0x0,0x18
029f e604 | | Load 0x3,0x4
02a0 017d | } | Execute Record,Structure_Write
02a1 4804 |H | Short_Literal 0x4
02a2 e602 | | Load 0x3,0x2
02a3 e09c | | Load 0x0,0x9c
02a4 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
02a5 680a |h | Jump_Zero 0x2b0
02a6 00ea | | Load_Encached Null_String_Cache
02a7 4804 |H | Short_Literal 0x4
02a8 e602 | | Load 0x3,0x2
02a9 e09c | | Load 0x0,0x9c
02aa 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
02ab e011 | | Load 0x0,0x11
02ac 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02ad 1817 | | Execute Package,Field_Execute,Field_Number 0x17
02ae e604 | | Load 0x3,0x4
02af 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
02b0 e603 | | Load 0x3,0x3
02b1 e604 | | Load 0x3,0x4
02b2 e033 | 3 | Load 0x0,0x33
02b3 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02b4 00d1 | | Pop_Control Pop_Count_1
02b5 c603 | | Store 0x3,0x3
02b6 786f |xo | Jump 0x326
02b7 e03d | = | Load 0x0,0x3d
02b8 e604 | | Load 0x3,0x4
02b9 017d | } | Execute Record,Structure_Write
02ba 4804 |H | Short_Literal 0x4
02bb e602 | | Load 0x3,0x2
02bc e09c | | Load 0x0,0x9c
02bd 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
02be 680a |h | Jump_Zero 0x2c9
02bf 00ea | | Load_Encached Null_String_Cache
02c0 4804 |H | Short_Literal 0x4
02c1 e602 | | Load 0x3,0x2
02c2 e09c | | Load 0x0,0x9c
02c3 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
02c4 e011 | | Load 0x0,0x11
02c5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02c6 1817 | | Execute Package,Field_Execute,Field_Number 0x17
02c7 e604 | | Load 0x3,0x4
02c8 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
02c9 4805 |H | Short_Literal 0x5
02ca e602 | | Load 0x3,0x2
02cb e09c | | Load 0x0,0x9c
02cc 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
02cd 680e |h | Jump_Zero 0x2dc
02ce 6059 |`Y | Indirect_Literal Discrete,0x328,{0x00000000, 0x7fffffff}
02cf 4805 |H | Short_Literal 0x5
02d0 e602 | | Load 0x3,0x2
02d1 e09c | | Load 0x0,0x9c
02d2 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
02d3 a605 | | Store_Unchecked 0x3,0x5
02d4 e605 | | Load 0x3,0x5
02d5 e033 | 3 | Load 0x0,0x33
02d6 1b17 | | Execute Package,Field_Read,Field_Number 0x17
02d7 0260 | ` | Execute Discrete,In_Type
02d8 6803 |h | Jump_Zero 0x2dc
02d9 e605 | | Load 0x3,0x5
02da e604 | | Load 0x3,0x4
02db 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
02dc e604 | | Load 0x3,0x4
02dd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02de 0f00 | | Execute_Immediate Equal,0x0
02df 4806 |H | Short_Literal 0x6
02e0 e602 | | Load 0x3,0x2
02e1 e09c | | Load 0x0,0x9c
02e2 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
02e3 0f00 | | Execute_Immediate Equal,0x0
02e4 e604 | | Load 0x3,0x4
02e5 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02e6 e603 | | Load 0x3,0x3
02e7 e604 | | Load 0x3,0x4
02e8 e033 | 3 | Load 0x0,0x33
02e9 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02ea 00d1 | | Pop_Control Pop_Count_1
02eb c603 | | Store 0x3,0x3
02ec 7839 |x9 | Jump 0x326
02ed 4805 |H | Short_Literal 0x5
02ee e602 | | Load 0x3,0x2
02ef e09c | | Load 0x0,0x9c
02f0 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
02f1 6827 |h' | Jump_Zero 0x319
02f2 6035 |`5 | Indirect_Literal Discrete,0x328,{0x00000000, 0x7fffffff}
02f3 4805 |H | Short_Literal 0x5
02f4 e602 | | Load 0x3,0x2
02f5 e09c | | Load 0x0,0x9c
02f6 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
02f7 a605 | | Store_Unchecked 0x3,0x5
02f8 e605 | | Load 0x3,0x5
02f9 e033 | 3 | Load 0x0,0x33
02fa 1b17 | | Execute Package,Field_Read,Field_Number 0x17
02fb 0260 | ` | Execute Discrete,In_Type
02fc 680f |h | Jump_Zero 0x30c
02fd e5fe | | Load 0x2,-0x2
02fe 0a01 | | Execute_Immediate Plus,0x1
02ff 00d8 | | Load_Top At_Offset_0
0300 00e3 | | Load_Encached Natural_Cache
0301 0260 | ` | Execute Discrete,In_Type
0302 7001 |p | Jump_Nonzero 0x304
0303 0801 | | Execute_Immediate Raise,0x1
0304 e605 | | Load 0x3,0x5
0305 e097 | | Load 0x0,0x97
0306 01d7 | | Execute Vector,Field_Read
0307 e011 | | Load 0x0,0x11
0308 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0309 1816 | | Execute Package,Field_Execute,Field_Number 0x16
030a 8264 | d | Call 0x1,0x64
030b 4401 |D | Exit_Subprogram With_Result,0x1
030c e5fe | | Load 0x2,-0x2
030d 0a01 | | Execute_Immediate Plus,0x1
030e 00d8 | | Load_Top At_Offset_0
030f 00e3 | | Load_Encached Natural_Cache
0310 0260 | ` | Execute Discrete,In_Type
0311 7001 |p | Jump_Nonzero 0x313
0312 0801 | | Execute_Immediate Raise,0x1
0313 e096 | | Load 0x0,0x96
0314 e011 | | Load 0x0,0x11
0315 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0316 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0317 8264 | d | Call 0x1,0x64
0318 4401 |D | Exit_Subprogram With_Result,0x1
0319 e5fe | | Load 0x2,-0x2
031a 0a01 | | Execute_Immediate Plus,0x1
031b 00d8 | | Load_Top At_Offset_0
031c 00e3 | | Load_Encached Natural_Cache
031d 0260 | ` | Execute Discrete,In_Type
031e 7001 |p | Jump_Nonzero 0x320
031f 0801 | | Execute_Immediate Raise,0x1
0320 e096 | | Load 0x0,0x96
0321 e011 | | Load 0x0,0x11
0322 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0323 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0324 8264 | d | Call 0x1,0x64
0325 4401 |D | Exit_Subprogram With_Result,0x1
0326 8607 | | Call 0x3,0x7
0327 0831 | 1 | Execute_Immediate Raise,0x31
0328 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
032c 0000 0000 | | .BLANK 0000[0x4]
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0340 | @ | .CONST 0x0340 ; Address of begin
0331 0004 | | .CONST 0x0004 ; Address of exception handler
0332 0006 | | .CONST 0x0006 ; Number of locals
0333 INIT_0330:
0333 e602 | | Load 0x3,0x2
0334 e011 | | Load 0x0,0x11
0335 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0336 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0337 00d8 | | Load_Top At_Offset_0
0338 01dd | | Execute Vector,First
0339 00e3 | | Load_Encached Natural_Cache
033a 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
033b 00e3 | | Load_Encached Natural_Cache
033c e011 | | Load 0x0,0x11
033d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
033e 029f 03fb | | Declare_Subprogram For_Call,INIT_03f8
0340 BODY_0330:
0340 00cf | | Action Mark_Auxiliary
0341 4800 |H | Short_Literal 0x0
0342 e803 | | Load 0x4,0x3
0343 e802 | | Load 0x4,0x2
0344 01dc | | Execute Vector,Last
0345 e802 | | Load 0x4,0x2
0346 01cf | | Execute Vector,Slice_Read
0347 e01a | | Load 0x0,0x1a
0348 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0349 0092 0411 | | Action Push_String_Extended,0x411 ; "~argument(text)"
034b e01a | | Load 0x0,0x1a
034c 181d | | Execute Package,Field_Execute,Field_Number 0x1d
034d a804 | | Store_Unchecked 0x4,0x4
034e e804 | | Load 0x4,0x4
034f 700b |p | Jump_Nonzero 0x35b
0350 e805 | | Load 0x4,0x5
0351 e803 | | Load 0x4,0x3
0352 e802 | | Load 0x4,0x2
0353 01dc | | Execute Vector,Last
0354 e802 | | Load 0x4,0x2
0355 01cf | | Execute Vector,Slice_Read
0356 e011 | | Load 0x0,0x11
0357 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0358 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0359 c805 | | Store 0x4,0x5
035a 7815 |x | Jump 0x370
035b e805 | | Load 0x4,0x5
035c e803 | | Load 0x4,0x3
035d e804 | | Load 0x4,0x4
035e 0aff | | Execute_Immediate Plus,-0x1
035f e802 | | Load 0x4,0x2
0360 01cf | | Execute Vector,Slice_Read
0361 e011 | | Load 0x0,0x11
0362 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0363 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0364 c805 | | Store 0x4,0x5
0365 e805 | | Load 0x4,0x5
0366 e7fe | | Load 0x3,-0x2
0367 e011 | | Load 0x0,0x11
0368 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0369 181d | | Execute Package,Field_Execute,Field_Number 0x1d
036a c805 | | Store 0x4,0x5
036b e804 | | Load 0x4,0x4
036c 0a0f | | Execute_Immediate Plus,0xf
036d c803 | | Store 0x4,0x3
036e 00c9 | | Action Pop_Auxiliary_Loop
036f 7fd1 | | Jump 0x341
0370 00ce | | Action Pop_Auxiliary
0371 8806 | | Call 0x4,0x6
0372 4501 |E | Exit_Subprogram 0x1
0373 0000 0000 | | .BLANK 0000[0x5]
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 0383 | | .CONST 0x0383 ; Address of begin
0379 0004 | | .CONST 0x0004 ; Address of exception handler
037a 0005 | | .CONST 0x0005 ; Number of locals
037b INIT_0378:
037b e09e | | Load 0x0,0x9e
037c 1b19 | | Execute Package,Field_Read,Field_Number 0x19
037d e09e | | Load 0x0,0x9e
037e 1b18 | | Execute Package,Field_Read,Field_Number 0x18
037f 00e1 | | Load_Encached Boolean_Cache
0380 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0381 00e1 | | Load_Encached Boolean_Cache
0382 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0383 BODY_0378:
0383 4803 |H | Short_Literal 0x3
0384 e602 | | Load 0x3,0x2
0385 e09c | | Load 0x0,0x9c
0386 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0387 6817 |h | Jump_Zero 0x39f
0388 4800 |H | Short_Literal 0x0
0389 4801 |H | Short_Literal 0x1
038a 4803 |H | Short_Literal 0x3
038b e602 | | Load 0x3,0x2
038c e0a1 | | Load 0x0,0xa1
038d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
038e 6810 |h | Jump_Zero 0x39f
038f 4801 |H | Short_Literal 0x1
0390 a804 | | Store_Unchecked 0x4,0x4
0391 4800 |H | Short_Literal 0x0
0392 4801 |H | Short_Literal 0x1
0393 4803 |H | Short_Literal 0x3
0394 e602 | | Load 0x3,0x2
0395 e0a1 | | Load 0x0,0xa1
0396 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0397 0aff | | Execute_Immediate Plus,-0x1
0398 00d8 | | Load_Top At_Offset_0
0399 e09e | | Load 0x0,0x9e
039a 1b19 | | Execute Package,Field_Read,Field_Number 0x19
039b 0260 | ` | Execute Discrete,In_Type
039c 7001 |p | Jump_Nonzero 0x39e
039d 0801 | | Execute_Immediate Raise,0x1
039e a802 | | Store_Unchecked 0x4,0x2
039f 4802 |H | Short_Literal 0x2
03a0 e602 | | Load 0x3,0x2
03a1 e09c | | Load 0x0,0x9c
03a2 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
03a3 6817 |h | Jump_Zero 0x3bb
03a4 4800 |H | Short_Literal 0x0
03a5 4801 |H | Short_Literal 0x1
03a6 4802 |H | Short_Literal 0x2
03a7 e602 | | Load 0x3,0x2
03a8 e0a2 | | Load 0x0,0xa2
03a9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03aa 6810 |h | Jump_Zero 0x3bb
03ab 4801 |H | Short_Literal 0x1
03ac a805 | | Store_Unchecked 0x4,0x5
03ad 4800 |H | Short_Literal 0x0
03ae 4801 |H | Short_Literal 0x1
03af 4802 |H | Short_Literal 0x2
03b0 e602 | | Load 0x3,0x2
03b1 e0a2 | | Load 0x0,0xa2
03b2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03b3 0aff | | Execute_Immediate Plus,-0x1
03b4 00d8 | | Load_Top At_Offset_0
03b5 e09e | | Load 0x0,0x9e
03b6 1b18 | | Execute Package,Field_Read,Field_Number 0x18
03b7 0260 | ` | Execute Discrete,In_Type
03b8 7001 |p | Jump_Nonzero 0x3ba
03b9 0801 | | Execute_Immediate Raise,0x1
03ba a803 | | Store_Unchecked 0x4,0x3
03bb e804 | | Load 0x4,0x4
03bc 6810 |h | Jump_Zero 0x3cd
03bd 00d8 | | Load_Top At_Offset_0
03be 6807 |h | Jump_Zero 0x3c6
03bf 4800 |H | Short_Literal 0x0
03c0 e803 | | Load 0x4,0x3
03c1 e802 | | Load 0x4,0x2
03c2 e9ff | | Load 0x4,-0x1
03c3 e09e | | Load 0x0,0x9e
03c4 181b | | Execute Package,Field_Execute,Field_Number 0x1b
03c5 4401 |D | Exit_Subprogram With_Result,0x1
03c6 4802 |H | Short_Literal 0x2
03c7 4800 |H | Short_Literal 0x0
03c8 e802 | | Load 0x4,0x2
03c9 e9ff | | Load 0x4,-0x1
03ca e09e | | Load 0x0,0x9e
03cb 181b | | Execute Package,Field_Execute,Field_Number 0x1b
03cc 4401 |D | Exit_Subprogram With_Result,0x1
03cd 00d8 | | Load_Top At_Offset_0
03ce 6807 |h | Jump_Zero 0x3d6
03cf 4801 |H | Short_Literal 0x1
03d0 e803 | | Load 0x4,0x3
03d1 4800 |H | Short_Literal 0x0
03d2 e9ff | | Load 0x4,-0x1
03d3 e09e | | Load 0x0,0x9e
03d4 181b | | Execute Package,Field_Execute,Field_Number 0x1b
03d5 4401 |D | Exit_Subprogram With_Result,0x1
03d6 4802 |H | Short_Literal 0x2
03d7 4800 |H | Short_Literal 0x0
03d8 4800 |H | Short_Literal 0x0
03d9 e9ff | | Load 0x4,-0x1
03da e09e | | Load 0x0,0x9e
03db 181b | | Execute Package,Field_Execute,Field_Number 0x1b
03dc 4401 |D | Exit_Subprogram With_Result,0x1
03dd 0000 0000 | | .XXX[0x3]
03df 0000 | |
03e0 ; --------------------------------------------------------------------------------------
03e0 ; SUBPROGRAM
03e0 ; --------------------------------------------------------------------------------------
03e0 03ef | | .CONST 0x03ef ; Address of begin
03e1 0004 | | .CONST 0x0004 ; Address of exception handler
03e2 0002 | | .CONST 0x0002 ; Number of locals
03e3 INIT_03e0:
03e3 e5fe | | Load 0x2,-0x2
03e4 0a01 | | Execute_Immediate Plus,0x1
03e5 00d8 | | Load_Top At_Offset_0
03e6 00e3 | | Load_Encached Natural_Cache
03e7 0260 | ` | Execute Discrete,In_Type
03e8 7001 |p | Jump_Nonzero 0x3ea
03e9 0801 | | Execute_Immediate Raise,0x1
03ea e603 | | Load 0x3,0x3
03eb e011 | | Load 0x0,0x11
03ec 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03ed 1816 | | Execute Package,Field_Execute,Field_Number 0x16
03ee 8264 | d | Call 0x1,0x64
03ef BODY_03e0:
03ef e603 | | Load 0x3,0x3
03f0 e011 | | Load 0x0,0x11
03f1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03f2 1812 | | Execute Package,Field_Execute,Field_Number 0x12
03f3 c603 | | Store 0x3,0x3
03f4 00d8 | | Load_Top At_Offset_0
03f5 00cb | | Action Pop_Block_With_Result
03f6 4401 |D | Exit_Subprogram With_Result,0x1
03f7 0000 | | .XXX[0x1]
03f8 ; --------------------------------------------------------------------------------------
03f8 ; SUBPROGRAM
03f8 ; --------------------------------------------------------------------------------------
03f8 0407 | | .CONST 0x0407 ; Address of begin
03f9 0004 | | .CONST 0x0004 ; Address of exception handler
03fa 0002 | | .CONST 0x0002 ; Number of locals
03fb INIT_03f8:
03fb e5fe | | Load 0x2,-0x2
03fc 0a01 | | Execute_Immediate Plus,0x1
03fd 00d8 | | Load_Top At_Offset_0
03fe 00e3 | | Load_Encached Natural_Cache
03ff 0260 | ` | Execute Discrete,In_Type
0400 7001 |p | Jump_Nonzero 0x402
0401 0801 | | Execute_Immediate Raise,0x1
0402 e805 | | Load 0x4,0x5
0403 e011 | | Load 0x0,0x11
0404 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0405 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0406 8264 | d | Call 0x1,0x64
0407 BODY_03f8:
0407 e805 | | Load 0x4,0x5
0408 e011 | | Load 0x0,0x11
0409 1b0d | | Execute Package,Field_Read,Field_Number 0xd
040a 1812 | | Execute Package,Field_Execute,Field_Number 0x12
040b c805 | | Store 0x4,0x5
040c 00d8 | | Load_Top At_Offset_0
040d 00cb | | Action Pop_Block_With_Result
040e 00cb | | Action Pop_Block_With_Result
040f 4402 |D | Exit_Subprogram With_Result,0x2
0410 ; --------------------------------------------------------------------------------------
0410 ; STRING TABLE
0410 ; --------------------------------------------------------------------------------------
0410 0006 | | .STRTAB 0x0006->0x0413 ; "Limiting evaluation recursion to avoid potential infinite loop"
0411 0042 | B | .STRTAB 0x0042->0x0432 ; "~argument(text)"
0412 004f | O | .STREND 0x004f->0x0439
0413 4c69 6d69 |Limi| .STRTAB_STRINGS
043a 0000 0000 | | .BLANK 0000[0x6]
0440 ; --------------------------------------------------------------------------------------
0440 ; Debug Table
0440 ; --------------------------------------------------------------------------------------
0440 0004 000f | | .DEBUG4 0x0004,0x000f,0x4803,0x0000,0x0001,0x0000
0446 0000 0000 | | .BLANK 0000[0x1ba]