|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 DFS Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 DFS Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1024 (0x400)
Types: MEM, TextFile
Names: »CREATE_RANDOM_ADDRESSES.MEM«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »CREATE_RANDOM_ADDRESSES.MEM«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »CREATE_RANDOM_ADDRESSES.MEM«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »CREATE_RANDOM_ADDRESSES.MEM«
10 ; --------------------------------------------------------------------------------------
10 ; Hash 3f793e1039fe1228 (no python module)
10 ; --------------------------------------------------------------------------------------
10 PC_:
10 27 .CODE EXPERIMENT
11 R1_:
11 00 .DATA 0x0
12 R2_:
12 19 .DATA 0x19
13 R3_:
13 18 .DATA 0x18
14 R4_:
14 00 .DATA 0x0
15 R5_:
15 00 .DATA 0x0
16 R6_:
16 00 .DATA 0x0
17 R7_:
17 00 .DATA 0x0
18 50 .CODE 0x50
19 00 .DATA 0x0
1a 00 .DATA 0x0
1b 00 .DATA 0x0
1c 00 .DATA 0x0
1d 00 .DATA 0x0
1e 00 .DATA 0x0
1f 00 .DATA 0x0
20 00 .DATA 0x0
21 00 .DATA 0x0
22 00 .DATA 0x0 ; P22IS1 SET_NUM
23 00 .DATA 0x0 ; P23IS2 ROW_SEED
24 00 .DATA 0x0
25 00 .DATA 0x0 ; P25IS2 COLUMN_SEED
26 00 .DATA 0x0
27 EXPERIMENT:
27 8e' 22' 1d MOV 0x22,0x1d
2a 97 0c 1d AND #0x0c,0x1d
2d 04 REPEAT #0x04
2e a6 01 1d LEFT.0 #0x1,0x1d,[0x1]
31 16 UNTIL
32 d2 89 4b FSM_8X #0x89,{4b}
35 90 23 27 MOV.W 0x23,EXPERIMENT
38 18 CALL 0x50
39 90 25 27 MOV.W 0x25,EXPERIMENT
3c 93 20 1d ADD #0x20,0x1d
3f 97 03 22 AND #0x03,0x22
42 44 22 4d JMP Z,0x22,0x4d
45 64 SET PT
46 97 01 22 AND #0x01,0x22
49 44 22 4d JMP Z,0x22,0x4d
4c 66 SET PX
4d 18 CALL 0x50
4e d8 FSM2
4f 5c END
50 ; --------------------------------------------------------------------------------------
50 ; Subroutine
50 ; --------------------------------------------------------------------------------------
50 da 01 40 CHN_SND @R2,{M.MAR:40}
53 91 01 ff 65 MOV.W #0x01ff,0x65
57 3c 5c JMP NPT,0x5c
59 97 bf 28 AND #0xbf,0x28
5c 3e 61 JMP NPX,0x61
5e 9b 40 28 OR #0x40,0x28
61 d0 28 43 FSM_8X 0x28,{43}
64 c8 00' 00 58 WFSM.W #0x0000,{58}
68 bc 72 FSM {72}
6a b2 27 40 01 xB2 EXPERIMENT,#0x40,#0x1
6e 5a 65 57 DJNN.W 0x65,0x57
71 2c RET
P22IS1 SET_NUM\r P23IS2 ROW_SEED\r P25IS2 COLUMN_SEED\r \r 27\r 00\r 19\r 18\r 00\r 00\r 00\r 00\r \r 50\r 00\r 00\r 00\r 00\r 00\r 00\r 00\r 00\r 00\r 00\r 00\r 00\r 00\r 00\r 8E\r 22\r 1D\r 97\r 0C\r 1D\r 04\r A6\r 01\r 1D\r 16\r D2\r 89\r 4B\r 90\r 23\r 27\r 18\r 90\r 25\r 27\r 93\r 20\r 1D\r 97\r 03\r 22\r 44\r 22\r 4D\r 64\r 97\r 01\r 22\r 44\r 22\r 4D\r 66\r 18\r D8\r 5C\r DA\r 01\r 40\r 91\r 01\r FF\r 65\r 3C\r 5C\r 97\r BF\r 28\r 3E\r 61\r 9B\r 40\r 28\r D0\r 28\r 43\r C8\r 00\r 00\r 58\r BC\r 72\r B2\r 27\r 40\r 01\r 5A\r 65\r 57\r 2C\r «nul»