|
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: 260 (0x104)
Types: SEQ, TextFile
Names: »READ_NOVRAM.SEQ«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »READ_NOVRAM.SEQ«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »READ_NOVRAM.SEQ«
10 ; --------------------------------------------------------------------------------------
10 ; Hash 85930e1ee28a11c0 (no python module)
10 ; --------------------------------------------------------------------------------------
10 PC_:
10 21 .CODE EXPERIMENT
11 R1_:
11 00 .DATA 0x0 ; P11OF0 CHECKSUM_OK
12 R2_:
12 1c .DATA 0x1c
13 R3_:
13 1e .DATA 0x1e
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 37 .CODE 0x37
19 30 .CODE 0x30
1a 52 .CODE 0x52
1b 00 .DATA 0x0 ; P1BIS1 ADDR
1c 00 .DATA 0x0
1d 00 .DATA 0x0 ; P1DOS1 DATA
1e 00 .DATA 0x0
1f 7f .DATA 0x7f
20 aa .DATA 0xaa
21 EXPERIMENT:
21 18 CALL 0x37
22 9e 1d 20 XOR 0x1d,0x20
25 58 1f 21 DJNN 0x1f,EXPERIMENT
28 46 20 2c JMP NZ,0x20,0x2c
2b 64 SET PT
2c 19 CALL 0x30
2d 18 CALL 0x37
2e d8 FSM2
2f 5c END
30 ; --------------------------------------------------------------------------------------
30 ; Subroutine
30 ; --------------------------------------------------------------------------------------
30 8e 1b 1c MOV 0x1b,0x1c
33 a6 01 1c LEFT.0 #0x1,0x1c,[0x1]
36 2c RET
37 ; --------------------------------------------------------------------------------------
37 ; Subroutine
37 ; --------------------------------------------------------------------------------------
37 1a CALL 0x52
38 cd 78 RFSM.H {78},@R3
3a 8e 1e 1d MOV 0x1e,0x1d
3d 97 f0 1d AND #0xf0,0x1d
40 82 1c INC 0x1c
42 1a CALL 0x52
43 cd 78 RFSM.H {78},@R3
45 a8 61 1e SR.0 #0x4,0x1e,[0x1]
48 97 0f 1e AND #0x0f,0x1e
4b b0 a1 1e 1d VOR [0x1],0x1e,0x1d
4f 82 1c INC 0x1c
51 2c RET
52 ; --------------------------------------------------------------------------------------
52 ; Subroutine
52 ; --------------------------------------------------------------------------------------
52 10 REPEAT #0x10
53 be 1c 40 WP1_FSM 0x1c,{40}
56 16 UNTIL
57 2c RET
P1BIS1 ADDR P1DOS1 DATA P11OF0 CHECKSUM_OK 21 00 1C 1E 00 00 00 00 37 30 52 00 00 00 00 7F AA 18 9E 1D 20 58 1F 21 46 20 2C 64 19 18 D8 5C 8E 1B 1C A6 01 1C 2C 1A CD 78 8E 1E 1D 97 F0 1D 82 1C 1A CD 78 A8 61 1E 97 0F 1E B0 A1 1E 1D 82 1C 2C 10 BE 1C 40 16 2C