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

⟦7d914ea3a⟧

    Length: 2048 (0x800)
    Notes: 00_class, 5811_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0ea8df

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 5811       |X   |		.CONST	0x5811								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0220       |    |		.CONST	0x0220								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 0001       |    |		.CONST	0x0001								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0010       |    |		.CONST	0x0010								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0001       |    |		.CONST	0x0001								; Number of locals
000b			INIT_0008:
000b 029a 001b  |    |		Declare_Subprogram	INIT_0018,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0 = .DEBUG	0x000b,0x0282,0x8000,0x0000,0x002c,0xbc04,0x0000,0x0011
000d 00bf       |    |		Action	Accept_Activation
000e 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
000f 00c7       |    |		Action	Elaborate_Subprogram
0010			BODY_0008:
0010 00bc       |    |		Action	Signal_Activated
0011 00bb       |    |		Action	Signal_Completion
0012 0000 0000  |    |		.BLANK	0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 0043       | C  |		.CONST	0x0043								; Address of begin
0019 004e       | N  |		.CONST	0x004e								; Address of exception handler
001a 0011       |    |		.CONST	0x0011								; Number of locals
001b			INIT_0018:
001b 029e 0063  |   c|		Declare_Subprogram	INIT_0060,For_Call,Unelaborated			; Debug Table 0x1 = .DEBUG	0x001b,0x0284,0x8001,0x0000,0x002c,0xbc04,0x0000,0x0011
													; Debug Table 0x1.0x0 = 0x1b,0xffff
001d 4802       |H   |		Short_Literal	0x2							; Debug Table 0x1.0x1 = 0x1d,0xfffe
001e 4802       |H   |		Short_Literal	0x2
001f 0099       |    |		Action	Reference_Dynamic
0020 00c7       |    |		Action	Elaborate_Subprogram
0021 029f 007b  |   {|		Declare_Subprogram	INIT_0078,For_Call				; Debug Table 0x1.0x2 = 0x21,0xfffd
0023 029f 0083  |    |		Declare_Subprogram	INIT_0080,For_Call				; Debug Table 0x1.0x3 = 0x23,0xfffc
0025 4802       |H   |		Short_Literal	0x2							; Debug Table 0x1.0x4 = 0x25,0xfffb
0026 4802       |H   |		Short_Literal	0x2
0027 0099       |    |		Action	Reference_Dynamic
0028 00c6       |    |		Action	Check_Subprogram_Elaborated
0029 e001       |    |		Load	0x0,0x1
002a 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
002b 4803       |H   |		Short_Literal	0x3
002c 4802       |H   |		Short_Literal	0x2
002d 0099       |    |		Action	Reference_Dynamic
002e 4804       |H   |		Short_Literal	0x4
002f 4802       |H   |		Short_Literal	0x2
0030 0099       |    |		Action	Reference_Dynamic
0031 6176       |av  |		Indirect_Literal	Discrete,0x1a8,{0x00000000, 0x002cbc04}
0032 488b       |H   |		Short_Literal	0x8b
0033 480a       |H   |		Short_Literal	0xa
0034 0007       |    |		Action	Break_Optional
0035 029f 0093  |    |		Declare_Subprogram	INIT_0090,For_Call				; Debug Table 0x1.0x5 = 0x35,0xfffa
0037 029f 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Call				; Debug Table 0x1.0x6 = 0x37,0xfff9
0039 029f 00e3  |    |		Declare_Subprogram	INIT_00e0,For_Call				; Debug Table 0x1.0x7 = 0x39,0xfff8
003b 029f 0103  |    |		Declare_Subprogram	INIT_0100,For_Call				; Debug Table 0x1.0x8 = 0x3b,0xfff7
003d 029f 0123  |   #|		Declare_Subprogram	INIT_0120,For_Call				; Debug Table 0x1.0x9 = 0x3d,0xfff6
003f 029f 0143  |   C|		Declare_Subprogram	INIT_0140,For_Call				; Debug Table 0x1.0xa = 0x3f,0xfff5
0041 029f 016b  |   k|		Declare_Subprogram	INIT_0168,For_Call				; Debug Table 0x1.0xb = 0x41,0xfff4
0043			BODY_0018:
0043 0092 01ac  |    |		Action	Push_String_Extended,0x1ac					; "Simple User Test: Open, Close, Create, Destroy"
													; Debug Table 0x1.0xc = 0x43,0x1
0045 0092 01ad  |    |		Action	Push_String_Extended,0x1ad					; "user-simple"
0047 e002       |    |		Load	0x0,0x2
0048 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0049 8410       |    |		Call	0x2,0x10							; Debug Table 0x1.0xd = 0x49,0x2
004a 8411       |    |		Call	0x2,0x11							; Debug Table 0x1.0xe = 0x4a,0x3
004b e002       |    |		Load	0x0,0x2								; Debug Table 0x1.0xf = 0x4b,0x4
004c 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
004d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
004e			TRAP_0018:
004e 0007       |    |		Action	Break_Optional
004f 0092 01ae  |    |		Action	Push_String_Extended,0x1ae					; "Unhandled Exception: "
													; Debug Table 0x1.0x10 = 0x4f,0x5
0051 e003       |    |		Load	0x0,0x3
0052 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0053 01cc       |    |		Execute	Vector,Catenate
0054 e002       |    |		Load	0x0,0x2
0055 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0056 e002       |    |		Load	0x0,0x2								; Debug Table 0x1.0x11 = 0x56,0x6
0057 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0058 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0059 0000 0000  |    |		.BLANK	0000[0x7]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0063       | c  |		.CONST	0x0063								; Address of begin
0061 0004       |    |		.CONST	0x0004								; Address of exception handler
0062 0001       |    |		.CONST	0x0001								; Number of locals
0063			BODY_0060:
0063			INIT_0060:
0063 e7fb       |    |		Load	0x3,-0x5							; Debug Table 0x2 = .DEBUG	0x0063,0x02aa,0x2801,0x0003,0x002c,0xbc04,0x0000,0x0014
													; Debug Table 0x2.0x0 = 0x63,0x1
0064 e7fc       |    |		Load	0x3,-0x4
0065 025b       | [  |		Execute	Discrete,Check_In_Type
0066 87fd       |    |		Call	0x3,-0x3
0067 680e       |h   |		Jump_Zero	0x76
0068 0092 01af  |    |		Action	Push_String_Extended,0x1af					; "BAD STATUS from "
													; Debug Table 0x2.0x1 = 0x68,0x2
006a e7fa       |    |		Load	0x3,-0x6
006b 01cc       |    |		Execute	Vector,Catenate
006c 0092 01b0  |    |		Action	Push_String_Extended,0x1b0					; ": "
006e 01cc       |    |		Execute	Vector,Catenate
006f e7fb       |    |		Load	0x3,-0x5
0070 e7fc       |    |		Load	0x3,-0x4
0071 025b       | [  |		Execute	Discrete,Check_In_Type
0072 87fe       |    |		Call	0x3,-0x2
0073 01cc       |    |		Execute	Vector,Catenate
0074 e002       |    |		Load	0x0,0x2
0075 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0076 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
0077 0000       |    |		.XXX[0x1]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b       | {  |		.CONST	0x007b								; Address of begin
0079 0004       |    |		.CONST	0x0004								; Address of exception handler
007a 0001       |    |		.CONST	0x0001								; Number of locals
007b			BODY_0078:
007b			INIT_0078:
007b 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x3 = .DEBUG	0x007b,0x02b0,0x0002,0x0000,0x002c,0xbc04,0x0000,0x0065
													; Debug Table 0x3.0x0 = 0x7b,0x1
007c 0e00       |    |		Execute_Immediate	Not_Equal,0x0
007d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
007e 0000 0000  |    |		.XXX[0x2]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083       |    |		.CONST	0x0083								; Address of begin
0081 0004       |    |		.CONST	0x0004								; Address of exception handler
0082 0001       |    |		.CONST	0x0001								; Number of locals
0083			BODY_0080:
0083			INIT_0080:
0083 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x4 = .DEBUG	0x0083,0x02b4,0x0002,0x0000,0x002c,0xbc04,0x0000,0x0078
													; Debug Table 0x4.0x0 = 0x83,0x1
0084 e001       |    |		Load	0x0,0x1
0085 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0086 0122       | "  |		Execute	Any,Make_Root_Type
0087 025e       | ^  |		Execute	Discrete,Convert
0088 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0089 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
008a 0000 0000  |    |		.BLANK	0000[0x6]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0095       |    |		.CONST	0x0095								; Address of begin
0091 0004       |    |		.CONST	0x0004								; Address of exception handler
0092 0002       |    |		.CONST	0x0002								; Number of locals
0093			INIT_0090:
0093 e001       |    |		Load	0x0,0x1								; Debug Table 0x5 = .DEBUG	0x0093,0x02b8,0x0001,0x0000,0x002c,0xbc04,0x0000,0x0095
													; Debug Table 0x5.0x0 = 0x93,0xffff
0094 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0095			BODY_0090:
0095 e001       |    |		Load	0x0,0x1								; Debug Table 0x5.0x1 = 0x95,0x1
0096 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0097 e7fe       |    |		Load	0x3,-0x2
0098 e7ff       |    |		Load	0x3,-0x1
0099 4800       |H   |		Short_Literal	0x0
009a 4800       |H   |		Short_Literal	0x0
009b 4800       |H   |		Short_Literal	0x0
009c e004       |    |		Load	0x0,0x4
009d 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
009e e005       |    |		Load	0x0,0x5
009f 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
00a0 00d1       |    |		Pop_Control	Pop_Count_1
00a1 0059       | Y  |		Store_Top	Discrete,At_Offset_1
00a2 0092 01b1  |    |		Action	Push_String_Extended,0x1b1					; "Create (user)"
													; Debug Table 0x5.0x2 = 0xa2,0x2
00a4 00d9       |    |		Load_Top	At_Offset_1
00a5 e405       |    |		Load	0x2,0x5
00a6 4806       |H   |		Short_Literal	0x6
00a7 4802       |H   |		Short_Literal	0x2
00a8 0099       |    |		Action	Reference_Dynamic
00a9 4807       |H   |		Short_Literal	0x7
00aa 4802       |H   |		Short_Literal	0x2
00ab 0099       |    |		Action	Reference_Dynamic
00ac 4808       |H   |		Short_Literal	0x8
00ad 4802       |H   |		Short_Literal	0x2
00ae 0099       |    |		Action	Reference_Dynamic
00af 8402       |    |		Call	0x2,0x2
00b0 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00b1 0000 0000  |    |		.BLANK	0000[0x7]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bd       |    |		.CONST	0x00bd								; Address of begin
00b9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ba 0002       |    |		.CONST	0x0002								; Number of locals
00bb			INIT_00b8:
00bb e001       |    |		Load	0x0,0x1								; Debug Table 0x6 = .DEBUG	0x00bb,0x02c0,0x0001,0x0000,0x002c,0xbc04,0x0000,0x00c3
													; Debug Table 0x6.0x0 = 0xbb,0xffff
00bc 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00bd			BODY_00b8:
00bd e001       |    |		Load	0x0,0x1								; Debug Table 0x6.0x1 = 0xbd,0x1
00be 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00bf e7fe       |    |		Load	0x3,-0x2
00c0 e7ff       |    |		Load	0x3,-0x1
00c1 4800       |H   |		Short_Literal	0x0
00c2 4800       |H   |		Short_Literal	0x0
00c3 4800       |H   |		Short_Literal	0x0
00c4 e004       |    |		Load	0x0,0x4
00c5 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
00c6 e005       |    |		Load	0x0,0x5
00c7 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
00c8 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
00c9 00d1       |    |		Pop_Control	Pop_Count_1
00ca 0059       | Y  |		Store_Top	Discrete,At_Offset_1
00cb 0092 01b2  |    |		Action	Push_String_Extended,0x1b2					; "Create (session)"
													; Debug Table 0x6.0x2 = 0xcb,0x2
00cd 00d9       |    |		Load_Top	At_Offset_1
00ce e405       |    |		Load	0x2,0x5
00cf 4806       |H   |		Short_Literal	0x6
00d0 4802       |H   |		Short_Literal	0x2
00d1 0099       |    |		Action	Reference_Dynamic
00d2 4807       |H   |		Short_Literal	0x7
00d3 4802       |H   |		Short_Literal	0x2
00d4 0099       |    |		Action	Reference_Dynamic
00d5 4808       |H   |		Short_Literal	0x8
00d6 4802       |H   |		Short_Literal	0x2
00d7 0099       |    |		Action	Reference_Dynamic
00d8 8402       |    |		Call	0x2,0x2
00d9 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00da 0000 0000  |    |		.BLANK	0000[0x6]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e5       |    |		.CONST	0x00e5								; Address of begin
00e1 0004       |    |		.CONST	0x0004								; Address of exception handler
00e2 0002       |    |		.CONST	0x0002								; Number of locals
00e3			INIT_00e0:
00e3 e001       |    |		Load	0x0,0x1								; Debug Table 0x7 = .DEBUG	0x00e3,0x02c8,0x0001,0x0000,0x002c,0xbc04,0x0000,0x00f5
													; Debug Table 0x7.0x0 = 0xe3,0xffff
00e4 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00e5			BODY_00e0:
00e5 e001       |    |		Load	0x0,0x1								; Debug Table 0x7.0x1 = 0xe5,0x1
00e6 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00e7 e7fe       |    |		Load	0x3,-0x2
00e8 4800       |H   |		Short_Literal	0x0
00e9 e7ff       |    |		Load	0x3,-0x1
00ea e005       |    |		Load	0x0,0x5
00eb 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
00ec 0059       | Y  |		Store_Top	Discrete,At_Offset_1
00ed 0092 01b3  |    |		Action	Push_String_Extended,0x1b3					; "Destroy"
													; Debug Table 0x7.0x2 = 0xed,0x2
00ef 00d9       |    |		Load_Top	At_Offset_1
00f0 e405       |    |		Load	0x2,0x5
00f1 4806       |H   |		Short_Literal	0x6
00f2 4802       |H   |		Short_Literal	0x2
00f3 0099       |    |		Action	Reference_Dynamic
00f4 4807       |H   |		Short_Literal	0x7
00f5 4802       |H   |		Short_Literal	0x2
00f6 0099       |    |		Action	Reference_Dynamic
00f7 4808       |H   |		Short_Literal	0x8
00f8 4802       |H   |		Short_Literal	0x2
00f9 0099       |    |		Action	Reference_Dynamic
00fa 8402       |    |		Call	0x2,0x2
00fb 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00fc 0000 0000  |    |		.BLANK	0000[0x4]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0105       |    |		.CONST	0x0105								; Address of begin
0101 0004       |    |		.CONST	0x0004								; Address of exception handler
0102 0002       |    |		.CONST	0x0002								; Number of locals
0103			INIT_0100:
0103 e001       |    |		Load	0x0,0x1								; Debug Table 0x8 = .DEBUG	0x0103,0x02d0,0x0001,0x0000,0x002c,0xbc04,0x0000,0x0123
													; Debug Table 0x8.0x0 = 0x103,0xffff
0104 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0105			BODY_0100:
0105 e001       |    |		Load	0x0,0x1								; Debug Table 0x8.0x1 = 0x105,0x1
0106 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0107 e7fd       |    |		Load	0x3,-0x3
0108 4800       |H   |		Short_Literal	0x0
0109 e7fe       |    |		Load	0x3,-0x2
010a e7ff       |    |		Load	0x3,-0x1
010b e005       |    |		Load	0x0,0x5
010c 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
010d 0059       | Y  |		Store_Top	Discrete,At_Offset_1
010e 0092 01b4  |    |		Action	Push_String_Extended,0x1b4					; "Add_Session"
													; Debug Table 0x8.0x2 = 0x10e,0x2
0110 00d9       |    |		Load_Top	At_Offset_1
0111 e405       |    |		Load	0x2,0x5
0112 4806       |H   |		Short_Literal	0x6
0113 4802       |H   |		Short_Literal	0x2
0114 0099       |    |		Action	Reference_Dynamic
0115 4807       |H   |		Short_Literal	0x7
0116 4802       |H   |		Short_Literal	0x2
0117 0099       |    |		Action	Reference_Dynamic
0118 4808       |H   |		Short_Literal	0x8
0119 4802       |H   |		Short_Literal	0x2
011a 0099       |    |		Action	Reference_Dynamic
011b 8402       |    |		Call	0x2,0x2
011c 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
011d 0000 0000  |    |		.XXX[0x3]
011f 0000       |    |
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0125       | %  |		.CONST	0x0125								; Address of begin
0121 0004       |    |		.CONST	0x0004								; Address of exception handler
0122 0002       |    |		.CONST	0x0002								; Number of locals
0123			INIT_0120:
0123 e001       |    |		Load	0x0,0x1								; Debug Table 0x9 = .DEBUG	0x0123,0x02d8,0x0001,0x0000,0x002c,0xbc04,0x0000,0x015c
													; Debug Table 0x9.0x0 = 0x123,0xffff
0124 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0125			BODY_0120:
0125 e001       |    |		Load	0x0,0x1								; Debug Table 0x9.0x1 = 0x125,0x1
0126 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0127 e7fd       |    |		Load	0x3,-0x3
0128 4800       |H   |		Short_Literal	0x0
0129 e7fe       |    |		Load	0x3,-0x2
012a e7ff       |    |		Load	0x3,-0x1
012b e005       |    |		Load	0x0,0x5
012c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
012d 0059       | Y  |		Store_Top	Discrete,At_Offset_1
012e 0092 01b5  |    |		Action	Push_String_Extended,0x1b5					; "Delete_Session"
													; Debug Table 0x9.0x2 = 0x12e,0x2
0130 00d9       |    |		Load_Top	At_Offset_1
0131 e405       |    |		Load	0x2,0x5
0132 4806       |H   |		Short_Literal	0x6
0133 4802       |H   |		Short_Literal	0x2
0134 0099       |    |		Action	Reference_Dynamic
0135 4807       |H   |		Short_Literal	0x7
0136 4802       |H   |		Short_Literal	0x2
0137 0099       |    |		Action	Reference_Dynamic
0138 4808       |H   |		Short_Literal	0x8
0139 4802       |H   |		Short_Literal	0x2
013a 0099       |    |		Action	Reference_Dynamic
013b 8402       |    |		Call	0x2,0x2
013c 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
013d 0000 0000  |    |		.XXX[0x3]
013f 0000       |    |
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0150       | P  |		.CONST	0x0150								; Address of begin
0141 0004       |    |		.CONST	0x0004								; Address of exception handler
0142 0003       |    |		.CONST	0x0003								; Number of locals
0143			INIT_0140:
0143 e006       |    |		Load	0x0,0x6								; Debug Table 0xa = .DEBUG	0x0143,0x02e0,0x0001,0x0000,0x002c,0xbc04,0x0000,0x0195
													; Debug Table 0xa.0x0 = 0x143,0xffff
0144 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0145 02c7       |    |		Declare_Variable	Any
0146 e007       |    |		Load	0x0,0x7
0147 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0148 e006       |    |		Load	0x0,0x6
0149 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
014a c602       |    |		Store	0x3,0x2
014b e005       |    |		Load	0x0,0x5								; Debug Table 0xa.0x1 = 0x14b,0xfffe
014c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
014d 02ff       |    |		Declare_Variable	Variant_Record
014e 00d8       |    |		Load_Top	At_Offset_0
014f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0150			BODY_0140:
0150 0092 01b6  |    |		Action	Push_String_Extended,0x1b6					; "Starting Destroy Test"
													; Debug Table 0xa.0x2 = 0x150,0x1
0152 e002       |    |		Load	0x0,0x2
0153 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0154 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xa.0x3 = 0x154,0x2
0155 00da       |    |		Load_Top	At_Offset_2
0156 840b       |    |		Call	0x2,0xb
0157 00d1       |    |		Pop_Control	Pop_Count_1
0158 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xa.0x4 = 0x158,0x3
0159 00d9       |    |		Load_Top	At_Offset_1
015a 840d       |    |		Call	0x2,0xd
015b 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xa.0x5 = 0x15b,0x4
015c 4801       |H   |		Short_Literal	0x1
015d 4801       |H   |		Short_Literal	0x1
015e e006       |    |		Load	0x0,0x6
015f 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0160 c602       |    |		Store	0x3,0x2
0161 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0162 0000 0000  |    |		.BLANK	0000[0x6]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 017b       | {  |		.CONST	0x017b								; Address of begin
0169 0004       |    |		.CONST	0x0004								; Address of exception handler
016a 0004       |    |		.CONST	0x0004								; Number of locals
016b			INIT_0168:
016b e006       |    |		Load	0x0,0x6								; Debug Table 0xb = .DEBUG	0x016b,0x02ee,0x0001,0x0000,0x002c,0xbc04,0x0000,0x01c7
													; Debug Table 0xb.0x0 = 0x16b,0xffff
016c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
016d 02c7       |    |		Declare_Variable	Any
016e 00d8       |    |		Load_Top	At_Offset_0
016f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0170 e005       |    |		Load	0x0,0x5								; Debug Table 0xb.0x1 = 0x170,0xfffe
0171 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0172 02ff       |    |		Declare_Variable	Variant_Record
0173 00d8       |    |		Load_Top	At_Offset_0
0174 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0175 e005       |    |		Load	0x0,0x5								; Debug Table 0xb.0x2 = 0x175,0xfffd
0176 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0177 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0178 02ff       |    |		Declare_Variable	Variant_Record
0179 00d8       |    |		Load_Top	At_Offset_0
017a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
017b			BODY_0168:
017b 0092 01b7  |    |		Action	Push_String_Extended,0x1b7					; "Starting Modify Test"
													; Debug Table 0xb.0x3 = 0x17b,0x1
017d e002       |    |		Load	0x0,0x2
017e 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
017f e007       |    |		Load	0x0,0x7								; Debug Table 0xb.0x4 = 0x17f,0x2
0180 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0181 e006       |    |		Load	0x0,0x6
0182 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0183 c602       |    |		Store	0x3,0x2
0184 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xb.0x5 = 0x184,0x3
0185 00db       |    |		Load_Top	At_Offset_3
0186 840b       |    |		Call	0x2,0xb
0187 00d1       |    |		Pop_Control	Pop_Count_1
0188 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0xb.0x6 = 0x188,0x4
0189 00db       |    |		Load_Top	At_Offset_3
018a 840c       |    |		Call	0x2,0xc
018b 00d1       |    |		Pop_Control	Pop_Count_1
018c 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xb.0x7 = 0x18c,0x5
018d 00d9       |    |		Load_Top	At_Offset_1
018e 00db       |    |		Load_Top	At_Offset_3
018f 840e       |    |		Call	0x2,0xe
0190 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xb.0x8 = 0x190,0x6
0191 4801       |H   |		Short_Literal	0x1
0192 4801       |H   |		Short_Literal	0x1
0193 e006       |    |		Load	0x0,0x6
0194 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0195 c602       |    |		Store	0x3,0x2
0196 e007       |    |		Load	0x0,0x7								; Debug Table 0xb.0x9 = 0x196,0x7
0197 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0198 e006       |    |		Load	0x0,0x6
0199 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
019a c602       |    |		Store	0x3,0x2
019b 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xb.0xa = 0x19b,0x8
019c 00d9       |    |		Load_Top	At_Offset_1
019d 00db       |    |		Load_Top	At_Offset_3
019e 840f       |    |		Call	0x2,0xf
019f 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xb.0xb = 0x19f,0x9
01a0 4801       |H   |		Short_Literal	0x1
01a1 4800       |H   |		Short_Literal	0x0
01a2 e006       |    |		Load	0x0,0x6
01a3 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01a4 c602       |    |		Store	0x3,0x2
01a5 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01a6 0000 0000  |    |		.XXX[0x2]
01a8 0000 0000  |    |		.LITERAL	{0x00000000, 0x002cbc04}
01ac ; --------------------------------------------------------------------------------------
01ac ; STRING TABLE
01ac ; --------------------------------------------------------------------------------------
01ac 001a       |    |		.STRTAB	0x001a->0x01b9							; "Simple User Test: Open, Close, Create, Destroy"
01ad 0046       | F  |		.STRTAB	0x0046->0x01d0							; "user-simple"
01ae 004f       | O  |		.STRTAB	0x004f->0x01d5							; "Unhandled Exception: "
01af 0062       | b  |		.STRTAB	0x0062->0x01e0							; "BAD STATUS from "
01b0 0070       | p  |		.STRTAB	0x0070->0x01e8							; ": "
01b1 0070       | p  |		.STRTAB	0x0070->0x01e9							; "Create (user)"
01b2 007b       | {  |		.STRTAB	0x007b->0x01ef							; "Create (session)"
01b3 0089       |    |		.STRTAB	0x0089->0x01f7							; "Destroy"
01b4 008e       |    |		.STRTAB	0x008e->0x01fb							; "Add_Session"
01b5 0097       |    |		.STRTAB	0x0097->0x0200							; "Delete_Session"
01b6 00a3       |    |		.STRTAB	0x00a3->0x0207							; "Starting Destroy Test"
01b7 00b6       |    |		.STRTAB	0x00b6->0x0212							; "Starting Modify Test"
01b8 00c8       |    |		.STREND 0x00c8->0x021c
01b9 5369 6d70  |Simp|		.STRTAB_STRINGS
021c 0000 0000  |    |		.BLANK	0000[0x4]
0220 ; --------------------------------------------------------------------------------------
0220 ; Debug Table
0220 ; --------------------------------------------------------------------------------------
0220 0003 000c  |    |		.CONST	0x0003,0x000c
0222 000b 0282  |    |		.DEBUG	0x000b,0x0282,0x8000,0x0000,0x002c,0xbc04,0x0000,0x0011
022a 001b 0284  |    |		.DEBUG	0x001b,0x0284,0x8001,0x0000,0x002c,0xbc04,0x0000,0x0011
0232 0063 02aa  | c  |		.DEBUG	0x0063,0x02aa,0x2801,0x0003,0x002c,0xbc04,0x0000,0x0014
023a 007b 02b0  | {  |		.DEBUG	0x007b,0x02b0,0x0002,0x0000,0x002c,0xbc04,0x0000,0x0065
0242 0083 02b4  |    |		.DEBUG	0x0083,0x02b4,0x0002,0x0000,0x002c,0xbc04,0x0000,0x0078
024a 0093 02b8  |    |		.DEBUG	0x0093,0x02b8,0x0001,0x0000,0x002c,0xbc04,0x0000,0x0095
0252 00bb 02c0  |    |		.DEBUG	0x00bb,0x02c0,0x0001,0x0000,0x002c,0xbc04,0x0000,0x00c3
025a 00e3 02c8  |    |		.DEBUG	0x00e3,0x02c8,0x0001,0x0000,0x002c,0xbc04,0x0000,0x00f5
0262 0103 02d0  |    |		.DEBUG	0x0103,0x02d0,0x0001,0x0000,0x002c,0xbc04,0x0000,0x0123
026a 0123 02d8  | #  |		.DEBUG	0x0123,0x02d8,0x0001,0x0000,0x002c,0xbc04,0x0000,0x015c
0272 0143 02e0  | C  |		.DEBUG	0x0143,0x02e0,0x0001,0x0000,0x002c,0xbc04,0x0000,0x0195
027a 016b 02ee  | k  |		.DEBUG	0x016b,0x02ee,0x0001,0x0000,0x002c,0xbc04,0x0000,0x01c7
0282 ; --------------------------------------------------------------------------------------
0282 ; Debug3 Subtable 0x0
0282 ; --------------------------------------------------------------------------------------
0282 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
0284 ; --------------------------------------------------------------------------------------
0284 ; Debug3 Subtable 0x1
0284 ; --------------------------------------------------------------------------------------
0284 000c 0006  |    |		.DBG3TAB	0x000c,0x0006
0286 001b ffff  |    |		.CONST	0x001b,0xffff
0288 001d fffe  |    |		.CONST	0x001d,0xfffe
028a 0021 fffd  | !  |		.CONST	0x0021,0xfffd
028c 0023 fffc  | #  |		.CONST	0x0023,0xfffc
028e 0025 fffb  | %  |		.CONST	0x0025,0xfffb
0290 0035 fffa  | 5  |		.CONST	0x0035,0xfffa
0292 0037 fff9  | 7  |		.CONST	0x0037,0xfff9
0294 0039 fff8  | 9  |		.CONST	0x0039,0xfff8
0296 003b fff7  | ;  |		.CONST	0x003b,0xfff7
0298 003d fff6  | =  |		.CONST	0x003d,0xfff6
029a 003f fff5  | ?  |		.CONST	0x003f,0xfff5
029c 0041 fff4  | A  |		.CONST	0x0041,0xfff4
029e 0043 0001  | C  |		.CONST	0x0043,0x0001
02a0 0049 0002  | I  |		.CONST	0x0049,0x0002
02a2 004a 0003  | J  |		.CONST	0x004a,0x0003
02a4 004b 0004  | K  |		.CONST	0x004b,0x0004
02a6 004f 0005  | O  |		.CONST	0x004f,0x0005
02a8 0056 0006  | V  |		.CONST	0x0056,0x0006
02aa ; --------------------------------------------------------------------------------------
02aa ; Debug3 Subtable 0x2
02aa ; --------------------------------------------------------------------------------------
02aa 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
02ac 0063 0001  | c  |		.CONST	0x0063,0x0001
02ae 0068 0002  | h  |		.CONST	0x0068,0x0002
02b0 ; --------------------------------------------------------------------------------------
02b0 ; Debug3 Subtable 0x3
02b0 ; --------------------------------------------------------------------------------------
02b0 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
02b2 007b 0001  | {  |		.CONST	0x007b,0x0001
02b4 ; --------------------------------------------------------------------------------------
02b4 ; Debug3 Subtable 0x4
02b4 ; --------------------------------------------------------------------------------------
02b4 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
02b6 0083 0001  |    |		.CONST	0x0083,0x0001
02b8 ; --------------------------------------------------------------------------------------
02b8 ; Debug3 Subtable 0x5
02b8 ; --------------------------------------------------------------------------------------
02b8 0001 0002  |    |		.DBG3TAB	0x0001,0x0002
02ba 0093 ffff  |    |		.CONST	0x0093,0xffff
02bc 0095 0001  |    |		.CONST	0x0095,0x0001
02be 00a2 0002  |    |		.CONST	0x00a2,0x0002
02c0 ; --------------------------------------------------------------------------------------
02c0 ; Debug3 Subtable 0x6
02c0 ; --------------------------------------------------------------------------------------
02c0 0001 0002  |    |		.DBG3TAB	0x0001,0x0002
02c2 00bb ffff  |    |		.CONST	0x00bb,0xffff
02c4 00bd 0001  |    |		.CONST	0x00bd,0x0001
02c6 00cb 0002  |    |		.CONST	0x00cb,0x0002
02c8 ; --------------------------------------------------------------------------------------
02c8 ; Debug3 Subtable 0x7
02c8 ; --------------------------------------------------------------------------------------
02c8 0001 0002  |    |		.DBG3TAB	0x0001,0x0002
02ca 00e3 ffff  |    |		.CONST	0x00e3,0xffff
02cc 00e5 0001  |    |		.CONST	0x00e5,0x0001
02ce 00ed 0002  |    |		.CONST	0x00ed,0x0002
02d0 ; --------------------------------------------------------------------------------------
02d0 ; Debug3 Subtable 0x8
02d0 ; --------------------------------------------------------------------------------------
02d0 0001 0002  |    |		.DBG3TAB	0x0001,0x0002
02d2 0103 ffff  |    |		.CONST	0x0103,0xffff
02d4 0105 0001  |    |		.CONST	0x0105,0x0001
02d6 010e 0002  |    |		.CONST	0x010e,0x0002
02d8 ; --------------------------------------------------------------------------------------
02d8 ; Debug3 Subtable 0x9
02d8 ; --------------------------------------------------------------------------------------
02d8 0001 0002  |    |		.DBG3TAB	0x0001,0x0002
02da 0123 ffff  | #  |		.CONST	0x0123,0xffff
02dc 0125 0001  | %  |		.CONST	0x0125,0x0001
02de 012e 0002  | .  |		.CONST	0x012e,0x0002
02e0 ; --------------------------------------------------------------------------------------
02e0 ; Debug3 Subtable 0xa
02e0 ; --------------------------------------------------------------------------------------
02e0 0002 0004  |    |		.DBG3TAB	0x0002,0x0004
02e2 0143 ffff  | C  |		.CONST	0x0143,0xffff
02e4 014b fffe  | K  |		.CONST	0x014b,0xfffe
02e6 0150 0001  | P  |		.CONST	0x0150,0x0001
02e8 0154 0002  | T  |		.CONST	0x0154,0x0002
02ea 0158 0003  | X  |		.CONST	0x0158,0x0003
02ec 015b 0004  | [  |		.CONST	0x015b,0x0004
02ee ; --------------------------------------------------------------------------------------
02ee ; Debug3 Subtable 0xb
02ee ; --------------------------------------------------------------------------------------
02ee 0003 0009  |    |		.DBG3TAB	0x0003,0x0009
02f0 016b ffff  | k  |		.CONST	0x016b,0xffff
02f2 0170 fffe  | p  |		.CONST	0x0170,0xfffe
02f4 0175 fffd  | u  |		.CONST	0x0175,0xfffd
02f6 017b 0001  | {  |		.CONST	0x017b,0x0001
02f8 017f 0002  |    |		.CONST	0x017f,0x0002
02fa 0184 0003  |    |		.CONST	0x0184,0x0003
02fc 0188 0004  |    |		.CONST	0x0188,0x0004
02fe 018c 0005  |    |		.CONST	0x018c,0x0005
0300 0190 0006  |    |		.CONST	0x0190,0x0006
0302 0196 0007  |    |		.CONST	0x0196,0x0007
0304 019b 0008  |    |		.CONST	0x019b,0x0008
0306 019f 0009  |    |		.CONST	0x019f,0x0009
0308 0000 0000  |    |		.BLANK	0000[0xf8]