|
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: 3072 (0xc00)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_c7f0e2
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0410 | | .CONST 0x0410 ; 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 8002 | | .CONST 0x8002 ; 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
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 0034 | 4 | .CONST 0x0034 ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 000d | | .CONST 0x000d ; Number of locals
001b INIT_0018:
001b 0092 0267 | g| Action Push_String_Extended,0x267 ; "!Machine.Editor_Data.Terminal_Recognition"
001d 0092 0268 | h| Action Push_String_Extended,0x268 ; "!Machine.Editor_Data.Terminal_Types"
001f 0092 0269 | i| Action Push_String_Extended,0x269 ; "!Machine.Editor_Data.Rational_Access_commands"
0021 0092 026a | j| Action Push_String_Extended,0x26a ; "Rational_Access"
0023 0092 026b | k| Action Push_String_Extended,0x26b ; "Rational_Access_User_Interface"
0025 e001 | | Load 0x0,0x1
0026 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0027 02c7 | | Declare_Variable Any
0028 00d8 | | Load_Top At_Offset_0
0029 1c00 | | Execute_Immediate Run_Utility,0x0
002a 00e3 | | Load_Encached Natural_Cache
002b 00e1 | | Load_Encached Boolean_Cache
002c 029f 016b | k| Declare_Subprogram INIT_0168,For_Call
002e 029f 01a3 | | Declare_Subprogram INIT_01a0,For_Call
0030 029f 01d3 | | Declare_Subprogram INIT_01d0,For_Call
0032 029f 01f3 | | Declare_Subprogram INIT_01f0,For_Call
0034 BODY_0018:
0034 0092 026c | l| Action Push_String_Extended,0x26c ; "!Commands.Menu_Operations"
0036 840a | | Call 0x2,0xa
0037 700e |p | Jump_Nonzero 0x46
0038 0092 026d | m| Action Push_String_Extended,0x26d ; "<PROFILE>"
003a 0092 026e | n| Action Push_String_Extended,0x26e ; "$.Specs"
003c 0092 026f | o| Action Push_String_Extended,0x26f ; "Remake"
003e 0092 0270 | p| Action Push_String_Extended,0x270 ; "*"
0040 0092 0270 | p| Action Push_String_Extended,0x270 ; "*"
0042 0092 026c | l| Action Push_String_Extended,0x26c ; "!Commands.Menu_Operations"
0044 e002 | | Load 0x0,0x2
0045 180e | | Execute Package,Field_Execute,Field_Number 0xe
0046 0092 0271 | q| Action Push_String_Extended,0x271 ; "<Progress>"
0048 4800 |H | Short_Literal 0x0
0049 0092 0272 | r| Action Push_String_Extended,0x272 ; "<All_WORLDS>"
004b 4803 |H | Short_Literal 0x3
004c 4803 |H | Short_Literal 0x3
004d 0092 026c | l| Action Push_String_Extended,0x26c ; "!Commands.Menu_Operations"
004f e003 | | Load 0x0,0x3
0050 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0051 0092 026d | m| Action Push_String_Extended,0x26d ; "<PROFILE>"
0053 0092 0273 | s| Action Push_String_Extended,0x273 ; "!Machine.Editor_Data"
0055 0092 0274 | t| Action Push_String_Extended,0x274 ; "#"
0057 0092 026c | l| Action Push_String_Extended,0x26c ; "!Commands.Menu_Operations"
0059 e004 | | Load 0x0,0x4
005a 1812 | | Execute Package,Field_Execute,Field_Number 0x12
005b 0092 0275 | u| Action Push_String_Extended,0x275 ; "!Tools.Design_Implementation"
005d 840a | | Call 0x2,0xa
005e 700e |p | Jump_Nonzero 0x6d
005f 0092 026d | m| Action Push_String_Extended,0x26d ; "<PROFILE>"
0061 0092 026e | n| Action Push_String_Extended,0x26e ; "$.Specs"
0063 0092 026f | o| Action Push_String_Extended,0x26f ; "Remake"
0065 0092 0270 | p| Action Push_String_Extended,0x270 ; "*"
0067 0092 0270 | p| Action Push_String_Extended,0x270 ; "*"
0069 0092 0275 | u| Action Push_String_Extended,0x275 ; "!Tools.Design_Implementation"
006b e002 | | Load 0x0,0x2
006c 180e | | Execute Package,Field_Execute,Field_Number 0xe
006d 0092 0271 | q| Action Push_String_Extended,0x271 ; "<Progress>"
006f 4800 |H | Short_Literal 0x0
0070 0092 0272 | r| Action Push_String_Extended,0x272 ; "<All_WORLDS>"
0072 4803 |H | Short_Literal 0x3
0073 4803 |H | Short_Literal 0x3
0074 0092 0275 | u| Action Push_String_Extended,0x275 ; "!Tools.Design_Implementation"
0076 e003 | | Load 0x0,0x3
0077 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0078 0092 026d | m| Action Push_String_Extended,0x26d ; "<PROFILE>"
007a 0092 0273 | s| Action Push_String_Extended,0x273 ; "!Machine.Editor_Data"
007c 0092 0274 | t| Action Push_String_Extended,0x274 ; "#"
007e 0092 0275 | u| Action Push_String_Extended,0x275 ; "!Tools.Design_Implementation"
0080 e004 | | Load 0x0,0x4
0081 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0082 0092 0276 | v| Action Push_String_Extended,0x276 ; "!Commands.Speller"
0084 840a | | Call 0x2,0xa
0085 700e |p | Jump_Nonzero 0x94
0086 0092 026d | m| Action Push_String_Extended,0x26d ; "<PROFILE>"
0088 0092 026e | n| Action Push_String_Extended,0x26e ; "$.Specs"
008a 0092 026f | o| Action Push_String_Extended,0x26f ; "Remake"
008c 0092 0270 | p| Action Push_String_Extended,0x270 ; "*"
008e 0092 0270 | p| Action Push_String_Extended,0x270 ; "*"
0090 0092 0276 | v| Action Push_String_Extended,0x276 ; "!Commands.Speller"
0092 e002 | | Load 0x0,0x2
0093 180e | | Execute Package,Field_Execute,Field_Number 0xe
0094 0092 0271 | q| Action Push_String_Extended,0x271 ; "<Progress>"
0096 4800 |H | Short_Literal 0x0
0097 0092 0272 | r| Action Push_String_Extended,0x272 ; "<All_WORLDS>"
0099 4803 |H | Short_Literal 0x3
009a 4803 |H | Short_Literal 0x3
009b 0092 0276 | v| Action Push_String_Extended,0x276 ; "!Commands.Speller"
009d e003 | | Load 0x0,0x3
009e 181a | | Execute Package,Field_Execute,Field_Number 0x1a
009f 0092 026d | m| Action Push_String_Extended,0x26d ; "<PROFILE>"
00a1 0092 0273 | s| Action Push_String_Extended,0x273 ; "!Machine.Editor_Data"
00a3 0092 0274 | t| Action Push_String_Extended,0x274 ; "#"
00a5 0092 0276 | v| Action Push_String_Extended,0x276 ; "!Commands.Speller"
00a7 e004 | | Load 0x0,0x4
00a8 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00a9 0092 0277 | w| Action Push_String_Extended,0x277 ; "!Commands.Mail"
00ab 840a | | Call 0x2,0xa
00ac 700e |p | Jump_Nonzero 0xbb
00ad 0092 026d | m| Action Push_String_Extended,0x26d ; "<PROFILE>"
00af 0092 026e | n| Action Push_String_Extended,0x26e ; "$.Specs"
00b1 0092 026f | o| Action Push_String_Extended,0x26f ; "Remake"
00b3 0092 0270 | p| Action Push_String_Extended,0x270 ; "*"
00b5 0092 0270 | p| Action Push_String_Extended,0x270 ; "*"
00b7 0092 0277 | w| Action Push_String_Extended,0x277 ; "!Commands.Mail"
00b9 e002 | | Load 0x0,0x2
00ba 180e | | Execute Package,Field_Execute,Field_Number 0xe
00bb 0092 0271 | q| Action Push_String_Extended,0x271 ; "<Progress>"
00bd 4800 |H | Short_Literal 0x0
00be 0092 0272 | r| Action Push_String_Extended,0x272 ; "<All_WORLDS>"
00c0 4803 |H | Short_Literal 0x3
00c1 4803 |H | Short_Literal 0x3
00c2 0092 0277 | w| Action Push_String_Extended,0x277 ; "!Commands.Mail"
00c4 e003 | | Load 0x0,0x3
00c5 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00c6 0092 026d | m| Action Push_String_Extended,0x26d ; "<PROFILE>"
00c8 0092 0273 | s| Action Push_String_Extended,0x273 ; "!Machine.Editor_Data"
00ca 0092 0274 | t| Action Push_String_Extended,0x274 ; "#"
00cc 0092 0277 | w| Action Push_String_Extended,0x277 ; "!Commands.Mail"
00ce e004 | | Load 0x0,0x4
00cf 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00d0 0092 026d | m| Action Push_String_Extended,0x26d ; "<PROFILE>"
00d2 0092 0278 | x| Action Push_String_Extended,0x278 ; "$.Keymaps"
00d4 0092 0279 | y| Action Push_String_Extended,0x279 ; "replace, goal_state = install"
00d6 0092 0270 | p| Action Push_String_Extended,0x270 ; "*"
00d8 0092 027a | z| Action Push_String_Extended,0x27a ; "!machine.editor_data"
00da 0092 027b | {| Action Push_String_Extended,0x27b ; "?"
00dc e002 | | Load 0x0,0x2
00dd 180e | | Execute Package,Field_Execute,Field_Number 0xe
00de 0092 026d | m| Action Push_String_Extended,0x26d ; "<PROFILE>"
00e0 4800 |H | Short_Literal 0x0
00e1 0092 027c | || Action Push_String_Extended,0x27c ; "<WORLDS>"
00e3 4802 |H | Short_Literal 0x2
00e4 4802 |H | Short_Literal 0x2
00e5 e404 | | Load 0x2,0x4
00e6 e003 | | Load 0x0,0x3
00e7 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00e8 4800 |H | Short_Literal 0x0
00e9 a409 | | Store_Unchecked 0x2,0x9
00ea e407 | | Load 0x2,0x7
00eb 00ea | | Load_Encached Null_String_Cache
00ec e403 | | Load 0x2,0x3
00ed 4800 |H | Short_Literal 0x0
00ee e001 | | Load 0x0,0x1
00ef 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00f0 c407 | | Store 0x2,0x7
00f1 00cf | | Action Mark_Auxiliary
00f2 7802 |x | Jump 0xf5
00f3 840c | | Call 0x2,0xc
00f4 00c9 | | Action Pop_Auxiliary_Loop
00f5 e407 | | Load 0x2,0x7
00f6 e001 | | Load 0x0,0x1
00f7 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
00f8 6ffa |o | Jump_Zero 0xf3
00f9 00ce | | Action Pop_Auxiliary
00fa e407 | | Load 0x2,0x7
00fb e001 | | Load 0x0,0x1
00fc 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00fd c407 | | Store 0x2,0x7
00fe e409 | | Load 0x2,0x9
00ff 700f |p | Jump_Nonzero 0x10f
0100 e407 | | Load 0x2,0x7
0101 00ea | | Load_Encached Null_String_Cache
0102 e403 | | Load 0x2,0x3
0103 e001 | | Load 0x0,0x1
0104 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0105 c407 | | Store 0x2,0x7
0106 0092 027d | }| Action Push_String_Extended,0x27d ; "Rational_Access XRTERM 70 80"
0108 e407 | | Load 0x2,0x7
0109 e001 | | Load 0x0,0x1
010a 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
010b e407 | | Load 0x2,0x7
010c e001 | | Load 0x0,0x1
010d 181b | | Execute Package,Field_Execute,Field_Number 0x1b
010e c407 | | Store 0x2,0x7
010f e407 | | Load 0x2,0x7
0110 00ea | | Load_Encached Null_String_Cache
0111 e402 | | Load 0x2,0x2
0112 4800 |H | Short_Literal 0x0
0113 e001 | | Load 0x0,0x1
0114 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0115 c407 | | Store 0x2,0x7
0116 4800 |H | Short_Literal 0x0
0117 a409 | | Store_Unchecked 0x2,0x9
0118 00cf | | Action Mark_Auxiliary
0119 7802 |x | Jump 0x11c
011a 840d | | Call 0x2,0xd
011b 00c9 | | Action Pop_Auxiliary_Loop
011c e407 | | Load 0x2,0x7
011d e001 | | Load 0x0,0x1
011e 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
011f 6ffa |o | Jump_Zero 0x11a
0120 00ce | | Action Pop_Auxiliary
0121 e407 | | Load 0x2,0x7
0122 e001 | | Load 0x0,0x1
0123 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0124 c407 | | Store 0x2,0x7
0125 e409 | | Load 0x2,0x9
0126 700f |p | Jump_Nonzero 0x136
0127 e407 | | Load 0x2,0x7
0128 00ea | | Load_Encached Null_String_Cache
0129 e402 | | Load 0x2,0x2
012a e001 | | Load 0x0,0x1
012b 1817 | | Execute Package,Field_Execute,Field_Number 0x17
012c c407 | | Store 0x2,0x7
012d 0092 027e | ~| Action Push_String_Extended,0x27e ; "Rational_Access \x1b[?1;37c"
012f e407 | | Load 0x2,0x7
0130 e001 | | Load 0x0,0x1
0131 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
0132 e407 | | Load 0x2,0x7
0133 e001 | | Load 0x0,0x1
0134 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0135 c407 | | Store 0x2,0x7
0136 0092 026d | m| Action Push_String_Extended,0x26d ; "<PROFILE>"
0138 e406 | | Load 0x2,0x6
0139 0092 027f | | Action Push_String_Extended,0x27f ; "R1000, REPLACE, PROMOTE"
013b 0092 0270 | p| Action Push_String_Extended,0x270 ; "*"
013d 0092 0270 | p| Action Push_String_Extended,0x270 ; "*"
013f 0092 027b | {| Action Push_String_Extended,0x27b ; "?"
0141 e002 | | Load 0x0,0x2
0142 180e | | Execute Package,Field_Execute,Field_Number 0xe
0143 840b | | Call 0x2,0xb
0144 0092 026d | m| Action Push_String_Extended,0x26d ; "<PROFILE>"
0146 00ea | | Load_Encached Null_String_Cache
0147 4800 |H | Short_Literal 0x0
0148 0092 0280 | | Action Push_String_Extended,0x280 ; "$"
014a 4800 |H | Short_Literal 0x0
014b 0092 0281 | | Action Push_String_Extended,0x281 ; " \x22!Machine.Initialization.Rational\x22.Rational_Access_User_Interface"
014d e005 | | Load 0x0,0x5
014e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
014f 4804 |H | Short_Literal 0x4
0150 e001 | | Load 0x0,0x1
0151 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0152 0092 0282 | | Action Push_String_Extended,0x282 ; "R1000_Install complete."
0154 e001 | | Load 0x0,0x1
0155 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0156 0092 0283 | | Action Push_String_Extended,0x283 ; "Next you should either reboot or run the following command:"
0158 e001 | | Load 0x0,0x1
0159 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
015a 0092 0284 | | Action Push_String_Extended,0x284 ; " Refresh_Terminal_Information;"
015c e001 | | Load 0x0,0x1
015d 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
015e 4801 |H | Short_Literal 0x1
015f e001 | | Load 0x0,0x1
0160 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0161 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0162 0000 0000 | | .BLANK 0000[0x6]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 0175 | u | .CONST 0x0175 ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0004 | | .CONST 0x0004 ; Number of locals
016b INIT_0168:
016b e006 | | Load 0x0,0x6
016c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
016d 02c7 | | Declare_Variable Any
016e 00d8 | | Load_Top At_Offset_0
016f 1c00 | | Execute_Immediate Run_Utility,0x0
0170 e006 | | Load 0x0,0x6
0171 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0172 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0173 029f 0213 | | Declare_Subprogram INIT_0210,For_Call
0175 BODY_0168:
0175 e006 | | Load 0x0,0x6
0176 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0177 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0178 00db | | Load_Top At_Offset_3
0179 0120 | | Execute Any,Is_Value
017a 6803 |h | Jump_Zero 0x17e
017b e006 | | Load 0x0,0x6
017c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
017d 7801 |x | Jump 0x17f
017e 00db | | Load_Top At_Offset_3
017f 6018 |` | Indirect_Literal Discrete,0x198,{0x00000000, 0x00004000}
0180 e007 | | Load 0x0,0x7
0181 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0182 e008 | | Load 0x0,0x8
0183 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0184 e006 | | Load 0x0,0x6
0185 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0186 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0187 e7ff | | Load 0x3,-0x1
0188 e006 | | Load 0x0,0x6
0189 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
018a 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
018b c602 | | Store 0x3,0x2
018c 005a | Z | Store_Top Discrete,At_Offset_2
018d 4800 |H | Short_Literal 0x0
018e 00da | | Load_Top At_Offset_2
018f 8604 | | Call 0x3,0x4
0190 6802 |h | Jump_Zero 0x193
0191 4801 |H | Short_Literal 0x1
0192 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0193 4800 |H | Short_Literal 0x0
0194 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0195 0000 0000 | | .XXX[0x3]
0197 0000 | |
0198 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
019c 0000 0000 | | .BLANK 0000[0x4]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01ac | | .CONST 0x01ac ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0004 | | .CONST 0x0004 ; Number of locals
01a3 INIT_01a0:
01a3 e009 | | Load 0x0,0x9
01a4 1b46 | F | Execute Package,Field_Read,Field_Number 0x46
01a5 02c7 | | Declare_Variable Any
01a6 00d8 | | Load_Top At_Offset_0
01a7 1c00 | | Execute_Immediate Run_Utility,0x0
01a8 029f 021b | | Declare_Subprogram INIT_0218,For_Call
01aa 029f 022b | +| Declare_Subprogram INIT_0228,For_Call
01ac BODY_01a0:
01ac 00da | | Load_Top At_Offset_2
01ad 0120 | | Execute Any,Is_Value
01ae 6803 |h | Jump_Zero 0x1b2
01af e009 | | Load 0x0,0x9
01b0 1b46 | F | Execute Package,Field_Read,Field_Number 0x46
01b1 7801 |x | Jump 0x1b3
01b2 00da | | Load_Top At_Offset_2
01b3 e009 | | Load 0x0,0x9
01b4 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
01b5 c602 | | Store 0x3,0x2
01b6 00cf | | Action Mark_Auxiliary
01b7 7809 |x | Jump 0x1c1
01b8 00db | | Load_Top At_Offset_3
01b9 e009 | | Load 0x0,0x9
01ba 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
01bb 8604 | | Call 0x3,0x4
01bc 00db | | Load_Top At_Offset_3
01bd e009 | | Load 0x0,0x9
01be 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
01bf c602 | | Store 0x3,0x2
01c0 00c9 | | Action Pop_Auxiliary_Loop
01c1 00db | | Load_Top At_Offset_3
01c2 e009 | | Load 0x0,0x9
01c3 1849 | I | Execute Package,Field_Execute,Field_Number 0x49
01c4 6ff3 |o | Jump_Zero 0x1b8
01c5 00ce | | Action Pop_Auxiliary
01c6 4800 |H | Short_Literal 0x0
01c7 8604 | | Call 0x3,0x4
01c8 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01c9 0000 0000 | | .BLANK 0000[0x7]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d6 | | .CONST 0x01d6 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0002 | | .CONST 0x0002 ; Number of locals
01d3 INIT_01d0:
01d3 e407 | | Load 0x2,0x7
01d4 e001 | | Load 0x0,0x1
01d5 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
01d6 BODY_01d0:
01d6 4801 |H | Short_Literal 0x1
01d7 00d9 | | Load_Top At_Offset_1
01d8 e405 | | Load 0x2,0x5
01d9 e00a | | Load 0x0,0xa
01da 181d | | Execute Package,Field_Execute,Field_Number 0x1d
01db a408 | | Store_Unchecked 0x2,0x8
01dc e408 | | Load 0x2,0x8
01dd 00d9 | | Load_Top At_Offset_1
01de 01dd | | Execute Vector,First
01df 027f | | Execute Discrete,Equal
01e0 6808 |h | Jump_Zero 0x1e9
01e1 4801 |H | Short_Literal 0x1
01e2 a409 | | Store_Unchecked 0x2,0x9
01e3 0092 0285 | | Action Push_String_Extended,0x285 ; "Rational_Access already in terminal types file."
01e5 e001 | | Load 0x0,0x1
01e6 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01e7 00cc | | Action Pop_Block
01e8 7f10 | | Jump 0xf9
01e9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01ea 0000 0000 | | .BLANK 0000[0x6]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f6 | | .CONST 0x01f6 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0002 | | .CONST 0x0002 ; Number of locals
01f3 INIT_01f0:
01f3 e407 | | Load 0x2,0x7
01f4 e001 | | Load 0x0,0x1
01f5 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
01f6 BODY_01f0:
01f6 4801 |H | Short_Literal 0x1
01f7 00d9 | | Load_Top At_Offset_1
01f8 e405 | | Load 0x2,0x5
01f9 e00a | | Load 0x0,0xa
01fa 181d | | Execute Package,Field_Execute,Field_Number 0x1d
01fb a408 | | Store_Unchecked 0x2,0x8
01fc e408 | | Load 0x2,0x8
01fd 00d9 | | Load_Top At_Offset_1
01fe 01dd | | Execute Vector,First
01ff 027f | | Execute Discrete,Equal
0200 6808 |h | Jump_Zero 0x209
0201 4801 |H | Short_Literal 0x1
0202 a409 | | Store_Unchecked 0x2,0x9
0203 0092 0286 | | Action Push_String_Extended,0x286 ; "Rational_Access already in terminal recognition file."
0205 e001 | | Load 0x0,0x1
0206 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0207 00cc | | Action Pop_Block
0208 7f17 | | Jump 0x120
0209 4501 |E | Exit_Suprogram New_Top_Offset 0x1
020a 0000 0000 | | .BLANK 0000[0x6]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213 | | .CONST 0x0213 ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0001 | | .CONST 0x0001 ; Number of locals
0213 BODY_0210:
0213 INIT_0210:
0213 00da | | Load_Top At_Offset_2
0214 e9fe | | Load 0x4,-0x2
0215 027f | | Execute Discrete,Equal
0216 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0217 0000 | | .XXX[0x1]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021b | | .CONST 0x021b ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0001 | | .CONST 0x0001 ; Number of locals
021b BODY_0218:
021b INIT_0218:
021b 482e |H. | Short_Literal 0x2e
021c 00db | | Load_Top At_Offset_3
021d e009 | | Load 0x0,0x9
021e 181c | | Execute Package,Field_Execute,Field_Number 0x1c
021f 01cb | | Execute Vector,Append
0220 00db | | Load_Top At_Offset_3
0221 e009 | | Load 0x0,0x9
0222 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0223 01cc | | Execute Vector,Catenate
0224 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0225 0000 0000 | | .XXX[0x3]
0227 0000 | |
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 0230 | 0 | .CONST 0x0230 ; Address of begin
0229 0004 | | .CONST 0x0004 ; Address of exception handler
022a 0002 | | .CONST 0x0002 ; Number of locals
022b INIT_0228:
022b e009 | | Load 0x0,0x9
022c 1b4b | K | Execute Package,Field_Read,Field_Number 0x4b
022d 02c7 | | Declare_Variable Any
022e 00d8 | | Load_Top At_Offset_0
022f 1c00 | | Execute_Immediate Run_Utility,0x0
0230 BODY_0228:
0230 00d8 | | Load_Top At_Offset_0
0231 0120 | | Execute Any,Is_Value
0232 6803 |h | Jump_Zero 0x236
0233 e009 | | Load 0x0,0x9
0234 1b4b | K | Execute Package,Field_Read,Field_Number 0x4b
0235 7801 |x | Jump 0x237
0236 00d8 | | Load_Top At_Offset_0
0237 e9ff | | Load 0x4,-0x1
0238 e009 | | Load 0x0,0x9
0239 184c | L | Execute Package,Field_Execute,Field_Number 0x4c
023a c802 | | Store 0x4,0x2
023b 00cf | | Action Mark_Auxiliary
023c 7825 |x% | Jump 0x262
023d 4800 |H | Short_Literal 0x0
023e 00da | | Load_Top At_Offset_2
023f e009 | | Load 0x0,0x9
0240 184d | M | Execute Package,Field_Execute,Field_Number 0x4d
0241 e009 | | Load 0x0,0x9
0242 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0243 0092 0287 | | Action Push_String_Extended,0x287 ; "Rational_Access Commands"
0245 e00a | | Load 0x0,0xa
0246 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0247 0f01 | | Execute_Immediate Equal,0x1
0248 6814 |h | Jump_Zero 0x25d
0249 e9ff | | Load 0x4,-0x1
024a 7008 |p | Jump_Nonzero 0x253
024b 0092 0288 | | Action Push_String_Extended,0x288 ; "*system"
024d 00da | | Load_Top At_Offset_2
024e e009 | | Load 0x0,0x9
024f 184d | M | Execute Package,Field_Execute,Field_Number 0x4d
0250 e00b | | Load 0x0,0xb
0251 180e | | Execute Package,Field_Execute,Field_Number 0xe
0252 780a |x | Jump 0x25d
0253 0092 0289 | | Action Push_String_Extended,0x289 ; "!Users."
0255 e9ff | | Load 0x4,-0x1
0256 8603 | | Call 0x3,0x3
0257 01cc | | Execute Vector,Catenate
0258 00da | | Load_Top At_Offset_2
0259 e009 | | Load 0x0,0x9
025a 184d | M | Execute Package,Field_Execute,Field_Number 0x4d
025b e00b | | Load 0x0,0xb
025c 180e | | Execute Package,Field_Execute,Field_Number 0xe
025d 00d9 | | Load_Top At_Offset_1
025e e009 | | Load 0x0,0x9
025f 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0260 c802 | | Store 0x4,0x2
0261 00c9 | | Action Pop_Auxiliary_Loop
0262 00d9 | | Load_Top At_Offset_1
0263 e009 | | Load 0x0,0x9
0264 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
0265 6fd7 |o | Jump_Zero 0x23d
0266 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0267 ; --------------------------------------------------------------------------------------
0267 ; STRING TABLE
0267 ; --------------------------------------------------------------------------------------
0267 0048 | H | .STRTAB 0x0048->0x028b ; "!Machine.Editor_Data.Terminal_Recognition"
0268 006f | o | .STRTAB 0x006f->0x029f ; "!Machine.Editor_Data.Terminal_Types"
0269 0090 | | .STRTAB 0x0090->0x02b1 ; "!Machine.Editor_Data.Rational_Access_commands"
026a 00bb | | .STRTAB 0x00bb->0x02c7 ; "Rational_Access"
026b 00c8 | | .STRTAB 0x00c8->0x02cf ; "Rational_Access_User_Interface"
026c 00e4 | | .STRTAB 0x00e4->0x02de ; "!Commands.Menu_Operations"
026d 00fb | | .STRTAB 0x00fb->0x02ea ; "<PROFILE>"
026e 0102 | | .STRTAB 0x0102->0x02ef ; "$.Specs"
026f 0107 | | .STRTAB 0x0107->0x02f2 ; "Remake"
0270 010b | | .STRTAB 0x010b->0x02f5 ; "*"
0271 010a | | .STRTAB 0x010a->0x02f6 ; "<Progress>"
0272 0112 | | .STRTAB 0x0112->0x02fb ; "<All_WORLDS>"
0273 011c | | .STRTAB 0x011c->0x0301 ; "!Machine.Editor_Data"
0274 012e | . | .STRTAB 0x012e->0x030b ; "#"
0275 012d | - | .STRTAB 0x012d->0x030b ; "!Tools.Design_Implementation"
0276 0147 | G | .STRTAB 0x0147->0x0319 ; "!Commands.Speller"
0277 0156 | V | .STRTAB 0x0156->0x0322 ; "!Commands.Mail"
0278 0162 | b | .STRTAB 0x0162->0x0329 ; "$.Keymaps"
0279 0169 | i | .STRTAB 0x0169->0x032d ; "replace, goal_state = install"
027a 0184 | | .STRTAB 0x0184->0x033c ; "!machine.editor_data"
027b 0196 | | .STRTAB 0x0196->0x0346 ; "?"
027c 0195 | | .STRTAB 0x0195->0x0346 ; "<WORLDS>"
027d 019b | | .STRTAB 0x019b->0x034a ; "Rational_Access XRTERM 70 80"
027e 01b5 | | .STRTAB 0x01b5->0x0358 ; "Rational_Access \x1b[?1;37c"
027f 01cb | | .STRTAB 0x01cb->0x0364 ; "R1000, REPLACE, PROMOTE"
0280 01e0 | | .STRTAB 0x01e0->0x0370 ; "$"
0281 01df | | .STRTAB 0x01df->0x0370 ; " \x22!Machine.Initialization.Rational\x22.Rational_Access_User_Interface"
0282 021f | | .STRTAB 0x021f->0x0391 ; "R1000_Install complete."
0283 0234 | 4 | .STRTAB 0x0234->0x039d ; "Next you should either reboot or run the following command:"
0284 026d | m | .STRTAB 0x026d->0x03ba ; " Refresh_Terminal_Information;"
0285 028c | | .STRTAB 0x028c->0x03cb ; "Rational_Access already in terminal types file."
0286 02b9 | | .STRTAB 0x02b9->0x03e2 ; "Rational_Access already in terminal recognition file."
0287 02ec | | .STRTAB 0x02ec->0x03fd ; "Rational_Access Commands"
0288 0302 | | .STRTAB 0x0302->0x0409 ; "*system"
0289 0307 | | .STRTAB 0x0307->0x040c ; "!Users."
028a 030c | | .STREND 0x030c->0x0410
028b 214d 6163 |!Mac| .STRTAB_STRINGS
0410 ; --------------------------------------------------------------------------------------
0410 ; Debug Table
0410 ; --------------------------------------------------------------------------------------
0410 0004 0012 | | .DEBUG4 0x0004,0x0012,0x6238,0x0000,0x0001,0x0000
0416 0000 0000 | | .BLANK 0000[0x23]
0439 0002 8000 | | .XXX[0x12]
043b 0000 d000 | |
043d 0004 0000 | |
043f 002c 0000 | , |
0441 0000 1000 | |
0443 0005 0626 | &|
0445 1697 3736 | 76|
0447 5746 1706 |WF |
0449 c756 d650 | V P|
044b 0000 0000 | | .BLANK 0000[0x24]
046f 0500 0000 | | .XXX[0x12]
0471 00c0 0000 | |
0473 0800 0000 | |
0475 5800 0000 |X |
0477 0020 0000 | |
0479 0a0c 2e4c | .L|
047b ae8c a74e | N|
047d 8c2e 0d8e | . |
047f adac a000 | |
0481 0000 0000 | | .BLANK 0000[0x23]
04a4 000a 0000 | | .XXX[0x12]
04a6 0002 0000 | |
04a8 0010 0000 | |
04aa 00b0 0000 | |
04ac 0000 4000 | @ |
04ae 0014 1859 | Y|
04b0 1c9b da5d | ]|
04b2 194e 8e9b | N |
04b4 1d5b 5940 | [Y@|
04b6 0000 0000 | | .BLANK 0000[0x24]
04da 1400 0000 | | .XXX[0x12]
04dc 0280 0000 | |
04de 2000 0001 | |
04e0 6000 0000 |` |
04e2 0080 0000 | |
04e4 2833 37b4 |(37 |
04e6 b99d 3a32 | :2|
04e8 9d1d 363a | 6:|
04ea b6b2 8000 | |
04ec 0000 0000 | | .BLANK 0000[0x23]
050f 0028 0000 | ( | .XXX[0x12]
0511 0008 0000 | |
0513 0040 0000 | @ |
0515 02c0 0000 | |
0517 0001 0000 | |
0519 0050 6167 | Pag|
051b 6175 6368 |auch|
051d 653a 3a6c |e::l|
051f 756d 6500 |ume |
0521 0000 0000 | | .BLANK 0000[0x24]
0545 5000 0000 |P | .XXX[0x11]
0547 0e00 0000 | |
0549 8000 0005 | |
054b 8000 0000 | |
054d 0200 0000 | |
054f a0c2 ecc2 | |
0551 dcc6 ca74 | t|
0553 7474 d8ea |tt |
0555 daca | |
0556 0000 0000 | | .BLANK 0000[0x24]
057a 00a0 0000 | | .XXX[0x12]
057c 0020 0000 | |
057e 0100 0000 | |
0580 0b00 0000 | |
0582 0004 0000 | |
0584 0141 8591 | A |
0586 c9bd a5d1 | |
0588 94e8 e9b1 | |
058a d5b5 9400 | |
058c 0000 0000 | | .BLANK 0000[0x23]
05af 0001 4000 | @ | .XXX[0x12]
05b1 0000 3800 | 8 |
05b3 0002 0000 | |
05b5 0016 0000 | |
05b7 0000 0800 | |
05b9 0002 830b | |
05bb b30b 731b | s |
05bd 29d1 d1d3 |) |
05bf 63ab 6b28 |c k(|
05c1 0000 0000 | | .BLANK 0000[0x24]
05e5 0280 0000 | | .XXX[0x12]
05e7 0080 0000 | |
05e9 0400 0000 | |
05eb 2c00 0000 |, |
05ed 0010 0000 | |
05ef 0506 1676 | v|
05f1 1756 3686 | V6 |
05f3 53a3 a6c7 |S |
05f5 56d6 5000 |V P |
05f7 0000 0000 | | .BLANK 0000[0x9]