|
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: 389 (0x185)
Types: M32, TextFile
Names: »WRITE_NOVRAM.M32«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »WRITE_NOVRAM.M32«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »WRITE_NOVRAM.M32«
10 ; --------------------------------------------------------------------------------------
10 ; Hash a0c20795d5fee29b (no python module)
10 ; --------------------------------------------------------------------------------------
10 PC_:
10 22 .CODE EXPERIMENT
11 R1_:
11 00 .DATA 0x0 ; P11OF0 CHECKSUM_OK
12 R2_:
12 18 .DATA 0x18
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 4d .CODE 0x4d
19 6c .CODE 0x6c
1a 00 .DATA 0x0 ; P1AIS1 ADDR
1b 00 .DATA 0x0
1c 00 .DATA 0x0 ; P1CIS1 DATA
1d 00 .DATA 0x0
1e 00 .DATA 0x0
1f 80 .DATA 0x80
20 00 .DATA 0x0
21 00 .DATA 0x0
22 EXPERIMENT:
22 8e 1a 1b MOV 0x1a,0x1b
25 a6 01 1b LEFT.0 #0x1,0x1b,[0x1]
28 8f 00 1a MOV #0x00,0x1a
2b 8f aa 20 MOV #0xaa,0x20
2e 18 CALL 0x4d
2f 54 1f 2e DJNZ 0x1f,0x2e
32 46 20 4b JMP NZ,0x20,0x4b
35 64 SET PT
36 8e 1d 21 MOV 0x1d,0x21
39 8e 1b 1a MOV 0x1b,0x1a
3c 18 CALL 0x4d
3d 9e 21 1d XOR 0x21,0x1d
40 8e 1b 1a MOV 0x1b,0x1a
43 19 CALL 0x6c
44 9e 1d 1c XOR 0x1d,0x1c
47 8f fe 1a MOV #0xfe,0x1a
4a 19 CALL 0x6c
4b d8 FSM2
4c 5c END
4d ; --------------------------------------------------------------------------------------
4d ; Subroutine
4d ; --------------------------------------------------------------------------------------
4d c0 1a 06 WP2_FSM 0x1a,{06}
50 e1 80 00 P1_RS #0x80,#0x0
53 de 1e RD_P2 0x1e
55 a6 61 1e LEFT.0 #0x4,0x1e,[0x1]
58 bc 07 FSM {07}
5a de 1d RD_P2 0x1d
5c 97 0f 1d AND #0x0f,0x1d
5f 9a 1e 1d OR 0x1e,0x1d
62 e1 80 c0 P1_RS #0x80,#0xc0
65 9e 1d 20 XOR 0x1d,0x20
68 93 02 1a ADD #0x02,0x1a
6b 2c RET
6c ; --------------------------------------------------------------------------------------
6c ; Subroutine
6c ; --------------------------------------------------------------------------------------
6c c0 1a 06 WP2_FSM 0x1a,{06}
6f 02 REPEAT #0x02
70 ac 61 1c SR.1 #0x4,0x1c,[0x1]
73 e2 0f 1c P2_RS #0x0f,0x1c
76 e1 c0 00 P1_RS #0xc0,#0x0
79 e1 c0 c0 P1_RS #0xc0,#0xc0
7c bc 07 FSM {07}
7e 16 UNTIL
7f 93 02 1a ADD #0x02,0x1a
82 2c RET
P1AIS1 ADDR P1CIS1 DATA P11OF0 CHECKSUM_OK 22 00 18 18 00 00 00 00 4D 6C 00 00 00 00 00 80 00 00 8E 1A 1B A6 01 1B 8F 00 1A 8F AA 20 18 54 1F 2E 46 20 4B 64 8E 1D 21 8E 1B 1A 18 9E 21 1D 8E 1B 1A 19 9E 1D 1C 8F FE 1A 19 D8 5C C0 1A 06 E1 80 00 DE 1E A6 61 1E BC 07 DE 1D 97 0F 1D 9A 1E 1D E1 80 C0 9E 1D 20 93 02 1A 2C C0 1A 06 02 AC 61 1C E2 0F 1C E1 C0 00 E1 C0 C0 BC 07 16 93 02 1A 2C