|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2048 (0x800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0f80a5
└─⟦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 02e0 | | .CONST 0x02e0 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0010 | | .CONST 0x0010 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0001 | | .CONST 0x0001 ; Number of locals
000b INIT_0008:
000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 00bf | | Action Accept_Activation
000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd
000f 00c7 | | Action Elaborate_Subprogram
0010 BODY_0008:
0010 00bc | | Action Signal_Activated
0011 00bb | | Action Signal_Completion
0012 0000 0000 | | .BLANK 0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 0047 | G | .CONST 0x0047 ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 000e | | .CONST 0x000e ; Number of locals
001b INIT_0018:
001b 0007 | | Action Break_Optional
001c 0007 | | Action Break_Optional
001d 0007 | | Action Break_Optional
001e e001 | | Load 0x0,0x1
001f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0020 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0021 02c7 | | Declare_Variable Any
0022 00d8 | | Load_Top At_Offset_0
0023 1c00 | | Execute_Immediate Run_Utility,0x0
0024 e002 | | Load 0x0,0x2
0025 e003 | | Load 0x0,0x3
0026 e004 | | Load 0x0,0x4
0027 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0028 e004 | | Load 0x0,0x4
0029 1912 | | Execute Package,Field_Reference,Field_Number 0x12
002a 00e0 | | Load_Encached Standard_Cache
002b 1921 | ! | Execute Package,Field_Reference,Field_Number 0x21
002c 480a |H | Short_Literal 0xa
002d e005 | | Load 0x0,0x5
002e 0387 | | Declare_Variable Package
002f 00d8 | | Load_Top At_Offset_0
0030 020f | | Execute Module,Activate
0031 00d8 | | Load_Top At_Offset_0
0032 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0033 e403 | | Load 0x2,0x3
0034 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0035 e403 | | Load 0x2,0x3
0036 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0037 029f 0093 | | Declare_Subprogram INIT_0090,For_Call
0039 029f 00bb | | Declare_Subprogram INIT_00b8,For_Call
003b 029f 00cb | | Declare_Subprogram INIT_00c8,For_Call
003d 029f 00d3 | | Declare_Subprogram INIT_00d0,For_Call
003f 029f 00e3 | | Declare_Subprogram INIT_00e0,For_Call
0041 029f 00f3 | | Declare_Subprogram INIT_00f0,For_Call
0043 029f 011b | | Declare_Subprogram INIT_0118,For_Call
0045 029f 0173 | s| Declare_Subprogram INIT_0170,For_Call
0047 BODY_0018:
0047 e403 | | Load 0x2,0x3
0048 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0049 1b12 | | Execute Package,Field_Read,Field_Number 0x12
004a e006 | | Load 0x0,0x6
004b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
004c e007 | | Load 0x0,0x7
004d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
004e e403 | | Load 0x2,0x3
004f 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0050 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0051 c404 | | Store 0x2,0x4
0052 e403 | | Load 0x2,0x3
0053 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0054 e403 | | Load 0x2,0x3
0055 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0056 c405 | | Store 0x2,0x5
0057 4801 |H | Short_Literal 0x1
0058 e001 | | Load 0x0,0x1
0059 1b0e | | Execute Package,Field_Read,Field_Number 0xe
005a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
005b e5ff | | Load 0x2,-0x1
005c e001 | | Load 0x0,0x1
005d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
005e 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
005f c402 | | Store 0x2,0x2
0060 e402 | | Load 0x2,0x2
0061 e001 | | Load 0x0,0x1
0062 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0063 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0064 680a |h | Jump_Zero 0x6f
0065 e008 | | Load 0x0,0x8
0066 180e | | Execute Package,Field_Execute,Field_Number 0xe
0067 4807 |H | Short_Literal 0x7
0068 e402 | | Load 0x2,0x2
0069 e001 | | Load 0x0,0x1
006a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
006b 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
006c e009 | | Load 0x0,0x9
006d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
006e 4507 |E | Exit_Suprogram New_Top_Offset 0x7
006f 00cf | | Action Mark_Auxiliary
0070 0007 | | Action Break_Optional
0071 e402 | | Load 0x2,0x2
0072 e001 | | Load 0x0,0x1
0073 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0074 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0075 700c |p | Jump_Nonzero 0x82
0076 e402 | | Load 0x2,0x2
0077 e001 | | Load 0x0,0x1
0078 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0079 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
007a 840d | | Call 0x2,0xd
007b e402 | | Load 0x2,0x2
007c e001 | | Load 0x0,0x1
007d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
007e 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
007f c402 | | Store 0x2,0x2
0080 00c9 | | Action Pop_Auxiliary_Loop
0081 7fef | | Jump 0x71
0082 00ce | | Action Pop_Auxiliary
0083 e403 | | Load 0x2,0x3
0084 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0085 e405 | | Load 0x2,0x5
0086 e403 | | Load 0x2,0x3
0087 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0088 c406 | | Store 0x2,0x6
0089 e5fd | | Load 0x2,-0x3
008a e5fb | | Load 0x2,-0x5
008b e5fc | | Load 0x2,-0x4
008c e5fe | | Load 0x2,-0x2
008d e406 | | Load 0x2,0x6
008e 840e | | Call 0x2,0xe
008f 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 009a | | .CONST 0x009a ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0003 | | .CONST 0x0003 ; Number of locals
0093 INIT_0090:
0093 e004 | | Load 0x0,0x4
0094 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0095 02c7 | | Declare_Variable Any
0096 00d8 | | Load_Top At_Offset_0
0097 1c00 | | Execute_Immediate Run_Utility,0x0
0098 e004 | | Load 0x0,0x4
0099 1b0d | | Execute Package,Field_Read,Field_Number 0xd
009a BODY_0090:
009a e004 | | Load 0x0,0x4
009b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
009c e602 | | Load 0x3,0x2
009d 0120 | | Execute Any,Is_Value
009e 6803 |h | Jump_Zero 0xa2
009f e004 | | Load 0x0,0x4
00a0 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00a1 7801 |x | Jump 0xa3
00a2 e602 | | Load 0x3,0x2
00a3 e7ff | | Load 0x3,-0x1
00a4 e001 | | Load 0x0,0x1
00a5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00a6 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
00a7 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00a8 c602 | | Store 0x3,0x2
00a9 c603 | | Store 0x3,0x3
00aa 00d8 | | Load_Top At_Offset_0
00ab 7002 |p | Jump_Nonzero 0xae
00ac e602 | | Load 0x3,0x2
00ad 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00ae e004 | | Load 0x0,0x4
00af 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00b0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00b1 0000 0000 | | .BLANK 0000[0x7]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb | | .CONST 0x00bb ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0001 | | .CONST 0x0001 ; Number of locals
00bb BODY_00b8:
00bb INIT_00b8:
00bb e7ff | | Load 0x3,-0x1
00bc e001 | | Load 0x0,0x1
00bd 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00be 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00bf 6806 |h | Jump_Zero 0xc6
00c0 e7ff | | Load 0x3,-0x1
00c1 e001 | | Load 0x0,0x1
00c2 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00c3 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00c4 8408 | | Call 0x2,0x8
00c5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00c6 e7ff | | Load 0x3,-0x1
00c7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb | | .CONST 0x00cb ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0001 | | .CONST 0x0001 ; Number of locals
00cb BODY_00c8:
00cb INIT_00c8:
00cb e7ff | | Load 0x3,-0x1
00cc 8408 | | Call 0x2,0x8
00cd 8407 | | Call 0x2,0x7
00ce 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00cf 0000 | | .XXX[0x1]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3 | | .CONST 0x00d3 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0001 | | .CONST 0x0001 ; Number of locals
00d3 BODY_00d0:
00d3 INIT_00d0:
00d3 e7ff | | Load 0x3,-0x1
00d4 8407 | | Call 0x2,0x7
00d5 e7fe | | Load 0x3,-0x2
00d6 e403 | | Load 0x2,0x3
00d7 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00d8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00d9 0000 0000 | | .BLANK 0000[0x7]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3 | | .CONST 0x00e3 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0001 | | .CONST 0x0001 ; Number of locals
00e3 BODY_00e0:
00e3 INIT_00e0:
00e3 e7fe | | Load 0x3,-0x2
00e4 e7ff | | Load 0x3,-0x1
00e5 8407 | | Call 0x2,0x7
00e6 e403 | | Load 0x2,0x3
00e7 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00e8 c7fe | | Store 0x3,-0x2
00e9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00ea 0000 0000 | | .BLANK 0000[0x6]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3 | | .CONST 0x00f3 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0001 | | .CONST 0x0001 ; Number of locals
00f3 BODY_00f0:
00f3 INIT_00f0:
00f3 e7fe | | Load 0x3,-0x2
00f4 e7ff | | Load 0x3,-0x1
00f5 e001 | | Load 0x0,0x1
00f6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00f7 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00f8 7017 |p | Jump_Nonzero 0x110
00f9 e5fa | | Load 0x2,-0x6
00fa 680e |h | Jump_Zero 0x109
00fb e7ff | | Load 0x3,-0x1
00fc e001 | | Load 0x0,0x1
00fd 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00fe 1820 | | Execute Package,Field_Execute,Field_Number 0x20
00ff 0092 02c0 | | Action Push_String_Extended,0x2c0 ; " depends on "
0101 01cc | | Execute Vector,Catenate
0102 e7fe | | Load 0x3,-0x2
0103 e001 | | Load 0x0,0x1
0104 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0105 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0106 01cc | | Execute Vector,Catenate
0107 e00a | | Load 0x0,0xa
0108 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0109 e7ff | | Load 0x3,-0x1
010a 8407 | | Call 0x2,0x7
010b e7fe | | Load 0x3,-0x2
010c 8407 | | Call 0x2,0x7
010d e405 | | Load 0x2,0x5
010e e403 | | Load 0x2,0x3
010f 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0110 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0111 0000 0000 | | .BLANK 0000[0x7]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 012d | - | .CONST 0x012d ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0004 | | .CONST 0x0004 ; Number of locals
011b INIT_0118:
011b e001 | | Load 0x0,0x1
011c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
011d 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
011e 02c7 | | Declare_Variable Any
011f 00d8 | | Load_Top At_Offset_0
0120 1c00 | | Execute_Immediate Run_Utility,0x0
0121 e001 | | Load 0x0,0x1
0122 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0123 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0124 02c7 | | Declare_Variable Any
0125 00d8 | | Load_Top At_Offset_0
0126 1c00 | | Execute_Immediate Run_Utility,0x0
0127 e001 | | Load 0x0,0x1
0128 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0129 1b0d | | Execute Package,Field_Read,Field_Number 0xd
012a 02c7 | | Declare_Variable Any
012b 00d8 | | Load_Top At_Offset_0
012c 1c00 | | Execute_Immediate Run_Utility,0x0
012d BODY_0118:
012d e404 | | Load 0x2,0x4
012e e7ff | | Load 0x3,-0x1
012f 840a | | Call 0x2,0xa
0130 703e |p> | Jump_Nonzero 0x16f
0131 e404 | | Load 0x2,0x4
0132 e7ff | | Load 0x3,-0x1
0133 840b | | Call 0x2,0xb
0134 c404 | | Store 0x2,0x4
0135 e7ff | | Load 0x3,-0x1
0136 e001 | | Load 0x0,0x1
0137 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0138 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0139 c602 | | Store 0x3,0x2
013a e602 | | Load 0x3,0x2
013b e001 | | Load 0x0,0x1
013c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
013d 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
013e 680a |h | Jump_Zero 0x149
013f e008 | | Load 0x0,0x8
0140 180e | | Execute Package,Field_Execute,Field_Number 0xe
0141 4807 |H | Short_Literal 0x7
0142 e602 | | Load 0x3,0x2
0143 e001 | | Load 0x0,0x1
0144 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0145 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
0146 e009 | | Load 0x0,0x9
0147 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0148 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0149 00cf | | Action Mark_Auxiliary
014a 0007 | | Action Break_Optional
014b e602 | | Load 0x3,0x2
014c e001 | | Load 0x0,0x1
014d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
014e 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
014f 7018 |p | Jump_Nonzero 0x168
0150 e602 | | Load 0x3,0x2
0151 e001 | | Load 0x0,0x1
0152 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0153 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0154 c603 | | Store 0x3,0x3
0155 e603 | | Load 0x3,0x3
0156 e001 | | Load 0x0,0x1
0157 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0158 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0159 6807 |h | Jump_Zero 0x161
015a e603 | | Load 0x3,0x3
015b 840d | | Call 0x2,0xd
015c e7ff | | Load 0x3,-0x1
015d 8408 | | Call 0x2,0x8
015e e603 | | Load 0x3,0x3
015f 8408 | | Call 0x2,0x8
0160 840c | | Call 0x2,0xc
0161 e602 | | Load 0x3,0x2
0162 e001 | | Load 0x0,0x1
0163 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0164 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0165 c602 | | Store 0x3,0x2
0166 00c9 | | Action Pop_Auxiliary_Loop
0167 7fe3 | | Jump 0x14b
0168 00ce | | Action Pop_Auxiliary
0169 e7ff | | Load 0x3,-0x1
016a 8408 | | Call 0x2,0x8
016b e001 | | Load 0x0,0x1
016c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
016d 180e | | Execute Package,Field_Execute,Field_Number 0xe
016e 840c | | Call 0x2,0xc
016f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 01a0 | | .CONST 0x01a0 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 000c | | .CONST 0x000c ; Number of locals
0173 INIT_0170:
0173 0007 | | Action Break_Optional
0174 0007 | | Action Break_Optional
0175 e00a | | Load 0x0,0xa
0176 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0177 02c7 | | Declare_Variable Any
0178 00d8 | | Load_Top At_Offset_0
0179 1c00 | | Execute_Immediate Run_Utility,0x0
017a e00a | | Load 0x0,0xa
017b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
017c 02c7 | | Declare_Variable Any
017d 00d8 | | Load_Top At_Offset_0
017e 1c00 | | Execute_Immediate Run_Utility,0x0
017f e00a | | Load 0x0,0xa
0180 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0181 02c7 | | Declare_Variable Any
0182 00d8 | | Load_Top At_Offset_0
0183 1c00 | | Execute_Immediate Run_Utility,0x0
0184 e00a | | Load 0x0,0xa
0185 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0186 02c7 | | Declare_Variable Any
0187 00d8 | | Load_Top At_Offset_0
0188 1c00 | | Execute_Immediate Run_Utility,0x0
0189 e403 | | Load 0x2,0x3
018a 1b14 | | Execute Package,Field_Read,Field_Number 0x14
018b e403 | | Load 0x2,0x3
018c 1b15 | | Execute Package,Field_Read,Field_Number 0x15
018d 0322 | " | Declare_Variable Record
018e 00d8 | | Load_Top At_Offset_0
018f 1c00 | | Execute_Immediate Run_Utility,0x0
0190 029e 01eb | | Declare_Subprogram INIT_01e8,For_Call,Unelaborated
0192 4808 |H | Short_Literal 0x8
0193 4803 |H | Short_Literal 0x3
0194 0099 | | Action Reference_Dynamic
0195 4808 |H | Short_Literal 0x8
0196 4803 |H | Short_Literal 0x3
0197 0099 | | Action Reference_Dynamic
0198 029f 021b | | Declare_Subprogram INIT_0218,For_Call
019a 4808 |H | Short_Literal 0x8
019b 4803 |H | Short_Literal 0x3
019c 0099 | | Action Reference_Dynamic
019d 00c7 | | Action Elaborate_Subprogram
019e 029f 0243 | C| Declare_Subprogram INIT_0240,For_Call
01a0 BODY_0170:
01a0 e602 | | Load 0x3,0x2
01a1 00ea | | Load_Encached Null_String_Cache
01a2 e7fd | | Load 0x3,-0x3
01a3 4801 |H | Short_Literal 0x1
01a4 e00a | | Load 0x0,0xa
01a5 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01a6 c602 | | Store 0x3,0x2
01a7 e603 | | Load 0x3,0x3
01a8 00ea | | Load_Encached Null_String_Cache
01a9 e7fc | | Load 0x3,-0x4
01aa 4801 |H | Short_Literal 0x1
01ab e00a | | Load 0x0,0xa
01ac 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01ad c603 | | Store 0x3,0x3
01ae e604 | | Load 0x3,0x4
01af 00ea | | Load_Encached Null_String_Cache
01b0 e7fe | | Load 0x3,-0x2
01b1 4801 |H | Short_Literal 0x1
01b2 e00a | | Load 0x0,0xa
01b3 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01b4 c604 | | Store 0x3,0x4
01b5 e605 | | Load 0x3,0x5
01b6 00ea | | Load_Encached Null_String_Cache
01b7 e7fb | | Load 0x3,-0x5
01b8 4801 |H | Short_Literal 0x1
01b9 e00a | | Load 0x0,0xa
01ba 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01bb c605 | | Store 0x3,0x5
01bc e403 | | Load 0x2,0x3
01bd 1b13 | | Execute Package,Field_Read,Field_Number 0x13
01be 1b12 | | Execute Package,Field_Read,Field_Number 0x12
01bf e006 | | Load 0x0,0x6
01c0 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01c1 e007 | | Load 0x0,0x7
01c2 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01c3 e403 | | Load 0x2,0x3
01c4 1b13 | | Execute Package,Field_Read,Field_Number 0x13
01c5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01c6 c606 | | Store 0x3,0x6
01c7 e607 | | Load 0x3,0x7
01c8 e7ff | | Load 0x3,-0x1
01c9 e403 | | Load 0x2,0x3
01ca 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01cb 00d1 | | Pop_Control Pop_Count_1
01cc e607 | | Load 0x3,0x7
01cd e403 | | Load 0x2,0x3
01ce 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01cf 7001 |p | Jump_Nonzero 0x1d1
01d0 860c | | Call 0x3,0xc
01d1 e602 | | Load 0x3,0x2
01d2 e00a | | Load 0x0,0xa
01d3 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01d4 c602 | | Store 0x3,0x2
01d5 e603 | | Load 0x3,0x3
01d6 e00a | | Load 0x0,0xa
01d7 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01d8 c603 | | Store 0x3,0x3
01d9 e604 | | Load 0x3,0x4
01da e00a | | Load 0x0,0xa
01db 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01dc c604 | | Store 0x3,0x4
01dd e605 | | Load 0x3,0x5
01de e00a | | Load 0x0,0xa
01df 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01e0 c605 | | Store 0x3,0x5
01e1 4506 |E | Exit_Suprogram New_Top_Offset 0x6
01e2 0000 0000 | | .BLANK 0000[0x6]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01f5 | | .CONST 0x01f5 ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0004 | | .CONST 0x0004 ; Number of locals
01eb INIT_01e8:
01eb e004 | | Load 0x0,0x4
01ec 1b14 | | Execute Package,Field_Read,Field_Number 0x14
01ed 02ff | | Declare_Variable Variant_Record
01ee 00d8 | | Load_Top At_Offset_0
01ef 1c00 | | Execute_Immediate Run_Utility,0x0
01f0 e004 | | Load 0x0,0x4
01f1 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
01f2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01f3 e004 | | Load 0x0,0x4
01f4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01f5 BODY_01e8:
01f5 e004 | | Load 0x0,0x4
01f6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01f7 e802 | | Load 0x4,0x2
01f8 60c3 |` | Indirect_Literal Discrete,0x2bc,{0x00000000, 0x00004000}
01f9 e00b | | Load 0x0,0xb
01fa 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01fb 4800 |H | Short_Literal 0x0
01fc e9ff | | Load 0x4,-0x1
01fd e004 | | Load 0x0,0x4
01fe 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
01ff 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0200 00d1 | | Pop_Control Pop_Count_1
0201 c804 | | Store 0x4,0x4
0202 e004 | | Load 0x0,0x4
0203 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0204 e004 | | Load 0x0,0x4
0205 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
0206 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0207 60b4 |` | Indirect_Literal Discrete,0x2bc,{0x00000000, 0x00004000}
0208 e00b | | Load 0x0,0xb
0209 1b0e | | Execute Package,Field_Read,Field_Number 0xe
020a e802 | | Load 0x4,0x2
020b e004 | | Load 0x0,0x4
020c 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
020d 180e | | Execute Package,Field_Execute,Field_Number 0xe
020e c803 | | Store 0x4,0x3
020f c804 | | Store 0x4,0x4
0210 e803 | | Load 0x4,0x3
0211 e9fe | | Load 0x4,-0x2
0212 027f | | Execute Discrete,Equal
0213 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0214 0000 0000 | | .BLANK 0000[0x4]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021e | | .CONST 0x021e ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0003 | | .CONST 0x0003 ; Number of locals
021b INIT_0218:
021b 00e1 | | Load_Encached Boolean_Cache
021c e004 | | Load 0x0,0x4
021d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
021e BODY_0218:
021e e004 | | Load 0x0,0x4
021f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0220 00e1 | | Load_Encached Boolean_Cache
0221 609a |` | Indirect_Literal Discrete,0x2bc,{0x00000000, 0x00004000}
0222 e00b | | Load 0x0,0xb
0223 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0224 e9ff | | Load 0x4,-0x1
0225 e004 | | Load 0x0,0x4
0226 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b
0227 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0228 c802 | | Store 0x4,0x2
0229 c803 | | Store 0x4,0x3
022a 00d8 | | Load_Top At_Offset_0
022b 7002 |p | Jump_Nonzero 0x22e
022c e802 | | Load 0x4,0x2
022d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
022e e008 | | Load 0x0,0x8
022f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0230 4805 |H | Short_Literal 0x5
0231 0092 02c1 | | Action Push_String_Extended,0x2c1 ; "Can't get frozenness of object "
0233 e9ff | | Load 0x4,-0x1
0234 e004 | | Load 0x0,0x4
0235 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0236 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0237 01cc | | Execute Vector,Catenate
0238 e009 | | Load 0x0,0x9
0239 1813 | | Execute Package,Field_Execute,Field_Number 0x13
023a 4800 |H | Short_Literal 0x0
023b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
023c 0000 0000 | | .BLANK 0000[0x4]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 024d | M | .CONST 0x024d ; Address of begin
0241 0004 | | .CONST 0x0004 ; Address of exception handler
0242 0003 | | .CONST 0x0003 ; Number of locals
0243 INIT_0240:
0243 e004 | | Load 0x0,0x4
0244 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0245 02c7 | | Declare_Variable Any
0246 00d8 | | Load_Top At_Offset_0
0247 1c00 | | Execute_Immediate Run_Utility,0x0
0248 e004 | | Load 0x0,0x4
0249 1b0f | | Execute Package,Field_Read,Field_Number 0xf
024a 02c7 | | Declare_Variable Any
024b 00d8 | | Load_Top At_Offset_0
024c 1c00 | | Execute_Immediate Run_Utility,0x0
024d BODY_0240:
024d e607 | | Load 0x3,0x7
024e e403 | | Load 0x2,0x3
024f 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0250 c802 | | Store 0x4,0x2
0251 e802 | | Load 0x4,0x2
0252 e004 | | Load 0x0,0x4
0253 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0254 705b |p[ | Jump_Nonzero 0x2b0
0255 e802 | | Load 0x4,0x2
0256 860b | | Call 0x3,0xb
0257 682a |h* | Jump_Zero 0x282
0258 e802 | | Load 0x4,0x2
0259 e606 | | Load 0x3,0x6
025a e403 | | Load 0x2,0x3
025b 181a | | Execute Package,Field_Execute,Field_Number 0x1a
025c 7025 |p% | Jump_Nonzero 0x282
025d e802 | | Load 0x4,0x2
025e e004 | | Load 0x0,0x4
025f 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
0260 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0261 c803 | | Store 0x4,0x3
0262 00d8 | | Load_Top At_Offset_0
0263 e606 | | Load 0x3,0x6
0264 e403 | | Load 0x2,0x3
0265 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0266 700c |p | Jump_Nonzero 0x273
0267 e606 | | Load 0x3,0x6
0268 e803 | | Load 0x4,0x3
0269 e403 | | Load 0x2,0x3
026a 181b | | Execute Package,Field_Execute,Field_Number 0x1b
026b c606 | | Store 0x3,0x6
026c 00d8 | | Load_Top At_Offset_0
026d e004 | | Load 0x0,0x4
026e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
026f 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0270 e605 | | Load 0x3,0x5
0271 e00a | | Load 0x0,0xa
0272 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
0273 e606 | | Load 0x3,0x6
0274 e802 | | Load 0x4,0x2
0275 e403 | | Load 0x2,0x3
0276 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0277 c606 | | Store 0x3,0x6
0278 e802 | | Load 0x4,0x2
0279 e004 | | Load 0x0,0x4
027a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
027b 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
027c 0092 02c2 | | Action Push_String_Extended,0x2c2 ; ".?"
027e 01cc | | Execute Vector,Catenate
027f e605 | | Load 0x3,0x5
0280 e00a | | Load 0x0,0xa
0281 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
0282 e802 | | Load 0x4,0x2
0283 e004 | | Load 0x0,0x4
0284 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0285 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0286 e604 | | Load 0x3,0x4
0287 e00a | | Load 0x0,0xa
0288 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
0289 e607 | | Load 0x3,0x7
028a e403 | | Load 0x2,0x3
028b 1817 | | Execute Package,Field_Execute,Field_Number 0x17
028c 00d1 | | Pop_Control Pop_Count_1
028d e607 | | Load 0x3,0x7
028e e403 | | Load 0x2,0x3
028f 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0290 7001 |p | Jump_Nonzero 0x292
0291 860c | | Call 0x3,0xc
0292 4804 |H | Short_Literal 0x4
0293 e802 | | Load 0x4,0x2
0294 8609 | | Call 0x3,0x9
0295 680b |h | Jump_Zero 0x2a1
0296 e802 | | Load 0x4,0x2
0297 e004 | | Load 0x0,0x4
0298 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0299 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
029a 0092 02c2 | | Action Push_String_Extended,0x2c2 ; ".?"
029c 01cc | | Execute Vector,Catenate
029d e603 | | Load 0x3,0x3
029e e00a | | Load 0x0,0xa
029f 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
02a0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02a1 4803 |H | Short_Literal 0x3
02a2 e802 | | Load 0x4,0x2
02a3 860a | | Call 0x3,0xa
02a4 680a |h | Jump_Zero 0x2af
02a5 e802 | | Load 0x4,0x2
02a6 e004 | | Load 0x0,0x4
02a7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02a8 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
02a9 0092 02c2 | | Action Push_String_Extended,0x2c2 ; ".?"
02ab 01cc | | Execute Vector,Catenate
02ac e602 | | Load 0x3,0x2
02ad e00a | | Load 0x0,0xa
02ae 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
02af 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02b0 e607 | | Load 0x3,0x7
02b1 e403 | | Load 0x2,0x3
02b2 1817 | | Execute Package,Field_Execute,Field_Number 0x17
02b3 00d1 | | Pop_Control Pop_Count_1
02b4 e607 | | Load 0x3,0x7
02b5 e403 | | Load 0x2,0x3
02b6 1819 | | Execute Package,Field_Execute,Field_Number 0x19
02b7 7001 |p | Jump_Nonzero 0x2b9
02b8 860c | | Call 0x3,0xc
02b9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02ba 0000 0000 | | .XXX[0x2]
02bc 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
02c0 ; --------------------------------------------------------------------------------------
02c0 ; STRING TABLE
02c0 ; --------------------------------------------------------------------------------------
02c0 0008 | | .STRTAB 0x0008->0x02c4 ; " depends on "
02c1 0012 | | .STRTAB 0x0012->0x02ca ; "Can't get frozenness of object "
02c2 002f | / | .STRTAB 0x002f->0x02d9 ; ".?"
02c3 002f | / | .STREND 0x002f->0x02da
02c4 2064 6570 | dep| .STRTAB_STRINGS
02db 0000 0000 | | .BLANK 0000[0x5]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; Debug Table
02e0 ; --------------------------------------------------------------------------------------
02e0 0004 0003 | | .DEBUG4 0x0004,0x0003,0x0778,0x0000,0x0001,0x0000
02e6 e234 e40d | 4 | .XXX[0x33]
02e8 0272 c40f | r |
02ea 00cf e40d | |
02ec 00d8 e40f | |
02ee 0273 00d8 | s |
02f0 00e2 0260 | `|
02f2 7001 0801 |p |
02f4 0264 7008 | dp |
02f6 e405 00d9 | |
02f8 e238 01d7 | 8 |
02fa 023d c405 | = |
02fc 00c8 37f8 | 7 |
02fe 00ce e404 | |
0300 e408 e405 | |
0302 023b 023c | ; <|
0304 c404 e403 | |
0306 0049 e403 | I |
0308 e407 023c | <|
030a 00d9 e407 | |
030c 023c 023c | < <|
030e e404 023d | =|
0310 c5fd 00d8 | |
0312 c5fe 4502 | E |
0314 3fdd 70a3 |? p |
0316 d70a 3d70 | =p|
0318 3fe0 |? |
0319 0000 0000 | | .BLANK 0000[0x7]
0320 4030 0000 |@0 | .XXX[0xc]
0322 0000 0000 | |
0324 3fb0 0000 |? |
0326 0000 0000 | |
0328 3fe4 5f30 |? _0|
032a 6dc9 c882 |m |
032c 0000 0000 | | .BLANK 0000[0x4]
0330 0004 0001 | | .XXX[0x7b]
0332 f28d 0000 | |
0334 0001 0001 | |
0336 000b 013a | :|
0338 1001 4000 | @ |
033a 0005 0035 | 5|
033c 000b 0016 | |
033e 0019 001b | |
0340 001c 001e | |
0342 0020 0022 | "|
0344 0025 0028 | % (|
0346 002a 0033 | * 3|
0348 0037 003e | 7 >|
034a 0044 0050 | D P|
034c 0052 0054 | R T|
034e 0056 0058 | V X|
0350 0059 005b | Y [|
0352 0061 0065 | a e|
0354 006b 006f | k o|
0356 0076 007a | v z|
0358 007d 0083 | } |
035a 0087 008c | |
035c 009a 00a1 | |
035e 00a5 00a8 | |
0360 00ab 00ad | |
0362 00b3 00b5 | |
0364 00b7 00b9 | |
0366 00bb 00bd | |
0368 00c5 00cf | |
036a 00d2 00d9 | |
036c 00de 00e0 | |
036e 00e6 00eb | |
0370 00f6 00ff | |
0372 0105 0107 | |
0374 0111 0113 | |
0376 0001 0002 | |
0378 0003 0004 | |
037a 0005 0006 | |
037c 0007 0008 | |
037e 0009 000a | |
0380 000b 000c | |
0382 000d 000e | |
0384 000f 0010 | |
0386 0011 0012 | |
0388 0013 0015 | |
038a 0016 0017 | |
038c 0018 0019 | |
038e 001a 001b | |
0390 0014 001c | |
0392 001d 001e | |
0394 001f 0020 | |
0396 0021 0022 | ! "|
0398 0023 0024 | # $|
039a 0025 0026 | % &|
039c 0027 0028 | ' (|
039e 0029 002a | ) *|
03a0 002b 002c | + ,|
03a2 002d 002e | - .|
03a4 002f 0030 | / 0|
03a6 0031 0032 | 1 2|
03a8 0033 0034 | 3 4|
03aa 0035 | 5 |
03ab 0000 0000 | | .BLANK 0000[0x55]