|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_ba80d9
└─⟦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 0148 | H | .CONST 0x0148 ; 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 0000 | | .CONST 0x0000 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0051 | Q | .CONST 0x0051 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0015 | | .CONST 0x0015 ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 4803 |H | Short_Literal 0x3
000d 029f 005b | [| Declare_Subprogram INIT_0058,For_Call
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 029c 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible
0012 0093 0000 | | push_full_address 0x0
0014 6073 |`s | Indirect_Literal Discrete,0x88,{0x80000000, 0x00030000}
0015 0273 | s | Execute Discrete,Plus
0016 e002 | | Load 0x0,0x2
0017 0273 | s | Execute Discrete,Plus
0018 e003 | | Load 0x0,0x3
0019 0273 | s | Execute Discrete,Plus
001a 0092 0115 | | Action Push_String_Extended,0x115 ; "Movement"
001c 00db | | Load_Top At_Offset_3
001d 1d0e | | Execute_Immediate Reference_Lex_1,0xe
001e e004 | | Load 0x0,0x4
001f 0386 | | Declare_Variable Package,Visible
0020 00d8 | | Load_Top At_Offset_0
0021 020f | | Execute Module,Activate
0022 4800 |H | Short_Literal 0x0
0023 4801 |H | Short_Literal 0x1
0024 029f 00a3 | | Declare_Subprogram INIT_00a0,For_Call
0026 03fe | | Declare_Type Discrete,Defined,Visible
0027 029c 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible
0029 0093 0000 | | push_full_address 0x0
002b 6058 |`X | Indirect_Literal Discrete,0x84,{0x80000000, 0x00020000}
002c 0273 | s | Execute Discrete,Plus
002d e002 | | Load 0x0,0x2
002e 0273 | s | Execute Discrete,Plus
002f e005 | | Load 0x0,0x5
0030 0273 | s | Execute Discrete,Plus
0031 0092 0116 | | Action Push_String_Extended,0x116 ; "Tower"
0033 00db | | Load_Top At_Offset_3
0034 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0035 e004 | | Load 0x0,0x4
0036 0386 | | Declare_Variable Package,Visible
0037 00d8 | | Load_Top At_Offset_0
0038 020f | | Execute Module,Activate
0039 4800 |H | Short_Literal 0x0
003a 4802 |H | Short_Literal 0x2
003b 029f 00db | | Declare_Subprogram INIT_00d8,For_Call
003d 03fe | | Declare_Type Discrete,Defined,Visible
003e 029c 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible
0040 0093 0000 | | push_full_address 0x0
0042 603d |`= | Indirect_Literal Discrete,0x80,{0x80000000, 0x00010000}
0043 0273 | s | Execute Discrete,Plus
0044 e002 | | Load 0x0,0x2
0045 0273 | s | Execute Discrete,Plus
0046 e006 | | Load 0x0,0x6
0047 0273 | s | Execute Discrete,Plus
0048 0092 0117 | | Action Push_String_Extended,0x117 ; "Disk"
004a 00db | | Load_Top At_Offset_3
004b 1d14 | | Execute_Immediate Reference_Lex_1,0x14
004c e004 | | Load 0x0,0x4
004d 0386 | | Declare_Variable Package,Visible
004e 00d8 | | Load_Top At_Offset_0
004f 020f | | Execute Module,Activate
0050 00bf | | Action Accept_Activation
0051 BODY_0008:
0051 00bc | | Action Signal_Activated
0052 00bb | | Action Signal_Completion
0053 0000 0000 | | .BLANK 0000[0x5]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005b | [ | .CONST 0x005b ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0001 | | .CONST 0x0001 ; Number of locals
005b BODY_0058:
005b INIT_0058:
005b 4607 |F | Jump_Case 0x8
005c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
005d 7807 |x | Jump 0x65 ; case 0x1
005e 780a |x | Jump 0x69 ; case 0x2
005f 780e |x | Jump 0x6e ; case 0x3
0060 7811 |x | Jump 0x72 ; case 0x4
0061 7812 |x | Jump 0x74 ; case 0x5
0062 7813 |x | Jump 0x76 ; case 0x6
0063 7816 |x | Jump 0x7a ; case 0x7
0064 4302 |C | .XXX[0x1]
0065 00da | | Load_Top At_Offset_2
0066 0091 010c | | Action Push_String_Extended_Indexed,0x10c ; "FROM_TOWER"
0068 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0069 00db | | Load_Top At_Offset_3
006a 00db | | Load_Top At_Offset_3
006b 00e0 | | Load_Encached Standard_Cache
006c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
006d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
006e 00da | | Load_Top At_Offset_2
006f 00e0 | | Load_Encached Standard_Cache
0070 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0071 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0072 00db | | Load_Top At_Offset_3
0073 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0074 00db | | Load_Top At_Offset_3
0075 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0076 e20d | | Load 0x1,0xd
0077 00dc | | Load_Top At_Offset_4
0078 0267 | g | Execute Discrete,Predecessor
0079 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
007a e20d | | Load 0x1,0xd
007b 00dc | | Load_Top At_Offset_4
007c 0268 | h | Execute Discrete,Successor
007d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
007e 0000 0000 | | .XXX[0x2]
0080 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
0084 8000 0000 | | .LITERAL {0x80000000, 0x00020000}
0088 8000 0000 | | .LITERAL {0x80000000, 0x00030000}
008c 0000 0000 | | .BLANK 0000[0x4]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093 | | .CONST 0x0093 ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0001 | | .CONST 0x0001 ; Number of locals
0093 BODY_0090:
0093 INIT_0090:
0093 00da | | Load_Top At_Offset_2
0094 00d8 | | Load_Top At_Offset_0
0095 00e2 | | Load_Encached Integer_Cache
0096 0260 | ` | Execute Discrete,In_Type
0097 7001 |p | Jump_Nonzero 0x99
0098 0801 | | Execute_Immediate Raise,0x1
0099 00e0 | | Load_Encached Standard_Cache
009a 1818 | | Execute Package,Field_Execute,Field_Number 0x18
009b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
009c 0000 0000 | | .BLANK 0000[0x4]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a3 | | .CONST 0x00a3 ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0001 | | .CONST 0x0001 ; Number of locals
00a3 BODY_00a0:
00a3 INIT_00a0:
00a3 4607 |F | Jump_Case 0x8
00a4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00a5 7807 |x | Jump 0xad ; case 0x1
00a6 780a |x | Jump 0xb1 ; case 0x2
00a7 780e |x | Jump 0xb6 ; case 0x3
00a8 7811 |x | Jump 0xba ; case 0x4
00a9 7812 |x | Jump 0xbc ; case 0x5
00aa 7813 |x | Jump 0xbe ; case 0x6
00ab 7816 |x | Jump 0xc2 ; case 0x7
00ac 4302 |C | .XXX[0x1]
00ad 00da | | Load_Top At_Offset_2
00ae 0091 0110 | | Action Push_String_Extended_Indexed,0x110 ; "LOCATION"
00b0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00b1 00db | | Load_Top At_Offset_3
00b2 00db | | Load_Top At_Offset_3
00b3 00e0 | | Load_Encached Standard_Cache
00b4 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00b5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00b6 00da | | Load_Top At_Offset_2
00b7 00e0 | | Load_Encached Standard_Cache
00b8 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00b9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00ba 00db | | Load_Top At_Offset_3
00bb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00bc 00db | | Load_Top At_Offset_3
00bd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00be e210 | | Load 0x1,0x10
00bf 00dc | | Load_Top At_Offset_4
00c0 0267 | g | Execute Discrete,Predecessor
00c1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00c2 e210 | | Load 0x1,0x10
00c3 00dc | | Load_Top At_Offset_4
00c4 0268 | h | Execute Discrete,Successor
00c5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00c6 0000 0000 | | .XXX[0x2]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb | | .CONST 0x00cb ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0001 | | .CONST 0x0001 ; Number of locals
00cb BODY_00c8:
00cb INIT_00c8:
00cb 00da | | Load_Top At_Offset_2
00cc 00d8 | | Load_Top At_Offset_0
00cd 00e2 | | Load_Encached Integer_Cache
00ce 0260 | ` | Execute Discrete,In_Type
00cf 7001 |p | Jump_Nonzero 0xd1
00d0 0801 | | Execute_Immediate Raise,0x1
00d1 00e0 | | Load_Encached Standard_Cache
00d2 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00d3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00d4 0000 0000 | | .BLANK 0000[0x4]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db | | .CONST 0x00db ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0001 | | .CONST 0x0001 ; Number of locals
00db BODY_00d8:
00db INIT_00d8:
00db 4607 |F | Jump_Case 0x8
00dc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00dd 7807 |x | Jump 0xe5 ; case 0x1
00de 780a |x | Jump 0xe9 ; case 0x2
00df 780e |x | Jump 0xee ; case 0x3
00e0 7811 |x | Jump 0xf2 ; case 0x4
00e1 7812 |x | Jump 0xf4 ; case 0x5
00e2 7813 |x | Jump 0xf6 ; case 0x6
00e3 7816 |x | Jump 0xfa ; case 0x7
00e4 4302 |C | .XXX[0x1]
00e5 00da | | Load_Top At_Offset_2
00e6 0091 0112 | | Action Push_String_Extended_Indexed,0x112 ; "TOWER"
00e8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00e9 00db | | Load_Top At_Offset_3
00ea 00db | | Load_Top At_Offset_3
00eb 00e0 | | Load_Encached Standard_Cache
00ec 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00ed 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00ee 00da | | Load_Top At_Offset_2
00ef 00e0 | | Load_Encached Standard_Cache
00f0 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00f1 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00f2 00db | | Load_Top At_Offset_3
00f3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00f4 00db | | Load_Top At_Offset_3
00f5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00f6 e213 | | Load 0x1,0x13
00f7 00dc | | Load_Top At_Offset_4
00f8 0267 | g | Execute Discrete,Predecessor
00f9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00fa e213 | | Load 0x1,0x13
00fb 00dc | | Load_Top At_Offset_4
00fc 0268 | h | Execute Discrete,Successor
00fd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00fe 0000 0000 | | .XXX[0x2]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103 | | .CONST 0x0103 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0001 | | .CONST 0x0001 ; Number of locals
0103 BODY_0100:
0103 INIT_0100:
0103 00da | | Load_Top At_Offset_2
0104 00d8 | | Load_Top At_Offset_0
0105 00e2 | | Load_Encached Integer_Cache
0106 0260 | ` | Execute Discrete,In_Type
0107 7001 |p | Jump_Nonzero 0x109
0108 0801 | | Execute_Immediate Raise,0x1
0109 00e0 | | Load_Encached Standard_Cache
010a 1818 | | Execute Package,Field_Execute,Field_Number 0x18
010b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
010c ; --------------------------------------------------------------------------------------
010c ; STRING TABLE
010c ; --------------------------------------------------------------------------------------
010c 001a | | .STRTAB 0x001a->0x0119 ; "FROM_TOWER"
010d 0022 | " | .STRTAB 0x0022->0x011e ; "TO_TOWER"
010e 0028 | ( | .STRTAB 0x0028->0x0122 ; "COUNT"
010f 002b | + | .STRTAB 0x002b->0x0124 ; "PRIORITY"
0110 0031 | 1 | .STRTAB 0x0031->0x0128 ; "LOCATION"
0111 0037 | 7 | .STRTAB 0x0037->0x012c ; "DISK_COUNT"
0112 003f | ? | .STRTAB 0x003f->0x0131 ; "TOWER"
0113 0042 | B | .STRTAB 0x0042->0x0134 ; "LEVEL"
0114 0045 | E | .STRTAB 0x0045->0x0136 ; "SIZE"
0115 0047 | G | .STRTAB 0x0047->0x0138 ; "Movement"
0116 004d | M | .STRTAB 0x004d->0x013c ; "Tower"
0117 0050 | P | .STRTAB 0x0050->0x013f ; "Disk"
0118 0052 | R | .STREND 0x0052->0x0141
0119 4652 4f4d |FROM| .STRTAB_STRINGS
0141 0000 0000 | | .BLANK 0000[0x7]
0148 ; --------------------------------------------------------------------------------------
0148 ; Debug Table
0148 ; --------------------------------------------------------------------------------------
0148 0004 0004 | | .DEBUG4 0x0004,0x0004,0x6559,0x0000,0x0001,0x0007
014e 000b 016a | j| .DBG4T 0x000b,0x016a,0x8000,0x0000
0152 005b 0000 | [ | .DBG4T 0x005b,0x0000,0x0005,0x0000
0156 0093 0000 | | .DBG4T 0x0093,0x0000,0x000c,0x0000
015a 00a3 0000 | | .DBG4T 0x00a3,0x0000,0x0005,0x0000
015e 00cb 0000 | | .DBG4T 0x00cb,0x0000,0x000c,0x0000
0162 00db 0000 | | .DBG4T 0x00db,0x0000,0x0005,0x0000
0166 0103 0000 | | .DBG4T 0x0103,0x0000,0x000c,0x0000
016a ; --------------------------------------------------------------------------------------
016a ; Debug chain
016a ; --------------------------------------------------------------------------------------
016a 0006 0000 | | .DBGLEN 0x0006,0x0000
016c 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0022,0x0027,0x0039,0x003e
0172 0000 0000 | | .BLANK 0000[0x8e]