|
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: »20505.SEG«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »20505.SEG«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »20505.SEG«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »20505.SEG«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »20505.SEG«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »20505.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 01c8 | | .CONST 0x01c8 ; 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 0035 | 5 | .CONST 0x0035 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001a | | .CONST 0x001a ; Number of locals
000b INIT_0008:
000b 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0 = .DEBUG 0x000b,0x022a,0xc000,0x0000,0x0036,0x5784,0x0000,0x0005
; Debug Table 0x0.0x0 = 0xb,0xffff
; Debug Table 0x0.0x1 = 0xb,0xfffe
; Debug Table 0x0.0x2 = 0xb,0xfffd
000d 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0xd,0xfffc
000f 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0xf,0xfffb
0011 4802 |H | Short_Literal 0x2 ; Debug Table 0x0.0x5 = 0x11,0xfffa
0012 032b | + | Declare_Type Record,Incomplete,Visible
0013 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x13,0xfff9
0015 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x7 = 0x15,0xfff8
0017 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x8 = 0x17,0xfff7
0019 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x9 = 0x19,0xfff6
001b 6194 |a | Indirect_Literal Discrete,0x1b0,{0x00000000, 0x36578401} ; Debug Table 0x0.0xa = 0x1b,0xfff5
001c 0129 | ) | Execute Any,Make_Visible
001d e20f | | Load 0x1,0xf ; Debug Table 0x0.0xb = 0x1d,0xfff4
001e 00e1 | | Load_Encached Boolean_Cache
001f 02a0 | | Declare_Subprogram Null_Subprogram
0020 e213 | | Load 0x1,0x13
0021 0326 | & | Complete_Type Record,By_Defining
0022 00bf | | Action Accept_Activation
0023 e001 | | Load 0x0,0x1 ; Debug Table 0x1 = .DEBUG 0x0023,0x0244,0xc000,0x0000,0x0036,0x5844,0x0000,0x000b
; Debug Table 0x1.0x0 = 0x23,0xffff
0024 191a | | Execute Package,Field_Reference,Field_Number 0x1a
0025 029d 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call ; Debug Table 0x1.0x1 = 0x25,0xfffe
0027 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x2 = 0x27,0xfffd
0028 00c7 | | Action Elaborate_Subprogram
0029 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x3 = 0x29,0xfffc
002a 00c7 | | Action Elaborate_Subprogram
002b 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0x4 = 0x2b,0xfffb
002c 00c7 | | Action Elaborate_Subprogram
002d 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x1.0x5 = 0x2d,0xfffa
002e 00c7 | | Action Elaborate_Subprogram
002f 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x1.0x6 = 0x2f,0xfff9
0030 00c7 | | Action Elaborate_Subprogram
0031 1d16 | | Execute_Immediate Reference_Lex_1,0x16 ; Debug Table 0x1.0x7 = 0x31,0xfff8
0032 00c7 | | Action Elaborate_Subprogram
0033 1d17 | | Execute_Immediate Reference_Lex_1,0x17 ; Debug Table 0x1.0x8 = 0x33,0xfff7
0034 00c7 | | Action Elaborate_Subprogram
0035 BODY_0008:
0035 00bc | | Action Signal_Activated
0036 00bb | | Action Signal_Completion
0037 0000 | | .XXX[0x1]
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 0040 | @ | .CONST 0x0040 ; Address of begin
0039 0004 | | .CONST 0x0004 ; Address of exception handler
003a 0004 | | .CONST 0x0004 ; Number of locals
003b INIT_0038:
003b e5ff | | Load 0x2,-0x1 ; Debug Table 0x2 = .DEBUG 0x003b,0x0258,0x1002,0x0000,0x0036,0x5784,0x0000,0x0018
; Debug Table 0x2.0x0 = 0x3b,0xffff
003c e001 | | Load 0x0,0x1
003d 1814 | | Execute Package,Field_Execute,Field_Number 0x14
003e 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x2.0x1 = 0x3e,0xfffe
003f 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x2.0x2 = 0x3f,0xfffd
0040 BODY_0038:
0040 e20f | | Load 0x1,0xf ; Debug Table 0x2.0x3 = 0x40,0x1
0041 0269 | i | Execute Discrete,Last
0042 e5fe | | Load 0x2,-0x2
0043 0263 | c | Execute Discrete,Above_Bound
0044 7014 |p | Jump_Nonzero 0x59
0045 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x2.0x4 = 0x45,0x2
0046 00e1 | | Load_Encached Boolean_Cache
0047 4820 |H | Short_Literal 0x20
0048 e406 | | Load 0x2,0x6
0049 e20f | | Load 0x1,0xf
004a 0122 | " | Execute Any,Make_Root_Type
004b 025e | ^ | Execute Discrete,Convert
004c 1c01 | | Execute_Immediate Run_Utility,0x1
004d 8219 | | Call 0x1,0x19
004e e402 | | Load 0x2,0x2
004f 821a | | Call 0x1,0x1a
0050 c403 | | Store 0x2,0x3
0051 c404 | | Store 0x2,0x4
0052 e403 | | Load 0x2,0x3 ; Debug Table 0x2.0x5 = 0x52,0x3
0053 6804 |h | Jump_Zero 0x58
0054 e406 | | Load 0x2,0x6 ; Debug Table 0x2.0x6 = 0x54,0x4
0055 e20f | | Load 0x1,0xf
0056 025b | [ | Execute Discrete,Check_In_Type
0057 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0058 3fec |? | Loop_Increasing 0x45
0059 e218 | | Load 0x1,0x18 ; Debug Table 0x2.0x7 = 0x59,0x5
005a 0257 | W | Execute Discrete,Raise
005b 0000 0000 | | .BLANK 0000[0x5]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 006a | j | .CONST 0x006a ; Address of begin
0061 0004 | | .CONST 0x0004 ; Address of exception handler
0062 0005 | | .CONST 0x0005 ; Number of locals
0063 INIT_0060:
0063 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x3 = .DEBUG 0x0063,0x026a,0x1001,0x0000,0x0036,0x5784,0x0000,0x0028
; Debug Table 0x3.0x0 = 0x63,0xffff
0064 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0065 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x3.0x1 = 0x65,0xfffe
0066 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x3.0x2 = 0x66,0xfffd
0067 e5ff | | Load 0x2,-0x1 ; Debug Table 0x3.0x3 = 0x67,0xfffc
0068 e001 | | Load 0x0,0x1
0069 1814 | | Execute Package,Field_Execute,Field_Number 0x14
006a BODY_0060:
006a 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0x4 = 0x6a,0x1
006b a5fd | | Store_Unchecked 0x2,-0x3
006c 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0x5 = 0x6c,0x2
006d a5fc | | Store_Unchecked 0x2,-0x4
006e e20f | | Load 0x1,0xf ; Debug Table 0x3.0x6 = 0x6e,0x3
006f 0269 | i | Execute Discrete,Last
0070 c5fe | | Store 0x2,-0x2
0071 e20f | | Load 0x1,0xf ; Debug Table 0x3.0x7 = 0x71,0x4
0072 0265 | e | Execute Discrete,Reverse_Bounds
0073 0263 | c | Execute Discrete,Above_Bound
0074 7022 |p" | Jump_Nonzero 0x97
0075 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x3.0x8 = 0x75,0x5
0076 00e1 | | Load_Encached Boolean_Cache
0077 4820 |H | Short_Literal 0x20
0078 e407 | | Load 0x2,0x7
0079 e20f | | Load 0x1,0xf
007a 0122 | " | Execute Any,Make_Root_Type
007b 025e | ^ | Execute Discrete,Convert
007c 1c01 | | Execute_Immediate Run_Utility,0x1
007d 8219 | | Call 0x1,0x19
007e e405 | | Load 0x2,0x5
007f 821a | | Call 0x1,0x1a
0080 c404 | | Store 0x2,0x4
0081 c403 | | Store 0x2,0x3
0082 e403 | | Load 0x2,0x3 ; Debug Table 0x3.0x9 = 0x82,0x6
0083 6807 |h | Jump_Zero 0x8b
0084 e407 | | Load 0x2,0x7 ; Debug Table 0x3.0xa = 0x84,0x7
0085 c5fe | | Store 0x2,-0x2
0086 4801 |H | Short_Literal 0x1 ; Debug Table 0x3.0xb = 0x86,0x8
0087 a5fc | | Store_Unchecked 0x2,-0x4
0088 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0xc = 0x88,0x9
0089 a5fd | | Store_Unchecked 0x2,-0x3
008a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0x3.0xd = 0x8a,0xa
008b e404 | | Load 0x2,0x4 ; Debug Table 0x3.0xe = 0x8b,0xb
008c 6809 |h | Jump_Zero 0x96
008d e402 | | Load 0x2,0x2 ; Debug Table 0x3.0xf = 0x8d,0xc
008e 0f00 | | Execute_Immediate Equal,0x0
008f a5fc | | Store_Unchecked 0x2,-0x4
0090 4801 |H | Short_Literal 0x1 ; Debug Table 0x3.0x10 = 0x90,0xd
0091 a402 | | Store_Unchecked 0x2,0x2
0092 4801 |H | Short_Literal 0x1 ; Debug Table 0x3.0x11 = 0x92,0xe
0093 a5fd | | Store_Unchecked 0x2,-0x3
0094 e407 | | Load 0x2,0x7 ; Debug Table 0x3.0x12 = 0x94,0xf
0095 c5fe | | Store 0x2,-0x2
0096 3fde |? | Loop_Increasing 0x75
0097 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 00c1 | | .CONST 0x00c1 ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 000a | | .CONST 0x000a ; Number of locals
009b INIT_0098:
009b e20f | | Load 0x1,0xf ; Debug Table 0x4 = .DEBUG 0x009b,0x0292,0x3801,0x0002,0x0036,0x5784,0x0000,0x003c
; Debug Table 0x4.0x0 = 0x9b,0xffff
009c 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x4.0x1 = 0x9c,0xfffe
009d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
009e 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x4.0x2 = 0x9e,0xfffd
009f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00a0 e5f9 | | Load 0x2,-0x7 ; Debug Table 0x4.0x3 = 0xa0,0xfffc
00a1 e5fd | | Load 0x2,-0x3
00a2 0272 | r | Execute Discrete,Minus
00a3 0248 | H | Execute Discrete,Check_In_Integer
00a4 e5fd | | Load 0x2,-0x3
00a5 0270 | p | Execute Discrete,Divide
00a6 0a01 | | Execute_Immediate Plus,0x1
00a7 00e4 | | Load_Encached Positive_Cache
00a8 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
00a9 00e2 | | Load_Encached Integer_Cache ; Debug Table 0x4.0x4 = 0xa9,0xfffb
00aa e5f9 | | Load 0x2,-0x7 ; Debug Table 0x4.0x5 = 0xaa,0xfffa
00ab e5fd | | Load 0x2,-0x3
00ac 0273 | s | Execute Discrete,Plus
00ad 0248 | H | Execute Discrete,Check_In_Integer
00ae e002 | | Load 0x0,0x2
00af 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00b0 1c08 | | Execute_Immediate Run_Utility,0x8
00b1 e407 | | Load 0x2,0x7
00b2 1c00 | | Execute_Immediate Run_Utility,0x0
00b3 4801 |H | Short_Literal 0x1 ; Debug Table 0x4.0x6 = 0xb3,0xfff9
00b4 e20f | | Load 0x1,0xf
00b5 0269 | i | Execute Discrete,Last
00b6 0a01 | | Execute_Immediate Plus,0x1
00b7 0248 | H | Execute Discrete,Check_In_Integer
00b8 e003 | | Load 0x0,0x3
00b9 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00ba 0334 | 4 | Declare_Variable Array,With_Constraint
00bb e408 | | Load 0x2,0x8
00bc 1c00 | | Execute_Immediate Run_Utility,0x0
00bd 029f 0173 | s| Declare_Subprogram INIT_0170,For_Call ; Debug Table 0x4.0x7 = 0xbd,0xfff8
00bf 029f 018b | | Declare_Subprogram INIT_0188,For_Call
00c1 BODY_0098:
00c1 0092 01b4 | | Action Push_String_Extended,0x1b4 ; "Possible completions for "
; Debug Table 0x4.0x8 = 0xc1,0x1
00c3 e5fb | | Load 0x2,-0x5
00c4 01cc | | Execute Vector,Catenate
00c5 85fe | | Call 0x2,-0x2
00c6 e20f | | Load 0x1,0xf ; Debug Table 0x4.0x9 = 0xc6,0x2
00c7 026a | j | Execute Discrete,First
00c8 c402 | | Store 0x2,0x2
00c9 840a | | Call 0x2,0xa ; Debug Table 0x4.0xa = 0xc9,0x3
; Debug Table 0x4.0xb = 0xc9,0x4
00ca 7ffe | | Jump 0xc9
00cb e408 | | Load 0x2,0x8 ; Debug Table 0x4.0xc = 0xcb,0x5
00cc 4801 |H | Short_Literal 0x1
00cd e404 | | Load 0x2,0x4
00ce e40b | | Load 0x2,0xb
00cf 035b | [ | Declare_Type Array,Constrained
00d0 00d0 | | Action Swap_Control
00d1 01cd | | Execute Vector,Slice_Reference
00d2 e40b | | Load 0x2,0xb
00d3 e003 | | Load 0x0,0x3
00d4 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00d5 00d2 | | Pop_Control Pop_Count_2
00d6 e404 | | Load 0x2,0x4 ; Debug Table 0x4.0xd = 0xd6,0x6
00d7 e405 | | Load 0x2,0x5
00d8 0273 | s | Execute Discrete,Plus
00d9 0aff | | Execute_Immediate Plus,-0x1
00da 0248 | H | Execute Discrete,Check_In_Integer
00db e405 | | Load 0x2,0x5
00dc 0270 | p | Execute Discrete,Divide
00dd c403 | | Store 0x2,0x3
00de e403 | | Load 0x2,0x3 ; Debug Table 0x4.0xe = 0xde,0x7
00df 4801 |H | Short_Literal 0x1
00e0 0263 | c | Execute Discrete,Above_Bound
00e1 7023 |p# | Jump_Nonzero 0x105
00e2 e407 | | Load 0x2,0x7 ; Debug Table 0x4.0xf = 0xe2,0x8
00e3 e002 | | Load 0x0,0x2
00e4 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00e5 00d1 | | Pop_Control Pop_Count_1
00e6 e405 | | Load 0x2,0x5 ; Debug Table 0x4.0x10 = 0xe6,0x9
00e7 4801 |H | Short_Literal 0x1
00e8 0263 | c | Execute Discrete,Above_Bound
00e9 7016 |p | Jump_Nonzero 0x100
00ea e40c | | Load 0x2,0xc ; Debug Table 0x4.0x11 = 0xea,0xa
00eb e403 | | Load 0x2,0x3
00ec e40e | | Load 0x2,0xe
00ed 0aff | | Execute_Immediate Plus,-0x1
00ee 0248 | H | Execute Discrete,Check_In_Integer
00ef 0271 | q | Execute Discrete,Times
00f0 0273 | s | Execute Discrete,Plus
00f1 0248 | H | Execute Discrete,Check_In_Integer
00f2 a406 | | Store_Unchecked 0x2,0x6
00f3 e406 | | Load 0x2,0x6 ; Debug Table 0x4.0x12 = 0xf3,0xb
00f4 e404 | | Load 0x2,0x4
00f5 027d | } | Execute Discrete,Greater
00f6 6802 |h | Jump_Zero 0xf9
00f7 00d2 | | Pop_Control Pop_Count_2
00f8 7807 |x | Jump 0x100
00f9 e406 | | Load 0x2,0x6 ; Debug Table 0x4.0x13 = 0xf9,0xc
00fa e408 | | Load 0x2,0x8
00fb 01d7 | | Execute Vector,Field_Read
00fc e40f | | Load 0x2,0xf
00fd 8409 | | Call 0x2,0x9
00fe 00d2 | | Pop_Control Pop_Count_2
00ff 3fea |? | Loop_Increasing 0xea
0100 e407 | | Load 0x2,0x7 ; Debug Table 0x4.0x14 = 0x100,0xd
0101 e002 | | Load 0x0,0x2
0102 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0103 85fe | | Call 0x2,-0x2
0104 3fdd |? | Loop_Increasing 0xe2
0105 4508 |E | Exit_Suprogram New_Top_Offset 0x8
0106 0000 0000 | | .XXX[0x2]
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 e20f | | Load 0x1,0xf ; Debug Table 0x5 = .DEBUG 0x010b,0x02be,0x1001,0x0000,0x0036,0x5784,0x0000,0x0064
; Debug Table 0x5.0x0 = 0x10b,0x1
010c 026a | j | Execute Discrete,First
010d e5ff | | Load 0x2,-0x1
010e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
010f 4800 |H | Short_Literal 0x0 ; Debug Table 0x5.0x1 = 0x10f,0x2
0110 e5ff | | Load 0x2,-0x1
0111 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0112 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0113 0000 0000 | | .BLANK 0000[0x5]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b | | .CONST 0x011b ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0001 | | .CONST 0x0001 ; Number of locals
011b BODY_0118:
011b INIT_0118:
011b 4820 |H | Short_Literal 0x20 ; Debug Table 0x6 = .DEBUG 0x011b,0x02c4,0x1002,0x0000,0x0036,0x5784,0x0000,0x006c
; Debug Table 0x6.0x0 = 0x11b,0x1
011c e5ff | | Load 0x2,-0x1
011d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
011e e20f | | Load 0x1,0xf
011f 0122 | " | Execute Any,Make_Root_Type
0120 025e | ^ | Execute Discrete,Convert
0121 1c01 | | Execute_Immediate Run_Utility,0x1
0122 8219 | | Call 0x1,0x19
0123 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
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 e5ff | | Load 0x2,-0x1 ; Debug Table 0x7 = .DEBUG 0x012b,0x02c8,0x1001,0x0000,0x0036,0x5784,0x0000,0x0075
; Debug Table 0x7.0x0 = 0x12b,0x1
012c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
012d e20f | | Load 0x1,0xf
012e 0269 | i | Execute Discrete,Last
012f 027e | ~ | Execute Discrete,Not_Equal
0130 6807 |h | Jump_Zero 0x138
0131 e20f | | Load 0x1,0xf ; Debug Table 0x7.0x1 = 0x131,0x2
0132 e5ff | | Load 0x2,-0x1
0133 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0134 0268 | h | Execute Discrete,Successor
0135 e5ff | | Load 0x2,-0x1
0136 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0137 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0138 4801 |H | Short_Literal 0x1 ; Debug Table 0x7.0x2 = 0x138,0x3
0139 e5ff | | Load 0x2,-0x1
013a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
013b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
013c 0000 0000 | | .BLANK 0000[0x4]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143 | C | .CONST 0x0143 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0001 | | .CONST 0x0001 ; Number of locals
0143 BODY_0140:
0143 INIT_0140:
0143 e5ff | | Load 0x2,-0x1 ; Debug Table 0x8 = .DEBUG 0x0143,0x02d0,0x1002,0x0000,0x0036,0x5784,0x0000,0x007d
; Debug Table 0x8.0x0 = 0x143,0x1
0144 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0145 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0146 0000 0000 | | .XXX[0x2]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 0154 | T | .CONST 0x0154 ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0002 | | .CONST 0x0002 ; Number of locals
014b INIT_0148:
014b e5fe | | Load 0x2,-0x2 ; Debug Table 0x9 = .DEBUG 0x014b,0x02d4,0x1001,0x0000,0x0036,0x5844,0x0000,0x001e
; Debug Table 0x9.0x0 = 0x14b,0xffff
014c 01dd | | Execute Vector,First
014d e5ff | | Load 0x2,-0x1
014e 01db | | Execute Vector,Length
014f 0273 | s | Execute Discrete,Plus
0150 0aff | | Execute_Immediate Plus,-0x1
0151 0248 | H | Execute Discrete,Check_In_Integer
0152 00e2 | | Load_Encached Integer_Cache
0153 03f1 | | Declare_Variable Discrete,With_Value
0154 BODY_0148:
0154 e5ff | | Load 0x2,-0x1 ; Debug Table 0x9.0x1 = 0x154,0x1
0155 01db | | Execute Vector,Length
0156 e5fe | | Load 0x2,-0x2
0157 01db | | Execute Vector,Length
0158 027a | z | Execute Discrete,Less_Equal
0159 6808 |h | Jump_Zero 0x162
015a e5ff | | Load 0x2,-0x1
015b e5fe | | Load 0x2,-0x2
015c 01dd | | Execute Vector,First
015d e402 | | Load 0x2,0x2
015e e5fe | | Load 0x2,-0x2
015f 01cf | | Execute Vector,Slice_Read
0160 01df | | Execute Vector,Equal
0161 7801 |x | Jump 0x163
0162 4800 |H | Short_Literal 0x0
0163 a5fd | | Store_Unchecked 0x2,-0x3
0164 e5fd | | Load 0x2,-0x3 ; Debug Table 0x9.0x2 = 0x164,0x2
0165 6806 |h | Jump_Zero 0x16c
0166 e5ff | | Load 0x2,-0x1
0167 01db | | Execute Vector,Length
0168 e5fe | | Load 0x2,-0x2
0169 01db | | Execute Vector,Length
016a 027f | | Execute Discrete,Equal
016b 7801 |x | Jump 0x16d
016c 4800 |H | Short_Literal 0x0
016d a5fc | | Store_Unchecked 0x2,-0x4
016e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
016f 0000 | | .XXX[0x1]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173 | s | .CONST 0x0173 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0001 | | .CONST 0x0001 ; Number of locals
0173 BODY_0170:
0173 INIT_0170:
0173 e7ff | | Load 0x3,-0x1 ; Debug Table 0xa = .DEBUG 0x0173,0x02dc,0x1801,0x0002,0x0036,0x5844,0x0000,0x017d
; Debug Table 0xa.0x0 = 0x173,0x1
0174 4820 |H | Short_Literal 0x20
0175 e5fc | | Load 0x2,-0x4
0176 e002 | | Load 0x0,0x2
0177 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0178 00d1 | | Pop_Control Pop_Count_1
0179 e7ff | | Load 0x3,-0x1 ; Debug Table 0xa.0x1 = 0x179,0x2
017a 4820 |H | Short_Literal 0x20
017b e5fd | | Load 0x2,-0x3
017c e002 | | Load 0x0,0x2
017d 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
017e 00d1 | | Pop_Control Pop_Count_1
017f e407 | | Load 0x2,0x7 ; Debug Table 0xa.0x2 = 0x17f,0x3
0180 e7ff | | Load 0x3,-0x1
0181 e002 | | Load 0x0,0x2
0182 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0183 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0184 0000 0000 | | .BLANK 0000[0x4]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b | | .CONST 0x018b ; Address of begin
0189 01ac | | .CONST 0x01ac ; Address of exception handler
018a 0001 | | .CONST 0x0001 ; Number of locals
018b BODY_0188:
018b INIT_0188:
018b e402 | | Load 0x2,0x2 ; Debug Table 0xb = .DEBUG 0x018b,0x02e4,0x1804,0x0002,0x0036,0x5844,0x0000,0x01e3
; Debug Table 0xb.0x0 = 0x18b,0x1
018c e20f | | Load 0x1,0xf
018d 025b | [ | Execute Discrete,Check_In_Type
018e e5fa | | Load 0x2,-0x6
018f 8210 | | Call 0x1,0x10
0190 c402 | | Store 0x2,0x2
0191 e404 | | Load 0x2,0x4 ; Debug Table 0xb.0x1 = 0x191,0x2
0192 0a01 | | Execute_Immediate Plus,0x1
0193 c404 | | Store 0x2,0x4
0194 e404 | | Load 0x2,0x4 ; Debug Table 0xb.0x2 = 0x194,0x3
0195 e408 | | Load 0x2,0x8
0196 01d7 | | Execute Vector,Field_Read
0197 e602 | | Load 0x3,0x2
0198 e402 | | Load 0x2,0x2
0199 e20f | | Load 0x1,0xf
019a 0122 | " | Execute Any,Make_Root_Type
019b 025e | ^ | Execute Discrete,Convert
019c 1c01 | | Execute_Immediate Run_Utility,0x1
019d e002 | | Load 0x0,0x2
019e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
019f 00d2 | | Pop_Control Pop_Count_2
01a0 e402 | | Load 0x2,0x2 ; Debug Table 0xb.0x3 = 0x1a0,0x4
01a1 e20f | | Load 0x1,0xf
01a2 0269 | i | Execute Discrete,Last
01a3 027f | | Execute Discrete,Equal
01a4 6802 |h | Jump_Zero 0x1a7
01a5 00cc | | Action Pop_Block
01a6 7f24 | $ | Jump 0xcb
01a7 e20f | | Load 0x1,0xf ; Debug Table 0xb.0x4 = 0x1a7,0x5
01a8 e402 | | Load 0x2,0x2
01a9 0268 | h | Execute Discrete,Successor
01aa c402 | | Store 0x2,0x2
01ab 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01ac TRAP_0188:
01ac 0007 | | Action Break_Optional
01ad 00cc | | Action Pop_Block ; Debug Table 0xb.0x5 = 0x1ad,0x6
01ae 7f1c | | Jump 0xcb
01af 0000 | | .XXX[0x1]
01b0 0000 0000 | | .LITERAL {0x00000000, 0x36578401}
01b4 ; --------------------------------------------------------------------------------------
01b4 ; STRING TABLE
01b4 ; --------------------------------------------------------------------------------------
01b4 0004 | | .STRTAB 0x0004->0x01b6 ; "Possible completions for "
01b5 001b | | .STREND 0x001b->0x01c2
01b6 506f 7373 |Poss| .STRTAB_STRINGS
01c3 0000 0000 | | .BLANK 0000[0x5]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; Debug Table
01c8 ; --------------------------------------------------------------------------------------
01c8 0003 000c | | .CONST 0x0003,0x000c
01ca 000b 022a | *| .DEBUG 0x000b,0x022a,0xc000,0x0000,0x0036,0x5784,0x0000,0x0005
01d2 0023 0244 | # D| .DEBUG 0x0023,0x0244,0xc000,0x0000,0x0036,0x5844,0x0000,0x000b
01da 003b 0258 | ; X| .DEBUG 0x003b,0x0258,0x1002,0x0000,0x0036,0x5784,0x0000,0x0018
01e2 0063 026a | c j| .DEBUG 0x0063,0x026a,0x1001,0x0000,0x0036,0x5784,0x0000,0x0028
01ea 009b 0292 | | .DEBUG 0x009b,0x0292,0x3801,0x0002,0x0036,0x5784,0x0000,0x003c
01f2 010b 02be | | .DEBUG 0x010b,0x02be,0x1001,0x0000,0x0036,0x5784,0x0000,0x0064
01fa 011b 02c4 | | .DEBUG 0x011b,0x02c4,0x1002,0x0000,0x0036,0x5784,0x0000,0x006c
0202 012b 02c8 | + | .DEBUG 0x012b,0x02c8,0x1001,0x0000,0x0036,0x5784,0x0000,0x0075
020a 0143 02d0 | C | .DEBUG 0x0143,0x02d0,0x1002,0x0000,0x0036,0x5784,0x0000,0x007d
0212 014b 02d4 | K | .DEBUG 0x014b,0x02d4,0x1001,0x0000,0x0036,0x5844,0x0000,0x001e
021a 0173 02dc | s | .DEBUG 0x0173,0x02dc,0x1801,0x0002,0x0036,0x5844,0x0000,0x017d
0222 018b 02e4 | | .DEBUG 0x018b,0x02e4,0x1804,0x0002,0x0036,0x5844,0x0000,0x01e3
022a ; --------------------------------------------------------------------------------------
022a ; Debug3 Subtable 0x0
022a ; --------------------------------------------------------------------------------------
022a 000c 0000 | | .DBG3TAB 0x000c,0x0000
022c 000b ffff | | .CONST 0x000b,0xffff
022e 000b fffe | | .CONST 0x000b,0xfffe
0230 000b fffd | | .CONST 0x000b,0xfffd
0232 000d fffc | | .CONST 0x000d,0xfffc
0234 000f fffb | | .CONST 0x000f,0xfffb
0236 0011 fffa | | .CONST 0x0011,0xfffa
0238 0013 fff9 | | .CONST 0x0013,0xfff9
023a 0015 fff8 | | .CONST 0x0015,0xfff8
023c 0017 fff7 | | .CONST 0x0017,0xfff7
023e 0019 fff6 | | .CONST 0x0019,0xfff6
0240 001b fff5 | | .CONST 0x001b,0xfff5
0242 001d fff4 | | .CONST 0x001d,0xfff4
0244 ; --------------------------------------------------------------------------------------
0244 ; Debug3 Subtable 0x1
0244 ; --------------------------------------------------------------------------------------
0244 0009 0000 | | .DBG3TAB 0x0009,0x0000
0246 0023 ffff | # | .CONST 0x0023,0xffff
0248 0025 fffe | % | .CONST 0x0025,0xfffe
024a 0027 fffd | ' | .CONST 0x0027,0xfffd
024c 0029 fffc | ) | .CONST 0x0029,0xfffc
024e 002b fffb | + | .CONST 0x002b,0xfffb
0250 002d fffa | - | .CONST 0x002d,0xfffa
0252 002f fff9 | / | .CONST 0x002f,0xfff9
0254 0031 fff8 | 1 | .CONST 0x0031,0xfff8
0256 0033 fff7 | 3 | .CONST 0x0033,0xfff7
0258 ; --------------------------------------------------------------------------------------
0258 ; Debug3 Subtable 0x2
0258 ; --------------------------------------------------------------------------------------
0258 0003 0005 | | .DBG3TAB 0x0003,0x0005
025a 003b ffff | ; | .CONST 0x003b,0xffff
025c 003e fffe | > | .CONST 0x003e,0xfffe
025e 003f fffd | ? | .CONST 0x003f,0xfffd
0260 0040 0001 | @ | .CONST 0x0040,0x0001
0262 0045 0002 | E | .CONST 0x0045,0x0002
0264 0052 0003 | R | .CONST 0x0052,0x0003
0266 0054 0004 | T | .CONST 0x0054,0x0004
0268 0059 0005 | Y | .CONST 0x0059,0x0005
026a ; --------------------------------------------------------------------------------------
026a ; Debug3 Subtable 0x3
026a ; --------------------------------------------------------------------------------------
026a 0004 000f | | .DBG3TAB 0x0004,0x000f
026c 0063 ffff | c | .CONST 0x0063,0xffff
026e 0065 fffe | e | .CONST 0x0065,0xfffe
0270 0066 fffd | f | .CONST 0x0066,0xfffd
0272 0067 fffc | g | .CONST 0x0067,0xfffc
0274 006a 0001 | j | .CONST 0x006a,0x0001
0276 006c 0002 | l | .CONST 0x006c,0x0002
0278 006e 0003 | n | .CONST 0x006e,0x0003
027a 0071 0004 | q | .CONST 0x0071,0x0004
027c 0075 0005 | u | .CONST 0x0075,0x0005
027e 0082 0006 | | .CONST 0x0082,0x0006
0280 0084 0007 | | .CONST 0x0084,0x0007
0282 0086 0008 | | .CONST 0x0086,0x0008
0284 0088 0009 | | .CONST 0x0088,0x0009
0286 008a 000a | | .CONST 0x008a,0x000a
0288 008b 000b | | .CONST 0x008b,0x000b
028a 008d 000c | | .CONST 0x008d,0x000c
028c 0090 000d | | .CONST 0x0090,0x000d
028e 0092 000e | | .CONST 0x0092,0x000e
0290 0094 000f | | .CONST 0x0094,0x000f
0292 ; --------------------------------------------------------------------------------------
0292 ; Debug3 Subtable 0x4
0292 ; --------------------------------------------------------------------------------------
0292 0008 000d | | .DBG3TAB 0x0008,0x000d
0294 009b ffff | | .CONST 0x009b,0xffff
0296 009c fffe | | .CONST 0x009c,0xfffe
0298 009e fffd | | .CONST 0x009e,0xfffd
029a 00a0 fffc | | .CONST 0x00a0,0xfffc
029c 00a9 fffb | | .CONST 0x00a9,0xfffb
029e 00aa fffa | | .CONST 0x00aa,0xfffa
02a0 00b3 fff9 | | .CONST 0x00b3,0xfff9
02a2 00bd fff8 | | .CONST 0x00bd,0xfff8
02a4 00c1 0001 | | .CONST 0x00c1,0x0001
02a6 00c6 0002 | | .CONST 0x00c6,0x0002
02a8 00c9 0003 | | .CONST 0x00c9,0x0003
02aa 00c9 0004 | | .CONST 0x00c9,0x0004
02ac 00cb 0005 | | .CONST 0x00cb,0x0005
02ae 00d6 0006 | | .CONST 0x00d6,0x0006
02b0 00de 0007 | | .CONST 0x00de,0x0007
02b2 00e2 0008 | | .CONST 0x00e2,0x0008
02b4 00e6 0009 | | .CONST 0x00e6,0x0009
02b6 00ea 000a | | .CONST 0x00ea,0x000a
02b8 00f3 000b | | .CONST 0x00f3,0x000b
02ba 00f9 000c | | .CONST 0x00f9,0x000c
02bc 0100 000d | | .CONST 0x0100,0x000d
02be ; --------------------------------------------------------------------------------------
02be ; Debug3 Subtable 0x5
02be ; --------------------------------------------------------------------------------------
02be 0000 0002 | | .DBG3TAB 0x0000,0x0002
02c0 010b 0001 | | .CONST 0x010b,0x0001
02c2 010f 0002 | | .CONST 0x010f,0x0002
02c4 ; --------------------------------------------------------------------------------------
02c4 ; Debug3 Subtable 0x6
02c4 ; --------------------------------------------------------------------------------------
02c4 0000 0001 | | .DBG3TAB 0x0000,0x0001
02c6 011b 0001 | | .CONST 0x011b,0x0001
02c8 ; --------------------------------------------------------------------------------------
02c8 ; Debug3 Subtable 0x7
02c8 ; --------------------------------------------------------------------------------------
02c8 0000 0003 | | .DBG3TAB 0x0000,0x0003
02ca 012b 0001 | + | .CONST 0x012b,0x0001
02cc 0131 0002 | 1 | .CONST 0x0131,0x0002
02ce 0138 0003 | 8 | .CONST 0x0138,0x0003
02d0 ; --------------------------------------------------------------------------------------
02d0 ; Debug3 Subtable 0x8
02d0 ; --------------------------------------------------------------------------------------
02d0 0000 0001 | | .DBG3TAB 0x0000,0x0001
02d2 0143 0001 | C | .CONST 0x0143,0x0001
02d4 ; --------------------------------------------------------------------------------------
02d4 ; Debug3 Subtable 0x9
02d4 ; --------------------------------------------------------------------------------------
02d4 0001 0002 | | .DBG3TAB 0x0001,0x0002
02d6 014b ffff | K | .CONST 0x014b,0xffff
02d8 0154 0001 | T | .CONST 0x0154,0x0001
02da 0164 0002 | d | .CONST 0x0164,0x0002
02dc ; --------------------------------------------------------------------------------------
02dc ; Debug3 Subtable 0xa
02dc ; --------------------------------------------------------------------------------------
02dc 0000 0003 | | .DBG3TAB 0x0000,0x0003
02de 0173 0001 | s | .CONST 0x0173,0x0001
02e0 0179 0002 | y | .CONST 0x0179,0x0002
02e2 017f 0003 | | .CONST 0x017f,0x0003
02e4 ; --------------------------------------------------------------------------------------
02e4 ; Debug3 Subtable 0xb
02e4 ; --------------------------------------------------------------------------------------
02e4 0000 0006 | | .DBG3TAB 0x0000,0x0006
02e6 018b 0001 | | .CONST 0x018b,0x0001
02e8 0191 0002 | | .CONST 0x0191,0x0002
02ea 0194 0003 | | .CONST 0x0194,0x0003
02ec 01a0 0004 | | .CONST 0x01a0,0x0004
02ee 01a7 0005 | | .CONST 0x01a7,0x0005
02f0 01ad 0006 | | .CONST 0x01ad,0x0006
02f2 0000 0000 | | .BLANK 0000[0x10e]