|
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: 1024 (0x400)
Types: SEQ, TextFile
Names: »NEW_DELTA_1A.SEQ«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─⟦this⟧ »NEW_DELTA_1A.SEQ«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─⟦this⟧ »NEW_DELTA_1A.SEQ«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─⟦this⟧ »NEW_DELTA_1A.SEQ«
10 ; --------------------------------------------------------------------------------------
10 ; Hash dcc60502d0de78a2 (no python module)
10 ; --------------------------------------------------------------------------------------
10 PC_:
10 2a .CODE EXPERIMENT
11 R1_:
11 00 .DATA 0x0 ; P11OF0 TEST_CONTROL_READ_LEX_LEVEL_DELTA1A
12 R2_:
12 19 .DATA 0x19
13 R3_:
13 1a .DATA 0x1a
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 6d .CODE 0x6d
19 0f .DATA 0xf ; P19OS1 LEX
1a 00 .DATA 0x0 ; P1AOS1 BAD_BITS
1b 00 .DATA 0x0
1c 00 .DATA 0x0
1d 00 .DATA 0x0
1e 00 .DATA 0x0
1f 00 .DATA 0x0
20 00 .DATA 0x0
21 00 .DATA 0x0 ; P21OS1 ADD_RESULT
22 00 .DATA 0x0
23 00 .DATA 0x0
24 00 .DATA 0x0
25 00 .DATA 0x0
26 00 .DATA 0x0
27 00 .DATA 0x0
28 00 .DATA 0x0
29 00 .DATA 0x0
2a EXPERIMENT:
2a 8e 19 1a MOV 0x19,0x1a
2d 9b f0 1a OR #0xf0,0x1a
30 a6 01 1a LEFT.0 #0x1,0x1a,[0x1]
33 8f 00 1b MOV #0x00,0x1b
36 da 90 1a 40 CHN_SND 0x1a,{S.TYPVAL:40}
3a 18 CALL 0x6d
3b bc 5a FSM {5a}
3d bc 66 FSM {66}
3f 18 CALL 0x6d
40 bc 5b FSM {5b}
42 bc 62 FSM {62}
44 da 92 1a 30 CHN_RCV {S.TYPVAL:30},0x1a
48 13 REPEAT #0x13
49 a8 04 1e SR.0 #0x1,0x1e,[0x4]
4c 16 UNTIL
4d 8e 19 1c MOV 0x19,0x1c
50 8f 00 1a MOV #0x00,0x1a
53 a8 01 1c SR.0 #0x1,0x1c,[0x1]
56 46 1c 5c JMP NZ,0x1c,0x5c
59 8f 00 1a MOV #0x00,0x1a
5c b1 61 VADD [0x1],R2,R3
5e b0 c1 21 1a VXOR [0x1],0x21,0x1a
62 97 0f 1a AND #0x0f,0x1a
65 46 1a 6c JMP NZ,0x1a,0x6c
68 58 19 2a DJNN 0x19,EXPERIMENT
6b 64 SET PT
6c 5c END
6d ; --------------------------------------------------------------------------------------
6d ; Subroutine
6d ; --------------------------------------------------------------------------------------
6d bc 4e FSM {4e}
6f 10 REPEAT #0x10
70 c4 ff 43 WFSM.L #0xff,{43}
73 16 UNTIL
74 2c RET
P11OF0 TEST_CONTROL_READ_LEX_LEVEL_DELTA1A P19OS1 LEX P21OS1 ADD_RESULT P1AOS1 BAD_BITS 2A 00 19 1A 00 00 00 00 6D 0F 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 8E 19 1A 9B F0 1A A6 01 1A 8F 00 1B DA 90 1A 40 18 BC 5A BC 66 18 BC 5B BC 62 DA 92 1A 30 13 A8 04 1E 16 8E 19 1C 8F 00 1A A8 01 1C 46 1C 5C 8F 00 1A B1 61 B0 C1 21 1A 97 0F 1A 46 1A 6C 58 19 2A 64 5C BC 4E 10 C4 FF 43 16 2C«nul»