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

⟦2fe21d820⟧

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

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 5813       |X   |		.CONST	0x5813								; 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 0001       |    |		.CONST	0x0001								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0055       | U  |		.CONST	0x0055								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0018       |    |		.CONST	0x0018								; Number of locals
000b			INIT_0008:
000b e001       |    |		Load	0x0,0x1								; Debug Table 0x0 = .DEBUG	0x000b,0x0222,0x8000,0x0000,0x0058,0x7225,0x0000,0x000b
													; Debug Table 0x0.0x0 = 0xb,0xffff
000c 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
000d 0129       | )  |		Execute	Any,Make_Visible
000e e002       |    |		Load	0x0,0x2								; Debug Table 0x0.0x1 = 0xe,0xfffe
000f 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0010 0129       | )  |		Execute	Any,Make_Visible
0011 029a 005b  |   [|		Declare_Subprogram	INIT_0058,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x2 = 0x11,0xfffd
0013 029a 007b  |   {|		Declare_Subprogram	INIT_0078,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x3 = 0x13,0xfffc
0015 00bf       |    |		Action	Accept_Activation
0016 0007       |    |		Action	Break_Optional							; Debug Table 0x1 = .DEBUG	0x0016,0x022c,0x8000,0x0000,0x0058,0x7435,0x0000,0x000f
													; Debug Table 0x1.0x0 = 0x16,0xffff
0017 0092 0148  |   H|		Action	Push_String_Extended,0x148					; "CMVC"
													; Debug Table 0x1.0x1 = 0x17,0xfffe
0019 612a       |a*  |		Indirect_Literal	Discrete,0x144,{0x00000000, 0x00587435}		; Debug Table 0x1.0x2 = 0x19,0xfffd
001a 4826       |H&  |		Short_Literal	0x26
001b 00da       |    |		Load_Top	At_Offset_2
001c 4801       |H   |		Short_Literal	0x1
001d e003       |    |		Load	0x0,0x3
001e 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
001f 0387       |    |		Declare_Variable	Package
0020 00d8       |    |		Load_Top	At_Offset_0
0021 020f       |    |		Execute	Module,Activate
0022 029b 0093  |    |		Declare_Subprogram	INIT_0090,For_Outer_Call,Unelaborated		; Debug Table 0x1.0x3 = 0x22,0xfffc
0024 029b 00e3  |    |		Declare_Subprogram	INIT_00e0,For_Outer_Call,Unelaborated		; Debug Table 0x1.0x4 = 0x24,0xfffb
0026 e20e       |    |		Load	0x1,0xe								; Debug Table 0x1.0x5 = 0x26,0xfffa
0027 02a0       |    |		Declare_Subprogram	Null_Subprogram
0028 03ad       |    |		Declare_Type	Heap_Access,Defined
0029 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x6 = 0x29,0xfff9
002a 6119       |a   |		Indirect_Literal	Discrete,0x144,{0x00000000, 0x00587435}		; Debug Table 0x1.0x7 = 0x2a,0xfff8
002b 484b       |HK  |		Short_Literal	0x4b
002c e20e       |    |		Load	0x1,0xe
002d 00db       |    |		Load_Top	At_Offset_3
002e e004       |    |		Load	0x0,0x4
002f 1916       |    |		Execute	Package,Field_Reference,Field_Number 0x16
0030 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0031 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0032 0092 0149  |   I|		Action	Push_String_Extended,0x149					; "Venture_Name"
0034 4803       |H   |		Short_Literal	0x3
0035 e212       |    |		Load	0x1,0x12
0036 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0037 0387       |    |		Declare_Variable	Package
0038 00d8       |    |		Load_Top	At_Offset_0
0039 020f       |    |		Execute	Module,Activate
003a 029b 013b  |   ;|		Declare_Subprogram	INIT_0138,For_Outer_Call,Unelaborated		; Debug Table 0x1.0x8 = 0x3a,0xfff7
003c 6107       |a   |		Indirect_Literal	Discrete,0x144,{0x00000000, 0x00587435}		; Debug Table 0x1.0x9 = 0x3c,0xfff6
003d 4873       |Hs  |		Short_Literal	0x73
003e 4853       |HS  |		Short_Literal	0x53
003f 0092 014a  |   J|		Action	Push_String_Extended,0x14a					; "Default_Venture"
0041 e002       |    |		Load	0x0,0x2
0042 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0043 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0044 e003       |    |		Load	0x0,0x3
0045 191e       |    |		Execute	Package,Field_Reference,Field_Number 0x1e
0046 e216       |    |		Load	0x1,0x16
0047 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0048 0387       |    |		Declare_Variable	Package
0049 00d8       |    |		Load_Top	At_Offset_0
004a 020f       |    |		Execute	Module,Activate
004b 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13				; Debug Table 0x1.0xa = 0x4b,0xfff5
004c 00c7       |    |		Action	Elaborate_Subprogram
004d 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14				; Debug Table 0x1.0xb = 0x4d,0xfff4
004e 00c7       |    |		Action	Elaborate_Subprogram
004f 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17				; Debug Table 0x1.0xc = 0x4f,0xfff3
0050 00c7       |    |		Action	Elaborate_Subprogram
0051 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf				; Debug Table 0x1.0xd = 0x51,0xfff2
0052 00c7       |    |		Action	Elaborate_Subprogram
0053 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10				; Debug Table 0x1.0xe = 0x53,0xfff1
0054 00c7       |    |		Action	Elaborate_Subprogram
0055			BODY_0008:
0055 00bc       |    |		Action	Signal_Activated
0056 00bb       |    |		Action	Signal_Completion
0057 0000       |    |		.XXX[0x1]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005b       | [  |		.CONST	0x005b								; Address of begin
0059 0076       | v  |		.CONST	0x0076								; Address of exception handler
005a 0001       |    |		.CONST	0x0001								; Number of locals
005b			BODY_0058:
005b			INIT_0058:
005b 487e       |H~  |		Short_Literal	0x7e							; Debug Table 0x2 = .DEBUG	0x005b,0x024c,0x0001,0x0000,0x0058,0x7225,0x0000,0x0018
													; Debug Table 0x2.0x0 = 0x5b,0x1
005c a5fc       |    |		Store_Unchecked	0x2,-0x4
005d 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x2.0x1 = 0x5d,0x2
005e e002       |    |		Load	0x0,0x2
005f 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0060 700c       |p   |		Jump_Nonzero	0x6d
0061 00db       |    |		Load_Top	At_Offset_3
0062 e002       |    |		Load	0x0,0x2
0063 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0064 e005       |    |		Load	0x0,0x5
0065 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0066 027f       |    |		Execute	Discrete,Equal
0067 7005       |p   |		Jump_Nonzero	0x6d
0068 487b       |H{  |		Short_Literal	0x7b							; Debug Table 0x2.0x2 = 0x68,0x3
0069 a5fc       |    |		Store_Unchecked	0x2,-0x4
006a e001       |    |		Load	0x0,0x1								; Debug Table 0x2.0x3 = 0x6a,0x4
006b 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
006c 0257       | W  |		Execute	Discrete,Raise
006d 60d2       |`   |		Indirect_Literal	Discrete,0x140,{0x00000000, 0x00004000}		; Debug Table 0x2.0x4 = 0x6d,0x5
006e e5fd       |    |		Load	0x2,-0x3
006f e5fe       |    |		Load	0x2,-0x2
0070 e5ff       |    |		Load	0x2,-0x1
0071 e218       |    |		Load	0x1,0x18
0072 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0073 4800       |H   |		Short_Literal	0x0							; Debug Table 0x2.0x5 = 0x73,0x6
0074 a5fc       |    |		Store_Unchecked	0x2,-0x4
0075 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0076			TRAP_0058:
0076 0007       |    |		Action	Break_Optional
0077 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4					; Debug Table 0x2.0x6 = 0x77,0x7
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b       | {  |		.CONST	0x007b								; Address of begin
0079 0081       |    |		.CONST	0x0081								; Address of exception handler
007a 0001       |    |		.CONST	0x0001								; Number of locals
007b			BODY_0078:
007b			INIT_0078:
007b 60c4       |`   |		Indirect_Literal	Discrete,0x140,{0x00000000, 0x00004000}		; Debug Table 0x3 = .DEBUG	0x007b,0x025c,0x0002,0x0000,0x0058,0x7225,0x0000,0x0033
													; Debug Table 0x3.0x0 = 0x7b,0x1
007c e5fe       |    |		Load	0x2,-0x2
007d e5ff       |    |		Load	0x2,-0x1
007e e218       |    |		Load	0x1,0x18
007f 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0080 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0081			TRAP_0078:
0081 e003       |    |		Load	0x0,0x3
0082 1b50       | P  |		Execute	Package,Field_Read,Field_Number 0x50
0083 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0084 010f       |    |		Execute	Exception,Equal
0085 6803       |h   |		Jump_Zero	0x89
0086 e002       |    |		Load	0x0,0x2								; Debug Table 0x3.0x1 = 0x86,0x2
0087 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0088 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0089 0100       |    |		Execute	Exception,Raise
008a 0000 0000  |    |		.BLANK	0000[0x6]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 009f       |    |		.CONST	0x009f								; Address of begin
0091 00d5       |    |		.CONST	0x00d5								; Address of exception handler
0092 0004       |    |		.CONST	0x0004								; Number of locals
0093			INIT_0090:
0093 e002       |    |		Load	0x0,0x2								; Debug Table 0x4 = .DEBUG	0x0093,0x0262,0x0002,0x0000,0x0058,0x7435,0x0000,0x002f
													; Debug Table 0x4.0x0 = 0x93,0xffff
0094 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0095 02ff       |    |		Declare_Variable	Variant_Record
0096 00d8       |    |		Load_Top	At_Offset_0
0097 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0098 e002       |    |		Load	0x0,0x2								; Debug Table 0x4.0x1 = 0x98,0xfffe
0099 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
009a 02c7       |    |		Declare_Variable	Any
009b 00d8       |    |		Load_Top	At_Offset_0
009c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
009d e20d       |    |		Load	0x1,0xd								; Debug Table 0x4.0x2 = 0x9d,0xfffd
009e 0007       |    |		Action	Break_Optional
009f			BODY_0090:
009f e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x4.0x3 = 0x9f,0x1
00a0 01db       |    |		Execute	Vector,Length
00a1 6805       |h   |		Jump_Zero	0xa7
00a2 e5ff       |    |		Load	0x2,-0x1
00a3 0092 014b  |   K|		Action	Push_String_Extended,0x14b					; "<>"
00a5 01df       |    |		Execute	Vector,Equal
00a6 6804       |h   |		Jump_Zero	0xab
00a7 e002       |    |		Load	0x0,0x2								; Debug Table 0x4.0x4 = 0xa7,0x2
00a8 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00a9 c403       |    |		Store	0x2,0x3
00aa 7828       |x(  |		Jump	0xd3
00ab e004       |    |		Load	0x0,0x4								; Debug Table 0x4.0x5 = 0xab,0x3
00ac 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00ad 00db       |    |		Load_Top	At_Offset_3
00ae 4829       |H)  |		Short_Literal	0x29
00af 485b       |H[  |		Short_Literal	0x5b
00b0 e5ff       |    |		Load	0x2,-0x1
00b1 01ca       |    |		Execute	Vector,Prepend
00b2 0092 014c  |   L|		Action	Push_String_Extended,0x14c					; "]'C("
00b4 01cc       |    |		Execute	Vector,Catenate
00b5 e005       |    |		Load	0x0,0x5
00b6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00b7 01cc       |    |		Execute	Vector,Catenate
00b8 01cb       |    |		Execute	Vector,Append
00b9 e004       |    |		Load	0x0,0x4
00ba 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
00bb 00d1       |    |		Pop_Control	Pop_Count_1
00bc 0059       | Y  |		Store_Top	Discrete,At_Offset_1
00bd 4800       |H   |		Short_Literal	0x0							; Debug Table 0x4.0x6 = 0xbd,0x4
00be 00d9       |    |		Load_Top	At_Offset_1
00bf e001       |    |		Load	0x0,0x1
00c0 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
00c1 e004       |    |		Load	0x0,0x4								; Debug Table 0x4.0x7 = 0xc1,0x5
00c2 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00c3 00da       |    |		Load_Top	At_Offset_2
00c4 0120       |    |		Execute	Any,Is_Value
00c5 6803       |h   |		Jump_Zero	0xc9
00c6 e002       |    |		Load	0x0,0x2
00c7 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00c8 7801       |x   |		Jump	0xca
00c9 00da       |    |		Load_Top	At_Offset_2
00ca e402       |    |		Load	0x2,0x2
00cb e004       |    |		Load	0x0,0x4
00cc 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
00cd c403       |    |		Store	0x2,0x3
00ce 0059       | Y  |		Store_Top	Discrete,At_Offset_1
00cf 4800       |H   |		Short_Literal	0x0							; Debug Table 0x4.0x8 = 0xcf,0x6
00d0 00d9       |    |		Load_Top	At_Offset_1
00d1 e001       |    |		Load	0x0,0x1
00d2 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
00d3 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x4.0x9 = 0xd3,0x7
00d4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00d5			TRAP_0090:
00d5 e001       |    |		Load	0x0,0x1
00d6 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
00d7 010f       |    |		Execute	Exception,Equal
00d8 6803       |h   |		Jump_Zero	0xdc
00d9 e002       |    |		Load	0x0,0x2								; Debug Table 0x4.0xa = 0xd9,0x8
00da 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00db 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00dc 0100       |    |		Execute	Exception,Raise
00dd 0000 0000  |    |		.XXX[0x3]
00df 0000       |    |
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00ef       |    |		.CONST	0x00ef								; Address of begin
00e1 012c       | ,  |		.CONST	0x012c								; Address of exception handler
00e2 0004       |    |		.CONST	0x0004								; Number of locals
00e3			INIT_00e0:
00e3 e002       |    |		Load	0x0,0x2								; Debug Table 0x5 = .DEBUG	0x00e3,0x027a,0x0002,0x0000,0x0058,0x7435,0x0000,0x0038
													; Debug Table 0x5.0x0 = 0xe3,0xffff
00e4 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
00e5 02ff       |    |		Declare_Variable	Variant_Record
00e6 00d8       |    |		Load_Top	At_Offset_0
00e7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00e8 e002       |    |		Load	0x0,0x2								; Debug Table 0x5.0x1 = 0xe8,0xfffe
00e9 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00ea 02c7       |    |		Declare_Variable	Any
00eb 00d8       |    |		Load_Top	At_Offset_0
00ec 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00ed e20d       |    |		Load	0x1,0xd								; Debug Table 0x5.0x2 = 0xed,0xfffd
00ee 0007       |    |		Action	Break_Optional
00ef			BODY_00e0:
00ef e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x5.0x3 = 0xef,0x1
00f0 01db       |    |		Execute	Vector,Length
00f1 6805       |h   |		Jump_Zero	0xf7
00f2 e5ff       |    |		Load	0x2,-0x1
00f3 0092 014b  |   K|		Action	Push_String_Extended,0x14b					; "<>"
00f5 01df       |    |		Execute	Vector,Equal
00f6 6802       |h   |		Jump_Zero	0xf9
00f7 00ea       |    |		Load_Encached	Null_String_Cache					; Debug Table 0x5.0x4 = 0xf7,0x2
00f8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00f9 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x5.0x5 = 0xf9,0x3
00fa e002       |    |		Load	0x0,0x2
00fb 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00fc 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
00fd 7009       |p   |		Jump_Nonzero	0x107
00fe 4822       |H"  |		Short_Literal	0x22							; Debug Table 0x5.0x6 = 0xfe,0x4
00ff 4822       |H"  |		Short_Literal	0x22
0100 e5ff       |    |		Load	0x2,-0x1
0101 01ca       |    |		Execute	Vector,Prepend
0102 01cb       |    |		Execute	Vector,Append
0103 0092 014d  |   M|		Action	Push_String_Extended,0x14d					; " is not a well-formed name."
0105 01cc       |    |		Execute	Vector,Catenate
0106 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0107 e004       |    |		Load	0x0,0x4								; Debug Table 0x5.0x7 = 0x107,0x5
0108 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0109 00db       |    |		Load_Top	At_Offset_3
010a 485b       |H[  |		Short_Literal	0x5b
010b e5ff       |    |		Load	0x2,-0x1
010c 01ca       |    |		Execute	Vector,Prepend
010d 0092 014e  |   N|		Action	Push_String_Extended,0x14e					; "]'C(VENTURE)"
010f 01cc       |    |		Execute	Vector,Catenate
0110 e004       |    |		Load	0x0,0x4
0111 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0112 00d1       |    |		Pop_Control	Pop_Count_1
0113 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0114 4800       |H   |		Short_Literal	0x0							; Debug Table 0x5.0x8 = 0x114,0x6
0115 00d9       |    |		Load_Top	At_Offset_1
0116 e001       |    |		Load	0x0,0x1
0117 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0118 e004       |    |		Load	0x0,0x4								; Debug Table 0x5.0x9 = 0x118,0x7
0119 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
011a 00da       |    |		Load_Top	At_Offset_2
011b 0120       |    |		Execute	Any,Is_Value
011c 6803       |h   |		Jump_Zero	0x120
011d e002       |    |		Load	0x0,0x2
011e 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
011f 7801       |x   |		Jump	0x121
0120 00da       |    |		Load_Top	At_Offset_2
0121 e402       |    |		Load	0x2,0x2
0122 e004       |    |		Load	0x0,0x4
0123 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0124 c403       |    |		Store	0x2,0x3
0125 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0126 4800       |H   |		Short_Literal	0x0							; Debug Table 0x5.0xa = 0x126,0x8
0127 00d9       |    |		Load_Top	At_Offset_1
0128 e001       |    |		Load	0x0,0x1
0129 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
012a 00ea       |    |		Load_Encached	Null_String_Cache					; Debug Table 0x5.0xb = 0x12a,0x9
012b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
012c			TRAP_00e0:
012c e001       |    |		Load	0x0,0x1
012d 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
012e 010f       |    |		Execute	Exception,Equal
012f 6804       |h   |		Jump_Zero	0x134
0130 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x5.0xc = 0x130,0xa
0131 e001       |    |		Load	0x0,0x1
0132 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0133 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0134 0100       |    |		Execute	Exception,Raise
0135 0000 0000  |    |		.XXX[0x3]
0137 0000       |    |
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 0092 014f  |   O|		Action	Push_String_Extended,0x14f					; "CMVC.Default_Venture will establish the default venture for a user.  This default is used whenever an explicit venture is not selected, but one is needed.\x0a\x0aLegal values are the null string and a venture path name."
													; Debug Table 0x6 = .DEBUG	0x013b,0x0296,0x0002,0x0000,0x0058,0x7435,0x0000,0x0066
													; Debug Table 0x6.0x0 = 0x13b,0x1
013d 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
013e 0000 0000  |    |		.XXX[0x2]
0140 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
0144 0000 0000  |    |		.LITERAL	{0x00000000, 0x00587435}
0148 ; --------------------------------------------------------------------------------------
0148 ; STRING TABLE
0148 ; --------------------------------------------------------------------------------------
0148 0012       |    |		.STRTAB	0x0012->0x0151							; "CMVC"
0149 0014       |    |		.STRTAB	0x0014->0x0153							; "Venture_Name"
014a 001e       |    |		.STRTAB	0x001e->0x0159							; "Default_Venture"
014b 002b       | +  |		.STRTAB	0x002b->0x0160							; "<>"
014c 002b       | +  |		.STRTAB	0x002b->0x0161							; "]'C("
014d 002d       | -  |		.STRTAB	0x002d->0x0163							; " is not a well-formed name."
014e 0046       | F  |		.STRTAB	0x0046->0x0171							; "]'C(VENTURE)"
014f 0050       | P  |		.STRTAB	0x0050->0x0177							; "CMVC.Default_Venture will establish the default venture for a user.  This default is used whenever an explicit venture is not selected, but one is needed.\x0a\x0aLegal values are the null string and a venture path name."
0150 0123       | #  |		.STREND 0x0123->0x01e1
0151 434d 5643  |CMVC|		.STRTAB_STRINGS
01e2 0000 0000  |    |		.BLANK	0000[0x6]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; Debug Table
01e8 ; --------------------------------------------------------------------------------------
01e8 0003 0007  |    |		.CONST	0x0003,0x0007
01ea 000b 0222  |   "|		.DEBUG	0x000b,0x0222,0x8000,0x0000,0x0058,0x7225,0x0000,0x000b
01f2 0016 022c  |   ,|		.DEBUG	0x0016,0x022c,0x8000,0x0000,0x0058,0x7435,0x0000,0x000f
01fa 005b 024c  | [ L|		.DEBUG	0x005b,0x024c,0x0001,0x0000,0x0058,0x7225,0x0000,0x0018
0202 007b 025c  | { \|		.DEBUG	0x007b,0x025c,0x0002,0x0000,0x0058,0x7225,0x0000,0x0033
020a 0093 0262  |   b|		.DEBUG	0x0093,0x0262,0x0002,0x0000,0x0058,0x7435,0x0000,0x002f
0212 00e3 027a  |   z|		.DEBUG	0x00e3,0x027a,0x0002,0x0000,0x0058,0x7435,0x0000,0x0038
021a 013b 0296  | ;  |		.DEBUG	0x013b,0x0296,0x0002,0x0000,0x0058,0x7435,0x0000,0x0066
0222 ; --------------------------------------------------------------------------------------
0222 ; Debug3 Subtable 0x0
0222 ; --------------------------------------------------------------------------------------
0222 0004 0000  |    |		.DBG3TAB	0x0004,0x0000
0224 000b ffff  |    |		.CONST	0x000b,0xffff
0226 000e fffe  |    |		.CONST	0x000e,0xfffe
0228 0011 fffd  |    |		.CONST	0x0011,0xfffd
022a 0013 fffc  |    |		.CONST	0x0013,0xfffc
022c ; --------------------------------------------------------------------------------------
022c ; Debug3 Subtable 0x1
022c ; --------------------------------------------------------------------------------------
022c 000f 0000  |    |		.DBG3TAB	0x000f,0x0000
022e 0016 ffff  |    |		.CONST	0x0016,0xffff
0230 0017 fffe  |    |		.CONST	0x0017,0xfffe
0232 0019 fffd  |    |		.CONST	0x0019,0xfffd
0234 0022 fffc  | "  |		.CONST	0x0022,0xfffc
0236 0024 fffb  | $  |		.CONST	0x0024,0xfffb
0238 0026 fffa  | &  |		.CONST	0x0026,0xfffa
023a 0029 fff9  | )  |		.CONST	0x0029,0xfff9
023c 002a fff8  | *  |		.CONST	0x002a,0xfff8
023e 003a fff7  | :  |		.CONST	0x003a,0xfff7
0240 003c fff6  | <  |		.CONST	0x003c,0xfff6
0242 004b fff5  | K  |		.CONST	0x004b,0xfff5
0244 004d fff4  | M  |		.CONST	0x004d,0xfff4
0246 004f fff3  | O  |		.CONST	0x004f,0xfff3
0248 0051 fff2  | Q  |		.CONST	0x0051,0xfff2
024a 0053 fff1  | S  |		.CONST	0x0053,0xfff1
024c ; --------------------------------------------------------------------------------------
024c ; Debug3 Subtable 0x2
024c ; --------------------------------------------------------------------------------------
024c 0000 0007  |    |		.DBG3TAB	0x0000,0x0007
024e 005b 0001  | [  |		.CONST	0x005b,0x0001
0250 005d 0002  | ]  |		.CONST	0x005d,0x0002
0252 0068 0003  | h  |		.CONST	0x0068,0x0003
0254 006a 0004  | j  |		.CONST	0x006a,0x0004
0256 006d 0005  | m  |		.CONST	0x006d,0x0005
0258 0073 0006  | s  |		.CONST	0x0073,0x0006
025a 0077 0007  | w  |		.CONST	0x0077,0x0007
025c ; --------------------------------------------------------------------------------------
025c ; Debug3 Subtable 0x3
025c ; --------------------------------------------------------------------------------------
025c 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
025e 007b 0001  | {  |		.CONST	0x007b,0x0001
0260 0086 0002  |    |		.CONST	0x0086,0x0002
0262 ; --------------------------------------------------------------------------------------
0262 ; Debug3 Subtable 0x4
0262 ; --------------------------------------------------------------------------------------
0262 0003 0008  |    |		.DBG3TAB	0x0003,0x0008
0264 0093 ffff  |    |		.CONST	0x0093,0xffff
0266 0098 fffe  |    |		.CONST	0x0098,0xfffe
0268 009d fffd  |    |		.CONST	0x009d,0xfffd
026a 009f 0001  |    |		.CONST	0x009f,0x0001
026c 00a7 0002  |    |		.CONST	0x00a7,0x0002
026e 00ab 0003  |    |		.CONST	0x00ab,0x0003
0270 00bd 0004  |    |		.CONST	0x00bd,0x0004
0272 00c1 0005  |    |		.CONST	0x00c1,0x0005
0274 00cf 0006  |    |		.CONST	0x00cf,0x0006
0276 00d3 0007  |    |		.CONST	0x00d3,0x0007
0278 00d9 0008  |    |		.CONST	0x00d9,0x0008
027a ; --------------------------------------------------------------------------------------
027a ; Debug3 Subtable 0x5
027a ; --------------------------------------------------------------------------------------
027a 0003 000a  |    |		.DBG3TAB	0x0003,0x000a
027c 00e3 ffff  |    |		.CONST	0x00e3,0xffff
027e 00e8 fffe  |    |		.CONST	0x00e8,0xfffe
0280 00ed fffd  |    |		.CONST	0x00ed,0xfffd
0282 00ef 0001  |    |		.CONST	0x00ef,0x0001
0284 00f7 0002  |    |		.CONST	0x00f7,0x0002
0286 00f9 0003  |    |		.CONST	0x00f9,0x0003
0288 00fe 0004  |    |		.CONST	0x00fe,0x0004
028a 0107 0005  |    |		.CONST	0x0107,0x0005
028c 0114 0006  |    |		.CONST	0x0114,0x0006
028e 0118 0007  |    |		.CONST	0x0118,0x0007
0290 0126 0008  | &  |		.CONST	0x0126,0x0008
0292 012a 0009  | *  |		.CONST	0x012a,0x0009
0294 0130 000a  | 0  |		.CONST	0x0130,0x000a
0296 ; --------------------------------------------------------------------------------------
0296 ; Debug3 Subtable 0x6
0296 ; --------------------------------------------------------------------------------------
0296 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
0298 013b 0001  | ;  |		.CONST	0x013b,0x0001
029a 0000 0000  |    |		.BLANK	0000[0x166]