|
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_0fe0f5
└─⟦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 0060 | ` | .CONST 0x0060 ; 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 001b | | .CONST 0x001b ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0010 | | .CONST 0x0010 ; Number of locals
000b INIT_0008:
000b e001 | | Load 0x0,0x1
000c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
000d 0129 | ) | Execute Any,Make_Visible
000e 029a 0023 | #| Declare_Subprogram INIT_0020,For_Outer_Call,Visible,Unelaborated
0010 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated
0012 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated
0014 00bf | | Action Accept_Activation
0015 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0016 00c7 | | Action Elaborate_Subprogram
0017 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0018 00c7 | | Action Elaborate_Subprogram
0019 1d10 | | Execute_Immediate Reference_Lex_1,0x10
001a 00c7 | | Action Elaborate_Subprogram
001b BODY_0008:
001b 00bc | | Action Signal_Activated
001c 00bb | | Action Signal_Completion
001d 0000 0000 | | .XXX[0x3]
001f 0000 | |
0020 ; --------------------------------------------------------------------------------------
0020 ; SUBPROGRAM
0020 ; --------------------------------------------------------------------------------------
0020 0023 | # | .CONST 0x0023 ; Address of begin
0021 0004 | | .CONST 0x0004 ; Address of exception handler
0022 0001 | | .CONST 0x0001 ; Number of locals
0023 BODY_0020:
0023 INIT_0020:
0023 4802 |H | Short_Literal 0x2
0024 e001 | | Load 0x0,0x1
0025 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0026 e5ff | | Load 0x2,-0x1
0027 e5fe | | Load 0x2,-0x2
0028 e001 | | Load 0x0,0x1
0029 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
002a 4801 |H | Short_Literal 0x1
002b e5fe | | Load 0x2,-0x2
002c e001 | | Load 0x0,0x1
002d 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
002e 4800 |H | Short_Literal 0x0
002f 4800 |H | Short_Literal 0x0
0030 4800 |H | Short_Literal 0x0
0031 e5fe | | Load 0x2,-0x2
0032 e001 | | Load 0x0,0x1
0033 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0034 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0035 0000 0000 | | .XXX[0x3]
0037 0000 | |
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 4802 |H | Short_Literal 0x2
003c e001 | | Load 0x0,0x1
003d 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
003e e5ff | | Load 0x2,-0x1
003f e5fe | | Load 0x2,-0x2
0040 e001 | | Load 0x0,0x1
0041 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0042 4800 |H | Short_Literal 0x0
0043 4800 |H | Short_Literal 0x0
0044 4800 |H | Short_Literal 0x0
0045 e5fe | | Load 0x2,-0x2
0046 e001 | | Load 0x0,0x1
0047 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0048 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0049 0000 0000 | | .BLANK 0000[0x7]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0053 | S | .CONST 0x0053 ; Address of begin
0051 0004 | | .CONST 0x0004 ; Address of exception handler
0052 0001 | | .CONST 0x0001 ; Number of locals
0053 BODY_0050:
0053 INIT_0050:
0053 00da | | Load_Top At_Offset_2
0054 e001 | | Load 0x0,0x1
0055 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0056 6804 |h | Jump_Zero 0x5b
0057 00da | | Load_Top At_Offset_2
0058 e001 | | Load 0x0,0x1
0059 1811 | | Execute Package,Field_Execute,Field_Number 0x11
005a c5ff | | Store 0x2,-0x1
005b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
005c 0000 0000 | | .BLANK 0000[0x4]
0060 ; --------------------------------------------------------------------------------------
0060 ; Debug Table
0060 ; --------------------------------------------------------------------------------------
0060 0004 000d | | .DEBUG4 0x0004,0x000d,0x91c7,0x0000,0x0001,0x0000
0066 656d 5f56 |em_V| .XXX[0x31]
0068 616c 7565 |alue|
006a 5f52 6563 |_Rec|
006c 6f72 6420 |ord |
006e 3a3d 3707 |:=7 |
0070 284c 6967 |(Lig|
0072 6874 5f4f |ht_O|
0074 6e20 3d3e |n =>|
0076 2028 5661 | (Va|
0078 6c75 6520 |lue |
007a 3d3e 2055 |=> U|
007c 5f53 7472 |_Str|
007e 696e 672e |ing.|
0080 5661 6c75 |Valu|
0082 6520 2822 |e ("|
0084 2d2d 2d2d |----|
0086 4f4e 2d2d |ON--|
0088 2d2d 2229 |--")|
008a 2c17 1550 |, P|
008c 6f73 6974 |osit|
008e 696f 6e20 |ion |
0090 3d3e 2028 |=> (|
0092 342c 2031 |4, 1|
0094 3929 292c |9)),|
0096 0080 | |
0097 8080 8080 | | .BLANK 8080[0x12]
00a9 8000 0000 | | .XXX[0x49]
00ab 001d df7b | {|
00ad 8080 001e | |
00af 1f7b 81fa | { |
00b1 001e 1fab | |
00b3 3708 4c69 |7 Li|
00b5 6768 745f |ght_|
00b7 4f66 6620 |Off |
00b9 3d3e 2028 |=> (|
00bb 5661 6c75 |Valu|
00bd 6520 3d3e |e =>|
00bf 2055 5f53 | U_S|
00c1 7472 696e |trin|
00c3 672e 5661 |g.Va|
00c5 6c75 6520 |lue |
00c7 2822 2d2d |("--|
00c9 2d4f 4646 |-OFF|
00cb 2d2d 2d2d |----|
00cd 2229 2c17 |"), |
00cf 1650 6f73 | Pos|
00d1 6974 696f |itio|
00d3 6e20 3d3e |n =>|
00d5 2028 342c | (4,|
00d7 2031 3929 | 19)|
00d9 292c 3c08 |),< |
00db 5365 7276 |Serv|
00dd 6963 655f |ice_|
00df 4361 6c6c |Call|
00e1 203d 3e20 | => |
00e3 2856 616c |(Val|
00e5 7565 203d |ue =|
00e7 3e20 555f |> U_|
00e9 5374 7269 |Stri|
00eb 6e67 2e56 |ng.V|
00ed 616c 7565 |alue|
00ef 2028 223a | (":|
00f1 202d | - |
00f2 2d2d 2d2d |----| .BLANK 2d2d[0x4]
00f6 2d22 292c |-"),| .XXX[0x10a]
00f8 1719 506f | Po|
00fa 7369 7469 |siti|
00fc 6f6e 203d |on =|
00fe 3e20 2837 |> (7|
0100 2c20 3137 |, 17|
0102 2929 2c49 |)),I|
0104 0841 7564 | Aud|
0106 696f 5f43 |io_C|
0108 6861 6e6e |hann|
010a 656c 203d |el =|
010c 3e20 2856 |> (V|
010e 616c 7565 |alue|
0110 203d 3e20 | => |
0112 555f 5374 |U_St|
0114 7269 6e67 |ring|
0116 2e56 616c |.Val|
0118 7565 2028 |ue (|
011a 2231 2229 |"1")|
011c 2c20 506f |, Po|
011e 7369 7469 |siti|
0120 6f6e 203d |on =|
0122 3e20 2831 |> (1|
0124 342c 2032 |4, 2|
0126 3029 292c |0)),|
0128 4308 4761 |C Ga|
012a 6d65 203d |me =|
012c 3e20 2856 |> (V|
012e 616c 7565 |alue|
0130 203d 3e20 | => |
0132 555f 5374 |U_St|
0134 7269 6e67 |ring|
0136 2e56 616c |.Val|
0138 7565 2028 |ue (|
013a 2250 6f6e |"Pon|
013c 6722 292c |g"),|
013e 2050 6f73 | Pos|
0140 6974 696f |itio|
0142 6e20 3d3e |n =>|
0144 2028 3136 | (16|
0146 2c20 3230 |, 20|
0148 2929 2c47 |)),G|
014a 084d 6f76 | Mov|
014c 6965 203d |ie =|
014e 3e20 2856 |> (V|
0150 616c 7565 |alue|
0152 203d 3e20 | => |
0154 555f 5374 |U_St|
0156 7269 6e67 |ring|
0158 2e56 616c |.Val|
015a 7565 2028 |ue (|
015c 2241 6972 |"Air|
015e 706f 7274 |port|
0160 2229 2c20 |"), |
0162 506f 7369 |Posi|
0164 7469 6f6e |tion|
0166 203d 3e20 | => |
0168 2831 382c |(18,|
016a 2032 3029 | 20)|
016c 292c 3f08 |),? |
016e 536d 6f6b |Smok|
0170 696e 675f |ing_|
0172 5065 726d |Perm|
0174 6974 7465 |itte|
0176 6420 3d3e |d =>|
0178 2028 5661 | (Va|
017a 6c75 6520 |lue |
017c 3d3e 2055 |=> U|
017e 5f53 7472 |_Str|
0180 696e 672e |ing.|
0182 5661 6c75 |Valu|
0184 6520 2822 |e ("|
0186 4e4f 2053 |NO S|
0188 4d4f 4b49 |MOKI|
018a 4e47 2229 |NG")|
018c 2c18 1e50 |, P|
018e 6f73 6974 |osit|
0190 696f 6e20 |ion |
0192 3d3e 2028 |=> (|
0194 3134 2c20 |14, |
0196 3633 2929 |63))|
0198 2c46 0853 |,F S|
019a 6561 745f |eat_|
019c 4265 6c74 |Belt|
019e 5f52 6571 |_Req|
01a0 7569 7265 |uire|
01a2 6420 3d3e |d =>|
01a4 2028 5661 | (Va|
01a6 6c75 6520 |lue |
01a8 3d3e 2055 |=> U|
01aa 5f53 7472 |_Str|
01ac 696e 672e |ing.|
01ae 5661 6c75 |Valu|
01b0 6520 2822 |e ("|
01b2 4641 5354 |FAST|
01b4 454e 2053 |EN S|
01b6 4541 5420 |EAT |
01b8 4245 4c54 |BELT|
01ba 2229 2c18 |"), |
01bc 1f50 6f73 | Pos|
01be 6974 696f |itio|
01c0 6e20 3d3e |n =>|
01c2 2028 3136 | (16|
01c4 2c20 3630 |, 60|
01c6 2929 2c37 |)),7|
01c8 0853 6561 | Sea|
01ca 745f 4e75 |t_Nu|
01cc 6d62 6572 |mber|
01ce 203d 3e20 | => |
01d0 2856 616c |(Val|
01d2 7565 203d |ue =|
01d4 3e20 555f |> U_|
01d6 5374 7269 |Stri|
01d8 6e67 2e56 |ng.V|
01da 616c 7565 |alue|
01dc 2028 2253 | ("S|
01de 4541 5420 |EAT |
01e0 3233 4122 |23A"|
01e2 292c 1918 |), |
01e4 506f 7369 |Posi|
01e6 7469 6f6e |tion|
01e8 203d 3e20 | => |
01ea 2831 382c |(18,|
01ec 2036 3429 | 64)|
01ee 2929 3b02 |)); |
01f0 003b 044c | ; L|
01f2 6967 6874 |ight|
01f4 5f46 6965 |_Fie|
01f6 6c64 5f56 |ld_V|
01f8 616c 7565 |alue|
01fa 7320 3a20 |s : |
01fc 6172 7261 |arra|
01fe 7920 2853 |y (S|