|
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: 1024 (0x400)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_1188cd9
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0138 | 8 | .CONST 0x0138 ; 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 8000 | | .CONST 0x8000 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 001e | | .CONST 0x001e ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0010 | | .CONST 0x0010 ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 4803 |H | Short_Literal 0x3
000d 029f 0023 | #| Declare_Subprogram INIT_0020,For_Call
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 00c4 | | Action Make_Default
0011 00c4 | | Action Make_Default
0012 00c4 | | Action Make_Default
0013 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated
0015 c210 | | Store 0x1,0x10
0016 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated
0018 c20f | | Store 0x1,0xf
0019 00bf | | Action Accept_Activation
001a 1d10 | | Execute_Immediate Reference_Lex_1,0x10
001b 00c7 | | Action Elaborate_Subprogram
001c 1d0f | | Execute_Immediate Reference_Lex_1,0xf
001d 00c7 | | Action Elaborate_Subprogram
001e BODY_0008:
001e 00bc | | Action Signal_Activated
001f 00bb | | Action Signal_Completion
0020 ; --------------------------------------------------------------------------------------
0020 ; SUBPROGRAM
0020 ; --------------------------------------------------------------------------------------
0020 0023 | # | .CONST 0x0023 ; Address of begin
0021 0004 | | .CONST 0x0004 ; Address of exception handler
0022 0001 | | .CONST 0x0001 ; Number of locals
0023 BODY_0020:
0023 INIT_0020:
0023 4603 |F | Jump_Case 0x4
0024 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0025 7802 |x | Jump 0x28 ; case 0x1
0026 7805 |x | Jump 0x2c ; case 0x2
0027 7809 |x | Jump 0x31 ; case 0x3
0028 00da | | Load_Top At_Offset_2
0029 0091 00dc | | Action Push_String_Extended_Indexed,0xdc ; "STEP_FORWARD"
002b 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
002c 00db | | Load_Top At_Offset_3
002d 00db | | Load_Top At_Offset_3
002e 00e0 | | Load_Encached Standard_Cache
002f 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0030 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0031 00da | | Load_Top At_Offset_2
0032 00e0 | | Load_Encached Standard_Cache
0033 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0034 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0035 0000 0000 | | .XXX[0x3]
0037 0000 | |
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 003b | ; | .CONST 0x003b ; Address of begin
0039 0004 | | .CONST 0x0004 ; Address of exception handler
003a 0001 | | .CONST 0x0001 ; Number of locals
003b BODY_0038:
003b INIT_0038:
003b 00db | | Load_Top At_Offset_3
003c 0092 00e0 | | Action Push_String_Extended,0xe0 ; "RATIONAL"
003e 01df | | Execute Vector,Equal
003f 6812 |h | Jump_Zero 0x52
0040 00da | | Load_Top At_Offset_2
0041 4603 |F | Jump_Case 0x4
0042 7803 |x | Jump 0x46 ; case 0x0
0043 7805 |x | Jump 0x49 ; case 0x1
0044 7807 |x | Jump 0x4c ; case 0x2
0045 7809 |x | Jump 0x4f ; case 0x3
0046 0092 00e1 | | Action Push_String_Extended,0xe1 ; "F3"
0048 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0049 0092 00e2 | | Action Push_String_Extended,0xe2 ; "F4"
004b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
004c 0092 00e3 | | Action Push_String_Extended,0xe3 ; "F2"
004e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
004f 0092 00e4 | | Action Push_String_Extended,0xe4 ; "F5"
0051 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0052 00db | | Load_Top At_Offset_3
0053 0092 00e5 | | Action Push_String_Extended,0xe5 ; "FACIT"
0055 01df | | Execute Vector,Equal
0056 6812 |h | Jump_Zero 0x69
0057 00da | | Load_Top At_Offset_2
0058 4603 |F | Jump_Case 0x4
0059 7803 |x | Jump 0x5d ; case 0x0
005a 7805 |x | Jump 0x60 ; case 0x1
005b 7807 |x | Jump 0x63 ; case 0x2
005c 7809 |x | Jump 0x66 ; case 0x3
005d 0092 00e6 | | Action Push_String_Extended,0xe6 ; "Esc_S_F3"
005f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0060 0092 00e7 | | Action Push_String_Extended,0xe7 ; "Esc_S_F4"
0062 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0063 0092 00e8 | | Action Push_String_Extended,0xe8 ; "Esc_S_F2"
0065 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0066 0092 00e9 | | Action Push_String_Extended,0xe9 ; "Esc_S_F5"
0068 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0069 00db | | Load_Top At_Offset_3
006a 0092 00ea | | Action Push_String_Extended,0xea ; "VT100"
006c 01df | | Execute Vector,Equal
006d 6812 |h | Jump_Zero 0x80
006e 00da | | Load_Top At_Offset_2
006f 4603 |F | Jump_Case 0x4
0070 7803 |x | Jump 0x74 ; case 0x0
0071 7805 |x | Jump 0x77 ; case 0x1
0072 7807 |x | Jump 0x7a ; case 0x2
0073 7809 |x | Jump 0x7d ; case 0x3
0074 0092 00eb | | Action Push_String_Extended,0xeb ; "Esc_3"
0076 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0077 0092 00ec | | Action Push_String_Extended,0xec ; "Esc_4"
0079 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
007a 0092 00ed | | Action Push_String_Extended,0xed ; "Esc_2"
007c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
007d 0092 00ee | | Action Push_String_Extended,0xee ; "Esc_5"
007f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0080 00da | | Load_Top At_Offset_2
0081 4603 |F | Jump_Case 0x4
0082 7803 |x | Jump 0x86 ; case 0x0
0083 7805 |x | Jump 0x89 ; case 0x1
0084 7807 |x | Jump 0x8c ; case 0x2
0085 7809 |x | Jump 0x8f ; case 0x3
0086 0092 00eb | | Action Push_String_Extended,0xeb ; "Esc_3"
0088 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0089 0092 00ec | | Action Push_String_Extended,0xec ; "Esc_4"
008b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
008c 0092 00ed | | Action Push_String_Extended,0xed ; "Esc_2"
008e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
008f 0092 00ee | | Action Push_String_Extended,0xee ; "Esc_5"
0091 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0092 0000 0000 | | .BLANK 0000[0x6]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 00a4 | | .CONST 0x00a4 ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0004 | | .CONST 0x0004 ; Number of locals
009b INIT_0098:
009b e001 | | Load 0x0,0x1
009c 1b14 | | Execute Package,Field_Read,Field_Number 0x14
009d 02c7 | | Declare_Variable Any
009e 00d8 | | Load_Top At_Offset_0
009f 1c00 | | Execute_Immediate Run_Utility,0x0
00a0 e002 | | Load 0x0,0x2
00a1 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00a2 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00a3 00e1 | | Load_Encached Boolean_Cache
00a4 BODY_0098:
00a4 00e1 | | Load_Encached Boolean_Cache
00a5 e002 | | Load 0x0,0x2
00a6 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00a7 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00a8 e003 | | Load 0x0,0x3
00a9 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00aa e003 | | Load 0x0,0x3
00ab 181d | | Execute Package,Field_Execute,Field_Number 0x1d
00ac e003 | | Load 0x0,0x3
00ad 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
00ae e003 | | Load 0x0,0x3
00af 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00b0 e003 | | Load 0x0,0x3
00b1 181d | | Execute Package,Field_Execute,Field_Number 0x1d
00b2 e003 | | Load 0x0,0x3
00b3 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
00b4 e5ff | | Load 0x2,-0x1
00b5 8210 | | Call 0x1,0x10
00b6 e002 | | Load 0x0,0x2
00b7 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00b8 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00b9 005b | [ | Store_Top Discrete,At_Offset_3
00ba 0059 | Y | Store_Top Discrete,At_Offset_1
00bb 00da | | Load_Top At_Offset_2
00bc 601b |` | Indirect_Literal Discrete,0xd8,{0x00000000, 0x00004000}
00bd e001 | | Load 0x0,0x1
00be 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00bf 4800 |H | Short_Literal 0x0
00c0 8004 | | Call 0x0,0x4
00c1 4803 |H | Short_Literal 0x3
00c2 e001 | | Load 0x0,0x1
00c3 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00c4 c402 | | Store 0x2,0x2
00c5 00da | | Load_Top At_Offset_2
00c6 600d |` | Indirect_Literal Discrete,0xd4,{0x00007fff, 0xffffffff}
00c7 00db | | Load_Top At_Offset_3
00c8 e005 | | Load 0x0,0x5
00c9 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00ca c402 | | Store 0x2,0x2
00cb 00da | | Load_Top At_Offset_2
00cc 600b |` | Indirect_Literal Discrete,0xd8,{0x00000000, 0x00004000}
00cd e001 | | Load 0x0,0x1
00ce 181d | | Execute Package,Field_Execute,Field_Number 0x1d
00cf c402 | | Store 0x2,0x2
00d0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00d1 0000 0000 | | .XXX[0x3]
00d3 0000 | |
00d4 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff}
00d8 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
00dc ; --------------------------------------------------------------------------------------
00dc ; STRING TABLE
00dc ; --------------------------------------------------------------------------------------
00dc 0028 | ( | .STRTAB 0x0028->0x00f0 ; "STEP_FORWARD"
00dd 0032 | 2 | .STRTAB 0x0032->0x00f6 ; "STEP_BACKWARD"
00de 003d | = | .STRTAB 0x003d->0x00fc ; "RETURN_TO_MENU"
00df 0049 | I | .STRTAB 0x0049->0x0103 ; "SELECT_SCRIPT"
00e0 0054 | T | .STRTAB 0x0054->0x010a ; "RATIONAL"
00e1 005a | Z | .STRTAB 0x005a->0x010e ; "F3"
00e2 005a | Z | .STRTAB 0x005a->0x010f ; "F4"
00e3 005a | Z | .STRTAB 0x005a->0x0110 ; "F2"
00e4 005a | Z | .STRTAB 0x005a->0x0111 ; "F5"
00e5 005a | Z | .STRTAB 0x005a->0x0112 ; "FACIT"
00e6 005d | ] | .STRTAB 0x005d->0x0114 ; "Esc_S_F3"
00e7 0063 | c | .STRTAB 0x0063->0x0118 ; "Esc_S_F4"
00e8 0069 | i | .STRTAB 0x0069->0x011c ; "Esc_S_F2"
00e9 006f | o | .STRTAB 0x006f->0x0120 ; "Esc_S_F5"
00ea 0075 | u | .STRTAB 0x0075->0x0124 ; "VT100"
00eb 0078 | x | .STRTAB 0x0078->0x0127 ; "Esc_3"
00ec 007b | { | .STRTAB 0x007b->0x0129 ; "Esc_4"
00ed 007e | ~ | .STRTAB 0x007e->0x012c ; "Esc_2"
00ee 0081 | | .STRTAB 0x0081->0x012e ; "Esc_5"
00ef 0084 | | .STREND 0x0084->0x0131
00f0 5354 4550 |STEP| .STRTAB_STRINGS
0131 0000 0000 | | .BLANK 0000[0x7]
0138 ; --------------------------------------------------------------------------------------
0138 ; Debug Table
0138 ; --------------------------------------------------------------------------------------
0138 0004 0007 | | .DEBUG4 0x0004,0x0007,0x5bd8,0x0000,0x0001,0x0000
013e 0000 0000 | | .BLANK 0000[0xc2]