DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦6d3e58653⟧

    Length: 1024 (0x400)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6148f2

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦this⟧ 

Disassembly

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 00a8       |    |		.CONST	0x00a8								; 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 0000       |    |		.CONST	0x0000								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 000b       |    |		.CONST	0x000b								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0001       |    |		.CONST	0x0001								; Number of locals
000b			BODY_0008:
000b			INIT_0008:
000b 0092 0072  |   r|		Action	Push_String_Extended,0x72					; "    root="
000d e010       |    |		Load	0x0,0x10
000e 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
000f 00da       |    |		Load_Top	At_Offset_2
0010 2607       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x7
0011 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
0012 822b       | +  |		Call	0x1,0x2b
0013 0092 0073  |   s|		Action	Push_String_Extended,0x73					; ", subw="
0015 e010       |    |		Load	0x0,0x10
0016 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0017 00da       |    |		Load_Top	At_Offset_2
0018 2607       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x7
0019 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
001a 822b       | +  |		Call	0x1,0x2b
001b 0092 0074  |   t|		Action	Push_String_Extended,0x74					; ", time="
001d e010       |    |		Load	0x0,0x10
001e 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
001f 00da       |    |		Load_Top	At_Offset_2
0020 2607       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x7
0021 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0022 822a       | *  |		Call	0x1,0x2a
0023 0092 0075  |   u|		Action	Push_String_Extended,0x75					; ","
0025 e010       |    |		Load	0x0,0x10
0026 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0027 4801       |H   |		Short_Literal	0x1
0028 e010       |    |		Load	0x0,0x10
0029 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
002a 0092 0076  |   v|		Action	Push_String_Extended,0x76					; "    x/y=("
002c e010       |    |		Load	0x0,0x10
002d 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
002e 00da       |    |		Load_Top	At_Offset_2
002f 2607       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x7
0030 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
0031 822c       | ,  |		Call	0x1,0x2c
0032 0092 0075  |   u|		Action	Push_String_Extended,0x75					; ","
0034 e010       |    |		Load	0x0,0x10
0035 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0036 00da       |    |		Load_Top	At_Offset_2
0037 2607       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x7
0038 3c0a       |<   |		Execute	Record,Field_Read,Field_Number 0xa
0039 822c       | ,  |		Call	0x1,0x2c
003a 0092 0077  |   w|		Action	Push_String_Extended,0x77					; "), root:x/y=("
003c e010       |    |		Load	0x0,0x10
003d 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
003e 00da       |    |		Load_Top	At_Offset_2
003f 2607       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x7
0040 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0041 822c       | ,  |		Call	0x1,0x2c
0042 0092 0075  |   u|		Action	Push_String_Extended,0x75					; ","
0044 e010       |    |		Load	0x0,0x10
0045 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0046 00da       |    |		Load_Top	At_Offset_2
0047 2607       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x7
0048 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
0049 822c       | ,  |		Call	0x1,0x2c
004a 0092 0078  |   x|		Action	Push_String_Extended,0x78					; "),"
004c e010       |    |		Load	0x0,0x10
004d 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
004e 4801       |H   |		Short_Literal	0x1
004f e010       |    |		Load	0x0,0x10
0050 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
0051 0092 0079  |   y|		Action	Push_String_Extended,0x79					; "    state="
0053 e010       |    |		Load	0x0,0x10
0054 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0055 00da       |    |		Load_Top	At_Offset_2
0056 2607       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x7
0057 340b       |4   |		Execute	Record,Field_Reference,Field_Number 0xb
0058 e237       | 7  |		Load	0x1,0x37
0059 e238       | 8  |		Load	0x1,0x38
005a e239       | 9  |		Load	0x1,0x39
005b e23a       | :  |		Load	0x1,0x3a
005c 1d3b       | ;  |		Execute_Immediate	Reference_Lex_1,0x3b
005d 8230       | 0  |		Call	0x1,0x30
005e 0092 007a  |   z|		Action	Push_String_Extended,0x7a					; ", button="
0060 e010       |    |		Load	0x0,0x10
0061 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0062 00da       |    |		Load_Top	At_Offset_2
0063 2607       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x7
0064 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0065 8219       |    |		Call	0x1,0x19
0066 0092 007b  |   {|		Action	Push_String_Extended,0x7b					; ", same_screen="
0068 e010       |    |		Load	0x0,0x10
0069 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
006a 00da       |    |		Load_Top	At_Offset_2
006b 2607       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x7
006c 3c0c       |<   |		Execute	Record,Field_Read,Field_Number 0xc
006d 8217       |    |		Call	0x1,0x17
006e 4801       |H   |		Short_Literal	0x1
006f e010       |    |		Load	0x0,0x10
0070 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
0071 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0072 ; --------------------------------------------------------------------------------------
0072 ; STRING TABLE
0072 ; --------------------------------------------------------------------------------------
0072 0016       |    |		.STRTAB	0x0016->0x007d							; "    root="
0073 001d       |    |		.STRTAB	0x001d->0x0081							; ", subw="
0074 0022       | "  |		.STRTAB	0x0022->0x0085							; ", time="
0075 0027       | '  |		.STRTAB	0x0027->0x0088							; ","
0076 0026       | &  |		.STRTAB	0x0026->0x0089							; "    x/y=("
0077 002d       | -  |		.STRTAB	0x002d->0x008d							; "), root:x/y=("
0078 0038       | 8  |		.STRTAB	0x0038->0x0094							; "),"
0079 0038       | 8  |		.STRTAB	0x0038->0x0095							; "    state="
007a 0040       | @  |		.STRTAB	0x0040->0x009a							; ", button="
007b 0047       | G  |		.STRTAB	0x0047->0x009e							; ", same_screen="
007c 0053       | S  |		.STREND 0x0053->0x00a5
007d 2020 2020  |    |		.STRTAB_STRINGS
00a6 0000 0000  |    |		.XXX[0x2]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; Debug Table
00a8 ; --------------------------------------------------------------------------------------
00a8 0004 0000  |    |		.DEBUG4	0x0004,0x0000,0x6867,0x0000,0x0001,0x0001
00ae 000b 00b2  |    |		.DBG4T	0x000b,0x00b2,0x0001,0x0000
00b2 ; --------------------------------------------------------------------------------------
00b2 ; Debug chain
00b2 ; --------------------------------------------------------------------------------------
00b2 0000 0019  |    |		.DBGLEN	0x0000,0x0019
00b4 000b 000f  |    |		.DBGLNO	0x000b,0x000f,0x0013,0x0017,0x001b,0x001f,0x0023,0x0027,0x002a,0x002e,0x0032,0x0036,0x003a,0x003e,0x0042,0x0046,0x004a,0x004e,0x0051,0x0055,0x005e,0x0062,0x0066,0x006a,0x006e
00cd 0000 0000  |    |		.BLANK	0000[0x133]