|
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: 2048 (0x800)
Types: SEG
Notes: 5811_R1K_CODE
Names: »15379.SEG«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »15379.SEG«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »15379.SEG«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »15379.SEG«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »15379.SEG«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »15379.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 0168 | h | .CONST 0x0168 ; 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 0101 | | .CONST 0x0101 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0072 | r | .CONST 0x0072 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0017 | | .CONST 0x0017 ; Number of locals
000b INIT_0008:
000b 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x0 = .DEBUG 0x000b,0x01b2,0x8000,0x0000,0x0035,0xd844,0x0000,0x0007
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 0401 | | Execute_Immediate Set_Value_Visible_Unchecked,0x1
000d 0007 | | Action Break_Optional ; Debug Table 0x0.0x1 = 0xd,0xfffe
000e e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x2 = 0xe,0xfffd
000f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0010 4800 |H | Short_Literal 0x0
0011 4800 |H | Short_Literal 0x0
0012 4801 |H | Short_Literal 0x1
0013 4803 |H | Short_Literal 0x3
0014 0319 | | Declare_Type Variant_Record,Incomplete,Visible
0015 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x15,0xfffc
0017 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x17,0xfffb
0019 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x19,0xfffa
001b 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x1b,0xfff9
001d 0007 | | Action Break_Optional ; Debug Table 0x0.0x7 = 0x1d,0xfff8
001e 4801 |H | Short_Literal 0x1 ; Debug Table 0x0.0x8 = 0x1e,0xfff7
001f 484d |HM | Short_Literal 0x4d
0020 00e4 | | Load_Encached Positive_Cache
0021 03f8 | | Declare_Type Discrete,Constrained
0022 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x9 = 0x22,0xfff6
0023 484d |HM | Short_Literal 0x4d
0024 00e3 | | Load_Encached Natural_Cache
0025 03f8 | | Declare_Type Discrete,Constrained
0026 4801 |H | Short_Literal 0x1 ; Debug Table 0x0.0xa = 0x26,0xfff5
0027 484d |HM | Short_Literal 0x4d
0028 e002 | | Load 0x0,0x2
0029 1b12 | | Execute Package,Field_Read,Field_Number 0x12
002a 035b | [ | Declare_Type Array,Constrained
002b 00d9 | | Load_Top At_Offset_1
002c 029f 0103 | | Declare_Subprogram INIT_0100,For_Call
002e 4800 |H | Short_Literal 0x0
002f 4802 |H | Short_Literal 0x2
0030 e20e | | Load 0x1,0xe
0031 0307 | | Complete_Type Variant_Record,By_Defining
0032 00bf | | Action Accept_Activation
0033 4801 |H | Short_Literal 0x1 ; Debug Table 0x1 = .DEBUG 0x0033,0x01ca,0x8000,0x0000,0x0035,0xd854,0x0000,0x0005
; Debug Table 0x1.0x0 = 0x33,0xffff
0034 4802 |H | Short_Literal 0x2
0035 e002 | | Load 0x0,0x2
0036 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0037 0334 | 4 | Declare_Variable Array,With_Constraint
0038 4801 |H | Short_Literal 0x1
0039 4802 |H | Short_Literal 0x2
003a e002 | | Load 0x0,0x2
003b 1b12 | | Execute Package,Field_Read,Field_Number 0x12
003c 0334 | 4 | Declare_Variable Array,With_Constraint
003d 480d |H | Short_Literal 0xd
003e 4801 |H | Short_Literal 0x1
003f 00da | | Load_Top At_Offset_2
0040 01d6 | | Execute Vector,Field_Write
0041 480a |H | Short_Literal 0xa
0042 4802 |H | Short_Literal 0x2
0043 00da | | Load_Top At_Offset_2
0044 01d6 | | Execute Vector,Field_Write
0045 00d9 | | Load_Top At_Offset_1
0046 01d4 | | Execute Vector,Structure_Write
0047 4801 |H | Short_Literal 0x1 ; Debug Table 0x1.0x1 = 0x47,0xfffe
0048 4801 |H | Short_Literal 0x1
0049 e002 | | Load 0x0,0x2
004a 1b12 | | Execute Package,Field_Read,Field_Number 0x12
004b 0334 | 4 | Declare_Variable Array,With_Constraint
004c 4801 |H | Short_Literal 0x1
004d 4801 |H | Short_Literal 0x1
004e e002 | | Load 0x0,0x2
004f 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0050 0334 | 4 | Declare_Variable Array,With_Constraint
0051 487b |H{ | Short_Literal 0x7b
0052 4801 |H | Short_Literal 0x1
0053 00da | | Load_Top At_Offset_2
0054 01d6 | | Execute Vector,Field_Write
0055 00d9 | | Load_Top At_Offset_1
0056 01d4 | | Execute Vector,Structure_Write
0057 4801 |H | Short_Literal 0x1 ; Debug Table 0x1.0x2 = 0x57,0xfffd
0058 4801 |H | Short_Literal 0x1
0059 e002 | | Load 0x0,0x2
005a 1b12 | | Execute Package,Field_Read,Field_Number 0x12
005b 0334 | 4 | Declare_Variable Array,With_Constraint
005c 4801 |H | Short_Literal 0x1
005d 4801 |H | Short_Literal 0x1
005e e002 | | Load 0x0,0x2
005f 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0060 0334 | 4 | Declare_Variable Array,With_Constraint
0061 487d |H} | Short_Literal 0x7d
0062 4801 |H | Short_Literal 0x1
0063 00da | | Load_Top At_Offset_2
0064 01d6 | | Execute Vector,Field_Write
0065 00d9 | | Load_Top At_Offset_1
0066 01d4 | | Execute Vector,Structure_Write
0067 0007 | | Action Break_Optional ; Debug Table 0x1.0x3 = 0x67,0xfffc
0068 0007 | | Action Break_Optional ; Debug Table 0x1.0x4 = 0x68,0xfffb
0069 0007 | | Action Break_Optional ; Debug Table 0x1.0x5 = 0x69,0xfffa
006a 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x6 = 0x6a,0xfff9
006b 00c7 | | Action Elaborate_Subprogram
006c 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x7 = 0x6c,0xfff8
006d 00c7 | | Action Elaborate_Subprogram
006e 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x8 = 0x6e,0xfff7
006f 00c7 | | Action Elaborate_Subprogram
0070 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0x9 = 0x70,0xfff6
0071 00c7 | | Action Elaborate_Subprogram
0072 BODY_0008:
0072 00bc | | Action Signal_Activated
0073 00bb | | Action Signal_Completion
0074 0000 0000 | | .BLANK 0000[0x4]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 0081 | | .CONST 0x0081 ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0002 | | .CONST 0x0002 ; Number of locals
007b INIT_0078:
007b 00da | | Load_Top At_Offset_2 ; Debug Table 0x2 = .DEBUG 0x007b,0x01e0,0x0001,0x0000,0x0035,0xd844,0x0000,0x0025
; Debug Table 0x2.0x0 = 0x7b,0xffff
007c 01da | | Execute Vector,Bounds
007d e002 | | Load 0x0,0x2
007e 1b12 | | Execute Package,Field_Read,Field_Number 0x12
007f 035b | [ | Declare_Type Array,Constrained
0080 0337 | 7 | Declare_Variable Array
0081 BODY_0078:
0081 00cf | | Action Mark_Auxiliary
0082 e5ff | | Load 0x2,-0x1 ; Debug Table 0x2.0x1 = 0x82,0x1
0083 01d9 | | Execute Vector,Reverse_Bounds
0084 0263 | c | Execute Discrete,Above_Bound
0085 700b |p | Jump_Nonzero 0x91
0086 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x2 = 0x86,0x2
0087 e5ff | | Load 0x2,-0x1
0088 01d7 | | Execute Vector,Field_Read
0089 e002 | | Load 0x0,0x2
008a 1b11 | | Execute Package,Field_Read,Field_Number 0x11
008b 025b | [ | Execute Discrete,Check_In_Type
008c 00d9 | | Load_Top At_Offset_1
008d e402 | | Load 0x2,0x2
008e 01d6 | | Execute Vector,Field_Write
008f 00c8 | | Action Pop_Auxiliary_Range
0090 3ff5 |? | Loop_Increasing 0x86
0091 00ce | | Action Pop_Auxiliary
0092 e5fe | | Load 0x2,-0x2 ; Debug Table 0x2.0x3 = 0x92,0x3
0093 00d9 | | Load_Top At_Offset_1
0094 8210 | | Call 0x1,0x10
0095 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0096 0000 0000 | | .XXX[0x2]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009f | | .CONST 0x009f ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0003 | | .CONST 0x0003 ; Number of locals
009b INIT_0098:
009b 029f 012b | +| Declare_Subprogram INIT_0128,For_Call ; Debug Table 0x3 = .DEBUG 0x009b,0x01ea,0x0001,0x0000,0x0035,0xd844,0x0000,0x0031
009d 029f 014b | K| Declare_Subprogram INIT_0148,For_Call
009f BODY_0098:
009f e20d | | Load 0x1,0xd ; Debug Table 0x3.0x0 = 0x9f,0x1
00a0 682a |h* | Jump_Zero 0xcb
00a1 00cf | | Action Mark_Auxiliary
00a2 e5ff | | Load 0x2,-0x1 ; Debug Table 0x3.0x1 = 0xa2,0x2
00a3 01d9 | | Execute Vector,Reverse_Bounds
00a4 0263 | c | Execute Discrete,Above_Bound
00a5 7024 |p$ | Jump_Nonzero 0xca
00a6 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x2 = 0xa6,0x3
00a7 e5ff | | Load 0x2,-0x1
00a8 01d7 | | Execute Vector,Field_Read
00a9 0d20 | | Execute_Immediate Less,0x20
00aa 6802 |h | Jump_Zero 0xad
00ab 8402 | | Call 0x2,0x2 ; Debug Table 0x3.0x3 = 0xab,0x4
00ac 781b |x | Jump 0xc8
00ad 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x4 = 0xad,0x5
00ae e5ff | | Load 0x2,-0x1
00af 01d7 | | Execute Vector,Field_Read
00b0 0c80 | | Execute_Immediate Greater_Equal,-0x80
00b1 6802 |h | Jump_Zero 0xb4
00b2 8403 | | Call 0x2,0x3 ; Debug Table 0x3.0x5 = 0xb2,0x6
00b3 7814 |x | Jump 0xc8
00b4 e5fe | | Load 0x2,-0x2 ; Debug Table 0x3.0x6 = 0xb4,0x7
00b5 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
00b6 e5fe | | Load 0x2,-0x2
00b7 2402 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
00b8 01dc | | Execute Vector,Last
00b9 027c | | | Execute Discrete,Less
00ba 680d |h | Jump_Zero 0xc8
00bb e5fe | | Load 0x2,-0x2 ; Debug Table 0x3.0x7 = 0xbb,0x8
00bc 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
00bd 0a01 | | Execute_Immediate Plus,0x1
00be e5fe | | Load 0x2,-0x2
00bf 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
00c0 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x8 = 0xc0,0x9
00c1 e5ff | | Load 0x2,-0x1
00c2 01d7 | | Execute Vector,Field_Read
00c3 e5fe | | Load 0x2,-0x2
00c4 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
00c5 e5fe | | Load 0x2,-0x2
00c6 2402 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
00c7 01d6 | | Execute Vector,Field_Write
00c8 00c8 | | Action Pop_Auxiliary_Range
00c9 3fdc |? | Loop_Increasing 0xa6
00ca 00ce | | Action Pop_Auxiliary
00cb 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00cc 0000 0000 | | .BLANK 0000[0x4]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3 | | .CONST 0x00d3 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0001 | | .CONST 0x0001 ; Number of locals
00d3 BODY_00d0:
00d3 INIT_00d0:
00d3 e20d | | Load 0x1,0xd ; Debug Table 0x4 = .DEBUG 0x00d3,0x01fe,0x0001,0x0000,0x0035,0xd844,0x0000,0x003f
; Debug Table 0x4.0x0 = 0xd3,0x1
00d4 6817 |h | Jump_Zero 0xec
00d5 00db | | Load_Top At_Offset_3 ; Debug Table 0x4.0x1 = 0xd5,0x2
00d6 00db | | Load_Top At_Offset_3
00d7 820f | | Call 0x1,0xf
00d8 00d1 | | Pop_Control Pop_Count_1
00d9 e216 | | Load 0x1,0x16 ; Debug Table 0x4.0x2 = 0xd9,0x3
00da 4801 |H | Short_Literal 0x1
00db e5fe | | Load 0x2,-0x2
00dc 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
00dd e5fe | | Load 0x2,-0x2
00de 2402 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
00df 01cf | | Execute Vector,Slice_Read
00e0 01cc | | Execute Vector,Catenate
00e1 e217 | | Load 0x1,0x17
00e2 01cc | | Execute Vector,Catenate
00e3 e215 | | Load 0x1,0x15
00e4 01cc | | Execute Vector,Catenate
00e5 e5fe | | Load 0x2,-0x2
00e6 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
00e7 e003 | | Load 0x0,0x3
00e8 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00e9 4800 |H | Short_Literal 0x0 ; Debug Table 0x4.0x3 = 0xe9,0x4
00ea e5fe | | Load 0x2,-0x2
00eb 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
00ec 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00ed 0000 0000 | | .XXX[0x3]
00ef 0000 | |
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3 | | .CONST 0x00f3 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0001 | | .CONST 0x0001 ; Number of locals
00f3 BODY_00f0:
00f3 INIT_00f0:
00f3 00db | | Load_Top At_Offset_3 ; Debug Table 0x5 = .DEBUG 0x00f3,0x0208,0x0001,0x0000,0x0035,0xd844,0x0000,0x004c
; Debug Table 0x5.0x0 = 0xf3,0x1
00f4 00db | | Load_Top At_Offset_3
00f5 8210 | | Call 0x1,0x10
00f6 00d1 | | Pop_Control Pop_Count_1
00f7 00db | | Load_Top At_Offset_3 ; Debug Table 0x5.0x1 = 0xf7,0x2
00f8 00ea | | Load_Encached Null_String_Cache
00f9 8211 | | Call 0x1,0x11
00fa 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00fb 0000 0000 | | .BLANK 0000[0x5]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103 | | .CONST 0x0103 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0001 | | .CONST 0x0001 ; Number of locals
0103 BODY_0100:
0103 INIT_0100:
0103 4608 |F | Jump_Case 0x9 ; Debug Table 0x6 = .DEBUG 0x0103,0x020e,0x0005,0x0000,0x0035,0xd844,0x0000,0x006f
0104 7808 |x | Jump 0x10d ; case 0x0
0105 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0106 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
0107 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0108 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
0109 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
010a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6
010b 7811 |x | Jump 0x11d ; case 0x7
010c 7814 |x | Jump 0x121 ; case 0x8
010d 00da | | Load_Top At_Offset_2
010e 016c | l | Execute Variant_Record,Is_Constrained
010f 7009 |p | Jump_Nonzero 0x119
0110 00cf | | Action Mark_Auxiliary
0111 4816 |H | Short_Literal 0x16
0112 e5ff | | Load 0x2,-0x1
0113 1c08 | | Execute_Immediate Run_Utility,0x8
0114 00d8 | | Load_Top At_Offset_0
0115 1c00 | | Execute_Immediate Run_Utility,0x0
0116 c5ff | | Store 0x2,-0x1
0117 00ce | | Action Pop_Auxiliary
0118 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0119 4800 |H | Short_Literal 0x0
011a 00db | | Load_Top At_Offset_3
011b 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
011c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
011d 00db | | Load_Top At_Offset_3
011e e5ff | | Load 0x2,-0x1
011f 031b | | Declare_Type Variant_Record,Constrained
0120 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0121 00db | | Load_Top At_Offset_3
0122 00db | | Load_Top At_Offset_3
0123 02fc | | Declare_Variable Variant_Record,With_Constraint
0124 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0125 0000 0000 | | .XXX[0x3]
0127 0000 | |
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 0130 | 0 | .CONST 0x0130 ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0002 | | .CONST 0x0002 ; Number of locals
012b INIT_0128:
012b 4801 |H | Short_Literal 0x1 ; Debug Table 0x7 = .DEBUG 0x012b,0x0210,0x0004,0x0000,0x0035,0xd854,0x0000,0x00bf
; Debug Table 0x7.0x0 = 0x12b,0xffff
012c 4802 |H | Short_Literal 0x2
012d e002 | | Load 0x0,0x2
012e 1b12 | | Execute Package,Field_Read,Field_Number 0x12
012f 0334 | 4 | Declare_Variable Array,With_Constraint
0130 BODY_0128:
0130 4801 |H | Short_Literal 0x1 ; Debug Table 0x7.0x1 = 0x130,0x1
0131 4802 |H | Short_Literal 0x2
0132 e002 | | Load 0x0,0x2
0133 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0134 0334 | 4 | Declare_Variable Array,With_Constraint
0135 485e |H^ | Short_Literal 0x5e
0136 4801 |H | Short_Literal 0x1
0137 00da | | Load_Top At_Offset_2
0138 01d6 | | Execute Vector,Field_Write
0139 e406 | | Load 0x2,0x6
013a e5ff | | Load 0x2,-0x1
013b 01d7 | | Execute Vector,Field_Read
013c 0a40 | @ | Execute_Immediate Plus,0x40
013d 4802 |H | Short_Literal 0x2
013e 00da | | Load_Top At_Offset_2
013f 01d6 | | Execute Vector,Field_Write
0140 00d9 | | Load_Top At_Offset_1
0141 01d4 | | Execute Vector,Structure_Write
0142 e5fe | | Load 0x2,-0x2 ; Debug Table 0x7.0x2 = 0x142,0x2
0143 00d9 | | Load_Top At_Offset_1
0144 8210 | | Call 0x1,0x10
0145 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0146 0000 0000 | | .XXX[0x2]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 0150 | P | .CONST 0x0150 ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0002 | | .CONST 0x0002 ; Number of locals
014b INIT_0148:
014b 4801 |H | Short_Literal 0x1 ; Debug Table 0x8 = .DEBUG 0x014b,0x0218,0x0004,0x0000,0x0035,0xd854,0x0000,0x00ed
; Debug Table 0x8.0x0 = 0x14b,0xffff
014c 4802 |H | Short_Literal 0x2
014d e002 | | Load 0x0,0x2
014e 1b12 | | Execute Package,Field_Read,Field_Number 0x12
014f 0334 | 4 | Declare_Variable Array,With_Constraint
0150 BODY_0148:
0150 4801 |H | Short_Literal 0x1 ; Debug Table 0x8.0x1 = 0x150,0x1
0151 4802 |H | Short_Literal 0x2
0152 e002 | | Load 0x0,0x2
0153 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0154 0334 | 4 | Declare_Variable Array,With_Constraint
0155 485c |H\ | Short_Literal 0x5c
0156 4801 |H | Short_Literal 0x1
0157 00da | | Load_Top At_Offset_2
0158 01d6 | | Execute Vector,Field_Write
0159 e406 | | Load 0x2,0x6
015a e5ff | | Load 0x2,-0x1
015b 01d7 | | Execute Vector,Field_Read
015c 0a80 | | Execute_Immediate Plus,-0x80
015d 4802 |H | Short_Literal 0x2
015e 00da | | Load_Top At_Offset_2
015f 01d6 | | Execute Vector,Field_Write
0160 00d9 | | Load_Top At_Offset_1
0161 01d4 | | Execute Vector,Structure_Write
0162 e5fe | | Load 0x2,-0x2 ; Debug Table 0x8.0x2 = 0x162,0x2
0163 00d9 | | Load_Top At_Offset_1
0164 8210 | | Call 0x1,0x10
0165 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0166 0000 0000 | | .XXX[0x2]
0168 ; --------------------------------------------------------------------------------------
0168 ; Debug Table
0168 ; --------------------------------------------------------------------------------------
0168 0003 0009 | | .CONST 0x0003,0x0009
016a 000b 01b2 | | .DEBUG 0x000b,0x01b2,0x8000,0x0000,0x0035,0xd844,0x0000,0x0007
0172 0033 01ca | 3 | .DEBUG 0x0033,0x01ca,0x8000,0x0000,0x0035,0xd854,0x0000,0x0005
017a 007b 01e0 | { | .DEBUG 0x007b,0x01e0,0x0001,0x0000,0x0035,0xd844,0x0000,0x0025
0182 009b 01ea | | .DEBUG 0x009b,0x01ea,0x0001,0x0000,0x0035,0xd844,0x0000,0x0031
018a 00d3 01fe | | .DEBUG 0x00d3,0x01fe,0x0001,0x0000,0x0035,0xd844,0x0000,0x003f
0192 00f3 0208 | | .DEBUG 0x00f3,0x0208,0x0001,0x0000,0x0035,0xd844,0x0000,0x004c
019a 0103 020e | | .DEBUG 0x0103,0x020e,0x0005,0x0000,0x0035,0xd844,0x0000,0x006f
01a2 012b 0210 | + | .DEBUG 0x012b,0x0210,0x0004,0x0000,0x0035,0xd854,0x0000,0x00bf
01aa 014b 0218 | K | .DEBUG 0x014b,0x0218,0x0004,0x0000,0x0035,0xd854,0x0000,0x00ed
01b2 ; --------------------------------------------------------------------------------------
01b2 ; Debug3 Subtable 0x0
01b2 ; --------------------------------------------------------------------------------------
01b2 000b 0000 | | .DBG3TAB 0x000b,0x0000
01b4 000b ffff | | .CONST 0x000b,0xffff
01b6 000d fffe | | .CONST 0x000d,0xfffe
01b8 000e fffd | | .CONST 0x000e,0xfffd
01ba 0015 fffc | | .CONST 0x0015,0xfffc
01bc 0017 fffb | | .CONST 0x0017,0xfffb
01be 0019 fffa | | .CONST 0x0019,0xfffa
01c0 001b fff9 | | .CONST 0x001b,0xfff9
01c2 001d fff8 | | .CONST 0x001d,0xfff8
01c4 001e fff7 | | .CONST 0x001e,0xfff7
01c6 0022 fff6 | " | .CONST 0x0022,0xfff6
01c8 0026 fff5 | & | .CONST 0x0026,0xfff5
01ca ; --------------------------------------------------------------------------------------
01ca ; Debug3 Subtable 0x1
01ca ; --------------------------------------------------------------------------------------
01ca 000a 0000 | | .DBG3TAB 0x000a,0x0000
01cc 0033 ffff | 3 | .CONST 0x0033,0xffff
01ce 0047 fffe | G | .CONST 0x0047,0xfffe
01d0 0057 fffd | W | .CONST 0x0057,0xfffd
01d2 0067 fffc | g | .CONST 0x0067,0xfffc
01d4 0068 fffb | h | .CONST 0x0068,0xfffb
01d6 0069 fffa | i | .CONST 0x0069,0xfffa
01d8 006a fff9 | j | .CONST 0x006a,0xfff9
01da 006c fff8 | l | .CONST 0x006c,0xfff8
01dc 006e fff7 | n | .CONST 0x006e,0xfff7
01de 0070 fff6 | p | .CONST 0x0070,0xfff6
01e0 ; --------------------------------------------------------------------------------------
01e0 ; Debug3 Subtable 0x2
01e0 ; --------------------------------------------------------------------------------------
01e0 0001 0003 | | .DBG3TAB 0x0001,0x0003
01e2 007b ffff | { | .CONST 0x007b,0xffff
01e4 0082 0001 | | .CONST 0x0082,0x0001
01e6 0086 0002 | | .CONST 0x0086,0x0002
01e8 0092 0003 | | .CONST 0x0092,0x0003
01ea ; --------------------------------------------------------------------------------------
01ea ; Debug3 Subtable 0x3
01ea ; --------------------------------------------------------------------------------------
01ea 0000 0009 | | .DBG3TAB 0x0000,0x0009
01ec 009f 0001 | | .CONST 0x009f,0x0001
01ee 00a2 0002 | | .CONST 0x00a2,0x0002
01f0 00a6 0003 | | .CONST 0x00a6,0x0003
01f2 00ab 0004 | | .CONST 0x00ab,0x0004
01f4 00ad 0005 | | .CONST 0x00ad,0x0005
01f6 00b2 0006 | | .CONST 0x00b2,0x0006
01f8 00b4 0007 | | .CONST 0x00b4,0x0007
01fa 00bb 0008 | | .CONST 0x00bb,0x0008
01fc 00c0 0009 | | .CONST 0x00c0,0x0009
01fe ; --------------------------------------------------------------------------------------
01fe ; Debug3 Subtable 0x4
01fe ; --------------------------------------------------------------------------------------
01fe 0000 0004 | | .DBG3TAB 0x0000,0x0004
0200 00d3 0001 | | .CONST 0x00d3,0x0001
0202 00d5 0002 | | .CONST 0x00d5,0x0002
0204 00d9 0003 | | .CONST 0x00d9,0x0003
0206 00e9 0004 | | .CONST 0x00e9,0x0004
0208 ; --------------------------------------------------------------------------------------
0208 ; Debug3 Subtable 0x5
0208 ; --------------------------------------------------------------------------------------
0208 0000 0002 | | .DBG3TAB 0x0000,0x0002
020a 00f3 0001 | | .CONST 0x00f3,0x0001
020c 00f7 0002 | | .CONST 0x00f7,0x0002
020e ; --------------------------------------------------------------------------------------
020e ; Debug3 Subtable 0x6
020e ; --------------------------------------------------------------------------------------
020e 0000 0000 | | .DBG3TAB 0x0000,0x0000
0210 ; --------------------------------------------------------------------------------------
0210 ; Debug3 Subtable 0x7
0210 ; --------------------------------------------------------------------------------------
0210 0001 0002 | | .DBG3TAB 0x0001,0x0002
0212 012b ffff | + | .CONST 0x012b,0xffff
0214 0130 0001 | 0 | .CONST 0x0130,0x0001
0216 0142 0002 | B | .CONST 0x0142,0x0002
0218 ; --------------------------------------------------------------------------------------
0218 ; Debug3 Subtable 0x8
0218 ; --------------------------------------------------------------------------------------
0218 0001 0002 | | .DBG3TAB 0x0001,0x0002
021a 014b ffff | K | .CONST 0x014b,0xffff
021c 0150 0001 | P | .CONST 0x0150,0x0001
021e 0162 0002 | b | .CONST 0x0162,0x0002
0220 0000 0000 | | .BLANK 0000[0x1e0]