|
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, 580b_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0ea8df
└─⟦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 580b |X | .CONST 0x580b ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 01e0 | | .CONST 0x01e0 ; 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 0041 | A | .CONST 0x0041 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001c | | .CONST 0x001c ; Number of locals
000b INIT_0008:
000b 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0 = .DEBUG 0x000b,0x025a,0x8000,0x0000,0x0038,0xc6f6,0x0000,0x0003
; Debug Table 0x0.0x0 = 0xb,0xffff
000d 00bf | | Action Accept_Activation
000e 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x000e,0x025e,0x8000,0x0000,0x0039,0x3336,0x0000,0x0013
; Debug Table 0x1.0x0 = 0xe,0xffff
000f 0007 | | Action Break_Optional ; Debug Table 0x1.0x1 = 0xf,0xfffe
0010 e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x2 = 0x10,0xfffd
0011 191e | | Execute Package,Field_Reference,Field_Number 0x1e
0012 0007 | | Action Break_Optional
0013 e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x3 = 0x13,0xfffc
0014 1912 | | Execute Package,Field_Reference,Field_Number 0x12
0015 0007 | | Action Break_Optional
0016 4800 |H | Short_Literal 0x0 ; Debug Table 0x1.0x4 = 0x16,0xfffb
0017 4806 |H | Short_Literal 0x6
0018 029f 0073 | s| Declare_Subprogram INIT_0070,For_Call
001a 03fd | | Declare_Type Discrete,Defined
001b 029d 008b | | Declare_Subprogram INIT_0088,For_Outer_Call ; Debug Table 0x1.0x5 = 0x1b,0xfffa
001d 029d 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call ; Debug Table 0x1.0x6 = 0x1d,0xfff9
001f 029d 009b | | Declare_Subprogram INIT_0098,For_Outer_Call ; Debug Table 0x1.0x7 = 0x1f,0xfff8
0021 6162 |ab | Indirect_Literal Discrete,0x184,{0x00000000, 0x00393336} ; Debug Table 0x1.0x8 = 0x21,0xfff7
0022 4863 |Hc | Short_Literal 0x63
0023 e210 | | Load 0x1,0x10
0024 e002 | | Load 0x0,0x2
0025 190d | | Execute Package,Field_Reference,Field_Number 0xd
0026 e001 | | Load 0x0,0x1
0027 191f | | Execute Package,Field_Reference,Field_Number 0x1f
0028 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0029 1d11 | | Execute_Immediate Reference_Lex_1,0x11
002a 1d12 | | Execute_Immediate Reference_Lex_1,0x12
002b e003 | | Load 0x0,0x3
002c 0387 | | Declare_Variable Package
002d 00d8 | | Load_Top At_Offset_0
002e 020f | | Execute Module,Activate
002f 029d 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call ; Debug Table 0x1.0x9 = 0x2f,0xfff6
0031 029d 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call ; Debug Table 0x1.0xa = 0x31,0xfff5
0033 029d 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call ; Debug Table 0x1.0xb = 0x33,0xfff4
0035 029d 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call ; Debug Table 0x1.0xc = 0x35,0xfff3
0037 029d 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call ; Debug Table 0x1.0xd = 0x37,0xfff2
0039 029d 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call ; Debug Table 0x1.0xe = 0x39,0xfff1
003b 029d 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call ; Debug Table 0x1.0xf = 0x3b,0xfff0
003d 029d 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call ; Debug Table 0x1.0x10 = 0x3d,0xffef
003f 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1.0x11 = 0x3f,0xffee
0040 00c7 | | Action Elaborate_Subprogram
0041 BODY_0008:
0041 00bc | | Action Signal_Activated
0042 00bb | | Action Signal_Completion
0043 0000 0000 | | .BLANK 0000[0x5]
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 004d | M | .CONST 0x004d ; Address of begin
0049 006b | k | .CONST 0x006b ; Address of exception handler
004a 0002 | | .CONST 0x0002 ; Number of locals
004b INIT_0048:
004b e210 | | Load 0x1,0x10 ; Debug Table 0x2 = .DEBUG 0x004b,0x0284,0x0001,0x0000,0x0038,0xc6f6,0x0000,0x0004
; Debug Table 0x2.0x0 = 0x4b,0xffff
004c 0007 | | Action Break_Optional
004d BODY_0048:
004d 8213 | | Call 0x1,0x13 ; Debug Table 0x2.0x1 = 0x4d,0x1
004e e214 | | Load 0x1,0x14 ; Debug Table 0x2.0x2 = 0x4e,0x2
004f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0050 e214 | | Load 0x1,0x14
0051 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0052 0059 | Y | Store_Top Discrete,At_Offset_1
0053 8215 | | Call 0x1,0x15 ; Debug Table 0x2.0x3 = 0x53,0x3
0054 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x4 = 0x54,0x4
0055 4606 |F | Jump_Case 0x7
0056 7806 |x | Jump 0x5d ; case 0x0
0057 7807 |x | Jump 0x5f ; case 0x1
0058 7808 |x | Jump 0x61 ; case 0x2
0059 7809 |x | Jump 0x63 ; case 0x3
005a 780a |x | Jump 0x65 ; case 0x4
005b 780b |x | Jump 0x67 ; case 0x5
005c 780c |x | Jump 0x69 ; case 0x6
005d 8219 | | Call 0x1,0x19 ; Debug Table 0x2.0x5 = 0x5d,0x5
005e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
005f 821a | | Call 0x1,0x1a ; Debug Table 0x2.0x6 = 0x5f,0x6
0060 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0061 821b | | Call 0x1,0x1b ; Debug Table 0x2.0x7 = 0x61,0x7
0062 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0063 821c | | Call 0x1,0x1c ; Debug Table 0x2.0x8 = 0x63,0x8
0064 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0065 8218 | | Call 0x1,0x18 ; Debug Table 0x2.0x9 = 0x65,0x9
0066 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0067 8216 | | Call 0x1,0x16 ; Debug Table 0x2.0xa = 0x67,0xa
0068 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0069 8217 | | Call 0x1,0x17 ; Debug Table 0x2.0xb = 0x69,0xb
006a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
006b TRAP_0048:
006b 0007 | | Action Break_Optional
006c 820e | | Call 0x1,0xe ; Debug Table 0x2.0xc = 0x6c,0xc
006d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
006e 0000 0000 | | .XXX[0x2]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0073 | s | .CONST 0x0073 ; Address of begin
0071 0004 | | .CONST 0x0004 ; Address of exception handler
0072 0001 | | .CONST 0x0001 ; Number of locals
0073 BODY_0070:
0073 INIT_0070:
0073 4603 |F | Jump_Case 0x4 ; Debug Table 0x3 = .DEBUG 0x0073,0x02a0,0x0005,0x0000,0x0039,0x3336,0x0000,0x002f
0074 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0075 7802 |x | Jump 0x78 ; case 0x1
0076 7805 |x | Jump 0x7c ; case 0x2
0077 7809 |x | Jump 0x81 ; case 0x3
0078 00da | | Load_Top At_Offset_2
0079 0091 0188 | | Action Push_String_Extended_Indexed,0x188 ; "GENERATE"
007b 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
007c 00db | | Load_Top At_Offset_3
007d 00db | | Load_Top At_Offset_3
007e 00e0 | | Load_Encached Standard_Cache
007f 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0080 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0081 00da | | Load_Top At_Offset_2
0082 00e0 | | Load_Encached Standard_Cache
0083 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0084 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0085 0000 0000 | | .XXX[0x3]
0087 0000 | |
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008b | | .CONST 0x008b ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0001 | | .CONST 0x0001 ; Number of locals
008b BODY_0088:
008b INIT_0088:
008b e001 | | Load 0x0,0x1 ; Debug Table 0x4 = .DEBUG 0x008b,0x02a2,0x0002,0x0000,0x0039,0x3336,0x0000,0x003a
; Debug Table 0x4.0x0 = 0x8b,0x1
008c 1815 | | Execute Package,Field_Execute,Field_Number 0x15
008d 0f00 | | Execute_Immediate Equal,0x0
008e 00ca | | Action Exit_Nullary_Function
008f 0000 | | .XXX[0x1]
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 8211 | | Call 0x1,0x11 ; Debug Table 0x5 = .DEBUG 0x0093,0x02a6,0x0002,0x0000,0x0039,0x3336,0x0000,0x004a
; Debug Table 0x5.0x0 = 0x93,0x1
0094 00ca | | Action Exit_Nullary_Function
0095 0000 0000 | | .XXX[0x3]
0097 0000 | |
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b | | .CONST 0x009b ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0001 | | .CONST 0x0001 ; Number of locals
009b BODY_0098:
009b INIT_0098:
009b 0092 018f | | Action Push_String_Extended,0x18f ; "command = "
; Debug Table 0x6 = .DEBUG 0x009b,0x02aa,0x0001,0x0000,0x0039,0x3336,0x0000,0x0055
; Debug Table 0x6.0x0 = 0x9b,0x1
009d e002 | | Load 0x0,0x2
009e 180e | | Execute Package,Field_Execute,Field_Number 0xe
009f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a3 | | .CONST 0x00a3 ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0001 | | .CONST 0x0001 ; Number of locals
00a3 BODY_00a0:
00a3 INIT_00a0:
00a3 e001 | | Load 0x0,0x1 ; Debug Table 0x7 = .DEBUG 0x00a3,0x02ae,0x0001,0x0000,0x0039,0x3336,0x0000,0x0070
; Debug Table 0x7.0x0 = 0xa3,0x1
00a4 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00a5 7002 |p | Jump_Nonzero 0xa8
00a6 e002 | | Load 0x0,0x2 ; Debug Table 0x7.0x1 = 0xa6,0x2
00a7 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00a8 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00a9 0000 0000 | | .BLANK 0000[0x7]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3 | | .CONST 0x00b3 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0001 | | .CONST 0x0001 ; Number of locals
00b3 BODY_00b0:
00b3 INIT_00b0:
00b3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; Debug Table 0x8 = .DEBUG 0x00b3,0x02b4,0x0001,0x0000,0x0039,0x3336,0x0000,0x0086
; Debug Table 0x8.0x0 = 0xb3,0x1
00b4 0000 0000 | | .BLANK 0000[0x4]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb | | .CONST 0x00bb ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0001 | | .CONST 0x0001 ; Number of locals
00bb BODY_00b8:
00bb INIT_00b8:
00bb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; Debug Table 0x9 = .DEBUG 0x00bb,0x02b8,0x0001,0x0000,0x0039,0x3336,0x0000,0x008f
; Debug Table 0x9.0x0 = 0xbb,0x1
00bc 0000 0000 | | .BLANK 0000[0x4]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00cb | | .CONST 0x00cb ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0006 | | .CONST 0x0006 ; Number of locals
00c3 INIT_00c0:
00c3 00e8 | | Load_Encached Character_Cache ; Debug Table 0xa = .DEBUG 0x00c3,0x02bc,0x0001,0x0000,0x0039,0x3336,0x0000,0x0098
; Debug Table 0xa.0x0 = 0xc3,0xffff
00c4 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0xa.0x1 = 0xc4,0xfffe
00c5 00e2 | | Load_Encached Integer_Cache ; Debug Table 0xa.0x2 = 0xc5,0xfffd
00c6 4801 |H | Short_Literal 0x1 ; Debug Table 0xa.0x3 = 0xc6,0xfffc
00c7 492c |I, | Short_Literal 0x12c
00c8 00e9 | | Load_Encached String_Cache
00c9 0334 | 4 | Declare_Variable Array,With_Constraint
00ca 00e2 | | Load_Encached Integer_Cache ; Debug Table 0xa.0x4 = 0xca,0xfffb
00cb BODY_00c0:
00cb 00cf | | Action Mark_Auxiliary
00cc 0007 | | Action Break_Optional ; Debug Table 0xa.0x5 = 0xcc,0x1
00cd 0092 0190 | | Action Push_String_Extended,0x190 ; "switch kind (bool/integer/text): "
; Debug Table 0xa.0x6 = 0xcd,0x2
00cf e002 | | Load 0x0,0x2
00d0 180e | | Execute Package,Field_Execute,Field_Number 0xe
00d1 00e8 | | Load_Encached Character_Cache ; Debug Table 0xa.0x7 = 0xd1,0x3
00d2 e001 | | Load 0x0,0x1
00d3 181f | | Execute Package,Field_Execute,Field_Number 0x1f
00d4 c402 | | Store 0x2,0x2
00d5 e002 | | Load 0x0,0x2 ; Debug Table 0xa.0x8 = 0xd5,0x4
00d6 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00d7 e402 | | Load 0x2,0x2 ; Debug Table 0xa.0x9 = 0xd7,0x5
00d8 0b42 | B | Execute_Immediate Case_Compare,0x42
00d9 7006 |p | Jump_Nonzero 0xe0
00da 0b49 | I | Execute_Immediate Case_Compare,0x49
00db 7006 |p | Jump_Nonzero 0xe2
00dc 0b54 | T | Execute_Immediate Case_Compare,0x54
00dd 7006 |p | Jump_Nonzero 0xe4
00de 820e | | Call 0x1,0xe ; Debug Table 0xa.0xa = 0xde,0x9
00df 7806 |x | Jump 0xe6
00e0 00d1 | | Pop_Control Pop_Count_1 ; Debug Table 0xa.0xb = 0xe0,0x6
00e1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00e2 00d1 | | Pop_Control Pop_Count_1 ; Debug Table 0xa.0xc = 0xe2,0x7
00e3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00e4 00d1 | | Pop_Control Pop_Count_1 ; Debug Table 0xa.0xd = 0xe4,0x8
00e5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00e6 00d1 | | Pop_Control Pop_Count_1
00e7 00c9 | | Action Pop_Auxiliary_Loop
00e8 7fe4 | | Jump 0xcd
00e9 0000 0000 | | .BLANK 0000[0x7]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 0105 | | .CONST 0x0105 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0004 | | .CONST 0x0004 ; Number of locals
00f3 INIT_00f0:
00f3 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0xb = .DEBUG 0x00f3,0x02da,0x0001,0x0000,0x0039,0x3336,0x0000,0x00e9
; Debug Table 0xb.0x0 = 0xf3,0xffff
00f4 820f | | Call 0x1,0xf
00f5 e004 | | Load 0x0,0x4
00f6 180e | | Execute Package,Field_Execute,Field_Number 0xe
00f7 0031 | 1 | Store_Top Heap_Access,At_Offset_1
00f8 e005 | | Load 0x0,0x5 ; Debug Table 0xb.0x1 = 0xf8,0xfffe
00f9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00fa 02c7 | | Declare_Variable Any
00fb 00d8 | | Load_Top At_Offset_0
00fc 1c00 | | Execute_Immediate Run_Utility,0x0
00fd e006 | | Load 0x0,0x6 ; Debug Table 0xb.0x2 = 0xfd,0xfffd
00fe 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ff 02c7 | | Declare_Variable Any
0100 e007 | | Load 0x0,0x7
0101 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0102 e006 | | Load 0x0,0x6
0103 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0104 c404 | | Store 0x2,0x4
0105 BODY_00f0:
0105 00da | | Load_Top At_Offset_2 ; Debug Table 0xb.0x3 = 0x105,0x1
0106 00eb | | Load_Encached Diana_Cache
0107 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0108 680b |h | Jump_Zero 0x114
0109 0092 0191 | | Action Push_String_Extended,0x191 ; "no unit associated with stub"
; Debug Table 0xb.0x4 = 0x109,0x2
010b e008 | | Load 0x0,0x8
010c 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
010d 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xb.0x5 = 0x10d,0x3
010e 4801 |H | Short_Literal 0x1
010f 4800 |H | Short_Literal 0x0
0110 e006 | | Load 0x0,0x6
0111 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0112 c404 | | Store 0x2,0x4
0113 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0114 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xb.0x6 = 0x114,0x4
0115 e002 | | Load 0x0,0x2
0116 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0117 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xb.0x7 = 0x117,0x5
0118 4801 |H | Short_Literal 0x1
0119 4801 |H | Short_Literal 0x1
011a e006 | | Load 0x0,0x6
011b 1818 | | Execute Package,Field_Execute,Field_Number 0x18
011c c404 | | Store 0x2,0x4
011d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
011e 0000 0000 | | .XXX[0x2]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0135 | 5 | .CONST 0x0135 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0004 | | .CONST 0x0004 ; Number of locals
0123 INIT_0120:
0123 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0xc = .DEBUG 0x0123,0x02ec,0x0001,0x0000,0x0039,0x3336,0x0000,0x0138
; Debug Table 0xc.0x0 = 0x123,0xffff
0124 820f | | Call 0x1,0xf
0125 e004 | | Load 0x0,0x4
0126 180e | | Execute Package,Field_Execute,Field_Number 0xe
0127 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0128 e005 | | Load 0x0,0x5 ; Debug Table 0xc.0x1 = 0x128,0xfffe
0129 1b0d | | Execute Package,Field_Read,Field_Number 0xd
012a 02c7 | | Declare_Variable Any
012b 00d8 | | Load_Top At_Offset_0
012c 1c00 | | Execute_Immediate Run_Utility,0x0
012d e006 | | Load 0x0,0x6 ; Debug Table 0xc.0x2 = 0x12d,0xfffd
012e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
012f 02c7 | | Declare_Variable Any
0130 e007 | | Load 0x0,0x7
0131 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0132 e006 | | Load 0x0,0x6
0133 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0134 c404 | | Store 0x2,0x4
0135 BODY_0120:
0135 00da | | Load_Top At_Offset_2 ; Debug Table 0xc.0x3 = 0x135,0x1
0136 00eb | | Load_Encached Diana_Cache
0137 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0138 680b |h | Jump_Zero 0x144
0139 0092 0191 | | Action Push_String_Extended,0x191 ; "no unit associated with stub"
; Debug Table 0xc.0x4 = 0x139,0x2
013b e008 | | Load 0x0,0x8
013c 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
013d 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xc.0x5 = 0x13d,0x3
013e 4801 |H | Short_Literal 0x1
013f 4800 |H | Short_Literal 0x0
0140 e006 | | Load 0x0,0x6
0141 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0142 c404 | | Store 0x2,0x4
0143 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0144 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xc.0x6 = 0x144,0x4
0145 e002 | | Load 0x0,0x2
0146 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0147 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xc.0x7 = 0x147,0x5
0148 4801 |H | Short_Literal 0x1
0149 4801 |H | Short_Literal 0x1
014a e006 | | Load 0x0,0x6
014b 1818 | | Execute Package,Field_Execute,Field_Number 0x18
014c c404 | | Store 0x2,0x4
014d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
014e 0000 0000 | | .XXX[0x2]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0165 | e | .CONST 0x0165 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0004 | | .CONST 0x0004 ; Number of locals
0153 INIT_0150:
0153 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0xd = .DEBUG 0x0153,0x02fe,0x0001,0x0000,0x0039,0x3336,0x0000,0x0187
; Debug Table 0xd.0x0 = 0x153,0xffff
0154 820f | | Call 0x1,0xf
0155 e004 | | Load 0x0,0x4
0156 180e | | Execute Package,Field_Execute,Field_Number 0xe
0157 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0158 e005 | | Load 0x0,0x5 ; Debug Table 0xd.0x1 = 0x158,0xfffe
0159 1b0d | | Execute Package,Field_Read,Field_Number 0xd
015a 02c7 | | Declare_Variable Any
015b 00d8 | | Load_Top At_Offset_0
015c 1c00 | | Execute_Immediate Run_Utility,0x0
015d e006 | | Load 0x0,0x6 ; Debug Table 0xd.0x2 = 0x15d,0xfffd
015e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
015f 02c7 | | Declare_Variable Any
0160 e007 | | Load 0x0,0x7
0161 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0162 e006 | | Load 0x0,0x6
0163 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0164 c404 | | Store 0x2,0x4
0165 BODY_0150:
0165 00da | | Load_Top At_Offset_2 ; Debug Table 0xd.0x3 = 0x165,0x1
0166 00eb | | Load_Encached Diana_Cache
0167 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0168 680b |h | Jump_Zero 0x174
0169 0092 0191 | | Action Push_String_Extended,0x191 ; "no unit associated with stub"
; Debug Table 0xd.0x4 = 0x169,0x2
016b e008 | | Load 0x0,0x8
016c 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
016d 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xd.0x5 = 0x16d,0x3
016e 4801 |H | Short_Literal 0x1
016f 4800 |H | Short_Literal 0x0
0170 e006 | | Load 0x0,0x6
0171 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0172 c404 | | Store 0x2,0x4
0173 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0174 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xd.0x6 = 0x174,0x4
0175 e002 | | Load 0x0,0x2
0176 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0177 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xd.0x7 = 0x177,0x5
0178 4801 |H | Short_Literal 0x1
0179 4801 |H | Short_Literal 0x1
017a e006 | | Load 0x0,0x6
017b 1818 | | Execute Package,Field_Execute,Field_Number 0x18
017c c404 | | Store 0x2,0x4
017d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
017e 0000 0000 | | .XXX[0x2]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183 | | .CONST 0x0183 ; Address of begin
0181 0004 | | .CONST 0x0004 ; Address of exception handler
0182 0001 | | .CONST 0x0001 ; Number of locals
0183 BODY_0180:
0183 INIT_0180:
0183 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; Debug Table 0xe = .DEBUG 0x0183,0x0310,0x0001,0x0000,0x0039,0x3336,0x0000,0x01d6
; Debug Table 0xe.0x0 = 0x183,0x1
0184 0000 0000 | | .LITERAL {0x00000000, 0x00393336}
0188 ; --------------------------------------------------------------------------------------
0188 ; STRING TABLE
0188 ; --------------------------------------------------------------------------------------
0188 0016 | | .STRTAB 0x0016->0x0193 ; "GENERATE"
0189 001c | | .STRTAB 0x001c->0x0197 ; "ATTRIBUTE"
018a 0023 | # | .STRTAB 0x0023->0x019b ; "LOAD"
018b 0025 | % | .STRTAB 0x0025->0x019d ; "EXECUTE"
018c 002a | * | .STRTAB 0x002a->0x01a1 ; "SET_LOADER_SWITCH"
018d 0039 | 9 | .STRTAB 0x0039->0x01a9 ; "SET_CG_SWITCH"
018e 0044 | D | .STRTAB 0x0044->0x01b0 ; "RESET_CG_SWITCH"
018f 0051 | Q | .STRTAB 0x0051->0x01b7 ; "command = "
0190 0059 | Y | .STRTAB 0x0059->0x01bc ; "switch kind (bool/integer/text): "
0191 0078 | x | .STRTAB 0x0078->0x01cd ; "no unit associated with stub"
0192 0092 | | .STREND 0x0092->0x01db
0193 4745 4e45 |GENE| .STRTAB_STRINGS
01db 0000 0000 | | .BLANK 0000[0x5]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; Debug Table
01e0 ; --------------------------------------------------------------------------------------
01e0 0003 000f | | .CONST 0x0003,0x000f
01e2 000b 025a | Z| .DEBUG 0x000b,0x025a,0x8000,0x0000,0x0038,0xc6f6,0x0000,0x0003
01ea 000e 025e | ^| .DEBUG 0x000e,0x025e,0x8000,0x0000,0x0039,0x3336,0x0000,0x0013
01f2 004b 0284 | K | .DEBUG 0x004b,0x0284,0x0001,0x0000,0x0038,0xc6f6,0x0000,0x0004
01fa 0073 02a0 | s | .DEBUG 0x0073,0x02a0,0x0005,0x0000,0x0039,0x3336,0x0000,0x002f
0202 008b 02a2 | | .DEBUG 0x008b,0x02a2,0x0002,0x0000,0x0039,0x3336,0x0000,0x003a
020a 0093 02a6 | | .DEBUG 0x0093,0x02a6,0x0002,0x0000,0x0039,0x3336,0x0000,0x004a
0212 009b 02aa | | .DEBUG 0x009b,0x02aa,0x0001,0x0000,0x0039,0x3336,0x0000,0x0055
021a 00a3 02ae | | .DEBUG 0x00a3,0x02ae,0x0001,0x0000,0x0039,0x3336,0x0000,0x0070
0222 00b3 02b4 | | .DEBUG 0x00b3,0x02b4,0x0001,0x0000,0x0039,0x3336,0x0000,0x0086
022a 00bb 02b8 | | .DEBUG 0x00bb,0x02b8,0x0001,0x0000,0x0039,0x3336,0x0000,0x008f
0232 00c3 02bc | | .DEBUG 0x00c3,0x02bc,0x0001,0x0000,0x0039,0x3336,0x0000,0x0098
023a 00f3 02da | | .DEBUG 0x00f3,0x02da,0x0001,0x0000,0x0039,0x3336,0x0000,0x00e9
0242 0123 02ec | # | .DEBUG 0x0123,0x02ec,0x0001,0x0000,0x0039,0x3336,0x0000,0x0138
024a 0153 02fe | S | .DEBUG 0x0153,0x02fe,0x0001,0x0000,0x0039,0x3336,0x0000,0x0187
0252 0183 0310 | | .DEBUG 0x0183,0x0310,0x0001,0x0000,0x0039,0x3336,0x0000,0x01d6
025a ; --------------------------------------------------------------------------------------
025a ; Debug3 Subtable 0x0
025a ; --------------------------------------------------------------------------------------
025a 0001 0000 | | .DBG3TAB 0x0001,0x0000
025c 000b ffff | | .CONST 0x000b,0xffff
025e ; --------------------------------------------------------------------------------------
025e ; Debug3 Subtable 0x1
025e ; --------------------------------------------------------------------------------------
025e 0012 0000 | | .DBG3TAB 0x0012,0x0000
0260 000e ffff | | .CONST 0x000e,0xffff
0262 000f fffe | | .CONST 0x000f,0xfffe
0264 0010 fffd | | .CONST 0x0010,0xfffd
0266 0013 fffc | | .CONST 0x0013,0xfffc
0268 0016 fffb | | .CONST 0x0016,0xfffb
026a 001b fffa | | .CONST 0x001b,0xfffa
026c 001d fff9 | | .CONST 0x001d,0xfff9
026e 001f fff8 | | .CONST 0x001f,0xfff8
0270 0021 fff7 | ! | .CONST 0x0021,0xfff7
0272 002f fff6 | / | .CONST 0x002f,0xfff6
0274 0031 fff5 | 1 | .CONST 0x0031,0xfff5
0276 0033 fff4 | 3 | .CONST 0x0033,0xfff4
0278 0035 fff3 | 5 | .CONST 0x0035,0xfff3
027a 0037 fff2 | 7 | .CONST 0x0037,0xfff2
027c 0039 fff1 | 9 | .CONST 0x0039,0xfff1
027e 003b fff0 | ; | .CONST 0x003b,0xfff0
0280 003d ffef | = | .CONST 0x003d,0xffef
0282 003f ffee | ? | .CONST 0x003f,0xffee
0284 ; --------------------------------------------------------------------------------------
0284 ; Debug3 Subtable 0x2
0284 ; --------------------------------------------------------------------------------------
0284 0001 000c | | .DBG3TAB 0x0001,0x000c
0286 004b ffff | K | .CONST 0x004b,0xffff
0288 004d 0001 | M | .CONST 0x004d,0x0001
028a 004e 0002 | N | .CONST 0x004e,0x0002
028c 0053 0003 | S | .CONST 0x0053,0x0003
028e 0054 0004 | T | .CONST 0x0054,0x0004
0290 005d 0005 | ] | .CONST 0x005d,0x0005
0292 005f 0006 | _ | .CONST 0x005f,0x0006
0294 0061 0007 | a | .CONST 0x0061,0x0007
0296 0063 0008 | c | .CONST 0x0063,0x0008
0298 0065 0009 | e | .CONST 0x0065,0x0009
029a 0067 000a | g | .CONST 0x0067,0x000a
029c 0069 000b | i | .CONST 0x0069,0x000b
029e 006c 000c | l | .CONST 0x006c,0x000c
02a0 ; --------------------------------------------------------------------------------------
02a0 ; Debug3 Subtable 0x3
02a0 ; --------------------------------------------------------------------------------------
02a0 0000 0000 | | .DBG3TAB 0x0000,0x0000
02a2 ; --------------------------------------------------------------------------------------
02a2 ; Debug3 Subtable 0x4
02a2 ; --------------------------------------------------------------------------------------
02a2 0000 0001 | | .DBG3TAB 0x0000,0x0001
02a4 008b 0001 | | .CONST 0x008b,0x0001
02a6 ; --------------------------------------------------------------------------------------
02a6 ; Debug3 Subtable 0x5
02a6 ; --------------------------------------------------------------------------------------
02a6 0000 0001 | | .DBG3TAB 0x0000,0x0001
02a8 0093 0001 | | .CONST 0x0093,0x0001
02aa ; --------------------------------------------------------------------------------------
02aa ; Debug3 Subtable 0x6
02aa ; --------------------------------------------------------------------------------------
02aa 0000 0001 | | .DBG3TAB 0x0000,0x0001
02ac 009b 0001 | | .CONST 0x009b,0x0001
02ae ; --------------------------------------------------------------------------------------
02ae ; Debug3 Subtable 0x7
02ae ; --------------------------------------------------------------------------------------
02ae 0000 0002 | | .DBG3TAB 0x0000,0x0002
02b0 00a3 0001 | | .CONST 0x00a3,0x0001
02b2 00a6 0002 | | .CONST 0x00a6,0x0002
02b4 ; --------------------------------------------------------------------------------------
02b4 ; Debug3 Subtable 0x8
02b4 ; --------------------------------------------------------------------------------------
02b4 0000 0001 | | .DBG3TAB 0x0000,0x0001
02b6 00b3 0001 | | .CONST 0x00b3,0x0001
02b8 ; --------------------------------------------------------------------------------------
02b8 ; Debug3 Subtable 0x9
02b8 ; --------------------------------------------------------------------------------------
02b8 0000 0001 | | .DBG3TAB 0x0000,0x0001
02ba 00bb 0001 | | .CONST 0x00bb,0x0001
02bc ; --------------------------------------------------------------------------------------
02bc ; Debug3 Subtable 0xa
02bc ; --------------------------------------------------------------------------------------
02bc 0005 0009 | | .DBG3TAB 0x0005,0x0009
02be 00c3 ffff | | .CONST 0x00c3,0xffff
02c0 00c4 fffe | | .CONST 0x00c4,0xfffe
02c2 00c5 fffd | | .CONST 0x00c5,0xfffd
02c4 00c6 fffc | | .CONST 0x00c6,0xfffc
02c6 00ca fffb | | .CONST 0x00ca,0xfffb
02c8 00cc 0001 | | .CONST 0x00cc,0x0001
02ca 00cd 0002 | | .CONST 0x00cd,0x0002
02cc 00d1 0003 | | .CONST 0x00d1,0x0003
02ce 00d5 0004 | | .CONST 0x00d5,0x0004
02d0 00d7 0005 | | .CONST 0x00d7,0x0005
02d2 00de 0009 | | .CONST 0x00de,0x0009
02d4 00e0 0006 | | .CONST 0x00e0,0x0006
02d6 00e2 0007 | | .CONST 0x00e2,0x0007
02d8 00e4 0008 | | .CONST 0x00e4,0x0008
02da ; --------------------------------------------------------------------------------------
02da ; Debug3 Subtable 0xb
02da ; --------------------------------------------------------------------------------------
02da 0003 0005 | | .DBG3TAB 0x0003,0x0005
02dc 00f3 ffff | | .CONST 0x00f3,0xffff
02de 00f8 fffe | | .CONST 0x00f8,0xfffe
02e0 00fd fffd | | .CONST 0x00fd,0xfffd
02e2 0105 0001 | | .CONST 0x0105,0x0001
02e4 0109 0002 | | .CONST 0x0109,0x0002
02e6 010d 0003 | | .CONST 0x010d,0x0003
02e8 0114 0004 | | .CONST 0x0114,0x0004
02ea 0117 0005 | | .CONST 0x0117,0x0005
02ec ; --------------------------------------------------------------------------------------
02ec ; Debug3 Subtable 0xc
02ec ; --------------------------------------------------------------------------------------
02ec 0003 0005 | | .DBG3TAB 0x0003,0x0005
02ee 0123 ffff | # | .CONST 0x0123,0xffff
02f0 0128 fffe | ( | .CONST 0x0128,0xfffe
02f2 012d fffd | - | .CONST 0x012d,0xfffd
02f4 0135 0001 | 5 | .CONST 0x0135,0x0001
02f6 0139 0002 | 9 | .CONST 0x0139,0x0002
02f8 013d 0003 | = | .CONST 0x013d,0x0003
02fa 0144 0004 | D | .CONST 0x0144,0x0004
02fc 0147 0005 | G | .CONST 0x0147,0x0005
02fe ; --------------------------------------------------------------------------------------
02fe ; Debug3 Subtable 0xd
02fe ; --------------------------------------------------------------------------------------
02fe 0003 0005 | | .DBG3TAB 0x0003,0x0005
0300 0153 ffff | S | .CONST 0x0153,0xffff
0302 0158 fffe | X | .CONST 0x0158,0xfffe
0304 015d fffd | ] | .CONST 0x015d,0xfffd
0306 0165 0001 | e | .CONST 0x0165,0x0001
0308 0169 0002 | i | .CONST 0x0169,0x0002
030a 016d 0003 | m | .CONST 0x016d,0x0003
030c 0174 0004 | t | .CONST 0x0174,0x0004
030e 0177 0005 | w | .CONST 0x0177,0x0005
0310 ; --------------------------------------------------------------------------------------
0310 ; Debug3 Subtable 0xe
0310 ; --------------------------------------------------------------------------------------
0310 0000 0001 | | .DBG3TAB 0x0000,0x0001
0312 0183 0001 | | .CONST 0x0183,0x0001
0314 0000 0000 | | .BLANK 0000[0xec]