DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦5001dca90⟧

    Length: 1024 (0x400)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0d2ce3

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦this⟧ 

Disassembly

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 01d8       |    |		.CONST	0x01d8								; 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 003a       | :  |		.CONST	0x003a								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 000e       |    |		.CONST	0x000e								; Number of locals
000b			INIT_0008:
000b e015       |    |		Load	0x0,0x15
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 e015       |    |		Load	0x0,0x15
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 e015       |    |		Load	0x0,0x15
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 e015       |    |		Load	0x0,0x15
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 e214       |    |		Load	0x1,0x14
0020 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0021 e214       |    |		Load	0x1,0x14
0022 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0023 0322       | "  |		Declare_Variable	Record
0024 00d8       |    |		Load_Top	At_Offset_0
0025 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0026 029e 0083  |    |		Declare_Subprogram	INIT_0080,For_Call,Unelaborated
0028 4808       |H   |		Short_Literal	0x8
0029 4803       |H   |		Short_Literal	0x3
002a 0099       |    |		Action	Reference_Dynamic
002b 4808       |H   |		Short_Literal	0x8
002c 4803       |H   |		Short_Literal	0x3
002d 0099       |    |		Action	Reference_Dynamic
002e 029f 00b3  |    |		Declare_Subprogram	INIT_00b0,For_Call
0030 029f 00c3  |    |		Declare_Subprogram	INIT_00c0,For_Call
0032 4808       |H   |		Short_Literal	0x8
0033 4803       |H   |		Short_Literal	0x3
0034 0099       |    |		Action	Reference_Dynamic
0035 00c7       |    |		Action	Elaborate_Subprogram
0036 029f 00eb  |    |		Declare_Subprogram	INIT_00e8,For_Call
0038 029f 0113  |    |		Declare_Subprogram	INIT_0110,For_Call
003a			BODY_0008:
003a e602       |    |		Load	0x3,0x2
003b 00ea       |    |		Load_Encached	Null_String_Cache
003c e7fd       |    |		Load	0x3,-0x3
003d 4801       |H   |		Short_Literal	0x1
003e e015       |    |		Load	0x0,0x15
003f 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0040 c602       |    |		Store	0x3,0x2
0041 e603       |    |		Load	0x3,0x3
0042 00ea       |    |		Load_Encached	Null_String_Cache
0043 e7fc       |    |		Load	0x3,-0x4
0044 4801       |H   |		Short_Literal	0x1
0045 e015       |    |		Load	0x0,0x15
0046 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0047 c603       |    |		Store	0x3,0x3
0048 e604       |    |		Load	0x3,0x4
0049 00ea       |    |		Load_Encached	Null_String_Cache
004a e7fe       |    |		Load	0x3,-0x2
004b 4801       |H   |		Short_Literal	0x1
004c e015       |    |		Load	0x0,0x15
004d 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
004e c604       |    |		Store	0x3,0x4
004f e605       |    |		Load	0x3,0x5
0050 00ea       |    |		Load_Encached	Null_String_Cache
0051 e7fb       |    |		Load	0x3,-0x5
0052 4801       |H   |		Short_Literal	0x1
0053 e015       |    |		Load	0x0,0x15
0054 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0055 c605       |    |		Store	0x3,0x5
0056 e214       |    |		Load	0x1,0x14
0057 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0058 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0059 e011       |    |		Load	0x0,0x11
005a 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
005b e013       |    |		Load	0x0,0x13
005c 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
005d e214       |    |		Load	0x1,0x14
005e 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
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 e214       |    |		Load	0x1,0x14
0064 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0065 00d1       |    |		Pop_Control	Pop_Count_1
0066 e607       |    |		Load	0x3,0x7
0067 e214       |    |		Load	0x1,0x14
0068 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0069 7001       |p   |		Jump_Nonzero	0x6b
006a 860e       |    |		Call	0x3,0xe
006b e602       |    |		Load	0x3,0x2
006c e015       |    |		Load	0x0,0x15
006d 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
006e c602       |    |		Store	0x3,0x2
006f e603       |    |		Load	0x3,0x3
0070 e015       |    |		Load	0x0,0x15
0071 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0072 c603       |    |		Store	0x3,0x3
0073 e604       |    |		Load	0x3,0x4
0074 e015       |    |		Load	0x0,0x15
0075 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0076 c604       |    |		Store	0x3,0x4
0077 e605       |    |		Load	0x3,0x5
0078 e015       |    |		Load	0x0,0x15
0079 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
007a c605       |    |		Store	0x3,0x5
007b 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
007c 0000 0000  |    |		.BLANK	0000[0x4]
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 e008       |    |		Load	0x0,0x8
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 e008       |    |		Load	0x0,0x8
0089 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
008a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
008b e008       |    |		Load	0x0,0x8
008c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
008d			BODY_0080:
008d e008       |    |		Load	0x0,0x8
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 e010       |    |		Load	0x0,0x10
0092 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0093 4800       |H   |		Short_Literal	0x0
0094 e9ff       |    |		Load	0x4,-0x1
0095 e008       |    |		Load	0x0,0x8
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 e008       |    |		Load	0x0,0x8
009b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
009c e008       |    |		Load	0x0,0x8
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 e010       |    |		Load	0x0,0x10
00a1 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00a2 e802       |    |		Load	0x4,0x2
00a3 e008       |    |		Load	0x0,0x8
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 018b  |    |		Declare_Subprogram	INIT_0188,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 e008       |    |		Load	0x0,0x8
00c5 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00c6			BODY_00c0:
00c6 e008       |    |		Load	0x0,0x8
00c7 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00c8 00e1       |    |		Load_Encached	Boolean_Cache
00c9 601a       |`   |		Indirect_Literal	Discrete,0xe4,{0x00000000, 0x00004000}
00ca e010       |    |		Load	0x0,0x10
00cb 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00cc e9ff       |    |		Load	0x4,-0x1
00cd e008       |    |		Load	0x0,0x8
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 01ac  |    |		Action	Push_String_Extended,0x1ac					; "Can't get frozenness of object "
00d9 e9ff       |    |		Load	0x4,-0x1
00da e008       |    |		Load	0x0,0x8
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 01ad  |    |		Action	Push_String_Extended,0x1ad					; "'body"
00ef e016       |    |		Load	0x0,0x16
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 01ae  |    |		Action	Push_String_Extended,0x1ae					; "'spec"
00f9 e016       |    |		Load	0x0,0x16
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 e015       |    |		Load	0x0,0x15
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 01af  |    |		Action	Push_String_Extended,0x1af					; "'SPEC"
0107 01cc       |    |		Execute	Vector,Catenate
0108 00db       |    |		Load_Top	At_Offset_3
0109 e015       |    |		Load	0x0,0x15
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 0126       | &  |		.CONST	0x0126								; Address of begin
0111 0004       |    |		.CONST	0x0004								; Address of exception handler
0112 0005       |    |		.CONST	0x0005								; Number of locals
0113			INIT_0110:
0113 e008       |    |		Load	0x0,0x8
0114 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0115 02c7       |    |		Declare_Variable	Any
0116 e607       |    |		Load	0x3,0x7
0117 e214       |    |		Load	0x1,0x14
0118 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0119 a802       |    |		Store_Unchecked	0x4,0x2
011a e008       |    |		Load	0x0,0x8
011b 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
011c 02c7       |    |		Declare_Variable	Any
011d 00d8       |    |		Load_Top	At_Offset_0
011e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
011f e008       |    |		Load	0x0,0x8
0120 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0121 02c7       |    |		Declare_Variable	Any
0122 00d8       |    |		Load_Top	At_Offset_0
0123 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0124 00da       |    |		Load_Top	At_Offset_2
0125 860b       |    |		Call	0x3,0xb
0126			BODY_0110:
0126 00db       |    |		Load_Top	At_Offset_3
0127 e008       |    |		Load	0x0,0x8
0128 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0129 704e       |pN  |		Jump_Nonzero	0x178
012a 00db       |    |		Load_Top	At_Offset_3
012b e008       |    |		Load	0x0,0x8
012c 1b3d       | =  |		Execute	Package,Field_Read,Field_Number 0x3d
012d 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
012e c803       |    |		Store	0x4,0x3
012f 00da       |    |		Load_Top	At_Offset_2
0130 860c       |    |		Call	0x3,0xc
0131 680f       |h   |		Jump_Zero	0x141
0132 00da       |    |		Load_Top	At_Offset_2
0133 e606       |    |		Load	0x3,0x6
0134 e214       |    |		Load	0x1,0x14
0135 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0136 700a       |p   |		Jump_Nonzero	0x141
0137 e606       |    |		Load	0x3,0x6
0138 00db       |    |		Load_Top	At_Offset_3
0139 e214       |    |		Load	0x1,0x14
013a 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
013b c606       |    |		Store	0x3,0x6
013c 00da       |    |		Load_Top	At_Offset_2
013d 860b       |    |		Call	0x3,0xb
013e e605       |    |		Load	0x3,0x5
013f e015       |    |		Load	0x0,0x15
0140 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
0141 00db       |    |		Load_Top	At_Offset_3
0142 821d       |    |		Call	0x1,0x1d
0143 c804       |    |		Store	0x4,0x4
0144 00db       |    |		Load_Top	At_Offset_3
0145 860c       |    |		Call	0x3,0xc
0146 7003       |p   |		Jump_Nonzero	0x14a
0147 00d9       |    |		Load_Top	At_Offset_1
0148 860c       |    |		Call	0x3,0xc
0149 6812       |h   |		Jump_Zero	0x15c
014a 00d9       |    |		Load_Top	At_Offset_1
014b e606       |    |		Load	0x3,0x6
014c e214       |    |		Load	0x1,0x14
014d 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
014e 700d       |p   |		Jump_Nonzero	0x15c
014f e606       |    |		Load	0x3,0x6
0150 00da       |    |		Load_Top	At_Offset_2
0151 e214       |    |		Load	0x1,0x14
0152 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0153 c606       |    |		Store	0x3,0x6
0154 00d9       |    |		Load_Top	At_Offset_1
0155 860b       |    |		Call	0x3,0xb
0156 0092 01b0  |    |		Action	Push_String_Extended,0x1b0					; ".?"
0158 01cc       |    |		Execute	Vector,Catenate
0159 e605       |    |		Load	0x3,0x5
015a e015       |    |		Load	0x0,0x15
015b 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
015c 00d8       |    |		Load_Top	At_Offset_0
015d e604       |    |		Load	0x3,0x4
015e 860d       |    |		Call	0x3,0xd
015f e607       |    |		Load	0x3,0x7
0160 e214       |    |		Load	0x1,0x14
0161 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0162 00d1       |    |		Pop_Control	Pop_Count_1
0163 e607       |    |		Load	0x3,0x7
0164 e214       |    |		Load	0x1,0x14
0165 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0166 7001       |p   |		Jump_Nonzero	0x168
0167 860e       |    |		Call	0x3,0xe
0168 4804       |H   |		Short_Literal	0x4
0169 e802       |    |		Load	0x4,0x2
016a 8609       |    |		Call	0x3,0x9
016b 6804       |h   |		Jump_Zero	0x170
016c 00d8       |    |		Load_Top	At_Offset_0
016d e603       |    |		Load	0x3,0x3
016e 860d       |    |		Call	0x3,0xd
016f 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0170 4803       |H   |		Short_Literal	0x3
0171 e802       |    |		Load	0x4,0x2
0172 860a       |    |		Call	0x3,0xa
0173 6803       |h   |		Jump_Zero	0x177
0174 00d8       |    |		Load_Top	At_Offset_0
0175 e602       |    |		Load	0x3,0x2
0176 860d       |    |		Call	0x3,0xd
0177 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0178 e607       |    |		Load	0x3,0x7
0179 e214       |    |		Load	0x1,0x14
017a 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
017b 00d1       |    |		Pop_Control	Pop_Count_1
017c e607       |    |		Load	0x3,0x7
017d e214       |    |		Load	0x1,0x14
017e 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
017f 7001       |p   |		Jump_Nonzero	0x181
0180 860e       |    |		Call	0x3,0xe
0181 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0182 0000 0000  |    |		.BLANK	0000[0x6]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018f       |    |		.CONST	0x018f								; Address of begin
0189 0004       |    |		.CONST	0x0004								; Address of exception handler
018a 0002       |    |		.CONST	0x0002								; Number of locals
018b			INIT_0188:
018b e9ff       |    |		Load	0x4,-0x1
018c e008       |    |		Load	0x0,0x8
018d 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
018e 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
018f			BODY_0188:
018f 00d8       |    |		Load_Top	At_Offset_0
0190 01dd       |    |		Execute	Vector,First
0191 00d9       |    |		Load_Top	At_Offset_1
0192 01d7       |    |		Execute	Vector,Field_Read
0193 0e5b       | [  |		Execute_Immediate	Not_Equal,0x5b
0194 6803       |h   |		Jump_Zero	0x198
0195 00d8       |    |		Load_Top	At_Offset_0
0196 00cb       |    |		Action	Pop_Block_With_Result
0197 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0198 e805       |    |		Load	0x4,0x5
0199 0f0a       |    |		Execute_Immediate	Equal,0xa
019a 6807       |h   |		Jump_Zero	0x1a2
019b 0092 01b1  |    |		Action	Push_String_Extended,0x1b1					; "Bad name, can't fix it: "
019d e015       |    |		Load	0x0,0x15
019e 185f       | _  |		Execute	Package,Field_Execute,Field_Number 0x5f
019f 00d8       |    |		Load_Top	At_Offset_0
01a0 e015       |    |		Load	0x0,0x15
01a1 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
01a2 6005       |`   |		Indirect_Literal	Discrete,0x1a8,{0x00000000, 0x00008000}
01a3 00ba       |    |		Action	Initiate_Delay
01a4 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01a5 0000 0000  |    |		.XXX[0x3]
01a7 0000       |    |
01a8 0000 0000  |    |		.LITERAL	{0x00000000, 0x00008000}
01ac ; --------------------------------------------------------------------------------------
01ac ; STRING TABLE
01ac ; --------------------------------------------------------------------------------------
01ac 000e       |    |		.STRTAB	0x000e->0x01b3							; "Can't get frozenness of object "
01ad 002b       | +  |		.STRTAB	0x002b->0x01c2							; "'body"
01ae 002e       | .  |		.STRTAB	0x002e->0x01c5							; "'spec"
01af 0031       | 1  |		.STRTAB	0x0031->0x01c7							; "'SPEC"
01b0 0034       | 4  |		.STRTAB	0x0034->0x01ca							; ".?"
01b1 0034       | 4  |		.STRTAB	0x0034->0x01cb							; "Bad name, can't fix it: "
01b2 004a       | J  |		.STREND 0x004a->0x01d7
01b3 4361 6e27  |Can'|		.STRTAB_STRINGS
01d7 0000       |    |		.XXX[0x1]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; Debug Table
01d8 ; --------------------------------------------------------------------------------------
01d8 0004 0000  |    |		.DEBUG4	0x0004,0x0000,0x78b4,0x0000,0x0001,0x0000
01de 0000 1bc3  |    |		.XXX[0x22]
01e0 fffc 0000  |    |
01e2 0002 8474  |   t|
01e4 0000 0000  |    |
01e6 0002 1bc7  |    |
01e8 fffc 0000  |    |
01ea 0002 c074  |   t|
01ec 0000 0000  |    |
01ee 0000 1bc3  |    |
01f0 fffc 0000  |    |
01f2 0002 e874  |   t|
01f4 0000 0000  |    |
01f6 0000 1bc3  |    |
01f8 fffc 0000  |    |
01fa 0003 2874  |  (t|
01fc 0000 0000  |    |
01fe 0000 1bc3  |    |