|
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: 353 (0x161)
Types: SEQ, TextFile
Names: »WRITE_NOVRAM.SEQ«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »WRITE_NOVRAM.SEQ«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »WRITE_NOVRAM.SEQ«
10 ; --------------------------------------------------------------------------------------
10 ; Hash 3fe242cd94be4bac (no python module)
10 ; --------------------------------------------------------------------------------------
10 PC_:
10 22 .CODE EXPERIMENT
11 R1_:
11 00 .DATA 0x0 ; P11OF0 CHECKSUM_OK
12 R2_:
12 1c .DATA 0x1c
13 R3_:
13 1f .DATA 0x1f
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 45 .CODE 0x45
19 60 .CODE 0x60
1a 71 .CODE 0x71
1b 00 .DATA 0x0 ; P1BIS1 ADDR
1c 00 .DATA 0x0
1d 00 .DATA 0x0 ; P1DIS1 DATA
1e 00 .DATA 0x0
1f 00 .DATA 0x0
20 7f .DATA 0x7f
21 aa .DATA 0xaa
22 EXPERIMENT:
22 18 CALL 0x45
23 58 20 22 DJNN 0x20,EXPERIMENT
26 46 21 43 JMP NZ,0x21,0x43
29 64 SET PT
2a 9e 1d 21 XOR 0x1d,0x21
2d 8e 1b 1c MOV 0x1b,0x1c
30 a6 01 1c LEFT.0 #0x1,0x1c,[0x1]
33 18 CALL 0x45
34 93 fe 1c ADD #0xfe,0x1c
37 19 CALL 0x60
38 8f fe 1c MOV #0xfe,0x1c
3b 18 CALL 0x45
3c 8f fe 1c MOV #0xfe,0x1c
3f 8e 21 1d MOV 0x21,0x1d
42 19 CALL 0x60
43 d8 FSM2
44 5c END
45 ; --------------------------------------------------------------------------------------
45 ; Subroutine
45 ; --------------------------------------------------------------------------------------
45 1a CALL 0x71
46 cc 78 1e RFSM.H {78},0x1e
49 97 f0 1e AND #0xf0,0x1e
4c 82 1c INC 0x1c
4e 1a CALL 0x71
4f cd 78 RFSM.H {78},@R3
51 a8 61 1f SR.0 #0x4,0x1f,[0x1]
54 97 0f 1f AND #0x0f,0x1f
57 9a 1f 1e OR 0x1f,0x1e
5a 82 1c INC 0x1c
5c 9e 1e 21 XOR 0x1e,0x21
5f 2c RET
60 ; --------------------------------------------------------------------------------------
60 ; Subroutine
60 ; --------------------------------------------------------------------------------------
60 1a CALL 0x71
61 8e 1d 1f MOV 0x1d,0x1f
64 c0 1f 79 WP2_FSM 0x1f,{79}
67 82 1c INC 0x1c
69 1a CALL 0x71
6a a6 61 1d LEFT.0 #0x4,0x1d,[0x1]
6d c0 1d 79 WP2_FSM 0x1d,{79}
70 2c RET
71 ; --------------------------------------------------------------------------------------
71 ; Subroutine
71 ; --------------------------------------------------------------------------------------
71 10 REPEAT #0x10
72 be 1c 40 WP1_FSM 0x1c,{40}
75 16 UNTIL
76 2c RET
P1BIS1 ADDR P1DIS1 DATA P11OF0 CHECKSUM_OK 22 00 1C 1F 00 00 00 00 45 60 71 00 00 00 00 00 7F AA 18 58 20 22 46 21 43 64 9E 1D 21 8E 1B 1C A6 01 1C 18 93 FE 1C 19 8F FE 1C 18 8F FE 1C 8E 21 1D 19 D8 5C 1A CC 78 1E 97 F0 1E 82 1C 1A CD 78 A8 61 1F 97 0F 1F 9A 1F 1E 82 1C 9E 1E 21 2C 1A 8E 1D 1F C0 1F 79 82 1C 1A A6 61 1D C0 1D 79 2C 10 BE 1C 40 16 2C