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

⟦e591966ad⟧

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

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5900       |Y   |		.CONST	0x5900								; 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 0001       |    |		.CONST	0x0001								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 005c       | \  |		.CONST	0x005c								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0021       | !  |		.CONST	0x0021								; Number of locals
000b			INIT_0008:
000b 029a 0063  |   c|		Declare_Subprogram	INIT_0060,For_Outer_Call,Visible,Unelaborated
000d 029a 0073  |   s|		Declare_Subprogram	INIT_0070,For_Outer_Call,Visible,Unelaborated
000f 029a 0083  |    |		Declare_Subprogram	INIT_0080,For_Outer_Call,Visible,Unelaborated
0011 029a 0093  |    |		Declare_Subprogram	INIT_0090,For_Outer_Call,Visible,Unelaborated
0013 029a 00a3  |    |		Declare_Subprogram	INIT_00a0,For_Outer_Call,Visible,Unelaborated
0015 029a 00b3  |    |		Declare_Subprogram	INIT_00b0,For_Outer_Call,Visible,Unelaborated
0017 029a 00c3  |    |		Declare_Subprogram	INIT_00c0,For_Outer_Call,Visible,Unelaborated
0019 029a 00cb  |    |		Declare_Subprogram	INIT_00c8,For_Outer_Call,Visible,Unelaborated
001b 029a 00db  |    |		Declare_Subprogram	INIT_00d8,For_Outer_Call,Visible,Unelaborated
001d 029a 00eb  |    |		Declare_Subprogram	INIT_00e8,For_Outer_Call,Visible,Unelaborated
001f 029a 00fb  |    |		Declare_Subprogram	INIT_00f8,For_Outer_Call,Visible,Unelaborated
0021 029a 010b  |    |		Declare_Subprogram	INIT_0108,For_Outer_Call,Visible,Unelaborated
0023 029a 011b  |    |		Declare_Subprogram	INIT_0118,For_Outer_Call,Visible,Unelaborated
0025 029a 012b  |   +|		Declare_Subprogram	INIT_0128,For_Outer_Call,Visible,Unelaborated
0027 029a 013b  |   ;|		Declare_Subprogram	INIT_0138,For_Outer_Call,Visible,Unelaborated
0029 029a 014b  |   K|		Declare_Subprogram	INIT_0148,For_Outer_Call,Visible,Unelaborated
002b 029a 015b  |   [|		Declare_Subprogram	INIT_0158,For_Outer_Call,Visible,Unelaborated
002d 029a 016b  |   k|		Declare_Subprogram	INIT_0168,For_Outer_Call,Visible,Unelaborated
002f 029a 017b  |   {|		Declare_Subprogram	INIT_0178,For_Outer_Call,Visible,Unelaborated
0031 00bf       |    |		Action	Accept_Activation
0032 029d 018b  |    |		Declare_Subprogram	INIT_0188,For_Outer_Call
0034 029d 01a3  |    |		Declare_Subprogram	INIT_01a0,For_Outer_Call
0036 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0037 00c7       |    |		Action	Elaborate_Subprogram
0038 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0039 00c7       |    |		Action	Elaborate_Subprogram
003a 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
003b 00c7       |    |		Action	Elaborate_Subprogram
003c 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
003d 00c7       |    |		Action	Elaborate_Subprogram
003e 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
003f 00c7       |    |		Action	Elaborate_Subprogram
0040 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0041 00c7       |    |		Action	Elaborate_Subprogram
0042 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0043 00c7       |    |		Action	Elaborate_Subprogram
0044 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0045 00c7       |    |		Action	Elaborate_Subprogram
0046 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0047 00c7       |    |		Action	Elaborate_Subprogram
0048 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0049 00c7       |    |		Action	Elaborate_Subprogram
004a 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
004b 00c7       |    |		Action	Elaborate_Subprogram
004c 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
004d 00c7       |    |		Action	Elaborate_Subprogram
004e 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
004f 00c7       |    |		Action	Elaborate_Subprogram
0050 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
0051 00c7       |    |		Action	Elaborate_Subprogram
0052 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
0053 00c7       |    |		Action	Elaborate_Subprogram
0054 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0055 00c7       |    |		Action	Elaborate_Subprogram
0056 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
0057 00c7       |    |		Action	Elaborate_Subprogram
0058 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
0059 00c7       |    |		Action	Elaborate_Subprogram
005a 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
005b 00c7       |    |		Action	Elaborate_Subprogram
005c			BODY_0008:
005c 00bc       |    |		Action	Signal_Activated
005d 00bb       |    |		Action	Signal_Completion
005e 0000 0000  |    |		.XXX[0x2]
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 00da       |    |		Load_Top	At_Offset_2
0064 e003       |    |		Load	0x0,0x3
0065 0119       |    |		Execute	Any,Check_In_Formal_Type
0066 4800       |H   |		Short_Literal	0x0
0067 8221       | !  |		Call	0x1,0x21
0068 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0069 0000 0000  |    |		.BLANK	0000[0x7]
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 00da       |    |		Load_Top	At_Offset_2
0074 e003       |    |		Load	0x0,0x3
0075 0119       |    |		Execute	Any,Check_In_Formal_Type
0076 4801       |H   |		Short_Literal	0x1
0077 8221       | !  |		Call	0x1,0x21
0078 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0079 0000 0000  |    |		.BLANK	0000[0x7]
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
0084 e003       |    |		Load	0x0,0x3
0085 0119       |    |		Execute	Any,Check_In_Formal_Type
0086 4802       |H   |		Short_Literal	0x2
0087 8221       | !  |		Call	0x1,0x21
0088 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0089 0000 0000  |    |		.BLANK	0000[0x7]
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 00da       |    |		Load_Top	At_Offset_2
0094 e003       |    |		Load	0x0,0x3
0095 0119       |    |		Execute	Any,Check_In_Formal_Type
0096 4803       |H   |		Short_Literal	0x3
0097 8221       | !  |		Call	0x1,0x21
0098 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0099 0000 0000  |    |		.BLANK	0000[0x7]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a3       |    |		.CONST	0x00a3								; Address of begin
00a1 0004       |    |		.CONST	0x0004								; Address of exception handler
00a2 0001       |    |		.CONST	0x0001								; Number of locals
00a3			BODY_00a0:
00a3			INIT_00a0:
00a3 00da       |    |		Load_Top	At_Offset_2
00a4 e003       |    |		Load	0x0,0x3
00a5 0119       |    |		Execute	Any,Check_In_Formal_Type
00a6 4804       |H   |		Short_Literal	0x4
00a7 8221       | !  |		Call	0x1,0x21
00a8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00a9 0000 0000  |    |		.BLANK	0000[0x7]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3       |    |		.CONST	0x00b3								; Address of begin
00b1 0004       |    |		.CONST	0x0004								; Address of exception handler
00b2 0001       |    |		.CONST	0x0001								; Number of locals
00b3			BODY_00b0:
00b3			INIT_00b0:
00b3 00da       |    |		Load_Top	At_Offset_2
00b4 e003       |    |		Load	0x0,0x3
00b5 0119       |    |		Execute	Any,Check_In_Formal_Type
00b6 4805       |H   |		Short_Literal	0x5
00b7 8221       | !  |		Call	0x1,0x21
00b8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00b9 0000 0000  |    |		.BLANK	0000[0x7]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3       |    |		.CONST	0x00c3								; Address of begin
00c1 0004       |    |		.CONST	0x0004								; Address of exception handler
00c2 0001       |    |		.CONST	0x0001								; Number of locals
00c3			BODY_00c0:
00c3			INIT_00c0:
00c3 4806       |H   |		Short_Literal	0x6
00c4 8220       |    |		Call	0x1,0x20
00c5 00ca       |    |		Action	Exit_Nullary_Function
00c6 0000 0000  |    |		.XXX[0x2]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb       |    |		.CONST	0x00cb								; Address of begin
00c9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ca 0001       |    |		.CONST	0x0001								; Number of locals
00cb			BODY_00c8:
00cb			INIT_00c8:
00cb 00da       |    |		Load_Top	At_Offset_2
00cc 8004       |    |		Call	0x0,0x4
00cd e003       |    |		Load	0x0,0x3
00ce 0119       |    |		Execute	Any,Check_In_Formal_Type
00cf 820d       |    |		Call	0x1,0xd
00d0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00d1 0000 0000  |    |		.BLANK	0000[0x7]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db       |    |		.CONST	0x00db								; Address of begin
00d9 0004       |    |		.CONST	0x0004								; Address of exception handler
00da 0001       |    |		.CONST	0x0001								; Number of locals
00db			BODY_00d8:
00db			INIT_00d8:
00db 00da       |    |		Load_Top	At_Offset_2
00dc 8004       |    |		Call	0x0,0x4
00dd e003       |    |		Load	0x0,0x3
00de 0119       |    |		Execute	Any,Check_In_Formal_Type
00df 820e       |    |		Call	0x1,0xe
00e0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00e1 0000 0000  |    |		.BLANK	0000[0x7]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb       |    |		.CONST	0x00eb								; Address of begin
00e9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ea 0001       |    |		.CONST	0x0001								; Number of locals
00eb			BODY_00e8:
00eb			INIT_00e8:
00eb 00da       |    |		Load_Top	At_Offset_2
00ec 8004       |    |		Call	0x0,0x4
00ed e003       |    |		Load	0x0,0x3
00ee 0119       |    |		Execute	Any,Check_In_Formal_Type
00ef 820f       |    |		Call	0x1,0xf
00f0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00f1 0000 0000  |    |		.BLANK	0000[0x7]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb       |    |		.CONST	0x00fb								; Address of begin
00f9 0004       |    |		.CONST	0x0004								; Address of exception handler
00fa 0001       |    |		.CONST	0x0001								; Number of locals
00fb			BODY_00f8:
00fb			INIT_00f8:
00fb 00da       |    |		Load_Top	At_Offset_2
00fc 8004       |    |		Call	0x0,0x4
00fd e003       |    |		Load	0x0,0x3
00fe 0119       |    |		Execute	Any,Check_In_Formal_Type
00ff 8210       |    |		Call	0x1,0x10
0100 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0101 0000 0000  |    |		.BLANK	0000[0x7]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b       |    |		.CONST	0x010b								; Address of begin
0109 0004       |    |		.CONST	0x0004								; Address of exception handler
010a 0001       |    |		.CONST	0x0001								; Number of locals
010b			BODY_0108:
010b			INIT_0108:
010b 00da       |    |		Load_Top	At_Offset_2
010c 8004       |    |		Call	0x0,0x4
010d e003       |    |		Load	0x0,0x3
010e 0119       |    |		Execute	Any,Check_In_Formal_Type
010f 8211       |    |		Call	0x1,0x11
0110 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0111 0000 0000  |    |		.BLANK	0000[0x7]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b       |    |		.CONST	0x011b								; Address of begin
0119 0004       |    |		.CONST	0x0004								; Address of exception handler
011a 0001       |    |		.CONST	0x0001								; Number of locals
011b			BODY_0118:
011b			INIT_0118:
011b 00da       |    |		Load_Top	At_Offset_2
011c 8004       |    |		Call	0x0,0x4
011d e003       |    |		Load	0x0,0x3
011e 0119       |    |		Execute	Any,Check_In_Formal_Type
011f 8212       |    |		Call	0x1,0x12
0120 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0121 0000 0000  |    |		.BLANK	0000[0x7]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b       | +  |		.CONST	0x012b								; Address of begin
0129 0004       |    |		.CONST	0x0004								; Address of exception handler
012a 0001       |    |		.CONST	0x0001								; Number of locals
012b			BODY_0128:
012b			INIT_0128:
012b 00da       |    |		Load_Top	At_Offset_2
012c 8005       |    |		Call	0x0,0x5
012d e003       |    |		Load	0x0,0x3
012e 0119       |    |		Execute	Any,Check_In_Formal_Type
012f 820d       |    |		Call	0x1,0xd
0130 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0131 0000 0000  |    |		.BLANK	0000[0x7]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b       | ;  |		.CONST	0x013b								; Address of begin
0139 0004       |    |		.CONST	0x0004								; Address of exception handler
013a 0001       |    |		.CONST	0x0001								; Number of locals
013b			BODY_0138:
013b			INIT_0138:
013b 00da       |    |		Load_Top	At_Offset_2
013c 8005       |    |		Call	0x0,0x5
013d e003       |    |		Load	0x0,0x3
013e 0119       |    |		Execute	Any,Check_In_Formal_Type
013f 820e       |    |		Call	0x1,0xe
0140 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0141 0000 0000  |    |		.BLANK	0000[0x7]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b       | K  |		.CONST	0x014b								; Address of begin
0149 0004       |    |		.CONST	0x0004								; Address of exception handler
014a 0001       |    |		.CONST	0x0001								; Number of locals
014b			BODY_0148:
014b			INIT_0148:
014b 00da       |    |		Load_Top	At_Offset_2
014c 8005       |    |		Call	0x0,0x5
014d e003       |    |		Load	0x0,0x3
014e 0119       |    |		Execute	Any,Check_In_Formal_Type
014f 820f       |    |		Call	0x1,0xf
0150 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0151 0000 0000  |    |		.BLANK	0000[0x7]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b       | [  |		.CONST	0x015b								; Address of begin
0159 0004       |    |		.CONST	0x0004								; Address of exception handler
015a 0001       |    |		.CONST	0x0001								; Number of locals
015b			BODY_0158:
015b			INIT_0158:
015b 00da       |    |		Load_Top	At_Offset_2
015c 8005       |    |		Call	0x0,0x5
015d e003       |    |		Load	0x0,0x3
015e 0119       |    |		Execute	Any,Check_In_Formal_Type
015f 8210       |    |		Call	0x1,0x10
0160 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0161 0000 0000  |    |		.BLANK	0000[0x7]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b       | k  |		.CONST	0x016b								; Address of begin
0169 0004       |    |		.CONST	0x0004								; Address of exception handler
016a 0001       |    |		.CONST	0x0001								; Number of locals
016b			BODY_0168:
016b			INIT_0168:
016b 00da       |    |		Load_Top	At_Offset_2
016c 8005       |    |		Call	0x0,0x5
016d e003       |    |		Load	0x0,0x3
016e 0119       |    |		Execute	Any,Check_In_Formal_Type
016f 8211       |    |		Call	0x1,0x11
0170 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0171 0000 0000  |    |		.BLANK	0000[0x7]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b       | {  |		.CONST	0x017b								; Address of begin
0179 0004       |    |		.CONST	0x0004								; Address of exception handler
017a 0001       |    |		.CONST	0x0001								; Number of locals
017b			BODY_0178:
017b			INIT_0178:
017b 00da       |    |		Load_Top	At_Offset_2
017c 8005       |    |		Call	0x0,0x5
017d e003       |    |		Load	0x0,0x3
017e 0119       |    |		Execute	Any,Check_In_Formal_Type
017f 8212       |    |		Call	0x1,0x12
0180 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0181 0000 0000  |    |		.BLANK	0000[0x7]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018f       |    |		.CONST	0x018f								; Address of begin
0189 0004       |    |		.CONST	0x0004								; Address of exception handler
018a 0002       |    |		.CONST	0x0002								; Number of locals
018b			INIT_0188:
018b e006       |    |		Load	0x0,0x6
018c 02ff       |    |		Declare_Variable	Variant_Record
018d 00d8       |    |		Load_Top	At_Offset_0
018e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
018f			BODY_0188:
018f 00db       |    |		Load_Top	At_Offset_3
0190 8007       |    |		Call	0x0,0x7
0191 00d9       |    |		Load_Top	At_Offset_1
0192 016d       | m  |		Execute	Variant_Record,Structure_Write
0193 4801       |H   |		Short_Literal	0x1
0194 e008       |    |		Load	0x0,0x8
0195 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0196 00d9       |    |		Load_Top	At_Offset_1
0197 00d9       |    |		Load_Top	At_Offset_1
0198 2a03       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0199 8009       |    |		Call	0x0,0x9
019a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
019b 0000 0000  |    |		.BLANK	0000[0x5]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a7       |    |		.CONST	0x01a7								; Address of begin
01a1 0004       |    |		.CONST	0x0004								; Address of exception handler
01a2 0002       |    |		.CONST	0x0002								; Number of locals
01a3			INIT_01a0:
01a3 e00a       |    |		Load	0x0,0xa
01a4 02ff       |    |		Declare_Variable	Variant_Record
01a5 00d8       |    |		Load_Top	At_Offset_0
01a6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01a7			BODY_01a0:
01a7 e5fe       |    |		Load	0x2,-0x2
01a8 e003       |    |		Load	0x0,0x3
01a9 0119       |    |		Execute	Any,Check_In_Formal_Type
01aa e5ff       |    |		Load	0x2,-0x1
01ab 800b       |    |		Call	0x0,0xb
01ac 00d9       |    |		Load_Top	At_Offset_1
01ad 016d       | m  |		Execute	Variant_Record,Structure_Write
01ae 4802       |H   |		Short_Literal	0x2
01af e008       |    |		Load	0x0,0x8
01b0 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01b1 00d9       |    |		Load_Top	At_Offset_1
01b2 00d9       |    |		Load_Top	At_Offset_1
01b3 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
01b4 8009       |    |		Call	0x0,0x9
01b5 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01b6 0000 0000  |    |		.XXX[0x2]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; Debug Table
01b8 ; --------------------------------------------------------------------------------------
01b8 0004 0004  |    |		.DEBUG4	0x0004,0x0004,0x960a,0x0000,0x0001,0x0017
01be 000b 021a  |    |		.DBG4T	0x000b,0x021a,0x0000,0x0000
01c2 0032 022f  | 2 /|		.DBG4T	0x0032,0x022f,0x0000,0x0000
01c6 0063 0246  | c F|		.DBG4T	0x0063,0x0246,0x0002,0x0000
01ca 0073 0249  | s I|		.DBG4T	0x0073,0x0249,0x0002,0x0000
01ce 0083 024c  |   L|		.DBG4T	0x0083,0x024c,0x0002,0x0000
01d2 0093 024f  |   O|		.DBG4T	0x0093,0x024f,0x0002,0x0000
01d6 00a3 0252  |   R|		.DBG4T	0x00a3,0x0252,0x0002,0x0000
01da 00b3 0255  |   U|		.DBG4T	0x00b3,0x0255,0x0002,0x0000
01de 00c3 0258  |   X|		.DBG4T	0x00c3,0x0258,0x0002,0x0000
01e2 00cb 025b  |   [|		.DBG4T	0x00cb,0x025b,0x0002,0x0000
01e6 00db 025e  |   ^|		.DBG4T	0x00db,0x025e,0x0002,0x0000
01ea 00eb 0261  |   a|		.DBG4T	0x00eb,0x0261,0x0002,0x0000
01ee 00fb 0264  |   d|		.DBG4T	0x00fb,0x0264,0x0002,0x0000
01f2 010b 0267  |   g|		.DBG4T	0x010b,0x0267,0x0002,0x0000
01f6 011b 026a  |   j|		.DBG4T	0x011b,0x026a,0x0002,0x0000
01fa 012b 026d  | + m|		.DBG4T	0x012b,0x026d,0x0002,0x0000
01fe 013b 0270  | ; p|		.DBG4T	0x013b,0x0270,0x0002,0x0000
0202 014b 0273  | K s|		.DBG4T	0x014b,0x0273,0x0002,0x0000
0206 015b 0276  | [ v|		.DBG4T	0x015b,0x0276,0x0002,0x0000
020a 016b 0279  | k y|		.DBG4T	0x016b,0x0279,0x0002,0x0000
020e 017b 027c  | { ||		.DBG4T	0x017b,0x027c,0x0002,0x0000
0212 018b 027f  |    |		.DBG4T	0x018b,0x027f,0x0002,0x0000
0216 01a3 0284  |    |		.DBG4T	0x01a3,0x0284,0x0002,0x0000
021a ; --------------------------------------------------------------------------------------
021a ; Debug chain
021a ; --------------------------------------------------------------------------------------
021a 0013 0000  |    |		.DBGLEN	0x0013,0x0000
021c 000b 000d  |    |		.DBGLNO	0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b,0x002d,0x002f
022f ; --------------------------------------------------------------------------------------
022f ; Debug chain
022f ; --------------------------------------------------------------------------------------
022f 0015 0000  |    |		.DBGLEN	0x0015,0x0000
0231 0032 0034  | 2 4|		.DBGLNO	0x0032,0x0034,0x0036,0x0038,0x003a,0x003c,0x003e,0x0040,0x0042,0x0044,0x0046,0x0048,0x004a,0x004c,0x004e,0x0050,0x0052,0x0054,0x0056,0x0058,0x005a
0246 ; --------------------------------------------------------------------------------------
0246 ; Debug chain
0246 ; --------------------------------------------------------------------------------------
0246 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0248 0063       | c  |		.DBGLNO	0x0063
0249 ; --------------------------------------------------------------------------------------
0249 ; Debug chain
0249 ; --------------------------------------------------------------------------------------
0249 0000 0001  |    |		.DBGLEN	0x0000,0x0001
024b 0073       | s  |		.DBGLNO	0x0073
024c ; --------------------------------------------------------------------------------------
024c ; Debug chain
024c ; --------------------------------------------------------------------------------------
024c 0000 0001  |    |		.DBGLEN	0x0000,0x0001
024e 0083       |    |		.DBGLNO	0x0083
024f ; --------------------------------------------------------------------------------------
024f ; Debug chain
024f ; --------------------------------------------------------------------------------------
024f 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0251 0093       |    |		.DBGLNO	0x0093
0252 ; --------------------------------------------------------------------------------------
0252 ; Debug chain
0252 ; --------------------------------------------------------------------------------------
0252 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0254 00a3       |    |		.DBGLNO	0x00a3
0255 ; --------------------------------------------------------------------------------------
0255 ; Debug chain
0255 ; --------------------------------------------------------------------------------------
0255 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0257 00b3       |    |		.DBGLNO	0x00b3
0258 ; --------------------------------------------------------------------------------------
0258 ; Debug chain
0258 ; --------------------------------------------------------------------------------------
0258 0000 0001  |    |		.DBGLEN	0x0000,0x0001
025a 00c3       |    |		.DBGLNO	0x00c3
025b ; --------------------------------------------------------------------------------------
025b ; Debug chain
025b ; --------------------------------------------------------------------------------------
025b 0000 0001  |    |		.DBGLEN	0x0000,0x0001
025d 00cb       |    |		.DBGLNO	0x00cb
025e ; --------------------------------------------------------------------------------------
025e ; Debug chain
025e ; --------------------------------------------------------------------------------------
025e 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0260 00db       |    |		.DBGLNO	0x00db
0261 ; --------------------------------------------------------------------------------------
0261 ; Debug chain
0261 ; --------------------------------------------------------------------------------------
0261 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0263 00eb       |    |		.DBGLNO	0x00eb
0264 ; --------------------------------------------------------------------------------------
0264 ; Debug chain
0264 ; --------------------------------------------------------------------------------------
0264 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0266 00fb       |    |		.DBGLNO	0x00fb
0267 ; --------------------------------------------------------------------------------------
0267 ; Debug chain
0267 ; --------------------------------------------------------------------------------------
0267 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0269 010b       |    |		.DBGLNO	0x010b
026a ; --------------------------------------------------------------------------------------
026a ; Debug chain
026a ; --------------------------------------------------------------------------------------
026a 0000 0001  |    |		.DBGLEN	0x0000,0x0001
026c 011b       |    |		.DBGLNO	0x011b
026d ; --------------------------------------------------------------------------------------
026d ; Debug chain
026d ; --------------------------------------------------------------------------------------
026d 0000 0001  |    |		.DBGLEN	0x0000,0x0001
026f 012b       | +  |		.DBGLNO	0x012b
0270 ; --------------------------------------------------------------------------------------
0270 ; Debug chain
0270 ; --------------------------------------------------------------------------------------
0270 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0272 013b       | ;  |		.DBGLNO	0x013b
0273 ; --------------------------------------------------------------------------------------
0273 ; Debug chain
0273 ; --------------------------------------------------------------------------------------
0273 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0275 014b       | K  |		.DBGLNO	0x014b
0276 ; --------------------------------------------------------------------------------------
0276 ; Debug chain
0276 ; --------------------------------------------------------------------------------------
0276 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0278 015b       | [  |		.DBGLNO	0x015b
0279 ; --------------------------------------------------------------------------------------
0279 ; Debug chain
0279 ; --------------------------------------------------------------------------------------
0279 0000 0001  |    |		.DBGLEN	0x0000,0x0001
027b 016b       | k  |		.DBGLNO	0x016b
027c ; --------------------------------------------------------------------------------------
027c ; Debug chain
027c ; --------------------------------------------------------------------------------------
027c 0000 0001  |    |		.DBGLEN	0x0000,0x0001
027e 017b       | {  |		.DBGLNO	0x017b
027f ; --------------------------------------------------------------------------------------
027f ; Debug chain
027f ; --------------------------------------------------------------------------------------
027f 0001 0002  |    |		.DBGLEN	0x0001,0x0002
0281 018b 018f  |    |		.DBGLNO	0x018b,0x018f,0x0193
0284 ; --------------------------------------------------------------------------------------
0284 ; Debug chain
0284 ; --------------------------------------------------------------------------------------
0284 0001 0002  |    |		.DBGLEN	0x0001,0x0002
0286 01a3 01a7  |    |		.DBGLNO	0x01a3,0x01a7,0x01ae
0289 0000 0000  |    |		.BLANK	0000[0x177]