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

⟦1a8666082⟧

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

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 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 0000 0000  |    |		.BLANK	0000[0x17a]