|
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: »10162184.SEG«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »10162184.SEG«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »10162184.SEG«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »10162184.SEG«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »10162184.SEG«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »10162184.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 0140 | @ | .CONST 0x0140 ; 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 0010 | | .CONST 0x0010 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0001 | | .CONST 0x0001 ; Number of locals
000b INIT_0008:
000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0 = .DEBUG 0x000b,0x0182,0x8000,0x0000,0x0014,0x2a44,0x0000,0x0003
000d 00bf | | Action Accept_Activation
000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd
000f 00c7 | | Action Elaborate_Subprogram
0010 BODY_0008:
0010 00bc | | Action Signal_Activated
0011 00bb | | Action Signal_Completion
0012 0000 0000 | | .BLANK 0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 0030 | 0 | .CONST 0x0030 ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0009 | | .CONST 0x0009 ; Number of locals
001b INIT_0018:
001b 00e2 | | Load_Encached Integer_Cache ; Debug Table 0x1 = .DEBUG 0x001b,0x0184,0xa802,0x0002,0x0014,0x2a44,0x0000,0x0003
; Debug Table 0x1.0x0 = 0x1b,0xffff
001c 00d1 | | Pop_Control Pop_Count_1 ; Debug Table 0x1.0x1 = 0x1c,0xfffe
001d e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x2 = 0x1d,0xfffd
001e 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x1.0x3 = 0x1e,0xfffc
; Debug Table 0x1.0x4 = 0x1e,0xfffb
; Debug Table 0x1.0x5 = 0x1e,0xfffa
; Debug Table 0x1.0x6 = 0x1e,0xfff9
001f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0020 e002 | | Load 0x0,0x2 ; Debug Table 0x1.0x7 = 0x20,0xfff8
0021 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0022 e002 | | Load 0x0,0x2 ; Debug Table 0x1.0x8 = 0x22,0xfff7
0023 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0024 029e 00eb | | Declare_Subprogram INIT_00e8,For_Call,Unelaborated ; Debug Table 0x1.0x9 = 0x24,0xfff6
0026 4806 |H | Short_Literal 0x6 ; Debug Table 0x1.0xa = 0x26,0xfff5
0027 4802 |H | Short_Literal 0x2
0028 0099 | | Action Reference_Dynamic
0029 00c7 | | Action Elaborate_Subprogram
002a 029f 00fb | | Declare_Subprogram INIT_00f8,For_Call ; Debug Table 0x1.0xb = 0x2a,0xfff4
002c 029f 0103 | | Declare_Subprogram INIT_0100,For_Call ; Debug Table 0x1.0xc = 0x2c,0xfff3
002e 029f 010b | | Declare_Subprogram INIT_0108,For_Call ; Debug Table 0x1.0xd = 0x2e,0xfff2
0030 BODY_0018:
0030 8407 | | Call 0x2,0x7 ; Debug Table 0x1.0xe = 0x30,0x1
0031 8408 | | Call 0x2,0x8 ; Debug Table 0x1.0xf = 0x31,0x2
0032 e405 | | Load 0x2,0x5 ; Debug Table 0x1.0x10 = 0x32,0x3
0033 4612 |F | Jump_Case 0x13
0034 7821 |x! | Jump 0x56 ; case 0x0
0035 7820 |x | Jump 0x56 ; case 0x1
0036 781f |x | Jump 0x56 ; case 0x2
0037 781e |x | Jump 0x56 ; case 0x3
0038 781b |x | Jump 0x54 ; case 0x4
0039 7818 |x | Jump 0x52 ; case 0x5
003a 7819 |x | Jump 0x54 ; case 0x6
003b 780b |x | Jump 0x47 ; case 0x7
003c 7817 |x | Jump 0x54 ; case 0x8
003d 7816 |x | Jump 0x54 ; case 0x9
003e 7815 |x | Jump 0x54 ; case 0xa
003f 7814 |x | Jump 0x54 ; case 0xb
0040 7806 |x | Jump 0x47 ; case 0xc
0041 7805 |x | Jump 0x47 ; case 0xd
0042 7811 |x | Jump 0x54 ; case 0xe
0043 7810 |x | Jump 0x54 ; case 0xf
0044 780f |x | Jump 0x54 ; case 0x10
0045 780e |x | Jump 0x54 ; case 0x11
0046 780d |x | Jump 0x54 ; case 0x12
0047 e405 | | Load 0x2,0x5 ; Debug Table 0x1.0x11 = 0x47,0x4
0048 0f07 | | Execute_Immediate Equal,0x7
0049 680c |h | Jump_Zero 0x56
004a 8409 | | Call 0x2,0x9 ; Debug Table 0x1.0x12 = 0x4a,0x5
004b e403 | | Load 0x2,0x3 ; Debug Table 0x1.0x13 = 0x4b,0x6
004c e5fe | | Load 0x2,-0x2
004d 0124 | $ | Execute Any,Is_Constrained
004e 027f | | Execute Discrete,Equal
004f 6806 |h | Jump_Zero 0x56
0050 4863 |Hc | Short_Literal 0x63 ; Debug Table 0x1.0x14 = 0x50,0x7
0051 0257 | W | Execute Discrete,Raise
0052 4863 |Hc | Short_Literal 0x63 ; Debug Table 0x1.0x15 = 0x52,0x9
0053 0257 | W | Execute Discrete,Raise
0054 4863 |Hc | Short_Literal 0x63 ; Debug Table 0x1.0x16 = 0x54,0xa
0055 0257 | W | Execute Discrete,Raise
0056 e404 | | Load 0x2,0x4 ; Debug Table 0x1.0x17 = 0x56,0xb
0057 4612 |F | Jump_Case 0x13
0058 7812 |x | Jump 0x6b ; case 0x0
0059 7811 |x | Jump 0x6b ; case 0x1
005a 7810 |x | Jump 0x6b ; case 0x2
005b 780f |x | Jump 0x6b ; case 0x3
005c 783a |x: | Jump 0x97 ; case 0x4
005d 780d |x | Jump 0x6b ; case 0x5
005e 7838 |x8 | Jump 0x97 ; case 0x6
005f 7837 |x7 | Jump 0x97 ; case 0x7
0060 7836 |x6 | Jump 0x97 ; case 0x8
0061 7835 |x5 | Jump 0x97 ; case 0x9
0062 7834 |x4 | Jump 0x97 ; case 0xa
0063 7833 |x3 | Jump 0x97 ; case 0xb
0064 7832 |x2 | Jump 0x97 ; case 0xc
0065 7831 |x1 | Jump 0x97 ; case 0xd
0066 7830 |x0 | Jump 0x97 ; case 0xe
0067 782f |x/ | Jump 0x97 ; case 0xf
0068 782e |x. | Jump 0x97 ; case 0x10
0069 782d |x- | Jump 0x97 ; case 0x11
006a 782c |x, | Jump 0x97 ; case 0x12
006b e5fd | | Load 0x2,-0x3 ; Debug Table 0x1.0x18 = 0x6b,0xc
; Debug Table 0x1.0x19 = 0x6b,0xfbff
006c 029f 0113 | | Declare_Subprogram INIT_0110,For_Call
006e 4801 |H | Short_Literal 0x1
006f 032d | - | Declare_Type Record,Defined
0070 e40a | | Load 0x2,0xa ; Debug Table 0x1.0x1a = 0x70,0xfbfe
0071 0322 | " | Declare_Variable Record
0072 e5fc | | Load 0x2,-0x4
0073 e5fd | | Load 0x2,-0x3
0074 0119 | | Execute Any,Check_In_Formal_Type
0075 e40b | | Load 0x2,0xb
0076 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0077 4806 |H | Short_Literal 0x6 ; Debug Table 0x1.0x1b = 0x77,0xfbfd
0078 4802 |H | Short_Literal 0x2
0079 0099 | | Action Reference_Dynamic
007a 00c6 | | Action Check_Subprogram_Elaborated
007b e5fe | | Load 0x2,-0x2
007c 60bf |` | Indirect_Literal Discrete,0x13c,{0x00000000, 0x00181a94}
007d 49b3 |I | Short_Literal 0x1b3
007e 480f |H | Short_Literal 0xf
007f e40b | | Load 0x2,0xb ; Debug Table 0x1.0x1c = 0x7f,0xfbfc
0080 012d | - | Execute Any,Address
0081 e40c | | Load 0x2,0xc
0082 480d |H | Short_Literal 0xd
0083 4802 |H | Short_Literal 0x2
0084 0099 | | Action Reference_Dynamic
0085 8406 | | Call 0x2,0x6
0086 e410 | | Load 0x2,0x10 ; Debug Table 0x1.0x1d = 0x86,0xfbfb
; Debug Table 0x1.0x1e = 0x86,0xfbfa
0087 011f | | Execute Any,Is_Scalar
0088 6802 |h | Jump_Zero 0x8b
0089 e5fe | | Load 0x2,-0x2
008a 7801 |x | Jump 0x8c
008b e410 | | Load 0x2,0x10
008c 012c | , | Execute Any,Size
008d e5fe | | Load 0x2,-0x2
008e 012c | , | Execute Any,Size
008f 027a | z | Execute Discrete,Less_Equal
0090 7002 |p | Jump_Nonzero 0x93
0091 4887 |H | Short_Literal 0x87
0092 0257 | W | Execute Discrete,Raise
0093 e410 | | Load 0x2,0x10 ; Debug Table 0x1.0x1f = 0x93,0x401
0094 e5fe | | Load 0x2,-0x2
0095 0119 | | Execute Any,Check_In_Formal_Type
0096 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0097 e405 | | Load 0x2,0x5 ; Debug Table 0x1.0x20 = 0x97,0xd
0098 0b00 | | Execute_Immediate Case_Compare,0x0
0099 7024 |p$ | Jump_Nonzero 0xbe
009a 0b01 | | Execute_Immediate Case_Compare,0x1
009b 7022 |p" | Jump_Nonzero 0xbe
009c 4806 |H | Short_Literal 0x6 ; Debug Table 0x1.0x21 = 0x9c,0xf
; Debug Table 0x1.0x22 = 0x9c,0xf7ff
009d 4802 |H | Short_Literal 0x2
009e 0099 | | Action Reference_Dynamic
009f 00c6 | | Action Check_Subprogram_Elaborated
00a0 e5fe | | Load 0x2,-0x2
00a1 609a |` | Indirect_Literal Discrete,0x13c,{0x00000000, 0x00181a94}
00a2 4a1c |J | Short_Literal 0x21c
00a3 480e |H | Short_Literal 0xe
00a4 4ffc |O | Short_Literal -0x4 ; Debug Table 0x1.0x23 = 0xa4,0xf7fe
00a5 4802 |H | Short_Literal 0x2
00a6 0099 | | Action Reference_Dynamic
00a7 012d | - | Execute Any,Address
00a8 e40b | | Load 0x2,0xb
00a9 480c |H | Short_Literal 0xc
00aa 4802 |H | Short_Literal 0x2
00ab 0099 | | Action Reference_Dynamic
00ac 8406 | | Call 0x2,0x6
00ad e40f | | Load 0x2,0xf ; Debug Table 0x1.0x24 = 0xad,0xf7fd
; Debug Table 0x1.0x25 = 0xad,0xf7fc
00ae 011f | | Execute Any,Is_Scalar
00af 6802 |h | Jump_Zero 0xb2
00b0 e5fe | | Load 0x2,-0x2
00b1 7801 |x | Jump 0xb3
00b2 e40f | | Load 0x2,0xf
00b3 012c | , | Execute Any,Size
00b4 e5fe | | Load 0x2,-0x2
00b5 012c | , | Execute Any,Size
00b6 027a | z | Execute Discrete,Less_Equal
00b7 7002 |p | Jump_Nonzero 0xba
00b8 4887 |H | Short_Literal 0x87
00b9 0257 | W | Execute Discrete,Raise
00ba e40f | | Load 0x2,0xf ; Debug Table 0x1.0x26 = 0xba,0x801
00bb e5fe | | Load 0x2,-0x2
00bc 0119 | | Execute Any,Check_In_Formal_Type
00bd 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
00be e5fe | | Load 0x2,-0x2 ; Debug Table 0x1.0x27 = 0xbe,0xe
; Debug Table 0x1.0x28 = 0xbe,0xf3ff
00bf 029f 012b | +| Declare_Subprogram INIT_0128,For_Call
00c1 4801 |H | Short_Literal 0x1
00c2 032d | - | Declare_Type Record,Defined
00c3 4806 |H | Short_Literal 0x6 ; Debug Table 0x1.0x29 = 0xc3,0xf3fe
00c4 4802 |H | Short_Literal 0x2
00c5 0099 | | Action Reference_Dynamic
00c6 00c6 | | Action Check_Subprogram_Elaborated
00c7 e40b | | Load 0x2,0xb
00c8 6073 |`s | Indirect_Literal Discrete,0x13c,{0x00000000, 0x00181a94}
00c9 49ed |I | Short_Literal 0x1ed
00ca 480f |H | Short_Literal 0xf
00cb 4ffc |O | Short_Literal -0x4 ; Debug Table 0x1.0x2a = 0xcb,0xf3fd
00cc 4802 |H | Short_Literal 0x2
00cd 0099 | | Action Reference_Dynamic
00ce 012d | - | Execute Any,Address
00cf e40c | | Load 0x2,0xc
00d0 480d |H | Short_Literal 0xd
00d1 4802 |H | Short_Literal 0x2
00d2 0099 | | Action Reference_Dynamic
00d3 8406 | | Call 0x2,0x6
00d4 e5fe | | Load 0x2,-0x2 ; Debug Table 0x1.0x2b = 0xd4,0xf3fc
; Debug Table 0x1.0x2c = 0xd4,0xf3fb
00d5 012c | , | Execute Any,Size
00d6 e5fe | | Load 0x2,-0x2
00d7 012c | , | Execute Any,Size
00d8 027a | z | Execute Discrete,Less_Equal
00d9 7002 |p | Jump_Nonzero 0xdc
00da 4887 |H | Short_Literal 0x87
00db 0257 | W | Execute Discrete,Raise
00dc e410 | | Load 0x2,0x10 ; Debug Table 0x1.0x2d = 0xdc,0xc01
00dd 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00de e5fe | | Load 0x2,-0x2
00df 0119 | | Execute Any,Check_In_Formal_Type
00e0 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
00e1 0000 0000 | | .BLANK 0000[0x7]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb | | .CONST 0x00eb ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0001 | | .CONST 0x0001 ; Number of locals
00eb BODY_00e8:
00eb INIT_00e8:
00eb 00db | | Load_Top At_Offset_3 ; Debug Table 0x2 = .DEBUG 0x00eb,0x01e2,0x2802,0x0003,0x0018,0x1a94,0x0000,0x005b
; Debug Table 0x2.0x0 = 0xeb,0x1
00ec 00dd | | Load_Top At_Offset_5 ; Debug Table 0x2.0x1 = 0xec,0x2
; Debug Table 0x2.0x2 = 0xec,0x3
00ed e402 | | Load 0x2,0x2 ; Debug Table 0x2.0x3 = 0xed,0x4
; Debug Table 0x2.0x4 = 0xed,0x5
00ee 1813 | | Execute Package,Field_Execute,Field_Number 0x13 ; Debug Table 0x2.0x5 = 0xee,0x6
; Debug Table 0x2.0x6 = 0xee,0x7
00ef 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 ; Debug Table 0x2.0x7 = 0xef,0x8
00f0 4831 |H1 | Short_Literal 0x31 ; Debug Table 0x2.0x8 = 0xf0,0x9
00f1 0257 | W | Execute Discrete,Raise
00f2 0000 0000 | | .BLANK 0000[0x6]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb | | .CONST 0x00fb ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0001 | | .CONST 0x0001 ; Number of locals
00fb BODY_00f8:
00fb INIT_00f8:
00fb e5fd | | Load 0x2,-0x3 ; Debug Table 0x3 = .DEBUG 0x00fb,0x01f6,0x0801,0x0002,0x0018,0x1a94,0x0000,0x00ca
; Debug Table 0x3.0x0 = 0xfb,0x1
00fc 0117 | | Execute Any,Structure_Query ; Debug Table 0x3.0x1 = 0xfc,0x2
00fd c404 | | Store 0x2,0x4 ; Debug Table 0x3.0x2 = 0xfd,0x3
00fe 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00ff 0000 | | .XXX[0x1]
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 e5fe | | Load 0x2,-0x2 ; Debug Table 0x4 = .DEBUG 0x0103,0x01fe,0x0801,0x0002,0x0018,0x1a94,0x0000,0x00ef
; Debug Table 0x4.0x0 = 0x103,0x1
0104 0117 | | Execute Any,Structure_Query ; Debug Table 0x4.0x1 = 0x104,0x2
0105 c405 | | Store 0x2,0x5 ; Debug Table 0x4.0x2 = 0x105,0x3
0106 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0107 0000 | | .XXX[0x1]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b | | .CONST 0x010b ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0001 | | .CONST 0x0001 ; Number of locals
010b BODY_0108:
010b INIT_0108:
010b e5fe | | Load 0x2,-0x2 ; Debug Table 0x5 = .DEBUG 0x010b,0x0206,0x0801,0x0002,0x0018,0x1a94,0x0000,0x0114
; Debug Table 0x5.0x0 = 0x10b,0x1
010c 0117 | | Execute Any,Structure_Query ; Debug Table 0x5.0x1 = 0x10c,0x2
010d 00d2 | | Pop_Control Pop_Count_2 ; Debug Table 0x5.0x2 = 0x10d,0x3
010e c403 | | Store 0x2,0x3 ; Debug Table 0x5.0x3 = 0x10e,0x4
010f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113 | | .CONST 0x0113 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0001 | | .CONST 0x0001 ; Number of locals
0113 BODY_0110:
0113 INIT_0110:
0113 4608 |F | Jump_Case 0x9 ; Debug Table 0x6 = .DEBUG 0x0113,0x0210,0x0805,0x0002,0x0018,0x1a94,0x0000,0x01a0
0114 7808 |x | Jump 0x11d ; case 0x0
0115 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0116 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
0117 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0118 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
0119 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
011a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6
011b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7
011c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8
011d e7ff | | Load 0x3,-0x1
011e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
011f 0125 | % | Execute Any,Set_Constraint
0120 e7ff | | Load 0x3,-0x1
0121 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0122 1c00 | | Execute_Immediate Run_Utility,0x0
0123 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0124 0000 0000 | | .BLANK 0000[0x4]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b | + | .CONST 0x012b ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0001 | | .CONST 0x0001 ; Number of locals
012b BODY_0128:
012b INIT_0128:
012b 4608 |F | Jump_Case 0x9 ; Debug Table 0x7 = .DEBUG 0x012b,0x0212,0x0805,0x0002,0x0018,0x1a94,0x0000,0x01e4
012c 7808 |x | Jump 0x135 ; case 0x0
012d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
012e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
012f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0130 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
0131 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
0132 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6
0133 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7
0134 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8
0135 e7ff | | Load 0x3,-0x1
0136 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0137 0125 | % | Execute Any,Set_Constraint
0138 e7ff | | Load 0x3,-0x1
0139 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
013a 1c00 | | Execute_Immediate Run_Utility,0x0
013b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
013c 0000 0000 | | .LITERAL {0x00000000, 0x00181a94}
0140 ; --------------------------------------------------------------------------------------
0140 ; Debug Table
0140 ; --------------------------------------------------------------------------------------
0140 0003 0008 | | .CONST 0x0003,0x0008
0142 000b 0182 | | .DEBUG 0x000b,0x0182,0x8000,0x0000,0x0014,0x2a44,0x0000,0x0003
014a 001b 0184 | | .DEBUG 0x001b,0x0184,0xa802,0x0002,0x0014,0x2a44,0x0000,0x0003
0152 00eb 01e2 | | .DEBUG 0x00eb,0x01e2,0x2802,0x0003,0x0018,0x1a94,0x0000,0x005b
015a 00fb 01f6 | | .DEBUG 0x00fb,0x01f6,0x0801,0x0002,0x0018,0x1a94,0x0000,0x00ca
0162 0103 01fe | | .DEBUG 0x0103,0x01fe,0x0801,0x0002,0x0018,0x1a94,0x0000,0x00ef
016a 010b 0206 | | .DEBUG 0x010b,0x0206,0x0801,0x0002,0x0018,0x1a94,0x0000,0x0114
0172 0113 0210 | | .DEBUG 0x0113,0x0210,0x0805,0x0002,0x0018,0x1a94,0x0000,0x01a0
017a 012b 0212 | + | .DEBUG 0x012b,0x0212,0x0805,0x0002,0x0018,0x1a94,0x0000,0x01e4
0182 ; --------------------------------------------------------------------------------------
0182 ; Debug3 Subtable 0x0
0182 ; --------------------------------------------------------------------------------------
0182 0000 0000 | | .DBG3TAB 0x0000,0x0000
0184 ; --------------------------------------------------------------------------------------
0184 ; Debug3 Subtable 0x1
0184 ; --------------------------------------------------------------------------------------
0184 001d 0011 | | .DBG3TAB 0x001d,0x0011
0186 001b ffff | | .CONST 0x001b,0xffff
0188 001c fffe | | .CONST 0x001c,0xfffe
018a 001d fffd | | .CONST 0x001d,0xfffd
018c 001e fffc | | .CONST 0x001e,0xfffc
018e 001e fffb | | .CONST 0x001e,0xfffb
0190 001e fffa | | .CONST 0x001e,0xfffa
0192 001e fff9 | | .CONST 0x001e,0xfff9
0194 0020 fff8 | | .CONST 0x0020,0xfff8
0196 0022 fff7 | " | .CONST 0x0022,0xfff7
0198 0024 fff6 | $ | .CONST 0x0024,0xfff6
019a 0026 fff5 | & | .CONST 0x0026,0xfff5
019c 002a fff4 | * | .CONST 0x002a,0xfff4
019e 002c fff3 | , | .CONST 0x002c,0xfff3
01a0 002e fff2 | . | .CONST 0x002e,0xfff2
01a2 0030 0001 | 0 | .CONST 0x0030,0x0001
01a4 0031 0002 | 1 | .CONST 0x0031,0x0002
01a6 0032 0003 | 2 | .CONST 0x0032,0x0003
01a8 0047 0004 | G | .CONST 0x0047,0x0004
01aa 004a 0005 | J | .CONST 0x004a,0x0005
01ac 004b 0006 | K | .CONST 0x004b,0x0006
01ae 0050 0007 | P | .CONST 0x0050,0x0007
01b0 0052 0009 | R | .CONST 0x0052,0x0009
01b2 0054 000a | T | .CONST 0x0054,0x000a
01b4 0056 000b | V | .CONST 0x0056,0x000b
01b6 006b 000c | k | .CONST 0x006b,0x000c
01b8 006b fbff | k | .CONST 0x006b,0xfbff
01ba 0070 fbfe | p | .CONST 0x0070,0xfbfe
01bc 0077 fbfd | w | .CONST 0x0077,0xfbfd
01be 007f fbfc | | .CONST 0x007f,0xfbfc
01c0 0086 fbfb | | .CONST 0x0086,0xfbfb
01c2 0086 fbfa | | .CONST 0x0086,0xfbfa
01c4 0093 0401 | | .CONST 0x0093,0x0401
01c6 0097 000d | | .CONST 0x0097,0x000d
01c8 009c 000f | | .CONST 0x009c,0x000f
01ca 009c f7ff | | .CONST 0x009c,0xf7ff
01cc 00a4 f7fe | | .CONST 0x00a4,0xf7fe
01ce 00ad f7fd | | .CONST 0x00ad,0xf7fd
01d0 00ad f7fc | | .CONST 0x00ad,0xf7fc
01d2 00ba 0801 | | .CONST 0x00ba,0x0801
01d4 00be 000e | | .CONST 0x00be,0x000e
01d6 00be f3ff | | .CONST 0x00be,0xf3ff
01d8 00c3 f3fe | | .CONST 0x00c3,0xf3fe
01da 00cb f3fd | | .CONST 0x00cb,0xf3fd
01dc 00d4 f3fc | | .CONST 0x00d4,0xf3fc
01de 00d4 f3fb | | .CONST 0x00d4,0xf3fb
01e0 00dc 0c01 | | .CONST 0x00dc,0x0c01
01e2 ; --------------------------------------------------------------------------------------
01e2 ; Debug3 Subtable 0x2
01e2 ; --------------------------------------------------------------------------------------
01e2 0000 0009 | | .DBG3TAB 0x0000,0x0009
01e4 00eb 0001 | | .CONST 0x00eb,0x0001
01e6 00ec 0002 | | .CONST 0x00ec,0x0002
01e8 00ec 0003 | | .CONST 0x00ec,0x0003
01ea 00ed 0004 | | .CONST 0x00ed,0x0004
01ec 00ed 0005 | | .CONST 0x00ed,0x0005
01ee 00ee 0006 | | .CONST 0x00ee,0x0006
01f0 00ee 0007 | | .CONST 0x00ee,0x0007
01f2 00ef 0008 | | .CONST 0x00ef,0x0008
01f4 00f0 0009 | | .CONST 0x00f0,0x0009
01f6 ; --------------------------------------------------------------------------------------
01f6 ; Debug3 Subtable 0x3
01f6 ; --------------------------------------------------------------------------------------
01f6 0000 0003 | | .DBG3TAB 0x0000,0x0003
01f8 00fb 0001 | | .CONST 0x00fb,0x0001
01fa 00fc 0002 | | .CONST 0x00fc,0x0002
01fc 00fd 0003 | | .CONST 0x00fd,0x0003
01fe ; --------------------------------------------------------------------------------------
01fe ; Debug3 Subtable 0x4
01fe ; --------------------------------------------------------------------------------------
01fe 0000 0003 | | .DBG3TAB 0x0000,0x0003
0200 0103 0001 | | .CONST 0x0103,0x0001
0202 0104 0002 | | .CONST 0x0104,0x0002
0204 0105 0003 | | .CONST 0x0105,0x0003
0206 ; --------------------------------------------------------------------------------------
0206 ; Debug3 Subtable 0x5
0206 ; --------------------------------------------------------------------------------------
0206 0000 0004 | | .DBG3TAB 0x0000,0x0004
0208 010b 0001 | | .CONST 0x010b,0x0001
020a 010c 0002 | | .CONST 0x010c,0x0002
020c 010d 0003 | | .CONST 0x010d,0x0003
020e 010e 0004 | | .CONST 0x010e,0x0004
0210 ; --------------------------------------------------------------------------------------
0210 ; Debug3 Subtable 0x6
0210 ; --------------------------------------------------------------------------------------
0210 0000 0000 | | .DBG3TAB 0x0000,0x0000
0212 ; --------------------------------------------------------------------------------------
0212 ; Debug3 Subtable 0x7
0212 ; --------------------------------------------------------------------------------------
0212 0000 0000 | | .DBG3TAB 0x0000,0x0000
0214 0000 0000 | | .BLANK 0000[0x1ec]