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

⟦93b91846e⟧

    Length: 3072 (0xc00)
    Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_65acc1

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 5900       |Y   |		.CONST	0x5900								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0320       |    |		.CONST	0x0320								; 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 0002       |    |		.CONST	0x0002								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0010       |    |		.CONST	0x0010								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 000d       |    |		.CONST	0x000d								; Number of locals
000b			INIT_0008:
000b 029a 001b  |    |		Declare_Subprogram	INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 00bf       |    |		Action	Accept_Activation
000e 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
000f 00c7       |    |		Action	Elaborate_Subprogram
0010			BODY_0008:
0010 00bc       |    |		Action	Signal_Activated
0011 00bb       |    |		Action	Signal_Completion
0012 0000 0000  |    |		.BLANK	0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 0048       | H  |		.CONST	0x0048								; Address of begin
0019 0004       |    |		.CONST	0x0004								; Address of exception handler
001a 0011       |    |		.CONST	0x0011								; Number of locals
001b			INIT_0018:
001b 00da       |    |		Load_Top	At_Offset_2
001c 01dd       |    |		Execute	Vector,First
001d 00e3       |    |		Load_Encached	Natural_Cache
001e 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
001f e003       |    |		Load	0x0,0x3
0020 0322       | "  |		Declare_Variable	Record
0021 4800       |H   |		Short_Literal	0x0
0022 4805       |H   |		Short_Literal	0x5
0023 029f 005b  |   [|		Declare_Subprogram	INIT_0058,For_Call
0025 03fd       |    |		Declare_Type	Discrete,Defined
0026 4818       |H   |		Short_Literal	0x18
0027 03ce       |    |		Declare_Type	Access,Incomplete
0028 00d9       |    |		Load_Top	At_Offset_1
0029 00e3       |    |		Load_Encached	Natural_Cache
002a 00da       |    |		Load_Top	At_Offset_2
002b 02a0       |    |		Declare_Subprogram	Null_Subprogram
002c 4803       |H   |		Short_Literal	0x3
002d 032d       | -  |		Declare_Type	Record,Defined
002e 00d8       |    |		Load_Top	At_Offset_0
002f 02a0       |    |		Declare_Subprogram	Null_Subprogram
0030 00db       |    |		Load_Top	At_Offset_3
0031 03c7       |    |		Complete_Type	Access,By_Defining
0032 00d9       |    |		Load_Top	At_Offset_1
0033 0007       |    |		Action	Break_Optional
0034 00da       |    |		Load_Top	At_Offset_2
0035 0007       |    |		Action	Break_Optional
0036 00e1       |    |		Load_Encached	Boolean_Cache
0037 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0038 00e3       |    |		Load_Encached	Natural_Cache
0039 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
003a 029f 0083  |    |		Declare_Subprogram	INIT_0080,For_Call
003c 029f 0093  |    |		Declare_Subprogram	INIT_0090,For_Call
003e 029f 00b3  |    |		Declare_Subprogram	INIT_00b0,For_Call
0040 029f 00f3  |    |		Declare_Subprogram	INIT_00f0,For_Call
0042 029f 011b  |    |		Declare_Subprogram	INIT_0118,For_Call
0044 029f 013b  |   ;|		Declare_Subprogram	INIT_0138,For_Call
0046 029f 0183  |    |		Declare_Subprogram	INIT_0180,For_Call
0048			BODY_0018:
0048 e408       |    |		Load	0x2,0x8
0049 e407       |    |		Load	0x2,0x7
004a 840f       |    |		Call	0x2,0xf
004b c407       |    |		Store	0x2,0x7
004c c408       |    |		Store	0x2,0x8
004d e408       |    |		Load	0x2,0x8
004e e407       |    |		Load	0x2,0x7
004f 8410       |    |		Call	0x2,0x10
0050 c407       |    |		Store	0x2,0x7
0051 c408       |    |		Store	0x2,0x8
0052 e408       |    |		Load	0x2,0x8
0053 e407       |    |		Load	0x2,0x7
0054 8411       |    |		Call	0x2,0x11
0055 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0056 0000 0000  |    |		.XXX[0x2]
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 4607       |F   |		Jump_Case	0x8
005c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
005d 7807       |x   |		Jump	0x65								; case 0x1
005e 780a       |x   |		Jump	0x69								; case 0x2
005f 780e       |x   |		Jump	0x6e								; case 0x3
0060 7811       |x   |		Jump	0x72								; case 0x4
0061 7812       |x   |		Jump	0x74								; case 0x5
0062 7813       |x   |		Jump	0x76								; case 0x6
0063 7816       |x   |		Jump	0x7a								; case 0x7
0064 4302       |C   |		.XXX[0x1]
0065 00da       |    |		Load_Top	At_Offset_2
0066 0091 0303  |    |		Action	Push_String_Extended_Indexed,0x303				; "DAY"
0068 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0069 00db       |    |		Load_Top	At_Offset_3
006a 00db       |    |		Load_Top	At_Offset_3
006b 00e0       |    |		Load_Encached	Standard_Cache
006c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
006d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
006e 00da       |    |		Load_Top	At_Offset_2
006f 00e0       |    |		Load_Encached	Standard_Cache
0070 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0071 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0072 00db       |    |		Load_Top	At_Offset_3
0073 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0074 00db       |    |		Load_Top	At_Offset_3
0075 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0076 e404       |    |		Load	0x2,0x4
0077 00dc       |    |		Load_Top	At_Offset_4
0078 0267       | g  |		Execute	Discrete,Predecessor
0079 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
007a e404       |    |		Load	0x2,0x4
007b 00dc       |    |		Load_Top	At_Offset_4
007c 0268       | h  |		Execute	Discrete,Successor
007d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
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 00da       |    |		Load_Top	At_Offset_2
0084 4830       |H0  |		Short_Literal	0x30
0085 4839       |H9  |		Short_Literal	0x39
0086 0262       | b  |		Execute	Discrete,In_Range
0087 7002       |p   |		Jump_Nonzero	0x8a
0088 4800       |H   |		Short_Literal	0x0
0089 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
008a 4801       |H   |		Short_Literal	0x1
008b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
008c 0000 0000  |    |		.BLANK	0000[0x4]
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 00da       |    |		Load_Top	At_Offset_2
0094 00d8       |    |		Load_Top	At_Offset_0
0095 0d3a       | :  |		Execute_Immediate	Less,0x3a
0096 700b       |p   |		Jump_Nonzero	0xa2
0097 00d8       |    |		Load_Top	At_Offset_0
0098 0c45       | E  |		Execute_Immediate	Greater_Equal,0x45
0099 7005       |p   |		Jump_Nonzero	0x9f
009a 483b       |H;  |		Short_Literal	0x3b
009b 4843       |HC  |		Short_Literal	0x43
009c 0262       | b  |		Execute	Discrete,In_Range
009d 700b       |p   |		Jump_Nonzero	0xa9
009e 7808       |x   |		Jump	0xa7
009f 0f64       | d  |		Execute_Immediate	Equal,0x64
00a0 7006       |p   |		Jump_Nonzero	0xa7
00a1 7807       |x   |		Jump	0xa9
00a2 482e       |H.  |		Short_Literal	0x2e
00a3 482f       |H/  |		Short_Literal	0x2f
00a4 0262       | b  |		Execute	Discrete,In_Range
00a5 7001       |p   |		Jump_Nonzero	0xa7
00a6 7802       |x   |		Jump	0xa9
00a7 4801       |H   |		Short_Literal	0x1
00a8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00a9 4800       |H   |		Short_Literal	0x0
00aa 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00ab 0000 0000  |    |		.BLANK	0000[0x5]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00ba       |    |		.CONST	0x00ba								; Address of begin
00b1 0004       |    |		.CONST	0x0004								; Address of exception handler
00b2 0005       |    |		.CONST	0x0005								; Number of locals
00b3			INIT_00b0:
00b3 e402       |    |		Load	0x2,0x2
00b4 0007       |    |		Action	Break_Optional
00b5 00e3       |    |		Load_Encached	Natural_Cache
00b6 029f 01ab  |    |		Declare_Subprogram	INIT_01a8,For_Call
00b8 029f 01eb  |    |		Declare_Subprogram	INIT_01e8,For_Call
00ba			BODY_00b0:
00ba 00cf       |    |		Action	Mark_Auxiliary
00bb 7804       |x   |		Jump	0xc0
00bc e402       |    |		Load	0x2,0x2
00bd 0a01       |    |		Execute_Immediate	Plus,0x1
00be c402       |    |		Store	0x2,0x2
00bf 00c9       |    |		Action	Pop_Auxiliary_Loop
00c0 e402       |    |		Load	0x2,0x2
00c1 e5ff       |    |		Load	0x2,-0x1
00c2 01dc       |    |		Execute	Vector,Last
00c3 027a       | z  |		Execute	Discrete,Less_Equal
00c4 6805       |h   |		Jump_Zero	0xca
00c5 e402       |    |		Load	0x2,0x2
00c6 e5ff       |    |		Load	0x2,-0x1
00c7 01d7       |    |		Execute	Vector,Field_Read
00c8 840b       |    |		Call	0x2,0xb
00c9 77f2       |w   |		Jump_Nonzero	0xbc
00ca 00ce       |    |		Action	Pop_Auxiliary
00cb e402       |    |		Load	0x2,0x2
00cc e5ff       |    |		Load	0x2,-0x1
00cd 01dc       |    |		Execute	Vector,Last
00ce 027a       | z  |		Execute	Discrete,Less_Equal
00cf 6804       |h   |		Jump_Zero	0xd4
00d0 e402       |    |		Load	0x2,0x2
00d1 0aff       |    |		Execute_Immediate	Plus,-0x1
00d2 005b       | [  |		Store_Top	Discrete,At_Offset_3
00d3 7803       |x   |		Jump	0xd7
00d4 e5ff       |    |		Load	0x2,-0x1
00d5 01dc       |    |		Execute	Vector,Last
00d6 005b       | [  |		Store_Top	Discrete,At_Offset_3
00d7 e409       |    |		Load	0x2,0x9
00d8 6807       |h   |		Jump_Zero	0xe0
00d9 00db       |    |		Load_Top	At_Offset_3
00da 00db       |    |		Load_Top	At_Offset_3
00db e5ff       |    |		Load	0x2,-0x1
00dc 01cf       |    |		Execute	Vector,Slice_Read
00dd 8604       |    |		Call	0x3,0x4
00de 8605       |    |		Call	0x3,0x5
00df 00ca       |    |		Action	Exit_Nullary_Function
00e0 00db       |    |		Load_Top	At_Offset_3
00e1 00db       |    |		Load_Top	At_Offset_3
00e2 e5ff       |    |		Load	0x2,-0x1
00e3 01cf       |    |		Execute	Vector,Slice_Read
00e4 00e2       |    |		Load_Encached	Integer_Cache
00e5 00e0       |    |		Load_Encached	Standard_Cache
00e6 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
00e7 00d8       |    |		Load_Top	At_Offset_0
00e8 00e3       |    |		Load_Encached	Natural_Cache
00e9 0260       | `  |		Execute	Discrete,In_Type
00ea 7001       |p   |		Jump_Nonzero	0xec
00eb 0801       |    |		Execute_Immediate	Raise,0x1
00ec 8605       |    |		Call	0x3,0x5
00ed 00ca       |    |		Action	Exit_Nullary_Function
00ee 0000 0000  |    |		.XXX[0x2]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f6       |    |		.CONST	0x00f6								; Address of begin
00f1 0004       |    |		.CONST	0x0004								; Address of exception handler
00f2 0003       |    |		.CONST	0x0003								; Number of locals
00f3			INIT_00f0:
00f3 00e8       |    |		Load_Encached	Character_Cache
00f4 029f 0203  |    |		Declare_Subprogram	INIT_0200,For_Call
00f6			BODY_00f0:
00f6 00cf       |    |		Action	Mark_Auxiliary
00f7 7816       |x   |		Jump	0x10e
00f8 e402       |    |		Load	0x2,0x2
00f9 e5ff       |    |		Load	0x2,-0x1
00fa 01d7       |    |		Execute	Vector,Field_Read
00fb 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
00fc 00da       |    |		Load_Top	At_Offset_2
00fd 840c       |    |		Call	0x2,0xc
00fe 6806       |h   |		Jump_Zero	0x105
00ff e402       |    |		Load	0x2,0x2
0100 0a01       |    |		Execute_Immediate	Plus,0x1
0101 c402       |    |		Store	0x2,0x2
0102 00da       |    |		Load_Top	At_Offset_2
0103 8603       |    |		Call	0x3,0x3
0104 00ca       |    |		Action	Exit_Nullary_Function
0105 00da       |    |		Load_Top	At_Offset_2
0106 840b       |    |		Call	0x2,0xb
0107 6802       |h   |		Jump_Zero	0x10a
0108 840d       |    |		Call	0x2,0xd
0109 00ca       |    |		Action	Exit_Nullary_Function
010a e402       |    |		Load	0x2,0x2
010b 0a01       |    |		Execute_Immediate	Plus,0x1
010c c402       |    |		Store	0x2,0x2
010d 00c9       |    |		Action	Pop_Auxiliary_Loop
010e e402       |    |		Load	0x2,0x2
010f e5ff       |    |		Load	0x2,-0x1
0110 01dc       |    |		Execute	Vector,Last
0111 027a       | z  |		Execute	Discrete,Less_Equal
0112 77e5       |w   |		Jump_Nonzero	0xf8
0113 00ce       |    |		Action	Pop_Auxiliary
0114 e405       |    |		Load	0x2,0x5
0115 00ca       |    |		Action	Exit_Nullary_Function
0116 0000 0000  |    |		.XXX[0x2]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011d       |    |		.CONST	0x011d								; Address of begin
0119 0004       |    |		.CONST	0x0004								; Address of exception handler
011a 0002       |    |		.CONST	0x0002								; Number of locals
011b			INIT_0118:
011b e405       |    |		Load	0x2,0x5
011c 0007       |    |		Action	Break_Optional
011d			BODY_0118:
011d 840e       |    |		Call	0x2,0xe
011e 0039       | 9  |		Store_Top	Access,At_Offset_1
011f 00d8       |    |		Load_Top	At_Offset_0
0120 a7ff       |    |		Store_Unchecked	0x3,-0x1
0121 00db       |    |		Load_Top	At_Offset_3
0122 a7fe       |    |		Store_Unchecked	0x3,-0x2
0123 00cf       |    |		Action	Mark_Auxiliary
0124 840e       |    |		Call	0x2,0xe
0125 003a       | :  |		Store_Top	Access,At_Offset_2
0126 00d9       |    |		Load_Top	At_Offset_1
0127 6808       |h   |		Jump_Zero	0x130
0128 00d9       |    |		Load_Top	At_Offset_1
0129 e7fe       |    |		Load	0x3,-0x2
012a 0227       | '  |		Execute	Access,All_Reference
012b 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
012c 00d9       |    |		Load_Top	At_Offset_1
012d a7fe       |    |		Store_Unchecked	0x3,-0x2
012e 00c9       |    |		Action	Pop_Auxiliary_Loop
012f 7ff4       |    |		Jump	0x124
0130 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0131 0000 0000  |    |		.BLANK	0000[0x7]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 0141       | A  |		.CONST	0x0141								; Address of begin
0139 0004       |    |		.CONST	0x0004								; Address of exception handler
013a 0004       |    |		.CONST	0x0004								; Number of locals
013b			INIT_0138:
013b e405       |    |		Load	0x2,0x5
013c 0007       |    |		Action	Break_Optional
013d 00db       |    |		Load_Top	At_Offset_3
013e 0007       |    |		Action	Break_Optional
013f 029f 024b  |   K|		Declare_Subprogram	INIT_0248,For_Call
0141			BODY_0138:
0141 e40a       |    |		Load	0x2,0xa
0142 0f02       |    |		Execute_Immediate	Equal,0x2
0143 7002       |p   |		Jump_Nonzero	0x146
0144 e409       |    |		Load	0x2,0x9
0145 6817       |h   |		Jump_Zero	0x15d
0146 00cf       |    |		Action	Mark_Auxiliary
0147 780c       |x   |		Jump	0x154
0148 00da       |    |		Load_Top	At_Offset_2
0149 0227       | '  |		Execute	Access,All_Reference
014a 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
014b 0f01       |    |		Execute_Immediate	Equal,0x1
014c 6802       |h   |		Jump_Zero	0x14f
014d 00da       |    |		Load_Top	At_Offset_2
014e a602       |    |		Store_Unchecked	0x3,0x2
014f 00da       |    |		Load_Top	At_Offset_2
0150 0227       | '  |		Execute	Access,All_Reference
0151 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0152 003b       | ;  |		Store_Top	Access,At_Offset_3
0153 00c9       |    |		Action	Pop_Auxiliary_Loop
0154 00da       |    |		Load_Top	At_Offset_2
0155 77f2       |w   |		Jump_Nonzero	0x148
0156 00ce       |    |		Action	Pop_Auxiliary
0157 00da       |    |		Load_Top	At_Offset_2
0158 6804       |h   |		Jump_Zero	0x15d
0159 4802       |H   |		Short_Literal	0x2
015a 00db       |    |		Load_Top	At_Offset_3
015b 0227       | '  |		Execute	Access,All_Reference
015c 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
015d e7fe       |    |		Load	0x3,-0x2
015e 0227       | '  |		Execute	Access,All_Reference
015f 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0160 0f05       |    |		Execute_Immediate	Equal,0x5
0161 6816       |h   |		Jump_Zero	0x178
0162 e409       |    |		Load	0x2,0x9
0163 6803       |h   |		Jump_Zero	0x167
0164 4804       |H   |		Short_Literal	0x4
0165 8604       |    |		Call	0x3,0x4
0166 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0167 e40a       |    |		Load	0x2,0xa
0168 0b02       |    |		Execute_Immediate	Case_Compare,0x2
0169 7004       |p   |		Jump_Nonzero	0x16e
016a 0b01       |    |		Execute_Immediate	Case_Compare,0x1
016b 7006       |p   |		Jump_Nonzero	0x172
016c 6809       |h   |		Jump_Zero	0x176
016d 08e0       |    |		Execute_Immediate	Raise,0xe0
016e 00d1       |    |		Pop_Control	Pop_Count_1
016f 4803       |H   |		Short_Literal	0x3
0170 8604       |    |		Call	0x3,0x4
0171 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0172 00d1       |    |		Pop_Control	Pop_Count_1
0173 4802       |H   |		Short_Literal	0x2
0174 8604       |    |		Call	0x3,0x4
0175 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0176 4801       |H   |		Short_Literal	0x1
0177 8604       |    |		Call	0x3,0x4
0178 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0179 0000 0000  |    |		.BLANK	0000[0x7]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0190       |    |		.CONST	0x0190								; Address of begin
0181 0004       |    |		.CONST	0x0004								; Address of exception handler
0182 0006       |    |		.CONST	0x0006								; Number of locals
0183			INIT_0180:
0183 e003       |    |		Load	0x0,0x3
0184 0322       | "  |		Declare_Variable	Record
0185 e004       |    |		Load	0x0,0x4
0186 00d9       |    |		Load_Top	At_Offset_1
0187 017d       | }  |		Execute	Record,Structure_Write
0188 00db       |    |		Load_Top	At_Offset_3
0189 0007       |    |		Action	Break_Optional
018a 00e3       |    |		Load_Encached	Natural_Cache
018b 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
018c 029f 0263  |   c|		Declare_Subprogram	INIT_0260,For_Call
018e 029f 027b  |   {|		Declare_Subprogram	INIT_0278,For_Call
0190			BODY_0180:
0190 00cf       |    |		Action	Mark_Auxiliary
0191 7811       |x   |		Jump	0x1a3
0192 00db       |    |		Load_Top	At_Offset_3
0193 e603       |    |		Load	0x3,0x3
0194 8605       |    |		Call	0x3,0x5
0195 c603       |    |		Store	0x3,0x3
0196 c604       |    |		Store	0x3,0x4
0197 e602       |    |		Load	0x3,0x2
0198 e604       |    |		Load	0x3,0x4
0199 e603       |    |		Load	0x3,0x3
019a 0227       | '  |		Execute	Access,All_Reference
019b 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
019c 8606       |    |		Call	0x3,0x6
019d 00d1       |    |		Pop_Control	Pop_Count_1
019e e603       |    |		Load	0x3,0x3
019f 0227       | '  |		Execute	Access,All_Reference
01a0 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01a1 a603       |    |		Store_Unchecked	0x3,0x3
01a2 00c9       |    |		Action	Pop_Auxiliary_Loop
01a3 e603       |    |		Load	0x3,0x3
01a4 77ed       |w   |		Jump_Nonzero	0x192
01a5 00ce       |    |		Action	Pop_Auxiliary
01a6 e602       |    |		Load	0x3,0x2
01a7 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab       |    |		.CONST	0x01ab								; Address of begin
01a9 0004       |    |		.CONST	0x0004								; Address of exception handler
01aa 0001       |    |		.CONST	0x0001								; Number of locals
01ab			BODY_01a8:
01ab			INIT_01a8:
01ab 00da       |    |		Load_Top	At_Offset_2
01ac 01db       |    |		Execute	Vector,Length
01ad 0f01       |    |		Execute_Immediate	Equal,0x1
01ae 680d       |h   |		Jump_Zero	0x1bc
01af 00da       |    |		Load_Top	At_Offset_2
01b0 0092 0309  |    |		Action	Push_String_Extended,0x309					; "00"
01b2 01cc       |    |		Execute	Vector,Catenate
01b3 00e2       |    |		Load_Encached	Integer_Cache
01b4 00e0       |    |		Load_Encached	Standard_Cache
01b5 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
01b6 00d8       |    |		Load_Top	At_Offset_0
01b7 00e3       |    |		Load_Encached	Natural_Cache
01b8 0260       | `  |		Execute	Discrete,In_Type
01b9 7001       |p   |		Jump_Nonzero	0x1bb
01ba 0801       |    |		Execute_Immediate	Raise,0x1
01bb 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01bc 00da       |    |		Load_Top	At_Offset_2
01bd 01db       |    |		Execute	Vector,Length
01be 0f02       |    |		Execute_Immediate	Equal,0x2
01bf 680c       |h   |		Jump_Zero	0x1cc
01c0 4830       |H0  |		Short_Literal	0x30
01c1 00db       |    |		Load_Top	At_Offset_3
01c2 01cb       |    |		Execute	Vector,Append
01c3 00e2       |    |		Load_Encached	Integer_Cache
01c4 00e0       |    |		Load_Encached	Standard_Cache
01c5 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
01c6 00d8       |    |		Load_Top	At_Offset_0
01c7 00e3       |    |		Load_Encached	Natural_Cache
01c8 0260       | `  |		Execute	Discrete,In_Type
01c9 7001       |p   |		Jump_Nonzero	0x1cb
01ca 0801       |    |		Execute_Immediate	Raise,0x1
01cb 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01cc 00da       |    |		Load_Top	At_Offset_2
01cd 01dd       |    |		Execute	Vector,First
01ce 00db       |    |		Load_Top	At_Offset_3
01cf 01dd       |    |		Execute	Vector,First
01d0 0a02       |    |		Execute_Immediate	Plus,0x2
01d1 00d8       |    |		Load_Top	At_Offset_0
01d2 00e2       |    |		Load_Encached	Integer_Cache
01d3 0260       | `  |		Execute	Discrete,In_Type
01d4 7001       |p   |		Jump_Nonzero	0x1d6
01d5 0801       |    |		Execute_Immediate	Raise,0x1
01d6 e9ff       |    |		Load	0x4,-0x1
01d7 01cf       |    |		Execute	Vector,Slice_Read
01d8 00e2       |    |		Load_Encached	Integer_Cache
01d9 00e0       |    |		Load_Encached	Standard_Cache
01da 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
01db 00d8       |    |		Load_Top	At_Offset_0
01dc 00e3       |    |		Load_Encached	Natural_Cache
01dd 0260       | `  |		Execute	Discrete,In_Type
01de 7001       |p   |		Jump_Nonzero	0x1e0
01df 0801       |    |		Execute_Immediate	Raise,0x1
01e0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01e1 0000 0000  |    |		.BLANK	0000[0x7]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb       |    |		.CONST	0x01eb								; Address of begin
01e9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ea 0001       |    |		.CONST	0x0001								; Number of locals
01eb			BODY_01e8:
01eb			INIT_01e8:
01eb e406       |    |		Load	0x2,0x6
01ec 0322       | "  |		Declare_Variable	Record
01ed 4805       |H   |		Short_Literal	0x5
01ee 00d9       |    |		Load_Top	At_Offset_1
01ef 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01f0 00db       |    |		Load_Top	At_Offset_3
01f1 00d9       |    |		Load_Top	At_Offset_1
01f2 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01f3 e405       |    |		Load	0x2,0x5
01f4 00d9       |    |		Load_Top	At_Offset_1
01f5 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
01f6 e405       |    |		Load	0x2,0x5
01f7 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
01f8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01f9 0000 0000  |    |		.BLANK	0000[0x7]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0205       |    |		.CONST	0x0205								; Address of begin
0201 0004       |    |		.CONST	0x0004								; Address of exception handler
0202 0002       |    |		.CONST	0x0002								; Number of locals
0203			INIT_0200:
0203 e405       |    |		Load	0x2,0x5
0204 03bc       |    |		Declare_Variable	Access,By_Allocation
0205			BODY_0200:
0205 00db       |    |		Load_Top	At_Offset_3
0206 00d8       |    |		Load_Top	At_Offset_0
0207 0d2e       | .  |		Execute_Immediate	Less,0x2e
0208 7024       |p$  |		Jump_Nonzero	0x22d
0209 00d8       |    |		Load_Top	At_Offset_0
020a 0c45       | E  |		Execute_Immediate	Greater_Equal,0x45
020b 701e       |p   |		Jump_Nonzero	0x22a
020c 0ad2       |    |		Execute_Immediate	Plus,-0x2e
020d 4616       |F   |		Jump_Case	0x17
020e 782b       |x+  |		Jump	0x23a								; case 0x0
020f 7815       |x   |		Jump	0x225								; case 0x1
0210 781d       |x   |		Jump	0x22e								; case 0x2
0211 781c       |x   |		Jump	0x22e								; case 0x3
0212 781b       |x   |		Jump	0x22e								; case 0x4
0213 781a       |x   |		Jump	0x22e								; case 0x5
0214 7819       |x   |		Jump	0x22e								; case 0x6
0215 7818       |x   |		Jump	0x22e								; case 0x7
0216 7817       |x   |		Jump	0x22e								; case 0x8
0217 7816       |x   |		Jump	0x22e								; case 0x9
0218 7815       |x   |		Jump	0x22e								; case 0xa
0219 7814       |x   |		Jump	0x22e								; case 0xb
021a 7814       |x   |		Jump	0x22f								; case 0xc
021b 7812       |x   |		Jump	0x22e								; case 0xd
021c 7811       |x   |		Jump	0x22e								; case 0xe
021d 7810       |x   |		Jump	0x22e								; case 0xf
021e 780f       |x   |		Jump	0x22e								; case 0x10
021f 780e       |x   |		Jump	0x22e								; case 0x11
0220 780d       |x   |		Jump	0x22e								; case 0x12
0221 780c       |x   |		Jump	0x22e								; case 0x13
0222 780b       |x   |		Jump	0x22e								; case 0x14
0223 780a       |x   |		Jump	0x22e								; case 0x15
0224 7800       |x   |		Jump	0x225								; case 0x16
0225 4800       |H   |		Short_Literal	0x0
0226 00d9       |    |		Load_Top	At_Offset_1
0227 0227       | '  |		Execute	Access,All_Reference
0228 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0229 7816       |x   |		Jump	0x240
022a 0f64       | d  |		Execute_Immediate	Equal,0x64
022b 77f9       |w   |		Jump_Nonzero	0x225
022c 7801       |x   |		Jump	0x22e
022d 00d1       |    |		Pop_Control	Pop_Count_1
022e 08e0       |    |		Execute_Immediate	Raise,0xe0
022f 4801       |H   |		Short_Literal	0x1
0230 00d9       |    |		Load_Top	At_Offset_1
0231 0227       | '  |		Execute	Access,All_Reference
0232 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0233 e40a       |    |		Load	0x2,0xa
0234 0a01       |    |		Execute_Immediate	Plus,0x1
0235 c40a       |    |		Store	0x2,0xa
0236 e40a       |    |		Load	0x2,0xa
0237 0c03       |    |		Execute_Immediate	Greater_Equal,0x3
0238 6807       |h   |		Jump_Zero	0x240
0239 08e0       |    |		Execute_Immediate	Raise,0xe0
023a 4803       |H   |		Short_Literal	0x3
023b 00d9       |    |		Load_Top	At_Offset_1
023c 0227       | '  |		Execute	Access,All_Reference
023d 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
023e 4801       |H   |		Short_Literal	0x1
023f a409       |    |		Store_Unchecked	0x2,0x9
0240 00d8       |    |		Load_Top	At_Offset_0
0241 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0242 0000 0000  |    |		.BLANK	0000[0x6]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 0258       | X  |		.CONST	0x0258								; Address of begin
0249 0004       |    |		.CONST	0x0004								; Address of exception handler
024a 0002       |    |		.CONST	0x0002								; Number of locals
024b			INIT_0248:
024b e406       |    |		Load	0x2,0x6
024c 0322       | "  |		Declare_Variable	Record
024d 00db       |    |		Load_Top	At_Offset_3
024e 00d9       |    |		Load_Top	At_Offset_1
024f 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0250 4800       |H   |		Short_Literal	0x0
0251 00d9       |    |		Load_Top	At_Offset_1
0252 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0253 e405       |    |		Load	0x2,0x5
0254 00d9       |    |		Load_Top	At_Offset_1
0255 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0256 e405       |    |		Load	0x2,0x5
0257 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0258			BODY_0248:
0258 00d8       |    |		Load_Top	At_Offset_0
0259 e7fe       |    |		Load	0x3,-0x2
025a 0227       | '  |		Execute	Access,All_Reference
025b 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
025c 00d8       |    |		Load_Top	At_Offset_0
025d a7fe       |    |		Store_Unchecked	0x3,-0x2
025e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
025f 0000       |    |		.XXX[0x1]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0263       | c  |		.CONST	0x0263								; Address of begin
0261 0004       |    |		.CONST	0x0004								; Address of exception handler
0262 0001       |    |		.CONST	0x0001								; Number of locals
0263			BODY_0260:
0263			INIT_0260:
0263 00da       |    |		Load_Top	At_Offset_2
0264 0227       | '  |		Execute	Access,All_Reference
0265 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0266 0f05       |    |		Execute_Immediate	Equal,0x5
0267 6809       |h   |		Jump_Zero	0x271
0268 00da       |    |		Load_Top	At_Offset_2
0269 0227       | '  |		Execute	Access,All_Reference
026a 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
026b a9fe       |    |		Store_Unchecked	0x4,-0x2
026c 00da       |    |		Load_Top	At_Offset_2
026d 0227       | '  |		Execute	Access,All_Reference
026e 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
026f 003b       | ;  |		Store_Top	Access,At_Offset_3
0270 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0271 4800       |H   |		Short_Literal	0x0
0272 a9fe       |    |		Store_Unchecked	0x4,-0x2
0273 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0274 0000 0000  |    |		.BLANK	0000[0x4]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027e       | ~  |		.CONST	0x027e								; Address of begin
0279 0004       |    |		.CONST	0x0004								; Address of exception handler
027a 0002       |    |		.CONST	0x0002								; Number of locals
027b			INIT_0278:
027b 00db       |    |		Load_Top	At_Offset_3
027c 00e3       |    |		Load_Encached	Natural_Cache
027d 03f1       |    |		Declare_Variable	Discrete,With_Value
027e			BODY_0278:
027e 00d8       |    |		Load_Top	At_Offset_0
027f 7001       |p   |		Jump_Nonzero	0x281
0280 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0281 e603       |    |		Load	0x3,0x3
0282 0227       | '  |		Execute	Access,All_Reference
0283 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0284 4605       |F   |		Jump_Case	0x6
0285 7806       |x   |		Jump	0x28c								; case 0x0
0286 780c       |x   |		Jump	0x293								; case 0x1
0287 7827       |x'  |		Jump	0x2af								; case 0x2
0288 7842       |xB  |		Jump	0x2cb								; case 0x3
0289 785d       |x]  |		Jump	0x2e7								; case 0x4
028a 7800       |x   |		Jump	0x28b								; case 0x5
028b 08e0       |    |		Execute_Immediate	Raise,0xe0
028c e9fd       |    |		Load	0x4,-0x3
028d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
028e 00d9       |    |		Load_Top	At_Offset_1
028f 0273       | s  |		Execute	Discrete,Plus
0290 e9fd       |    |		Load	0x4,-0x3
0291 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0292 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0293 00d8       |    |		Load_Top	At_Offset_0
0294 e9fd       |    |		Load	0x4,-0x3
0295 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0296 0273       | s  |		Execute	Discrete,Plus
0297 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0298 e9fd       |    |		Load	0x4,-0x3
0299 00d9       |    |		Load_Top	At_Offset_1
029a 4818       |H   |		Short_Literal	0x18
029b 0270       | p  |		Execute	Discrete,Divide
029c 00d8       |    |		Load_Top	At_Offset_0
029d 00e3       |    |		Load_Encached	Natural_Cache
029e 0260       | `  |		Execute	Discrete,In_Type
029f 7001       |p   |		Jump_Nonzero	0x2a1
02a0 0801       |    |		Execute_Immediate	Raise,0x1
02a1 4800       |H   |		Short_Literal	0x0
02a2 8606       |    |		Call	0x3,0x6
02a3 00d1       |    |		Pop_Control	Pop_Count_1
02a4 00d8       |    |		Load_Top	At_Offset_0
02a5 4818       |H   |		Short_Literal	0x18
02a6 026e       | n  |		Execute	Discrete,Modulo
02a7 00d8       |    |		Load_Top	At_Offset_0
02a8 e005       |    |		Load	0x0,0x5
02a9 0260       | `  |		Execute	Discrete,In_Type
02aa 7001       |p   |		Jump_Nonzero	0x2ac
02ab 0801       |    |		Execute_Immediate	Raise,0x1
02ac e9fd       |    |		Load	0x4,-0x3
02ad 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
02ae 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02af 00d8       |    |		Load_Top	At_Offset_0
02b0 e9fd       |    |		Load	0x4,-0x3
02b1 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
02b2 0273       | s  |		Execute	Discrete,Plus
02b3 0059       | Y  |		Store_Top	Discrete,At_Offset_1
02b4 e9fd       |    |		Load	0x4,-0x3
02b5 00d9       |    |		Load_Top	At_Offset_1
02b6 483c       |H<  |		Short_Literal	0x3c
02b7 0270       | p  |		Execute	Discrete,Divide
02b8 00d8       |    |		Load_Top	At_Offset_0
02b9 00e3       |    |		Load_Encached	Natural_Cache
02ba 0260       | `  |		Execute	Discrete,In_Type
02bb 7001       |p   |		Jump_Nonzero	0x2bd
02bc 0801       |    |		Execute_Immediate	Raise,0x1
02bd 4801       |H   |		Short_Literal	0x1
02be 8606       |    |		Call	0x3,0x6
02bf 00d1       |    |		Pop_Control	Pop_Count_1
02c0 00d8       |    |		Load_Top	At_Offset_0
02c1 483c       |H<  |		Short_Literal	0x3c
02c2 026e       | n  |		Execute	Discrete,Modulo
02c3 00d8       |    |		Load_Top	At_Offset_0
02c4 e006       |    |		Load	0x0,0x6
02c5 0260       | `  |		Execute	Discrete,In_Type
02c6 7001       |p   |		Jump_Nonzero	0x2c8
02c7 0801       |    |		Execute_Immediate	Raise,0x1
02c8 e9fd       |    |		Load	0x4,-0x3
02c9 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
02ca 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02cb 00d8       |    |		Load_Top	At_Offset_0
02cc e9fd       |    |		Load	0x4,-0x3
02cd 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
02ce 0273       | s  |		Execute	Discrete,Plus
02cf 0059       | Y  |		Store_Top	Discrete,At_Offset_1
02d0 e9fd       |    |		Load	0x4,-0x3
02d1 00d9       |    |		Load_Top	At_Offset_1
02d2 483c       |H<  |		Short_Literal	0x3c
02d3 0270       | p  |		Execute	Discrete,Divide
02d4 00d8       |    |		Load_Top	At_Offset_0
02d5 00e3       |    |		Load_Encached	Natural_Cache
02d6 0260       | `  |		Execute	Discrete,In_Type
02d7 7001       |p   |		Jump_Nonzero	0x2d9
02d8 0801       |    |		Execute_Immediate	Raise,0x1
02d9 4802       |H   |		Short_Literal	0x2
02da 8606       |    |		Call	0x3,0x6
02db 00d1       |    |		Pop_Control	Pop_Count_1
02dc 00d8       |    |		Load_Top	At_Offset_0
02dd 483c       |H<  |		Short_Literal	0x3c
02de 026e       | n  |		Execute	Discrete,Modulo
02df 00d8       |    |		Load_Top	At_Offset_0
02e0 e007       |    |		Load	0x0,0x7
02e1 0260       | `  |		Execute	Discrete,In_Type
02e2 7001       |p   |		Jump_Nonzero	0x2e4
02e3 0801       |    |		Execute_Immediate	Raise,0x1
02e4 e9fd       |    |		Load	0x4,-0x3
02e5 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
02e6 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02e7 00d8       |    |		Load_Top	At_Offset_0
02e8 e9fd       |    |		Load	0x4,-0x3
02e9 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
02ea 0273       | s  |		Execute	Discrete,Plus
02eb 0059       | Y  |		Store_Top	Discrete,At_Offset_1
02ec e9fd       |    |		Load	0x4,-0x3
02ed 00d9       |    |		Load_Top	At_Offset_1
02ee 4be8       |K   |		Short_Literal	0x3e8
02ef 0270       | p  |		Execute	Discrete,Divide
02f0 00d8       |    |		Load_Top	At_Offset_0
02f1 00e3       |    |		Load_Encached	Natural_Cache
02f2 0260       | `  |		Execute	Discrete,In_Type
02f3 7001       |p   |		Jump_Nonzero	0x2f5
02f4 0801       |    |		Execute_Immediate	Raise,0x1
02f5 4803       |H   |		Short_Literal	0x3
02f6 8606       |    |		Call	0x3,0x6
02f7 00d1       |    |		Pop_Control	Pop_Count_1
02f8 00d8       |    |		Load_Top	At_Offset_0
02f9 4be8       |K   |		Short_Literal	0x3e8
02fa 026e       | n  |		Execute	Discrete,Modulo
02fb 00d8       |    |		Load_Top	At_Offset_0
02fc e008       |    |		Load	0x0,0x8
02fd 0260       | `  |		Execute	Discrete,In_Type
02fe 7001       |p   |		Jump_Nonzero	0x300
02ff 0801       |    |		Execute_Immediate	Raise,0x1
0300 e9fd       |    |		Load	0x4,-0x3
0301 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0302 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0303 ; --------------------------------------------------------------------------------------
0303 ; STRING TABLE
0303 ; --------------------------------------------------------------------------------------
0303 0010       |    |		.STRTAB	0x0010->0x030b							; "DAY"
0304 0011       |    |		.STRTAB	0x0011->0x030c							; "HOUR"
0305 0013       |    |		.STRTAB	0x0013->0x030e							; "MINUTE"
0306 0017       |    |		.STRTAB	0x0017->0x0311							; "SECOND"
0307 001b       |    |		.STRTAB	0x001b->0x0314							; "MILLISECOND"
0308 0024       | $  |		.STRTAB	0x0024->0x031a							; "NUMBER"
0309 0028       | (  |		.STRTAB	0x0028->0x031d							; "00"
030a 0028       | (  |		.STREND 0x0028->0x031e
030b 4441 5948  |DAYH|		.STRTAB_STRINGS
031e 0000 0000  |    |		.XXX[0x2]
0320 ; --------------------------------------------------------------------------------------
0320 ; Debug Table
0320 ; --------------------------------------------------------------------------------------
0320 0004 0001  |    |		.DEBUG4	0x0004,0x0001,0x97de,0x0000,0x0001,0x0011
0326 000b 036a  |   j|		.DBG4T	0x000b,0x036a,0x0000,0x0000
032a 000e 036d  |   m|		.DBG4T	0x000e,0x036d,0x0000,0x0000
032e 001b 0370  |   p|		.DBG4T	0x001b,0x0370,0x0002,0x8000
0332 005b 0000  | [  |		.DBG4T	0x005b,0x0000,0x0005,0x0000
0336 0083 0395  |    |		.DBG4T	0x0083,0x0395,0x0002,0x4000
033a 0093 039d  |    |		.DBG4T	0x0093,0x039d,0x0002,0x0000
033e 00b3 03a2  |    |		.DBG4T	0x00b3,0x03a2,0x0002,0x4000
0342 00f3 03b8  |    |		.DBG4T	0x00f3,0x03b8,0x0002,0x4000
0346 011b 03ce  |    |		.DBG4T	0x011b,0x03ce,0x0001,0x4000
034a 013b 03df  | ;  |		.DBG4T	0x013b,0x03df,0x0001,0x4000
034e 0183 0402  |    |		.DBG4T	0x0183,0x0402,0x0002,0xc000
0352 01ab 0418  |    |		.DBG4T	0x01ab,0x0418,0x0002,0x0000
0356 01eb 041f  |    |		.DBG4T	0x01eb,0x041f,0x0002,0x0000
035a 0203 0422  |   "|		.DBG4T	0x0203,0x0422,0x0002,0x4000
035e 024b 0439  | K 9|		.DBG4T	0x024b,0x0439,0x0001,0x0000
0362 0263 043e  | c >|		.DBG4T	0x0263,0x043e,0x0001,0x0000
0366 027b 0444  | { D|		.DBG4T	0x027b,0x0444,0x0001,0x4000
036a ; --------------------------------------------------------------------------------------
036a ; Debug chain
036a ; --------------------------------------------------------------------------------------
036a 0001 0000  |    |		.DBGLEN	0x0001,0x0000
036c 000b       |    |		.DBGLNO	0x000b
036d ; --------------------------------------------------------------------------------------
036d ; Debug chain
036d ; --------------------------------------------------------------------------------------
036d 0001 0000  |    |		.DBGLEN	0x0001,0x0000
036f 000e       |    |		.DBGLNO	0x000e
0370 ; --------------------------------------------------------------------------------------
0370 ; Debug chain
0370 ; --------------------------------------------------------------------------------------
0370 0010 0003  |    |		.DBGLEN	0x0010,0x0003
0372 001b 001f  |    |		.DBGLNO	0x001b,0x001f,0x0021,0x0026,0x0028,0x0032,0x0034,0x0036,0x0038,0x003a,0x003c,0x003e,0x0040,0x0042,0x0044,0x0046,0x0048,0x004d,0x0052
0385 0001 0002  |    |		.XXX[0x10]
0387 0003 0005  |    |
0389 0006 0007  |    |
038b 0008 0009  |    |
038d 000a 000b  |    |
038f 000c 000d  |    |
0391 000e 000f  |    |
0393 0010 0011  |    |
0395 ; --------------------------------------------------------------------------------------
0395 ; Debug chain
0395 ; --------------------------------------------------------------------------------------
0395 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0397 0083 0088  |    |		.DBGLNO	0x0083,0x0088,0x008a
039a 0001 0003  |    |		.XXX[0x3]
039c 0002       |    |
039d ; --------------------------------------------------------------------------------------
039d ; Debug chain
039d ; --------------------------------------------------------------------------------------
039d 0000 0003  |    |		.DBGLEN	0x0000,0x0003
039f 0093 00a7  |    |		.DBGLNO	0x0093,0x00a7,0x00a9
03a2 ; --------------------------------------------------------------------------------------
03a2 ; Debug chain
03a2 ; --------------------------------------------------------------------------------------
03a2 0004 0008  |    |		.DBGLEN	0x0004,0x0008
03a4 00b3 00b5  |    |		.DBGLNO	0x00b3,0x00b5,0x00b6,0x00b8,0x00bc,0x00c0,0x00cb,0x00d0,0x00d4,0x00d7,0x00d9,0x00e0
03b0 0002 0001  |    |		.XXX[0x8]
03b2 0003 0004  |    |
03b4 0005 0006  |    |
03b6 0007 0008  |    |
03b8 ; --------------------------------------------------------------------------------------
03b8 ; Debug chain
03b8 ; --------------------------------------------------------------------------------------
03b8 0002 0009  |    |		.DBGLEN	0x0002,0x0009
03ba 00f3 00f4  |    |		.DBGLNO	0x00f3,0x00f4,0x00f8,0x00fc,0x00ff,0x0102,0x0105,0x0108,0x010a,0x010e,0x0114
03c5 0002 0003  |    |		.XXX[0x9]
03c7 0004 0005  |    |
03c9 0006 0007  |    |
03cb 0008 0001  |    |
03cd 0009       |    |
03ce ; --------------------------------------------------------------------------------------
03ce ; Debug chain
03ce ; --------------------------------------------------------------------------------------
03ce 0001 0007  |    |		.DBGLEN	0x0001,0x0007
03d0 011b 011d  |    |		.DBGLNO	0x011b,0x011d,0x011f,0x0121,0x0124,0x0126,0x0128,0x012c
03d8 0001 0002  |    |		.XXX[0x7]
03da 0003 0005  |    |
03dc 0006 0007  |    |
03de 0008       |    |
03df ; --------------------------------------------------------------------------------------
03df ; Debug chain
03df ; --------------------------------------------------------------------------------------
03df 0003 000f  |    |		.DBGLEN	0x0003,0x000f
03e1 013b 013d  | ; =|		.DBGLNO	0x013b,0x013d,0x013f,0x0141,0x0148,0x014d,0x014f,0x0154,0x0157,0x0159,0x015d,0x0162,0x0164,0x0167,0x016d,0x016f,0x0173,0x0176
03f3 0001 0003  |    |		.XXX[0xf]
03f5 0004 0005  |    |
03f7 0002 0006  |    |
03f9 0007 0008  |    |
03fb 0009 000a  |    |
03fd 000b 000f  |    |
03ff 000c 000d  |    |
0401 000e       |    |
0402 ; --------------------------------------------------------------------------------------
0402 ; Debug chain
0402 ; --------------------------------------------------------------------------------------
0402 0005 0005  |    |		.DBGLEN	0x0005,0x0005
0404 0183 0188  |    |		.DBGLNO	0x0183,0x0188,0x018a,0x018c,0x018e,0x0192,0x0197,0x019e,0x01a3,0x01a6
040e 0002 0003  |    |		.XXX[0xa]
0410 0004 0005  |    |
0412 0006 0002  |    |
0414 0003 0004  |    |
0416 0001 0005  |    |
0418 ; --------------------------------------------------------------------------------------
0418 ; Debug chain
0418 ; --------------------------------------------------------------------------------------
0418 0000 0005  |    |		.DBGLEN	0x0000,0x0005
041a 01ab 01af  |    |		.DBGLNO	0x01ab,0x01af,0x01bc,0x01c0,0x01cc
041f ; --------------------------------------------------------------------------------------
041f ; Debug chain
041f ; --------------------------------------------------------------------------------------
041f 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0421 01eb       |    |		.DBGLNO	0x01eb
0422 ; --------------------------------------------------------------------------------------
0422 ; Debug chain
0422 ; --------------------------------------------------------------------------------------
0422 0001 000a  |    |		.DBGLEN	0x0001,0x000a
0424 0203 0205  |    |		.DBGLNO	0x0203,0x0205,0x0225,0x022e,0x022f,0x0233,0x0236,0x0239,0x023a,0x023e,0x0240
042f 0001 0002  |    |		.XXX[0xa]
0431 0009 0003  |    |
0433 0004 0005  |    |
0435 0006 0007  |    |
0437 0008 000a  |    |
0439 ; --------------------------------------------------------------------------------------
0439 ; Debug chain
0439 ; --------------------------------------------------------------------------------------
0439 0001 0002  |    |		.DBGLEN	0x0001,0x0002
043b 024b 0258  | K X|		.DBGLNO	0x024b,0x0258,0x025c
043e ; --------------------------------------------------------------------------------------
043e ; Debug chain
043e ; --------------------------------------------------------------------------------------
043e 0000 0004  |    |		.DBGLEN	0x0000,0x0004
0440 0263 0268  | c h|		.DBGLNO	0x0263,0x0268,0x026c,0x0271
0444 ; --------------------------------------------------------------------------------------
0444 ; Debug chain
0444 ; --------------------------------------------------------------------------------------
0444 0001 0011  |    |		.DBGLEN	0x0001,0x0011
0446 027b 027e  | { ~|		.DBGLNO	0x027b,0x027e,0x0280,0x0281,0x028b,0x028c,0x0293,0x0298,0x02a4,0x02af,0x02b4,0x02c0,0x02cb,0x02d0,0x02dc,0x02e7,0x02ec,0x02f8
0458 0001 0002  |    |		.XXX[0x11]
045a 0003 0011  |    |
045c 0004 0005  |    |
045e 0006 0007  |    |
0460 0008 0009  |    |
0462 000a 000b  |    |
0464 000c 000d  |    |
0466 000e 000f  |    |
0468 0010       |    |
0469 0000 0000  |    |		.BLANK	0000[0x197]