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

⟦ca81677f1⟧

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

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧ 

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0228       | (  |		.CONST	0x0228								; 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 002f       | /  |		.CONST	0x002f								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0017       |    |		.CONST	0x0017								; Number of locals
000b			INIT_0008:
000b 00c4       |    |		Action	Make_Default
000c 00c4       |    |		Action	Make_Default
000d 00c4       |    |		Action	Make_Default
000e 00c4       |    |		Action	Make_Default
000f 00c4       |    |		Action	Make_Default
0010 00c4       |    |		Action	Make_Default
0011 00c4       |    |		Action	Make_Default
0012 00c4       |    |		Action	Make_Default
0013 00c4       |    |		Action	Make_Default
0014 00c4       |    |		Action	Make_Default
0015 e001       |    |		Load	0x0,0x1
0016 0129       | )  |		Execute	Any,Make_Visible
0017 c215       |    |		Store	0x1,0x15
0018 029a 003b  |   ;|		Declare_Subprogram	INIT_0038,For_Outer_Call,Visible,Unelaborated
001a c212       |    |		Store	0x1,0x12
001b 029a 0053  |   S|		Declare_Subprogram	INIT_0050,For_Outer_Call,Visible,Unelaborated
001d c216       |    |		Store	0x1,0x16
001e 029a 006b  |   k|		Declare_Subprogram	INIT_0068,For_Outer_Call,Visible,Unelaborated
0020 c213       |    |		Store	0x1,0x13
0021 029a 0093  |    |		Declare_Subprogram	INIT_0090,For_Outer_Call,Visible,Unelaborated
0023 c214       |    |		Store	0x1,0x14
0024 00bf       |    |		Action	Accept_Activation
0025 029d 00ab  |    |		Declare_Subprogram	INIT_00a8,For_Outer_Call
0027 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0028 00c7       |    |		Action	Elaborate_Subprogram
0029 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
002a 00c7       |    |		Action	Elaborate_Subprogram
002b 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
002c 00c7       |    |		Action	Elaborate_Subprogram
002d 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
002e 00c7       |    |		Action	Elaborate_Subprogram
002f			BODY_0008:
002f 00bc       |    |		Action	Signal_Activated
0030 00bb       |    |		Action	Signal_Completion
0031 0000 0000  |    |		.BLANK	0000[0x7]
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 003d       | =  |		.CONST	0x003d								; Address of begin
0039 0004       |    |		.CONST	0x0004								; Address of exception handler
003a 0002       |    |		.CONST	0x0002								; Number of locals
003b			INIT_0038:
003b 029f 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Call
003d			BODY_0038:
003d e5fd       |    |		Load	0x2,-0x3
003e 0092 01d0  |    |		Action	Push_String_Extended,0x1d0					; "<NONE>"
0040 01de       |    |		Execute	Vector,Not_Equal
0041 680c       |h   |		Jump_Zero	0x4e
0042 00db       |    |		Load_Top	At_Offset_3
0043 e5fe       |    |		Load	0x2,-0x2
0044 0092 01d1  |    |		Action	Push_String_Extended,0x1d1					; "<DEFAULT>"
0046 e002       |    |		Load	0x0,0x2
0047 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0048 e5fd       |    |		Load	0x2,-0x3
0049 e002       |    |		Load	0x0,0x2
004a 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
004b e5fc       |    |		Load	0x2,-0x4
004c 8402       |    |		Call	0x2,0x2
004d 8216       |    |		Call	0x1,0x16
004e 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
004f 0000       |    |		.XXX[0x1]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0055       | U  |		.CONST	0x0055								; Address of begin
0051 0064       | d  |		.CONST	0x0064								; Address of exception handler
0052 0002       |    |		.CONST	0x0002								; Number of locals
0053			INIT_0050:
0053 029f 00f3  |    |		Declare_Subprogram	INIT_00f0,For_Call
0055			BODY_0050:
0055 8402       |    |		Call	0x2,0x2
0056 0092 01d1  |    |		Action	Push_String_Extended,0x1d1					; "<DEFAULT>"
0058 e5fe       |    |		Load	0x2,-0x2
0059 e5fd       |    |		Load	0x2,-0x3
005a 0092 01d1  |    |		Action	Push_String_Extended,0x1d1					; "<DEFAULT>"
005c 0092 01d2  |    |		Action	Push_String_Extended,0x1d2					; "$HOME"
005e e5fb       |    |		Load	0x2,-0x5
005f e5fc       |    |		Load	0x2,-0x4
0060 e5ff       |    |		Load	0x2,-0x1
0061 e003       |    |		Load	0x0,0x3
0062 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0063 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0064			TRAP_0050:
0064 0007       |    |		Action	Break_Optional
0065 e215       |    |		Load	0x1,0x15
0066 0257       | W  |		Execute	Discrete,Raise
0067 0000       |    |		.XXX[0x1]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 0086       |    |		.CONST	0x0086								; Address of begin
0069 0004       |    |		.CONST	0x0004								; Address of exception handler
006a 0003       |    |		.CONST	0x0003								; Number of locals
006b			INIT_0068:
006b e002       |    |		Load	0x0,0x2
006c 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
006d 0092 01d3  |    |		Action	Push_String_Extended,0x1d3					; " -exe_path "
006f 01cc       |    |		Execute	Vector,Catenate
0070 e002       |    |		Load	0x0,0x2
0071 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0072 01cc       |    |		Execute	Vector,Catenate
0073 0092 01d4  |    |		Action	Push_String_Extended,0x1d4					; " -machine "
0075 01cc       |    |		Execute	Vector,Catenate
0076 e004       |    |		Load	0x0,0x4
0077 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0078 01cc       |    |		Execute	Vector,Catenate
0079 0092 01d5  |    |		Action	Push_String_Extended,0x1d5					; " -port "
007b 01cc       |    |		Execute	Vector,Catenate
007c 00db       |    |		Load_Top	At_Offset_3
007d 00e0       |    |		Load_Encached	Standard_Cache
007e 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
007f 01cc       |    |		Execute	Vector,Catenate
0080 e5fd       |    |		Load	0x2,-0x3
0081 e5fc       |    |		Load	0x2,-0x4
0082 8217       |    |		Call	0x1,0x17
0083 01cc       |    |		Execute	Vector,Catenate
0084 029f 010b  |    |		Declare_Subprogram	INIT_0108,For_Call
0086			BODY_0068:
0086 e5fc       |    |		Load	0x2,-0x4
0087 0092 01d0  |    |		Action	Push_String_Extended,0x1d0					; "<NONE>"
0089 01de       |    |		Execute	Vector,Not_Equal
008a 6801       |h   |		Jump_Zero	0x8c
008b 8403       |    |		Call	0x2,0x3
008c 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
008d 0000 0000  |    |		.XXX[0x3]
008f 0000       |    |
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093       |    |		.CONST	0x0093								; Address of begin
0091 0004       |    |		.CONST	0x0004								; Address of exception handler
0092 0001       |    |		.CONST	0x0001								; Number of locals
0093			BODY_0090:
0093			INIT_0090:
0093 00db       |    |		Load_Top	At_Offset_3
0094 e5fd       |    |		Load	0x2,-0x3
0095 e5ff       |    |		Load	0x2,-0x1
0096 0092 01d1  |    |		Action	Push_String_Extended,0x1d1					; "<DEFAULT>"
0098 e002       |    |		Load	0x0,0x2
0099 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
009a 0092 01d6  |    |		Action	Push_String_Extended,0x1d6					; " pass=1 "
009c 01cc       |    |		Execute	Vector,Catenate
009d e002       |    |		Load	0x0,0x2
009e 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
009f 01cc       |    |		Execute	Vector,Catenate
00a0 0092 01d7  |    |		Action	Push_String_Extended,0x1d7					; " pass=2 "
00a2 01cc       |    |		Execute	Vector,Catenate
00a3 e002       |    |		Load	0x0,0x2
00a4 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00a5 01cc       |    |		Execute	Vector,Catenate
00a6 8216       |    |		Call	0x1,0x16
00a7 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ad       |    |		.CONST	0x00ad								; Address of begin
00a9 0004       |    |		.CONST	0x0004								; Address of exception handler
00aa 0002       |    |		.CONST	0x0002								; Number of locals
00ab			INIT_00a8:
00ab 029f 0123  |   #|		Declare_Subprogram	INIT_0120,For_Call
00ad			BODY_00a8:
00ad 4801       |H   |		Short_Literal	0x1
00ae 0092 01d1  |    |		Action	Push_String_Extended,0x1d1					; "<DEFAULT>"
00b0 e5ff       |    |		Load	0x2,-0x1
00b1 e005       |    |		Load	0x0,0x5
00b2 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
00b3 6811       |h   |		Jump_Zero	0xc5
00b4 4801       |H   |		Short_Literal	0x1
00b5 0092 01d1  |    |		Action	Push_String_Extended,0x1d1					; "<DEFAULT>"
00b7 e5fe       |    |		Load	0x2,-0x2
00b8 e005       |    |		Load	0x0,0x5
00b9 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
00ba 6802       |h   |		Jump_Zero	0xbd
00bb 8402       |    |		Call	0x2,0x2
00bc 780d       |x   |		Jump	0xca
00bd 0092 01d8  |    |		Action	Push_String_Extended,0x1d8					; " -display "
00bf e5fe       |    |		Load	0x2,-0x2
00c0 01cc       |    |		Execute	Vector,Catenate
00c1 0092 01d9  |    |		Action	Push_String_Extended,0x1d9					; ":0"
00c3 01cc       |    |		Execute	Vector,Catenate
00c4 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00c5 0092 01d8  |    |		Action	Push_String_Extended,0x1d8					; " -display "
00c7 e5ff       |    |		Load	0x2,-0x1
00c8 01cc       |    |		Execute	Vector,Catenate
00c9 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00ca 0831       | 1  |		Execute_Immediate	Raise,0x31
00cb 0000 0000  |    |		.BLANK	0000[0x5]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3       |    |		.CONST	0x00d3								; Address of begin
00d1 0004       |    |		.CONST	0x0004								; Address of exception handler
00d2 0001       |    |		.CONST	0x0001								; Number of locals
00d3			BODY_00d0:
00d3			INIT_00d0:
00d3 00da       |    |		Load_Top	At_Offset_2
00d4 680f       |h   |		Jump_Zero	0xe4
00d5 e002       |    |		Load	0x0,0x2
00d6 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00d7 0092 01da  |    |		Action	Push_String_Extended,0x1da					; " "
00d9 01cc       |    |		Execute	Vector,Catenate
00da e5fe       |    |		Load	0x2,-0x2
00db e7fd       |    |		Load	0x3,-0x3
00dc 8217       |    |		Call	0x1,0x17
00dd 01cc       |    |		Execute	Vector,Catenate
00de 0092 01db  |    |		Action	Push_String_Extended,0x1db					; " -output "
00e0 01cc       |    |		Execute	Vector,Catenate
00e1 e7fe       |    |		Load	0x3,-0x2
00e2 01cc       |    |		Execute	Vector,Catenate
00e3 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
00e4 0092 01dc  |    |		Action	Push_String_Extended,0x1dc					; "cat  > "
00e6 e7fe       |    |		Load	0x3,-0x2
00e7 01cc       |    |		Execute	Vector,Catenate
00e8 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
00e9 0000 0000  |    |		.BLANK	0000[0x7]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00fc       |    |		.CONST	0x00fc								; Address of begin
00f1 0004       |    |		.CONST	0x0004								; Address of exception handler
00f2 0002       |    |		.CONST	0x0002								; Number of locals
00f3			INIT_00f0:
00f3 e006       |    |		Load	0x0,0x6
00f4 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
00f5 0337       | 7  |		Declare_Variable	Array
00f6 e006       |    |		Load	0x0,0x6
00f7 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00f8 e006       |    |		Load	0x0,0x6
00f9 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
00fa 00d9       |    |		Load_Top	At_Offset_1
00fb 01d4       |    |		Execute	Vector,Structure_Write
00fc			BODY_00f0:
00fc 4801       |H   |		Short_Literal	0x1
00fd 00d9       |    |		Load_Top	At_Offset_1
00fe 01d7       |    |		Execute	Vector,Field_Read
00ff 7003       |p   |		Jump_Nonzero	0x103
0100 0092 01dd  |    |		Action	Push_String_Extended,0x1dd					; "~---,<PROFILE>"
0102 00ca       |    |		Action	Exit_Nullary_Function
0103 0092 01de  |    |		Action	Push_String_Extended,0x1de					; "<PROFILE>"
0105 00ca       |    |		Action	Exit_Nullary_Function
0106 0000 0000  |    |		.XXX[0x2]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b       |    |		.CONST	0x010b								; Address of begin
0109 0118       |    |		.CONST	0x0118								; Address of exception handler
010a 0001       |    |		.CONST	0x0001								; Number of locals
010b			BODY_0108:
010b			INIT_0108:
010b e007       |    |		Load	0x0,0x7
010c 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
010d e5fe       |    |		Load	0x2,-0x2
010e e5fd       |    |		Load	0x2,-0x3
010f 0092 01d1  |    |		Action	Push_String_Extended,0x1d1					; "<DEFAULT>"
0111 0092 01d1  |    |		Action	Push_String_Extended,0x1d1					; "<DEFAULT>"
0113 e402       |    |		Load	0x2,0x2
0114 8216       |    |		Call	0x1,0x16
0115 e007       |    |		Load	0x0,0x7
0116 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0117 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0118			TRAP_0108:
0118 0007       |    |		Action	Break_Optional
0119 e007       |    |		Load	0x0,0x7
011a 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
011b 00d8       |    |		Load_Top	At_Offset_0
011c 0101       |    |		Execute	Exception,Reraise
011d 0000 0000  |    |		.XXX[0x3]
011f 0000       |    |
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0141       | A  |		.CONST	0x0141								; Address of begin
0121 0004       |    |		.CONST	0x0004								; Address of exception handler
0122 0008       |    |		.CONST	0x0008								; Number of locals
0123			INIT_0120:
0123 00e1       |    |		Load_Encached	Boolean_Cache
0124 e008       |    |		Load	0x0,0x8
0125 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0126 02c7       |    |		Declare_Variable	Any
0127 00d8       |    |		Load_Top	At_Offset_0
0128 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0129 e009       |    |		Load	0x0,0x9
012a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
012b 02c7       |    |		Declare_Variable	Any
012c 00d8       |    |		Load_Top	At_Offset_0
012d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
012e 029f 0173  |   s|		Declare_Subprogram	INIT_0170,For_Call
0130 029f 0183  |    |		Declare_Subprogram	INIT_0180,For_Call
0132 e00a       |    |		Load	0x0,0xa
0133 e00b       |    |		Load	0x0,0xb
0134 4805       |H   |		Short_Literal	0x5
0135 4803       |H   |		Short_Literal	0x3
0136 0099       |    |		Action	Reference_Dynamic
0137 4806       |H   |		Short_Literal	0x6
0138 4803       |H   |		Short_Literal	0x3
0139 0099       |    |		Action	Reference_Dynamic
013a e009       |    |		Load	0x0,0x9
013b 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
013c 0387       |    |		Declare_Variable	Package
013d 00d8       |    |		Load_Top	At_Offset_0
013e 020f       |    |		Execute	Module,Activate
013f 029f 0193  |    |		Declare_Subprogram	INIT_0190,For_Call
0141			BODY_0120:
0141 8608       |    |		Call	0x3,0x8
0142 00e1       |    |		Load_Encached	Boolean_Cache
0143 e604       |    |		Load	0x3,0x4
0144 0120       |    |		Execute	Any,Is_Value
0145 6803       |h   |		Jump_Zero	0x149
0146 e009       |    |		Load	0x0,0x9
0147 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0148 7801       |x   |		Jump	0x14a
0149 e604       |    |		Load	0x3,0x4
014a e00c       |    |		Load	0x0,0xc
014b 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
014c e603       |    |		Load	0x3,0x3
014d 4801       |H   |		Short_Literal	0x1
014e 0092 01d1  |    |		Action	Push_String_Extended,0x1d1					; "<DEFAULT>"
0150 0092 01d1  |    |		Action	Push_String_Extended,0x1d1					; "<DEFAULT>"
0152 0092 01d1  |    |		Action	Push_String_Extended,0x1d1					; "<DEFAULT>"
0154 0092 01d1  |    |		Action	Push_String_Extended,0x1d1					; "<DEFAULT>"
0156 e607       |    |		Load	0x3,0x7
0157 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0158 c604       |    |		Store	0x3,0x4
0159 c602       |    |		Store	0x3,0x2
015a e602       |    |		Load	0x3,0x2
015b 680d       |h   |		Jump_Zero	0x169
015c 0092 01d8  |    |		Action	Push_String_Extended,0x1d8					; " -display "
015e e604       |    |		Load	0x3,0x4
015f 00db       |    |		Load_Top	At_Offset_3
0160 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0161 01cc       |    |		Execute	Vector,Catenate
0162 0092 01d9  |    |		Action	Push_String_Extended,0x1d9					; ":0"
0164 01cc       |    |		Execute	Vector,Catenate
0165 00e9       |    |		Load_Encached	String_Cache
0166 01c6       |    |		Execute	Vector,Convert_To_Formal
0167 00cb       |    |		Action	Pop_Block_With_Result
0168 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0169 0092 01df  |    |		Action	Push_String_Extended,0x1df					; " -display <unknown>"
016b 00cb       |    |		Action	Pop_Block_With_Result
016c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
016d 0000 0000  |    |		.XXX[0x3]
016f 0000       |    |
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 e006       |    |		Load	0x0,0x6
0174 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0175 4801       |H   |		Short_Literal	0x1
0176 e9ff       |    |		Load	0x4,-0x1
0177 e00d       |    |		Load	0x0,0xd
0178 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0179 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
017a 0000 0000  |    |		.BLANK	0000[0x6]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183       |    |		.CONST	0x0183								; Address of begin
0181 0004       |    |		.CONST	0x0004								; Address of exception handler
0182 0001       |    |		.CONST	0x0001								; Number of locals
0183			BODY_0180:
0183			INIT_0180:
0183 e006       |    |		Load	0x0,0x6
0184 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0185 4801       |H   |		Short_Literal	0x1
0186 e9ff       |    |		Load	0x4,-0x1
0187 e00d       |    |		Load	0x0,0xd
0188 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0189 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
018a 0000 0000  |    |		.BLANK	0000[0x6]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 01a1       |    |		.CONST	0x01a1								; Address of begin
0191 01c4       |    |		.CONST	0x01c4								; Address of exception handler
0192 0004       |    |		.CONST	0x0004								; Number of locals
0193			INIT_0190:
0193 e00e       |    |		Load	0x0,0xe
0194 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0195 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0196 02c7       |    |		Declare_Variable	Any
0197 00d8       |    |		Load_Top	At_Offset_0
0198 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0199 e00e       |    |		Load	0x0,0xe
019a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
019b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
019c 02c7       |    |		Declare_Variable	Any
019d 00d8       |    |		Load_Top	At_Offset_0
019e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
019f e00f       |    |		Load	0x0,0xf
01a0 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01a1			BODY_0190:
01a1 4801       |H   |		Short_Literal	0x1
01a2 e00e       |    |		Load	0x0,0xe
01a3 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01a4 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01a5 0092 01e0  |    |		Action	Push_String_Extended,0x1e0					; "$"
01a7 e00e       |    |		Load	0x0,0xe
01a8 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01a9 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
01aa c803       |    |		Store	0x4,0x3
01ab 00d9       |    |		Load_Top	At_Offset_1
01ac e00e       |    |		Load	0x0,0xe
01ad 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
01ae 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01af c802       |    |		Store	0x4,0x2
01b0 e00f       |    |		Load	0x0,0xf
01b1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01b2 e603       |    |		Load	0x3,0x3
01b3 0120       |    |		Execute	Any,Is_Value
01b4 6803       |h   |		Jump_Zero	0x1b8
01b5 e00f       |    |		Load	0x0,0xf
01b6 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
01b7 7801       |x   |		Jump	0x1b9
01b8 e603       |    |		Load	0x3,0x3
01b9 6012       |`   |		Indirect_Literal	Discrete,0x1cc,{0x00000000, 0x00004000}
01ba e00c       |    |		Load	0x0,0xc
01bb 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01bc e802       |    |		Load	0x4,0x2
01bd e00e       |    |		Load	0x0,0xe
01be 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01bf 1b56       | V  |		Execute	Package,Field_Read,Field_Number 0x56
01c0 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
01c1 c603       |    |		Store	0x3,0x3
01c2 0059       | Y  |		Store_Top	Discrete,At_Offset_1
01c3 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01c4			TRAP_0190:
01c4 0007       |    |		Action	Break_Optional
01c5 e00f       |    |		Load	0x0,0xf
01c6 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
01c7 c603       |    |		Store	0x3,0x3
01c8 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01c9 0000 0000  |    |		.XXX[0x3]
01cb 0000       |    |
01cc 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
01d0 ; --------------------------------------------------------------------------------------
01d0 ; STRING TABLE
01d0 ; --------------------------------------------------------------------------------------
01d0 0024       | $  |		.STRTAB	0x0024->0x01e2							; "<NONE>"
01d1 0028       | (  |		.STRTAB	0x0028->0x01e5							; "<DEFAULT>"
01d2 002f       | /  |		.STRTAB	0x002f->0x01e9							; "$HOME"
01d3 0032       | 2  |		.STRTAB	0x0032->0x01ec							; " -exe_path "
01d4 003b       | ;  |		.STRTAB	0x003b->0x01f1							; " -machine "
01d5 0043       | C  |		.STRTAB	0x0043->0x01f6							; " -port "
01d6 0048       | H  |		.STRTAB	0x0048->0x01fa							; " pass=1 "
01d7 004e       | N  |		.STRTAB	0x004e->0x01fe							; " pass=2 "
01d8 0054       | T  |		.STRTAB	0x0054->0x0202							; " -display "
01d9 005c       | \  |		.STRTAB	0x005c->0x0207							; ":0"
01da 005c       | \  |		.STRTAB	0x005c->0x0208							; " "
01db 005b       | [  |		.STRTAB	0x005b->0x0208							; " -output "
01dc 0062       | b  |		.STRTAB	0x0062->0x020d							; "cat  > "
01dd 0067       | g  |		.STRTAB	0x0067->0x0210							; "~---,<PROFILE>"
01de 0073       | s  |		.STRTAB	0x0073->0x0217							; "<PROFILE>"
01df 007a       | z  |		.STRTAB	0x007a->0x021c							; " -display <unknown>"
01e0 008b       |    |		.STRTAB	0x008b->0x0225							; "$"
01e1 008a       |    |		.STREND 0x008a->0x0226
01e2 3c4e 4f4e  |<NON|		.STRTAB_STRINGS
0226 0000 0000  |    |		.XXX[0x2]
0228 ; --------------------------------------------------------------------------------------
0228 ; Debug Table
0228 ; --------------------------------------------------------------------------------------
0228 0004 0014  |    |		.DEBUG4	0x0004,0x0014,0x0e41,0x0000,0x0001,0x0000
022e 0000 601e  |  ` |		.XXX[0x33]
0230 9344 0000  | D  |
0232 601e 9354  |`  T|
0234 0000 601e  |  ` |
0236 9374 0000  | t  |
0238 601e 9384  |`   |
023a 0000 601e  |  ` |
023c 9394 0000  |    |
023e 601e 93a4  |`   |
0240 0000 601e  |  ` |
0242 93b4 0000  |    |
0244 601e 93c4  |`   |
0246 0000 601e  |  ` |
0248 93d4 0000  |    |
024a 601e 93e4  |`   |
024c 0000 601e  |  ` |
024e 93f4 0000  |    |
0250 601e 9404  |`   |
0252 0000 601e  |  ` |
0254 9414 0000  |    |
0256 601e 9424  |`  $|
0258 0000 601e  |  ` |
025a 9434 0000  | 4  |
025c 601e 9584  |`   |
025e 0000 601e  |  ` |
0260 9590       |    |
0261 0000 0000  |    |		.BLANK	0000[0x19f]