|
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: 438 (0x1b6)
Types: SEQ, TextFile
Names: »PAUSE_CUR_2.SEQ«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »PAUSE_CUR_2.SEQ«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »PAUSE_CUR_2.SEQ«
10 ; --------------------------------------------------------------------------------------
10 ; Hash 44b144caad595ac0 (no python module)
10 ; --------------------------------------------------------------------------------------
10 PC_:
10 35 .CODE EXPERIMENT
11 R1_:
11 00 .DATA 0x0 ; P11OF0 CUR_INSTR2_PASSED
12 R2_:
12 19 .DATA 0x19
13 R3_:
13 3d .DATA 0x3d
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 67 .CODE 0x67
19 ff .DATA 0xff ; P19OS8 EXPECTED.TYP
1a 7f .DATA 0x7f
1b ff .DATA 0xff
1c df .DATA 0xdf
1d ff .DATA 0xff
1e f7 .DATA 0xf7
1f ff .DATA 0xff
20 fd .DATA 0xfd
21 7f .DATA 0x7f ; P21OS8 EXPECTED.VAL
22 ff .DATA 0xff
23 df .DATA 0xdf
24 ff .DATA 0xff
25 f7 .DATA 0xf7
26 ff .DATA 0xff
27 fd .DATA 0xfd
28 00 .DATA 0x0
29 08 .DATA 0x8 ; P29OS1 INDEX
2a 02 .DATA 0x2 ; P2AOS1 BIT_COUNTER
2b 00 .DATA 0x0
2c 00 .DATA 0x0
2d 00 .DATA 0x0
2e 30 .DATA 0x30
2f 00 .DATA 0x0 ; P2FOS8 IBUFF.TYP
30 00 .DATA 0x0
31 03 .DATA 0x3
32 00 .DATA 0x0
33 40 .DATA 0x40
34 00 .DATA 0x0
35 EXPERIMENT:
35 da b0 2f 42 CHN_SND 0x2f,{S.DECODER:42} ; P37OS8 IBUFF.VAL
39 18 CALL 0x67
3a 86 28 DEC 0x28
3c 91 00 52 2d MOV.W #0x0052,0x2d
40 70 19 LD R2,0x19
42 18 CALL 0x67
43 8f 3a 2b MOV #0x3a,0x2b
46 91 01 00 2d MOV.W #0x0100,0x2d
4a 18 CALL 0x67
4b bc 3e FSM {3e}
4d 60 PAUSE
4e da 92 2f 30 CHN_RCV {S.TYPVAL:30},0x2f
52 b1 22 66 VJMP NE,[0x2],R2,R3,0x66
55 74 INC R2
56 74 INC R2
57 54 29 4a DJNZ 0x29,0x4a
5a 8f 08 29 MOV #0x08,0x29
5d 8f 51 2e MOV #0x51,0x2e
60 8a 2b INV 0x2b
62 54 2a 40 DJNZ 0x2a,0x40
65 64 SET PT
66 5c END
67 ; --------------------------------------------------------------------------------------
67 ; Subroutine
67 ; --------------------------------------------------------------------------------------
67 da a0 29 41 CHN_SND 0x29,{S.UIR:41}
6b 10 REPEAT #0x10
6c c4 ff 43 WFSM.L #0xff,{43}
6f 16 UNTIL
70 da 91 40 CHN_SND @R2,{S.TYPVAL:40}
73 bc 66 FSM {66}
75 2c RET
P11OF0 CUR_INSTR2_PASSED P19OS8 EXPECTED.TYP P21OS8 EXPECTED.VAL P2FOS8 IBUFF.TYP P37OS8 IBUFF.VAL P2AOS1 BIT_COUNTER P29OS1 INDEX 35 00 19 3D 00 00 00 00 67 FF 7F FF DF FF F7 FF FD 7F FF DF FF F7 FF FD 00 08 02 00 00 00 30 00 00 03 00 40 00 DA B0 2F 42 18 86 28 91 00 52 2D 70 19 18 8F 3A 2B 91 01 00 2D 18 BC 3E 60 DA 92 2F 30 B1 22 66 74 74 54 29 4A 8F 08 29 8F 51 2E 8A 2B 54 2A 40 64 5C DA A0 29 41 10 C4 FF 43 16 DA 91 40 BC 66 2C