|
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 0065 | e | .CONST 0x0065 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0020 | | .CONST 0x0020 ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 ; Debug Table 0x0 = .DEBUG 0x000b,0x0242,0x8000,0x0000,0x0052,0x9df5,0x0000,0x0003 ; Debug Table 0x0.0x0 = 0xb,0xffff ; Debug Table 0x0.0x1 = 0xb,0xfffe ; Debug Table 0x0.0x2 = 0xb,0xfffd ; Debug Table 0x0.0x3 = 0xb,0xfffc 000c 487f |H | Short_Literal 0x7f 000d 00e3 | | Load_Encached Natural_Cache 000e 03f9 | | Declare_Type Discrete,Constrained,Visible 000f 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x4 = 0xf,0xfffb 0010 4802 |H | Short_Literal 0x2 0011 029f 006b | k| Declare_Subprogram INIT_0068,For_Call 0013 03fe | | Declare_Type Discrete,Defined,Visible 0014 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x5 = 0x14,0xfffa 0015 4803 |H | Short_Literal 0x3 0016 029f 0083 | | Declare_Subprogram INIT_0080,For_Call 0018 03fe | | Declare_Type Discrete,Defined,Visible 0019 4804 |H | Short_Literal 0x4 ; Debug Table 0x0.0x6 = 0x19,0xfff9 001a 032b | + | Declare_Type Record,Incomplete,Visible 001b 00db | | Load_Top At_Offset_3 ; Debug Table 0x0.0x7 = 0x1b,0xfff8 001c 0450 | P | Execute_Immediate Set_Value_Visible_Unchecked,0x50 001d 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x8 = 0x1d,0xfff7 001f 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x9 = 0x1f,0xfff6 0021 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xa = 0x21,0xfff5 0023 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xb = 0x23,0xfff4 0025 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xc = 0x25,0xfff3 0027 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xd = 0x27,0xfff2 0029 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xe = 0x29,0xfff1 002b 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xf = 0x2b,0xfff0 002d 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x10 = 0x2d,0xffef 002f 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x11 = 0x2f,0xffee 0031 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x12 = 0x31,0xffed 0033 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x13 = 0x33,0xffec 0035 e20f | | Load 0x1,0xf ; Debug Table 0x0.0x14 = 0x35,0xffeb 0036 e20e | | Load 0x1,0xe 0037 02a0 | | Declare_Subprogram Null_Subprogram 0038 4802 |H | Short_Literal 0x2 0039 032d | - | Declare_Type Record,Defined 003a 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x15 = 0x3a,0xffea 003b 0322 | " | Declare_Variable Record 003c 4802 |H | Short_Literal 0x2 003d 00d9 | | Load_Top At_Offset_1 003e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 003f 4801 |H | Short_Literal 0x1 0040 00d9 | | Load_Top At_Offset_1 0041 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0042 e20d | | Load 0x1,0xd ; Debug Table 0x0.0x16 = 0x42,0xffe9 0043 e20d | | Load 0x1,0xd 0044 e20d | | Load 0x1,0xd 0045 e21e | | Load 0x1,0x1e 0046 029f 0153 | S| Declare_Subprogram INIT_0150,For_Call 0048 e210 | | Load 0x1,0x10 0049 0326 | & | Complete_Type Record,By_Defining 004a 00bf | | Action Accept_Activation 004b 029d 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call ; Debug Table 0x1 = .DEBUG 0x004b,0x0272,0x8000,0x0000,0x0052,0x9e05,0x0000,0x0003 ; Debug Table 0x1.0x0 = 0x4b,0xffff 004d 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0x1 = 0x4d,0xfffe 004e 00c7 | | Action Elaborate_Subprogram 004f 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0x2 = 0x4f,0xfffd 0050 00c7 | | Action Elaborate_Subprogram 0051 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x1.0x3 = 0x51,0xfffc 0052 00c7 | | Action Elaborate_Subprogram 0053 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x1.0x4 = 0x53,0xfffb 0054 00c7 | | Action Elaborate_Subprogram 0055 1d16 | | Execute_Immediate Reference_Lex_1,0x16 ; Debug Table 0x1.0x5 = 0x55,0xfffa 0056 00c7 | | Action Elaborate_Subprogram 0057 1d17 | | Execute_Immediate Reference_Lex_1,0x17 ; Debug Table 0x1.0x6 = 0x57,0xfff9 0058 00c7 | | Action Elaborate_Subprogram 0059 1d18 | | Execute_Immediate Reference_Lex_1,0x18 ; Debug Table 0x1.0x7 = 0x59,0xfff8 005a 00c7 | | Action Elaborate_Subprogram 005b 1d19 | | Execute_Immediate Reference_Lex_1,0x19 ; Debug Table 0x1.0x8 = 0x5b,0xfff7 005c 00c7 | | Action Elaborate_Subprogram 005d 1d1a | | Execute_Immediate Reference_Lex_1,0x1a ; Debug Table 0x1.0x9 = 0x5d,0xfff6 005e 00c7 | | Action Elaborate_Subprogram 005f 1d1b | | Execute_Immediate Reference_Lex_1,0x1b ; Debug Table 0x1.0xa = 0x5f,0xfff5 0060 00c7 | | Action Elaborate_Subprogram 0061 1d1c | | Execute_Immediate Reference_Lex_1,0x1c ; Debug Table 0x1.0xb = 0x61,0xfff4 0062 00c7 | | Action Elaborate_Subprogram 0063 1d1d | | Execute_Immediate Reference_Lex_1,0x1d ; Debug Table 0x1.0xc = 0x63,0xfff3 0064 00c7 | | Action Elaborate_Subprogram 0065 BODY_0008: 0065 00bc | | Action Signal_Activated 0066 00bb | | Action Signal_Completion 0067 0000 | | .XXX[0x1] 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 006b | k | .CONST 0x006b ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0001 | | .CONST 0x0001 ; Number of locals 006b BODY_0068: 006b INIT_0068: 006b 4603 |F | Jump_Case 0x4 ; Debug Table 0x2 = .DEBUG 0x006b,0x028e,0x0005,0x0000,0x0052,0x9df5,0x0000,0x0018 006c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 006d 7802 |x | Jump 0x70 ; case 0x1 006e 7805 |x | Jump 0x74 ; case 0x2 006f 7809 |x | Jump 0x79 ; case 0x3 0070 00da | | Load_Top At_Offset_2 0071 0091 017c | || Action Push_String_Extended_Indexed,0x17c ; "LOWERCASE" 0073 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0074 00db | | Load_Top At_Offset_3 0075 00db | | Load_Top At_Offset_3 0076 00e0 | | Load_Encached Standard_Cache 0077 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0078 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0079 00da | | Load_Top At_Offset_2 007a 00e0 | | Load_Encached Standard_Cache 007b 181c | | Execute Package,Field_Execute,Field_Number 0x1c 007c 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 007d 0000 0000 | | .XXX[0x3] 007f 0000 | | 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 4603 |F | Jump_Case 0x4 ; Debug Table 0x3 = .DEBUG 0x0083,0x0290,0x0005,0x0000,0x0052,0x9df5,0x0000,0x001f 0084 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0085 7802 |x | Jump 0x88 ; case 0x1 0086 7805 |x | Jump 0x8c ; case 0x2 0087 7809 |x | Jump 0x91 ; case 0x3 0088 00da | | Load_Top At_Offset_2 0089 0091 017f | | Action Push_String_Extended_Indexed,0x17f ; "ELIDED" 008b 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 008c 00db | | Load_Top At_Offset_3 008d 00db | | Load_Top At_Offset_3 008e 00e0 | | Load_Encached Standard_Cache 008f 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0090 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0091 00da | | Load_Top At_Offset_2 0092 00e0 | | Load_Encached Standard_Cache 0093 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0094 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0095 0000 0000 | | .XXX[0x3] 0097 0000 | | 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 009b | | .CONST 0x009b ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 0001 | | .CONST 0x0001 ; Number of locals 009b BODY_0098: 009b INIT_0098: 009b e210 | | Load 0x1,0x10 ; Debug Table 0x4 = .DEBUG 0x009b,0x0292,0x0002,0x0000,0x0052,0x9df5,0x0000,0x0031 ; Debug Table 0x4.0x0 = 0x9b,0x1 009c 0322 | " | Declare_Variable Record 009d 4801 |H | Short_Literal 0x1 009e 00d9 | | Load_Top At_Offset_1 009f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00a0 4801 |H | Short_Literal 0x1 00a1 00d9 | | Load_Top At_Offset_1 00a2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00a3 4801 |H | Short_Literal 0x1 00a4 00d9 | | Load_Top At_Offset_1 00a5 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00a6 e21f | | Load 0x1,0x1f 00a7 00d9 | | Load_Top At_Offset_1 00a8 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 00a9 00ca | | Action Exit_Nullary_Function 00aa 0000 0000 | | .BLANK 0000[0x6] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b8 | | .CONST 0x00b8 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0002 | | .CONST 0x0002 ; Number of locals 00b3 INIT_00b0: 00b3 e210 | | Load 0x1,0x10 ; Debug Table 0x5 = .DEBUG 0x00b3,0x0296,0x0002,0x0000,0x0052,0x9df5,0x0000,0x0036 ; Debug Table 0x5.0x0 = 0xb3,0xffff 00b4 0322 | " | Declare_Variable Record 00b5 00db | | Load_Top At_Offset_3 00b6 00d9 | | Load_Top At_Offset_1 00b7 017d | } | Execute Record,Structure_Write 00b8 BODY_00b0: 00b8 e5fe | | Load 0x2,-0x2 ; Debug Table 0x5.0x1 = 0xb8,0x1 00b9 e5ff | | Load 0x2,-0x1 00ba 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00bb 8220 | | Call 0x1,0x20 00bc 00d9 | | Load_Top At_Offset_1 00bd 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00be 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0x2 = 0xbe,0x2 00bf 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c8 | | .CONST 0x00c8 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0002 | | .CONST 0x0002 ; Number of locals 00c3 INIT_00c0: 00c3 e210 | | Load 0x1,0x10 ; Debug Table 0x6 = .DEBUG 0x00c3,0x029e,0x0002,0x0000,0x0052,0x9df5,0x0000,0x0043 ; Debug Table 0x6.0x0 = 0xc3,0xffff 00c4 0322 | " | Declare_Variable Record 00c5 00db | | Load_Top At_Offset_3 00c6 00d9 | | Load_Top At_Offset_1 00c7 017d | } | Execute Record,Structure_Write 00c8 BODY_00c0: 00c8 e5fe | | Load 0x2,-0x2 ; Debug Table 0x6.0x1 = 0xc8,0x1 00c9 00d9 | | Load_Top At_Offset_1 00ca 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00cb 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x2 = 0xcb,0x2 00cc 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00cd 0000 0000 | | .XXX[0x3] 00cf 0000 | | 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d8 | | .CONST 0x00d8 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0002 | | .CONST 0x0002 ; Number of locals 00d3 INIT_00d0: 00d3 e210 | | Load 0x1,0x10 ; Debug Table 0x7 = .DEBUG 0x00d3,0x02a6,0x0002,0x0000,0x0052,0x9df5,0x0000,0x0050 ; Debug Table 0x7.0x0 = 0xd3,0xffff 00d4 0322 | " | Declare_Variable Record 00d5 00db | | Load_Top At_Offset_3 00d6 00d9 | | Load_Top At_Offset_1 00d7 017d | } | Execute Record,Structure_Write 00d8 BODY_00d0: 00d8 e5fe | | Load 0x2,-0x2 ; Debug Table 0x7.0x1 = 0xd8,0x1 00d9 00d9 | | Load_Top At_Offset_1 00da 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00db 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0x2 = 0xdb,0x2 00dc 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00dd 0000 0000 | | .XXX[0x3] 00df 0000 | | 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 00da | | Load_Top At_Offset_2 ; Debug Table 0x8 = .DEBUG 0x00e3,0x02ae,0x0002,0x0000,0x0052,0x9df5,0x0000,0x005d ; Debug Table 0x8.0x0 = 0xe3,0x1 00e4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00e5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00e6 0000 0000 | | .XXX[0x2] 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 00da | | Load_Top At_Offset_2 ; Debug Table 0x9 = .DEBUG 0x00eb,0x02b2,0x0002,0x0000,0x0052,0x9df5,0x0000,0x0066 ; Debug Table 0x9.0x0 = 0xeb,0x1 00ec 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00ed 00db | | Load_Top At_Offset_3 00ee 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00ef 0a04 | | Execute_Immediate Plus,0x4 00f0 027c | | | Execute Discrete,Less 00f1 6806 |h | Jump_Zero 0xf8 00f2 00da | | Load_Top At_Offset_2 ; Debug Table 0x9.0x1 = 0xf2,0x2 00f3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00f4 0a04 | | Execute_Immediate Plus,0x4 00f5 e20d | | Load 0x1,0xd 00f6 025b | [ | Execute Discrete,Check_In_Type 00f7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00f8 00da | | Load_Top At_Offset_2 ; Debug Table 0x9.0x2 = 0xf8,0x3 00f9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00fa 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00fb 0000 0000 | | .BLANK 0000[0x5] 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 00da | | Load_Top At_Offset_2 ; Debug Table 0xa = .DEBUG 0x0103,0x02ba,0x0002,0x0000,0x0052,0x9df5,0x0000,0x006f ; Debug Table 0xa.0x0 = 0x103,0x1 0104 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0105 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0106 0000 0000 | | .XXX[0x2] 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 00da | | Load_Top At_Offset_2 ; Debug Table 0xb = .DEBUG 0x010b,0x02be,0x0001,0x0000,0x0052,0x9df5,0x0000,0x0078 ; Debug Table 0xb.0x0 = 0x10b,0x1 010c e5fe | | Load 0x2,-0x2 010d 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 010e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 010f 4502 |E | Exit_Suprogram New_Top_Offset 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 0xc = .DEBUG 0x0113,0x02c2,0x0002,0x0000,0x0052,0x9df5,0x0000,0x0084 ; Debug Table 0xc.0x0 = 0x113,0x1 0114 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0115 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0116 e5fe | | Load 0x2,-0x2 0117 027f | | Execute Discrete,Equal 0118 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0119 0000 0000 | | .BLANK 0000[0x7] 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0123 | # | .CONST 0x0123 ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0001 | | .CONST 0x0001 ; Number of locals 0123 BODY_0120: 0123 INIT_0120: 0123 00da | | Load_Top At_Offset_2 ; Debug Table 0xd = .DEBUG 0x0123,0x02c6,0x0001,0x0000,0x0052,0x9df5,0x0000,0x0091 ; Debug Table 0xd.0x0 = 0x123,0x1 0124 e5fe | | Load 0x2,-0x2 0125 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0126 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0127 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 012b | + | .CONST 0x012b ; Address of begin 0129 0004 | | .CONST 0x0004 ; Address of exception handler 012a 0001 | | .CONST 0x0001 ; Number of locals 012b BODY_0128: 012b INIT_0128: 012b 00da | | Load_Top At_Offset_2 ; Debug Table 0xe = .DEBUG 0x012b,0x02ca,0x0002,0x0000,0x0052,0x9df5,0x0000,0x009d ; Debug Table 0xe.0x0 = 0x12b,0x1 012c 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 012d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 012e e5fe | | Load 0x2,-0x2 012f 027f | | Execute Discrete,Equal 0130 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0131 0000 0000 | | .BLANK 0000[0x7] 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 013b | ; | .CONST 0x013b ; Address of begin 0139 0004 | | .CONST 0x0004 ; Address of exception handler 013a 0001 | | .CONST 0x0001 ; Number of locals 013b BODY_0138: 013b INIT_0138: 013b 0092 0183 | | Action Push_String_Extended,0x183 ; " <" ; Debug Table 0xf = .DEBUG 0x013b,0x02ce,0x2801,0x0002,0x0052,0x9df5,0x0000,0x00aa ; Debug Table 0xf.0x0 = 0x13b,0x1 013d 85fe | | Call 0x2,-0x2 013e e5fd | | Load 0x2,-0x3 ; Debug Table 0xf.0x1 = 0x13e,0x2 013f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0140 00e0 | | Load_Encached Standard_Cache 0141 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0142 85fe | | Call 0x2,-0x2 0143 0092 0184 | | Action Push_String_Extended,0x184 ; ", " ; Debug Table 0xf.0x2 = 0x143,0x3 0145 85fe | | Call 0x2,-0x2 0146 e5fd | | Load 0x2,-0x3 ; Debug Table 0xf.0x3 = 0x146,0x4 0147 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0148 00e0 | | Load_Encached Standard_Cache 0149 1818 | | Execute Package,Field_Execute,Field_Number 0x18 014a 85fe | | Call 0x2,-0x2 014b 0092 0185 | | Action Push_String_Extended,0x185 ; ">" ; Debug Table 0xf.0x4 = 0x14b,0x5 014d 85fe | | Call 0x2,-0x2 014e 4504 |E | Exit_Suprogram New_Top_Offset 0x4 014f 0000 | | .XXX[0x1] 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0153 | S | .CONST 0x0153 ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0001 | | .CONST 0x0001 ; Number of locals 0153 BODY_0150: 0153 INIT_0150: 0153 4608 |F | Jump_Case 0x9 ; Debug Table 0x10 = .DEBUG 0x0153,0x02da,0x0005,0x0000,0x0052,0x9df5,0x0000,0x00db 0154 7808 |x | Jump 0x15d ; case 0x0 0155 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0156 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 0157 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 0158 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 0159 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5 015a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6 015b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7 015c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8 015d 4801 |H | Short_Literal 0x1 015e 00db | | Load_Top At_Offset_3 015f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0160 4801 |H | Short_Literal 0x1 0161 00db | | Load_Top At_Offset_3 0162 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0163 4801 |H | Short_Literal 0x1 0164 00db | | Load_Top At_Offset_3 0165 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0166 e21f | | Load 0x1,0x1f 0167 00db | | Load_Top At_Offset_3 0168 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0169 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 016a 0000 0000 | | .BLANK 0000[0x6] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0173 | s | .CONST 0x0173 ; Address of begin 0171 0179 | y | .CONST 0x0179 ; 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 0x11 = .DEBUG 0x0173,0x02dc,0x0002,0x0000,0x0052,0x9e05,0x0000,0x0004 ; Debug Table 0x11.0x0 = 0x173,0x1 0174 e5fe | | Load 0x2,-0x2 0175 0273 | s | Execute Discrete,Plus 0176 e20d | | Load 0x1,0xd 0177 025b | [ | Execute Discrete,Check_In_Type 0178 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0179 TRAP_0170: 0179 0007 | | Action Break_Optional 017a 487f |H | Short_Literal 0x7f ; Debug Table 0x11.0x1 = 0x17a,0x2 017b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 017c ; -------------------------------------------------------------------------------------- 017c ; STRING TABLE 017c ; -------------------------------------------------------------------------------------- 017c 0016 | | .STRTAB 0x0016->0x0187 ; "LOWERCASE" 017d 001d | | .STRTAB 0x001d->0x018b ; "CAPITALIZE" 017e 0025 | % | .STRTAB 0x0025->0x0190 ; "UPPERCASE" 017f 002c | , | .STRTAB 0x002c->0x0195 ; "ELIDED" 0180 0030 | 0 | .STRTAB 0x0030->0x0198 ; "CRAMMED" 0181 0035 | 5 | .STRTAB 0x0035->0x019b ; "IGNORE_BLANK_LINES" 0182 0045 | E | .STRTAB 0x0045->0x01a4 ; "INSERT_BLANK_LINES" 0183 0055 | U | .STRTAB 0x0055->0x01ad ; " <" 0184 0055 | U | .STRTAB 0x0055->0x01ae ; ", " 0185 0055 | U | .STRTAB 0x0055->0x01af ; ">" 0186 0054 | T | .STREND 0x0054->0x01b0 0187 4c4f 5745 |LOWE| .STRTAB_STRINGS 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; Debug Table 01b0 ; -------------------------------------------------------------------------------------- 01b0 0003 0012 | | .CONST 0x0003,0x0012 01b2 000b 0242 | B| .DEBUG 0x000b,0x0242,0x8000,0x0000,0x0052,0x9df5,0x0000,0x0003 01ba 004b 0272 | K r| .DEBUG 0x004b,0x0272,0x8000,0x0000,0x0052,0x9e05,0x0000,0x0003 01c2 006b 028e | k | .DEBUG 0x006b,0x028e,0x0005,0x0000,0x0052,0x9df5,0x0000,0x0018 01ca 0083 0290 | | .DEBUG 0x0083,0x0290,0x0005,0x0000,0x0052,0x9df5,0x0000,0x001f 01d2 009b 0292 | | .DEBUG 0x009b,0x0292,0x0002,0x0000,0x0052,0x9df5,0x0000,0x0031 01da 00b3 0296 | | .DEBUG 0x00b3,0x0296,0x0002,0x0000,0x0052,0x9df5,0x0000,0x0036 01e2 00c3 029e | | .DEBUG 0x00c3,0x029e,0x0002,0x0000,0x0052,0x9df5,0x0000,0x0043 01ea 00d3 02a6 | | .DEBUG 0x00d3,0x02a6,0x0002,0x0000,0x0052,0x9df5,0x0000,0x0050 01f2 00e3 02ae | | .DEBUG 0x00e3,0x02ae,0x0002,0x0000,0x0052,0x9df5,0x0000,0x005d 01fa 00eb 02b2 | | .DEBUG 0x00eb,0x02b2,0x0002,0x0000,0x0052,0x9df5,0x0000,0x0066 0202 0103 02ba | | .DEBUG 0x0103,0x02ba,0x0002,0x0000,0x0052,0x9df5,0x0000,0x006f 020a 010b 02be | | .DEBUG 0x010b,0x02be,0x0001,0x0000,0x0052,0x9df5,0x0000,0x0078 0212 0113 02c2 | | .DEBUG 0x0113,0x02c2,0x0002,0x0000,0x0052,0x9df5,0x0000,0x0084 021a 0123 02c6 | # | .DEBUG 0x0123,0x02c6,0x0001,0x0000,0x0052,0x9df5,0x0000,0x0091 0222 012b 02ca | + | .DEBUG 0x012b,0x02ca,0x0002,0x0000,0x0052,0x9df5,0x0000,0x009d 022a 013b 02ce | ; | .DEBUG 0x013b,0x02ce,0x2801,0x0002,0x0052,0x9df5,0x0000,0x00aa 0232 0153 02da | S | .DEBUG 0x0153,0x02da,0x0005,0x0000,0x0052,0x9df5,0x0000,0x00db 023a 0173 02dc | s | .DEBUG 0x0173,0x02dc,0x0002,0x0000,0x0052,0x9e05,0x0000,0x0004 0242 ; -------------------------------------------------------------------------------------- 0242 ; Debug3 Subtable 0x0 0242 ; -------------------------------------------------------------------------------------- 0242 0017 0000 | | .DBG3TAB 0x0017,0x0000 0244 000b ffff | | .CONST 0x000b,0xffff 0246 000b fffe | | .CONST 0x000b,0xfffe 0248 000b fffd | | .CONST 0x000b,0xfffd 024a 000b fffc | | .CONST 0x000b,0xfffc 024c 000f fffb | | .CONST 0x000f,0xfffb 024e 0014 fffa | | .CONST 0x0014,0xfffa 0250 0019 fff9 | | .CONST 0x0019,0xfff9 0252 001b fff8 | | .CONST 0x001b,0xfff8 0254 001d fff7 | | .CONST 0x001d,0xfff7 0256 001f fff6 | | .CONST 0x001f,0xfff6 0258 0021 fff5 | ! | .CONST 0x0021,0xfff5 025a 0023 fff4 | # | .CONST 0x0023,0xfff4 025c 0025 fff3 | % | .CONST 0x0025,0xfff3 025e 0027 fff2 | ' | .CONST 0x0027,0xfff2 0260 0029 fff1 | ) | .CONST 0x0029,0xfff1 0262 002b fff0 | + | .CONST 0x002b,0xfff0 0264 002d ffef | - | .CONST 0x002d,0xffef 0266 002f ffee | / | .CONST 0x002f,0xffee 0268 0031 ffed | 1 | .CONST 0x0031,0xffed 026a 0033 ffec | 3 | .CONST 0x0033,0xffec 026c 0035 ffeb | 5 | .CONST 0x0035,0xffeb 026e 003a ffea | : | .CONST 0x003a,0xffea 0270 0042 ffe9 | B | .CONST 0x0042,0xffe9 0272 ; -------------------------------------------------------------------------------------- 0272 ; Debug3 Subtable 0x1 0272 ; -------------------------------------------------------------------------------------- 0272 000d 0000 | | .DBG3TAB 0x000d,0x0000 0274 004b ffff | K | .CONST 0x004b,0xffff 0276 004d fffe | M | .CONST 0x004d,0xfffe 0278 004f fffd | O | .CONST 0x004f,0xfffd 027a 0051 fffc | Q | .CONST 0x0051,0xfffc 027c 0053 fffb | S | .CONST 0x0053,0xfffb 027e 0055 fffa | U | .CONST 0x0055,0xfffa 0280 0057 fff9 | W | .CONST 0x0057,0xfff9 0282 0059 fff8 | Y | .CONST 0x0059,0xfff8 0284 005b fff7 | [ | .CONST 0x005b,0xfff7 0286 005d fff6 | ] | .CONST 0x005d,0xfff6 0288 005f fff5 | _ | .CONST 0x005f,0xfff5 028a 0061 fff4 | a | .CONST 0x0061,0xfff4 028c 0063 fff3 | c | .CONST 0x0063,0xfff3 028e ; -------------------------------------------------------------------------------------- 028e ; Debug3 Subtable 0x2 028e ; -------------------------------------------------------------------------------------- 028e 0000 0000 | | .DBG3TAB 0x0000,0x0000 0290 ; -------------------------------------------------------------------------------------- 0290 ; Debug3 Subtable 0x3 0290 ; -------------------------------------------------------------------------------------- 0290 0000 0000 | | .DBG3TAB 0x0000,0x0000 0292 ; -------------------------------------------------------------------------------------- 0292 ; Debug3 Subtable 0x4 0292 ; -------------------------------------------------------------------------------------- 0292 0000 0001 | | .DBG3TAB 0x0000,0x0001 0294 009b 0001 | | .CONST 0x009b,0x0001 0296 ; -------------------------------------------------------------------------------------- 0296 ; Debug3 Subtable 0x5 0296 ; -------------------------------------------------------------------------------------- 0296 0001 0002 | | .DBG3TAB 0x0001,0x0002 0298 00b3 ffff | | .CONST 0x00b3,0xffff 029a 00b8 0001 | | .CONST 0x00b8,0x0001 029c 00be 0002 | | .CONST 0x00be,0x0002 029e ; -------------------------------------------------------------------------------------- 029e ; Debug3 Subtable 0x6 029e ; -------------------------------------------------------------------------------------- 029e 0001 0002 | | .DBG3TAB 0x0001,0x0002 02a0 00c3 ffff | | .CONST 0x00c3,0xffff 02a2 00c8 0001 | | .CONST 0x00c8,0x0001 02a4 00cb 0002 | | .CONST 0x00cb,0x0002 02a6 ; -------------------------------------------------------------------------------------- 02a6 ; Debug3 Subtable 0x7 02a6 ; -------------------------------------------------------------------------------------- 02a6 0001 0002 | | .DBG3TAB 0x0001,0x0002 02a8 00d3 ffff | | .CONST 0x00d3,0xffff 02aa 00d8 0001 | | .CONST 0x00d8,0x0001 02ac 00db 0002 | | .CONST 0x00db,0x0002 02ae ; -------------------------------------------------------------------------------------- 02ae ; Debug3 Subtable 0x8 02ae ; -------------------------------------------------------------------------------------- 02ae 0000 0001 | | .DBG3TAB 0x0000,0x0001 02b0 00e3 0001 | | .CONST 0x00e3,0x0001 02b2 ; -------------------------------------------------------------------------------------- 02b2 ; Debug3 Subtable 0x9 02b2 ; -------------------------------------------------------------------------------------- 02b2 0000 0003 | | .DBG3TAB 0x0000,0x0003 02b4 00eb 0001 | | .CONST 0x00eb,0x0001 02b6 00f2 0002 | | .CONST 0x00f2,0x0002 02b8 00f8 0003 | | .CONST 0x00f8,0x0003 02ba ; -------------------------------------------------------------------------------------- 02ba ; Debug3 Subtable 0xa 02ba ; -------------------------------------------------------------------------------------- 02ba 0000 0001 | | .DBG3TAB 0x0000,0x0001 02bc 0103 0001 | | .CONST 0x0103,0x0001 02be ; -------------------------------------------------------------------------------------- 02be ; Debug3 Subtable 0xb 02be ; -------------------------------------------------------------------------------------- 02be 0000 0001 | | .DBG3TAB 0x0000,0x0001 02c0 010b 0001 | | .CONST 0x010b,0x0001 02c2 ; -------------------------------------------------------------------------------------- 02c2 ; Debug3 Subtable 0xc 02c2 ; -------------------------------------------------------------------------------------- 02c2 0000 0001 | | .DBG3TAB 0x0000,0x0001 02c4 0113 0001 | | .CONST 0x0113,0x0001 02c6 ; -------------------------------------------------------------------------------------- 02c6 ; Debug3 Subtable 0xd 02c6 ; -------------------------------------------------------------------------------------- 02c6 0000 0001 | | .DBG3TAB 0x0000,0x0001 02c8 0123 0001 | # | .CONST 0x0123,0x0001 02ca ; -------------------------------------------------------------------------------------- 02ca ; Debug3 Subtable 0xe 02ca ; -------------------------------------------------------------------------------------- 02ca 0000 0001 | | .DBG3TAB 0x0000,0x0001 02cc 012b 0001 | + | .CONST 0x012b,0x0001 02ce ; -------------------------------------------------------------------------------------- 02ce ; Debug3 Subtable 0xf 02ce ; -------------------------------------------------------------------------------------- 02ce 0000 0005 | | .DBG3TAB 0x0000,0x0005 02d0 013b 0001 | ; | .CONST 0x013b,0x0001 02d2 013e 0002 | > | .CONST 0x013e,0x0002 02d4 0143 0003 | C | .CONST 0x0143,0x0003 02d6 0146 0004 | F | .CONST 0x0146,0x0004 02d8 014b 0005 | K | .CONST 0x014b,0x0005 02da ; -------------------------------------------------------------------------------------- 02da ; Debug3 Subtable 0x10 02da ; -------------------------------------------------------------------------------------- 02da 0000 0000 | | .DBG3TAB 0x0000,0x0000 02dc ; -------------------------------------------------------------------------------------- 02dc ; Debug3 Subtable 0x11 02dc ; -------------------------------------------------------------------------------------- 02dc 0000 0002 | | .DBG3TAB 0x0000,0x0002 02de 0173 0001 | s | .CONST 0x0173,0x0001 02e0 017a 0002 | z | .CONST 0x017a,0x0002 02e2 0000 0000 | | .BLANK 0000[0x11e]