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

⟦4888132a8⟧

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

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 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 8001       |    |		.CONST	0x8001								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 001f       |    |		.CONST	0x001f								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0010       |    |		.CONST	0x0010								; Number of locals
000b			INIT_0008:
000b 4800       |H   |		Short_Literal	0x0
000c 4804       |H   |		Short_Literal	0x4
000d e001       |    |		Load	0x0,0x1
000e 1b26       | &  |		Execute	Package,Field_Read,Field_Number 0x26
000f 02a0       |    |		Declare_Subprogram	Null_Subprogram
0010 4801       |H   |		Short_Literal	0x1
0011 035e       | ^  |		Declare_Type	Array,Defined,Visible
0012 00d8       |    |		Load_Top	At_Offset_0
0013 02a0       |    |		Declare_Subprogram	Null_Subprogram
0014 4818       |H   |		Short_Literal	0x18
0015 03d6       |    |		Declare_Type	Access,Defined,Visible
0016 029a 002b  |   +|		Declare_Subprogram	INIT_0028,For_Outer_Call,Visible,Unelaborated
0018 029a 0153  |   S|		Declare_Subprogram	INIT_0150,For_Outer_Call,Visible,Unelaborated
001a 00bf       |    |		Action	Accept_Activation
001b 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
001c 00c7       |    |		Action	Elaborate_Subprogram
001d 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
001e 00c7       |    |		Action	Elaborate_Subprogram
001f			BODY_0008:
001f 00bc       |    |		Action	Signal_Activated
0020 00bb       |    |		Action	Signal_Completion
0021 0000 0000  |    |		.BLANK	0000[0x7]
0028 ; --------------------------------------------------------------------------------------
0028 ; SUBPROGRAM
0028 ; --------------------------------------------------------------------------------------
0028 0055       | U  |		.CONST	0x0055								; Address of begin
0029 0004       |    |		.CONST	0x0004								; Address of exception handler
002a 0010       |    |		.CONST	0x0010								; Number of locals
002b			INIT_0028:
002b 4800       |H   |		Short_Literal	0x0
002c 4804       |H   |		Short_Literal	0x4
002d 029f 0183  |    |		Declare_Subprogram	INIT_0180,For_Call
002f 03fd       |    |		Declare_Type	Discrete,Defined
0030 00e2       |    |		Load_Encached	Integer_Cache
0031 00e2       |    |		Load_Encached	Integer_Cache
0032 00e2       |    |		Load_Encached	Integer_Cache
0033 02a0       |    |		Declare_Subprogram	Null_Subprogram
0034 4803       |H   |		Short_Literal	0x3
0035 032d       | -  |		Declare_Type	Record,Defined
0036 4800       |H   |		Short_Literal	0x0
0037 4814       |H   |		Short_Literal	0x14
0038 00da       |    |		Load_Top	At_Offset_2
0039 02a0       |    |		Declare_Subprogram	Null_Subprogram
003a 4801       |H   |		Short_Literal	0x1
003b 035d       | ]  |		Declare_Type	Array,Defined
003c 00d8       |    |		Load_Top	At_Offset_0
003d 0337       | 7  |		Declare_Variable	Array
003e 00e2       |    |		Load_Encached	Integer_Cache
003f 00db       |    |		Load_Top	At_Offset_3
0040 0322       | "  |		Declare_Variable	Record
0041 e402       |    |		Load	0x2,0x2
0042 0007       |    |		Action	Break_Optional
0043 00e2       |    |		Load_Encached	Integer_Cache
0044 00e2       |    |		Load_Encached	Integer_Cache
0045 00e8       |    |		Load_Encached	Character_Cache
0046 00e2       |    |		Load_Encached	Integer_Cache
0047 00e2       |    |		Load_Encached	Integer_Cache
0048 00e2       |    |		Load_Encached	Integer_Cache
0049 00e1       |    |		Load_Encached	Boolean_Cache
004a e403       |    |		Load	0x2,0x3
004b 0322       | "  |		Declare_Variable	Record
004c 4801       |H   |		Short_Literal	0x1
004d 00d9       |    |		Load_Top	At_Offset_1
004e 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
004f 4801       |H   |		Short_Literal	0x1
0050 00d9       |    |		Load_Top	At_Offset_1
0051 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0052 4801       |H   |		Short_Literal	0x1
0053 00d9       |    |		Load_Top	At_Offset_1
0054 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0055			BODY_0028:
0055 4800       |H   |		Short_Literal	0x0
0056 a406       |    |		Store_Unchecked	0x2,0x6
0057 4800       |H   |		Short_Literal	0x0
0058 a408       |    |		Store_Unchecked	0x2,0x8
0059 00d8       |    |		Load_Top	At_Offset_0
005a e407       |    |		Load	0x2,0x7
005b 017d       | }  |		Execute	Record,Structure_Write
005c e5ff       |    |		Load	0x2,-0x1
005d e002       |    |		Load	0x0,0x2
005e 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
005f a40c       |    |		Store_Unchecked	0x2,0xc
0060 e5fe       |    |		Load	0x2,-0x2
0061 e002       |    |		Load	0x0,0x2
0062 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0063 a40d       |    |		Store_Unchecked	0x2,0xd
0064 00cf       |    |		Action	Mark_Auxiliary
0065 78e4       |x   |		Jump	0x14a
0066 e40c       |    |		Load	0x2,0xc
0067 0a01       |    |		Execute_Immediate	Plus,0x1
0068 e407       |    |		Load	0x2,0x7
0069 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
006a 0272       | r  |		Execute	Discrete,Minus
006b c409       |    |		Store	0x2,0x9
006c e40d       |    |		Load	0x2,0xd
006d 0a01       |    |		Execute_Immediate	Plus,0x1
006e e407       |    |		Load	0x2,0x7
006f 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0070 0272       | r  |		Execute	Discrete,Minus
0071 c40a       |    |		Store	0x2,0xa
0072 e40a       |    |		Load	0x2,0xa
0073 7008       |p   |		Jump_Nonzero	0x7c
0074 e409       |    |		Load	0x2,0x9
0075 7003       |p   |		Jump_Nonzero	0x79
0076 4804       |H   |		Short_Literal	0x4
0077 a408       |    |		Store_Unchecked	0x2,0x8
0078 788d       |x   |		Jump	0x106
0079 4801       |H   |		Short_Literal	0x1
007a a408       |    |		Store_Unchecked	0x2,0x8
007b 788a       |x   |		Jump	0x106
007c 4801       |H   |		Short_Literal	0x1
007d e407       |    |		Load	0x2,0x7
007e 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
007f 4801       |H   |		Short_Literal	0x1
0080 a408       |    |		Store_Unchecked	0x2,0x8
0081 e407       |    |		Load	0x2,0x7
0082 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0083 00d8       |    |		Load_Top	At_Offset_0
0084 00e4       |    |		Load_Encached	Positive_Cache
0085 0260       | `  |		Execute	Discrete,In_Type
0086 7001       |p   |		Jump_Nonzero	0x88
0087 0801       |    |		Execute_Immediate	Raise,0x1
0088 e5fe       |    |		Load	0x2,-0x2
0089 e002       |    |		Load	0x0,0x2
008a 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
008b 0f40       | @  |		Execute_Immediate	Equal,0x40
008c e407       |    |		Load	0x2,0x7
008d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
008e 00d8       |    |		Load_Top	At_Offset_0
008f 00e4       |    |		Load_Encached	Positive_Cache
0090 0260       | `  |		Execute	Discrete,In_Type
0091 7001       |p   |		Jump_Nonzero	0x93
0092 0801       |    |		Execute_Immediate	Raise,0x1
0093 e5fe       |    |		Load	0x2,-0x2
0094 e002       |    |		Load	0x0,0x2
0095 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0096 0f2a       | *  |		Execute_Immediate	Equal,0x2a
0097 0278       | x  |		Execute	Discrete,Or
0098 680a       |h   |		Jump_Zero	0xa3
0099 e40c       |    |		Load	0x2,0xc
009a 0a01       |    |		Execute_Immediate	Plus,0x1
009b e407       |    |		Load	0x2,0x7
009c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
009d 0272       | r  |		Execute	Discrete,Minus
009e e407       |    |		Load	0x2,0x7
009f 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00a0 4802       |H   |		Short_Literal	0x2
00a1 a408       |    |		Store_Unchecked	0x2,0x8
00a2 7863       |xc  |		Jump	0x106
00a3 e407       |    |		Load	0x2,0x7
00a4 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00a5 00d8       |    |		Load_Top	At_Offset_0
00a6 00e4       |    |		Load_Encached	Positive_Cache
00a7 0260       | `  |		Execute	Discrete,In_Type
00a8 7001       |p   |		Jump_Nonzero	0xaa
00a9 0801       |    |		Execute_Immediate	Raise,0x1
00aa e5fe       |    |		Load	0x2,-0x2
00ab e002       |    |		Load	0x0,0x2
00ac 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
00ad 0f2d       | -  |		Execute_Immediate	Equal,0x2d
00ae 6828       |h(  |		Jump_Zero	0xd7
00af 4800       |H   |		Short_Literal	0x0
00b0 e407       |    |		Load	0x2,0x7
00b1 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00b2 e407       |    |		Load	0x2,0x7
00b3 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00b4 a40e       |    |		Store_Unchecked	0x2,0xe
00b5 00cf       |    |		Action	Mark_Auxiliary
00b6 e40e       |    |		Load	0x2,0xe
00b7 00d8       |    |		Load_Top	At_Offset_0
00b8 00e4       |    |		Load_Encached	Positive_Cache
00b9 0260       | `  |		Execute	Discrete,In_Type
00ba 7001       |p   |		Jump_Nonzero	0xbc
00bb 0801       |    |		Execute_Immediate	Raise,0x1
00bc e5ff       |    |		Load	0x2,-0x1
00bd e002       |    |		Load	0x0,0x2
00be 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
00bf 0f2e       | .  |		Execute_Immediate	Equal,0x2e
00c0 a40f       |    |		Store_Unchecked	0x2,0xf
00c1 00db       |    |		Load_Top	At_Offset_3
00c2 7005       |p   |		Jump_Nonzero	0xc8
00c3 e407       |    |		Load	0x2,0x7
00c4 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00c5 0a01       |    |		Execute_Immediate	Plus,0x1
00c6 e407       |    |		Load	0x2,0x7
00c7 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00c8 e40e       |    |		Load	0x2,0xe
00c9 0a01       |    |		Execute_Immediate	Plus,0x1
00ca c40e       |    |		Store	0x2,0xe
00cb e40e       |    |		Load	0x2,0xe
00cc e40c       |    |		Load	0x2,0xc
00cd 027d       | }  |		Execute	Discrete,Greater
00ce e40f       |    |		Load	0x2,0xf
00cf 0278       | x  |		Execute	Discrete,Or
00d0 7002       |p   |		Jump_Nonzero	0xd3
00d1 00c9       |    |		Action	Pop_Auxiliary_Loop
00d2 7fe3       |    |		Jump	0xb6
00d3 00ce       |    |		Action	Pop_Auxiliary
00d4 4802       |H   |		Short_Literal	0x2
00d5 a408       |    |		Store_Unchecked	0x2,0x8
00d6 782f       |x/  |		Jump	0x106
00d7 e407       |    |		Load	0x2,0x7
00d8 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00d9 00d8       |    |		Load_Top	At_Offset_0
00da 00e4       |    |		Load_Encached	Positive_Cache
00db 0260       | `  |		Execute	Discrete,In_Type
00dc 7001       |p   |		Jump_Nonzero	0xde
00dd 0801       |    |		Execute_Immediate	Raise,0x1
00de e5fe       |    |		Load	0x2,-0x2
00df e002       |    |		Load	0x0,0x2
00e0 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
00e1 0f26       | &  |		Execute_Immediate	Equal,0x26
00e2 6806       |h   |		Jump_Zero	0xe9
00e3 e409       |    |		Load	0x2,0x9
00e4 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
00e5 6820       |h   |		Jump_Zero	0x106
00e6 4800       |H   |		Short_Literal	0x0
00e7 a408       |    |		Store_Unchecked	0x2,0x8
00e8 781d       |x   |		Jump	0x106
00e9 e409       |    |		Load	0x2,0x9
00ea 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
00eb 681a       |h   |		Jump_Zero	0x106
00ec e407       |    |		Load	0x2,0x7
00ed 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00ee 00d8       |    |		Load_Top	At_Offset_0
00ef 00e4       |    |		Load_Encached	Positive_Cache
00f0 0260       | `  |		Execute	Discrete,In_Type
00f1 7001       |p   |		Jump_Nonzero	0xf3
00f2 0801       |    |		Execute_Immediate	Raise,0x1
00f3 e5ff       |    |		Load	0x2,-0x1
00f4 e002       |    |		Load	0x0,0x2
00f5 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
00f6 e407       |    |		Load	0x2,0x7
00f7 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00f8 00d8       |    |		Load_Top	At_Offset_0
00f9 00e4       |    |		Load_Encached	Positive_Cache
00fa 0260       | `  |		Execute	Discrete,In_Type
00fb 7001       |p   |		Jump_Nonzero	0xfd
00fc 0801       |    |		Execute_Immediate	Raise,0x1
00fd e5fe       |    |		Load	0x2,-0x2
00fe e002       |    |		Load	0x0,0x2
00ff 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0100 e003       |    |		Load	0x0,0x3
0101 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0102 027f       |    |		Execute	Discrete,Equal
0103 6802       |h   |		Jump_Zero	0x106
0104 4800       |H   |		Short_Literal	0x0
0105 a408       |    |		Store_Unchecked	0x2,0x8
0106 e408       |    |		Load	0x2,0x8
0107 0f02       |    |		Execute_Immediate	Equal,0x2
0108 6809       |h   |		Jump_Zero	0x112
0109 e406       |    |		Load	0x2,0x6
010a 0a01       |    |		Execute_Immediate	Plus,0x1
010b c406       |    |		Store	0x2,0x6
010c e407       |    |		Load	0x2,0x7
010d e406       |    |		Load	0x2,0x6
010e e405       |    |		Load	0x2,0x5
010f 01d6       |    |		Execute	Vector,Field_Write
0110 4800       |H   |		Short_Literal	0x0
0111 a408       |    |		Store_Unchecked	0x2,0x8
0112 00cf       |    |		Action	Mark_Auxiliary
0113 7823       |x#  |		Jump	0x137
0114 e406       |    |		Load	0x2,0x6
0115 e405       |    |		Load	0x2,0x5
0116 01d5       |    |		Execute	Vector,Field_Reference
0117 e407       |    |		Load	0x2,0x7
0118 017d       | }  |		Execute	Record,Structure_Write
0119 e406       |    |		Load	0x2,0x6
011a 0d01       |    |		Execute_Immediate	Less,0x1
011b 6803       |h   |		Jump_Zero	0x11f
011c 4803       |H   |		Short_Literal	0x3
011d a408       |    |		Store_Unchecked	0x2,0x8
011e 7817       |x   |		Jump	0x136
011f e407       |    |		Load	0x2,0x7
0120 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0121 0d01       |    |		Execute_Immediate	Less,0x1
0122 6806       |h   |		Jump_Zero	0x129
0123 e406       |    |		Load	0x2,0x6
0124 0aff       |    |		Execute_Immediate	Plus,-0x1
0125 c406       |    |		Store	0x2,0x6
0126 4800       |H   |		Short_Literal	0x0
0127 a408       |    |		Store_Unchecked	0x2,0x8
0128 780d       |x   |		Jump	0x136
0129 e407       |    |		Load	0x2,0x7
012a 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
012b 0aff       |    |		Execute_Immediate	Plus,-0x1
012c e407       |    |		Load	0x2,0x7
012d 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
012e e407       |    |		Load	0x2,0x7
012f 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0130 e406       |    |		Load	0x2,0x6
0131 e405       |    |		Load	0x2,0x5
0132 01d5       |    |		Execute	Vector,Field_Reference
0133 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0134 4800       |H   |		Short_Literal	0x0
0135 a408       |    |		Store_Unchecked	0x2,0x8
0136 00c9       |    |		Action	Pop_Auxiliary_Loop
0137 e408       |    |		Load	0x2,0x8
0138 0f01       |    |		Execute_Immediate	Equal,0x1
0139 77da       |w   |		Jump_Nonzero	0x114
013a 00ce       |    |		Action	Pop_Auxiliary
013b e408       |    |		Load	0x2,0x8
013c 700c       |p   |		Jump_Nonzero	0x149
013d e407       |    |		Load	0x2,0x7
013e 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
013f e407       |    |		Load	0x2,0x7
0140 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0141 0273       | s  |		Execute	Discrete,Plus
0142 e407       |    |		Load	0x2,0x7
0143 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0144 e407       |    |		Load	0x2,0x7
0145 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0146 0a01       |    |		Execute_Immediate	Plus,0x1
0147 e407       |    |		Load	0x2,0x7
0148 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0149 00c9       |    |		Action	Pop_Auxiliary_Loop
014a e408       |    |		Load	0x2,0x8
014b 6f1a       |o   |		Jump_Zero	0x66
014c 00ce       |    |		Action	Pop_Auxiliary
014d e408       |    |		Load	0x2,0x8
014e 0f04       |    |		Execute_Immediate	Equal,0x4
014f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0156       | V  |		.CONST	0x0156								; Address of begin
0151 0004       |    |		.CONST	0x0004								; Address of exception handler
0152 0004       |    |		.CONST	0x0004								; Number of locals
0153			INIT_0150:
0153 00e8       |    |		Load_Encached	Character_Cache
0154 00e4       |    |		Load_Encached	Positive_Cache
0155 00e1       |    |		Load_Encached	Boolean_Cache
0156			BODY_0150:
0156 4801       |H   |		Short_Literal	0x1
0157 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0158 00cf       |    |		Action	Mark_Auxiliary
0159 e5ff       |    |		Load	0x2,-0x1
015a e002       |    |		Load	0x0,0x2
015b 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
015c 4801       |H   |		Short_Literal	0x1
015d 0263       | c  |		Execute	Discrete,Above_Bound
015e 7015       |p   |		Jump_Nonzero	0x174
015f 00d8       |    |		Load_Top	At_Offset_0
0160 e5ff       |    |		Load	0x2,-0x1
0161 e002       |    |		Load	0x0,0x2
0162 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0163 a402       |    |		Store_Unchecked	0x2,0x2
0164 e402       |    |		Load	0x2,0x2
0165 0f40       | @  |		Execute_Immediate	Equal,0x40
0166 e402       |    |		Load	0x2,0x2
0167 0f2a       | *  |		Execute_Immediate	Equal,0x2a
0168 0278       | x  |		Execute	Discrete,Or
0169 e402       |    |		Load	0x2,0x2
016a 0f26       | &  |		Execute_Immediate	Equal,0x26
016b 0278       | x  |		Execute	Discrete,Or
016c e402       |    |		Load	0x2,0x2
016d 0f2d       | -  |		Execute_Immediate	Equal,0x2d
016e 0278       | x  |		Execute	Discrete,Or
016f 6802       |h   |		Jump_Zero	0x172
0170 00db       |    |		Load_Top	At_Offset_3
0171 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0172 00c8       |    |		Action	Pop_Auxiliary_Range
0173 3feb       |?   |		Loop_Increasing	0x15f
0174 00ce       |    |		Action	Pop_Auxiliary
0175 4800       |H   |		Short_Literal	0x0
0176 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0177 00d8       |    |		Load_Top	At_Offset_0
0178 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0179 0000 0000  |    |		.BLANK	0000[0x7]
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 4607       |F   |		Jump_Case	0x8
0184 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0185 7806       |x   |		Jump	0x18c								; case 0x1
0186 7809       |x   |		Jump	0x190								; case 0x2
0187 780d       |x   |		Jump	0x195								; case 0x3
0188 7810       |x   |		Jump	0x199								; case 0x4
0189 7811       |x   |		Jump	0x19b								; case 0x5
018a 7812       |x   |		Jump	0x19d								; case 0x6
018b 7815       |x   |		Jump	0x1a1								; case 0x7
018c 00da       |    |		Load_Top	At_Offset_2
018d 0091 01a5  |    |		Action	Push_String_Extended_Indexed,0x1a5				; "CONTINUE"
018f 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0190 00db       |    |		Load_Top	At_Offset_3
0191 00db       |    |		Load_Top	At_Offset_3
0192 00e0       |    |		Load_Encached	Standard_Cache
0193 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0194 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0195 00da       |    |		Load_Top	At_Offset_2
0196 00e0       |    |		Load_Encached	Standard_Cache
0197 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0198 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0199 00db       |    |		Load_Top	At_Offset_3
019a 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
019b 00db       |    |		Load_Top	At_Offset_3
019c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
019d e402       |    |		Load	0x2,0x2
019e 00dc       |    |		Load_Top	At_Offset_4
019f 0267       | g  |		Execute	Discrete,Predecessor
01a0 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01a1 e402       |    |		Load	0x2,0x2
01a2 00dc       |    |		Load_Top	At_Offset_4
01a3 0268       | h  |		Execute	Discrete,Successor
01a4 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
01a5 ; --------------------------------------------------------------------------------------
01a5 ; STRING TABLE
01a5 ; --------------------------------------------------------------------------------------
01a5 000c       |    |		.STRTAB	0x000c->0x01ab							; "CONTINUE"
01a6 0012       |    |		.STRTAB	0x0012->0x01af							; "BACKUP"
01a7 0016       |    |		.STRTAB	0x0016->0x01b2							; "STACK"
01a8 0019       |    |		.STRTAB	0x0019->0x01b4							; "FAIL"
01a9 001b       |    |		.STRTAB	0x001b->0x01b6							; "SUCCEED"
01aa 0020       |    |		.STREND 0x0020->0x01ba
01ab 434f 4e54  |CONT|		.STRTAB_STRINGS
01ba 0000 0000  |    |		.BLANK	0000[0x6]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; Debug Table
01c0 ; --------------------------------------------------------------------------------------
01c0 0004 0010  |    |		.DEBUG4	0x0004,0x0010,0x8b49,0x0000,0x0001,0x0000
01c6 2020 2020  |    |		.BLANK	2020[0x11]
01d7 2000 0000  |    |		.XXX[0xb]
01d9 0100 0000  |    |
01db 0100 0000  |    |
01dd 0300 01a2  |    |
01df cc00 0000  |    |
01e1 0200       |    |
01e2 0000 0000  |    |		.BLANK	0000[0xb]
01ed 00c3 c000  |    |		.XXX[0x13]
01ef 0004 8000  |    |
01f1 0000 0000  |    |
01f3 0001 8000  |    |
01f5 0009 0000  |    |
01f7 0000 0000  |    |
01f9 0002 0000  |    |
01fb 0000 0000  |    |
01fd 2000 0002  |    |
01ff 4000       |@   |