|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0a7cf5
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0408 | | .CONST 0x0408 ; 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 025e | ^| Action Push_String_Extended,0x25e ; "!Machine.Editor_Data.Terminal_Recognition"
001d 0092 025f | _| Action Push_String_Extended,0x25f ; "!Machine.Editor_Data.Terminal_Types"
001f 0092 0260 | `| Action Push_String_Extended,0x260 ; "!Machine.Editor_Data.Rational_Access_commands"
0021 0092 0261 | a| Action Push_String_Extended,0x261 ; "Rational_Access"
0023 0092 0262 | b| Action Push_String_Extended,0x262 ; "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 0163 | c| Declare_Subprogram INIT_0160,For_Call
002e 029f 019b | | Declare_Subprogram INIT_0198,For_Call
0030 029f 01cb | | Declare_Subprogram INIT_01c8,For_Call
0032 029f 01eb | | Declare_Subprogram INIT_01e8,For_Call
0034 BODY_0018:
0034 0092 0263 | c| Action Push_String_Extended,0x263 ; "!Commands.Menu_Operations"
0036 840a | | Call 0x2,0xa
0037 700e |p | Jump_Nonzero 0x46
0038 0092 0264 | d| Action Push_String_Extended,0x264 ; "<PROFILE>"
003a 0092 0265 | e| Action Push_String_Extended,0x265 ; "$.Specs"
003c 0092 0266 | f| Action Push_String_Extended,0x266 ; "Remake"
003e 0092 0267 | g| Action Push_String_Extended,0x267 ; "*"
0040 0092 0267 | g| Action Push_String_Extended,0x267 ; "*"
0042 0092 0263 | c| Action Push_String_Extended,0x263 ; "!Commands.Menu_Operations"
0044 e002 | | Load 0x0,0x2
0045 180e | | Execute Package,Field_Execute,Field_Number 0xe
0046 0092 0268 | h| Action Push_String_Extended,0x268 ; "<Progress>"
0048 4800 |H | Short_Literal 0x0
0049 0092 0269 | i| Action Push_String_Extended,0x269 ; "<All_WORLDS>"
004b 4803 |H | Short_Literal 0x3
004c 4803 |H | Short_Literal 0x3
004d 0092 0263 | c| Action Push_String_Extended,0x263 ; "!Commands.Menu_Operations"
004f e003 | | Load 0x0,0x3
0050 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0051 0092 0264 | d| Action Push_String_Extended,0x264 ; "<PROFILE>"
0053 0092 026a | j| Action Push_String_Extended,0x26a ; "!Machine.Editor_Data"
0055 0092 026b | k| Action Push_String_Extended,0x26b ; "#"
0057 0092 0263 | c| Action Push_String_Extended,0x263 ; "!Commands.Menu_Operations"
0059 e004 | | Load 0x0,0x4
005a 1812 | | Execute Package,Field_Execute,Field_Number 0x12
005b 0092 026c | l| Action Push_String_Extended,0x26c ; "!Tools.Design_Implementation"
005d 840a | | Call 0x2,0xa
005e 700e |p | Jump_Nonzero 0x6d
005f 0092 0264 | d| Action Push_String_Extended,0x264 ; "<PROFILE>"
0061 0092 0265 | e| Action Push_String_Extended,0x265 ; "$.Specs"
0063 0092 0266 | f| Action Push_String_Extended,0x266 ; "Remake"
0065 0092 0267 | g| Action Push_String_Extended,0x267 ; "*"
0067 0092 0267 | g| Action Push_String_Extended,0x267 ; "*"
0069 0092 026c | l| Action Push_String_Extended,0x26c ; "!Tools.Design_Implementation"
006b e002 | | Load 0x0,0x2
006c 180e | | Execute Package,Field_Execute,Field_Number 0xe
006d 0092 0268 | h| Action Push_String_Extended,0x268 ; "<Progress>"
006f 4800 |H | Short_Literal 0x0
0070 0092 0269 | i| Action Push_String_Extended,0x269 ; "<All_WORLDS>"
0072 4803 |H | Short_Literal 0x3
0073 4803 |H | Short_Literal 0x3
0074 0092 026c | l| Action Push_String_Extended,0x26c ; "!Tools.Design_Implementation"
0076 e003 | | Load 0x0,0x3
0077 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0078 0092 0264 | d| Action Push_String_Extended,0x264 ; "<PROFILE>"
007a 0092 026a | j| Action Push_String_Extended,0x26a ; "!Machine.Editor_Data"
007c 0092 026b | k| Action Push_String_Extended,0x26b ; "#"
007e 0092 026c | l| Action Push_String_Extended,0x26c ; "!Tools.Design_Implementation"
0080 e004 | | Load 0x0,0x4
0081 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0082 0092 026d | m| Action Push_String_Extended,0x26d ; "!Commands.Speller"
0084 840a | | Call 0x2,0xa
0085 700e |p | Jump_Nonzero 0x94
0086 0092 0264 | d| Action Push_String_Extended,0x264 ; "<PROFILE>"
0088 0092 0265 | e| Action Push_String_Extended,0x265 ; "$.Specs"
008a 0092 0266 | f| Action Push_String_Extended,0x266 ; "Remake"
008c 0092 0267 | g| Action Push_String_Extended,0x267 ; "*"
008e 0092 0267 | g| Action Push_String_Extended,0x267 ; "*"
0090 0092 026d | m| Action Push_String_Extended,0x26d ; "!Commands.Speller"
0092 e002 | | Load 0x0,0x2
0093 180e | | Execute Package,Field_Execute,Field_Number 0xe
0094 0092 0268 | h| Action Push_String_Extended,0x268 ; "<Progress>"
0096 4800 |H | Short_Literal 0x0
0097 0092 0269 | i| Action Push_String_Extended,0x269 ; "<All_WORLDS>"
0099 4803 |H | Short_Literal 0x3
009a 4803 |H | Short_Literal 0x3
009b 0092 026d | m| Action Push_String_Extended,0x26d ; "!Commands.Speller"
009d e003 | | Load 0x0,0x3
009e 181a | | Execute Package,Field_Execute,Field_Number 0x1a
009f 0092 0264 | d| Action Push_String_Extended,0x264 ; "<PROFILE>"
00a1 0092 026a | j| Action Push_String_Extended,0x26a ; "!Machine.Editor_Data"
00a3 0092 026b | k| Action Push_String_Extended,0x26b ; "#"
00a5 0092 026d | m| Action Push_String_Extended,0x26d ; "!Commands.Speller"
00a7 e004 | | Load 0x0,0x4
00a8 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00a9 0092 026e | n| Action Push_String_Extended,0x26e ; "!Commands.Mail"
00ab 840a | | Call 0x2,0xa
00ac 700e |p | Jump_Nonzero 0xbb
00ad 0092 0264 | d| Action Push_String_Extended,0x264 ; "<PROFILE>"
00af 0092 0265 | e| Action Push_String_Extended,0x265 ; "$.Specs"
00b1 0092 0266 | f| Action Push_String_Extended,0x266 ; "Remake"
00b3 0092 0267 | g| Action Push_String_Extended,0x267 ; "*"
00b5 0092 0267 | g| Action Push_String_Extended,0x267 ; "*"
00b7 0092 026e | n| Action Push_String_Extended,0x26e ; "!Commands.Mail"
00b9 e002 | | Load 0x0,0x2
00ba 180e | | Execute Package,Field_Execute,Field_Number 0xe
00bb 0092 0268 | h| Action Push_String_Extended,0x268 ; "<Progress>"
00bd 4800 |H | Short_Literal 0x0
00be 0092 0269 | i| Action Push_String_Extended,0x269 ; "<All_WORLDS>"
00c0 4803 |H | Short_Literal 0x3
00c1 4803 |H | Short_Literal 0x3
00c2 0092 026e | n| Action Push_String_Extended,0x26e ; "!Commands.Mail"
00c4 e003 | | Load 0x0,0x3
00c5 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00c6 0092 0264 | d| Action Push_String_Extended,0x264 ; "<PROFILE>"
00c8 0092 026a | j| Action Push_String_Extended,0x26a ; "!Machine.Editor_Data"
00ca 0092 026b | k| Action Push_String_Extended,0x26b ; "#"
00cc 0092 026e | n| Action Push_String_Extended,0x26e ; "!Commands.Mail"
00ce e004 | | Load 0x0,0x4
00cf 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00d0 0092 0264 | d| Action Push_String_Extended,0x264 ; "<PROFILE>"
00d2 0092 026f | o| Action Push_String_Extended,0x26f ; "$.Keymaps"
00d4 0092 0270 | p| Action Push_String_Extended,0x270 ; "replace, Remake"
00d6 0092 0267 | g| Action Push_String_Extended,0x267 ; "*"
00d8 0092 0271 | q| Action Push_String_Extended,0x271 ; "!machine.editor_data"
00da 0092 0272 | r| Action Push_String_Extended,0x272 ; "?"
00dc e002 | | Load 0x0,0x2
00dd 180e | | Execute Package,Field_Execute,Field_Number 0xe
00de 0092 0264 | d| Action Push_String_Extended,0x264 ; "<PROFILE>"
00e0 4800 |H | Short_Literal 0x0
00e1 0092 0273 | s| Action Push_String_Extended,0x273 ; "<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 0274 | t| Action Push_String_Extended,0x274 ; "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 0275 | u| Action Push_String_Extended,0x275 ; "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 00ea | | Load_Encached Null_String_Cache
0137 4801 |H | Short_Literal 0x1
0138 0092 0264 | d| Action Push_String_Extended,0x264 ; "<PROFILE>"
013a 4801 |H | Short_Literal 0x1
013b 0092 0276 | v| Action Push_String_Extended,0x276 ; "!Machine.Initialization.Rational"
013d e406 | | Load 0x2,0x6
013e e005 | | Load 0x0,0x5
013f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0140 840b | | Call 0x2,0xb
0141 0092 0264 | d| Action Push_String_Extended,0x264 ; "<PROFILE>"
0143 00ea | | Load_Encached Null_String_Cache
0144 4800 |H | Short_Literal 0x0
0145 0092 0277 | w| Action Push_String_Extended,0x277 ; "$"
0147 4800 |H | Short_Literal 0x0
0148 0092 0278 | x| Action Push_String_Extended,0x278 ; " \x22!Machine.Initialization.Rational\x22.Rational_Access_User_Interface"
014a e006 | | Load 0x0,0x6
014b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
014c 4804 |H | Short_Literal 0x4
014d e001 | | Load 0x0,0x1
014e 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
014f 0092 0279 | y| Action Push_String_Extended,0x279 ; "R1000_Install complete."
0151 e001 | | Load 0x0,0x1
0152 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0153 0092 027a | z| Action Push_String_Extended,0x27a ; "Next you should either reboot or run the following command:"
0155 e001 | | Load 0x0,0x1
0156 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0157 0092 027b | {| Action Push_String_Extended,0x27b ; " Refresh_Terminal_Information;"
0159 e001 | | Load 0x0,0x1
015a 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
015b 4801 |H | Short_Literal 0x1
015c e001 | | Load 0x0,0x1
015d 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
015e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
015f 0000 | | .XXX[0x1]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 016d | m | .CONST 0x016d ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0004 | | .CONST 0x0004 ; Number of locals
0163 INIT_0160:
0163 e007 | | Load 0x0,0x7
0164 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0165 02c7 | | Declare_Variable Any
0166 00d8 | | Load_Top At_Offset_0
0167 1c00 | | Execute_Immediate Run_Utility,0x0
0168 e007 | | Load 0x0,0x7
0169 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
016a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
016b 029f 020b | | Declare_Subprogram INIT_0208,For_Call
016d BODY_0160:
016d e007 | | Load 0x0,0x7
016e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
016f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0170 00db | | Load_Top At_Offset_3
0171 0120 | | Execute Any,Is_Value
0172 6803 |h | Jump_Zero 0x176
0173 e007 | | Load 0x0,0x7
0174 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0175 7801 |x | Jump 0x177
0176 00db | | Load_Top At_Offset_3
0177 6018 |` | Indirect_Literal Discrete,0x190,{0x00000000, 0x00004000}
0178 e008 | | Load 0x0,0x8
0179 1b0e | | Execute Package,Field_Read,Field_Number 0xe
017a e009 | | Load 0x0,0x9
017b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
017c e007 | | Load 0x0,0x7
017d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
017e 1816 | | Execute Package,Field_Execute,Field_Number 0x16
017f e7ff | | Load 0x3,-0x1
0180 e007 | | Load 0x0,0x7
0181 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0182 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0183 c602 | | Store 0x3,0x2
0184 005a | Z | Store_Top Discrete,At_Offset_2
0185 4800 |H | Short_Literal 0x0
0186 00da | | Load_Top At_Offset_2
0187 8604 | | Call 0x3,0x4
0188 6802 |h | Jump_Zero 0x18b
0189 4801 |H | Short_Literal 0x1
018a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
018b 4800 |H | Short_Literal 0x0
018c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
018d 0000 0000 | | .XXX[0x3]
018f 0000 | |
0190 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0194 0000 0000 | | .BLANK 0000[0x4]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 01a4 | | .CONST 0x01a4 ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0004 | | .CONST 0x0004 ; Number of locals
019b INIT_0198:
019b e00a | | Load 0x0,0xa
019c 1b46 | F | Execute Package,Field_Read,Field_Number 0x46
019d 02c7 | | Declare_Variable Any
019e 00d8 | | Load_Top At_Offset_0
019f 1c00 | | Execute_Immediate Run_Utility,0x0
01a0 029f 0213 | | Declare_Subprogram INIT_0210,For_Call
01a2 029f 0223 | #| Declare_Subprogram INIT_0220,For_Call
01a4 BODY_0198:
01a4 00da | | Load_Top At_Offset_2
01a5 0120 | | Execute Any,Is_Value
01a6 6803 |h | Jump_Zero 0x1aa
01a7 e00a | | Load 0x0,0xa
01a8 1b46 | F | Execute Package,Field_Read,Field_Number 0x46
01a9 7801 |x | Jump 0x1ab
01aa 00da | | Load_Top At_Offset_2
01ab e00a | | Load 0x0,0xa
01ac 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
01ad c602 | | Store 0x3,0x2
01ae 00cf | | Action Mark_Auxiliary
01af 7809 |x | Jump 0x1b9
01b0 00db | | Load_Top At_Offset_3
01b1 e00a | | Load 0x0,0xa
01b2 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
01b3 8604 | | Call 0x3,0x4
01b4 00db | | Load_Top At_Offset_3
01b5 e00a | | Load 0x0,0xa
01b6 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
01b7 c602 | | Store 0x3,0x2
01b8 00c9 | | Action Pop_Auxiliary_Loop
01b9 00db | | Load_Top At_Offset_3
01ba e00a | | Load 0x0,0xa
01bb 1849 | I | Execute Package,Field_Execute,Field_Number 0x49
01bc 6ff3 |o | Jump_Zero 0x1b0
01bd 00ce | | Action Pop_Auxiliary
01be 4800 |H | Short_Literal 0x0
01bf 8604 | | Call 0x3,0x4
01c0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01c1 0000 0000 | | .BLANK 0000[0x7]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01ce | | .CONST 0x01ce ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0002 | | .CONST 0x0002 ; Number of locals
01cb INIT_01c8:
01cb e407 | | Load 0x2,0x7
01cc e001 | | Load 0x0,0x1
01cd 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
01ce BODY_01c8:
01ce 4801 |H | Short_Literal 0x1
01cf 00d9 | | Load_Top At_Offset_1
01d0 e405 | | Load 0x2,0x5
01d1 e00b | | Load 0x0,0xb
01d2 181d | | Execute Package,Field_Execute,Field_Number 0x1d
01d3 a408 | | Store_Unchecked 0x2,0x8
01d4 e408 | | Load 0x2,0x8
01d5 00d9 | | Load_Top At_Offset_1
01d6 01dd | | Execute Vector,First
01d7 027f | | Execute Discrete,Equal
01d8 6808 |h | Jump_Zero 0x1e1
01d9 4801 |H | Short_Literal 0x1
01da a409 | | Store_Unchecked 0x2,0x9
01db 0092 027c | || Action Push_String_Extended,0x27c ; "Rational_Access already in terminal types file."
01dd e001 | | Load 0x0,0x1
01de 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01df 00cc | | Action Pop_Block
01e0 7f18 | | Jump 0xf9
01e1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01e2 0000 0000 | | .BLANK 0000[0x6]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01ee | | .CONST 0x01ee ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0002 | | .CONST 0x0002 ; Number of locals
01eb INIT_01e8:
01eb e407 | | Load 0x2,0x7
01ec e001 | | Load 0x0,0x1
01ed 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
01ee BODY_01e8:
01ee 4801 |H | Short_Literal 0x1
01ef 00d9 | | Load_Top At_Offset_1
01f0 e405 | | Load 0x2,0x5
01f1 e00b | | Load 0x0,0xb
01f2 181d | | Execute Package,Field_Execute,Field_Number 0x1d
01f3 a408 | | Store_Unchecked 0x2,0x8
01f4 e408 | | Load 0x2,0x8
01f5 00d9 | | Load_Top At_Offset_1
01f6 01dd | | Execute Vector,First
01f7 027f | | Execute Discrete,Equal
01f8 6808 |h | Jump_Zero 0x201
01f9 4801 |H | Short_Literal 0x1
01fa a409 | | Store_Unchecked 0x2,0x9
01fb 0092 027d | }| Action Push_String_Extended,0x27d ; "Rational_Access already in terminal recognition file."
01fd e001 | | Load 0x0,0x1
01fe 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01ff 00cc | | Action Pop_Block
0200 7f1f | | Jump 0x120
0201 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0202 0000 0000 | | .BLANK 0000[0x6]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b | | .CONST 0x020b ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0001 | | .CONST 0x0001 ; Number of locals
020b BODY_0208:
020b INIT_0208:
020b 00da | | Load_Top At_Offset_2
020c e9fe | | Load 0x4,-0x2
020d 027f | | Execute Discrete,Equal
020e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
020f 0000 | | .XXX[0x1]
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 482e |H. | Short_Literal 0x2e
0214 00db | | Load_Top At_Offset_3
0215 e00a | | Load 0x0,0xa
0216 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0217 01cb | | Execute Vector,Append
0218 00db | | Load_Top At_Offset_3
0219 e00a | | Load 0x0,0xa
021a 181b | | Execute Package,Field_Execute,Field_Number 0x1b
021b 01cc | | Execute Vector,Catenate
021c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
021d 0000 0000 | | .XXX[0x3]
021f 0000 | |
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0228 | ( | .CONST 0x0228 ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0002 | | .CONST 0x0002 ; Number of locals
0223 INIT_0220:
0223 e00a | | Load 0x0,0xa
0224 1b4b | K | Execute Package,Field_Read,Field_Number 0x4b
0225 02c7 | | Declare_Variable Any
0226 00d8 | | Load_Top At_Offset_0
0227 1c00 | | Execute_Immediate Run_Utility,0x0
0228 BODY_0220:
0228 00d8 | | Load_Top At_Offset_0
0229 0120 | | Execute Any,Is_Value
022a 6803 |h | Jump_Zero 0x22e
022b e00a | | Load 0x0,0xa
022c 1b4b | K | Execute Package,Field_Read,Field_Number 0x4b
022d 7801 |x | Jump 0x22f
022e 00d8 | | Load_Top At_Offset_0
022f e9ff | | Load 0x4,-0x1
0230 e00a | | Load 0x0,0xa
0231 184c | L | Execute Package,Field_Execute,Field_Number 0x4c
0232 c802 | | Store 0x4,0x2
0233 00cf | | Action Mark_Auxiliary
0234 7824 |x$ | Jump 0x259
0235 4800 |H | Short_Literal 0x0
0236 0092 027e | ~| Action Push_String_Extended,0x27e ; "Rational_Access User Interface"
0238 00db | | Load_Top At_Offset_3
0239 e00a | | Load 0x0,0xa
023a 184d | M | Execute Package,Field_Execute,Field_Number 0x4d
023b e00a | | Load 0x0,0xa
023c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
023d e00b | | Load 0x0,0xb
023e 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
023f 6814 |h | Jump_Zero 0x254
0240 e9ff | | Load 0x4,-0x1
0241 7008 |p | Jump_Nonzero 0x24a
0242 0092 027f | | Action Push_String_Extended,0x27f ; "*system"
0244 00da | | Load_Top At_Offset_2
0245 e00a | | Load 0x0,0xa
0246 184d | M | Execute Package,Field_Execute,Field_Number 0x4d
0247 e00c | | Load 0x0,0xc
0248 180e | | Execute Package,Field_Execute,Field_Number 0xe
0249 780a |x | Jump 0x254
024a 0092 0280 | | Action Push_String_Extended,0x280 ; "!Users."
024c e9ff | | Load 0x4,-0x1
024d 8603 | | Call 0x3,0x3
024e 01cc | | Execute Vector,Catenate
024f 00da | | Load_Top At_Offset_2
0250 e00a | | Load 0x0,0xa
0251 184d | M | Execute Package,Field_Execute,Field_Number 0x4d
0252 e00c | | Load 0x0,0xc
0253 180e | | Execute Package,Field_Execute,Field_Number 0xe
0254 00d9 | | Load_Top At_Offset_1
0255 e00a | | Load 0x0,0xa
0256 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0257 c802 | | Store 0x4,0x2
0258 00c9 | | Action Pop_Auxiliary_Loop
0259 00d9 | | Load_Top At_Offset_1
025a e00a | | Load 0x0,0xa
025b 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
025c 6fd8 |o | Jump_Zero 0x235
025d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
025e ; --------------------------------------------------------------------------------------
025e ; STRING TABLE
025e ; --------------------------------------------------------------------------------------
025e 0048 | H | .STRTAB 0x0048->0x0282 ; "!Machine.Editor_Data.Terminal_Recognition"
025f 006f | o | .STRTAB 0x006f->0x0296 ; "!Machine.Editor_Data.Terminal_Types"
0260 0090 | | .STRTAB 0x0090->0x02a8 ; "!Machine.Editor_Data.Rational_Access_commands"
0261 00bb | | .STRTAB 0x00bb->0x02be ; "Rational_Access"
0262 00c8 | | .STRTAB 0x00c8->0x02c6 ; "Rational_Access_User_Interface"
0263 00e4 | | .STRTAB 0x00e4->0x02d5 ; "!Commands.Menu_Operations"
0264 00fb | | .STRTAB 0x00fb->0x02e1 ; "<PROFILE>"
0265 0102 | | .STRTAB 0x0102->0x02e6 ; "$.Specs"
0266 0107 | | .STRTAB 0x0107->0x02e9 ; "Remake"
0267 010b | | .STRTAB 0x010b->0x02ec ; "*"
0268 010a | | .STRTAB 0x010a->0x02ed ; "<Progress>"
0269 0112 | | .STRTAB 0x0112->0x02f2 ; "<All_WORLDS>"
026a 011c | | .STRTAB 0x011c->0x02f8 ; "!Machine.Editor_Data"
026b 012e | . | .STRTAB 0x012e->0x0302 ; "#"
026c 012d | - | .STRTAB 0x012d->0x0302 ; "!Tools.Design_Implementation"
026d 0147 | G | .STRTAB 0x0147->0x0310 ; "!Commands.Speller"
026e 0156 | V | .STRTAB 0x0156->0x0319 ; "!Commands.Mail"
026f 0162 | b | .STRTAB 0x0162->0x0320 ; "$.Keymaps"
0270 0169 | i | .STRTAB 0x0169->0x0324 ; "replace, Remake"
0271 0176 | v | .STRTAB 0x0176->0x032c ; "!machine.editor_data"
0272 0188 | | .STRTAB 0x0188->0x0336 ; "?"
0273 0187 | | .STRTAB 0x0187->0x0336 ; "<WORLDS>"
0274 018d | | .STRTAB 0x018d->0x033a ; "Rational_Access XRTERM 70 80"
0275 01a7 | | .STRTAB 0x01a7->0x0348 ; "Rational_Access \x1b[?1;37c"
0276 01bd | | .STRTAB 0x01bd->0x0354 ; "!Machine.Initialization.Rational"
0277 01db | | .STRTAB 0x01db->0x0364 ; "$"
0278 01da | | .STRTAB 0x01da->0x0365 ; " \x22!Machine.Initialization.Rational\x22.Rational_Access_User_Interface"
0279 021a | | .STRTAB 0x021a->0x0386 ; "R1000_Install complete."
027a 022f | / | .STRTAB 0x022f->0x0391 ; "Next you should either reboot or run the following command:"
027b 0268 | h | .STRTAB 0x0268->0x03af ; " Refresh_Terminal_Information;"
027c 0287 | | .STRTAB 0x0287->0x03bf ; "Rational_Access already in terminal types file."
027d 02b4 | | .STRTAB 0x02b4->0x03d7 ; "Rational_Access already in terminal recognition file."
027e 02e7 | | .STRTAB 0x02e7->0x03f1 ; "Rational_Access User Interface"
027f 0303 | | .STRTAB 0x0303->0x0400 ; "*system"
0280 0308 | | .STRTAB 0x0308->0x0404 ; "!Users."
0281 030d | | .STREND 0x030d->0x0407
0282 214d 6163 |!Mac| .STRTAB_STRINGS
0408 ; --------------------------------------------------------------------------------------
0408 ; Debug Table
0408 ; --------------------------------------------------------------------------------------
0408 0004 0011 | | .DEBUG4 0x0004,0x0011,0xdb99,0x0000,0x0001,0x0000
040e 71d0 242c |q $,| .XXX[0x1f2]
0410 a30a 30c0 | 0 |
0412 8380 222e | ".|
0414 f219 6cf8 | l |
0416 803c 2196 | <! |
0418 57c3 78ee |W x |
041a 13f0 8a8b | |
041c 2b7f 2c10 |+ , |
041e 1282 75c2 | u |
0420 a5ec 0a0f | |
0422 0a89 c1f1 | |
0424 482a 3efe |H*> |
0426 a0c2 6aec | j |
0428 287e eeb7 |(~ |
042a c037 f02b | 7 +|
042c 1f0a ccc0 | |
042e 2940 2f7f |)@/ |
0430 0ae7 c0ba | |
0432 306f d309 |0o |
0434 1cc0 c0b0 | |
0436 304f 0f18 |0O |
0438 c006 7030 | p0|
043a 7f03 32c0 | 2 |
043c cff0 3fd3 | ? |
043e 0042 c0d1 | B |
0440 3005 4f0c |0 O |
0442 5dc0 85c0 |] |
0444 71ab 0d3c |q <|
0446 0157 9c35 | W 5|
0448 fc0e 5397 | S |
044a 80c4 3a6c | :l|
044c 0a35 bf50 | 5 P|
044e 2fe7 7994 |/ y |
0450 8904 0f40 | @|
0452 198e fb06 | |
0454 1aaf 595d | Y]|
0456 b018 0700 | |
0458 ff00 b8c4 | |
045a 5e6e 0199 |^n |
045c a3ca ca23 | #|
045e ecc0 6283 | b |
0460 d5a9 9980 | |
0462 00bc c044 | D|
0464 0c02 0470 | p|
0466 ef80 3cd2 | < |
0468 5181 0371 |Q q|
046a aff3 fb0c | |
046c 6364 4a80 |cdJ |
046e 585e 4982 |X^I |
0470 022f e85b | / [|
0472 fc8b e300 | |
0474 82c2 dd84 | |
0476 09c9 c4ff | |
0478 81ac 8710 | |
047a ad88 bcc8 | |
047c 3d3c 72fb |=<r |
047e 01c8 c3cf | |
0480 180e 256d | %m|
0482 10f0 1a92 | |
0484 dc4e 1c9f | N |
0486 424b f6f5 |BK |
0488 2c03 64dc |, d |
048a 1a10 218d | ! |
048c 0084 c213 | |
048e e01c cdbe | |
0490 b3a8 6d53 | mS|
0492 1a5b c195 | [ |
0494 b071 931a | q |
0496 1ea8 dbb0 | |
0498 10c2 fe2f | /|
049a c60a 403d | @=|
049c e00c e66b | k|
049e 8104 19a2 | |
04a0 1590 0067 | g|
04a2 3051 9f17 |0Q |
04a4 8201 f6d9 | |
04a6 04f8 2792 | ' |
04a8 0048 c456 | H V|
04aa ff05 28bd | ( |
04ac 8e40 1970 | @ p|
04ae 6e4a 10bf |nJ |
04b0 004f 6200 | Ob |
04b2 301d 9d63 |0 c|
04b4 eb48 08b3 | H |
04b6 ba2b 481e | +H |
04b8 0c06 7170 | qp|
04ba 76c2 8840 |v @|
04bc 16e1 0061 | a|
04be c39e 59b9 | Y |
04c0 2808 62c0 |( b |
04c2 3d50 8349 |=P I|
04c4 0016 482c | H,|
04c6 3086 5900 |0 Y |
04c8 0283 b6c8 | |
04ca 0ff3 0144 | D|
04cc 2018 e18f | |
04ce 2bc7 1244 |+ D|
04d0 75dc df70 |u p|
04d2 c53c 181a | < |
04d4 e20e 0101 | |
04d6 e030 0d93 | 0 |
04d8 1c90 31de | 1 |
04da 7083 35af |p 5 |
04dc a9c5 db30 | 0|
04de 0f23 17f2 | # |
04e0 0134 d822 | 4 "|
04e2 52fb 0d4b |R K|
04e4 c42c 2152 | ,!R|
04e6 e989 01b4 | |
04e8 f1c7 6009 | ` |
04ea 2f67 302c |/g0,|
04ec 3d10 f18f |= |
04ee 0021 4009 | !@ |
04f0 af10 79b8 | y |
04f2 6348 bfd0 |cH |
04f4 0ab9 b910 | |
04f6 f00d 9080 | |
04f8 80c4 31b3 | 1 |
04fa fa8a fe96 | |
04fc 02c9 ac29 | )|
04fe 92ec a201 | |
0500 9470 01e2 | p |
0502 e102 0196 | |
0504 3001 8008 |0 |
0506 6601 bac0 |f |
0508 3a10 0326 |: &|
050a 02ff 6c2d | l-|
050c ba29 20ac | ) |
050e 319c 822f |1 /|
0510 1f49 0422 | I "|
0512 7013 6193 |p a |
0514 e3bf 3aec | : |
0516 781c 01bb |x |
0518 3f7c 2e89 |?|. |
051a bb19 bbb8 | |
051c 2b88 06cf |+ |
051e 21e6 a235 |! 5|
0520 3068 fefd |0h |
0522 bf6e 32b2 | n2 |
0524 2363 239f |#c# |
0526 5b6f 981d |[o |
0528 a311 e060 | `|
052a 7f40 2dd2 | @- |
052c fd8f 0159 | Y|
052e 0265 0320 | e |
0530 bfc2 64ac | d |
0532 0eac 0ba0 | |
0534 bca2 83b2 | |
0536 5809 4100 |X A |
0538 b2b0 3680 | 6 |
053a 02d3 c3f3 | |
053c 6c1f a003 |l |
053e 66b8 bb30 |f 0|
0540 2c5f 06f8 |,_ |
0542 c04a b001 | J |
0544 f011 27c0 | ' |
0546 4ab2 f544 |J D|
0548 0231 00ce | 1 |
054a f04d 2f04 | M/ |
054c f4c4 f540 | @|
054e 14bc 07de | |
0550 0083 01d6 | |
0552 1b1c 310b | 1 |
0554 8ae0 645e | d^|
0556 5fe4 00de |_ |
0558 42e1 1420 |B |
055a 4f09 72c0 |O r |
055c 7c1c 2aeb || * |
055e 01bd b27c | ||
0560 f403 1989 | |
0562 8040 0352 | @ R|
0564 dc2f 01b7 | / |
0566 b37e e805 | ~ |
0568 9502 2d2c | -,|
056a 4820 0838 |H 8|
056c 0042 d422 | B "|
056e 7e70 a6a9 |~p |
0570 0033 c418 | 3 |
0572 188a 040a | |
0574 03e5 0b29 | )|
0576 de02 b098 | |
0578 1951 a32e | Q .|
057a 9390 c7eb | |
057c b832 9e4b | 2 K|
057e 212c 48b2 |!,H |
0580 e189 c4be | |
0582 cba1 2b1c | + |
0584 5720 dcc2 |W |
0586 1290 439e | C |
0588 2959 878a |)Y |
058a 1801 f602 | |
058c 25f3 5f14 |% _ |
058e 10ec 0e18 | |
0590 0577 d860 | w `|
0592 aebf dada | |
0594 0aa0 0501 | |
0596 20e8 0210 | |
0598 800d 0023 | #|
059a 4318 66cd |C f |
059c d1af 35f2 | 5 |
059e 703e 100e |p> |
05a0 3230 e071 |20 q|
05a2 d970 2080 | p |
05a4 95f0 2c20 | , |
05a6 5000 e5c9 |P |
05a8 8300 2000 | |
05aa 027b c86c | { l|
05ac 30a8 cef5 |0 |
05ae 2d02 1598 |- |
05b0 3f1c 5d77 |? ]w|
05b2 c4fb 30f2 | 0 |
05b4 62f2 56b9 |b V |
05b6 9bd8 3c1c | < |
05b8 009a 2a48 | *H|
05ba 805f ac0c | _ |
05bc 2c4c 86f0 |,L |
05be 1eaf 2e3a | .:|
05c0 c76f 2c3b | o,;|
05c2 a00d 5f39 | _9|
05c4 dc32 10b2 | 2 |
05c6 e818 083f | ?|
05c8 c224 5990 | $Y |
05ca 8189 1af0 | |
05cc 4950 1533 |IP 3|
05ce 009f b396 | |
05d0 3805 6e01 |8 n |
05d2 1db0 2b7e | +~|
05d4 e905 013b | ;|
05d6 82dc f6ab | |
05d8 5902 eacf |Y |
05da ce6a e081 | j |
05dc 00a2 80ad | |
05de 7c05 7b02 || { |
05e0 6b2c 1fe0 |k, |
05e2 0f60 0016 | ` |
05e4 027b d02f | { /|
05e6 f502 cc2c | ,|
05e8 1852 5fff | R_ |
05ea 003b c079 | ; y|
05ec 5ee9 bd6e |^ n|
05ee e92c c3cc | , |
05f0 06f9 00a0 | |
05f2 f00d 72e7 | r |
05f4 8fbc b28b | |
05f6 df3a f35b | : [|
05f8 030a 93a3 | |
05fa 4aec 8100 |J |
05fc 5280 aefc |R |
05fe 16ae c573 | s|