|
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 01a0 | | .CONST 0x01a0 ; 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 0042 | B | .CONST 0x0042 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001c | | .CONST 0x001c ; Number of locals
000b INIT_0008:
000b e001 | | Load 0x0,0x1 ; Debug Table 0x0 = .DEBUG 0x000b,0x020a,0x8000,0x0000,0x0056,0xf415,0x0000,0x0007
; Debug Table 0x0.0x0 = 0xb,0xffff
; Debug Table 0x0.0x1 = 0xb,0xfffe
; Debug Table 0x0.0x2 = 0xb,0xfffd
000c 1b12 | | Execute Package,Field_Read,Field_Number 0x12
000d 0129 | ) | Execute Any,Make_Visible
000e e002 | | Load 0x0,0x2 ; Debug Table 0x0.0x3 = 0xe,0xfffc
000f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0010 0129 | ) | Execute Any,Make_Visible
0011 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x11,0xfffb
0013 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x13,0xfffa
0015 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x15,0xfff9
0017 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x7 = 0x17,0xfff8
0019 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x8 = 0x19,0xfff7
001b 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x9 = 0x1b,0xfff6
001d 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xa = 0x1d,0xfff5
001f 00bf | | Action Accept_Activation
0020 e001 | | Load 0x0,0x1 ; Debug Table 0x1 = .DEBUG 0x0020,0x0222,0x8000,0x0000,0x0056,0xf525,0x0000,0x000b
; Debug Table 0x1.0x0 = 0x20,0xffff
0021 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0022 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x1 = 0x22,0xfffe
0023 00c7 | | Action Elaborate_Subprogram
0024 616f |ao | Indirect_Literal Discrete,0x194,{0x00000000, 0x0056f525} ; Debug Table 0x1.0x2 = 0x24,0xfffd
0025 48ba |H | Short_Literal 0xba
0026 00da | | Load_Top At_Offset_2
0027 e002 | | Load 0x0,0x2
0028 1b50 | P | Execute Package,Field_Read,Field_Number 0x50
0029 0387 | | Declare_Variable Package
002a 00d8 | | Load_Top At_Offset_0
002b 020f | | Execute Module,Activate
002c 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0x3 = 0x2c,0xfffc
002d 00c7 | | Action Elaborate_Subprogram
002e 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x4 = 0x2e,0xfffb
002f 00c7 | | Action Elaborate_Subprogram
0030 e002 | | Load 0x0,0x2 ; Debug Table 0x1.0x5 = 0x30,0xfffa
0031 1930 | 0 | Execute Package,Field_Reference,Field_Number 0x30
0032 e002 | | Load 0x0,0x2 ; Debug Table 0x1.0x6 = 0x32,0xfff9
0033 1938 | 8 | Execute Package,Field_Reference,Field_Number 0x38
0034 e002 | | Load 0x0,0x2 ; Debug Table 0x1.0x7 = 0x34,0xfff8
0035 1944 | D | Execute Package,Field_Reference,Field_Number 0x44
0036 029d 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call ; Debug Table 0x1.0x8 = 0x36,0xfff7
0038 029d 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call ; Debug Table 0x1.0x9 = 0x38,0xfff6
003a 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x1.0xa = 0x3a,0xfff5
003b 00c7 | | Action Elaborate_Subprogram
003c 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0xb = 0x3c,0xfff4
003d 00c7 | | Action Elaborate_Subprogram
003e 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0xc = 0x3e,0xfff3
003f 00c7 | | Action Elaborate_Subprogram
0040 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x1.0xd = 0x40,0xfff2
0041 00c7 | | Action Elaborate_Subprogram
0042 BODY_0008:
0042 00bc | | Action Signal_Activated
0043 00bb | | Action Signal_Completion
0044 0000 0000 | | .BLANK 0000[0x4]
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 0059 | Y | .CONST 0x0059 ; Address of begin
0049 0004 | | .CONST 0x0004 ; Address of exception handler
004a 0005 | | .CONST 0x0005 ; Number of locals
004b INIT_0048:
004b 4801 |H | Short_Literal 0x1 ; Debug Table 0x2 = .DEBUG 0x004b,0x0240,0x0002,0x0000,0x0056,0xf415,0x0000,0x0020
; Debug Table 0x2.0x0 = 0x4b,0xffff
004c 00db | | Load_Top At_Offset_3
004d 01db | | Execute Vector,Length
004e 0902 | | Execute_Immediate Binary_Scale,0x2
004f 0a01 | | Execute_Immediate Plus,0x1
0050 0248 | H | Execute Discrete,Check_In_Integer
0051 00e9 | | Load_Encached String_Cache
0052 0334 | 4 | Declare_Variable Array,With_Constraint
0053 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x2.0x1 = 0x53,0xfffe
0054 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0055 029f 016b | k| Declare_Subprogram INIT_0168,For_Call ; Debug Table 0x2.0x2 = 0x55,0xfffd
0057 029f 017b | {| Declare_Subprogram INIT_0178,For_Call ; Debug Table 0x2.0x3 = 0x57,0xfffc
0059 BODY_0048:
0059 e5ff | | Load 0x2,-0x1 ; Debug Table 0x2.0x4 = 0x59,0x1
005a 01db | | Execute Vector,Length
005b 0d01 | | Execute_Immediate Less,0x1
005c 6803 |h | Jump_Zero 0x60
005d 0092 0198 | | Action Push_String_Extended,0x198 ; "."
; Debug Table 0x2.0x5 = 0x5d,0x2
005f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0060 00cf | | Action Mark_Auxiliary
0061 e5ff | | Load 0x2,-0x1 ; Debug Table 0x2.0x6 = 0x61,0x3
0062 01dc | | Execute Vector,Last
0063 0aff | | Execute_Immediate Plus,-0x1
0064 0248 | H | Execute Discrete,Check_In_Integer
0065 e5ff | | Load 0x2,-0x1
0066 01dd | | Execute Vector,First
0067 0263 | c | Execute Discrete,Above_Bound
0068 7008 |p | Jump_Nonzero 0x71
0069 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x7 = 0x69,0x4
006a e5ff | | Load 0x2,-0x1
006b 01d7 | | Execute Vector,Field_Read
006c 8405 | | Call 0x2,0x5
006d 482e |H. | Short_Literal 0x2e ; Debug Table 0x2.0x8 = 0x6d,0x5
006e 8404 | | Call 0x2,0x4
006f 00c8 | | Action Pop_Auxiliary_Range
0070 3ff8 |? | Loop_Increasing 0x69
0071 00ce | | Action Pop_Auxiliary
0072 e5ff | | Load 0x2,-0x1 ; Debug Table 0x2.0x9 = 0x72,0x6
0073 01dc | | Execute Vector,Last
0074 e5ff | | Load 0x2,-0x1
0075 01d7 | | Execute Vector,Field_Read
0076 8405 | | Call 0x2,0x5
0077 4801 |H | Short_Literal 0x1 ; Debug Table 0x2.0xa = 0x77,0x7
0078 00db | | Load_Top At_Offset_3
0079 e402 | | Load 0x2,0x2
007a 01cf | | Execute Vector,Slice_Read
007b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
007c 0000 0000 | | .BLANK 0000[0x4]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083 | | .CONST 0x0083 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0001 | | .CONST 0x0001 ; Number of locals
0083 BODY_0080:
0083 INIT_0080:
0083 00da | | Load_Top At_Offset_2 ; Debug Table 0x3 = .DEBUG 0x0083,0x0258,0x0001,0x0000,0x0056,0xf415,0x0000,0x0029
; Debug Table 0x3.0x0 = 0x83,0x1
0084 e002 | | Load 0x0,0x2
0085 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0086 8211 | | Call 0x1,0x11
0087 4502 |E | Exit_Suprogram New_Top_Offset 0x2
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 00db | | Load_Top At_Offset_3 ; Debug Table 0x4 = .DEBUG 0x008b,0x025c,0x0001,0x0000,0x0056,0xf415,0x0000,0x0031
; Debug Table 0x4.0x0 = 0x8b,0x1
008c 820f | | Call 0x1,0xf
008d 00db | | Load_Top At_Offset_3
008e e002 | | Load 0x0,0x2
008f 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
0090 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0091 0000 0000 | | .BLANK 0000[0x7]
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 00da | | Load_Top At_Offset_2 ; Debug Table 0x5 = .DEBUG 0x009b,0x0260,0x0001,0x0000,0x0056,0xf415,0x0000,0x003d
; Debug Table 0x5.0x0 = 0x9b,0x1
009c e002 | | Load 0x0,0x2
009d 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
009e 8213 | | Call 0x1,0x13
009f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a4 | | .CONST 0x00a4 ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0002 | | .CONST 0x0002 ; Number of locals
00a3 INIT_00a0:
00a3 00e8 | | Load_Encached Character_Cache ; Debug Table 0x6 = .DEBUG 0x00a3,0x0264,0x0001,0x0000,0x0056,0xf415,0x0000,0x0045
; Debug Table 0x6.0x0 = 0xa3,0xffff
00a4 BODY_00a0:
00a4 e5fe | | Load 0x2,-0x2 ; Debug Table 0x6.0x1 = 0xa4,0x1
00a5 01db | | Execute Vector,Length
00a6 0c01 | | Execute_Immediate Greater_Equal,0x1
00a7 6839 |h9 | Jump_Zero 0xe1
00a8 00cf | | Action Mark_Auxiliary
00a9 e5fe | | Load 0x2,-0x2 ; Debug Table 0x6.0x2 = 0xa9,0x2
00aa 01dc | | Execute Vector,Last
00ab 0aff | | Execute_Immediate Plus,-0x1
00ac 0248 | H | Execute Discrete,Check_In_Integer
00ad e5fe | | Load 0x2,-0x2
00ae 01dd | | Execute Vector,First
00af 0263 | c | Execute Discrete,Above_Bound
00b0 701e |p | Jump_Nonzero 0xcf
00b1 e5fe | | Load 0x2,-0x2 ; Debug Table 0x6.0x3 = 0xb1,0x3
00b2 00d9 | | Load_Top At_Offset_1
00b3 e217 | | Load 0x1,0x17
00b4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00b5 00d9 | | Load_Top At_Offset_1
00b6 00db | | Load_Top At_Offset_3
00b7 01d7 | | Execute Vector,Field_Read
00b8 00d1 | | Pop_Control Pop_Count_1
00b9 4800 |H | Short_Literal 0x0
00ba e5ff | | Load 0x2,-0x1
00bb e217 | | Load 0x1,0x17
00bc 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00bd 00d9 | | Load_Top At_Offset_1
00be 00db | | Load_Top At_Offset_3
00bf 01d6 | | Execute Vector,Field_Write
00c0 00d2 | | Pop_Control Pop_Count_2
00c1 00cf | | Action Mark_Auxiliary
00c2 00e8 | | Load_Encached Character_Cache ; Debug Table 0x6.0x4 = 0xc2,0x4
; Debug Table 0x6.0x5 = 0xc2,0x5
00c3 e5ff | | Load 0x2,-0x1
00c4 e002 | | Load 0x0,0x2
00c5 1844 | D | Execute Package,Field_Execute,Field_Number 0x44
00c6 c402 | | Store 0x2,0x2
00c7 e402 | | Load 0x2,0x2 ; Debug Table 0x6.0x6 = 0xc7,0x6
00c8 0f2e | . | Execute_Immediate Equal,0x2e
00c9 7002 |p | Jump_Nonzero 0xcc
00ca 00c9 | | Action Pop_Auxiliary_Loop
00cb 7ff6 | | Jump 0xc2
00cc 00ce | | Action Pop_Auxiliary
00cd 00c8 | | Action Pop_Auxiliary_Range
00ce 3fe2 |? | Loop_Increasing 0xb1
00cf 00ce | | Action Pop_Auxiliary
00d0 e5fe | | Load 0x2,-0x2 ; Debug Table 0x6.0x7 = 0xd0,0x7
00d1 e5fe | | Load 0x2,-0x2
00d2 01dc | | Execute Vector,Last
00d3 e217 | | Load 0x1,0x17
00d4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00d5 00d9 | | Load_Top At_Offset_1
00d6 00db | | Load_Top At_Offset_3
00d7 01d7 | | Execute Vector,Field_Read
00d8 00d1 | | Pop_Control Pop_Count_1
00d9 4800 |H | Short_Literal 0x0
00da e5ff | | Load 0x2,-0x1
00db e217 | | Load 0x1,0x17
00dc 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00dd 00d9 | | Load_Top At_Offset_1
00de 00db | | Load_Top At_Offset_3
00df 01d6 | | Execute Vector,Field_Write
00e0 00d2 | | Pop_Control Pop_Count_2
00e1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00e2 0000 0000 | | .BLANK 0000[0x6]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb | | .CONST 0x00eb ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0001 | | .CONST 0x0001 ; Number of locals
00eb BODY_00e8:
00eb INIT_00e8:
00eb e002 | | Load 0x0,0x2 ; Debug Table 0x7 = .DEBUG 0x00eb,0x0276,0x0002,0x0000,0x0056,0xf415,0x0000,0x0051
; Debug Table 0x7.0x0 = 0xeb,0x1
00ec 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
00ed 8215 | | Call 0x1,0x15
00ee 00ca | | Action Exit_Nullary_Function
00ef 0000 | | .XXX[0x1]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 010b | | .CONST 0x010b ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0004 | | .CONST 0x0004 ; Number of locals
00f3 INIT_00f0:
00f3 4801 |H | Short_Literal 0x1 ; Debug Table 0x8 = .DEBUG 0x00f3,0x027a,0x0002,0x0000,0x0056,0xf415,0x0000,0x0056
; Debug Table 0x8.0x0 = 0xf3,0xffff
00f4 609b |` | Indirect_Literal Discrete,0x190,{0x00000000, 0x00000400}
00f5 e20d | | Load 0x1,0xd
00f6 0334 | 4 | Declare_Variable Array,With_Constraint
00f7 4801 |H | Short_Literal 0x1
00f8 6097 |` | Indirect_Literal Discrete,0x190,{0x00000000, 0x00000400}
00f9 e001 | | Load 0x0,0x1
00fa 1b12 | | Execute Package,Field_Read,Field_Number 0x12
00fb 0334 | 4 | Declare_Variable Array,With_Constraint
00fc 6093 |` | Indirect_Literal Discrete,0x190,{0x00000000, 0x00000400}
00fd 4801 |H | Short_Literal 0x1
00fe 4800 |H | Short_Literal 0x0
00ff 00d9 | | Load_Top At_Offset_1
0100 e403 | | Load 0x2,0x3
0101 01d6 | | Execute Vector,Field_Write
0102 3ffb |? | Loop_Increasing 0xfe
0103 00d9 | | Load_Top At_Offset_1
0104 01d4 | | Execute Vector,Structure_Write
0105 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x8.0x1 = 0x105,0xfffe
0106 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0107 e5ff | | Load 0x2,-0x1 ; Debug Table 0x8.0x2 = 0x107,0xfffd
0108 821c | | Call 0x1,0x1c
0109 00e8 | | Load_Encached Character_Cache
010a 03f1 | | Declare_Variable Discrete,With_Value
010b BODY_00f0:
010b 00cf | | Action Mark_Auxiliary
010c 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x8.0x3 = 0x10c,0x1
; Debug Table 0x8.0x4 = 0x10c,0x2
010d 0b2e | . | Execute_Immediate Case_Compare,0x2e
010e 7007 |p | Jump_Nonzero 0x116
010f 00d8 | | Load_Top At_Offset_0
0110 4830 |H0 | Short_Literal 0x30
0111 4839 |H9 | Short_Literal 0x39
0112 0262 | b | Execute Discrete,In_Range
0113 7006 |p | Jump_Nonzero 0x11a
0114 00d1 | | Pop_Control Pop_Count_1 ; Debug Table 0x8.0x5 = 0x114,0x5
0115 7820 |x | Jump 0x136
0116 00db | | Load_Top At_Offset_3 ; Debug Table 0x8.0x6 = 0x116,0x3
0117 0a01 | | Execute_Immediate Plus,0x1
0118 c403 | | Store 0x2,0x3
0119 780f |x | Jump 0x129
011a 00db | | Load_Top At_Offset_3 ; Debug Table 0x8.0x7 = 0x11a,0x4
011b e402 | | Load 0x2,0x2
011c 01d7 | | Execute Vector,Field_Read
011d 480a |H | Short_Literal 0xa
011e 0271 | q | Execute Discrete,Times
011f 0248 | H | Execute Discrete,Check_In_Integer
0120 00db | | Load_Top At_Offset_3
0121 0ad0 | | Execute_Immediate Plus,-0x30
0122 e001 | | Load 0x0,0x1
0123 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0124 025b | [ | Execute Discrete,Check_In_Type
0125 0273 | s | Execute Discrete,Plus
0126 e403 | | Load 0x2,0x3
0127 e402 | | Load 0x2,0x2
0128 01d6 | | Execute Vector,Field_Write
0129 00d1 | | Pop_Control Pop_Count_1
012a e5ff | | Load 0x2,-0x1 ; Debug Table 0x8.0x8 = 0x12a,0x6
012b 8218 | | Call 0x1,0x18
012c 7009 |p | Jump_Nonzero 0x136
012d e5ff | | Load 0x2,-0x1
012e 8219 | | Call 0x1,0x19
012f 7006 |p | Jump_Nonzero 0x136
0130 00e8 | | Load_Encached Character_Cache ; Debug Table 0x8.0x9 = 0x130,0x7
0131 e5ff | | Load 0x2,-0x1
0132 821a | | Call 0x1,0x1a
0133 005a | Z | Store_Top Discrete,At_Offset_2
0134 00c9 | | Action Pop_Auxiliary_Loop
0135 7fd6 | | Jump 0x10c
0136 00ce | | Action Pop_Auxiliary
0137 4801 |H | Short_Literal 0x1 ; Debug Table 0x8.0xa = 0x137,0x8
0138 00da | | Load_Top At_Offset_2
0139 e402 | | Load 0x2,0x2
013a 01cf | | Execute Vector,Slice_Read
013b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
013c 0000 0000 | | .BLANK 0000[0x4]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143 | C | .CONST 0x0143 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0001 | | .CONST 0x0001 ; Number of locals
0143 BODY_0140:
0143 INIT_0140:
0143 00da | | Load_Top At_Offset_2 ; Debug Table 0x9 = .DEBUG 0x0143,0x0292,0x0002,0x0000,0x0056,0xf525,0x0000,0x0159
; Debug Table 0x9.0x0 = 0x143,0x1
0144 0f20 | | Execute_Immediate Equal,0x20
0145 7003 |p | Jump_Nonzero 0x149
0146 00da | | Load_Top At_Offset_2
0147 0f09 | | Execute_Immediate Equal,0x9
0148 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0149 4801 |H | Short_Literal 0x1
014a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
014b 0000 0000 | | .BLANK 0000[0x5]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0154 | T | .CONST 0x0154 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0002 | | .CONST 0x0002 ; Number of locals
0153 INIT_0150:
0153 00e8 | | Load_Encached Character_Cache ; Debug Table 0xa = .DEBUG 0x0153,0x0296,0x0002,0x0000,0x0056,0xf525,0x0000,0x0177
; Debug Table 0xa.0x0 = 0x153,0xffff
0154 BODY_0150:
0154 00cf | | Action Mark_Auxiliary
0155 00e8 | | Load_Encached Character_Cache ; Debug Table 0xa.0x1 = 0x155,0x1
; Debug Table 0xa.0x2 = 0x155,0x2
0156 e5ff | | Load 0x2,-0x1
0157 821a | | Call 0x1,0x1a
0158 005a | Z | Store_Top Discrete,At_Offset_2
0159 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xa.0x3 = 0x159,0x3
015a 821b | | Call 0x1,0x1b
015b 6802 |h | Jump_Zero 0x15e
015c 00c9 | | Action Pop_Auxiliary_Loop
015d 7ff7 | | Jump 0x155
015e 00ce | | Action Pop_Auxiliary
015f 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xa.0x4 = 0x15f,0x4
0160 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0161 0000 0000 | | .BLANK 0000[0x7]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b | k | .CONST 0x016b ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0001 | | .CONST 0x0001 ; Number of locals
016b BODY_0168:
016b INIT_0168:
016b e403 | | Load 0x2,0x3 ; Debug Table 0xb = .DEBUG 0x016b,0x02a2,0x0001,0x0000,0x0056,0xf525,0x0000,0x003a
; Debug Table 0xb.0x0 = 0x16b,0x1
016c 0a01 | | Execute_Immediate Plus,0x1
016d c403 | | Store 0x2,0x3
016e 00da | | Load_Top At_Offset_2 ; Debug Table 0xb.0x1 = 0x16e,0x2
016f e403 | | Load 0x2,0x3
0170 e402 | | Load 0x2,0x2
0171 01d6 | | Execute Vector,Field_Write
0172 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0173 0000 0000 | | .BLANK 0000[0x5]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 0181 | | .CONST 0x0181 ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0002 | | .CONST 0x0002 ; Number of locals
017b INIT_0178:
017b 4820 |H | Short_Literal 0x20 ; Debug Table 0xc = .DEBUG 0x017b,0x02a8,0x0001,0x0000,0x0056,0xf525,0x0000,0x0053
; Debug Table 0xc.0x0 = 0x17b,0xffff
017c 00db | | Load_Top At_Offset_3
017d 00e0 | | Load_Encached Standard_Cache
017e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
017f e003 | | Load 0x0,0x3
0180 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0181 BODY_0178:
0181 00cf | | Action Mark_Auxiliary
0182 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xc.0x1 = 0x182,0x1
0183 01d9 | | Execute Vector,Reverse_Bounds
0184 0263 | c | Execute Discrete,Above_Bound
0185 7006 |p | Jump_Nonzero 0x18c
0186 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xc.0x2 = 0x186,0x2
0187 e602 | | Load 0x3,0x2
0188 01d7 | | Execute Vector,Field_Read
0189 8404 | | Call 0x2,0x4
018a 00c8 | | Action Pop_Auxiliary_Range
018b 3ffa |? | Loop_Increasing 0x186
018c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
018d 0000 0000 | | .XXX[0x3]
018f 0000 | |
0190 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
0194 0000 0000 | | .LITERAL {0x00000000, 0x0056f525}
0198 ; --------------------------------------------------------------------------------------
0198 ; STRING TABLE
0198 ; --------------------------------------------------------------------------------------
0198 0004 | | .STRTAB 0x0004->0x019a ; "."
0199 0003 | | .STREND 0x0003->0x019a
019a 2e00 |. | .STRTAB_STRINGS
019b 0000 0000 | | .BLANK 0000[0x5]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; Debug Table
01a0 ; --------------------------------------------------------------------------------------
01a0 0003 000d | | .CONST 0x0003,0x000d
01a2 000b 020a | | .DEBUG 0x000b,0x020a,0x8000,0x0000,0x0056,0xf415,0x0000,0x0007
01aa 0020 0222 | "| .DEBUG 0x0020,0x0222,0x8000,0x0000,0x0056,0xf525,0x0000,0x000b
01b2 004b 0240 | K @| .DEBUG 0x004b,0x0240,0x0002,0x0000,0x0056,0xf415,0x0000,0x0020
01ba 0083 0258 | X| .DEBUG 0x0083,0x0258,0x0001,0x0000,0x0056,0xf415,0x0000,0x0029
01c2 008b 025c | \| .DEBUG 0x008b,0x025c,0x0001,0x0000,0x0056,0xf415,0x0000,0x0031
01ca 009b 0260 | `| .DEBUG 0x009b,0x0260,0x0001,0x0000,0x0056,0xf415,0x0000,0x003d
01d2 00a3 0264 | d| .DEBUG 0x00a3,0x0264,0x0001,0x0000,0x0056,0xf415,0x0000,0x0045
01da 00eb 0276 | v| .DEBUG 0x00eb,0x0276,0x0002,0x0000,0x0056,0xf415,0x0000,0x0051
01e2 00f3 027a | z| .DEBUG 0x00f3,0x027a,0x0002,0x0000,0x0056,0xf415,0x0000,0x0056
01ea 0143 0292 | C | .DEBUG 0x0143,0x0292,0x0002,0x0000,0x0056,0xf525,0x0000,0x0159
01f2 0153 0296 | S | .DEBUG 0x0153,0x0296,0x0002,0x0000,0x0056,0xf525,0x0000,0x0177
01fa 016b 02a2 | k | .DEBUG 0x016b,0x02a2,0x0001,0x0000,0x0056,0xf525,0x0000,0x003a
0202 017b 02a8 | { | .DEBUG 0x017b,0x02a8,0x0001,0x0000,0x0056,0xf525,0x0000,0x0053
020a ; --------------------------------------------------------------------------------------
020a ; Debug3 Subtable 0x0
020a ; --------------------------------------------------------------------------------------
020a 000b 0000 | | .DBG3TAB 0x000b,0x0000
020c 000b ffff | | .CONST 0x000b,0xffff
020e 000b fffe | | .CONST 0x000b,0xfffe
0210 000b fffd | | .CONST 0x000b,0xfffd
0212 000e fffc | | .CONST 0x000e,0xfffc
0214 0011 fffb | | .CONST 0x0011,0xfffb
0216 0013 fffa | | .CONST 0x0013,0xfffa
0218 0015 fff9 | | .CONST 0x0015,0xfff9
021a 0017 fff8 | | .CONST 0x0017,0xfff8
021c 0019 fff7 | | .CONST 0x0019,0xfff7
021e 001b fff6 | | .CONST 0x001b,0xfff6
0220 001d fff5 | | .CONST 0x001d,0xfff5
0222 ; --------------------------------------------------------------------------------------
0222 ; Debug3 Subtable 0x1
0222 ; --------------------------------------------------------------------------------------
0222 000e 0000 | | .DBG3TAB 0x000e,0x0000
0224 0020 ffff | | .CONST 0x0020,0xffff
0226 0022 fffe | " | .CONST 0x0022,0xfffe
0228 0024 fffd | $ | .CONST 0x0024,0xfffd
022a 002c fffc | , | .CONST 0x002c,0xfffc
022c 002e fffb | . | .CONST 0x002e,0xfffb
022e 0030 fffa | 0 | .CONST 0x0030,0xfffa
0230 0032 fff9 | 2 | .CONST 0x0032,0xfff9
0232 0034 fff8 | 4 | .CONST 0x0034,0xfff8
0234 0036 fff7 | 6 | .CONST 0x0036,0xfff7
0236 0038 fff6 | 8 | .CONST 0x0038,0xfff6
0238 003a fff5 | : | .CONST 0x003a,0xfff5
023a 003c fff4 | < | .CONST 0x003c,0xfff4
023c 003e fff3 | > | .CONST 0x003e,0xfff3
023e 0040 fff2 | @ | .CONST 0x0040,0xfff2
0240 ; --------------------------------------------------------------------------------------
0240 ; Debug3 Subtable 0x2
0240 ; --------------------------------------------------------------------------------------
0240 0004 0007 | | .DBG3TAB 0x0004,0x0007
0242 004b ffff | K | .CONST 0x004b,0xffff
0244 0053 fffe | S | .CONST 0x0053,0xfffe
0246 0055 fffd | U | .CONST 0x0055,0xfffd
0248 0057 fffc | W | .CONST 0x0057,0xfffc
024a 0059 0001 | Y | .CONST 0x0059,0x0001
024c 005d 0002 | ] | .CONST 0x005d,0x0002
024e 0061 0003 | a | .CONST 0x0061,0x0003
0250 0069 0004 | i | .CONST 0x0069,0x0004
0252 006d 0005 | m | .CONST 0x006d,0x0005
0254 0072 0006 | r | .CONST 0x0072,0x0006
0256 0077 0007 | w | .CONST 0x0077,0x0007
0258 ; --------------------------------------------------------------------------------------
0258 ; Debug3 Subtable 0x3
0258 ; --------------------------------------------------------------------------------------
0258 0000 0001 | | .DBG3TAB 0x0000,0x0001
025a 0083 0001 | | .CONST 0x0083,0x0001
025c ; --------------------------------------------------------------------------------------
025c ; Debug3 Subtable 0x4
025c ; --------------------------------------------------------------------------------------
025c 0000 0001 | | .DBG3TAB 0x0000,0x0001
025e 008b 0001 | | .CONST 0x008b,0x0001
0260 ; --------------------------------------------------------------------------------------
0260 ; Debug3 Subtable 0x5
0260 ; --------------------------------------------------------------------------------------
0260 0000 0001 | | .DBG3TAB 0x0000,0x0001
0262 009b 0001 | | .CONST 0x009b,0x0001
0264 ; --------------------------------------------------------------------------------------
0264 ; Debug3 Subtable 0x6
0264 ; --------------------------------------------------------------------------------------
0264 0001 0007 | | .DBG3TAB 0x0001,0x0007
0266 00a3 ffff | | .CONST 0x00a3,0xffff
0268 00a4 0001 | | .CONST 0x00a4,0x0001
026a 00a9 0002 | | .CONST 0x00a9,0x0002
026c 00b1 0003 | | .CONST 0x00b1,0x0003
026e 00c2 0004 | | .CONST 0x00c2,0x0004
0270 00c2 0005 | | .CONST 0x00c2,0x0005
0272 00c7 0006 | | .CONST 0x00c7,0x0006
0274 00d0 0007 | | .CONST 0x00d0,0x0007
0276 ; --------------------------------------------------------------------------------------
0276 ; Debug3 Subtable 0x7
0276 ; --------------------------------------------------------------------------------------
0276 0000 0001 | | .DBG3TAB 0x0000,0x0001
0278 00eb 0001 | | .CONST 0x00eb,0x0001
027a ; --------------------------------------------------------------------------------------
027a ; Debug3 Subtable 0x8
027a ; --------------------------------------------------------------------------------------
027a 0003 0008 | | .DBG3TAB 0x0003,0x0008
027c 00f3 ffff | | .CONST 0x00f3,0xffff
027e 0105 fffe | | .CONST 0x0105,0xfffe
0280 0107 fffd | | .CONST 0x0107,0xfffd
0282 010c 0001 | | .CONST 0x010c,0x0001
0284 010c 0002 | | .CONST 0x010c,0x0002
0286 0114 0005 | | .CONST 0x0114,0x0005
0288 0116 0003 | | .CONST 0x0116,0x0003
028a 011a 0004 | | .CONST 0x011a,0x0004
028c 012a 0006 | * | .CONST 0x012a,0x0006
028e 0130 0007 | 0 | .CONST 0x0130,0x0007
0290 0137 0008 | 7 | .CONST 0x0137,0x0008
0292 ; --------------------------------------------------------------------------------------
0292 ; Debug3 Subtable 0x9
0292 ; --------------------------------------------------------------------------------------
0292 0000 0001 | | .DBG3TAB 0x0000,0x0001
0294 0143 0001 | C | .CONST 0x0143,0x0001
0296 ; --------------------------------------------------------------------------------------
0296 ; Debug3 Subtable 0xa
0296 ; --------------------------------------------------------------------------------------
0296 0001 0004 | | .DBG3TAB 0x0001,0x0004
0298 0153 ffff | S | .CONST 0x0153,0xffff
029a 0155 0001 | U | .CONST 0x0155,0x0001
029c 0155 0002 | U | .CONST 0x0155,0x0002
029e 0159 0003 | Y | .CONST 0x0159,0x0003
02a0 015f 0004 | _ | .CONST 0x015f,0x0004
02a2 ; --------------------------------------------------------------------------------------
02a2 ; Debug3 Subtable 0xb
02a2 ; --------------------------------------------------------------------------------------
02a2 0000 0002 | | .DBG3TAB 0x0000,0x0002
02a4 016b 0001 | k | .CONST 0x016b,0x0001
02a6 016e 0002 | n | .CONST 0x016e,0x0002
02a8 ; --------------------------------------------------------------------------------------
02a8 ; Debug3 Subtable 0xc
02a8 ; --------------------------------------------------------------------------------------
02a8 0001 0002 | | .DBG3TAB 0x0001,0x0002
02aa 017b ffff | { | .CONST 0x017b,0xffff
02ac 0182 0001 | | .CONST 0x0182,0x0001
02ae 0186 0002 | | .CONST 0x0186,0x0002
02b0 0000 0000 | | .BLANK 0000[0x150]