|
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 01b0 | | .CONST 0x01b0 ; 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 004d | M | .CONST 0x004d ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0018 | | .CONST 0x0018 ; Number of locals
000b INIT_0008:
000b 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0 = .DEBUG 0x000b,0x021a,0x8000,0x0000,0x0057,0x91c5,0x0000,0x0006
; Debug Table 0x0.0x0 = 0xb,0xffff
000d 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0xd,0xfffe
000f 00bf | | Action Accept_Activation
0010 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x0010,0x0220,0x8000,0x0000,0x0057,0x9485,0x0000,0x000b
; Debug Table 0x1.0x0 = 0x10,0xffff
0011 4801 |H | Short_Literal 0x1 ; Debug Table 0x1.0x1 = 0x11,0xfffe
0012 4804 |H | Short_Literal 0x4
0013 e001 | | Load 0x0,0x1
0014 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0015 02a0 | | Declare_Subprogram Null_Subprogram
0016 4801 |H | Short_Literal 0x1
0017 035d | ] | Declare_Type Array,Defined
0018 00d8 | | Load_Top At_Offset_0
0019 0337 | 7 | Declare_Variable Array
001a 00d8 | | Load_Top At_Offset_0
001b 0337 | 7 | Declare_Variable Array
001c 4800 |H | Short_Literal 0x0
001d 4801 |H | Short_Literal 0x1
001e 00da | | Load_Top At_Offset_2
001f 01d6 | | Execute Vector,Field_Write
0020 4801 |H | Short_Literal 0x1
0021 4802 |H | Short_Literal 0x2
0022 00da | | Load_Top At_Offset_2
0023 01d6 | | Execute Vector,Field_Write
0024 4802 |H | Short_Literal 0x2
0025 4803 |H | Short_Literal 0x3
0026 00da | | Load_Top At_Offset_2
0027 01d6 | | Execute Vector,Field_Write
0028 4803 |H | Short_Literal 0x3
0029 4804 |H | Short_Literal 0x4
002a 00da | | Load_Top At_Offset_2
002b 01d6 | | Execute Vector,Field_Write
002c 00d9 | | Load_Top At_Offset_1
002d 01d4 | | Execute Vector,Structure_Write
002e 029d 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call ; Debug Table 0x1.0x2 = 0x2e,0xfffd
0030 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x3 = 0x30,0xfffc
0031 00c7 | | Action Elaborate_Subprogram
0032 029d 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call ; Debug Table 0x1.0x4 = 0x32,0xfffb
0034 029d 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call ; Debug Table 0x1.0x5 = 0x34,0xfffa
0036 029d 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call ; Debug Table 0x1.0x6 = 0x36,0xfff9
0038 029d 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call ; Debug Table 0x1.0x7 = 0x38,0xfff8
003a 029d 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call ; Debug Table 0x1.0x8 = 0x3a,0xfff7
003c 029d 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call ; Debug Table 0x1.0x9 = 0x3c,0xfff6
003e 616d |am | Indirect_Literal Discrete,0x1ac,{0x00000000, 0x00579485} ; Debug Table 0x1.0xa = 0x3e,0xfff5
003f 4ab0 |J | Short_Literal 0x2b0
0040 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0041 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0042 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0043 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0044 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0045 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0046 e002 | | Load 0x0,0x2
0047 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0048 0387 | | Declare_Variable Package
0049 00d8 | | Load_Top At_Offset_0
004a 020f | | Execute Module,Activate
004b 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1.0xb = 0x4b,0xfff4
004c 00c7 | | Action Elaborate_Subprogram
004d BODY_0008:
004d 00bc | | Action Signal_Activated
004e 00bb | | Action Signal_Completion
004f 0000 | | .XXX[0x1]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0053 | S | .CONST 0x0053 ; Address of begin
0051 0004 | | .CONST 0x0004 ; Address of exception handler
0052 0001 | | .CONST 0x0001 ; Number of locals
0053 BODY_0050:
0053 INIT_0050:
0053 e218 | | Load 0x1,0x18 ; Debug Table 0x2 = .DEBUG 0x0053,0x023a,0x0002,0x0000,0x0057,0x91c5,0x0000,0x0007
; Debug Table 0x2.0x0 = 0x53,0x1
0054 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0055 00ca | | Action Exit_Nullary_Function
0056 0000 0000 | | .XXX[0x2]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 0064 | d | .CONST 0x0064 ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0004 | | .CONST 0x0004 ; Number of locals
005b INIT_0058:
005b 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x3 = .DEBUG 0x005b,0x023e,0x0002,0x0000,0x0057,0x91c5,0x0000,0x000e
; Debug Table 0x3.0x0 = 0x5b,0xffff
005c 0680 | | Execute_Immediate Set_Value_Unchecked,0x80
005d e003 | | Load 0x0,0x3 ; Debug Table 0x3.0x1 = 0x5d,0xfffe
005e 1b14 | | Execute Package,Field_Read,Field_Number 0x14
005f 0322 | " | Declare_Variable Record
0060 00d8 | | Load_Top At_Offset_0
0061 1c00 | | Execute_Immediate Run_Utility,0x0
0062 029f 011b | | Declare_Subprogram INIT_0118,For_Call
0064 BODY_0058:
0064 e5ff | | Load 0x2,-0x1 ; Debug Table 0x3.0x2 = 0x64,0x1
0065 00da | | Load_Top At_Offset_2
0066 017d | } | Execute Record,Structure_Write
0067 0007 | | Action Break_Optional ; Debug Table 0x3.0x3 = 0x67,0x2
0068 8404 | | Call 0x2,0x4 ; Debug Table 0x3.0x4 = 0x68,0x3
0069 7ffe | | Jump 0x68
006a 0000 0000 | | .BLANK 0000[0x6]
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 00da | | Load_Top At_Offset_2 ; Debug Table 0x4 = .DEBUG 0x0073,0x024a,0x0002,0x0000,0x0057,0x9485,0x0000,0x0043
; Debug Table 0x4.0x0 = 0x73,0x1
0074 0f00 | | Execute_Immediate Equal,0x0
0075 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0076 0000 0000 | | .XXX[0x2]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 0085 | | .CONST 0x0085 ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0005 | | .CONST 0x0005 ; Number of locals
007b INIT_0078:
007b e004 | | Load 0x0,0x4 ; Debug Table 0x5 = .DEBUG 0x007b,0x024e,0x0001,0x0000,0x0057,0x9485,0x0000,0x0185
; Debug Table 0x5.0x0 = 0x7b,0xffff
007c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
007d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
007e e004 | | Load 0x0,0x4 ; Debug Table 0x5.0x1 = 0x7e,0xfffe
007f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0080 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0081 e001 | | Load 0x0,0x1 ; Debug Table 0x5.0x2 = 0x81,0xfffd
0082 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0083 e005 | | Load 0x0,0x5 ; Debug Table 0x5.0x3 = 0x83,0xfffc
0084 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0085 BODY_0078:
0085 0007 | | Action Break_Optional ; Debug Table 0x5.0x4 = 0x85,0x1
0086 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x5.0x5 = 0x86,0x401
0087 a5fd | | Store_Unchecked 0x2,-0x3 ; Debug Table 0x5.0x6 = 0x87,0x1
0088 e004 | | Load 0x0,0x4 ; Debug Table 0x5.0x7 = 0x88,0x2
0089 1810 | | Execute Package,Field_Execute,Field_Number 0x10
008a c5fc | | Store 0x2,-0x4
008b e004 | | Load 0x0,0x4 ; Debug Table 0x5.0x8 = 0x8b,0x3
008c 1815 | | Execute Package,Field_Execute,Field_Number 0x15
008d e5fb | | Load 0x2,-0x5
008e 016d | m | Execute Variant_Record,Structure_Write
008f 480e |H | Short_Literal 0xe ; Debug Table 0x5.0x9 = 0x8f,0x4
0090 a5fa | | Store_Unchecked 0x2,-0x6
0091 e5ff | | Load 0x2,-0x1 ; Debug Table 0x5.0xa = 0x91,0x5
0092 e005 | | Load 0x0,0x5
0093 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0094 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0095 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0xb = 0x95,0x6
0096 4604 |F | Jump_Case 0x5
0097 7804 |x | Jump 0x9c ; case 0x0
0098 7806 |x | Jump 0x9f ; case 0x1
0099 7805 |x | Jump 0x9f ; case 0x2
009a 7804 |x | Jump 0x9f ; case 0x3
009b 7803 |x | Jump 0x9f ; case 0x4
009c 4802 |H | Short_Literal 0x2 ; Debug Table 0x5.0xc = 0x9c,0x7
009d a5fa | | Store_Unchecked 0x2,-0x6
009e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
009f 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0xd = 0x9f,0x8
00a0 e210 | | Load 0x1,0x10
00a1 01d7 | | Execute Vector,Field_Read
00a2 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
00a3 e004 | | Load 0x0,0x4 ; Debug Table 0x5.0xe = 0xa3,0x9
00a4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00a5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00a6 e5fc | | Load 0x2,-0x4
00a7 0120 | | Execute Any,Is_Value
00a8 6803 |h | Jump_Zero 0xac
00a9 e004 | | Load 0x0,0x4
00aa 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00ab 7801 |x | Jump 0xad
00ac e5fc | | Load 0x2,-0x4
00ad e5fe | | Load 0x2,-0x2
00ae e404 | | Load 0x2,0x4
00af e004 | | Load 0x0,0x4
00b0 181e | | Execute Package,Field_Execute,Field_Number 0x1e
00b1 e001 | | Load 0x0,0x1
00b2 180f | | Execute Package,Field_Execute,Field_Number 0xf
00b3 c5fc | | Store 0x2,-0x4
00b4 c402 | | Store 0x2,0x2
00b5 e004 | | Load 0x0,0x4 ; Debug Table 0x5.0xf = 0xb5,0xa
00b6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00b7 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00b8 e004 | | Load 0x0,0x4
00b9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00ba e5fe | | Load 0x2,-0x2
00bb e404 | | Load 0x2,0x4
00bc e001 | | Load 0x0,0x1
00bd 180e | | Execute Package,Field_Execute,Field_Number 0xe
00be c5fd | | Store 0x2,-0x3
00bf 005b | [ | Store_Top Discrete,At_Offset_3
00c0 00db | | Load_Top At_Offset_3 ; Debug Table 0x5.0x10 = 0xc0,0xb
00c1 8211 | | Call 0x1,0x11
00c2 0f00 | | Execute_Immediate Equal,0x0
00c3 00db | | Load_Top At_Offset_3
00c4 8211 | | Call 0x1,0x11
00c5 0f00 | | Execute_Immediate Equal,0x0
00c6 0279 | y | Execute Discrete,And
00c7 6803 |h | Jump_Zero 0xcb
00c8 00db | | Load_Top At_Offset_3 ; Debug Table 0x5.0x11 = 0xc8,0xc
00c9 a5fa | | Store_Unchecked 0x2,-0x6
00ca 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00cb 4800 |H | Short_Literal 0x0 ; Debug Table 0x5.0x12 = 0xcb,0xd
00cc a5fa | | Store_Unchecked 0x2,-0x6
00cd 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00ce 0000 0000 | | .XXX[0x2]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3 | | .CONST 0x00d3 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0001 | | .CONST 0x0001 ; Number of locals
00d3 BODY_00d0:
00d3 INIT_00d0:
00d3 e006 | | Load 0x0,0x6 ; Debug Table 0x6 = .DEBUG 0x00d3,0x0276,0x0001,0x0000,0x0057,0x9485,0x0000,0x0241
; Debug Table 0x6.0x0 = 0xd3,0x1
00d4 180e | | Execute Package,Field_Execute,Field_Number 0xe
00d5 4801 |H | Short_Literal 0x1
00d6 e5ff | | Load 0x2,-0x1
00d7 e005 | | Load 0x0,0x5
00d8 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
00d9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00da 0000 0000 | | .BLANK 0000[0x6]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3 | | .CONST 0x00e3 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0001 | | .CONST 0x0001 ; Number of locals
00e3 BODY_00e0:
00e3 INIT_00e0:
00e3 e006 | | Load 0x0,0x6 ; Debug Table 0x7 = .DEBUG 0x00e3,0x027a,0x0001,0x0000,0x0057,0x9485,0x0000,0x0258
; Debug Table 0x7.0x0 = 0xe3,0x1
00e4 180e | | Execute Package,Field_Execute,Field_Number 0xe
00e5 4800 |H | Short_Literal 0x0
00e6 e5ff | | Load 0x2,-0x1
00e7 e005 | | Load 0x0,0x5
00e8 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
00e9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00ea 0000 0000 | | .BLANK 0000[0x6]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3 | | .CONST 0x00f3 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0001 | | .CONST 0x0001 ; Number of locals
00f3 BODY_00f0:
00f3 INIT_00f0:
00f3 e006 | | Load 0x0,0x6 ; Debug Table 0x8 = .DEBUG 0x00f3,0x027e,0x0001,0x0000,0x0057,0x9485,0x0000,0x026f
; Debug Table 0x8.0x0 = 0xf3,0x1
00f4 180e | | Execute Package,Field_Execute,Field_Number 0xe
00f5 00db | | Load_Top At_Offset_3
00f6 e005 | | Load 0x0,0x5
00f7 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
00f8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00f9 0000 0000 | | .BLANK 0000[0x7]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103 | | .CONST 0x0103 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0001 | | .CONST 0x0001 ; Number of locals
0103 BODY_0100:
0103 INIT_0100:
0103 e006 | | Load 0x0,0x6 ; Debug Table 0x9 = .DEBUG 0x0103,0x0282,0x0001,0x0000,0x0057,0x9485,0x0000,0x0283
; Debug Table 0x9.0x0 = 0x103,0x1
0104 180e | | Execute Package,Field_Execute,Field_Number 0xe
0105 00db | | Load_Top At_Offset_3
0106 e005 | | Load 0x0,0x5
0107 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0108 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0109 0000 0000 | | .BLANK 0000[0x7]
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 0xa = .DEBUG 0x0113,0x0286,0x0002,0x0000,0x0057,0x9485,0x0000,0x0297
; Debug Table 0xa.0x0 = 0x113,0x1
0114 4800 |H | Short_Literal 0x0
0115 e001 | | Load 0x0,0x1
0116 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0117 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 0124 | $ | .CONST 0x0124 ; Address of begin
0119 017c | | | .CONST 0x017c ; Address of exception handler
011a 0004 | | .CONST 0x0004 ; Number of locals
011b INIT_0118:
011b 4801 |H | Short_Literal 0x1 ; Debug Table 0xb = .DEBUG 0x011b,0x028a,0x0004,0x0000,0x0057,0x9485,0x0000,0x017e
; Debug Table 0xb.0x0 = 0x11b,0xffff
011c e402 | | Load 0x2,0x2
011d 00e9 | | Load_Encached String_Cache
011e 0334 | 4 | Declare_Variable Array,With_Constraint
011f 00e3 | | Load_Encached Natural_Cache ; Debug Table 0xb.0x1 = 0x11f,0xfffe
0120 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0121 0007 | | Action Break_Optional ; Debug Table 0xb.0x2 = 0x121,0xfffd
0122 029f 018b | | Declare_Subprogram INIT_0188,For_Call ; Debug Table 0xb.0x3 = 0x122,0xfffc
0124 BODY_0118:
0124 0007 | | Action Break_Optional ; Debug Table 0xb.0x4 = 0x124,0x1
0125 e5fe | | Load 0x2,-0x2 ; Debug Table 0xb.0x5 = 0x125,0x2
0126 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0127 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0128 e403 | | Load 0x2,0x3
0129 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
012a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
012b 027f | | Execute Discrete,Equal
012c 6813 |h | Jump_Zero 0x140
012d e5fe | | Load 0x2,-0x2 ; Debug Table 0xb.0x6 = 0x12d,0x3
012e 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
012f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0130 e403 | | Load 0x2,0x3
0131 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0132 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0133 0272 | r | Execute Discrete,Minus
0134 00e3 | | Load_Encached Natural_Cache
0135 025b | [ | Execute Discrete,Check_In_Type
0136 e403 | | Load 0x2,0x3
0137 e003 | | Load 0x0,0x3
0138 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0139 8604 | | Call 0x3,0x4
013a 4801 |H | Short_Literal 0x1 ; Debug Table 0xb.0x7 = 0x13a,0x4
013b 00da | | Load_Top At_Offset_2
013c e602 | | Load 0x3,0x2
013d 01cf | | Execute Vector,Slice_Read
013e 00cb | | Action Pop_Block_With_Result
013f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0140 e5fe | | Load 0x2,-0x2 ; Debug Table 0xb.0x8 = 0x140,0x5
0141 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0142 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0143 0f01 | | Execute_Immediate Equal,0x1
0144 681c |h | Jump_Zero 0x161
0145 e5fe | | Load 0x2,-0x2
0146 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0147 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0148 e403 | | Load 0x2,0x3
0149 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
014a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
014b 0a01 | | Execute_Immediate Plus,0x1
014c 027f | | Execute Discrete,Equal
014d 6813 |h | Jump_Zero 0x161
014e e403 | | Load 0x2,0x3 ; Debug Table 0xb.0x9 = 0x14e,0x6
014f e003 | | Load 0x0,0x3
0150 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
0151 e403 | | Load 0x2,0x3
0152 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0153 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0154 0272 | r | Execute Discrete,Minus
0155 00e3 | | Load_Encached Natural_Cache
0156 025b | [ | Execute Discrete,Check_In_Type
0157 e403 | | Load 0x2,0x3
0158 e003 | | Load 0x0,0x3
0159 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
015a 8604 | | Call 0x3,0x4
015b 4801 |H | Short_Literal 0x1 ; Debug Table 0xb.0xa = 0x15b,0x7
015c 00da | | Load_Top At_Offset_2
015d e602 | | Load 0x3,0x2
015e 01cf | | Execute Vector,Slice_Read
015f 00cb | | Action Pop_Block_With_Result
0160 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0161 480a |H | Short_Literal 0xa ; Debug Table 0xb.0xb = 0x161,0x8
0162 e403 | | Load 0x2,0x3
0163 e003 | | Load 0x0,0x3
0164 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
0165 e403 | | Load 0x2,0x3
0166 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0167 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0168 0272 | r | Execute Discrete,Minus
0169 00e3 | | Load_Encached Natural_Cache
016a 025b | [ | Execute Discrete,Check_In_Type
016b e403 | | Load 0x2,0x3
016c e003 | | Load 0x0,0x3
016d 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
016e 01cb | | Execute Vector,Append
016f 8604 | | Call 0x3,0x4
0170 e403 | | Load 0x2,0x3 ; Debug Table 0xb.0xc = 0x170,0x9
0171 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0172 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0173 0a01 | | Execute_Immediate Plus,0x1
0174 e403 | | Load 0x2,0x3
0175 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0176 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0177 4801 |H | Short_Literal 0x1 ; Debug Table 0xb.0xd = 0x177,0xa
0178 e403 | | Load 0x2,0x3
0179 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
017a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
017b 7fa9 | | Jump 0x125
017c TRAP_0118:
017c 602b |`+ | Indirect_Literal Discrete,0x1a8,{0x00000000, 0x57948501}
017d 010f | | Execute Exception,Equal
017e 6807 |h | Jump_Zero 0x186
017f e5ff | | Load 0x2,-0x1 ; Debug Table 0xb.0xe = 0x17f,0xb
0180 e403 | | Load 0x2,0x3
0181 017d | } | Execute Record,Structure_Write
0182 e402 | | Load 0x2,0x2 ; Debug Table 0xb.0xf = 0x182,0xc
0183 0901 | | Execute_Immediate Binary_Scale,0x1
0184 c402 | | Store 0x2,0x2
0185 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0186 0100 | | Execute Exception,Raise
0187 0000 | | .XXX[0x1]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b | | .CONST 0x018b ; Address of begin
0189 0004 | | .CONST 0x0004 ; Address of exception handler
018a 0001 | | .CONST 0x0001 ; Number of locals
018b BODY_0188:
018b INIT_0188:
018b e402 | | Load 0x2,0x2 ; Debug Table 0xc = .DEBUG 0x018b,0x02ac,0x0001,0x0000,0x0057,0x9485,0x0000,0x008f
; Debug Table 0xc.0x0 = 0x18b,0x1
018c e603 | | Load 0x3,0x3
018d 0272 | r | Execute Discrete,Minus
018e 00db | | Load_Top At_Offset_3
018f 01db | | Execute Vector,Length
0190 027c | | | Execute Discrete,Less
0191 6802 |h | Jump_Zero 0x194
0192 6015 |` | Indirect_Literal Discrete,0x1a8,{0x00000000, 0x57948501} ; Debug Table 0xc.0x1 = 0x192,0x2
0193 0257 | W | Execute Discrete,Raise
0194 00da | | Load_Top At_Offset_2 ; Debug Table 0xc.0x2 = 0x194,0x3
0195 e603 | | Load 0x3,0x3
0196 0a01 | | Execute_Immediate Plus,0x1
0197 0248 | H | Execute Discrete,Check_In_Integer
0198 e603 | | Load 0x3,0x3
0199 e9ff | | Load 0x4,-0x1
019a 01db | | Execute Vector,Length
019b 0273 | s | Execute Discrete,Plus
019c 0248 | H | Execute Discrete,Check_In_Integer
019d e602 | | Load 0x3,0x2
019e 01ce | | Execute Vector,Slice_Write
019f e603 | | Load 0x3,0x3 ; Debug Table 0xc.0x3 = 0x19f,0x4
01a0 00db | | Load_Top At_Offset_3
01a1 01db | | Execute Vector,Length
01a2 0273 | s | Execute Discrete,Plus
01a3 c603 | | Store 0x3,0x3
01a4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01a5 0000 0000 | | .XXX[0x3]
01a7 0000 | |
01a8 0000 0000 | | .LITERAL {0x00000000, 0x57948501}
01ac 0000 0000 | | .LITERAL {0x00000000, 0x00579485}
01b0 ; --------------------------------------------------------------------------------------
01b0 ; Debug Table
01b0 ; --------------------------------------------------------------------------------------
01b0 0003 000d | | .CONST 0x0003,0x000d
01b2 000b 021a | | .DEBUG 0x000b,0x021a,0x8000,0x0000,0x0057,0x91c5,0x0000,0x0006
01ba 0010 0220 | | .DEBUG 0x0010,0x0220,0x8000,0x0000,0x0057,0x9485,0x0000,0x000b
01c2 0053 023a | S :| .DEBUG 0x0053,0x023a,0x0002,0x0000,0x0057,0x91c5,0x0000,0x0007
01ca 005b 023e | [ >| .DEBUG 0x005b,0x023e,0x0002,0x0000,0x0057,0x91c5,0x0000,0x000e
01d2 0073 024a | s J| .DEBUG 0x0073,0x024a,0x0002,0x0000,0x0057,0x9485,0x0000,0x0043
01da 007b 024e | { N| .DEBUG 0x007b,0x024e,0x0001,0x0000,0x0057,0x9485,0x0000,0x0185
01e2 00d3 0276 | v| .DEBUG 0x00d3,0x0276,0x0001,0x0000,0x0057,0x9485,0x0000,0x0241
01ea 00e3 027a | z| .DEBUG 0x00e3,0x027a,0x0001,0x0000,0x0057,0x9485,0x0000,0x0258
01f2 00f3 027e | ~| .DEBUG 0x00f3,0x027e,0x0001,0x0000,0x0057,0x9485,0x0000,0x026f
01fa 0103 0282 | | .DEBUG 0x0103,0x0282,0x0001,0x0000,0x0057,0x9485,0x0000,0x0283
0202 0113 0286 | | .DEBUG 0x0113,0x0286,0x0002,0x0000,0x0057,0x9485,0x0000,0x0297
020a 011b 028a | | .DEBUG 0x011b,0x028a,0x0004,0x0000,0x0057,0x9485,0x0000,0x017e
0212 018b 02ac | | .DEBUG 0x018b,0x02ac,0x0001,0x0000,0x0057,0x9485,0x0000,0x008f
021a ; --------------------------------------------------------------------------------------
021a ; Debug3 Subtable 0x0
021a ; --------------------------------------------------------------------------------------
021a 0002 0000 | | .DBG3TAB 0x0002,0x0000
021c 000b ffff | | .CONST 0x000b,0xffff
021e 000d fffe | | .CONST 0x000d,0xfffe
0220 ; --------------------------------------------------------------------------------------
0220 ; Debug3 Subtable 0x1
0220 ; --------------------------------------------------------------------------------------
0220 000c 0000 | | .DBG3TAB 0x000c,0x0000
0222 0010 ffff | | .CONST 0x0010,0xffff
0224 0011 fffe | | .CONST 0x0011,0xfffe
0226 002e fffd | . | .CONST 0x002e,0xfffd
0228 0030 fffc | 0 | .CONST 0x0030,0xfffc
022a 0032 fffb | 2 | .CONST 0x0032,0xfffb
022c 0034 fffa | 4 | .CONST 0x0034,0xfffa
022e 0036 fff9 | 6 | .CONST 0x0036,0xfff9
0230 0038 fff8 | 8 | .CONST 0x0038,0xfff8
0232 003a fff7 | : | .CONST 0x003a,0xfff7
0234 003c fff6 | < | .CONST 0x003c,0xfff6
0236 003e fff5 | > | .CONST 0x003e,0xfff5
0238 004b fff4 | K | .CONST 0x004b,0xfff4
023a ; --------------------------------------------------------------------------------------
023a ; Debug3 Subtable 0x2
023a ; --------------------------------------------------------------------------------------
023a 0000 0001 | | .DBG3TAB 0x0000,0x0001
023c 0053 0001 | S | .CONST 0x0053,0x0001
023e ; --------------------------------------------------------------------------------------
023e ; Debug3 Subtable 0x3
023e ; --------------------------------------------------------------------------------------
023e 0002 0003 | | .DBG3TAB 0x0002,0x0003
0240 005b ffff | [ | .CONST 0x005b,0xffff
0242 005d fffe | ] | .CONST 0x005d,0xfffe
0244 0064 0001 | d | .CONST 0x0064,0x0001
0246 0067 0002 | g | .CONST 0x0067,0x0002
0248 0068 0003 | h | .CONST 0x0068,0x0003
024a ; --------------------------------------------------------------------------------------
024a ; Debug3 Subtable 0x4
024a ; --------------------------------------------------------------------------------------
024a 0000 0001 | | .DBG3TAB 0x0000,0x0001
024c 0073 0001 | s | .CONST 0x0073,0x0001
024e ; --------------------------------------------------------------------------------------
024e ; Debug3 Subtable 0x5
024e ; --------------------------------------------------------------------------------------
024e 0004 000f | | .DBG3TAB 0x0004,0x000f
0250 007b ffff | { | .CONST 0x007b,0xffff
0252 007e fffe | ~ | .CONST 0x007e,0xfffe
0254 0081 fffd | | .CONST 0x0081,0xfffd
0256 0083 fffc | | .CONST 0x0083,0xfffc
0258 0085 0001 | | .CONST 0x0085,0x0001
025a 0086 0401 | | .CONST 0x0086,0x0401
025c 0087 0001 | | .CONST 0x0087,0x0001
025e 0088 0002 | | .CONST 0x0088,0x0002
0260 008b 0003 | | .CONST 0x008b,0x0003
0262 008f 0004 | | .CONST 0x008f,0x0004
0264 0091 0005 | | .CONST 0x0091,0x0005
0266 0095 0006 | | .CONST 0x0095,0x0006
0268 009c 0007 | | .CONST 0x009c,0x0007
026a 009f 0008 | | .CONST 0x009f,0x0008
026c 00a3 0009 | | .CONST 0x00a3,0x0009
026e 00b5 000a | | .CONST 0x00b5,0x000a
0270 00c0 000b | | .CONST 0x00c0,0x000b
0272 00c8 000c | | .CONST 0x00c8,0x000c
0274 00cb 000d | | .CONST 0x00cb,0x000d
0276 ; --------------------------------------------------------------------------------------
0276 ; Debug3 Subtable 0x6
0276 ; --------------------------------------------------------------------------------------
0276 0000 0001 | | .DBG3TAB 0x0000,0x0001
0278 00d3 0001 | | .CONST 0x00d3,0x0001
027a ; --------------------------------------------------------------------------------------
027a ; Debug3 Subtable 0x7
027a ; --------------------------------------------------------------------------------------
027a 0000 0001 | | .DBG3TAB 0x0000,0x0001
027c 00e3 0001 | | .CONST 0x00e3,0x0001
027e ; --------------------------------------------------------------------------------------
027e ; Debug3 Subtable 0x8
027e ; --------------------------------------------------------------------------------------
027e 0000 0001 | | .DBG3TAB 0x0000,0x0001
0280 00f3 0001 | | .CONST 0x00f3,0x0001
0282 ; --------------------------------------------------------------------------------------
0282 ; Debug3 Subtable 0x9
0282 ; --------------------------------------------------------------------------------------
0282 0000 0001 | | .DBG3TAB 0x0000,0x0001
0284 0103 0001 | | .CONST 0x0103,0x0001
0286 ; --------------------------------------------------------------------------------------
0286 ; Debug3 Subtable 0xa
0286 ; --------------------------------------------------------------------------------------
0286 0000 0001 | | .DBG3TAB 0x0000,0x0001
0288 0113 0001 | | .CONST 0x0113,0x0001
028a ; --------------------------------------------------------------------------------------
028a ; Debug3 Subtable 0xb
028a ; --------------------------------------------------------------------------------------
028a 0004 000c | | .DBG3TAB 0x0004,0x000c
028c 011b ffff | | .CONST 0x011b,0xffff
028e 011f fffe | | .CONST 0x011f,0xfffe
0290 0121 fffd | ! | .CONST 0x0121,0xfffd
0292 0122 fffc | " | .CONST 0x0122,0xfffc
0294 0124 0001 | $ | .CONST 0x0124,0x0001
0296 0125 0002 | % | .CONST 0x0125,0x0002
0298 012d 0003 | - | .CONST 0x012d,0x0003
029a 013a 0004 | : | .CONST 0x013a,0x0004
029c 0140 0005 | @ | .CONST 0x0140,0x0005
029e 014e 0006 | N | .CONST 0x014e,0x0006
02a0 015b 0007 | [ | .CONST 0x015b,0x0007
02a2 0161 0008 | a | .CONST 0x0161,0x0008
02a4 0170 0009 | p | .CONST 0x0170,0x0009
02a6 0177 000a | w | .CONST 0x0177,0x000a
02a8 017f 000b | | .CONST 0x017f,0x000b
02aa 0182 000c | | .CONST 0x0182,0x000c
02ac ; --------------------------------------------------------------------------------------
02ac ; Debug3 Subtable 0xc
02ac ; --------------------------------------------------------------------------------------
02ac 0000 0004 | | .DBG3TAB 0x0000,0x0004
02ae 018b 0001 | | .CONST 0x018b,0x0001
02b0 0192 0002 | | .CONST 0x0192,0x0002
02b2 0194 0003 | | .CONST 0x0194,0x0003
02b4 019f 0004 | | .CONST 0x019f,0x0004
02b6 0000 0000 | | .BLANK 0000[0x14a]