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

⟦913c7823e⟧

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

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 0280       |    |		.CONST	0x0280								; 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 00b3       |    |		.CONST	0x00b3								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 003d       | =  |		.CONST	0x003d								; Number of locals
000b			INIT_0008:
000b 029a 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Outer_Call,Visible,Unelaborated
000d 029a 00fb  |    |		Declare_Subprogram	INIT_00f8,For_Outer_Call,Visible,Unelaborated
000f 029a 011b  |    |		Declare_Subprogram	INIT_0118,For_Outer_Call,Visible,Unelaborated
0011 029a 0143  |   C|		Declare_Subprogram	INIT_0140,For_Outer_Call,Visible,Unelaborated
0013 029a 0183  |    |		Declare_Subprogram	INIT_0180,For_Outer_Call,Visible,Unelaborated
0015 029a 018b  |    |		Declare_Subprogram	INIT_0188,For_Outer_Call,Visible,Unelaborated
0017 029a 0193  |    |		Declare_Subprogram	INIT_0190,For_Outer_Call,Visible,Unelaborated
0019 00bf       |    |		Action	Accept_Activation
001a 0092 0264  |   d|		Action	Push_String_Extended,0x264					; "Task not stopped inside debugger"
001c 4800       |H   |		Short_Literal	0x0
001d e002       |    |		Load	0x0,0x2
001e 0a01       |    |		Execute_Immediate	Plus,0x1
001f e001       |    |		Load	0x0,0x1
0020 01d7       |    |		Execute	Vector,Field_Read
0021 00f5       |    |		Load_Encached	Unused21
0022 037d       | }  |		Declare_Type	Task,Defined
0023 036f       | o  |		Declare_Variable	Task
0024 029d 019b  |    |		Declare_Subprogram	INIT_0198,For_Outer_Call
0026 029d 01ab  |    |		Declare_Subprogram	INIT_01a8,For_Outer_Call
0028 a003       |    |		Store_Unchecked	0x0,0x3
0029 00c6       |    |		Action	Check_Subprogram_Elaborated
002a e004       |    |		Load	0x0,0x4
002b 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
002c 4800       |H   |		Short_Literal	0x0
002d 0093 0000  |    |		push_full_address	0x0
002f 60c4       |`   |		Indirect_Literal	Discrete,0xf4,{0x80000000, 0x00050000}
0030 0273       | s  |		Execute	Discrete,Plus
0031 e005       |    |		Load	0x0,0x5
0032 0273       | s  |		Execute	Discrete,Plus
0033 e006       |    |		Load	0x0,0x6
0034 0273       | s  |		Execute	Discrete,Plus
0035 4800       |H   |		Short_Literal	0x0
0036 0007       |    |		Action	Break_Optional
0037 029d 01c3  |    |		Declare_Subprogram	INIT_01c0,For_Outer_Call
0039 029d 01e3  |    |		Declare_Subprogram	INIT_01e0,For_Outer_Call
003b a003       |    |		Store_Unchecked	0x0,0x3
003c 00c6       |    |		Action	Check_Subprogram_Elaborated
003d e007       |    |		Load	0x0,0x7
003e 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
003f 4800       |H   |		Short_Literal	0x0
0040 0093 0000  |    |		push_full_address	0x0
0042 60ad       |`   |		Indirect_Literal	Discrete,0xf0,{0x80000000, 0x00040000}
0043 0273       | s  |		Execute	Discrete,Plus
0044 e005       |    |		Load	0x0,0x5
0045 0273       | s  |		Execute	Discrete,Plus
0046 e008       |    |		Load	0x0,0x8
0047 0273       | s  |		Execute	Discrete,Plus
0048 4800       |H   |		Short_Literal	0x0
0049 0007       |    |		Action	Break_Optional
004a 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
004b 00c7       |    |		Action	Elaborate_Subprogram
004c 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
004d 00c7       |    |		Action	Elaborate_Subprogram
004e 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
004f 00c7       |    |		Action	Elaborate_Subprogram
0050 029d 01fb  |    |		Declare_Subprogram	INIT_01f8,For_Outer_Call
0052 029d 0203  |    |		Declare_Subprogram	INIT_0200,For_Outer_Call
0054 029d 0213  |    |		Declare_Subprogram	INIT_0210,For_Outer_Call
0056 029d 021b  |    |		Declare_Subprogram	INIT_0218,For_Outer_Call
0058 029d 0233  |   3|		Declare_Subprogram	INIT_0230,For_Outer_Call
005a a009       |    |		Store_Unchecked	0x0,0x9
005b 00c6       |    |		Action	Check_Subprogram_Elaborated
005c 00e2       |    |		Load_Encached	Integer_Cache
005d e004       |    |		Load	0x0,0x4
005e 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
005f 1d28       | (  |		Execute_Immediate	Reference_Lex_1,0x28
0060 0093 0000  |    |		push_full_address	0x0
0062 6089       |`   |		Indirect_Literal	Discrete,0xec,{0x80000000, 0x00030000}
0063 0273       | s  |		Execute	Discrete,Plus
0064 e005       |    |		Load	0x0,0x5
0065 0273       | s  |		Execute	Discrete,Plus
0066 e00a       |    |		Load	0x0,0xa
0067 0273       | s  |		Execute	Discrete,Plus
0068 4800       |H   |		Short_Literal	0x0
0069 0007       |    |		Action	Break_Optional
006a 029d 024b  |   K|		Declare_Subprogram	INIT_0248,For_Outer_Call
006c 029d 0233  |   3|		Declare_Subprogram	INIT_0230,For_Outer_Call
006e a009       |    |		Store_Unchecked	0x0,0x9
006f 00c6       |    |		Action	Check_Subprogram_Elaborated
0070 00e2       |    |		Load_Encached	Integer_Cache
0071 00e2       |    |		Load_Encached	Integer_Cache
0072 1d2f       | /  |		Execute_Immediate	Reference_Lex_1,0x2f
0073 1d30       | 0  |		Execute_Immediate	Reference_Lex_1,0x30
0074 0093 0000  |    |		push_full_address	0x0
0076 6071       |`q  |		Indirect_Literal	Discrete,0xe8,{0x80000000, 0x00020000}
0077 0273       | s  |		Execute	Discrete,Plus
0078 e005       |    |		Load	0x0,0x5
0079 0273       | s  |		Execute	Discrete,Plus
007a e00b       |    |		Load	0x0,0xb
007b 0273       | s  |		Execute	Discrete,Plus
007c 4800       |H   |		Short_Literal	0x0
007d 0007       |    |		Action	Break_Optional
007e 029d 021b  |    |		Declare_Subprogram	INIT_0218,For_Outer_Call
0080 a003       |    |		Store_Unchecked	0x0,0x3
0081 00c6       |    |		Action	Check_Subprogram_Elaborated
0082 e004       |    |		Load	0x0,0x4
0083 1d37       | 7  |		Execute_Immediate	Reference_Lex_1,0x37
0084 4800       |H   |		Short_Literal	0x0
0085 0093 0000  |    |		push_full_address	0x0
0087 605c       |`\  |		Indirect_Literal	Discrete,0xe4,{0x80000000, 0x00010000}
0088 0273       | s  |		Execute	Discrete,Plus
0089 e005       |    |		Load	0x0,0x5
008a 0273       | s  |		Execute	Discrete,Plus
008b e00c       |    |		Load	0x0,0xc
008c 0273       | s  |		Execute	Discrete,Plus
008d 4800       |H   |		Short_Literal	0x0
008e 0007       |    |		Action	Break_Optional
008f 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0090 00c7       |    |		Action	Elaborate_Subprogram
0091 e00d       |    |		Load	0x0,0xd
0092 e00e       |    |		Load	0x0,0xe
0093 e00f       |    |		Load	0x0,0xf
0094 e010       |    |		Load	0x0,0x10
0095 e011       |    |		Load	0x0,0x11
0096 a012       |    |		Store_Unchecked	0x0,0x12
0097 e013       |    |		Load	0x0,0x13
0098 e014       |    |		Load	0x0,0x14
0099 a015       |    |		Store_Unchecked	0x0,0x15
009a a016       |    |		Store_Unchecked	0x0,0x16
009b a017       |    |		Store_Unchecked	0x0,0x17
009c a018       |    |		Store_Unchecked	0x0,0x18
009d a019       |    |		Store_Unchecked	0x0,0x19
009e a01a       |    |		Store_Unchecked	0x0,0x1a
009f e01b       |    |		Load	0x0,0x1b
00a0 e01c       |    |		Load	0x0,0x1c
00a1 a01d       |    |		Store_Unchecked	0x0,0x1d
00a2 a01e       |    |		Store_Unchecked	0x0,0x1e
00a3 a01f       |    |		Store_Unchecked	0x0,0x1f
00a4 a020       |    |		Store_Unchecked	0x0,0x20
00a5 a021       | !  |		Store_Unchecked	0x0,0x21
00a6 a022       | "  |		Store_Unchecked	0x0,0x22
00a7 4816       |H   |		Short_Literal	0x16
00a8 e215       |    |		Load	0x1,0x15
00a9 020e       |    |		Execute	Module,Augment_Imports
00aa 0007       |    |		Action	Break_Optional
00ab 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
00ac 00c7       |    |		Action	Elaborate_Subprogram
00ad 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
00ae 00c7       |    |		Action	Elaborate_Subprogram
00af 029d 0263  |   c|		Declare_Subprogram	INIT_0260,For_Outer_Call
00b1 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
00b2 00c7       |    |		Action	Elaborate_Subprogram
00b3			BODY_0008:
00b3 00be       |    |		Action	Activate_Tasks
00b4 00bc       |    |		Action	Signal_Activated
00b5 00bb       |    |		Action	Signal_Completion
00b6 0000 0000  |    |		.XXX[0x2]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00c2       |    |		.CONST	0x00c2								; Address of begin
00b9 00e0       |    |		.CONST	0x00e0								; Address of exception handler
00ba 0005       |    |		.CONST	0x0005								; Number of locals
00bb			INIT_00b8:
00bb e004       |    |		Load	0x0,0x4
00bc 0007       |    |		Action	Break_Optional
00bd e5fe       |    |		Load	0x2,-0x2
00be e007       |    |		Load	0x0,0x7
00bf 03f1       |    |		Declare_Variable	Discrete,With_Value
00c0 00e1       |    |		Load_Encached	Boolean_Cache
00c1 00e1       |    |		Load_Encached	Boolean_Cache
00c2			BODY_00b8:
00c2 4800       |H   |		Short_Literal	0x0
00c3 a5fd       |    |		Store_Unchecked	0x2,-0x3
00c4 00da       |    |		Load_Top	At_Offset_2
00c5 e5ff       |    |		Load	0x2,-0x1
00c6 e21f       |    |		Load	0x1,0x1f
00c7 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
00c8 e221       | !  |		Load	0x1,0x21
00c9 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
00ca 8003       |    |		Call	0x0,0x3
00cb 005b       | [  |		Store_Top	Discrete,At_Offset_3
00cc e5fe       |    |		Load	0x2,-0x2
00cd 0f00       |    |		Execute_Immediate	Equal,0x0
00ce 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
00cf 00e1       |    |		Load_Encached	Boolean_Cache
00d0 00da       |    |		Load_Top	At_Offset_2
00d1 e5ff       |    |		Load	0x2,-0x1
00d2 8023       | #  |		Call	0x0,0x23
00d3 e5ff       |    |		Load	0x2,-0x1
00d4 4804       |H   |		Short_Literal	0x4
00d5 e215       |    |		Load	0x1,0x15
00d6 170d       |    |		Execute	Task,Entry_Call,Field_Number 0xd
00d7 0059       | Y  |		Store_Top	Discrete,At_Offset_1
00d8 00d8       |    |		Load_Top	At_Offset_0
00d9 6802       |h   |		Jump_Zero	0xdc
00da e5ff       |    |		Load	0x2,-0x1
00db 820f       |    |		Call	0x1,0xf
00dc 4801       |H   |		Short_Literal	0x1
00dd e5ff       |    |		Load	0x2,-0x1
00de 8024       | $  |		Call	0x0,0x24
00df 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00e0			TRAP_00b8:
00e0 0007       |    |		Action	Break_Optional
00e1 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00e2 0000 0000  |    |		.XXX[0x2]
00e4 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
00e8 8000 0000  |    |		.LITERAL	{0x80000000, 0x00020000}
00ec 8000 0000  |    |		.LITERAL	{0x80000000, 0x00030000}
00f0 8000 0000  |    |		.LITERAL	{0x80000000, 0x00040000}
00f4 8000 0000  |    |		.LITERAL	{0x80000000, 0x00050000}
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fd       |    |		.CONST	0x00fd								; Address of begin
00f9 010f       |    |		.CONST	0x010f								; Address of exception handler
00fa 0002       |    |		.CONST	0x0002								; Number of locals
00fb			INIT_00f8:
00fb e007       |    |		Load	0x0,0x7
00fc 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
00fd			BODY_00f8:
00fd 00d8       |    |		Load_Top	At_Offset_0
00fe e5ff       |    |		Load	0x2,-0x1
00ff e21f       |    |		Load	0x1,0x1f
0100 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
0101 e221       | !  |		Load	0x1,0x21
0102 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
0103 8003       |    |		Call	0x0,0x3
0104 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0105 00e1       |    |		Load_Encached	Boolean_Cache
0106 4800       |H   |		Short_Literal	0x0
0107 e5ff       |    |		Load	0x2,-0x1
0108 8023       | #  |		Call	0x0,0x23
0109 e5ff       |    |		Load	0x2,-0x1
010a 4804       |H   |		Short_Literal	0x4
010b e215       |    |		Load	0x1,0x15
010c 170d       |    |		Execute	Task,Entry_Call,Field_Number 0xd
010d c5fe       |    |		Store	0x2,-0x2
010e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
010f			TRAP_00f8:
010f 0007       |    |		Action	Break_Optional
0110 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0111 0000 0000  |    |		.BLANK	0000[0x7]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011c       |    |		.CONST	0x011c								; Address of begin
0119 0138       | 8  |		.CONST	0x0138								; Address of exception handler
011a 0002       |    |		.CONST	0x0002								; Number of locals
011b			INIT_0118:
011b e004       |    |		Load	0x0,0x4
011c			BODY_0118:
011c 00cf       |    |		Action	Mark_Auxiliary
011d e025       | %  |		Load	0x0,0x25
011e 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
011f 4802       |H   |		Short_Literal	0x2
0120 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0121 00d9       |    |		Load_Top	At_Offset_1
0122 e5ff       |    |		Load	0x2,-0x1
0123 e218       |    |		Load	0x1,0x18
0124 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0125 e21a       |    |		Load	0x1,0x1a
0126 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
0127 8003       |    |		Call	0x0,0x3
0128 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0129 00d9       |    |		Load_Top	At_Offset_1
012a 0f02       |    |		Execute_Immediate	Equal,0x2
012b 7001       |p   |		Jump_Nonzero	0x12d
012c 7806       |x   |		Jump	0x133
012d 600e       |`   |		Indirect_Literal	Discrete,0x13c,{0x00000000, 0x00960000}
012e 4824       |H$  |		Short_Literal	0x24
012f e025       | %  |		Load	0x0,0x25
0130 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0131 00c9       |    |		Action	Pop_Auxiliary_Loop
0132 7fea       |    |		Jump	0x11d
0133 00ce       |    |		Action	Pop_Auxiliary
0134 4801       |H   |		Short_Literal	0x1
0135 e5ff       |    |		Load	0x2,-0x1
0136 8024       | $  |		Call	0x0,0x24
0137 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0138			TRAP_0118:
0138 0007       |    |		Action	Break_Optional
0139 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
013a 0000 0000  |    |		.XXX[0x2]
013c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00960000}
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0145       | E  |		.CONST	0x0145								; Address of begin
0141 0173       | s  |		.CONST	0x0173								; Address of exception handler
0142 0002       |    |		.CONST	0x0002								; Number of locals
0143			INIT_0140:
0143 e004       |    |		Load	0x0,0x4
0144 0007       |    |		Action	Break_Optional
0145			BODY_0140:
0145 e5fe       |    |		Load	0x2,-0x2
0146 6803       |h   |		Jump_Zero	0x14a
0147 4801       |H   |		Short_Literal	0x1
0148 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0149 7802       |x   |		Jump	0x14c
014a 4800       |H   |		Short_Literal	0x0
014b 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
014c 00db       |    |		Load_Top	At_Offset_3
014d 8026       | &  |		Call	0x0,0x26
014e 6813       |h   |		Jump_Zero	0x162
014f 00d8       |    |		Load_Top	At_Offset_0
0150 e027       | '  |		Load	0x0,0x27
0151 e229       | )  |		Load	0x1,0x29
0152 e22a       | *  |		Load	0x1,0x2a
0153 1d2b       | +  |		Execute_Immediate	Reference_Lex_1,0x2b
0154 1d2c       | ,  |		Execute_Immediate	Reference_Lex_1,0x2c
0155 1d2d       | -  |		Execute_Immediate	Reference_Lex_1,0x2d
0156 8009       |    |		Call	0x0,0x9
0157 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0158 e027       | '  |		Load	0x0,0x27
0159 00d8       |    |		Load_Top	At_Offset_0
015a e231       | 1  |		Load	0x1,0x31
015b e232       | 2  |		Load	0x1,0x32
015c 1d33       | 3  |		Execute_Immediate	Reference_Lex_1,0x33
015d 1d34       | 4  |		Execute_Immediate	Reference_Lex_1,0x34
015e 1d35       | 5  |		Execute_Immediate	Reference_Lex_1,0x35
015f 8009       |    |		Call	0x0,0x9
0160 c027       | '  |		Store	0x0,0x27
0161 780c       |x   |		Jump	0x16e
0162 00d8       |    |		Load_Top	At_Offset_0
0163 e5ff       |    |		Load	0x2,-0x1
0164 e238       | 8  |		Load	0x1,0x38
0165 1d39       | 9  |		Execute_Immediate	Reference_Lex_1,0x39
0166 e23a       | :  |		Load	0x1,0x3a
0167 1d3b       | ;  |		Execute_Immediate	Reference_Lex_1,0x3b
0168 8003       |    |		Call	0x0,0x3
0169 0059       | Y  |		Store_Top	Discrete,At_Offset_1
016a 4824       |H$  |		Short_Literal	0x24
016b e5ff       |    |		Load	0x2,-0x1
016c e025       | %  |		Load	0x0,0x25
016d 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
016e e5fd       |    |		Load	0x2,-0x3
016f e00d       |    |		Load	0x0,0xd
0170 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0171 c5fd       |    |		Store	0x2,-0x3
0172 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0173			TRAP_0140:
0173 0007       |    |		Action	Break_Optional
0174 e5fd       |    |		Load	0x2,-0x3
0175 00ea       |    |		Load_Encached	Null_String_Cache
0176 e028       | (  |		Load	0x0,0x28
0177 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0178 0092 0265  |   e|		Action	Push_String_Extended,0x265					; "Exception raised:"
017a e00d       |    |		Load	0x0,0xd
017b 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
017c c5fd       |    |		Store	0x2,-0x3
017d 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
017e 0000 0000  |    |		.XXX[0x2]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183       |    |		.CONST	0x0183								; Address of begin
0181 0004       |    |		.CONST	0x0004								; Address of exception handler
0182 0001       |    |		.CONST	0x0001								; Number of locals
0183			BODY_0180:
0183			INIT_0180:
0183 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0184 0000 0000  |    |		.BLANK	0000[0x4]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b       |    |		.CONST	0x018b								; Address of begin
0189 0004       |    |		.CONST	0x0004								; Address of exception handler
018a 0001       |    |		.CONST	0x0001								; Number of locals
018b			BODY_0188:
018b			INIT_0188:
018b 4800       |H   |		Short_Literal	0x0
018c e215       |    |		Load	0x1,0x15
018d 170e       |    |		Execute	Task,Entry_Call,Field_Number 0xe
018e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
018f 0000       |    |		.XXX[0x1]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193       |    |		.CONST	0x0193								; Address of begin
0191 0004       |    |		.CONST	0x0004								; Address of exception handler
0192 0001       |    |		.CONST	0x0001								; Number of locals
0193			BODY_0190:
0193			INIT_0190:
0193 4800       |H   |		Short_Literal	0x0
0194 e215       |    |		Load	0x1,0x15
0195 170f       |    |		Execute	Task,Entry_Call,Field_Number 0xf
0196 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0197 0000       |    |		.XXX[0x1]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b       |    |		.CONST	0x019b								; Address of begin
0199 0004       |    |		.CONST	0x0004								; Address of exception handler
019a 0001       |    |		.CONST	0x0001								; Number of locals
019b			BODY_0198:
019b			INIT_0198:
019b 00db       |    |		Load_Top	At_Offset_3
019c 3c12       |<   |		Execute	Record,Field_Read,Field_Number 0x12
019d 6807       |h   |		Jump_Zero	0x1a5
019e 00db       |    |		Load_Top	At_Offset_3
019f 3c14       |<   |		Execute	Record,Field_Read,Field_Number 0x14
01a0 a5fd       |    |		Store_Unchecked	0x2,-0x3
01a1 4800       |H   |		Short_Literal	0x0
01a2 e5fe       |    |		Load	0x2,-0x2
01a3 3812       |8   |		Execute	Record,Field_Write,Field_Number 0x12
01a4 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01a5 4802       |H   |		Short_Literal	0x2
01a6 a5fd       |    |		Store_Unchecked	0x2,-0x3
01a7 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab       |    |		.CONST	0x01ab								; Address of begin
01a9 0004       |    |		.CONST	0x0004								; Address of exception handler
01aa 0001       |    |		.CONST	0x0001								; Number of locals
01ab			BODY_01a8:
01ab			INIT_01a8:
01ab e5fd       |    |		Load	0x2,-0x3
01ac e004       |    |		Load	0x0,0x4
01ad 025e       | ^  |		Execute	Discrete,Convert
01ae e5fe       |    |		Load	0x2,-0x2
01af e5ff       |    |		Load	0x2,-0x1
01b0 e029       | )  |		Load	0x0,0x29
01b1 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
01b2 00d9       |    |		Load_Top	At_Offset_1
01b3 00d0       |    |		Action	Swap_Control
01b4 0260       | `  |		Execute	Discrete,In_Type
01b5 7001       |p   |		Jump_Nonzero	0x1b7
01b6 0801       |    |		Execute_Immediate	Raise,0x1
01b7 8216       |    |		Call	0x1,0x16
01b8 00d1       |    |		Pop_Control	Pop_Count_1
01b9 c5fd       |    |		Store	0x2,-0x3
01ba 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01bb 0000 0000  |    |		.BLANK	0000[0x5]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3       |    |		.CONST	0x01c3								; Address of begin
01c1 0004       |    |		.CONST	0x0004								; Address of exception handler
01c2 0001       |    |		.CONST	0x0001								; Number of locals
01c3			BODY_01c0:
01c3			INIT_01c0:
01c3 e5fd       |    |		Load	0x2,-0x3
01c4 e5fe       |    |		Load	0x2,-0x2
01c5 3813       |8   |		Execute	Record,Field_Write,Field_Number 0x13
01c6 e5fd       |    |		Load	0x2,-0x3
01c7 4800       |H   |		Short_Literal	0x0
01c8 4801       |H   |		Short_Literal	0x1
01c9 0262       | b  |		Execute	Discrete,In_Range
01ca 7007       |p   |		Jump_Nonzero	0x1d2
01cb 4800       |H   |		Short_Literal	0x0
01cc e5fe       |    |		Load	0x2,-0x2
01cd 3811       |8   |		Execute	Record,Field_Write,Field_Number 0x11
01ce 4800       |H   |		Short_Literal	0x0
01cf e5fe       |    |		Load	0x2,-0x2
01d0 3812       |8   |		Execute	Record,Field_Write,Field_Number 0x12
01d1 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01d2 4801       |H   |		Short_Literal	0x1
01d3 e5fe       |    |		Load	0x2,-0x2
01d4 3811       |8   |		Execute	Record,Field_Write,Field_Number 0x11
01d5 4801       |H   |		Short_Literal	0x1
01d6 e5fe       |    |		Load	0x2,-0x2
01d7 3810       |8   |		Execute	Record,Field_Write,Field_Number 0x10
01d8 4800       |H   |		Short_Literal	0x0
01d9 e5fe       |    |		Load	0x2,-0x2
01da 3812       |8   |		Execute	Record,Field_Write,Field_Number 0x12
01db 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01dc 0000 0000  |    |		.BLANK	0000[0x4]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3       |    |		.CONST	0x01e3								; Address of begin
01e1 0004       |    |		.CONST	0x0004								; Address of exception handler
01e2 0001       |    |		.CONST	0x0001								; Number of locals
01e3			BODY_01e0:
01e3			INIT_01e0:
01e3 e5fd       |    |		Load	0x2,-0x3
01e4 e007       |    |		Load	0x0,0x7
01e5 025e       | ^  |		Execute	Discrete,Convert
01e6 e5fe       |    |		Load	0x2,-0x2
01e7 e5ff       |    |		Load	0x2,-0x1
01e8 e029       | )  |		Load	0x0,0x29
01e9 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
01ea 00d9       |    |		Load_Top	At_Offset_1
01eb 00d0       |    |		Action	Swap_Control
01ec 0260       | `  |		Execute	Discrete,In_Type
01ed 7001       |p   |		Jump_Nonzero	0x1ef
01ee 0801       |    |		Execute_Immediate	Raise,0x1
01ef 821d       |    |		Call	0x1,0x1d
01f0 00d1       |    |		Pop_Control	Pop_Count_1
01f1 c5fd       |    |		Store	0x2,-0x3
01f2 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01f3 0000 0000  |    |		.BLANK	0000[0x5]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb       |    |		.CONST	0x01fb								; Address of begin
01f9 0004       |    |		.CONST	0x0004								; Address of exception handler
01fa 0001       |    |		.CONST	0x0001								; Number of locals
01fb			BODY_01f8:
01fb			INIT_01f8:
01fb 00db       |    |		Load_Top	At_Offset_3
01fc 3c10       |<   |		Execute	Record,Field_Read,Field_Number 0x10
01fd 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
01fe 0000 0000  |    |		.XXX[0x2]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0203       |    |		.CONST	0x0203								; Address of begin
0201 0004       |    |		.CONST	0x0004								; Address of exception handler
0202 0001       |    |		.CONST	0x0001								; Number of locals
0203			BODY_0200:
0203			INIT_0200:
0203 e5fd       |    |		Load	0x2,-0x3
0204 e5fe       |    |		Load	0x2,-0x2
0205 3814       |8   |		Execute	Record,Field_Write,Field_Number 0x14
0206 4801       |H   |		Short_Literal	0x1
0207 e5fe       |    |		Load	0x2,-0x2
0208 3812       |8   |		Execute	Record,Field_Write,Field_Number 0x12
0209 4800       |H   |		Short_Literal	0x0
020a e5fe       |    |		Load	0x2,-0x2
020b 3810       |8   |		Execute	Record,Field_Write,Field_Number 0x10
020c 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
020d 0000 0000  |    |		.XXX[0x3]
020f 0000       |    |
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213       |    |		.CONST	0x0213								; Address of begin
0211 0004       |    |		.CONST	0x0004								; Address of exception handler
0212 0001       |    |		.CONST	0x0001								; Number of locals
0213			BODY_0210:
0213			INIT_0210:
0213 4824       |H$  |		Short_Literal	0x24
0214 00db       |    |		Load_Top	At_Offset_3
0215 e025       | %  |		Load	0x0,0x25
0216 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0217 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021b       |    |		.CONST	0x021b								; Address of begin
0219 0004       |    |		.CONST	0x0004								; Address of exception handler
021a 0001       |    |		.CONST	0x0001								; Number of locals
021b			BODY_0218:
021b			BODY_0218:
021b			INIT_0218:
021b			INIT_0218:
021b e5fd       |    |		Load	0x2,-0x3
021c e004       |    |		Load	0x0,0x4
021d 025e       | ^  |		Execute	Discrete,Convert
021e e5fe       |    |		Load	0x2,-0x2
021f e5ff       |    |		Load	0x2,-0x1
0220 e029       | )  |		Load	0x0,0x29
0221 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0222 00d9       |    |		Load_Top	At_Offset_1
0223 00d0       |    |		Action	Swap_Control
0224 0260       | `  |		Execute	Discrete,In_Type
0225 7001       |p   |		Jump_Nonzero	0x227
0226 0801       |    |		Execute_Immediate	Raise,0x1
0227 8225       | %  |		Call	0x1,0x25
0228 00d1       |    |		Pop_Control	Pop_Count_1
0229 c5fd       |    |		Store	0x2,-0x3
022a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
022b 0000 0000  |    |		.BLANK	0000[0x5]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233       | 3  |		.CONST	0x0233								; Address of begin
0231 0004       |    |		.CONST	0x0004								; Address of exception handler
0232 0001       |    |		.CONST	0x0001								; Number of locals
0233			BODY_0230:
0233			BODY_0230:
0233			INIT_0230:
0233			INIT_0230:
0233 e5fd       |    |		Load	0x2,-0x3
0234 00d8       |    |		Load_Top	At_Offset_0
0235 00e2       |    |		Load_Encached	Integer_Cache
0236 0260       | `  |		Execute	Discrete,In_Type
0237 7001       |p   |		Jump_Nonzero	0x239
0238 0801       |    |		Execute_Immediate	Raise,0x1
0239 e5fe       |    |		Load	0x2,-0x2
023a e5ff       |    |		Load	0x2,-0x1
023b e029       | )  |		Load	0x0,0x29
023c 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
023d 00d9       |    |		Load_Top	At_Offset_1
023e 00d0       |    |		Action	Swap_Control
023f 0260       | `  |		Execute	Discrete,In_Type
0240 7001       |p   |		Jump_Nonzero	0x242
0241 0801       |    |		Execute_Immediate	Raise,0x1
0242 8224       | $  |		Call	0x1,0x24
0243 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0244 0000 0000  |    |		.BLANK	0000[0x4]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024b       | K  |		.CONST	0x024b								; Address of begin
0249 0004       |    |		.CONST	0x0004								; Address of exception handler
024a 0001       |    |		.CONST	0x0001								; Number of locals
024b			BODY_0248:
024b			INIT_0248:
024b e5fd       |    |		Load	0x2,-0x3
024c 00e2       |    |		Load_Encached	Integer_Cache
024d 025e       | ^  |		Execute	Discrete,Convert
024e e5fe       |    |		Load	0x2,-0x2
024f e5ff       |    |		Load	0x2,-0x1
0250 e029       | )  |		Load	0x0,0x29
0251 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0252 00d9       |    |		Load_Top	At_Offset_1
0253 00d0       |    |		Action	Swap_Control
0254 0260       | `  |		Execute	Discrete,In_Type
0255 7001       |p   |		Jump_Nonzero	0x257
0256 0801       |    |		Execute_Immediate	Raise,0x1
0257 8226       | &  |		Call	0x1,0x26
0258 00d1       |    |		Pop_Control	Pop_Count_1
0259 c5fd       |    |		Store	0x2,-0x3
025a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
025b 0000 0000  |    |		.BLANK	0000[0x5]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0263       | c  |		.CONST	0x0263								; Address of begin
0261 0004       |    |		.CONST	0x0004								; Address of exception handler
0262 0001       |    |		.CONST	0x0001								; Number of locals
0263			BODY_0260:
0263			INIT_0260:
0263 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0264 ; --------------------------------------------------------------------------------------
0264 ; STRING TABLE
0264 ; --------------------------------------------------------------------------------------
0264 0006       |    |		.STRTAB	0x0006->0x0267							; "Task not stopped inside debugger"
0265 0024       | $  |		.STRTAB	0x0024->0x0277							; "Exception raised:"
0266 0033       | 3  |		.STREND 0x0033->0x027f
0267 5461 736b  |Task|		.STRTAB_STRINGS
0280 ; --------------------------------------------------------------------------------------
0280 ; Debug Table
0280 ; --------------------------------------------------------------------------------------
0280 0004 000c  |    |		.DEBUG4	0x0004,0x000c,0xec90,0x0000,0x0001,0x0000
0286 4d41 150c  |MA  |		.XXX[0x17a]
0288 2911 2505  |) % |
028a 3904 2885  |9 ( |
028c 2535 4131  |%5A1|
028e 1535 1539  | 5 9|
0290 5105 5125  |Q Q%|
0292 3d38 b911  |=8  |
0294 2505 3904  |% 9 |
0296 9d4d 4115  | MA |
0298 0c29 0d3d  | ) =|
029a 3535 3d38  |55=8|
029c 2885 0d3d  |(  =|
029e 3535 0539  |55 9|
02a0 114c b90d  | L  |
02a2 3d35 353d  |=55=|
02a4 389d 4d41  |8 MA|
02a6 150c 2828  |  ((|
02a8 8551 3d3d  | Q==|
02aa 314c b949  |1L I|
02ac 410c b949  |A  I|
02ae 1558 e57c  | X ||
02b0 c57d 4d41  | }MA|
02b2 150c b94d  |   M|
02b4 5105 5114  |Q Q |
02b6 b90d 3d35  |  =5|
02b8 4125 3115  |A%1 |
02ba 497d 4d5d  |I}M]|
02bc 2551 0d21  |%Q !|
02be 154c 2885  | L( |
02c0 0d3d 3535  | =55|
02c2 0539 114c  | 9 L|
02c4 b94d 654d  | MeM|
02c6 5115 357d  |Q 5}|
02c8 3505 2539  |5 %9|
02ca 5115 3905  |Q 9 |
02cc 390d 14b9  |9   |
02ce 4915 58c4  |I X |
02d0 c57c c4d1  | |  |
02d2 7d4d 4115  |}MA |
02d4 0c29 5df1  | )] |
02d6 f1f0 80d4  |    |
02d8 bcc0 d0bc  |    |
02da e4c4 80c8  |    |
02dc c8e8 d0e4  |    |
02de e8cc ddf1  |    |
02e0 4d41 150d  |MA  |
02e2 7d59 2515  |}Y% |
02e4 5df1 f1f0  |]   |
02e6 2905 3915  |) 9 |
02e8 515d 3d49  |Q]=I|
02ea 2d7d 4155  |-}AU|
02ec 0931 250c  | 1% |
02ee f4f9 490d  |  I |
02f0 3d11 f111  |=   |
02f2 3915 515d  |9 Q]|
02f4 3d49 2d7d  |=I-}|
02f6 4155 0931  |AU 1|
02f8 250c f4f9  |%   |
02fa 495d f151  |I] Q|
02fc 48c4 c0c0  |H   |
02fe c1f0 2885  |  ( |
0300 0d3d 3535  | =55|
0302 0539 114c  | 9 L|
0304 b94d 654d  | MeM|
0306 5115 357d  |Q 5}|
0308 3505 2539  |5 %9|
030a 5115 3905  |Q 9 |
030c 390d 14b9  |9   |
030e 4915 58c4  |I X |
0310 c57c c4d1  | |  |
0312 7d4d 4115  |}MA |
0314 0c29 6428  | )d(|
0316 2951 4905  |)QI |
0318 394d 413d  |9MA=|
031a 4951 7d39  |IQ}9|
031c 0535 1428  | 5 (|
031e 8551 3d3d  | Q==|
0320 314c b939  |1L 9|
0322 1551 5d3d  | Q]=|
0324 492d 2539  |I-%9|
0326 1cb9 5149  |  QI|
0328 0539 4d41  | 9MA|
032a 3d49 517d  |=IQ}|
032c 3905 3514  |9 5 |
032e 9d4d 4115  | MA |
0330 0c29 5115  | )Q |
0332 3139 1550  |19 P|
0334 2885 0d3d  |(  =|
0336 3535 0539  |55 9|
0338 114c b951  | L Q|
033a 1531 3915  | 19 |
033c 509d 4d41  |P MA|
033e 150c 294d  |  )M|
0340 213d 5d7d  |!=]}|
0342 3551 4d7d  |5QM}|
0344 4149 3d19  |AI= |
0346 2531 154c  |%1 L|
0348 2885 0d3d  |(  =|
034a 3535 0539  |55 9|
034c 114c b94d  | L M|
034e 654d 5115  |eMQ |
0350 357d 3505  |5}5 |
0352 2539 5115  |%9Q |
0354 3905 390d  |9 9 |
0356 14b9 4915  |  I |
0358 58c4 c57c  |X  ||
035a c4d1 7d4d  |  }M|
035c 4115 0cb9  |A   |
035e 5539 2551  |U9%Q|
0360 4cb9 4d21  |L M!|
0362 3d5d 7d35  |=]}5|
0364 514d 7d41  |QM}A|
0366 493d 1925  |I= %|
0368 3115 4c9d  |1 L |
036a 4d41 150c  |MA  |
036c 294d 213d  |)M!=|
036e 5d7d 293d  |]})=|
0370 097d 3905  | }9 |
0372 3515 4c28  |5 L(|
0374 850d 3d35  |  =5|
0376 3505 3911  |5 9 |
0378 4cb9 4d65  |L Me|
037a 4d51 1535  |MQ 5|
037c 7d35 0525  |}5 %|
037e 3951 1539  |9Q 9|
0380 0539 0d14  | 9  |
0382 b949 1558  | I X|
0384 c4c5 7cc4  |  | |
0386 d17d 4d41  | }MA|
0388 150c b955  |   U|
038a 3925 514c  |9%QL|
038c b94d 213d  | M!=|
038e 5d7d 293d  |]})=|
0390 097d 3905  | }9 |
0392 3515 4c9d  |5 L |
0394 4d41 150c  |MA  |
0396 2925 3951  |)%9Q|
0398 1549 0d21  | I !|
039a 0539 1d14  | 9  |
039c 2885 513d  |( Q=|
039e 3d31 4cb9  |=1L |
03a0 3915 515d  |9 Q]|
03a2 3d49 2d25  |=I-%|
03a4 391c b925  |9  %|
03a6 3951 1549  |9Q I|
03a8 0d21 0539  | ! 9|
03aa 1d14 9d4d  |   M|
03ac 4115 0c29  |A  )|
03ae 1951 417d  | QA}|
03b0 1115 194c  |   L|
03b2 2885 513d  |( Q=|
03b4 3d31 4cb9  |=1L |
03b6 3915 515d  |9 Q]|
03b8 3d49 2d25  |=I-%|
03ba 391c b919  |9   |
03bc 5141 7d11  |QA} |
03be 1519 4c9d  |  L |
03c0 4d41 150c  |MA  |
03c2 2911 2505  |) % |
03c4 3905 7d3d  |9 }=|
03c6 0929 150d  | )  |
03c8 517d 1511  |Q}  |
03ca 2551 3d48  |%Q=H|
03cc 2885 513d  |( Q=|
03ce 3d31 4cb9  |=1L |
03d0 1125 0539  | % 9|
03d2 057d 3d09  | }= |
03d4 2915 0d51  |)  Q|
03d6 7d15 1125  |}  %|
03d8 513d 489d  |Q=H |
03da 4d41 150c  |MA  |
03dc 2951 4905  |)QI |
03de 394d 1915  |9M  |
03e0 497d 1d15  |I}  |
03e2 3915 4925  |9 I%|
03e4 0c28 8551  | ( Q|
03e6 3d3d 314c  |==1L|
03e8 b939 1551  | 9 Q|
03ea 5d3d 492d  |]=I-|
03ec 2539 1cb9  |%9  |
03ee 5149 0539  |QI 9|
03f0 4d19 1549  |M  I|
03f2 7d1d 1539  |}  9|
03f4 1549 250c  | I% |
03f6 9d4d 4115  | MA |
03f8 0c29 4941  | )IA|
03fa 0d7d 4149  | }AI|
03fc 3d11 550d  |= U |
03fe 5028 8551  |P( Q|