|
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_063cfc
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦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 | | .XXX[0x34]
0418 1128 0010 | ( |
041a 000b 8838 | 8|
041c 0b1c 036f | o|
041e 8038 6c48 | 8lH|
0420 6082 9008 |` |
0422 036f 8038 | o 8|
0424 6c3c 6191 |l<a |
0426 a087 97f9 | |
0428 c048 036f | H o|
042a 8038 6c48 | 8lH|
042c 6061 a034 |`a 4|
042e 036e 08ad | n |
0430 a028 036f | ( o|
0432 8038 6c48 | 8lH|
0434 6093 8038 |` 8|
0436 6c48 6080 |lH` |
0438 0366 089f | f |
043a 1008 036f | o|
043c 8038 6c48 | 8lH|
043e 6075 a020 |`u |
0440 0363 97f7 | c |
0442 97ff 8038 | 8|
0444 6c48 607a |lH`z|
0446 0857 1008 | W |
0448 0361 100c | a |
044a 0000 0000 | | .BLANK 0000[0x6]
0450 1228 0010 | ( | .XXX[0xc4]
0452 0013 8838 | 8|
0454 0b1c 036f | o|
0456 8038 6c48 | 8lH|
0458 607e 900b |`~ |
045a 8838 0b1e | 8 |
045c 083e 900f | > |
045e 8838 0b1e | 8 |
0460 083e 9013 | > |
0462 97ff 8038 | 8|
0464 6c3c 6191 |l<a |
0466 a1b3 97ff | |
0468 8038 6c48 | 8lH|
046a 605d a020 |`] |
046c 036b 97ff | k |
046e 8038 6c48 | 8lH|
0470 6086 0857 |` W|
0472 1009 e033 | 3|
0474 97ff 8038 | 8|
0476 6c48 6059 |lH`Y|
0478 a01c 036b | k|
047a 97ff 8038 | 8|
047c 6c48 6092 |lH` |
047e 0857 100b | W |
0480 97f9 c090 | |
0482 036b 8004 | k |
0484 6c34 609c |l4` |
0486 033d e060 | = `|
0488 036f 8004 | o |
048a 6c34 609b |l4` |
048c 8038 6c48 | 8lH|
048e 606d a02b |`m +|
0490 803c 605b | <`[|
0492 900b 8004 | |
0494 6c34 609a |l4` |
0496 0894 036e | n|
0498 089f 100c | |
049a 036f 8004 | o |
049c 6c34 6093 |l4` |
049e 1008 0324 | $|
04a0 036f 8004 | o |
04a2 6c34 6095 |l4` |
04a4 bf8c 0338 | 8|
04a6 0364 036e | d n|
04a8 089f 1008 | |
04aa 036b 8004 | k |
04ac 6c34 609c |l4` |
04ae 033d e064 | = d|
04b0 036f 8004 | o |
04b2 6c34 609b |l4` |
04b4 8038 6c48 | 8lH|
04b6 6071 a02c |`q ,|
04b8 0367 97f7 | g |
04ba 900b 8004 | |
04bc 6c34 609b |l4` |
04be 8038 6c48 | 8lH|
04c0 607a 0857 |`z W|
04c2 1010 036f | o|
04c4 8004 6c34 | l4|
04c6 6093 1008 |` |
04c8 0324 036f | $ o|
04ca 8004 6c34 | l4|
04cc 6095 bf88 |` |
04ce 0338 0360 | 8 `|
04d0 036e 089f | n |
04d2 1008 0369 | i|
04d4 100c 0000 | |
04d6 0000 0000 | |
04d8 1428 0010 | ( |
04da 000b 8838 | 8|
04dc 0b1c 036f | o|
04de 8038 6c48 | 8lH|
04e0 608a 9008 |` |
04e2 036f 8038 | o 8|
04e4 6c48 6065 |lH`e|
04e6 a07c 0363 | | c|
04e8 97ff 8038 | 8|
04ea 6c48 608e |lH` |
04ec 0857 1008 | W |
04ee 036f 8038 | o 8|
04f0 6c48 608f |lH` |
04f2 8038 6c48 | 8lH|
04f4 6088 0366 |` f|
04f6 089f 1008 | |
04f8 036f 8038 | o 8|
04fa 6c48 6071 |lH`q|
04fc a054 0363 | T c|
04fe 97f7 97ff | |
0500 8038 6c48 | 8lH|
0502 607a 0857 |`z W|
0504 1009 e030 | 0|
0506 036f 8038 | o 8|
0508 6c48 6061 |lH`a|
050a a01c 036f | o|
050c 8038 6c48 | 8lH|
050e 6088 0366 |` f|
0510 089f 1008 | |
0512 0361 100c | a |
0514 0000 0000 | | .BLANK 0000[0x4]
0518 1548 0010 | H | .XXX[0xe8]
051a 0013 8838 | 8|
051c 0b1c 036f | o|
051e 8038 6c48 | 8lH|
0520 607e 900b |`~ |
0522 8838 0b1e | 8 |
0524 083e 900f | > |
0526 8838 0b1e | 8 |
0528 083e 9013 | > |
052a 97ff 8038 | 8|
052c 6c3c 6191 |l<a |
052e a198 036b | k|
0530 97fe 0857 | W|
0532 100b 97ff | |
0534 8038 6c48 | 8lH|
0536 605d a020 |`] |
0538 036b 97ff | k |
053a 8038 6c48 | 8lH|
053c 6086 0857 |` W|
053e 1009 e033 | 3|
0540 97ff 8038 | 8|
0542 6c48 6059 |lH`Y|
0544 a01c 036b | k|
0546 97ff 8038 | 8|
0548 6c48 6092 |lH` |
054a 0857 1008 | W |
054c 036b 8004 | k |
054e 6c34 609c |l4` |
0550 033d e043 | = C|
0552 803c 605b | <`[|
0554 900b 8004 | |
0556 6c34 609a |l4` |
0558 0894 036e | n|
055a 089f 100c | |
055c 036f 8004 | o |
055e 6c34 6093 |l4` |
0560 1008 0324 | $|
0562 036f 8004 | o |
0564 6c34 6095 |l4` |
0566 bfac 0338 | 8|
0568 0364 036e | d n|
056a 089f 1008 | |
056c 036b 8004 | k |
056e 6c34 609c |l4` |
0570 033d e064 | = d|
0572 036f 8004 | o |
0574 6c34 609b |l4` |
0576 8038 6c48 | 8lH|
0578 6071 a02c |`q ,|
057a 0367 97f7 | g |
057c 900b 8004 | |
057e 6c34 609b |l4` |
0580 8038 6c48 | 8lH|
0582 607a 0857 |`z W|
0584 1010 036f | o|
0586 8004 6c34 | l4|
0588 6093 1008 |` |
058a 0324 036f | $ o|
058c 8004 6c34 | l4|
058e 6095 bf88 |` |
0590 0338 0360 | 8 `|
0592 036e 089f | n |
0594 1008 0369 | i|
0596 100c 0000 | |
0598 1728 0010 | ( |
059a 000b 8834 | 4|
059c 0b1f 97f7 | |
059e 8004 6c34 | l4|
05a0 609a 9808 |` |
05a2 0362 17fb | b |
05a4 1809 1404 | |
05a6 0000 0000 | |
05a8 1768 0010 | h |
05aa 000b 8834 | 4|
05ac 0b1f 97eb | |
05ae 8004 6c34 | l4|
05b0 609a 980b |` |
05b2 97e4 0360 | `|
05b4 0481 a00f | |
05b6 97ec 0479 | y|
05b8 e00b 97ec | |
05ba 0464 0366 | d f|
05bc 17f7 180b | |
05be 17e5 1404 | |
05c0 17bc 0010 | |
05c2 000b 8838 | 8|
05c4 0b1c 036e | n|
05c6 9808 0363 | c|
05c8 8004 6c34 | l4|
05ca 609c 033d |` =|
05cc e037 9ff8 | 7 |
05ce 036b 8004 | k |
05d0 6c34 609a |l4` |
05d2 0857 1ff8 | W |
05d4 0367 8004 | g |
05d6 6c34 6093 |l4` |
05d8 1808 0324 | $|
05da 0367 8004 | g |
05dc 6c34 6095 |l4` |
05de bfb9 1408 | |
05e0 183c 0010 | < |
05e2 000b 8838 | 8|
05e4 0b1c 036e | n|
05e6 9808 0363 | c|
05e8 8004 6c34 | l4|
05ea 609c 033d |` =|
05ec e050 0367 | P g|
05ee 8004 6c34 | l4|
05f0 609b 9ffa |` |
05f2 0851 c01f | Q |
05f4 9ff4 036b | k|
05f6 8004 6c34 | l4|
05f8 609a 0857 |` W|
05fa 1ff4 0367 | g|
05fc 8004 6c34 | l4|
05fe 6093 1808 |` |