|
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: »CUR_LEX_FRU.SEQ«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »CUR_LEX_FRU.SEQ«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »CUR_LEX_FRU.SEQ«
10 ; --------------------------------------------------------------------------------------
10 ; Hash b853fe05851cfac7 (no python module)
10 ; --------------------------------------------------------------------------------------
10 PC_:
10 22 .CODE EXPERIMENT
11 R1_:
11 00 .DATA 0x0 ; P11OF0 CUR_LEX_PASSED
12 R2_:
12 18 .DATA 0x18
13 R3_:
13 18 .DATA 0x18
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 46 .CODE 0x46
19 0f .DATA 0xf ; P19OS1 EXPECTED
1a 00 .DATA 0x0
1b 00 .DATA 0x0
1c 0e .DATA 0xe
1d 00 .DATA 0x0
1e 05 .DATA 0x5
1f 13 .DATA 0x13
20 00 .DATA 0x0
21 00 .DATA 0x0
22 EXPERIMENT:
22 c4 00 59 WFSM.L #0x00,{59}
25 c4 00 58 WFSM.L #0x00,{58}
28 da a0 1a 41 CHN_SND 0x1a,{S.UIR:41}
2c bc 48 FSM {48}
2e bc 4f' FSM {4f} ; P2FOS1 RESULT
30 8e 19 2f MOV 0x19,0x2f
33 18 CALL 0x46
34 bc 3e FSM {3e}
36 da 92 20 30 CHN_RCV {S.TYPVAL:30},0x20
3a 97 0f 2f AND #0x0f,0x2f
3d 4e 19 2f 45 JMP NE,0x19,0x2f,0x45
41 58 19 30 DJNN 0x19,0x30
44 64 SET PT
45 5c END
46 ; --------------------------------------------------------------------------------------
46 ; Subroutine
46 ; --------------------------------------------------------------------------------------
46 da a0 1a 41 CHN_SND 0x1a,{S.UIR:41}
4a da 90 20 40 CHN_SND 0x20,{S.TYPVAL:40}
4e 10 REPEAT #0x10
4f c4 ff 43 WFSM.L #0xff,{43}
52 16 UNTIL
53 bc 66 FSM {66}
55 2c RET
P11OF0 CUR_LEX_PASSED P19OS1 EXPECTED P2FOS1 RESULT 22 00 18 18 00 00 00 00 46 0F 00 00 0E 00 05 13 00 00 C4 00 59 C4 00 58 DA A0 1A 41 BC 48 BC 4F 8E 19 2F 18 BC 3E DA 92 20 30 97 0F 2F 4E 19 2F 45 58 19 30 64 5C DA A0 1A 41 DA 90 20 40 10 C4 FF 43 16 BC 66 2C