|
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 0110 | | .CONST 0x0110 ; 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 0011 | | .CONST 0x0011 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0004 | | .CONST 0x0004 ; Number of locals
000b INIT_0008:
000b 029f 003b | ;| Declare_Subprogram INIT_0038,For_Call
000d 029f 005b | [| Declare_Subprogram INIT_0058,For_Call
000f 029f 009b | | Declare_Subprogram INIT_0098,For_Call
0011 BODY_0008:
0011 e5fe | | Load 0x2,-0x2
0012 e022 | " | Load 0x0,0x22
0013 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0014 700b |p | Jump_Nonzero 0x20
0015 e023 | # | Load 0x0,0x23
0016 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0017 e023 | # | Load 0x0,0x23
0018 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0019 e5fb | | Load 0x2,-0x5
001a e022 | " | Load 0x0,0x22
001b 1819 | | Execute Package,Field_Execute,Field_Number 0x19
001c e023 | # | Load 0x0,0x23
001d 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32
001e 1815 | | Execute Package,Field_Execute,Field_Number 0x15
001f 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0020 8403 | | Call 0x2,0x3
0021 00cf | | Action Mark_Auxiliary
0022 e5fe | | Load 0x2,-0x2
0023 e022 | " | Load 0x0,0x22
0024 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0025 e5fe | | Load 0x2,-0x2
0026 e022 | " | Load 0x0,0x22
0027 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0028 0263 | c | Execute Discrete,Above_Bound
0029 7007 |p | Jump_Nonzero 0x31
002a 00d8 | | Load_Top At_Offset_0
002b e5fe | | Load 0x2,-0x2
002c e022 | " | Load 0x0,0x22
002d 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
002e 8404 | | Call 0x2,0x4
002f 00c8 | | Action Pop_Auxiliary_Range
0030 3ff9 |? | Loop_Increasing 0x2a
0031 00ce | | Action Pop_Auxiliary
0032 e023 | # | Load 0x0,0x23
0033 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0034 e023 | # | Load 0x0,0x23
0035 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0036 8210 | | Call 0x1,0x10
0037 4506 |E | Exit_Suprogram New_Top_Offset 0x6
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 00da | | Load_Top At_Offset_2
003c e024 | $ | Load 0x0,0x24
003d 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
003e 0f10 | | Execute_Immediate Equal,0x10
003f 700e |p | Jump_Nonzero 0x4e
0040 0092 00ee | | Action Push_String_Extended,0xee ; "<XRS_PARA ("
0042 00db | | Load_Top At_Offset_3
0043 e024 | $ | Load 0x0,0x24
0044 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0045 e027 | ' | Load 0x0,0x27
0046 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
0047 011c | | Execute Any,Convert_Unchecked
0048 1c01 | | Execute_Immediate Run_Utility,0x1
0049 01cc | | Execute Vector,Catenate
004a 0092 00ef | | Action Push_String_Extended,0xef ; ")>"
004c 01cc | | Execute Vector,Catenate
004d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
004e 482e |H. | Short_Literal 0x2e
004f 4807 |H | Short_Literal 0x7
0050 e7ff | | Load 0x3,-0x1
0051 e022 | " | Load 0x0,0x22
0052 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
0053 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0054 01cb | | Execute Vector,Append
0055 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0056 0000 0000 | | .XXX[0x2]
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 480a |H | Short_Literal 0xa
005c e022 | " | Load 0x0,0x22
005d 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
005e 00ea | | Load_Encached Null_String_Cache
005f e5fe | | Load 0x2,-0x2
0060 e022 | " | Load 0x0,0x22
0061 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
0062 4800 |H | Short_Literal 0x0
0063 e5fc | | Load 0x2,-0x4
0064 e5fd | | Load 0x2,-0x3
0065 820d | | Call 0x1,0xd
0066 480b |H | Short_Literal 0xb
0067 e022 | " | Load 0x0,0x22
0068 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
0069 e023 | # | Load 0x0,0x23
006a 1b16 | | Execute Package,Field_Read,Field_Number 0x16
006b 5824 |X$ | Indirect_Literal Float,0x90,30.0
006c 4802 |H | Short_Literal 0x2
006d 0092 00f0 | | Action Push_String_Extended,0xf0 ; "Name (ID)"
006f 820e | | Call 0x1,0xe
0070 480b |H | Short_Literal 0xb
0071 e022 | " | Load 0x0,0x22
0072 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
0073 e023 | # | Load 0x0,0x23
0074 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0075 5816 |X | Indirect_Literal Float,0x8c,20.0
0076 4802 |H | Short_Literal 0x2
0077 0092 00f1 | | Action Push_String_Extended,0xf1 ; "IRS Paragraph"
0079 820e | | Call 0x1,0xe
007a 480b |H | Short_Literal 0xb
007b e022 | " | Load 0x0,0x22
007c 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
007d e023 | # | Load 0x0,0x23
007e 1b16 | | Execute Package,Field_Read,Field_Number 0x16
007f 5808 |X | Indirect_Literal Float,0x88,50.0
0080 4800 |H | Short_Literal 0x0
0081 0092 00f2 | | Action Push_String_Extended,0xf2 ; "Description"
0083 820e | | Call 0x1,0xe
0084 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0085 0000 0000 | | .XXX[0x3]
0087 0000 | |
0088 4049 0000 |@I | .DBL 50.0
008a 0000 0000 | |
008c 4034 0000 |@4 | .DBL 20.0
008e 0000 0000 | |
0090 403e 0000 |@> | .DBL 30.0
0092 0000 0000 | |
0094 0000 0000 | | .BLANK 0000[0x4]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 00a2 | | .CONST 0x00a2 ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0003 | | .CONST 0x0003 ; Number of locals
009b INIT_0098:
009b 00da | | Load_Top At_Offset_2
009c 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
009d e024 | $ | Load 0x0,0x24
009e 1b15 | | Execute Package,Field_Read,Field_Number 0x15
009f 011e | | Execute Any,Convert
00a0 029f 00db | | Declare_Subprogram INIT_00d8,For_Call
00a2 BODY_0098:
00a2 4801 |H | Short_Literal 0x1
00a3 480d |H | Short_Literal 0xd
00a4 e022 | " | Load 0x0,0x22
00a5 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
00a6 00ea | | Load_Encached Null_String_Cache
00a7 4800 |H | Short_Literal 0x0
00a8 e602 | | Load 0x3,0x2
00a9 e022 | " | Load 0x0,0x22
00aa 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
00ab 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
00ac 4807 |H | Short_Literal 0x7
00ad e602 | | Load 0x3,0x2
00ae e022 | " | Load 0x0,0x22
00af 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
00b0 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00b1 820f | | Call 0x1,0xf
00b2 00d9 | | Load_Top At_Offset_1
00b3 e024 | $ | Load 0x0,0x24
00b4 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
00b5 6802 |h | Jump_Zero 0xb8
00b6 8603 | | Call 0x3,0x3
00b7 7808 |x | Jump 0xc0
00b8 4801 |H | Short_Literal 0x1
00b9 480d |H | Short_Literal 0xd
00ba e022 | " | Load 0x0,0x22
00bb 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
00bc e023 | # | Load 0x0,0x23
00bd 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00be e236 | 6 | Load 0x1,0x36
00bf 820f | | Call 0x1,0xf
00c0 4801 |H | Short_Literal 0x1
00c1 480d |H | Short_Literal 0xd
00c2 e022 | " | Load 0x0,0x22
00c3 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
00c4 00ea | | Load_Encached Null_String_Cache
00c5 4812 |H | Short_Literal 0x12
00c6 e602 | | Load 0x3,0x2
00c7 e022 | " | Load 0x0,0x22
00c8 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
00c9 1820 | | Execute Package,Field_Execute,Field_Number 0x20
00ca 4812 |H | Short_Literal 0x12
00cb e602 | | Load 0x3,0x2
00cc e022 | " | Load 0x0,0x22
00cd 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
00ce 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00cf 820f | | Call 0x1,0xf
00d0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00d1 0000 0000 | | .BLANK 0000[0x7]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00dd | | .CONST 0x00dd ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0002 | | .CONST 0x0002 ; Number of locals
00db INIT_00d8:
00db e602 | | Load 0x3,0x2
00dc 8402 | | Call 0x2,0x2
00dd BODY_00d8:
00dd 4801 |H | Short_Literal 0x1
00de 480d |H | Short_Literal 0xd
00df e022 | " | Load 0x0,0x22
00e0 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
00e1 00ea | | Load_Encached Null_String_Cache
00e2 00db | | Load_Top At_Offset_3
00e3 e7ff | | Load 0x3,-0x1
00e4 4806 |H | Short_Literal 0x6
00e5 e022 | " | Load 0x0,0x22
00e6 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
00e7 00db | | Load_Top At_Offset_3
00e8 e7ff | | Load 0x3,-0x1
00e9 4806 |H | Short_Literal 0x6
00ea e022 | " | Load 0x0,0x22
00eb 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
00ec 820f | | Call 0x1,0xf
00ed 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00ee ; --------------------------------------------------------------------------------------
00ee ; STRING TABLE
00ee ; --------------------------------------------------------------------------------------
00ee 000c | | .STRTAB 0x000c->0x00f4 ; "<XRS_PARA ("
00ef 0015 | | .STRTAB 0x0015->0x00f9 ; ")>"
00f0 0015 | | .STRTAB 0x0015->0x00fa ; "Name (ID)"
00f1 001c | | .STRTAB 0x001c->0x00ff ; "IRS Paragraph"
00f2 0027 | ' | .STRTAB 0x0027->0x0105 ; "Description"
00f3 0030 | 0 | .STREND 0x0030->0x010b
00f4 3c58 5253 |<XRS| .STRTAB_STRINGS
010b 0000 0000 | | .BLANK 0000[0x5]
0110 ; --------------------------------------------------------------------------------------
0110 ; Debug Table
0110 ; --------------------------------------------------------------------------------------
0110 0004 0012 | | .DEBUG4 0x0004,0x0012,0xfc8e,0x0000,0x0001,0x0000
0116 0000 0000 | | .BLANK 0000[0x24]
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]