|
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: 1024 (0x400)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0bf8df
└─⟦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 01e8 | | .CONST 0x01e8 ; 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 0038 | 8 | .CONST 0x0038 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 000c | | .CONST 0x000c ; Number of locals
000b INIT_0008:
000b e010 | | Load 0x0,0x10
000c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
000d 02c7 | | Declare_Variable Any
000e 00d8 | | Load_Top At_Offset_0
000f 1c00 | | Execute_Immediate Run_Utility,0x0
0010 e010 | | Load 0x0,0x10
0011 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0012 02c7 | | Declare_Variable Any
0013 00d8 | | Load_Top At_Offset_0
0014 1c00 | | Execute_Immediate Run_Utility,0x0
0015 e010 | | Load 0x0,0x10
0016 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0017 02c7 | | Declare_Variable Any
0018 00d8 | | Load_Top At_Offset_0
0019 1c00 | | Execute_Immediate Run_Utility,0x0
001a e010 | | Load 0x0,0x10
001b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
001c 02c7 | | Declare_Variable Any
001d 00d8 | | Load_Top At_Offset_0
001e 1c00 | | Execute_Immediate Run_Utility,0x0
001f e011 | | Load 0x0,0x11
0020 e213 | | Load 0x1,0x13
0021 0098 | | Execute Package,Field_Read_Dynamic
0022 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0023 e011 | | Load 0x0,0x11
0024 e213 | | Load 0x1,0x13
0025 0098 | | Execute Package,Field_Read_Dynamic
0026 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0027 0322 | " | Declare_Variable Record
0028 00d8 | | Load_Top At_Offset_0
0029 1c00 | | Execute_Immediate Run_Utility,0x0
002a 029e 0083 | | Declare_Subprogram INIT_0080,For_Call,Unelaborated
002c 029f 00b3 | | Declare_Subprogram INIT_00b0,For_Call
002e 029f 00c3 | | Declare_Subprogram INIT_00c0,For_Call
0030 4808 |H | Short_Literal 0x8
0031 4803 |H | Short_Literal 0x3
0032 0099 | | Action Reference_Dynamic
0033 00c7 | | Action Elaborate_Subprogram
0034 029f 00eb | | Declare_Subprogram INIT_00e8,For_Call
0036 029f 0113 | | Declare_Subprogram INIT_0110,For_Call
0038 BODY_0008:
0038 e602 | | Load 0x3,0x2
0039 00ea | | Load_Encached Null_String_Cache
003a e7fd | | Load 0x3,-0x3
003b 4801 |H | Short_Literal 0x1
003c e010 | | Load 0x0,0x10
003d 1814 | | Execute Package,Field_Execute,Field_Number 0x14
003e c602 | | Store 0x3,0x2
003f e603 | | Load 0x3,0x3
0040 00ea | | Load_Encached Null_String_Cache
0041 e7fc | | Load 0x3,-0x4
0042 4801 |H | Short_Literal 0x1
0043 e010 | | Load 0x0,0x10
0044 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0045 c603 | | Store 0x3,0x3
0046 e604 | | Load 0x3,0x4
0047 00ea | | Load_Encached Null_String_Cache
0048 e7fe | | Load 0x3,-0x2
0049 4801 |H | Short_Literal 0x1
004a e010 | | Load 0x0,0x10
004b 1814 | | Execute Package,Field_Execute,Field_Number 0x14
004c c604 | | Store 0x3,0x4
004d e605 | | Load 0x3,0x5
004e 00ea | | Load_Encached Null_String_Cache
004f e7fb | | Load 0x3,-0x5
0050 4801 |H | Short_Literal 0x1
0051 e010 | | Load 0x0,0x10
0052 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0053 c605 | | Store 0x3,0x5
0054 e011 | | Load 0x0,0x11
0055 e213 | | Load 0x1,0x13
0056 0098 | | Execute Package,Field_Read_Dynamic
0057 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0058 e00c | | Load 0x0,0xc
0059 1811 | | Execute Package,Field_Execute,Field_Number 0x11
005a e00e | | Load 0x0,0xe
005b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
005c e011 | | Load 0x0,0x11
005d e213 | | Load 0x1,0x13
005e 0098 | | Execute Package,Field_Read_Dynamic
005f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0060 c606 | | Store 0x3,0x6
0061 e607 | | Load 0x3,0x7
0062 e7ff | | Load 0x3,-0x1
0063 e011 | | Load 0x0,0x11
0064 e213 | | Load 0x1,0x13
0065 0098 | | Execute Package,Field_Read_Dynamic
0066 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0067 00d1 | | Pop_Control Pop_Count_1
0068 e607 | | Load 0x3,0x7
0069 e011 | | Load 0x0,0x11
006a e213 | | Load 0x1,0x13
006b 0098 | | Execute Package,Field_Read_Dynamic
006c 1820 | | Execute Package,Field_Execute,Field_Number 0x20
006d 7001 |p | Jump_Nonzero 0x6f
006e 860c | | Call 0x3,0xc
006f e602 | | Load 0x3,0x2
0070 e010 | | Load 0x0,0x10
0071 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0072 c602 | | Store 0x3,0x2
0073 e603 | | Load 0x3,0x3
0074 e010 | | Load 0x0,0x10
0075 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0076 c603 | | Store 0x3,0x3
0077 e604 | | Load 0x3,0x4
0078 e010 | | Load 0x0,0x10
0079 181b | | Execute Package,Field_Execute,Field_Number 0x1b
007a c604 | | Store 0x3,0x4
007b e605 | | Load 0x3,0x5
007c e010 | | Load 0x0,0x10
007d 181b | | Execute Package,Field_Execute,Field_Number 0x1b
007e c605 | | Store 0x3,0x5
007f 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 008d | | .CONST 0x008d ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0004 | | .CONST 0x0004 ; Number of locals
0083 INIT_0080:
0083 e004 | | Load 0x0,0x4
0084 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0085 02ff | | Declare_Variable Variant_Record
0086 00d8 | | Load_Top At_Offset_0
0087 1c00 | | Execute_Immediate Run_Utility,0x0
0088 e004 | | Load 0x0,0x4
0089 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
008a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
008b e004 | | Load 0x0,0x4
008c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
008d BODY_0080:
008d e004 | | Load 0x0,0x4
008e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
008f 00db | | Load_Top At_Offset_3
0090 601b |` | Indirect_Literal Discrete,0xac,{0x00000000, 0x00004000}
0091 e00b | | Load 0x0,0xb
0092 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0093 4800 |H | Short_Literal 0x0
0094 e9ff | | Load 0x4,-0x1
0095 e004 | | Load 0x0,0x4
0096 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
0097 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0098 00d1 | | Pop_Control Pop_Count_1
0099 0059 | Y | Store_Top Discrete,At_Offset_1
009a e004 | | Load 0x0,0x4
009b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
009c e004 | | Load 0x0,0x4
009d 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
009e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
009f 600c |` | Indirect_Literal Discrete,0xac,{0x00000000, 0x00004000}
00a0 e00b | | Load 0x0,0xb
00a1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00a2 e802 | | Load 0x4,0x2
00a3 e004 | | Load 0x0,0x4
00a4 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
00a5 180e | | Execute Package,Field_Execute,Field_Number 0xe
00a6 005b | [ | Store_Top Discrete,At_Offset_3
00a7 0059 | Y | Store_Top Discrete,At_Offset_1
00a8 00d9 | | Load_Top At_Offset_1
00a9 e9fe | | Load 0x4,-0x2
00aa 027f | | Execute Discrete,Equal
00ab 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00ac 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b5 | | .CONST 0x00b5 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0002 | | .CONST 0x0002 ; Number of locals
00b3 INIT_00b0:
00b3 029f 019b | | Declare_Subprogram INIT_0198,For_Call
00b5 BODY_00b0:
00b5 00cf | | Action Mark_Auxiliary
00b6 480a |H | Short_Literal 0xa
00b7 4801 |H | Short_Literal 0x1
00b8 0007 | | Action Break_Optional
00b9 8802 | | Call 0x4,0x2
00ba 00c8 | | Action Pop_Auxiliary_Range
00bb 3ffd |? | Loop_Increasing 0xb9
00bc 00ce | | Action Pop_Auxiliary
00bd 0831 | 1 | Execute_Immediate Raise,0x31
00be 0000 0000 | | .XXX[0x2]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c6 | | .CONST 0x00c6 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0003 | | .CONST 0x0003 ; Number of locals
00c3 INIT_00c0:
00c3 00e1 | | Load_Encached Boolean_Cache
00c4 e004 | | Load 0x0,0x4
00c5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00c6 BODY_00c0:
00c6 e004 | | Load 0x0,0x4
00c7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00c8 00e1 | | Load_Encached Boolean_Cache
00c9 601a |` | Indirect_Literal Discrete,0xe4,{0x00000000, 0x00004000}
00ca e00b | | Load 0x0,0xb
00cb 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00cc e9ff | | Load 0x4,-0x1
00cd e004 | | Load 0x0,0x4
00ce 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b
00cf 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00d0 005b | [ | Store_Top Discrete,At_Offset_3
00d1 0059 | Y | Store_Top Discrete,At_Offset_1
00d2 00d8 | | Load_Top At_Offset_0
00d3 7002 |p | Jump_Nonzero 0xd6
00d4 00d9 | | Load_Top At_Offset_1
00d5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00d6 4807 |H | Short_Literal 0x7
00d7 0092 01bc | | Action Push_String_Extended,0x1bc ; "Can't get frozenness of object "
00d9 e9ff | | Load 0x4,-0x1
00da e004 | | Load 0x0,0x4
00db 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00dc 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
00dd 01cc | | Execute Vector,Catenate
00de 8211 | | Call 0x1,0x11
00df 4800 |H | Short_Literal 0x0
00e0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00e1 0000 0000 | | .XXX[0x3]
00e3 0000 | |
00e4 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb | | .CONST 0x00eb ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0001 | | .CONST 0x0001 ; Number of locals
00eb BODY_00e8:
00eb INIT_00e8:
00eb 4801 |H | Short_Literal 0x1
00ec e9fe | | Load 0x4,-0x2
00ed 0092 01bd | | Action Push_String_Extended,0x1bd ; "'body"
00ef e012 | | Load 0x0,0x12
00f0 181d | | Execute Package,Field_Execute,Field_Number 0x1d
00f1 e9fe | | Load 0x4,-0x2
00f2 01da | | Execute Vector,Bounds
00f3 0262 | b | Execute Discrete,In_Range
00f4 700a |p | Jump_Nonzero 0xff
00f5 4801 |H | Short_Literal 0x1
00f6 e9fe | | Load 0x4,-0x2
00f7 0092 01be | | Action Push_String_Extended,0x1be ; "'spec"
00f9 e012 | | Load 0x0,0x12
00fa 181d | | Execute Package,Field_Execute,Field_Number 0x1d
00fb e9fe | | Load 0x4,-0x2
00fc 01da | | Execute Vector,Bounds
00fd 0262 | b | Execute Discrete,In_Range
00fe 6805 |h | Jump_Zero 0x104
00ff 00db | | Load_Top At_Offset_3
0100 00db | | Load_Top At_Offset_3
0101 e010 | | Load 0x0,0x10
0102 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
0103 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0104 00db | | Load_Top At_Offset_3
0105 0092 01bf | | Action Push_String_Extended,0x1bf ; "'SPEC"
0107 01cc | | Execute Vector,Catenate
0108 00db | | Load_Top At_Offset_3
0109 e010 | | Load 0x0,0x10
010a 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
010b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
010c 0000 0000 | | .BLANK 0000[0x4]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0128 | ( | .CONST 0x0128 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0005 | | .CONST 0x0005 ; Number of locals
0113 INIT_0110:
0113 e004 | | Load 0x0,0x4
0114 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0115 02c7 | | Declare_Variable Any
0116 e607 | | Load 0x3,0x7
0117 e011 | | Load 0x0,0x11
0118 e213 | | Load 0x1,0x13
0119 0098 | | Execute Package,Field_Read_Dynamic
011a 181f | | Execute Package,Field_Execute,Field_Number 0x1f
011b a802 | | Store_Unchecked 0x4,0x2
011c e004 | | Load 0x0,0x4
011d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
011e 02c7 | | Declare_Variable Any
011f 00d8 | | Load_Top At_Offset_0
0120 1c00 | | Execute_Immediate Run_Utility,0x0
0121 e004 | | Load 0x0,0x4
0122 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0123 02c7 | | Declare_Variable Any
0124 00d8 | | Load_Top At_Offset_0
0125 1c00 | | Execute_Immediate Run_Utility,0x0
0126 00da | | Load_Top At_Offset_2
0127 8609 | | Call 0x3,0x9
0128 BODY_0110:
0128 00db | | Load_Top At_Offset_3
0129 e004 | | Load 0x0,0x4
012a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
012b 705a |pZ | Jump_Nonzero 0x186
012c 00db | | Load_Top At_Offset_3
012d e004 | | Load 0x0,0x4
012e 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
012f 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0130 c803 | | Store 0x4,0x3
0131 00da | | Load_Top At_Offset_2
0132 860a | | Call 0x3,0xa
0133 6813 |h | Jump_Zero 0x147
0134 00da | | Load_Top At_Offset_2
0135 e606 | | Load 0x3,0x6
0136 e011 | | Load 0x0,0x11
0137 e213 | | Load 0x1,0x13
0138 0098 | | Execute Package,Field_Read_Dynamic
0139 1817 | | Execute Package,Field_Execute,Field_Number 0x17
013a 700c |p | Jump_Nonzero 0x147
013b e606 | | Load 0x3,0x6
013c 00db | | Load_Top At_Offset_3
013d e011 | | Load 0x0,0x11
013e e213 | | Load 0x1,0x13
013f 0098 | | Execute Package,Field_Read_Dynamic
0140 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0141 c606 | | Store 0x3,0x6
0142 00da | | Load_Top At_Offset_2
0143 8609 | | Call 0x3,0x9
0144 e605 | | Load 0x3,0x5
0145 e010 | | Load 0x0,0x10
0146 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
0147 00db | | Load_Top At_Offset_3
0148 8217 | | Call 0x1,0x17
0149 c804 | | Store 0x4,0x4
014a 00db | | Load_Top At_Offset_3
014b 860a | | Call 0x3,0xa
014c 7003 |p | Jump_Nonzero 0x150
014d 00d9 | | Load_Top At_Offset_1
014e 860a | | Call 0x3,0xa
014f 6816 |h | Jump_Zero 0x166
0150 00d9 | | Load_Top At_Offset_1
0151 e606 | | Load 0x3,0x6
0152 e011 | | Load 0x0,0x11
0153 e213 | | Load 0x1,0x13
0154 0098 | | Execute Package,Field_Read_Dynamic
0155 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0156 700f |p | Jump_Nonzero 0x166
0157 e606 | | Load 0x3,0x6
0158 00da | | Load_Top At_Offset_2
0159 e011 | | Load 0x0,0x11
015a e213 | | Load 0x1,0x13
015b 0098 | | Execute Package,Field_Read_Dynamic
015c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
015d c606 | | Store 0x3,0x6
015e 00d9 | | Load_Top At_Offset_1
015f 8609 | | Call 0x3,0x9
0160 0092 01c0 | | Action Push_String_Extended,0x1c0 ; ".?"
0162 01cc | | Execute Vector,Catenate
0163 e605 | | Load 0x3,0x5
0164 e010 | | Load 0x0,0x10
0165 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
0166 00d8 | | Load_Top At_Offset_0
0167 e604 | | Load 0x3,0x4
0168 860b | | Call 0x3,0xb
0169 e607 | | Load 0x3,0x7
016a e011 | | Load 0x0,0x11
016b e213 | | Load 0x1,0x13
016c 0098 | | Execute Package,Field_Read_Dynamic
016d 181e | | Execute Package,Field_Execute,Field_Number 0x1e
016e 00d1 | | Pop_Control Pop_Count_1
016f e607 | | Load 0x3,0x7
0170 e011 | | Load 0x0,0x11
0171 e213 | | Load 0x1,0x13
0172 0098 | | Execute Package,Field_Read_Dynamic
0173 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0174 7001 |p | Jump_Nonzero 0x176
0175 860c | | Call 0x3,0xc
0176 4804 |H | Short_Literal 0x4
0177 e802 | | Load 0x4,0x2
0178 8608 | | Call 0x3,0x8
0179 6804 |h | Jump_Zero 0x17e
017a 00d8 | | Load_Top At_Offset_0
017b e603 | | Load 0x3,0x3
017c 860b | | Call 0x3,0xb
017d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
017e 4803 |H | Short_Literal 0x3
017f e802 | | Load 0x4,0x2
0180 8608 | | Call 0x3,0x8
0181 6803 |h | Jump_Zero 0x185
0182 00d8 | | Load_Top At_Offset_0
0183 e602 | | Load 0x3,0x2
0184 860b | | Call 0x3,0xb
0185 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0186 e607 | | Load 0x3,0x7
0187 e011 | | Load 0x0,0x11
0188 e213 | | Load 0x1,0x13
0189 0098 | | Execute Package,Field_Read_Dynamic
018a 181e | | Execute Package,Field_Execute,Field_Number 0x1e
018b 00d1 | | Pop_Control Pop_Count_1
018c e607 | | Load 0x3,0x7
018d e011 | | Load 0x0,0x11
018e e213 | | Load 0x1,0x13
018f 0098 | | Execute Package,Field_Read_Dynamic
0190 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0191 7001 |p | Jump_Nonzero 0x193
0192 860c | | Call 0x3,0xc
0193 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0194 0000 0000 | | .BLANK 0000[0x4]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019f | | .CONST 0x019f ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0002 | | .CONST 0x0002 ; Number of locals
019b INIT_0198:
019b e9ff | | Load 0x4,-0x1
019c e004 | | Load 0x0,0x4
019d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
019e 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
019f BODY_0198:
019f 00d8 | | Load_Top At_Offset_0
01a0 01dd | | Execute Vector,First
01a1 00d9 | | Load_Top At_Offset_1
01a2 01d7 | | Execute Vector,Field_Read
01a3 0e5b | [ | Execute_Immediate Not_Equal,0x5b
01a4 6803 |h | Jump_Zero 0x1a8
01a5 00d8 | | Load_Top At_Offset_0
01a6 00cb | | Action Pop_Block_With_Result
01a7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01a8 e805 | | Load 0x4,0x5
01a9 0f0a | | Execute_Immediate Equal,0xa
01aa 6807 |h | Jump_Zero 0x1b2
01ab 0092 01c1 | | Action Push_String_Extended,0x1c1 ; "Bad name, can't fix it: "
01ad e010 | | Load 0x0,0x10
01ae 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
01af 00d8 | | Load_Top At_Offset_0
01b0 e010 | | Load 0x0,0x10
01b1 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01b2 6005 |` | Indirect_Literal Discrete,0x1b8,{0x00000000, 0x00008000}
01b3 00ba | | Action Initiate_Delay
01b4 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01b5 0000 0000 | | .XXX[0x3]
01b7 0000 | |
01b8 0000 0000 | | .LITERAL {0x00000000, 0x00008000}
01bc ; --------------------------------------------------------------------------------------
01bc ; STRING TABLE
01bc ; --------------------------------------------------------------------------------------
01bc 000e | | .STRTAB 0x000e->0x01c3 ; "Can't get frozenness of object "
01bd 002b | + | .STRTAB 0x002b->0x01d2 ; "'body"
01be 002e | . | .STRTAB 0x002e->0x01d5 ; "'spec"
01bf 0031 | 1 | .STRTAB 0x0031->0x01d7 ; "'SPEC"
01c0 0034 | 4 | .STRTAB 0x0034->0x01da ; ".?"
01c1 0034 | 4 | .STRTAB 0x0034->0x01db ; "Bad name, can't fix it: "
01c2 004a | J | .STREND 0x004a->0x01e7
01c3 4361 6e27 |Can'| .STRTAB_STRINGS
01e7 0000 | | .XXX[0x1]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; Debug Table
01e8 ; --------------------------------------------------------------------------------------
01e8 0004 0002 | | .DEBUG4 0x0004,0x0002,0x0ba9,0x0000,0x0001,0x0000
01ee 0000 0000 | | .XXX[0x12]
01f0 5400 3c00 |T < |
01f2 3800 0400 |8 |
01f4 3400 4000 |4 @ |
01f6 3800 0400 |8 |
01f8 3800 4400 |8 D |
01fa 3800 0400 |8 |
01fc 3c00 4800 |< H |
01fe 3800 0400 |8 |