|
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 0188 | | .CONST 0x0188 ; 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 005e | ^ | .CONST 0x005e ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001f | | .CONST 0x001f ; Number of locals
000b INIT_0008:
000b e001 | | Load 0x0,0x1 ; Debug Table 0x0 = .DEBUG 0x000b,0x01e2,0x8000,0x0000,0x0058,0x6b25,0x0000,0x000c
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 1b14 | | Execute Package,Field_Read,Field_Number 0x14
000d 0129 | ) | Execute Any,Make_Visible
000e e002 | | Load 0x0,0x2 ; Debug Table 0x0.0x1 = 0xe,0xfffe
000f 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0010 0129 | ) | Execute Any,Make_Visible
0011 4804 |H | Short_Literal 0x4 ; Debug Table 0x0.0x2 = 0x11,0xfffd
0012 032b | + | Declare_Type Record,Incomplete,Visible
0013 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x3 = 0x13,0xfffc
0014 02a0 | | Declare_Subprogram Null_Subprogram
0015 03ae | | Declare_Type Heap_Access,Defined,Visible
0016 0007 | | Action Break_Optional ; Debug Table 0x0.0x4 = 0x16,0xfffb
0017 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x17,0xfffa
0019 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x19,0xfff9
001b 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x7 = 0x1b,0xfff8
001d 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x8 = 0x1d,0xfff7
001f 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x9 = 0x1f,0xfff6
0021 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xa = 0x21,0xfff5
0023 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0xb = 0x23,0xfff4
0024 4800 |H | Short_Literal 0x0
0025 029f 014b | K| Declare_Subprogram INIT_0148,For_Call
0027 03fd | | Declare_Type Discrete,Defined
0028 0007 | | Action Break_Optional ; Debug Table 0x0.0xc = 0x28,0xfff3
0029 029b 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Unelaborated ; Debug Table 0x0.0xd = 0x29,0xfff2
002b 6150 |aP | Indirect_Literal Discrete,0x17c,{0x00000000, 0x00586b25} ; Debug Table 0x0.0xe = 0x2b,0xfff1
002c 48a2 |H | Short_Literal 0xa2
002d e20d | | Load 0x1,0xd
002e e217 | | Load 0x1,0x17
002f 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0030 4837 |H7 | Short_Literal 0x37
0031 4806 |H | Short_Literal 0x6
0032 4871 |Hq | Short_Literal 0x71
0033 e003 | | Load 0x0,0x3
0034 0387 | | Declare_Variable Package
0035 00d8 | | Load_Top At_Offset_0
0036 020f | | Execute Module,Activate
0037 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0xf = 0x37,0xfff0
0038 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0039 e20f | | Load 0x1,0xf
003a 0325 | % | Complete_Type Record,By_Renaming
003b 00bf | | Action Accept_Activation
003c 1d18 | | Execute_Immediate Reference_Lex_1,0x18 ; Debug Table 0x1 = .DEBUG 0x003c,0x0204,0x8000,0x0000,0x0058,0x6eb5,0x0000,0x0009
; Debug Table 0x1.0x0 = 0x3c,0xffff
003d 00c7 | | Action Elaborate_Subprogram
003e 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x1 = 0x3e,0xfffe
003f 00c7 | | Action Elaborate_Subprogram
0040 6137 |a7 | Indirect_Literal Discrete,0x178,{0x00000000, 0x00586eb5} ; Debug Table 0x1.0x2 = 0x40,0xfffd
0041 4853 |HS | Short_Literal 0x53
0042 e20f | | Load 0x1,0xf
0043 e210 | | Load 0x1,0x10
0044 e004 | | Load 0x0,0x4
0045 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0046 0387 | | Declare_Variable Package
0047 00d8 | | Load_Top At_Offset_0
0048 020f | | Execute Module,Activate
0049 e004 | | Load 0x0,0x4 ; Debug Table 0x1.0x3 = 0x49,0xfffc
004a 1919 | | Execute Package,Field_Reference,Field_Number 0x19
004b 00c6 | | Action Check_Subprogram_Elaborated
004c 00d9 | | Load_Top At_Offset_1
004d 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
004e 00da | | Load_Top At_Offset_2
004f 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
0050 6127 |a' | Indirect_Literal Discrete,0x178,{0x00000000, 0x00586eb5}
0051 485c |H\ | Short_Literal 0x5c
0052 4800 |H | Short_Literal 0x0
0053 0007 | | Action Break_Optional
0054 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0x4 = 0x54,0xfffb
0055 00c7 | | Action Elaborate_Subprogram
0056 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0x5 = 0x56,0xfffa
0057 00c7 | | Action Elaborate_Subprogram
0058 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x1.0x6 = 0x58,0xfff9
0059 00c7 | | Action Elaborate_Subprogram
005a 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x1.0x7 = 0x5a,0xfff8
005b 00c7 | | Action Elaborate_Subprogram
005c 1d16 | | Execute_Immediate Reference_Lex_1,0x16 ; Debug Table 0x1.0x8 = 0x5c,0xfff7
005d 00c7 | | Action Elaborate_Subprogram
005e BODY_0008:
005e 00bc | | Action Signal_Activated
005f 00bb | | Action Signal_Completion
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0063 | c | .CONST 0x0063 ; Address of begin
0061 006c | l | .CONST 0x006c ; Address of exception handler
0062 0001 | | .CONST 0x0001 ; Number of locals
0063 BODY_0060:
0063 INIT_0060:
0063 487e |H~ | Short_Literal 0x7e ; Debug Table 0x2 = .DEBUG 0x0063,0x0218,0x0001,0x0000,0x0058,0x6b25,0x0000,0x0027
; Debug Table 0x2.0x0 = 0x63,0x1
0064 a5fe | | Store_Unchecked 0x2,-0x2
0065 00da | | Load_Top At_Offset_2 ; Debug Table 0x2.0x1 = 0x65,0x2
0066 e219 | | Load 0x1,0x19
0067 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0068 00d1 | | Pop_Control Pop_Count_1
0069 4800 |H | Short_Literal 0x0 ; Debug Table 0x2.0x2 = 0x69,0x3
006a a5fe | | Store_Unchecked 0x2,-0x2
006b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
006c TRAP_0060:
006c 4885 |H | Short_Literal 0x85
006d 010f | | Execute Exception,Equal
006e 6803 |h | Jump_Zero 0x72
006f 4847 |HG | Short_Literal 0x47 ; Debug Table 0x2.0x3 = 0x6f,0x4
0070 a5fe | | Store_Unchecked 0x2,-0x2
0071 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0072 0100 | | Execute Exception,Raise
0073 0000 0000 | | .BLANK 0000[0x5]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007e | ~ | .CONST 0x007e ; Address of begin
0079 00a5 | | .CONST 0x00a5 ; Address of exception handler
007a 0003 | | .CONST 0x0003 ; Number of locals
007b INIT_0078:
007b e219 | | Load 0x1,0x19 ; Debug Table 0x3 = .DEBUG 0x007b,0x0222,0x0001,0x0000,0x0058,0x6b25,0x0000,0x0033
; Debug Table 0x3.0x0 = 0x7b,0xffff
007c 1b16 | | Execute Package,Field_Read,Field_Number 0x16
007d 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x3.0x1 = 0x7d,0xfffe
007e BODY_0078:
007e 487e |H~ | Short_Literal 0x7e ; Debug Table 0x3.0x2 = 0x7e,0x1
007f a5fd | | Store_Unchecked 0x2,-0x3
0080 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x3.0x3 = 0x80,0x2
0081 e219 | | Load 0x1,0x19
0082 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0083 e5ff | | Load 0x2,-0x1
0084 e5fe | | Load 0x2,-0x2
0085 e21a | | Load 0x1,0x1a
0086 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0087 e5fe | | Load 0x2,-0x2
0088 e21a | | Load 0x1,0x1a
0089 1811 | | Execute Package,Field_Execute,Field_Number 0x11
008a e21b | | Load 0x1,0x1b
008b e21c | | Load 0x1,0x1c
008c 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
008d e004 | | Load 0x0,0x4
008e 1819 | | Execute Package,Field_Execute,Field_Number 0x19
008f e219 | | Load 0x1,0x19
0090 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0091 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0092 0059 | Y | Store_Top Discrete,At_Offset_1
0093 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x4 = 0x93,0x3
0094 7005 |p | Jump_Nonzero 0x9a
0095 4848 |HH | Short_Literal 0x48 ; Debug Table 0x3.0x5 = 0x95,0x4
0096 a5fd | | Store_Unchecked 0x2,-0x3
0097 e002 | | Load 0x0,0x2 ; Debug Table 0x3.0x6 = 0x97,0x5
0098 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0099 0257 | W | Execute Discrete,Raise
009a e5ff | | Load 0x2,-0x1 ; Debug Table 0x3.0x7 = 0x9a,0x6
009b 00da | | Load_Top At_Offset_2
009c 0217 | | Execute Heap_Access,All_Reference
009d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
009e 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0x8 = 0x9e,0x7
009f 00da | | Load_Top At_Offset_2
00a0 0217 | | Execute Heap_Access,All_Reference
00a1 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00a2 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0x9 = 0xa2,0x8
00a3 a5fd | | Store_Unchecked 0x2,-0x3
00a4 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00a5 TRAP_0078:
00a5 e002 | | Load 0x0,0x2
00a6 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00a7 010f | | Execute Exception,Equal
00a8 6801 |h | Jump_Zero 0xaa
00a9 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; Debug Table 0x3.0xa = 0xa9,0x9
00aa 4885 |H | Short_Literal 0x85
00ab 010f | | Execute Exception,Equal
00ac 6803 |h | Jump_Zero 0xb0
00ad 4846 |HF | Short_Literal 0x46 ; Debug Table 0x3.0xb = 0xad,0xa
00ae a5fd | | Store_Unchecked 0x2,-0x3
00af 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00b0 0100 | | Execute Exception,Raise
00b1 0000 0000 | | .BLANK 0000[0x7]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bc | | .CONST 0x00bc ; Address of begin
00b9 00cf | | .CONST 0x00cf ; Address of exception handler
00ba 0002 | | .CONST 0x0002 ; Number of locals
00bb INIT_00b8:
00bb 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x4 = .DEBUG 0x00bb,0x023c,0x0001,0x0000,0x0058,0x6b25,0x0000,0x0043
; Debug Table 0x4.0x0 = 0xbb,0xffff
00bc BODY_00b8:
00bc 487e |H~ | Short_Literal 0x7e ; Debug Table 0x4.0x1 = 0xbc,0x1
00bd a5fd | | Store_Unchecked 0x2,-0x3
00be 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x4.0x2 = 0xbe,0x2
00bf e5fe | | Load 0x2,-0x2
00c0 e5ff | | Load 0x2,-0x1
00c1 e219 | | Load 0x1,0x19
00c2 1820 | | Execute Package,Field_Execute,Field_Number 0x20
00c3 00d1 | | Pop_Control Pop_Count_1
00c4 0059 | Y | Store_Top Discrete,At_Offset_1
00c5 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x3 = 0xc5,0x3
00c6 7005 |p | Jump_Nonzero 0xcc
00c7 4849 |HI | Short_Literal 0x49 ; Debug Table 0x4.0x4 = 0xc7,0x4
00c8 a5fd | | Store_Unchecked 0x2,-0x3
00c9 e002 | | Load 0x0,0x2 ; Debug Table 0x4.0x5 = 0xc9,0x5
00ca 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00cb 0257 | W | Execute Discrete,Raise
00cc 4800 |H | Short_Literal 0x0 ; Debug Table 0x4.0x6 = 0xcc,0x6
00cd a5fd | | Store_Unchecked 0x2,-0x3
00ce 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00cf TRAP_00b8:
00cf e002 | | Load 0x0,0x2
00d0 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00d1 010f | | Execute Exception,Equal
00d2 6801 |h | Jump_Zero 0xd4
00d3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0x4.0x7 = 0xd3,0x7
00d4 4885 |H | Short_Literal 0x85
00d5 010f | | Execute Exception,Equal
00d6 6803 |h | Jump_Zero 0xda
00d7 4846 |HF | Short_Literal 0x46 ; Debug Table 0x4.0x8 = 0xd7,0x8
00d8 a5fd | | Store_Unchecked 0x2,-0x3
00d9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00da 0100 | | Execute Exception,Raise
00db 0000 0000 | | .BLANK 0000[0x5]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e5 | | .CONST 0x00e5 ; Address of begin
00e1 00f7 | | .CONST 0x00f7 ; Address of exception handler
00e2 0002 | | .CONST 0x0002 ; Number of locals
00e3 INIT_00e0:
00e3 e219 | | Load 0x1,0x19 ; Debug Table 0x5 = .DEBUG 0x00e3,0x0250,0x0001,0x0000,0x0058,0x6b25,0x0000,0x0053
; Debug Table 0x5.0x0 = 0xe3,0xffff
00e4 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00e5 BODY_00e0:
00e5 487e |H~ | Short_Literal 0x7e ; Debug Table 0x5.0x1 = 0xe5,0x1
00e6 a5fc | | Store_Unchecked 0x2,-0x4
00e7 4800 |H | Short_Literal 0x0 ; Debug Table 0x5.0x2 = 0xe7,0x2
00e8 a5fd | | Store_Unchecked 0x2,-0x3
00e9 e219 | | Load 0x1,0x19 ; Debug Table 0x5.0x3 = 0xe9,0x3
00ea 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00eb e5fe | | Load 0x2,-0x2
00ec e5ff | | Load 0x2,-0x1
00ed e219 | | Load 0x1,0x19
00ee 181e | | Execute Package,Field_Execute,Field_Number 0x1e
00ef 00d1 | | Pop_Control Pop_Count_1
00f0 0031 | 1 | Store_Top Heap_Access,At_Offset_1
00f1 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0x4 = 0xf1,0x4
00f2 021c | | Execute Heap_Access,Not_Null
00f3 a5fd | | Store_Unchecked 0x2,-0x3
00f4 4800 |H | Short_Literal 0x0 ; Debug Table 0x5.0x5 = 0xf4,0x5
00f5 a5fc | | Store_Unchecked 0x2,-0x4
00f6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00f7 TRAP_00e0:
00f7 e002 | | Load 0x0,0x2
00f8 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00f9 010f | | Execute Exception,Equal
00fa 6801 |h | Jump_Zero 0xfc
00fb 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0x5.0x6 = 0xfb,0x6
00fc 4885 |H | Short_Literal 0x85
00fd 010f | | Execute Exception,Equal
00fe 6803 |h | Jump_Zero 0x102
00ff 4847 |HG | Short_Literal 0x47 ; Debug Table 0x5.0x7 = 0xff,0x7
0100 a5fc | | Store_Unchecked 0x2,-0x4
0101 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0102 0100 | | Execute Exception,Raise
0103 0000 0000 | | .BLANK 0000[0x5]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b | | .CONST 0x010b ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0001 | | .CONST 0x0001 ; Number of locals
010b BODY_0108:
010b INIT_0108:
010b 487e |H~ | Short_Literal 0x7e ; Debug Table 0x6 = .DEBUG 0x010b,0x0262,0x0001,0x0000,0x0058,0x6b25,0x0000,0x0067
; Debug Table 0x6.0x0 = 0x10b,0x1
010c a5fd | | Store_Unchecked 0x2,-0x3
010d 4800 |H | Short_Literal 0x0 ; Debug Table 0x6.0x1 = 0x10d,0x2
010e a5fe | | Store_Unchecked 0x2,-0x2
010f 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0x2 = 0x10f,0x3
0110 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0111 a5fe | | Store_Unchecked 0x2,-0x2
0112 4800 |H | Short_Literal 0x0 ; Debug Table 0x6.0x3 = 0x112,0x4
0113 a5fd | | Store_Unchecked 0x2,-0x3
0114 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0115 0000 0000 | | .XXX[0x3]
0117 0000 | |
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 0127 | ' | .CONST 0x0127 ; Address of begin
0119 0136 | 6 | .CONST 0x0136 ; Address of exception handler
011a 0006 | | .CONST 0x0006 ; Number of locals
011b INIT_0118:
011b 029f 0173 | s| Declare_Subprogram INIT_0170,For_Call ; Debug Table 0x7 = .DEBUG 0x011b,0x026c,0x2801,0x0002,0x0058,0x6b25,0x0000,0x0077
; Debug Table 0x7.0x0 = 0x11b,0xffff
011d e219 | | Load 0x1,0x19 ; Debug Table 0x7.0x1 = 0x11d,0xfffe
011e 1923 | # | Execute Package,Field_Reference,Field_Number 0x23
011f 00c6 | | Action Check_Subprogram_Elaborated
0120 4802 |H | Short_Literal 0x2
0121 4802 |H | Short_Literal 0x2
0122 0099 | | Action Reference_Dynamic
0123 6054 |`T | Indirect_Literal Discrete,0x178,{0x00000000, 0x00586eb5}
0124 49c5 |I | Short_Literal 0x1c5
0125 4806 |H | Short_Literal 0x6
0126 0007 | | Action Break_Optional
0127 BODY_0118:
0127 487e |H~ | Short_Literal 0x7e ; Debug Table 0x7.0x2 = 0x127,0x1
0128 a5fc | | Store_Unchecked 0x2,-0x4
0129 e5fd | | Load 0x2,-0x3 ; Debug Table 0x7.0x3 = 0x129,0x2
012a 4803 |H | Short_Literal 0x3
012b 4802 |H | Short_Literal 0x2
012c 0099 | | Action Reference_Dynamic
012d 4804 |H | Short_Literal 0x4
012e 4802 |H | Short_Literal 0x2
012f 0099 | | Action Reference_Dynamic
0130 e219 | | Load 0x1,0x19
0131 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0132 00d1 | | Pop_Control Pop_Count_1
0133 4800 |H | Short_Literal 0x0 ; Debug Table 0x7.0x4 = 0x133,0x3
0134 a5fc | | Store_Unchecked 0x2,-0x4
0135 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0136 TRAP_0118:
0136 e002 | | Load 0x0,0x2
0137 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0138 010f | | Execute Exception,Equal
0139 6801 |h | Jump_Zero 0x13b
013a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; Debug Table 0x7.0x5 = 0x13a,0x4
013b 4885 |H | Short_Literal 0x85
013c 010f | | Execute Exception,Equal
013d 6803 |h | Jump_Zero 0x141
013e 4847 |HG | Short_Literal 0x47 ; Debug Table 0x7.0x6 = 0x13e,0x5
013f a5fc | | Store_Unchecked 0x2,-0x4
0140 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0141 0100 | | Execute Exception,Raise
0142 0000 0000 | | .BLANK 0000[0x6]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b | K | .CONST 0x014b ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0001 | | .CONST 0x0001 ; Number of locals
014b BODY_0148:
014b INIT_0148:
014b 4603 |F | Jump_Case 0x4 ; Debug Table 0x8 = .DEBUG 0x014b,0x027c,0x0005,0x0000,0x0058,0x6b25,0x0000,0x008e
014c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
014d 7802 |x | Jump 0x150 ; case 0x1
014e 7805 |x | Jump 0x154 ; case 0x2
014f 7809 |x | Jump 0x159 ; case 0x3
0150 00da | | Load_Top At_Offset_2
0151 0091 0180 | | Action Push_String_Extended_Indexed,0x180 ; "BORING"
0153 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0154 00db | | Load_Top At_Offset_3
0155 00db | | Load_Top At_Offset_3
0156 00e0 | | Load_Encached Standard_Cache
0157 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0158 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0159 00da | | Load_Top At_Offset_2
015a 00e0 | | Load_Encached Standard_Cache
015b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
015c 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
015d 0000 0000 | | .XXX[0x3]
015f 0000 | |
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163 | c | .CONST 0x0163 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0001 | | .CONST 0x0001 ; Number of locals
0163 BODY_0160:
0163 INIT_0160:
0163 00da | | Load_Top At_Offset_2 ; Debug Table 0x9 = .DEBUG 0x0163,0x027e,0x0002,0x0000,0x0058,0x6b25,0x0000,0x0099
; Debug Table 0x9.0x0 = 0x163,0x1
0164 4871 |Hq | Short_Literal 0x71
0165 026e | n | Execute Discrete,Modulo
0166 00e3 | | Load_Encached Natural_Cache
0167 025b | [ | Execute Discrete,Check_In_Type
0168 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0169 0000 0000 | | .BLANK 0000[0x7]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173 | s | .CONST 0x0173 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0001 | | .CONST 0x0001 ; Number of locals
0173 BODY_0170:
0173 INIT_0170:
0173 00da | | Load_Top At_Offset_2 ; Debug Table 0xa = .DEBUG 0x0173,0x0282,0x0801,0x0002,0x0058,0x6eb5,0x0000,0x01b1
; Debug Table 0xa.0x0 = 0x173,0x1
0174 0217 | | Execute Heap_Access,All_Reference
0175 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0176 85fe | | Call 0x2,-0x2
0177 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0178 0000 0000 | | .LITERAL {0x00000000, 0x00586eb5}
017c 0000 0000 | | .LITERAL {0x00000000, 0x00586b25}
0180 ; --------------------------------------------------------------------------------------
0180 ; STRING TABLE
0180 ; --------------------------------------------------------------------------------------
0180 0004 | | .STRTAB 0x0004->0x0182 ; "BORING"
0181 0008 | | .STREND 0x0008->0x0185
0182 424f 5249 |BORI| .STRTAB_STRINGS
0185 0000 0000 | | .XXX[0x3]
0187 0000 | |
0188 ; --------------------------------------------------------------------------------------
0188 ; Debug Table
0188 ; --------------------------------------------------------------------------------------
0188 0003 000b | | .CONST 0x0003,0x000b
018a 000b 01e2 | | .DEBUG 0x000b,0x01e2,0x8000,0x0000,0x0058,0x6b25,0x0000,0x000c
0192 003c 0204 | < | .DEBUG 0x003c,0x0204,0x8000,0x0000,0x0058,0x6eb5,0x0000,0x0009
019a 0063 0218 | c | .DEBUG 0x0063,0x0218,0x0001,0x0000,0x0058,0x6b25,0x0000,0x0027
01a2 007b 0222 | { "| .DEBUG 0x007b,0x0222,0x0001,0x0000,0x0058,0x6b25,0x0000,0x0033
01aa 00bb 023c | <| .DEBUG 0x00bb,0x023c,0x0001,0x0000,0x0058,0x6b25,0x0000,0x0043
01b2 00e3 0250 | P| .DEBUG 0x00e3,0x0250,0x0001,0x0000,0x0058,0x6b25,0x0000,0x0053
01ba 010b 0262 | b| .DEBUG 0x010b,0x0262,0x0001,0x0000,0x0058,0x6b25,0x0000,0x0067
01c2 011b 026c | l| .DEBUG 0x011b,0x026c,0x2801,0x0002,0x0058,0x6b25,0x0000,0x0077
01ca 014b 027c | K || .DEBUG 0x014b,0x027c,0x0005,0x0000,0x0058,0x6b25,0x0000,0x008e
01d2 0163 027e | c ~| .DEBUG 0x0163,0x027e,0x0002,0x0000,0x0058,0x6b25,0x0000,0x0099
01da 0173 0282 | s | .DEBUG 0x0173,0x0282,0x0801,0x0002,0x0058,0x6eb5,0x0000,0x01b1
01e2 ; --------------------------------------------------------------------------------------
01e2 ; Debug3 Subtable 0x0
01e2 ; --------------------------------------------------------------------------------------
01e2 0010 0000 | | .DBG3TAB 0x0010,0x0000
01e4 000b ffff | | .CONST 0x000b,0xffff
01e6 000e fffe | | .CONST 0x000e,0xfffe
01e8 0011 fffd | | .CONST 0x0011,0xfffd
01ea 0013 fffc | | .CONST 0x0013,0xfffc
01ec 0016 fffb | | .CONST 0x0016,0xfffb
01ee 0017 fffa | | .CONST 0x0017,0xfffa
01f0 0019 fff9 | | .CONST 0x0019,0xfff9
01f2 001b fff8 | | .CONST 0x001b,0xfff8
01f4 001d fff7 | | .CONST 0x001d,0xfff7
01f6 001f fff6 | | .CONST 0x001f,0xfff6
01f8 0021 fff5 | ! | .CONST 0x0021,0xfff5
01fa 0023 fff4 | # | .CONST 0x0023,0xfff4
01fc 0028 fff3 | ( | .CONST 0x0028,0xfff3
01fe 0029 fff2 | ) | .CONST 0x0029,0xfff2
0200 002b fff1 | + | .CONST 0x002b,0xfff1
0202 0037 fff0 | 7 | .CONST 0x0037,0xfff0
0204 ; --------------------------------------------------------------------------------------
0204 ; Debug3 Subtable 0x1
0204 ; --------------------------------------------------------------------------------------
0204 0009 0000 | | .DBG3TAB 0x0009,0x0000
0206 003c ffff | < | .CONST 0x003c,0xffff
0208 003e fffe | > | .CONST 0x003e,0xfffe
020a 0040 fffd | @ | .CONST 0x0040,0xfffd
020c 0049 fffc | I | .CONST 0x0049,0xfffc
020e 0054 fffb | T | .CONST 0x0054,0xfffb
0210 0056 fffa | V | .CONST 0x0056,0xfffa
0212 0058 fff9 | X | .CONST 0x0058,0xfff9
0214 005a fff8 | Z | .CONST 0x005a,0xfff8
0216 005c fff7 | \ | .CONST 0x005c,0xfff7
0218 ; --------------------------------------------------------------------------------------
0218 ; Debug3 Subtable 0x2
0218 ; --------------------------------------------------------------------------------------
0218 0000 0004 | | .DBG3TAB 0x0000,0x0004
021a 0063 0001 | c | .CONST 0x0063,0x0001
021c 0065 0002 | e | .CONST 0x0065,0x0002
021e 0069 0003 | i | .CONST 0x0069,0x0003
0220 006f 0004 | o | .CONST 0x006f,0x0004
0222 ; --------------------------------------------------------------------------------------
0222 ; Debug3 Subtable 0x3
0222 ; --------------------------------------------------------------------------------------
0222 0002 000a | | .DBG3TAB 0x0002,0x000a
0224 007b ffff | { | .CONST 0x007b,0xffff
0226 007d fffe | } | .CONST 0x007d,0xfffe
0228 007e 0001 | ~ | .CONST 0x007e,0x0001
022a 0080 0002 | | .CONST 0x0080,0x0002
022c 0093 0003 | | .CONST 0x0093,0x0003
022e 0095 0004 | | .CONST 0x0095,0x0004
0230 0097 0005 | | .CONST 0x0097,0x0005
0232 009a 0006 | | .CONST 0x009a,0x0006
0234 009e 0007 | | .CONST 0x009e,0x0007
0236 00a2 0008 | | .CONST 0x00a2,0x0008
0238 00a9 0009 | | .CONST 0x00a9,0x0009
023a 00ad 000a | | .CONST 0x00ad,0x000a
023c ; --------------------------------------------------------------------------------------
023c ; Debug3 Subtable 0x4
023c ; --------------------------------------------------------------------------------------
023c 0001 0008 | | .DBG3TAB 0x0001,0x0008
023e 00bb ffff | | .CONST 0x00bb,0xffff
0240 00bc 0001 | | .CONST 0x00bc,0x0001
0242 00be 0002 | | .CONST 0x00be,0x0002
0244 00c5 0003 | | .CONST 0x00c5,0x0003
0246 00c7 0004 | | .CONST 0x00c7,0x0004
0248 00c9 0005 | | .CONST 0x00c9,0x0005
024a 00cc 0006 | | .CONST 0x00cc,0x0006
024c 00d3 0007 | | .CONST 0x00d3,0x0007
024e 00d7 0008 | | .CONST 0x00d7,0x0008
0250 ; --------------------------------------------------------------------------------------
0250 ; Debug3 Subtable 0x5
0250 ; --------------------------------------------------------------------------------------
0250 0001 0007 | | .DBG3TAB 0x0001,0x0007
0252 00e3 ffff | | .CONST 0x00e3,0xffff
0254 00e5 0001 | | .CONST 0x00e5,0x0001
0256 00e7 0002 | | .CONST 0x00e7,0x0002
0258 00e9 0003 | | .CONST 0x00e9,0x0003
025a 00f1 0004 | | .CONST 0x00f1,0x0004
025c 00f4 0005 | | .CONST 0x00f4,0x0005
025e 00fb 0006 | | .CONST 0x00fb,0x0006
0260 00ff 0007 | | .CONST 0x00ff,0x0007
0262 ; --------------------------------------------------------------------------------------
0262 ; Debug3 Subtable 0x6
0262 ; --------------------------------------------------------------------------------------
0262 0000 0004 | | .DBG3TAB 0x0000,0x0004
0264 010b 0001 | | .CONST 0x010b,0x0001
0266 010d 0002 | | .CONST 0x010d,0x0002
0268 010f 0003 | | .CONST 0x010f,0x0003
026a 0112 0004 | | .CONST 0x0112,0x0004
026c ; --------------------------------------------------------------------------------------
026c ; Debug3 Subtable 0x7
026c ; --------------------------------------------------------------------------------------
026c 0002 0005 | | .DBG3TAB 0x0002,0x0005
026e 011b ffff | | .CONST 0x011b,0xffff
0270 011d fffe | | .CONST 0x011d,0xfffe
0272 0127 0001 | ' | .CONST 0x0127,0x0001
0274 0129 0002 | ) | .CONST 0x0129,0x0002
0276 0133 0003 | 3 | .CONST 0x0133,0x0003
0278 013a 0004 | : | .CONST 0x013a,0x0004
027a 013e 0005 | > | .CONST 0x013e,0x0005
027c ; --------------------------------------------------------------------------------------
027c ; Debug3 Subtable 0x8
027c ; --------------------------------------------------------------------------------------
027c 0000 0000 | | .DBG3TAB 0x0000,0x0000
027e ; --------------------------------------------------------------------------------------
027e ; Debug3 Subtable 0x9
027e ; --------------------------------------------------------------------------------------
027e 0000 0001 | | .DBG3TAB 0x0000,0x0001
0280 0163 0001 | c | .CONST 0x0163,0x0001
0282 ; --------------------------------------------------------------------------------------
0282 ; Debug3 Subtable 0xa
0282 ; --------------------------------------------------------------------------------------
0282 0000 0001 | | .DBG3TAB 0x0000,0x0001
0284 0173 0001 | s | .CONST 0x0173,0x0001
0286 0000 0000 | | .BLANK 0000[0x17a]