|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2048 (0x800)
Notes: 00_class, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0500e0
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
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 01f0 | | .CONST 0x01f0 ; 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 005f | _ | .CONST 0x005f ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0020 | | .CONST 0x0020 ; Number of locals
000b INIT_0008:
000b 00e5 | | Load_Encached Long_Integer_Cache ; Debug Table 0x0 = .DEBUG 0x000b,0x024a,0x8000,0x0000,0x0057,0x4225,0x0000,0x0005
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 0129 | ) | Execute Any,Make_Visible
000d 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x1 = 0xd,0xfffe
000e 4808 |H | Short_Literal 0x8
000f 029f 006b | k| Declare_Subprogram INIT_0068,For_Call
0011 03fe | | Declare_Type Discrete,Defined,Visible
0012 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0x12,0xfffd
0014 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x14,0xfffc
0016 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x16,0xfffb
0018 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x18,0xfffa
001a 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x6 = 0x1a,0xffff
001b 619c |a | Indirect_Literal Discrete,0x1b8,{0x00000000, 0x00003fff}
001c 00e2 | | Load_Encached Integer_Cache
001d 03f9 | | Declare_Type Discrete,Constrained,Visible
001e 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x7 = 0x1e,0xfffe
0020 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x8 = 0x20,0xfffd
0022 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x9 = 0x22,0xffff
0023 6190 |a | Indirect_Literal Discrete,0x1b4,{0x00000000, 0x0000ffff}
0024 00e2 | | Load_Encached Integer_Cache
0025 03f9 | | Declare_Type Discrete,Constrained,Visible
0026 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0xa = 0x26,0xfffe
0027 618c |a | Indirect_Literal Discrete,0x1b4,{0x00000000, 0x0000ffff}
0028 00e2 | | Load_Encached Integer_Cache
0029 03f9 | | Declare_Type Discrete,Constrained,Visible
002a 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xb = 0x2a,0xfffd
002c 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xc = 0x2c,0xfffc
002e 00bf | | Action Accept_Activation
002f 4800 |H | Short_Literal 0x0 ; Debug Table 0x1 = .DEBUG 0x002f,0x0266,0x8000,0x0000,0x0057,0x43a5,0x0000,0x0003
; Debug Table 0x1.0x0 = 0x2f,0xffff
0030 4803 |H | Short_Literal 0x3
0031 e20d | | Load 0x1,0xd
0032 03f8 | | Declare_Type Discrete,Constrained
0033 00e5 | | Load_Encached Long_Integer_Cache ; Debug Table 0x1.0x1 = 0x33,0xfffe
0034 0602 | | Execute_Immediate Set_Value_Unchecked,0x2
0035 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0x2 = 0x35,0xfffd
0036 0275 | u | Execute Discrete,Unary_Minus
0037 483f |H? | Short_Literal 0x3f
0038 026d | m | Execute Discrete,Exponentiate
0039 00e5 | | Load_Encached Long_Integer_Cache
003a 03f1 | | Declare_Variable Discrete,With_Value
003b 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0x3 = 0x3b,0xfffc
003c e20d | | Load 0x1,0xd
003d 03f1 | | Declare_Variable Discrete,With_Value
003e 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0x4 = 0x3e,0xfffb
003f 00d9 | | Load_Top At_Offset_1
0040 4802 |H | Short_Literal 0x2
0041 4838 |H8 | Short_Literal 0x38
0042 026d | m | Execute Discrete,Exponentiate
0043 0aff | | Execute_Immediate Plus,-0x1
0044 0273 | s | Execute Discrete,Plus
0045 e20d | | Load 0x1,0xd
0046 03f8 | | Declare_Type Discrete,Constrained
0047 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x5 = 0x47,0xfffa
0048 00c7 | | Action Elaborate_Subprogram
0049 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0x6 = 0x49,0xfff9
004a 00c7 | | Action Elaborate_Subprogram
004b 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x7 = 0x4b,0xfff8
004c 00c7 | | Action Elaborate_Subprogram
004d 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x8 = 0x4d,0xfff7
004e 00c7 | | Action Elaborate_Subprogram
004f 4801 |H | Short_Literal 0x1 ; Debug Table 0x1.0x9 = 0x4f,0xffff
0050 4801 |H | Short_Literal 0x1
0051 00e1 | | Load_Encached Boolean_Cache
0052 03f8 | | Declare_Type Discrete,Constrained
0053 4802 |H | Short_Literal 0x2 ; Debug Table 0x1.0xa = 0x53,0xfffe
0054 4803 |H | Short_Literal 0x3
0055 e20e | | Load 0x1,0xe
0056 03f8 | | Declare_Type Discrete,Constrained
0057 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x1.0xb = 0x57,0xfffd
0058 00c7 | | Action Elaborate_Subprogram
0059 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x1.0xc = 0x59,0xfffc
005a 00c7 | | Action Elaborate_Subprogram
005b 1d18 | | Execute_Immediate Reference_Lex_1,0x18 ; Debug Table 0x1.0xd = 0x5b,0xffff
005c 00c7 | | Action Elaborate_Subprogram
005d 1d19 | | Execute_Immediate Reference_Lex_1,0x19 ; Debug Table 0x1.0xe = 0x5d,0xfffe
005e 00c7 | | Action Elaborate_Subprogram
005f BODY_0008:
005f 00bc | | Action Signal_Activated
0060 00bb | | Action Signal_Completion
0061 0000 0000 | | .BLANK 0000[0x7]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006b | k | .CONST 0x006b ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0001 | | .CONST 0x0001 ; Number of locals
006b BODY_0068:
006b INIT_0068:
006b 4603 |F | Jump_Case 0x4 ; Debug Table 0x2 = .DEBUG 0x006b,0x0286,0x0005,0x0000,0x0057,0x4225,0x0000,0x000c
006c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
006d 7802 |x | Jump 0x70 ; case 0x1
006e 7805 |x | Jump 0x74 ; case 0x2
006f 7809 |x | Jump 0x79 ; case 0x3
0070 00da | | Load_Top At_Offset_2
0071 0091 01bc | | Action Push_String_Extended_Indexed,0x1bc ; "PREDEFINED"
0073 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0074 00db | | Load_Top At_Offset_3
0075 00db | | Load_Top At_Offset_3
0076 00e0 | | Load_Encached Standard_Cache
0077 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0078 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0079 00da | | Load_Top At_Offset_2
007a 00e0 | | Load_Encached Standard_Cache
007b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
007c 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
007d 0000 0000 | | .XXX[0x3]
007f 0000 | |
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 ; Debug Table 0x3 = .DEBUG 0x0083,0x0288,0x0002,0x0000,0x0057,0x4225,0x0000,0x0019
; Debug Table 0x3.0x0 = 0x83,0x1
0084 4800 |H | Short_Literal 0x0
0085 612e |a. | Indirect_Literal Discrete,0x1b4,{0x00000000, 0x0000ffff}
0086 0262 | b | Execute Discrete,In_Range
0087 6802 |h | Jump_Zero 0x8a
0088 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0x1 = 0x88,0x2
0089 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
008a 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0x2 = 0x8a,0x3
008b 6124 |a$ | Indirect_Literal Discrete,0x1b0,{0x00000000, 0x00010000}
008c 4802 |H | Short_Literal 0x2
008d 4830 |H0 | Short_Literal 0x30
008e 026d | m | Execute Discrete,Exponentiate
008f 0aff | | Execute_Immediate Plus,-0x1
0090 0262 | b | Execute Discrete,In_Range
0091 6813 |h | Jump_Zero 0xa5
0092 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0x3 = 0x92,0x4
0093 49ff |I | Short_Literal 0x1ff
0094 0279 | y | Execute Discrete,And
0095 09f9 | | Execute_Immediate Binary_Scale,-0x7
0096 e21a | | Load 0x1,0x1a
0097 025b | [ | Execute Discrete,Check_In_Type
0098 4603 |F | Jump_Case 0x4
0099 7803 |x | Jump 0x9d ; case 0x0
009a 7804 |x | Jump 0x9f ; case 0x1
009b 7805 |x | Jump 0xa1 ; case 0x2
009c 7806 |x | Jump 0xa3 ; case 0x3
009d 4801 |H | Short_Literal 0x1 ; Debug Table 0x3.0x4 = 0x9d,0x5
009e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
009f 4802 |H | Short_Literal 0x2 ; Debug Table 0x3.0x5 = 0x9f,0x6
00a0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00a1 4805 |H | Short_Literal 0x5 ; Debug Table 0x3.0x6 = 0xa1,0x7
00a2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00a3 4803 |H | Short_Literal 0x3 ; Debug Table 0x3.0x7 = 0xa3,0x8
00a4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00a5 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0x8 = 0xa5,0x9
00a6 e21e | | Load 0x1,0x1e
00a7 0260 | ` | Execute Discrete,In_Type
00a8 6802 |h | Jump_Zero 0xab
00a9 4804 |H | Short_Literal 0x4 ; Debug Table 0x3.0x9 = 0xa9,0xa
00aa 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00ab 4805 |H | Short_Literal 0x5 ; Debug Table 0x3.0xa = 0xab,0xb
00ac 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00ad 0000 0000 | | .XXX[0x3]
00af 0000 | |
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3 | | .CONST 0x00b3 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0001 | | .CONST 0x0001 ; Number of locals
00b3 BODY_00b0:
00b3 INIT_00b0:
00b3 00da | | Load_Top At_Offset_2 ; Debug Table 0x4 = .DEBUG 0x00b3,0x02a0,0x0002,0x0000,0x0057,0x4225,0x0000,0x0022
; Debug Table 0x4.0x0 = 0xb3,0x1
00b4 e20d | | Load 0x1,0xd
00b5 025b | [ | Execute Discrete,Check_In_Type
00b6 0910 | | Execute_Immediate Binary_Scale,0x10
00b7 4a00 |J | Short_Literal 0x200
00b8 0273 | s | Execute Discrete,Plus
00b9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00ba 0000 0000 | | .BLANK 0000[0x6]
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 60f0 |` | Indirect_Literal Discrete,0x1b4,{0x00000000, 0x0000ffff} ; Debug Table 0x5 = .DEBUG 0x00c3,0x02a4,0x0002,0x0000,0x0057,0x4225,0x0000,0x002c
; Debug Table 0x5.0x0 = 0xc3,0x1
00c4 00ca | | Action Exit_Nullary_Function
00c5 0000 0000 | | .XXX[0x3]
00c7 0000 | |
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cd | | .CONST 0x00cd ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0002 | | .CONST 0x0002 ; Number of locals
00cb INIT_00c8:
00cb e20d | | Load 0x1,0xd ; Debug Table 0x6 = .DEBUG 0x00cb,0x02a8,0x0002,0x0000,0x0057,0x4225,0x0000,0x0031
; Debug Table 0x6.0x0 = 0xcb,0xffff
00cc 0007 | | Action Break_Optional
00cd BODY_00c8:
00cd 00db | | Load_Top At_Offset_3 ; Debug Table 0x6.0x1 = 0xcd,0x1
00ce 820f | | Call 0x1,0xf
00cf 0f04 | | Execute_Immediate Equal,0x4
00d0 6810 |h | Jump_Zero 0xe1
00d1 00db | | Load_Top At_Offset_3 ; Debug Table 0x6.0x2 = 0xd1,0x2
00d2 e21d | | Load 0x1,0x1d
00d3 0272 | r | Execute Discrete,Minus
00d4 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
00d5 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x3 = 0xd5,0x3
00d6 00d9 | | Load_Top At_Offset_1
00d7 60dc |` | Indirect_Literal Discrete,0x1b4,{0x00000000, 0x0000ffff}
00d8 0279 | y | Execute Discrete,And
00d9 0272 | r | Execute Discrete,Minus
00da 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
00db 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x4 = 0xdb,0x4
00dc e21d | | Load 0x1,0x1d
00dd 0273 | s | Execute Discrete,Plus
00de 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
00df 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x5 = 0xdf,0x5
00e0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00e1 00db | | Load_Top At_Offset_3 ; Debug Table 0x6.0x6 = 0xe1,0x6
00e2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00e3 0000 0000 | | .BLANK 0000[0x5]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00f2 | | .CONST 0x00f2 ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0005 | | .CONST 0x0005 ; Number of locals
00eb INIT_00e8:
00eb e21f | | Load 0x1,0x1f ; Debug Table 0x7 = .DEBUG 0x00eb,0x02b8,0x0001,0x0000,0x0057,0x4225,0x0000,0x004b
; Debug Table 0x7.0x0 = 0xeb,0xffff
00ec 0007 | | Action Break_Optional
00ed 00db | | Load_Top At_Offset_3 ; Debug Table 0x7.0x1 = 0xed,0xfffe
00ee 00e5 | | Load_Encached Long_Integer_Cache
00ef 03f1 | | Declare_Variable Discrete,With_Value
00f0 00e5 | | Load_Encached Long_Integer_Cache ; Debug Table 0x7.0x2 = 0xf0,0xfffd
00f1 03e9 | | Declare_Variable Discrete,Duplicate
00f2 BODY_00e8:
00f2 e5ff | | Load 0x2,-0x1 ; Debug Table 0x7.0x3 = 0xf2,0x1
00f3 820f | | Call 0x1,0xf
00f4 e220 | | Load 0x1,0x20
00f5 0260 | ` | Execute Discrete,In_Type
00f6 7002 |p | Jump_Nonzero 0xf9
00f7 4887 |H | Short_Literal 0x87
00f8 0257 | W | Execute Discrete,Raise
00f9 00da | | Load_Top At_Offset_2 ; Debug Table 0x7.0x4 = 0xf9,0x2
00fa 487f |H | Short_Literal 0x7f
00fb 0279 | y | Execute Discrete,And
00fc 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
00fd 00da | | Load_Top At_Offset_2 ; Debug Table 0x7.0x5 = 0xfd,0x3
00fe 09f9 | | Execute_Immediate Binary_Scale,-0x7
00ff 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0100 00da | | Load_Top At_Offset_2 ; Debug Table 0x7.0x6 = 0x100,0x4
0101 4801 |H | Short_Literal 0x1
0102 0279 | y | Execute Discrete,And
0103 00d8 | | Load_Top At_Offset_0
0104 00e1 | | Load_Encached Boolean_Cache
0105 0260 | ` | Execute Discrete,In_Type
0106 7002 |p | Jump_Nonzero 0x109
0107 48e0 |H | Short_Literal 0xe0
0108 0257 | W | Execute Discrete,Raise
0109 c402 | | Store 0x2,0x2
010a 00da | | Load_Top At_Offset_2 ; Debug Table 0x7.0x7 = 0x10a,0x5
010b 09ff | | Execute_Immediate Binary_Scale,-0x1
010c 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
010d 00da | | Load_Top At_Offset_2 ; Debug Table 0x7.0x8 = 0x10d,0x6
010e 4801 |H | Short_Literal 0x1
010f 0279 | y | Execute Discrete,And
0110 00d8 | | Load_Top At_Offset_0
0111 00e1 | | Load_Encached Boolean_Cache
0112 0260 | ` | Execute Discrete,In_Type
0113 7002 |p | Jump_Nonzero 0x116
0114 48e0 |H | Short_Literal 0xe0
0115 0257 | W | Execute Discrete,Raise
0116 a5fc | | Store_Unchecked 0x2,-0x4
0117 00da | | Load_Top At_Offset_2 ; Debug Table 0x7.0x9 = 0x117,0x7
0118 09ff | | Execute_Immediate Binary_Scale,-0x1
0119 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
011a 00da | | Load_Top At_Offset_2 ; Debug Table 0x7.0xa = 0x11a,0x8
011b 487f |H | Short_Literal 0x7f
011c 0279 | y | Execute Discrete,And
011d 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
011e 00da | | Load_Top At_Offset_2 ; Debug Table 0x7.0xb = 0x11e,0x9
011f 09f9 | | Execute_Immediate Binary_Scale,-0x7
0120 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0121 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0xc = 0x121,0xa
0122 0907 | | Execute_Immediate Binary_Scale,0x7
0123 00da | | Load_Top At_Offset_2
0124 0273 | s | Execute Discrete,Plus
0125 e213 | | Load 0x1,0x13
0126 025b | [ | Execute Discrete,Check_In_Type
0127 a5fd | | Store_Unchecked 0x2,-0x3
0128 00da | | Load_Top At_Offset_2 ; Debug Table 0x7.0xd = 0x128,0xb
0129 e001 | | Load 0x0,0x1
012a 1b15 | | Execute Package,Field_Read,Field_Number 0x15
012b 025b | [ | Execute Discrete,Check_In_Type
012c a5fe | | Store_Unchecked 0x2,-0x2
012d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
012e 0000 0000 | | .XXX[0x2]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 014b | K | .CONST 0x014b ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0004 | | .CONST 0x0004 ; Number of locals
0133 INIT_0130:
0133 0007 | | Action Break_Optional ; Debug Table 0x8 = .DEBUG 0x0133,0x02d6,0x0002,0x0000,0x0057,0x4225,0x0000,0x0061
; Debug Table 0x8.0x0 = 0x133,0xffff
0134 00db | | Load_Top At_Offset_3 ; Debug Table 0x8.0x1 = 0x134,0xfffe
0135 09f9 | | Execute_Immediate Binary_Scale,-0x7
0136 00e5 | | Load_Encached Long_Integer_Cache
0137 03f1 | | Declare_Variable Discrete,With_Value
0138 e5fe | | Load 0x2,-0x2 ; Debug Table 0x8.0x2 = 0x138,0xfffd
0139 487f |H | Short_Literal 0x7f
013a 0279 | y | Execute Discrete,And
013b 00e5 | | Load_Encached Long_Integer_Cache
013c 03f1 | | Declare_Variable Discrete,With_Value
013d e5ff | | Load 0x2,-0x1 ; Debug Table 0x8.0x3 = 0x13d,0xfffc
013e 0910 | | Execute_Immediate Binary_Scale,0x10
013f 00da | | Load_Top At_Offset_2
0140 0909 | | Execute_Immediate Binary_Scale,0x9
0141 0273 | s | Execute Discrete,Plus
0142 e5fd | | Load 0x2,-0x3
0143 0908 | | Execute_Immediate Binary_Scale,0x8
0144 0273 | s | Execute Discrete,Plus
0145 4880 |H | Short_Literal 0x80
0146 0273 | s | Execute Discrete,Plus
0147 00d9 | | Load_Top At_Offset_1
0148 0273 | s | Execute Discrete,Plus
0149 e20d | | Load 0x1,0xd
014a 03f1 | | Declare_Variable Discrete,With_Value
014b BODY_0130:
014b 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x8.0x4 = 0x14b,0x1
014c 820f | | Call 0x1,0xf
014d e220 | | Load 0x1,0x20
014e 0260 | ` | Execute Discrete,In_Type
014f 7002 |p | Jump_Nonzero 0x152
0150 4887 |H | Short_Literal 0x87
0151 0257 | W | Execute Discrete,Raise
0152 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x8.0x5 = 0x152,0x2
0153 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0154 0000 0000 | | .BLANK 0000[0x4]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015e | ^ | .CONST 0x015e ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0002 | | .CONST 0x0002 ; Number of locals
015b INIT_0158:
015b 00da | | Load_Top At_Offset_2 ; Debug Table 0x9 = .DEBUG 0x015b,0x02e4,0x0001,0x0000,0x0057,0x4225,0x0000,0x0097
; Debug Table 0x9.0x0 = 0x15b,0xffff
015c 00e5 | | Load_Encached Long_Integer_Cache
015d 03f1 | | Declare_Variable Discrete,With_Value
015e BODY_0158:
015e 00db | | Load_Top At_Offset_3 ; Debug Table 0x9.0x1 = 0x15e,0x1
015f 820f | | Call 0x1,0xf
0160 0f04 | | Execute_Immediate Equal,0x4
0161 7002 |p | Jump_Nonzero 0x164
0162 4887 |H | Short_Literal 0x87
0163 0257 | W | Execute Discrete,Raise
0164 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x2 = 0x164,0x2
0165 e21c | | Load 0x1,0x1c
0166 0272 | r | Execute Discrete,Minus
0167 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0168 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x3 = 0x168,0x3
0169 604a |`J | Indirect_Literal Discrete,0x1b4,{0x00000000, 0x0000ffff}
016a 0279 | y | Execute Discrete,And
016b e217 | | Load 0x1,0x17
016c 025b | [ | Execute Discrete,Check_In_Type
016d a5fc | | Store_Unchecked 0x2,-0x4
016e 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x4 = 0x16e,0x4
016f 09f0 | | Execute_Immediate Binary_Scale,-0x10
0170 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0171 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x5 = 0x171,0x5
0172 6041 |`A | Indirect_Literal Discrete,0x1b4,{0x00000000, 0x0000ffff}
0173 0279 | y | Execute Discrete,And
0174 e216 | | Load 0x1,0x16
0175 025b | [ | Execute Discrete,Check_In_Type
0176 a5fd | | Store_Unchecked 0x2,-0x3
0177 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x6 = 0x177,0x6
0178 09f0 | | Execute_Immediate Binary_Scale,-0x10
0179 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
017a 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x7 = 0x17a,0x7
017b 6030 |`0 | Indirect_Literal Discrete,0x1ac,{0x00000000, 0x00ffffff}
017c 0279 | y | Execute Discrete,And
017d e001 | | Load 0x0,0x1
017e 1b16 | | Execute Package,Field_Read,Field_Number 0x16
017f 025b | [ | Execute Discrete,Check_In_Type
0180 a5fe | | Store_Unchecked 0x2,-0x2
0181 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x8 = 0x181,0x8
0182 09e8 | | Execute_Immediate Binary_Scale,-0x18
0183 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0184 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x9 = 0x184,0x9
0185 6802 |h | Jump_Zero 0x188
0186 4887 |H | Short_Literal 0x87
0187 0257 | W | Execute Discrete,Raise
0188 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0189 0000 0000 | | .BLANK 0000[0x7]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 01a1 | | .CONST 0x01a1 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0002 | | .CONST 0x0002 ; Number of locals
0193 INIT_0190:
0193 e5fd | | Load 0x2,-0x3 ; Debug Table 0xa = .DEBUG 0x0193,0x02fa,0x0002,0x0000,0x0057,0x4225,0x0000,0x00ad
; Debug Table 0xa.0x0 = 0x193,0xffff
0194 e5fe | | Load 0x2,-0x2
0195 0910 | | Execute_Immediate Binary_Scale,0x10
0196 0273 | s | Execute Discrete,Plus
0197 00db | | Load_Top At_Offset_3
0198 4802 |H | Short_Literal 0x2
0199 4820 |H | Short_Literal 0x20
019a 026d | m | Execute Discrete,Exponentiate
019b 0271 | q | Execute Discrete,Times
019c 0273 | s | Execute Discrete,Plus
019d e21c | | Load 0x1,0x1c
019e 0273 | s | Execute Discrete,Plus
019f e20d | | Load 0x1,0xd
01a0 03f1 | | Declare_Variable Discrete,With_Value
01a1 BODY_0190:
01a1 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xa.0x1 = 0x1a1,0x1
01a2 820f | | Call 0x1,0xf
01a3 0f04 | | Execute_Immediate Equal,0x4
01a4 7002 |p | Jump_Nonzero 0x1a7
01a5 4887 |H | Short_Literal 0x87
01a6 0257 | W | Execute Discrete,Raise
01a7 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xa.0x2 = 0x1a7,0x2
01a8 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
01a9 0000 0000 | | .XXX[0x3]
01ab 0000 | |
01ac 0000 0000 | | .LITERAL {0x00000000, 0x00ffffff}
01b0 0000 0000 | | .LITERAL {0x00000000, 0x00010000}
01b4 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
01b8 0000 0000 | | .LITERAL {0x00000000, 0x00003fff}
01bc ; --------------------------------------------------------------------------------------
01bc ; STRING TABLE
01bc ; --------------------------------------------------------------------------------------
01bc 0014 | | .STRTAB 0x0014->0x01c6 ; "PREDEFINED"
01bd 001c | | .STRTAB 0x001c->0x01cb ; "MV_DEFINED"
01be 0024 | $ | .STRTAB 0x0024->0x01d0 ; "GAMMA"
01bf 0027 | ' | .STRTAB 0x0027->0x01d2 ; "ARCHIVED_GAMMA"
01c0 0033 | 3 | .STRTAB 0x0033->0x01d9 ; "EPSILON"
01c1 0038 | 8 | .STRTAB 0x0038->0x01dd ; "ILLEGAL"
01c2 003d | = | .STRTAB 0x003d->0x01e0 ; "SPARE_6"
01c3 0042 | B | .STRTAB 0x0042->0x01e4 ; "SPARE_7"
01c4 0047 | G | .STRTAB 0x0047->0x01e7 ; "SPARE_8"
01c5 004c | L | .STREND 0x004c->0x01eb
01c6 5052 4544 |PRED| .STRTAB_STRINGS
01eb 0000 0000 | | .BLANK 0000[0x5]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; Debug Table
01f0 ; --------------------------------------------------------------------------------------
01f0 0003 000b | | .CONST 0x0003,0x000b
01f2 000b 024a | J| .DEBUG 0x000b,0x024a,0x8000,0x0000,0x0057,0x4225,0x0000,0x0005
01fa 002f 0266 | / f| .DEBUG 0x002f,0x0266,0x8000,0x0000,0x0057,0x43a5,0x0000,0x0003
0202 006b 0286 | k | .DEBUG 0x006b,0x0286,0x0005,0x0000,0x0057,0x4225,0x0000,0x000c
020a 0083 0288 | | .DEBUG 0x0083,0x0288,0x0002,0x0000,0x0057,0x4225,0x0000,0x0019
0212 00b3 02a0 | | .DEBUG 0x00b3,0x02a0,0x0002,0x0000,0x0057,0x4225,0x0000,0x0022
021a 00c3 02a4 | | .DEBUG 0x00c3,0x02a4,0x0002,0x0000,0x0057,0x4225,0x0000,0x002c
0222 00cb 02a8 | | .DEBUG 0x00cb,0x02a8,0x0002,0x0000,0x0057,0x4225,0x0000,0x0031
022a 00eb 02b8 | | .DEBUG 0x00eb,0x02b8,0x0001,0x0000,0x0057,0x4225,0x0000,0x004b
0232 0133 02d6 | 3 | .DEBUG 0x0133,0x02d6,0x0002,0x0000,0x0057,0x4225,0x0000,0x0061
023a 015b 02e4 | [ | .DEBUG 0x015b,0x02e4,0x0001,0x0000,0x0057,0x4225,0x0000,0x0097
0242 0193 02fa | | .DEBUG 0x0193,0x02fa,0x0002,0x0000,0x0057,0x4225,0x0000,0x00ad
024a ; --------------------------------------------------------------------------------------
024a ; Debug3 Subtable 0x0
024a ; --------------------------------------------------------------------------------------
024a 000d 0000 | | .DBG3TAB 0x000d,0x0000
024c 000b ffff | | .CONST 0x000b,0xffff
024e 000d fffe | | .CONST 0x000d,0xfffe
0250 0012 fffd | | .CONST 0x0012,0xfffd
0252 0014 fffc | | .CONST 0x0014,0xfffc
0254 0016 fffb | | .CONST 0x0016,0xfffb
0256 0018 fffa | | .CONST 0x0018,0xfffa
0258 001a ffff | | .CONST 0x001a,0xffff
025a 001e fffe | | .CONST 0x001e,0xfffe
025c 0020 fffd | | .CONST 0x0020,0xfffd
025e 0022 ffff | " | .CONST 0x0022,0xffff
0260 0026 fffe | & | .CONST 0x0026,0xfffe
0262 002a fffd | * | .CONST 0x002a,0xfffd
0264 002c fffc | , | .CONST 0x002c,0xfffc
0266 ; --------------------------------------------------------------------------------------
0266 ; Debug3 Subtable 0x1
0266 ; --------------------------------------------------------------------------------------
0266 000f 0000 | | .DBG3TAB 0x000f,0x0000
0268 002f ffff | / | .CONST 0x002f,0xffff
026a 0033 fffe | 3 | .CONST 0x0033,0xfffe
026c 0035 fffd | 5 | .CONST 0x0035,0xfffd
026e 003b fffc | ; | .CONST 0x003b,0xfffc
0270 003e fffb | > | .CONST 0x003e,0xfffb
0272 0047 fffa | G | .CONST 0x0047,0xfffa
0274 0049 fff9 | I | .CONST 0x0049,0xfff9
0276 004b fff8 | K | .CONST 0x004b,0xfff8
0278 004d fff7 | M | .CONST 0x004d,0xfff7
027a 004f ffff | O | .CONST 0x004f,0xffff
027c 0053 fffe | S | .CONST 0x0053,0xfffe
027e 0057 fffd | W | .CONST 0x0057,0xfffd
0280 0059 fffc | Y | .CONST 0x0059,0xfffc
0282 005b ffff | [ | .CONST 0x005b,0xffff
0284 005d fffe | ] | .CONST 0x005d,0xfffe
0286 ; --------------------------------------------------------------------------------------
0286 ; Debug3 Subtable 0x2
0286 ; --------------------------------------------------------------------------------------
0286 0000 0000 | | .DBG3TAB 0x0000,0x0000
0288 ; --------------------------------------------------------------------------------------
0288 ; Debug3 Subtable 0x3
0288 ; --------------------------------------------------------------------------------------
0288 0000 000b | | .DBG3TAB 0x0000,0x000b
028a 0083 0001 | | .CONST 0x0083,0x0001
028c 0088 0002 | | .CONST 0x0088,0x0002
028e 008a 0003 | | .CONST 0x008a,0x0003
0290 0092 0004 | | .CONST 0x0092,0x0004
0292 009d 0005 | | .CONST 0x009d,0x0005
0294 009f 0006 | | .CONST 0x009f,0x0006
0296 00a1 0007 | | .CONST 0x00a1,0x0007
0298 00a3 0008 | | .CONST 0x00a3,0x0008
029a 00a5 0009 | | .CONST 0x00a5,0x0009
029c 00a9 000a | | .CONST 0x00a9,0x000a
029e 00ab 000b | | .CONST 0x00ab,0x000b
02a0 ; --------------------------------------------------------------------------------------
02a0 ; Debug3 Subtable 0x4
02a0 ; --------------------------------------------------------------------------------------
02a0 0000 0001 | | .DBG3TAB 0x0000,0x0001
02a2 00b3 0001 | | .CONST 0x00b3,0x0001
02a4 ; --------------------------------------------------------------------------------------
02a4 ; Debug3 Subtable 0x5
02a4 ; --------------------------------------------------------------------------------------
02a4 0000 0001 | | .DBG3TAB 0x0000,0x0001
02a6 00c3 0001 | | .CONST 0x00c3,0x0001
02a8 ; --------------------------------------------------------------------------------------
02a8 ; Debug3 Subtable 0x6
02a8 ; --------------------------------------------------------------------------------------
02a8 0001 0006 | | .DBG3TAB 0x0001,0x0006
02aa 00cb ffff | | .CONST 0x00cb,0xffff
02ac 00cd 0001 | | .CONST 0x00cd,0x0001
02ae 00d1 0002 | | .CONST 0x00d1,0x0002
02b0 00d5 0003 | | .CONST 0x00d5,0x0003
02b2 00db 0004 | | .CONST 0x00db,0x0004
02b4 00df 0005 | | .CONST 0x00df,0x0005
02b6 00e1 0006 | | .CONST 0x00e1,0x0006
02b8 ; --------------------------------------------------------------------------------------
02b8 ; Debug3 Subtable 0x7
02b8 ; --------------------------------------------------------------------------------------
02b8 0003 000b | | .DBG3TAB 0x0003,0x000b
02ba 00eb ffff | | .CONST 0x00eb,0xffff
02bc 00ed fffe | | .CONST 0x00ed,0xfffe
02be 00f0 fffd | | .CONST 0x00f0,0xfffd
02c0 00f2 0001 | | .CONST 0x00f2,0x0001
02c2 00f9 0002 | | .CONST 0x00f9,0x0002
02c4 00fd 0003 | | .CONST 0x00fd,0x0003
02c6 0100 0004 | | .CONST 0x0100,0x0004
02c8 010a 0005 | | .CONST 0x010a,0x0005
02ca 010d 0006 | | .CONST 0x010d,0x0006
02cc 0117 0007 | | .CONST 0x0117,0x0007
02ce 011a 0008 | | .CONST 0x011a,0x0008
02d0 011e 0009 | | .CONST 0x011e,0x0009
02d2 0121 000a | ! | .CONST 0x0121,0x000a
02d4 0128 000b | ( | .CONST 0x0128,0x000b
02d6 ; --------------------------------------------------------------------------------------
02d6 ; Debug3 Subtable 0x8
02d6 ; --------------------------------------------------------------------------------------
02d6 0004 0002 | | .DBG3TAB 0x0004,0x0002
02d8 0133 ffff | 3 | .CONST 0x0133,0xffff
02da 0134 fffe | 4 | .CONST 0x0134,0xfffe
02dc 0138 fffd | 8 | .CONST 0x0138,0xfffd
02de 013d fffc | = | .CONST 0x013d,0xfffc
02e0 014b 0001 | K | .CONST 0x014b,0x0001
02e2 0152 0002 | R | .CONST 0x0152,0x0002
02e4 ; --------------------------------------------------------------------------------------
02e4 ; Debug3 Subtable 0x9
02e4 ; --------------------------------------------------------------------------------------
02e4 0001 0009 | | .DBG3TAB 0x0001,0x0009
02e6 015b ffff | [ | .CONST 0x015b,0xffff
02e8 015e 0001 | ^ | .CONST 0x015e,0x0001
02ea 0164 0002 | d | .CONST 0x0164,0x0002
02ec 0168 0003 | h | .CONST 0x0168,0x0003
02ee 016e 0004 | n | .CONST 0x016e,0x0004
02f0 0171 0005 | q | .CONST 0x0171,0x0005
02f2 0177 0006 | w | .CONST 0x0177,0x0006
02f4 017a 0007 | z | .CONST 0x017a,0x0007
02f6 0181 0008 | | .CONST 0x0181,0x0008
02f8 0184 0009 | | .CONST 0x0184,0x0009
02fa ; --------------------------------------------------------------------------------------
02fa ; Debug3 Subtable 0xa
02fa ; --------------------------------------------------------------------------------------
02fa 0001 0002 | | .DBG3TAB 0x0001,0x0002
02fc 0193 ffff | | .CONST 0x0193,0xffff
02fe 01a1 0001 | | .CONST 0x01a1,0x0001
0300 01a7 0002 | | .CONST 0x01a7,0x0002
0302 0000 0000 | | .BLANK 0000[0xfe]