|
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 - download
Length: 2048 (0x800)
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 01c0 | | .CONST 0x01c0 ; 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 001e | | .CONST 0x001e ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 000d | | .CONST 0x000d ; Number of locals
000b INIT_0008:
000b 4804 |H | Short_Literal 0x4 ; Debug Table 0x0 = .DEBUG 0x000b,0x023a,0x8000,0x0000,0x0058,0x7645,0x0000,0x0009
; Debug Table 0x0.0x0 = 0xb,0xffff
; Debug Table 0x0.0x1 = 0xb,0xfffe
; Debug Table 0x0.0x2 = 0xb,0xfffd
; Debug Table 0x0.0x3 = 0xb,0xfffc
000c 6013 |` | Indirect_Literal Discrete,0x20,{0x0055c40e, 0x000002b0}
000d 02a0 | | Declare_Subprogram Null_Subprogram
000e 038d | | Declare_Type Package,Defined,Visible,Not_Elaborated
000f e001 | | Load 0x0,0x1
0010 4801 |H | Short_Literal 0x1
0011 00da | | Load_Top At_Offset_2
0012 020e | | Execute Module,Augment_Imports
0013 00bf | | Action Accept_Activation
0014 e002 | | Load 0x0,0x2 ; Debug Table 0x1 = .DEBUG 0x0014,0x0244,0x8000,0x0000,0x0058,0x79b5,0x0000,0x0011
; Debug Table 0x1.0x0 = 0x14,0xffff
0015 e003 | | Load 0x0,0x3
0016 e004 | | Load 0x0,0x4
0017 e005 | | Load 0x0,0x5
0018 e006 | | Load 0x0,0x6
0019 4805 |H | Short_Literal 0x5
001a e20d | | Load 0x1,0xd
001b 020e | | Execute Module,Augment_Imports
001c 00d8 | | Load_Top At_Offset_0
001d 020d | | Execute Module,Elaborate
001e BODY_0008:
001e 00bc | | Action Signal_Activated
001f 00bb | | Action Signal_Completion
0020 0055 c40e | U | .LITERAL {0x0055c40e, 0x000002b0}
0024 0000 0000 | | .BLANK 0000[0x4]
0028 0064 0004 | d | .XXX[0x3]
002a 001e | |
002b e001 | | Load 0x0,0x1 ; Debug Table 0x2 = .DEBUG 0x002b,0x0248,0x4000,0x0000,0x0058,0x7645,0x0000,0x001b
; Debug Table 0x2.0x0 = 0x2b,0xffff
002c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
002d 1b11 | | Execute Package,Field_Read,Field_Number 0x11
002e 0129 | ) | Execute Any,Make_Visible
002f 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x2.0x1 = 0x2f,0xfffe
0031 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x2.0x2 = 0x31,0xfffd
0033 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x2.0x3 = 0x33,0xfffc
0035 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x2.0x4 = 0x35,0xfffb
0037 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x2.0x5 = 0x37,0xfffa
0039 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x2.0x6 = 0x39,0xfff9
003b 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x2.0x7 = 0x3b,0xfff8
003d 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x2.0x8 = 0x3d,0xfff7
003f 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x2.0x9 = 0x3f,0xfff6
0041 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x2.0xa = 0x41,0xfff5
0043 6150 |aP | Indirect_Literal Discrete,0x194,{0x00000000, 0x58764501} ; Debug Table 0x2.0xb = 0x43,0xfff4
0044 0129 | ) | Execute Any,Make_Visible
0045 00bf | | Action Accept_Activation
0046 4801 |H | Short_Literal 0x1 ; Debug Table 0x3 = .DEBUG 0x0046,0x0262,0x4000,0x0000,0x0058,0x79b5,0x0000,0x0012
; Debug Table 0x3.0x0 = 0x46,0xffff
0047 0092 0198 | | Action Push_String_Extended,0x198 ; "exception while registering command "
0049 e002 | | Load 0x0,0x2
004a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
004b e002 | | Load 0x0,0x2
004c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
004d 011e | | Execute Any,Convert
004e 029d 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call ; Debug Table 0x3.0x1 = 0x4e,0xfffe
; Debug Table 0x3.0x2 = 0x4e,0xfffd
0050 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x3.0x3 = 0x50,0xfffc
0051 00c7 | | Action Elaborate_Subprogram
0052 1d16 | | Execute_Immediate Reference_Lex_1,0x16 ; Debug Table 0x3.0x4 = 0x52,0xfffb
0053 00c7 | | Action Elaborate_Subprogram
0054 1d17 | | Execute_Immediate Reference_Lex_1,0x17 ; Debug Table 0x3.0x5 = 0x54,0xfffa
0055 00c7 | | Action Elaborate_Subprogram
0056 1d18 | | Execute_Immediate Reference_Lex_1,0x18 ; Debug Table 0x3.0x6 = 0x56,0xfff9
0057 00c7 | | Action Elaborate_Subprogram
0058 1d19 | | Execute_Immediate Reference_Lex_1,0x19 ; Debug Table 0x3.0x7 = 0x58,0xfff8
0059 00c7 | | Action Elaborate_Subprogram
005a 1d1a | | Execute_Immediate Reference_Lex_1,0x1a ; Debug Table 0x3.0x8 = 0x5a,0xfff7
005b 00c7 | | Action Elaborate_Subprogram
005c 1d1b | | Execute_Immediate Reference_Lex_1,0x1b ; Debug Table 0x3.0x9 = 0x5c,0xfff6
005d 00c7 | | Action Elaborate_Subprogram
005e 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x3.0xa = 0x5e,0xfff5
005f 00c7 | | Action Elaborate_Subprogram
0060 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x3.0xb = 0x60,0xfff4
0061 00c7 | | Action Elaborate_Subprogram
0062 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x3.0xc = 0x62,0xfff3
0063 00c7 | | Action Elaborate_Subprogram
0064 00bc | | Action Signal_Activated
0065 00bb | | Action Signal_Completion
0066 0000 0000 | | .XXX[0x2]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006b | k | .CONST 0x006b ; Address of begin
0069 0076 | v | .CONST 0x0076 ; Address of exception handler
006a 0001 | | .CONST 0x0001 ; Number of locals
006b BODY_0068:
006b INIT_0068:
006b 4800 |H | Short_Literal 0x0 ; Debug Table 0x4 = .DEBUG 0x006b,0x027e,0x1001,0x0000,0x0058,0x7645,0x0000,0x002f
; Debug Table 0x4.0x0 = 0x6b,0x1
006c e5fd | | Load 0x2,-0x3
006d e5fe | | Load 0x2,-0x2
006e 821e | | Call 0x1,0x1e
006f e5ff | | Load 0x2,-0x1
0070 e210 | | Load 0x1,0x10
0071 025b | [ | Execute Discrete,Check_In_Type
0072 8215 | | Call 0x1,0x15
0073 e003 | | Load 0x0,0x3
0074 180f | | Execute Package,Field_Execute,Field_Number 0xf
0075 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0076 TRAP_0068:
0076 0007 | | Action Break_Optional
0077 e5fe | | Load 0x2,-0x2 ; Debug Table 0x4.0x1 = 0x77,0x2
0078 0092 0199 | | Action Push_String_Extended,0x199 ; " : "
007a 01cc | | Execute Vector,Catenate
007b e004 | | Load 0x0,0x4
007c 180d | | Execute Package,Field_Execute,Field_Number 0xd
007d 01cc | | Execute Vector,Catenate
007e e21d | | Load 0x1,0x1d
007f 0092 019a | | Action Push_String_Extended,0x19a ; "command registration"
0081 e002 | | Load 0x0,0x2
0082 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0083 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0084 0000 0000 | | .BLANK 0000[0x4]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008b | | .CONST 0x008b ; Address of begin
0089 0093 | | .CONST 0x0093 ; Address of exception handler
008a 0001 | | .CONST 0x0001 ; Number of locals
008b BODY_0088:
008b INIT_0088:
008b 4800 |H | Short_Literal 0x0 ; Debug Table 0x5 = .DEBUG 0x008b,0x0284,0x1001,0x0000,0x0058,0x7645,0x0000,0x0044
; Debug Table 0x5.0x0 = 0x8b,0x1
008c e5fe | | Load 0x2,-0x2
008d e5ff | | Load 0x2,-0x1
008e 821e | | Call 0x1,0x1e
008f e20f | | Load 0x1,0xf
0090 e003 | | Load 0x0,0x3
0091 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0092 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0093 TRAP_0088:
0093 0007 | | Action Break_Optional
0094 00db | | Load_Top At_Offset_3 ; Debug Table 0x5.0x1 = 0x94,0x2
0095 0092 0199 | | Action Push_String_Extended,0x199 ; " : "
0097 01cc | | Execute Vector,Catenate
0098 e004 | | Load 0x0,0x4
0099 180d | | Execute Package,Field_Execute,Field_Number 0xd
009a 01cc | | Execute Vector,Catenate
009b e21d | | Load 0x1,0x1d
009c 0092 019a | | Action Push_String_Extended,0x19a ; "command registration"
009e e002 | | Load 0x0,0x2
009f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00a0 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00a1 0000 0000 | | .BLANK 0000[0x7]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00b6 | | .CONST 0x00b6 ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0005 | | .CONST 0x0005 ; Number of locals
00ab INIT_00a8:
00ab e001 | | Load 0x0,0x1 ; Debug Table 0x6 = .DEBUG 0x00ab,0x028a,0x1002,0x0000,0x0058,0x7645,0x0000,0x0055
; Debug Table 0x6.0x0 = 0xab,0xffff
00ac 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00ad 02c7 | | Declare_Variable Any
00ae 00d8 | | Load_Top At_Offset_0
00af 1c00 | | Execute_Immediate Run_Utility,0x0
00b0 e001 | | Load 0x0,0x1 ; Debug Table 0x6.0x1 = 0xb0,0xfffe
00b1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00b2 e001 | | Load 0x0,0x1 ; Debug Table 0x6.0x2 = 0xb2,0xfffd
00b3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00b4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00b5 e211 | | Load 0x1,0x11 ; Debug Table 0x6.0x3 = 0xb5,0xfffc
00b6 BODY_00a8:
00b6 e001 | | Load 0x0,0x1 ; Debug Table 0x6.0x4 = 0xb6,0xfffb
; Debug Table 0x6.0x5 = 0xb6,0xfffa
; Debug Table 0x6.0x6 = 0xb6,0x1
00b7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00b8 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00b9 e402 | | Load 0x2,0x2
00ba 0120 | | Execute Any,Is_Value
00bb 6803 |h | Jump_Zero 0xbf
00bc e001 | | Load 0x0,0x1
00bd 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00be 7801 |x | Jump 0xc0
00bf e402 | | Load 0x2,0x2
00c0 60cf |` | Indirect_Literal Discrete,0x190,{0x00000000, 0x00004000}
00c1 e005 | | Load 0x0,0x5
00c2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00c3 e001 | | Load 0x0,0x1
00c4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00c5 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00c6 e5ff | | Load 0x2,-0x1
00c7 e001 | | Load 0x0,0x1
00c8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00c9 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
00ca c402 | | Store 0x2,0x2
00cb 005a | Z | Store_Top Discrete,At_Offset_2
00cc 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x6.0x7 = 0xcc,0x2
00cd 6802 |h | Jump_Zero 0xd0
00ce 4887 |H | Short_Literal 0x87
00cf 0257 | W | Execute Discrete,Raise
00d0 e001 | | Load 0x0,0x1 ; Debug Table 0x6.0x8 = 0xd0,0x3
00d1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00d2 e001 | | Load 0x0,0x1
00d3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00d4 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00d5 60ba |` | Indirect_Literal Discrete,0x190,{0x00000000, 0x00004000}
00d6 e005 | | Load 0x0,0x5
00d7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00d8 4800 |H | Short_Literal 0x0
00d9 e402 | | Load 0x2,0x2
00da e001 | | Load 0x0,0x1
00db 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00dc 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00dd 0032 | 2 | Store_Top Heap_Access,At_Offset_2
00de 005b | [ | Store_Top Discrete,At_Offset_3
00df 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0x9 = 0xdf,0x4
00e0 6802 |h | Jump_Zero 0xe3
00e1 4887 |H | Short_Literal 0x87
00e2 0257 | W | Execute Discrete,Raise
00e3 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0xa = 0xe3,0x5
00e4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00e5 0000 0000 | | .XXX[0x3]
00e7 0000 | |
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 e006 | | Load 0x0,0x6 ; Debug Table 0x7 = .DEBUG 0x00eb,0x02a2,0x1002,0x0000,0x0058,0x7645,0x0000,0x005e
; Debug Table 0x7.0x0 = 0xeb,0x1
00ec 1b12 | | Execute Package,Field_Read,Field_Number 0x12
00ed 0322 | " | Declare_Variable Record
00ee e20f | | Load 0x1,0xf
00ef 00d9 | | Load_Top At_Offset_1
00f0 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00f1 00db | | Load_Top At_Offset_3
00f2 e006 | | Load 0x0,0x6
00f3 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00f4 025b | [ | Execute Discrete,Check_In_Type
00f5 00d9 | | Load_Top At_Offset_1
00f6 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00f7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
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 00da | | Load_Top At_Offset_2 ; Debug Table 0x8 = .DEBUG 0x00fb,0x02a6,0x1002,0x0000,0x0058,0x7645,0x0000,0x0069
; Debug Table 0x8.0x0 = 0xfb,0x1
00fc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00fd e20f | | Load 0x1,0xf
00fe 027f | | Execute Discrete,Equal
00ff 680c |h | Jump_Zero 0x10c
0100 00da | | Load_Top At_Offset_2 ; Debug Table 0x8.0x1 = 0x100,0x2
0101 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0102 00d8 | | Load_Top At_Offset_0
0103 e210 | | Load 0x1,0x10
0104 0122 | " | Execute Any,Make_Root_Type
0105 0260 | ` | Execute Discrete,In_Type
0106 7002 |p | Jump_Nonzero 0x109
0107 48e0 |H | Short_Literal 0xe0
0108 0257 | W | Execute Discrete,Raise
0109 e210 | | Load 0x1,0x10
010a 025b | [ | Execute Discrete,Check_In_Type
010b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
010c e21c | | Load 0x1,0x1c ; Debug Table 0x8.0x2 = 0x10c,0x3
010d 0257 | W | Execute Discrete,Raise
010e 0000 0000 | | .XXX[0x2]
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 00da | | Load_Top At_Offset_2 ; Debug Table 0x9 = .DEBUG 0x0113,0x02ae,0x1002,0x0000,0x0058,0x7645,0x0000,0x0074
; Debug Table 0x9.0x0 = 0x113,0x1
0114 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0115 6813 |h | Jump_Zero 0x129
0116 00da | | Load_Top At_Offset_2
0117 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0118 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0119 e20f | | Load 0x1,0xf
011a 027f | | Execute Discrete,Equal
011b 680d |h | Jump_Zero 0x129
011c 00da | | Load_Top At_Offset_2 ; Debug Table 0x9.0x1 = 0x11c,0x2
011d 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
011e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
011f 00d8 | | Load_Top At_Offset_0
0120 e210 | | Load 0x1,0x10
0121 0122 | " | Execute Any,Make_Root_Type
0122 0260 | ` | Execute Discrete,In_Type
0123 7002 |p | Jump_Nonzero 0x126
0124 48e0 |H | Short_Literal 0xe0
0125 0257 | W | Execute Discrete,Raise
0126 e210 | | Load 0x1,0x10
0127 025b | [ | Execute Discrete,Check_In_Type
0128 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0129 e21c | | Load 0x1,0x1c ; Debug Table 0x9.0x2 = 0x129,0x3
012a 0257 | W | Execute Discrete,Raise
012b 0000 0000 | | .BLANK 0000[0x5]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133 | 3 | .CONST 0x0133 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0001 | | .CONST 0x0001 ; Number of locals
0133 BODY_0130:
0133 INIT_0130:
0133 00da | | Load_Top At_Offset_2 ; Debug Table 0xa = .DEBUG 0x0133,0x02b6,0x1002,0x0000,0x0058,0x7645,0x0000,0x007f
; Debug Table 0xa.0x0 = 0x133,0x1
0134 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0135 e20f | | Load 0x1,0xf
0136 027f | | Execute Discrete,Equal
0137 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b | ; | .CONST 0x013b ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0001 | | .CONST 0x0001 ; Number of locals
013b BODY_0138:
013b INIT_0138:
013b 00da | | Load_Top At_Offset_2 ; Debug Table 0xb = .DEBUG 0x013b,0x02ba,0x1002,0x0000,0x0058,0x7645,0x0000,0x008a
; Debug Table 0xb.0x0 = 0x13b,0x1
013c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
013d 680a |h | Jump_Zero 0x148
013e 00da | | Load_Top At_Offset_2
013f 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0140 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0141 e20f | | Load 0x1,0xf
0142 027f | | Execute Discrete,Equal
0143 6804 |h | Jump_Zero 0x148
0144 00da | | Load_Top At_Offset_2
0145 821a | | Call 0x1,0x1a
0146 0f00 | | Execute_Immediate Equal,0x0
0147 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0148 4800 |H | Short_Literal 0x0
0149 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
014a 0000 0000 | | .BLANK 0000[0x6]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153 | S | .CONST 0x0153 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0001 | | .CONST 0x0001 ; Number of locals
0153 BODY_0150:
0153 INIT_0150:
0153 00da | | Load_Top At_Offset_2 ; Debug Table 0xc = .DEBUG 0x0153,0x02be,0x1002,0x0000,0x0058,0x7645,0x0000,0x0095
; Debug Table 0xc.0x0 = 0x153,0xffff
; Debug Table 0xc.0x1 = 0x153,0x1
0154 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0155 0f01 | | Execute_Immediate Equal,0x1
0156 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0157 0000 | | .XXX[0x1]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b | [ | .CONST 0x015b ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0001 | | .CONST 0x0001 ; Number of locals
015b BODY_0158:
015b INIT_0158:
015b 00da | | Load_Top At_Offset_2 ; Debug Table 0xd = .DEBUG 0x015b,0x02c4,0x1002,0x0000,0x0058,0x7645,0x0000,0x00a0
; Debug Table 0xd.0x0 = 0x15b,0x1
015c 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
015d 7009 |p | Jump_Nonzero 0x167
015e 4801 |H | Short_Literal 0x1 ; Debug Table 0xd.0x1 = 0x15e,0x2
015f 00db | | Load_Top At_Offset_3
0160 e006 | | Load 0x0,0x6
0161 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
0162 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0163 e006 | | Load 0x0,0x6
0164 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
0165 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0166 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0167 00da | | Load_Top At_Offset_2 ; Debug Table 0xd.0x2 = 0x167,0x3
0168 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0169 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
016a 0000 0000 | | .BLANK 0000[0x6]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0177 | w | .CONST 0x0177 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0003 | | .CONST 0x0003 ; Number of locals
0173 INIT_0170:
0173 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0xe = .DEBUG 0x0173,0x02cc,0x1002,0x0000,0x0058,0x79b5,0x0000,0x0033
; Debug Table 0xe.0x0 = 0x173,0xffff
0174 e001 | | Load 0x0,0x1 ; Debug Table 0xe.0x1 = 0x174,0xfffe
0175 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0176 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0177 BODY_0170:
0177 e001 | | Load 0x0,0x1 ; Debug Table 0xe.0x2 = 0x177,0x1
0178 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0179 1b0f | | Execute Package,Field_Read,Field_Number 0xf
017a e001 | | Load 0x0,0x1
017b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
017c 6013 |` | Indirect_Literal Discrete,0x190,{0x00000000, 0x00004000}
017d e005 | | Load 0x0,0x5
017e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
017f e5fe | | Load 0x2,-0x2
0180 0092 019b | | Action Push_String_Extended,0x19b ; "[]"
0182 e5ff | | Load 0x2,-0x1
0183 01cc | | Execute Vector,Catenate
0184 e001 | | Load 0x0,0x1
0185 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0186 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0187 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0188 0059 | Y | Store_Top Discrete,At_Offset_1
0189 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xe.0x3 = 0x189,0x2
018a 0b00 | | Execute_Immediate Case_Compare,0x0
018b 7002 |p | Jump_Nonzero 0x18e
018c 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0xe.0x4 = 0x18c,0x4
; Debug Table 0xe.0x5 = 0x18c,0x401
018d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 ; Debug Table 0xe.0x6 = 0x18d,0x4
018e 00da | | Load_Top At_Offset_2 ; Debug Table 0xe.0x7 = 0x18e,0x3
018f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0190 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0194 0000 0000 | | .LITERAL {0x00000000, 0x58764501}
0198 ; --------------------------------------------------------------------------------------
0198 ; STRING TABLE
0198 ; --------------------------------------------------------------------------------------
0198 000a | | .STRTAB 0x000a->0x019d ; "exception while registering command "
0199 002c | , | .STRTAB 0x002c->0x01af ; " : "
019a 002d | - | .STRTAB 0x002d->0x01b0 ; "command registration"
019b 003f | ? | .STRTAB 0x003f->0x01ba ; "[]"
019c 003f | ? | .STREND 0x003f->0x01bb
019d 6578 6365 |exce| .STRTAB_STRINGS
01bc 0000 0000 | | .BLANK 0000[0x4]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; Debug Table
01c0 ; --------------------------------------------------------------------------------------
01c0 0003 000f | | .CONST 0x0003,0x000f
01c2 000b 023a | :| .DEBUG 0x000b,0x023a,0x8000,0x0000,0x0058,0x7645,0x0000,0x0009
01ca 0014 0244 | D| .DEBUG 0x0014,0x0244,0x8000,0x0000,0x0058,0x79b5,0x0000,0x0011
01d2 002b 0248 | + H| .DEBUG 0x002b,0x0248,0x4000,0x0000,0x0058,0x7645,0x0000,0x001b
01da 0046 0262 | F b| .DEBUG 0x0046,0x0262,0x4000,0x0000,0x0058,0x79b5,0x0000,0x0012
01e2 006b 027e | k ~| .DEBUG 0x006b,0x027e,0x1001,0x0000,0x0058,0x7645,0x0000,0x002f
01ea 008b 0284 | | .DEBUG 0x008b,0x0284,0x1001,0x0000,0x0058,0x7645,0x0000,0x0044
01f2 00ab 028a | | .DEBUG 0x00ab,0x028a,0x1002,0x0000,0x0058,0x7645,0x0000,0x0055
01fa 00eb 02a2 | | .DEBUG 0x00eb,0x02a2,0x1002,0x0000,0x0058,0x7645,0x0000,0x005e
0202 00fb 02a6 | | .DEBUG 0x00fb,0x02a6,0x1002,0x0000,0x0058,0x7645,0x0000,0x0069
020a 0113 02ae | | .DEBUG 0x0113,0x02ae,0x1002,0x0000,0x0058,0x7645,0x0000,0x0074
0212 0133 02b6 | 3 | .DEBUG 0x0133,0x02b6,0x1002,0x0000,0x0058,0x7645,0x0000,0x007f
021a 013b 02ba | ; | .DEBUG 0x013b,0x02ba,0x1002,0x0000,0x0058,0x7645,0x0000,0x008a
0222 0153 02be | S | .DEBUG 0x0153,0x02be,0x1002,0x0000,0x0058,0x7645,0x0000,0x0095
022a 015b 02c4 | [ | .DEBUG 0x015b,0x02c4,0x1002,0x0000,0x0058,0x7645,0x0000,0x00a0
0232 0173 02cc | s | .DEBUG 0x0173,0x02cc,0x1002,0x0000,0x0058,0x79b5,0x0000,0x0033
023a ; --------------------------------------------------------------------------------------
023a ; Debug3 Subtable 0x0
023a ; --------------------------------------------------------------------------------------
023a 0004 0000 | | .DBG3TAB 0x0004,0x0000
023c 000b ffff | | .CONST 0x000b,0xffff
023e 000b fffe | | .CONST 0x000b,0xfffe
0240 000b fffd | | .CONST 0x000b,0xfffd
0242 000b fffc | | .CONST 0x000b,0xfffc
0244 ; --------------------------------------------------------------------------------------
0244 ; Debug3 Subtable 0x1
0244 ; --------------------------------------------------------------------------------------
0244 0001 0000 | | .DBG3TAB 0x0001,0x0000
0246 0014 ffff | | .CONST 0x0014,0xffff
0248 ; --------------------------------------------------------------------------------------
0248 ; Debug3 Subtable 0x2
0248 ; --------------------------------------------------------------------------------------
0248 000c 0000 | | .DBG3TAB 0x000c,0x0000
024a 002b ffff | + | .CONST 0x002b,0xffff
024c 002f fffe | / | .CONST 0x002f,0xfffe
024e 0031 fffd | 1 | .CONST 0x0031,0xfffd
0250 0033 fffc | 3 | .CONST 0x0033,0xfffc
0252 0035 fffb | 5 | .CONST 0x0035,0xfffb
0254 0037 fffa | 7 | .CONST 0x0037,0xfffa
0256 0039 fff9 | 9 | .CONST 0x0039,0xfff9
0258 003b fff8 | ; | .CONST 0x003b,0xfff8
025a 003d fff7 | = | .CONST 0x003d,0xfff7
025c 003f fff6 | ? | .CONST 0x003f,0xfff6
025e 0041 fff5 | A | .CONST 0x0041,0xfff5
0260 0043 fff4 | C | .CONST 0x0043,0xfff4
0262 ; --------------------------------------------------------------------------------------
0262 ; Debug3 Subtable 0x3
0262 ; --------------------------------------------------------------------------------------
0262 000d 0000 | | .DBG3TAB 0x000d,0x0000
0264 0046 ffff | F | .CONST 0x0046,0xffff
0266 004e fffe | N | .CONST 0x004e,0xfffe
0268 004e fffd | N | .CONST 0x004e,0xfffd
026a 0050 fffc | P | .CONST 0x0050,0xfffc
026c 0052 fffb | R | .CONST 0x0052,0xfffb
026e 0054 fffa | T | .CONST 0x0054,0xfffa
0270 0056 fff9 | V | .CONST 0x0056,0xfff9
0272 0058 fff8 | X | .CONST 0x0058,0xfff8
0274 005a fff7 | Z | .CONST 0x005a,0xfff7
0276 005c fff6 | \ | .CONST 0x005c,0xfff6
0278 005e fff5 | ^ | .CONST 0x005e,0xfff5
027a 0060 fff4 | ` | .CONST 0x0060,0xfff4
027c 0062 fff3 | b | .CONST 0x0062,0xfff3
027e ; --------------------------------------------------------------------------------------
027e ; Debug3 Subtable 0x4
027e ; --------------------------------------------------------------------------------------
027e 0000 0002 | | .DBG3TAB 0x0000,0x0002
0280 006b 0001 | k | .CONST 0x006b,0x0001
0282 0077 0002 | w | .CONST 0x0077,0x0002
0284 ; --------------------------------------------------------------------------------------
0284 ; Debug3 Subtable 0x5
0284 ; --------------------------------------------------------------------------------------
0284 0000 0002 | | .DBG3TAB 0x0000,0x0002
0286 008b 0001 | | .CONST 0x008b,0x0001
0288 0094 0002 | | .CONST 0x0094,0x0002
028a ; --------------------------------------------------------------------------------------
028a ; Debug3 Subtable 0x6
028a ; --------------------------------------------------------------------------------------
028a 0006 0005 | | .DBG3TAB 0x0006,0x0005
028c 00ab ffff | | .CONST 0x00ab,0xffff
028e 00b0 fffe | | .CONST 0x00b0,0xfffe
0290 00b2 fffd | | .CONST 0x00b2,0xfffd
0292 00b5 fffc | | .CONST 0x00b5,0xfffc
0294 00b6 fffb | | .CONST 0x00b6,0xfffb
0296 00b6 fffa | | .CONST 0x00b6,0xfffa
0298 00b6 0001 | | .CONST 0x00b6,0x0001
029a 00cc 0002 | | .CONST 0x00cc,0x0002
029c 00d0 0003 | | .CONST 0x00d0,0x0003
029e 00df 0004 | | .CONST 0x00df,0x0004
02a0 00e3 0005 | | .CONST 0x00e3,0x0005
02a2 ; --------------------------------------------------------------------------------------
02a2 ; Debug3 Subtable 0x7
02a2 ; --------------------------------------------------------------------------------------
02a2 0000 0001 | | .DBG3TAB 0x0000,0x0001
02a4 00eb 0001 | | .CONST 0x00eb,0x0001
02a6 ; --------------------------------------------------------------------------------------
02a6 ; Debug3 Subtable 0x8
02a6 ; --------------------------------------------------------------------------------------
02a6 0000 0003 | | .DBG3TAB 0x0000,0x0003
02a8 00fb 0001 | | .CONST 0x00fb,0x0001
02aa 0100 0002 | | .CONST 0x0100,0x0002
02ac 010c 0003 | | .CONST 0x010c,0x0003
02ae ; --------------------------------------------------------------------------------------
02ae ; Debug3 Subtable 0x9
02ae ; --------------------------------------------------------------------------------------
02ae 0000 0003 | | .DBG3TAB 0x0000,0x0003
02b0 0113 0001 | | .CONST 0x0113,0x0001
02b2 011c 0002 | | .CONST 0x011c,0x0002
02b4 0129 0003 | ) | .CONST 0x0129,0x0003
02b6 ; --------------------------------------------------------------------------------------
02b6 ; Debug3 Subtable 0xa
02b6 ; --------------------------------------------------------------------------------------
02b6 0000 0001 | | .DBG3TAB 0x0000,0x0001
02b8 0133 0001 | 3 | .CONST 0x0133,0x0001
02ba ; --------------------------------------------------------------------------------------
02ba ; Debug3 Subtable 0xb
02ba ; --------------------------------------------------------------------------------------
02ba 0000 0001 | | .DBG3TAB 0x0000,0x0001
02bc 013b 0001 | ; | .CONST 0x013b,0x0001
02be ; --------------------------------------------------------------------------------------
02be ; Debug3 Subtable 0xc
02be ; --------------------------------------------------------------------------------------
02be 0001 0001 | | .DBG3TAB 0x0001,0x0001
02c0 0153 ffff | S | .CONST 0x0153,0xffff
02c2 0153 0001 | S | .CONST 0x0153,0x0001
02c4 ; --------------------------------------------------------------------------------------
02c4 ; Debug3 Subtable 0xd
02c4 ; --------------------------------------------------------------------------------------
02c4 0000 0003 | | .DBG3TAB 0x0000,0x0003
02c6 015b 0001 | [ | .CONST 0x015b,0x0001
02c8 015e 0002 | ^ | .CONST 0x015e,0x0002
02ca 0167 0003 | g | .CONST 0x0167,0x0003
02cc ; --------------------------------------------------------------------------------------
02cc ; Debug3 Subtable 0xe
02cc ; --------------------------------------------------------------------------------------
02cc 0002 0006 | | .DBG3TAB 0x0002,0x0006
02ce 0173 ffff | s | .CONST 0x0173,0xffff
02d0 0174 fffe | t | .CONST 0x0174,0xfffe
02d2 0177 0001 | w | .CONST 0x0177,0x0001
02d4 0189 0002 | | .CONST 0x0189,0x0002
02d6 018c 0004 | | .CONST 0x018c,0x0004
02d8 018c 0401 | | .CONST 0x018c,0x0401
02da 018d 0004 | | .CONST 0x018d,0x0004
02dc 018e 0003 | | .CONST 0x018e,0x0003
02de 0000 0000 | | .BLANK 0000[0x122]