|
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: 1024 (0x400)
Types: SEQ, TextFile
Names: »CLEAR_L_L_FRU.SEQ«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »CLEAR_L_L_FRU.SEQ«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »CLEAR_L_L_FRU.SEQ«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »CLEAR_L_L_FRU.SEQ«
10 ; --------------------------------------------------------------------------------------
10 ; Hash 047948fa108e0fbd (no python module)
10 ; --------------------------------------------------------------------------------------
10 PC_:
10 2c .CODE EXPERIMENT
11 R1_:
11 00 .DATA 0x0 ; P11OF0 CLEAR_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 5b .CODE 0x5b
19 61 .CODE 0x61
1a 0f .DATA 0xf ; P1AOS1 LEX_CLEARED
1b 0f .DATA 0xf ; P1BOS1 WRONG_LEX
1c 05 .DATA 0x5
1d a5 .DATA 0xa5
1e 44 .DATA 0x44
1f 3c .DATA 0x3c
20 05 .DATA 0x5
21 00 .DATA 0x0
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 00 .DATA 0x0
2b 0f .DATA 0xf
2c EXPERIMENT:
2c 8e 1a 2b MOV 0x1a,0x2b
2f 18 CALL 0x5b
30 8f 40 21 MOV #0x40,0x21
33 19 CALL 0x61
34 8e 1b 2b MOV 0x1b,0x2b
37 18 CALL 0x5b
38 4c 1b 1a 43 JMP EQ,0x1b,0x1a,0x43
3c 53 00 00 22 5a JMP.W NE,#0x0000,0x22,0x5a
41 36 48 JMP 0x48
43 53 05 a5 22 5a JMP.W NE,#0x05a5,0x22,0x5a
48 58 1b 34 DJNN 0x1b,0x34
4b 8f 0f 1b MOV #0x0f,0x1b
4e 8e 1a 2b MOV 0x1a,0x2b
51 18 CALL 0x5b
52 8f 41 21 MOV #0x41,0x21
55 19 CALL 0x61
56 58 1a 2c DJNN 0x1a,EXPERIMENT
59 64 SET PT
5a 5c END
5b ; --------------------------------------------------------------------------------------
5b ; Subroutine
5b ; --------------------------------------------------------------------------------------
5b 8f 13 21 MOV #0x13,0x21
5e 19 CALL 0x61
5f 19 CALL 0x61
60 2c RET
61 ; --------------------------------------------------------------------------------------
61 ; Subroutine
61 ; --------------------------------------------------------------------------------------
61 da a0 1c 41 CHN_SND 0x1c,{S.UIR:41}
65 da 90 1c 40 CHN_SND 0x1c,{S.TYPVAL:40}
69 10 REPEAT #0x10
6a c4 ff 43 WFSM.L #0xff,{43}
6d 16 UNTIL
6e bc 66 FSM {66}
70 da c2 22 36 CHN_RCV {S.MISC:36},0x22
74 2c RET
P11OF0 CLEAR_LEX_PASSED P1AOS1 LEX_CLEARED P1BOS1 WRONG_LEX 2C 00 18 18 00 00 00 00 5B 61 0F 0F 05 A5 44 3C 05 00 00 00 00 00 00 00 00 00 00 0F 8E 1A 2B 18 8F 40 21 19 8E 1B 2B 18 4C 1B 1A 43 53 00 00 22 5A 36 48 53 05 A5 22 5A 58 1B 34 8F 0F 1B 8E 1A 2B 18 8F 41 21 19 58 1A 2C 64 5C 8F 13 21 19 19 2C DA A0 1C 41 DA 90 1C 40 10 C4 FF 43 16 BC 66 DA C2 22 36 2C«nul»