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

⟦fec483153⟧

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

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 01c8       |    |		.CONST	0x01c8								; 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 0017       |    |		.CONST	0x0017								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0006       |    |		.CONST	0x0006								; Number of locals
000b			INIT_0008:
000b e09c       |    |		Load	0x0,0x9c
000c 1b1e       |    |		Execute	Package,Field_Read,Field_Number 0x1e
000d e011       |    |		Load	0x0,0x11
000e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
000f e033       | 3  |		Load	0x0,0x33
0010 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0011 0322       | "  |		Declare_Variable	Record
0012 00d8       |    |		Load_Top	At_Offset_0
0013 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0014 00e2       |    |		Load_Encached	Integer_Cache
0015 029f 011b  |    |		Declare_Subprogram	INIT_0118,For_Call
0017			BODY_0008:
0017 e5ff       |    |		Load	0x2,-0x1
0018 e011       |    |		Load	0x0,0x11
0019 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
001a 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
001b e09c       |    |		Load	0x0,0x9c
001c 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
001d a402       |    |		Store_Unchecked	0x2,0x2
001e e402       |    |		Load	0x2,0x2
001f e09c       |    |		Load	0x0,0x9c
0020 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0021 e5ff       |    |		Load	0x2,-0x1
0022 e011       |    |		Load	0x0,0x11
0023 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0024 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0025 0e00       |    |		Execute_Immediate	Not_Equal,0x0
0026 0279       | y  |		Execute	Discrete,And
0027 6805       |h   |		Jump_Zero	0x2d
0028 0092 0187  |    |		Action	Push_String_Extended,0x187					; "Argument to Value was unrecognizable"
002a e01c       |    |		Load	0x0,0x1c
002b 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
002c 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
002d 4801       |H   |		Short_Literal	0x1
002e e402       |    |		Load	0x2,0x2
002f e09c       |    |		Load	0x0,0x9c
0030 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0031 700a       |p   |		Jump_Nonzero	0x3c
0032 0092 0188  |    |		Action	Push_String_Extended,0x188					; "Value"
0034 4800       |H   |		Short_Literal	0x0
0035 e402       |    |		Load	0x2,0x2
0036 e09c       |    |		Load	0x0,0x9c
0037 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0038 01cc       |    |		Execute	Vector,Catenate
0039 e01c       |    |		Load	0x0,0x1c
003a 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
003b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
003c 4800       |H   |		Short_Literal	0x0
003d 4801       |H   |		Short_Literal	0x1
003e 4801       |H   |		Short_Literal	0x1
003f e402       |    |		Load	0x2,0x2
0040 e09d       |    |		Load	0x0,0x9d
0041 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0042 460c       |F   |		Jump_Case	0xd
0043 78c2       |x   |		Jump	0x106								; case 0x0
0044 7814       |x   |		Jump	0x59								; case 0x1
0045 781b       |x   |		Jump	0x61								; case 0x2
0046 7821       |x!  |		Jump	0x68								; case 0x3
0047 782b       |x+  |		Jump	0x73								; case 0x4
0048 7831       |x1  |		Jump	0x7a								; case 0x5
0049 7830       |x0  |		Jump	0x7a								; case 0x6
004a 7854       |xT  |		Jump	0x9f								; case 0x7
004b 7853       |xS  |		Jump	0x9f								; case 0x8
004c 788e       |x   |		Jump	0xdb								; case 0x9
004d 788d       |x   |		Jump	0xdb								; case 0xa
004e 7832       |x2  |		Jump	0x81								; case 0xb
004f 7800       |x   |		Jump	0x50								; case 0xc
0050 e095       |    |		Load	0x0,0x95
0051 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0052 e095       |    |		Load	0x0,0x95
0053 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0054 e011       |    |		Load	0x0,0x11
0055 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0056 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0057 a403       |    |		Store_Unchecked	0x2,0x3
0058 78ad       |x   |		Jump	0x106
0059 e09e       |    |		Load	0x0,0x9e
005a 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
005b 8406       |    |		Call	0x2,0x6
005c e011       |    |		Load	0x0,0x11
005d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
005e 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
005f a403       |    |		Store_Unchecked	0x2,0x3
0060 78a5       |x   |		Jump	0x106
0061 e09f       |    |		Load	0x0,0x9f
0062 8406       |    |		Call	0x2,0x6
0063 e011       |    |		Load	0x0,0x11
0064 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0065 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0066 a403       |    |		Store_Unchecked	0x2,0x3
0067 789e       |x   |		Jump	0x106
0068 e068       | h  |		Load	0x0,0x68
0069 e09e       |    |		Load	0x0,0x9e
006a 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
006b 8406       |    |		Call	0x2,0x6
006c e011       |    |		Load	0x0,0x11
006d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
006e 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
006f a403       |    |		Store_Unchecked	0x2,0x3
0070 4801       |H   |		Short_Literal	0x1
0071 c06a       | j  |		Store	0x0,0x6a
0072 7893       |x   |		Jump	0x106
0073 e403       |    |		Load	0x2,0x3
0074 e06d       | m  |		Load	0x0,0x6d
0075 e011       |    |		Load	0x0,0x11
0076 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0077 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0078 c403       |    |		Store	0x2,0x3
0079 788c       |x   |		Jump	0x106
007a e403       |    |		Load	0x2,0x3
007b e0a0       |    |		Load	0x0,0xa0
007c e011       |    |		Load	0x0,0x11
007d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
007e 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
007f c403       |    |		Store	0x2,0x3
0080 7885       |x   |		Jump	0x106
0081 4801       |H   |		Short_Literal	0x1
0082 e018       |    |		Load	0x0,0x18
0083 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0084 01d7       |    |		Execute	Vector,Field_Read
0085 6880       |h   |		Jump_Zero	0x106
0086 e018       |    |		Load	0x0,0x18
0087 e404       |    |		Load	0x2,0x4
0088 017d       | }  |		Execute	Record,Structure_Write
0089 4804       |H   |		Short_Literal	0x4
008a e402       |    |		Load	0x2,0x2
008b e09c       |    |		Load	0x0,0x9c
008c 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
008d 680a       |h   |		Jump_Zero	0x98
008e 00ea       |    |		Load_Encached	Null_String_Cache
008f 4804       |H   |		Short_Literal	0x4
0090 e402       |    |		Load	0x2,0x2
0091 e09c       |    |		Load	0x0,0x9c
0092 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0093 e011       |    |		Load	0x0,0x11
0094 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0095 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0096 e404       |    |		Load	0x2,0x4
0097 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0098 e403       |    |		Load	0x2,0x3
0099 e404       |    |		Load	0x2,0x4
009a e033       | 3  |		Load	0x0,0x33
009b 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
009c 00d1       |    |		Pop_Control	Pop_Count_1
009d c403       |    |		Store	0x2,0x3
009e 7867       |xg  |		Jump	0x106
009f e03d       | =  |		Load	0x0,0x3d
00a0 e404       |    |		Load	0x2,0x4
00a1 017d       | }  |		Execute	Record,Structure_Write
00a2 4804       |H   |		Short_Literal	0x4
00a3 e402       |    |		Load	0x2,0x2
00a4 e09c       |    |		Load	0x0,0x9c
00a5 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
00a6 680a       |h   |		Jump_Zero	0xb1
00a7 00ea       |    |		Load_Encached	Null_String_Cache
00a8 4804       |H   |		Short_Literal	0x4
00a9 e402       |    |		Load	0x2,0x2
00aa e09c       |    |		Load	0x0,0x9c
00ab 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
00ac e011       |    |		Load	0x0,0x11
00ad 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00ae 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
00af e404       |    |		Load	0x2,0x4
00b0 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00b1 4805       |H   |		Short_Literal	0x5
00b2 e402       |    |		Load	0x2,0x2
00b3 e09c       |    |		Load	0x0,0x9c
00b4 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
00b5 6814       |h   |		Jump_Zero	0xca
00b6 6059       |`Y  |		Indirect_Literal	Discrete,0x110,{0x00000000, 0x7fffffff}
00b7 4805       |H   |		Short_Literal	0x5
00b8 e402       |    |		Load	0x2,0x2
00b9 e09c       |    |		Load	0x0,0x9c
00ba 1830       | 0  |		Execute	Package,Field_Execute,Field_Number 0x30
00bb a405       |    |		Store_Unchecked	0x2,0x5
00bc e405       |    |		Load	0x2,0x5
00bd e033       | 3  |		Load	0x0,0x33
00be 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
00bf 01da       |    |		Execute	Vector,Bounds
00c0 0262       | b  |		Execute	Discrete,In_Range
00c1 6804       |h   |		Jump_Zero	0xc6
00c2 e405       |    |		Load	0x2,0x5
00c3 e404       |    |		Load	0x2,0x4
00c4 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00c5 7804       |x   |		Jump	0xca
00c6 0092 0189  |    |		Action	Push_String_Extended,0x189					; "Level out of range"
00c8 e01c       |    |		Load	0x0,0x1c
00c9 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00ca e404       |    |		Load	0x2,0x4
00cb 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00cc 0f00       |    |		Execute_Immediate	Equal,0x0
00cd 4806       |H   |		Short_Literal	0x6
00ce e402       |    |		Load	0x2,0x2
00cf e09c       |    |		Load	0x0,0x9c
00d0 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
00d1 0f00       |    |		Execute_Immediate	Equal,0x0
00d2 e404       |    |		Load	0x2,0x4
00d3 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00d4 e403       |    |		Load	0x2,0x3
00d5 e404       |    |		Load	0x2,0x4
00d6 e033       | 3  |		Load	0x0,0x33
00d7 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
00d8 00d1       |    |		Pop_Control	Pop_Count_1
00d9 c403       |    |		Store	0x2,0x3
00da 782b       |x+  |		Jump	0x106
00db 4805       |H   |		Short_Literal	0x5
00dc e402       |    |		Load	0x2,0x2
00dd e09c       |    |		Load	0x0,0x9c
00de 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
00df 6820       |h   |		Jump_Zero	0x100
00e0 602f       |`/  |		Indirect_Literal	Discrete,0x110,{0x00000000, 0x7fffffff}
00e1 4805       |H   |		Short_Literal	0x5
00e2 e402       |    |		Load	0x2,0x2
00e3 e09c       |    |		Load	0x0,0x9c
00e4 1830       | 0  |		Execute	Package,Field_Execute,Field_Number 0x30
00e5 a405       |    |		Store_Unchecked	0x2,0x5
00e6 e405       |    |		Load	0x2,0x5
00e7 e033       | 3  |		Load	0x0,0x33
00e8 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
00e9 01da       |    |		Execute	Vector,Bounds
00ea 0262       | b  |		Execute	Discrete,In_Range
00eb 6809       |h   |		Jump_Zero	0xf5
00ec e403       |    |		Load	0x2,0x3
00ed e405       |    |		Load	0x2,0x5
00ee e097       |    |		Load	0x0,0x97
00ef 01d7       |    |		Execute	Vector,Field_Read
00f0 e011       |    |		Load	0x0,0x11
00f1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00f2 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
00f3 c403       |    |		Store	0x2,0x3
00f4 7811       |x   |		Jump	0x106
00f5 0092 0189  |    |		Action	Push_String_Extended,0x189					; "Level out of range"
00f7 e01c       |    |		Load	0x0,0x1c
00f8 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00f9 e403       |    |		Load	0x2,0x3
00fa e096       |    |		Load	0x0,0x96
00fb e011       |    |		Load	0x0,0x11
00fc 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00fd 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
00fe c403       |    |		Store	0x2,0x3
00ff 7806       |x   |		Jump	0x106
0100 e403       |    |		Load	0x2,0x3
0101 e096       |    |		Load	0x0,0x96
0102 e011       |    |		Load	0x0,0x11
0103 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0104 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0105 c403       |    |		Store	0x2,0x3
0106 e403       |    |		Load	0x2,0x3
0107 e015       |    |		Load	0x0,0x15
0108 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0109 e403       |    |		Load	0x2,0x3
010a e011       |    |		Load	0x0,0x11
010b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
010c 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
010d c403       |    |		Store	0x2,0x3
010e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
010f 0000       |    |		.XXX[0x1]
0110 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
0114 0000 0000  |    |		.BLANK	0000[0x4]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 0123       | #  |		.CONST	0x0123								; Address of begin
0119 0004       |    |		.CONST	0x0004								; Address of exception handler
011a 0005       |    |		.CONST	0x0005								; Number of locals
011b			INIT_0118:
011b e09e       |    |		Load	0x0,0x9e
011c 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
011d e09e       |    |		Load	0x0,0x9e
011e 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
011f 00e1       |    |		Load_Encached	Boolean_Cache
0120 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0121 00e1       |    |		Load_Encached	Boolean_Cache
0122 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0123			BODY_0118:
0123 4803       |H   |		Short_Literal	0x3
0124 e402       |    |		Load	0x2,0x2
0125 e09c       |    |		Load	0x0,0x9c
0126 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0127 681c       |h   |		Jump_Zero	0x144
0128 4800       |H   |		Short_Literal	0x0
0129 4801       |H   |		Short_Literal	0x1
012a 4803       |H   |		Short_Literal	0x3
012b e402       |    |		Load	0x2,0x2
012c e0a1       |    |		Load	0x0,0xa1
012d 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
012e 6811       |h   |		Jump_Zero	0x140
012f 4801       |H   |		Short_Literal	0x1
0130 a604       |    |		Store_Unchecked	0x3,0x4
0131 4800       |H   |		Short_Literal	0x0
0132 4801       |H   |		Short_Literal	0x1
0133 4803       |H   |		Short_Literal	0x3
0134 e402       |    |		Load	0x2,0x2
0135 e0a1       |    |		Load	0x0,0xa1
0136 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0137 0aff       |    |		Execute_Immediate	Plus,-0x1
0138 00d8       |    |		Load_Top	At_Offset_0
0139 e09e       |    |		Load	0x0,0x9e
013a 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
013b 0260       | `  |		Execute	Discrete,In_Type
013c 7001       |p   |		Jump_Nonzero	0x13e
013d 0801       |    |		Execute_Immediate	Raise,0x1
013e a602       |    |		Store_Unchecked	0x3,0x2
013f 7804       |x   |		Jump	0x144
0140 0092 018a  |    |		Action	Push_String_Extended,0x18a					; "Unknown value for Date_Format"
0142 e01c       |    |		Load	0x0,0x1c
0143 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0144 4802       |H   |		Short_Literal	0x2
0145 e402       |    |		Load	0x2,0x2
0146 e09c       |    |		Load	0x0,0x9c
0147 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0148 681c       |h   |		Jump_Zero	0x165
0149 4800       |H   |		Short_Literal	0x0
014a 4801       |H   |		Short_Literal	0x1
014b 4802       |H   |		Short_Literal	0x2
014c e402       |    |		Load	0x2,0x2
014d e0a2       |    |		Load	0x0,0xa2
014e 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
014f 6811       |h   |		Jump_Zero	0x161
0150 4801       |H   |		Short_Literal	0x1
0151 a605       |    |		Store_Unchecked	0x3,0x5
0152 4800       |H   |		Short_Literal	0x0
0153 4801       |H   |		Short_Literal	0x1
0154 4802       |H   |		Short_Literal	0x2
0155 e402       |    |		Load	0x2,0x2
0156 e0a2       |    |		Load	0x0,0xa2
0157 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0158 0aff       |    |		Execute_Immediate	Plus,-0x1
0159 00d8       |    |		Load_Top	At_Offset_0
015a e09e       |    |		Load	0x0,0x9e
015b 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
015c 0260       | `  |		Execute	Discrete,In_Type
015d 7001       |p   |		Jump_Nonzero	0x15f
015e 0801       |    |		Execute_Immediate	Raise,0x1
015f a603       |    |		Store_Unchecked	0x3,0x3
0160 7804       |x   |		Jump	0x165
0161 0092 018b  |    |		Action	Push_String_Extended,0x18b					; "Unknown value for Time_Format"
0163 e01c       |    |		Load	0x0,0x1c
0164 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0165 e604       |    |		Load	0x3,0x4
0166 6810       |h   |		Jump_Zero	0x177
0167 00d8       |    |		Load_Top	At_Offset_0
0168 6807       |h   |		Jump_Zero	0x170
0169 4800       |H   |		Short_Literal	0x0
016a e603       |    |		Load	0x3,0x3
016b e602       |    |		Load	0x3,0x2
016c e7ff       |    |		Load	0x3,-0x1
016d e09e       |    |		Load	0x0,0x9e
016e 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
016f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0170 4802       |H   |		Short_Literal	0x2
0171 4800       |H   |		Short_Literal	0x0
0172 e602       |    |		Load	0x3,0x2
0173 e7ff       |    |		Load	0x3,-0x1
0174 e09e       |    |		Load	0x0,0x9e
0175 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0176 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0177 00d8       |    |		Load_Top	At_Offset_0
0178 6807       |h   |		Jump_Zero	0x180
0179 4801       |H   |		Short_Literal	0x1
017a e603       |    |		Load	0x3,0x3
017b 4800       |H   |		Short_Literal	0x0
017c e7ff       |    |		Load	0x3,-0x1
017d e09e       |    |		Load	0x0,0x9e
017e 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
017f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0180 4802       |H   |		Short_Literal	0x2
0181 4800       |H   |		Short_Literal	0x0
0182 4800       |H   |		Short_Literal	0x0
0183 e7ff       |    |		Load	0x3,-0x1
0184 e09e       |    |		Load	0x0,0x9e
0185 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0186 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0187 ; --------------------------------------------------------------------------------------
0187 ; STRING TABLE
0187 ; --------------------------------------------------------------------------------------
0187 000c       |    |		.STRTAB	0x000c->0x018d							; "Argument to Value was unrecognizable"
0188 002e       | .  |		.STRTAB	0x002e->0x019f							; "Value"
0189 0031       | 1  |		.STRTAB	0x0031->0x01a1							; "Level out of range"
018a 0041       | A  |		.STRTAB	0x0041->0x01aa							; "Unknown value for Date_Format"
018b 005c       | \  |		.STRTAB	0x005c->0x01b9							; "Unknown value for Time_Format"
018c 0077       | w  |		.STREND 0x0077->0x01c7
018d 4172 6775  |Argu|		.STRTAB_STRINGS
01c8 ; --------------------------------------------------------------------------------------
01c8 ; Debug Table
01c8 ; --------------------------------------------------------------------------------------
01c8 0004 000f  |    |		.DEBUG4	0x0004,0x000f,0x480c,0x0000,0x0001,0x0000
01ce d312 5153  |  QS|		.XXX[0x1c]
01d0 950b 94d5  |    |
01d2 1491 5053  |  PS|
01d4 57d2 5100  |W Q |
01d6 1fa4 08c0  |    |
01d8 0111 1055  |   U|
01da 1045 c006  | E  |
01dc d4d5 5397  |  S |
01de d494 10d7  |    |
01e0 d0d3 1251  |   Q|
01e2 5395 0b90  |S   |
01e4 d053 1317  | S  |
01e6 d351 54d4  | QT |
01e8 d051 d140  | Q @|
01ea 0000 0000  |    |		.BLANK	0000[0x4]
01ee 2600 0000  |&   |		.XXX[0x12]
01f0 0080 0000  |    |
01f2 6380 10a9  |c   |
01f4 aaa7 2fa9  |  / |
01f6 2821 afa1  |(!  |
01f8 a624 a2a7  | $  |
01fa 2a17 2c22  |* ,"|
01fc 292f a7a8  |)/  |
01fe 2997 2b22  |) +"|