|
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 - metrics - download
Length: 369 (0x171)
Types: SEQ, TextFile
Names: »STORE_NOVRAM.SEQ«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─⟦this⟧ »STORE_NOVRAM.SEQ«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─⟦this⟧ »STORE_NOVRAM.SEQ«
10 ; --------------------------------------------------------------------------------------
10 ; Hash feace46d98ffb205 (no python module)
10 ; --------------------------------------------------------------------------------------
10 PC_:
10 23 .CODE EXPERIMENT
11 R1_:
11 00 .DATA 0x0 ; P11OF0 CHECKSUM_OK
; P11OF1 COUNT_OK
12 R2_:
12 1b .DATA 0x1b
13 R3_:
13 20 .DATA 0x20
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 58 .CODE 0x58
19 6c .CODE 0x6c
1a 78 .CODE 0x78
1b 00 .DATA 0x0
1c 03 .DATA 0x3
1d 00 .DATA 0x0
1e 00 .DATA 0x0
1f 00 .DATA 0x0
20 00 .DATA 0x0
21 7f .DATA 0x7f
22 aa .DATA 0xaa
23 EXPERIMENT:
23 18 CALL 0x58
24 58 21 23 DJNN 0x21,EXPERIMENT
27 46 22 57 JMP NZ,0x22,0x57
2a 64 SET PT
2b 8f fa 1b MOV #0xfa,0x1b
2e 18 CALL 0x58
2f a6 e2 1e LEFT.0 #0x8,0x1e,[0x2]
32 18 CALL 0x58
33 84 1e INC.W 0x1e
35 41 1e 1c 57 JMP LT,0x1e,0x1c,0x57
39 66 SET PX
3a 8f fa 1b MOV #0xfa,0x1b
3d 8e 1e 1d MOV 0x1e,0x1d
40 9e 1f 22 XOR 0x1f,0x22
43 19 CALL 0x6c
44 a6 e2 1e LEFT.0 #0x8,0x1e,[0x2]
47 6e INV PX
48 3e 3d JMP NPX,0x3d
4a 8f fe 1b MOV #0xfe,0x1b
4d 18 CALL 0x58
4e 8f fe 1b MOV #0xfe,0x1b
51 8e 22 1d MOV 0x22,0x1d
54 19 CALL 0x6c
55 bc 7a FSM {7a}
57 5c END
58 ; --------------------------------------------------------------------------------------
58 ; Subroutine
58 ; --------------------------------------------------------------------------------------
58 1a CALL 0x78
59 cc 78 1f RFSM.H {78},0x1f
5c 97 f0 1f AND #0xf0,0x1f
5f 1a CALL 0x78
60 cd 78 RFSM.H {78},@R3
62 a8 61 20 SR.0 #0x4,0x20,[0x1]
65 9a 20 1f OR 0x20,0x1f
68 9e 1f 22 XOR 0x1f,0x22
6b 2c RET
6c ; --------------------------------------------------------------------------------------
6c ; Subroutine
6c ; --------------------------------------------------------------------------------------
6c 1a CALL 0x78
6d c0 1d 79 WP2_FSM 0x1d,{79}
70 1a CALL 0x78
71 a6 61 1d LEFT.0 #0x4,0x1d,[0x1]
74 c0 1d 79 WP2_FSM 0x1d,{79}
77 2c RET
78 ; --------------------------------------------------------------------------------------
78 ; Subroutine
78 ; --------------------------------------------------------------------------------------
78 10 REPEAT #0x10
79 bf 40 WP1_FSM R2,{40}
7b 16 UNTIL
7c 82 1b INC 0x1b
7e 2c RET
P11OF0 CHECKSUM_OK P11OF1 COUNT_OK 23 00 1B 20 00 00 00 00 58 6C 78 00 03 00 00 00 00 7F AA 18 58 21 23 46 22 57 64 8F FA 1B 18 A6 E2 1E 18 84 1E 41 1E 1C 57 66 8F FA 1B 8E 1E 1D 9E 1F 22 19 A6 E2 1E 6E 3E 3D 8F FE 1B 18 8F FE 1B 8E 22 1D 19 BC 7A 5C 1A CC 78 1F 97 F0 1F 1A CD 78 A8 61 20 9A 20 1F 9E 1F 22 2C 1A C0 1D 79 1A A6 61 1D C0 1D 79 2C 10 BF 40 16 82 1B 2C