|
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_06e8fd
└─⟦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 00a0 | | .CONST 0x00a0 ; 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 0013 | | .CONST 0x0013 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 000f | | .CONST 0x000f ; Number of locals
000b INIT_0008:
000b 00e5 | | Load_Encached Long_Integer_Cache
000c 0129 | ) | Execute Any,Make_Visible
000d 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated
000f 00bf | | Action Accept_Activation
0010 00e5 | | Load_Encached Long_Integer_Cache
0011 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0012 00c7 | | Action Elaborate_Subprogram
0013 BODY_0008:
0013 00bc | | Action Signal_Activated
0014 00bb | | Action Signal_Completion
0015 0000 0000 | | .XXX[0x3]
0017 0000 | |
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 003b | ; | .CONST 0x003b ; Address of begin
0019 0050 | P | .CONST 0x0050 ; Address of exception handler
001a 000b | | .CONST 0x000b ; Number of locals
001b INIT_0018:
001b 029f 0063 | c| Declare_Subprogram INIT_0060,For_Call
001d e5fe | | Load 0x2,-0x2
001e 0007 | | Action Break_Optional
001f 029f 0073 | s| Declare_Subprogram INIT_0070,For_Call
0021 4801 |H | Short_Literal 0x1
0022 4900 |I | Short_Literal 0x100
0023 00e9 | | Load_Encached String_Cache
0024 0334 | 4 | Declare_Variable Array,With_Constraint
0025 00e2 | | Load_Encached Integer_Cache
0026 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0027 029f 0083 | | Declare_Subprogram INIT_0080,For_Call
0029 4800 |H | Short_Literal 0x0
002a 6031 |`1 | Indirect_Literal Discrete,0x5c,{0x00000000, 0x0fffffff}
002b 00e5 | | Load_Encached Long_Integer_Cache
002c 03f8 | | Declare_Type Discrete,Constrained
002d 00d8 | | Load_Top At_Offset_0
002e 0007 | | Action Break_Optional
002f e5ff | | Load 0x2,-0x1
0030 e001 | | Load 0x0,0x1
0031 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0032 e5ff | | Load 0x2,-0x1
0033 e001 | | Load 0x0,0x1
0034 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0035 09fc | | Execute_Immediate Binary_Scale,-0x4
0036 00d8 | | Load_Top At_Offset_0
0037 e409 | | Load 0x2,0x9
0038 0260 | ` | Execute Discrete,In_Type
0039 7001 |p | Jump_Nonzero BODY_0018
003a 08e0 | | Execute_Immediate Raise,0xe0
003b BODY_0018:
003b 4801 |H | Short_Literal 0x1
003c 8404 | | Call 0x2,0x4
003d 6805 |h | Jump_Zero 0x43
003e 485e |H^ | Short_Literal 0x5e
003f e40a | | Load 0x2,0xa
0040 8402 | | Call 0x2,0x2
0041 01ca | | Execute Vector,Prepend
0042 8407 | | Call 0x2,0x7
0043 4810 |H | Short_Literal 0x10
0044 8404 | | Call 0x2,0x4
0045 6805 |h | Jump_Zero 0x4b
0046 485e |H^ | Short_Literal 0x5e
0047 e40b | | Load 0x2,0xb
0048 8402 | | Call 0x2,0x2
0049 01ca | | Execute Vector,Prepend
004a 8407 | | Call 0x2,0x7
004b 4802 |H | Short_Literal 0x2
004c e406 | | Load 0x2,0x6
004d e405 | | Load 0x2,0x5
004e 01cf | | Execute Vector,Slice_Read
004f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0050 TRAP_0018:
0050 0007 | | Action Break_Optional
0051 4820 |H | Short_Literal 0x20
0052 e40a | | Load 0x2,0xa
0053 8402 | | Call 0x2,0x2
0054 01cb | | Execute Vector,Append
0055 e40b | | Load 0x2,0xb
0056 8402 | | Call 0x2,0x2
0057 01cc | | Execute Vector,Catenate
0058 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0059 0000 0000 | | .XXX[0x3]
005b 0000 | |
005c 0000 0000 | | .LITERAL {0x00000000, 0x0fffffff}
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 0092 009c | | Action Push_String_Extended,0x9c ; "#"
0065 4820 |H | Short_Literal 0x20
0066 4800 |H | Short_Literal 0x0
0067 4810 |H | Short_Literal 0x10
0068 e7ff | | Load 0x3,-0x1
0069 e002 | | Load 0x0,0x2
006a 1817 | | Execute Package,Field_Execute,Field_Number 0x17
006b 01cc | | Execute Vector,Catenate
006c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
006d 0000 0000 | | .XXX[0x3]
006f 0000 | |
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0073 | s | .CONST 0x0073 ; Address of begin
0071 0004 | | .CONST 0x0004 ; Address of exception handler
0072 0001 | | .CONST 0x0001 ; Number of locals
0073 BODY_0070:
0073 INIT_0070:
0073 e7ff | | Load 0x3,-0x1
0074 e403 | | Load 0x2,0x3
0075 e003 | | Load 0x0,0x3
0076 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0077 0e00 | | Execute_Immediate Not_Equal,0x0
0078 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0079 0000 0000 | | .BLANK 0000[0x7]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0086 | | .CONST 0x0086 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0002 | | .CONST 0x0002 ; Number of locals
0083 INIT_0080:
0083 e7ff | | Load 0x3,-0x1
0084 01db | | Execute Vector,Length
0085 0007 | | Action Break_Optional
0086 BODY_0080:
0086 e406 | | Load 0x2,0x6
0087 0a01 | | Execute_Immediate Plus,0x1
0088 c406 | | Store 0x2,0x6
0089 4820 |H | Short_Literal 0x20
008a e406 | | Load 0x2,0x6
008b e405 | | Load 0x2,0x5
008c 01d6 | | Execute Vector,Field_Write
008d e7ff | | Load 0x3,-0x1
008e e406 | | Load 0x2,0x6
008f 0a01 | | Execute_Immediate Plus,0x1
0090 0248 | H | Execute Discrete,Check_In_Integer
0091 e406 | | Load 0x2,0x6
0092 e602 | | Load 0x3,0x2
0093 0273 | s | Execute Discrete,Plus
0094 0248 | H | Execute Discrete,Check_In_Integer
0095 e405 | | Load 0x2,0x5
0096 01ce | | Execute Vector,Slice_Write
0097 e406 | | Load 0x2,0x6
0098 e602 | | Load 0x3,0x2
0099 0273 | s | Execute Discrete,Plus
009a c406 | | Store 0x2,0x6
009b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
009c ; --------------------------------------------------------------------------------------
009c ; STRING TABLE
009c ; --------------------------------------------------------------------------------------
009c 0004 | | .STRTAB 0x0004->0x009e ; "#"
009d 0003 | | .STREND 0x0003->0x009e
009e 2300 |# | .STRTAB_STRINGS
009f 0000 | | .XXX[0x1]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; Debug Table
00a0 ; --------------------------------------------------------------------------------------
00a0 0004 000b | | .DEBUG4 0x0004,0x000b,0xbb42,0x0000,0x0001,0x0000
00a6 2d2d 2d2d |----| .BLANK 2d2d[0x9]
00af 4465 7461 |Deta| .XXX[0xa6]
00b1 6368 696e |chin|
00b3 6720 6375 |g cu|
00b5 7272 656e |rren|
00b7 7420 6a6f |t jo|
00b9 622e 4572 |b.Er|
00bb 726f 7220 |ror |
00bd 7374 6172 |star|
00bf 7469 6e67 |ting|
00c1 2074 6f20 | to |
00c3 6361 7463 |catc|
00c5 6820 616c |h al|
00c7 6c20 6578 |l ex|
00c9 6365 7074 |cept|
00cb 696f 6e73 |ions|
00cd 3a20 4572 |: Er|
00cf 726f 7220 |ror |
00d1 7265 2d61 |re-a|
00d3 6374 6976 |ctiv|
00d5 6174 696e |atin|
00d7 6720 6578 |g ex|
00d9 6365 7074 |cept|
00db 696f 6e2d |ion-|
00dd 6861 6e64 |hand|
00df 6c69 6e67 |ling|
00e1 2073 7461 | sta|
00e3 7465 3a20 |te: |
00e5 0a45 7272 | Err|
00e7 6f72 2064 |or d|
00e9 6561 6374 |eact|
00eb 6976 6174 |ivat|
00ed 696e 6720 |ing |
00ef 3a20 4272 |: Br|
00f1 6561 6b70 |eakp|
00f3 6f69 6e74 |oint|
00f5 7353 7465 |sSte|
00f7 7070 696e |ppin|
00f9 6720 696e |g in|
00fb 666f 726d |form|
00fd 6174 696f |atio|
00ff 6e45 7863 |nExc|
0101 6570 7469 |epti|
0103 6f6e 2063 |on c|
0105 6174 6368 |atch|
0107 6573 486f |esHo|
0109 6c64 7352 |ldsR|
010b 3130 3030 |1000|
010d 2041 6461 | Ada|
010f 2044 6562 | Deb|
0111 7567 6765 |ugge|
0113 7220 2856 |r (V|
0115 6572 7369 |ersi|
0117 6f6e 2020 |on |
0119 2d20 2921 |- )!|
011b 4d61 6368 |Mach|
011d 696e 652e |ine.|
011f 4465 7669 |Devi|
0121 6365 732e |ces.|
0123 4e69 6c3c |Nil<|
0125 5052 4f46 |PROF|
0127 494c 453e |ILE>|
0129 2221 636f |"!co|
012b 6d6d 616e |mman|
012d 6473 222e |ds".|
012f 6c6f 672e |log.|
0131 706f 705f |pop_|
0133 6f75 7470 |outp|
0135 7574 3b20 |ut; |
0137 4445 4255 |DEBU|
0139 4747 4552 |GGER|
013b 5f49 4e49 |_INI|
013d 5449 414c |TIAL|
013f 495a 4154 |IZAT|
0141 494f 4e3b |ION;|
0143 2064 656c | del|
0145 6179 2064 |ay d|
0147 7572 6174 |urat|
0149 696f 6e27 |ion'|
014b 6c61 7374 |last|
014d 0000 0000 | |
014f 0000 0004 | |
0151 0009 1653 | S|
0153 0000 0001 | |
0155 0000 0000 | | .BLANK 0000[0xab]