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

⟦aed53917a⟧

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

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 0288       |    |		.CONST	0x0288								; 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 ; SUBPROGRAM
0008 ; See instruction 0x02cf at 0x24e, index=0x0
0008 ; --------------------------------------------------------------------------------------
0008 009b       |    |		.CONST	0x009b								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0028       | (  |		.CONST	0x0028								; Number of locals
000b			INIT_0008:
000b			INIT_0008:
000b 029a 00b3  |    |		Declare_Subprogram	INIT_00b0,For_Outer_Call,Visible,Unelaborated
000d 029a 00f3  |    |		Declare_Subprogram	INIT_00f0,For_Outer_Call,Visible,Unelaborated
000f 029a 0113  |    |		Declare_Subprogram	INIT_0110,For_Outer_Call,Visible,Unelaborated
0011 029a 0133  |   3|		Declare_Subprogram	INIT_0130,For_Outer_Call,Visible,Unelaborated
0013 029a 0143  |   C|		Declare_Subprogram	INIT_0140,For_Outer_Call,Visible,Unelaborated
0015 029a 015b  |   [|		Declare_Subprogram	INIT_0158,For_Outer_Call,Visible,Unelaborated
0017 029a 0163  |   c|		Declare_Subprogram	INIT_0160,For_Outer_Call,Visible,Unelaborated
0019 029a 0173  |   s|		Declare_Subprogram	INIT_0170,For_Outer_Call,Visible,Unelaborated
001b 029a 0183  |    |		Declare_Subprogram	INIT_0180,For_Outer_Call,Visible,Unelaborated
001d 029a 019b  |    |		Declare_Subprogram	INIT_0198,For_Outer_Call,Visible,Unelaborated
001f 029a 01b3  |    |		Declare_Subprogram	INIT_01b0,For_Outer_Call,Visible,Unelaborated
0021 0093 0000  |    |		push_full_address	0x0
0023 60c8       |`   |		Indirect_Literal	Discrete,0xec,{0x80000000, 0x00010000}
0024 0273       | s  |		Execute	Discrete,Plus
0025 0129       | )  |		Execute	Any,Make_Visible
0026 00bf       |    |		Action	Accept_Activation
0027 e002       |    |		Load	0x0,0x2
0028 00e2       |    |		Load_Encached	Integer_Cache
0029 029f 01cb  |    |		Declare_Subprogram	INIT_01c8,For_Call
002b 4802       |H   |		Short_Literal	0x2
002c 032d       | -  |		Declare_Type	Record,Defined
002d 00d8       |    |		Load_Top	At_Offset_0
002e 02a0       |    |		Declare_Subprogram	Null_Subprogram
002f 03ad       |    |		Declare_Type	Heap_Access,Defined
0030 029b 01db  |    |		Declare_Subprogram	INIT_01d8,For_Outer_Call,Unelaborated
0032 0093 0000  |    |		push_full_address	0x0
0034 60b3       |`   |		Indirect_Literal	Discrete,0xe8,{0x80000000, 0x00030000}
0035 0273       | s  |		Execute	Discrete,Plus
0036 e003       |    |		Load	0x0,0x3
0037 0273       | s  |		Execute	Discrete,Plus
0038 e004       |    |		Load	0x0,0x4
0039 0273       | s  |		Execute	Discrete,Plus
003a 60a9       |`   |		Indirect_Literal	Discrete,0xe4,{0x00000000, 0x00010000}
003b e005       |    |		Load	0x0,0x5
003c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
003d e21a       |    |		Load	0x1,0x1a
003e 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
003f e006       |    |		Load	0x0,0x6
0040 0387       |    |		Declare_Variable	Package
0041 00d8       |    |		Load_Top	At_Offset_0
0042 020f       |    |		Execute	Module,Activate
0043 e007       |    |		Load	0x0,0x7
0044 00d9       |    |		Load_Top	At_Offset_1
0045 0098       |    |		Execute	Package,Field_Read_Dynamic
0046 0007       |    |		Action	Break_Optional
0047 00db       |    |		Load_Top	At_Offset_3
0048 e005       |    |		Load	0x0,0x5
0049 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
004a 02a0       |    |		Declare_Subprogram	Null_Subprogram
004b 4802       |H   |		Short_Literal	0x2
004c 032d       | -  |		Declare_Type	Record,Defined
004d 00d8       |    |		Load_Top	At_Offset_0
004e 02a0       |    |		Declare_Subprogram	Null_Subprogram
004f 03ad       |    |		Declare_Type	Heap_Access,Defined
0050 e008       |    |		Load	0x0,0x8
0051 e009       |    |		Load	0x0,0x9
0052 00da       |    |		Load_Top	At_Offset_2
0053 e00a       |    |		Load	0x0,0xa
0054 0387       |    |		Declare_Variable	Package
0055 00d8       |    |		Load_Top	At_Offset_0
0056 020f       |    |		Execute	Module,Activate
0057 00d8       |    |		Load_Top	At_Offset_0
0058 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0059 029b 01f3  |    |		Declare_Subprogram	INIT_01f0,For_Outer_Call,Unelaborated
005b 0093 0000  |    |		push_full_address	0x0
005d 6082       |`   |		Indirect_Literal	Discrete,0xe0,{0x80000000, 0x00010000}
005e 0273       | s  |		Execute	Discrete,Plus
005f e003       |    |		Load	0x0,0x3
0060 0273       | s  |		Execute	Discrete,Plus
0061 e00b       |    |		Load	0x0,0xb
0062 0273       | s  |		Execute	Discrete,Plus
0063 4900       |I   |		Short_Literal	0x100
0064 e00c       |    |		Load	0x0,0xc
0065 e220       |    |		Load	0x1,0x20
0066 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0067 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
0068 e006       |    |		Load	0x0,0x6
0069 0387       |    |		Declare_Variable	Package
006a 00d8       |    |		Load_Top	At_Offset_0
006b 020f       |    |		Execute	Module,Activate
006c e007       |    |		Load	0x0,0x7
006d 00d9       |    |		Load_Top	At_Offset_1
006e 0098       |    |		Execute	Package,Field_Read_Dynamic
006f 0007       |    |		Action	Break_Optional
0070 e00c       |    |		Load	0x0,0xc
0071 0007       |    |		Action	Break_Optional
0072 e220       |    |		Load	0x1,0x20
0073 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0074 4800       |H   |		Short_Literal	0x0
0075 0093 024b  |   K|		push_full_address	INIT_0248
0077 00f5       |    |		Load_Encached	Unused21
0078 037d       | }  |		Declare_Type	Task,Defined
0079 036f       | o  |		Declare_Variable	Task
007a a00d       |    |		Store_Unchecked	0x0,0xd
007b 4801       |H   |		Short_Literal	0x1
007c 00da       |    |		Load_Top	At_Offset_2
007d 020e       |    |		Execute	Module,Augment_Imports
007e 0007       |    |		Action	Break_Optional
007f 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0080 00c7       |    |		Action	Elaborate_Subprogram
0081 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0082 00c7       |    |		Action	Elaborate_Subprogram
0083 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0084 00c7       |    |		Action	Elaborate_Subprogram
0085 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0086 00c7       |    |		Action	Elaborate_Subprogram
0087 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
0088 00c7       |    |		Action	Elaborate_Subprogram
0089 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
008a 00c7       |    |		Action	Elaborate_Subprogram
008b 029d 0203  |    |		Declare_Subprogram	INIT_0200,For_Outer_Call
008d 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
008e 00c7       |    |		Action	Elaborate_Subprogram
008f 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0090 00c7       |    |		Action	Elaborate_Subprogram
0091 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0092 00c7       |    |		Action	Elaborate_Subprogram
0093 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0094 00c7       |    |		Action	Elaborate_Subprogram
0095 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0096 00c7       |    |		Action	Elaborate_Subprogram
0097 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0098 00c7       |    |		Action	Elaborate_Subprogram
0099 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
009a 00c7       |    |		Action	Elaborate_Subprogram
009b			BODY_0008:
009b			BODY_0008:
009b 00be       |    |		Action	Activate_Tasks
009c e007       |    |		Load	0x0,0x7
009d e21c       |    |		Load	0x1,0x1c
009e 0098       |    |		Execute	Package,Field_Read_Dynamic
009f 6044       |`D  |		Indirect_Literal	Discrete,0xe4,{0x00000000, 0x00010000}
00a0 e00e       |    |		Load	0x0,0xe
00a1 e21c       |    |		Load	0x1,0x1c
00a2 0096       |    |		Execute	Package,Entry
00a3 c21d       |    |		Store	0x1,0x1d
00a4 e007       |    |		Load	0x0,0x7
00a5 e223       | #  |		Load	0x1,0x23
00a6 0098       |    |		Execute	Package,Field_Read_Dynamic
00a7 4900       |I   |		Short_Literal	0x100
00a8 e00e       |    |		Load	0x0,0xe
00a9 e223       | #  |		Load	0x1,0x23
00aa 0096       |    |		Execute	Package,Entry
00ab c224       | $  |		Store	0x1,0x24
00ac 00bc       |    |		Action	Signal_Activated
00ad 00bb       |    |		Action	Signal_Completion
00ae 0000 0000  |    |		.XXX[0x2]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b7       |    |		.CONST	0x00b7								; Address of begin
00b1 0004       |    |		.CONST	0x0004								; Address of exception handler
00b2 0003       |    |		.CONST	0x0003								; Number of locals
00b3			INIT_00b0:
00b3 e21a       |    |		Load	0x1,0x1a
00b4 0007       |    |		Action	Break_Optional
00b5 e21f       |    |		Load	0x1,0x1f
00b6 0007       |    |		Action	Break_Optional
00b7			BODY_00b0:
00b7 e21a       |    |		Load	0x1,0x1a
00b8 e00f       |    |		Load	0x0,0xf
00b9 039c       |    |		Declare_Variable	Heap_Access,By_Allocation
00ba 00d8       |    |		Load_Top	At_Offset_0
00bb 0217       |    |		Execute	Heap_Access,All_Reference
00bc 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00bd 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
00be e21f       |    |		Load	0x1,0x1f
00bf e00f       |    |		Load	0x0,0xf
00c0 039c       |    |		Declare_Variable	Heap_Access,By_Allocation
00c1 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
00c2 e5fe       |    |		Load	0x2,-0x2
00c3 00da       |    |		Load_Top	At_Offset_2
00c4 0217       |    |		Execute	Heap_Access,All_Reference
00c5 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00c6 e5fd       |    |		Load	0x2,-0x3
00c7 00da       |    |		Load_Top	At_Offset_2
00c8 0217       |    |		Execute	Heap_Access,All_Reference
00c9 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00ca e21d       |    |		Load	0x1,0x1d
00cb 4800       |H   |		Short_Literal	0x0
00cc 00db       |    |		Load_Top	At_Offset_3
00cd e5ff       |    |		Load	0x2,-0x1
00ce e010       |    |		Load	0x0,0x10
00cf e21c       |    |		Load	0x1,0x1c
00d0 0096       |    |		Execute	Package,Entry
00d1 c21d       |    |		Store	0x1,0x1d
00d2 00d9       |    |		Load_Top	At_Offset_1
00d3 00d9       |    |		Load_Top	At_Offset_1
00d4 0217       |    |		Execute	Heap_Access,All_Reference
00d5 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00d6 e5ff       |    |		Load	0x2,-0x1
00d7 00d9       |    |		Load_Top	At_Offset_1
00d8 0217       |    |		Execute	Heap_Access,All_Reference
00d9 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00da e226       | &  |		Load	0x1,0x26
00db 00d9       |    |		Load_Top	At_Offset_1
00dc e220       |    |		Load	0x1,0x20
00dd 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
00de a226       | &  |		Store_Unchecked	0x1,0x26
00df 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
00e0 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
00e4 0000 0000  |    |		.LITERAL	{0x00000000, 0x00010000}
00e8 8000 0000  |    |		.LITERAL	{0x80000000, 0x00030000}
00ec 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f8       |    |		.CONST	0x00f8								; Address of begin
00f1 0004       |    |		.CONST	0x0004								; Address of exception handler
00f2 0004       |    |		.CONST	0x0004								; Number of locals
00f3			INIT_00f0:
00f3 e21a       |    |		Load	0x1,0x1a
00f4 0007       |    |		Action	Break_Optional
00f5 00e1       |    |		Load_Encached	Boolean_Cache
00f6 029f 0233  |   3|		Declare_Subprogram	INIT_0230,For_Call
00f8			BODY_00f0:
00f8 00e1       |    |		Load_Encached	Boolean_Cache
00f9 00db       |    |		Load_Top	At_Offset_3
00fa e5ff       |    |		Load	0x2,-0x1
00fb e21d       |    |		Load	0x1,0x1d
00fc e011       |    |		Load	0x0,0x11
00fd e21c       |    |		Load	0x1,0x1c
00fe 0096       |    |		Execute	Package,Entry
00ff c402       |    |		Store	0x2,0x2
0100 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0101 e21d       |    |		Load	0x1,0x1d
0102 e5ff       |    |		Load	0x2,-0x1
0103 e012       |    |		Load	0x0,0x12
0104 e21c       |    |		Load	0x1,0x1c
0105 0096       |    |		Execute	Package,Entry
0106 c21d       |    |		Store	0x1,0x1d
0107 00d9       |    |		Load_Top	At_Offset_1
0108 6801       |h   |		Jump_Zero	0x10a
0109 8404       |    |		Call	0x2,0x4
010a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
010b 0000 0000  |    |		.BLANK	0000[0x5]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0116       |    |		.CONST	0x0116								; Address of begin
0111 0004       |    |		.CONST	0x0004								; Address of exception handler
0112 0003       |    |		.CONST	0x0003								; Number of locals
0113			INIT_0110:
0113 e21a       |    |		Load	0x1,0x1a
0114 0007       |    |		Action	Break_Optional
0115 00e1       |    |		Load_Encached	Boolean_Cache
0116			BODY_0110:
0116 00e1       |    |		Load_Encached	Boolean_Cache
0117 00da       |    |		Load_Top	At_Offset_2
0118 e5ff       |    |		Load	0x2,-0x1
0119 e21d       |    |		Load	0x1,0x1d
011a e011       |    |		Load	0x0,0x11
011b e21c       |    |		Load	0x1,0x1c
011c 0096       |    |		Execute	Package,Entry
011d 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
011e 0059       | Y  |		Store_Top	Discrete,At_Offset_1
011f 00d8       |    |		Load_Top	At_Offset_0
0120 680b       |h   |		Jump_Zero	0x12c
0121 e5fe       |    |		Load	0x2,-0x2
0122 e5ff       |    |		Load	0x2,-0x1
0123 00db       |    |		Load_Top	At_Offset_3
0124 0217       |    |		Execute	Heap_Access,All_Reference
0125 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0126 e402       |    |		Load	0x2,0x2
0127 0217       |    |		Execute	Heap_Access,All_Reference
0128 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0129 4804       |H   |		Short_Literal	0x4
012a e227       | '  |		Load	0x1,0x27
012b 170d       |    |		Execute	Task,Entry_Call,Field_Number 0xd
012c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
012d 0000 0000  |    |		.XXX[0x3]
012f 0000       |    |
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133       | 3  |		.CONST	0x0133								; Address of begin
0131 0004       |    |		.CONST	0x0004								; Address of exception handler
0132 0001       |    |		.CONST	0x0001								; Number of locals
0133			BODY_0130:
0133			INIT_0130:
0133 e5fc       |    |		Load	0x2,-0x4
0134 00db       |    |		Load_Top	At_Offset_3
0135 e5fd       |    |		Load	0x2,-0x3
0136 e5fe       |    |		Load	0x2,-0x2
0137 4804       |H   |		Short_Literal	0x4
0138 e227       | '  |		Load	0x1,0x27
0139 170d       |    |		Execute	Task,Entry_Call,Field_Number 0xd
013a 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
013b 0000 0000  |    |		.BLANK	0000[0x5]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143       | C  |		.CONST	0x0143								; Address of begin
0141 0004       |    |		.CONST	0x0004								; Address of exception handler
0142 0001       |    |		.CONST	0x0001								; Number of locals
0143			BODY_0140:
0143			INIT_0140:
0143 00da       |    |		Load_Top	At_Offset_2
0144 6803       |h   |		Jump_Zero	0x148
0145 e221       | !  |		Load	0x1,0x21
0146 8228       | (  |		Call	0x1,0x28
0147 7805       |x   |		Jump	0x14d
0148 e21d       |    |		Load	0x1,0x1d
0149 e013       |    |		Load	0x0,0x13
014a e21c       |    |		Load	0x1,0x1c
014b 0096       |    |		Execute	Package,Entry
014c c21d       |    |		Store	0x1,0x1d
014d e220       |    |		Load	0x1,0x20
014e 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
014f a221       | !  |		Store_Unchecked	0x1,0x21
0150 e014       |    |		Load	0x0,0x14
0151 a225       | %  |		Store_Unchecked	0x1,0x25
0152 e220       |    |		Load	0x1,0x20
0153 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0154 a226       | &  |		Store_Unchecked	0x1,0x26
0155 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0156 0000 0000  |    |		.XXX[0x2]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b       | [  |		.CONST	0x015b								; Address of begin
0159 0004       |    |		.CONST	0x0004								; Address of exception handler
015a 0001       |    |		.CONST	0x0001								; Number of locals
015b			BODY_0158:
015b			INIT_0158:
015b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
015c 0000 0000  |    |		.BLANK	0000[0x4]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163       | c  |		.CONST	0x0163								; Address of begin
0161 0004       |    |		.CONST	0x0004								; Address of exception handler
0162 0001       |    |		.CONST	0x0001								; Number of locals
0163			BODY_0160:
0163			INIT_0160:
0163 00da       |    |		Load_Top	At_Offset_2
0164 a225       | %  |		Store_Unchecked	0x1,0x25
0165 e220       |    |		Load	0x1,0x20
0166 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0167 a226       | &  |		Store_Unchecked	0x1,0x26
0168 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0169 0000 0000  |    |		.BLANK	0000[0x7]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173       | s  |		.CONST	0x0173								; Address of begin
0171 0004       |    |		.CONST	0x0004								; Address of exception handler
0172 0001       |    |		.CONST	0x0001								; Number of locals
0173			BODY_0170:
0173			INIT_0170:
0173 e224       | $  |		Load	0x1,0x24
0174 4800       |H   |		Short_Literal	0x0
0175 e226       | &  |		Load	0x1,0x26
0176 e225       | %  |		Load	0x1,0x25
0177 e010       |    |		Load	0x0,0x10
0178 e223       | #  |		Load	0x1,0x23
0179 0096       |    |		Execute	Package,Entry
017a c224       | $  |		Store	0x1,0x24
017b e220       |    |		Load	0x1,0x20
017c 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
017d a226       | &  |		Store_Unchecked	0x1,0x26
017e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
017f 0000       |    |		.XXX[0x1]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0186       |    |		.CONST	0x0186								; Address of begin
0181 0004       |    |		.CONST	0x0004								; Address of exception handler
0182 0003       |    |		.CONST	0x0003								; Number of locals
0183			INIT_0180:
0183 e220       |    |		Load	0x1,0x20
0184 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0185 00e1       |    |		Load_Encached	Boolean_Cache
0186			BODY_0180:
0186 00e1       |    |		Load_Encached	Boolean_Cache
0187 00da       |    |		Load_Top	At_Offset_2
0188 e5ff       |    |		Load	0x2,-0x1
0189 e224       | $  |		Load	0x1,0x24
018a e011       |    |		Load	0x0,0x11
018b e223       | #  |		Load	0x1,0x23
018c 0096       |    |		Execute	Package,Entry
018d 003b       | ;  |		Store_Top	Access,At_Offset_3
018e 0059       | Y  |		Store_Top	Discrete,At_Offset_1
018f 00d8       |    |		Load_Top	At_Offset_0
0190 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0191 0000 0000  |    |		.BLANK	0000[0x7]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 01a0       |    |		.CONST	0x01a0								; Address of begin
0199 0004       |    |		.CONST	0x0004								; Address of exception handler
019a 0004       |    |		.CONST	0x0004								; Number of locals
019b			INIT_0198:
019b e220       |    |		Load	0x1,0x20
019c 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
019d 00e1       |    |		Load_Encached	Boolean_Cache
019e e220       |    |		Load	0x1,0x20
019f 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
01a0			BODY_0198:
01a0 00e1       |    |		Load_Encached	Boolean_Cache
01a1 00db       |    |		Load_Top	At_Offset_3
01a2 e5ff       |    |		Load	0x2,-0x1
01a3 e224       | $  |		Load	0x1,0x24
01a4 e011       |    |		Load	0x0,0x11
01a5 e223       | #  |		Load	0x1,0x23
01a6 0096       |    |		Execute	Package,Entry
01a7 c402       |    |		Store	0x2,0x2
01a8 005a       | Z  |		Store_Top	Discrete,At_Offset_2
01a9 00d9       |    |		Load_Top	At_Offset_1
01aa 6803       |h   |		Jump_Zero	0x1ae
01ab 00da       |    |		Load_Top	At_Offset_2
01ac 8228       | (  |		Call	0x1,0x28
01ad 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01ae e218       |    |		Load	0x1,0x18
01af 0257       | W  |		Execute	Discrete,Raise
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 4800       |H   |		Short_Literal	0x0
01b4 0092 0269  |   i|		Action	Push_String_Extended,0x269					; "Breakpoint Map Statistics"
01b6 e21d       |    |		Load	0x1,0x1d
01b7 e015       |    |		Load	0x0,0x15
01b8 e21c       |    |		Load	0x1,0x1c
01b9 0096       |    |		Execute	Package,Entry
01ba 4800       |H   |		Short_Literal	0x0
01bb 0092 026a  |   j|		Action	Push_String_Extended,0x26a					; "Unit Map Statistics"
01bd e224       | $  |		Load	0x1,0x24
01be e015       |    |		Load	0x0,0x15
01bf e223       | #  |		Load	0x1,0x23
01c0 0096       |    |		Execute	Package,Entry
01c1 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01c2 0000 0000  |    |		.BLANK	0000[0x6]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb       |    |		.CONST	0x01cb								; Address of begin
01c9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ca 0001       |    |		.CONST	0x0001								; Number of locals
01cb			BODY_01c8:
01cb			INIT_01c8:
01cb 4601       |F   |		Jump_Case	0x2
01cc 7801       |x   |		Jump	0x1ce								; case 0x0
01cd 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
01ce 4800       |H   |		Short_Literal	0x0
01cf 00db       |    |		Load_Top	At_Offset_3
01d0 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01d1 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
01d2 0000 0000  |    |		.BLANK	0000[0x6]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db       |    |		.CONST	0x01db								; Address of begin
01d9 0004       |    |		.CONST	0x0004								; Address of exception handler
01da 0001       |    |		.CONST	0x0001								; Number of locals
01db			BODY_01d8:
01db			INIT_01d8:
01db 00da       |    |		Load_Top	At_Offset_2
01dc e016       |    |		Load	0x0,0x16
01dd 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01de 09fd       |    |		Execute_Immediate	Binary_Scale,-0x3
01df 6008       |`   |		Indirect_Literal	Discrete,0x1e8,{0x00000000, 0x0000ffff}
01e0 0279       | y  |		Execute	Discrete,And
01e1 00d8       |    |		Load_Top	At_Offset_0
01e2 00e2       |    |		Load_Encached	Integer_Cache
01e3 0260       | `  |		Execute	Discrete,In_Type
01e4 7001       |p   |		Jump_Nonzero	0x1e6
01e5 0801       |    |		Execute_Immediate	Raise,0x1
01e6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01e7 0000       |    |		.XXX[0x1]
01e8 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000ffff}
01ec 0000 0000  |    |		.BLANK	0000[0x4]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3       |    |		.CONST	0x01f3								; Address of begin
01f1 0004       |    |		.CONST	0x0004								; Address of exception handler
01f2 0001       |    |		.CONST	0x0001								; Number of locals
01f3			BODY_01f0:
01f3			INIT_01f0:
01f3 00da       |    |		Load_Top	At_Offset_2
01f4 8017       |    |		Call	0x0,0x17
01f5 09fd       |    |		Execute_Immediate	Binary_Scale,-0x3
01f6 48ff       |H   |		Short_Literal	0xff
01f7 0279       | y  |		Execute	Discrete,And
01f8 00d8       |    |		Load_Top	At_Offset_0
01f9 00e2       |    |		Load_Encached	Integer_Cache
01fa 0260       | `  |		Execute	Discrete,In_Type
01fb 7001       |p   |		Jump_Nonzero	0x1fd
01fc 0801       |    |		Execute_Immediate	Raise,0x1
01fd 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01fe 0000 0000  |    |		.XXX[0x2]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0207       |    |		.CONST	0x0207								; Address of begin
0201 0004       |    |		.CONST	0x0004								; Address of exception handler
0202 0003       |    |		.CONST	0x0003								; Number of locals
0203			INIT_0200:
0203 e220       |    |		Load	0x1,0x20
0204 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
0205 e21f       |    |		Load	0x1,0x1f
0206 0007       |    |		Action	Break_Optional
0207			BODY_0200:
0207 e220       |    |		Load	0x1,0x20
0208 1b1a       |    |		Execute	Package,Field_Read,Field_Number 0x1a
0209 e5ff       |    |		Load	0x2,-0x1
020a e220       |    |		Load	0x1,0x20
020b 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
020c 003a       | :  |		Store_Top	Access,At_Offset_2
020d 00cf       |    |		Action	Mark_Auxiliary
020e 7817       |x   |		Jump	0x226
020f 00da       |    |		Load_Top	At_Offset_2
0210 e220       |    |		Load	0x1,0x20
0211 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0212 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
0213 00d9       |    |		Load_Top	At_Offset_1
0214 0217       |    |		Execute	Heap_Access,All_Reference
0215 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0216 0217       |    |		Execute	Heap_Access,All_Reference
0217 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0218 00da       |    |		Load_Top	At_Offset_2
0219 0217       |    |		Execute	Heap_Access,All_Reference
021a 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
021b 0217       |    |		Execute	Heap_Access,All_Reference
021c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
021d 00db       |    |		Load_Top	At_Offset_3
021e 0217       |    |		Execute	Heap_Access,All_Reference
021f 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0220 820d       |    |		Call	0x1,0xd
0221 00da       |    |		Load_Top	At_Offset_2
0222 e220       |    |		Load	0x1,0x20
0223 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0224 003b       | ;  |		Store_Top	Access,At_Offset_3
0225 00c9       |    |		Action	Pop_Auxiliary_Loop
0226 00da       |    |		Load_Top	At_Offset_2
0227 e220       |    |		Load	0x1,0x20
0228 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0229 6fe5       |o   |		Jump_Zero	0x20f
022a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
022b 0000 0000  |    |		.BLANK	0000[0x5]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0236       | 6  |		.CONST	0x0236								; Address of begin
0231 0004       |    |		.CONST	0x0004								; Address of exception handler
0232 0002       |    |		.CONST	0x0002								; Number of locals
0233			INIT_0230:
0233 e21f       |    |		Load	0x1,0x1f
0234 e00f       |    |		Load	0x0,0xf
0235 039c       |    |		Declare_Variable	Heap_Access,By_Allocation
0236			BODY_0230:
0236 e402       |    |		Load	0x2,0x2
0237 00d9       |    |		Load_Top	At_Offset_1
0238 0217       |    |		Execute	Heap_Access,All_Reference
0239 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
023a e5ff       |    |		Load	0x2,-0x1
023b 00d9       |    |		Load_Top	At_Offset_1
023c 0217       |    |		Execute	Heap_Access,All_Reference
023d 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
023e e221       | !  |		Load	0x1,0x21
023f 00d9       |    |		Load_Top	At_Offset_1
0240 e220       |    |		Load	0x1,0x20
0241 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0242 a221       | !  |		Store_Unchecked	0x1,0x21
0243 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0244 0000 0000  |    |		.BLANK	0000[0x4]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 0256       | V  |		.CONST	0x0256								; Address of begin
0249 0004       |    |		.CONST	0x0004								; Address of exception handler
024a 000e       |    |		.CONST	0x000e								; Number of locals
024b			INIT_0248:
024b 4804       |H   |		Short_Literal	0x4
024c 02cb       |    |		Declare_Variable	Entry
024d 00bf       |    |		Action	Accept_Activation
024e 480d 484c  |H HL|		Declare_Variable	Select	0x000, 0x001,
0250 4800 4801  |H H |				[0x000]: 0x001 = 0x0008,
0252 4800 4801  |H H |				[0x00d]: 0x04c = 0x0260
0254 02cf       |    |
0255 00bc       |    |		Action	Signal_Activated
0256			BODY_0248:
0256 00cf       |    |		Action	Mark_Auxiliary
0257 00d9       |    |		Load_Top	At_Offset_1
0258 013f       | ?  |		Execute	Select,Rendezvous
0259 00d1       |    |		Pop_Control	Pop_Count_1
025a 00c9       |    |		Action	Pop_Auxiliary_Loop
025b 7ffb       |    |		Jump	0x257
025c 0000 0000  |    |		.BLANK	0000[0x4]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; See instruction 0x02cf at 0x24e, index=0xd
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 e5fb       |    |		Load	0x2,-0x5
0264 e5fc       |    |		Load	0x2,-0x4
0265 e5fd       |    |		Load	0x2,-0x3
0266 e5fe       |    |		Load	0x2,-0x2
0267 8001       |    |		Call	0x0,0x1
0268 4100       |A   |		End_Rendezvous	0x0
0269 ; --------------------------------------------------------------------------------------
0269 ; STRING TABLE
0269 ; --------------------------------------------------------------------------------------
0269 0006       |    |		.STRTAB	0x0006->0x026c							; "Breakpoint Map Statistics"
026a 001d       |    |		.STRTAB	0x001d->0x0278							; "Unit Map Statistics"
026b 002e       | .  |		.STREND 0x002e->0x0282
026c 4272 6561  |Brea|		.STRTAB_STRINGS
0282 0000 0000  |    |		.BLANK	0000[0x6]
0288 ; --------------------------------------------------------------------------------------
0288 ; Debug Table
0288 ; --------------------------------------------------------------------------------------
0288 0004 000a  |    |		.DEBUG4	0x0004,0x000a,0xa786,0x0000,0x0001,0x0000
028e 0000 0000  |    |		.BLANK	0000[0x172]