|
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: 263 (0x107)
Types: SEQ, TextFile
Names: »LOOP_READ_NOVRAM.SEQ«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »LOOP_READ_NOVRAM.SEQ«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »LOOP_READ_NOVRAM.SEQ«
10 ; --------------------------------------------------------------------------------------
10 ; Hash b75220fa89a7bc8a (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 2f .CODE 0x2f
19 36 .CODE 0x36
1a 53 .CODE 0x53
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 9e 1d 20 XOR 0x1d,0x20
24 58 1f 21 DJNN 0x1f,EXPERIMENT
27 46 20 2b JMP NZ,0x20,0x2b
2a 64 SET PT
2b 18 CALL 0x2f
2c 19 CALL 0x36
2d d8 FSM2
2e 5c END
2f ; --------------------------------------------------------------------------------------
2f ; Subroutine
2f ; --------------------------------------------------------------------------------------
2f 8e 1b 1c MOV 0x1b,0x1c
32 a6 01 1c LEFT.0 #0x1,0x1c,[0x1]
35 2c RET
36 ; --------------------------------------------------------------------------------------
36 ; Subroutine
36 ; --------------------------------------------------------------------------------------
36 1a CALL 0x53
37 cd 78 RFSM.H {78},@R3
39 8e 1e 1d MOV 0x1e,0x1d
3c 97 f0 1d AND #0xf0,0x1d
3f 82 1c INC 0x1c
41 1a CALL 0x53
42 cd 78 RFSM.H {78},@R3
44 a8 61 1e SR.0 #0x4,0x1e,[0x1]
47 97 0f 1e AND #0x0f,0x1e
4a b0 a1 1e 1d VOR [0x1],0x1e,0x1d
4e 86 1c DEC 0x1c
50 36 36 JMP 0x36
53 ; --------------------------------------------------------------------------------------
53 ; Subroutine
53 ; --------------------------------------------------------------------------------------
53 10 REPEAT #0x10
54 be 1c 40 WP1_FSM 0x1c,{40}
57 16 UNTIL
58 2c RET
P1BIS1 ADDR P1DOS1 DATA P11OF0 CHECKSUM_OK 21 00 1C 1E 00 00 00 00 2F 36 53 00 00 00 00 7F AA 9E 1D 20 58 1F 21 46 20 2B 64 18 19 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 86 1C 36 36 2C 10 BE 1C 40 16 2C