|
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: 438 (0x1b6)
Types: MEM, TextFile
Names: »WRITE_NOVRAM.MEM«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─⟦this⟧ »WRITE_NOVRAM.MEM«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─⟦this⟧ »WRITE_NOVRAM.MEM«
10 ; --------------------------------------------------------------------------------------
10 ; Hash 547318e0e3123a20 (no python module)
10 ; --------------------------------------------------------------------------------------
10 PC_:
10 23 .CODE EXPERIMENT
11 R1_:
11 00 .DATA 0x0 ; P11OF0 CHECKSUM_OK
12 R2_:
12 1c .DATA 0x1c
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 44 .CODE 0x44
19 5c .CODE 0x5c
1a 68 .CODE 0x68
1b 00 .DATA 0x0 ; P1BIS1 ADDR
1c 00 .DATA 0x0
1d 00 .DATA 0x0
1e 00 .DATA 0x0 ; P1EIS1 DATA
1f 00 .DATA 0x0
20 00 .DATA 0x0
21 7f .DATA 0x7f
22 aa .DATA 0xaa
23 EXPERIMENT:
23 18 CALL 0x44
24 58 21 23 DJNN 0x21,EXPERIMENT
27 46 22 42 JMP NZ,0x22,0x42
2a 64 SET PT
2b 9e 1e 22 XOR 0x1e,0x22
2e 8e 1b 1d MOV 0x1b,0x1d
31 a6 01 1d LEFT.0 #0x1,0x1d,[0x1]
34 18 CALL 0x44
35 86 1d DEC 0x1d
37 19 CALL 0x5c
38 8f fe 1d MOV #0xfe,0x1d
3b 18 CALL 0x44
3c 86 1d DEC 0x1d
3e 8e 22 1e MOV 0x22,0x1e
41 19 CALL 0x5c
42 d8 FSM2
43 5c END
44 ; --------------------------------------------------------------------------------------
44 ; Subroutine
44 ; --------------------------------------------------------------------------------------
44 1a CALL 0x68
45 82 1d INC 0x1d
47 ca 14 1f RFSM.L {14},0x1f
4a a6 61 1f LEFT.0 #0x4,0x1f,[0x1]
4d 1a CALL 0x68
4e 82 1d INC 0x1d
50 cb 14 RFSM.L {14},R3
52 97 0f 20 AND #0x0f,0x20
55 9a 20 1f OR 0x20,0x1f
58 9e 1f 22 XOR 0x1f,0x22
5b 2c RET
5c ; --------------------------------------------------------------------------------------
5c ; Subroutine
5c ; --------------------------------------------------------------------------------------
5c 02 REPEAT #0x02
5d 1a CALL 0x68
5e be 1e 15 WP1_FSM 0x1e,{15}
61 86 1d DEC 0x1d
63 a8 61 1e SR.0 #0x4,0x1e,[0x1]
66 16 UNTIL
67 2c RET
68 ; --------------------------------------------------------------------------------------
68 ; Subroutine
68 ; --------------------------------------------------------------------------------------
68 a6 62 1c LEFT.0 #0x4,0x1c,[0x2]
6b c3 58 WP12_FSM R2,{58}
6d a8 62 1c SR.0 #0x4,0x1c,[0x2]
70 2c RET
P1BIS1 ADDR\r P1EIS1 DATA\r P11OF0 CHECKSUM_OK\r \r 23\r 00\r 1C\r 20\r 00\r 00\r 00\r 00\r \r 44\r 5C\r 68\r 00\r 00\r 00\r 00\r 00\r 00\r 7F\r AA\r 18\r 58\r 21\r 23\r 46\r 22\r 42\r 64\r 9E\r 1E\r 22\r 8E\r 1B\r 1D\r A6\r 01\r 1D\r 18\r 86\r 1D\r 19\r 8F\r FE\r 1D\r 18\r 86\r 1D\r 8E\r 22\r 1E\r 19\r D8\r 5C\r 1A\r 82\r 1D\r CA\r 14\r 1F\r A6\r 61\r 1F\r 1A\r 82\r 1D\r CB\r 14\r 97\r 0F\r 20\r 9A\r 20\r 1F\r 9E\r 1F\r 22\r 2C\r 02\r 1A\r BE\r 1E\r 15\r 86\r 1D\r A8\r 61\r 1E\r 16\r 2C\r A6\r 62\r 1C\r C3\r 58\r A8\r 62\r 1C\r 2C\r