|
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_02f8e7
└─⟦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 00f8 | | .CONST 0x00f8 ; 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 001a | | .CONST 0x001a ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0007 | | .CONST 0x0007 ; Number of locals
000b INIT_0008:
000b e411 | | Load 0x2,0x11
000c 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
000d e403 | | Load 0x2,0x3
000e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
000f 00e3 | | Load_Encached Natural_Cache
0010 03f1 | | Declare_Variable Discrete,With_Value
0011 00e3 | | Load_Encached Natural_Cache
0012 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0013 00e8 | | Load_Encached Character_Cache
0014 00e2 | | Load_Encached Integer_Cache
0015 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0016 029f 0063 | c| Declare_Subprogram INIT_0060,For_Call
0018 029f 00b3 | | Declare_Subprogram INIT_00b0,For_Call
001a BODY_0008:
001a 8807 | | Call 0x4,0x7
001b 8806 | | Call 0x4,0x6
001c 00cf | | Action Mark_Auxiliary
001d e802 | | Load 0x4,0x2
001e 4801 |H | Short_Literal 0x1
001f 0263 | c | Execute Discrete,Above_Bound
0020 7039 |p9 | Jump_Nonzero 0x5a
0021 00d8 | | Load_Top At_Offset_0
0022 e411 | | Load 0x2,0x11
0023 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
0024 e403 | | Load 0x2,0x3
0025 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0026 a804 | | Store_Unchecked 0x4,0x4
0027 e804 | | Load 0x4,0x4
0028 0f0a | | Execute_Immediate Equal,0xa
0029 7006 |p | Jump_Nonzero 0x30
002a e804 | | Load 0x4,0x4
002b 0f0d | | Execute_Immediate Equal,0xd
002c 7003 |p | Jump_Nonzero 0x30
002d e804 | | Load 0x4,0x4
002e 0f0c | | Execute_Immediate Equal,0xc
002f 6828 |h( | Jump_Zero 0x58
0030 e805 | | Load 0x4,0x5
0031 e80a | | Load 0x4,0xa
0032 e803 | | Load 0x4,0x3
0033 0272 | r | Execute Discrete,Minus
0034 0248 | H | Execute Discrete,Check_In_Integer
0035 0a01 | | Execute_Immediate Plus,0x1
0036 027c | | | Execute Discrete,Less
0037 6801 |h | Jump_Zero 0x39
0038 8806 | | Call 0x4,0x6
0039 4822 |H" | Short_Literal 0x22
003a e80a | | Load 0x4,0xa
003b 0aff | | Execute_Immediate Plus,-0x1
003c 00e3 | | Load_Encached Natural_Cache
003d 025b | [ | Execute Discrete,Check_In_Type
003e e803 | | Load 0x4,0x3
003f 00e4 | | Load_Encached Positive_Cache
0040 025b | [ | Execute Discrete,Check_In_Type
0041 e411 | | Load 0x2,0x11
0042 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
0043 e403 | | Load 0x2,0x3
0044 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0045 01ca | | Execute Vector,Prepend
0046 0092 00d0 | | Action Push_String_Extended,0xd0 ; "\x22"
0048 01cc | | Execute Vector,Catenate
0049 e602 | | Load 0x3,0x2
004a e01a | | Load 0x0,0x1a
004b 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
004c e805 | | Load 0x4,0x5
004d e80a | | Load 0x4,0xa
004e e803 | | Load 0x4,0x3
004f 0272 | r | Execute Discrete,Minus
0050 0248 | H | Execute Discrete,Check_In_Integer
0051 0a01 | | Execute_Immediate Plus,0x1
0052 0272 | r | Execute Discrete,Minus
0053 0248 | H | Execute Discrete,Check_In_Integer
0054 a805 | | Store_Unchecked 0x4,0x5
0055 00d8 | | Load_Top At_Offset_0
0056 0a01 | | Execute_Immediate Plus,0x1
0057 c803 | | Store 0x4,0x3
0058 00c8 | | Action Pop_Auxiliary_Range
0059 3fc7 |? | Loop_Increasing 0x21
005a 00ce | | Action Pop_Auxiliary
005b e602 | | Load 0x3,0x2
005c e01a | | Load 0x0,0x1a
005d 181b | | Execute Package,Field_Execute,Field_Number 0x1b
005e c602 | | Store 0x3,0x2
005f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0063 | c | .CONST 0x0063 ; Address of begin
0061 0004 | | .CONST 0x0004 ; Address of exception handler
0062 0001 | | .CONST 0x0001 ; Number of locals
0063 BODY_0060:
0063 INIT_0060:
0063 4801 |H | Short_Literal 0x1
0064 e602 | | Load 0x3,0x2
0065 e01a | | Load 0x0,0x1a
0066 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
0067 0092 00d1 | | Action Push_String_Extended,0xd1 ; "DATE_ENTERED => "
0069 4800 |H | Short_Literal 0x0
006a 4801 |H | Short_Literal 0x1
006b 4802 |H | Short_Literal 0x2
006c e411 | | Load 0x2,0x11
006d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
006e e008 | | Load 0x0,0x8
006f 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0070 01cc | | Execute Vector,Catenate
0071 e602 | | Load 0x3,0x2
0072 e01a | | Load 0x0,0x1a
0073 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
0074 00cf | | Action Mark_Auxiliary
0075 e411 | | Load 0x2,0x11
0076 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
0077 01d9 | | Execute Vector,Reverse_Bounds
0078 0007 | | Action Break_Optional
0079 00d8 | | Load_Top At_Offset_0
007a e408 | | Load 0x2,0x8
007b 025e | ^ | Execute Discrete,Convert
007c 1c01 | | Execute_Immediate Run_Utility,0x1
007d 0092 00d2 | | Action Push_String_Extended,0xd2 ; " => \x22"
007f 01cc | | Execute Vector,Catenate
0080 ea04 | | Load 0x5,0x4
0081 e411 | | Load 0x2,0x11
0082 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
0083 01d7 | | Execute Vector,Field_Read
0084 e402 | | Load 0x2,0x2
0085 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0086 01cc | | Execute Vector,Catenate
0087 0092 00d0 | | Action Push_String_Extended,0xd0 ; "\x22"
0089 01cc | | Execute Vector,Catenate
008a e602 | | Load 0x3,0x2
008b e01a | | Load 0x0,0x1a
008c 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
008d 00c8 | | Action Pop_Auxiliary_Range
008e 3fea |? | Loop_Increasing 0x79
008f 00ce | | Action Pop_Auxiliary
0090 0092 00d3 | | Action Push_String_Extended,0xd3 ; "SEVERITY => "
0092 e411 | | Load 0x2,0x11
0093 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0094 e40c | | Load 0x2,0xc
0095 025e | ^ | Execute Discrete,Convert
0096 1c01 | | Execute_Immediate Run_Utility,0x1
0097 01cc | | Execute Vector,Catenate
0098 e602 | | Load 0x3,0x2
0099 e01a | | Load 0x0,0x1a
009a 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
009b 0092 00d4 | | Action Push_String_Extended,0xd4 ; "CLASS => "
009d e411 | | Load 0x2,0x11
009e 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
009f e40b | | Load 0x2,0xb
00a0 025e | ^ | Execute Discrete,Convert
00a1 1c01 | | Execute_Immediate Run_Utility,0x1
00a2 01cc | | Execute Vector,Catenate
00a3 e602 | | Load 0x3,0x2
00a4 e01a | | Load 0x0,0x1a
00a5 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
00a6 0092 00d5 | | Action Push_String_Extended,0xd5 ; "PROBLEM_INFO => "
00a8 e602 | | Load 0x3,0x2
00a9 e01a | | Load 0x0,0x1a
00aa 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
00ab 6020 |` | Indirect_Literal Discrete,0xcc,{0x00000000, 0x000007dc}
00ac a805 | | Store_Unchecked 0x4,0x5
00ad 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00ae 0000 0000 | | .XXX[0x2]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3 | | .CONST 0x00b3 ; Address of begin
00b1 00bb | | .CONST 0x00bb ; Address of exception handler
00b2 0001 | | .CONST 0x0001 ; Number of locals
00b3 BODY_00b0:
00b3 INIT_00b0:
00b3 e602 | | Load 0x3,0x2
00b4 00ea | | Load_Encached Null_String_Cache
00b5 e608 | | Load 0x3,0x8
00b6 4801 |H | Short_Literal 0x1
00b7 e01a | | Load 0x0,0x1a
00b8 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00b9 c602 | | Store 0x3,0x2
00ba 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00bb TRAP_00b0:
00bb 00d8 | | Load_Top At_Offset_0
00bc 0107 | | Execute Exception,Get_Name
00bd 4920 |I | Short_Literal 0x120
00be 492f |I/ | Short_Literal 0x12f
00bf 0262 | b | Execute Discrete,In_Range
00c0 6809 |h | Jump_Zero 0xca
00c1 860e | | Call 0x3,0xe
00c2 e602 | | Load 0x3,0x2
00c3 00ea | | Load_Encached Null_String_Cache
00c4 e608 | | Load 0x3,0x8
00c5 4801 |H | Short_Literal 0x1
00c6 e01a | | Load 0x0,0x1a
00c7 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00c8 c602 | | Store 0x3,0x2
00c9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00ca 0100 | | Execute Exception,Raise
00cb 0000 | | .XXX[0x1]
00cc 0000 0000 | | .LITERAL {0x00000000, 0x000007dc}
00d0 ; --------------------------------------------------------------------------------------
00d0 ; STRING TABLE
00d0 ; --------------------------------------------------------------------------------------
00d0 000e | | .STRTAB 0x000e->0x00d7 ; "\x22"
00d1 000d | | .STRTAB 0x000d->0x00d7 ; "DATE_ENTERED => "
00d2 001b | | .STRTAB 0x001b->0x00df ; " => \x22"
00d3 001e | | .STRTAB 0x001e->0x00e2 ; "SEVERITY => "
00d4 0028 | ( | .STRTAB 0x0028->0x00e8 ; "CLASS => "
00d5 002f | / | .STRTAB 0x002f->0x00ec ; "PROBLEM_INFO => "
00d6 003d | = | .STREND 0x003d->0x00f4
00d7 2244 4154 |"DAT| .STRTAB_STRINGS
00f5 0000 0000 | | .XXX[0x3]
00f7 0000 | |
00f8 ; --------------------------------------------------------------------------------------
00f8 ; Debug Table
00f8 ; --------------------------------------------------------------------------------------
00f8 0004 0000 | | .DEBUG4 0x0004,0x0000,0x11e9,0x0000,0x0001,0x0000
00fe 0000 0000 | | .BLANK 0000[0x102]