DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 DFS Tapes

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 DFS Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦7687b9455⟧ SEG

    Length: 2048 (0x800)
    Types: SEG
    Notes: 5811_R1K_CODE
    Names: »114707.SEG«

Derivation

└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
    └─ ⟦this⟧ »114707.SEG« 
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
    └─ ⟦this⟧ »114707.SEG« 
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
    └─ ⟦this⟧ »114707.SEG« 
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
    └─ ⟦this⟧ »114707.SEG« 
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
    └─ ⟦this⟧ »114707.SEG« 

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 0128       | (  |		.CONST	0x0128								; 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 001d       |    |		.CONST	0x001d								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0015       |    |		.CONST	0x0015								; Number of locals
000b			INIT_0008:
000b 029a 0033  |   3|		Declare_Subprogram	INIT_0030,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0 = .DEBUG	0x000b,0x0182,0xc000,0x0000,0x0036,0x0764,0x0000,0x0005
													; Debug Table 0x0.0x0 = 0xb,0xffff
													; Debug Table 0x0.0x1 = 0xb,0xfffe
													; Debug Table 0x0.0x2 = 0xb,0xfffd
000d 029a 008b  |    |		Declare_Subprogram	INIT_0088,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x3 = 0xd,0xfffc
000f 00bf       |    |		Action	Accept_Activation
0010 e001       |    |		Load	0x0,0x1								; Debug Table 0x1 = .DEBUG	0x0010,0x018c,0xc000,0x0000,0x0036,0x0774,0x0000,0x0007
													; Debug Table 0x1.0x0 = 0x10,0xffff
													; Debug Table 0x1.0x1 = 0x10,0xfffe
													; Debug Table 0x1.0x2 = 0x10,0xfffd
													; Debug Table 0x1.0x3 = 0x10,0xfffc
													; Debug Table 0x1.0x4 = 0x10,0xfffb
0011 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0012 0611       |    |		Execute_Immediate	Set_Value_Unchecked,0x11
0013 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x1.0x5 = 0x13,0xfffa
0014 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0015 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10				; Debug Table 0x1.0x6 = 0x15,0xfff9
0016 00c7       |    |		Action	Elaborate_Subprogram
0017 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11				; Debug Table 0x1.0x7 = 0x17,0xfff8
0018 00c7       |    |		Action	Elaborate_Subprogram
0019 029d 00c3  |    |		Declare_Subprogram	INIT_00c0,For_Outer_Call			; Debug Table 0x1.0x8 = 0x19,0xfff7
001b 029d 00cb  |    |		Declare_Subprogram	INIT_00c8,For_Outer_Call			; Debug Table 0x1.0x9 = 0x1b,0xfff6
001d			BODY_0008:
001d 8214       |    |		Call	0x1,0x14							; Debug Table 0x1.0xa = 0x1d,0x1
001e 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x1.0xb = 0x1e,0x2
001f 0b07       |    |		Execute_Immediate	Case_Compare,0x7
0020 7001       |p   |		Jump_Nonzero	0x22
0021 7808       |x   |		Jump	0x2a								; Debug Table 0x1.0xc = 0x21,0x6
0022 8215       |    |		Call	0x1,0x15							; Debug Table 0x1.0xd = 0x22,0x3
0023 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x1.0xe = 0x23,0x4
0024 e20f       |    |		Load	0x1,0xf
0025 0124       | $  |		Execute	Any,Is_Constrained
0026 027f       |    |		Execute	Discrete,Equal
0027 6802       |h   |		Jump_Zero	0x2a
0028 48e2       |H   |		Short_Literal	0xe2							; Debug Table 0x1.0xf = 0x28,0x5
0029 0257       | W  |		Execute	Discrete,Raise
002a 00d1       |    |		Pop_Control	Pop_Count_1
002b 00bc       |    |		Action	Signal_Activated
002c 00bb       |    |		Action	Signal_Completion
002d 0000 0000  |    |		.XXX[0x3]
002f 0000       |    |
0030 ; --------------------------------------------------------------------------------------
0030 ; SUBPROGRAM
0030 ; --------------------------------------------------------------------------------------
0030 003f       | ?  |		.CONST	0x003f								; Address of begin
0031 0004       |    |		.CONST	0x0004								; Address of exception handler
0032 0007       |    |		.CONST	0x0007								; Number of locals
0033			INIT_0030:
0033 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x2 = .DEBUG	0x0033,0x01ae,0x1002,0x0000,0x0036,0x0764,0x0000,0x001e
													; Debug Table 0x2.0x0 = 0x33,0xffff
0034 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0035 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x2.0x1 = 0x35,0xfffe
0036 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0037 029f 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Call				; Debug Table 0x2.0x2 = 0x37,0xfffd
0039 029f 00db  |    |		Declare_Subprogram	INIT_00d8,For_Call				; Debug Table 0x2.0x3 = 0x39,0xfffc
003b 029f 00e3  |    |		Declare_Subprogram	INIT_00e0,For_Call				; Debug Table 0x2.0x4 = 0x3b,0xfffb
003d 029f 00fb  |    |		Declare_Subprogram	INIT_00f8,For_Call				; Debug Table 0x2.0x5 = 0x3d,0xfffa
003f			BODY_0030:
003f e212       |    |		Load	0x1,0x12							; Debug Table 0x2.0x6 = 0x3f,0x1
0040 4612       |F   |		Jump_Case	0x13
0041 7834       |x4  |		Jump	0x76								; case 0x0
0042 7833       |x3  |		Jump	0x76								; case 0x1
0043 7832       |x2  |		Jump	0x76								; case 0x2
0044 7831       |x1  |		Jump	0x76								; case 0x3
0045 7839       |x9  |		Jump	0x7f								; case 0x4
0046 782f       |x/  |		Jump	0x76								; case 0x5
0047 7837       |x7  |		Jump	0x7f								; case 0x6
0048 781b       |x   |		Jump	0x64								; case 0x7
0049 7835       |x5  |		Jump	0x7f								; case 0x8
004a 7834       |x4  |		Jump	0x7f								; case 0x9
004b 7833       |x3  |		Jump	0x7f								; case 0xa
004c 7832       |x2  |		Jump	0x7f								; case 0xb
004d 7828       |x(  |		Jump	0x76								; case 0xc
004e 7805       |x   |		Jump	0x54								; case 0xd
004f 782f       |x/  |		Jump	0x7f								; case 0xe
0050 782e       |x.  |		Jump	0x7f								; case 0xf
0051 782d       |x-  |		Jump	0x7f								; case 0x10
0052 782c       |x,  |		Jump	0x7f								; case 0x11
0053 782b       |x+  |		Jump	0x7f								; case 0x12
0054 8404       |    |		Call	0x2,0x4								; Debug Table 0x2.0x7 = 0x54,0x2
0055 e402       |    |		Load	0x2,0x2								; Debug Table 0x2.0x8 = 0x55,0x3
0056 6809       |h   |		Jump_Zero	0x60
0057 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x2.0x9 = 0x57,0x4
0058 00d8       |    |		Load_Top	At_Offset_0
0059 0120       |    |		Execute	Any,Is_Value
005a 7002       |p   |		Jump_Nonzero	0x5d
005b 00d8       |    |		Load_Top	At_Offset_0
005c 011e       |    |		Execute	Any,Convert
005d e20f       |    |		Load	0x1,0xf
005e 0119       |    |		Execute	Any,Check_In_Formal_Type
005f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0060 8406       |    |		Call	0x2,0x6								; Debug Table 0x2.0xa = 0x60,0x5
0061 e20f       |    |		Load	0x1,0xf
0062 0119       |    |		Execute	Any,Check_In_Formal_Type
0063 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0064 8405       |    |		Call	0x2,0x5								; Debug Table 0x2.0xb = 0x64,0x6
0065 e213       |    |		Load	0x1,0x13							; Debug Table 0x2.0xc = 0x65,0x7
0066 e403       |    |		Load	0x2,0x3
0067 027f       |    |		Execute	Discrete,Equal
0068 6809       |h   |		Jump_Zero	0x72
0069 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x2.0xd = 0x69,0x8
006a 00d8       |    |		Load_Top	At_Offset_0
006b 0120       |    |		Execute	Any,Is_Value
006c 7002       |p   |		Jump_Nonzero	0x6f
006d 00d8       |    |		Load_Top	At_Offset_0
006e 011e       |    |		Execute	Any,Convert
006f e20f       |    |		Load	0x1,0xf
0070 0119       |    |		Execute	Any,Check_In_Formal_Type
0071 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0072 8407       |    |		Call	0x2,0x7								; Debug Table 0x2.0xe = 0x72,0x9
0073 e20f       |    |		Load	0x1,0xf
0074 0119       |    |		Execute	Any,Check_In_Formal_Type
0075 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0076 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x2.0xf = 0x76,0xa
0077 00d8       |    |		Load_Top	At_Offset_0
0078 0120       |    |		Execute	Any,Is_Value
0079 7002       |p   |		Jump_Nonzero	0x7c
007a 00d8       |    |		Load_Top	At_Offset_0
007b 011e       |    |		Execute	Any,Convert
007c e20f       |    |		Load	0x1,0xf
007d 0119       |    |		Execute	Any,Check_In_Formal_Type
007e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
007f 4831       |H1  |		Short_Literal	0x31
0080 0257       | W  |		Execute	Discrete,Raise
0081 0000 0000  |    |		.BLANK	0000[0x7]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008f       |    |		.CONST	0x008f								; Address of begin
0089 0004       |    |		.CONST	0x0004								; Address of exception handler
008a 0003       |    |		.CONST	0x0003								; Number of locals
008b			INIT_0088:
008b 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x3 = .DEBUG	0x008b,0x01d0,0x1002,0x0000,0x0036,0x0764,0x0000,0x0027
													; Debug Table 0x3.0x0 = 0x8b,0xffff
008c 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
008d 029f 010b  |    |		Declare_Subprogram	INIT_0108,For_Call				; Debug Table 0x3.0x1 = 0x8d,0xfffe
008f			BODY_0088:
008f e212       |    |		Load	0x1,0x12							; Debug Table 0x3.0x2 = 0x8f,0x1
0090 4612       |F   |		Jump_Case	0x13
0091 7828       |x(  |		Jump	0xba								; case 0x0
0092 7827       |x'  |		Jump	0xba								; case 0x1
0093 7828       |x(  |		Jump	0xbc								; case 0x2
0094 7827       |x'  |		Jump	0xbc								; case 0x3
0095 7828       |x(  |		Jump	0xbe								; case 0x4
0096 7825       |x%  |		Jump	0xbc								; case 0x5
0097 7826       |x&  |		Jump	0xbe								; case 0x6
0098 780b       |x   |		Jump	0xa4								; case 0x7
0099 7824       |x$  |		Jump	0xbe								; case 0x8
009a 7823       |x#  |		Jump	0xbe								; case 0x9
009b 7822       |x"  |		Jump	0xbe								; case 0xa
009c 7821       |x!  |		Jump	0xbe								; case 0xb
009d 7806       |x   |		Jump	0xa4								; case 0xc
009e 7805       |x   |		Jump	0xa4								; case 0xd
009f 781e       |x   |		Jump	0xbe								; case 0xe
00a0 781d       |x   |		Jump	0xbe								; case 0xf
00a1 781c       |x   |		Jump	0xbe								; case 0x10
00a2 781b       |x   |		Jump	0xbe								; case 0x11
00a3 781a       |x   |		Jump	0xbe								; case 0x12
00a4 e002       |    |		Load	0x0,0x2								; Debug Table 0x3.0x3 = 0xa4,0x2
													; Debug Table 0x3.0x4 = 0xa4,0xfbff
00a5 1912       |    |		Execute	Package,Field_Reference,Field_Number 0x12
00a6 00c6       |    |		Action	Check_Subprogram_Elaborated
00a7 e20f       |    |		Load	0x1,0xf
00a8 4803       |H   |		Short_Literal	0x3
00a9 4802       |H   |		Short_Literal	0x2
00aa 0099       |    |		Action	Reference_Dynamic
00ab 6074       |`t  |		Indirect_Literal	Discrete,0x120,{0x00000000, 0x00360774}
00ac 49a1       |I   |		Short_Literal	0x1a1
00ad 4808       |H   |		Short_Literal	0x8
00ae e404       |    |		Load	0x2,0x4								; Debug Table 0x3.0x5 = 0xae,0x401
00af 4805       |H   |		Short_Literal	0x5
00b0 4802       |H   |		Short_Literal	0x2
00b1 0099       |    |		Action	Reference_Dynamic
00b2 4806       |H   |		Short_Literal	0x6
00b3 4802       |H   |		Short_Literal	0x2
00b4 0099       |    |		Action	Reference_Dynamic
00b5 e002       |    |		Load	0x0,0x2
00b6 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
00b7 00d5       |    |		Pop_Control	Pop_Count_5
00b8 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x3.0x6 = 0xb8,0x3
00b9 00ca       |    |		Action	Exit_Nullary_Function
00ba 4801       |H   |		Short_Literal	0x1							; Debug Table 0x3.0x7 = 0xba,0x4
00bb 00ca       |    |		Action	Exit_Nullary_Function
00bc 4800       |H   |		Short_Literal	0x0							; Debug Table 0x3.0x8 = 0xbc,0x5
00bd 00ca       |    |		Action	Exit_Nullary_Function
00be 4831       |H1  |		Short_Literal	0x31
00bf 0257       | W  |		Execute	Discrete,Raise
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3       |    |		.CONST	0x00c3								; Address of begin
00c1 0004       |    |		.CONST	0x0004								; Address of exception handler
00c2 0001       |    |		.CONST	0x0001								; Number of locals
00c3			BODY_00c0:
00c3			INIT_00c0:
00c3 e20f       |    |		Load	0x1,0xf								; Debug Table 0x4 = .DEBUG	0x00c3,0x01e4,0x1001,0x0000,0x0036,0x0774,0x0000,0x01db
													; Debug Table 0x4.0x0 = 0xc3,0x1
00c4 0117       |    |		Execute	Any,Structure_Query						; Debug Table 0x4.0x1 = 0xc4,0x2
00c5 c212       |    |		Store	0x1,0x12							; Debug Table 0x4.0x2 = 0xc5,0x3
00c6 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00c7 0000       |    |		.XXX[0x1]
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,0x01ec,0x1001,0x0000,0x0036,0x0774,0x0000,0x0206
													; Debug Table 0x5.0x0 = 0xcb,0x1
00cc 0117       |    |		Execute	Any,Structure_Query						; Debug Table 0x5.0x1 = 0xcc,0x2
00cd 00d2       |    |		Pop_Control	Pop_Count_2						; Debug Table 0x5.0x2 = 0xcd,0x3
00ce c213       |    |		Store	0x1,0x13							; Debug Table 0x5.0x3 = 0xce,0x4
00cf 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3       |    |		.CONST	0x00d3								; Address of begin
00d1 0004       |    |		.CONST	0x0004								; Address of exception handler
00d2 0001       |    |		.CONST	0x0001								; Number of locals
00d3			BODY_00d0:
00d3			INIT_00d0:
00d3 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x6 = .DEBUG	0x00d3,0x01f6,0x1001,0x0000,0x0036,0x0774,0x0000,0x0046
													; Debug Table 0x6.0x0 = 0xd3,0x1
00d4 0117       |    |		Execute	Any,Structure_Query						; Debug Table 0x6.0x1 = 0xd4,0x2
00d5 00d5       |    |		Pop_Control	Pop_Count_5						; Debug Table 0x6.0x2 = 0xd5,0x3
00d6 c402       |    |		Store	0x2,0x2								; Debug Table 0x6.0x3 = 0xd6,0x4
00d7 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
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 0x7 = .DEBUG	0x00db,0x0200,0x1001,0x0000,0x0036,0x0774,0x0000,0x0078
													; Debug Table 0x7.0x0 = 0xdb,0x1
00dc 0117       |    |		Execute	Any,Structure_Query						; Debug Table 0x7.0x1 = 0xdc,0x2
00dd 00d2       |    |		Pop_Control	Pop_Count_2						; Debug Table 0x7.0x2 = 0xdd,0x3
00de c403       |    |		Store	0x2,0x3								; Debug Table 0x7.0x3 = 0xde,0x4
00df 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00ee       |    |		.CONST	0x00ee								; Address of begin
00e1 0004       |    |		.CONST	0x0004								; Address of exception handler
00e2 0003       |    |		.CONST	0x0003								; Number of locals
00e3			INIT_00e0:
00e3 e20f       |    |		Load	0x1,0xf								; Debug Table 0x8 = .DEBUG	0x00e3,0x020a,0x1002,0x0000,0x0036,0x0774,0x0000,0x00aa
													; Debug Table 0x8.0x0 = 0xe3,0xffff
00e4 02a0       |    |		Declare_Subprogram	Null_Subprogram
00e5 4818       |H   |		Short_Literal	0x18
00e6 03d3       |    |		Declare_Type	Access,Defined,Accesses_Protected
00e7 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x8.0x1 = 0xe7,0xfffe
00e8 e5ff       |    |		Load	0x2,-0x1
00e9 e20f       |    |		Load	0x1,0xf
00ea 0119       |    |		Execute	Any,Check_In_Formal_Type
00eb 00da       |    |		Load_Top	At_Offset_2
00ec 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
00ed 0039       | 9  |		Store_Top	Access,At_Offset_1
00ee			BODY_00e0:
00ee 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x8.0x2 = 0xee,0x1
00ef 0229       | )  |		Execute	Access,All_Read
00f0 00d8       |    |		Load_Top	At_Offset_0
00f1 0120       |    |		Execute	Any,Is_Value
00f2 7002       |p   |		Jump_Nonzero	0xf5
00f3 00d8       |    |		Load_Top	At_Offset_0
00f4 011e       |    |		Execute	Any,Convert
00f5 e20f       |    |		Load	0x1,0xf
00f6 0119       |    |		Execute	Any,Check_In_Formal_Type
00f7 00ca       |    |		Action	Exit_Nullary_Function
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb       |    |		.CONST	0x00fb								; Address of begin
00f9 0004       |    |		.CONST	0x0004								; Address of exception handler
00fa 0001       |    |		.CONST	0x0001								; Number of locals
00fb			BODY_00f8:
00fb			INIT_00f8:
00fb e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x9 = .DEBUG	0x00fb,0x0212,0x1002,0x0000,0x0036,0x0774,0x0000,0x00c5
													; Debug Table 0x9.0x0 = 0xfb,0xffff
													; Debug Table 0x9.0x1 = 0xfb,0xfffe
													; Debug Table 0x9.0x2 = 0xfb,0x1
													; Debug Table 0x9.0x3 = 0xfb,0x401
00fc e20f       |    |		Load	0x1,0xf								; Debug Table 0x9.0x4 = 0xfc,0x402
00fd 011e       |    |		Execute	Any,Convert							; Debug Table 0x9.0x5 = 0xfd,0x403
00fe 4400       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x0				; Debug Table 0x9.0x6 = 0xfe,0x404
00ff 8407       |    |		Call	0x2,0x7								; Debug Table 0x9.0x7 = 0xff,0x2
0100 e20f       |    |		Load	0x1,0xf
0101 0119       |    |		Execute	Any,Check_In_Formal_Type
0102 00ca       |    |		Action	Exit_Nullary_Function
0103 0000 0000  |    |		.BLANK	0000[0x5]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b       |    |		.CONST	0x010b								; Address of begin
0109 0004       |    |		.CONST	0x0004								; Address of exception handler
010a 0001       |    |		.CONST	0x0001								; Number of locals
010b			BODY_0108:
010b			INIT_0108:
010b 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xa = .DEBUG	0x010b,0x0224,0x1001,0x0000,0x0036,0x0774,0x0000,0x016a
													; Debug Table 0xa.0x0 = 0x10b,0x1
010c 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
010d 460d       |F   |		Jump_Case	0xe
010e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0x0
010f 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0x1
0110 780b       |x   |		Jump	0x11c								; case 0x2
0111 780a       |x   |		Jump	0x11c								; case 0x3
0112 7809       |x   |		Jump	0x11c								; case 0x4
0113 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0x5
0114 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0x6
0115 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0x7
0116 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0x8
0117 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0x9
0118 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0xa
0119 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0xb
011a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0xc
011b 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3					; case 0xd
011c 4800       |H   |		Short_Literal	0x0							; Debug Table 0xa.0x1 = 0x11c,0x2
011d a402       |    |		Store_Unchecked	0x2,0x2
011e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
011f 0000       |    |		.XXX[0x1]
0120 0000 0000  |    |		.LITERAL	{0x00000000, 0x00360774}
0124 0000 0000  |    |		.BLANK	0000[0x4]
0128 ; --------------------------------------------------------------------------------------
0128 ; Debug Table
0128 ; --------------------------------------------------------------------------------------
0128 0003 000b  |    |		.CONST	0x0003,0x000b
012a 000b 0182  |    |		.DEBUG	0x000b,0x0182,0xc000,0x0000,0x0036,0x0764,0x0000,0x0005
0132 0010 018c  |    |		.DEBUG	0x0010,0x018c,0xc000,0x0000,0x0036,0x0774,0x0000,0x0007
013a 0033 01ae  | 3  |		.DEBUG	0x0033,0x01ae,0x1002,0x0000,0x0036,0x0764,0x0000,0x001e
0142 008b 01d0  |    |		.DEBUG	0x008b,0x01d0,0x1002,0x0000,0x0036,0x0764,0x0000,0x0027
014a 00c3 01e4  |    |		.DEBUG	0x00c3,0x01e4,0x1001,0x0000,0x0036,0x0774,0x0000,0x01db
0152 00cb 01ec  |    |		.DEBUG	0x00cb,0x01ec,0x1001,0x0000,0x0036,0x0774,0x0000,0x0206
015a 00d3 01f6  |    |		.DEBUG	0x00d3,0x01f6,0x1001,0x0000,0x0036,0x0774,0x0000,0x0046
0162 00db 0200  |    |		.DEBUG	0x00db,0x0200,0x1001,0x0000,0x0036,0x0774,0x0000,0x0078
016a 00e3 020a  |    |		.DEBUG	0x00e3,0x020a,0x1002,0x0000,0x0036,0x0774,0x0000,0x00aa
0172 00fb 0212  |    |		.DEBUG	0x00fb,0x0212,0x1002,0x0000,0x0036,0x0774,0x0000,0x00c5
017a 010b 0224  |   $|		.DEBUG	0x010b,0x0224,0x1001,0x0000,0x0036,0x0774,0x0000,0x016a
0182 ; --------------------------------------------------------------------------------------
0182 ; Debug3 Subtable 0x0
0182 ; --------------------------------------------------------------------------------------
0182 0004 0000  |    |		.DBG3TAB	0x0004,0x0000
0184 000b ffff  |    |		.CONST	0x000b,0xffff
0186 000b fffe  |    |		.CONST	0x000b,0xfffe
0188 000b fffd  |    |		.CONST	0x000b,0xfffd
018a 000d fffc  |    |		.CONST	0x000d,0xfffc
018c ; --------------------------------------------------------------------------------------
018c ; Debug3 Subtable 0x1
018c ; --------------------------------------------------------------------------------------
018c 000a 0006  |    |		.DBG3TAB	0x000a,0x0006
018e 0010 ffff  |    |		.CONST	0x0010,0xffff
0190 0010 fffe  |    |		.CONST	0x0010,0xfffe
0192 0010 fffd  |    |		.CONST	0x0010,0xfffd
0194 0010 fffc  |    |		.CONST	0x0010,0xfffc
0196 0010 fffb  |    |		.CONST	0x0010,0xfffb
0198 0013 fffa  |    |		.CONST	0x0013,0xfffa
019a 0015 fff9  |    |		.CONST	0x0015,0xfff9
019c 0017 fff8  |    |		.CONST	0x0017,0xfff8
019e 0019 fff7  |    |		.CONST	0x0019,0xfff7
01a0 001b fff6  |    |		.CONST	0x001b,0xfff6
01a2 001d 0001  |    |		.CONST	0x001d,0x0001
01a4 001e 0002  |    |		.CONST	0x001e,0x0002
01a6 0021 0006  | !  |		.CONST	0x0021,0x0006
01a8 0022 0003  | "  |		.CONST	0x0022,0x0003
01aa 0023 0004  | #  |		.CONST	0x0023,0x0004
01ac 0028 0005  | (  |		.CONST	0x0028,0x0005
01ae ; --------------------------------------------------------------------------------------
01ae ; Debug3 Subtable 0x2
01ae ; --------------------------------------------------------------------------------------
01ae 0006 000a  |    |		.DBG3TAB	0x0006,0x000a
01b0 0033 ffff  | 3  |		.CONST	0x0033,0xffff
01b2 0035 fffe  | 5  |		.CONST	0x0035,0xfffe
01b4 0037 fffd  | 7  |		.CONST	0x0037,0xfffd
01b6 0039 fffc  | 9  |		.CONST	0x0039,0xfffc
01b8 003b fffb  | ;  |		.CONST	0x003b,0xfffb
01ba 003d fffa  | =  |		.CONST	0x003d,0xfffa
01bc 003f 0001  | ?  |		.CONST	0x003f,0x0001
01be 0054 0002  | T  |		.CONST	0x0054,0x0002
01c0 0055 0003  | U  |		.CONST	0x0055,0x0003
01c2 0057 0004  | W  |		.CONST	0x0057,0x0004
01c4 0060 0005  | `  |		.CONST	0x0060,0x0005
01c6 0064 0006  | d  |		.CONST	0x0064,0x0006
01c8 0065 0007  | e  |		.CONST	0x0065,0x0007
01ca 0069 0008  | i  |		.CONST	0x0069,0x0008
01cc 0072 0009  | r  |		.CONST	0x0072,0x0009
01ce 0076 000a  | v  |		.CONST	0x0076,0x000a
01d0 ; --------------------------------------------------------------------------------------
01d0 ; Debug3 Subtable 0x3
01d0 ; --------------------------------------------------------------------------------------
01d0 0003 0006  |    |		.DBG3TAB	0x0003,0x0006
01d2 008b ffff  |    |		.CONST	0x008b,0xffff
01d4 008d fffe  |    |		.CONST	0x008d,0xfffe
01d6 008f 0001  |    |		.CONST	0x008f,0x0001
01d8 00a4 0002  |    |		.CONST	0x00a4,0x0002
01da 00a4 fbff  |    |		.CONST	0x00a4,0xfbff
01dc 00ae 0401  |    |		.CONST	0x00ae,0x0401
01de 00b8 0003  |    |		.CONST	0x00b8,0x0003
01e0 00ba 0004  |    |		.CONST	0x00ba,0x0004
01e2 00bc 0005  |    |		.CONST	0x00bc,0x0005
01e4 ; --------------------------------------------------------------------------------------
01e4 ; Debug3 Subtable 0x4
01e4 ; --------------------------------------------------------------------------------------
01e4 0000 0003  |    |		.DBG3TAB	0x0000,0x0003
01e6 00c3 0001  |    |		.CONST	0x00c3,0x0001
01e8 00c4 0002  |    |		.CONST	0x00c4,0x0002
01ea 00c5 0003  |    |		.CONST	0x00c5,0x0003
01ec ; --------------------------------------------------------------------------------------
01ec ; Debug3 Subtable 0x5
01ec ; --------------------------------------------------------------------------------------
01ec 0000 0004  |    |		.DBG3TAB	0x0000,0x0004
01ee 00cb 0001  |    |		.CONST	0x00cb,0x0001
01f0 00cc 0002  |    |		.CONST	0x00cc,0x0002
01f2 00cd 0003  |    |		.CONST	0x00cd,0x0003
01f4 00ce 0004  |    |		.CONST	0x00ce,0x0004
01f6 ; --------------------------------------------------------------------------------------
01f6 ; Debug3 Subtable 0x6
01f6 ; --------------------------------------------------------------------------------------
01f6 0000 0004  |    |		.DBG3TAB	0x0000,0x0004
01f8 00d3 0001  |    |		.CONST	0x00d3,0x0001
01fa 00d4 0002  |    |		.CONST	0x00d4,0x0002
01fc 00d5 0003  |    |		.CONST	0x00d5,0x0003
01fe 00d6 0004  |    |		.CONST	0x00d6,0x0004
0200 ; --------------------------------------------------------------------------------------
0200 ; Debug3 Subtable 0x7
0200 ; --------------------------------------------------------------------------------------
0200 0000 0004  |    |		.DBG3TAB	0x0000,0x0004
0202 00db 0001  |    |		.CONST	0x00db,0x0001
0204 00dc 0002  |    |		.CONST	0x00dc,0x0002
0206 00dd 0003  |    |		.CONST	0x00dd,0x0003
0208 00de 0004  |    |		.CONST	0x00de,0x0004
020a ; --------------------------------------------------------------------------------------
020a ; Debug3 Subtable 0x8
020a ; --------------------------------------------------------------------------------------
020a 0002 0001  |    |		.DBG3TAB	0x0002,0x0001
020c 00e3 ffff  |    |		.CONST	0x00e3,0xffff
020e 00e7 fffe  |    |		.CONST	0x00e7,0xfffe
0210 00ee 0001  |    |		.CONST	0x00ee,0x0001
0212 ; --------------------------------------------------------------------------------------
0212 ; Debug3 Subtable 0x9
0212 ; --------------------------------------------------------------------------------------
0212 0002 0006  |    |		.DBG3TAB	0x0002,0x0006
0214 00fb ffff  |    |		.CONST	0x00fb,0xffff
0216 00fb fffe  |    |		.CONST	0x00fb,0xfffe
0218 00fb 0001  |    |		.CONST	0x00fb,0x0001
021a 00fb 0401  |    |		.CONST	0x00fb,0x0401
021c 00fc 0402  |    |		.CONST	0x00fc,0x0402
021e 00fd 0403  |    |		.CONST	0x00fd,0x0403
0220 00fe 0404  |    |		.CONST	0x00fe,0x0404
0222 00ff 0002  |    |		.CONST	0x00ff,0x0002
0224 ; --------------------------------------------------------------------------------------
0224 ; Debug3 Subtable 0xa
0224 ; --------------------------------------------------------------------------------------
0224 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
0226 010b 0001  |    |		.CONST	0x010b,0x0001
0228 011c 0002  |    |		.CONST	0x011c,0x0002
022a 0000 0000  |    |		.BLANK	0000[0x1d6]