|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_f4d4d9
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0450 | P | .CONST 0x0450 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 004f | O | .CONST 0x004f ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0083 | | .CONST 0x0083 ; Number of locals
000b INIT_0008:
000b 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated
000d e001 | | Load 0x0,0x1
000e 0129 | ) | Execute Any,Make_Visible
000f 00bf | | Action Accept_Activation
0010 e002 | | Load 0x0,0x2
0011 e003 | | Load 0x0,0x3
0012 e004 | | Load 0x0,0x4
0013 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0014 e005 | | Load 0x0,0x5
0015 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
0016 e006 | | Load 0x0,0x6
0017 0387 | | Declare_Variable Package
0018 00d8 | | Load_Top At_Offset_0
0019 020f | | Execute Module,Activate
001a 4801 |H | Short_Literal 0x1
001b 481e |H | Short_Literal 0x1e
001c e007 | | Load 0x0,0x7
001d 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
001e 02a0 | | Declare_Subprogram Null_Subprogram
001f 4801 |H | Short_Literal 0x1
0020 035d | ] | Declare_Type Array,Defined
0021 00d8 | | Load_Top At_Offset_0
0022 00e3 | | Load_Encached Natural_Cache
0023 029f 011b | | Declare_Subprogram INIT_0118,For_Call
0025 4802 |H | Short_Literal 0x2
0026 032d | - | Declare_Type Record,Defined
0027 00d8 | | Load_Top At_Offset_0
0028 0322 | " | Declare_Variable Record
0029 00d8 | | Load_Top At_Offset_0
002a 1c00 | | Execute_Immediate Run_Utility,0x0
002b e007 | | Load 0x0,0x7
002c 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
002d 029d 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call
002f 029d 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call
0031 029d 02c3 | | Declare_Subprogram INIT_02c0,For_Outer_Call
0033 029d 02db | | Declare_Subprogram INIT_02d8,For_Outer_Call
0035 029d 0363 | c| Declare_Subprogram INIT_0360,For_Outer_Call
0037 029b 03fb | | Declare_Subprogram INIT_03f8,For_Outer_Call,Unelaborated
0039 1d79 | y | Execute_Immediate Reference_Lex_1,0x79
003a 00c7 | | Action Elaborate_Subprogram
003b 1d79 | y | Execute_Immediate Reference_Lex_1,0x79
003c 00c6 | | Action Check_Subprogram_Elaborated
003d 1d77 | w | Execute_Immediate Reference_Lex_1,0x77
003e 0092 0445 | E| Action Push_String_Extended,0x445 ; "LRU"
0040 e008 | | Load 0x0,0x8
0041 e009 | | Load 0x0,0x9
0042 4800 |H | Short_Literal 0x0
0043 0007 | | Action Break_Optional
0044 1d79 | y | Execute_Immediate Reference_Lex_1,0x79
0045 00c6 | | Action Check_Subprogram_Elaborated
0046 1d78 | x | Execute_Immediate Reference_Lex_1,0x78
0047 0092 0445 | E| Action Push_String_Extended,0x445 ; "LRU"
0049 e00a | | Load 0x0,0xa
004a e00b | | Load 0x0,0xb
004b 4800 |H | Short_Literal 0x0
004c 0007 | | Action Break_Optional
004d 1d6d | m | Execute_Immediate Reference_Lex_1,0x6d
004e 00c7 | | Action Elaborate_Subprogram
004f BODY_0008:
004f e20f | | Load 0x1,0xf
0050 e007 | | Load 0x0,0x7
0051 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0052 a273 | s | Store_Unchecked 0x1,0x73
0053 e212 | | Load 0x1,0x12
0054 4801 |H | Short_Literal 0x1
0055 e273 | s | Load 0x1,0x73
0056 e007 | | Load 0x0,0x7
0057 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0058 e215 | | Load 0x1,0x15
0059 4802 |H | Short_Literal 0x2
005a e273 | s | Load 0x1,0x73
005b e007 | | Load 0x0,0x7
005c 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
005d e218 | | Load 0x1,0x18
005e 4803 |H | Short_Literal 0x3
005f e273 | s | Load 0x1,0x73
0060 e007 | | Load 0x0,0x7
0061 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0062 e21b | | Load 0x1,0x1b
0063 4804 |H | Short_Literal 0x4
0064 e273 | s | Load 0x1,0x73
0065 e007 | | Load 0x0,0x7
0066 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0067 e21e | | Load 0x1,0x1e
0068 4805 |H | Short_Literal 0x5
0069 e273 | s | Load 0x1,0x73
006a e007 | | Load 0x0,0x7
006b 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
006c e221 | ! | Load 0x1,0x21
006d 4806 |H | Short_Literal 0x6
006e e273 | s | Load 0x1,0x73
006f e007 | | Load 0x0,0x7
0070 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0071 e224 | $ | Load 0x1,0x24
0072 4807 |H | Short_Literal 0x7
0073 e273 | s | Load 0x1,0x73
0074 e007 | | Load 0x0,0x7
0075 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0076 e227 | ' | Load 0x1,0x27
0077 4808 |H | Short_Literal 0x8
0078 e273 | s | Load 0x1,0x73
0079 e007 | | Load 0x0,0x7
007a 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
007b e22a | * | Load 0x1,0x2a
007c 4809 |H | Short_Literal 0x9
007d e273 | s | Load 0x1,0x73
007e e007 | | Load 0x0,0x7
007f 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0080 e22d | - | Load 0x1,0x2d
0081 480a |H | Short_Literal 0xa
0082 e273 | s | Load 0x1,0x73
0083 e007 | | Load 0x0,0x7
0084 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0085 e230 | 0 | Load 0x1,0x30
0086 480b |H | Short_Literal 0xb
0087 e273 | s | Load 0x1,0x73
0088 e007 | | Load 0x0,0x7
0089 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
008a e233 | 3 | Load 0x1,0x33
008b 480c |H | Short_Literal 0xc
008c e273 | s | Load 0x1,0x73
008d e007 | | Load 0x0,0x7
008e 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
008f e236 | 6 | Load 0x1,0x36
0090 480d |H | Short_Literal 0xd
0091 e273 | s | Load 0x1,0x73
0092 e007 | | Load 0x0,0x7
0093 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0094 e239 | 9 | Load 0x1,0x39
0095 480e |H | Short_Literal 0xe
0096 e273 | s | Load 0x1,0x73
0097 e007 | | Load 0x0,0x7
0098 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0099 e23c | < | Load 0x1,0x3c
009a 480f |H | Short_Literal 0xf
009b e273 | s | Load 0x1,0x73
009c e007 | | Load 0x0,0x7
009d 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
009e e23f | ? | Load 0x1,0x3f
009f 4810 |H | Short_Literal 0x10
00a0 e273 | s | Load 0x1,0x73
00a1 e007 | | Load 0x0,0x7
00a2 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
00a3 e242 | B | Load 0x1,0x42
00a4 4811 |H | Short_Literal 0x11
00a5 e273 | s | Load 0x1,0x73
00a6 e007 | | Load 0x0,0x7
00a7 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
00a8 e245 | E | Load 0x1,0x45
00a9 4812 |H | Short_Literal 0x12
00aa e273 | s | Load 0x1,0x73
00ab e007 | | Load 0x0,0x7
00ac 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
00ad e248 | H | Load 0x1,0x48
00ae 4813 |H | Short_Literal 0x13
00af e273 | s | Load 0x1,0x73
00b0 e007 | | Load 0x0,0x7
00b1 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
00b2 e24b | K | Load 0x1,0x4b
00b3 4814 |H | Short_Literal 0x14
00b4 e273 | s | Load 0x1,0x73
00b5 e007 | | Load 0x0,0x7
00b6 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
00b7 e24e | N | Load 0x1,0x4e
00b8 4815 |H | Short_Literal 0x15
00b9 e273 | s | Load 0x1,0x73
00ba e007 | | Load 0x0,0x7
00bb 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
00bc e251 | Q | Load 0x1,0x51
00bd 4816 |H | Short_Literal 0x16
00be e273 | s | Load 0x1,0x73
00bf e007 | | Load 0x0,0x7
00c0 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
00c1 e254 | T | Load 0x1,0x54
00c2 4817 |H | Short_Literal 0x17
00c3 e273 | s | Load 0x1,0x73
00c4 e007 | | Load 0x0,0x7
00c5 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
00c6 e257 | W | Load 0x1,0x57
00c7 4818 |H | Short_Literal 0x18
00c8 e273 | s | Load 0x1,0x73
00c9 e007 | | Load 0x0,0x7
00ca 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
00cb e25a | Z | Load 0x1,0x5a
00cc 4819 |H | Short_Literal 0x19
00cd e273 | s | Load 0x1,0x73
00ce e007 | | Load 0x0,0x7
00cf 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
00d0 e25d | ] | Load 0x1,0x5d
00d1 481a |H | Short_Literal 0x1a
00d2 e273 | s | Load 0x1,0x73
00d3 e007 | | Load 0x0,0x7
00d4 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
00d5 e260 | ` | Load 0x1,0x60
00d6 481b |H | Short_Literal 0x1b
00d7 e273 | s | Load 0x1,0x73
00d8 e007 | | Load 0x0,0x7
00d9 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
00da e263 | c | Load 0x1,0x63
00db 481c |H | Short_Literal 0x1c
00dc e273 | s | Load 0x1,0x73
00dd e007 | | Load 0x0,0x7
00de 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
00df e266 | f | Load 0x1,0x66
00e0 481d |H | Short_Literal 0x1d
00e1 e273 | s | Load 0x1,0x73
00e2 e007 | | Load 0x0,0x7
00e3 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
00e4 e269 | i | Load 0x1,0x69
00e5 481e |H | Short_Literal 0x1e
00e6 e273 | s | Load 0x1,0x73
00e7 e007 | | Load 0x0,0x7
00e8 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
00e9 e211 | | Load 0x1,0x11
00ea 6809 |h | Jump_Zero 0xf4
00eb 4800 |H | Short_Literal 0x0
00ec e00c | | Load 0x0,0xc
00ed 181e | | Execute Package,Field_Execute,Field_Number 0x1e
00ee 4800 |H | Short_Literal 0x0
00ef e00c | | Load 0x0,0xc
00f0 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00f1 e273 | s | Load 0x1,0x73
00f2 e00c | | Load 0x0,0xc
00f3 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
00f4 00bc | | Action Signal_Activated
00f5 00bb | | Action Signal_Completion
00f6 0000 0000 | | .XXX[0x2]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb | | .CONST 0x00fb ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0001 | | .CONST 0x0001 ; Number of locals
00fb BODY_00f8:
00fb INIT_00f8:
00fb e210 | | Load 0x1,0x10
00fc 0f02 | | Execute_Immediate Equal,0x2
00fd 6811 |h | Jump_Zero 0x10f
00fe e211 | | Load 0x1,0x11
00ff 6809 |h | Jump_Zero 0x109
0100 e273 | s | Load 0x1,0x73
0101 e00c | | Load 0x0,0xc
0102 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0103 00da | | Load_Top At_Offset_2
0104 1d7f | | Execute_Immediate Reference_Lex_1,0x7f
0105 e280 | | Load 0x1,0x80
0106 1d81 | | Execute_Immediate Reference_Lex_1,0x81
0107 8279 | y | Call 0x1,0x79
0108 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0109 00da | | Load_Top At_Offset_2
010a 1d7a | z | Execute_Immediate Reference_Lex_1,0x7a
010b e27b | { | Load 0x1,0x7b
010c 1d7c | | | Execute_Immediate Reference_Lex_1,0x7c
010d 8279 | y | Call 0x1,0x79
010e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
010f e26e | n | Load 0x1,0x6e
0110 0257 | W | Execute Discrete,Raise
0111 0000 0000 | | .BLANK 0000[0x7]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b | | .CONST 0x011b ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0001 | | .CONST 0x0001 ; Number of locals
011b BODY_0118:
011b INIT_0118:
011b 4608 |F | Jump_Case 0x9
011c 7808 |x | Jump 0x125 ; case 0x0
011d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
011e 781b |x | Jump 0x13a ; case 0x2
011f 781a |x | Jump 0x13a ; case 0x3
0120 7819 |x | Jump 0x13a ; case 0x4
0121 7818 |x | Jump 0x13a ; case 0x5
0122 7817 |x | Jump 0x13a ; case 0x6
0123 7816 |x | Jump 0x13a ; case 0x7
0124 7815 |x | Jump 0x13a ; case 0x8
0125 e271 | q | Load 0x1,0x71
0126 3000 |0 | Execute Record,Field_Type,Field_Number 0x0
0127 0337 | 7 | Declare_Variable Array
0128 481e |H | Short_Literal 0x1e
0129 4801 |H | Short_Literal 0x1
012a 4800 |H | Short_Literal 0x0
012b 00d9 | | Load_Top At_Offset_1
012c e402 | | Load 0x2,0x2
012d 01d6 | | Execute Vector,Field_Write
012e 3ffb |? | Loop_Increasing 0x12a
012f 00db | | Load_Top At_Offset_3
0130 00d9 | | Load_Top At_Offset_1
0131 00d9 | | Load_Top At_Offset_1
0132 3000 |0 | Execute Record,Field_Type,Field_Number 0x0
0133 0119 | | Execute Any,Check_In_Formal_Type
0134 00d1 | | Pop_Control Pop_Count_1
0135 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0136 4800 |H | Short_Literal 0x0
0137 00db | | Load_Top At_Offset_3
0138 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0139 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
013a 0869 | i | Execute_Immediate Raise,0x69
013b 0000 0000 | | .BLANK 0000[0x5]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 014a | J | .CONST 0x014a ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0003 | | .CONST 0x0003 ; Number of locals
0143 INIT_0140:
0143 e26f | o | Load 0x1,0x6f
0144 1b22 | " | Execute Package,Field_Read,Field_Number 0x22
0145 0322 | " | Declare_Variable Record
0146 00d8 | | Load_Top At_Offset_0
0147 1c00 | | Execute_Immediate Run_Utility,0x0
0148 029f 042b | +| Declare_Subprogram INIT_0428,For_Call
014a BODY_0140:
014a e5ff | | Load 0x2,-0x1
014b e273 | s | Load 0x1,0x73
014c e007 | | Load 0x0,0x7
014d 1815 | | Execute Package,Field_Execute,Field_Number 0x15
014e 70d4 |p | Jump_Nonzero 0x223
014f e5ff | | Load 0x2,-0x1
0150 461e |F | Jump_Case 0x1f
0151 78d1 |x | Jump 0x223 ; case 0x0
0152 78cb |x | Jump 0x21e ; case 0x1
0153 7822 |x" | Jump 0x176 ; case 0x2
0154 7827 |x' | Jump 0x17c ; case 0x3
0155 782c |x, | Jump 0x182 ; case 0x4
0156 7831 |x1 | Jump 0x188 ; case 0x5
0157 7836 |x6 | Jump 0x18e ; case 0x6
0158 783b |x; | Jump 0x194 ; case 0x7
0159 7840 |x@ | Jump 0x19a ; case 0x8
015a 7845 |xE | Jump 0x1a0 ; case 0x9
015b 784a |xJ | Jump 0x1a6 ; case 0xa
015c 784f |xO | Jump 0x1ac ; case 0xb
015d 7854 |xT | Jump 0x1b2 ; case 0xc
015e 7859 |xY | Jump 0x1b8 ; case 0xd
015f 785e |x^ | Jump 0x1be ; case 0xe
0160 7863 |xc | Jump 0x1c4 ; case 0xf
0161 7868 |xh | Jump 0x1ca ; case 0x10
0162 786d |xm | Jump 0x1d0 ; case 0x11
0163 7872 |xr | Jump 0x1d6 ; case 0x12
0164 7877 |xw | Jump 0x1dc ; case 0x13
0165 787c |x| | Jump 0x1e2 ; case 0x14
0166 7881 |x | Jump 0x1e8 ; case 0x15
0167 7886 |x | Jump 0x1ee ; case 0x16
0168 788b |x | Jump 0x1f4 ; case 0x17
0169 7890 |x | Jump 0x1fa ; case 0x18
016a 7895 |x | Jump 0x200 ; case 0x19
016b 789a |x | Jump 0x206 ; case 0x1a
016c 789f |x | Jump 0x20c ; case 0x1b
016d 78a4 |x | Jump 0x212 ; case 0x1c
016e 78a9 |x | Jump 0x218 ; case 0x1d
016f 7800 |x | Jump 0x170 ; case 0x1e
0170 826a | j | Call 0x1,0x6a
0171 e26f | o | Load 0x1,0x6f
0172 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0173 00da | | Load_Top At_Offset_2
0174 017d | } | Execute Record,Structure_Write
0175 78ad |x | Jump 0x223
0176 8216 | | Call 0x1,0x16
0177 e26f | o | Load 0x1,0x6f
0178 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0179 00da | | Load_Top At_Offset_2
017a 017d | } | Execute Record,Structure_Write
017b 78a7 |x | Jump 0x223
017c 8219 | | Call 0x1,0x19
017d e26f | o | Load 0x1,0x6f
017e 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
017f 00da | | Load_Top At_Offset_2
0180 017d | } | Execute Record,Structure_Write
0181 78a1 |x | Jump 0x223
0182 821c | | Call 0x1,0x1c
0183 e26f | o | Load 0x1,0x6f
0184 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0185 00da | | Load_Top At_Offset_2
0186 017d | } | Execute Record,Structure_Write
0187 789b |x | Jump 0x223
0188 821f | | Call 0x1,0x1f
0189 e26f | o | Load 0x1,0x6f
018a 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
018b 00da | | Load_Top At_Offset_2
018c 017d | } | Execute Record,Structure_Write
018d 7895 |x | Jump 0x223
018e 8222 | " | Call 0x1,0x22
018f e26f | o | Load 0x1,0x6f
0190 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0191 00da | | Load_Top At_Offset_2
0192 017d | } | Execute Record,Structure_Write
0193 788f |x | Jump 0x223
0194 8225 | % | Call 0x1,0x25
0195 e26f | o | Load 0x1,0x6f
0196 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0197 00da | | Load_Top At_Offset_2
0198 017d | } | Execute Record,Structure_Write
0199 7889 |x | Jump 0x223
019a 8228 | ( | Call 0x1,0x28
019b e26f | o | Load 0x1,0x6f
019c 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
019d 00da | | Load_Top At_Offset_2
019e 017d | } | Execute Record,Structure_Write
019f 7883 |x | Jump 0x223
01a0 822b | + | Call 0x1,0x2b
01a1 e26f | o | Load 0x1,0x6f
01a2 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
01a3 00da | | Load_Top At_Offset_2
01a4 017d | } | Execute Record,Structure_Write
01a5 787d |x} | Jump 0x223
01a6 822e | . | Call 0x1,0x2e
01a7 e26f | o | Load 0x1,0x6f
01a8 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
01a9 00da | | Load_Top At_Offset_2
01aa 017d | } | Execute Record,Structure_Write
01ab 7877 |xw | Jump 0x223
01ac 8231 | 1 | Call 0x1,0x31
01ad e26f | o | Load 0x1,0x6f
01ae 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
01af 00da | | Load_Top At_Offset_2
01b0 017d | } | Execute Record,Structure_Write
01b1 7871 |xq | Jump 0x223
01b2 8234 | 4 | Call 0x1,0x34
01b3 e26f | o | Load 0x1,0x6f
01b4 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
01b5 00da | | Load_Top At_Offset_2
01b6 017d | } | Execute Record,Structure_Write
01b7 786b |xk | Jump 0x223
01b8 8237 | 7 | Call 0x1,0x37
01b9 e26f | o | Load 0x1,0x6f
01ba 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
01bb 00da | | Load_Top At_Offset_2
01bc 017d | } | Execute Record,Structure_Write
01bd 7865 |xe | Jump 0x223
01be 823a | : | Call 0x1,0x3a
01bf e26f | o | Load 0x1,0x6f
01c0 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
01c1 00da | | Load_Top At_Offset_2
01c2 017d | } | Execute Record,Structure_Write
01c3 785f |x_ | Jump 0x223
01c4 823d | = | Call 0x1,0x3d
01c5 e26f | o | Load 0x1,0x6f
01c6 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
01c7 00da | | Load_Top At_Offset_2
01c8 017d | } | Execute Record,Structure_Write
01c9 7859 |xY | Jump 0x223
01ca 8240 | @ | Call 0x1,0x40
01cb e26f | o | Load 0x1,0x6f
01cc 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
01cd 00da | | Load_Top At_Offset_2
01ce 017d | } | Execute Record,Structure_Write
01cf 7853 |xS | Jump 0x223
01d0 8243 | C | Call 0x1,0x43
01d1 e26f | o | Load 0x1,0x6f
01d2 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
01d3 00da | | Load_Top At_Offset_2
01d4 017d | } | Execute Record,Structure_Write
01d5 784d |xM | Jump 0x223
01d6 8246 | F | Call 0x1,0x46
01d7 e26f | o | Load 0x1,0x6f
01d8 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
01d9 00da | | Load_Top At_Offset_2
01da 017d | } | Execute Record,Structure_Write
01db 7847 |xG | Jump 0x223
01dc 8249 | I | Call 0x1,0x49
01dd e26f | o | Load 0x1,0x6f
01de 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
01df 00da | | Load_Top At_Offset_2
01e0 017d | } | Execute Record,Structure_Write
01e1 7841 |xA | Jump 0x223
01e2 824c | L | Call 0x1,0x4c
01e3 e26f | o | Load 0x1,0x6f
01e4 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
01e5 00da | | Load_Top At_Offset_2
01e6 017d | } | Execute Record,Structure_Write
01e7 783b |x; | Jump 0x223
01e8 824f | O | Call 0x1,0x4f
01e9 e26f | o | Load 0x1,0x6f
01ea 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
01eb 00da | | Load_Top At_Offset_2
01ec 017d | } | Execute Record,Structure_Write
01ed 7835 |x5 | Jump 0x223
01ee 8252 | R | Call 0x1,0x52
01ef e26f | o | Load 0x1,0x6f
01f0 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
01f1 00da | | Load_Top At_Offset_2
01f2 017d | } | Execute Record,Structure_Write
01f3 782f |x/ | Jump 0x223
01f4 8255 | U | Call 0x1,0x55
01f5 e26f | o | Load 0x1,0x6f
01f6 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
01f7 00da | | Load_Top At_Offset_2
01f8 017d | } | Execute Record,Structure_Write
01f9 7829 |x) | Jump 0x223
01fa 8258 | X | Call 0x1,0x58
01fb e26f | o | Load 0x1,0x6f
01fc 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
01fd 00da | | Load_Top At_Offset_2
01fe 017d | } | Execute Record,Structure_Write
01ff 7823 |x# | Jump 0x223
0200 825b | [ | Call 0x1,0x5b
0201 e26f | o | Load 0x1,0x6f
0202 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0203 00da | | Load_Top At_Offset_2
0204 017d | } | Execute Record,Structure_Write
0205 781d |x | Jump 0x223
0206 825e | ^ | Call 0x1,0x5e
0207 e26f | o | Load 0x1,0x6f
0208 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0209 00da | | Load_Top At_Offset_2
020a 017d | } | Execute Record,Structure_Write
020b 7817 |x | Jump 0x223
020c 8261 | a | Call 0x1,0x61
020d e26f | o | Load 0x1,0x6f
020e 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
020f 00da | | Load_Top At_Offset_2
0210 017d | } | Execute Record,Structure_Write
0211 7811 |x | Jump 0x223
0212 8264 | d | Call 0x1,0x64
0213 e26f | o | Load 0x1,0x6f
0214 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0215 00da | | Load_Top At_Offset_2
0216 017d | } | Execute Record,Structure_Write
0217 780b |x | Jump 0x223
0218 8267 | g | Call 0x1,0x67
0219 e26f | o | Load 0x1,0x6f
021a 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
021b 00da | | Load_Top At_Offset_2
021c 017d | } | Execute Record,Structure_Write
021d 7805 |x | Jump 0x223
021e 8213 | | Call 0x1,0x13
021f e26f | o | Load 0x1,0x6f
0220 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0221 00da | | Load_Top At_Offset_2
0222 017d | } | Execute Record,Structure_Write
0223 8403 | | Call 0x2,0x3
0224 0831 | 1 | Execute_Immediate Raise,0x31
0225 0000 0000 | | .XXX[0x3]
0227 0000 | |
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022b | + | .CONST 0x022b ; Address of begin
0229 0004 | | .CONST 0x0004 ; Address of exception handler
022a 0001 | | .CONST 0x0001 ; Number of locals
022b BODY_0228:
022b INIT_0228:
022b 00db | | Load_Top At_Offset_3
022c 461e |F | Jump_Case 0x1f
022d 7877 |xw | Jump 0x2a5 ; case 0x0
022e 7874 |xt | Jump 0x2a3 ; case 0x1
022f 781f |x | Jump 0x24f ; case 0x2
0230 7821 |x! | Jump 0x252 ; case 0x3
0231 7823 |x# | Jump 0x255 ; case 0x4
0232 7825 |x% | Jump 0x258 ; case 0x5
0233 7827 |x' | Jump 0x25b ; case 0x6
0234 7829 |x) | Jump 0x25e ; case 0x7
0235 782b |x+ | Jump 0x261 ; case 0x8
0236 782d |x- | Jump 0x264 ; case 0x9
0237 782f |x/ | Jump 0x267 ; case 0xa
0238 7831 |x1 | Jump 0x26a ; case 0xb
0239 7833 |x3 | Jump 0x26d ; case 0xc
023a 7835 |x5 | Jump 0x270 ; case 0xd
023b 7837 |x7 | Jump 0x273 ; case 0xe
023c 7839 |x9 | Jump 0x276 ; case 0xf
023d 783b |x; | Jump 0x279 ; case 0x10
023e 783d |x= | Jump 0x27c ; case 0x11
023f 783f |x? | Jump 0x27f ; case 0x12
0240 7841 |xA | Jump 0x282 ; case 0x13
0241 7843 |xC | Jump 0x285 ; case 0x14
0242 7845 |xE | Jump 0x288 ; case 0x15
0243 7847 |xG | Jump 0x28b ; case 0x16
0244 7849 |xI | Jump 0x28e ; case 0x17
0245 784b |xK | Jump 0x291 ; case 0x18
0246 784d |xM | Jump 0x294 ; case 0x19
0247 784f |xO | Jump 0x297 ; case 0x1a
0248 7851 |xQ | Jump 0x29a ; case 0x1b
0249 7853 |xS | Jump 0x29d ; case 0x1c
024a 7855 |xU | Jump 0x2a0 ; case 0x1d
024b 7800 |x | Jump 0x24c ; case 0x1e
024c 00da | | Load_Top At_Offset_2
024d 826b | k | Call 0x1,0x6b
024e 7856 |xV | Jump 0x2a5
024f 00da | | Load_Top At_Offset_2
0250 8217 | | Call 0x1,0x17
0251 7853 |xS | Jump 0x2a5
0252 00da | | Load_Top At_Offset_2
0253 821a | | Call 0x1,0x1a
0254 7850 |xP | Jump 0x2a5
0255 00da | | Load_Top At_Offset_2
0256 821d | | Call 0x1,0x1d
0257 784d |xM | Jump 0x2a5
0258 00da | | Load_Top At_Offset_2
0259 8220 | | Call 0x1,0x20
025a 784a |xJ | Jump 0x2a5
025b 00da | | Load_Top At_Offset_2
025c 8223 | # | Call 0x1,0x23
025d 7847 |xG | Jump 0x2a5
025e 00da | | Load_Top At_Offset_2
025f 8226 | & | Call 0x1,0x26
0260 7844 |xD | Jump 0x2a5
0261 00da | | Load_Top At_Offset_2
0262 8229 | ) | Call 0x1,0x29
0263 7841 |xA | Jump 0x2a5
0264 00da | | Load_Top At_Offset_2
0265 822c | , | Call 0x1,0x2c
0266 783e |x> | Jump 0x2a5
0267 00da | | Load_Top At_Offset_2
0268 822f | / | Call 0x1,0x2f
0269 783b |x; | Jump 0x2a5
026a 00da | | Load_Top At_Offset_2
026b 8232 | 2 | Call 0x1,0x32
026c 7838 |x8 | Jump 0x2a5
026d 00da | | Load_Top At_Offset_2
026e 8235 | 5 | Call 0x1,0x35
026f 7835 |x5 | Jump 0x2a5
0270 00da | | Load_Top At_Offset_2
0271 8238 | 8 | Call 0x1,0x38
0272 7832 |x2 | Jump 0x2a5
0273 00da | | Load_Top At_Offset_2
0274 823b | ; | Call 0x1,0x3b
0275 782f |x/ | Jump 0x2a5
0276 00da | | Load_Top At_Offset_2
0277 823e | > | Call 0x1,0x3e
0278 782c |x, | Jump 0x2a5
0279 00da | | Load_Top At_Offset_2
027a 8241 | A | Call 0x1,0x41
027b 7829 |x) | Jump 0x2a5
027c 00da | | Load_Top At_Offset_2
027d 8244 | D | Call 0x1,0x44
027e 7826 |x& | Jump 0x2a5
027f 00da | | Load_Top At_Offset_2
0280 8247 | G | Call 0x1,0x47
0281 7823 |x# | Jump 0x2a5
0282 00da | | Load_Top At_Offset_2
0283 824a | J | Call 0x1,0x4a
0284 7820 |x | Jump 0x2a5
0285 00da | | Load_Top At_Offset_2
0286 824d | M | Call 0x1,0x4d
0287 781d |x | Jump 0x2a5
0288 00da | | Load_Top At_Offset_2
0289 8250 | P | Call 0x1,0x50
028a 781a |x | Jump 0x2a5
028b 00da | | Load_Top At_Offset_2
028c 8253 | S | Call 0x1,0x53
028d 7817 |x | Jump 0x2a5
028e 00da | | Load_Top At_Offset_2
028f 8256 | V | Call 0x1,0x56
0290 7814 |x | Jump 0x2a5
0291 00da | | Load_Top At_Offset_2
0292 8259 | Y | Call 0x1,0x59
0293 7811 |x | Jump 0x2a5
0294 00da | | Load_Top At_Offset_2
0295 825c | \ | Call 0x1,0x5c
0296 780e |x | Jump 0x2a5
0297 00da | | Load_Top At_Offset_2
0298 825f | _ | Call 0x1,0x5f
0299 780b |x | Jump 0x2a5
029a 00da | | Load_Top At_Offset_2
029b 8262 | b | Call 0x1,0x62
029c 7808 |x | Jump 0x2a5
029d 00da | | Load_Top At_Offset_2
029e 8265 | e | Call 0x1,0x65
029f 7805 |x | Jump 0x2a5
02a0 00da | | Load_Top At_Offset_2
02a1 8268 | h | Call 0x1,0x68
02a2 7802 |x | Jump 0x2a5
02a3 00da | | Load_Top At_Offset_2
02a4 8214 | | Call 0x1,0x14
02a5 e211 | | Load 0x1,0x11
02a6 6815 |h | Jump_Zero 0x2bc
02a7 00db | | Load_Top At_Offset_3
02a8 680d |h | Jump_Zero 0x2b6
02a9 4806 |H | Short_Literal 0x6
02aa e00c | | Load 0x0,0xc
02ab 1819 | | Execute Package,Field_Execute,Field_Number 0x19
02ac 4808 |H | Short_Literal 0x8
02ad e00c | | Load 0x0,0xc
02ae 1819 | | Execute Package,Field_Execute,Field_Number 0x19
02af 0278 | x | Execute Discrete,Or
02b0 6805 |h | Jump_Zero 0x2b6
02b1 00da | | Load_Top At_Offset_2
02b2 e5fe | | Load 0x2,-0x2
02b3 e273 | s | Load 0x1,0x73
02b4 e00c | | Load 0x0,0xc
02b5 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
02b6 e00c | | Load 0x0,0xc
02b7 1817 | | Execute Package,Field_Execute,Field_Number 0x17
02b8 00db | | Load_Top At_Offset_3
02b9 7002 |p | Jump_Nonzero 0x2bc
02ba e00c | | Load 0x0,0xc
02bb 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02bc 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02bd 0000 0000 | | .XXX[0x3]
02bf 0000 | |
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c3 | | .CONST 0x02c3 ; Address of begin
02c1 0004 | | .CONST 0x0004 ; Address of exception handler
02c2 0001 | | .CONST 0x0001 ; Number of locals
02c3 BODY_02c0:
02c3 INIT_02c0:
02c3 00cf | | Action Mark_Auxiliary
02c4 481e |H | Short_Literal 0x1e
02c5 4801 |H | Short_Literal 0x1
02c6 0007 | | Action Break_Optional
02c7 4800 |H | Short_Literal 0x0
02c8 00d9 | | Load_Top At_Offset_1
02c9 e272 | r | Load 0x1,0x72
02ca 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
02cb 01d6 | | Execute Vector,Field_Write
02cc 00c8 | | Action Pop_Auxiliary_Range
02cd 3ff9 |? | Loop_Increasing 0x2c7
02ce 00ce | | Action Pop_Auxiliary
02cf 4800 |H | Short_Literal 0x0
02d0 e272 | r | Load 0x1,0x72
02d1 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02d2 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02d3 0000 0000 | | .BLANK 0000[0x5]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02e8 | | .CONST 0x02e8 ; Address of begin
02d9 0004 | | .CONST 0x0004 ; Address of exception handler
02da 0005 | | .CONST 0x0005 ; Number of locals
02db INIT_02d8:
02db e007 | | Load 0x0,0x7
02dc 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
02dd 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
02de 00e3 | | Load_Encached Natural_Cache
02df 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
02e0 6077 |`w | Indirect_Literal Discrete,0x358,{0x00000000, 0x7fffffff}
02e1 00e3 | | Load_Encached Natural_Cache
02e2 03f1 | | Declare_Variable Discrete,With_Value
02e3 e004 | | Load 0x0,0x4
02e4 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
02e5 0322 | " | Declare_Variable Record
02e6 00d8 | | Load_Top At_Offset_0
02e7 1c00 | | Execute_Immediate Run_Utility,0x0
02e8 BODY_02d8:
02e8 00cf | | Action Mark_Auxiliary
02e9 e26c | l | Load 0x1,0x6c
02ea 4801 |H | Short_Literal 0x1
02eb 0263 | c | Execute Discrete,Above_Bound
02ec 7038 |p8 | Jump_Nonzero 0x325
02ed 00d8 | | Load_Top At_Offset_0
02ee 00d8 | | Load_Top At_Offset_0
02ef e007 | | Load 0x0,0x7
02f0 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
02f1 0260 | ` | Execute Discrete,In_Type
02f2 7001 |p | Jump_Nonzero 0x2f4
02f3 0801 | | Execute_Immediate Raise,0x1
02f4 8274 | t | Call 0x1,0x74
02f5 e005 | | Load 0x0,0x5
02f6 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
02f7 682b |h+ | Jump_Zero 0x323
02f8 4800 |H | Short_Literal 0x0
02f9 a403 | | Store_Unchecked 0x2,0x3
02fa 00cf | | Action Mark_Auxiliary
02fb e272 | r | Load 0x1,0x72
02fc 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02fd 4801 |H | Short_Literal 0x1
02fe 0263 | c | Execute Discrete,Above_Bound
02ff 700b |p | Jump_Nonzero 0x30b
0300 00d8 | | Load_Top At_Offset_0
0301 e272 | r | Load 0x1,0x72
0302 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0303 01d7 | | Execute Vector,Field_Read
0304 e408 | | Load 0x2,0x8
0305 027f | | Execute Discrete,Equal
0306 6802 |h | Jump_Zero 0x309
0307 00d8 | | Load_Top At_Offset_0
0308 a403 | | Store_Unchecked 0x2,0x3
0309 00c8 | | Action Pop_Auxiliary_Range
030a 3ff5 |? | Loop_Increasing 0x300
030b 00ce | | Action Pop_Auxiliary
030c e403 | | Load 0x2,0x3
030d 700a |p | Jump_Nonzero 0x318
030e 00d8 | | Load_Top At_Offset_0
030f 00d8 | | Load_Top At_Offset_0
0310 e007 | | Load 0x0,0x7
0311 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
0312 0260 | ` | Execute Discrete,In_Type
0313 7001 |p | Jump_Nonzero 0x315
0314 0801 | | Execute_Immediate Raise,0x1
0315 a402 | | Store_Unchecked 0x2,0x2
0316 00d2 | | Pop_Control Pop_Count_2
0317 780d |x | Jump 0x325
0318 e403 | | Load 0x2,0x3
0319 e404 | | Load 0x2,0x4
031a 027c | | | Execute Discrete,Less
031b 6807 |h | Jump_Zero 0x323
031c e403 | | Load 0x2,0x3
031d a404 | | Store_Unchecked 0x2,0x4
031e e404 | | Load 0x2,0x4
031f e272 | r | Load 0x1,0x72
0320 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0321 01d7 | | Execute Vector,Field_Read
0322 a402 | | Store_Unchecked 0x2,0x2
0323 00c8 | | Action Pop_Auxiliary_Range
0324 3fc8 |? | Loop_Increasing 0x2ed
0325 00ce | | Action Pop_Auxiliary
0326 00db | | Load_Top At_Offset_3
0327 7003 |p | Jump_Nonzero 0x32b
0328 8276 | v | Call 0x1,0x76
0329 4800 |H | Short_Literal 0x0
032a 00ca | | Action Exit_Nullary_Function
032b e272 | r | Load 0x1,0x72
032c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
032d 0a01 | | Execute_Immediate Plus,0x1
032e e272 | r | Load 0x1,0x72
032f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0330 e272 | r | Load 0x1,0x72
0331 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0332 0c1f | | Execute_Immediate Greater_Equal,0x1f
0333 6813 |h | Jump_Zero 0x347
0334 481e |H | Short_Literal 0x1e
0335 e272 | r | Load 0x1,0x72
0336 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0337 00cf | | Action Mark_Auxiliary
0338 481d |H | Short_Literal 0x1d
0339 4801 |H | Short_Literal 0x1
033a 0007 | | Action Break_Optional
033b 00d8 | | Load_Top At_Offset_0
033c 0a01 | | Execute_Immediate Plus,0x1
033d e272 | r | Load 0x1,0x72
033e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
033f 01d7 | | Execute Vector,Field_Read
0340 00d9 | | Load_Top At_Offset_1
0341 e272 | r | Load 0x1,0x72
0342 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0343 01d6 | | Execute Vector,Field_Write
0344 00c8 | | Action Pop_Auxiliary_Range
0345 3ff5 |? | Loop_Increasing 0x33b
0346 00ce | | Action Pop_Auxiliary
0347 00db | | Load_Top At_Offset_3
0348 e272 | r | Load 0x1,0x72
0349 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
034a e272 | r | Load 0x1,0x72
034b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
034c 01d6 | | Execute Vector,Field_Write
034d 00db | | Load_Top At_Offset_3
034e 8274 | t | Call 0x1,0x74
034f e005 | | Load 0x0,0x5
0350 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0351 00d9 | | Load_Top At_Offset_1
0352 017d | } | Execute Record,Structure_Write
0353 00db | | Load_Top At_Offset_3
0354 00d9 | | Load_Top At_Offset_1
0355 8275 | u | Call 0x1,0x75
0356 4801 |H | Short_Literal 0x1
0357 00ca | | Action Exit_Nullary_Function
0358 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
035c 0000 0000 | | .BLANK 0000[0x4]
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 0370 | p | .CONST 0x0370 ; Address of begin
0361 0004 | | .CONST 0x0004 ; Address of exception handler
0362 0005 | | .CONST 0x0005 ; Number of locals
0363 INIT_0360:
0363 e007 | | Load 0x0,0x7
0364 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
0365 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0366 00e3 | | Load_Encached Natural_Cache
0367 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0368 67ef |g | Indirect_Literal Discrete,0x358,{0x00000000, 0x7fffffff}
0369 00e3 | | Load_Encached Natural_Cache
036a 03f1 | | Declare_Variable Discrete,With_Value
036b e004 | | Load 0x0,0x4
036c 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
036d 0322 | " | Declare_Variable Record
036e 00d8 | | Load_Top At_Offset_0
036f 1c00 | | Execute_Immediate Run_Utility,0x0
0370 BODY_0360:
0370 e00c | | Load 0x0,0xc
0371 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0372 00cf | | Action Mark_Auxiliary
0373 e26c | l | Load 0x1,0x6c
0374 4801 |H | Short_Literal 0x1
0375 0263 | c | Execute Discrete,Above_Bound
0376 703a |p: | Jump_Nonzero 0x3b1
0377 00d8 | | Load_Top At_Offset_0
0378 00d8 | | Load_Top At_Offset_0
0379 e007 | | Load 0x0,0x7
037a 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
037b 0260 | ` | Execute Discrete,In_Type
037c 7001 |p | Jump_Nonzero 0x37e
037d 0801 | | Execute_Immediate Raise,0x1
037e 8274 | t | Call 0x1,0x74
037f e005 | | Load 0x0,0x5
0380 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
0381 682d |h- | Jump_Zero 0x3af
0382 e00c | | Load 0x0,0xc
0383 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0384 4800 |H | Short_Literal 0x0
0385 a403 | | Store_Unchecked 0x2,0x3
0386 00cf | | Action Mark_Auxiliary
0387 e272 | r | Load 0x1,0x72
0388 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0389 4801 |H | Short_Literal 0x1
038a 0263 | c | Execute Discrete,Above_Bound
038b 700b |p | Jump_Nonzero 0x397
038c 00d8 | | Load_Top At_Offset_0
038d e272 | r | Load 0x1,0x72
038e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
038f 01d7 | | Execute Vector,Field_Read
0390 e408 | | Load 0x2,0x8
0391 027f | | Execute Discrete,Equal
0392 6802 |h | Jump_Zero 0x395
0393 00d8 | | Load_Top At_Offset_0
0394 a403 | | Store_Unchecked 0x2,0x3
0395 00c8 | | Action Pop_Auxiliary_Range
0396 3ff5 |? | Loop_Increasing 0x38c
0397 00ce | | Action Pop_Auxiliary
0398 e403 | | Load 0x2,0x3
0399 700a |p | Jump_Nonzero 0x3a4
039a 00d8 | | Load_Top At_Offset_0
039b 00d8 | | Load_Top At_Offset_0
039c e007 | | Load 0x0,0x7
039d 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
039e 0260 | ` | Execute Discrete,In_Type
039f 7001 |p | Jump_Nonzero 0x3a1
03a0 0801 | | Execute_Immediate Raise,0x1
03a1 a402 | | Store_Unchecked 0x2,0x2
03a2 00d2 | | Pop_Control Pop_Count_2
03a3 780d |x | Jump 0x3b1
03a4 e403 | | Load 0x2,0x3
03a5 e404 | | Load 0x2,0x4
03a6 027c | | | Execute Discrete,Less
03a7 6807 |h | Jump_Zero 0x3af
03a8 e403 | | Load 0x2,0x3
03a9 a404 | | Store_Unchecked 0x2,0x4
03aa e404 | | Load 0x2,0x4
03ab e272 | r | Load 0x1,0x72
03ac 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
03ad 01d7 | | Execute Vector,Field_Read
03ae a402 | | Store_Unchecked 0x2,0x2
03af 00c8 | | Action Pop_Auxiliary_Range
03b0 3fc6 |? | Loop_Increasing 0x377
03b1 00ce | | Action Pop_Auxiliary
03b2 00db | | Load_Top At_Offset_3
03b3 7005 |p | Jump_Nonzero 0x3b9
03b4 8276 | v | Call 0x1,0x76
03b5 e00c | | Load 0x0,0xc
03b6 1818 | | Execute Package,Field_Execute,Field_Number 0x18
03b7 4800 |H | Short_Literal 0x0
03b8 00ca | | Action Exit_Nullary_Function
03b9 e272 | r | Load 0x1,0x72
03ba 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03bb 0a01 | | Execute_Immediate Plus,0x1
03bc e272 | r | Load 0x1,0x72
03bd 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
03be e272 | r | Load 0x1,0x72
03bf 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03c0 0c1f | | Execute_Immediate Greater_Equal,0x1f
03c1 6813 |h | Jump_Zero 0x3d5
03c2 481e |H | Short_Literal 0x1e
03c3 e272 | r | Load 0x1,0x72
03c4 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
03c5 00cf | | Action Mark_Auxiliary
03c6 481d |H | Short_Literal 0x1d
03c7 4801 |H | Short_Literal 0x1
03c8 0007 | | Action Break_Optional
03c9 00d8 | | Load_Top At_Offset_0
03ca 0a01 | | Execute_Immediate Plus,0x1
03cb e272 | r | Load 0x1,0x72
03cc 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
03cd 01d7 | | Execute Vector,Field_Read
03ce 00d9 | | Load_Top At_Offset_1
03cf e272 | r | Load 0x1,0x72
03d0 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
03d1 01d6 | | Execute Vector,Field_Write
03d2 00c8 | | Action Pop_Auxiliary_Range
03d3 3ff5 |? | Loop_Increasing 0x3c9
03d4 00ce | | Action Pop_Auxiliary
03d5 00db | | Load_Top At_Offset_3
03d6 e272 | r | Load 0x1,0x72
03d7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03d8 e272 | r | Load 0x1,0x72
03d9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
03da 01d6 | | Execute Vector,Field_Write
03db 00db | | Load_Top At_Offset_3
03dc 8274 | t | Call 0x1,0x74
03dd e005 | | Load 0x0,0x5
03de 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
03df 00d9 | | Load_Top At_Offset_1
03e0 017d | } | Execute Record,Structure_Write
03e1 4805 |H | Short_Literal 0x5
03e2 e00c | | Load 0x0,0xc
03e3 1819 | | Execute Package,Field_Execute,Field_Number 0x19
03e4 4807 |H | Short_Literal 0x7
03e5 e00c | | Load 0x0,0xc
03e6 1819 | | Execute Package,Field_Execute,Field_Number 0x19
03e7 0278 | x | Execute Discrete,Or
03e8 6805 |h | Jump_Zero 0x3ee
03e9 00d8 | | Load_Top At_Offset_0
03ea e402 | | Load 0x2,0x2
03eb e273 | s | Load 0x1,0x73
03ec e00c | | Load 0x0,0xc
03ed 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
03ee 00db | | Load_Top At_Offset_3
03ef 00d9 | | Load_Top At_Offset_1
03f0 8275 | u | Call 0x1,0x75
03f1 e00c | | Load 0x0,0xc
03f2 1817 | | Execute Package,Field_Execute,Field_Number 0x17
03f3 4801 |H | Short_Literal 0x1
03f4 00ca | | Action Exit_Nullary_Function
03f5 0000 0000 | | .XXX[0x3]
03f7 0000 | |
03f8 ; --------------------------------------------------------------------------------------
03f8 ; SUBPROGRAM
03f8 ; --------------------------------------------------------------------------------------
03f8 03fc | | .CONST 0x03fc ; Address of begin
03f9 0004 | | .CONST 0x0004 ; Address of exception handler
03fa 0002 | | .CONST 0x0002 ; Number of locals
03fb INIT_03f8:
03fb 00e1 | | Load_Encached Boolean_Cache
03fc BODY_03f8:
03fc e211 | | Load 0x1,0x11
03fd 6803 |h | Jump_Zero 0x401
03fe 4802 |H | Short_Literal 0x2
03ff e00c | | Load 0x0,0xc
0400 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0401 e5fc | | Load 0x2,-0x4
0402 601d |` | Indirect_Literal Discrete,0x420,{0x00000000, 0x7fffffff}
0403 027f | | Execute Discrete,Equal
0404 6809 |h | Jump_Zero 0x40e
0405 00cf | | Action Mark_Auxiliary
0406 85fd | | Call 0x2,-0x3
0407 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0408 00d9 | | Load_Top At_Offset_1
0409 6802 |h | Jump_Zero 0x40c
040a 00c9 | | Action Pop_Auxiliary_Loop
040b 7ffa | | Jump 0x406
040c 00ce | | Action Pop_Auxiliary
040d 780e |x | Jump 0x41c
040e 00cf | | Action Mark_Auxiliary
040f e5fc | | Load 0x2,-0x4
0410 4801 |H | Short_Literal 0x1
0411 0263 | c | Execute Discrete,Above_Bound
0412 7008 |p | Jump_Nonzero 0x41b
0413 85fd | | Call 0x2,-0x3
0414 a402 | | Store_Unchecked 0x2,0x2
0415 00db | | Load_Top At_Offset_3
0416 7002 |p | Jump_Nonzero 0x419
0417 00d2 | | Pop_Control Pop_Count_2
0418 7802 |x | Jump 0x41b
0419 00c8 | | Action Pop_Auxiliary_Range
041a 3ff8 |? | Loop_Increasing 0x413
041b 00ce | | Action Pop_Auxiliary
041c 00d8 | | Load_Top At_Offset_0
041d 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
041e 0000 0000 | | .XXX[0x2]
0420 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
0424 0000 0000 | | .BLANK 0000[0x4]
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 042e | . | .CONST 0x042e ; Address of begin
0429 0004 | | .CONST 0x0004 ; Address of exception handler
042a 0002 | | .CONST 0x0002 ; Number of locals
042b INIT_0428:
042b e402 | | Load 0x2,0x2
042c e26f | o | Load 0x1,0x6f
042d 1816 | | Execute Package,Field_Execute,Field_Number 0x16
042e BODY_0428:
042e e211 | | Load 0x1,0x11
042f 680e |h | Jump_Zero 0x43e
0430 e5ff | | Load 0x2,-0x1
0431 680c |h | Jump_Zero 0x43e
0432 4804 |H | Short_Literal 0x4
0433 e00c | | Load 0x0,0xc
0434 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0435 6808 |h | Jump_Zero 0x43e
0436 00d8 | | Load_Top At_Offset_0
0437 00d9 | | Load_Top At_Offset_1
0438 e005 | | Load 0x0,0x5
0439 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
043a e5ff | | Load 0x2,-0x1
043b e273 | s | Load 0x1,0x73
043c e00c | | Load 0x0,0xc
043d 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
043e e402 | | Load 0x2,0x2
043f e26f | o | Load 0x1,0x6f
0440 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0441 00d1 | | Pop_Control Pop_Count_1
0442 00d8 | | Load_Top At_Offset_0
0443 00cb | | Action Pop_Block_With_Result
0444 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0445 ; --------------------------------------------------------------------------------------
0445 ; STRING TABLE
0445 ; --------------------------------------------------------------------------------------
0445 0004 | | .STRTAB 0x0004->0x0447 ; "LRU"
0446 0005 | | .STREND 0x0005->0x0448
0447 4c52 5500 |LRU | .STRTAB_STRINGS
0449 0000 0000 | | .BLANK 0000[0x7]
0450 ; --------------------------------------------------------------------------------------
0450 ; Debug Table
0450 ; --------------------------------------------------------------------------------------
0450 0004 0001 | | .DEBUG4 0x0004,0x0001,0xdbe6,0x0000,0x0001,0x000b
0456 000b 0482 | | .DBG4T 0x000b,0x0482,0xc000,0x0000
045a 0010 0486 | | .DBG4T 0x0010,0x0486,0xc000,0x8000
045e 00fb 04c9 | | .DBG4T 0x00fb,0x04c9,0x1002,0x0000
0462 011b 0000 | | .DBG4T 0x011b,0x0000,0x1005,0x0000
0466 0143 04d1 | C | .DBG4T 0x0143,0x04d1,0x1002,0x4000
046a 022b 0516 | + | .DBG4T 0x022b,0x0516,0x1001,0x4000
046e 02c3 0562 | b| .DBG4T 0x02c3,0x0562,0x1001,0x0000
0472 02db 0567 | g| .DBG4T 0x02db,0x0567,0x1002,0x0000
0476 0363 0585 | c | .DBG4T 0x0363,0x0585,0x1002,0x0000
047a 03fb 05a9 | | .DBG4T 0x03fb,0x05a9,0x3802,0x4002
047e 042b 05be | + | .DBG4T 0x042b,0x05be,0x1004,0x0000
0482 ; --------------------------------------------------------------------------------------
0482 ; Debug chain
0482 ; --------------------------------------------------------------------------------------
0482 0002 0000 | | .DBGLEN 0x0002,0x0000
0484 000b 000d | | .DBGLNO 0x000b,0x000d
0486 ; --------------------------------------------------------------------------------------
0486 ; Debug chain
0486 ; --------------------------------------------------------------------------------------
0486 000f 0023 | #| .DBGLEN 0x000f,0x0023
0488 0010 001a | | .DBGLNO 0x0010,0x001a,0x0021,0x0027,0x002b,0x002d,0x002f,0x0031,0x0033,0x0035,0x0037,0x0039,0x003b,0x0044,0x004d,0x004f,0x0053,0x0058,0x005d,0x0062,0x0067,0x006c,0x0071,0x0076,0x007b,0x0080,0x0085,0x008a,0x008f,0x0094,0x0099,0x009e,0x00a3,0x00a8,0x00ad,0x00b2,0x00b7,0x00bc,0x00c1,0x00c6,0x00cb,0x00d0,0x00d5,0x00da,0x00df,0x00e4,0x00e9,0x00eb,0x00ee,0x00f1
04ba 0001 0003 | | .XXX[0xf]
04bc 0004 0005 | |
04be 0006 0007 | |
04c0 0008 0009 | |
04c2 000a 000b | |
04c4 000c 000d | |
04c6 000e 000f | |
04c8 0010 | |
04c9 ; --------------------------------------------------------------------------------------
04c9 ; Debug chain
04c9 ; --------------------------------------------------------------------------------------
04c9 0000 0006 | | .DBGLEN 0x0000,0x0006
04cb 00fb 00fe | | .DBGLNO 0x00fb,0x00fe,0x0100,0x0103,0x0109,0x010f
04d1 ; --------------------------------------------------------------------------------------
04d1 ; Debug chain
04d1 ; --------------------------------------------------------------------------------------
04d1 0001 0021 | !| .DBGLEN 0x0001,0x0021
04d3 0143 014a | C J| .DBGLNO 0x0143,0x014a,0x014f,0x0170,0x0176,0x017c,0x0182,0x0188,0x018e,0x0194,0x019a,0x01a0,0x01a6,0x01ac,0x01b2,0x01b8,0x01be,0x01c4,0x01ca,0x01d0,0x01d6,0x01dc,0x01e2,0x01e8,0x01ee,0x01f4,0x01fa,0x0200,0x0206,0x020c,0x0212,0x0218,0x021e,0x0223
04f5 0001 0002 | | .XXX[0x21]
04f7 0020 0004 | |
04f9 0005 0006 | |
04fb 0007 0008 | |
04fd 0009 000a | |
04ff 000b 000c | |
0501 000d 000e | |
0503 000f 0010 | |
0505 0011 0012 | |
0507 0013 0014 | |
0509 0015 0016 | |
050b 0017 0018 | |
050d 0019 001a | |
050f 001b 001c | |
0511 001d 001e | |
0513 001f 0003 | |
0515 0022 | " |
0516 ; --------------------------------------------------------------------------------------
0516 ; Debug chain
0516 ; --------------------------------------------------------------------------------------
0516 0000 0025 | %| .DBGLEN 0x0000,0x0025
0518 022b 024c | + L| .DBGLNO 0x022b,0x024c,0x024f,0x0252,0x0255,0x0258,0x025b,0x025e,0x0261,0x0264,0x0267,0x026a,0x026d,0x0270,0x0273,0x0276,0x0279,0x027c,0x027f,0x0282,0x0285,0x0288,0x028b,0x028e,0x0291,0x0294,0x0297,0x029a,0x029d,0x02a0,0x02a3,0x02a5,0x02a7,0x02b1,0x02b6,0x02b8,0x02ba
053d 0001 001f | | .XXX[0x25]
053f 0003 0004 | |
0541 0005 0006 | |
0543 0007 0008 | |
0545 0009 000a | |
0547 000b 000c | |
0549 000d 000e | |
054b 000f 0010 | |
054d 0011 0012 | |
054f 0013 0014 | |
0551 0015 0016 | |
0553 0017 0018 | |
0555 0019 001a | |
0557 001b 001c | |
0559 001d 001e | |
055b 0002 0021 | !|
055d 0022 0023 | " #|
055f 0024 0025 | $ %|
0561 0026 | & |
0562 ; --------------------------------------------------------------------------------------
0562 ; Debug chain
0562 ; --------------------------------------------------------------------------------------
0562 0000 0003 | | .DBGLEN 0x0000,0x0003
0564 02c4 02c7 | | .DBGLNO 0x02c4,0x02c7,0x02cf
0567 ; --------------------------------------------------------------------------------------
0567 ; Debug chain
0567 ; --------------------------------------------------------------------------------------
0567 0004 0018 | | .DBGLEN 0x0004,0x0018
0569 02db 02de | | .DBGLNO 0x02db,0x02de,0x02e0,0x02e3,0x02e9,0x02ed,0x02f8,0x02fb,0x0300,0x0307,0x030c,0x030e,0x0316,0x0318,0x031c,0x031e,0x0326,0x0328,0x0329,0x032b,0x0330,0x0334,0x0338,0x033b,0x0347,0x034d,0x0353,0x0356
0585 ; --------------------------------------------------------------------------------------
0585 ; Debug chain
0585 ; --------------------------------------------------------------------------------------
0585 0004 001e | | .DBGLEN 0x0004,0x001e
0587 0363 0366 | c f| .DBGLNO 0x0363,0x0366,0x0368,0x036b,0x0370,0x0373,0x0377,0x0382,0x0384,0x0387,0x038c,0x0393,0x0398,0x039a,0x03a2,0x03a4,0x03a8,0x03aa,0x03b2,0x03b4,0x03b5,0x03b7,0x03b9,0x03be,0x03c2,0x03c6,0x03c9,0x03d5,0x03db,0x03e1,0x03e9,0x03ee,0x03f1,0x03f3
05a9 ; --------------------------------------------------------------------------------------
05a9 ; Debug chain
05a9 ; --------------------------------------------------------------------------------------
05a9 0001 0009 | | .DBGLEN 0x0001,0x0009
05ab 03fb 03fc | | .DBGLNO 0x03fb,0x03fc,0x03fe,0x0401,0x0406,0x0408,0x040f,0x0413,0x0415,0x041c
05b5 0001 0002 | | .XXX[0x9]
05b7 0003 0005 | |
05b9 0006 0007 | |
05bb 0008 0009 | |
05bd 000a | |
05be ; --------------------------------------------------------------------------------------
05be ; Debug chain
05be ; --------------------------------------------------------------------------------------
05be 0001 0005 | | .DBGLEN 0x0001,0x0005
05c0 042b 042e | + .| .DBGLNO 0x042b,0x042e,0x0430,0x0436,0x043e,0x0442
05c6 0000 0000 | | .BLANK 0000[0x3a]