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

⟦c6f94d9a4⟧

    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 01e0       |    |		.CONST	0x01e0								; 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 0030       | 0  |		.CONST	0x0030								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0014       |    |		.CONST	0x0014								; Number of locals
000b			INIT_0008:
000b 029a 003b  |   ;|		Declare_Subprogram	INIT_0038,For_Outer_Call,Visible,Unelaborated
000d 029a 0053  |   S|		Declare_Subprogram	INIT_0050,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 0103  |    |		Declare_Subprogram	INIT_0100,For_Outer_Call,Visible,Unelaborated
0017 029a 0193  |    |		Declare_Subprogram	INIT_0190,For_Outer_Call,Visible,Unelaborated
0019 e002       |    |		Load	0x0,0x2
001a 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
001b e003       |    |		Load	0x0,0x3
001c 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
001d e004       |    |		Load	0x0,0x4
001e 02a0       |    |		Declare_Subprogram	Null_Subprogram
001f 4803       |H   |		Short_Literal	0x3
0020 032e       | .  |		Declare_Type	Record,Defined,Visible
0021 00bf       |    |		Action	Accept_Activation
0022 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0023 00c7       |    |		Action	Elaborate_Subprogram
0024 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0025 00c7       |    |		Action	Elaborate_Subprogram
0026 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0027 00c7       |    |		Action	Elaborate_Subprogram
0028 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0029 00c7       |    |		Action	Elaborate_Subprogram
002a 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
002b 00c7       |    |		Action	Elaborate_Subprogram
002c 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
002d 00c7       |    |		Action	Elaborate_Subprogram
002e 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
002f 00c7       |    |		Action	Elaborate_Subprogram
0030			BODY_0008:
0030 00bc       |    |		Action	Signal_Activated
0031 00bb       |    |		Action	Signal_Completion
0032 0000 0000  |    |		.BLANK	0000[0x6]
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 003b       | ;  |		.CONST	0x003b								; Address of begin
0039 0004       |    |		.CONST	0x0004								; Address of exception handler
003a 0001       |    |		.CONST	0x0001								; Number of locals
003b			BODY_0038:
003b			INIT_0038:
003b e002       |    |		Load	0x0,0x2
003c 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
003d e002       |    |		Load	0x0,0x2
003e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
003f 00db       |    |		Load_Top	At_Offset_3
0040 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0041 e003       |    |		Load	0x0,0x3
0042 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0043 e003       |    |		Load	0x0,0x3
0044 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0045 00db       |    |		Load_Top	At_Offset_3
0046 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0047 e004       |    |		Load	0x0,0x4
0048 8005       |    |		Call	0x0,0x5
0049 00db       |    |		Load_Top	At_Offset_3
004a 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
004b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
004c 0000 0000  |    |		.BLANK	0000[0x4]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 005b       | [  |		.CONST	0x005b								; Address of begin
0051 0004       |    |		.CONST	0x0004								; Address of exception handler
0052 0004       |    |		.CONST	0x0004								; Number of locals
0053			INIT_0050:
0053 e006       |    |		Load	0x0,0x6
0054 0322       | "  |		Declare_Variable	Record
0055 00d8       |    |		Load_Top	At_Offset_0
0056 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0057 e002       |    |		Load	0x0,0x2
0058 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0059 0092 01db  |    |		Action	Push_String_Extended,0x1db					; " "
005b			BODY_0050:
005b e007       |    |		Load	0x0,0x7
005c e5fd       |    |		Load	0x2,-0x3
005d 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
005e e5ff       |    |		Load	0x2,-0x1
005f 8008       |    |		Call	0x0,0x8
0060 e5fd       |    |		Load	0x2,-0x3
0061 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0062 c5fc       |    |		Store	0x2,-0x4
0063 00da       |    |		Load_Top	At_Offset_2
0064 8009       |    |		Call	0x0,0x9
0065 00d1       |    |		Pop_Control	Pop_Count_1
0066 00da       |    |		Load_Top	At_Offset_2
0067 00d9       |    |		Load_Top	At_Offset_1
0068 800a       |    |		Call	0x0,0xa
0069 800b       |    |		Call	0x0,0xb
006a e5fe       |    |		Load	0x2,-0x2
006b 800c       |    |		Call	0x0,0xc
006c e5fc       |    |		Load	0x2,-0x4
006d 800d       |    |		Call	0x0,0xd
006e 00d1       |    |		Pop_Control	Pop_Count_1
006f 00da       |    |		Load_Top	At_Offset_2
0070 e5fd       |    |		Load	0x2,-0x3
0071 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0072 e003       |    |		Load	0x0,0x3
0073 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0074 7007       |p   |		Jump_Nonzero	0x7c
0075 e5fd       |    |		Load	0x2,-0x3
0076 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0077 00db       |    |		Load_Top	At_Offset_3
0078 e003       |    |		Load	0x0,0x3
0079 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
007a e5fd       |    |		Load	0x2,-0x3
007b 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
007c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
007d 0000 0000  |    |		.XXX[0x3]
007f 0000       |    |
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 e5fd       |    |		Load	0x2,-0x3
0084 e5fe       |    |		Load	0x2,-0x2
0085 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0086 e5ff       |    |		Load	0x2,-0x1
0087 800e       |    |		Call	0x0,0xe
0088 e5fe       |    |		Load	0x2,-0x2
0089 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
008a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
008b 0000 0000  |    |		.BLANK	0000[0x5]
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 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0095 00db       |    |		Load_Top	At_Offset_3
0096 800f       |    |		Call	0x0,0xf
0097 e5fe       |    |		Load	0x2,-0x2
0098 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0099 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
009a 0000 0000  |    |		.BLANK	0000[0x6]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a9       |    |		.CONST	0x00a9								; Address of begin
00a1 0004       |    |		.CONST	0x0004								; Address of exception handler
00a2 0003       |    |		.CONST	0x0003								; Number of locals
00a3			INIT_00a0:
00a3 e010       |    |		Load	0x0,0x10
00a4 0322       | "  |		Declare_Variable	Record
00a5 00d8       |    |		Load_Top	At_Offset_0
00a6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00a7 e002       |    |		Load	0x0,0x2
00a8 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
00a9			BODY_00a0:
00a9 e002       |    |		Load	0x0,0x2
00aa 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
00ab e5fc       |    |		Load	0x2,-0x4
00ac 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00ad e002       |    |		Load	0x0,0x2
00ae 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
00af 0039       | 9  |		Store_Top	Access,At_Offset_1
00b0 00cf       |    |		Action	Mark_Auxiliary
00b1 00d9       |    |		Load_Top	At_Offset_1
00b2 e002       |    |		Load	0x0,0x2
00b3 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00b4 7014       |p   |		Jump_Nonzero	0xc9
00b5 4801       |H   |		Short_Literal	0x1
00b6 e5fe       |    |		Load	0x2,-0x2
00b7 800b       |    |		Call	0x0,0xb
00b8 8011       |    |		Call	0x0,0x11
00b9 8012       |    |		Call	0x0,0x12
00ba 00db       |    |		Load_Top	At_Offset_3
00bb e002       |    |		Load	0x0,0x2
00bc 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00bd 8013       |    |		Call	0x0,0x13
00be 8011       |    |		Call	0x0,0x11
00bf 8012       |    |		Call	0x0,0x12
00c0 e014       |    |		Load	0x0,0x14
00c1 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
00c2 7006       |p   |		Jump_Nonzero	0xc9
00c3 00d9       |    |		Load_Top	At_Offset_1
00c4 e002       |    |		Load	0x0,0x2
00c5 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
00c6 003a       | :  |		Store_Top	Access,At_Offset_2
00c7 00c9       |    |		Action	Pop_Auxiliary_Loop
00c8 7fe8       |    |		Jump	0xb1
00c9 00ce       |    |		Action	Pop_Auxiliary
00ca 00d9       |    |		Load_Top	At_Offset_1
00cb 8015       |    |		Call	0x0,0x15
00cc 00d1       |    |		Pop_Control	Pop_Count_1
00cd 00d8       |    |		Load_Top	At_Offset_0
00ce e002       |    |		Load	0x0,0x2
00cf 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00d0 701a       |p   |		Jump_Nonzero	0xeb
00d1 00d8       |    |		Load_Top	At_Offset_0
00d2 e002       |    |		Load	0x0,0x2
00d3 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00d4 00da       |    |		Load_Top	At_Offset_2
00d5 017d       | }  |		Execute	Record,Structure_Write
00d6 00d9       |    |		Load_Top	At_Offset_1
00d7 e5ff       |    |		Load	0x2,-0x1
00d8 8016       |    |		Call	0x0,0x16
00d9 00d1       |    |		Pop_Control	Pop_Count_1
00da e5fc       |    |		Load	0x2,-0x4
00db 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00dc 00d9       |    |		Load_Top	At_Offset_1
00dd e002       |    |		Load	0x0,0x2
00de 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00df e002       |    |		Load	0x0,0x2
00e0 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
00e1 e5fc       |    |		Load	0x2,-0x4
00e2 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00e3 e5fc       |    |		Load	0x2,-0x4
00e4 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00e5 00da       |    |		Load_Top	At_Offset_2
00e6 e002       |    |		Load	0x0,0x2
00e7 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
00e8 e5fc       |    |		Load	0x2,-0x4
00e9 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00ea 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
00eb e5ff       |    |		Load	0x2,-0x1
00ec e5fd       |    |		Load	0x2,-0x3
00ed 8017       |    |		Call	0x0,0x17
00ee e5fe       |    |		Load	0x2,-0x2
00ef 800b       |    |		Call	0x0,0xb
00f0 e402       |    |		Load	0x2,0x2
00f1 8018       |    |		Call	0x0,0x18
00f2 00da       |    |		Load_Top	At_Offset_2
00f3 017d       | }  |		Execute	Record,Structure_Write
00f4 e5fc       |    |		Load	0x2,-0x4
00f5 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00f6 00da       |    |		Load_Top	At_Offset_2
00f7 e002       |    |		Load	0x0,0x2
00f8 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
00f9 e5fc       |    |		Load	0x2,-0x4
00fa 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00fb 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
00fc 0000 0000  |    |		.BLANK	0000[0x4]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0115       |    |		.CONST	0x0115								; Address of begin
0101 0004       |    |		.CONST	0x0004								; Address of exception handler
0102 0007       |    |		.CONST	0x0007								; Number of locals
0103			INIT_0100:
0103 e010       |    |		Load	0x0,0x10
0104 0322       | "  |		Declare_Variable	Record
0105 00d8       |    |		Load_Top	At_Offset_0
0106 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0107 e019       |    |		Load	0x0,0x19
0108 02ff       |    |		Declare_Variable	Variant_Record
0109 00d8       |    |		Load_Top	At_Offset_0
010a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
010b e006       |    |		Load	0x0,0x6
010c 0322       | "  |		Declare_Variable	Record
010d 00d8       |    |		Load_Top	At_Offset_0
010e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
010f e007       |    |		Load	0x0,0x7
0110 0007       |    |		Action	Break_Optional
0111 e002       |    |		Load	0x0,0x2
0112 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0113 e003       |    |		Load	0x0,0x3
0114 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0115			BODY_0100:
0115 e003       |    |		Load	0x0,0x3
0116 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0117 e5fd       |    |		Load	0x2,-0x3
0118 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0119 e003       |    |		Load	0x0,0x3
011a 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
011b 0039       | 9  |		Store_Top	Access,At_Offset_1
011c e002       |    |		Load	0x0,0x2
011d 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
011e e5fd       |    |		Load	0x2,-0x3
011f 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0120 e002       |    |		Load	0x0,0x2
0121 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0122 003a       | :  |		Store_Top	Access,At_Offset_2
0123 00cf       |    |		Action	Mark_Auxiliary
0124 00d9       |    |		Load_Top	At_Offset_1
0125 e003       |    |		Load	0x0,0x3
0126 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0127 7010       |p   |		Jump_Nonzero	0x138
0128 e007       |    |		Load	0x0,0x7
0129 00da       |    |		Load_Top	At_Offset_2
012a e003       |    |		Load	0x0,0x3
012b 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
012c 801a       |    |		Call	0x0,0x1a
012d c405       |    |		Store	0x2,0x5
012e e5ff       |    |		Load	0x2,-0x1
012f e405       |    |		Load	0x2,0x5
0130 801b       |    |		Call	0x0,0x1b
0131 7006       |p   |		Jump_Nonzero	0x138
0132 00d9       |    |		Load_Top	At_Offset_1
0133 e003       |    |		Load	0x0,0x3
0134 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0135 003a       | :  |		Store_Top	Access,At_Offset_2
0136 00c9       |    |		Action	Pop_Auxiliary_Loop
0137 7fec       |    |		Jump	0x124
0138 00ce       |    |		Action	Pop_Auxiliary
0139 00d8       |    |		Load_Top	At_Offset_0
013a e003       |    |		Load	0x0,0x3
013b 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
013c 701a       |p   |		Jump_Nonzero	0x157
013d 00d8       |    |		Load_Top	At_Offset_0
013e e003       |    |		Load	0x0,0x3
013f 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0140 e404       |    |		Load	0x2,0x4
0141 017d       | }  |		Execute	Record,Structure_Write
0142 00db       |    |		Load_Top	At_Offset_3
0143 e5fe       |    |		Load	0x2,-0x2
0144 800b       |    |		Call	0x0,0xb
0145 801c       |    |		Call	0x0,0x1c
0146 00d1       |    |		Pop_Control	Pop_Count_1
0147 e5fd       |    |		Load	0x2,-0x3
0148 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0149 00d9       |    |		Load_Top	At_Offset_1
014a e003       |    |		Load	0x0,0x3
014b 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
014c e003       |    |		Load	0x0,0x3
014d 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
014e e5fd       |    |		Load	0x2,-0x3
014f 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0150 e5fd       |    |		Load	0x2,-0x3
0151 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0152 e404       |    |		Load	0x2,0x4
0153 e003       |    |		Load	0x0,0x3
0154 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0155 e5fd       |    |		Load	0x2,-0x3
0156 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0157 00cf       |    |		Action	Mark_Auxiliary
0158 00da       |    |		Load_Top	At_Offset_2
0159 e002       |    |		Load	0x0,0x2
015a 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
015b 7014       |p   |		Jump_Nonzero	0x170
015c 4801       |H   |		Short_Literal	0x1
015d e5fe       |    |		Load	0x2,-0x2
015e 800b       |    |		Call	0x0,0xb
015f 8011       |    |		Call	0x0,0x11
0160 8012       |    |		Call	0x0,0x12
0161 e406       |    |		Load	0x2,0x6
0162 e002       |    |		Load	0x0,0x2
0163 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0164 8013       |    |		Call	0x0,0x13
0165 8011       |    |		Call	0x0,0x11
0166 8012       |    |		Call	0x0,0x12
0167 e014       |    |		Load	0x0,0x14
0168 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0169 7006       |p   |		Jump_Nonzero	0x170
016a 00d9       |    |		Load_Top	At_Offset_1
016b e003       |    |		Load	0x0,0x3
016c 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
016d 003a       | :  |		Store_Top	Access,At_Offset_2
016e 00c9       |    |		Action	Pop_Auxiliary_Loop
016f 7fe8       |    |		Jump	0x158
0170 00ce       |    |		Action	Pop_Auxiliary
0171 00d9       |    |		Load_Top	At_Offset_1
0172 e002       |    |		Load	0x0,0x2
0173 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0174 7019       |p   |		Jump_Nonzero	0x18e
0175 00d9       |    |		Load_Top	At_Offset_1
0176 e002       |    |		Load	0x0,0x2
0177 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0178 e402       |    |		Load	0x2,0x2
0179 017d       | }  |		Execute	Record,Structure_Write
017a e402       |    |		Load	0x2,0x2
017b e5ff       |    |		Load	0x2,-0x1
017c 801d       |    |		Call	0x0,0x1d
017d 00d1       |    |		Pop_Control	Pop_Count_1
017e e5fd       |    |		Load	0x2,-0x3
017f 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0180 00da       |    |		Load_Top	At_Offset_2
0181 e002       |    |		Load	0x0,0x2
0182 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0183 e002       |    |		Load	0x0,0x2
0184 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0185 e5fd       |    |		Load	0x2,-0x3
0186 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0187 e5fd       |    |		Load	0x2,-0x3
0188 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0189 e402       |    |		Load	0x2,0x2
018a e002       |    |		Load	0x0,0x2
018b 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
018c e5fd       |    |		Load	0x2,-0x3
018d 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
018e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
018f 0000       |    |		.XXX[0x1]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0199       |    |		.CONST	0x0199								; Address of begin
0191 0004       |    |		.CONST	0x0004								; Address of exception handler
0192 0004       |    |		.CONST	0x0004								; Number of locals
0193			INIT_0190:
0193 e002       |    |		Load	0x0,0x2
0194 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0195 e01e       |    |		Load	0x0,0x1e
0196 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0197 0092 01db  |    |		Action	Push_String_Extended,0x1db					; " "
0199			BODY_0190:
0199 e002       |    |		Load	0x0,0x2
019a 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
019b e5fe       |    |		Load	0x2,-0x2
019c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
019d e002       |    |		Load	0x0,0x2
019e 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
019f 003b       | ;  |		Store_Top	Access,At_Offset_3
01a0 00cf       |    |		Action	Mark_Auxiliary
01a1 00db       |    |		Load_Top	At_Offset_3
01a2 e002       |    |		Load	0x0,0x2
01a3 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
01a4 7014       |p   |		Jump_Nonzero	0x1b9
01a5 4801       |H   |		Short_Literal	0x1
01a6 e5ff       |    |		Load	0x2,-0x1
01a7 800b       |    |		Call	0x0,0xb
01a8 8011       |    |		Call	0x0,0x11
01a9 8012       |    |		Call	0x0,0x12
01aa e402       |    |		Load	0x2,0x2
01ab e002       |    |		Load	0x0,0x2
01ac 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
01ad 8013       |    |		Call	0x0,0x13
01ae 8011       |    |		Call	0x0,0x11
01af 8012       |    |		Call	0x0,0x12
01b0 e014       |    |		Load	0x0,0x14
01b1 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
01b2 7006       |p   |		Jump_Nonzero	0x1b9
01b3 00db       |    |		Load_Top	At_Offset_3
01b4 e002       |    |		Load	0x0,0x2
01b5 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
01b6 c402       |    |		Store	0x2,0x2
01b7 00c9       |    |		Action	Pop_Auxiliary_Loop
01b8 7fe8       |    |		Jump	0x1a1
01b9 00ce       |    |		Action	Pop_Auxiliary
01ba 00da       |    |		Load_Top	At_Offset_2
01bb e002       |    |		Load	0x0,0x2
01bc 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
01bd 700f       |p   |		Jump_Nonzero	0x1cd
01be 4801       |H   |		Short_Literal	0x1
01bf a5fb       |    |		Store_Unchecked	0x2,-0x5
01c0 00da       |    |		Load_Top	At_Offset_2
01c1 e002       |    |		Load	0x0,0x2
01c2 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
01c3 801f       |    |		Call	0x0,0x1f
01c4 8020       |    |		Call	0x0,0x20
01c5 e5fc       |    |		Load	0x2,-0x4
01c6 016d       | m  |		Execute	Variant_Record,Structure_Write
01c7 00da       |    |		Load_Top	At_Offset_2
01c8 e002       |    |		Load	0x0,0x2
01c9 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
01ca 8021       | !  |		Call	0x0,0x21
01cb a5fd       |    |		Store_Unchecked	0x2,-0x3
01cc 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01cd e01e       |    |		Load	0x0,0x1e
01ce 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
01cf e01e       |    |		Load	0x0,0x1e
01d0 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
01d1 003a       | :  |		Store_Top	Access,At_Offset_2
01d2 00d9       |    |		Load_Top	At_Offset_1
01d3 a5fd       |    |		Store_Unchecked	0x2,-0x3
01d4 00d8       |    |		Load_Top	At_Offset_0
01d5 800a       |    |		Call	0x0,0xa
01d6 e5fc       |    |		Load	0x2,-0x4
01d7 016d       | m  |		Execute	Variant_Record,Structure_Write
01d8 4800       |H   |		Short_Literal	0x0
01d9 a5fb       |    |		Store_Unchecked	0x2,-0x5
01da 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01db ; --------------------------------------------------------------------------------------
01db ; STRING TABLE
01db ; --------------------------------------------------------------------------------------
01db 0004       |    |		.STRTAB	0x0004->0x01dd							; " "
01dc 0003       |    |		.STREND 0x0003->0x01dd
01dd 2000       |    |		.STRTAB_STRINGS
01de 0000 0000  |    |		.XXX[0x2]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; Debug Table
01e0 ; --------------------------------------------------------------------------------------
01e0 0004 000a  |    |		.DEBUG4	0x0004,0x000a,0x8c75,0x0000,0x0001,0x0009
01e6 000b 020a  |    |		.DBG4T	0x000b,0x020a,0x8000,0x8000
01ea 0022 021c  | "  |		.DBG4T	0x0022,0x021c,0x8000,0x0000
01ee 003b 0225  | ; %|		.DBG4T	0x003b,0x0225,0x0001,0x0000
01f2 0053 022a  | S *|		.DBG4T	0x0053,0x022a,0x0001,0x0000
01f6 0083 0234  |   4|		.DBG4T	0x0083,0x0234,0x0001,0x0000
01fa 0093 0237  |   7|		.DBG4T	0x0093,0x0237,0x0001,0x0000
01fe 00a3 023a  |   :|		.DBG4T	0x00a3,0x023a,0x0001,0x4000
0202 0103 0256  |   V|		.DBG4T	0x0103,0x0256,0x0001,0x4000
0206 0193 0284  |    |		.DBG4T	0x0193,0x0284,0x0001,0x4000
020a ; --------------------------------------------------------------------------------------
020a ; Debug chain
020a ; --------------------------------------------------------------------------------------
020a 0008 0000  |    |		.DBGLEN	0x0008,0x0000
020c 000b 000d  |    |		.DBGLNO	0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019
0214 0002 0003  |    |		.XXX[0x8]
0216 0004 0005  |    |
0218 0006 0007  |    |
021a 0008 0009  |    |
021c ; --------------------------------------------------------------------------------------
021c ; Debug chain
021c ; --------------------------------------------------------------------------------------
021c 0007 0000  |    |		.DBGLEN	0x0007,0x0000
021e 0022 0024  | " $|		.DBGLNO	0x0022,0x0024,0x0026,0x0028,0x002a,0x002c,0x002e
0225 ; --------------------------------------------------------------------------------------
0225 ; Debug chain
0225 ; --------------------------------------------------------------------------------------
0225 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0227 003b 0041  | ; A|		.DBGLNO	0x003b,0x0041,0x0047
022a ; --------------------------------------------------------------------------------------
022a ; Debug chain
022a ; --------------------------------------------------------------------------------------
022a 0003 0005  |    |		.DBGLEN	0x0003,0x0005
022c 0053 0057  | S W|		.DBGLNO	0x0053,0x0057,0x0059,0x005b,0x0063,0x0066,0x006f,0x0075
0234 ; --------------------------------------------------------------------------------------
0234 ; Debug chain
0234 ; --------------------------------------------------------------------------------------
0234 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0236 0083       |    |		.DBGLNO	0x0083
0237 ; --------------------------------------------------------------------------------------
0237 ; Debug chain
0237 ; --------------------------------------------------------------------------------------
0237 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0239 0093       |    |		.DBGLNO	0x0093
023a ; --------------------------------------------------------------------------------------
023a ; Debug chain
023a ; --------------------------------------------------------------------------------------
023a 0002 000c  |    |		.DBGLEN	0x0002,0x000c
023c 00a3 00a7  |    |		.DBGLNO	0x00a3,0x00a7,0x00a9,0x00b1,0x00b5,0x00c3,0x00ca,0x00cd,0x00d1,0x00d6,0x00da,0x00e3,0x00eb,0x00f4
024a 0001 0003  |    |		.XXX[0xc]
024c 0004 0005  |    |
024e 0006 0007  |    |
0250 0008 0009  |    |
0252 000a 000b  |    |
0254 000c 000d  |    |
0256 ; --------------------------------------------------------------------------------------
0256 ; Debug chain
0256 ; --------------------------------------------------------------------------------------
0256 0006 0013  |    |		.DBGLEN	0x0006,0x0013
0258 0103 0107  |    |		.DBGLNO	0x0103,0x0107,0x010b,0x010f,0x0111,0x0113,0x0115,0x011c,0x0124,0x0128,0x012e,0x0132,0x0139,0x013d,0x0142,0x0147,0x0150,0x0158,0x015c,0x016a,0x0171,0x0175,0x017a,0x017e,0x0187
0271 0001 0002  |    |		.XXX[0x13]
0273 0004 0005  |    |
0275 0006 0007  |    |
0277 0008 0009  |    |
0279 000a 000b  |    |
027b 000c 000e  |    |
027d 000f 0010  |    |
027f 0011 0012  |    |
0281 0013 0014  |    |
0283 0015       |    |
0284 ; --------------------------------------------------------------------------------------
0284 ; Debug chain
0284 ; --------------------------------------------------------------------------------------
0284 0003 000c  |    |		.DBGLEN	0x0003,0x000c
0286 0193 0195  |    |		.DBGLNO	0x0193,0x0195,0x0197,0x0199,0x01a1,0x01a5,0x01b3,0x01ba,0x01be,0x01c0,0x01c7,0x01cd,0x01d2,0x01d4,0x01d8
0295 0001 0003  |    |		.XXX[0xc]
0297 0004 0005  |    |
0299 0006 0007  |    |
029b 0008 0009  |    |
029d 000a 000b  |    |
029f 000c 000d  |    |
02a1 0000 0000  |    |		.BLANK	0000[0x15f]