|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 DFS Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 DFS Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00)
Types: SEG
Notes: 5811_R1K_CODE
Names: »995347.SEG«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »995347.SEG«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »995347.SEG«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »995347.SEG«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »995347.SEG«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »995347.SEG«
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 0338 | 8 | .CONST 0x0338 ; 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 0102 | | .CONST 0x0102 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0093 | | .CONST 0x0093 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0027 | ' | .CONST 0x0027 ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0 ; Debug Table 0x0 = .DEBUG 0x000b,0x03ea,0x8000,0x0000,0x0037,0x08d4,0x0000,0x000b
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 4809 |H | Short_Literal 0x9
000d 029f 00ab | | Declare_Subprogram INIT_00a8,For_Call
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 4801 |H | Short_Literal 0x1 ; Debug Table 0x0.0x1 = 0x10,0xfffe
0011 4850 |HP | Short_Literal 0x50
0012 00e9 | | Load_Encached String_Cache
0013 035c | \ | Declare_Type Array,Constrained,Visible
0014 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x0.0x2 = 0x14,0xfffd
0015 4801 |H | Short_Literal 0x1
0016 00e4 | | Load_Encached Positive_Cache
0017 4801 |H | Short_Literal 0x1
0018 e001 | | Load 0x0,0x1
0019 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
001a 4801 |H | Short_Literal 0x1
001b e002 | | Load 0x0,0x2
001c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
001d 4801 |H | Short_Literal 0x1
001e e003 | | Load 0x0,0x3
001f 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0020 4801 |H | Short_Literal 0x1
0021 e004 | | Load 0x0,0x4
0022 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0023 4801 |H | Short_Literal 0x1
0024 e20e | | Load 0x1,0xe
0025 029f 00c3 | | Declare_Subprogram INIT_00c0,For_Call
0027 4806 |H | Short_Literal 0x6
0028 4800 |H | Short_Literal 0x0
0029 4806 |H | Short_Literal 0x6
002a 4800 |H | Short_Literal 0x0
002b 4801 |H | Short_Literal 0x1
002c 031e | | Declare_Type Variant_Record,Defined,Visible
002d 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x2d,0xfffc
002f 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x2f,0xfffb
0031 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x31,0xfffa
0033 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x33,0xfff9
0035 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x7 = 0x35,0xfff8
0037 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x8 = 0x37,0xfff7
0039 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x9 = 0x39,0xfff6
003a e20f | | Load 0x1,0xf
003b 1c08 | | Execute_Immediate Run_Utility,0x8
003c 0129 | ) | Execute Any,Make_Visible
003d 00bf | | Action Accept_Activation
003e 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x003e,0x0400,0x8000,0x0000,0x0037,0x0c44,0x0000,0x000d
; Debug Table 0x1.0x0 = 0x3e,0xffff
003f e005 | | Load 0x0,0x5 ; Debug Table 0x1.0x1 = 0x3f,0xfffe
0040 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0041 0322 | " | Declare_Variable Record
0042 4814 |H | Short_Literal 0x14 ; Debug Table 0x1.0x2 = 0x42,0xfffd
0043 e006 | | Load 0x0,0x6
0044 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0045 1c08 | | Execute_Immediate Run_Utility,0x8
0046 0007 | | Action Break_Optional ; Debug Table 0x1.0x3 = 0x46,0xfffc
0047 4800 |H | Short_Literal 0x0 ; Debug Table 0x1.0x4 = 0x47,0xfffb
0048 483c |H< | Short_Literal 0x3c
0049 00e3 | | Load_Encached Natural_Cache
004a 03f8 | | Declare_Type Discrete,Constrained
004b 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x1.0x5 = 0x4b,0xfffa
004c 0007 | | Action Break_Optional ; Debug Table 0x1.0x6 = 0x4c,0xfff9
004d 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0x7 = 0x4d,0xfff8
004e e20f | | Load 0x1,0xf
004f 029f 01c3 | | Declare_Subprogram INIT_01c0,For_Call
0051 4802 |H | Short_Literal 0x2
0052 032d | - | Declare_Type Record,Defined
0053 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0x8 = 0x53,0xfff7
0054 0322 | " | Declare_Variable Record
0055 4800 |H | Short_Literal 0x0
0056 00d9 | | Load_Top At_Offset_1
0057 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0058 e216 | | Load 0x1,0x16
0059 00d9 | | Load_Top At_Offset_1
005a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
005b 625c |b\ | Indirect_Literal Discrete,0x2b8,{0x00000000, 0x00370c44} ; Debug Table 0x1.0x9 = 0x5b,0xfff6
005c 4858 |HX | Short_Literal 0x58
005d e219 | | Load 0x1,0x19
005e 483c |H< | Short_Literal 0x3c
005f e21b | | Load 0x1,0x1b
0060 e21c | | Load 0x1,0x1c
0061 e007 | | Load 0x0,0x7
0062 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0063 0387 | | Declare_Variable Package
0064 00d8 | | Load_Top At_Offset_0
0065 020f | | Execute Module,Activate
0066 483c |H< | Short_Literal 0x3c ; Debug Table 0x1.0xa = 0x66,0xfff5
0067 00d9 | | Load_Top At_Offset_1
0068 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0069 1c08 | | Execute_Immediate Run_Utility,0x8
006a 00d8 | | Load_Top At_Offset_0
006b 1c00 | | Execute_Immediate Run_Utility,0x0
006c 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x1.0xb = 0x6c,0xfff4
006d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
006e e21a | | Load 0x1,0x1a ; Debug Table 0x1.0xc = 0x6e,0xfff3
006f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0070 029d 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call ; Debug Table 0x1.0xd = 0x70,0xfff2
0072 029d 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call ; Debug Table 0x1.0xe = 0x72,0xfff1
0074 4800 |H | Short_Literal 0x0 ; Debug Table 0x1.0xf = 0x74,0xfff0
0075 623e |b> | Indirect_Literal Discrete,0x2b4,{0x000f3013, 0x00002c30} ; 0xf3013 = LOG_RECORD_BUFFER
0076 02a0 | | Declare_Subprogram Null_Subprogram
0077 037d | } | Declare_Type Task,Defined
0078 036f | o | Declare_Variable Task
0079 00b6 | | Action Make_Scope ; Debug Table 0x1.0x10 = 0x79,0xffef
007a 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
007b 4802 |H | Short_Literal 0x2
007c 00db | | Load_Top At_Offset_3
007d 020e | | Execute Module,Augment_Imports
007e 0007 | | Action Break_Optional
007f 029d 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call ; Debug Table 0x1.0x11 = 0x7f,0xffee
0081 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x12 = 0x81,0xffed
0082 00c7 | | Action Elaborate_Subprogram
0083 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x13 = 0x83,0xffec
0084 00c7 | | Action Elaborate_Subprogram
0085 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0x14 = 0x85,0xffeb
0086 00c7 | | Action Elaborate_Subprogram
0087 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0x15 = 0x87,0xffea
0088 00c7 | | Action Elaborate_Subprogram
0089 029d 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call ; Debug Table 0x1.0x16 = 0x89,0xffe9
008b 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x1.0x17 = 0x8b,0xffe8
008c 00c7 | | Action Elaborate_Subprogram
008d 029d 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call ; Debug Table 0x1.0x18 = 0x8d,0xffe7
008f 029d 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call ; Debug Table 0x1.0x19 = 0x8f,0xffe6
0091 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x1.0x1a = 0x91,0xffe5
0092 00c7 | | Action Elaborate_Subprogram
0093 BODY_0008:
0093 00be | | Action Activate_Tasks
0094 e217 | | Load 0x1,0x17 ; Debug Table 0x1.0x1b = 0x94,0x1
0095 e005 | | Load 0x0,0x5
0096 180e | | Execute Package,Field_Execute,Field_Number 0xe
0097 00d1 | | Pop_Control Pop_Count_1
0098 e218 | | Load 0x1,0x18 ; Debug Table 0x1.0x1c = 0x98,0x2
0099 480f |H | Short_Literal 0xf
009a e006 | | Load 0x0,0x6
009b 180f | | Execute Package,Field_Execute,Field_Number 0xf
009c 00d1 | | Pop_Control Pop_Count_1
009d e21e | | Load 0x1,0x1e ; Debug Table 0x1.0x1d = 0x9d,0x3
009e e21d | | Load 0x1,0x1d
009f 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00a0 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00a1 00d1 | | Pop_Control Pop_Count_1
00a2 00bc | | Action Signal_Activated
00a3 00bb | | Action Signal_Completion
00a4 0000 0000 | | .BLANK 0000[0x4]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab | | .CONST 0x00ab ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0001 | | .CONST 0x0001 ; Number of locals
00ab BODY_00a8:
00ab INIT_00a8:
00ab 4603 |F | Jump_Case 0x4 ; Debug Table 0x2 = .DEBUG 0x00ab,0x043e,0x0005,0x0000,0x0037,0x08d4,0x0000,0x000c
00ac 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00ad 7802 |x | Jump 0xb0 ; case 0x1
00ae 7805 |x | Jump 0xb4 ; case 0x2
00af 7809 |x | Jump 0xb9 ; case 0x3
00b0 00da | | Load_Top At_Offset_2
00b1 0091 02f8 | | Action Push_String_Extended_Indexed,0x2f8 ; "EMPTY"
00b3 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00b4 00db | | Load_Top At_Offset_3
00b5 00db | | Load_Top At_Offset_3
00b6 00e0 | | Load_Encached Standard_Cache
00b7 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00b8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00b9 00da | | Load_Top At_Offset_2
00ba 00e0 | | Load_Encached Standard_Cache
00bb 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00bc 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00bd 0000 0000 | | .XXX[0x3]
00bf 0000 | |
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 4608 |F | Jump_Case 0x9 ; Debug Table 0x3 = .DEBUG 0x00c3,0x0440,0x0005,0x0000,0x0037,0x08d4,0x0000,0x0022
00c4 7808 |x | Jump 0xcd ; case 0x0
00c5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
00c6 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
00c7 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
00c8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
00c9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
00ca 781f |x | Jump 0xea ; case 0x6
00cb 783a |x: | Jump 0x106 ; case 0x7
00cc 7858 |xX | Jump 0x125 ; case 0x8
00cd 00da | | Load_Top At_Offset_2
00ce 016c | l | Execute Variant_Record,Is_Constrained
00cf 7009 |p | Jump_Nonzero 0xd9
00d0 00cf | | Action Mark_Auxiliary
00d1 4800 |H | Short_Literal 0x0
00d2 e5ff | | Load 0x2,-0x1
00d3 1c08 | | Execute_Immediate Run_Utility,0x8
00d4 00d8 | | Load_Top At_Offset_0
00d5 1c00 | | Execute_Immediate Run_Utility,0x0
00d6 c5ff | | Store 0x2,-0x1
00d7 00ce | | Action Pop_Auxiliary
00d8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
00d9 00da | | Load_Top At_Offset_2
00da 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
00db 4609 |F | Jump_Case 0xa
00dc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00dd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
00de 7807 |x | Jump 0xe6 ; case 0x2
00df 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
00e0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
00e1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
00e2 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6
00e3 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7
00e4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8
00e5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x9
00e6 00da | | Load_Top At_Offset_2
00e7 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
00e8 1c00 | | Execute_Immediate Run_Utility,0x0
00e9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
00ea 00db | | Load_Top At_Offset_3
00eb 4609 |F | Jump_Case 0xa
00ec 7809 |x | Jump 0xf6 ; case 0x0
00ed 780a |x | Jump 0xf8 ; case 0x1
00ee 780b |x | Jump 0xfa ; case 0x2
00ef 780c |x | Jump 0xfc ; case 0x3
00f0 780d |x | Jump 0xfe ; case 0x4
00f1 7812 |x | Jump 0x104 ; case 0x5
00f2 780d |x | Jump 0x100 ; case 0x6
00f3 780e |x | Jump 0x102 ; case 0x7
00f4 780d |x | Jump 0x102 ; case 0x8
00f5 780e |x | Jump 0x104 ; case 0x9
00f6 48ff |H | Short_Literal 0xff
00f7 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00f8 4801 |H | Short_Literal 0x1
00f9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00fa 4802 |H | Short_Literal 0x2
00fb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00fc 4803 |H | Short_Literal 0x3
00fd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00fe 4804 |H | Short_Literal 0x4
00ff 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0100 4805 |H | Short_Literal 0x5
0101 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0102 4806 |H | Short_Literal 0x6
0103 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0104 48ff |H | Short_Literal 0xff
0105 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0106 00db | | Load_Top At_Offset_3
0107 e5fe | | Load 0x2,-0x2
0108 4609 |F | Jump_Case 0xa
0109 7809 |x | Jump 0x113 ; case 0x0
010a 780a |x | Jump 0x115 ; case 0x1
010b 780b |x | Jump 0x117 ; case 0x2
010c 780c |x | Jump 0x119 ; case 0x3
010d 780d |x | Jump 0x11b ; case 0x4
010e 7812 |x | Jump 0x121 ; case 0x5
010f 780d |x | Jump 0x11d ; case 0x6
0110 780e |x | Jump 0x11f ; case 0x7
0111 780d |x | Jump 0x11f ; case 0x8
0112 780e |x | Jump 0x121 ; case 0x9
0113 48ff |H | Short_Literal 0xff
0114 780d |x | Jump 0x122
0115 4801 |H | Short_Literal 0x1
0116 780b |x | Jump 0x122
0117 4802 |H | Short_Literal 0x2
0118 7809 |x | Jump 0x122
0119 4803 |H | Short_Literal 0x3
011a 7807 |x | Jump 0x122
011b 4804 |H | Short_Literal 0x4
011c 7805 |x | Jump 0x122
011d 4805 |H | Short_Literal 0x5
011e 7803 |x | Jump 0x122
011f 4806 |H | Short_Literal 0x6
0120 7801 |x | Jump 0x122
0121 48ff |H | Short_Literal 0xff
0122 e5ff | | Load 0x2,-0x1
0123 031b | | Declare_Type Variant_Record,Constrained
0124 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0125 00db | | Load_Top At_Offset_3
0126 e5fe | | Load 0x2,-0x2
0127 e5ff | | Load 0x2,-0x1
0128 1c06 | | Execute_Immediate Run_Utility,0x6
0129 e5ff | | Load 0x2,-0x1
012a 02fc | | Declare_Variable Variant_Record,With_Constraint
012b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
012c 0000 0000 | | .BLANK 0000[0x4]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133 | 3 | .CONST 0x0133 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0001 | | .CONST 0x0001 ; Number of locals
0133 BODY_0130:
0133 INIT_0130:
0133 4802 |H | Short_Literal 0x2 ; Debug Table 0x4 = .DEBUG 0x0133,0x0442,0x0001,0x0000,0x0037,0x08d4,0x0000,0x0077
; Debug Table 0x4.0x0 = 0x133,0x1
0134 e20f | | Load 0x1,0xf
0135 1c08 | | Execute_Immediate Run_Utility,0x8
0136 00db | | Load_Top At_Offset_3
0137 00d9 | | Load_Top At_Offset_1
0138 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0139 8224 | $ | Call 0x1,0x24
013a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
013b 0000 0000 | | .BLANK 0000[0x5]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143 | C | .CONST 0x0143 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0001 | | .CONST 0x0001 ; Number of locals
0143 BODY_0140:
0143 INIT_0140:
0143 4803 |H | Short_Literal 0x3 ; Debug Table 0x5 = .DEBUG 0x0143,0x0446,0x0001,0x0000,0x0037,0x08d4,0x0000,0x0081
; Debug Table 0x5.0x0 = 0x143,0x1
0144 e20f | | Load 0x1,0xf
0145 1c08 | | Execute_Immediate Run_Utility,0x8
0146 00db | | Load_Top At_Offset_3
0147 00d9 | | Load_Top At_Offset_1
0148 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0149 8224 | $ | Call 0x1,0x24
014a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
014b 0000 0000 | | .BLANK 0000[0x5]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153 | S | .CONST 0x0153 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0001 | | .CONST 0x0001 ; Number of locals
0153 BODY_0150:
0153 INIT_0150:
0153 4804 |H | Short_Literal 0x4 ; Debug Table 0x6 = .DEBUG 0x0153,0x044a,0x0001,0x0000,0x0037,0x08d4,0x0000,0x008b
; Debug Table 0x6.0x0 = 0x153,0x1
0154 e20f | | Load 0x1,0xf
0155 1c08 | | Execute_Immediate Run_Utility,0x8
0156 00db | | Load_Top At_Offset_3
0157 00d9 | | Load_Top At_Offset_1
0158 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
0159 8224 | $ | Call 0x1,0x24
015a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
015b 0000 0000 | | .BLANK 0000[0x5]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163 | c | .CONST 0x0163 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0001 | | .CONST 0x0001 ; Number of locals
0163 BODY_0160:
0163 INIT_0160:
0163 4806 |H | Short_Literal 0x6 ; Debug Table 0x7 = .DEBUG 0x0163,0x044e,0x0001,0x0000,0x0037,0x08d4,0x0000,0x0095
; Debug Table 0x7.0x0 = 0x163,0x1
0164 e20f | | Load 0x1,0xf
0165 1c08 | | Execute_Immediate Run_Utility,0x8
0166 00db | | Load_Top At_Offset_3
0167 00d9 | | Load_Top At_Offset_1
0168 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
0169 8224 | $ | Call 0x1,0x24
016a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
016b 0000 0000 | | .BLANK 0000[0x5]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173 | s | .CONST 0x0173 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0001 | | .CONST 0x0001 ; Number of locals
0173 BODY_0170:
0173 INIT_0170:
0173 00db | | Load_Top At_Offset_3 ; Debug Table 0x8 = .DEBUG 0x0173,0x0452,0x0001,0x0000,0x0037,0x08d4,0x0000,0x009f
; Debug Table 0x8.0x0 = 0x173,0x1
0174 680b |h | Jump_Zero 0x180
0175 4808 |H | Short_Literal 0x8 ; Debug Table 0x8.0x1 = 0x175,0x2
0176 e20f | | Load 0x1,0xf
0177 1c08 | | Execute_Immediate Run_Utility,0x8
0178 00db | | Load_Top At_Offset_3
0179 8225 | % | Call 0x1,0x25
017a e20e | | Load 0x1,0xe
017b 0119 | | Execute Any,Check_In_Formal_Type
017c 00d9 | | Load_Top At_Offset_1
017d 2a07 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
017e 8224 | $ | Call 0x1,0x24
017f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0180 4807 |H | Short_Literal 0x7 ; Debug Table 0x8.0x2 = 0x180,0x3
0181 e20f | | Load 0x1,0xf
0182 1c08 | | Execute_Immediate Run_Utility,0x8
0183 00db | | Load_Top At_Offset_3
0184 8225 | % | Call 0x1,0x25
0185 e20e | | Load 0x1,0xe
0186 0119 | | Execute Any,Check_In_Formal_Type
0187 00d9 | | Load_Top At_Offset_1
0188 2a07 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
0189 8224 | $ | Call 0x1,0x24
018a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
018b 0000 0000 | | .BLANK 0000[0x5]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 01a0 | | .CONST 0x01a0 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0007 | | .CONST 0x0007 ; Number of locals
0193 INIT_0190:
0193 e006 | | Load 0x0,0x6 ; Debug Table 0x9 = .DEBUG 0x0193,0x045a,0x0002,0x0000,0x0037,0x08d4,0x0000,0x00ac
; Debug Table 0x9.0x0 = 0x193,0xffff
0194 1911 | | Execute Package,Field_Reference,Field_Number 0x11
0195 00c6 | | Action Check_Subprogram_Elaborated
0196 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
0197 6120 |a | Indirect_Literal Discrete,0x2b8,{0x00000000, 0x00370c44}
0198 4ab0 |J | Short_Literal 0x2b0
0199 4805 |H | Short_Literal 0x5
019a 0007 | | Action Break_Optional
019b 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x9.0x1 = 0x19b,0xfffe
019c e20f | | Load 0x1,0xf ; Debug Table 0x9.0x2 = 0x19c,0xfffd
019d 02ff | | Declare_Variable Variant_Record
019e 00d8 | | Load_Top At_Offset_0
019f 1c00 | | Execute_Immediate Run_Utility,0x0
01a0 BODY_0190:
01a0 00cf | | Action Mark_Auxiliary
01a1 0007 | | Action Break_Optional ; Debug Table 0x9.0x3 = 0x1a1,0x1
01a2 4801 |H | Short_Literal 0x1 ; Debug Table 0x9.0x4 = 0x1a2,0x2
01a3 590c |Y | Indirect_Literal Float,0x2b0,4294967296.0
01a4 5907 |Y | Indirect_Literal Float,0x2ac,3.0517578125e-05
01a5 023a | : | Execute Float,Divide
01a6 0236 | 6 | Execute Float,Truncate_To_Discrete
01a7 480f |H | Short_Literal 0xf
01a8 4802 |H | Short_Literal 0x2
01a9 4802 |H | Short_Literal 0x2
01aa 0099 | | Action Reference_Dynamic
01ab 4803 |H | Short_Literal 0x3
01ac 4802 |H | Short_Literal 0x2
01ad 0099 | | Action Reference_Dynamic
01ae e006 | | Load 0x0,0x6
01af 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01b0 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x9.0x5 = 0x1b0,0x3
01b1 00e1 | | Load_Encached Boolean_Cache
01b2 8227 | ' | Call 0x1,0x27
01b3 c406 | | Store 0x2,0x6
01b4 00d1 | | Pop_Control Pop_Count_1
01b5 00da | | Load_Top At_Offset_2 ; Debug Table 0x9.0x6 = 0x1b5,0x4
01b6 6802 |h | Jump_Zero 0x1b9
01b7 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x9.0x7 = 0x1b7,0x5
01b8 00ca | | Action Exit_Nullary_Function
01b9 00c9 | | Action Pop_Auxiliary_Loop
01ba 7fe7 | | Jump 0x1a2
01bb 0000 0000 | | .BLANK 0000[0x5]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3 | | .CONST 0x01c3 ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0001 | | .CONST 0x0001 ; Number of locals
01c3 BODY_01c0:
01c3 INIT_01c0:
01c3 4608 |F | Jump_Case 0x9 ; Debug Table 0xa = .DEBUG 0x01c3,0x046c,0x0005,0x0000,0x0037,0x0c44,0x0000,0x003c
01c4 7808 |x | Jump 0x1cd ; case 0x0
01c5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
01c6 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
01c7 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
01c8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
01c9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
01ca 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6
01cb 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7
01cc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8
01cd 00da | | Load_Top At_Offset_2
01ce 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
01cf 1c00 | | Execute_Immediate Run_Utility,0x0
01d0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
01d1 0000 0000 | | .BLANK 0000[0x7]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db | | .CONST 0x01db ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0001 | | .CONST 0x0001 ; Number of locals
01db BODY_01d8:
01db INIT_01d8:
01db 00da | | Load_Top At_Offset_2 ; Debug Table 0xb = .DEBUG 0x01db,0x046e,0x0002,0x0000,0x0037,0x0c44,0x0000,0x0083
; Debug Table 0xb.0x0 = 0x1db,0x1
01dc e21d | | Load 0x1,0x1d
01dd 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01de 00db | | Load_Top At_Offset_3
01df 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01e0 027f | | Execute Discrete,Equal
01e1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01e2 0000 0000 | | .BLANK 0000[0x6]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb | | .CONST 0x01eb ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0001 | | .CONST 0x0001 ; Number of locals
01eb BODY_01e8:
01eb INIT_01e8:
01eb e008 | | Load 0x0,0x8 ; Debug Table 0xc = .DEBUG 0x01eb,0x0472,0x0001,0x0000,0x0037,0x0c44,0x0000,0x009f
; Debug Table 0xc.0x0 = 0x1eb,0x1
01ec 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01ed 7002 |p | Jump_Nonzero 0x1f0
01ee 4887 |H | Short_Literal 0x87
01ef 0257 | W | Execute Discrete,Raise
01f0 e217 | | Load 0x1,0x17 ; Debug Table 0xc.0x1 = 0x1f0,0x2
01f1 e005 | | Load 0x0,0x5
01f2 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01f3 00d1 | | Pop_Control Pop_Count_1
01f4 e21e | | Load 0x1,0x1e ; Debug Table 0xc.0x2 = 0x1f4,0x3
01f5 8221 | ! | Call 0x1,0x21
01f6 6804 |h | Jump_Zero 0x1fb
01f7 e21f | | Load 0x1,0x1f ; Debug Table 0xc.0x3 = 0x1f7,0x4
01f8 0a01 | | Execute_Immediate Plus,0x1
01f9 c21f | | Store 0x1,0x1f
01fa 7826 |x& | Jump 0x221
01fb e220 | | Load 0x1,0x20 ; Debug Table 0xc.0x4 = 0x1fb,0x5
01fc 0a01 | | Execute_Immediate Plus,0x1
01fd c220 | | Store 0x1,0x20
01fe e21f | | Load 0x1,0x1f ; Debug Table 0xc.0x5 = 0x1fe,0x6
01ff 0c01 | | Execute_Immediate Greater_Equal,0x1
0200 6814 |h | Jump_Zero 0x215
0201 e21e | | Load 0x1,0x1e ; Debug Table 0xc.0x6 = 0x201,0x7
0202 e21b | | Load 0x1,0x1b
0203 0322 | " | Declare_Variable Record
0204 e220 | | Load 0x1,0x20
0205 00d9 | | Load_Top At_Offset_1
0206 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0207 4801 |H | Short_Literal 0x1
0208 e20f | | Load 0x1,0xf
0209 1c08 | | Execute_Immediate Run_Utility,0x8
020a e21f | | Load 0x1,0x1f
020b 00d9 | | Load_Top At_Offset_1
020c 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
020d 00d9 | | Load_Top At_Offset_1
020e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
020f e21d | | Load 0x1,0x1d
0210 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0211 00d1 | | Pop_Control Pop_Count_1
0212 4800 |H | Short_Literal 0x0 ; Debug Table 0xc.0x7 = 0x212,0x8
0213 a21f | | Store_Unchecked 0x1,0x1f
0214 780c |x | Jump 0x221
0215 e21e | | Load 0x1,0x1e ; Debug Table 0xc.0x8 = 0x215,0x9
0216 e21b | | Load 0x1,0x1b
0217 0322 | " | Declare_Variable Record
0218 e220 | | Load 0x1,0x20
0219 00d9 | | Load_Top At_Offset_1
021a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
021b e5ff | | Load 0x2,-0x1
021c 00d9 | | Load_Top At_Offset_1
021d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
021e e21d | | Load 0x1,0x1d
021f 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0220 00d1 | | Pop_Control Pop_Count_1
0221 e218 | | Load 0x1,0x18 ; Debug Table 0xc.0x9 = 0x221,0xa
0222 e006 | | Load 0x0,0x6
0223 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0224 00d1 | | Pop_Control Pop_Count_1
0225 e217 | | Load 0x1,0x17 ; Debug Table 0xc.0xa = 0x225,0xb
0226 e005 | | Load 0x0,0x5
0227 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0228 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0229 0000 0000 | | .BLANK 0000[0x7]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233 | 3 | .CONST 0x0233 ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0001 | | .CONST 0x0001 ; Number of locals
0233 BODY_0230:
0233 INIT_0230:
0233 e008 | | Load 0x0,0x8 ; Debug Table 0xd = .DEBUG 0x0233,0x048a,0x0001,0x0000,0x0037,0x0c44,0x0000,0x0141
; Debug Table 0xd.0x0 = 0x233,0x1
0234 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0235 6803 |h | Jump_Zero 0x239
0236 00da | | Load_Top At_Offset_2 ; Debug Table 0xd.0x1 = 0x236,0x2
0237 8222 | " | Call 0x1,0x22
0238 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0239 00da | | Load_Top At_Offset_2 ; Debug Table 0xd.0x2 = 0x239,0x3
023a 4801 |H | Short_Literal 0x1
023b e223 | # | Load 0x1,0x23
023c 170d | | Execute Task,Entry_Call,Field_Number 0xd
023d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
023e 0000 0000 | | .XXX[0x2]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243 | C | .CONST 0x0243 ; Address of begin
0241 0004 | | .CONST 0x0004 ; Address of exception handler
0242 0001 | | .CONST 0x0001 ; Number of locals
0243 BODY_0240:
0243 INIT_0240:
0243 00da | | Load_Top At_Offset_2 ; Debug Table 0xe = .DEBUG 0x0243,0x0492,0x0002,0x0000,0x0037,0x0c44,0x0000,0x01c7
; Debug Table 0xe.0x0 = 0x243,0x1
0244 01db | | Execute Vector,Length
0245 0c50 | P | Execute_Immediate Greater_Equal,0x50
0246 680c |h | Jump_Zero 0x253
0247 00da | | Load_Top At_Offset_2 ; Debug Table 0xe.0x1 = 0x247,0x2
0248 01dd | | Execute Vector,First
0249 00db | | Load_Top At_Offset_3
024a 01dd | | Execute Vector,First
024b 0a50 | P | Execute_Immediate Plus,0x50
024c 0aff | | Execute_Immediate Plus,-0x1
024d 0248 | H | Execute Discrete,Check_In_Integer
024e e5ff | | Load 0x2,-0x1
024f 01cf | | Execute Vector,Slice_Read
0250 e20e | | Load 0x1,0xe
0251 01c7 | | Execute Vector,Convert
0252 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0253 00da | | Load_Top At_Offset_2 ; Debug Table 0xe.0x2 = 0x253,0x3
0254 00db | | Load_Top At_Offset_3
0255 01db | | Execute Vector,Length
0256 0a01 | | Execute_Immediate Plus,0x1
0257 0248 | H | Execute Discrete,Check_In_Integer
0258 4850 |HP | Short_Literal 0x50
0259 00e9 | | Load_Encached String_Cache
025a 035b | [ | Declare_Type Array,Constrained
025b 0337 | 7 | Declare_Variable Array
025c 4850 |HP | Short_Literal 0x50
025d 00d9 | | Load_Top At_Offset_1
025e 01dd | | Execute Vector,First
025f 0263 | c | Execute Discrete,Above_Bound
0260 7005 |p | Jump_Nonzero 0x266
0261 4820 |H | Short_Literal 0x20
0262 00d9 | | Load_Top At_Offset_1
0263 e403 | | Load 0x2,0x3
0264 01d6 | | Execute Vector,Field_Write
0265 3ffb |? | Loop_Increasing 0x261
0266 01cc | | Execute Vector,Catenate
0267 e20e | | Load 0x1,0xe
0268 01c7 | | Execute Vector,Convert
0269 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
026a 0000 0000 | | .BLANK 0000[0x6]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0273 | s | .CONST 0x0273 ; Address of begin
0271 0004 | | .CONST 0x0004 ; Address of exception handler
0272 0001 | | .CONST 0x0001 ; Number of locals
0273 BODY_0270:
0273 INIT_0270:
0273 e217 | | Load 0x1,0x17 ; Debug Table 0xf = .DEBUG 0x0273,0x049a,0x0001,0x0000,0x0037,0x0c44,0x0000,0x0246
; Debug Table 0xf.0x0 = 0x273,0x1
0274 e005 | | Load 0x0,0x5
0275 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0276 00d1 | | Pop_Control Pop_Count_1
0277 e218 | | Load 0x1,0x18 ; Debug Table 0xf.0x1 = 0x277,0x2
0278 e5fe | | Load 0x2,-0x2
0279 e5ff | | Load 0x2,-0x1
027a e006 | | Load 0x0,0x6
027b 1812 | | Execute Package,Field_Execute,Field_Number 0x12
027c 00d1 | | Pop_Control Pop_Count_1
027d e21e | | Load 0x1,0x1e ; Debug Table 0xf.0x2 = 0x27d,0x3
027e e21d | | Load 0x1,0x1d
027f 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0280 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0281 7004 |p | Jump_Nonzero 0x286
0282 e218 | | Load 0x1,0x18 ; Debug Table 0xf.0x3 = 0x282,0x4
0283 e006 | | Load 0x0,0x6
0284 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0285 00d1 | | Pop_Control Pop_Count_1
0286 e217 | | Load 0x1,0x17 ; Debug Table 0xf.0x4 = 0x286,0x5
0287 e005 | | Load 0x0,0x5
0288 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0289 4503 |E | Exit_Suprogram New_Top_Offset 0x3
028a 0000 0000 | | .BLANK 0000[0x6]
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 0297 | | .CONST 0x0297 ; Address of begin
0291 0004 | | .CONST 0x0004 ; Address of exception handler
0292 0002 | | .CONST 0x0002 ; Number of locals
0293 INIT_0290:
0293 e21b | | Load 0x1,0x1b ; Debug Table 0x10 = .DEBUG 0x0293,0x04a6,0x0001,0x0000,0x0037,0x0c44,0x0000,0x027e
; Debug Table 0x10.0x0 = 0x293,0xffff
0294 0322 | " | Declare_Variable Record
0295 00d8 | | Load_Top At_Offset_0
0296 1c00 | | Execute_Immediate Run_Utility,0x0
0297 BODY_0290:
0297 e217 | | Load 0x1,0x17 ; Debug Table 0x10.0x1 = 0x297,0x1
0298 e005 | | Load 0x0,0x5
0299 1810 | | Execute Package,Field_Execute,Field_Number 0x10
029a 00d1 | | Pop_Control Pop_Count_1
029b 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x10.0x2 = 0x29b,0x2
029c 00e1 | | Load_Encached Boolean_Cache
029d e21e | | Load 0x1,0x1e
029e e21d | | Load 0x1,0x1d
029f 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02a0 00d1 | | Pop_Control Pop_Count_1
02a1 c5ff | | Store 0x2,-0x1
02a2 00d1 | | Pop_Control Pop_Count_1
02a3 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x10.0x3 = 0x2a3,0x3
02a4 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
02a5 e5fe | | Load 0x2,-0x2
02a6 016d | m | Execute Variant_Record,Structure_Write
02a7 e217 | | Load 0x1,0x17 ; Debug Table 0x10.0x4 = 0x2a7,0x4
02a8 e005 | | Load 0x0,0x5
02a9 1812 | | Execute Package,Field_Execute,Field_Number 0x12
02aa 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02ab 0000 | | .XXX[0x1]
02ac 3f00 0000 |? | .DBL 3.0517578125e-05
02ae 0000 0000 | |
02b0 41f0 0000 |A | .DBL 4294967296.0
02b2 0000 0000 | |
02b4 000f 3013 | 0 | .LITERAL {0x000f3013, 0x00002c30}
02b8 0000 0000 | | .LITERAL {0x00000000, 0x00370c44}
02bc 0000 0000 | | .BLANK 0000[0x4]
02c0 02c9 0004 | | .XXX[0x3]
02c2 000e | |
02c3 4801 |H | Short_Literal 0x1 ; Debug Table 0x11 = .DEBUG 0x02c3,0x04b2,0x0000,0x0000,0x0037,0x0c44,0x0000,0x010d
02c4 02cb | | Declare_Variable Entry
02c5 00bf | | Action Accept_Activation
02c6 029f 02d3 | | Declare_Subprogram INIT_02d0,For_Call ; Debug Table 0x12 = .DEBUG 0x02c6,0x04b4,0x0000,0x0000,0x0037,0x0c44,0x0000,0x0119
02c8 00bc | | Action Signal_Activated
02c9 00cf | | Action Mark_Auxiliary
02ca 0007 | | Action Break_Optional ; Debug Table 0x12.0x0 = 0x2ca,0x1
02cb 820e | | Call 0x1,0xe ; Debug Table 0x12.0x1 = 0x2cb,0x2
02cc 00c9 | | Action Pop_Auxiliary_Loop
02cd 7ffd | | Jump 0x2cb
02ce 0000 0000 | | .XXX[0x2]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02d6 | | .CONST 0x02d6 ; Address of begin
02d1 02dc | | .CONST 0x02dc ; Address of exception handler
02d2 0002 | | .CONST 0x0002 ; Number of locals
02d3 INIT_02d0:
02d3 480d |H | Short_Literal 0xd ; Debug Table 0x13 = .DEBUG 0x02d3,0x04ba,0x0004,0x0000,0x0037,0x0c44,0x0000,0x013a
02d4 0299 02e3 | | Declare_Subprogram INIT_02e0,For_Accept
02d6 BODY_02d0:
02d6 4802 |H | Short_Literal 0x2 ; Debug Table 0x13.0x0 = 0x2d6,0x1
02d7 4802 |H | Short_Literal 0x2
02d8 0099 | | Action Reference_Dynamic
02d9 1d0d | | Execute_Immediate Reference_Lex_1,0xd
02da 0137 | 7 | Execute Entry,Rendezvous
02db 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02dc TRAP_02d0:
02dc 0007 | | Action Break_Optional
02dd 6016 |` | Indirect_Literal Discrete,0x2f4,{0x00000000, 0x001e0000} ; Debug Table 0x13.0x1 = 0x2dd,0x2
02de 00ba | | Action Initiate_Delay
02df 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02e3 | | .CONST 0x02e3 ; Address of begin
02e1 0004 | | .CONST 0x0004 ; Address of exception handler
02e2 0001 | | .CONST 0x0001 ; Number of locals
02e3 BODY_02e0:
02e3 INIT_02e0:
02e3 029f 02eb | | Declare_Subprogram INIT_02e8,For_Call ; Debug Table 0x14 = .DEBUG 0x02e3,0x04c0,0x0003,0x0000,0x0037,0x0c44,0x0000,0x0131
02e5 8602 | | Call 0x3,0x2 ; Debug Table 0x14.0x0 = 0x2e5,0x1
02e6 4100 |A | End_Rendezvous 0x0
02e7 0000 | | .XXX[0x1]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02f1 | | .CONST 0x02f1 ; Address of begin
02e9 0004 | | .CONST 0x0004 ; Address of exception handler
02ea 0002 | | .CONST 0x0002 ; Number of locals
02eb INIT_02e8:
02eb e001 | | Load 0x0,0x1 ; Debug Table 0x15 = .DEBUG 0x02eb,0x04c4,0x0004,0x0000,0x0037,0x0c44,0x0000,0x012f
; Debug Table 0x15.0x0 = 0x2eb,0xffff
02ec 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02ed 02ff | | Declare_Variable Variant_Record
02ee e7fe | | Load 0x3,-0x2
02ef 00d9 | | Load_Top At_Offset_1
02f0 016d | m | Execute Variant_Record,Structure_Write
02f1 BODY_02e8:
02f1 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x15.0x1 = 0x2f1,0x1
02f2 8002 | | Call 0x0,0x2
02f3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02f4 0000 0000 | | .LITERAL {0x00000000, 0x001e0000}
02f8 ; --------------------------------------------------------------------------------------
02f8 ; STRING TABLE
02f8 ; --------------------------------------------------------------------------------------
02f8 0016 | | .STRTAB 0x0016->0x0303 ; "EMPTY"
02f9 0019 | | .STRTAB 0x0019->0x0305 ; "OVERRUN"
02fa 001e | | .STRTAB 0x001e->0x0309 ; "PORT_ERROR"
02fb 0026 | & | .STRTAB 0x0026->0x030e ; "TAPE_ERROR"
02fc 002e | . | .STRTAB 0x002e->0x0313 ; "DISK_ERROR"
02fd 0036 | 6 | .STRTAB 0x0036->0x0318 ; "X25_ERROR"
02fe 003d | = | .STRTAB 0x003d->0x031c ; "MEMORY_ECC"
02ff 0045 | E | .STRTAB 0x0045->0x0321 ; "RAW_TEXT"
0300 004b | K | .STRTAB 0x004b->0x0325 ; "RAW_TEXT_TO_CONSOLE_ONLY"
0301 0061 | a | .STRTAB 0x0061->0x0331 ; "SPARE_9"
0302 0066 | f | .STREND 0x0066->0x0335
0303 454d 5054 |EMPT| .STRTAB_STRINGS
0335 0000 0000 | | .XXX[0x3]
0337 0000 | |
0338 ; --------------------------------------------------------------------------------------
0338 ; Debug Table
0338 ; --------------------------------------------------------------------------------------
0338 0003 0016 | | .CONST 0x0003,0x0016
033a 000b 03ea | | .DEBUG 0x000b,0x03ea,0x8000,0x0000,0x0037,0x08d4,0x0000,0x000b
0342 003e 0400 | > | .DEBUG 0x003e,0x0400,0x8000,0x0000,0x0037,0x0c44,0x0000,0x000d
034a 00ab 043e | >| .DEBUG 0x00ab,0x043e,0x0005,0x0000,0x0037,0x08d4,0x0000,0x000c
0352 00c3 0440 | @| .DEBUG 0x00c3,0x0440,0x0005,0x0000,0x0037,0x08d4,0x0000,0x0022
035a 0133 0442 | 3 B| .DEBUG 0x0133,0x0442,0x0001,0x0000,0x0037,0x08d4,0x0000,0x0077
0362 0143 0446 | C F| .DEBUG 0x0143,0x0446,0x0001,0x0000,0x0037,0x08d4,0x0000,0x0081
036a 0153 044a | S J| .DEBUG 0x0153,0x044a,0x0001,0x0000,0x0037,0x08d4,0x0000,0x008b
0372 0163 044e | c N| .DEBUG 0x0163,0x044e,0x0001,0x0000,0x0037,0x08d4,0x0000,0x0095
037a 0173 0452 | s R| .DEBUG 0x0173,0x0452,0x0001,0x0000,0x0037,0x08d4,0x0000,0x009f
0382 0193 045a | Z| .DEBUG 0x0193,0x045a,0x0002,0x0000,0x0037,0x08d4,0x0000,0x00ac
038a 01c3 046c | l| .DEBUG 0x01c3,0x046c,0x0005,0x0000,0x0037,0x0c44,0x0000,0x003c
0392 01db 046e | n| .DEBUG 0x01db,0x046e,0x0002,0x0000,0x0037,0x0c44,0x0000,0x0083
039a 01eb 0472 | r| .DEBUG 0x01eb,0x0472,0x0001,0x0000,0x0037,0x0c44,0x0000,0x009f
03a2 0233 048a | 3 | .DEBUG 0x0233,0x048a,0x0001,0x0000,0x0037,0x0c44,0x0000,0x0141
03aa 0243 0492 | C | .DEBUG 0x0243,0x0492,0x0002,0x0000,0x0037,0x0c44,0x0000,0x01c7
03b2 0273 049a | s | .DEBUG 0x0273,0x049a,0x0001,0x0000,0x0037,0x0c44,0x0000,0x0246
03ba 0293 04a6 | | .DEBUG 0x0293,0x04a6,0x0001,0x0000,0x0037,0x0c44,0x0000,0x027e
03c2 02c3 04b2 | | .DEBUG 0x02c3,0x04b2,0x0000,0x0000,0x0037,0x0c44,0x0000,0x010d
03ca 02c6 04b4 | | .DEBUG 0x02c6,0x04b4,0x0000,0x0000,0x0037,0x0c44,0x0000,0x0119
03d2 02d3 04ba | | .DEBUG 0x02d3,0x04ba,0x0004,0x0000,0x0037,0x0c44,0x0000,0x013a
03da 02e3 04c0 | | .DEBUG 0x02e3,0x04c0,0x0003,0x0000,0x0037,0x0c44,0x0000,0x0131
03e2 02eb 04c4 | | .DEBUG 0x02eb,0x04c4,0x0004,0x0000,0x0037,0x0c44,0x0000,0x012f
03ea ; --------------------------------------------------------------------------------------
03ea ; Debug3 Subtable 0x0
03ea ; --------------------------------------------------------------------------------------
03ea 000a 0000 | | .DBG3TAB 0x000a,0x0000
03ec 000b ffff | | .CONST 0x000b,0xffff
03ee 0010 fffe | | .CONST 0x0010,0xfffe
03f0 0014 fffd | | .CONST 0x0014,0xfffd
03f2 002d fffc | - | .CONST 0x002d,0xfffc
03f4 002f fffb | / | .CONST 0x002f,0xfffb
03f6 0031 fffa | 1 | .CONST 0x0031,0xfffa
03f8 0033 fff9 | 3 | .CONST 0x0033,0xfff9
03fa 0035 fff8 | 5 | .CONST 0x0035,0xfff8
03fc 0037 fff7 | 7 | .CONST 0x0037,0xfff7
03fe 0039 fff6 | 9 | .CONST 0x0039,0xfff6
0400 ; --------------------------------------------------------------------------------------
0400 ; Debug3 Subtable 0x1
0400 ; --------------------------------------------------------------------------------------
0400 001b 0003 | | .DBG3TAB 0x001b,0x0003
0402 003e ffff | > | .CONST 0x003e,0xffff
0404 003f fffe | ? | .CONST 0x003f,0xfffe
0406 0042 fffd | B | .CONST 0x0042,0xfffd
0408 0046 fffc | F | .CONST 0x0046,0xfffc
040a 0047 fffb | G | .CONST 0x0047,0xfffb
040c 004b fffa | K | .CONST 0x004b,0xfffa
040e 004c fff9 | L | .CONST 0x004c,0xfff9
0410 004d fff8 | M | .CONST 0x004d,0xfff8
0412 0053 fff7 | S | .CONST 0x0053,0xfff7
0414 005b fff6 | [ | .CONST 0x005b,0xfff6
0416 0066 fff5 | f | .CONST 0x0066,0xfff5
0418 006c fff4 | l | .CONST 0x006c,0xfff4
041a 006e fff3 | n | .CONST 0x006e,0xfff3
041c 0070 fff2 | p | .CONST 0x0070,0xfff2
041e 0072 fff1 | r | .CONST 0x0072,0xfff1
0420 0074 fff0 | t | .CONST 0x0074,0xfff0
0422 0079 ffef | y | .CONST 0x0079,0xffef
0424 007f ffee | | .CONST 0x007f,0xffee
0426 0081 ffed | | .CONST 0x0081,0xffed
0428 0083 ffec | | .CONST 0x0083,0xffec
042a 0085 ffeb | | .CONST 0x0085,0xffeb
042c 0087 ffea | | .CONST 0x0087,0xffea
042e 0089 ffe9 | | .CONST 0x0089,0xffe9
0430 008b ffe8 | | .CONST 0x008b,0xffe8
0432 008d ffe7 | | .CONST 0x008d,0xffe7
0434 008f ffe6 | | .CONST 0x008f,0xffe6
0436 0091 ffe5 | | .CONST 0x0091,0xffe5
0438 0094 0001 | | .CONST 0x0094,0x0001
043a 0098 0002 | | .CONST 0x0098,0x0002
043c 009d 0003 | | .CONST 0x009d,0x0003
043e ; --------------------------------------------------------------------------------------
043e ; Debug3 Subtable 0x2
043e ; --------------------------------------------------------------------------------------
043e 0000 0000 | | .DBG3TAB 0x0000,0x0000
0440 ; --------------------------------------------------------------------------------------
0440 ; Debug3 Subtable 0x3
0440 ; --------------------------------------------------------------------------------------
0440 0000 0000 | | .DBG3TAB 0x0000,0x0000
0442 ; --------------------------------------------------------------------------------------
0442 ; Debug3 Subtable 0x4
0442 ; --------------------------------------------------------------------------------------
0442 0000 0001 | | .DBG3TAB 0x0000,0x0001
0444 0133 0001 | 3 | .CONST 0x0133,0x0001
0446 ; --------------------------------------------------------------------------------------
0446 ; Debug3 Subtable 0x5
0446 ; --------------------------------------------------------------------------------------
0446 0000 0001 | | .DBG3TAB 0x0000,0x0001
0448 0143 0001 | C | .CONST 0x0143,0x0001
044a ; --------------------------------------------------------------------------------------
044a ; Debug3 Subtable 0x6
044a ; --------------------------------------------------------------------------------------
044a 0000 0001 | | .DBG3TAB 0x0000,0x0001
044c 0153 0001 | S | .CONST 0x0153,0x0001
044e ; --------------------------------------------------------------------------------------
044e ; Debug3 Subtable 0x7
044e ; --------------------------------------------------------------------------------------
044e 0000 0001 | | .DBG3TAB 0x0000,0x0001
0450 0163 0001 | c | .CONST 0x0163,0x0001
0452 ; --------------------------------------------------------------------------------------
0452 ; Debug3 Subtable 0x8
0452 ; --------------------------------------------------------------------------------------
0452 0000 0003 | | .DBG3TAB 0x0000,0x0003
0454 0173 0001 | s | .CONST 0x0173,0x0001
0456 0175 0002 | u | .CONST 0x0175,0x0002
0458 0180 0003 | | .CONST 0x0180,0x0003
045a ; --------------------------------------------------------------------------------------
045a ; Debug3 Subtable 0x9
045a ; --------------------------------------------------------------------------------------
045a 0003 0005 | | .DBG3TAB 0x0003,0x0005
045c 0193 ffff | | .CONST 0x0193,0xffff
045e 019b fffe | | .CONST 0x019b,0xfffe
0460 019c fffd | | .CONST 0x019c,0xfffd
0462 01a1 0001 | | .CONST 0x01a1,0x0001
0464 01a2 0002 | | .CONST 0x01a2,0x0002
0466 01b0 0003 | | .CONST 0x01b0,0x0003
0468 01b5 0004 | | .CONST 0x01b5,0x0004
046a 01b7 0005 | | .CONST 0x01b7,0x0005
046c ; --------------------------------------------------------------------------------------
046c ; Debug3 Subtable 0xa
046c ; --------------------------------------------------------------------------------------
046c 0000 0000 | | .DBG3TAB 0x0000,0x0000
046e ; --------------------------------------------------------------------------------------
046e ; Debug3 Subtable 0xb
046e ; --------------------------------------------------------------------------------------
046e 0000 0001 | | .DBG3TAB 0x0000,0x0001
0470 01db 0001 | | .CONST 0x01db,0x0001
0472 ; --------------------------------------------------------------------------------------
0472 ; Debug3 Subtable 0xc
0472 ; --------------------------------------------------------------------------------------
0472 0000 000b | | .DBG3TAB 0x0000,0x000b
0474 01eb 0001 | | .CONST 0x01eb,0x0001
0476 01f0 0002 | | .CONST 0x01f0,0x0002
0478 01f4 0003 | | .CONST 0x01f4,0x0003
047a 01f7 0004 | | .CONST 0x01f7,0x0004
047c 01fb 0005 | | .CONST 0x01fb,0x0005
047e 01fe 0006 | | .CONST 0x01fe,0x0006
0480 0201 0007 | | .CONST 0x0201,0x0007
0482 0212 0008 | | .CONST 0x0212,0x0008
0484 0215 0009 | | .CONST 0x0215,0x0009
0486 0221 000a | ! | .CONST 0x0221,0x000a
0488 0225 000b | % | .CONST 0x0225,0x000b
048a ; --------------------------------------------------------------------------------------
048a ; Debug3 Subtable 0xd
048a ; --------------------------------------------------------------------------------------
048a 0000 0003 | | .DBG3TAB 0x0000,0x0003
048c 0233 0001 | 3 | .CONST 0x0233,0x0001
048e 0236 0002 | 6 | .CONST 0x0236,0x0002
0490 0239 0003 | 9 | .CONST 0x0239,0x0003
0492 ; --------------------------------------------------------------------------------------
0492 ; Debug3 Subtable 0xe
0492 ; --------------------------------------------------------------------------------------
0492 0000 0003 | | .DBG3TAB 0x0000,0x0003
0494 0243 0001 | C | .CONST 0x0243,0x0001
0496 0247 0002 | G | .CONST 0x0247,0x0002
0498 0253 0003 | S | .CONST 0x0253,0x0003
049a ; --------------------------------------------------------------------------------------
049a ; Debug3 Subtable 0xf
049a ; --------------------------------------------------------------------------------------
049a 0000 0005 | | .DBG3TAB 0x0000,0x0005
049c 0273 0001 | s | .CONST 0x0273,0x0001
049e 0277 0002 | w | .CONST 0x0277,0x0002
04a0 027d 0003 | } | .CONST 0x027d,0x0003
04a2 0282 0004 | | .CONST 0x0282,0x0004
04a4 0286 0005 | | .CONST 0x0286,0x0005
04a6 ; --------------------------------------------------------------------------------------
04a6 ; Debug3 Subtable 0x10
04a6 ; --------------------------------------------------------------------------------------
04a6 0001 0004 | | .DBG3TAB 0x0001,0x0004
04a8 0293 ffff | | .CONST 0x0293,0xffff
04aa 0297 0001 | | .CONST 0x0297,0x0001
04ac 029b 0002 | | .CONST 0x029b,0x0002
04ae 02a3 0003 | | .CONST 0x02a3,0x0003
04b0 02a7 0004 | | .CONST 0x02a7,0x0004
04b2 ; --------------------------------------------------------------------------------------
04b2 ; Debug3 Subtable 0x11
04b2 ; --------------------------------------------------------------------------------------
04b2 0000 0000 | | .DBG3TAB 0x0000,0x0000
04b4 ; --------------------------------------------------------------------------------------
04b4 ; Debug3 Subtable 0x12
04b4 ; --------------------------------------------------------------------------------------
04b4 0000 0002 | | .DBG3TAB 0x0000,0x0002
04b6 02ca 0001 | | .CONST 0x02ca,0x0001
04b8 02cb 0002 | | .CONST 0x02cb,0x0002
04ba ; --------------------------------------------------------------------------------------
04ba ; Debug3 Subtable 0x13
04ba ; --------------------------------------------------------------------------------------
04ba 0000 0002 | | .DBG3TAB 0x0000,0x0002
04bc 02d6 0001 | | .CONST 0x02d6,0x0001
04be 02dd 0002 | | .CONST 0x02dd,0x0002
04c0 ; --------------------------------------------------------------------------------------
04c0 ; Debug3 Subtable 0x14
04c0 ; --------------------------------------------------------------------------------------
04c0 0000 0001 | | .DBG3TAB 0x0000,0x0001
04c2 02e5 0001 | | .CONST 0x02e5,0x0001
04c4 ; --------------------------------------------------------------------------------------
04c4 ; Debug3 Subtable 0x15
04c4 ; --------------------------------------------------------------------------------------
04c4 0001 0001 | | .DBG3TAB 0x0001,0x0001
04c6 02eb ffff | | .CONST 0x02eb,0xffff
04c8 02f1 0001 | | .CONST 0x02f1,0x0001
04ca 0000 0000 | | .BLANK 0000[0x136]