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

⟦39f792b20⟧

    Length: 1024 (0x400)
    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 01e8       |    |		.CONST	0x01e8								; 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 0063       | c  |		.CONST	0x0063								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 001d       |    |		.CONST	0x001d								; Number of locals
000b			INIT_0008:
000b 03a9       |    |		Declare_Type	Heap_Access,Indirect_Literal,Visible
000c e002       |    |		Load	0x0,0x2
000d e003       |    |		Load	0x0,0x3
000e e004       |    |		Load	0x0,0x4
000f 00db       |    |		Load_Top	At_Offset_3
0010 02a0       |    |		Declare_Subprogram	Null_Subprogram
0011 4804       |H   |		Short_Literal	0x4
0012 032e       | .  |		Declare_Type	Record,Defined,Visible
0013 00d8       |    |		Load_Top	At_Offset_0
0014 02a0       |    |		Declare_Subprogram	Null_Subprogram
0015 00db       |    |		Load_Top	At_Offset_3
0016 03a3       |    |		Complete_Type	Heap_Access,By_Defining
0017 029a 006b  |   k|		Declare_Subprogram	INIT_0068,For_Outer_Call,Visible,Unelaborated
0019 029a 00ab  |    |		Declare_Subprogram	INIT_00a8,For_Outer_Call,Visible,Unelaborated
001b 03a9       |    |		Declare_Type	Heap_Access,Indirect_Literal,Visible
001c 029a 00cb  |    |		Declare_Subprogram	INIT_00c8,For_Outer_Call,Visible,Unelaborated
001e 029a 00eb  |    |		Declare_Subprogram	INIT_00e8,For_Outer_Call,Visible,Unelaborated
0020 029a 011b  |    |		Declare_Subprogram	INIT_0118,For_Outer_Call,Visible,Unelaborated
0022 029a 0123  |   #|		Declare_Subprogram	INIT_0120,For_Outer_Call,Visible,Unelaborated
0024 029a 0133  |   3|		Declare_Subprogram	INIT_0130,For_Outer_Call,Visible,Unelaborated
0026 029a 013b  |   ;|		Declare_Subprogram	INIT_0138,For_Outer_Call,Visible,Unelaborated
0028 029a 0143  |   C|		Declare_Subprogram	INIT_0140,For_Outer_Call,Visible,Unelaborated
002a 029a 014b  |   K|		Declare_Subprogram	INIT_0148,For_Outer_Call,Visible,Unelaborated
002c 029a 016b  |   k|		Declare_Subprogram	INIT_0168,For_Outer_Call,Visible,Unelaborated
002e 0093 0000  |    |		push_full_address	0x0
0030 606f       |`o  |		Indirect_Literal	Discrete,0xa0,{0x80000000, 0x00010000}
0031 0273       | s  |		Execute	Discrete,Plus
0032 e005       |    |		Load	0x0,0x5
0033 0273       | s  |		Execute	Discrete,Plus
0034 e006       |    |		Load	0x0,0x6
0035 0273       | s  |		Execute	Discrete,Plus
0036 e211       |    |		Load	0x1,0x11
0037 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0038 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0039 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
003a 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
003b e007       |    |		Load	0x0,0x7
003c 0386       |    |		Declare_Variable	Package,Visible
003d 00d8       |    |		Load_Top	At_Offset_0
003e 020f       |    |		Execute	Module,Activate
003f e002       |    |		Load	0x0,0x2
0040 00e1       |    |		Load_Encached	Boolean_Cache
0041 00e1       |    |		Load_Encached	Boolean_Cache
0042 029f 01c3  |    |		Declare_Subprogram	INIT_01c0,For_Call
0044 4803       |H   |		Short_Literal	0x3
0045 032e       | .  |		Declare_Type	Record,Defined,Visible
0046 00d8       |    |		Load_Top	At_Offset_0
0047 02a0       |    |		Declare_Subprogram	Null_Subprogram
0048 e211       |    |		Load	0x1,0x11
0049 03a3       |    |		Complete_Type	Heap_Access,By_Defining
004a 00bf       |    |		Action	Accept_Activation
004b 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
004c 00c7       |    |		Action	Elaborate_Subprogram
004d 029d 0193  |    |		Declare_Subprogram	INIT_0190,For_Outer_Call
004f 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0050 00c7       |    |		Action	Elaborate_Subprogram
0051 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
0052 00c7       |    |		Action	Elaborate_Subprogram
0053 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0054 00c7       |    |		Action	Elaborate_Subprogram
0055 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0056 00c7       |    |		Action	Elaborate_Subprogram
0057 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0058 00c7       |    |		Action	Elaborate_Subprogram
0059 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
005a 00c7       |    |		Action	Elaborate_Subprogram
005b 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
005c 00c7       |    |		Action	Elaborate_Subprogram
005d 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
005e 00c7       |    |		Action	Elaborate_Subprogram
005f 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0060 00c7       |    |		Action	Elaborate_Subprogram
0061 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0062 00c7       |    |		Action	Elaborate_Subprogram
0063			BODY_0008:
0063 00bc       |    |		Action	Signal_Activated
0064 00bb       |    |		Action	Signal_Completion
0065 0000 0000  |    |		.XXX[0x3]
0067 0000       |    |
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006d       | m  |		.CONST	0x006d								; Address of begin
0069 0004       |    |		.CONST	0x0004								; Address of exception handler
006a 0003       |    |		.CONST	0x0003								; Number of locals
006b			INIT_0068:
006b e20d       |    |		Load	0x1,0xd
006c 039d       |    |		Declare_Variable	Heap_Access,Duplicate
006d			BODY_0068:
006d e20d       |    |		Load	0x1,0xd
006e e5fd       |    |		Load	0x2,-0x3
006f 039c       |    |		Declare_Variable	Heap_Access,By_Allocation
0070 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
0071 e5fe       |    |		Load	0x2,-0x2
0072 00da       |    |		Load_Top	At_Offset_2
0073 0217       |    |		Execute	Heap_Access,All_Reference
0074 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0075 e5fd       |    |		Load	0x2,-0x3
0076 8008       |    |		Call	0x0,0x8
0077 00da       |    |		Load_Top	At_Offset_2
0078 0217       |    |		Execute	Heap_Access,All_Reference
0079 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
007a 00d9       |    |		Load_Top	At_Offset_1
007b 0219       |    |		Execute	Heap_Access,All_Read
007c 00d8       |    |		Load_Top	At_Offset_0
007d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
007e e5ff       |    |		Load	0x2,-0x1
007f 8009       |    |		Call	0x0,0x9
0080 00d9       |    |		Load_Top	At_Offset_1
0081 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0082 00d1       |    |		Pop_Control	Pop_Count_1
0083 e5fd       |    |		Load	0x2,-0x3
0084 800a       |    |		Call	0x0,0xa
0085 00da       |    |		Load_Top	At_Offset_2
0086 0217       |    |		Execute	Heap_Access,All_Reference
0087 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0088 00d9       |    |		Load_Top	At_Offset_1
0089 0219       |    |		Execute	Heap_Access,All_Read
008a 00d8       |    |		Load_Top	At_Offset_0
008b 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
008c e5ff       |    |		Load	0x2,-0x1
008d 800b       |    |		Call	0x0,0xb
008e 00d9       |    |		Load_Top	At_Offset_1
008f 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0090 00d1       |    |		Pop_Control	Pop_Count_1
0091 e5fc       |    |		Load	0x2,-0x4
0092 6808       |h   |		Jump_Zero	0x9b
0093 e5fc       |    |		Load	0x2,-0x4
0094 00da       |    |		Load_Top	At_Offset_2
0095 0217       |    |		Execute	Heap_Access,All_Reference
0096 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0097 e5fc       |    |		Load	0x2,-0x4
0098 0217       |    |		Execute	Heap_Access,All_Reference
0099 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
009a 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
009b 00d9       |    |		Load_Top	At_Offset_1
009c a5fc       |    |		Store_Unchecked	0x2,-0x4
009d 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
009e 0000 0000  |    |		.XXX[0x2]
00a0 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
00a4 0000 0000  |    |		.BLANK	0000[0x4]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00b4       |    |		.CONST	0x00b4								; Address of begin
00a9 0004       |    |		.CONST	0x0004								; Address of exception handler
00aa 0003       |    |		.CONST	0x0003								; Number of locals
00ab			INIT_00a8:
00ab e002       |    |		Load	0x0,0x2
00ac 00db       |    |		Load_Top	At_Offset_3
00ad 800c       |    |		Call	0x0,0xc
00ae 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
00af e00d       |    |		Load	0x0,0xd
00b0 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00b1 02c7       |    |		Declare_Variable	Any
00b2 00d8       |    |		Load_Top	At_Offset_0
00b3 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00b4			BODY_00a8:
00b4 e5fe       |    |		Load	0x2,-0x2
00b5 800e       |    |		Call	0x0,0xe
00b6 a5fd       |    |		Store_Unchecked	0x2,-0x3
00b7 e5fd       |    |		Load	0x2,-0x3
00b8 e5fe       |    |		Load	0x2,-0x2
00b9 00db       |    |		Load_Top	At_Offset_3
00ba 821d       |    |		Call	0x1,0x1d
00bb 4800       |H   |		Short_Literal	0x0
00bc 800f       |    |		Call	0x0,0xf
00bd c5fd       |    |		Store	0x2,-0x3
00be 00d8       |    |		Load_Top	At_Offset_0
00bf e5fd       |    |		Load	0x2,-0x3
00c0 8010       |    |		Call	0x0,0x10
00c1 c403       |    |		Store	0x2,0x3
00c2 4802       |H   |		Short_Literal	0x2
00c3 00da       |    |		Load_Top	At_Offset_2
00c4 00da       |    |		Load_Top	At_Offset_2
00c5 8011       |    |		Call	0x0,0x11
00c6 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00c7 0000       |    |		.XXX[0x1]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cc       |    |		.CONST	0x00cc								; Address of begin
00c9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ca 0002       |    |		.CONST	0x0002								; Number of locals
00cb			INIT_00c8:
00cb 00e1       |    |		Load_Encached	Boolean_Cache
00cc			BODY_00c8:
00cc 00db       |    |		Load_Top	At_Offset_3
00cd 0217       |    |		Execute	Heap_Access,All_Reference
00ce 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00cf e5fe       |    |		Load	0x2,-0x2
00d0 0217       |    |		Execute	Heap_Access,All_Reference
00d1 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00d2 027f       |    |		Execute	Discrete,Equal
00d3 6810       |h   |		Jump_Zero	0xe4
00d4 00db       |    |		Load_Top	At_Offset_3
00d5 0217       |    |		Execute	Heap_Access,All_Reference
00d6 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00d7 e5fe       |    |		Load	0x2,-0x2
00d8 0217       |    |		Execute	Heap_Access,All_Reference
00d9 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00da 027f       |    |		Execute	Discrete,Equal
00db 6806       |h   |		Jump_Zero	0xe2
00dc 00db       |    |		Load_Top	At_Offset_3
00dd 8218       |    |		Call	0x1,0x18
00de e5fe       |    |		Load	0x2,-0x2
00df 8218       |    |		Call	0x1,0x18
00e0 01df       |    |		Execute	Vector,Equal
00e1 7803       |x   |		Jump	0xe5
00e2 4800       |H   |		Short_Literal	0x0
00e3 7801       |x   |		Jump	0xe5
00e4 4800       |H   |		Short_Literal	0x0
00e5 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
00e6 00d8       |    |		Load_Top	At_Offset_0
00e7 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00ed       |    |		.CONST	0x00ed								; Address of begin
00e9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ea 0002       |    |		.CONST	0x0002								; Number of locals
00eb			INIT_00e8:
00eb 00da       |    |		Load_Top	At_Offset_2
00ec 8218       |    |		Call	0x1,0x18
00ed			BODY_00e8:
00ed 00db       |    |		Load_Top	At_Offset_3
00ee 0217       |    |		Execute	Heap_Access,All_Reference
00ef 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00f0 e5ff       |    |		Load	0x2,-0x1
00f1 0217       |    |		Execute	Heap_Access,All_Reference
00f2 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00f3 0279       | y  |		Execute	Discrete,And
00f4 6805       |h   |		Jump_Zero	0xfa
00f5 00d8       |    |		Load_Top	At_Offset_0
00f6 0092 01cd  |    |		Action	Push_String_Extended,0x1cd					; ", S D "
00f8 01cc       |    |		Execute	Vector,Catenate
00f9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00fa 00db       |    |		Load_Top	At_Offset_3
00fb 0217       |    |		Execute	Heap_Access,All_Reference
00fc 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00fd 6805       |h   |		Jump_Zero	0x103
00fe 00d8       |    |		Load_Top	At_Offset_0
00ff 0092 01ce  |    |		Action	Push_String_Extended,0x1ce					; ",   D "
0101 01cc       |    |		Execute	Vector,Catenate
0102 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0103 00db       |    |		Load_Top	At_Offset_3
0104 0217       |    |		Execute	Heap_Access,All_Reference
0105 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0106 6805       |h   |		Jump_Zero	0x10c
0107 00d8       |    |		Load_Top	At_Offset_0
0108 0092 01cf  |    |		Action	Push_String_Extended,0x1cf					; ", S   "
010a 01cc       |    |		Execute	Vector,Catenate
010b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
010c 00d8       |    |		Load_Top	At_Offset_0
010d 0092 01d0  |    |		Action	Push_String_Extended,0x1d0					; ",     "
010f 01cc       |    |		Execute	Vector,Catenate
0110 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0111 0000 0000  |    |		.BLANK	0000[0x7]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b       |    |		.CONST	0x011b								; Address of begin
0119 0004       |    |		.CONST	0x0004								; Address of exception handler
011a 0001       |    |		.CONST	0x0001								; Number of locals
011b			BODY_0118:
011b			INIT_0118:
011b e211       |    |		Load	0x1,0x11
011c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
011d 0000 0000  |    |		.XXX[0x3]
011f 0000       |    |
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123       | #  |		.CONST	0x0123								; Address of begin
0121 0004       |    |		.CONST	0x0004								; Address of exception handler
0122 0001       |    |		.CONST	0x0001								; Number of locals
0123			BODY_0120:
0123			INIT_0120:
0123 00da       |    |		Load_Top	At_Offset_2
0124 6808       |h   |		Jump_Zero	0x12d
0125 00da       |    |		Load_Top	At_Offset_2
0126 0219       |    |		Execute	Heap_Access,All_Read
0127 00d8       |    |		Load_Top	At_Offset_0
0128 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0129 8012       |    |		Call	0x0,0x12
012a 00d9       |    |		Load_Top	At_Offset_1
012b 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
012c 00d1       |    |		Pop_Control	Pop_Count_1
012d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
012e 0000 0000  |    |		.XXX[0x2]
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 00da       |    |		Load_Top	At_Offset_2
0134 0217       |    |		Execute	Heap_Access,All_Reference
0135 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0136 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0137 0000       |    |		.XXX[0x1]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b       | ;  |		.CONST	0x013b								; Address of begin
0139 0004       |    |		.CONST	0x0004								; Address of exception handler
013a 0001       |    |		.CONST	0x0001								; Number of locals
013b			BODY_0138:
013b			INIT_0138:
013b 00da       |    |		Load_Top	At_Offset_2
013c 0217       |    |		Execute	Heap_Access,All_Reference
013d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
013e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
013f 0000       |    |		.XXX[0x1]
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 0217       |    |		Execute	Heap_Access,All_Reference
0145 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0146 8013       |    |		Call	0x0,0x13
0147 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b       | K  |		.CONST	0x014b								; Address of begin
0149 0004       |    |		.CONST	0x0004								; Address of exception handler
014a 0001       |    |		.CONST	0x0001								; Number of locals
014b			BODY_0148:
014b			INIT_0148:
014b 00db       |    |		Load_Top	At_Offset_3
014c 8214       |    |		Call	0x1,0x14
014d a5fd       |    |		Store_Unchecked	0x2,-0x3
014e e211       |    |		Load	0x1,0x11
014f e5fe       |    |		Load	0x2,-0x2
0150 039c       |    |		Declare_Variable	Heap_Access,By_Allocation
0151 00d8       |    |		Load_Top	At_Offset_0
0152 0217       |    |		Execute	Heap_Access,All_Reference
0153 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0154 a5fd       |    |		Store_Unchecked	0x2,-0x3
0155 00da       |    |		Load_Top	At_Offset_2
0156 8014       |    |		Call	0x0,0x14
0157 e5fd       |    |		Load	0x2,-0x3
0158 0217       |    |		Execute	Heap_Access,All_Reference
0159 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
015a 00da       |    |		Load_Top	At_Offset_2
015b 8015       |    |		Call	0x0,0x15
015c e5fd       |    |		Load	0x2,-0x3
015d 0217       |    |		Execute	Heap_Access,All_Reference
015e 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
015f 00db       |    |		Load_Top	At_Offset_3
0160 00db       |    |		Load_Top	At_Offset_3
0161 8016       |    |		Call	0x0,0x16
0162 8017       |    |		Call	0x0,0x17
0163 e5fd       |    |		Load	0x2,-0x3
0164 0217       |    |		Execute	Heap_Access,All_Reference
0165 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0166 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0167 0000       |    |		.XXX[0x1]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b       | k  |		.CONST	0x016b								; Address of begin
0169 0004       |    |		.CONST	0x0004								; Address of exception handler
016a 0001       |    |		.CONST	0x0001								; Number of locals
016b			BODY_0168:
016b			INIT_0168:
016b e5fd       |    |		Load	0x2,-0x3
016c 8215       |    |		Call	0x1,0x15
016d c5fd       |    |		Store	0x2,-0x3
016e 00db       |    |		Load_Top	At_Offset_3
016f 8214       |    |		Call	0x1,0x14
0170 a5fd       |    |		Store_Unchecked	0x2,-0x3
0171 e211       |    |		Load	0x1,0x11
0172 e5fe       |    |		Load	0x2,-0x2
0173 039c       |    |		Declare_Variable	Heap_Access,By_Allocation
0174 00d8       |    |		Load_Top	At_Offset_0
0175 0217       |    |		Execute	Heap_Access,All_Reference
0176 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0177 a5fd       |    |		Store_Unchecked	0x2,-0x3
0178 00da       |    |		Load_Top	At_Offset_2
0179 0217       |    |		Execute	Heap_Access,All_Reference
017a 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
017b e5fd       |    |		Load	0x2,-0x3
017c 0217       |    |		Execute	Heap_Access,All_Reference
017d 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
017e 00da       |    |		Load_Top	At_Offset_2
017f 0217       |    |		Execute	Heap_Access,All_Reference
0180 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0181 e5fd       |    |		Load	0x2,-0x3
0182 0217       |    |		Execute	Heap_Access,All_Reference
0183 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0184 e5fd       |    |		Load	0x2,-0x3
0185 0219       |    |		Execute	Heap_Access,All_Read
0186 00d8       |    |		Load_Top	At_Offset_0
0187 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0188 e5fe       |    |		Load	0x2,-0x2
0189 e5ff       |    |		Load	0x2,-0x1
018a 0217       |    |		Execute	Heap_Access,All_Reference
018b 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
018c 8018       |    |		Call	0x0,0x18
018d 00d9       |    |		Load_Top	At_Offset_1
018e 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
018f 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 019c       |    |		.CONST	0x019c								; Address of begin
0191 0004       |    |		.CONST	0x0004								; Address of exception handler
0192 0004       |    |		.CONST	0x0004								; Number of locals
0193			INIT_0190:
0193 e019       |    |		Load	0x0,0x19
0194 0007       |    |		Action	Break_Optional
0195 e002       |    |		Load	0x0,0x2
0196 0007       |    |		Action	Break_Optional
0197 e00d       |    |		Load	0x0,0xd
0198 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0199 02c7       |    |		Declare_Variable	Any
019a 00d8       |    |		Load_Top	At_Offset_0
019b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
019c			BODY_0190:
019c e5fe       |    |		Load	0x2,-0x2
019d 801a       |    |		Call	0x0,0x1a
019e 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
019f 00da       |    |		Load_Top	At_Offset_2
01a0 e5ff       |    |		Load	0x2,-0x1
01a1 4800       |H   |		Short_Literal	0x0
01a2 801b       |    |		Call	0x0,0x1b
01a3 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
01a4 00d8       |    |		Load_Top	At_Offset_0
01a5 00db       |    |		Load_Top	At_Offset_3
01a6 801c       |    |		Call	0x0,0x1c
01a7 c404       |    |		Store	0x2,0x4
01a8 4802       |H   |		Short_Literal	0x2
01a9 e5ff       |    |		Load	0x2,-0x1
01aa 00da       |    |		Load_Top	At_Offset_2
01ab 8011       |    |		Call	0x0,0x11
01ac 0092 01d1  |    |		Action	Push_String_Extended,0x1d1					; "Coverage"
01ae 00db       |    |		Load_Top	At_Offset_3
01af 801d       |    |		Call	0x0,0x1d
01b0 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
01b1 00da       |    |		Load_Top	At_Offset_2
01b2 4800       |H   |		Short_Literal	0x0
01b3 801e       |    |		Call	0x0,0x1e
01b4 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
01b5 00d8       |    |		Load_Top	At_Offset_0
01b6 00db       |    |		Load_Top	At_Offset_3
01b7 801c       |    |		Call	0x0,0x1c
01b8 c404       |    |		Store	0x2,0x4
01b9 4802       |H   |		Short_Literal	0x2
01ba e5ff       |    |		Load	0x2,-0x1
01bb 00da       |    |		Load_Top	At_Offset_2
01bc 8011       |    |		Call	0x0,0x11
01bd 00d9       |    |		Load_Top	At_Offset_1
01be 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01bf 0000       |    |		.XXX[0x1]
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 4601       |F   |		Jump_Case	0x2
01c4 7801       |x   |		Jump	0x1c6								; case 0x0
01c5 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
01c6 4800       |H   |		Short_Literal	0x0
01c7 00db       |    |		Load_Top	At_Offset_3
01c8 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01c9 4800       |H   |		Short_Literal	0x0
01ca 00db       |    |		Load_Top	At_Offset_3
01cb 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
01cc 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
01cd ; --------------------------------------------------------------------------------------
01cd ; STRING TABLE
01cd ; --------------------------------------------------------------------------------------
01cd 000c       |    |		.STRTAB	0x000c->0x01d3							; ", S D "
01ce 0010       |    |		.STRTAB	0x0010->0x01d6							; ",   D "
01cf 0014       |    |		.STRTAB	0x0014->0x01d9							; ", S   "
01d0 0018       |    |		.STRTAB	0x0018->0x01dc							; ",     "
01d1 001c       |    |		.STRTAB	0x001c->0x01df							; "Coverage"
01d2 0022       | "  |		.STREND 0x0022->0x01e3
01d3 2c20 5320  |, S |		.STRTAB_STRINGS
01e3 0000 0000  |    |		.BLANK	0000[0x5]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; Debug Table
01e8 ; --------------------------------------------------------------------------------------
01e8 0004 000a  |    |		.DEBUG4	0x0004,0x000a,0x7624,0x0000,0x0001,0x0000
01ee 0000 0000  |    |		.BLANK	0000[0x12]