|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 3072 (0xc00)
Notes: 00_class, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0500e0
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5813 |X | .CONST 0x5813 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0300 | | .CONST 0x0300 ; 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 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0067 | g | .CONST 0x0067 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001d | | .CONST 0x001d ; Number of locals
000b INIT_0008:
000b 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x0 = .DEBUG 0x000b,0x0382,0x8000,0x0000,0x0058,0x76a5,0x0000,0x000e
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 4800 |H | Short_Literal 0x0
000d 4801 |H | Short_Literal 0x1
000e 4801 |H | Short_Literal 0x1
000f 4804 |H | Short_Literal 0x4
0010 0319 | | Declare_Type Variant_Record,Incomplete,Visible
0011 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0x11,0xfffe
0013 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0x13,0xfffd
0015 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x15,0xfffc
0017 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x17,0xfffb
0019 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x19,0xfffa
001b 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x1b,0xfff9
001d 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x7 = 0x1d,0xfff8
001f 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x8 = 0x1f,0xfff7
0021 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x9 = 0x21,0xfff6
0023 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0xa = 0x23,0xfff5
0024 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0025 e002 | | Load 0x0,0x2
0026 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0027 e003 | | Load 0x0,0x3
0028 1b67 | g | Execute Package,Field_Read,Field_Number 0x67
0029 1b0e | | Execute Package,Field_Read,Field_Number 0xe
002a 029f 0253 | S| Declare_Subprogram INIT_0250,For_Call
002c 4803 |H | Short_Literal 0x3
002d 032d | - | Declare_Type Record,Defined
002e 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0xb = 0x2e,0xfff4
002f 0322 | " | Declare_Variable Record
0030 00d8 | | Load_Top At_Offset_0
0031 1c00 | | Execute_Immediate Run_Utility,0x0
0032 029b 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Unelaborated ; Debug Table 0x0.0xc = 0x32,0xfff3
0034 628b |b | Indirect_Literal Discrete,0x2c0,{0x00000000, 0x005876a5} ; Debug Table 0x0.0xd = 0x34,0xfff2
0035 48c9 |H | Short_Literal 0xc9
0036 e217 | | Load 0x1,0x17
0037 e218 | | Load 0x1,0x18
0038 0320 | | Declare_Variable Record,Duplicate
0039 00d0 | | Action Swap_Control
003a 00d1 | | Pop_Control Pop_Count_1
003b 1d19 | | Execute_Immediate Reference_Lex_1,0x19
003c e004 | | Load 0x0,0x4
003d 0387 | | Declare_Variable Package
003e 00d8 | | Load_Top At_Offset_0
003f 020f | | Execute Module,Activate
0040 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0xe = 0x40,0xfff1
0041 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0042 00e1 | | Load_Encached Boolean_Cache
0043 00da | | Load_Top At_Offset_2
0044 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0045 029f 027b | {| Declare_Subprogram INIT_0278,For_Call
0047 4800 |H | Short_Literal 0x0
0048 4801 |H | Short_Literal 0x1
0049 4802 |H | Short_Literal 0x2
004a e20d | | Load 0x1,0xd
004b 0307 | | Complete_Type Variant_Record,By_Defining
004c 00bf | | Action Accept_Activation
004d e005 | | Load 0x0,0x5 ; Debug Table 0x1 = .DEBUG 0x004d,0x03a2,0x8000,0x0000,0x0058,0x7ce5,0x0000,0x0007
; Debug Table 0x1.0x0 = 0x4d,0xffff
004e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
004f 029d 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call ; Debug Table 0x1.0x1 = 0x4f,0xfffe
0051 1d19 | | Execute_Immediate Reference_Lex_1,0x19 ; Debug Table 0x1.0x2 = 0x51,0xfffd
0052 00c7 | | Action Elaborate_Subprogram
0053 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x3 = 0x53,0xfffc
0054 00c7 | | Action Elaborate_Subprogram
0055 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x4 = 0x55,0xfffb
0056 00c7 | | Action Elaborate_Subprogram
0057 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x5 = 0x57,0xfffa
0058 00c7 | | Action Elaborate_Subprogram
0059 029d 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call ; Debug Table 0x1.0x6 = 0x59,0xfff9
005b 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x7 = 0x5b,0xfff8
005c 00c7 | | Action Elaborate_Subprogram
005d 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0x8 = 0x5d,0xfff7
005e 00c7 | | Action Elaborate_Subprogram
005f 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0x9 = 0x5f,0xfff6
0060 00c7 | | Action Elaborate_Subprogram
0061 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x1.0xa = 0x61,0xfff5
0062 00c7 | | Action Elaborate_Subprogram
0063 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x1.0xb = 0x63,0xfff4
0064 00c7 | | Action Elaborate_Subprogram
0065 1d16 | | Execute_Immediate Reference_Lex_1,0x16 ; Debug Table 0x1.0xc = 0x65,0xfff3
0066 00c7 | | Action Elaborate_Subprogram
0067 BODY_0008:
0067 0092 02e2 | | Action Push_String_Extended,0x2e2 ; "The Stack is empty"
; Debug Table 0x1.0xd = 0x67,0x1
0069 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0xe = 0x69,0x401
006a e005 | | Load 0x0,0x5
006b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
006c 03b6 | | Declare_Variable Access,By_Allocation,With_Value
006d 00d0 | | Action Swap_Control
006e 00d1 | | Pop_Control Pop_Count_1
006f 003b | ; | Store_Top Access,At_Offset_3 ; Debug Table 0x1.0xf = 0x6f,0x1
0070 00bc | | Action Signal_Activated
0071 00bb | | Action Signal_Completion
0072 0000 0000 | | .BLANK 0000[0x6]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b | { | .CONST 0x007b ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0001 | | .CONST 0x0001 ; Number of locals
007b BODY_0078:
007b INIT_0078:
007b 00da | | Load_Top At_Offset_2 ; Debug Table 0x2 = .DEBUG 0x007b,0x03c4,0x0001,0x0000,0x0058,0x76a5,0x0000,0x0018
; Debug Table 0x2.0x0 = 0x7b,0x1
007c 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
007d e21a | | Load 0x1,0x1a
007e 1814 | | Execute Package,Field_Execute,Field_Number 0x14
007f 00d1 | | Pop_Control Pop_Count_1
0080 e21a | | Load 0x1,0x1a ; Debug Table 0x2.0x1 = 0x80,0x2
0081 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0082 4800 |H | Short_Literal 0x0
0083 e5ff | | Load 0x2,-0x1
0084 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0085 e21a | | Load 0x1,0x1a
0086 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0087 00db | | Load_Top At_Offset_3
0088 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0089 4800 |H | Short_Literal 0x0 ; Debug Table 0x2.0x2 = 0x89,0x3
008a 00db | | Load_Top At_Offset_3
008b 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
008c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
008d 0000 0000 | | .XXX[0x3]
008f 0000 | |
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093 | | .CONST 0x0093 ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0001 | | .CONST 0x0001 ; Number of locals
0093 BODY_0090:
0093 INIT_0090:
0093 00da | | Load_Top At_Offset_2 ; Debug Table 0x3 = .DEBUG 0x0093,0x03cc,0x0001,0x0000,0x0058,0x76a5,0x0000,0x0020
; Debug Table 0x3.0x0 = 0x93,0x1
0094 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0095 00db | | Load_Top At_Offset_3
0096 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0097 e21a | | Load 0x1,0x1a
0098 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0099 e21a | | Load 0x1,0x1a
009a 1818 | | Execute Package,Field_Execute,Field_Number 0x18
009b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
009c 0000 0000 | | .BLANK 0000[0x4]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a5 | | .CONST 0x00a5 ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0002 | | .CONST 0x0002 ; Number of locals
00a3 INIT_00a0:
00a3 e21a | | Load 0x1,0x1a ; Debug Table 0x4 = .DEBUG 0x00a3,0x03d0,0x0001,0x0000,0x0058,0x76a5,0x0000,0x0028
; Debug Table 0x4.0x0 = 0xa3,0xffff
00a4 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00a5 BODY_00a0:
00a5 e21a | | Load 0x1,0x1a ; Debug Table 0x4.0x1 = 0xa5,0x1
00a6 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00a7 4800 |H | Short_Literal 0x0
00a8 e5ff | | Load 0x2,-0x1
00a9 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
00aa e21a | | Load 0x1,0x1a
00ab 181f | | Execute Package,Field_Execute,Field_Number 0x1f
00ac 0059 | Y | Store_Top Discrete,At_Offset_1
00ad 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x2 = 0xad,0x2
00ae e5ff | | Load 0x2,-0x1
00af 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
00b0 e21a | | Load 0x1,0x1a
00b1 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00b2 00d1 | | Pop_Control Pop_Count_1
00b3 0059 | Y | Store_Top Discrete,At_Offset_1
00b4 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00b5 0000 0000 | | .XXX[0x3]
00b7 0000 | |
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bf | | .CONST 0x00bf ; Address of begin
00b9 0112 | | .CONST 0x0112 ; Address of exception handler
00ba 0002 | | .CONST 0x0002 ; Number of locals
00bb INIT_00b8:
00bb e217 | | Load 0x1,0x17 ; Debug Table 0x5 = .DEBUG 0x00bb,0x03d8,0x0001,0x0000,0x0058,0x76a5,0x0000,0x0030
; Debug Table 0x5.0x0 = 0xbb,0xffff
00bc 0322 | " | Declare_Variable Record
00bd 00d8 | | Load_Top At_Offset_0
00be 1c00 | | Execute_Immediate Run_Utility,0x0
00bf BODY_00b8:
00bf 00db | | Load_Top At_Offset_3 ; Debug Table 0x5.0x1 = 0xbf,0x1
00c0 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
00c1 e21a | | Load 0x1,0x1a
00c2 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00c3 6812 |h | Jump_Zero 0xd6
00c4 e21b | | Load 0x1,0x1b ; Debug Table 0x5.0x2 = 0xc4,0x2
00c5 e5fe | | Load 0x2,-0x2 ; Debug Table 0x5.0x3 = 0xc5,0x401
00c6 00d9 | | Load_Top At_Offset_1
00c7 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0x4 = 0xc7,0x801
00c8 0227 | ' | Execute Access,All_Reference
00c9 0335 | 5 | Declare_Variable Array,Duplicate
00ca 00d0 | | Action Swap_Control
00cb 00d1 | | Pop_Control Pop_Count_1
00cc 00d0 | | Action Swap_Control
00cd 00d1 | | Pop_Control Pop_Count_1
00ce e006 | | Load 0x0,0x6 ; Debug Table 0x5.0x5 = 0xce,0x401
00cf 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00d0 00d1 | | Pop_Control Pop_Count_1
00d1 4800 |H | Short_Literal 0x0 ; Debug Table 0x5.0x6 = 0xd1,0x402
00d2 e5fe | | Load 0x2,-0x2
00d3 380f |8 | Execute Record,Field_Write,Field_Number 0xf
00d4 00d1 | | Pop_Control Pop_Count_1
00d5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; Debug Table 0x5.0x7 = 0xd5,0x3
00d6 00db | | Load_Top At_Offset_3 ; Debug Table 0x5.0x8 = 0xd6,0x4
00d7 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
00d8 6819 |h | Jump_Zero 0xf2
00d9 00db | | Load_Top At_Offset_3 ; Debug Table 0x5.0x9 = 0xd9,0x5
00da 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00db e5ff | | Load 0x2,-0x1
00dc 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
00dd e21a | | Load 0x1,0x1a
00de 1820 | | Execute Package,Field_Execute,Field_Number 0x20
00df e5ff | | Load 0x2,-0x1
00e0 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00e1 00db | | Load_Top At_Offset_3 ; Debug Table 0x5.0xa = 0xe1,0x6
00e2 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
00e3 e5ff | | Load 0x2,-0x1
00e4 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00e5 e21a | | Load 0x1,0x1a
00e6 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
00e7 6816 |h | Jump_Zero 0xfe
00e8 e21a | | Load 0x1,0x1a ; Debug Table 0x5.0xb = 0xe8,0x7
00e9 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00ea 4800 |H | Short_Literal 0x0
00eb e5ff | | Load 0x2,-0x1
00ec 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
00ed e21a | | Load 0x1,0x1a
00ee 181f | | Execute Package,Field_Execute,Field_Number 0x1f
00ef e5ff | | Load 0x2,-0x1
00f0 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00f1 780c |x | Jump 0xfe
00f2 e21a | | Load 0x1,0x1a ; Debug Table 0x5.0xc = 0xf2,0x8
00f3 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00f4 4800 |H | Short_Literal 0x0
00f5 e5ff | | Load 0x2,-0x1
00f6 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
00f7 e21a | | Load 0x1,0x1a
00f8 181f | | Execute Package,Field_Execute,Field_Number 0x1f
00f9 e5ff | | Load 0x2,-0x1
00fa 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00fb 4801 |H | Short_Literal 0x1 ; Debug Table 0x5.0xd = 0xfb,0x9
00fc e5ff | | Load 0x2,-0x1
00fd 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
00fe 00db | | Load_Top At_Offset_3 ; Debug Table 0x5.0xe = 0xfe,0xa
00ff 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0100 e5ff | | Load 0x2,-0x1
0101 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0102 e21a | | Load 0x1,0x1a
0103 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0104 00d9 | | Load_Top At_Offset_1
0105 017d | } | Execute Record,Structure_Write
0106 e5fe | | Load 0x2,-0x2 ; Debug Table 0x5.0xf = 0x106,0xb
0107 e5fd | | Load 0x2,-0x3
0108 00da | | Load_Top At_Offset_2
0109 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
010a e001 | | Load 0x0,0x1
010b 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
010c 00d2 | | Pop_Control Pop_Count_2
010d e5fd | | Load 0x2,-0x3 ; Debug Table 0x5.0x10 = 0x10d,0xc
010e e5fe | | Load 0x2,-0x2
010f 00da | | Load_Top At_Offset_2
0110 821d | | Call 0x1,0x1d
0111 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0112 TRAP_00b8:
0112 010e | | Execute Exception,Is_Constraint_Error
0113 6811 |h | Jump_Zero 0x125
0114 e21b | | Load 0x1,0x1b ; Debug Table 0x5.0x11 = 0x114,0xd
0115 e5fe | | Load 0x2,-0x2 ; Debug Table 0x5.0x12 = 0x115,0xc01
0116 00d9 | | Load_Top At_Offset_1
0117 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0x13 = 0x117,0x1001
0118 0227 | ' | Execute Access,All_Reference
0119 0335 | 5 | Declare_Variable Array,Duplicate
011a 00d0 | | Action Swap_Control
011b 00d1 | | Pop_Control Pop_Count_1
011c 00d0 | | Action Swap_Control
011d 00d1 | | Pop_Control Pop_Count_1
011e e006 | | Load 0x0,0x6 ; Debug Table 0x5.0x14 = 0x11e,0xc01
011f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0120 00d1 | | Pop_Control Pop_Count_1
0121 4800 |H | Short_Literal 0x0 ; Debug Table 0x5.0x15 = 0x121,0xc02
0122 e5fe | | Load 0x2,-0x2
0123 380f |8 | Execute Record,Field_Write,Field_Number 0xf
0124 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0125 0100 | | Execute Exception,Raise
0126 0000 0000 | | .XXX[0x2]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012f | / | .CONST 0x012f ; Address of begin
0129 0182 | | .CONST 0x0182 ; Address of exception handler
012a 0002 | | .CONST 0x0002 ; Number of locals
012b INIT_0128:
012b e217 | | Load 0x1,0x17 ; Debug Table 0x6 = .DEBUG 0x012b,0x0406,0x0001,0x0000,0x0058,0x76a5,0x0000,0x0044
; Debug Table 0x6.0x0 = 0x12b,0xffff
012c 0322 | " | Declare_Variable Record
012d 00d8 | | Load_Top At_Offset_0
012e 1c00 | | Execute_Immediate Run_Utility,0x0
012f BODY_0128:
012f 00db | | Load_Top At_Offset_3 ; Debug Table 0x6.0x1 = 0x12f,0x1
0130 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0131 e21a | | Load 0x1,0x1a
0132 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0133 6812 |h | Jump_Zero 0x146
0134 e21b | | Load 0x1,0x1b ; Debug Table 0x6.0x2 = 0x134,0x2
0135 e5fe | | Load 0x2,-0x2 ; Debug Table 0x6.0x3 = 0x135,0x401
0136 00d9 | | Load_Top At_Offset_1
0137 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x4 = 0x137,0x801
0138 0227 | ' | Execute Access,All_Reference
0139 0335 | 5 | Declare_Variable Array,Duplicate
013a 00d0 | | Action Swap_Control
013b 00d1 | | Pop_Control Pop_Count_1
013c 00d0 | | Action Swap_Control
013d 00d1 | | Pop_Control Pop_Count_1
013e e006 | | Load 0x0,0x6 ; Debug Table 0x6.0x5 = 0x13e,0x401
013f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0140 00d1 | | Pop_Control Pop_Count_1
0141 4800 |H | Short_Literal 0x0 ; Debug Table 0x6.0x6 = 0x141,0x402
0142 e5fe | | Load 0x2,-0x2
0143 380f |8 | Execute Record,Field_Write,Field_Number 0xf
0144 00d1 | | Pop_Control Pop_Count_1
0145 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; Debug Table 0x6.0x7 = 0x145,0x3
0146 00db | | Load_Top At_Offset_3 ; Debug Table 0x6.0x8 = 0x146,0x4
0147 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0148 6819 |h | Jump_Zero 0x162
0149 00db | | Load_Top At_Offset_3 ; Debug Table 0x6.0x9 = 0x149,0x5
014a 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
014b e5ff | | Load 0x2,-0x1
014c 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
014d e21a | | Load 0x1,0x1a
014e 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
014f e5ff | | Load 0x2,-0x1
0150 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0151 00db | | Load_Top At_Offset_3 ; Debug Table 0x6.0xa = 0x151,0x6
0152 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0153 e5ff | | Load 0x2,-0x1
0154 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0155 e21a | | Load 0x1,0x1a
0156 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0157 6816 |h | Jump_Zero 0x16e
0158 e21a | | Load 0x1,0x1a ; Debug Table 0x6.0xb = 0x158,0x7
0159 1b13 | | Execute Package,Field_Read,Field_Number 0x13
015a 4801 |H | Short_Literal 0x1
015b e5ff | | Load 0x2,-0x1
015c 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
015d e21a | | Load 0x1,0x1a
015e 181f | | Execute Package,Field_Execute,Field_Number 0x1f
015f e5ff | | Load 0x2,-0x1
0160 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0161 780c |x | Jump 0x16e
0162 e21a | | Load 0x1,0x1a ; Debug Table 0x6.0xc = 0x162,0x8
0163 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0164 4800 |H | Short_Literal 0x0
0165 e5ff | | Load 0x2,-0x1
0166 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0167 e21a | | Load 0x1,0x1a
0168 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0169 e5ff | | Load 0x2,-0x1
016a 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
016b 4801 |H | Short_Literal 0x1 ; Debug Table 0x6.0xd = 0x16b,0x9
016c e5ff | | Load 0x2,-0x1
016d 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
016e 00db | | Load_Top At_Offset_3 ; Debug Table 0x6.0xe = 0x16e,0xa
016f 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0170 e5ff | | Load 0x2,-0x1
0171 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0172 e21a | | Load 0x1,0x1a
0173 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0174 00d9 | | Load_Top At_Offset_1
0175 017d | } | Execute Record,Structure_Write
0176 e5fe | | Load 0x2,-0x2 ; Debug Table 0x6.0xf = 0x176,0xb
0177 e5fd | | Load 0x2,-0x3
0178 00da | | Load_Top At_Offset_2
0179 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
017a e001 | | Load 0x0,0x1
017b 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
017c 00d2 | | Pop_Control Pop_Count_2
017d e5fd | | Load 0x2,-0x3 ; Debug Table 0x6.0x10 = 0x17d,0xc
017e e5fe | | Load 0x2,-0x2
017f 00da | | Load_Top At_Offset_2
0180 821d | | Call 0x1,0x1d
0181 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0182 TRAP_0128:
0182 010e | | Execute Exception,Is_Constraint_Error
0183 6811 |h | Jump_Zero 0x195
0184 e21b | | Load 0x1,0x1b ; Debug Table 0x6.0x11 = 0x184,0xd
0185 e5fe | | Load 0x2,-0x2 ; Debug Table 0x6.0x12 = 0x185,0xc01
0186 00d9 | | Load_Top At_Offset_1
0187 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x13 = 0x187,0x1001
0188 0227 | ' | Execute Access,All_Reference
0189 0335 | 5 | Declare_Variable Array,Duplicate
018a 00d0 | | Action Swap_Control
018b 00d1 | | Pop_Control Pop_Count_1
018c 00d0 | | Action Swap_Control
018d 00d1 | | Pop_Control Pop_Count_1
018e e006 | | Load 0x0,0x6 ; Debug Table 0x6.0x14 = 0x18e,0xc01
018f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0190 00d1 | | Pop_Control Pop_Count_1
0191 4800 |H | Short_Literal 0x0 ; Debug Table 0x6.0x15 = 0x191,0xc02
0192 e5fe | | Load 0x2,-0x2
0193 380f |8 | Execute Record,Field_Write,Field_Number 0xf
0194 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0195 0100 | | Execute Exception,Raise
0196 0000 0000 | | .XXX[0x2]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 01a1 | | .CONST 0x01a1 ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0002 | | .CONST 0x0002 ; Number of locals
019b INIT_0198:
019b e001 | | Load 0x0,0x1 ; Debug Table 0x7 = .DEBUG 0x019b,0x0434,0x0001,0x0000,0x0058,0x76a5,0x0000,0x0058
; Debug Table 0x7.0x0 = 0x19b,0xffff
019c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
019d 0322 | " | Declare_Variable Record
019e e5fe | | Load 0x2,-0x2
019f 00d9 | | Load_Top At_Offset_1
01a0 017d | } | Execute Record,Structure_Write
01a1 BODY_0198:
01a1 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0x1 = 0x1a1,0x1
01a2 e5ff | | Load 0x2,-0x1
01a3 e001 | | Load 0x0,0x1
01a4 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
01a5 00d1 | | Pop_Control Pop_Count_1
01a6 e5fd | | Load 0x2,-0x3 ; Debug Table 0x7.0x2 = 0x1a6,0x2
01a7 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
01a8 e217 | | Load 0x1,0x17
01a9 0322 | " | Declare_Variable Record
01aa 00da | | Load_Top At_Offset_2
01ab 00d9 | | Load_Top At_Offset_1
01ac 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01ad e5ff | | Load 0x2,-0x1
01ae 3409 |4 | Execute Record,Field_Reference,Field_Number 0x9
01af 00d9 | | Load_Top At_Offset_1
01b0 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01b1 e5ff | | Load 0x2,-0x1
01b2 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
01b3 e003 | | Load 0x0,0x3
01b4 1b66 | f | Execute Package,Field_Read,Field_Number 0x66
01b5 0119 | | Execute Any,Check_In_Formal_Type
01b6 00d9 | | Load_Top At_Offset_1
01b7 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01b8 e21a | | Load 0x1,0x1a
01b9 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01ba 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01bb 0000 0000 | | .BLANK 0000[0x5]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3 | | .CONST 0x01c3 ; Address of begin
01c1 01c9 | | .CONST 0x01c9 ; Address of exception handler
01c2 0001 | | .CONST 0x0001 ; Number of locals
01c3 BODY_01c0:
01c3 INIT_01c0:
01c3 00db | | Load_Top At_Offset_3 ; Debug Table 0x8 = .DEBUG 0x01c3,0x043c,0x0001,0x0000,0x0058,0x76a5,0x0000,0x006c
; Debug Table 0x8.0x0 = 0x1c3,0x1
01c4 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
01c5 00db | | Load_Top At_Offset_3
01c6 e21a | | Load 0x1,0x1a
01c7 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01c8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01c9 TRAP_01c0:
01c9 010e | | Execute Exception,Is_Constraint_Error
01ca 6811 |h | Jump_Zero 0x1dc
01cb e21b | | Load 0x1,0x1b ; Debug Table 0x8.0x1 = 0x1cb,0x2
01cc e5fd | | Load 0x2,-0x3 ; Debug Table 0x8.0x2 = 0x1cc,0x401
01cd 00d9 | | Load_Top At_Offset_1
01ce 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x8.0x3 = 0x1ce,0x801
01cf 0227 | ' | Execute Access,All_Reference
01d0 0335 | 5 | Declare_Variable Array,Duplicate
01d1 00d0 | | Action Swap_Control
01d2 00d1 | | Pop_Control Pop_Count_1
01d3 00d0 | | Action Swap_Control
01d4 00d1 | | Pop_Control Pop_Count_1
01d5 e006 | | Load 0x0,0x6 ; Debug Table 0x8.0x4 = 0x1d5,0x401
01d6 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01d7 00d1 | | Pop_Control Pop_Count_1
01d8 4800 |H | Short_Literal 0x0 ; Debug Table 0x8.0x5 = 0x1d8,0x402
01d9 e5fd | | Load 0x2,-0x3
01da 380f |8 | Execute Record,Field_Write,Field_Number 0xf
01db 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01dc 0100 | | Execute Exception,Raise
01dd 0000 0000 | | .XXX[0x3]
01df 0000 | |
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3 | | .CONST 0x01e3 ; Address of begin
01e1 01e8 | | .CONST 0x01e8 ; Address of exception handler
01e2 0001 | | .CONST 0x0001 ; Number of locals
01e3 BODY_01e0:
01e3 INIT_01e0:
01e3 00da | | Load_Top At_Offset_2 ; Debug Table 0x9 = .DEBUG 0x01e3,0x044a,0x0001,0x0000,0x0058,0x76a5,0x0000,0x007e
; Debug Table 0x9.0x0 = 0x1e3,0x1
01e4 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
01e5 e21a | | Load 0x1,0x1a
01e6 181d | | Execute Package,Field_Execute,Field_Number 0x1d
01e7 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01e8 TRAP_01e0:
01e8 010e | | Execute Exception,Is_Constraint_Error
01e9 6811 |h | Jump_Zero 0x1fb
01ea e21b | | Load 0x1,0x1b ; Debug Table 0x9.0x1 = 0x1ea,0x2
01eb e5fe | | Load 0x2,-0x2 ; Debug Table 0x9.0x2 = 0x1eb,0x401
01ec 00d9 | | Load_Top At_Offset_1
01ed 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x3 = 0x1ed,0x801
01ee 0227 | ' | Execute Access,All_Reference
01ef 0335 | 5 | Declare_Variable Array,Duplicate
01f0 00d0 | | Action Swap_Control
01f1 00d1 | | Pop_Control Pop_Count_1
01f2 00d0 | | Action Swap_Control
01f3 00d1 | | Pop_Control Pop_Count_1
01f4 e006 | | Load 0x0,0x6 ; Debug Table 0x9.0x4 = 0x1f4,0x401
01f5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01f6 00d1 | | Pop_Control Pop_Count_1
01f7 4800 |H | Short_Literal 0x0 ; Debug Table 0x9.0x5 = 0x1f7,0x402
01f8 e5fe | | Load 0x2,-0x2
01f9 380f |8 | Execute Record,Field_Write,Field_Number 0xf
01fa 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01fb 0100 | | Execute Exception,Raise
01fc 0000 0000 | | .BLANK 0000[0x4]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0207 | | .CONST 0x0207 ; Address of begin
0201 023c | < | .CONST 0x023c ; Address of exception handler
0202 0002 | | .CONST 0x0002 ; Number of locals
0203 INIT_0200:
0203 e217 | | Load 0x1,0x17 ; Debug Table 0xa = .DEBUG 0x0203,0x0458,0x0001,0x0000,0x0058,0x76a5,0x0000,0x008c
; Debug Table 0xa.0x0 = 0x203,0xffff
0204 0322 | " | Declare_Variable Record
0205 00d8 | | Load_Top At_Offset_0
0206 1c00 | | Execute_Immediate Run_Utility,0x0
0207 BODY_0200:
0207 e21a | | Load 0x1,0x1a ; Debug Table 0xa.0x1 = 0x207,0x1
0208 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0209 4800 |H | Short_Literal 0x0
020a e5ff | | Load 0x2,-0x1
020b 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
020c e21a | | Load 0x1,0x1a
020d 181f | | Execute Package,Field_Execute,Field_Number 0x1f
020e e5ff | | Load 0x2,-0x1
020f 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0210 00db | | Load_Top At_Offset_3 ; Debug Table 0xa.0x2 = 0x210,0x2
0211 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0212 e5ff | | Load 0x2,-0x1
0213 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0214 e21a | | Load 0x1,0x1a
0215 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0216 00d9 | | Load_Top At_Offset_1
0217 017d | } | Execute Record,Structure_Write
0218 e5fe | | Load 0x2,-0x2 ; Debug Table 0xa.0x3 = 0x218,0x3
0219 e5fd | | Load 0x2,-0x3
021a 00da | | Load_Top At_Offset_2
021b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
021c e001 | | Load 0x0,0x1
021d 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
021e 00d2 | | Pop_Control Pop_Count_2
021f 00db | | Load_Top At_Offset_3 ; Debug Table 0xa.0x4 = 0x21f,0x4
0220 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0221 e21a | | Load 0x1,0x1a
0222 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0223 6812 |h | Jump_Zero 0x236
0224 e21b | | Load 0x1,0x1b ; Debug Table 0xa.0x5 = 0x224,0x5
0225 e5fe | | Load 0x2,-0x2 ; Debug Table 0xa.0x6 = 0x225,0x401
0226 00d9 | | Load_Top At_Offset_1
0227 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xa.0x7 = 0x227,0x801
0228 0227 | ' | Execute Access,All_Reference
0229 0335 | 5 | Declare_Variable Array,Duplicate
022a 00d0 | | Action Swap_Control
022b 00d1 | | Pop_Control Pop_Count_1
022c 00d0 | | Action Swap_Control
022d 00d1 | | Pop_Control Pop_Count_1
022e e006 | | Load 0x0,0x6 ; Debug Table 0xa.0x8 = 0x22e,0x401
022f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0230 00d1 | | Pop_Control Pop_Count_1
0231 4800 |H | Short_Literal 0x0 ; Debug Table 0xa.0x9 = 0x231,0x402
0232 e5fe | | Load 0x2,-0x2
0233 380f |8 | Execute Record,Field_Write,Field_Number 0xf
0234 00d1 | | Pop_Control Pop_Count_1
0235 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0236 e5fd | | Load 0x2,-0x3 ; Debug Table 0xa.0xa = 0x236,0x6
0237 e5fe | | Load 0x2,-0x2
0238 00da | | Load_Top At_Offset_2
0239 821d | | Call 0x1,0x1d
023a 00d2 | | Pop_Control Pop_Count_2
023b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
023c TRAP_0200:
023c 010e | | Execute Exception,Is_Constraint_Error
023d 6811 |h | Jump_Zero 0x24f
023e e21b | | Load 0x1,0x1b ; Debug Table 0xa.0xb = 0x23e,0x7
023f e5fe | | Load 0x2,-0x2 ; Debug Table 0xa.0xc = 0x23f,0xc01
0240 00d9 | | Load_Top At_Offset_1
0241 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xa.0xd = 0x241,0x1001
0242 0227 | ' | Execute Access,All_Reference
0243 0335 | 5 | Declare_Variable Array,Duplicate
0244 00d0 | | Action Swap_Control
0245 00d1 | | Pop_Control Pop_Count_1
0246 00d0 | | Action Swap_Control
0247 00d1 | | Pop_Control Pop_Count_1
0248 e006 | | Load 0x0,0x6 ; Debug Table 0xa.0xe = 0x248,0xc01
0249 1813 | | Execute Package,Field_Execute,Field_Number 0x13
024a 00d1 | | Pop_Control Pop_Count_1
024b 4800 |H | Short_Literal 0x0 ; Debug Table 0xa.0xf = 0x24b,0xc02
024c e5fe | | Load 0x2,-0x2
024d 380f |8 | Execute Record,Field_Write,Field_Number 0xf
024e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
024f 0100 | | Execute Exception,Raise
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0253 | S | .CONST 0x0253 ; Address of begin
0251 0004 | | .CONST 0x0004 ; Address of exception handler
0252 0001 | | .CONST 0x0001 ; Number of locals
0253 BODY_0250:
0253 INIT_0250:
0253 4608 |F | Jump_Case 0x9 ; Debug Table 0xb = .DEBUG 0x0253,0x047a,0x0005,0x0000,0x0058,0x76a5,0x0000,0x00a1
0254 7808 |x | Jump 0x25d ; case 0x0
0255 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0256 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
0257 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0258 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
0259 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
025a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6
025b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7
025c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8
025d 00da | | Load_Top At_Offset_2
025e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
025f 1c00 | | Execute_Immediate Run_Utility,0x0
0260 00da | | Load_Top At_Offset_2
0261 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0262 1c00 | | Execute_Immediate Run_Utility,0x0
0263 00da | | Load_Top At_Offset_2
0264 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0265 0125 | % | Execute Any,Set_Constraint
0266 00da | | Load_Top At_Offset_2
0267 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0268 1c00 | | Execute_Immediate Run_Utility,0x0
0269 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
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 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; Debug Table 0xc = .DEBUG 0x0273,0x047c,0x0001,0x0000,0x0058,0x76a5,0x0000,0x00c1
; Debug Table 0xc.0x0 = 0x273,0x1
0274 0000 0000 | | .BLANK 0000[0x4]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027b | { | .CONST 0x027b ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0001 | | .CONST 0x0001 ; Number of locals
027b BODY_0278:
027b INIT_0278:
027b 4608 |F | Jump_Case 0x9 ; Debug Table 0xd = .DEBUG 0x027b,0x0480,0x0005,0x0000,0x0058,0x76a5,0x0000,0x00d7
027c 7808 |x | Jump 0x285 ; case 0x0
027d 7819 |x | Jump 0x297 ; case 0x1
027e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
027f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0280 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
0281 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
0282 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6
0283 7816 |x | Jump 0x29a ; case 0x7
0284 781e |x | Jump 0x2a3 ; case 0x8
0285 00da | | Load_Top At_Offset_2
0286 016c | l | Execute Variant_Record,Is_Constrained
0287 7009 |p | Jump_Nonzero 0x291
0288 00cf | | Action Mark_Auxiliary
0289 4864 |Hd | Short_Literal 0x64
028a e5ff | | Load 0x2,-0x1
028b 1c08 | | Execute_Immediate Run_Utility,0x8
028c 00d8 | | Load_Top At_Offset_0
028d 1c00 | | Execute_Immediate Run_Utility,0x0
028e c5ff | | Store 0x2,-0x1
028f 00ce | | Action Pop_Auxiliary
0290 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0291 00da | | Load_Top At_Offset_2
0292 2204 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x4
0293 00da | | Load_Top At_Offset_2
0294 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4
0295 1c00 | | Execute_Immediate Run_Utility,0x0
0296 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0297 00da | | Load_Top At_Offset_2
0298 2204 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x4
0299 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
029a 00db | | Load_Top At_Offset_3
029b e5fe | | Load 0x2,-0x2
029c e21a | | Load 0x1,0x1a
029d 1b12 | | Execute Package,Field_Read,Field_Number 0x12
029e 1c07 | | Execute_Immediate Run_Utility,0x7
029f 4801 |H | Short_Literal 0x1
02a0 e5ff | | Load 0x2,-0x1
02a1 031b | | Declare_Type Variant_Record,Constrained
02a2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02a3 00db | | Load_Top At_Offset_3
02a4 00db | | Load_Top At_Offset_3
02a5 02fc | | Declare_Variable Variant_Record,With_Constraint
02a6 e5fe | | Load 0x2,-0x2
02a7 e21a | | Load 0x1,0x1a
02a8 1b12 | | Execute Package,Field_Read,Field_Number 0x12
02a9 1c08 | | Execute_Immediate Run_Utility,0x8
02aa 2d04 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x4
02ab 016a | j | QQ_execute Variant_Record,XXX
02ac 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02ad 0000 0000 | | .XXX[0x3]
02af 0000 | |
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b3 | | .CONST 0x02b3 ; Address of begin
02b1 0004 | | .CONST 0x0004 ; Address of exception handler
02b2 0001 | | .CONST 0x0001 ; Number of locals
02b3 BODY_02b0:
02b3 INIT_02b0:
02b3 e007 | | Load 0x0,0x7 ; Debug Table 0xe = .DEBUG 0x02b3,0x0482,0x0001,0x0000,0x0058,0x7ce5,0x0000,0x000f
; Debug Table 0xe.0x0 = 0x2b3,0x1
02b4 1812 | | Execute Package,Field_Execute,Field_Number 0x12
02b5 0092 02e3 | | Action Push_String_Extended,0x2e3 ; "Screen."
; Debug Table 0xe.0x1 = 0x2b5,0x2
02b7 00db | | Load_Top At_Offset_3
02b8 01cc | | Execute Vector,Catenate
02b9 0092 02e4 | | Action Push_String_Extended,0x2e4 ; " not implemented yet."
02bb 01cc | | Execute Vector,Catenate
02bc e007 | | Load 0x0,0x7
02bd 180f | | Execute Package,Field_Execute,Field_Number 0xf
02be 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02bf 0000 | | .XXX[0x1]
02c0 0000 0000 | | .LITERAL {0x00000000, 0x005876a5}
02c4 0000 0000 | | .BLANK 0000[0x4]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cb | | .CONST 0x02cb ; Address of begin
02c9 0004 | | .CONST 0x0004 ; Address of exception handler
02ca 0001 | | .CONST 0x0001 ; Number of locals
02cb BODY_02c8:
02cb INIT_02c8:
02cb 00da | | Load_Top At_Offset_2 ; Debug Table 0xf = .DEBUG 0x02cb,0x0488,0x0001,0x0000,0x0058,0x7ce5,0x0000,0x00a0
; Debug Table 0xf.0x0 = 0x2cb,0x1
02cc 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02cd e003 | | Load 0x0,0x3
02ce 1b67 | g | Execute Package,Field_Read,Field_Number 0x67
02cf 181c | | Execute Package,Field_Execute,Field_Number 0x1c
02d0 680a |h | Jump_Zero 0x2db
02d1 00db | | Load_Top At_Offset_3 ; Debug Table 0xf.0x1 = 0x2d1,0x2
02d2 4801 |H | Short_Literal 0x1
02d3 e5ff | | Load 0x2,-0x1
02d4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02d5 e5ff | | Load 0x2,-0x1
02d6 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
02d7 e002 | | Load 0x0,0x2
02d8 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02d9 00d1 | | Pop_Control Pop_Count_1
02da 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02db 00db | | Load_Top At_Offset_3 ; Debug Table 0xf.0x2 = 0x2db,0x3
02dc e5fd | | Load 0x2,-0x3
02dd 4800 |H | Short_Literal 0x0
02de e001 | | Load 0x0,0x1
02df 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
02e0 00d2 | | Pop_Control Pop_Count_2
02e1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02e2 ; --------------------------------------------------------------------------------------
02e2 ; STRING TABLE
02e2 ; --------------------------------------------------------------------------------------
02e2 0008 | | .STRTAB 0x0008->0x02e6 ; "The Stack is empty"
02e3 0018 | | .STRTAB 0x0018->0x02ef ; "Screen."
02e4 001d | | .STRTAB 0x001d->0x02f2 ; " not implemented yet."
02e5 0030 | 0 | .STREND 0x0030->0x02fd
02e6 5468 6520 |The | .STRTAB_STRINGS
02fd 0000 0000 | | .XXX[0x3]
02ff 0000 | |
0300 ; --------------------------------------------------------------------------------------
0300 ; Debug Table
0300 ; --------------------------------------------------------------------------------------
0300 0003 0010 | | .CONST 0x0003,0x0010
0302 000b 0382 | | .DEBUG 0x000b,0x0382,0x8000,0x0000,0x0058,0x76a5,0x0000,0x000e
030a 004d 03a2 | M | .DEBUG 0x004d,0x03a2,0x8000,0x0000,0x0058,0x7ce5,0x0000,0x0007
0312 007b 03c4 | { | .DEBUG 0x007b,0x03c4,0x0001,0x0000,0x0058,0x76a5,0x0000,0x0018
031a 0093 03cc | | .DEBUG 0x0093,0x03cc,0x0001,0x0000,0x0058,0x76a5,0x0000,0x0020
0322 00a3 03d0 | | .DEBUG 0x00a3,0x03d0,0x0001,0x0000,0x0058,0x76a5,0x0000,0x0028
032a 00bb 03d8 | | .DEBUG 0x00bb,0x03d8,0x0001,0x0000,0x0058,0x76a5,0x0000,0x0030
0332 012b 0406 | + | .DEBUG 0x012b,0x0406,0x0001,0x0000,0x0058,0x76a5,0x0000,0x0044
033a 019b 0434 | 4| .DEBUG 0x019b,0x0434,0x0001,0x0000,0x0058,0x76a5,0x0000,0x0058
0342 01c3 043c | <| .DEBUG 0x01c3,0x043c,0x0001,0x0000,0x0058,0x76a5,0x0000,0x006c
034a 01e3 044a | J| .DEBUG 0x01e3,0x044a,0x0001,0x0000,0x0058,0x76a5,0x0000,0x007e
0352 0203 0458 | X| .DEBUG 0x0203,0x0458,0x0001,0x0000,0x0058,0x76a5,0x0000,0x008c
035a 0253 047a | S z| .DEBUG 0x0253,0x047a,0x0005,0x0000,0x0058,0x76a5,0x0000,0x00a1
0362 0273 047c | s || .DEBUG 0x0273,0x047c,0x0001,0x0000,0x0058,0x76a5,0x0000,0x00c1
036a 027b 0480 | { | .DEBUG 0x027b,0x0480,0x0005,0x0000,0x0058,0x76a5,0x0000,0x00d7
0372 02b3 0482 | | .DEBUG 0x02b3,0x0482,0x0001,0x0000,0x0058,0x7ce5,0x0000,0x000f
037a 02cb 0488 | | .DEBUG 0x02cb,0x0488,0x0001,0x0000,0x0058,0x7ce5,0x0000,0x00a0
0382 ; --------------------------------------------------------------------------------------
0382 ; Debug3 Subtable 0x0
0382 ; --------------------------------------------------------------------------------------
0382 000f 0000 | | .DBG3TAB 0x000f,0x0000
0384 000b ffff | | .CONST 0x000b,0xffff
0386 0011 fffe | | .CONST 0x0011,0xfffe
0388 0013 fffd | | .CONST 0x0013,0xfffd
038a 0015 fffc | | .CONST 0x0015,0xfffc
038c 0017 fffb | | .CONST 0x0017,0xfffb
038e 0019 fffa | | .CONST 0x0019,0xfffa
0390 001b fff9 | | .CONST 0x001b,0xfff9
0392 001d fff8 | | .CONST 0x001d,0xfff8
0394 001f fff7 | | .CONST 0x001f,0xfff7
0396 0021 fff6 | ! | .CONST 0x0021,0xfff6
0398 0023 fff5 | # | .CONST 0x0023,0xfff5
039a 002e fff4 | . | .CONST 0x002e,0xfff4
039c 0032 fff3 | 2 | .CONST 0x0032,0xfff3
039e 0034 fff2 | 4 | .CONST 0x0034,0xfff2
03a0 0040 fff1 | @ | .CONST 0x0040,0xfff1
03a2 ; --------------------------------------------------------------------------------------
03a2 ; Debug3 Subtable 0x1
03a2 ; --------------------------------------------------------------------------------------
03a2 000d 0003 | | .DBG3TAB 0x000d,0x0003
03a4 004d ffff | M | .CONST 0x004d,0xffff
03a6 004f fffe | O | .CONST 0x004f,0xfffe
03a8 0051 fffd | Q | .CONST 0x0051,0xfffd
03aa 0053 fffc | S | .CONST 0x0053,0xfffc
03ac 0055 fffb | U | .CONST 0x0055,0xfffb
03ae 0057 fffa | W | .CONST 0x0057,0xfffa
03b0 0059 fff9 | Y | .CONST 0x0059,0xfff9
03b2 005b fff8 | [ | .CONST 0x005b,0xfff8
03b4 005d fff7 | ] | .CONST 0x005d,0xfff7
03b6 005f fff6 | _ | .CONST 0x005f,0xfff6
03b8 0061 fff5 | a | .CONST 0x0061,0xfff5
03ba 0063 fff4 | c | .CONST 0x0063,0xfff4
03bc 0065 fff3 | e | .CONST 0x0065,0xfff3
03be 0067 0001 | g | .CONST 0x0067,0x0001
03c0 0069 0401 | i | .CONST 0x0069,0x0401
03c2 006f 0001 | o | .CONST 0x006f,0x0001
03c4 ; --------------------------------------------------------------------------------------
03c4 ; Debug3 Subtable 0x2
03c4 ; --------------------------------------------------------------------------------------
03c4 0000 0003 | | .DBG3TAB 0x0000,0x0003
03c6 007b 0001 | { | .CONST 0x007b,0x0001
03c8 0080 0002 | | .CONST 0x0080,0x0002
03ca 0089 0003 | | .CONST 0x0089,0x0003
03cc ; --------------------------------------------------------------------------------------
03cc ; Debug3 Subtable 0x3
03cc ; --------------------------------------------------------------------------------------
03cc 0000 0001 | | .DBG3TAB 0x0000,0x0001
03ce 0093 0001 | | .CONST 0x0093,0x0001
03d0 ; --------------------------------------------------------------------------------------
03d0 ; Debug3 Subtable 0x4
03d0 ; --------------------------------------------------------------------------------------
03d0 0001 0002 | | .DBG3TAB 0x0001,0x0002
03d2 00a3 ffff | | .CONST 0x00a3,0xffff
03d4 00a5 0001 | | .CONST 0x00a5,0x0001
03d6 00ad 0002 | | .CONST 0x00ad,0x0002
03d8 ; --------------------------------------------------------------------------------------
03d8 ; Debug3 Subtable 0x5
03d8 ; --------------------------------------------------------------------------------------
03d8 0001 0015 | | .DBG3TAB 0x0001,0x0015
03da 00bb ffff | | .CONST 0x00bb,0xffff
03dc 00bf 0001 | | .CONST 0x00bf,0x0001
03de 00c4 0002 | | .CONST 0x00c4,0x0002
03e0 00c5 0401 | | .CONST 0x00c5,0x0401
03e2 00c7 0801 | | .CONST 0x00c7,0x0801
03e4 00ce 0401 | | .CONST 0x00ce,0x0401
03e6 00d1 0402 | | .CONST 0x00d1,0x0402
03e8 00d5 0003 | | .CONST 0x00d5,0x0003
03ea 00d6 0004 | | .CONST 0x00d6,0x0004
03ec 00d9 0005 | | .CONST 0x00d9,0x0005
03ee 00e1 0006 | | .CONST 0x00e1,0x0006
03f0 00e8 0007 | | .CONST 0x00e8,0x0007
03f2 00f2 0008 | | .CONST 0x00f2,0x0008
03f4 00fb 0009 | | .CONST 0x00fb,0x0009
03f6 00fe 000a | | .CONST 0x00fe,0x000a
03f8 0106 000b | | .CONST 0x0106,0x000b
03fa 010d 000c | | .CONST 0x010d,0x000c
03fc 0114 000d | | .CONST 0x0114,0x000d
03fe 0115 0c01 | | .CONST 0x0115,0x0c01
0400 0117 1001 | | .CONST 0x0117,0x1001
0402 011e 0c01 | | .CONST 0x011e,0x0c01
0404 0121 0c02 | ! | .CONST 0x0121,0x0c02
0406 ; --------------------------------------------------------------------------------------
0406 ; Debug3 Subtable 0x6
0406 ; --------------------------------------------------------------------------------------
0406 0001 0015 | | .DBG3TAB 0x0001,0x0015
0408 012b ffff | + | .CONST 0x012b,0xffff
040a 012f 0001 | / | .CONST 0x012f,0x0001
040c 0134 0002 | 4 | .CONST 0x0134,0x0002
040e 0135 0401 | 5 | .CONST 0x0135,0x0401
0410 0137 0801 | 7 | .CONST 0x0137,0x0801
0412 013e 0401 | > | .CONST 0x013e,0x0401
0414 0141 0402 | A | .CONST 0x0141,0x0402
0416 0145 0003 | E | .CONST 0x0145,0x0003
0418 0146 0004 | F | .CONST 0x0146,0x0004
041a 0149 0005 | I | .CONST 0x0149,0x0005
041c 0151 0006 | Q | .CONST 0x0151,0x0006
041e 0158 0007 | X | .CONST 0x0158,0x0007
0420 0162 0008 | b | .CONST 0x0162,0x0008
0422 016b 0009 | k | .CONST 0x016b,0x0009
0424 016e 000a | n | .CONST 0x016e,0x000a
0426 0176 000b | v | .CONST 0x0176,0x000b
0428 017d 000c | } | .CONST 0x017d,0x000c
042a 0184 000d | | .CONST 0x0184,0x000d
042c 0185 0c01 | | .CONST 0x0185,0x0c01
042e 0187 1001 | | .CONST 0x0187,0x1001
0430 018e 0c01 | | .CONST 0x018e,0x0c01
0432 0191 0c02 | | .CONST 0x0191,0x0c02
0434 ; --------------------------------------------------------------------------------------
0434 ; Debug3 Subtable 0x7
0434 ; --------------------------------------------------------------------------------------
0434 0001 0002 | | .DBG3TAB 0x0001,0x0002
0436 019b ffff | | .CONST 0x019b,0xffff
0438 01a1 0001 | | .CONST 0x01a1,0x0001
043a 01a6 0002 | | .CONST 0x01a6,0x0002
043c ; --------------------------------------------------------------------------------------
043c ; Debug3 Subtable 0x8
043c ; --------------------------------------------------------------------------------------
043c 0000 0006 | | .DBG3TAB 0x0000,0x0006
043e 01c3 0001 | | .CONST 0x01c3,0x0001
0440 01cb 0002 | | .CONST 0x01cb,0x0002
0442 01cc 0401 | | .CONST 0x01cc,0x0401
0444 01ce 0801 | | .CONST 0x01ce,0x0801
0446 01d5 0401 | | .CONST 0x01d5,0x0401
0448 01d8 0402 | | .CONST 0x01d8,0x0402
044a ; --------------------------------------------------------------------------------------
044a ; Debug3 Subtable 0x9
044a ; --------------------------------------------------------------------------------------
044a 0000 0006 | | .DBG3TAB 0x0000,0x0006
044c 01e3 0001 | | .CONST 0x01e3,0x0001
044e 01ea 0002 | | .CONST 0x01ea,0x0002
0450 01eb 0401 | | .CONST 0x01eb,0x0401
0452 01ed 0801 | | .CONST 0x01ed,0x0801
0454 01f4 0401 | | .CONST 0x01f4,0x0401
0456 01f7 0402 | | .CONST 0x01f7,0x0402
0458 ; --------------------------------------------------------------------------------------
0458 ; Debug3 Subtable 0xa
0458 ; --------------------------------------------------------------------------------------
0458 0001 000f | | .DBG3TAB 0x0001,0x000f
045a 0203 ffff | | .CONST 0x0203,0xffff
045c 0207 0001 | | .CONST 0x0207,0x0001
045e 0210 0002 | | .CONST 0x0210,0x0002
0460 0218 0003 | | .CONST 0x0218,0x0003
0462 021f 0004 | | .CONST 0x021f,0x0004
0464 0224 0005 | $ | .CONST 0x0224,0x0005
0466 0225 0401 | % | .CONST 0x0225,0x0401
0468 0227 0801 | ' | .CONST 0x0227,0x0801
046a 022e 0401 | . | .CONST 0x022e,0x0401
046c 0231 0402 | 1 | .CONST 0x0231,0x0402
046e 0236 0006 | 6 | .CONST 0x0236,0x0006
0470 023e 0007 | > | .CONST 0x023e,0x0007
0472 023f 0c01 | ? | .CONST 0x023f,0x0c01
0474 0241 1001 | A | .CONST 0x0241,0x1001
0476 0248 0c01 | H | .CONST 0x0248,0x0c01
0478 024b 0c02 | K | .CONST 0x024b,0x0c02
047a ; --------------------------------------------------------------------------------------
047a ; Debug3 Subtable 0xb
047a ; --------------------------------------------------------------------------------------
047a 0000 0000 | | .DBG3TAB 0x0000,0x0000
047c ; --------------------------------------------------------------------------------------
047c ; Debug3 Subtable 0xc
047c ; --------------------------------------------------------------------------------------
047c 0000 0001 | | .DBG3TAB 0x0000,0x0001
047e 0273 0001 | s | .CONST 0x0273,0x0001
0480 ; --------------------------------------------------------------------------------------
0480 ; Debug3 Subtable 0xd
0480 ; --------------------------------------------------------------------------------------
0480 0000 0000 | | .DBG3TAB 0x0000,0x0000
0482 ; --------------------------------------------------------------------------------------
0482 ; Debug3 Subtable 0xe
0482 ; --------------------------------------------------------------------------------------
0482 0000 0002 | | .DBG3TAB 0x0000,0x0002
0484 02b3 0001 | | .CONST 0x02b3,0x0001
0486 02b5 0002 | | .CONST 0x02b5,0x0002
0488 ; --------------------------------------------------------------------------------------
0488 ; Debug3 Subtable 0xf
0488 ; --------------------------------------------------------------------------------------
0488 0000 0003 | | .DBG3TAB 0x0000,0x0003
048a 02cb 0001 | | .CONST 0x02cb,0x0001
048c 02d1 0002 | | .CONST 0x02d1,0x0002
048e 02db 0003 | | .CONST 0x02db,0x0003
0490 0000 0000 | | .BLANK 0000[0x170]