|
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_03b8fe
└─⟦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 04e8 | | .CONST 0x04e8 ; 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 00a9 | | .CONST 0x00a9 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0035 | 5 | .CONST 0x0035 ; 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 00c4 | | Action Make_Default
0011 00c4 | | Action Make_Default
0012 00c4 | | Action Make_Default
0013 00c4 | | Action Make_Default
0014 00c4 | | Action Make_Default
0015 00c4 | | Action Make_Default
0016 00c4 | | Action Make_Default
0017 00c4 | | Action Make_Default
0018 00c4 | | Action Make_Default
0019 00c4 | | Action Make_Default
001a 00c4 | | Action Make_Default
001b 4800 |H | Short_Literal 0x0
001c 4804 |H | Short_Literal 0x4
001d e001 | | Load 0x0,0x1
001e 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
001f 02a0 | | Declare_Subprogram Null_Subprogram
0020 4801 |H | Short_Literal 0x1
0021 035e | ^ | Declare_Type Array,Defined,Visible
0022 c21a | | Store 0x1,0x1a
0023 00da | | Load_Top At_Offset_2
0024 02a0 | | Declare_Subprogram Null_Subprogram
0025 4818 |H | Short_Literal 0x18
0026 03d6 | | Declare_Type Access,Defined,Visible
0027 c219 | | Store 0x1,0x19
0028 029a 00b3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00b0
002a c20d | | Store 0x1,0xd
002b 029a 01db | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01d8
002d c20e | | Store 0x1,0xe
002e 029a 020b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0208
0030 c20f | | Store 0x1,0xf
0031 029a 0233 | 3| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0230
0033 c210 | | Store 0x1,0x10
0034 4800 |H | Short_Literal 0x0
0035 4801 |H | Short_Literal 0x1
0036 029f 029b | | Declare_Subprogram For_Call,INIT_0298
0038 03fe | | Declare_Type Discrete,Defined,Visible
0039 c211 | | Store 0x1,0x11
003a 029a 02c3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_02c0
003c c21b | | Store 0x1,0x1b
003d 029a 030b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0308
003f c21c | | Store 0x1,0x1c
0040 029a 032b | +| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0328
0042 c214 | | Store 0x1,0x14
0043 029a 037b | {| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0378
0045 c215 | | Store 0x1,0x15
0046 00bf | | Action Accept_Activation
0047 e002 | | Load 0x0,0x2
0048 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0049 340b |4 | Execute Record,Field_Reference,Field_Number 0xb
004a 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
004b 0007 | | Action Break_Optional
004c e002 | | Load 0x0,0x2
004d 1b15 | | Execute Package,Field_Read,Field_Number 0x15
004e 340b |4 | Execute Record,Field_Reference,Field_Number 0xb
004f 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0050 0007 | | Action Break_Optional
0051 e002 | | Load 0x0,0x2
0052 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0053 340b |4 | Execute Record,Field_Reference,Field_Number 0xb
0054 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
0055 0007 | | Action Break_Optional
0056 e002 | | Load 0x0,0x2
0057 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0058 340b |4 | Execute Record,Field_Reference,Field_Number 0xb
0059 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
005a 0007 | | Action Break_Optional
005b e002 | | Load 0x0,0x2
005c 1b15 | | Execute Package,Field_Read,Field_Number 0x15
005d 340b |4 | Execute Record,Field_Reference,Field_Number 0xb
005e 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7
005f 0007 | | Action Break_Optional
0060 e002 | | Load 0x0,0x2
0061 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0062 340b |4 | Execute Record,Field_Reference,Field_Number 0xb
0063 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0064 0007 | | Action Break_Optional
0065 e002 | | Load 0x0,0x2
0066 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0067 340b |4 | Execute Record,Field_Reference,Field_Number 0xb
0068 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0069 0007 | | Action Break_Optional
006a e002 | | Load 0x0,0x2
006b 1b15 | | Execute Package,Field_Read,Field_Number 0x15
006c 340b |4 | Execute Record,Field_Reference,Field_Number 0xb
006d 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
006e 0007 | | Action Break_Optional
006f 00e2 | | Load_Encached Integer_Cache
0070 03e9 | | Declare_Variable Discrete,Duplicate
0071 4864 |Hd | Short_Literal 0x64
0072 e003 | | Load 0x0,0x3
0073 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0074 1c08 | | Execute_Immediate Run_Utility,0x8
0075 00d8 | | Load_Top At_Offset_0
0076 1c00 | | Execute_Immediate Run_Utility,0x0
0077 4801 |H | Short_Literal 0x1
0078 481e |H | Short_Literal 0x1e
0079 00e9 | | Load_Encached String_Cache
007a 035b | [ | Declare_Type Array,Constrained
007b 0337 | 7 | Declare_Variable Array
007c 00e2 | | Load_Encached Integer_Cache
007d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
007e e004 | | Load 0x0,0x4
007f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0080 00e2 | | Load_Encached Integer_Cache
0081 00e2 | | Load_Encached Integer_Cache
0082 00e2 | | Load_Encached Integer_Cache
0083 00e2 | | Load_Encached Integer_Cache
0084 e005 | | Load 0x0,0x5
0085 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0086 0322 | " | Declare_Variable Record
0087 e005 | | Load 0x0,0x5
0088 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0089 0322 | " | Declare_Variable Record
008a e004 | | Load 0x0,0x4
008b 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c
008c 0337 | 7 | Declare_Variable Array
008d e001 | | Load 0x0,0x1
008e 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
008f 0337 | 7 | Declare_Variable Array
0090 e001 | | Load 0x0,0x1
0091 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
0092 0322 | " | Declare_Variable Record
0093 e006 | | Load 0x0,0x6
0094 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0095 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0096 0322 | " | Declare_Variable Record
0097 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0098 00c7 | | Action Elaborate_Subprogram
0099 1d0e | | Execute_Immediate Reference_Lex_1,0xe
009a 00c7 | | Action Elaborate_Subprogram
009b 1d0f | | Execute_Immediate Reference_Lex_1,0xf
009c 00c7 | | Action Elaborate_Subprogram
009d 1d10 | | Execute_Immediate Reference_Lex_1,0x10
009e 00c7 | | Action Elaborate_Subprogram
009f 029d 03fb | | Declare_Subprogram For_Outer_Call,INIT_03f8
00a1 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
00a2 00c7 | | Action Elaborate_Subprogram
00a3 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
00a4 00c7 | | Action Elaborate_Subprogram
00a5 1d14 | | Execute_Immediate Reference_Lex_1,0x14
00a6 00c7 | | Action Elaborate_Subprogram
00a7 1d15 | | Execute_Immediate Reference_Lex_1,0x15
00a8 00c7 | | Action Elaborate_Subprogram
00a9 BODY_0008:
00a9 00bc | | Action Signal_Activated
00aa 00bb | | Action Signal_Completion
00ab 0000 0000 | | .BLANK 0000[0x5]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00dd | | .CONST 0x00dd ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0010 | | .CONST 0x0010 ; Number of locals
00b3 INIT_00b0:
00b3 4800 |H | Short_Literal 0x0
00b4 4804 |H | Short_Literal 0x4
00b5 029f 042b | +| Declare_Subprogram For_Call,INIT_0428
00b7 03fd | | Declare_Type Discrete,Defined
00b8 00e2 | | Load_Encached Integer_Cache
00b9 00e2 | | Load_Encached Integer_Cache
00ba 00e2 | | Load_Encached Integer_Cache
00bb 02a0 | | Declare_Subprogram Null_Subprogram
00bc 4803 |H | Short_Literal 0x3
00bd 032d | - | Declare_Type Record,Defined
00be 4800 |H | Short_Literal 0x0
00bf 4814 |H | Short_Literal 0x14
00c0 00da | | Load_Top At_Offset_2
00c1 02a0 | | Declare_Subprogram Null_Subprogram
00c2 4801 |H | Short_Literal 0x1
00c3 035d | ] | Declare_Type Array,Defined
00c4 00d8 | | Load_Top At_Offset_0
00c5 0337 | 7 | Declare_Variable Array
00c6 00e2 | | Load_Encached Integer_Cache
00c7 00db | | Load_Top At_Offset_3
00c8 0322 | " | Declare_Variable Record
00c9 e402 | | Load 0x2,0x2
00ca 0007 | | Action Break_Optional
00cb 00e2 | | Load_Encached Integer_Cache
00cc 00e2 | | Load_Encached Integer_Cache
00cd 00e8 | | Load_Encached Character_Cache
00ce 00e2 | | Load_Encached Integer_Cache
00cf 00e2 | | Load_Encached Integer_Cache
00d0 00e2 | | Load_Encached Integer_Cache
00d1 00e1 | | Load_Encached Boolean_Cache
00d2 e403 | | Load 0x2,0x3
00d3 0322 | " | Declare_Variable Record
00d4 4801 |H | Short_Literal 0x1
00d5 00d9 | | Load_Top At_Offset_1
00d6 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00d7 4801 |H | Short_Literal 0x1
00d8 00d9 | | Load_Top At_Offset_1
00d9 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00da 4801 |H | Short_Literal 0x1
00db 00d9 | | Load_Top At_Offset_1
00dc 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00dd BODY_00b0:
00dd 4800 |H | Short_Literal 0x0
00de a406 | | Store_Unchecked 0x2,0x6
00df 4800 |H | Short_Literal 0x0
00e0 a408 | | Store_Unchecked 0x2,0x8
00e1 00d8 | | Load_Top At_Offset_0
00e2 e407 | | Load 0x2,0x7
00e3 017d | } | Execute Record,Structure_Write
00e4 e5ff | | Load 0x2,-0x1
00e5 e003 | | Load 0x0,0x3
00e6 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
00e7 a40c | | Store_Unchecked 0x2,0xc
00e8 e5fe | | Load 0x2,-0x2
00e9 e003 | | Load 0x0,0x3
00ea 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
00eb a40d | | Store_Unchecked 0x2,0xd
00ec 00cf | | Action Mark_Auxiliary
00ed 78e4 |x | Jump 0x1d2
00ee e40c | | Load 0x2,0xc
00ef 0a01 | | Execute_Immediate Plus,0x1
00f0 e407 | | Load 0x2,0x7
00f1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00f2 0272 | r | Execute Discrete,Minus
00f3 c409 | | Store 0x2,0x9
00f4 e40d | | Load 0x2,0xd
00f5 0a01 | | Execute_Immediate Plus,0x1
00f6 e407 | | Load 0x2,0x7
00f7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00f8 0272 | r | Execute Discrete,Minus
00f9 c40a | | Store 0x2,0xa
00fa e40a | | Load 0x2,0xa
00fb 7008 |p | Jump_Nonzero 0x104
00fc e409 | | Load 0x2,0x9
00fd 7003 |p | Jump_Nonzero 0x101
00fe 4804 |H | Short_Literal 0x4
00ff a408 | | Store_Unchecked 0x2,0x8
0100 788d |x | Jump 0x18e
0101 4801 |H | Short_Literal 0x1
0102 a408 | | Store_Unchecked 0x2,0x8
0103 788a |x | Jump 0x18e
0104 4801 |H | Short_Literal 0x1
0105 e407 | | Load 0x2,0x7
0106 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0107 4801 |H | Short_Literal 0x1
0108 a408 | | Store_Unchecked 0x2,0x8
0109 e407 | | Load 0x2,0x7
010a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
010b 00d8 | | Load_Top At_Offset_0
010c 00e4 | | Load_Encached Positive_Cache
010d 0260 | ` | Execute Discrete,In_Type
010e 7001 |p | Jump_Nonzero 0x110
010f 0801 | | Execute_Immediate Raise,0x1
0110 e5fe | | Load 0x2,-0x2
0111 e003 | | Load 0x0,0x3
0112 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0113 0f40 | @ | Execute_Immediate Equal,0x40
0114 e407 | | Load 0x2,0x7
0115 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0116 00d8 | | Load_Top At_Offset_0
0117 00e4 | | Load_Encached Positive_Cache
0118 0260 | ` | Execute Discrete,In_Type
0119 7001 |p | Jump_Nonzero 0x11b
011a 0801 | | Execute_Immediate Raise,0x1
011b e5fe | | Load 0x2,-0x2
011c e003 | | Load 0x0,0x3
011d 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
011e 0f2a | * | Execute_Immediate Equal,0x2a
011f 0278 | x | Execute Discrete,Or
0120 680a |h | Jump_Zero 0x12b
0121 e40c | | Load 0x2,0xc
0122 0a01 | | Execute_Immediate Plus,0x1
0123 e407 | | Load 0x2,0x7
0124 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0125 0272 | r | Execute Discrete,Minus
0126 e407 | | Load 0x2,0x7
0127 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0128 4802 |H | Short_Literal 0x2
0129 a408 | | Store_Unchecked 0x2,0x8
012a 7863 |xc | Jump 0x18e
012b e407 | | Load 0x2,0x7
012c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
012d 00d8 | | Load_Top At_Offset_0
012e 00e4 | | Load_Encached Positive_Cache
012f 0260 | ` | Execute Discrete,In_Type
0130 7001 |p | Jump_Nonzero 0x132
0131 0801 | | Execute_Immediate Raise,0x1
0132 e5fe | | Load 0x2,-0x2
0133 e003 | | Load 0x0,0x3
0134 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0135 0f2d | - | Execute_Immediate Equal,0x2d
0136 6828 |h( | Jump_Zero 0x15f
0137 4800 |H | Short_Literal 0x0
0138 e407 | | Load 0x2,0x7
0139 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
013a e407 | | Load 0x2,0x7
013b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
013c a40e | | Store_Unchecked 0x2,0xe
013d 00cf | | Action Mark_Auxiliary
013e e40e | | Load 0x2,0xe
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 e5ff | | Load 0x2,-0x1
0145 e003 | | Load 0x0,0x3
0146 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0147 0f2e | . | Execute_Immediate Equal,0x2e
0148 a40f | | Store_Unchecked 0x2,0xf
0149 00db | | Load_Top At_Offset_3
014a 7005 |p | Jump_Nonzero 0x150
014b e407 | | Load 0x2,0x7
014c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
014d 0a01 | | Execute_Immediate Plus,0x1
014e e407 | | Load 0x2,0x7
014f 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0150 e40e | | Load 0x2,0xe
0151 0a01 | | Execute_Immediate Plus,0x1
0152 c40e | | Store 0x2,0xe
0153 e40e | | Load 0x2,0xe
0154 e40c | | Load 0x2,0xc
0155 027d | } | Execute Discrete,Greater
0156 e40f | | Load 0x2,0xf
0157 0278 | x | Execute Discrete,Or
0158 7002 |p | Jump_Nonzero 0x15b
0159 00c9 | | Action Pop_Auxiliary_Loop
015a 7fe3 | | Jump 0x13e
015b 00ce | | Action Pop_Auxiliary
015c 4802 |H | Short_Literal 0x2
015d a408 | | Store_Unchecked 0x2,0x8
015e 782f |x/ | Jump 0x18e
015f e407 | | Load 0x2,0x7
0160 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0161 00d8 | | Load_Top At_Offset_0
0162 00e4 | | Load_Encached Positive_Cache
0163 0260 | ` | Execute Discrete,In_Type
0164 7001 |p | Jump_Nonzero 0x166
0165 0801 | | Execute_Immediate Raise,0x1
0166 e5fe | | Load 0x2,-0x2
0167 e003 | | Load 0x0,0x3
0168 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0169 0f26 | & | Execute_Immediate Equal,0x26
016a 6806 |h | Jump_Zero 0x171
016b e409 | | Load 0x2,0x9
016c 0c01 | | Execute_Immediate Greater_Equal,0x1
016d 6820 |h | Jump_Zero 0x18e
016e 4800 |H | Short_Literal 0x0
016f a408 | | Store_Unchecked 0x2,0x8
0170 781d |x | Jump 0x18e
0171 e409 | | Load 0x2,0x9
0172 0c01 | | Execute_Immediate Greater_Equal,0x1
0173 681a |h | Jump_Zero 0x18e
0174 e407 | | Load 0x2,0x7
0175 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0176 00d8 | | Load_Top At_Offset_0
0177 00e4 | | Load_Encached Positive_Cache
0178 0260 | ` | Execute Discrete,In_Type
0179 7001 |p | Jump_Nonzero 0x17b
017a 0801 | | Execute_Immediate Raise,0x1
017b e5ff | | Load 0x2,-0x1
017c e003 | | Load 0x0,0x3
017d 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
017e e407 | | Load 0x2,0x7
017f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0180 00d8 | | Load_Top At_Offset_0
0181 00e4 | | Load_Encached Positive_Cache
0182 0260 | ` | Execute Discrete,In_Type
0183 7001 |p | Jump_Nonzero 0x185
0184 0801 | | Execute_Immediate Raise,0x1
0185 e5fe | | Load 0x2,-0x2
0186 e003 | | Load 0x0,0x3
0187 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0188 e007 | | Load 0x0,0x7
0189 1810 | | Execute Package,Field_Execute,Field_Number 0x10
018a 027f | | Execute Discrete,Equal
018b 6802 |h | Jump_Zero 0x18e
018c 4800 |H | Short_Literal 0x0
018d a408 | | Store_Unchecked 0x2,0x8
018e e408 | | Load 0x2,0x8
018f 0f02 | | Execute_Immediate Equal,0x2
0190 6809 |h | Jump_Zero 0x19a
0191 e406 | | Load 0x2,0x6
0192 0a01 | | Execute_Immediate Plus,0x1
0193 c406 | | Store 0x2,0x6
0194 e407 | | Load 0x2,0x7
0195 e406 | | Load 0x2,0x6
0196 e405 | | Load 0x2,0x5
0197 01d6 | | Execute Vector,Field_Write
0198 4800 |H | Short_Literal 0x0
0199 a408 | | Store_Unchecked 0x2,0x8
019a 00cf | | Action Mark_Auxiliary
019b 7823 |x# | Jump 0x1bf
019c e406 | | Load 0x2,0x6
019d e405 | | Load 0x2,0x5
019e 01d5 | | Execute Vector,Field_Reference
019f e407 | | Load 0x2,0x7
01a0 017d | } | Execute Record,Structure_Write
01a1 e406 | | Load 0x2,0x6
01a2 0d01 | | Execute_Immediate Less,0x1
01a3 6803 |h | Jump_Zero 0x1a7
01a4 4803 |H | Short_Literal 0x3
01a5 a408 | | Store_Unchecked 0x2,0x8
01a6 7817 |x | Jump 0x1be
01a7 e407 | | Load 0x2,0x7
01a8 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01a9 0d01 | | Execute_Immediate Less,0x1
01aa 6806 |h | Jump_Zero 0x1b1
01ab e406 | | Load 0x2,0x6
01ac 0aff | | Execute_Immediate Plus,-0x1
01ad c406 | | Store 0x2,0x6
01ae 4800 |H | Short_Literal 0x0
01af a408 | | Store_Unchecked 0x2,0x8
01b0 780d |x | Jump 0x1be
01b1 e407 | | Load 0x2,0x7
01b2 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01b3 0aff | | Execute_Immediate Plus,-0x1
01b4 e407 | | Load 0x2,0x7
01b5 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01b6 e407 | | Load 0x2,0x7
01b7 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01b8 e406 | | Load 0x2,0x6
01b9 e405 | | Load 0x2,0x5
01ba 01d5 | | Execute Vector,Field_Reference
01bb 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01bc 4800 |H | Short_Literal 0x0
01bd a408 | | Store_Unchecked 0x2,0x8
01be 00c9 | | Action Pop_Auxiliary_Loop
01bf e408 | | Load 0x2,0x8
01c0 0f01 | | Execute_Immediate Equal,0x1
01c1 77da |w | Jump_Nonzero 0x19c
01c2 00ce | | Action Pop_Auxiliary
01c3 e408 | | Load 0x2,0x8
01c4 700c |p | Jump_Nonzero 0x1d1
01c5 e407 | | Load 0x2,0x7
01c6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01c7 e407 | | Load 0x2,0x7
01c8 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01c9 0273 | s | Execute Discrete,Plus
01ca e407 | | Load 0x2,0x7
01cb 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01cc e407 | | Load 0x2,0x7
01cd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01ce 0a01 | | Execute_Immediate Plus,0x1
01cf e407 | | Load 0x2,0x7
01d0 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01d1 00c9 | | Action Pop_Auxiliary_Loop
01d2 e408 | | Load 0x2,0x8
01d3 6f1a |o | Jump_Zero 0xee
01d4 00ce | | Action Pop_Auxiliary
01d5 e408 | | Load 0x2,0x8
01d6 0f04 | | Execute_Immediate Equal,0x4
01d7 4402 |D | Exit_Subprogram With_Result,0x2
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01de | | .CONST 0x01de ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0004 | | .CONST 0x0004 ; Number of locals
01db INIT_01d8:
01db 00e8 | | Load_Encached Character_Cache
01dc 00e4 | | Load_Encached Positive_Cache
01dd 00e1 | | Load_Encached Boolean_Cache
01de BODY_01d8:
01de 4801 |H | Short_Literal 0x1
01df 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
01e0 00cf | | Action Mark_Auxiliary
01e1 e5ff | | Load 0x2,-0x1
01e2 e003 | | Load 0x0,0x3
01e3 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
01e4 4801 |H | Short_Literal 0x1
01e5 0263 | c | Execute Discrete,Above_Bound
01e6 7016 |p | Jump_Nonzero 0x1fd
01e7 00d8 | | Load_Top At_Offset_0
01e8 e5ff | | Load 0x2,-0x1
01e9 e003 | | Load 0x0,0x3
01ea 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
01eb a402 | | Store_Unchecked 0x2,0x2
01ec e402 | | Load 0x2,0x2
01ed 0f40 | @ | Execute_Immediate Equal,0x40
01ee e402 | | Load 0x2,0x2
01ef 0f2a | * | Execute_Immediate Equal,0x2a
01f0 0278 | x | Execute Discrete,Or
01f1 e402 | | Load 0x2,0x2
01f2 0f26 | & | Execute_Immediate Equal,0x26
01f3 0278 | x | Execute Discrete,Or
01f4 e402 | | Load 0x2,0x2
01f5 0f2d | - | Execute_Immediate Equal,0x2d
01f6 0278 | x | Execute Discrete,Or
01f7 6803 |h | Jump_Zero 0x1fb
01f8 00d2 | | Pop_Control Pop_Count_2
01f9 00ce | | Action Pop_Auxiliary
01fa 7805 |x | Jump 0x200
01fb 00c8 | | Action Pop_Auxiliary_Range
01fc 3fea |? | Loop_Increasing 0x1e7
01fd 00ce | | Action Pop_Auxiliary
01fe 4800 |H | Short_Literal 0x0
01ff 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0200 00d8 | | Load_Top At_Offset_0
0201 4401 |D | Exit_Subprogram With_Result,0x1
0202 0000 0000 | | .BLANK 0000[0x6]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020e | | .CONST 0x020e ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0003 | | .CONST 0x0003 ; Number of locals
020b INIT_0208:
020b e004 | | Load 0x0,0x4
020c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
020d 00e2 | | Load_Encached Integer_Cache
020e BODY_0208:
020e e21d | | Load 0x1,0x1d
020f 09f8 | | Execute_Immediate Binary_Scale,-0x8
0210 e21d | | Load 0x1,0x1d
0211 48ff |H | Short_Literal 0xff
0212 0279 | y | Execute Discrete,And
0213 0273 | s | Execute Discrete,Plus
0214 e002 | | Load 0x0,0x2
0215 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0216 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
0217 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0218 01d7 | | Execute Vector,Field_Read
0219 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
021a 00d9 | | Load_Top At_Offset_1
021b e231 | 1 | Load 0x1,0x31
021c 4802 |H | Short_Literal 0x2
021d 00db | | Load_Top At_Offset_3
021e e008 | | Load 0x0,0x8
021f 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0220 00d1 | | Pop_Control Pop_Count_1
0221 005a | Z | Store_Top Discrete,At_Offset_2
0222 00d9 | | Load_Top At_Offset_1
0223 6807 |h | Jump_Zero 0x22b
0224 e009 | | Load 0x0,0x9
0225 180e | | Execute Package,Field_Execute,Field_Number 0xe
0226 4802 |H | Short_Literal 0x2
0227 0092 04c1 | | Action Push_String_Extended,0x4c1 ; "directory read error!"
0229 e00a | | Load 0x0,0xa
022a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
022b e220 | | Load 0x1,0x20
022c 0aff | | Execute_Immediate Plus,-0x1
022d c220 | | Store 0x1,0x20
022e 4501 |E | Exit_Subprogram 0x1
022f 0000 | | .XXX[0x1]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0240 | @ | .CONST 0x0240 ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0008 | | .CONST 0x0008 ; Number of locals
0233 INIT_0230:
0233 00e2 | | Load_Encached Integer_Cache
0234 e004 | | Load 0x0,0x4
0235 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0236 00e2 | | Load_Encached Integer_Cache
0237 e006 | | Load 0x0,0x6
0238 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0239 1910 | | Execute Package,Field_Reference,Field_Number 0x10
023a 00c6 | | Action Check_Subprogram_Elaborated
023b e001 | | Load 0x0,0x1
023c 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
023d e00b | | Load 0x0,0xb
023e e00c | | Load 0x0,0xc
023f 4808 |H | Short_Literal 0x8
0240 BODY_0230:
0240 00cf | | Action Mark_Auxiliary
0241 7800 |x | Jump 0x242
0242 e220 | | Load 0x1,0x20
0243 0a01 | | Execute_Immediate Plus,0x1
0244 c220 | | Store 0x1,0x20
0245 e220 | | Load 0x1,0x20
0246 0c10 | | Execute_Immediate Greater_Equal,0x10
0247 6835 |h5 | Jump_Zero 0x27d
0248 e21d | | Load 0x1,0x1d
0249 0a01 | | Execute_Immediate Plus,0x1
024a c21d | | Store 0x1,0x1d
024b e21f | | Load 0x1,0x1f
024c 0a01 | | Execute_Immediate Plus,0x1
024d c21f | | Store 0x1,0x1f
024e 4800 |H | Short_Literal 0x0
024f a220 | | Store_Unchecked 0x1,0x20
0250 e21d | | Load 0x1,0x1d
0251 6042 |`B | Indirect_Literal Discrete,0x294,{0x00000000, 0x00000800}
0252 027b | { | Execute Discrete,Greater_Equal
0253 6802 |h | Jump_Zero 0x256
0254 00ce | | Action Pop_Auxiliary
0255 7838 |x8 | Jump 0x28e
0256 e21f | | Load 0x1,0x1f
0257 e221 | ! | Load 0x1,0x21
0258 027b | { | Execute Discrete,Greater_Equal
0259 680d |h | Jump_Zero 0x267
025a e21d | | Load 0x1,0x1d
025b e221 | ! | Load 0x1,0x21
025c 0273 | s | Execute Discrete,Plus
025d 6036 |`6 | Indirect_Literal Discrete,0x294,{0x00000000, 0x00000800}
025e 027d | } | Execute Discrete,Greater
025f 6805 |h | Jump_Zero 0x265
0260 6033 |`3 | Indirect_Literal Discrete,0x294,{0x00000000, 0x00000800}
0261 e21d | | Load 0x1,0x1d
0262 0272 | r | Execute Discrete,Minus
0263 c402 | | Store 0x2,0x2
0264 7802 |x | Jump 0x267
0265 e221 | ! | Load 0x1,0x21
0266 a402 | | Store_Unchecked 0x2,0x2
0267 e21d | | Load 0x1,0x1d
0268 09f8 | | Execute_Immediate Binary_Scale,-0x8
0269 e002 | | Load 0x0,0x2
026a 1b16 | | Execute Package,Field_Read,Field_Number 0x16
026b 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
026c 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
026d 01d7 | | Execute Vector,Field_Read
026e e21d | | Load 0x1,0x1d
026f 48ff |H | Short_Literal 0xff
0270 0279 | y | Execute Discrete,And
0271 0273 | s | Execute Discrete,Plus
0272 c404 | | Store 0x2,0x4
0273 e403 | | Load 0x2,0x3
0274 e231 | 1 | Load 0x1,0x31
0275 4802 |H | Short_Literal 0x2
0276 e404 | | Load 0x2,0x4
0277 e008 | | Load 0x0,0x8
0278 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0279 00d1 | | Pop_Control Pop_Count_1
027a c403 | | Store 0x2,0x3
027b 4800 |H | Short_Literal 0x0
027c a21f | | Store_Unchecked 0x1,0x1f
027d e220 | | Load 0x1,0x20
027e e21f | | Load 0x1,0x1f
027f e21e | | Load 0x1,0x1e
0280 0227 | ' | Execute Access,All_Reference
0281 01d5 | | Execute Vector,Field_Reference
0282 01d5 | | Execute Vector,Field_Reference
0283 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0284 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0285 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0286 6803 |h | Jump_Zero 0x28a
0287 480f |H | Short_Literal 0xf
0288 a220 | | Store_Unchecked 0x1,0x20
0289 7802 |x | Jump 0x28c
028a 00ce | | Action Pop_Auxiliary
028b 4501 |E | Exit_Subprogram 0x1
028c 00c9 | | Action Pop_Auxiliary_Loop
028d 7fb4 | | Jump 0x242
028e 4fff |O | Short_Literal 0x7ff
028f a220 | | Store_Unchecked 0x1,0x20
0290 4501 |E | Exit_Subprogram 0x1
0291 0000 0000 | | .XXX[0x3]
0293 0000 | |
0294 0000 0000 | | .LITERAL {0x00000000, 0x00000800}
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029b | | .CONST 0x029b ; Address of begin
0299 0004 | | .CONST 0x0004 ; Address of exception handler
029a 0001 | | .CONST 0x0001 ; Number of locals
029b BODY_0298:
029b INIT_0298:
029b 4607 |F | Jump_Case 0x7
029c 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
029d 7806 |x | Jump 0x2a4 ; case 0x1
029e 7809 |x | Jump 0x2a8 ; case 0x2
029f 780d |x | Jump 0x2ad ; case 0x3
02a0 7810 |x | Jump 0x2b1 ; case 0x4
02a1 7811 |x | Jump 0x2b3 ; case 0x5
02a2 7812 |x | Jump 0x2b5 ; case 0x6
02a3 7815 |x | Jump 0x2b9 ; case 0x7
02a4 00da | | Load_Top At_Offset_2
02a5 0091 04ba | | Action Push_String_Extended_Indexed,0x4ba ; "SLOW"
02a7 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
02a8 00db | | Load_Top At_Offset_3
02a9 00db | | Load_Top At_Offset_3
02aa 00e0 | | Load_Encached Standard_Cache
02ab 181b | | Execute Package,Field_Execute,Field_Number 0x1b
02ac 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
02ad 00da | | Load_Top At_Offset_2
02ae 00e0 | | Load_Encached Standard_Cache
02af 181c | | Execute Package,Field_Execute,Field_Number 0x1c
02b0 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
02b1 00db | | Load_Top At_Offset_3
02b2 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
02b3 00db | | Load_Top At_Offset_3
02b4 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
02b5 e211 | | Load 0x1,0x11
02b6 00dc | | Load_Top At_Offset_4
02b7 0267 | g | Execute Discrete,Predecessor
02b8 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
02b9 e211 | | Load 0x1,0x11
02ba 00dc | | Load_Top At_Offset_4
02bb 0268 | h | Execute Discrete,Successor
02bc 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
02bd 0000 0000 | | .XXX[0x3]
02bf 0000 | |
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c5 | | .CONST 0x02c5 ; Address of begin
02c1 0004 | | .CONST 0x0004 ; Address of exception handler
02c2 0002 | | .CONST 0x0002 ; Number of locals
02c3 INIT_02c0:
02c3 e004 | | Load 0x0,0x4
02c4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02c5 BODY_02c0:
02c5 e5fe | | Load 0x2,-0x2
02c6 820e | | Call 0x1,0xe
02c7 a222 | " | Store_Unchecked 0x1,0x22
02c8 e5fe | | Load 0x2,-0x2
02c9 e223 | # | Load 0x1,0x23
02ca 016d | m | Execute Variant_Record,Structure_Write
02cb e222 | " | Load 0x1,0x22
02cc 700b |p | Jump_Nonzero 0x2d8
02cd e233 | 3 | Load 0x1,0x33
02ce 00d9 | | Load_Top At_Offset_1
02cf 4800 |H | Short_Literal 0x0
02d0 4801 |H | Short_Literal 0x1
02d1 4800 |H | Short_Literal 0x0
02d2 e5fe | | Load 0x2,-0x2
02d3 e008 | | Load 0x0,0x8
02d4 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
02d5 005a | Z | Store_Top Discrete,At_Offset_2
02d6 00d1 | | Pop_Control Pop_Count_1
02d7 4503 |E | Exit_Subprogram 0x3
02d8 e5fe | | Load 0x2,-0x2
02d9 e003 | | Load 0x0,0x3
02da 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
02db 0f01 | | Execute_Immediate Equal,0x1
02dc 4801 |H | Short_Literal 0x1
02dd e5fe | | Load 0x2,-0x2
02de e003 | | Load 0x0,0x3
02df 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
02e0 0f40 | @ | Execute_Immediate Equal,0x40
02e1 4801 |H | Short_Literal 0x1
02e2 e5fe | | Load 0x2,-0x2
02e3 e003 | | Load 0x0,0x3
02e4 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
02e5 0f2a | * | Execute_Immediate Equal,0x2a
02e6 0278 | x | Execute Discrete,Or
02e7 0279 | y | Execute Discrete,And
02e8 a224 | $ | Store_Unchecked 0x1,0x24
02e9 00db | | Load_Top At_Offset_3
02ea 0f01 | | Execute_Immediate Equal,0x1
02eb 6803 |h | Jump_Zero 0x2ef
02ec 4803 |H | Short_Literal 0x3
02ed a221 | ! | Store_Unchecked 0x1,0x21
02ee 7802 |x | Jump 0x2f1
02ef 4801 |H | Short_Literal 0x1
02f0 a221 | ! | Store_Unchecked 0x1,0x21
02f1 4fff |O | Short_Literal 0x7ff
02f2 a21d | | Store_Unchecked 0x1,0x1d
02f3 480f |H | Short_Literal 0xf
02f4 a220 | | Store_Unchecked 0x1,0x20
02f5 e221 | ! | Load 0x1,0x21
02f6 0aff | | Execute_Immediate Plus,-0x1
02f7 c21f | | Store 0x1,0x1f
02f8 e219 | | Load 0x1,0x19
02f9 03bc | | Declare_Variable Access,By_Allocation
02fa a21e | | Store_Unchecked 0x1,0x1e
02fb e001 | | Load 0x0,0x1
02fc 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
02fd a5fd | | Store_Unchecked 0x2,-0x3
02fe e5fd | | Load 0x2,-0x3
02ff 4800 |H | Short_Literal 0x0
0300 821c | | Call 0x1,0x1c
0301 c5fd | | Store 0x2,-0x3
0302 4503 |E | Exit_Subprogram 0x3
0303 0000 0000 | | .BLANK 0000[0x5]
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 030d | | .CONST 0x030d ; Address of begin
0309 0004 | | .CONST 0x0004 ; Address of exception handler
030a 0002 | | .CONST 0x0002 ; Number of locals
030b INIT_0308:
030b e004 | | Load 0x0,0x4
030c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
030d BODY_0308:
030d e222 | " | Load 0x1,0x22
030e 7001 |p | Jump_Nonzero 0x310
030f 4502 |E | Exit_Subprogram 0x2
0310 00db | | Load_Top At_Offset_3
0311 6801 |h | Jump_Zero 0x313
0312 820f | | Call 0x1,0xf
0313 e001 | | Load 0x0,0x1
0314 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
0315 03bc | | Declare_Variable Access,By_Allocation
0316 a5fe | | Store_Unchecked 0x2,-0x2
0317 e5fe | | Load 0x2,-0x2
0318 8235 | 5 | Call 0x1,0x35
0319 e5fe | | Load 0x2,-0x2
031a 0227 | ' | Execute Access,All_Reference
031b 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
031c 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
031d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
031e 6803 |h | Jump_Zero 0x322
031f e001 | | Load 0x0,0x1
0320 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
0321 a5fe | | Store_Unchecked 0x2,-0x2
0322 4502 |E | Exit_Subprogram 0x2
0323 0000 0000 | | .BLANK 0000[0x5]
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 0337 | 7 | .CONST 0x0337 ; Address of begin
0329 0004 | | .CONST 0x0004 ; Address of exception handler
032a 0005 | | .CONST 0x0005 ; Number of locals
032b INIT_0328:
032b 00e2 | | Load_Encached Integer_Cache
032c 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
032d 00e2 | | Load_Encached Integer_Cache
032e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
032f 00e2 | | Load_Encached Integer_Cache
0330 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0331 4850 |HP | Short_Literal 0x50
0332 e003 | | Load 0x0,0x3
0333 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0334 1c08 | | Execute_Immediate Run_Utility,0x8
0335 00d8 | | Load_Top At_Offset_0
0336 1c00 | | Execute_Immediate Run_Utility,0x0
0337 BODY_0328:
0337 00d8 | | Load_Top At_Offset_0
0338 e5ff | | Load 0x2,-0x1
0339 e003 | | Load 0x0,0x3
033a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
033b 00d1 | | Pop_Control Pop_Count_1
033c 00cf | | Action Mark_Auxiliary
033d 782c |x, | Jump 0x36a
033e e402 | | Load 0x2,0x2
033f 00d8 | | Load_Top At_Offset_0
0340 00e4 | | Load_Encached Positive_Cache
0341 0260 | ` | Execute Discrete,In_Type
0342 7001 |p | Jump_Nonzero 0x344
0343 0801 | | Execute_Immediate Raise,0x1
0344 00da | | Load_Top At_Offset_2
0345 e003 | | Load 0x0,0x3
0346 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0347 00d8 | | Load_Top At_Offset_0
0348 0d20 | | Execute_Immediate Less,0x20
0349 700d |p | Jump_Nonzero 0x357
034a 00d8 | | Load_Top At_Offset_0
034b 0c21 | ! | Execute_Immediate Greater_Equal,0x21
034c 7007 |p | Jump_Nonzero 0x354
034d 00d1 | | Pop_Control Pop_Count_1
034e 00da | | Load_Top At_Offset_2
034f 6816 |h | Jump_Zero 0x366
0350 00db | | Load_Top At_Offset_3
0351 0a01 | | Execute_Immediate Plus,0x1
0352 c403 | | Store 0x2,0x3
0353 7812 |x | Jump 0x366
0354 0f2c | , | Execute_Immediate Equal,0x2c
0355 77f8 |w | Jump_Nonzero 0x34e
0356 7803 |x | Jump 0x35a
0357 0f09 | | Execute_Immediate Equal,0x9
0358 77f5 |w | Jump_Nonzero 0x34e
0359 7800 |x | Jump 0x35a
035a 00da | | Load_Top At_Offset_2
035b 0a01 | | Execute_Immediate Plus,0x1
035c 005b | [ | Store_Top Discrete,At_Offset_3
035d e402 | | Load 0x2,0x2
035e 00da | | Load_Top At_Offset_2
035f e003 | | Load 0x0,0x3
0360 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0361 027f | | Execute Discrete,Equal
0362 6803 |h | Jump_Zero 0x366
0363 00db | | Load_Top At_Offset_3
0364 0a01 | | Execute_Immediate Plus,0x1
0365 c403 | | Store 0x2,0x3
0366 e402 | | Load 0x2,0x2
0367 0a01 | | Execute_Immediate Plus,0x1
0368 c402 | | Store 0x2,0x2
0369 00c9 | | Action Pop_Auxiliary_Loop
036a e402 | | Load 0x2,0x2
036b 00da | | Load_Top At_Offset_2
036c e003 | | Load 0x0,0x3
036d 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
036e 027a | z | Execute Discrete,Less_Equal
036f 77ce |w | Jump_Nonzero 0x33e
0370 00ce | | Action Pop_Auxiliary
0371 00da | | Load_Top At_Offset_2
0372 4401 |D | Exit_Subprogram With_Result,0x1
0373 0000 0000 | | .BLANK 0000[0x5]
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 038f | | .CONST 0x038f ; Address of begin
0379 0004 | | .CONST 0x0004 ; Address of exception handler
037a 0008 | | .CONST 0x0008 ; Number of locals
037b INIT_0378:
037b 4850 |HP | Short_Literal 0x50
037c e003 | | Load 0x0,0x3
037d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
037e 1c08 | | Execute_Immediate Run_Utility,0x8
037f 00d8 | | Load_Top At_Offset_0
0380 1c00 | | Execute_Immediate Run_Utility,0x0
0381 4850 |HP | Short_Literal 0x50
0382 e003 | | Load 0x0,0x3
0383 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0384 1c08 | | Execute_Immediate Run_Utility,0x8
0385 00d8 | | Load_Top At_Offset_0
0386 1c00 | | Execute_Immediate Run_Utility,0x0
0387 00e2 | | Load_Encached Integer_Cache
0388 00e2 | | Load_Encached Integer_Cache
0389 00e2 | | Load_Encached Integer_Cache
038a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
038b 00e2 | | Load_Encached Integer_Cache
038c 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
038d 00e2 | | Load_Encached Integer_Cache
038e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
038f BODY_0378:
038f e403 | | Load 0x2,0x3
0390 e5ff | | Load 0x2,-0x1
0391 e003 | | Load 0x0,0x3
0392 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0393 00d1 | | Pop_Control Pop_Count_1
0394 00cf | | Action Mark_Auxiliary
0395 7835 |x5 | Jump 0x3cb
0396 00da | | Load_Top At_Offset_2
0397 a404 | | Store_Unchecked 0x2,0x4
0398 4800 |H | Short_Literal 0x0
0399 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
039a 00cf | | Action Mark_Auxiliary
039b 7824 |x$ | Jump 0x3c0
039c 00db | | Load_Top At_Offset_3
039d 00d8 | | Load_Top At_Offset_0
039e 00e4 | | Load_Encached Positive_Cache
039f 0260 | ` | Execute Discrete,In_Type
03a0 7001 |p | Jump_Nonzero 0x3a2
03a1 0801 | | Execute_Immediate Raise,0x1
03a2 e403 | | Load 0x2,0x3
03a3 e003 | | Load 0x0,0x3
03a4 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
03a5 00d8 | | Load_Top At_Offset_0
03a6 0d20 | | Execute_Immediate Less,0x20
03a7 700e |p | Jump_Nonzero 0x3b6
03a8 00d8 | | Load_Top At_Offset_0
03a9 0c21 | ! | Execute_Immediate Greater_Equal,0x21
03aa 7008 |p | Jump_Nonzero 0x3b3
03ab 00d1 | | Pop_Control Pop_Count_1
03ac 00da | | Load_Top At_Offset_2
03ad 6801 |h | Jump_Zero 0x3af
03ae 7817 |x | Jump 0x3c6
03af e404 | | Load 0x2,0x4
03b0 0a01 | | Execute_Immediate Plus,0x1
03b1 c404 | | Store 0x2,0x4
03b2 7809 |x | Jump 0x3bc
03b3 0f2c | , | Execute_Immediate Equal,0x2c
03b4 77f7 |w | Jump_Nonzero 0x3ac
03b5 7803 |x | Jump 0x3b9
03b6 0f09 | | Execute_Immediate Equal,0x9
03b7 77f4 |w | Jump_Nonzero 0x3ac
03b8 7800 |x | Jump 0x3b9
03b9 00da | | Load_Top At_Offset_2
03ba 0a01 | | Execute_Immediate Plus,0x1
03bb 005b | [ | Store_Top Discrete,At_Offset_3
03bc 00db | | Load_Top At_Offset_3
03bd 0a01 | | Execute_Immediate Plus,0x1
03be c407 | | Store 0x2,0x7
03bf 00c9 | | Action Pop_Auxiliary_Loop
03c0 00db | | Load_Top At_Offset_3
03c1 e403 | | Load 0x2,0x3
03c2 e003 | | Load 0x0,0x3
03c3 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
03c4 027a | z | Execute Discrete,Less_Equal
03c5 77d6 |w | Jump_Nonzero 0x39c
03c6 00ce | | Action Pop_Auxiliary
03c7 00db | | Load_Top At_Offset_3
03c8 0a01 | | Execute_Immediate Plus,0x1
03c9 c406 | | Store 0x2,0x6
03ca 00c9 | | Action Pop_Auxiliary_Loop
03cb e5fe | | Load 0x2,-0x2
03cc e406 | | Load 0x2,0x6
03cd 027d | } | Execute Discrete,Greater
03ce 77c7 |w | Jump_Nonzero 0x396
03cf 00ce | | Action Pop_Auxiliary
03d0 00d8 | | Load_Top At_Offset_0
03d1 6819 |h | Jump_Zero 0x3eb
03d2 e404 | | Load 0x2,0x4
03d3 00d9 | | Load_Top At_Offset_1
03d4 0273 | s | Execute Discrete,Plus
03d5 0aff | | Execute_Immediate Plus,-0x1
03d6 c405 | | Store 0x2,0x5
03d7 e402 | | Load 0x2,0x2
03d8 e405 | | Load 0x2,0x5
03d9 00d8 | | Load_Top At_Offset_0
03da 00e3 | | Load_Encached Natural_Cache
03db 0260 | ` | Execute Discrete,In_Type
03dc 7001 |p | Jump_Nonzero 0x3de
03dd 0801 | | Execute_Immediate Raise,0x1
03de e404 | | Load 0x2,0x4
03df 00d8 | | Load_Top At_Offset_0
03e0 00e4 | | Load_Encached Positive_Cache
03e1 0260 | ` | Execute Discrete,In_Type
03e2 7001 |p | Jump_Nonzero 0x3e4
03e3 0801 | | Execute_Immediate Raise,0x1
03e4 e403 | | Load 0x2,0x3
03e5 e003 | | Load 0x0,0x3
03e6 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
03e7 e003 | | Load 0x0,0x3
03e8 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03e9 00d1 | | Pop_Control Pop_Count_1
03ea 7806 |x | Jump 0x3f1
03eb e402 | | Load 0x2,0x2
03ec 4820 |H | Short_Literal 0x20
03ed 4800 |H | Short_Literal 0x0
03ee e003 | | Load 0x0,0x3
03ef 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
03f0 00d1 | | Pop_Control Pop_Count_1
03f1 e402 | | Load 0x2,0x2
03f2 4402 |D | Exit_Subprogram With_Result,0x2
03f3 0000 0000 | | .BLANK 0000[0x5]
03f8 ; --------------------------------------------------------------------------------------
03f8 ; SUBPROGRAM
03f8 ; --------------------------------------------------------------------------------------
03f8 0409 | | .CONST 0x0409 ; Address of begin
03f9 0004 | | .CONST 0x0004 ; Address of exception handler
03fa 0006 | | .CONST 0x0006 ; Number of locals
03fb INIT_03f8:
03fb 00e1 | | Load_Encached Boolean_Cache
03fc 4850 |HP | Short_Literal 0x50
03fd e003 | | Load 0x0,0x3
03fe 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03ff 1c08 | | Execute_Immediate Run_Utility,0x8
0400 00d8 | | Load_Top At_Offset_0
0401 1c00 | | Execute_Immediate Run_Utility,0x0
0402 e001 | | Load 0x0,0x1
0403 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
0404 0322 | " | Declare_Variable Record
0405 029f 0453 | S| Declare_Subprogram For_Call,INIT_0450
0407 029f 046b | k| Declare_Subprogram For_Call,INIT_0468
0409 BODY_03f8:
0409 00cf | | Action Mark_Auxiliary
040a 7800 |x | Jump 0x40b
040b 8210 | | Call 0x1,0x10
040c e220 | | Load 0x1,0x20
040d 4fff |O | Short_Literal 0x7ff
040e 027f | | Execute Discrete,Equal
040f 6802 |h | Jump_Zero 0x412
0410 00ce | | Action Pop_Auxiliary
0411 780e |x | Jump 0x420
0412 e002 | | Load 0x0,0x2
0413 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0414 340b |4 | Execute Record,Field_Reference,Field_Number 0xb
0415 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0416 6803 |h | Jump_Zero 0x41a
0417 4801 |H | Short_Literal 0x1
0418 a402 | | Store_Unchecked 0x2,0x2
0419 7801 |x | Jump 0x41b
041a 8405 | | Call 0x2,0x5
041b e402 | | Load 0x2,0x2
041c 6801 |h | Jump_Zero 0x41e
041d 8406 | | Call 0x2,0x6
041e 00c9 | | Action Pop_Auxiliary_Loop
041f 7feb | | Jump 0x40b
0420 4801 |H | Short_Literal 0x1
0421 e5ff | | Load 0x2,-0x1
0422 0227 | ' | Execute Access,All_Reference
0423 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0424 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0425 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0426 4502 |E | Exit_Subprogram 0x2
0427 0000 | | .XXX[0x1]
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 042b | + | .CONST 0x042b ; Address of begin
0429 0004 | | .CONST 0x0004 ; Address of exception handler
042a 0001 | | .CONST 0x0001 ; Number of locals
042b BODY_0428:
042b INIT_0428:
042b 4607 |F | Jump_Case 0x7
042c 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
042d 7806 |x | Jump 0x434 ; case 0x1
042e 7809 |x | Jump 0x438 ; case 0x2
042f 780d |x | Jump 0x43d ; case 0x3
0430 7810 |x | Jump 0x441 ; case 0x4
0431 7811 |x | Jump 0x443 ; case 0x5
0432 7812 |x | Jump 0x445 ; case 0x6
0433 7815 |x | Jump 0x449 ; case 0x7
0434 00da | | Load_Top At_Offset_2
0435 0091 04bc | | Action Push_String_Extended_Indexed,0x4bc ; "CONTINUE"
0437 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0438 00db | | Load_Top At_Offset_3
0439 00db | | Load_Top At_Offset_3
043a 00e0 | | Load_Encached Standard_Cache
043b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
043c 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
043d 00da | | Load_Top At_Offset_2
043e 00e0 | | Load_Encached Standard_Cache
043f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0440 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0441 00db | | Load_Top At_Offset_3
0442 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0443 00db | | Load_Top At_Offset_3
0444 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0445 e402 | | Load 0x2,0x2
0446 00dc | | Load_Top At_Offset_4
0447 0267 | g | Execute Discrete,Predecessor
0448 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0449 e402 | | Load 0x2,0x2
044a 00dc | | Load_Top At_Offset_4
044b 0268 | h | Execute Discrete,Successor
044c 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
044d 0000 0000 | | .XXX[0x3]
044f 0000 | |
0450 ; --------------------------------------------------------------------------------------
0450 ; SUBPROGRAM
0450 ; --------------------------------------------------------------------------------------
0450 0453 | S | .CONST 0x0453 ; Address of begin
0451 0004 | | .CONST 0x0004 ; Address of exception handler
0452 0001 | | .CONST 0x0001 ; Number of locals
0453 BODY_0450:
0453 INIT_0450:
0453 e403 | | Load 0x2,0x3
0454 e220 | | Load 0x1,0x20
0455 e21f | | Load 0x1,0x1f
0456 e21e | | Load 0x1,0x1e
0457 0227 | ' | Execute Access,All_Reference
0458 01d5 | | Execute Vector,Field_Reference
0459 01d5 | | Execute Vector,Field_Reference
045a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
045b e00d | | Load 0x0,0xd
045c 180d | | Execute Package,Field_Execute,Field_Number 0xd
045d e003 | | Load 0x0,0x3
045e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
045f 00d1 | | Pop_Control Pop_Count_1
0460 e223 | # | Load 0x1,0x23
0461 e403 | | Load 0x2,0x3
0462 820d | | Call 0x1,0xd
0463 a402 | | Store_Unchecked 0x2,0x2
0464 e403 | | Load 0x2,0x3
0465 e003 | | Load 0x0,0x3
0466 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0467 4501 |E | Exit_Subprogram 0x1
0468 ; --------------------------------------------------------------------------------------
0468 ; SUBPROGRAM
0468 ; --------------------------------------------------------------------------------------
0468 046b | k | .CONST 0x046b ; Address of begin
0469 0004 | | .CONST 0x0004 ; Address of exception handler
046a 0001 | | .CONST 0x0001 ; Number of locals
046b BODY_0468:
046b INIT_0468:
046b e220 | | Load 0x1,0x20
046c e21f | | Load 0x1,0x1f
046d e21e | | Load 0x1,0x1e
046e 0227 | ' | Execute Access,All_Reference
046f 01d5 | | Execute Vector,Field_Reference
0470 01d5 | | Execute Vector,Field_Reference
0471 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0472 e5ff | | Load 0x2,-0x1
0473 0227 | ' | Execute Access,All_Reference
0474 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0475 e220 | | Load 0x1,0x20
0476 e21f | | Load 0x1,0x1f
0477 e21e | | Load 0x1,0x1e
0478 0227 | ' | Execute Access,All_Reference
0479 01d5 | | Execute Vector,Field_Reference
047a 01d5 | | Execute Vector,Field_Reference
047b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
047c e5ff | | Load 0x2,-0x1
047d 0227 | ' | Execute Access,All_Reference
047e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
047f e220 | | Load 0x1,0x20
0480 e21f | | Load 0x1,0x1f
0481 e21e | | Load 0x1,0x1e
0482 0227 | ' | Execute Access,All_Reference
0483 01d5 | | Execute Vector,Field_Reference
0484 01d5 | | Execute Vector,Field_Reference
0485 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0486 e5ff | | Load 0x2,-0x1
0487 0227 | ' | Execute Access,All_Reference
0488 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0489 4800 |H | Short_Literal 0x0
048a e5ff | | Load 0x2,-0x1
048b 0227 | ' | Execute Access,All_Reference
048c 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
048d e220 | | Load 0x1,0x20
048e e5ff | | Load 0x2,-0x1
048f 0227 | ' | Execute Access,All_Reference
0490 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0491 e21d | | Load 0x1,0x1d
0492 09f8 | | Execute_Immediate Binary_Scale,-0x8
0493 e002 | | Load 0x0,0x2
0494 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0495 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
0496 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0497 01d7 | | Execute Vector,Field_Read
0498 e21d | | Load 0x1,0x1d
0499 48ff |H | Short_Literal 0xff
049a 0279 | y | Execute Discrete,And
049b 00d8 | | Load_Top At_Offset_0
049c e001 | | Load 0x0,0x1
049d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
049e 0260 | ` | Execute Discrete,In_Type
049f 7001 |p | Jump_Nonzero 0x4a1
04a0 0801 | | Execute_Immediate Raise,0x1
04a1 0273 | s | Execute Discrete,Plus
04a2 e5ff | | Load 0x2,-0x1
04a3 0227 | ' | Execute Access,All_Reference
04a4 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
04a5 4800 |H | Short_Literal 0x0
04a6 e5ff | | Load 0x2,-0x1
04a7 0227 | ' | Execute Access,All_Reference
04a8 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
04a9 4800 |H | Short_Literal 0x0
04aa e5ff | | Load 0x2,-0x1
04ab 0227 | ' | Execute Access,All_Reference
04ac 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
04ad e002 | | Load 0x0,0x2
04ae 1b15 | | Execute Package,Field_Read,Field_Number 0x15
04af 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
04b0 e5ff | | Load 0x2,-0x1
04b1 0227 | ' | Execute Access,All_Reference
04b2 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
04b3 e5ff | | Load 0x2,-0x1
04b4 e002 | | Load 0x0,0x2
04b5 1b15 | | Execute Package,Field_Read,Field_Number 0x15
04b6 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
04b7 00cc | | Action Pop_Block
04b8 00ce | | Action Pop_Auxiliary
04b9 4502 |E | Exit_Subprogram 0x2
04ba ; --------------------------------------------------------------------------------------
04ba ; STRING TABLE
04ba ; --------------------------------------------------------------------------------------
04ba 0012 | | .STRTAB 0x0012->0x04c3 ; "SLOW"
04bb 0014 | | .STRTAB 0x0014->0x04c5 ; "FAST"
04bc 0016 | | .STRTAB 0x0016->0x04c7 ; "CONTINUE"
04bd 001c | | .STRTAB 0x001c->0x04cb ; "BACKUP"
04be 0020 | | .STRTAB 0x0020->0x04ce ; "STACK"
04bf 0023 | # | .STRTAB 0x0023->0x04d0 ; "FAIL"
04c0 0025 | % | .STRTAB 0x0025->0x04d2 ; "SUCCEED"
04c1 002a | * | .STRTAB 0x002a->0x04d6 ; "directory read error!"
04c2 003d | = | .STREND 0x003d->0x04e0
04c3 534c 4f57 |SLOW| .STRTAB_STRINGS
04e1 0000 0000 | | .BLANK 0000[0x7]
04e8 ; --------------------------------------------------------------------------------------
04e8 ; Debug Table
04e8 ; --------------------------------------------------------------------------------------
04e8 0004 000e | | .DEBUG4 0x0004,0x000e,0x1f29,0x0000,0x0001,0x0000
04ee 0404 0404 | | .BLANK 0404[0x45]
0533 0400 1ee1 | | .XXX[0x36]
0535 0000 1dd3 | |
0537 5000 1ee1 |P |
0539 0000 0000 | |
053b 6800 1400 |h |
053d 0000 0000 | |
053f 0800 03e0 | |
0541 0000 1504 | |
0543 e800 0000 | |
0545 0000 1503 | |
0547 6800 1400 |h |
0549 0000 0000 | |
054b 0800 0000 | |
054d 0000 0000 | |
054f 0c00 0000 | |
0551 1800 0000 | |
0553 0000 0000 | |
0555 4000 0000 |@ |
0557 0000 1500 | |
0559 0000 0841 | A|
055b 4600 00b1 |F |
055d c800 1d00 | |
055f 1800 03f0 | |
0561 0000 0fff | |
0563 c000 1e1a | |
0565 e800 0004 | |
0567 0800 03fc | |
0569 0000 0000 | | .BLANK 0000[0x4]
056d 0c00 0000 | | .XXX[0x1f]
056f 1800 0000 | |
0571 0000 0000 | |
0573 4000 0000 |@ |
0575 0000 1d04 | |
0577 b800 0841 | A|
0579 4600 00b1 |F |
057b ca00 00a5 | |
057d f000 03f0 | |
057f 0000 0fff | |
0581 c200 00a7 | |
0583 e200 00e5 | |
0585 6800 03f0 |h |
0587 8600 0099 | |
0589 2200 009a |" |
058b 8004 | |
058c 0404 0404 | | .BLANK 0404[0x31]
05bd 0400 0000 | | .XXX[0x17]
05bf 0000 0000 | |
05c1 0040 4010 | @@ |
05c3 bc04 0404 | |
05c5 0404 0404 | |
05c7 0600 0103 | |
05c9 1000 03ef | |
05cb d804 0404 | |
05cd 0404 0404 | |
05cf 0400 0000 | |
05d1 0000 0000 | |
05d3 0004 | |
05d4 0404 0404 | | .BLANK 0404[0x2c]