|
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 0250 | P | .CONST 0x0250 ; 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 0010 | | .CONST 0x0010 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0001 | | .CONST 0x0001 ; Number of locals
000b INIT_0008:
000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0 = .DEBUG 0x000b,0x02a2,0x8000,0x0000,0x0058,0x03f5,0x0000,0x0003
000d 00bf | | Action Accept_Activation
000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd
000f 00c7 | | Action Elaborate_Subprogram
0010 BODY_0008:
0010 00bc | | Action Signal_Activated
0011 00bb | | Action Signal_Completion
0012 0000 0000 | | .BLANK 0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 007b | { | .CONST 0x007b ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 001f | | .CONST 0x001f ; Number of locals
001b INIT_0018:
001b 0092 0204 | | Action Push_String_Extended,0x204 ; "Machine.Devices"
; Debug Table 0x1 = .DEBUG 0x001b,0x02a4,0x8001,0x0000,0x0058,0x03f5,0x0000,0x0003
; Debug Table 0x1.0x0 = 0x1b,0xffff
001d e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x1 = 0x1d,0xfffe
001e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
001f 02c7 | | Declare_Variable Any
0020 00d8 | | Load_Top At_Offset_0
0021 1c00 | | Execute_Immediate Run_Utility,0x0
0022 e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x2 = 0x22,0xfffd
0023 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0024 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0025 02c7 | | Declare_Variable Any
0026 00d8 | | Load_Top At_Offset_0
0027 1c00 | | Execute_Immediate Run_Utility,0x0
0028 e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x3 = 0x28,0xfffc
0029 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
002a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
002b 0092 0205 | | Action Push_String_Extended,0x205 ; "Check_Device_Decls"
; Debug Table 0x1.0x4 = 0x2b,0xfffb
002d 4802 |H | Short_Literal 0x2 ; Debug Table 0x1.0x5 = 0x2d,0xfffa
002e 0092 0206 | | Action Push_String_Extended,0x206 ; "Resolve Error"
0030 e002 | | Load 0x0,0x2
0031 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0032 e002 | | Load 0x0,0x2
0033 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0034 011e | | Execute Any,Convert
0035 4802 |H | Short_Literal 0x2 ; Debug Table 0x1.0x6 = 0x35,0xfff9
0036 0092 0207 | | Action Push_String_Extended,0x207 ; "Recreate Error"
0038 e002 | | Load 0x0,0x2
0039 1810 | | Execute Package,Field_Execute,Field_Number 0x10
003a e002 | | Load 0x0,0x2
003b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
003c 011e | | Execute Any,Convert
003d 4802 |H | Short_Literal 0x2 ; Debug Table 0x1.0x7 = 0x3d,0xfff8
003e 0092 0208 | | Action Push_String_Extended,0x208 ; "Device Object with Bad Value"
0040 e002 | | Load 0x0,0x2
0041 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0042 e002 | | Load 0x0,0x2
0043 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0044 011e | | Execute Any,Convert
0045 029e 00cb | | Declare_Subprogram INIT_00c8,For_Call,Unelaborated ; Debug Table 0x1.0x8 = 0x45,0xfff7
0047 029f 010b | | Declare_Subprogram INIT_0108,For_Call ; Debug Table 0x1.0x9 = 0x47,0xfff6
0049 029f 0133 | 3| Declare_Subprogram INIT_0130,For_Call ; Debug Table 0x1.0xa = 0x49,0xfff5
004b 029f 015b | [| Declare_Subprogram INIT_0158,For_Call ; Debug Table 0x1.0xb = 0x4b,0xfff4
004d 029f 0183 | | Declare_Subprogram INIT_0180,For_Call ; Debug Table 0x1.0xc = 0x4d,0xfff3
004f 480a |H | Short_Literal 0xa ; Debug Table 0x1.0xd = 0x4f,0xfff2
0050 4802 |H | Short_Literal 0x2
0051 0099 | | Action Reference_Dynamic
0052 00c7 | | Action Elaborate_Subprogram
0053 029f 01cb | | Declare_Subprogram INIT_01c8,For_Call ; Debug Table 0x1.0xe = 0x53,0xfff1
0055 029f 01d3 | | Declare_Subprogram INIT_01d0,For_Call ; Debug Table 0x1.0xf = 0x55,0xfff0
0057 480a |H | Short_Literal 0xa ; Debug Table 0x1.0x10 = 0x57,0xffef
0058 4802 |H | Short_Literal 0x2
0059 0099 | | Action Reference_Dynamic
005a 00c6 | | Action Check_Subprogram_Elaborated
005b e003 | | Load 0x0,0x3
005c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
005d e003 | | Load 0x0,0x3
005e 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
005f 480f |H | Short_Literal 0xf
0060 4802 |H | Short_Literal 0x2
0061 0099 | | Action Reference_Dynamic
0062 e003 | | Load 0x0,0x3
0063 1924 | $ | Execute Package,Field_Reference,Field_Number 0x24
0064 619b |a | Indirect_Literal Discrete,0x200,{0x00000000, 0x00580445}
0065 4ab7 |J | Short_Literal 0x2b7
0066 4817 |H | Short_Literal 0x17
0067 0007 | | Action Break_Optional
0068 480a |H | Short_Literal 0xa ; Debug Table 0x1.0x11 = 0x68,0xffee
0069 4802 |H | Short_Literal 0x2
006a 0099 | | Action Reference_Dynamic
006b 00c6 | | Action Check_Subprogram_Elaborated
006c e004 | | Load 0x0,0x4
006d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
006e e004 | | Load 0x0,0x4
006f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0070 4810 |H | Short_Literal 0x10
0071 4802 |H | Short_Literal 0x2
0072 0099 | | Action Reference_Dynamic
0073 e004 | | Load 0x0,0x4
0074 1919 | | Execute Package,Field_Reference,Field_Number 0x19
0075 618a |a | Indirect_Literal Discrete,0x200,{0x00000000, 0x00580445}
0076 4ac8 |J | Short_Literal 0x2c8
0077 481e |H | Short_Literal 0x1e
0078 0007 | | Action Break_Optional
0079 029f 01db | | Declare_Subprogram INIT_01d8,For_Call ; Debug Table 0x1.0x12 = 0x79,0xffed
007b BODY_0018:
007b e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x13 = 0x7b,0x1
007c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
007d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
007e e403 | | Load 0x2,0x3
007f 0120 | | Execute Any,Is_Value
0080 6803 |h | Jump_Zero 0x84
0081 e001 | | Load 0x0,0x1
0082 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0083 7801 |x | Jump 0x85
0084 e403 | | Load 0x2,0x3
0085 6176 |av | Indirect_Literal Discrete,0x1fc,{0x00000000, 0x00004000}
0086 e005 | | Load 0x0,0x5
0087 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0088 e006 | | Load 0x0,0x6
0089 1811 | | Execute Package,Field_Execute,Field_Number 0x11
008a e001 | | Load 0x0,0x1
008b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
008c 1816 | | Execute Package,Field_Execute,Field_Number 0x16
008d e402 | | Load 0x2,0x2
008e e001 | | Load 0x0,0x1
008f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0090 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0091 c403 | | Store 0x2,0x3
0092 c405 | | Store 0x2,0x5
0093 e405 | | Load 0x2,0x5 ; Debug Table 0x1.0x14 = 0x93,0x2
0094 0b00 | | Execute_Immediate Case_Compare,0x0
0095 7010 |p | Jump_Nonzero 0xa6
0096 e405 | | Load 0x2,0x5 ; Debug Table 0x1.0x15 = 0x96,0x7
0097 e001 | | Load 0x0,0x1
0098 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0099 1b0f | | Execute Package,Field_Read,Field_Number 0xf
009a 025e | ^ | Execute Discrete,Convert
009b 1c01 | | Execute_Immediate Run_Utility,0x1
009c 0092 0209 | | Action Push_String_Extended,0x209 ; " for "
009e 01cc | | Execute Vector,Catenate
009f e402 | | Load 0x2,0x2
00a0 01cc | | Execute Vector,Catenate
00a1 e407 | | Load 0x2,0x7
00a2 e406 | | Load 0x2,0x6
00a3 e002 | | Load 0x0,0x2
00a4 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00a5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00a6 e403 | | Load 0x2,0x3 ; Debug Table 0x1.0x16 = 0xa6,0x3
00a7 e001 | | Load 0x0,0x1
00a8 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
00a9 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00aa c404 | | Store 0x2,0x4
00ab e411 | | Load 0x2,0x11 ; Debug Table 0x1.0x17 = 0xab,0x4
00ac e412 | | Load 0x2,0x12
00ad 4813 |H | Short_Literal 0x13
00ae 4802 |H | Short_Literal 0x2
00af 0099 | | Action Reference_Dynamic
00b0 4814 |H | Short_Literal 0x14
00b1 4802 |H | Short_Literal 0x2
00b2 0099 | | Action Reference_Dynamic
00b3 4815 |H | Short_Literal 0x15
00b4 4802 |H | Short_Literal 0x2
00b5 0099 | | Action Reference_Dynamic
00b6 840a | | Call 0x2,0xa
00b7 e418 | | Load 0x2,0x18 ; Debug Table 0x1.0x18 = 0xb7,0x5
00b8 e419 | | Load 0x2,0x19
00b9 481a |H | Short_Literal 0x1a
00ba 4802 |H | Short_Literal 0x2
00bb 0099 | | Action Reference_Dynamic
00bc 481b |H | Short_Literal 0x1b
00bd 4802 |H | Short_Literal 0x2
00be 0099 | | Action Reference_Dynamic
00bf 481c |H | Short_Literal 0x1c
00c0 4802 |H | Short_Literal 0x2
00c1 0099 | | Action Reference_Dynamic
00c2 840a | | Call 0x2,0xa
00c3 841f | | Call 0x2,0x1f ; Debug Table 0x1.0x19 = 0xc3,0x6
00c4 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00c5 0000 0000 | | .XXX[0x3]
00c7 0000 | |
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cd | | .CONST 0x00cd ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0002 | | .CONST 0x0002 ; Number of locals
00cb INIT_00c8:
00cb e001 | | Load 0x0,0x1 ; Debug Table 0x2 = .DEBUG 0x00cb,0x02da,0x2801,0x0003,0x0058,0x0445,0x0000,0x0077
; Debug Table 0x2.0x0 = 0xcb,0xffff
00cc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00cd BODY_00c8:
00cd 00cf | | Action Mark_Auxiliary
00ce e7fb | | Load 0x3,-0x5 ; Debug Table 0x2.0x1 = 0xce,0x1
00cf 0265 | e | Execute Discrete,Reverse_Bounds
00d0 0263 | c | Execute Discrete,Above_Bound
00d1 7035 |p5 | Jump_Nonzero 0x107
00d2 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x2 = 0xd2,0x2
00d3 e7fb | | Load 0x3,-0x5
00d4 025b | [ | Execute Discrete,Check_In_Type
00d5 87fe | | Call 0x3,-0x2
00d6 682e |h. | Jump_Zero 0x105
00d7 e001 | | Load 0x0,0x1 ; Debug Table 0x2.0x3 = 0xd7,0x3
00d8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00d9 485f |H_ | Short_Literal 0x5f
00da e7fc | | Load 0x3,-0x4
00db 01cb | | Execute Vector,Append
00dc 4820 |H | Short_Literal 0x20
00dd 00db | | Load_Top At_Offset_3
00de e7fb | | Load 0x3,-0x5
00df 0122 | " | Execute Any,Make_Root_Type
00e0 025e | ^ | Execute Discrete,Convert
00e1 1c01 | | Execute_Immediate Run_Utility,0x1
00e2 e007 | | Load 0x0,0x7
00e3 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00e4 01cc | | Execute Vector,Catenate
00e5 00da | | Load_Top At_Offset_2
00e6 e7fb | | Load 0x3,-0x5
00e7 025b | [ | Execute Discrete,Check_In_Type
00e8 87fd | | Call 0x3,-0x3
00e9 840e | | Call 0x2,0xe
00ea c602 | | Store 0x3,0x2
00eb 00db | | Load_Top At_Offset_3 ; Debug Table 0x2.0x4 = 0xeb,0x4
00ec 0b00 | | Execute_Immediate Case_Compare,0x0
00ed 7016 |p | Jump_Nonzero 0x104
00ee 485f |H_ | Short_Literal 0x5f ; Debug Table 0x2.0x5 = 0xee,0x6
00ef e602 | | Load 0x3,0x2
00f0 e001 | | Load 0x0,0x1
00f1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00f2 025e | ^ | Execute Discrete,Convert
00f3 1c01 | | Execute_Immediate Run_Utility,0x1
00f4 0092 0209 | | Action Push_String_Extended,0x209 ; " for "
00f6 01cc | | Execute Vector,Catenate
00f7 e7fc | | Load 0x3,-0x4
00f8 01cc | | Execute Vector,Catenate
00f9 01cb | | Execute Vector,Append
00fa 00da | | Load_Top At_Offset_2
00fb e7fb | | Load 0x3,-0x5
00fc 0122 | " | Execute Any,Make_Root_Type
00fd 025e | ^ | Execute Discrete,Convert
00fe 1c01 | | Execute_Immediate Run_Utility,0x1
00ff 01cc | | Execute Vector,Catenate
0100 e408 | | Load 0x2,0x8
0101 e406 | | Load 0x2,0x6
0102 e002 | | Load 0x0,0x2
0103 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0104 00d1 | | Pop_Control Pop_Count_1
0105 00c8 | | Action Pop_Auxiliary_Range
0106 3fcb |? | Loop_Increasing 0xd2
0107 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 0115 | | .CONST 0x0115 ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0003 | | .CONST 0x0003 ; Number of locals
010b INIT_0108:
010b 00da | | Load_Top At_Offset_2 ; Debug Table 0x3 = .DEBUG 0x010b,0x02e8,0x0002,0x0000,0x0058,0x0445,0x0000,0x009a
; Debug Table 0x3.0x0 = 0x10b,0xffff
010c e008 | | Load 0x0,0x8
010d 1812 | | Execute Package,Field_Execute,Field_Number 0x12
010e 00e3 | | Load_Encached Natural_Cache
010f 03f1 | | Declare_Variable Discrete,With_Value
0110 00db | | Load_Top At_Offset_3 ; Debug Table 0x3.0x1 = 0x110,0xfffe
0111 e008 | | Load 0x0,0x8
0112 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0113 00e3 | | Load_Encached Natural_Cache
0114 03f1 | | Declare_Variable Discrete,With_Value
0115 BODY_0108:
0115 4829 |H) | Short_Literal 0x29 ; Debug Table 0x3.0x2 = 0x115,0x1
0116 482c |H, | Short_Literal 0x2c
0117 4828 |H( | Short_Literal 0x28
0118 4820 |H | Short_Literal 0x20
0119 4800 |H | Short_Literal 0x0
011a 480a |H | Short_Literal 0xa
011b e602 | | Load 0x3,0x2
011c e007 | | Load 0x0,0x7
011d 1816 | | Execute Package,Field_Execute,Field_Number 0x16
011e 01ca | | Execute Vector,Prepend
011f 01cb | | Execute Vector,Append
0120 4820 |H | Short_Literal 0x20
0121 4800 |H | Short_Literal 0x0
0122 480a |H | Short_Literal 0xa
0123 e603 | | Load 0x3,0x3
0124 e007 | | Load 0x0,0x7
0125 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0126 01cc | | Execute Vector,Catenate
0127 01cb | | Execute Vector,Append
0128 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0129 0000 0000 | | .BLANK 0000[0x7]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0138 | 8 | .CONST 0x0138 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0002 | | .CONST 0x0002 ; Number of locals
0133 INIT_0130:
0133 e001 | | Load 0x0,0x1 ; Debug Table 0x4 = .DEBUG 0x0133,0x02f0,0x0001,0x0000,0x0058,0x0445,0x0000,0x00e1
; Debug Table 0x4.0x0 = 0x133,0xffff
0134 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0135 02ff | | Declare_Variable Variant_Record
0136 00d8 | | Load_Top At_Offset_0
0137 1c00 | | Execute_Immediate Run_Utility,0x0
0138 BODY_0130:
0138 e001 | | Load 0x0,0x1 ; Debug Table 0x4.0x1 = 0x138,0x1
0139 1b0d | | Execute Package,Field_Read,Field_Number 0xd
013a 00d9 | | Load_Top At_Offset_1
013b 60c0 |` | Indirect_Literal Discrete,0x1fc,{0x00000000, 0x00004000}
013c e005 | | Load 0x0,0x5
013d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
013e 4800 |H | Short_Literal 0x0
013f e7ff | | Load 0x3,-0x1
0140 e001 | | Load 0x0,0x1
0141 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
0142 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0143 00d1 | | Pop_Control Pop_Count_1
0144 c7fd | | Store 0x3,-0x3
0145 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x2 = 0x145,0x2
0146 e7fe | | Load 0x3,-0x2
0147 016f | o | Execute Variant_Record,Equal
0148 700e |p | Jump_Nonzero 0x157
0149 00db | | Load_Top At_Offset_3 ; Debug Table 0x4.0x3 = 0x149,0x3
014a e001 | | Load 0x0,0x1
014b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
014c 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
014d 0092 020a | | Action Push_String_Extended,0x20a ; " has value "
014f 01cc | | Execute Vector,Catenate
0150 e7fe | | Load 0x3,-0x2
0151 840b | | Call 0x2,0xb
0152 01cc | | Execute Vector,Catenate
0153 e409 | | Load 0x2,0x9
0154 e406 | | Load 0x2,0x6
0155 e002 | | Load 0x0,0x2
0156 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0157 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b | [ | .CONST 0x015b ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0001 | | .CONST 0x0001 ; Number of locals
015b BODY_0158:
015b INIT_0158:
015b e001 | | Load 0x0,0x1 ; Debug Table 0x5 = .DEBUG 0x015b,0x02fa,0x0001,0x0000,0x0058,0x0445,0x0000,0x013f
; Debug Table 0x5.0x0 = 0x15b,0x1
015c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
015d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
015e e7fd | | Load 0x3,-0x3
015f 0120 | | Execute Any,Is_Value
0160 6803 |h | Jump_Zero 0x164
0161 e001 | | Load 0x0,0x1
0162 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0163 7801 |x | Jump 0x165
0164 e7fd | | Load 0x3,-0x3
0165 6096 |` | Indirect_Literal Discrete,0x1fc,{0x00000000, 0x00004000}
0166 e005 | | Load 0x0,0x5
0167 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0168 e006 | | Load 0x0,0x6
0169 1811 | | Execute Package,Field_Execute,Field_Number 0x11
016a e001 | | Load 0x0,0x1
016b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
016c 1816 | | Execute Package,Field_Execute,Field_Number 0x16
016d 482e |H. | Short_Literal 0x2e
016e e7fe | | Load 0x3,-0x2
016f e001 | | Load 0x0,0x1
0170 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0171 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0172 e001 | | Load 0x0,0x1
0173 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0174 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0175 01cb | | Execute Vector,Append
0176 e7ff | | Load 0x3,-0x1
0177 01cc | | Execute Vector,Catenate
0178 e001 | | Load 0x0,0x1
0179 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
017a 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
017b c7fd | | Store 0x3,-0x3
017c c7fc | | Store 0x3,-0x4
017d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
017e 0000 0000 | | .XXX[0x2]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 018b | | .CONST 0x018b ; Address of begin
0181 0004 | | .CONST 0x0004 ; Address of exception handler
0182 0003 | | .CONST 0x0003 ; Number of locals
0183 INIT_0180:
0183 e001 | | Load 0x0,0x1 ; Debug Table 0x6 = .DEBUG 0x0183,0x02fe,0x0001,0x0000,0x0058,0x0445,0x0000,0x0187
; Debug Table 0x6.0x0 = 0x183,0xffff
0184 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0185 02c7 | | Declare_Variable Any
0186 00d8 | | Load_Top At_Offset_0
0187 1c00 | | Execute_Immediate Run_Utility,0x0
0188 e001 | | Load 0x0,0x1 ; Debug Table 0x6.0x1 = 0x188,0xfffe
0189 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
018a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
018b BODY_0180:
018b e001 | | Load 0x0,0x1 ; Debug Table 0x6.0x2 = 0x18b,0x1
018c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
018d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
018e 00da | | Load_Top At_Offset_2
018f 0120 | | Execute Any,Is_Value
0190 6803 |h | Jump_Zero 0x194
0191 e001 | | Load 0x0,0x1
0192 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0193 7801 |x | Jump 0x195
0194 00da | | Load_Top At_Offset_2
0195 e404 | | Load 0x2,0x4
0196 e7fe | | Load 0x3,-0x2
0197 840d | | Call 0x2,0xd
0198 c602 | | Store 0x3,0x2
0199 0059 | Y | Store_Top Discrete,At_Offset_1
019a 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x3 = 0x19a,0x2
019b 0b03 | | Execute_Immediate Case_Compare,0x3
019c 7014 |p | Jump_Nonzero 0x1b1
019d 0b00 | | Execute_Immediate Case_Compare,0x0
019e 7022 |p" | Jump_Nonzero 0x1c1
019f 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x6.0x4 = 0x19f,0x5
01a0 e001 | | Load 0x0,0x1
01a1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01a2 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01a3 025e | ^ | Execute Discrete,Convert
01a4 1c01 | | Execute_Immediate Run_Utility,0x1
01a5 0092 0209 | | Action Push_String_Extended,0x209 ; " for "
01a7 01cc | | Execute Vector,Catenate
01a8 e7fe | | Load 0x3,-0x2
01a9 01cc | | Execute Vector,Catenate
01aa e407 | | Load 0x2,0x7
01ab e406 | | Load 0x2,0x6
01ac e002 | | Load 0x0,0x2
01ad 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01ae 4800 |H | Short_Literal 0x0 ; Debug Table 0x6.0x5 = 0x1ae,0x6
01af a7fd | | Store_Unchecked 0x3,-0x3
01b0 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01b1 e001 | | Load 0x0,0x1 ; Debug Table 0x6.0x6 = 0x1b1,0x3
01b2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01b3 6048 |`H | Indirect_Literal Discrete,0x1fc,{0x00000000, 0x00004000}
01b4 e005 | | Load 0x0,0x5
01b5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01b6 6041 |`A | Indirect_Literal Discrete,0x1f8,{0x00000000, 0x7fffffff}
01b7 4800 |H | Short_Literal 0x0
01b8 4ffc |O | Short_Literal -0x4
01b9 e7ff | | Load 0x3,-0x1
01ba e404 | | Load 0x2,0x4
01bb e7fe | | Load 0x3,-0x2
01bc e001 | | Load 0x0,0x1
01bd 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b
01be 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01bf c7fd | | Store 0x3,-0x3
01c0 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01c1 e001 | | Load 0x0,0x1 ; Debug Table 0x6.0x7 = 0x1c1,0x4
01c2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01c3 e7ff | | Load 0x3,-0x1
01c4 e602 | | Load 0x3,0x2
01c5 840c | | Call 0x2,0xc
01c6 c7fd | | Store 0x3,-0x3
01c7 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb | | .CONST 0x01cb ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0001 | | .CONST 0x0001 ; Number of locals
01cb BODY_01c8:
01cb INIT_01c8:
01cb 00da | | Load_Top At_Offset_2 ; Debug Table 0x7 = .DEBUG 0x01cb,0x0310,0x0002,0x0000,0x0058,0x0445,0x0000,0x027d
; Debug Table 0x7.0x0 = 0x1cb,0x1
01cc e003 | | Load 0x0,0x3
01cd 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
01ce 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01cf 0000 | | .XXX[0x1]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3 | | .CONST 0x01d3 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0001 | | .CONST 0x0001 ; Number of locals
01d3 BODY_01d0:
01d3 INIT_01d0:
01d3 00da | | Load_Top At_Offset_2 ; Debug Table 0x8 = .DEBUG 0x01d3,0x0314,0x0002,0x0000,0x0058,0x0445,0x0000,0x029a
; Debug Table 0x8.0x0 = 0x1d3,0x1
01d4 e004 | | Load 0x0,0x4
01d5 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01d6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01d7 0000 | | .XXX[0x1]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01dd | | .CONST 0x01dd ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0002 | | .CONST 0x0002 ; Number of locals
01db INIT_01d8:
01db e001 | | Load 0x0,0x1 ; Debug Table 0x9 = .DEBUG 0x01db,0x0318,0x0001,0x0000,0x0058,0x0445,0x0000,0x02d9
; Debug Table 0x9.0x0 = 0x1db,0xffff
01dc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01dd BODY_01d8:
01dd e001 | | Load 0x0,0x1 ; Debug Table 0x9.0x1 = 0x1dd,0x1
01de 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01df 0092 020b | | Action Push_String_Extended,0x20b ; "NIL"
01e1 e009 | | Load 0x0,0x9
01e2 180f | | Execute Package,Field_Execute,Field_Number 0xf
01e3 840e | | Call 0x2,0xe
01e4 0059 | Y | Store_Top Discrete,At_Offset_1
01e5 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x2 = 0x1e5,0x2
01e6 0b00 | | Execute_Immediate Case_Compare,0x0
01e7 700c |p | Jump_Nonzero 0x1f4
01e8 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x9.0x3 = 0x1e8,0x4
01e9 e001 | | Load 0x0,0x1
01ea 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01eb 025e | ^ | Execute Discrete,Convert
01ec 1c01 | | Execute_Immediate Run_Utility,0x1
01ed 0092 020c | | Action Push_String_Extended,0x20c ; " for Null_Device"
01ef 01cc | | Execute Vector,Catenate
01f0 e408 | | Load 0x2,0x8
01f1 e406 | | Load 0x2,0x6
01f2 e002 | | Load 0x0,0x2
01f3 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01f4 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01f5 0000 0000 | | .XXX[0x3]
01f7 0000 | |
01f8 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
01fc 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0200 0000 0000 | | .LITERAL {0x00000000, 0x00580445}
0204 ; --------------------------------------------------------------------------------------
0204 ; STRING TABLE
0204 ; --------------------------------------------------------------------------------------
0204 0014 | | .STRTAB 0x0014->0x020e ; "Machine.Devices"
0205 0021 | ! | .STRTAB 0x0021->0x0215 ; "Check_Device_Decls"
0206 0031 | 1 | .STRTAB 0x0031->0x021e ; "Resolve Error"
0207 003c | < | .STRTAB 0x003c->0x0225 ; "Recreate Error"
0208 0048 | H | .STRTAB 0x0048->0x022c ; "Device Object with Bad Value"
0209 0062 | b | .STRTAB 0x0062->0x023a ; " for "
020a 0065 | e | .STRTAB 0x0065->0x023c ; " has value "
020b 006e | n | .STRTAB 0x006e->0x0242 ; "NIL"
020c 006f | o | .STRTAB 0x006f->0x0243 ; " for Null_Device"
020d 007d | } | .STREND 0x007d->0x024b
020e 4d61 6368 |Mach| .STRTAB_STRINGS
024c 0000 0000 | | .BLANK 0000[0x4]
0250 ; --------------------------------------------------------------------------------------
0250 ; Debug Table
0250 ; --------------------------------------------------------------------------------------
0250 0003 000a | | .CONST 0x0003,0x000a
0252 000b 02a2 | | .DEBUG 0x000b,0x02a2,0x8000,0x0000,0x0058,0x03f5,0x0000,0x0003
025a 001b 02a4 | | .DEBUG 0x001b,0x02a4,0x8001,0x0000,0x0058,0x03f5,0x0000,0x0003
0262 00cb 02da | | .DEBUG 0x00cb,0x02da,0x2801,0x0003,0x0058,0x0445,0x0000,0x0077
026a 010b 02e8 | | .DEBUG 0x010b,0x02e8,0x0002,0x0000,0x0058,0x0445,0x0000,0x009a
0272 0133 02f0 | 3 | .DEBUG 0x0133,0x02f0,0x0001,0x0000,0x0058,0x0445,0x0000,0x00e1
027a 015b 02fa | [ | .DEBUG 0x015b,0x02fa,0x0001,0x0000,0x0058,0x0445,0x0000,0x013f
0282 0183 02fe | | .DEBUG 0x0183,0x02fe,0x0001,0x0000,0x0058,0x0445,0x0000,0x0187
028a 01cb 0310 | | .DEBUG 0x01cb,0x0310,0x0002,0x0000,0x0058,0x0445,0x0000,0x027d
0292 01d3 0314 | | .DEBUG 0x01d3,0x0314,0x0002,0x0000,0x0058,0x0445,0x0000,0x029a
029a 01db 0318 | | .DEBUG 0x01db,0x0318,0x0001,0x0000,0x0058,0x0445,0x0000,0x02d9
02a2 ; --------------------------------------------------------------------------------------
02a2 ; Debug3 Subtable 0x0
02a2 ; --------------------------------------------------------------------------------------
02a2 0000 0000 | | .DBG3TAB 0x0000,0x0000
02a4 ; --------------------------------------------------------------------------------------
02a4 ; Debug3 Subtable 0x1
02a4 ; --------------------------------------------------------------------------------------
02a4 0013 0007 | | .DBG3TAB 0x0013,0x0007
02a6 001b ffff | | .CONST 0x001b,0xffff
02a8 001d fffe | | .CONST 0x001d,0xfffe
02aa 0022 fffd | " | .CONST 0x0022,0xfffd
02ac 0028 fffc | ( | .CONST 0x0028,0xfffc
02ae 002b fffb | + | .CONST 0x002b,0xfffb
02b0 002d fffa | - | .CONST 0x002d,0xfffa
02b2 0035 fff9 | 5 | .CONST 0x0035,0xfff9
02b4 003d fff8 | = | .CONST 0x003d,0xfff8
02b6 0045 fff7 | E | .CONST 0x0045,0xfff7
02b8 0047 fff6 | G | .CONST 0x0047,0xfff6
02ba 0049 fff5 | I | .CONST 0x0049,0xfff5
02bc 004b fff4 | K | .CONST 0x004b,0xfff4
02be 004d fff3 | M | .CONST 0x004d,0xfff3
02c0 004f fff2 | O | .CONST 0x004f,0xfff2
02c2 0053 fff1 | S | .CONST 0x0053,0xfff1
02c4 0055 fff0 | U | .CONST 0x0055,0xfff0
02c6 0057 ffef | W | .CONST 0x0057,0xffef
02c8 0068 ffee | h | .CONST 0x0068,0xffee
02ca 0079 ffed | y | .CONST 0x0079,0xffed
02cc 007b 0001 | { | .CONST 0x007b,0x0001
02ce 0093 0002 | | .CONST 0x0093,0x0002
02d0 0096 0007 | | .CONST 0x0096,0x0007
02d2 00a6 0003 | | .CONST 0x00a6,0x0003
02d4 00ab 0004 | | .CONST 0x00ab,0x0004
02d6 00b7 0005 | | .CONST 0x00b7,0x0005
02d8 00c3 0006 | | .CONST 0x00c3,0x0006
02da ; --------------------------------------------------------------------------------------
02da ; Debug3 Subtable 0x2
02da ; --------------------------------------------------------------------------------------
02da 0001 0005 | | .DBG3TAB 0x0001,0x0005
02dc 00cb ffff | | .CONST 0x00cb,0xffff
02de 00ce 0001 | | .CONST 0x00ce,0x0001
02e0 00d2 0002 | | .CONST 0x00d2,0x0002
02e2 00d7 0003 | | .CONST 0x00d7,0x0003
02e4 00eb 0004 | | .CONST 0x00eb,0x0004
02e6 00ee 0006 | | .CONST 0x00ee,0x0006
02e8 ; --------------------------------------------------------------------------------------
02e8 ; Debug3 Subtable 0x3
02e8 ; --------------------------------------------------------------------------------------
02e8 0002 0001 | | .DBG3TAB 0x0002,0x0001
02ea 010b ffff | | .CONST 0x010b,0xffff
02ec 0110 fffe | | .CONST 0x0110,0xfffe
02ee 0115 0001 | | .CONST 0x0115,0x0001
02f0 ; --------------------------------------------------------------------------------------
02f0 ; Debug3 Subtable 0x4
02f0 ; --------------------------------------------------------------------------------------
02f0 0001 0003 | | .DBG3TAB 0x0001,0x0003
02f2 0133 ffff | 3 | .CONST 0x0133,0xffff
02f4 0138 0001 | 8 | .CONST 0x0138,0x0001
02f6 0145 0002 | E | .CONST 0x0145,0x0002
02f8 0149 0003 | I | .CONST 0x0149,0x0003
02fa ; --------------------------------------------------------------------------------------
02fa ; Debug3 Subtable 0x5
02fa ; --------------------------------------------------------------------------------------
02fa 0000 0001 | | .DBG3TAB 0x0000,0x0001
02fc 015b 0001 | [ | .CONST 0x015b,0x0001
02fe ; --------------------------------------------------------------------------------------
02fe ; Debug3 Subtable 0x6
02fe ; --------------------------------------------------------------------------------------
02fe 0002 0006 | | .DBG3TAB 0x0002,0x0006
0300 0183 ffff | | .CONST 0x0183,0xffff
0302 0188 fffe | | .CONST 0x0188,0xfffe
0304 018b 0001 | | .CONST 0x018b,0x0001
0306 019a 0002 | | .CONST 0x019a,0x0002
0308 019f 0005 | | .CONST 0x019f,0x0005
030a 01ae 0006 | | .CONST 0x01ae,0x0006
030c 01b1 0003 | | .CONST 0x01b1,0x0003
030e 01c1 0004 | | .CONST 0x01c1,0x0004
0310 ; --------------------------------------------------------------------------------------
0310 ; Debug3 Subtable 0x7
0310 ; --------------------------------------------------------------------------------------
0310 0000 0001 | | .DBG3TAB 0x0000,0x0001
0312 01cb 0001 | | .CONST 0x01cb,0x0001
0314 ; --------------------------------------------------------------------------------------
0314 ; Debug3 Subtable 0x8
0314 ; --------------------------------------------------------------------------------------
0314 0000 0001 | | .DBG3TAB 0x0000,0x0001
0316 01d3 0001 | | .CONST 0x01d3,0x0001
0318 ; --------------------------------------------------------------------------------------
0318 ; Debug3 Subtable 0x9
0318 ; --------------------------------------------------------------------------------------
0318 0001 0003 | | .DBG3TAB 0x0001,0x0003
031a 01db ffff | | .CONST 0x01db,0xffff
031c 01dd 0001 | | .CONST 0x01dd,0x0001
031e 01e5 0002 | | .CONST 0x01e5,0x0002
0320 01e8 0004 | | .CONST 0x01e8,0x0004
0322 0000 0000 | | .BLANK 0000[0xde]