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

⟦882b82f20⟧

    Length: 2048 (0x800)
    Notes: 00_class, 5811_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0ea8df

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 5811       |X   |		.CONST	0x5811								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0158       | X  |		.CONST	0x0158								; 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 0001       |    |		.CONST	0x0001								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0023       | #  |		.CONST	0x0023								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0015       |    |		.CONST	0x0015								; Number of locals
000b			INIT_0008:
000b 0007       |    |		Action	Break_Optional							; Debug Table 0x0 = .DEBUG	0x000b,0x01ba,0xc000,0x0000,0x0037,0x55b4,0x0000,0x0005
													; Debug Table 0x0.0x0 = 0xb,0xffff
000c 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x1 = 0xc,0xfffe
000d 029a 003b  |   ;|		Declare_Subprogram	INIT_0038,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x2 = 0xd,0xfffd
000f 029a 0093  |    |		Declare_Subprogram	INIT_0090,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x3 = 0xf,0xfffc
0011 00bf       |    |		Action	Accept_Activation
0012 0007       |    |		Action	Break_Optional							; Debug Table 0x1 = .DEBUG	0x0012,0x01c4,0xc000,0x0000,0x0037,0x58b4,0x0000,0x0007
													; Debug Table 0x1.0x0 = 0x12,0xffff
0013 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x1 = 0x13,0xfffe
0014 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x2 = 0x14,0xfffd
0015 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x3 = 0x15,0xfffc
0016 e001       |    |		Load	0x0,0x1								; Debug Table 0x1.0x4 = 0x16,0xfffb
0017 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0018 0611       |    |		Execute_Immediate	Set_Value_Unchecked,0x11
0019 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x1.0x5 = 0x19,0xfffa
001a 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
001b 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10				; Debug Table 0x1.0x6 = 0x1b,0xfff9
001c 00c7       |    |		Action	Elaborate_Subprogram
001d 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11				; Debug Table 0x1.0x7 = 0x1d,0xfff8
001e 00c7       |    |		Action	Elaborate_Subprogram
001f 029d 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Outer_Call			; Debug Table 0x1.0x8 = 0x1f,0xfff7
0021 029d 00cb  |    |		Declare_Subprogram	INIT_00c8,For_Outer_Call			; Debug Table 0x1.0x9 = 0x21,0xfff6
0023			BODY_0008:
0023 8214       |    |		Call	0x1,0x14							; Debug Table 0x1.0xa = 0x23,0x1
0024 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x1.0xb = 0x24,0x2
0025 0b07       |    |		Execute_Immediate	Case_Compare,0x7
0026 7001       |p   |		Jump_Nonzero	0x28
0027 7808       |x   |		Jump	0x30								; Debug Table 0x1.0xc = 0x27,0x6
0028 8215       |    |		Call	0x1,0x15							; Debug Table 0x1.0xd = 0x28,0x3
0029 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x1.0xe = 0x29,0x4
002a e20f       |    |		Load	0x1,0xf
002b 0124       | $  |		Execute	Any,Is_Constrained
002c 027f       |    |		Execute	Discrete,Equal
002d 6802       |h   |		Jump_Zero	0x30
002e 48e2       |H   |		Short_Literal	0xe2							; Debug Table 0x1.0xf = 0x2e,0x5
002f 0257       | W  |		Execute	Discrete,Raise
0030 00d1       |    |		Pop_Control	Pop_Count_1
0031 00bc       |    |		Action	Signal_Activated
0032 00bb       |    |		Action	Signal_Completion
0033 0000 0000  |    |		.BLANK	0000[0x5]
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 0047       | G  |		.CONST	0x0047								; Address of begin
0039 0004       |    |		.CONST	0x0004								; Address of exception handler
003a 0007       |    |		.CONST	0x0007								; Number of locals
003b			INIT_0038:
003b 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x2 = .DEBUG	0x003b,0x01e6,0x1002,0x0000,0x0037,0x55b4,0x0000,0x001e
													; Debug Table 0x2.0x0 = 0x3b,0xffff
003c 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
003d 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x2.0x1 = 0x3d,0xfffe
003e 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
003f 029f 00db  |    |		Declare_Subprogram	INIT_00d8,For_Call				; Debug Table 0x2.0x2 = 0x3f,0xfffd
0041 029f 00eb  |    |		Declare_Subprogram	INIT_00e8,For_Call				; Debug Table 0x2.0x3 = 0x41,0xfffc
0043 029f 00fb  |    |		Declare_Subprogram	INIT_00f8,For_Call				; Debug Table 0x2.0x4 = 0x43,0xfffb
0045 029f 0113  |    |		Declare_Subprogram	INIT_0110,For_Call				; Debug Table 0x2.0x5 = 0x45,0xfffa
0047			BODY_0038:
0047 e212       |    |		Load	0x1,0x12							; Debug Table 0x2.0x6 = 0x47,0x1
0048 4612       |F   |		Jump_Case	0x13
0049 7834       |x4  |		Jump	0x7e								; case 0x0
004a 7833       |x3  |		Jump	0x7e								; case 0x1
004b 7832       |x2  |		Jump	0x7e								; case 0x2
004c 7831       |x1  |		Jump	0x7e								; case 0x3
004d 7839       |x9  |		Jump	0x87								; case 0x4
004e 782f       |x/  |		Jump	0x7e								; case 0x5
004f 7837       |x7  |		Jump	0x87								; case 0x6
0050 781b       |x   |		Jump	0x6c								; case 0x7
0051 7835       |x5  |		Jump	0x87								; case 0x8
0052 7834       |x4  |		Jump	0x87								; case 0x9
0053 7833       |x3  |		Jump	0x87								; case 0xa
0054 7832       |x2  |		Jump	0x87								; case 0xb
0055 7828       |x(  |		Jump	0x7e								; case 0xc
0056 7805       |x   |		Jump	0x5c								; case 0xd
0057 782f       |x/  |		Jump	0x87								; case 0xe
0058 782e       |x.  |		Jump	0x87								; case 0xf
0059 782d       |x-  |		Jump	0x87								; case 0x10
005a 782c       |x,  |		Jump	0x87								; case 0x11
005b 782b       |x+  |		Jump	0x87								; case 0x12
005c 8404       |    |		Call	0x2,0x4								; Debug Table 0x2.0x7 = 0x5c,0x2
005d e402       |    |		Load	0x2,0x2								; Debug Table 0x2.0x8 = 0x5d,0x3
005e 6809       |h   |		Jump_Zero	0x68
005f e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x2.0x9 = 0x5f,0x4
0060 00d8       |    |		Load_Top	At_Offset_0
0061 0120       |    |		Execute	Any,Is_Value
0062 7002       |p   |		Jump_Nonzero	0x65
0063 00d8       |    |		Load_Top	At_Offset_0
0064 011e       |    |		Execute	Any,Convert
0065 e20f       |    |		Load	0x1,0xf
0066 0119       |    |		Execute	Any,Check_In_Formal_Type
0067 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0068 8406       |    |		Call	0x2,0x6								; Debug Table 0x2.0xa = 0x68,0x5
0069 e20f       |    |		Load	0x1,0xf
006a 0119       |    |		Execute	Any,Check_In_Formal_Type
006b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
006c 8405       |    |		Call	0x2,0x5								; Debug Table 0x2.0xb = 0x6c,0x6
006d e213       |    |		Load	0x1,0x13							; Debug Table 0x2.0xc = 0x6d,0x7
006e e403       |    |		Load	0x2,0x3
006f 027f       |    |		Execute	Discrete,Equal
0070 6809       |h   |		Jump_Zero	0x7a
0071 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x2.0xd = 0x71,0x8
0072 00d8       |    |		Load_Top	At_Offset_0
0073 0120       |    |		Execute	Any,Is_Value
0074 7002       |p   |		Jump_Nonzero	0x77
0075 00d8       |    |		Load_Top	At_Offset_0
0076 011e       |    |		Execute	Any,Convert
0077 e20f       |    |		Load	0x1,0xf
0078 0119       |    |		Execute	Any,Check_In_Formal_Type
0079 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
007a 8407       |    |		Call	0x2,0x7								; Debug Table 0x2.0xe = 0x7a,0x9
007b e20f       |    |		Load	0x1,0xf
007c 0119       |    |		Execute	Any,Check_In_Formal_Type
007d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
007e e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x2.0xf = 0x7e,0xa
007f 00d8       |    |		Load_Top	At_Offset_0
0080 0120       |    |		Execute	Any,Is_Value
0081 7002       |p   |		Jump_Nonzero	0x84
0082 00d8       |    |		Load_Top	At_Offset_0
0083 011e       |    |		Execute	Any,Convert
0084 e20f       |    |		Load	0x1,0xf
0085 0119       |    |		Execute	Any,Check_In_Formal_Type
0086 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0087 4831       |H1  |		Short_Literal	0x31
0088 0257       | W  |		Execute	Discrete,Raise
0089 0000 0000  |    |		.BLANK	0000[0x7]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0099       |    |		.CONST	0x0099								; Address of begin
0091 0004       |    |		.CONST	0x0004								; Address of exception handler
0092 0004       |    |		.CONST	0x0004								; Number of locals
0093			INIT_0090:
0093 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x3 = .DEBUG	0x0093,0x0208,0x1002,0x0000,0x0037,0x55b4,0x0000,0x0027
													; Debug Table 0x3.0x0 = 0x93,0xffff
0094 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
0095 029f 0123  |   #|		Declare_Subprogram	INIT_0120,For_Call				; Debug Table 0x3.0x1 = 0x95,0xfffe
0097 029f 013b  |   ;|		Declare_Subprogram	INIT_0138,For_Call
0099			BODY_0090:
0099 e212       |    |		Load	0x1,0x12							; Debug Table 0x3.0x2 = 0x99,0x1
009a 4612       |F   |		Jump_Case	0x13
009b 7815       |x   |		Jump	0xb1								; case 0x0
009c 7814       |x   |		Jump	0xb1								; case 0x1
009d 7815       |x   |		Jump	0xb3								; case 0x2
009e 7814       |x   |		Jump	0xb3								; case 0x3
009f 7815       |x   |		Jump	0xb5								; case 0x4
00a0 7812       |x   |		Jump	0xb3								; case 0x5
00a1 7813       |x   |		Jump	0xb5								; case 0x6
00a2 780b       |x   |		Jump	0xae								; case 0x7
00a3 7811       |x   |		Jump	0xb5								; case 0x8
00a4 7810       |x   |		Jump	0xb5								; case 0x9
00a5 780f       |x   |		Jump	0xb5								; case 0xa
00a6 780e       |x   |		Jump	0xb5								; case 0xb
00a7 7806       |x   |		Jump	0xae								; case 0xc
00a8 7805       |x   |		Jump	0xae								; case 0xd
00a9 780b       |x   |		Jump	0xb5								; case 0xe
00aa 780a       |x   |		Jump	0xb5								; case 0xf
00ab 7809       |x   |		Jump	0xb5								; case 0x10
00ac 7808       |x   |		Jump	0xb5								; case 0x11
00ad 7807       |x   |		Jump	0xb5								; case 0x12
00ae 8404       |    |		Call	0x2,0x4								; Debug Table 0x3.0x3 = 0xae,0x2
00af 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x3.0x4 = 0xaf,0x3
00b0 00ca       |    |		Action	Exit_Nullary_Function
00b1 4801       |H   |		Short_Literal	0x1							; Debug Table 0x3.0x5 = 0xb1,0x4
00b2 00ca       |    |		Action	Exit_Nullary_Function
00b3 4800       |H   |		Short_Literal	0x0							; Debug Table 0x3.0x6 = 0xb3,0x5
00b4 00ca       |    |		Action	Exit_Nullary_Function
00b5 4831       |H1  |		Short_Literal	0x31
00b6 0257       | W  |		Execute	Discrete,Raise
00b7 0000       |    |		.XXX[0x1]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb       |    |		.CONST	0x00bb								; Address of begin
00b9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ba 0001       |    |		.CONST	0x0001								; Number of locals
00bb			BODY_00b8:
00bb			INIT_00b8:
00bb e20f       |    |		Load	0x1,0xf								; Debug Table 0x4 = .DEBUG	0x00bb,0x0218,0x1001,0x0000,0x0037,0x58b4,0x0000,0x01db
													; Debug Table 0x4.0x0 = 0xbb,0x1
00bc 0007       |    |		Action	Break_Optional
00bd 0117       |    |		Execute	Any,Structure_Query						; Debug Table 0x4.0x1 = 0xbd,0x2
00be 0007       |    |		Action	Break_Optional
00bf c212       |    |		Store	0x1,0x12							; Debug Table 0x4.0x2 = 0xbf,0x3
00c0 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00c1 0000 0000  |    |		.BLANK	0000[0x7]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb       |    |		.CONST	0x00cb								; Address of begin
00c9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ca 0001       |    |		.CONST	0x0001								; Number of locals
00cb			BODY_00c8:
00cb			INIT_00c8:
00cb e20f       |    |		Load	0x1,0xf								; Debug Table 0x5 = .DEBUG	0x00cb,0x0220,0x1001,0x0000,0x0037,0x58b4,0x0000,0x0206
													; Debug Table 0x5.0x0 = 0xcb,0x1
00cc 0007       |    |		Action	Break_Optional
00cd 0117       |    |		Execute	Any,Structure_Query						; Debug Table 0x5.0x1 = 0xcd,0x2
00ce 0007       |    |		Action	Break_Optional
00cf 00d2       |    |		Pop_Control	Pop_Count_2						; Debug Table 0x5.0x2 = 0xcf,0x3
00d0 c213       |    |		Store	0x1,0x13							; Debug Table 0x5.0x3 = 0xd0,0x4
00d1 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00d2 0000 0000  |    |		.BLANK	0000[0x6]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db       |    |		.CONST	0x00db								; Address of begin
00d9 0004       |    |		.CONST	0x0004								; Address of exception handler
00da 0001       |    |		.CONST	0x0001								; Number of locals
00db			BODY_00d8:
00db			INIT_00d8:
00db e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x6 = .DEBUG	0x00db,0x022a,0x1001,0x0000,0x0037,0x58b4,0x0000,0x0046
													; Debug Table 0x6.0x0 = 0xdb,0x1
00dc 0007       |    |		Action	Break_Optional
00dd 0117       |    |		Execute	Any,Structure_Query						; Debug Table 0x6.0x1 = 0xdd,0x2
00de 0007       |    |		Action	Break_Optional
00df 00d5       |    |		Pop_Control	Pop_Count_5						; Debug Table 0x6.0x2 = 0xdf,0x3
00e0 c402       |    |		Store	0x2,0x2								; Debug Table 0x6.0x3 = 0xe0,0x4
00e1 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00e2 0000 0000  |    |		.BLANK	0000[0x6]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb       |    |		.CONST	0x00eb								; Address of begin
00e9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ea 0001       |    |		.CONST	0x0001								; Number of locals
00eb			BODY_00e8:
00eb			INIT_00e8:
00eb e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x7 = .DEBUG	0x00eb,0x0234,0x1001,0x0000,0x0037,0x58b4,0x0000,0x0078
													; Debug Table 0x7.0x0 = 0xeb,0x1
00ec 0007       |    |		Action	Break_Optional
00ed 0117       |    |		Execute	Any,Structure_Query						; Debug Table 0x7.0x1 = 0xed,0x2
00ee 0007       |    |		Action	Break_Optional
00ef 00d2       |    |		Pop_Control	Pop_Count_2						; Debug Table 0x7.0x2 = 0xef,0x3
00f0 c403       |    |		Store	0x2,0x3								; Debug Table 0x7.0x3 = 0xf0,0x4
00f1 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00f2 0000 0000  |    |		.BLANK	0000[0x6]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 0106       |    |		.CONST	0x0106								; Address of begin
00f9 0004       |    |		.CONST	0x0004								; Address of exception handler
00fa 0003       |    |		.CONST	0x0003								; Number of locals
00fb			INIT_00f8:
00fb e20f       |    |		Load	0x1,0xf								; Debug Table 0x8 = .DEBUG	0x00fb,0x023e,0x1002,0x0000,0x0037,0x58b4,0x0000,0x00aa
													; Debug Table 0x8.0x0 = 0xfb,0xffff
00fc 02a0       |    |		Declare_Subprogram	Null_Subprogram
00fd 4818       |H   |		Short_Literal	0x18
00fe 03d3       |    |		Declare_Type	Access,Defined,Accesses_Protected
00ff 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x8.0x1 = 0xff,0xfffe
0100 e5ff       |    |		Load	0x2,-0x1
0101 e20f       |    |		Load	0x1,0xf
0102 0119       |    |		Execute	Any,Check_In_Formal_Type
0103 00da       |    |		Load_Top	At_Offset_2
0104 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0105 0039       | 9  |		Store_Top	Access,At_Offset_1
0106			BODY_00f8:
0106 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x8.0x2 = 0x106,0x1
0107 0229       | )  |		Execute	Access,All_Read
0108 00d8       |    |		Load_Top	At_Offset_0
0109 0120       |    |		Execute	Any,Is_Value
010a 7002       |p   |		Jump_Nonzero	0x10d
010b 00d8       |    |		Load_Top	At_Offset_0
010c 011e       |    |		Execute	Any,Convert
010d e20f       |    |		Load	0x1,0xf
010e 0119       |    |		Execute	Any,Check_In_Formal_Type
010f 00ca       |    |		Action	Exit_Nullary_Function
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0115       |    |		.CONST	0x0115								; Address of begin
0111 0004       |    |		.CONST	0x0004								; Address of exception handler
0112 0001       |    |		.CONST	0x0001								; Number of locals
0113			INIT_0110:
0113 0007       |    |		Action	Break_Optional							; Debug Table 0x9 = .DEBUG	0x0113,0x0246,0x1002,0x0000,0x0037,0x58b4,0x0000,0x00c5
													; Debug Table 0x9.0x0 = 0x113,0xffff
0114 0007       |    |		Action	Break_Optional							; Debug Table 0x9.0x1 = 0x114,0xfffe
0115			BODY_0110:
0115 0007       |    |		Action	Break_Optional							; Debug Table 0x9.0x2 = 0x115,0x1
0116 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x9.0x3 = 0x116,0x401
0117 0007       |    |		Action	Break_Optional
0118 e20f       |    |		Load	0x1,0xf								; Debug Table 0x9.0x4 = 0x118,0x402
0119 0007       |    |		Action	Break_Optional
011a 011e       |    |		Execute	Any,Convert							; Debug Table 0x9.0x5 = 0x11a,0x403
011b 4400       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x0				; Debug Table 0x9.0x6 = 0x11b,0x404
011c 8407       |    |		Call	0x2,0x7								; Debug Table 0x9.0x7 = 0x11c,0x2
011d e20f       |    |		Load	0x1,0xf
011e 0119       |    |		Execute	Any,Check_In_Formal_Type
011f 00ca       |    |		Action	Exit_Nullary_Function
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123       | #  |		.CONST	0x0123								; Address of begin
0121 0004       |    |		.CONST	0x0004								; Address of exception handler
0122 0001       |    |		.CONST	0x0001								; Number of locals
0123			BODY_0120:
0123			INIT_0120:
0123 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xa = .DEBUG	0x0123,0x0258,0x1001,0x0000,0x0037,0x58b4,0x0000,0x016a
													; Debug Table 0xa.0x0 = 0x123,0x1
0124 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0125 460d       |F   |		Jump_Case	0xe
0126 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0x0
0127 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0x1
0128 780b       |x   |		Jump	0x134								; case 0x2
0129 780a       |x   |		Jump	0x134								; case 0x3
012a 7809       |x   |		Jump	0x134								; case 0x4
012b 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0x5
012c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0x6
012d 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0x7
012e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0x8
012f 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0x9
0130 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0xa
0131 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0xb
0132 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0xc
0133 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0xd
0134 4800       |H   |		Short_Literal	0x0							; Debug Table 0xa.0x1 = 0x134,0x2
0135 a402       |    |		Store_Unchecked	0x2,0x2
0136 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0137 0000       |    |		.XXX[0x1]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 0146       | F  |		.CONST	0x0146								; Address of begin
0139 0004       |    |		.CONST	0x0004								; Address of exception handler
013a 0006       |    |		.CONST	0x0006								; Number of locals
013b			INIT_0138:
013b e002       |    |		Load	0x0,0x2								; Debug Table 0xb = .DEBUG	0x013b,0x025e,0x1004,0x0000,0x0037,0x58b4,0x0000,0x01b2
													; Debug Table 0xb.0x0 = 0x13b,0xffff
013c 1912       |    |		Execute	Package,Field_Reference,Field_Number 0x12
013d 00c6       |    |		Action	Check_Subprogram_Elaborated
013e e20f       |    |		Load	0x1,0xf
013f 4803       |H   |		Short_Literal	0x3
0140 4802       |H   |		Short_Literal	0x2
0141 0099       |    |		Action	Reference_Dynamic
0142 600d       |`   |		Indirect_Literal	Discrete,0x150,{0x00000000, 0x003758b4}
0143 49a1       |I   |		Short_Literal	0x1a1
0144 4806       |H   |		Short_Literal	0x6
0145 0007       |    |		Action	Break_Optional
0146			BODY_0138:
0146 e602       |    |		Load	0x3,0x2								; Debug Table 0xb.0x1 = 0x146,0x1
0147 4803       |H   |		Short_Literal	0x3
0148 4803       |H   |		Short_Literal	0x3
0149 0099       |    |		Action	Reference_Dynamic
014a 4804       |H   |		Short_Literal	0x4
014b 4803       |H   |		Short_Literal	0x3
014c 0099       |    |		Action	Reference_Dynamic
014d e002       |    |		Load	0x0,0x2
014e 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
014f 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0150 0000 0000  |    |		.LITERAL	{0x00000000, 0x003758b4}
0154 0000 0000  |    |		.BLANK	0000[0x4]
0158 ; --------------------------------------------------------------------------------------
0158 ; Debug Table
0158 ; --------------------------------------------------------------------------------------
0158 0003 000c  |    |		.CONST	0x0003,0x000c
015a 000b 01ba  |    |		.DEBUG	0x000b,0x01ba,0xc000,0x0000,0x0037,0x55b4,0x0000,0x0005
0162 0012 01c4  |    |		.DEBUG	0x0012,0x01c4,0xc000,0x0000,0x0037,0x58b4,0x0000,0x0007
016a 003b 01e6  | ;  |		.DEBUG	0x003b,0x01e6,0x1002,0x0000,0x0037,0x55b4,0x0000,0x001e
0172 0093 0208  |    |		.DEBUG	0x0093,0x0208,0x1002,0x0000,0x0037,0x55b4,0x0000,0x0027
017a 00bb 0218  |    |		.DEBUG	0x00bb,0x0218,0x1001,0x0000,0x0037,0x58b4,0x0000,0x01db
0182 00cb 0220  |    |		.DEBUG	0x00cb,0x0220,0x1001,0x0000,0x0037,0x58b4,0x0000,0x0206
018a 00db 022a  |   *|		.DEBUG	0x00db,0x022a,0x1001,0x0000,0x0037,0x58b4,0x0000,0x0046
0192 00eb 0234  |   4|		.DEBUG	0x00eb,0x0234,0x1001,0x0000,0x0037,0x58b4,0x0000,0x0078
019a 00fb 023e  |   >|		.DEBUG	0x00fb,0x023e,0x1002,0x0000,0x0037,0x58b4,0x0000,0x00aa
01a2 0113 0246  |   F|		.DEBUG	0x0113,0x0246,0x1002,0x0000,0x0037,0x58b4,0x0000,0x00c5
01aa 0123 0258  | # X|		.DEBUG	0x0123,0x0258,0x1001,0x0000,0x0037,0x58b4,0x0000,0x016a
01b2 013b 025e  | ; ^|		.DEBUG	0x013b,0x025e,0x1004,0x0000,0x0037,0x58b4,0x0000,0x01b2
01ba ; --------------------------------------------------------------------------------------
01ba ; Debug3 Subtable 0x0
01ba ; --------------------------------------------------------------------------------------
01ba 0004 0000  |    |		.DBG3TAB	0x0004,0x0000
01bc 000b ffff  |    |		.CONST	0x000b,0xffff
01be 000c fffe  |    |		.CONST	0x000c,0xfffe
01c0 000d fffd  |    |		.CONST	0x000d,0xfffd
01c2 000f fffc  |    |		.CONST	0x000f,0xfffc
01c4 ; --------------------------------------------------------------------------------------
01c4 ; Debug3 Subtable 0x1
01c4 ; --------------------------------------------------------------------------------------
01c4 000a 0006  |    |		.DBG3TAB	0x000a,0x0006
01c6 0012 ffff  |    |		.CONST	0x0012,0xffff
01c8 0013 fffe  |    |		.CONST	0x0013,0xfffe
01ca 0014 fffd  |    |		.CONST	0x0014,0xfffd
01cc 0015 fffc  |    |		.CONST	0x0015,0xfffc
01ce 0016 fffb  |    |		.CONST	0x0016,0xfffb
01d0 0019 fffa  |    |		.CONST	0x0019,0xfffa
01d2 001b fff9  |    |		.CONST	0x001b,0xfff9
01d4 001d fff8  |    |		.CONST	0x001d,0xfff8
01d6 001f fff7  |    |		.CONST	0x001f,0xfff7
01d8 0021 fff6  | !  |		.CONST	0x0021,0xfff6
01da 0023 0001  | #  |		.CONST	0x0023,0x0001
01dc 0024 0002  | $  |		.CONST	0x0024,0x0002
01de 0027 0006  | '  |		.CONST	0x0027,0x0006
01e0 0028 0003  | (  |		.CONST	0x0028,0x0003
01e2 0029 0004  | )  |		.CONST	0x0029,0x0004
01e4 002e 0005  | .  |		.CONST	0x002e,0x0005
01e6 ; --------------------------------------------------------------------------------------
01e6 ; Debug3 Subtable 0x2
01e6 ; --------------------------------------------------------------------------------------
01e6 0006 000a  |    |		.DBG3TAB	0x0006,0x000a
01e8 003b ffff  | ;  |		.CONST	0x003b,0xffff
01ea 003d fffe  | =  |		.CONST	0x003d,0xfffe
01ec 003f fffd  | ?  |		.CONST	0x003f,0xfffd
01ee 0041 fffc  | A  |		.CONST	0x0041,0xfffc
01f0 0043 fffb  | C  |		.CONST	0x0043,0xfffb
01f2 0045 fffa  | E  |		.CONST	0x0045,0xfffa
01f4 0047 0001  | G  |		.CONST	0x0047,0x0001
01f6 005c 0002  | \  |		.CONST	0x005c,0x0002
01f8 005d 0003  | ]  |		.CONST	0x005d,0x0003
01fa 005f 0004  | _  |		.CONST	0x005f,0x0004
01fc 0068 0005  | h  |		.CONST	0x0068,0x0005
01fe 006c 0006  | l  |		.CONST	0x006c,0x0006
0200 006d 0007  | m  |		.CONST	0x006d,0x0007
0202 0071 0008  | q  |		.CONST	0x0071,0x0008
0204 007a 0009  | z  |		.CONST	0x007a,0x0009
0206 007e 000a  | ~  |		.CONST	0x007e,0x000a
0208 ; --------------------------------------------------------------------------------------
0208 ; Debug3 Subtable 0x3
0208 ; --------------------------------------------------------------------------------------
0208 0002 0005  |    |		.DBG3TAB	0x0002,0x0005
020a 0093 ffff  |    |		.CONST	0x0093,0xffff
020c 0095 fffe  |    |		.CONST	0x0095,0xfffe
020e 0099 0001  |    |		.CONST	0x0099,0x0001
0210 00ae 0002  |    |		.CONST	0x00ae,0x0002
0212 00af 0003  |    |		.CONST	0x00af,0x0003
0214 00b1 0004  |    |		.CONST	0x00b1,0x0004
0216 00b3 0005  |    |		.CONST	0x00b3,0x0005
0218 ; --------------------------------------------------------------------------------------
0218 ; Debug3 Subtable 0x4
0218 ; --------------------------------------------------------------------------------------
0218 0000 0003  |    |		.DBG3TAB	0x0000,0x0003
021a 00bb 0001  |    |		.CONST	0x00bb,0x0001
021c 00bd 0002  |    |		.CONST	0x00bd,0x0002
021e 00bf 0003  |    |		.CONST	0x00bf,0x0003
0220 ; --------------------------------------------------------------------------------------
0220 ; Debug3 Subtable 0x5
0220 ; --------------------------------------------------------------------------------------
0220 0000 0004  |    |		.DBG3TAB	0x0000,0x0004
0222 00cb 0001  |    |		.CONST	0x00cb,0x0001
0224 00cd 0002  |    |		.CONST	0x00cd,0x0002
0226 00cf 0003  |    |		.CONST	0x00cf,0x0003
0228 00d0 0004  |    |		.CONST	0x00d0,0x0004
022a ; --------------------------------------------------------------------------------------
022a ; Debug3 Subtable 0x6
022a ; --------------------------------------------------------------------------------------
022a 0000 0004  |    |		.DBG3TAB	0x0000,0x0004
022c 00db 0001  |    |		.CONST	0x00db,0x0001
022e 00dd 0002  |    |		.CONST	0x00dd,0x0002
0230 00df 0003  |    |		.CONST	0x00df,0x0003
0232 00e0 0004  |    |		.CONST	0x00e0,0x0004
0234 ; --------------------------------------------------------------------------------------
0234 ; Debug3 Subtable 0x7
0234 ; --------------------------------------------------------------------------------------
0234 0000 0004  |    |		.DBG3TAB	0x0000,0x0004
0236 00eb 0001  |    |		.CONST	0x00eb,0x0001
0238 00ed 0002  |    |		.CONST	0x00ed,0x0002
023a 00ef 0003  |    |		.CONST	0x00ef,0x0003
023c 00f0 0004  |    |		.CONST	0x00f0,0x0004
023e ; --------------------------------------------------------------------------------------
023e ; Debug3 Subtable 0x8
023e ; --------------------------------------------------------------------------------------
023e 0002 0001  |    |		.DBG3TAB	0x0002,0x0001
0240 00fb ffff  |    |		.CONST	0x00fb,0xffff
0242 00ff fffe  |    |		.CONST	0x00ff,0xfffe
0244 0106 0001  |    |		.CONST	0x0106,0x0001
0246 ; --------------------------------------------------------------------------------------
0246 ; Debug3 Subtable 0x9
0246 ; --------------------------------------------------------------------------------------
0246 0002 0006  |    |		.DBG3TAB	0x0002,0x0006
0248 0113 ffff  |    |		.CONST	0x0113,0xffff
024a 0114 fffe  |    |		.CONST	0x0114,0xfffe
024c 0115 0001  |    |		.CONST	0x0115,0x0001
024e 0116 0401  |    |		.CONST	0x0116,0x0401
0250 0118 0402  |    |		.CONST	0x0118,0x0402
0252 011a 0403  |    |		.CONST	0x011a,0x0403
0254 011b 0404  |    |		.CONST	0x011b,0x0404
0256 011c 0002  |    |		.CONST	0x011c,0x0002
0258 ; --------------------------------------------------------------------------------------
0258 ; Debug3 Subtable 0xa
0258 ; --------------------------------------------------------------------------------------
0258 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
025a 0123 0001  | #  |		.CONST	0x0123,0x0001
025c 0134 0002  | 4  |		.CONST	0x0134,0x0002
025e ; --------------------------------------------------------------------------------------
025e ; Debug3 Subtable 0xb
025e ; --------------------------------------------------------------------------------------
025e 0001 0001  |    |		.DBG3TAB	0x0001,0x0001
0260 013b ffff  | ;  |		.CONST	0x013b,0xffff
0262 0146 0001  | F  |		.CONST	0x0146,0x0001
0264 0000 0000  |    |		.BLANK	0000[0x19c]