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

⟦b6c0718a8⟧

    Length: 1024 (0x400)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03b8fe

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 01b8       |    |		.CONST	0x01b8								; 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 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
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 002d       | -  |		.CONST	0x002d								; Address of begin
0019 0004       |    |		.CONST	0x0004								; Address of exception handler
001a 000a       |    |		.CONST	0x000a								; Number of locals
001b			INIT_0018:
001b 029f 0033  |   3|		Declare_Subprogram	INIT_0030,For_Call
001d 029f 0043  |   C|		Declare_Subprogram	INIT_0040,For_Call
001f 029f 004b  |   K|		Declare_Subprogram	INIT_0048,For_Call
0021 029f 0053  |   S|		Declare_Subprogram	INIT_0050,For_Call
0023 029f 0063  |   c|		Declare_Subprogram	INIT_0060,For_Call
0025 029f 0073  |   s|		Declare_Subprogram	INIT_0070,For_Call
0027 029f 0083  |    |		Declare_Subprogram	INIT_0080,For_Call
0029 029f 00e3  |    |		Declare_Subprogram	INIT_00e0,For_Call
002b 029f 012b  |   +|		Declare_Subprogram	INIT_0128,For_Call
002d			BODY_0018:
002d 840a       |    |		Call	0x2,0xa
002e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
002f 0000       |    |		.XXX[0x1]
0030 ; --------------------------------------------------------------------------------------
0030 ; SUBPROGRAM
0030 ; --------------------------------------------------------------------------------------
0030 0033       | 3  |		.CONST	0x0033								; Address of begin
0031 0004       |    |		.CONST	0x0004								; Address of exception handler
0032 0001       |    |		.CONST	0x0001								; Number of locals
0033			BODY_0030:
0033			INIT_0030:
0033 e7ff       |    |		Load	0x3,-0x1
0034 e001       |    |		Load	0x0,0x1
0035 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0036 025e       | ^  |		Execute	Discrete,Convert
0037 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0038 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0039 0000 0000  |    |		.BLANK	0000[0x7]
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 0043       | C  |		.CONST	0x0043								; Address of begin
0041 0004       |    |		.CONST	0x0004								; Address of exception handler
0042 0001       |    |		.CONST	0x0001								; Number of locals
0043			BODY_0040:
0043			INIT_0040:
0043 e7ff       |    |		Load	0x3,-0x1
0044 0f00       |    |		Execute_Immediate	Equal,0x0
0045 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0046 0000 0000  |    |		.XXX[0x2]
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 004b       | K  |		.CONST	0x004b								; Address of begin
0049 0004       |    |		.CONST	0x0004								; Address of exception handler
004a 0001       |    |		.CONST	0x0001								; Number of locals
004b			BODY_0048:
004b			INIT_0048:
004b e7ff       |    |		Load	0x3,-0x1
004c 0f00       |    |		Execute_Immediate	Equal,0x0
004d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
004e 0000 0000  |    |		.XXX[0x2]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0053       | S  |		.CONST	0x0053								; Address of begin
0051 0004       |    |		.CONST	0x0004								; Address of exception handler
0052 0001       |    |		.CONST	0x0001								; Number of locals
0053			BODY_0050:
0053			INIT_0050:
0053 e5fe       |    |		Load	0x2,-0x2
0054 e002       |    |		Load	0x0,0x2
0055 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0056 4805       |H   |		Short_Literal	0x5
0057 e7ff       |    |		Load	0x3,-0x1
0058 e003       |    |		Load	0x0,0x3
0059 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
005a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
005b 0000 0000  |    |		.BLANK	0000[0x5]
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 4830       |H0  |		Short_Literal	0x30
0064 4802       |H   |		Short_Literal	0x2
0065 480a       |H   |		Short_Literal	0xa
0066 e7ff       |    |		Load	0x3,-0x1
0067 e004       |    |		Load	0x0,0x4
0068 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0069 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
006a 0000 0000  |    |		.BLANK	0000[0x6]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0073       | s  |		.CONST	0x0073								; Address of begin
0071 0004       |    |		.CONST	0x0004								; Address of exception handler
0072 0001       |    |		.CONST	0x0001								; Number of locals
0073			BODY_0070:
0073			INIT_0070:
0073 482e       |H.  |		Short_Literal	0x2e
0074 482e       |H.  |		Short_Literal	0x2e
0075 e7ff       |    |		Load	0x3,-0x1
0076 8406       |    |		Call	0x2,0x6
0077 01cb       |    |		Execute	Vector,Append
0078 e7fe       |    |		Load	0x3,-0x2
0079 8406       |    |		Call	0x2,0x6
007a 01cc       |    |		Execute	Vector,Catenate
007b 01cb       |    |		Execute	Vector,Append
007c e7fd       |    |		Load	0x3,-0x3
007d 8406       |    |		Call	0x2,0x6
007e 01cc       |    |		Execute	Vector,Catenate
007f 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0095       |    |		.CONST	0x0095								; Address of begin
0081 0004       |    |		.CONST	0x0004								; Address of exception handler
0082 0005       |    |		.CONST	0x0005								; Number of locals
0083			INIT_0080:
0083 e001       |    |		Load	0x0,0x1
0084 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0085 02ff       |    |		Declare_Variable	Variant_Record
0086 e7ff       |    |		Load	0x3,-0x1
0087 e602       |    |		Load	0x3,0x2
0088 016d       | m  |		Execute	Variant_Record,Structure_Write
0089 e001       |    |		Load	0x0,0x1
008a 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
008b 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
008c 02c7       |    |		Declare_Variable	Any
008d 00d8       |    |		Load_Top	At_Offset_0
008e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
008f e001       |    |		Load	0x0,0x1
0090 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0091 00ec       |    |		Load_Encached	Diana_Tree_Cache
0092 02c7       |    |		Declare_Variable	Any
0093 00d8       |    |		Load_Top	At_Offset_0
0094 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0095			BODY_0080:
0095 e001       |    |		Load	0x0,0x1
0096 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0097 e603       |    |		Load	0x3,0x3
0098 0120       |    |		Execute	Any,Is_Value
0099 6804       |h   |		Jump_Zero	0x9e
009a e001       |    |		Load	0x0,0x1
009b 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
009c 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
009d 7801       |x   |		Jump	0x9f
009e e603       |    |		Load	0x3,0x3
009f e605       |    |		Load	0x3,0x5
00a0 0120       |    |		Execute	Any,Is_Value
00a1 6804       |h   |		Jump_Zero	0xa6
00a2 e001       |    |		Load	0x0,0x1
00a3 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
00a4 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
00a5 7801       |x   |		Jump	0xa7
00a6 e605       |    |		Load	0x3,0x5
00a7 e602       |    |		Load	0x3,0x2
00a8 602f       |`/  |		Indirect_Literal	Discrete,0xd8,{0x00000000, 0x00004000}
00a9 4801       |H   |		Short_Literal	0x1
00aa 4800       |H   |		Short_Literal	0x0
00ab e005       |    |		Load	0x0,0x5
00ac 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00ad 4800       |H   |		Short_Literal	0x0
00ae e001       |    |		Load	0x0,0x1
00af 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
00b0 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
00b1 00d1       |    |		Pop_Control	Pop_Count_1
00b2 c605       |    |		Store	0x3,0x5
00b3 c603       |    |		Store	0x3,0x3
00b4 c604       |    |		Store	0x3,0x4
00b5 e604       |    |		Load	0x3,0x4
00b6 8403       |    |		Call	0x2,0x3
00b7 7013       |p   |		Jump_Nonzero	0xcb
00b8 0092 0196  |    |		Action	Push_String_Extended,0x196					; "Could not open ada unit "
00ba e602       |    |		Load	0x3,0x2
00bb e001       |    |		Load	0x0,0x1
00bc 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00bd 1839       | 9  |		Execute	Package,Field_Execute,Field_Number 0x39
00be 01cc       |    |		Execute	Vector,Catenate
00bf 0092 0197  |    |		Action	Push_String_Extended,0x197					; ": "
00c1 01cc       |    |		Execute	Vector,Catenate
00c2 e604       |    |		Load	0x3,0x4
00c3 8402       |    |		Call	0x2,0x2
00c4 01cc       |    |		Execute	Vector,Catenate
00c5 8405       |    |		Call	0x2,0x5
00c6 4800       |H   |		Short_Literal	0x0
00c7 4800       |H   |		Short_Literal	0x0
00c8 4800       |H   |		Short_Literal	0x0
00c9 8407       |    |		Call	0x2,0x7
00ca 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00cb 4800       |H   |		Short_Literal	0x0
00cc e605       |    |		Load	0x3,0x5
00cd e006       |    |		Load	0x0,0x6
00ce 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
00cf 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
00d0 e605       |    |		Load	0x3,0x5
00d1 e006       |    |		Load	0x0,0x6
00d2 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
00d3 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
00d4 8407       |    |		Call	0x2,0x7
00d5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00d6 0000 0000  |    |		.XXX[0x2]
00d8 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
00dc 0000 0000  |    |		.BLANK	0000[0x4]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00eb       |    |		.CONST	0x00eb								; Address of begin
00e1 0004       |    |		.CONST	0x0004								; Address of exception handler
00e2 0003       |    |		.CONST	0x0003								; Number of locals
00e3			INIT_00e0:
00e3 e001       |    |		Load	0x0,0x1
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 e001       |    |		Load	0x0,0x1
00e9 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00ea 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00eb			BODY_00e0:
00eb e001       |    |		Load	0x0,0x1
00ec 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00ed 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00ee e602       |    |		Load	0x3,0x2
00ef 67e8       |g   |		Indirect_Literal	Discrete,0xd8,{0x00000000, 0x00004000}
00f0 e005       |    |		Load	0x0,0x5
00f1 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00f2 4800       |H   |		Short_Literal	0x0
00f3 e007       |    |		Load	0x0,0x7
00f4 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
00f5 e001       |    |		Load	0x0,0x1
00f6 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00f7 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
00f8 e7ff       |    |		Load	0x3,-0x1
00f9 e001       |    |		Load	0x0,0x1
00fa 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00fb 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
00fc 00d1       |    |		Pop_Control	Pop_Count_1
00fd c603       |    |		Store	0x3,0x3
00fe 00d8       |    |		Load_Top	At_Offset_0
00ff 8404       |    |		Call	0x2,0x4
0100 7021       |p!  |		Jump_Nonzero	0x122
0101 0092 0198  |    |		Action	Push_String_Extended,0x198					; "Can't resolve \x22"
0103 e7ff       |    |		Load	0x3,-0x1
0104 01cc       |    |		Execute	Vector,Catenate
0105 0092 0199  |    |		Action	Push_String_Extended,0x199					; "\x22 because "
0107 01cc       |    |		Execute	Vector,Catenate
0108 67cf       |g   |		Indirect_Literal	Discrete,0xd8,{0x00000000, 0x00004000}
0109 e005       |    |		Load	0x0,0x5
010a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
010b e007       |    |		Load	0x0,0x7
010c 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
010d e008       |    |		Load	0x0,0x8
010e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
010f 4801       |H   |		Short_Literal	0x1
0110 4800       |H   |		Short_Literal	0x0
0111 e007       |    |		Load	0x0,0x7
0112 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0113 e001       |    |		Load	0x0,0x1
0114 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0115 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0116 e7ff       |    |		Load	0x3,-0x1
0117 e603       |    |		Load	0x3,0x3
0118 e001       |    |		Load	0x0,0x1
0119 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
011a 1851       | Q  |		Execute	Package,Field_Execute,Field_Number 0x51
011b 01cc       |    |		Execute	Vector,Catenate
011c 8405       |    |		Call	0x2,0x5
011d 4800       |H   |		Short_Literal	0x0
011e 4800       |H   |		Short_Literal	0x0
011f 4800       |H   |		Short_Literal	0x0
0120 8407       |    |		Call	0x2,0x7
0121 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0122 e602       |    |		Load	0x3,0x2
0123 8408       |    |		Call	0x2,0x8
0124 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0125 0000 0000  |    |		.XXX[0x3]
0127 0000       |    |
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 0136       | 6  |		.CONST	0x0136								; Address of begin
0129 0004       |    |		.CONST	0x0004								; Address of exception handler
012a 0004       |    |		.CONST	0x0004								; Number of locals
012b			INIT_0128:
012b e001       |    |		Load	0x0,0x1
012c 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
012d 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
012e 02c7       |    |		Declare_Variable	Any
012f 00d8       |    |		Load_Top	At_Offset_0
0130 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0131 e001       |    |		Load	0x0,0x1
0132 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0133 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0134 029f 0183  |    |		Declare_Subprogram	INIT_0180,For_Call
0136			BODY_0128:
0136 e001       |    |		Load	0x0,0x1
0137 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0138 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0139 e602       |    |		Load	0x3,0x2
013a 6041       |`A  |		Indirect_Literal	Discrete,0x17c,{0x00000000, 0x00004000}
013b e005       |    |		Load	0x0,0x5
013c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
013d e007       |    |		Load	0x0,0x7
013e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
013f e008       |    |		Load	0x0,0x8
0140 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0141 4801       |H   |		Short_Literal	0x1
0142 4800       |H   |		Short_Literal	0x0
0143 e007       |    |		Load	0x0,0x7
0144 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0145 e001       |    |		Load	0x0,0x1
0146 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0147 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0148 e5ff       |    |		Load	0x2,-0x1
0149 e001       |    |		Load	0x0,0x1
014a 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
014b 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
014c c602       |    |		Store	0x3,0x2
014d c603       |    |		Store	0x3,0x3
014e e603       |    |		Load	0x3,0x3
014f 8404       |    |		Call	0x2,0x4
0150 701e       |p   |		Jump_Nonzero	0x16f
0151 0092 0198  |    |		Action	Push_String_Extended,0x198					; "Can't resolve \x22"
0153 e5ff       |    |		Load	0x2,-0x1
0154 01cc       |    |		Execute	Vector,Catenate
0155 0092 0199  |    |		Action	Push_String_Extended,0x199					; "\x22 because "
0157 01cc       |    |		Execute	Vector,Catenate
0158 6023       |`#  |		Indirect_Literal	Discrete,0x17c,{0x00000000, 0x00004000}
0159 e005       |    |		Load	0x0,0x5
015a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
015b e007       |    |		Load	0x0,0x7
015c 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
015d e008       |    |		Load	0x0,0x8
015e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
015f 4801       |H   |		Short_Literal	0x1
0160 4800       |H   |		Short_Literal	0x0
0161 e007       |    |		Load	0x0,0x7
0162 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0163 e001       |    |		Load	0x0,0x1
0164 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0165 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0166 e5ff       |    |		Load	0x2,-0x1
0167 e603       |    |		Load	0x3,0x3
0168 e001       |    |		Load	0x0,0x1
0169 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
016a 1851       | Q  |		Execute	Package,Field_Execute,Field_Number 0x51
016b 01cc       |    |		Execute	Vector,Catenate
016c 8405       |    |		Call	0x2,0x5
016d 00cc       |    |		Action	Pop_Block
016e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
016f 00cf       |    |		Action	Mark_Auxiliary
0170 7802       |x   |		Jump	0x173
0171 8604       |    |		Call	0x3,0x4
0172 00c9       |    |		Action	Pop_Auxiliary_Loop
0173 e602       |    |		Load	0x3,0x2
0174 e001       |    |		Load	0x0,0x1
0175 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0176 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0177 6ff9       |o   |		Jump_Zero	0x171
0178 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0179 0000 0000  |    |		.XXX[0x3]
017b 0000       |    |
017c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0187       |    |		.CONST	0x0187								; Address of begin
0181 0004       |    |		.CONST	0x0004								; Address of exception handler
0182 0002       |    |		.CONST	0x0002								; Number of locals
0183			INIT_0180:
0183 e602       |    |		Load	0x3,0x2
0184 e001       |    |		Load	0x0,0x1
0185 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0186 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0187			BODY_0180:
0187 00d8       |    |		Load_Top	At_Offset_0
0188 8409       |    |		Call	0x2,0x9
0189 0092 019a  |    |		Action	Push_String_Extended,0x19a					; "  "
018b 01cc       |    |		Execute	Vector,Catenate
018c e802       |    |		Load	0x4,0x2
018d 01cc       |    |		Execute	Vector,Catenate
018e e009       |    |		Load	0x0,0x9
018f 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0190 e602       |    |		Load	0x3,0x2
0191 e001       |    |		Load	0x0,0x1
0192 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0193 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0194 c602       |    |		Store	0x3,0x2
0195 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0196 ; --------------------------------------------------------------------------------------
0196 ; STRING TABLE
0196 ; --------------------------------------------------------------------------------------
0196 000c       |    |		.STRTAB	0x000c->0x019c							; "Could not open ada unit "
0197 0022       | "  |		.STRTAB	0x0022->0x01a8							; ": "
0198 0022       | "  |		.STRTAB	0x0022->0x01a9							; "Can't resolve \x22"
0199 002f       | /  |		.STRTAB	0x002f->0x01b0							; "\x22 because "
019a 0037       | 7  |		.STRTAB	0x0037->0x01b5							; "  "
019b 0037       | 7  |		.STREND 0x0037->0x01b6
019c 436f 756c  |Coul|		.STRTAB_STRINGS
01b7 0000       |    |		.XXX[0x1]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; Debug Table
01b8 ; --------------------------------------------------------------------------------------
01b8 0004 000b  |    |		.DEBUG4	0x0004,0x000b,0xbb58,0x0000,0x0001,0x0000
01be 0000 0000  |    |		.XXX[0x16]
01c0 0001 0404  |    |
01c2 0800 0400  |    |
01c4 0000 009f  |    |
01c6 0000 0020  |    |
01c8 0037 0004  | 7  |
01ca 0800 1a00  |    |
01cc 0000 0102  |    |
01ce 0000 003f  |   ?|
01d0 0000 0000  |    |
01d2 0000 0076  |   v|
01d4 0000 0000  |    |		.BLANK	0000[0x4]
01d8 0037 0004  | 7  |		.XXX[0x1c]
01da 0000 1e00  |    |
01dc 0000 0000  |    |
01de ffff ffff  |    |
01e0 0000 0000  |    |
01e2 7fff ffff  |    |
01e4 0000 0000  |    |
01e6 0000 0001  |    |
01e8 0037 0004  | 7  |
01ea 0000 1bc4  |    |
01ec 8204 0001  |    |
01ee 0000 0041  |   A|
01f0 0000 0000  |    |
01f2 0000 0076  |   v|
01f4 0000 0000  |    |		.BLANK	0000[0x4]
01f8 0037 0004  | 7  |		.XXX[0x8]
01fa 8800 2011  |    |
01fc 0000 0040  |   @|
01fe 0000 0040  |   @|