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

⟦357958013⟧

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

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 5813       |X   |		.CONST	0x5813								; 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 0054       | T  |		.CONST	0x0054								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0022       | "  |		.CONST	0x0022								; Number of locals
000b			INIT_0008:
000b 6144       |aD  |		Indirect_Literal	Discrete,0x150,{0xffffffff, 0xfffffbcd}		; Debug Table 0x0 = .DEBUG	0x000b,0x018a,0x8000,0x0000,0x0056,0xbb05,0x0000,0x0003
													; Debug Table 0x0.0x0 = 0xb,0xffff
													; Debug Table 0x0.0x1 = 0xb,0xfffe
													; Debug Table 0x0.0x2 = 0xb,0xfffd
000c 4bcb       |K   |		Short_Literal	0x3cb
000d 00e2       |    |		Load_Encached	Integer_Cache
000e 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
000f 4800       |H   |		Short_Literal	0x0							; Debug Table 0x0.0x3 = 0xf,0xfffc
0010 4802       |H   |		Short_Literal	0x2
0011 4835       |H5  |		Short_Literal	0x35
0012 026d       | m  |		Execute	Discrete,Exponentiate
0013 0aff       |    |		Execute_Immediate	Plus,-0x1
0014 00e5       |    |		Load_Encached	Long_Integer_Cache
0015 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0016 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x0.0x4 = 0x16,0xfffb
0017 00da       |    |		Load_Top	At_Offset_2
0018 00da       |    |		Load_Top	At_Offset_2
0019 02a0       |    |		Declare_Subprogram	Null_Subprogram
001a 4803       |H   |		Short_Literal	0x3
001b 032e       | .  |		Declare_Type	Record,Defined,Visible
001c 029a 005b  |   [|		Declare_Subprogram	INIT_0058,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x5 = 0x1c,0xfffa
001e 029a 009b  |    |		Declare_Subprogram	INIT_0098,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x6 = 0x1e,0xfff9
0020 612b       |a+  |		Indirect_Literal	Discrete,0x14c,{0x00000000, 0x56bb0501}		; Debug Table 0x0.0x7 = 0x20,0xfff8
0021 0129       | )  |		Execute	Any,Make_Visible
0022 6125       |a%  |		Indirect_Literal	Discrete,0x148,{0x00000000, 0x56bb0502}		; Debug Table 0x0.0x8 = 0x22,0xfff7
0023 0129       | )  |		Execute	Any,Make_Visible
0024 00bf       |    |		Action	Accept_Activation
0025 4800       |H   |		Short_Literal	0x0							; Debug Table 0x1 = .DEBUG	0x0025,0x019e,0x8000,0x0000,0x0056,0xbbf5,0x0000,0x0005
													; Debug Table 0x1.0x0 = 0x25,0xffff
0026 611d       |a   |		Indirect_Literal	Discrete,0x144,{0x00000000, 0x000007ff}
0027 00e2       |    |		Load_Encached	Integer_Cache
0028 03f8       |    |		Declare_Type	Discrete,Constrained
0029 4800       |H   |		Short_Literal	0x0							; Debug Table 0x1.0x1 = 0x29,0xfffe
002a 4802       |H   |		Short_Literal	0x2
002b 4834       |H4  |		Short_Literal	0x34
002c 026d       | m  |		Execute	Discrete,Exponentiate
002d 0aff       |    |		Execute_Immediate	Plus,-0x1
002e 00e5       |    |		Load_Encached	Long_Integer_Cache
002f 03f8       |    |		Declare_Type	Discrete,Constrained
0030 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x1.0x2 = 0x30,0xfffd
0031 00da       |    |		Load_Top	At_Offset_2
0032 00da       |    |		Load_Top	At_Offset_2
0033 02a0       |    |		Declare_Subprogram	Null_Subprogram
0034 4803       |H   |		Short_Literal	0x3
0035 032d       | -  |		Declare_Type	Record,Defined
0036 00e6       |    |		Load_Encached	Float_Cache						; Debug Table 0x1.0x3 = 0x36,0xfffc
0037 012c       | ,  |		Execute	Any,Size
0038 00d9       |    |		Load_Top	At_Offset_1
0039 012c       | ,  |		Execute	Any,Size
003a 027f       |    |		Execute	Discrete,Equal
003b 7002       |p   |		Jump_Nonzero	0x3e
003c 4887       |H   |		Short_Literal	0x87
003d 0257       | W  |		Execute	Discrete,Raise
003e a001       |    |		Store_Unchecked	0x0,0x1							; Debug Table 0x1.0x4 = 0x3e,0xfffb
003f 00c6       |    |		Action	Check_Subprogram_Elaborated
0040 00e6       |    |		Load_Encached	Float_Cache
0041 00d9       |    |		Load_Top	At_Offset_1
0042 60fd       |`   |		Indirect_Literal	Discrete,0x140,{0x00000000, 0x0056bbf5}
0043 4845       |HE  |		Short_Literal	0x45
0044 4800       |H   |		Short_Literal	0x0
0045 a001       |    |		Store_Unchecked	0x0,0x1							; Debug Table 0x1.0x5 = 0x45,0xfffa
0046 00c6       |    |		Action	Check_Subprogram_Elaborated
0047 00dd       |    |		Load_Top	At_Offset_5
0048 00e6       |    |		Load_Encached	Float_Cache
0049 60f6       |`   |		Indirect_Literal	Discrete,0x140,{0x00000000, 0x0056bbf5}
004a 484e       |HN  |		Short_Literal	0x4e
004b 4800       |H   |		Short_Literal	0x0
004c 029d 00e3  |    |		Declare_Subprogram	INIT_00e0,For_Outer_Call			; Debug Table 0x1.0x6 = 0x4c,0xfff9
004e 029d 00eb  |    |		Declare_Subprogram	INIT_00e8,For_Outer_Call			; Debug Table 0x1.0x7 = 0x4e,0xfff8
0050 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10				; Debug Table 0x1.0x8 = 0x50,0xfff7
0051 00c7       |    |		Action	Elaborate_Subprogram
0052 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11				; Debug Table 0x1.0x9 = 0x52,0xfff6
0053 00c7       |    |		Action	Elaborate_Subprogram
0054			BODY_0008:
0054 00bc       |    |		Action	Signal_Activated
0055 00bb       |    |		Action	Signal_Completion
0056 0000 0000  |    |		.XXX[0x2]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 0073       | s  |		.CONST	0x0073								; Address of begin
0059 0004       |    |		.CONST	0x0004								; Address of exception handler
005a 0003       |    |		.CONST	0x0003								; Number of locals
005b			INIT_0058:
005b e216       |    |		Load	0x1,0x16							; Debug Table 0x2 = .DEBUG	0x005b,0x01b4,0x0002,0x0000,0x0056,0xbb05,0x0000,0x003a
													; Debug Table 0x2.0x0 = 0x5b,0xffff
005c 0322       | "  |		Declare_Variable	Record
005d 00db       |    |		Load_Top	At_Offset_3
005e e217       |    |		Load	0x1,0x17
005f e218       |    |		Load	0x1,0x18
0060 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0061 8001       |    |		Call	0x0,0x1
0062 00d9       |    |		Load_Top	At_Offset_1
0063 017d       | }  |		Execute	Record,Structure_Write
0064 e20f       |    |		Load	0x1,0xf								; Debug Table 0x2.0x1 = 0x64,0xfffe
0065 0322       | "  |		Declare_Variable	Record
0066 00d9       |    |		Load_Top	At_Offset_1
0067 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0068 00d9       |    |		Load_Top	At_Offset_1
0069 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
006a 00d9       |    |		Load_Top	At_Offset_1
006b 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
006c 60e3       |`   |		Indirect_Literal	Discrete,0x150,{0xffffffff, 0xfffffbcd}
006d 0273       | s  |		Execute	Discrete,Plus
006e 00d9       |    |		Load_Top	At_Offset_1
006f 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0070 4800       |H   |		Short_Literal	0x0
0071 00d9       |    |		Load_Top	At_Offset_1
0072 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0073			BODY_0058:
0073 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x2.0x2 = 0x73,0x1
0074 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0075 0b00       |    |		Execute_Immediate	Case_Compare,0x0
0076 700d       |p   |		Jump_Nonzero	0x84
0077 00d8       |    |		Load_Top	At_Offset_0
0078 60cb       |`   |		Indirect_Literal	Discrete,0x144,{0x00000000, 0x000007ff}
0079 027f       |    |		Execute	Discrete,Equal
007a 700f       |p   |		Jump_Nonzero	0x8a
007b 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x2.0x3 = 0x7b,0x4
007c 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
007d e215       |    |		Load	0x1,0x15
007e 0269       | i  |		Execute	Discrete,Last
007f 0a01       |    |		Execute_Immediate	Plus,0x1
0080 0273       | s  |		Execute	Discrete,Plus
0081 00da       |    |		Load_Top	At_Offset_2
0082 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0083 7808       |x   |		Jump	0x8c
0084 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x2.0x4 = 0x84,0x2
0085 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0086 0901       |    |		Execute_Immediate	Binary_Scale,0x1
0087 00da       |    |		Load_Top	At_Offset_2
0088 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0089 7802       |x   |		Jump	0x8c
008a e212       |    |		Load	0x1,0x12							; Debug Table 0x2.0x5 = 0x8a,0x3
008b 0257       | W  |		Execute	Discrete,Raise
008c 00d1       |    |		Pop_Control	Pop_Count_1
008d 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x2.0x6 = 0x8d,0x5
008e 00dd       |    |		Load_Top	At_Offset_5
008f 8222       | "  |		Call	0x1,0x22
0090 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x2.0x7 = 0x90,0x6
0091 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0092 0000 0000  |    |		.BLANK	0000[0x6]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 00ab       |    |		.CONST	0x00ab								; Address of begin
0099 0004       |    |		.CONST	0x0004								; Address of exception handler
009a 0003       |    |		.CONST	0x0003								; Number of locals
009b			INIT_0098:
009b e216       |    |		Load	0x1,0x16							; Debug Table 0x3 = .DEBUG	0x009b,0x01c6,0x0002,0x0000,0x0056,0xbb05,0x0000,0x0043
													; Debug Table 0x3.0x0 = 0x9b,0xffff
009c 0322       | "  |		Declare_Variable	Record
009d 00db       |    |		Load_Top	At_Offset_3
009e 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
009f 00d9       |    |		Load_Top	At_Offset_1
00a0 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00a1 00db       |    |		Load_Top	At_Offset_3
00a2 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00a3 6098       |`   |		Indirect_Literal	Discrete,0x13c,{0x00000000, 0x00000433}
00a4 0273       | s  |		Execute	Discrete,Plus
00a5 00d9       |    |		Load_Top	At_Offset_1
00a6 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00a7 4800       |H   |		Short_Literal	0x0
00a8 00d9       |    |		Load_Top	At_Offset_1
00a9 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00aa 00e6       |    |		Load_Encached	Float_Cache						; Debug Table 0x3.0x1 = 0xaa,0xfffe
00ab			BODY_0098:
00ab 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x3.0x2 = 0xab,0x1
00ac 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00ad 0b00       |    |		Execute_Immediate	Case_Compare,0x0
00ae 7015       |p   |		Jump_Nonzero	0xc4
00af 00d8       |    |		Load_Top	At_Offset_0
00b0 6093       |`   |		Indirect_Literal	Discrete,0x144,{0x00000000, 0x000007ff}
00b1 027f       |    |		Execute	Discrete,Equal
00b2 701e       |p   |		Jump_Nonzero	0xd1
00b3 00dd       |    |		Load_Top	At_Offset_5						; Debug Table 0x3.0x3 = 0xb3,0x6
00b4 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00b5 e215       |    |		Load	0x1,0x15
00b6 0269       | i  |		Execute	Discrete,Last
00b7 027a       | z  |		Execute	Discrete,Less_Equal
00b8 6802       |h   |		Jump_Zero	0xbb
00b9 e212       |    |		Load	0x1,0x12							; Debug Table 0x3.0x4 = 0xb9,0x7
00ba 0257       | W  |		Execute	Discrete,Raise
00bb 00dd       |    |		Load_Top	At_Offset_5						; Debug Table 0x3.0x5 = 0xbb,0x8
00bc 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00bd e215       |    |		Load	0x1,0x15
00be 0269       | i  |		Execute	Discrete,Last
00bf 0a01       |    |		Execute_Immediate	Plus,0x1
00c0 0272       | r  |		Execute	Discrete,Minus
00c1 00db       |    |		Load_Top	At_Offset_3
00c2 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00c3 780f       |x   |		Jump	0xd3
00c4 00dd       |    |		Load_Top	At_Offset_5						; Debug Table 0x3.0x6 = 0xc4,0x2
00c5 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00c6 4801       |H   |		Short_Literal	0x1
00c7 0279       | y  |		Execute	Discrete,And
00c8 6802       |h   |		Jump_Zero	0xcb
00c9 e212       |    |		Load	0x1,0x12							; Debug Table 0x3.0x7 = 0xc9,0x3
00ca 0257       | W  |		Execute	Discrete,Raise
00cb 00dd       |    |		Load_Top	At_Offset_5						; Debug Table 0x3.0x8 = 0xcb,0x4
00cc 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00cd 09ff       |    |		Execute_Immediate	Binary_Scale,-0x1
00ce 00db       |    |		Load_Top	At_Offset_3
00cf 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00d0 7802       |x   |		Jump	0xd3
00d1 e213       |    |		Load	0x1,0x13							; Debug Table 0x3.0x9 = 0xd1,0x5
00d2 0257       | W  |		Execute	Discrete,Raise
00d3 00d1       |    |		Pop_Control	Pop_Count_1
00d4 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x3.0xa = 0xd4,0x9
00d5 e21c       |    |		Load	0x1,0x1c
00d6 e21d       |    |		Load	0x1,0x1d
00d7 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
00d8 8001       |    |		Call	0x0,0x1
00d9 0041       | A  |		Store_Top_Unchecked	Float,At_Offset_1
00da 00dc       |    |		Load_Top	At_Offset_4						; Debug Table 0x3.0xb = 0xda,0xa
00db 00d9       |    |		Load_Top	At_Offset_1
00dc 8222       | "  |		Call	0x1,0x22
00dd 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x3.0xc = 0xdd,0xb
00de 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00df 0000       |    |		.XXX[0x1]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3       |    |		.CONST	0x00e3								; Address of begin
00e1 0004       |    |		.CONST	0x0004								; Address of exception handler
00e2 0001       |    |		.CONST	0x0001								; Number of locals
00e3			BODY_00e0:
00e3			INIT_00e0:
00e3 e213       |    |		Load	0x1,0x13							; Debug Table 0x4 = .DEBUG	0x00e3,0x01e2,0x0001,0x0000,0x0056,0xbbf5,0x0000,0x0057
													; Debug Table 0x4.0x0 = 0xe3,0x1
00e4 0257       | W  |		Execute	Discrete,Raise
00e5 0000 0000  |    |		.XXX[0x3]
00e7 0000       |    |
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00f0       |    |		.CONST	0x00f0								; Address of begin
00e9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ea 0005       |    |		.CONST	0x0005								; Number of locals
00eb			INIT_00e8:
00eb 00e6       |    |		Load_Encached	Float_Cache						; Debug Table 0x5 = .DEBUG	0x00eb,0x01e6,0x0001,0x0000,0x0056,0xbbf5,0x0000,0x0061
													; Debug Table 0x5.0x0 = 0xeb,0xffff
00ec 03d8       |    |		Declare_Variable	Float,Duplicate
00ed 03d8       |    |		Declare_Variable	Float,Duplicate
00ee 00e2       |    |		Load_Encached	Integer_Cache						; Debug Table 0x5.0x1 = 0xee,0xfffe
00ef 0635       | 5  |		Execute_Immediate	Set_Value_Unchecked,0x35
00f0			BODY_00e8:
00f0 00de       |    |		Load_Top	At_Offset_6						; Debug Table 0x5.0x2 = 0xf0,0x1
00f1 014b       | K  |		Execute	Float,Less_Zero
00f2 e5fe       |    |		Load	0x2,-0x2
00f3 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00f4 027e       | ~  |		Execute	Discrete,Not_Equal
00f5 6802       |h   |		Jump_Zero	0xf8
00f6 8221       | !  |		Call	0x1,0x21							; Debug Table 0x5.0x3 = 0xf6,0x2
00f7 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00f8 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x5.0x4 = 0xf8,0x3
00f9 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00fa 6811       |h   |		Jump_Zero	0x10c
00fb e20f       |    |		Load	0x1,0xf								; Debug Table 0x5.0x5 = 0xfb,0x4
00fc 0322       | "  |		Declare_Variable	Record
00fd 4800       |H   |		Short_Literal	0x0
00fe 00d9       |    |		Load_Top	At_Offset_1
00ff 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0100 e5fe       |    |		Load	0x2,-0x2
0101 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0102 00d9       |    |		Load_Top	At_Offset_1
0103 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0104 e5fe       |    |		Load	0x2,-0x2
0105 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0106 00d9       |    |		Load_Top	At_Offset_1
0107 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0108 e5ff       |    |		Load	0x2,-0x1
0109 023f       | ?  |		Execute	Float,Unary_Minus
010a 8222       | "  |		Call	0x1,0x22
010b 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
010c e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x5.0x6 = 0x10c,0x5
010d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
010e 00d9       |    |		Load_Top	At_Offset_1
010f 0273       | s  |		Execute	Discrete,Plus
0110 4bff       |K   |		Short_Literal	0x3ff
0111 027d       | }  |		Execute	Discrete,Greater
0112 6806       |h   |		Jump_Zero	0x119
0113 4bff       |K   |		Short_Literal	0x3ff							; Debug Table 0x5.0x7 = 0x113,0x6
0114 e5fe       |    |		Load	0x2,-0x2
0115 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0116 0272       | r  |		Execute	Discrete,Minus
0117 0248       | H  |		Execute	Discrete,Check_In_Integer
0118 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0119 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x5.0x8 = 0x119,0x7
011a 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
011b 0237       | 7  |		Execute	Float,Convert_From_Discrete
011c 00e6       |    |		Load_Encached	Float_Cache
011d 0238       | 8  |		Execute	Float,Convert
011e 5819       |X   |		Indirect_Literal	Float,0x138,2.0
011f 00da       |    |		Load_Top	At_Offset_2
0120 0275       | u  |		Execute	Discrete,Unary_Minus
0121 0239       | 9  |		Execute	Float,Exponentiate
0122 023b       | ;  |		Execute	Float,Times
0123 0044       | D  |		Store_Top_Unchecked	Float,At_Offset_4
0124 5813       |X   |		Indirect_Literal	Float,0x138,2.0					; Debug Table 0x5.0x9 = 0x124,0x8
0125 e5fe       |    |		Load	0x2,-0x2
0126 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0127 00da       |    |		Load_Top	At_Offset_2
0128 0273       | s  |		Execute	Discrete,Plus
0129 0248       | H  |		Execute	Discrete,Check_In_Integer
012a 0239       | 9  |		Execute	Float,Exponentiate
012b 0043       | C  |		Store_Top_Uncheched	Float,At_Offset_3
012c 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x5.0xa = 0x12c,0x9
012d 00db       |    |		Load_Top	At_Offset_3
012e 023b       | ;  |		Execute	Float,Times
012f 0042       | B  |		Store_Top_Unchecked	Float,At_Offset_2
0130 00de       |    |		Load_Top	At_Offset_6						; Debug Table 0x5.0xb = 0x130,0xa
0131 00da       |    |		Load_Top	At_Offset_2
0132 0246       | F  |		Execute	Float,Not_Equal
0133 6801       |h   |		Jump_Zero	0x135
0134 8221       | !  |		Call	0x1,0x21							; Debug Table 0x5.0xc = 0x134,0xb
0135 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0136 0000 0000  |    |		.XXX[0x2]
0138 4000 0000  |@   |		.DBL	2.0
013a 0000 0000  |    |
013c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000433}
0140 0000 0000  |    |		.LITERAL	{0x00000000, 0x0056bbf5}
0144 0000 0000  |    |		.LITERAL	{0x00000000, 0x000007ff}
0148 0000 0000  |    |		.LITERAL	{0x00000000, 0x56bb0502}
014c 0000 0000  |    |		.LITERAL	{0x00000000, 0x56bb0501}
0150 ffff ffff  |    |		.LITERAL	{0xffffffff, 0xfffffbcd}
0154 0000 0000  |    |		.BLANK	0000[0x4]
0158 ; --------------------------------------------------------------------------------------
0158 ; Debug Table
0158 ; --------------------------------------------------------------------------------------
0158 0003 0006  |    |		.CONST	0x0003,0x0006
015a 000b 018a  |    |		.DEBUG	0x000b,0x018a,0x8000,0x0000,0x0056,0xbb05,0x0000,0x0003
0162 0025 019e  | %  |		.DEBUG	0x0025,0x019e,0x8000,0x0000,0x0056,0xbbf5,0x0000,0x0005
016a 005b 01b4  | [  |		.DEBUG	0x005b,0x01b4,0x0002,0x0000,0x0056,0xbb05,0x0000,0x003a
0172 009b 01c6  |    |		.DEBUG	0x009b,0x01c6,0x0002,0x0000,0x0056,0xbb05,0x0000,0x0043
017a 00e3 01e2  |    |		.DEBUG	0x00e3,0x01e2,0x0001,0x0000,0x0056,0xbbf5,0x0000,0x0057
0182 00eb 01e6  |    |		.DEBUG	0x00eb,0x01e6,0x0001,0x0000,0x0056,0xbbf5,0x0000,0x0061
018a ; --------------------------------------------------------------------------------------
018a ; Debug3 Subtable 0x0
018a ; --------------------------------------------------------------------------------------
018a 0009 0000  |    |		.DBG3TAB	0x0009,0x0000
018c 000b ffff  |    |		.CONST	0x000b,0xffff
018e 000b fffe  |    |		.CONST	0x000b,0xfffe
0190 000b fffd  |    |		.CONST	0x000b,0xfffd
0192 000f fffc  |    |		.CONST	0x000f,0xfffc
0194 0016 fffb  |    |		.CONST	0x0016,0xfffb
0196 001c fffa  |    |		.CONST	0x001c,0xfffa
0198 001e fff9  |    |		.CONST	0x001e,0xfff9
019a 0020 fff8  |    |		.CONST	0x0020,0xfff8
019c 0022 fff7  | "  |		.CONST	0x0022,0xfff7
019e ; --------------------------------------------------------------------------------------
019e ; Debug3 Subtable 0x1
019e ; --------------------------------------------------------------------------------------
019e 000a 0000  |    |		.DBG3TAB	0x000a,0x0000
01a0 0025 ffff  | %  |		.CONST	0x0025,0xffff
01a2 0029 fffe  | )  |		.CONST	0x0029,0xfffe
01a4 0030 fffd  | 0  |		.CONST	0x0030,0xfffd
01a6 0036 fffc  | 6  |		.CONST	0x0036,0xfffc
01a8 003e fffb  | >  |		.CONST	0x003e,0xfffb
01aa 0045 fffa  | E  |		.CONST	0x0045,0xfffa
01ac 004c fff9  | L  |		.CONST	0x004c,0xfff9
01ae 004e fff8  | N  |		.CONST	0x004e,0xfff8
01b0 0050 fff7  | P  |		.CONST	0x0050,0xfff7
01b2 0052 fff6  | R  |		.CONST	0x0052,0xfff6
01b4 ; --------------------------------------------------------------------------------------
01b4 ; Debug3 Subtable 0x2
01b4 ; --------------------------------------------------------------------------------------
01b4 0002 0006  |    |		.DBG3TAB	0x0002,0x0006
01b6 005b ffff  | [  |		.CONST	0x005b,0xffff
01b8 0064 fffe  | d  |		.CONST	0x0064,0xfffe
01ba 0073 0001  | s  |		.CONST	0x0073,0x0001
01bc 007b 0004  | {  |		.CONST	0x007b,0x0004
01be 0084 0002  |    |		.CONST	0x0084,0x0002
01c0 008a 0003  |    |		.CONST	0x008a,0x0003
01c2 008d 0005  |    |		.CONST	0x008d,0x0005
01c4 0090 0006  |    |		.CONST	0x0090,0x0006
01c6 ; --------------------------------------------------------------------------------------
01c6 ; Debug3 Subtable 0x3
01c6 ; --------------------------------------------------------------------------------------
01c6 0002 000b  |    |		.DBG3TAB	0x0002,0x000b
01c8 009b ffff  |    |		.CONST	0x009b,0xffff
01ca 00aa fffe  |    |		.CONST	0x00aa,0xfffe
01cc 00ab 0001  |    |		.CONST	0x00ab,0x0001
01ce 00b3 0006  |    |		.CONST	0x00b3,0x0006
01d0 00b9 0007  |    |		.CONST	0x00b9,0x0007
01d2 00bb 0008  |    |		.CONST	0x00bb,0x0008
01d4 00c4 0002  |    |		.CONST	0x00c4,0x0002
01d6 00c9 0003  |    |		.CONST	0x00c9,0x0003
01d8 00cb 0004  |    |		.CONST	0x00cb,0x0004
01da 00d1 0005  |    |		.CONST	0x00d1,0x0005
01dc 00d4 0009  |    |		.CONST	0x00d4,0x0009
01de 00da 000a  |    |		.CONST	0x00da,0x000a
01e0 00dd 000b  |    |		.CONST	0x00dd,0x000b
01e2 ; --------------------------------------------------------------------------------------
01e2 ; Debug3 Subtable 0x4
01e2 ; --------------------------------------------------------------------------------------
01e2 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
01e4 00e3 0001  |    |		.CONST	0x00e3,0x0001
01e6 ; --------------------------------------------------------------------------------------
01e6 ; Debug3 Subtable 0x5
01e6 ; --------------------------------------------------------------------------------------
01e6 0002 000b  |    |		.DBG3TAB	0x0002,0x000b
01e8 00eb ffff  |    |		.CONST	0x00eb,0xffff
01ea 00ee fffe  |    |		.CONST	0x00ee,0xfffe
01ec 00f0 0001  |    |		.CONST	0x00f0,0x0001
01ee 00f6 0002  |    |		.CONST	0x00f6,0x0002
01f0 00f8 0003  |    |		.CONST	0x00f8,0x0003
01f2 00fb 0004  |    |		.CONST	0x00fb,0x0004
01f4 010c 0005  |    |		.CONST	0x010c,0x0005
01f6 0113 0006  |    |		.CONST	0x0113,0x0006
01f8 0119 0007  |    |		.CONST	0x0119,0x0007
01fa 0124 0008  | $  |		.CONST	0x0124,0x0008
01fc 012c 0009  | ,  |		.CONST	0x012c,0x0009
01fe 0130 000a  | 0  |		.CONST	0x0130,0x000a
0200 0134 000b  | 4  |		.CONST	0x0134,0x000b
0202 0000 0000  |    |		.BLANK	0000[0x1fe]