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

⟦f4a683ccc⟧

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

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 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 01e8       |    |		.CONST	0x01e8								; 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 007c       | |  |		.CONST	0x007c								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0026       | &  |		.CONST	0x0026								; Number of locals
000b			INIT_0008:
000b 029a 0083  |    |		Declare_Subprogram	INIT_0080,For_Outer_Call,Visible,Unelaborated
000d 029a 0093  |    |		Declare_Subprogram	INIT_0090,For_Outer_Call,Visible,Unelaborated
000f 029a 00a3  |    |		Declare_Subprogram	INIT_00a0,For_Outer_Call,Visible,Unelaborated
0011 029a 00b3  |    |		Declare_Subprogram	INIT_00b0,For_Outer_Call,Visible,Unelaborated
0013 029a 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Outer_Call,Visible,Unelaborated
0015 029a 00db  |    |		Declare_Subprogram	INIT_00d8,For_Outer_Call,Visible,Unelaborated
0017 029a 00eb  |    |		Declare_Subprogram	INIT_00e8,For_Outer_Call,Visible,Unelaborated
0019 029a 0103  |    |		Declare_Subprogram	INIT_0100,For_Outer_Call,Visible,Unelaborated
001b 029a 010b  |    |		Declare_Subprogram	INIT_0108,For_Outer_Call,Visible,Unelaborated
001d 029a 011b  |    |		Declare_Subprogram	INIT_0118,For_Outer_Call,Visible,Unelaborated
001f 029a 012b  |   +|		Declare_Subprogram	INIT_0128,For_Outer_Call,Visible,Unelaborated
0021 029a 0133  |   3|		Declare_Subprogram	INIT_0130,For_Outer_Call,Visible,Unelaborated
0023 029a 0143  |   C|		Declare_Subprogram	INIT_0140,For_Outer_Call,Visible,Unelaborated
0025 029a 014b  |   K|		Declare_Subprogram	INIT_0148,For_Outer_Call,Visible,Unelaborated
0027 029a 0153  |   S|		Declare_Subprogram	INIT_0150,For_Outer_Call,Visible,Unelaborated
0029 029a 0183  |    |		Declare_Subprogram	INIT_0180,For_Outer_Call,Visible,Unelaborated
002b 029a 018b  |    |		Declare_Subprogram	INIT_0188,For_Outer_Call,Visible,Unelaborated
002d 029a 0193  |    |		Declare_Subprogram	INIT_0190,For_Outer_Call,Visible,Unelaborated
002f 029a 01bb  |    |		Declare_Subprogram	INIT_01b8,For_Outer_Call,Visible,Unelaborated
0031 029a 01c3  |    |		Declare_Subprogram	INIT_01c0,For_Outer_Call,Visible,Unelaborated
0033 029a 01cb  |    |		Declare_Subprogram	INIT_01c8,For_Outer_Call,Visible,Unelaborated
0035 029a 01d3  |    |		Declare_Subprogram	INIT_01d0,For_Outer_Call,Visible,Unelaborated
0037 029a 01db  |    |		Declare_Subprogram	INIT_01d8,For_Outer_Call,Visible,Unelaborated
0039 029a 01e3  |    |		Declare_Subprogram	INIT_01e0,For_Outer_Call,Visible,Unelaborated
003b 00bf       |    |		Action	Accept_Activation
003c e001       |    |		Load	0x0,0x1
003d e002       |    |		Load	0x0,0x2
003e 00e6       |    |		Load_Encached	Float_Cache
003f e003       |    |		Load	0x0,0x3
0040 1b79       | y  |		Execute	Package,Field_Read,Field_Number 0x79
0041 0387       |    |		Declare_Variable	Package
0042 00d8       |    |		Load_Top	At_Offset_0
0043 020f       |    |		Execute	Module,Activate
0044 e004       |    |		Load	0x0,0x4
0045 e005       |    |		Load	0x0,0x5
0046 00e7       |    |		Load_Encached	Duration_Cache
0047 e003       |    |		Load	0x0,0x3
0048 1b7a       | z  |		Execute	Package,Field_Read,Field_Number 0x7a
0049 0387       |    |		Declare_Variable	Package
004a 00d8       |    |		Load_Top	At_Offset_0
004b 020f       |    |		Execute	Module,Activate
004c 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
004d 00c7       |    |		Action	Elaborate_Subprogram
004e 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
004f 00c7       |    |		Action	Elaborate_Subprogram
0050 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0051 00c7       |    |		Action	Elaborate_Subprogram
0052 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0053 00c7       |    |		Action	Elaborate_Subprogram
0054 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0055 00c7       |    |		Action	Elaborate_Subprogram
0056 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0057 00c7       |    |		Action	Elaborate_Subprogram
0058 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0059 00c7       |    |		Action	Elaborate_Subprogram
005a 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
005b 00c7       |    |		Action	Elaborate_Subprogram
005c 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
005d 00c7       |    |		Action	Elaborate_Subprogram
005e 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
005f 00c7       |    |		Action	Elaborate_Subprogram
0060 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0061 00c7       |    |		Action	Elaborate_Subprogram
0062 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0063 00c7       |    |		Action	Elaborate_Subprogram
0064 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0065 00c7       |    |		Action	Elaborate_Subprogram
0066 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
0067 00c7       |    |		Action	Elaborate_Subprogram
0068 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
0069 00c7       |    |		Action	Elaborate_Subprogram
006a 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
006b 00c7       |    |		Action	Elaborate_Subprogram
006c 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
006d 00c7       |    |		Action	Elaborate_Subprogram
006e 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
006f 00c7       |    |		Action	Elaborate_Subprogram
0070 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
0071 00c7       |    |		Action	Elaborate_Subprogram
0072 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
0073 00c7       |    |		Action	Elaborate_Subprogram
0074 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
0075 00c7       |    |		Action	Elaborate_Subprogram
0076 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
0077 00c7       |    |		Action	Elaborate_Subprogram
0078 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
0079 00c7       |    |		Action	Elaborate_Subprogram
007a 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
007b 00c7       |    |		Action	Elaborate_Subprogram
007c			BODY_0008:
007c 00bc       |    |		Action	Signal_Activated
007d 00bb       |    |		Action	Signal_Completion
007e 0000 0000  |    |		.XXX[0x2]
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 4820       |H   |		Short_Literal	0x20
0084 4800       |H   |		Short_Literal	0x0
0085 480a       |H   |		Short_Literal	0xa
0086 e5ff       |    |		Load	0x2,-0x1
0087 e006       |    |		Load	0x0,0x6
0088 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0089 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
008a 0000 0000  |    |		.BLANK	0000[0x6]
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 4820       |H   |		Short_Literal	0x20
0094 4800       |H   |		Short_Literal	0x0
0095 480a       |H   |		Short_Literal	0xa
0096 e5ff       |    |		Load	0x2,-0x1
0097 e006       |    |		Load	0x0,0x6
0098 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0099 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
009a 0000 0000  |    |		.BLANK	0000[0x6]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a5       |    |		.CONST	0x00a5								; Address of begin
00a1 0004       |    |		.CONST	0x0004								; Address of exception handler
00a2 0003       |    |		.CONST	0x0003								; Number of locals
00a3			INIT_00a0:
00a3 00e2       |    |		Load_Encached	Integer_Cache
00a4 00e1       |    |		Load_Encached	Boolean_Cache
00a5			BODY_00a0:
00a5 00e1       |    |		Load_Encached	Boolean_Cache
00a6 00e2       |    |		Load_Encached	Integer_Cache
00a7 480a       |H   |		Short_Literal	0xa
00a8 e5ff       |    |		Load	0x2,-0x1
00a9 e006       |    |		Load	0x0,0x6
00aa 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
00ab 005b       | [  |		Store_Top	Discrete,At_Offset_3
00ac 0059       | Y  |		Store_Top	Discrete,At_Offset_1
00ad 00d9       |    |		Load_Top	At_Offset_1
00ae 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00af 0000       |    |		.XXX[0x1]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b9       |    |		.CONST	0x00b9								; Address of begin
00b1 0004       |    |		.CONST	0x0004								; Address of exception handler
00b2 0003       |    |		.CONST	0x0003								; Number of locals
00b3			INIT_00b0:
00b3 4801       |H   |		Short_Literal	0x1
00b4 481e       |H   |		Short_Literal	0x1e
00b5 00e9       |    |		Load_Encached	String_Cache
00b6 035b       | [  |		Declare_Type	Array,Constrained
00b7 0337       | 7  |		Declare_Variable	Array
00b8 00e4       |    |		Load_Encached	Positive_Cache
00b9			BODY_00b0:
00b9 00d9       |    |		Load_Top	At_Offset_1
00ba e225       | %  |		Load	0x1,0x25
00bb 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
00bc e225       | %  |		Load	0x1,0x25
00bd 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
00be e5ff       |    |		Load	0x2,-0x1
00bf e225       | %  |		Load	0x1,0x25
00c0 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
00c1 00d1       |    |		Pop_Control	Pop_Count_1
00c2 4820       |H   |		Short_Literal	0x20
00c3 00da       |    |		Load_Top	At_Offset_2
00c4 e006       |    |		Load	0x0,0x6
00c5 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00c6 00e9       |    |		Load_Encached	String_Cache
00c7 01c6       |    |		Execute	Vector,Convert_To_Formal
00c8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00c9 0000 0000  |    |		.BLANK	0000[0x7]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3       |    |		.CONST	0x00d3								; Address of begin
00d1 0004       |    |		.CONST	0x0004								; Address of exception handler
00d2 0001       |    |		.CONST	0x0001								; Number of locals
00d3			BODY_00d0:
00d3			INIT_00d0:
00d3 00da       |    |		Load_Top	At_Offset_2
00d4 8210       |    |		Call	0x1,0x10
00d5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00d6 0000 0000  |    |		.XXX[0x2]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00dd       |    |		.CONST	0x00dd								; Address of begin
00d9 0004       |    |		.CONST	0x0004								; Address of exception handler
00da 0003       |    |		.CONST	0x0003								; Number of locals
00db			INIT_00d8:
00db 00e6       |    |		Load_Encached	Float_Cache
00dc 00e4       |    |		Load_Encached	Positive_Cache
00dd			BODY_00d8:
00dd 00e4       |    |		Load_Encached	Positive_Cache
00de e225       | %  |		Load	0x1,0x25
00df 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00e0 e5ff       |    |		Load	0x2,-0x1
00e1 e225       | %  |		Load	0x1,0x25
00e2 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
00e3 004b       | K  |		Store_Top	Float,At_Offset_3
00e4 0059       | Y  |		Store_Top	Discrete,At_Offset_1
00e5 00d9       |    |		Load_Top	At_Offset_1
00e6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00e7 0000       |    |		.XXX[0x1]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00f0       |    |		.CONST	0x00f0								; Address of begin
00e9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ea 0002       |    |		.CONST	0x0002								; Number of locals
00eb			INIT_00e8:
00eb 4801       |H   |		Short_Literal	0x1
00ec 481e       |H   |		Short_Literal	0x1e
00ed 00e9       |    |		Load_Encached	String_Cache
00ee 035b       | [  |		Declare_Type	Array,Constrained
00ef 0337       | 7  |		Declare_Variable	Array
00f0			BODY_00e8:
00f0 00d8       |    |		Load_Top	At_Offset_0
00f1 e226       | &  |		Load	0x1,0x26
00f2 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
00f3 e226       | &  |		Load	0x1,0x26
00f4 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
00f5 e5ff       |    |		Load	0x2,-0x1
00f6 e226       | &  |		Load	0x1,0x26
00f7 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
00f8 00d1       |    |		Pop_Control	Pop_Count_1
00f9 4820       |H   |		Short_Literal	0x20
00fa 00d9       |    |		Load_Top	At_Offset_1
00fb e006       |    |		Load	0x0,0x6
00fc 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00fd 00e9       |    |		Load_Encached	String_Cache
00fe 01c6       |    |		Execute	Vector,Convert_To_Formal
00ff 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103       |    |		.CONST	0x0103								; Address of begin
0101 0004       |    |		.CONST	0x0004								; Address of exception handler
0102 0001       |    |		.CONST	0x0001								; Number of locals
0103			BODY_0100:
0103			INIT_0100:
0103 00da       |    |		Load_Top	At_Offset_2
0104 8213       |    |		Call	0x1,0x13
0105 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0106 0000 0000  |    |		.XXX[0x2]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010d       |    |		.CONST	0x010d								; Address of begin
0109 0004       |    |		.CONST	0x0004								; Address of exception handler
010a 0003       |    |		.CONST	0x0003								; Number of locals
010b			INIT_0108:
010b 00e7       |    |		Load_Encached	Duration_Cache
010c 00e4       |    |		Load_Encached	Positive_Cache
010d			BODY_0108:
010d 00e4       |    |		Load_Encached	Positive_Cache
010e e226       | &  |		Load	0x1,0x26
010f 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0110 e5ff       |    |		Load	0x2,-0x1
0111 e226       | &  |		Load	0x1,0x26
0112 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0113 005b       | [  |		Store_Top	Discrete,At_Offset_3
0114 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0115 00d9       |    |		Load_Top	At_Offset_1
0116 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0117 0000       |    |		.XXX[0x1]
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 4800       |H   |		Short_Literal	0x0
011c 4800       |H   |		Short_Literal	0x0
011d 4800       |H   |		Short_Literal	0x0
011e e5ff       |    |		Load	0x2,-0x1
011f e007       |    |		Load	0x0,0x7
0120 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0121 e007       |    |		Load	0x0,0x7
0122 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0123 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0124 0000 0000  |    |		.BLANK	0000[0x4]
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 8216       |    |		Call	0x1,0x16
012d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
012e 0000 0000  |    |		.XXX[0x2]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133       | 3  |		.CONST	0x0133								; Address of begin
0131 0004       |    |		.CONST	0x0004								; Address of exception handler
0132 0001       |    |		.CONST	0x0001								; Number of locals
0133			BODY_0130:
0133			INIT_0130:
0133 00da       |    |		Load_Top	At_Offset_2
0134 e007       |    |		Load	0x0,0x7
0135 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0136 e007       |    |		Load	0x0,0x7
0137 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0138 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0139 0000 0000  |    |		.BLANK	0000[0x7]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143       | C  |		.CONST	0x0143								; Address of begin
0141 0004       |    |		.CONST	0x0004								; Address of exception handler
0142 0001       |    |		.CONST	0x0001								; Number of locals
0143			BODY_0140:
0143			INIT_0140:
0143 00da       |    |		Load_Top	At_Offset_2
0144 e008       |    |		Load	0x0,0x8
0145 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0146 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
0147 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
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 8219       |    |		Call	0x1,0x19
014d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
014e 0000 0000  |    |		.XXX[0x2]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 015b       | [  |		.CONST	0x015b								; Address of begin
0151 0004       |    |		.CONST	0x0004								; Address of exception handler
0152 0003       |    |		.CONST	0x0003								; Number of locals
0153			INIT_0150:
0153 e008       |    |		Load	0x0,0x8
0154 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0155 02c7       |    |		Declare_Variable	Any
0156 00d8       |    |		Load_Top	At_Offset_0
0157 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0158 e008       |    |		Load	0x0,0x8
0159 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
015a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
015b			BODY_0150:
015b e008       |    |		Load	0x0,0x8
015c 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
015d 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
015e 00da       |    |		Load_Top	At_Offset_2
015f 0120       |    |		Execute	Any,Is_Value
0160 6803       |h   |		Jump_Zero	0x164
0161 e008       |    |		Load	0x0,0x8
0162 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0163 7801       |x   |		Jump	0x165
0164 00da       |    |		Load_Top	At_Offset_2
0165 6012       |`   |		Indirect_Literal	Discrete,0x178,{0x00000000, 0x00004000}
0166 e009       |    |		Load	0x0,0x9
0167 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0168 e00a       |    |		Load	0x0,0xa
0169 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
016a e008       |    |		Load	0x0,0x8
016b 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
016c 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
016d e5ff       |    |		Load	0x2,-0x1
016e e008       |    |		Load	0x0,0x8
016f 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0170 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0171 c402       |    |		Store	0x2,0x2
0172 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0173 00d9       |    |		Load_Top	At_Offset_1
0174 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0175 0000 0000  |    |		.XXX[0x3]
0177 0000       |    |
0178 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
017c 0000 0000  |    |		.BLANK	0000[0x4]
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 e008       |    |		Load	0x0,0x8
0185 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0186 183f       | ?  |		Execute	Package,Field_Execute,Field_Number 0x3f
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 821c       |    |		Call	0x1,0x1c
018d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
018e 0000 0000  |    |		.XXX[0x2]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 019b       |    |		.CONST	0x019b								; Address of begin
0191 0004       |    |		.CONST	0x0004								; Address of exception handler
0192 0003       |    |		.CONST	0x0003								; Number of locals
0193			INIT_0190:
0193 e008       |    |		Load	0x0,0x8
0194 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0195 02ff       |    |		Declare_Variable	Variant_Record
0196 00d8       |    |		Load_Top	At_Offset_0
0197 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0198 e008       |    |		Load	0x0,0x8
0199 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
019a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
019b			BODY_0190:
019b e008       |    |		Load	0x0,0x8
019c 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
019d 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
019e 00da       |    |		Load_Top	At_Offset_2
019f 6010       |`   |		Indirect_Literal	Discrete,0x1b0,{0x00000000, 0x00004000}
01a0 e009       |    |		Load	0x0,0x9
01a1 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01a2 4800       |H   |		Short_Literal	0x0
01a3 e00a       |    |		Load	0x0,0xa
01a4 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
01a5 e008       |    |		Load	0x0,0x8
01a6 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
01a7 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
01a8 e5ff       |    |		Load	0x2,-0x1
01a9 e008       |    |		Load	0x0,0x8
01aa 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
01ab 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
01ac 00d1       |    |		Pop_Control	Pop_Count_1
01ad 0059       | Y  |		Store_Top	Discrete,At_Offset_1
01ae 00d9       |    |		Load_Top	At_Offset_1
01af 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01b0 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
01b4 0000 0000  |    |		.BLANK	0000[0x4]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb       |    |		.CONST	0x01bb								; Address of begin
01b9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ba 0001       |    |		.CONST	0x0001								; Number of locals
01bb			BODY_01b8:
01bb			INIT_01b8:
01bb 00da       |    |		Load_Top	At_Offset_2
01bc e008       |    |		Load	0x0,0x8
01bd 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
01be 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01bf 0000       |    |		.XXX[0x1]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3       |    |		.CONST	0x01c3								; Address of begin
01c1 0004       |    |		.CONST	0x0004								; Address of exception handler
01c2 0001       |    |		.CONST	0x0001								; Number of locals
01c3			BODY_01c0:
01c3			INIT_01c0:
01c3 00da       |    |		Load_Top	At_Offset_2
01c4 821f       |    |		Call	0x1,0x1f
01c5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01c6 0000 0000  |    |		.XXX[0x2]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb       |    |		.CONST	0x01cb								; Address of begin
01c9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ca 0001       |    |		.CONST	0x0001								; Number of locals
01cb			BODY_01c8:
01cb			INIT_01c8:
01cb 00da       |    |		Load_Top	At_Offset_2
01cc e008       |    |		Load	0x0,0x8
01cd 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
01ce 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01cf 0000       |    |		.XXX[0x1]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3       |    |		.CONST	0x01d3								; Address of begin
01d1 0004       |    |		.CONST	0x0004								; Address of exception handler
01d2 0001       |    |		.CONST	0x0001								; Number of locals
01d3			BODY_01d0:
01d3			INIT_01d0:
01d3 00da       |    |		Load_Top	At_Offset_2
01d4 e008       |    |		Load	0x0,0x8
01d5 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
01d6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01d7 0000       |    |		.XXX[0x1]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db       |    |		.CONST	0x01db								; Address of begin
01d9 0004       |    |		.CONST	0x0004								; Address of exception handler
01da 0001       |    |		.CONST	0x0001								; Number of locals
01db			BODY_01d8:
01db			INIT_01d8:
01db 00da       |    |		Load_Top	At_Offset_2
01dc 8222       | "  |		Call	0x1,0x22
01dd 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01de 0000 0000  |    |		.XXX[0x2]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3       |    |		.CONST	0x01e3								; Address of begin
01e1 0004       |    |		.CONST	0x0004								; Address of exception handler
01e2 0001       |    |		.CONST	0x0001								; Number of locals
01e3			BODY_01e0:
01e3			INIT_01e0:
01e3 00da       |    |		Load_Top	At_Offset_2
01e4 e008       |    |		Load	0x0,0x8
01e5 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
01e6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01e7 0000       |    |		.XXX[0x1]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; Debug Table
01e8 ; --------------------------------------------------------------------------------------
01e8 0004 000d  |    |		.DEBUG4	0x0004,0x000d,0xd925,0x0000,0x0001,0x0000
01ee a280 0000  |    |		.XXX[0x12]
01f0 1a9a 0000  |    |
01f2 006b 980e  | k  |
01f4 5001 af20  |P   |
01f6 3800 06c2  |8   |
01f8 0000 001b  |    |
01fa 2c00 0000  |,   |
01fc 6cf8 0bd0  |l   |
01fe 01b5 6032  |  `2|