|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 2048 (0x800)
Notes: 00_class, 5813_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 5813 |X | .CONST 0x5813 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 01a8 | | .CONST 0x01a8 ; 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 0049 | I | .CONST 0x0049 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0019 | | .CONST 0x0019 ; Number of locals
000b INIT_0008:
000b 4802 |H | Short_Literal 0x2 ; Debug Table 0x0 = .DEBUG 0x000b,0x0202,0x8000,0x0000,0x005a,0x6505,0x0000,0x0009
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 032b | + | Declare_Type Record,Incomplete,Visible
000d 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x1 = 0xd,0xfffe
000e 02a0 | | Declare_Subprogram Null_Subprogram
000f 03ae | | Declare_Type Heap_Access,Defined,Visible
0010 0007 | | Action Break_Optional ; Debug Table 0x0.0x2 = 0x10,0xfffd
0011 029a 0053 | S| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0050 ; Debug Table 0x0.0x3 = 0x11,0xfffc
0013 029a 008b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0088 ; Debug Table 0x0.0x4 = 0x13,0xfffb
0015 029a 00fb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00f8 ; Debug Table 0x0.0x5 = 0x15,0xfffa
0017 029a 0113 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0110 ; Debug Table 0x0.0x6 = 0x17,0xfff9
0019 029a 011b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0118 ; Debug Table 0x0.0x7 = 0x19,0xfff8
001b 0007 | | Action Break_Optional ; Debug Table 0x0.0x8 = 0x1b,0xfff7
001c 0007 | | Action Break_Optional ; Debug Table 0x0.0x9 = 0x1c,0xfff6
001d 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0xa = 0x1d,0xfff5
001e 6181 |a | Indirect_Literal Discrete,0x1a0,{0x00000000, 0x00002ab6}
001f e001 | | Load 0x0,0x1
0020 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0021 02a0 | | Declare_Subprogram Null_Subprogram
0022 4801 |H | Short_Literal 0x1
0023 035d | ] | Declare_Type Array,Defined
0024 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x0.0xb = 0x24,0xfff4
0025 00d9 | | Load_Top At_Offset_1
0026 029f 0133 | 3| Declare_Subprogram For_Call,INIT_0130
0028 e20d | | Load 0x1,0xd
0029 0326 | & | Complete_Type Record,By_Defining
002a 00bf | | Action Accept_Activation
002b 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x002b,0x021c,0x8000,0x0000,0x005a,0x6515,0x0000,0x000d
; Debug Table 0x1.0x0 = 0x2b,0xffff
002c e002 | | Load 0x0,0x2 ; Debug Table 0x1.0x1 = 0x2c,0xfffe
002d 190d | | Execute Package,Field_Reference,Field_Number 0xd
002e 0007 | | Action Break_Optional
002f e002 | | Load 0x0,0x2 ; Debug Table 0x1.0x2 = 0x2f,0xfffd
0030 1912 | | Execute Package,Field_Reference,Field_Number 0x12
0031 0007 | | Action Break_Optional
0032 029d 014b | K| Declare_Subprogram For_Outer_Call,INIT_0148 ; Debug Table 0x1.0x3 = 0x32,0xfffc
0034 029d 015b | [| Declare_Subprogram For_Outer_Call,INIT_0158 ; Debug Table 0x1.0x4 = 0x34,0xfffb
0036 6165 |ae | Indirect_Literal Discrete,0x19c,{0x00000000, 0x005a6515} ; Debug Table 0x1.0x5 = 0x36,0xfffa
0037 48d4 |H | Short_Literal 0xd4
0038 e20d | | Load 0x1,0xd
0039 e20e | | Load 0x1,0xe
003a e003 | | Load 0x0,0x3
003b 1b18 | | Execute Package,Field_Read,Field_Number 0x18
003c 0387 | | Declare_Variable Package
003d 00d8 | | Load_Top At_Offset_0
003e 020f | | Execute Module,Activate
003f 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x6 = 0x3f,0xfff9
0040 00c7 | | Action Elaborate_Subprogram
0041 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x7 = 0x41,0xfff8
0042 00c7 | | Action Elaborate_Subprogram
0043 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x8 = 0x43,0xfff7
0044 00c7 | | Action Elaborate_Subprogram
0045 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0x9 = 0x45,0xfff6
0046 00c7 | | Action Elaborate_Subprogram
0047 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0xa = 0x47,0xfff5
0048 00c7 | | Action Elaborate_Subprogram
0049 BODY_0008:
0049 00bc | | Action Signal_Activated
004a 00bb | | Action Signal_Completion
004b 0000 0000 | | .BLANK 0000[0x5]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0059 | Y | .CONST 0x0059 ; Address of begin
0051 007a | z | .CONST 0x007a ; Address of exception handler
0052 0003 | | .CONST 0x0003 ; Number of locals
0053 INIT_0050:
0053 e001 | | Load 0x0,0x1 ; Debug Table 0x2 = .DEBUG 0x0053,0x0234,0x0001,0x0000,0x005a,0x6505,0x0000,0x0018
; Debug Table 0x2.0x0 = 0x53,0xffff
0054 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0055 00db | | Load_Top At_Offset_3 ; Debug Table 0x2.0x1 = 0x55,0xfffe
0056 8218 | | Call 0x1,0x18
0057 00e3 | | Load_Encached Natural_Cache
0058 03f1 | | Declare_Variable Discrete,With_Value
0059 BODY_0050:
0059 487e |H~ | Short_Literal 0x7e ; Debug Table 0x2.0x2 = 0x59,0x1
005a a5fc | | Store_Unchecked 0x2,-0x4
005b e5fd | | Load 0x2,-0x3 ; Debug Table 0x2.0x3 = 0x5b,0x2
005c e219 | | Load 0x1,0x19
005d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
005e e5ff | | Load 0x2,-0x1
005f e002 | | Load 0x0,0x2
0060 180f | | Execute Package,Field_Execute,Field_Number 0xf
0061 e5fe | | Load 0x2,-0x2
0062 00db | | Load_Top At_Offset_3
0063 e5fd | | Load 0x2,-0x3
0064 0217 | | Execute Heap_Access,All_Reference
0065 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0066 01d7 | | Execute Vector,Field_Read
0067 e002 | | Load 0x0,0x2
0068 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0069 0032 | 2 | Store_Top Heap_Access,At_Offset_2
006a 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x2.0x4 = 0x6a,0x3
006b 00d9 | | Load_Top At_Offset_1
006c e5fd | | Load 0x2,-0x3
006d 0217 | | Execute Heap_Access,All_Reference
006e 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
006f 01d6 | | Execute Vector,Field_Write
0070 e5fd | | Load 0x2,-0x3 ; Debug Table 0x2.0x5 = 0x70,0x4
0071 0217 | | Execute Heap_Access,All_Reference
0072 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0073 0a01 | | Execute_Immediate Plus,0x1
0074 e5fd | | Load 0x2,-0x3
0075 0217 | | Execute Heap_Access,All_Reference
0076 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0077 4800 |H | Short_Literal 0x0 ; Debug Table 0x2.0x6 = 0x77,0x5
0078 a5fc | | Store_Unchecked 0x2,-0x4
0079 4504 |E | Exit_Subprogram 0x4
007a TRAP_0050:
007a 4885 |H | Short_Literal 0x85
007b 010f | | Execute Exception,Equal
007c 6803 |h | Jump_Zero 0x80
007d 4811 |H | Short_Literal 0x11 ; Debug Table 0x2.0x7 = 0x7d,0x6
007e a5fc | | Store_Unchecked 0x2,-0x4
007f 4504 |E | Exit_Subprogram 0x4
0080 0100 | | Execute Exception,Raise
0081 0000 0000 | | .BLANK 0000[0x7]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 0097 | | .CONST 0x0097 ; Address of begin
0089 00e6 | | .CONST 0x00e6 ; Address of exception handler
008a 0004 | | .CONST 0x0004 ; Number of locals
008b INIT_0088:
008b e004 | | Load 0x0,0x4 ; Debug Table 0x3 = .DEBUG 0x008b,0x0246,0x0001,0x0000,0x005a,0x6505,0x0000,0x002e
; Debug Table 0x3.0x0 = 0x8b,0xffff
008c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
008d 067e | ~ | Execute_Immediate Set_Value_Unchecked,0x7e
008e 00db | | Load_Top At_Offset_3 ; Debug Table 0x3.0x1 = 0x8e,0xfffe
008f 8218 | | Call 0x1,0x18
0090 e5fd | | Load 0x2,-0x3
0091 0217 | | Execute Heap_Access,All_Reference
0092 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0093 01d5 | | Execute Vector,Field_Reference
0094 0007 | | Action Break_Optional
0095 e001 | | Load 0x0,0x1 ; Debug Table 0x3.0x2 = 0x95,0xfffd
0096 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0097 BODY_0088:
0097 487e |H~ | Short_Literal 0x7e ; Debug Table 0x3.0x3 = 0x97,0x1
0098 a5fc | | Store_Unchecked 0x2,-0x4
0099 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0x4 = 0x99,0x2
009a 7005 |p | Jump_Nonzero 0xa0
009b 4812 |H | Short_Literal 0x12 ; Debug Table 0x3.0x5 = 0x9b,0x3
009c 0053 | S | Store_Top_Unchecked Discrete,At_Offset_3
009d e004 | | Load 0x0,0x4 ; Debug Table 0x3.0x6 = 0x9d,0x4
009e 1b16 | | Execute Package,Field_Read,Field_Number 0x16
009f 0257 | W | Execute Discrete,Raise
00a0 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0x7 = 0xa0,0x5
00a1 00da | | Load_Top At_Offset_2
00a2 0217 | | Execute Heap_Access,All_Reference
00a3 e5fe | | Load 0x2,-0x2
00a4 e5ff | | Load 0x2,-0x1
00a5 8215 | | Call 0x1,0x15
00a6 680c |h | Jump_Zero 0xb3
00a7 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0x8 = 0xa7,0x6
00a8 0217 | | Execute Heap_Access,All_Reference
00a9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00aa a403 | | Store_Unchecked 0x2,0x3
00ab e5fd | | Load 0x2,-0x3 ; Debug Table 0x3.0x9 = 0xab,0x7
00ac 0217 | | Execute Heap_Access,All_Reference
00ad 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00ae 0aff | | Execute_Immediate Plus,-0x1
00af e5fd | | Load 0x2,-0x3
00b0 0217 | | Execute Heap_Access,All_Reference
00b1 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00b2 7830 |x0 | Jump 0xe3
00b3 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0xa = 0xb3,0x8
00b4 0031 | 1 | Store_Top Heap_Access,At_Offset_1
00b5 00cf | | Action Mark_Auxiliary
00b6 7805 |x | Jump 0xbc
00b7 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0xb = 0xb7,0xa
00b8 0217 | | Execute Heap_Access,All_Reference
00b9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00ba 0032 | 2 | Store_Top Heap_Access,At_Offset_2
00bb 00c9 | | Action Pop_Auxiliary_Loop
00bc 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0xc = 0xbc,0x9
00bd 0217 | | Execute Heap_Access,All_Reference
00be 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00bf 6809 |h | Jump_Zero 0xc9
00c0 4800 |H | Short_Literal 0x0
00c1 00da | | Load_Top At_Offset_2
00c2 0217 | | Execute Heap_Access,All_Reference
00c3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00c4 0217 | | Execute Heap_Access,All_Reference
00c5 e5fe | | Load 0x2,-0x2
00c6 e5ff | | Load 0x2,-0x1
00c7 8215 | | Call 0x1,0x15
00c8 6fee |o | Jump_Zero 0xb7
00c9 00ce | | Action Pop_Auxiliary
00ca 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0xd = 0xca,0xb
00cb 0217 | | Execute Heap_Access,All_Reference
00cc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00cd 6810 |h | Jump_Zero 0xde
00ce 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0xe = 0xce,0xc
00cf 0217 | | Execute Heap_Access,All_Reference
00d0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00d1 0217 | | Execute Heap_Access,All_Reference
00d2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00d3 00d9 | | Load_Top At_Offset_1
00d4 0217 | | Execute Heap_Access,All_Reference
00d5 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00d6 e5fd | | Load 0x2,-0x3 ; Debug Table 0x3.0xf = 0xd6,0xd
00d7 0217 | | Execute Heap_Access,All_Reference
00d8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00d9 0aff | | Execute_Immediate Plus,-0x1
00da e5fd | | Load 0x2,-0x3
00db 0217 | | Execute Heap_Access,All_Reference
00dc 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00dd 7805 |x | Jump 0xe3
00de 4812 |H | Short_Literal 0x12 ; Debug Table 0x3.0x10 = 0xde,0xe
00df 0053 | S | Store_Top_Unchecked Discrete,At_Offset_3
00e0 e004 | | Load 0x0,0x4 ; Debug Table 0x3.0x11 = 0xe0,0xf
00e1 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00e2 0257 | W | Execute Discrete,Raise
00e3 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0x12 = 0xe3,0x10
00e4 a5fc | | Store_Unchecked 0x2,-0x4
00e5 4504 |E | Exit_Subprogram 0x4
00e6 TRAP_0088:
00e6 e004 | | Load 0x0,0x4
00e7 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00e8 010f | | Execute Exception,Equal
00e9 6803 |h | Jump_Zero 0xed
00ea 00db | | Load_Top At_Offset_3 ; Debug Table 0x3.0x13 = 0xea,0x11
00eb a5fc | | Store_Unchecked 0x2,-0x4
00ec 4504 |E | Exit_Subprogram 0x4
00ed 4885 |H | Short_Literal 0x85
00ee 010f | | Execute Exception,Equal
00ef 6803 |h | Jump_Zero 0xf3
00f0 4811 |H | Short_Literal 0x11 ; Debug Table 0x3.0x14 = 0xf0,0x12
00f1 a5fc | | Store_Unchecked 0x2,-0x4
00f2 4504 |E | Exit_Subprogram 0x4
00f3 487d |H} | Short_Literal 0x7d ; Debug Table 0x3.0x15 = 0xf3,0x13
00f4 a5fc | | Store_Unchecked 0x2,-0x4
00f5 4504 |E | Exit_Subprogram 0x4
00f6 0000 0000 | | .XXX[0x2]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb | | .CONST 0x00fb ; Address of begin
00f9 010a | | .CONST 0x010a ; Address of exception handler
00fa 0001 | | .CONST 0x0001 ; Number of locals
00fb BODY_00f8:
00fb INIT_00f8:
00fb 487e |H~ | Short_Literal 0x7e ; Debug Table 0x4 = .DEBUG 0x00fb,0x0274,0x0001,0x0000,0x005a,0x6505,0x0000,0x0044
; Debug Table 0x4.0x0 = 0xfb,0x1
00fc a5fc | | Store_Unchecked 0x2,-0x4
00fd e001 | | Load 0x0,0x1 ; Debug Table 0x4.0x1 = 0xfd,0x2
00fe 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00ff a5fd | | Store_Unchecked 0x2,-0x3
0100 00da | | Load_Top At_Offset_2 ; Debug Table 0x4.0x2 = 0x100,0x3
0101 8218 | | Call 0x1,0x18
0102 e5fe | | Load 0x2,-0x2
0103 0217 | | Execute Heap_Access,All_Reference
0104 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0105 01d7 | | Execute Vector,Field_Read
0106 a5fd | | Store_Unchecked 0x2,-0x3
0107 4800 |H | Short_Literal 0x0 ; Debug Table 0x4.0x3 = 0x107,0x4
0108 a5fc | | Store_Unchecked 0x2,-0x4
0109 4503 |E | Exit_Subprogram 0x3
010a TRAP_00f8:
010a 0007 | | Action Break_Optional
010b 487d |H} | Short_Literal 0x7d ; Debug Table 0x4.0x4 = 0x10b,0x5
010c a5fc | | Store_Unchecked 0x2,-0x4
010d 4503 |E | Exit_Subprogram 0x3
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 0x5 = .DEBUG 0x0113,0x0280,0x0002,0x0000,0x005a,0x6505,0x0000,0x005c
; Debug Table 0x5.0x0 = 0x113,0x1
0114 0217 | | Execute Heap_Access,All_Reference
0115 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0116 4401 |D | Exit_Subprogram With_Result,0x1
0117 0000 | | .XXX[0x1]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011d | | .CONST 0x011d ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0002 | | .CONST 0x0002 ; Number of locals
011b INIT_0118:
011b 029f 018b | | Declare_Subprogram For_Call,INIT_0188 ; Debug Table 0x6 = .DEBUG 0x011b,0x0284,0x2801,0x0002,0x005a,0x6505,0x0000,0x0065
; Debug Table 0x6.0x0 = 0x11b,0xffff
011d BODY_0118:
011d 487e |H~ | Short_Literal 0x7e ; Debug Table 0x6.0x1 = 0x11d,0x1
011e a5fc | | Store_Unchecked 0x2,-0x4
011f 00cf | | Action Mark_Auxiliary
0120 e214 | | Load 0x1,0x14 ; Debug Table 0x6.0x2 = 0x120,0x2
0121 01d9 | | Execute Vector,Reverse_Bounds
0122 0007 | | Action Break_Optional
0123 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x3 = 0x123,0x3
0124 e5fd | | Load 0x2,-0x3
0125 0217 | | Execute Heap_Access,All_Reference
0126 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0127 01d7 | | Execute Vector,Field_Read
0128 8402 | | Call 0x2,0x2
0129 00c8 | | Action Pop_Auxiliary_Range
012a 3ff8 |? | Loop_Increasing 0x123
012b 00ce | | Action Pop_Auxiliary
012c 4800 |H | Short_Literal 0x0 ; Debug Table 0x6.0x4 = 0x12c,0x4
012d a5fc | | Store_Unchecked 0x2,-0x4
012e 4504 |E | Exit_Subprogram 0x4
012f 0000 | | .XXX[0x1]
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 4608 |F | Jump_Case 0x8 ; Debug Table 0x7 = .DEBUG 0x0133,0x0290,0x0005,0x0000,0x005a,0x6505,0x0000,0x00a7
0134 7808 |x | Jump 0x13d ; case 0x0
0135 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x1
0136 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x2
0137 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x3
0138 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x4
0139 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x5
013a 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x6
013b 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x7
013c 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x8
013d 4800 |H | Short_Literal 0x0
013e 00db | | Load_Top At_Offset_3
013f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0140 4302 |C | Exit_Subprogram From_Utility,0x2
0141 0000 0000 | | .BLANK 0000[0x7]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014d | M | .CONST 0x014d ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0001 | | .CONST 0x0001 ; Number of locals
014b INIT_0148:
014b 0007 | | Action Break_Optional ; Debug Table 0x8 = .DEBUG 0x014b,0x0292,0x0002,0x0000,0x005a,0x6515,0x0000,0x0046
; Debug Table 0x8.0x0 = 0x14b,0xffff
014c 0007 | | Action Break_Optional ; Debug Table 0x8.0x1 = 0x14c,0xfffe
014d BODY_0148:
014d 00da | | Load_Top At_Offset_2 ; Debug Table 0x8.0x2 = 0x14d,0x1
014e 0d11 | | Execute_Immediate Less,0x11
014f 6805 |h | Jump_Zero 0x155
0150 00da | | Load_Top At_Offset_2 ; Debug Table 0x8.0x3 = 0x150,0x2
0151 0afe | | Execute_Immediate Plus,-0x2
0152 00e3 | | Load_Encached Natural_Cache
0153 025b | [ | Execute Discrete,Check_In_Type
0154 4401 |D | Exit_Subprogram With_Result,0x1
0155 480e |H | Short_Literal 0xe ; Debug Table 0x8.0x4 = 0x155,0x3
0156 4401 |D | Exit_Subprogram With_Result,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 0x9 = .DEBUG 0x015b,0x029e,0x0002,0x0000,0x005a,0x6515,0x0000,0x0079
; Debug Table 0x9.0x0 = 0x15b,0x1
015c 01db | | Execute Vector,Length
015d 0c02 | | Execute_Immediate Greater_Equal,0x2
015e 681c |h | Jump_Zero 0x17b
015f 00da | | Load_Top At_Offset_2 ; Debug Table 0x9.0x1 = 0x15f,0x2
0160 01dd | | Execute Vector,First
0161 00db | | Load_Top At_Offset_3
0162 01d7 | | Execute Vector,Field_Read
0163 8216 | | Call 0x1,0x16
0164 481b |H | Short_Literal 0x1b
0165 0271 | q | Execute Discrete,Times
0166 0248 | H | Execute Discrete,Check_In_Integer
0167 00db | | Load_Top At_Offset_3
0168 01dd | | Execute Vector,First
0169 0a01 | | Execute_Immediate Plus,0x1
016a 0248 | H | Execute Discrete,Check_In_Integer
016b e5ff | | Load 0x2,-0x1
016c 01d7 | | Execute Vector,Field_Read
016d 8216 | | Call 0x1,0x16
016e 0273 | s | Execute Discrete,Plus
016f 480f |H | Short_Literal 0xf
0170 0271 | q | Execute Discrete,Times
0171 0248 | H | Execute Discrete,Check_In_Integer
0172 00db | | Load_Top At_Offset_3
0173 01db | | Execute Vector,Length
0174 00e3 | | Load_Encached Natural_Cache
0175 025b | [ | Execute Discrete,Check_In_Type
0176 8217 | | Call 0x1,0x17
0177 0273 | s | Execute Discrete,Plus
0178 00e3 | | Load_Encached Natural_Cache
0179 025b | [ | Execute Discrete,Check_In_Type
017a 4401 |D | Exit_Subprogram With_Result,0x1
017b 00da | | Load_Top At_Offset_2 ; Debug Table 0x9.0x2 = 0x17b,0x3
017c 01dd | | Execute Vector,First
017d 00db | | Load_Top At_Offset_3
017e 01d7 | | Execute Vector,Field_Read
017f 8216 | | Call 0x1,0x16
0180 481b |H | Short_Literal 0x1b
0181 0271 | q | Execute Discrete,Times
0182 0248 | H | Execute Discrete,Check_In_Integer
0183 480f |H | Short_Literal 0xf
0184 0271 | q | Execute Discrete,Times
0185 00e3 | | Load_Encached Natural_Cache
0186 025b | [ | Execute Discrete,Check_In_Type
0187 4401 |D | Exit_Subprogram With_Result,0x1
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018f | | .CONST 0x018f ; Address of begin
0189 0004 | | .CONST 0x0004 ; Address of exception handler
018a 0002 | | .CONST 0x0002 ; Number of locals
018b INIT_0188:
018b e001 | | Load 0x0,0x1 ; Debug Table 0xa = .DEBUG 0x018b,0x02a6,0x0801,0x0002,0x005a,0x6515,0x0000,0x028f
; Debug Table 0xa.0x0 = 0x18b,0xffff
018c 1b13 | | Execute Package,Field_Read,Field_Number 0x13
018d 00db | | Load_Top At_Offset_3
018e 0031 | 1 | Store_Top Heap_Access,At_Offset_1
018f BODY_0188:
018f 00cf | | Action Mark_Auxiliary
0190 7808 |x | Jump 0x199
0191 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xa.0x1 = 0x191,0x2
0192 0217 | | Execute Heap_Access,All_Reference
0193 85fe | | Call 0x2,-0x2
0194 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xa.0x2 = 0x194,0x3
0195 0217 | | Execute Heap_Access,All_Reference
0196 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0197 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0198 00c9 | | Action Pop_Auxiliary_Loop
0199 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xa.0x3 = 0x199,0x1
019a 77f6 |w | Jump_Nonzero 0x191
019b 4502 |E | Exit_Subprogram 0x2
019c 0000 0000 | | .LITERAL {0x00000000, 0x005a6515}
01a0 0000 0000 | | .LITERAL {0x00000000, 0x00002ab6}
01a4 0000 0000 | | .BLANK 0000[0x4]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; Debug Table
01a8 ; --------------------------------------------------------------------------------------
01a8 0003 000b | | .CONST 0x0003,0x000b
01aa 000b 0202 | | .DEBUG 0x000b,0x0202,0x8000,0x0000,0x005a,0x6505,0x0000,0x0009
01b2 002b 021c | + | .DEBUG 0x002b,0x021c,0x8000,0x0000,0x005a,0x6515,0x0000,0x000d
01ba 0053 0234 | S 4| .DEBUG 0x0053,0x0234,0x0001,0x0000,0x005a,0x6505,0x0000,0x0018
01c2 008b 0246 | F| .DEBUG 0x008b,0x0246,0x0001,0x0000,0x005a,0x6505,0x0000,0x002e
01ca 00fb 0274 | t| .DEBUG 0x00fb,0x0274,0x0001,0x0000,0x005a,0x6505,0x0000,0x0044
01d2 0113 0280 | | .DEBUG 0x0113,0x0280,0x0002,0x0000,0x005a,0x6505,0x0000,0x005c
01da 011b 0284 | | .DEBUG 0x011b,0x0284,0x2801,0x0002,0x005a,0x6505,0x0000,0x0065
01e2 0133 0290 | 3 | .DEBUG 0x0133,0x0290,0x0005,0x0000,0x005a,0x6505,0x0000,0x00a7
01ea 014b 0292 | K | .DEBUG 0x014b,0x0292,0x0002,0x0000,0x005a,0x6515,0x0000,0x0046
01f2 015b 029e | [ | .DEBUG 0x015b,0x029e,0x0002,0x0000,0x005a,0x6515,0x0000,0x0079
01fa 018b 02a6 | | .DEBUG 0x018b,0x02a6,0x0801,0x0002,0x005a,0x6515,0x0000,0x028f
0202 ; --------------------------------------------------------------------------------------
0202 ; Debug3 Subtable 0x0
0202 ; --------------------------------------------------------------------------------------
0202 000c 0000 | | .DBG3TAB 0x000c,0x0000
0204 000b ffff | | .CONST 0x000b,0xffff
0206 000d fffe | | .CONST 0x000d,0xfffe
0208 0010 fffd | | .CONST 0x0010,0xfffd
020a 0011 fffc | | .CONST 0x0011,0xfffc
020c 0013 fffb | | .CONST 0x0013,0xfffb
020e 0015 fffa | | .CONST 0x0015,0xfffa
0210 0017 fff9 | | .CONST 0x0017,0xfff9
0212 0019 fff8 | | .CONST 0x0019,0xfff8
0214 001b fff7 | | .CONST 0x001b,0xfff7
0216 001c fff6 | | .CONST 0x001c,0xfff6
0218 001d fff5 | | .CONST 0x001d,0xfff5
021a 0024 fff4 | $ | .CONST 0x0024,0xfff4
021c ; --------------------------------------------------------------------------------------
021c ; Debug3 Subtable 0x1
021c ; --------------------------------------------------------------------------------------
021c 000b 0000 | | .DBG3TAB 0x000b,0x0000
021e 002b ffff | + | .CONST 0x002b,0xffff
0220 002c fffe | , | .CONST 0x002c,0xfffe
0222 002f fffd | / | .CONST 0x002f,0xfffd
0224 0032 fffc | 2 | .CONST 0x0032,0xfffc
0226 0034 fffb | 4 | .CONST 0x0034,0xfffb
0228 0036 fffa | 6 | .CONST 0x0036,0xfffa
022a 003f fff9 | ? | .CONST 0x003f,0xfff9
022c 0041 fff8 | A | .CONST 0x0041,0xfff8
022e 0043 fff7 | C | .CONST 0x0043,0xfff7
0230 0045 fff6 | E | .CONST 0x0045,0xfff6
0232 0047 fff5 | G | .CONST 0x0047,0xfff5
0234 ; --------------------------------------------------------------------------------------
0234 ; Debug3 Subtable 0x2
0234 ; --------------------------------------------------------------------------------------
0234 0002 0006 | | .DBG3TAB 0x0002,0x0006
0236 0053 ffff | S | .CONST 0x0053,0xffff
0238 0055 fffe | U | .CONST 0x0055,0xfffe
023a 0059 0001 | Y | .CONST 0x0059,0x0001
023c 005b 0002 | [ | .CONST 0x005b,0x0002
023e 006a 0003 | j | .CONST 0x006a,0x0003
0240 0070 0004 | p | .CONST 0x0070,0x0004
0242 0077 0005 | w | .CONST 0x0077,0x0005
0244 007d 0006 | } | .CONST 0x007d,0x0006
0246 ; --------------------------------------------------------------------------------------
0246 ; Debug3 Subtable 0x3
0246 ; --------------------------------------------------------------------------------------
0246 0003 0013 | | .DBG3TAB 0x0003,0x0013
0248 008b ffff | | .CONST 0x008b,0xffff
024a 008e fffe | | .CONST 0x008e,0xfffe
024c 0095 fffd | | .CONST 0x0095,0xfffd
024e 0097 0001 | | .CONST 0x0097,0x0001
0250 0099 0002 | | .CONST 0x0099,0x0002
0252 009b 0003 | | .CONST 0x009b,0x0003
0254 009d 0004 | | .CONST 0x009d,0x0004
0256 00a0 0005 | | .CONST 0x00a0,0x0005
0258 00a7 0006 | | .CONST 0x00a7,0x0006
025a 00ab 0007 | | .CONST 0x00ab,0x0007
025c 00b3 0008 | | .CONST 0x00b3,0x0008
025e 00b7 000a | | .CONST 0x00b7,0x000a
0260 00bc 0009 | | .CONST 0x00bc,0x0009
0262 00ca 000b | | .CONST 0x00ca,0x000b
0264 00ce 000c | | .CONST 0x00ce,0x000c
0266 00d6 000d | | .CONST 0x00d6,0x000d
0268 00de 000e | | .CONST 0x00de,0x000e
026a 00e0 000f | | .CONST 0x00e0,0x000f
026c 00e3 0010 | | .CONST 0x00e3,0x0010
026e 00ea 0011 | | .CONST 0x00ea,0x0011
0270 00f0 0012 | | .CONST 0x00f0,0x0012
0272 00f3 0013 | | .CONST 0x00f3,0x0013
0274 ; --------------------------------------------------------------------------------------
0274 ; Debug3 Subtable 0x4
0274 ; --------------------------------------------------------------------------------------
0274 0000 0005 | | .DBG3TAB 0x0000,0x0005
0276 00fb 0001 | | .CONST 0x00fb,0x0001
0278 00fd 0002 | | .CONST 0x00fd,0x0002
027a 0100 0003 | | .CONST 0x0100,0x0003
027c 0107 0004 | | .CONST 0x0107,0x0004
027e 010b 0005 | | .CONST 0x010b,0x0005
0280 ; --------------------------------------------------------------------------------------
0280 ; Debug3 Subtable 0x5
0280 ; --------------------------------------------------------------------------------------
0280 0000 0001 | | .DBG3TAB 0x0000,0x0001
0282 0113 0001 | | .CONST 0x0113,0x0001
0284 ; --------------------------------------------------------------------------------------
0284 ; Debug3 Subtable 0x6
0284 ; --------------------------------------------------------------------------------------
0284 0001 0004 | | .DBG3TAB 0x0001,0x0004
0286 011b ffff | | .CONST 0x011b,0xffff
0288 011d 0001 | | .CONST 0x011d,0x0001
028a 0120 0002 | | .CONST 0x0120,0x0002
028c 0123 0003 | # | .CONST 0x0123,0x0003
028e 012c 0004 | , | .CONST 0x012c,0x0004
0290 ; --------------------------------------------------------------------------------------
0290 ; Debug3 Subtable 0x7
0290 ; --------------------------------------------------------------------------------------
0290 0000 0000 | | .DBG3TAB 0x0000,0x0000
0292 ; --------------------------------------------------------------------------------------
0292 ; Debug3 Subtable 0x8
0292 ; --------------------------------------------------------------------------------------
0292 0002 0003 | | .DBG3TAB 0x0002,0x0003
0294 014b ffff | K | .CONST 0x014b,0xffff
0296 014c fffe | L | .CONST 0x014c,0xfffe
0298 014d 0001 | M | .CONST 0x014d,0x0001
029a 0150 0002 | P | .CONST 0x0150,0x0002
029c 0155 0003 | U | .CONST 0x0155,0x0003
029e ; --------------------------------------------------------------------------------------
029e ; Debug3 Subtable 0x9
029e ; --------------------------------------------------------------------------------------
029e 0000 0003 | | .DBG3TAB 0x0000,0x0003
02a0 015b 0001 | [ | .CONST 0x015b,0x0001
02a2 015f 0002 | _ | .CONST 0x015f,0x0002
02a4 017b 0003 | { | .CONST 0x017b,0x0003
02a6 ; --------------------------------------------------------------------------------------
02a6 ; Debug3 Subtable 0xa
02a6 ; --------------------------------------------------------------------------------------
02a6 0001 0003 | | .DBG3TAB 0x0001,0x0003
02a8 018b ffff | | .CONST 0x018b,0xffff
02aa 0191 0002 | | .CONST 0x0191,0x0002
02ac 0194 0003 | | .CONST 0x0194,0x0003
02ae 0199 0001 | | .CONST 0x0199,0x0001
02b0 0000 0000 | | .BLANK 0000[0x150]