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

⟦77a7438c0⟧

    Length: 2048 (0x800)
    Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_bdfc99

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 5900       |Y   |		.CONST	0x5900								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0210       |    |		.CONST	0x0210								; 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 0001       |    |		.CONST	0x0001								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0197       |    |		.CONST	0x0197								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0015       |    |		.CONST	0x0015								; Number of locals
000b			INIT_0008:
000b 029a 01a3  |    |		Declare_Subprogram	INIT_01a0,For_Outer_Call,Visible,Unelaborated
000d 00bf       |    |		Action	Accept_Activation
000e 4800       |H   |		Short_Literal	0x0
000f 4806       |H   |		Short_Literal	0x6
0010 029f 01b3  |    |		Declare_Subprogram	INIT_01b0,For_Call
0012 03fd       |    |		Declare_Type	Discrete,Defined
0013 4800       |H   |		Short_Literal	0x0
0014 4806       |H   |		Short_Literal	0x6
0015 e001       |    |		Load	0x0,0x1
0016 01d7       |    |		Execute	Vector,Field_Read
0017 02a0       |    |		Declare_Subprogram	Null_Subprogram
0018 038e       |    |		Declare_Type	Package,Defined
0019 e001       |    |		Load	0x0,0x1
001a 4805       |H   |		Short_Literal	0x5
001b e001       |    |		Load	0x0,0x1
001c 01d7       |    |		Execute	Vector,Field_Read
001d 4802       |H   |		Short_Literal	0x2
001e 00db       |    |		Load_Top	At_Offset_3
001f 020e       |    |		Execute	Module,Augment_Imports
0020 0387       |    |		Declare_Variable	Package
0021 e002       |    |		Load	0x0,0x2
0022 e003       |    |		Load	0x0,0x3
0023 e004       |    |		Load	0x0,0x4
0024 a005       |    |		Store_Unchecked	0x0,0x5
0025 a006       |    |		Store_Unchecked	0x0,0x6
0026 a007       |    |		Store_Unchecked	0x0,0x7
0027 e008       |    |		Load	0x0,0x8
0028 e009       |    |		Load	0x0,0x9
0029 a00a       |    |		Store_Unchecked	0x0,0xa
002a e00b       |    |		Load	0x0,0xb
002b a00c       |    |		Store_Unchecked	0x0,0xc
002c e00d       |    |		Load	0x0,0xd
002d e00e       |    |		Load	0x0,0xe
002e e00f       |    |		Load	0x0,0xf
002f a010       |    |		Store_Unchecked	0x0,0x10
0030 e011       |    |		Load	0x0,0x11
0031 e012       |    |		Load	0x0,0x12
0032 a013       |    |		Store_Unchecked	0x0,0x13
0033 4812       |H   |		Short_Literal	0x12
0034 e20f       |    |		Load	0x1,0xf
0035 020e       |    |		Execute	Module,Augment_Imports
0036 00d8       |    |		Load_Top	At_Offset_0
0037 020f       |    |		Execute	Module,Activate
0038 4800       |H   |		Short_Literal	0x0
0039 4802       |H   |		Short_Literal	0x2
003a e001       |    |		Load	0x0,0x1
003b 01d7       |    |		Execute	Vector,Field_Read
003c 02a0       |    |		Declare_Subprogram	Null_Subprogram
003d 038e       |    |		Declare_Type	Package,Defined
003e e001       |    |		Load	0x0,0x1
003f 4801       |H   |		Short_Literal	0x1
0040 e001       |    |		Load	0x0,0x1
0041 01d7       |    |		Execute	Vector,Field_Read
0042 4802       |H   |		Short_Literal	0x2
0043 00db       |    |		Load_Top	At_Offset_3
0044 020e       |    |		Execute	Module,Augment_Imports
0045 0387       |    |		Declare_Variable	Package
0046 e002       |    |		Load	0x0,0x2
0047 e003       |    |		Load	0x0,0x3
0048 e004       |    |		Load	0x0,0x4
0049 a005       |    |		Store_Unchecked	0x0,0x5
004a a006       |    |		Store_Unchecked	0x0,0x6
004b a007       |    |		Store_Unchecked	0x0,0x7
004c e008       |    |		Load	0x0,0x8
004d e009       |    |		Load	0x0,0x9
004e a00a       |    |		Store_Unchecked	0x0,0xa
004f e014       |    |		Load	0x0,0x14
0050 a00c       |    |		Store_Unchecked	0x0,0xc
0051 e00d       |    |		Load	0x0,0xd
0052 e00f       |    |		Load	0x0,0xf
0053 a015       |    |		Store_Unchecked	0x0,0x15
0054 a010       |    |		Store_Unchecked	0x0,0x10
0055 e00e       |    |		Load	0x0,0xe
0056 e011       |    |		Load	0x0,0x11
0057 e012       |    |		Load	0x0,0x12
0058 e00b       |    |		Load	0x0,0xb
0059 a013       |    |		Store_Unchecked	0x0,0x13
005a 4814       |H   |		Short_Literal	0x14
005b e210       |    |		Load	0x1,0x10
005c 020e       |    |		Execute	Module,Augment_Imports
005d 00d8       |    |		Load_Top	At_Offset_0
005e 020f       |    |		Execute	Module,Activate
005f 4800       |H   |		Short_Literal	0x0
0060 4804       |H   |		Short_Literal	0x4
0061 e001       |    |		Load	0x0,0x1
0062 01d7       |    |		Execute	Vector,Field_Read
0063 02a0       |    |		Declare_Subprogram	Null_Subprogram
0064 038e       |    |		Declare_Type	Package,Defined
0065 e001       |    |		Load	0x0,0x1
0066 4803       |H   |		Short_Literal	0x3
0067 e001       |    |		Load	0x0,0x1
0068 01d7       |    |		Execute	Vector,Field_Read
0069 4802       |H   |		Short_Literal	0x2
006a 00db       |    |		Load_Top	At_Offset_3
006b 020e       |    |		Execute	Module,Augment_Imports
006c 0387       |    |		Declare_Variable	Package
006d e002       |    |		Load	0x0,0x2
006e e003       |    |		Load	0x0,0x3
006f e004       |    |		Load	0x0,0x4
0070 a005       |    |		Store_Unchecked	0x0,0x5
0071 a006       |    |		Store_Unchecked	0x0,0x6
0072 a007       |    |		Store_Unchecked	0x0,0x7
0073 e008       |    |		Load	0x0,0x8
0074 e016       |    |		Load	0x0,0x16
0075 a00a       |    |		Store_Unchecked	0x0,0xa
0076 e00b       |    |		Load	0x0,0xb
0077 a00c       |    |		Store_Unchecked	0x0,0xc
0078 e00d       |    |		Load	0x0,0xd
0079 e00e       |    |		Load	0x0,0xe
007a e00f       |    |		Load	0x0,0xf
007b e009       |    |		Load	0x0,0x9
007c a010       |    |		Store_Unchecked	0x0,0x10
007d e011       |    |		Load	0x0,0x11
007e e012       |    |		Load	0x0,0x12
007f a013       |    |		Store_Unchecked	0x0,0x13
0080 4813       |H   |		Short_Literal	0x13
0081 e211       |    |		Load	0x1,0x11
0082 020e       |    |		Execute	Module,Augment_Imports
0083 00d8       |    |		Load_Top	At_Offset_0
0084 020f       |    |		Execute	Module,Activate
0085 4800       |H   |		Short_Literal	0x0
0086 480c       |H   |		Short_Literal	0xc
0087 e001       |    |		Load	0x0,0x1
0088 01d7       |    |		Execute	Vector,Field_Read
0089 02a0       |    |		Declare_Subprogram	Null_Subprogram
008a 038e       |    |		Declare_Type	Package,Defined
008b e001       |    |		Load	0x0,0x1
008c 480b       |H   |		Short_Literal	0xb
008d e001       |    |		Load	0x0,0x1
008e 01d7       |    |		Execute	Vector,Field_Read
008f 4802       |H   |		Short_Literal	0x2
0090 00db       |    |		Load_Top	At_Offset_3
0091 020e       |    |		Execute	Module,Augment_Imports
0092 0387       |    |		Declare_Variable	Package
0093 e002       |    |		Load	0x0,0x2
0094 e003       |    |		Load	0x0,0x3
0095 e004       |    |		Load	0x0,0x4
0096 a005       |    |		Store_Unchecked	0x0,0x5
0097 a006       |    |		Store_Unchecked	0x0,0x6
0098 a007       |    |		Store_Unchecked	0x0,0x7
0099 e008       |    |		Load	0x0,0x8
009a e009       |    |		Load	0x0,0x9
009b a00a       |    |		Store_Unchecked	0x0,0xa
009c e00e       |    |		Load	0x0,0xe
009d a00c       |    |		Store_Unchecked	0x0,0xc
009e e00d       |    |		Load	0x0,0xd
009f e00f       |    |		Load	0x0,0xf
00a0 a015       |    |		Store_Unchecked	0x0,0x15
00a1 a010       |    |		Store_Unchecked	0x0,0x10
00a2 e017       |    |		Load	0x0,0x17
00a3 e018       |    |		Load	0x0,0x18
00a4 e011       |    |		Load	0x0,0x11
00a5 e012       |    |		Load	0x0,0x12
00a6 a013       |    |		Store_Unchecked	0x0,0x13
00a7 4814       |H   |		Short_Literal	0x14
00a8 e212       |    |		Load	0x1,0x12
00a9 020e       |    |		Execute	Module,Augment_Imports
00aa 00d8       |    |		Load_Top	At_Offset_0
00ab 020f       |    |		Execute	Module,Activate
00ac 4800       |H   |		Short_Literal	0x0
00ad 480a       |H   |		Short_Literal	0xa
00ae e001       |    |		Load	0x0,0x1
00af 01d7       |    |		Execute	Vector,Field_Read
00b0 02a0       |    |		Declare_Subprogram	Null_Subprogram
00b1 038e       |    |		Declare_Type	Package,Defined
00b2 e001       |    |		Load	0x0,0x1
00b3 4809       |H   |		Short_Literal	0x9
00b4 e001       |    |		Load	0x0,0x1
00b5 01d7       |    |		Execute	Vector,Field_Read
00b6 4802       |H   |		Short_Literal	0x2
00b7 00db       |    |		Load_Top	At_Offset_3
00b8 020e       |    |		Execute	Module,Augment_Imports
00b9 0387       |    |		Declare_Variable	Package
00ba e002       |    |		Load	0x0,0x2
00bb e003       |    |		Load	0x0,0x3
00bc e004       |    |		Load	0x0,0x4
00bd a005       |    |		Store_Unchecked	0x0,0x5
00be a006       |    |		Store_Unchecked	0x0,0x6
00bf a007       |    |		Store_Unchecked	0x0,0x7
00c0 e008       |    |		Load	0x0,0x8
00c1 e016       |    |		Load	0x0,0x16
00c2 a00a       |    |		Store_Unchecked	0x0,0xa
00c3 e017       |    |		Load	0x0,0x17
00c4 a00c       |    |		Store_Unchecked	0x0,0xc
00c5 e00d       |    |		Load	0x0,0xd
00c6 e019       |    |		Load	0x0,0x19
00c7 e009       |    |		Load	0x0,0x9
00c8 a010       |    |		Store_Unchecked	0x0,0x10
00c9 e00f       |    |		Load	0x0,0xf
00ca e00b       |    |		Load	0x0,0xb
00cb e011       |    |		Load	0x0,0x11
00cc e012       |    |		Load	0x0,0x12
00cd a013       |    |		Store_Unchecked	0x0,0x13
00ce 4814       |H   |		Short_Literal	0x14
00cf e213       |    |		Load	0x1,0x13
00d0 020e       |    |		Execute	Module,Augment_Imports
00d1 00d8       |    |		Load_Top	At_Offset_0
00d2 020f       |    |		Execute	Module,Activate
00d3 4800       |H   |		Short_Literal	0x0
00d4 4808       |H   |		Short_Literal	0x8
00d5 e001       |    |		Load	0x0,0x1
00d6 01d7       |    |		Execute	Vector,Field_Read
00d7 02a0       |    |		Declare_Subprogram	Null_Subprogram
00d8 038e       |    |		Declare_Type	Package,Defined
00d9 e001       |    |		Load	0x0,0x1
00da 4807       |H   |		Short_Literal	0x7
00db e001       |    |		Load	0x0,0x1
00dc 01d7       |    |		Execute	Vector,Field_Read
00dd 4802       |H   |		Short_Literal	0x2
00de 00db       |    |		Load_Top	At_Offset_3
00df 020e       |    |		Execute	Module,Augment_Imports
00e0 0387       |    |		Declare_Variable	Package
00e1 e002       |    |		Load	0x0,0x2
00e2 e003       |    |		Load	0x0,0x3
00e3 e004       |    |		Load	0x0,0x4
00e4 a005       |    |		Store_Unchecked	0x0,0x5
00e5 a006       |    |		Store_Unchecked	0x0,0x6
00e6 a007       |    |		Store_Unchecked	0x0,0x7
00e7 e008       |    |		Load	0x0,0x8
00e8 e009       |    |		Load	0x0,0x9
00e9 a00a       |    |		Store_Unchecked	0x0,0xa
00ea e00b       |    |		Load	0x0,0xb
00eb a00c       |    |		Store_Unchecked	0x0,0xc
00ec e00d       |    |		Load	0x0,0xd
00ed e00e       |    |		Load	0x0,0xe
00ee e00f       |    |		Load	0x0,0xf
00ef a010       |    |		Store_Unchecked	0x0,0x10
00f0 e017       |    |		Load	0x0,0x17
00f1 e018       |    |		Load	0x0,0x18
00f2 e011       |    |		Load	0x0,0x11
00f3 e012       |    |		Load	0x0,0x12
00f4 a013       |    |		Store_Unchecked	0x0,0x13
00f5 4814       |H   |		Short_Literal	0x14
00f6 e214       |    |		Load	0x1,0x14
00f7 020e       |    |		Execute	Module,Augment_Imports
00f8 00d8       |    |		Load_Top	At_Offset_0
00f9 020f       |    |		Execute	Module,Activate
00fa 0093 0000  |    |		push_full_address	0x0
00fc 60af       |`   |		Indirect_Literal	Discrete,0x1ac,{0x80000000, 0x00010000}
00fd 0273       | s  |		Execute	Discrete,Plus
00fe e01a       |    |		Load	0x0,0x1a
00ff 0273       | s  |		Execute	Discrete,Plus
0100 e01b       |    |		Load	0x0,0x1b
0101 0273       | s  |		Execute	Discrete,Plus
0102 4807       |H   |		Short_Literal	0x7
0103 e20e       |    |		Load	0x1,0xe
0104 4806       |H   |		Short_Literal	0x6
0105 4800       |H   |		Short_Literal	0x0
0106 0092 01d6  |    |		Action	Push_String_Extended,0x1d6					; "AT_MONKEY"
0108 e20f       |    |		Load	0x1,0xf
0109 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
010a e20f       |    |		Load	0x1,0xf
010b 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
010c 4801       |H   |		Short_Literal	0x1
010d 0092 01d7  |    |		Action	Push_String_Extended,0x1d7					; "AT_MONKEY_OBJECT"
010f e210       |    |		Load	0x1,0x10
0110 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0111 e210       |    |		Load	0x1,0x10
0112 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
0113 4802       |H   |		Short_Literal	0x2
0114 0092 01d8  |    |		Action	Push_String_Extended,0x1d8					; "AT_MONKEY_ON"
0116 e211       |    |		Load	0x1,0x11
0117 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0118 e211       |    |		Load	0x1,0x11
0119 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
011a 4803       |H   |		Short_Literal	0x3
011b 0092 01d9  |    |		Action	Push_String_Extended,0x1d9					; "AT_OBJECT"
011d e212       |    |		Load	0x1,0x12
011e 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
011f e212       |    |		Load	0x1,0x12
0120 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
0121 4805       |H   |		Short_Literal	0x5
0122 0092 01db  |    |		Action	Push_String_Extended,0x1db					; "AT_OBJECT_ON_FLOOR"
0124 e213       |    |		Load	0x1,0x13
0125 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0126 e213       |    |		Load	0x1,0x13
0127 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
0128 4804       |H   |		Short_Literal	0x4
0129 0092 01da  |    |		Action	Push_String_Extended,0x1da					; "AT_OBJECT_HOLDS"
012b e214       |    |		Load	0x1,0x14
012c 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
012d e214       |    |		Load	0x1,0x14
012e 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
012f 4806       |H   |		Short_Literal	0x6
0130 0092 01dc  |    |		Action	Push_String_Extended,0x1dc					; "NO_MORE"
0132 00c4       |    |		Action	Make_Default
0133 a01c       |    |		Store_Unchecked	0x0,0x1c
0134 4806       |H   |		Short_Literal	0x6
0135 0092 01dc  |    |		Action	Push_String_Extended,0x1dc					; "NO_MORE"
0137 00c4       |    |		Action	Make_Default
0138 a01c       |    |		Store_Unchecked	0x0,0x1c
0139 4806       |H   |		Short_Literal	0x6
013a 0092 01dc  |    |		Action	Push_String_Extended,0x1dc					; "NO_MORE"
013c 00c4       |    |		Action	Make_Default
013d a01c       |    |		Store_Unchecked	0x0,0x1c
013e 4806       |H   |		Short_Literal	0x6
013f 0092 01dc  |    |		Action	Push_String_Extended,0x1dc					; "NO_MORE"
0141 00c4       |    |		Action	Make_Default
0142 a01c       |    |		Store_Unchecked	0x0,0x1c
0143 4806       |H   |		Short_Literal	0x6
0144 0092 01dc  |    |		Action	Push_String_Extended,0x1dc					; "NO_MORE"
0146 00c4       |    |		Action	Make_Default
0147 a01c       |    |		Store_Unchecked	0x0,0x1c
0148 4806       |H   |		Short_Literal	0x6
0149 0092 01dc  |    |		Action	Push_String_Extended,0x1dc					; "NO_MORE"
014b 00c4       |    |		Action	Make_Default
014c a01c       |    |		Store_Unchecked	0x0,0x1c
014d 4806       |H   |		Short_Literal	0x6
014e 0092 01dc  |    |		Action	Push_String_Extended,0x1dc					; "NO_MORE"
0150 00c4       |    |		Action	Make_Default
0151 a01c       |    |		Store_Unchecked	0x0,0x1c
0152 4806       |H   |		Short_Literal	0x6
0153 0092 01dc  |    |		Action	Push_String_Extended,0x1dc					; "NO_MORE"
0155 00c4       |    |		Action	Make_Default
0156 a01c       |    |		Store_Unchecked	0x0,0x1c
0157 4806       |H   |		Short_Literal	0x6
0158 0092 01dc  |    |		Action	Push_String_Extended,0x1dc					; "NO_MORE"
015a 00c4       |    |		Action	Make_Default
015b a01c       |    |		Store_Unchecked	0x0,0x1c
015c 4806       |H   |		Short_Literal	0x6
015d 0092 01dc  |    |		Action	Push_String_Extended,0x1dc					; "NO_MORE"
015f 00c4       |    |		Action	Make_Default
0160 a01c       |    |		Store_Unchecked	0x0,0x1c
0161 4806       |H   |		Short_Literal	0x6
0162 0092 01dc  |    |		Action	Push_String_Extended,0x1dc					; "NO_MORE"
0164 00c4       |    |		Action	Make_Default
0165 a01c       |    |		Store_Unchecked	0x0,0x1c
0166 4806       |H   |		Short_Literal	0x6
0167 0092 01dc  |    |		Action	Push_String_Extended,0x1dc					; "NO_MORE"
0169 00c4       |    |		Action	Make_Default
016a a01c       |    |		Store_Unchecked	0x0,0x1c
016b 4806       |H   |		Short_Literal	0x6
016c 0092 01dc  |    |		Action	Push_String_Extended,0x1dc					; "NO_MORE"
016e 00c4       |    |		Action	Make_Default
016f a01c       |    |		Store_Unchecked	0x0,0x1c
0170 4806       |H   |		Short_Literal	0x6
0171 0092 01dc  |    |		Action	Push_String_Extended,0x1dc					; "NO_MORE"
0173 00c4       |    |		Action	Make_Default
0174 a01c       |    |		Store_Unchecked	0x0,0x1c
0175 e01d       |    |		Load	0x0,0x1d
0176 c233       | 3  |		Store	0x1,0x33
0177 e01d       |    |		Load	0x0,0x1d
0178 c237       | 7  |		Store	0x1,0x37
0179 e01d       |    |		Load	0x0,0x1d
017a c23b       | ;  |		Store	0x1,0x3b
017b e01d       |    |		Load	0x0,0x1d
017c c23f       | ?  |		Store	0x1,0x3f
017d e01d       |    |		Load	0x0,0x1d
017e c243       | C  |		Store	0x1,0x43
017f e01d       |    |		Load	0x0,0x1d
0180 c247       | G  |		Store	0x1,0x47
0181 e01d       |    |		Load	0x0,0x1d
0182 c24b       | K  |		Store	0x1,0x4b
0183 e01d       |    |		Load	0x0,0x1d
0184 c24f       | O  |		Store	0x1,0x4f
0185 e01d       |    |		Load	0x0,0x1d
0186 c253       | S  |		Store	0x1,0x53
0187 e01d       |    |		Load	0x0,0x1d
0188 c257       | W  |		Store	0x1,0x57
0189 e01d       |    |		Load	0x0,0x1d
018a c25b       | [  |		Store	0x1,0x5b
018b e01d       |    |		Load	0x0,0x1d
018c c25f       | _  |		Store	0x1,0x5f
018d e01d       |    |		Load	0x0,0x1d
018e c263       | c  |		Store	0x1,0x63
018f e01d       |    |		Load	0x0,0x1d
0190 c267       | g  |		Store	0x1,0x67
0191 e01e       |    |		Load	0x0,0x1e
0192 0387       |    |		Declare_Variable	Package
0193 00d8       |    |		Load_Top	At_Offset_0
0194 020f       |    |		Execute	Module,Activate
0195 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0196 00c7       |    |		Action	Elaborate_Subprogram
0197			BODY_0008:
0197 00bc       |    |		Action	Signal_Activated
0198 00bb       |    |		Action	Signal_Completion
0199 0000 0000  |    |		.BLANK	0000[0x7]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3       |    |		.CONST	0x01a3								; Address of begin
01a1 0004       |    |		.CONST	0x0004								; Address of exception handler
01a2 0001       |    |		.CONST	0x0001								; Number of locals
01a3			BODY_01a0:
01a3			INIT_01a0:
01a3 00db       |    |		Load_Top	At_Offset_3
01a4 00db       |    |		Load_Top	At_Offset_3
01a5 e01f       |    |		Load	0x0,0x1f
01a6 e215       |    |		Load	0x1,0x15
01a7 0096       |    |		Execute	Package,Entry
01a8 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01a9 0000 0000  |    |		.XXX[0x3]
01ab 0000       |    |
01ac 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3       |    |		.CONST	0x01b3								; Address of begin
01b1 0004       |    |		.CONST	0x0004								; Address of exception handler
01b2 0001       |    |		.CONST	0x0001								; Number of locals
01b3			BODY_01b0:
01b3			INIT_01b0:
01b3 4607       |F   |		Jump_Case	0x8
01b4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
01b5 7807       |x   |		Jump	0x1bd								; case 0x1
01b6 780a       |x   |		Jump	0x1c1								; case 0x2
01b7 780e       |x   |		Jump	0x1c6								; case 0x3
01b8 7811       |x   |		Jump	0x1ca								; case 0x4
01b9 7812       |x   |		Jump	0x1cc								; case 0x5
01ba 7813       |x   |		Jump	0x1ce								; case 0x6
01bb 7816       |x   |		Jump	0x1d2								; case 0x7
01bc 4302       |C   |		.XXX[0x1]
01bd 00da       |    |		Load_Top	At_Offset_2
01be 0091 01d6  |    |		Action	Push_String_Extended_Indexed,0x1d6				; "AT_MONKEY"
01c0 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
01c1 00db       |    |		Load_Top	At_Offset_3
01c2 00db       |    |		Load_Top	At_Offset_3
01c3 00e0       |    |		Load_Encached	Standard_Cache
01c4 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
01c5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01c6 00da       |    |		Load_Top	At_Offset_2
01c7 00e0       |    |		Load_Encached	Standard_Cache
01c8 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
01c9 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
01ca 00db       |    |		Load_Top	At_Offset_3
01cb 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01cc 00db       |    |		Load_Top	At_Offset_3
01cd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01ce e20e       |    |		Load	0x1,0xe
01cf 00dc       |    |		Load_Top	At_Offset_4
01d0 0267       | g  |		Execute	Discrete,Predecessor
01d1 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01d2 e20e       |    |		Load	0x1,0xe
01d3 00dc       |    |		Load_Top	At_Offset_4
01d4 0268       | h  |		Execute	Discrete,Successor
01d5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01d6 ; --------------------------------------------------------------------------------------
01d6 ; STRING TABLE
01d6 ; --------------------------------------------------------------------------------------
01d6 0010       |    |		.STRTAB	0x0010->0x01de							; "AT_MONKEY"
01d7 0017       |    |		.STRTAB	0x0017->0x01e2							; "AT_MONKEY_OBJECT"
01d8 0025       | %  |		.STRTAB	0x0025->0x01ea							; "AT_MONKEY_ON"
01d9 002f       | /  |		.STRTAB	0x002f->0x01f0							; "AT_OBJECT"
01da 0036       | 6  |		.STRTAB	0x0036->0x01f5							; "AT_OBJECT_HOLDS"
01db 0043       | C  |		.STRTAB	0x0043->0x01fc							; "AT_OBJECT_ON_FLOOR"
01dc 0053       | S  |		.STRTAB	0x0053->0x0205							; "NO_MORE"
01dd 0058       | X  |		.STREND 0x0058->0x0209
01de 4154 5f4d  |AT_M|		.STRTAB_STRINGS
0209 0000 0000  |    |		.BLANK	0000[0x7]
0210 ; --------------------------------------------------------------------------------------
0210 ; Debug Table
0210 ; --------------------------------------------------------------------------------------
0210 0004 0009  |    |		.DEBUG4	0x0004,0x0009,0x0e97,0x0000,0x0001,0x0004
0216 000b 0226  |   &|		.DBG4T	0x000b,0x0226,0x8000,0x0000
021a 000e 0229  |   )|		.DBG4T	0x000e,0x0229,0x8000,0x0000
021e 01a3 023a  |   :|		.DBG4T	0x01a3,0x023a,0x0001,0x0000
0222 01b3 0000  |    |		.DBG4T	0x01b3,0x0000,0x0005,0x0000
0226 ; --------------------------------------------------------------------------------------
0226 ; Debug chain
0226 ; --------------------------------------------------------------------------------------
0226 0001 0000  |    |		.DBGLEN	0x0001,0x0000
0228 000b       |    |		.DBGLNO	0x000b
0229 ; --------------------------------------------------------------------------------------
0229 ; Debug chain
0229 ; --------------------------------------------------------------------------------------
0229 000f 0000  |    |		.DBGLEN	0x000f,0x0000
022b 000e 0013  |    |		.DBGLNO	0x000e,0x0013,0x0021,0x0038,0x0046,0x005f,0x006d,0x0085,0x0093,0x00ac,0x00ba,0x00d3,0x00e1,0x00fa,0x0195
023a ; --------------------------------------------------------------------------------------
023a ; Debug chain
023a ; --------------------------------------------------------------------------------------
023a 0000 0001  |    |		.DBGLEN	0x0000,0x0001
023c 01a3       |    |		.DBGLNO	0x01a3
023d 0000 0000  |    |		.BLANK	0000[0x1c3]