|
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_ccb0b3
└─⟦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 01a8 | | .CONST 0x01a8 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 002a | * | .CONST 0x002a ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0012 | | .CONST 0x0012 ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 4801 |H | Short_Literal 0x1
000d 029f 0033 | 3| Declare_Subprogram INIT_0030,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 00c4 | | Action Make_Default
0014 00c4 | | Action Make_Default
0015 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated
0017 c212 | | Store 0x1,0x12
0018 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated
001a c20f | | Store 0x1,0xf
001b 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated
001d c210 | | Store 0x1,0x10
001e 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated
0020 c211 | | Store 0x1,0x11
0021 00bf | | Action Accept_Activation
0022 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0023 00c7 | | Action Elaborate_Subprogram
0024 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0025 00c7 | | Action Elaborate_Subprogram
0026 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0027 00c7 | | Action Elaborate_Subprogram
0028 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0029 00c7 | | Action Elaborate_Subprogram
002a BODY_0008:
002a 00bc | | Action Signal_Activated
002b 00bb | | Action Signal_Completion
002c 0000 0000 | | .BLANK 0000[0x4]
0030 ; --------------------------------------------------------------------------------------
0030 ; SUBPROGRAM
0030 ; --------------------------------------------------------------------------------------
0030 0033 | 3 | .CONST 0x0033 ; Address of begin
0031 0004 | | .CONST 0x0004 ; Address of exception handler
0032 0001 | | .CONST 0x0001 ; Number of locals
0033 BODY_0030:
0033 INIT_0030:
0033 4607 |F | Jump_Case 0x8
0034 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0035 7806 |x | Jump 0x3c ; case 0x1
0036 7809 |x | Jump 0x40 ; case 0x2
0037 780d |x | Jump 0x45 ; case 0x3
0038 7810 |x | Jump 0x49 ; case 0x4
0039 7811 |x | Jump 0x4b ; case 0x5
003a 7812 |x | Jump 0x4d ; case 0x6
003b 7815 |x | Jump 0x51 ; case 0x7
003c 00da | | Load_Top At_Offset_2
003d 0091 0164 | d| Action Push_String_Extended_Indexed,0x164 ; "INPUT"
003f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0040 00db | | Load_Top At_Offset_3
0041 00db | | Load_Top At_Offset_3
0042 00e0 | | Load_Encached Standard_Cache
0043 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0044 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0045 00da | | Load_Top At_Offset_2
0046 00e0 | | Load_Encached Standard_Cache
0047 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0048 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0049 00db | | Load_Top At_Offset_3
004a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
004b 00db | | Load_Top At_Offset_3
004c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
004d e20d | | Load 0x1,0xd
004e 00dc | | Load_Top At_Offset_4
004f 0267 | g | Execute Discrete,Predecessor
0050 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0051 e20d | | Load 0x1,0xd
0052 00dc | | Load_Top At_Offset_4
0053 0268 | h | Execute Discrete,Successor
0054 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0055 0000 0000 | | .XXX[0x3]
0057 0000 | |
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005b | [ | .CONST 0x005b ; Address of begin
0059 0082 | | .CONST 0x0082 ; Address of exception handler
005a 0001 | | .CONST 0x0001 ; Number of locals
005b BODY_0058:
005b INIT_0058:
005b e001 | | Load 0x0,0x1
005c 180e | | Execute Package,Field_Execute,Field_Number 0xe
005d 4802 |H | Short_Literal 0x2
005e 0092 0166 | f| Action Push_String_Extended,0x166 ; "Connecting to tape "
0060 e002 | | Load 0x0,0x2
0061 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0062 00db | | Load_Top At_Offset_3
0063 e003 | | Load 0x0,0x3
0064 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0065 c5fb | | Store 0x2,-0x5
0066 00da | | Load_Top At_Offset_2
0067 0f01 | | Execute_Immediate Equal,0x1
0068 680a |h | Jump_Zero 0x73
0069 e5fb | | Load 0x2,-0x5
006a 0092 0167 | g| Action Push_String_Extended,0x167 ; "Thank You"
006c 00ea | | Load_Encached Null_String_Cache
006d 00ea | | Load_Encached Null_String_Cache
006e e5fd | | Load 0x2,-0x3
006f e003 | | Load 0x0,0x3
0070 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0071 c5fb | | Store 0x2,-0x5
0072 7808 |x | Jump 0x7b
0073 e5fb | | Load 0x2,-0x5
0074 0092 0167 | g| Action Push_String_Extended,0x167 ; "Thank You"
0076 00ea | | Load_Encached Null_String_Cache
0077 e5fd | | Load 0x2,-0x3
0078 e003 | | Load 0x0,0x3
0079 1818 | | Execute Package,Field_Execute,Field_Number 0x18
007a c5fb | | Store 0x2,-0x5
007b 6010 |` | Indirect_Literal Discrete,0x8c,{0x00000000, 0x00000800}
007c 4a00 |J | Short_Literal 0x200
007d 4801 |H | Short_Literal 0x1
007e e5fb | | Load 0x2,-0x5
007f e003 | | Load 0x0,0x3
0080 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0081 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0082 TRAP_0058:
0082 0007 | | Action Break_Optional
0083 e001 | | Load 0x0,0x1
0084 180e | | Execute Package,Field_Execute,Field_Number 0xe
0085 4807 |H | Short_Literal 0x7
0086 0092 0168 | h| Action Push_String_Extended,0x168 ; "Tape open failed"
0088 e002 | | Load 0x0,0x2
0089 1813 | | Execute Package,Field_Execute,Field_Number 0x13
008a 4505 |E | Exit_Suprogram New_Top_Offset 0x5
008b 0000 | | .XXX[0x1]
008c 0000 0000 | | .LITERAL {0x00000000, 0x00000800}
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093 | | .CONST 0x0093 ; Address of begin
0091 0097 | | .CONST 0x0097 ; 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 e003 | | Load 0x0,0x3
0095 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0096 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0097 TRAP_0090:
0097 0007 | | Action Break_Optional
0098 e001 | | Load 0x0,0x1
0099 180e | | Execute Package,Field_Execute,Field_Number 0xe
009a 4807 |H | Short_Literal 0x7
009b 0092 0169 | i| Action Push_String_Extended,0x169 ; "Tape close failed"
009d e002 | | Load 0x0,0x2
009e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
009f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00af | | .CONST 0x00af ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0004 | | .CONST 0x0004 ; Number of locals
00a3 INIT_00a0:
00a3 4801 |H | Short_Literal 0x1
00a4 4a00 |J | Short_Literal 0x200
00a5 e004 | | Load 0x0,0x4
00a6 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00a7 035b | [ | Declare_Type Array,Constrained
00a8 0337 | 7 | Declare_Variable Array
00a9 00e3 | | Load_Encached Natural_Cache
00aa e004 | | Load 0x0,0x4
00ab 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ac 02c7 | | Declare_Variable Any
00ad 00d8 | | Load_Top At_Offset_0
00ae 1c00 | | Execute_Immediate Run_Utility,0x0
00af BODY_00a0:
00af 00d8 | | Load_Top At_Offset_0
00b0 e005 | | Load 0x0,0x5
00b1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00b2 e006 | | Load 0x0,0x6
00b3 181e | | Execute Package,Field_Execute,Field_Number 0x1e
00b4 00ea | | Load_Encached Null_String_Cache
00b5 e5ff | | Load 0x2,-0x1
00b6 4800 |H | Short_Literal 0x0
00b7 e004 | | Load 0x0,0x4
00b8 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00b9 c404 | | Store 0x2,0x4
00ba e5fd | | Load 0x2,-0x3
00bb 00ea | | Load_Encached Null_String_Cache
00bc e5fe | | Load 0x2,-0x2
00bd e003 | | Load 0x0,0x3
00be 1820 | | Execute Package,Field_Execute,Field_Number 0x20
00bf c5fd | | Store 0x2,-0x3
00c0 e5fd | | Load 0x2,-0x3
00c1 e003 | | Load 0x0,0x3
00c2 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
00c3 6808 |h | Jump_Zero 0xcc
00c4 e001 | | Load 0x0,0x1
00c5 180e | | Execute Package,Field_Execute,Field_Number 0xe
00c6 4807 |H | Short_Literal 0x7
00c7 0092 016a | j| Action Push_String_Extended,0x16a ; "Tape_write errors"
00c9 e002 | | Load 0x0,0x2
00ca 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00cb 7822 |x" | Jump 0xee
00cc 00cf | | Action Mark_Auxiliary
00cd 781b |x | Jump 0xe9
00ce 00e3 | | Load_Encached Natural_Cache
00cf e402 | | Load 0x2,0x2
00d0 00db | | Load_Top At_Offset_3
00d1 e004 | | Load 0x0,0x4
00d2 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
00d3 00d1 | | Pop_Control Pop_Count_1
00d4 005b | [ | Store_Top Discrete,At_Offset_3
00d5 4801 |H | Short_Literal 0x1
00d6 00db | | Load_Top At_Offset_3
00d7 e402 | | Load 0x2,0x2
00d8 01cf | | Execute Vector,Slice_Read
00d9 e5fd | | Load 0x2,-0x3
00da e003 | | Load 0x0,0x3
00db 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
00dc e5fd | | Load 0x2,-0x3
00dd e003 | | Load 0x0,0x3
00de 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
00df 6808 |h | Jump_Zero 0xe8
00e0 e001 | | Load 0x0,0x1
00e1 180e | | Execute Package,Field_Execute,Field_Number 0xe
00e2 4807 |H | Short_Literal 0x7
00e3 0092 016a | j| Action Push_String_Extended,0x16a ; "Tape_write errors"
00e5 e002 | | Load 0x0,0x2
00e6 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00e7 7805 |x | Jump 0xed
00e8 00c9 | | Action Pop_Auxiliary_Loop
00e9 00d9 | | Load_Top At_Offset_1
00ea e004 | | Load 0x0,0x4
00eb 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
00ec 6fe1 |o | Jump_Zero 0xce
00ed 00ce | | Action Pop_Auxiliary
00ee 00d8 | | Load_Top At_Offset_0
00ef e004 | | Load 0x0,0x4
00f0 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00f1 c404 | | Store 0x2,0x4
00f2 e5fd | | Load 0x2,-0x3
00f3 e003 | | Load 0x0,0x3
00f4 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
00f5 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00f6 0000 0000 | | .XXX[0x2]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fd | | .CONST 0x00fd ; Address of begin
00f9 0103 | | .CONST 0x0103 ; Address of exception handler
00fa 0002 | | .CONST 0x0002 ; Number of locals
00fb INIT_00f8:
00fb 029f 0113 | | Declare_Subprogram INIT_0110,For_Call
00fd BODY_00f8:
00fd e5fe | | Load 0x2,-0x2
00fe e003 | | Load 0x0,0x3
00ff 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0100 c5fe | | Store 0x2,-0x2
0101 8402 | | Call 0x2,0x2
0102 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0103 TRAP_00f8:
0103 0007 | | Action Break_Optional
0104 e001 | | Load 0x0,0x1
0105 180e | | Execute Package,Field_Execute,Field_Number 0xe
0106 4807 |H | Short_Literal 0x7
0107 0092 016b | k| Action Push_String_Extended,0x16b ; "Tape_read error"
0109 e002 | | Load 0x0,0x2
010a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
010b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
010c 0000 0000 | | .BLANK 0000[0x4]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0127 | ' | .CONST 0x0127 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0007 | | .CONST 0x0007 ; Number of locals
0113 INIT_0110:
0113 e004 | | Load 0x0,0x4
0114 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0115 02c7 | | Declare_Variable Any
0116 00d8 | | Load_Top At_Offset_0
0117 1c00 | | Execute_Immediate Run_Utility,0x0
0118 e5fe | | Load 0x2,-0x2
0119 e003 | | Load 0x0,0x3
011a 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
011b e5fe | | Load 0x2,-0x2
011c e003 | | Load 0x0,0x3
011d 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
011e 4801 |H | Short_Literal 0x1
011f 00d9 | | Load_Top At_Offset_1
0120 e004 | | Load 0x0,0x4
0121 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0122 035b | [ | Declare_Type Array,Constrained
0123 0337 | 7 | Declare_Variable Array
0124 00e3 | | Load_Encached Natural_Cache
0125 029f 015b | [| Declare_Subprogram INIT_0158,For_Call
0127 BODY_0110:
0127 e602 | | Load 0x3,0x2
0128 e005 | | Load 0x0,0x5
0129 1b0e | | Execute Package,Field_Read,Field_Number 0xe
012a e006 | | Load 0x0,0x6
012b 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
012c e006 | | Load 0x0,0x6
012d 181e | | Execute Package,Field_Execute,Field_Number 0x1e
012e 00ea | | Load_Encached Null_String_Cache
012f 8607 | | Call 0x3,0x7
0130 4801 |H | Short_Literal 0x1
0131 e004 | | Load 0x0,0x4
0132 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0133 c602 | | Store 0x3,0x2
0134 00cf | | Action Mark_Auxiliary
0135 780f |x | Jump 0x145
0136 00e3 | | Load_Encached Natural_Cache
0137 e605 | | Load 0x3,0x5
0138 e5fe | | Load 0x2,-0x2
0139 e003 | | Load 0x0,0x3
013a 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
013b 00d1 | | Pop_Control Pop_Count_1
013c 005b | [ | Store_Top Discrete,At_Offset_3
013d 4801 |H | Short_Literal 0x1
013e 00db | | Load_Top At_Offset_3
013f e605 | | Load 0x3,0x5
0140 01cf | | Execute Vector,Slice_Read
0141 e602 | | Load 0x3,0x2
0142 e004 | | Load 0x0,0x4
0143 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0144 00c9 | | Action Pop_Auxiliary_Loop
0145 e5fe | | Load 0x2,-0x2
0146 e003 | | Load 0x0,0x3
0147 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
0148 6fed |o | Jump_Zero 0x136
0149 00ce | | Action Pop_Auxiliary
014a e602 | | Load 0x3,0x2
014b e004 | | Load 0x0,0x4
014c 1819 | | Execute Package,Field_Execute,Field_Number 0x19
014d c602 | | Store 0x3,0x2
014e e5fe | | Load 0x2,-0x2
014f e003 | | Load 0x0,0x3
0150 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0151 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0152 0000 0000 | | .BLANK 0000[0x6]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b | [ | .CONST 0x015b ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0001 | | .CONST 0x0001 ; Number of locals
015b BODY_0158:
015b INIT_0158:
015b e5ff | | Load 0x2,-0x1
015c 01db | | Execute Vector,Length
015d 7002 |p | Jump_Nonzero 0x160
015e e603 | | Load 0x3,0x3
015f 00ca | | Action Exit_Nullary_Function
0160 e5ff | | Load 0x2,-0x1
0161 0335 | 5 | Declare_Variable Array,Duplicate
0162 00cd | | Action Spare6_Action
0163 00ca | | Action Exit_Nullary_Function
0164 ; --------------------------------------------------------------------------------------
0164 ; STRING TABLE
0164 ; --------------------------------------------------------------------------------------
0164 0012 | | .STRTAB 0x0012->0x016d ; "INPUT"
0165 0015 | | .STRTAB 0x0015->0x016f ; "OUTPUT"
0166 0019 | | .STRTAB 0x0019->0x0172 ; "Connecting to tape "
0167 002a | * | .STRTAB 0x002a->0x017c ; "Thank You"
0168 0031 | 1 | .STRTAB 0x0031->0x0180 ; "Tape open failed"
0169 003f | ? | .STRTAB 0x003f->0x0188 ; "Tape close failed"
016a 004e | N | .STRTAB 0x004e->0x0191 ; "Tape_write errors"
016b 005d | ] | .STRTAB 0x005d->0x0199 ; "Tape_read error"
016c 006a | j | .STREND 0x006a->0x01a1
016d 494e 5055 |INPU| .STRTAB_STRINGS
01a1 0000 0000 | | .BLANK 0000[0x7]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; Debug Table
01a8 ; --------------------------------------------------------------------------------------
01a8 0004 000e | | .DEBUG4 0x0004,0x000e,0x2d1f,0x0000,0x0001,0x0000
01ae 5004 7a86 |P z | .XXX[0x2]
01b0 0000 0000 | | .BLANK 0000[0x4]
01b4 0004 7c17 | | | .XXX[0x19]
01b6 0000 858d | |
01b8 4000 0000 |@ |
01ba 0004 3a59 | :Y|
01bc 011e d800 | |
01be 0022 2e58 | ".X|
01c0 08f5 8600 | |
01c2 0113 f140 | @|
01c4 47b9 d000 |G |
01c6 0000 0000 | |
01c8 47c9 4000 |G @ |
01ca 0000 0000 | |
01cc 0008 | |
01cd 0000 0000 | | .BLANK 0000[0x33]