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

⟦593a1cb33⟧

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

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦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 0168       | h  |		.CONST	0x0168								; 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 8000       |    |		.CONST	0x8000								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 003a       | :  |		.CONST	0x003a								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0018       |    |		.CONST	0x0018								; Number of locals
000b			INIT_0008:
000b 029a 0043  |   C|		Declare_Subprogram	INIT_0040,For_Outer_Call,Visible,Unelaborated
000d 029a 005b  |   [|		Declare_Subprogram	INIT_0058,For_Outer_Call,Visible,Unelaborated
000f 029a 006b  |   k|		Declare_Subprogram	INIT_0068,For_Outer_Call,Visible,Unelaborated
0011 029a 007b  |   {|		Declare_Subprogram	INIT_0078,For_Outer_Call,Visible,Unelaborated
0013 029a 008b  |    |		Declare_Subprogram	INIT_0088,For_Outer_Call,Visible,Unelaborated
0015 029a 009b  |    |		Declare_Subprogram	INIT_0098,For_Outer_Call,Visible,Unelaborated
0017 029a 00ab  |    |		Declare_Subprogram	INIT_00a8,For_Outer_Call,Visible,Unelaborated
0019 029a 00cb  |    |		Declare_Subprogram	INIT_00c8,For_Outer_Call,Visible,Unelaborated
001b 029a 00eb  |    |		Declare_Subprogram	INIT_00e8,For_Outer_Call,Visible,Unelaborated
001d 029a 0103  |    |		Declare_Subprogram	INIT_0100,For_Outer_Call,Visible,Unelaborated
001f 029a 011b  |    |		Declare_Subprogram	INIT_0118,For_Outer_Call,Visible,Unelaborated
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 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0027 00c7       |    |		Action	Elaborate_Subprogram
0028 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0029 00c7       |    |		Action	Elaborate_Subprogram
002a 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
002b 00c7       |    |		Action	Elaborate_Subprogram
002c 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
002d 00c7       |    |		Action	Elaborate_Subprogram
002e 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
002f 00c7       |    |		Action	Elaborate_Subprogram
0030 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0031 00c7       |    |		Action	Elaborate_Subprogram
0032 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0033 00c7       |    |		Action	Elaborate_Subprogram
0034 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0035 00c7       |    |		Action	Elaborate_Subprogram
0036 029d 013b  |   ;|		Declare_Subprogram	INIT_0138,For_Outer_Call
0038 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0039 00c7       |    |		Action	Elaborate_Subprogram
003a			BODY_0008:
003a 00bc       |    |		Action	Signal_Activated
003b 00bb       |    |		Action	Signal_Completion
003c 0000 0000  |    |		.BLANK	0000[0x4]
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 0044       | D  |		.CONST	0x0044								; Address of begin
0041 0004       |    |		.CONST	0x0004								; Address of exception handler
0042 0002       |    |		.CONST	0x0002								; Number of locals
0043			INIT_0040:
0043 00e5       |    |		Load_Encached	Long_Integer_Cache
0044			BODY_0040:
0044 8002       |    |		Call	0x0,0x2
0045 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0046 00db       |    |		Load_Top	At_Offset_3
0047 00d9       |    |		Load_Top	At_Offset_1
0048 e003       |    |		Load	0x0,0x3
0049 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
004a 00d8       |    |		Load_Top	At_Offset_0
004b e003       |    |		Load	0x0,0x3
004c 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
004d 7003       |p   |		Jump_Nonzero	0x51
004e e004       |    |		Load	0x0,0x4
004f 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
0050 0257       | W  |		Execute	Discrete,Raise
0051 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0052 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0053 0000 0000  |    |		.BLANK	0000[0x5]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005b       | [  |		.CONST	0x005b								; Address of begin
0059 0004       |    |		.CONST	0x0004								; Address of exception handler
005a 0001       |    |		.CONST	0x0001								; Number of locals
005b			BODY_0058:
005b			INIT_0058:
005b 00da       |    |		Load_Top	At_Offset_2
005c 8002       |    |		Call	0x0,0x2
005d e003       |    |		Load	0x0,0x3
005e 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
005f 00d8       |    |		Load_Top	At_Offset_0
0060 e003       |    |		Load	0x0,0x3
0061 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
0062 7003       |p   |		Jump_Nonzero	0x66
0063 e004       |    |		Load	0x0,0x4
0064 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
0065 0257       | W  |		Execute	Discrete,Raise
0066 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0067 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006b       | k  |		.CONST	0x006b								; Address of begin
0069 0004       |    |		.CONST	0x0004								; Address of exception handler
006a 0001       |    |		.CONST	0x0001								; Number of locals
006b			BODY_0068:
006b			INIT_0068:
006b 8002       |    |		Call	0x0,0x2
006c e003       |    |		Load	0x0,0x3
006d 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
006e 00d8       |    |		Load_Top	At_Offset_0
006f e003       |    |		Load	0x0,0x3
0070 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
0071 7003       |p   |		Jump_Nonzero	0x75
0072 e004       |    |		Load	0x0,0x4
0073 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
0074 0257       | W  |		Execute	Discrete,Raise
0075 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0076 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0077 0000       |    |		.XXX[0x1]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b       | {  |		.CONST	0x007b								; Address of begin
0079 0004       |    |		.CONST	0x0004								; Address of exception handler
007a 0001       |    |		.CONST	0x0001								; Number of locals
007b			BODY_0078:
007b			INIT_0078:
007b 00da       |    |		Load_Top	At_Offset_2
007c 8002       |    |		Call	0x0,0x2
007d e003       |    |		Load	0x0,0x3
007e 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
007f 00d8       |    |		Load_Top	At_Offset_0
0080 e003       |    |		Load	0x0,0x3
0081 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
0082 7003       |p   |		Jump_Nonzero	0x86
0083 e004       |    |		Load	0x0,0x4
0084 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
0085 0257       | W  |		Execute	Discrete,Raise
0086 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0087 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008b       |    |		.CONST	0x008b								; Address of begin
0089 0004       |    |		.CONST	0x0004								; Address of exception handler
008a 0001       |    |		.CONST	0x0001								; Number of locals
008b			BODY_0088:
008b			INIT_0088:
008b 00da       |    |		Load_Top	At_Offset_2
008c 8002       |    |		Call	0x0,0x2
008d e003       |    |		Load	0x0,0x3
008e 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
008f 00d8       |    |		Load_Top	At_Offset_0
0090 e003       |    |		Load	0x0,0x3
0091 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
0092 7003       |p   |		Jump_Nonzero	0x96
0093 e004       |    |		Load	0x0,0x4
0094 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
0095 0257       | W  |		Execute	Discrete,Raise
0096 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0097 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b       |    |		.CONST	0x009b								; Address of begin
0099 0004       |    |		.CONST	0x0004								; Address of exception handler
009a 0001       |    |		.CONST	0x0001								; Number of locals
009b			BODY_0098:
009b			INIT_0098:
009b 00da       |    |		Load_Top	At_Offset_2
009c 8002       |    |		Call	0x0,0x2
009d e003       |    |		Load	0x0,0x3
009e 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
009f 00d8       |    |		Load_Top	At_Offset_0
00a0 e003       |    |		Load	0x0,0x3
00a1 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
00a2 7003       |p   |		Jump_Nonzero	0xa6
00a3 e004       |    |		Load	0x0,0x4
00a4 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
00a5 0257       | W  |		Execute	Discrete,Raise
00a6 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00a7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab       |    |		.CONST	0x00ab								; Address of begin
00a9 0004       |    |		.CONST	0x0004								; Address of exception handler
00aa 0001       |    |		.CONST	0x0001								; Number of locals
00ab			BODY_00a8:
00ab			INIT_00a8:
00ab e5fd       |    |		Load	0x2,-0x3
00ac 0120       |    |		Execute	Any,Is_Value
00ad 6803       |h   |		Jump_Zero	0xb1
00ae e005       |    |		Load	0x0,0x5
00af 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00b0 7801       |x   |		Jump	0xb2
00b1 e5fd       |    |		Load	0x2,-0x3
00b2 00e1       |    |		Load_Encached	Boolean_Cache
00b3 e5ff       |    |		Load	0x2,-0x1
00b4 8002       |    |		Call	0x0,0x2
00b5 e003       |    |		Load	0x0,0x3
00b6 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
00b7 00d8       |    |		Load_Top	At_Offset_0
00b8 e003       |    |		Load	0x0,0x3
00b9 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
00ba 7003       |p   |		Jump_Nonzero	0xbe
00bb e004       |    |		Load	0x0,0x4
00bc 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
00bd 0257       | W  |		Execute	Discrete,Raise
00be 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
00bf c5fe       |    |		Store	0x2,-0x2
00c0 c5fd       |    |		Store	0x2,-0x3
00c1 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00c2 0000 0000  |    |		.BLANK	0000[0x6]
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 e5fb       |    |		Load	0x2,-0x5
00cc e006       |    |		Load	0x0,0x6
00cd 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00ce e006       |    |		Load	0x0,0x6
00cf 1b29       | )  |		Execute	Package,Field_Read,Field_Number 0x29
00d0 e5fe       |    |		Load	0x2,-0x2
00d1 0120       |    |		Execute	Any,Is_Value
00d2 6803       |h   |		Jump_Zero	0xd6
00d3 e006       |    |		Load	0x0,0x6
00d4 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
00d5 7801       |x   |		Jump	0xd7
00d6 e5fe       |    |		Load	0x2,-0x2
00d7 e5ff       |    |		Load	0x2,-0x1
00d8 8002       |    |		Call	0x0,0x2
00d9 e003       |    |		Load	0x0,0x3
00da 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
00db 00d8       |    |		Load_Top	At_Offset_0
00dc e003       |    |		Load	0x0,0x3
00dd 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
00de 7003       |p   |		Jump_Nonzero	0xe2
00df e004       |    |		Load	0x0,0x4
00e0 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
00e1 0257       | W  |		Execute	Discrete,Raise
00e2 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
00e3 c5fe       |    |		Store	0x2,-0x2
00e4 c5fd       |    |		Store	0x2,-0x3
00e5 c5fc       |    |		Store	0x2,-0x4
00e6 c5fb       |    |		Store	0x2,-0x5
00e7 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
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 e5fc       |    |		Load	0x2,-0x4
00ec e5fd       |    |		Load	0x2,-0x3
00ed e5fe       |    |		Load	0x2,-0x2
00ee e5ff       |    |		Load	0x2,-0x1
00ef 8002       |    |		Call	0x0,0x2
00f0 e003       |    |		Load	0x0,0x3
00f1 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
00f2 00d8       |    |		Load_Top	At_Offset_0
00f3 e003       |    |		Load	0x0,0x3
00f4 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
00f5 7003       |p   |		Jump_Nonzero	0xf9
00f6 e004       |    |		Load	0x0,0x4
00f7 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
00f8 0257       | W  |		Execute	Discrete,Raise
00f9 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
00fa 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
00fb 0000 0000  |    |		.BLANK	0000[0x5]
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 e5fc       |    |		Load	0x2,-0x4
0104 e5fd       |    |		Load	0x2,-0x3
0105 e5fe       |    |		Load	0x2,-0x2
0106 e5ff       |    |		Load	0x2,-0x1
0107 8002       |    |		Call	0x0,0x2
0108 e003       |    |		Load	0x0,0x3
0109 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
010a 00d8       |    |		Load_Top	At_Offset_0
010b e003       |    |		Load	0x0,0x3
010c 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
010d 7003       |p   |		Jump_Nonzero	0x111
010e e004       |    |		Load	0x0,0x4
010f 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
0110 0257       | W  |		Execute	Discrete,Raise
0111 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0112 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0113 0000 0000  |    |		.BLANK	0000[0x5]
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 e5f7       |    |		Load	0x2,-0x9
011c e5f8       |    |		Load	0x2,-0x8
011d e5f9       |    |		Load	0x2,-0x7
011e 8007       |    |		Call	0x0,0x7
011f e5fa       |    |		Load	0x2,-0x6
0120 e5fb       |    |		Load	0x2,-0x5
0121 8218       |    |		Call	0x1,0x18
0122 8008       |    |		Call	0x0,0x8
0123 e5fb       |    |		Load	0x2,-0x5
0124 8008       |    |		Call	0x0,0x8
0125 e5fc       |    |		Load	0x2,-0x4
0126 e5fd       |    |		Load	0x2,-0x3
0127 e5fe       |    |		Load	0x2,-0x2
0128 e5ff       |    |		Load	0x2,-0x1
0129 8002       |    |		Call	0x0,0x2
012a e003       |    |		Load	0x0,0x3
012b 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
012c 00d8       |    |		Load_Top	At_Offset_0
012d e003       |    |		Load	0x0,0x3
012e 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
012f 7003       |p   |		Jump_Nonzero	0x133
0130 e004       |    |		Load	0x0,0x4
0131 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
0132 0257       | W  |		Execute	Discrete,Raise
0133 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0134 c5f7       |    |		Store	0x2,-0x9
0135 4509       |E   |		Exit_Suprogram	New_Top_Offset 0x9
0136 0000 0000  |    |		.XXX[0x2]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 0147       | G  |		.CONST	0x0147								; Address of begin
0139 0004       |    |		.CONST	0x0004								; Address of exception handler
013a 0004       |    |		.CONST	0x0004								; Number of locals
013b			INIT_0138:
013b 00da       |    |		Load_Top	At_Offset_2
013c e004       |    |		Load	0x0,0x4
013d 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
013e 03f1       |    |		Declare_Variable	Discrete,With_Value
013f 00db       |    |		Load_Top	At_Offset_3
0140 e004       |    |		Load	0x0,0x4
0141 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0142 03f1       |    |		Declare_Variable	Discrete,With_Value
0143 8009       |    |		Call	0x0,0x9
0144 e004       |    |		Load	0x0,0x4
0145 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0146 03f1       |    |		Declare_Variable	Discrete,With_Value
0147			BODY_0138:
0147 00cf       |    |		Action	Mark_Auxiliary
0148 00da       |    |		Load_Top	At_Offset_2
0149 800a       |    |		Call	0x0,0xa
014a 7018       |p   |		Jump_Nonzero	0x163
014b 00da       |    |		Load_Top	At_Offset_2
014c 00da       |    |		Load_Top	At_Offset_2
014d 027f       |    |		Execute	Discrete,Equal
014e 7014       |p   |		Jump_Nonzero	0x163
014f 00da       |    |		Load_Top	At_Offset_2
0150 e006       |    |		Load	0x0,0x6
0151 183c       | <  |		Execute	Package,Field_Execute,Field_Number 0x3c
0152 6810       |h   |		Jump_Zero	0x163
0153 00da       |    |		Load_Top	At_Offset_2
0154 e00b       |    |		Load	0x0,0xb
0155 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0156 a402       |    |		Store_Unchecked	0x2,0x2
0157 00db       |    |		Load_Top	At_Offset_3
0158 800a       |    |		Call	0x0,0xa
0159 6805       |h   |		Jump_Zero	0x15f
015a 00da       |    |		Load_Top	At_Offset_2
015b e00b       |    |		Load	0x0,0xb
015c 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
015d 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
015e 7802       |x   |		Jump	0x161
015f 00db       |    |		Load_Top	At_Offset_3
0160 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0161 00c9       |    |		Action	Pop_Auxiliary_Loop
0162 7fe5       |    |		Jump	0x148
0163 00ce       |    |		Action	Pop_Auxiliary
0164 00d9       |    |		Load_Top	At_Offset_1
0165 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0166 0000 0000  |    |		.XXX[0x2]
0168 ; --------------------------------------------------------------------------------------
0168 ; Debug Table
0168 ; --------------------------------------------------------------------------------------
0168 0004 0006  |    |		.DEBUG4	0x0004,0x0006,0x9a6c,0x0000,0x0001,0x0000
016e 40a8 caf0  |@   |		.XXX[0x92]
0170 e8be 92de  |    |
0172 40c2 dcc8  |@   |
0174 4092 de58  |@  X|
0176 40c4 f200  |@   |
0178 0000 3000  |  0 |
017a 0000 78c2  |  x |
017c 40c6 c2d8  |@   |
017e d840 e8de  | @  |
0180 40de e0ca  |@   |
0182 e4c2 e8d2  |    |
0184 dedc e640  |   @|
0186 e8d0 c2e8  |    |
0188 40ec d2de  |@   |
018a d8c2 e8ca  |    |
018c 40e8 d0ca  |@   |
018e 40d8 d2da  |@   |
0190 d2e8 e640  |   @|
0192 decc 4086  |  @ |
0194 deea dce8  |    |
0196 40c2 dcc8  |@   |
0198 40c4 f200  |@   |
019a 0000 2c00  |  , |
019c 0000 7c40  |  |@|
019e 40c2 40c6  |@ @ |
01a0 c2d8 d840  |   @|
01a2 e8de 40de  |  @ |
01a4 e0ca e4c2  |    |
01a6 e8d2 dedc  |    |
01a8 e640 e8d0  | @  |
01aa c2e8 40ec  |  @ |
01ac d2de d8c2  |    |
01ae e8ca 40e8  |  @ |
01b0 d0ca 40d8  |  @ |
01b2 d2da d2e8  |    |
01b4 e640 decc  | @  |
01b6 4086 deea  |@   |
01b8 dce8 40c2  |  @ |
01ba dcc8 40c4  |  @ |
01bc f200 0000  |    |
01be 2c00 0000  |,   |
01c0 7c40 40c2  ||@@ |
01c2 40c6 c2d8  |@   |
01c4 d840 e8de  | @  |
01c6 40de e0ca  |@   |
01c8 e4c2 e8d2  |    |
01ca dedc e640  |   @|
01cc e8d0 c2e8  |    |
01ce 40ec d2de  |@   |
01d0 d8c2 e8ca  |    |
01d2 40e8 d0ca  |@   |
01d4 40d8 d2da  |@   |
01d6 d2e8 e640  |   @|
01d8 decc 4086  |  @ |
01da deea dce8  |    |
01dc 40c2 dcc8  |@   |
01de 40c4 f200  |@   |
01e0 0000 ae00  |    |
01e2 0000 7cc2  |  | |
01e4 dc40 c2e8  | @  |
01e6 e8ca dae0  |    |
01e8 e840 e8de  | @  |
01ea 40e0 eae8  |@   |
01ec 40e8 dede  |@   |
01ee 40da c2dc  |@   |
01f0 f240 c6d0  | @  |
01f2 c2e4 c2c6  |    |
01f4 e8ca e4e6  |    |
01f6 40e8 de40  |@  @|
01f8 c240 e6e8  | @  |
01fa e4d2 dcce  |    |
01fc 7640 c2d8  |v@  |
01fe e6de 40e4  |  @ |