|
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_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 0130 | 0 | .CONST 0x0130 ; 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 0024 | $ | .CONST 0x0024 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0007 | | .CONST 0x0007 ; Number of locals
000b INIT_0008:
000b 00ea | | Load_Encached Null_String_Cache
000c 4800 |H | Short_Literal 0x0
000d e7ff | | Load 0x3,-0x1
000e e249 | I | Load 0x1,0x49
000f 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0010 e002 | | Load 0x0,0x2
0011 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0012 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0013 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0014 02c7 | | Declare_Variable Any
0015 00d8 | | Load_Top At_Offset_0
0016 1c00 | | Execute_Immediate Run_Utility,0x0
0017 e002 | | Load 0x0,0x2
0018 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0019 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
001a 1b16 | | Execute Package,Field_Read,Field_Number 0x16
001b 02c7 | | Declare_Variable Any
001c 00d8 | | Load_Top At_Offset_0
001d 1c00 | | Execute_Immediate Run_Utility,0x0
001e 029f 004b | K| Declare_Subprogram INIT_0048,For_Call
0020 029f 006b | k| Declare_Subprogram INIT_0068,For_Call
0022 029f 00ab | | Declare_Subprogram INIT_00a8,For_Call
0024 BODY_0008:
0024 8605 | | Call 0x3,0x5
0025 c604 | | Store 0x3,0x4
0026 00db | | Load_Top At_Offset_3
0027 e002 | | Load 0x0,0x2
0028 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0029 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
002a 1b17 | | Execute Package,Field_Read,Field_Number 0x17
002b 012e | . | Execute Any,Not_Equal
002c 6819 |h | Jump_Zero 0x46
002d 4806 |H | Short_Literal 0x6
002e 8262 | b | Call 0x1,0x62
002f e265 | e | Load 0x1,0x65
0030 0092 00d8 | | Action Push_String_Extended,0xd8 ; "Operational State General Flow"
0032 8281 | | Call 0x1,0x81
0033 00cf | | Action Mark_Auxiliary
0034 7807 |x | Jump 0x3c
0035 e604 | | Load 0x3,0x4
0036 e002 | | Load 0x0,0x2
0037 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0038 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0039 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
003a 8607 | | Call 0x3,0x7
003b 00c9 | | Action Pop_Auxiliary_Loop
003c e604 | | Load 0x3,0x4
003d e002 | | Load 0x0,0x2
003e 1b20 | | Execute Package,Field_Read,Field_Number 0x20
003f 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0040 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0041 6ff3 |o | Jump_Zero 0x35
0042 00ce | | Action Pop_Auxiliary
0043 e264 | d | Load 0x1,0x64
0044 e265 | e | Load 0x1,0x65
0045 826e | n | Call 0x1,0x6e
0046 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0047 0000 | | .XXX[0x1]
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 004e | N | .CONST 0x004e ; Address of begin
0049 0004 | | .CONST 0x0004 ; Address of exception handler
004a 0002 | | .CONST 0x0002 ; Number of locals
004b INIT_0048:
004b e002 | | Load 0x0,0x2
004c 1b20 | | Execute Package,Field_Read,Field_Number 0x20
004d 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
004e BODY_0048:
004e 00d8 | | Load_Top At_Offset_0
004f e7ff | | Load 0x3,-0x1
0050 e004 | | Load 0x0,0x4
0051 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0052 482a |H* | Short_Literal 0x2a
0053 e042 | B | Load 0x0,0x42
0054 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0055 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0056 00d8 | | Load_Top At_Offset_0
0057 e002 | | Load 0x0,0x2
0058 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0059 181f | | Execute Package,Field_Execute,Field_Number 0x1f
005a 6805 |h | Jump_Zero 0x60
005b e002 | | Load 0x0,0x2
005c 1b20 | | Execute Package,Field_Read,Field_Number 0x20
005d 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
005e 1b17 | | Execute Package,Field_Read,Field_Number 0x17
005f 00ca | | Action Exit_Nullary_Function
0060 00d8 | | Load_Top At_Offset_0
0061 e002 | | Load 0x0,0x2
0062 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0063 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0064 e042 | B | Load 0x0,0x42
0065 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0066 00ca | | Action Exit_Nullary_Function
0067 0000 | | .XXX[0x1]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006b | k | .CONST 0x006b ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0001 | | .CONST 0x0001 ; Number of locals
006b BODY_0068:
006b INIT_0068:
006b 00da | | Load_Top At_Offset_2
006c e002 | | Load 0x0,0x2
006d 1b20 | | Execute Package,Field_Read,Field_Number 0x20
006e 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
006f 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0070 4608 |F | Jump_Case 0x9
0071 7808 |x | Jump 0x7a ; case 0x0
0072 7832 |x2 | Jump 0xa5 ; case 0x1
0073 7806 |x | Jump 0x7a ; case 0x2
0074 7830 |x0 | Jump 0xa5 ; case 0x3
0075 7804 |x | Jump 0x7a ; case 0x4
0076 7828 |x( | Jump 0x9f ; case 0x5
0077 7802 |x | Jump 0x7a ; case 0x6
0078 7801 |x | Jump 0x7a ; case 0x7
0079 7800 |x | Jump 0x7a ; case 0x8
007a 4800 |H | Short_Literal 0x0
007b 4800 |H | Short_Literal 0x0
007c 4807 |H | Short_Literal 0x7
007d 0092 00d9 | | Action Push_String_Extended,0xd9 ; "Illegal State specification syntax detected in the @STATES annotation of "
007f e7ff | | Load 0x3,-0x1
0080 e004 | | Load 0x0,0x4
0081 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0082 e004 | | Load 0x0,0x4
0083 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
0084 01cc | | Execute Vector,Catenate
0085 0092 00da | | Action Push_String_Extended,0xda ; " component \x22"
0087 01cc | | Execute Vector,Catenate
0088 e7ff | | Load 0x3,-0x1
0089 e004 | | Load 0x0,0x4
008a 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
008b 01cc | | Execute Vector,Catenate
008c 0092 00db | | Action Push_String_Extended,0xdb ; "\x22 ('"
008e 01cc | | Execute Vector,Catenate
008f e9ff | | Load 0x4,-0x1
0090 e002 | | Load 0x0,0x2
0091 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0092 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0093 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0094 01cc | | Execute Vector,Catenate
0095 0092 00dc | | Action Push_String_Extended,0xdc ; "' is malformed)"
0097 01cc | | Execute Vector,Catenate
0098 8218 | | Call 0x1,0x18
0099 8247 | G | Call 0x1,0x47
009a e002 | | Load 0x0,0x2
009b 1b20 | | Execute Package,Field_Read,Field_Number 0x20
009c 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
009d 1b14 | | Execute Package,Field_Read,Field_Number 0x14
009e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
009f 00da | | Load_Top At_Offset_2
00a0 e002 | | Load 0x0,0x2
00a1 1b20 | | Execute Package,Field_Read,Field_Number 0x20
00a2 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
00a3 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
00a4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00a5 00da | | Load_Top At_Offset_2
00a6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00a7 0000 | | .XXX[0x1]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00b7 | | .CONST 0x00b7 ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0003 | | .CONST 0x0003 ; Number of locals
00ab INIT_00a8:
00ab 00da | | Load_Top At_Offset_2
00ac 8606 | | Call 0x3,0x6
00ad e002 | | Load 0x0,0x2
00ae 1b20 | | Execute Package,Field_Read,Field_Number 0x20
00af 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
00b0 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00b1 011e | | Execute Any,Convert
00b2 00d8 | | Load_Top At_Offset_0
00b3 e002 | | Load 0x0,0x2
00b4 1b20 | | Execute Package,Field_Read,Field_Number 0x20
00b5 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
00b6 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00b7 BODY_00a8:
00b7 00d9 | | Load_Top At_Offset_1
00b8 e002 | | Load 0x0,0x2
00b9 1b20 | | Execute Package,Field_Read,Field_Number 0x20
00ba 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
00bb 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00bc 7014 |p | Jump_Nonzero 0xd1
00bd 4807 |H | Short_Literal 0x7
00be 8262 | b | Call 0x1,0x62
00bf e602 | | Load 0x3,0x2
00c0 0092 00dd | | Action Push_String_Extended,0xdd ; "State "
00c2 4801 |H | Short_Literal 0x1
00c3 e289 | | Load 0x1,0x89
00c4 e803 | | Load 0x4,0x3
00c5 e003 | | Load 0x0,0x3
00c6 180f | | Execute Package,Field_Execute,Field_Number 0xf
00c7 01cc | | Execute Vector,Catenate
00c8 8282 | | Call 0x1,0x82
00c9 0092 00de | | Action Push_String_Extended,0xde ; "SDD."
00cb 00d9 | | Load_Top At_Offset_1
00cc 01cc | | Execute Vector,Catenate
00cd 0092 00df | | Action Push_String_Extended,0xdf ; "_GENERAL_FLOW"
00cf 01cc | | Execute Vector,Catenate
00d0 8240 | @ | Call 0x1,0x40
00d1 e604 | | Load 0x3,0x4
00d2 e002 | | Load 0x0,0x2
00d3 1b20 | | Execute Package,Field_Read,Field_Number 0x20
00d4 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
00d5 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
00d6 c604 | | Store 0x3,0x4
00d7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00d8 ; --------------------------------------------------------------------------------------
00d8 ; STRING TABLE
00d8 ; --------------------------------------------------------------------------------------
00d8 0012 | | .STRTAB 0x0012->0x00e1 ; "Operational State General Flow"
00d9 002e | . | .STRTAB 0x002e->0x00f0 ; "Illegal State specification syntax detected in the @STATES annotation of "
00da 0075 | u | .STRTAB 0x0075->0x0114 ; " component \x22"
00db 007f | | .STRTAB 0x007f->0x011a ; "\x22 ('"
00dc 0081 | | .STRTAB 0x0081->0x011c ; "' is malformed)"
00dd 008e | | .STRTAB 0x008e->0x0124 ; "State "
00de 0092 | | .STRTAB 0x0092->0x0127 ; "SDD."
00df 0094 | | .STRTAB 0x0094->0x0129 ; "_GENERAL_FLOW"
00e0 009f | | .STREND 0x009f->0x012f
00e1 4f70 6572 |Oper| .STRTAB_STRINGS
0130 ; --------------------------------------------------------------------------------------
0130 ; Debug Table
0130 ; --------------------------------------------------------------------------------------
0130 0004 0012 | | .DEBUG4 0x0004,0x0012,0xfc79,0x0000,0x0001,0x0000
0136 0000 0000 | | .BLANK 0000[0x4]
013a 0004 00a0 | | .XXX[0xc]
013c 0000 0000 | |
013e 0000 0800 | |
0140 0000 4400 | D |
0142 0000 0020 | |
0144 0000 0140 | @|
0146 0000 0000 | | .BLANK 0000[0x2e]
0174 8014 0000 | | .XXX[0xb]
0176 0000 0000 | |
0178 0100 0000 | |
017a 0880 0000 | |
017c 0004 0000 | |
017e 0028 | ( |
017f 0000 0000 | | .BLANK 0000[0x2e]
01ad 1002 8000 | | .XXX[0xb]
01af 0000 0000 | |
01b1 0020 0000 | |
01b3 0110 0000 | |
01b5 0000 8000 | |
01b7 0005 | |
01b8 0000 0000 | | .BLANK 0000[0x48]