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

⟦5656d2205⟧

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

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦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 01b8       |    |		.CONST	0x01b8								; 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 001e       |    |		.CONST	0x001e								; 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 e002       |    |		Load	0x0,0x2
000e 02a0       |    |		Declare_Subprogram	Null_Subprogram
000f 4801       |H   |		Short_Literal	0x1
0010 035e       | ^  |		Declare_Type	Array,Defined,Visible
0011 00d8       |    |		Load_Top	At_Offset_0
0012 02a0       |    |		Declare_Subprogram	Null_Subprogram
0013 4818       |H   |		Short_Literal	0x18
0014 03d6       |    |		Declare_Type	Access,Defined,Visible
0015 029a 0023  |   #|		Declare_Subprogram	INIT_0020,For_Outer_Call,Visible,Unelaborated
0017 029a 014b  |   K|		Declare_Subprogram	INIT_0148,For_Outer_Call,Visible,Unelaborated
0019 00bf       |    |		Action	Accept_Activation
001a 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
001b 00c7       |    |		Action	Elaborate_Subprogram
001c 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
001d 00c7       |    |		Action	Elaborate_Subprogram
001e			BODY_0008:
001e 00bc       |    |		Action	Signal_Activated
001f 00bb       |    |		Action	Signal_Completion
0020 ; --------------------------------------------------------------------------------------
0020 ; SUBPROGRAM
0020 ; --------------------------------------------------------------------------------------
0020 004d       | M  |		.CONST	0x004d								; Address of begin
0021 0004       |    |		.CONST	0x0004								; Address of exception handler
0022 0010       |    |		.CONST	0x0010								; Number of locals
0023			INIT_0020:
0023 4800       |H   |		Short_Literal	0x0
0024 4804       |H   |		Short_Literal	0x4
0025 029f 017b  |   {|		Declare_Subprogram	INIT_0178,For_Call
0027 03fd       |    |		Declare_Type	Discrete,Defined
0028 00e2       |    |		Load_Encached	Integer_Cache
0029 00e2       |    |		Load_Encached	Integer_Cache
002a 00e2       |    |		Load_Encached	Integer_Cache
002b 02a0       |    |		Declare_Subprogram	Null_Subprogram
002c 4803       |H   |		Short_Literal	0x3
002d 032d       | -  |		Declare_Type	Record,Defined
002e 4800       |H   |		Short_Literal	0x0
002f 4814       |H   |		Short_Literal	0x14
0030 00da       |    |		Load_Top	At_Offset_2
0031 02a0       |    |		Declare_Subprogram	Null_Subprogram
0032 4801       |H   |		Short_Literal	0x1
0033 035d       | ]  |		Declare_Type	Array,Defined
0034 00d8       |    |		Load_Top	At_Offset_0
0035 0337       | 7  |		Declare_Variable	Array
0036 00e2       |    |		Load_Encached	Integer_Cache
0037 00db       |    |		Load_Top	At_Offset_3
0038 0322       | "  |		Declare_Variable	Record
0039 e402       |    |		Load	0x2,0x2
003a 0007       |    |		Action	Break_Optional
003b 00e2       |    |		Load_Encached	Integer_Cache
003c 00e2       |    |		Load_Encached	Integer_Cache
003d 00e8       |    |		Load_Encached	Character_Cache
003e 00e2       |    |		Load_Encached	Integer_Cache
003f 00e2       |    |		Load_Encached	Integer_Cache
0040 00e2       |    |		Load_Encached	Integer_Cache
0041 00e1       |    |		Load_Encached	Boolean_Cache
0042 e403       |    |		Load	0x2,0x3
0043 0322       | "  |		Declare_Variable	Record
0044 4801       |H   |		Short_Literal	0x1
0045 00d9       |    |		Load_Top	At_Offset_1
0046 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0047 4801       |H   |		Short_Literal	0x1
0048 00d9       |    |		Load_Top	At_Offset_1
0049 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
004a 4801       |H   |		Short_Literal	0x1
004b 00d9       |    |		Load_Top	At_Offset_1
004c 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
004d			BODY_0020:
004d 4800       |H   |		Short_Literal	0x0
004e a406       |    |		Store_Unchecked	0x2,0x6
004f 4800       |H   |		Short_Literal	0x0
0050 a408       |    |		Store_Unchecked	0x2,0x8
0051 00d8       |    |		Load_Top	At_Offset_0
0052 e407       |    |		Load	0x2,0x7
0053 017d       | }  |		Execute	Record,Structure_Write
0054 e5ff       |    |		Load	0x2,-0x1
0055 e003       |    |		Load	0x0,0x3
0056 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0057 a40c       |    |		Store_Unchecked	0x2,0xc
0058 e5fe       |    |		Load	0x2,-0x2
0059 e003       |    |		Load	0x0,0x3
005a 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
005b a40d       |    |		Store_Unchecked	0x2,0xd
005c 00cf       |    |		Action	Mark_Auxiliary
005d 78e4       |x   |		Jump	0x142
005e e40c       |    |		Load	0x2,0xc
005f 0a01       |    |		Execute_Immediate	Plus,0x1
0060 e407       |    |		Load	0x2,0x7
0061 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0062 0272       | r  |		Execute	Discrete,Minus
0063 c409       |    |		Store	0x2,0x9
0064 e40d       |    |		Load	0x2,0xd
0065 0a01       |    |		Execute_Immediate	Plus,0x1
0066 e407       |    |		Load	0x2,0x7
0067 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0068 0272       | r  |		Execute	Discrete,Minus
0069 c40a       |    |		Store	0x2,0xa
006a e40a       |    |		Load	0x2,0xa
006b 7008       |p   |		Jump_Nonzero	0x74
006c e409       |    |		Load	0x2,0x9
006d 7003       |p   |		Jump_Nonzero	0x71
006e 4804       |H   |		Short_Literal	0x4
006f a408       |    |		Store_Unchecked	0x2,0x8
0070 788d       |x   |		Jump	0xfe
0071 4801       |H   |		Short_Literal	0x1
0072 a408       |    |		Store_Unchecked	0x2,0x8
0073 788a       |x   |		Jump	0xfe
0074 4801       |H   |		Short_Literal	0x1
0075 e407       |    |		Load	0x2,0x7
0076 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0077 4801       |H   |		Short_Literal	0x1
0078 a408       |    |		Store_Unchecked	0x2,0x8
0079 e407       |    |		Load	0x2,0x7
007a 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
007b 00d8       |    |		Load_Top	At_Offset_0
007c 00e4       |    |		Load_Encached	Positive_Cache
007d 0260       | `  |		Execute	Discrete,In_Type
007e 7001       |p   |		Jump_Nonzero	0x80
007f 0801       |    |		Execute_Immediate	Raise,0x1
0080 e5fe       |    |		Load	0x2,-0x2
0081 e003       |    |		Load	0x0,0x3
0082 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0083 0f40       | @  |		Execute_Immediate	Equal,0x40
0084 e407       |    |		Load	0x2,0x7
0085 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0086 00d8       |    |		Load_Top	At_Offset_0
0087 00e4       |    |		Load_Encached	Positive_Cache
0088 0260       | `  |		Execute	Discrete,In_Type
0089 7001       |p   |		Jump_Nonzero	0x8b
008a 0801       |    |		Execute_Immediate	Raise,0x1
008b e5fe       |    |		Load	0x2,-0x2
008c e003       |    |		Load	0x0,0x3
008d 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
008e 0f2a       | *  |		Execute_Immediate	Equal,0x2a
008f 0278       | x  |		Execute	Discrete,Or
0090 680a       |h   |		Jump_Zero	0x9b
0091 e40c       |    |		Load	0x2,0xc
0092 0a01       |    |		Execute_Immediate	Plus,0x1
0093 e407       |    |		Load	0x2,0x7
0094 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0095 0272       | r  |		Execute	Discrete,Minus
0096 e407       |    |		Load	0x2,0x7
0097 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0098 4802       |H   |		Short_Literal	0x2
0099 a408       |    |		Store_Unchecked	0x2,0x8
009a 7863       |xc  |		Jump	0xfe
009b e407       |    |		Load	0x2,0x7
009c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
009d 00d8       |    |		Load_Top	At_Offset_0
009e 00e4       |    |		Load_Encached	Positive_Cache
009f 0260       | `  |		Execute	Discrete,In_Type
00a0 7001       |p   |		Jump_Nonzero	0xa2
00a1 0801       |    |		Execute_Immediate	Raise,0x1
00a2 e5fe       |    |		Load	0x2,-0x2
00a3 e003       |    |		Load	0x0,0x3
00a4 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
00a5 0f2d       | -  |		Execute_Immediate	Equal,0x2d
00a6 6828       |h(  |		Jump_Zero	0xcf
00a7 4800       |H   |		Short_Literal	0x0
00a8 e407       |    |		Load	0x2,0x7
00a9 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00aa e407       |    |		Load	0x2,0x7
00ab 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00ac a40e       |    |		Store_Unchecked	0x2,0xe
00ad 00cf       |    |		Action	Mark_Auxiliary
00ae e40e       |    |		Load	0x2,0xe
00af 00d8       |    |		Load_Top	At_Offset_0
00b0 00e4       |    |		Load_Encached	Positive_Cache
00b1 0260       | `  |		Execute	Discrete,In_Type
00b2 7001       |p   |		Jump_Nonzero	0xb4
00b3 0801       |    |		Execute_Immediate	Raise,0x1
00b4 e5ff       |    |		Load	0x2,-0x1
00b5 e003       |    |		Load	0x0,0x3
00b6 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
00b7 0f2e       | .  |		Execute_Immediate	Equal,0x2e
00b8 a40f       |    |		Store_Unchecked	0x2,0xf
00b9 00db       |    |		Load_Top	At_Offset_3
00ba 7005       |p   |		Jump_Nonzero	0xc0
00bb e407       |    |		Load	0x2,0x7
00bc 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00bd 0a01       |    |		Execute_Immediate	Plus,0x1
00be e407       |    |		Load	0x2,0x7
00bf 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00c0 e40e       |    |		Load	0x2,0xe
00c1 0a01       |    |		Execute_Immediate	Plus,0x1
00c2 c40e       |    |		Store	0x2,0xe
00c3 e40e       |    |		Load	0x2,0xe
00c4 e40c       |    |		Load	0x2,0xc
00c5 027d       | }  |		Execute	Discrete,Greater
00c6 e40f       |    |		Load	0x2,0xf
00c7 0278       | x  |		Execute	Discrete,Or
00c8 7002       |p   |		Jump_Nonzero	0xcb
00c9 00c9       |    |		Action	Pop_Auxiliary_Loop
00ca 7fe3       |    |		Jump	0xae
00cb 00ce       |    |		Action	Pop_Auxiliary
00cc 4802       |H   |		Short_Literal	0x2
00cd a408       |    |		Store_Unchecked	0x2,0x8
00ce 782f       |x/  |		Jump	0xfe
00cf e407       |    |		Load	0x2,0x7
00d0 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00d1 00d8       |    |		Load_Top	At_Offset_0
00d2 00e4       |    |		Load_Encached	Positive_Cache
00d3 0260       | `  |		Execute	Discrete,In_Type
00d4 7001       |p   |		Jump_Nonzero	0xd6
00d5 0801       |    |		Execute_Immediate	Raise,0x1
00d6 e5fe       |    |		Load	0x2,-0x2
00d7 e003       |    |		Load	0x0,0x3
00d8 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
00d9 0f26       | &  |		Execute_Immediate	Equal,0x26
00da 6806       |h   |		Jump_Zero	0xe1
00db e409       |    |		Load	0x2,0x9
00dc 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
00dd 6820       |h   |		Jump_Zero	0xfe
00de 4800       |H   |		Short_Literal	0x0
00df a408       |    |		Store_Unchecked	0x2,0x8
00e0 781d       |x   |		Jump	0xfe
00e1 e409       |    |		Load	0x2,0x9
00e2 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
00e3 681a       |h   |		Jump_Zero	0xfe
00e4 e407       |    |		Load	0x2,0x7
00e5 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00e6 00d8       |    |		Load_Top	At_Offset_0
00e7 00e4       |    |		Load_Encached	Positive_Cache
00e8 0260       | `  |		Execute	Discrete,In_Type
00e9 7001       |p   |		Jump_Nonzero	0xeb
00ea 0801       |    |		Execute_Immediate	Raise,0x1
00eb e5ff       |    |		Load	0x2,-0x1
00ec e003       |    |		Load	0x0,0x3
00ed 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
00ee e407       |    |		Load	0x2,0x7
00ef 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00f0 00d8       |    |		Load_Top	At_Offset_0
00f1 00e4       |    |		Load_Encached	Positive_Cache
00f2 0260       | `  |		Execute	Discrete,In_Type
00f3 7001       |p   |		Jump_Nonzero	0xf5
00f4 0801       |    |		Execute_Immediate	Raise,0x1
00f5 e5fe       |    |		Load	0x2,-0x2
00f6 e003       |    |		Load	0x0,0x3
00f7 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
00f8 e004       |    |		Load	0x0,0x4
00f9 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00fa 027f       |    |		Execute	Discrete,Equal
00fb 6802       |h   |		Jump_Zero	0xfe
00fc 4800       |H   |		Short_Literal	0x0
00fd a408       |    |		Store_Unchecked	0x2,0x8
00fe e408       |    |		Load	0x2,0x8
00ff 0f02       |    |		Execute_Immediate	Equal,0x2
0100 6809       |h   |		Jump_Zero	0x10a
0101 e406       |    |		Load	0x2,0x6
0102 0a01       |    |		Execute_Immediate	Plus,0x1
0103 c406       |    |		Store	0x2,0x6
0104 e407       |    |		Load	0x2,0x7
0105 e406       |    |		Load	0x2,0x6
0106 e405       |    |		Load	0x2,0x5
0107 01d6       |    |		Execute	Vector,Field_Write
0108 4800       |H   |		Short_Literal	0x0
0109 a408       |    |		Store_Unchecked	0x2,0x8
010a 00cf       |    |		Action	Mark_Auxiliary
010b 7823       |x#  |		Jump	0x12f
010c e406       |    |		Load	0x2,0x6
010d e405       |    |		Load	0x2,0x5
010e 01d5       |    |		Execute	Vector,Field_Reference
010f e407       |    |		Load	0x2,0x7
0110 017d       | }  |		Execute	Record,Structure_Write
0111 e406       |    |		Load	0x2,0x6
0112 0d01       |    |		Execute_Immediate	Less,0x1
0113 6803       |h   |		Jump_Zero	0x117
0114 4803       |H   |		Short_Literal	0x3
0115 a408       |    |		Store_Unchecked	0x2,0x8
0116 7817       |x   |		Jump	0x12e
0117 e407       |    |		Load	0x2,0x7
0118 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0119 0d01       |    |		Execute_Immediate	Less,0x1
011a 6806       |h   |		Jump_Zero	0x121
011b e406       |    |		Load	0x2,0x6
011c 0aff       |    |		Execute_Immediate	Plus,-0x1
011d c406       |    |		Store	0x2,0x6
011e 4800       |H   |		Short_Literal	0x0
011f a408       |    |		Store_Unchecked	0x2,0x8
0120 780d       |x   |		Jump	0x12e
0121 e407       |    |		Load	0x2,0x7
0122 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0123 0aff       |    |		Execute_Immediate	Plus,-0x1
0124 e407       |    |		Load	0x2,0x7
0125 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0126 e407       |    |		Load	0x2,0x7
0127 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0128 e406       |    |		Load	0x2,0x6
0129 e405       |    |		Load	0x2,0x5
012a 01d5       |    |		Execute	Vector,Field_Reference
012b 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
012c 4800       |H   |		Short_Literal	0x0
012d a408       |    |		Store_Unchecked	0x2,0x8
012e 00c9       |    |		Action	Pop_Auxiliary_Loop
012f e408       |    |		Load	0x2,0x8
0130 0f01       |    |		Execute_Immediate	Equal,0x1
0131 77da       |w   |		Jump_Nonzero	0x10c
0132 00ce       |    |		Action	Pop_Auxiliary
0133 e408       |    |		Load	0x2,0x8
0134 700c       |p   |		Jump_Nonzero	0x141
0135 e407       |    |		Load	0x2,0x7
0136 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0137 e407       |    |		Load	0x2,0x7
0138 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0139 0273       | s  |		Execute	Discrete,Plus
013a e407       |    |		Load	0x2,0x7
013b 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
013c e407       |    |		Load	0x2,0x7
013d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
013e 0a01       |    |		Execute_Immediate	Plus,0x1
013f e407       |    |		Load	0x2,0x7
0140 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0141 00c9       |    |		Action	Pop_Auxiliary_Loop
0142 e408       |    |		Load	0x2,0x8
0143 6f1a       |o   |		Jump_Zero	0x5e
0144 00ce       |    |		Action	Pop_Auxiliary
0145 e408       |    |		Load	0x2,0x8
0146 0f04       |    |		Execute_Immediate	Equal,0x4
0147 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014e       | N  |		.CONST	0x014e								; Address of begin
0149 0004       |    |		.CONST	0x0004								; Address of exception handler
014a 0004       |    |		.CONST	0x0004								; Number of locals
014b			INIT_0148:
014b 00e8       |    |		Load_Encached	Character_Cache
014c 00e4       |    |		Load_Encached	Positive_Cache
014d 00e1       |    |		Load_Encached	Boolean_Cache
014e			BODY_0148:
014e 4801       |H   |		Short_Literal	0x1
014f 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0150 00cf       |    |		Action	Mark_Auxiliary
0151 e5ff       |    |		Load	0x2,-0x1
0152 e003       |    |		Load	0x0,0x3
0153 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0154 4801       |H   |		Short_Literal	0x1
0155 0263       | c  |		Execute	Discrete,Above_Bound
0156 7015       |p   |		Jump_Nonzero	0x16c
0157 00d8       |    |		Load_Top	At_Offset_0
0158 e5ff       |    |		Load	0x2,-0x1
0159 e003       |    |		Load	0x0,0x3
015a 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
015b a402       |    |		Store_Unchecked	0x2,0x2
015c e402       |    |		Load	0x2,0x2
015d 0f40       | @  |		Execute_Immediate	Equal,0x40
015e e402       |    |		Load	0x2,0x2
015f 0f2a       | *  |		Execute_Immediate	Equal,0x2a
0160 0278       | x  |		Execute	Discrete,Or
0161 e402       |    |		Load	0x2,0x2
0162 0f26       | &  |		Execute_Immediate	Equal,0x26
0163 0278       | x  |		Execute	Discrete,Or
0164 e402       |    |		Load	0x2,0x2
0165 0f2d       | -  |		Execute_Immediate	Equal,0x2d
0166 0278       | x  |		Execute	Discrete,Or
0167 6802       |h   |		Jump_Zero	0x16a
0168 00db       |    |		Load_Top	At_Offset_3
0169 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
016a 00c8       |    |		Action	Pop_Auxiliary_Range
016b 3feb       |?   |		Loop_Increasing	0x157
016c 00ce       |    |		Action	Pop_Auxiliary
016d 4800       |H   |		Short_Literal	0x0
016e 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
016f 00d8       |    |		Load_Top	At_Offset_0
0170 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0171 0000 0000  |    |		.BLANK	0000[0x7]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b       | {  |		.CONST	0x017b								; Address of begin
0179 0004       |    |		.CONST	0x0004								; Address of exception handler
017a 0001       |    |		.CONST	0x0001								; Number of locals
017b			BODY_0178:
017b			INIT_0178:
017b 4607       |F   |		Jump_Case	0x8
017c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
017d 7807       |x   |		Jump	0x185								; case 0x1
017e 780a       |x   |		Jump	0x189								; case 0x2
017f 780e       |x   |		Jump	0x18e								; case 0x3
0180 7811       |x   |		Jump	0x192								; case 0x4
0181 7812       |x   |		Jump	0x194								; case 0x5
0182 7813       |x   |		Jump	0x196								; case 0x6
0183 7816       |x   |		Jump	0x19a								; case 0x7
0184 4302       |C   |		.XXX[0x1]
0185 00da       |    |		Load_Top	At_Offset_2
0186 0091 019e  |    |		Action	Push_String_Extended_Indexed,0x19e				; "CONTINUE"
0188 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0189 00db       |    |		Load_Top	At_Offset_3
018a 00db       |    |		Load_Top	At_Offset_3
018b 00e0       |    |		Load_Encached	Standard_Cache
018c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
018d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
018e 00da       |    |		Load_Top	At_Offset_2
018f 00e0       |    |		Load_Encached	Standard_Cache
0190 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0191 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0192 00db       |    |		Load_Top	At_Offset_3
0193 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0194 00db       |    |		Load_Top	At_Offset_3
0195 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0196 e402       |    |		Load	0x2,0x2
0197 00dc       |    |		Load_Top	At_Offset_4
0198 0267       | g  |		Execute	Discrete,Predecessor
0199 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
019a e402       |    |		Load	0x2,0x2
019b 00dc       |    |		Load_Top	At_Offset_4
019c 0268       | h  |		Execute	Discrete,Successor
019d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
019e ; --------------------------------------------------------------------------------------
019e ; STRING TABLE
019e ; --------------------------------------------------------------------------------------
019e 000c       |    |		.STRTAB	0x000c->0x01a4							; "CONTINUE"
019f 0012       |    |		.STRTAB	0x0012->0x01a8							; "BACKUP"
01a0 0016       |    |		.STRTAB	0x0016->0x01ab							; "STACK"
01a1 0019       |    |		.STRTAB	0x0019->0x01ad							; "FAIL"
01a2 001b       |    |		.STRTAB	0x001b->0x01af							; "SUCCEED"
01a3 0020       |    |		.STREND 0x0020->0x01b3
01a4 434f 4e54  |CONT|		.STRTAB_STRINGS
01b3 0000 0000  |    |		.BLANK	0000[0x5]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; Debug Table
01b8 ; --------------------------------------------------------------------------------------
01b8 0004 0012  |    |		.DEBUG4	0x0004,0x0012,0x2fd9,0x0000,0x0001,0x0000
01be 0000 0000  |    |		.BLANK	0000[0x42]