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

⟦102e6cbfe⟧

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

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 01c0       |    |		.CONST	0x01c0								; 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 005e       | ^  |		.CONST	0x005e								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0014       |    |		.CONST	0x0014								; Number of locals
000b			INIT_0008:
000b 00c4       |    |		Action	Make_Default
000c 029a 0063  |   c|		Declare_Subprogram	INIT_0060,For_Outer_Call,Visible,Unelaborated
000e 029a 008b  |    |		Declare_Subprogram	INIT_0088,For_Outer_Call,Visible,Unelaborated
0010 029a 0173  |   s|		Declare_Subprogram	INIT_0170,For_Outer_Call,Visible,Unelaborated
0012 029a 0183  |    |		Declare_Subprogram	INIT_0180,For_Outer_Call,Visible,Unelaborated
0014 029a 018b  |    |		Declare_Subprogram	INIT_0188,For_Outer_Call,Visible,Unelaborated
0016 029a 0193  |    |		Declare_Subprogram	INIT_0190,For_Outer_Call,Visible,Unelaborated
0018 4801       |H   |		Short_Literal	0x1
0019 4804       |H   |		Short_Literal	0x4
001a e002       |    |		Load	0x0,0x2
001b 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
001c 035c       | \  |		Declare_Type	Array,Constrained,Visible
001d 4801       |H   |		Short_Literal	0x1
001e 4802       |H   |		Short_Literal	0x2
001f e002       |    |		Load	0x0,0x2
0020 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0021 035c       | \  |		Declare_Type	Array,Constrained,Visible
0022 02a0       |    |		Declare_Subprogram	Null_Subprogram
0023 4802       |H   |		Short_Literal	0x2
0024 032e       | .  |		Declare_Type	Record,Defined,Visible
0025 00d8       |    |		Load_Top	At_Offset_0
0026 0322       | "  |		Declare_Variable	Record
0027 00d9       |    |		Load_Top	At_Offset_1
0028 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
0029 0337       | 7  |		Declare_Variable	Array
002a 4800       |H   |		Short_Literal	0x0
002b 4801       |H   |		Short_Literal	0x1
002c 00da       |    |		Load_Top	At_Offset_2
002d 01d6       |    |		Execute	Vector,Field_Write
002e 4800       |H   |		Short_Literal	0x0
002f 4802       |H   |		Short_Literal	0x2
0030 00da       |    |		Load_Top	At_Offset_2
0031 01d6       |    |		Execute	Vector,Field_Write
0032 4800       |H   |		Short_Literal	0x0
0033 4803       |H   |		Short_Literal	0x3
0034 00da       |    |		Load_Top	At_Offset_2
0035 01d6       |    |		Execute	Vector,Field_Write
0036 4800       |H   |		Short_Literal	0x0
0037 4804       |H   |		Short_Literal	0x4
0038 00da       |    |		Load_Top	At_Offset_2
0039 01d6       |    |		Execute	Vector,Field_Write
003a 00da       |    |		Load_Top	At_Offset_2
003b 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
003c 0119       |    |		Execute	Any,Check_In_Formal_Type
003d 00d9       |    |		Load_Top	At_Offset_1
003e 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
003f 00d9       |    |		Load_Top	At_Offset_1
0040 3001       |0   |		Execute	Record,Field_Type,Field_Number 0x1
0041 0337       | 7  |		Declare_Variable	Array
0042 4800       |H   |		Short_Literal	0x0
0043 4801       |H   |		Short_Literal	0x1
0044 00da       |    |		Load_Top	At_Offset_2
0045 01d6       |    |		Execute	Vector,Field_Write
0046 4800       |H   |		Short_Literal	0x0
0047 4802       |H   |		Short_Literal	0x2
0048 00da       |    |		Load_Top	At_Offset_2
0049 01d6       |    |		Execute	Vector,Field_Write
004a 00da       |    |		Load_Top	At_Offset_2
004b 3001       |0   |		Execute	Record,Field_Type,Field_Number 0x1
004c 0119       |    |		Execute	Any,Check_In_Formal_Type
004d 00d9       |    |		Load_Top	At_Offset_1
004e 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
004f 0129       | )  |		Execute	Any,Make_Visible
0050 c20d       |    |		Store	0x1,0xd
0051 00bf       |    |		Action	Accept_Activation
0052 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0053 00c7       |    |		Action	Elaborate_Subprogram
0054 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0055 00c7       |    |		Action	Elaborate_Subprogram
0056 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0057 00c7       |    |		Action	Elaborate_Subprogram
0058 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0059 00c7       |    |		Action	Elaborate_Subprogram
005a 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
005b 00c7       |    |		Action	Elaborate_Subprogram
005c 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
005d 00c7       |    |		Action	Elaborate_Subprogram
005e			BODY_0008:
005e 00bc       |    |		Action	Signal_Activated
005f 00bb       |    |		Action	Signal_Completion
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 4825       |H%  |		Short_Literal	0x25
0064 4825       |H%  |		Short_Literal	0x25
0065 4825       |H%  |		Short_Literal	0x25
0066 e5ff       |    |		Load	0x2,-0x1
0067 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0068 e003       |    |		Load	0x0,0x3
0069 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
006a 01ca       |    |		Execute	Vector,Prepend
006b 01cb       |    |		Execute	Vector,Append
006c 4801       |H   |		Short_Literal	0x1
006d e5ff       |    |		Load	0x2,-0x1
006e 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
006f 01d7       |    |		Execute	Vector,Field_Read
0070 0908       |    |		Execute_Immediate	Binary_Scale,0x8
0071 4802       |H   |		Short_Literal	0x2
0072 e5ff       |    |		Load	0x2,-0x1
0073 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0074 01d7       |    |		Execute	Vector,Field_Read
0075 0273       | s  |		Execute	Discrete,Plus
0076 00d8       |    |		Load_Top	At_Offset_0
0077 00e2       |    |		Load_Encached	Integer_Cache
0078 0260       | `  |		Execute	Discrete,In_Type
0079 7001       |p   |		Jump_Nonzero	0x7b
007a 0801       |    |		Execute_Immediate	Raise,0x1
007b 00e0       |    |		Load_Encached	Standard_Cache
007c 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
007d 01cc       |    |		Execute	Vector,Catenate
007e 01cb       |    |		Execute	Vector,Append
007f 8004       |    |		Call	0x0,0x4
0080 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0081 0000 0000  |    |		.BLANK	0000[0x7]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 00a0       |    |		.CONST	0x00a0								; Address of begin
0089 0004       |    |		.CONST	0x0004								; Address of exception handler
008a 000a       |    |		.CONST	0x000a								; Number of locals
008b			INIT_0088:
008b 4801       |H   |		Short_Literal	0x1
008c 00db       |    |		Load_Top	At_Offset_3
008d 8005       |    |		Call	0x0,0x5
008e 00e9       |    |		Load_Encached	String_Cache
008f 035b       | [  |		Declare_Type	Array,Constrained
0090 0337       | 7  |		Declare_Variable	Array
0091 00db       |    |		Load_Top	At_Offset_3
0092 8006       |    |		Call	0x0,0x6
0093 00d9       |    |		Load_Top	At_Offset_1
0094 01d4       |    |		Execute	Vector,Structure_Write
0095 00e4       |    |		Load_Encached	Positive_Cache
0096 0602       |    |		Execute_Immediate	Set_Value_Unchecked,0x2
0097 00e4       |    |		Load_Encached	Positive_Cache
0098 0602       |    |		Execute_Immediate	Set_Value_Unchecked,0x2
0099 00e4       |    |		Load_Encached	Positive_Cache
009a e007       |    |		Load	0x0,0x7
009b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
009c 03e9       |    |		Declare_Variable	Discrete,Duplicate
009d 03e9       |    |		Declare_Variable	Discrete,Duplicate
009e 03e9       |    |		Declare_Variable	Discrete,Duplicate
009f 00e2       |    |		Load_Encached	Integer_Cache
00a0			BODY_0088:
00a0 00cf       |    |		Action	Mark_Auxiliary
00a1 e403       |    |		Load	0x2,0x3
00a2 e402       |    |		Load	0x2,0x2
00a3 01d7       |    |		Execute	Vector,Field_Read
00a4 0f2e       | .  |		Execute_Immediate	Equal,0x2e
00a5 7005       |p   |		Jump_Nonzero	0xab
00a6 e403       |    |		Load	0x2,0x3
00a7 0a01       |    |		Execute_Immediate	Plus,0x1
00a8 c403       |    |		Store	0x2,0x3
00a9 00c9       |    |		Action	Pop_Auxiliary_Loop
00aa 7ff6       |    |		Jump	0xa1
00ab 00ce       |    |		Action	Pop_Auxiliary
00ac e404       |    |		Load	0x2,0x4
00ad e403       |    |		Load	0x2,0x3
00ae 0aff       |    |		Execute_Immediate	Plus,-0x1
00af e402       |    |		Load	0x2,0x2
00b0 01cf       |    |		Execute	Vector,Slice_Read
00b1 00e2       |    |		Load_Encached	Integer_Cache
00b2 00e0       |    |		Load_Encached	Standard_Cache
00b3 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
00b4 00d8       |    |		Load_Top	At_Offset_0
00b5 e008       |    |		Load	0x0,0x8
00b6 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
00b7 0260       | `  |		Execute	Discrete,In_Type
00b8 7001       |p   |		Jump_Nonzero	0xba
00b9 0801       |    |		Execute_Immediate	Raise,0x1
00ba a406       |    |		Store_Unchecked	0x2,0x6
00bb e403       |    |		Load	0x2,0x3
00bc 0a01       |    |		Execute_Immediate	Plus,0x1
00bd c403       |    |		Store	0x2,0x3
00be e403       |    |		Load	0x2,0x3
00bf a404       |    |		Store_Unchecked	0x2,0x4
00c0 00cf       |    |		Action	Mark_Auxiliary
00c1 e403       |    |		Load	0x2,0x3
00c2 e402       |    |		Load	0x2,0x2
00c3 01d7       |    |		Execute	Vector,Field_Read
00c4 0f2e       | .  |		Execute_Immediate	Equal,0x2e
00c5 7005       |p   |		Jump_Nonzero	0xcb
00c6 e403       |    |		Load	0x2,0x3
00c7 0a01       |    |		Execute_Immediate	Plus,0x1
00c8 c403       |    |		Store	0x2,0x3
00c9 00c9       |    |		Action	Pop_Auxiliary_Loop
00ca 7ff6       |    |		Jump	0xc1
00cb 00ce       |    |		Action	Pop_Auxiliary
00cc e404       |    |		Load	0x2,0x4
00cd e403       |    |		Load	0x2,0x3
00ce 0aff       |    |		Execute_Immediate	Plus,-0x1
00cf e402       |    |		Load	0x2,0x2
00d0 01cf       |    |		Execute	Vector,Slice_Read
00d1 00e2       |    |		Load_Encached	Integer_Cache
00d2 00e0       |    |		Load_Encached	Standard_Cache
00d3 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
00d4 00d8       |    |		Load_Top	At_Offset_0
00d5 e008       |    |		Load	0x0,0x8
00d6 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
00d7 0260       | `  |		Execute	Discrete,In_Type
00d8 7001       |p   |		Jump_Nonzero	0xda
00d9 0801       |    |		Execute_Immediate	Raise,0x1
00da a407       |    |		Store_Unchecked	0x2,0x7
00db e403       |    |		Load	0x2,0x3
00dc 0a01       |    |		Execute_Immediate	Plus,0x1
00dd c403       |    |		Store	0x2,0x3
00de e403       |    |		Load	0x2,0x3
00df a404       |    |		Store_Unchecked	0x2,0x4
00e0 00cf       |    |		Action	Mark_Auxiliary
00e1 e403       |    |		Load	0x2,0x3
00e2 e402       |    |		Load	0x2,0x2
00e3 01d7       |    |		Execute	Vector,Field_Read
00e4 0f2e       | .  |		Execute_Immediate	Equal,0x2e
00e5 7005       |p   |		Jump_Nonzero	0xeb
00e6 e403       |    |		Load	0x2,0x3
00e7 0a01       |    |		Execute_Immediate	Plus,0x1
00e8 c403       |    |		Store	0x2,0x3
00e9 00c9       |    |		Action	Pop_Auxiliary_Loop
00ea 7ff6       |    |		Jump	0xe1
00eb 00ce       |    |		Action	Pop_Auxiliary
00ec e404       |    |		Load	0x2,0x4
00ed e403       |    |		Load	0x2,0x3
00ee 0aff       |    |		Execute_Immediate	Plus,-0x1
00ef e402       |    |		Load	0x2,0x2
00f0 01cf       |    |		Execute	Vector,Slice_Read
00f1 00e2       |    |		Load_Encached	Integer_Cache
00f2 00e0       |    |		Load_Encached	Standard_Cache
00f3 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
00f4 00d8       |    |		Load_Top	At_Offset_0
00f5 e008       |    |		Load	0x0,0x8
00f6 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
00f7 0260       | `  |		Execute	Discrete,In_Type
00f8 7001       |p   |		Jump_Nonzero	0xfa
00f9 0801       |    |		Execute_Immediate	Raise,0x1
00fa 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
00fb e403       |    |		Load	0x2,0x3
00fc 0a01       |    |		Execute_Immediate	Plus,0x1
00fd c403       |    |		Store	0x2,0x3
00fe e403       |    |		Load	0x2,0x3
00ff a404       |    |		Store_Unchecked	0x2,0x4
0100 00cf       |    |		Action	Mark_Auxiliary
0101 e403       |    |		Load	0x2,0x3
0102 e402       |    |		Load	0x2,0x2
0103 01d7       |    |		Execute	Vector,Field_Read
0104 0f25       | %  |		Execute_Immediate	Equal,0x25
0105 7005       |p   |		Jump_Nonzero	0x10b
0106 e403       |    |		Load	0x2,0x3
0107 0a01       |    |		Execute_Immediate	Plus,0x1
0108 c403       |    |		Store	0x2,0x3
0109 00c9       |    |		Action	Pop_Auxiliary_Loop
010a 7ff6       |    |		Jump	0x101
010b 00ce       |    |		Action	Pop_Auxiliary
010c e404       |    |		Load	0x2,0x4
010d e403       |    |		Load	0x2,0x3
010e 0aff       |    |		Execute_Immediate	Plus,-0x1
010f e402       |    |		Load	0x2,0x2
0110 01cf       |    |		Execute	Vector,Slice_Read
0111 00e2       |    |		Load_Encached	Integer_Cache
0112 00e0       |    |		Load_Encached	Standard_Cache
0113 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0114 00d8       |    |		Load_Top	At_Offset_0
0115 e008       |    |		Load	0x0,0x8
0116 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0117 0260       | `  |		Execute	Discrete,In_Type
0118 7001       |p   |		Jump_Nonzero	0x11a
0119 0801       |    |		Execute_Immediate	Raise,0x1
011a 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
011b e403       |    |		Load	0x2,0x3
011c 0a01       |    |		Execute_Immediate	Plus,0x1
011d c405       |    |		Store	0x2,0x5
011e e403       |    |		Load	0x2,0x3
011f 0a01       |    |		Execute_Immediate	Plus,0x1
0120 c404       |    |		Store	0x2,0x4
0121 00cf       |    |		Action	Mark_Auxiliary
0122 e405       |    |		Load	0x2,0x5
0123 e402       |    |		Load	0x2,0x2
0124 01d7       |    |		Execute	Vector,Field_Read
0125 0f25       | %  |		Execute_Immediate	Equal,0x25
0126 7005       |p   |		Jump_Nonzero	0x12c
0127 e405       |    |		Load	0x2,0x5
0128 0a01       |    |		Execute_Immediate	Plus,0x1
0129 c405       |    |		Store	0x2,0x5
012a 00c9       |    |		Action	Pop_Auxiliary_Loop
012b 7ff6       |    |		Jump	0x122
012c 00ce       |    |		Action	Pop_Auxiliary
012d e404       |    |		Load	0x2,0x4
012e e405       |    |		Load	0x2,0x5
012f 0aff       |    |		Execute_Immediate	Plus,-0x1
0130 e402       |    |		Load	0x2,0x2
0131 01cf       |    |		Execute	Vector,Slice_Read
0132 00e2       |    |		Load_Encached	Integer_Cache
0133 00e0       |    |		Load_Encached	Standard_Cache
0134 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0135 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0136 e214       |    |		Load	0x1,0x14
0137 0322       | "  |		Declare_Variable	Record
0138 e214       |    |		Load	0x1,0x14
0139 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
013a 0337       | 7  |		Declare_Variable	Array
013b e406       |    |		Load	0x2,0x6
013c 4801       |H   |		Short_Literal	0x1
013d 00da       |    |		Load_Top	At_Offset_2
013e 01d6       |    |		Execute	Vector,Field_Write
013f e407       |    |		Load	0x2,0x7
0140 4802       |H   |		Short_Literal	0x2
0141 00da       |    |		Load_Top	At_Offset_2
0142 01d6       |    |		Execute	Vector,Field_Write
0143 e408       |    |		Load	0x2,0x8
0144 4803       |H   |		Short_Literal	0x3
0145 00da       |    |		Load_Top	At_Offset_2
0146 01d6       |    |		Execute	Vector,Field_Write
0147 00db       |    |		Load_Top	At_Offset_3
0148 4804       |H   |		Short_Literal	0x4
0149 00da       |    |		Load_Top	At_Offset_2
014a 01d6       |    |		Execute	Vector,Field_Write
014b e214       |    |		Load	0x1,0x14
014c 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
014d 0119       |    |		Execute	Any,Check_In_Formal_Type
014e 00d9       |    |		Load_Top	At_Offset_1
014f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0150 e214       |    |		Load	0x1,0x14
0151 3001       |0   |		Execute	Record,Field_Type,Field_Number 0x1
0152 0337       | 7  |		Declare_Variable	Array
0153 00da       |    |		Load_Top	At_Offset_2
0154 09f8       |    |		Execute_Immediate	Binary_Scale,-0x8
0155 00d8       |    |		Load_Top	At_Offset_0
0156 e008       |    |		Load	0x0,0x8
0157 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0158 0260       | `  |		Execute	Discrete,In_Type
0159 7001       |p   |		Jump_Nonzero	0x15b
015a 0801       |    |		Execute_Immediate	Raise,0x1
015b 4801       |H   |		Short_Literal	0x1
015c 00da       |    |		Load_Top	At_Offset_2
015d 01d6       |    |		Execute	Vector,Field_Write
015e 00da       |    |		Load_Top	At_Offset_2
015f 48ff       |H   |		Short_Literal	0xff
0160 0279       | y  |		Execute	Discrete,And
0161 00d8       |    |		Load_Top	At_Offset_0
0162 e008       |    |		Load	0x0,0x8
0163 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0164 0260       | `  |		Execute	Discrete,In_Type
0165 7001       |p   |		Jump_Nonzero	0x167
0166 0801       |    |		Execute_Immediate	Raise,0x1
0167 4802       |H   |		Short_Literal	0x2
0168 00da       |    |		Load_Top	At_Offset_2
0169 01d6       |    |		Execute	Vector,Field_Write
016a e214       |    |		Load	0x1,0x14
016b 3001       |0   |		Execute	Record,Field_Type,Field_Number 0x1
016c 0119       |    |		Execute	Any,Check_In_Formal_Type
016d 00d9       |    |		Load_Top	At_Offset_1
016e 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
016f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
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 00da       |    |		Load_Top	At_Offset_2
0174 e5fd       |    |		Load	0x2,-0x3
0175 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0176 00db       |    |		Load_Top	At_Offset_3
0177 e5fd       |    |		Load	0x2,-0x3
0178 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0179 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
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 00da       |    |		Load_Top	At_Offset_2
0184 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0185 0335       | 5  |		Declare_Variable	Array,Duplicate
0186 00cd       |    |		Action	Spare6_Action
0187 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b       |    |		.CONST	0x018b								; Address of begin
0189 0004       |    |		.CONST	0x0004								; Address of exception handler
018a 0001       |    |		.CONST	0x0001								; Number of locals
018b			BODY_0188:
018b			INIT_0188:
018b 00da       |    |		Load_Top	At_Offset_2
018c 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
018d 0335       | 5  |		Declare_Variable	Array,Duplicate
018e 00cd       |    |		Action	Spare6_Action
018f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193       |    |		.CONST	0x0193								; Address of begin
0191 0004       |    |		.CONST	0x0004								; Address of exception handler
0192 0001       |    |		.CONST	0x0001								; Number of locals
0193			BODY_0190:
0193			INIT_0190:
0193 e214       |    |		Load	0x1,0x14
0194 0322       | "  |		Declare_Variable	Record
0195 e214       |    |		Load	0x1,0x14
0196 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
0197 0337       | 7  |		Declare_Variable	Array
0198 48c1       |H   |		Short_Literal	0xc1
0199 4801       |H   |		Short_Literal	0x1
019a 00da       |    |		Load_Top	At_Offset_2
019b 01d6       |    |		Execute	Vector,Field_Write
019c 4836       |H6  |		Short_Literal	0x36
019d 4802       |H   |		Short_Literal	0x2
019e 00da       |    |		Load_Top	At_Offset_2
019f 01d6       |    |		Execute	Vector,Field_Write
01a0 4892       |H   |		Short_Literal	0x92
01a1 4803       |H   |		Short_Literal	0x3
01a2 00da       |    |		Load_Top	At_Offset_2
01a3 01d6       |    |		Execute	Vector,Field_Write
01a4 4884       |H   |		Short_Literal	0x84
01a5 4804       |H   |		Short_Literal	0x4
01a6 00da       |    |		Load_Top	At_Offset_2
01a7 01d6       |    |		Execute	Vector,Field_Write
01a8 e214       |    |		Load	0x1,0x14
01a9 3000       |0   |		Execute	Record,Field_Type,Field_Number 0x0
01aa 0119       |    |		Execute	Any,Check_In_Formal_Type
01ab 00d9       |    |		Load_Top	At_Offset_1
01ac 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01ad e214       |    |		Load	0x1,0x14
01ae 3001       |0   |		Execute	Record,Field_Type,Field_Number 0x1
01af 0337       | 7  |		Declare_Variable	Array
01b0 480a       |H   |		Short_Literal	0xa
01b1 4801       |H   |		Short_Literal	0x1
01b2 00da       |    |		Load_Top	At_Offset_2
01b3 01d6       |    |		Execute	Vector,Field_Write
01b4 4829       |H)  |		Short_Literal	0x29
01b5 4802       |H   |		Short_Literal	0x2
01b6 00da       |    |		Load_Top	At_Offset_2
01b7 01d6       |    |		Execute	Vector,Field_Write
01b8 e214       |    |		Load	0x1,0x14
01b9 3001       |0   |		Execute	Record,Field_Type,Field_Number 0x1
01ba 0119       |    |		Execute	Any,Check_In_Formal_Type
01bb 00d9       |    |		Load_Top	At_Offset_1
01bc 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01bd 00ca       |    |		Action	Exit_Nullary_Function
01be 0000 0000  |    |		.XXX[0x2]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; Debug Table
01c0 ; --------------------------------------------------------------------------------------
01c0 0004 000a  |    |		.DEBUG4	0x0004,0x000a,0x8c50,0x0000,0x0001,0x0008
01c6 000b 01e6  |    |		.DBG4T	0x000b,0x01e6,0x8000,0x8000
01ca 0052 01fa  | R  |		.DBG4T	0x0052,0x01fa,0x8000,0x8000
01ce 0063 0208  | c  |		.DBG4T	0x0063,0x0208,0x0002,0x0000
01d2 008b 020b  |    |		.DBG4T	0x008b,0x020b,0x0002,0x4000
01d6 0173 0243  | s C|		.DBG4T	0x0173,0x0243,0x0001,0x0000
01da 0183 0247  |   G|		.DBG4T	0x0183,0x0247,0x0002,0x0000
01de 018b 024a  |   J|		.DBG4T	0x018b,0x024a,0x0002,0x0000
01e2 0193 024d  |   M|		.DBG4T	0x0193,0x024d,0x0002,0x0000
01e6 ; --------------------------------------------------------------------------------------
01e6 ; Debug chain
01e6 ; --------------------------------------------------------------------------------------
01e6 0009 0000  |    |		.DBGLEN	0x0009,0x0000
01e8 000b 000c  |    |		.DBGLNO	0x000b,0x000c,0x000e,0x0010,0x0012,0x0014,0x0016,0x0018,0x0025
01f1 0002 0003  |    |		.XXX[0x9]
01f3 0004 0005  |    |
01f5 0006 0007  |    |
01f7 0008 0009  |    |
01f9 000a       |    |
01fa ; --------------------------------------------------------------------------------------
01fa ; Debug chain
01fa ; --------------------------------------------------------------------------------------
01fa 0006 0000  |    |		.DBGLEN	0x0006,0x0000
01fc 0052 0054  | R T|		.DBGLNO	0x0052,0x0054,0x0056,0x0058,0x005a,0x005c
0202 0002 0003  |    |		.XXX[0x6]
0204 0004 0005  |    |
0206 0006 0007  |    |
0208 ; --------------------------------------------------------------------------------------
0208 ; Debug chain
0208 ; --------------------------------------------------------------------------------------
0208 0000 0001  |    |		.DBGLEN	0x0000,0x0001
020a 0063       | c  |		.DBGLNO	0x0063
020b ; --------------------------------------------------------------------------------------
020b ; Debug chain
020b ; --------------------------------------------------------------------------------------
020b 0006 0018  |    |		.DBGLEN	0x0006,0x0018
020d 008b 0095  |    |		.DBGLNO	0x008b,0x0095,0x0097,0x0099,0x009a,0x009f,0x00a1,0x00a6,0x00ac,0x00bb,0x00be,0x00c1,0x00c6,0x00cc,0x00db,0x00de,0x00e1,0x00e6,0x00ec,0x00fb,0x00fe,0x0101,0x0106,0x010c,0x011b,0x011e,0x0122,0x0127,0x012d,0x0136
022b 0002 0003  |    |		.XXX[0x18]
022d 0004 0005  |    |
022f 0006 0008  |    |
0231 0009 000a  |    |
0233 000b 000c  |    |
0235 000e 000f  |    |
0237 0010 0011  |    |
0239 0012 0014  |    |
023b 0015 0016  |    |
023d 0017 0018  |    |
023f 001a 001b  |    |
0241 001c 001d  |    |
0243 ; --------------------------------------------------------------------------------------
0243 ; Debug chain
0243 ; --------------------------------------------------------------------------------------
0243 0000 0002  |    |		.DBGLEN	0x0000,0x0002
0245 0173 0176  | s v|		.DBGLNO	0x0173,0x0176
0247 ; --------------------------------------------------------------------------------------
0247 ; Debug chain
0247 ; --------------------------------------------------------------------------------------
0247 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0249 0183       |    |		.DBGLNO	0x0183
024a ; --------------------------------------------------------------------------------------
024a ; Debug chain
024a ; --------------------------------------------------------------------------------------
024a 0000 0001  |    |		.DBGLEN	0x0000,0x0001
024c 018b       |    |		.DBGLNO	0x018b
024d ; --------------------------------------------------------------------------------------
024d ; Debug chain
024d ; --------------------------------------------------------------------------------------
024d 0000 0001  |    |		.DBGLEN	0x0000,0x0001
024f 0193       |    |		.DBGLNO	0x0193
0250 0000 0000  |    |		.BLANK	0000[0x1b0]