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

⟦77e9eb832⟧

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

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦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 0198       |    |		.CONST	0x0198								; 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 a00b       |    |		Store_Unchecked	0x0,0xb
002b a00c       |    |		Store_Unchecked	0x0,0xc
002c e00d       |    |		Load	0x0,0xd
002d e00e       |    |		Load	0x0,0xe
002e a00f       |    |		Store_Unchecked	0x0,0xf
002f e010       |    |		Load	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 e015       |    |		Load	0x0,0x15
0053 a00b       |    |		Store_Unchecked	0x0,0xb
0054 a00f       |    |		Store_Unchecked	0x0,0xf
0055 e00e       |    |		Load	0x0,0xe
0056 e010       |    |		Load	0x0,0x10
0057 e011       |    |		Load	0x0,0x11
0058 e012       |    |		Load	0x0,0x12
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 a00b       |    |		Store_Unchecked	0x0,0xb
0077 a00c       |    |		Store_Unchecked	0x0,0xc
0078 e00d       |    |		Load	0x0,0xd
0079 e00e       |    |		Load	0x0,0xe
007a e009       |    |		Load	0x0,0x9
007b a00f       |    |		Store_Unchecked	0x0,0xf
007c e015       |    |		Load	0x0,0x15
007d e010       |    |		Load	0x0,0x10
007e e011       |    |		Load	0x0,0x11
007f e012       |    |		Load	0x0,0x12
0080 a013       |    |		Store_Unchecked	0x0,0x13
0081 4814       |H   |		Short_Literal	0x14
0082 e211       |    |		Load	0x1,0x11
0083 020e       |    |		Execute	Module,Augment_Imports
0084 00d8       |    |		Load_Top	At_Offset_0
0085 020f       |    |		Execute	Module,Activate
0086 4800       |H   |		Short_Literal	0x0
0087 480c       |H   |		Short_Literal	0xc
0088 e001       |    |		Load	0x0,0x1
0089 01d7       |    |		Execute	Vector,Field_Read
008a 02a0       |    |		Declare_Subprogram	Null_Subprogram
008b 038e       |    |		Declare_Type	Package,Defined
008c e001       |    |		Load	0x0,0x1
008d 480b       |H   |		Short_Literal	0xb
008e e001       |    |		Load	0x0,0x1
008f 01d7       |    |		Execute	Vector,Field_Read
0090 4802       |H   |		Short_Literal	0x2
0091 00db       |    |		Load_Top	At_Offset_3
0092 020e       |    |		Execute	Module,Augment_Imports
0093 0387       |    |		Declare_Variable	Package
0094 e002       |    |		Load	0x0,0x2
0095 e003       |    |		Load	0x0,0x3
0096 e004       |    |		Load	0x0,0x4
0097 a005       |    |		Store_Unchecked	0x0,0x5
0098 a006       |    |		Store_Unchecked	0x0,0x6
0099 a007       |    |		Store_Unchecked	0x0,0x7
009a e008       |    |		Load	0x0,0x8
009b e009       |    |		Load	0x0,0x9
009c a00a       |    |		Store_Unchecked	0x0,0xa
009d e00e       |    |		Load	0x0,0xe
009e a00c       |    |		Store_Unchecked	0x0,0xc
009f e00d       |    |		Load	0x0,0xd
00a0 e015       |    |		Load	0x0,0x15
00a1 a00b       |    |		Store_Unchecked	0x0,0xb
00a2 a00f       |    |		Store_Unchecked	0x0,0xf
00a3 e017       |    |		Load	0x0,0x17
00a4 e018       |    |		Load	0x0,0x18
00a5 e010       |    |		Load	0x0,0x10
00a6 e011       |    |		Load	0x0,0x11
00a7 a013       |    |		Store_Unchecked	0x0,0x13
00a8 4814       |H   |		Short_Literal	0x14
00a9 e212       |    |		Load	0x1,0x12
00aa 020e       |    |		Execute	Module,Augment_Imports
00ab 00d8       |    |		Load_Top	At_Offset_0
00ac 020f       |    |		Execute	Module,Activate
00ad 4800       |H   |		Short_Literal	0x0
00ae 480a       |H   |		Short_Literal	0xa
00af e001       |    |		Load	0x0,0x1
00b0 01d7       |    |		Execute	Vector,Field_Read
00b1 02a0       |    |		Declare_Subprogram	Null_Subprogram
00b2 038e       |    |		Declare_Type	Package,Defined
00b3 e001       |    |		Load	0x0,0x1
00b4 4809       |H   |		Short_Literal	0x9
00b5 e001       |    |		Load	0x0,0x1
00b6 01d7       |    |		Execute	Vector,Field_Read
00b7 4802       |H   |		Short_Literal	0x2
00b8 00db       |    |		Load_Top	At_Offset_3
00b9 020e       |    |		Execute	Module,Augment_Imports
00ba 0387       |    |		Declare_Variable	Package
00bb e002       |    |		Load	0x0,0x2
00bc e003       |    |		Load	0x0,0x3
00bd e004       |    |		Load	0x0,0x4
00be a005       |    |		Store_Unchecked	0x0,0x5
00bf a006       |    |		Store_Unchecked	0x0,0x6
00c0 a007       |    |		Store_Unchecked	0x0,0x7
00c1 e008       |    |		Load	0x0,0x8
00c2 e016       |    |		Load	0x0,0x16
00c3 a00a       |    |		Store_Unchecked	0x0,0xa
00c4 e017       |    |		Load	0x0,0x17
00c5 a00c       |    |		Store_Unchecked	0x0,0xc
00c6 e00d       |    |		Load	0x0,0xd
00c7 e019       |    |		Load	0x0,0x19
00c8 e009       |    |		Load	0x0,0x9
00c9 a00f       |    |		Store_Unchecked	0x0,0xf
00ca e015       |    |		Load	0x0,0x15
00cb a00b       |    |		Store_Unchecked	0x0,0xb
00cc e010       |    |		Load	0x0,0x10
00cd e011       |    |		Load	0x0,0x11
00ce a013       |    |		Store_Unchecked	0x0,0x13
00cf 4814       |H   |		Short_Literal	0x14
00d0 e213       |    |		Load	0x1,0x13
00d1 020e       |    |		Execute	Module,Augment_Imports
00d2 00d8       |    |		Load_Top	At_Offset_0
00d3 020f       |    |		Execute	Module,Activate
00d4 4800       |H   |		Short_Literal	0x0
00d5 4808       |H   |		Short_Literal	0x8
00d6 e001       |    |		Load	0x0,0x1
00d7 01d7       |    |		Execute	Vector,Field_Read
00d8 02a0       |    |		Declare_Subprogram	Null_Subprogram
00d9 038e       |    |		Declare_Type	Package,Defined
00da e001       |    |		Load	0x0,0x1
00db 4807       |H   |		Short_Literal	0x7
00dc e001       |    |		Load	0x0,0x1
00dd 01d7       |    |		Execute	Vector,Field_Read
00de 4802       |H   |		Short_Literal	0x2
00df 00db       |    |		Load_Top	At_Offset_3
00e0 020e       |    |		Execute	Module,Augment_Imports
00e1 0387       |    |		Declare_Variable	Package
00e2 e002       |    |		Load	0x0,0x2
00e3 e003       |    |		Load	0x0,0x3
00e4 e004       |    |		Load	0x0,0x4
00e5 a005       |    |		Store_Unchecked	0x0,0x5
00e6 a006       |    |		Store_Unchecked	0x0,0x6
00e7 a007       |    |		Store_Unchecked	0x0,0x7
00e8 e008       |    |		Load	0x0,0x8
00e9 e009       |    |		Load	0x0,0x9
00ea a00a       |    |		Store_Unchecked	0x0,0xa
00eb a00b       |    |		Store_Unchecked	0x0,0xb
00ec a00c       |    |		Store_Unchecked	0x0,0xc
00ed e00d       |    |		Load	0x0,0xd
00ee e00e       |    |		Load	0x0,0xe
00ef e015       |    |		Load	0x0,0x15
00f0 a00f       |    |		Store_Unchecked	0x0,0xf
00f1 e017       |    |		Load	0x0,0x17
00f2 e018       |    |		Load	0x0,0x18
00f3 e010       |    |		Load	0x0,0x10
00f4 e011       |    |		Load	0x0,0x11
00f5 a013       |    |		Store_Unchecked	0x0,0x13
00f6 4814       |H   |		Short_Literal	0x14
00f7 e214       |    |		Load	0x1,0x14
00f8 020e       |    |		Execute	Module,Augment_Imports
00f9 00d8       |    |		Load_Top	At_Offset_0
00fa 020f       |    |		Execute	Module,Activate
00fb 0093 0000  |    |		push_full_address	0x0
00fd 60ae       |`   |		Indirect_Literal	Discrete,0x1ac,{0x80000000, 0x00010000}
00fe 0273       | s  |		Execute	Discrete,Plus
00ff e01a       |    |		Load	0x0,0x1a
0100 0273       | s  |		Execute	Discrete,Plus
0101 e01b       |    |		Load	0x0,0x1b
0102 0273       | s  |		Execute	Discrete,Plus
0103 4807       |H   |		Short_Literal	0x7
0104 e20e       |    |		Load	0x1,0xe
0105 4806       |H   |		Short_Literal	0x6
0106 4800       |H   |		Short_Literal	0x0
0107 0092 01d6  |    |		Action	Push_String_Extended,0x1d6					; "AT_MONKEY"
0109 e20f       |    |		Load	0x1,0xf
010a 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
010b e20f       |    |		Load	0x1,0xf
010c 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
010d 4801       |H   |		Short_Literal	0x1
010e 0092 01d7  |    |		Action	Push_String_Extended,0x1d7					; "AT_MONKEY_OBJECT"
0110 e210       |    |		Load	0x1,0x10
0111 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0112 e210       |    |		Load	0x1,0x10
0113 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
0114 4802       |H   |		Short_Literal	0x2
0115 0092 01d8  |    |		Action	Push_String_Extended,0x1d8					; "AT_MONKEY_ON"
0117 e211       |    |		Load	0x1,0x11
0118 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0119 e211       |    |		Load	0x1,0x11
011a 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
011b 4803       |H   |		Short_Literal	0x3
011c 0092 01d9  |    |		Action	Push_String_Extended,0x1d9					; "AT_OBJECT"
011e e212       |    |		Load	0x1,0x12
011f 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0120 e212       |    |		Load	0x1,0x12
0121 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
0122 4805       |H   |		Short_Literal	0x5
0123 0092 01db  |    |		Action	Push_String_Extended,0x1db					; "AT_OBJECT_ON_FLOOR"
0125 e213       |    |		Load	0x1,0x13
0126 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0127 e213       |    |		Load	0x1,0x13
0128 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
0129 4804       |H   |		Short_Literal	0x4
012a 0092 01da  |    |		Action	Push_String_Extended,0x1da					; "AT_OBJECT_HOLDS"
012c e214       |    |		Load	0x1,0x14
012d 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
012e e214       |    |		Load	0x1,0x14
012f 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
0130 4806       |H   |		Short_Literal	0x6
0131 0092 01dc  |    |		Action	Push_String_Extended,0x1dc					; "NO_MORE"
0133 00c4       |    |		Action	Make_Default
0134 a01c       |    |		Store_Unchecked	0x0,0x1c
0135 4806       |H   |		Short_Literal	0x6
0136 0092 01dc  |    |		Action	Push_String_Extended,0x1dc					; "NO_MORE"
0138 00c4       |    |		Action	Make_Default
0139 a01c       |    |		Store_Unchecked	0x0,0x1c
013a 4806       |H   |		Short_Literal	0x6
013b 0092 01dc  |    |		Action	Push_String_Extended,0x1dc					; "NO_MORE"
013d 00c4       |    |		Action	Make_Default
013e a01c       |    |		Store_Unchecked	0x0,0x1c
013f 4806       |H   |		Short_Literal	0x6
0140 0092 01dc  |    |		Action	Push_String_Extended,0x1dc					; "NO_MORE"
0142 00c4       |    |		Action	Make_Default
0143 a01c       |    |		Store_Unchecked	0x0,0x1c
0144 4806       |H   |		Short_Literal	0x6
0145 0092 01dc  |    |		Action	Push_String_Extended,0x1dc					; "NO_MORE"
0147 00c4       |    |		Action	Make_Default
0148 a01c       |    |		Store_Unchecked	0x0,0x1c
0149 4806       |H   |		Short_Literal	0x6
014a 0092 01dc  |    |		Action	Push_String_Extended,0x1dc					; "NO_MORE"
014c 00c4       |    |		Action	Make_Default
014d a01c       |    |		Store_Unchecked	0x0,0x1c
014e 4806       |H   |		Short_Literal	0x6
014f 0092 01dc  |    |		Action	Push_String_Extended,0x1dc					; "NO_MORE"
0151 00c4       |    |		Action	Make_Default
0152 a01c       |    |		Store_Unchecked	0x0,0x1c
0153 4806       |H   |		Short_Literal	0x6
0154 0092 01dc  |    |		Action	Push_String_Extended,0x1dc					; "NO_MORE"
0156 00c4       |    |		Action	Make_Default
0157 a01c       |    |		Store_Unchecked	0x0,0x1c
0158 4806       |H   |		Short_Literal	0x6
0159 0092 01dc  |    |		Action	Push_String_Extended,0x1dc					; "NO_MORE"
015b 00c4       |    |		Action	Make_Default
015c a01c       |    |		Store_Unchecked	0x0,0x1c
015d 4806       |H   |		Short_Literal	0x6
015e 0092 01dc  |    |		Action	Push_String_Extended,0x1dc					; "NO_MORE"
0160 00c4       |    |		Action	Make_Default
0161 a01c       |    |		Store_Unchecked	0x0,0x1c
0162 4806       |H   |		Short_Literal	0x6
0163 0092 01dc  |    |		Action	Push_String_Extended,0x1dc					; "NO_MORE"
0165 00c4       |    |		Action	Make_Default
0166 a01c       |    |		Store_Unchecked	0x0,0x1c
0167 4806       |H   |		Short_Literal	0x6
0168 0092 01dc  |    |		Action	Push_String_Extended,0x1dc					; "NO_MORE"
016a 00c4       |    |		Action	Make_Default
016b a01c       |    |		Store_Unchecked	0x0,0x1c
016c 4806       |H   |		Short_Literal	0x6
016d 0092 01dc  |    |		Action	Push_String_Extended,0x1dc					; "NO_MORE"
016f 00c4       |    |		Action	Make_Default
0170 a01c       |    |		Store_Unchecked	0x0,0x1c
0171 4806       |H   |		Short_Literal	0x6
0172 0092 01dc  |    |		Action	Push_String_Extended,0x1dc					; "NO_MORE"
0174 00c4       |    |		Action	Make_Default
0175 a01c       |    |		Store_Unchecked	0x0,0x1c
0176 e01d       |    |		Load	0x0,0x1d
0177 c233       | 3  |		Store	0x1,0x33
0178 e01d       |    |		Load	0x0,0x1d
0179 c237       | 7  |		Store	0x1,0x37
017a e01d       |    |		Load	0x0,0x1d
017b c23b       | ;  |		Store	0x1,0x3b
017c e01d       |    |		Load	0x0,0x1d
017d c23f       | ?  |		Store	0x1,0x3f
017e e01d       |    |		Load	0x0,0x1d
017f c243       | C  |		Store	0x1,0x43
0180 e01d       |    |		Load	0x0,0x1d
0181 c247       | G  |		Store	0x1,0x47
0182 e01d       |    |		Load	0x0,0x1d
0183 c24b       | K  |		Store	0x1,0x4b
0184 e01d       |    |		Load	0x0,0x1d
0185 c24f       | O  |		Store	0x1,0x4f
0186 e01d       |    |		Load	0x0,0x1d
0187 c253       | S  |		Store	0x1,0x53
0188 e01d       |    |		Load	0x0,0x1d
0189 c257       | W  |		Store	0x1,0x57
018a e01d       |    |		Load	0x0,0x1d
018b c25b       | [  |		Store	0x1,0x5b
018c e01d       |    |		Load	0x0,0x1d
018d c25f       | _  |		Store	0x1,0x5f
018e e01d       |    |		Load	0x0,0x1d
018f c263       | c  |		Store	0x1,0x63
0190 e01d       |    |		Load	0x0,0x1d
0191 c267       | g  |		Store	0x1,0x67
0192 e01e       |    |		Load	0x0,0x1e
0193 0387       |    |		Declare_Variable	Package
0194 00d8       |    |		Load_Top	At_Offset_0
0195 020f       |    |		Execute	Module,Activate
0196 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0197 00c7       |    |		Action	Elaborate_Subprogram
0198			BODY_0008:
0198 00bc       |    |		Action	Signal_Activated
0199 00bb       |    |		Action	Signal_Completion
019a 0000 0000  |    |		.BLANK	0000[0x6]
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 0006  |    |		.DEBUG4	0x0004,0x0006,0xad31,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,0x0086,0x0094,0x00ad,0x00bb,0x00d4,0x00e2,0x00fb,0x0196
023a ; --------------------------------------------------------------------------------------
023a ; Debug chain
023a ; --------------------------------------------------------------------------------------
023a 0000 0001  |    |		.DBGLEN	0x0000,0x0001
023c 01a3       |    |		.DBGLNO	0x01a3
023d 0000 0000  |    |		.BLANK	0000[0x1c3]