|
|
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: 441 (0x1b9)
Types: SEQ, TextFile
Names: »PAUSE_CUR_1.SEQ«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─⟦this⟧ »PAUSE_CUR_1.SEQ«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─⟦this⟧ »PAUSE_CUR_1.SEQ«
10 ; --------------------------------------------------------------------------------------
10 ; Hash cfc7c0552c65bf9a (no python module)
10 ; --------------------------------------------------------------------------------------
10 PC_:
10 35 .CODE EXPERIMENT
11 R1_:
11 00 .DATA 0x0 ; P11OF0 CUR_INSTR1_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 68 .CODE 0x68
19 ff .DATA 0xff ; P19OS8 EXPECTED.TYP
1a bf .DATA 0xbf
1b ff .DATA 0xff
1c ef .DATA 0xef
1d ff .DATA 0xff
1e fb .DATA 0xfb
1f ff .DATA 0xff
20 fe .DATA 0xfe
21 bf .DATA 0xbf ; P21OS8 EXPECTED.VAL
22 ff .DATA 0xff
23 ef .DATA 0xef
24 ff .DATA 0xff
25 fb .DATA 0xfb
26 ff .DATA 0xff
27 fe .DATA 0xfe
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 0x68
3a 86 28 DEC 0x28
3c 91 00 52 2d MOV.W #0x0052,0x2d
40 70 19 LD R2,0x19
42 18 CALL 0x68
43 8f 3a 2b MOV #0x3a,0x2b
46 91 01 00 2d MOV.W #0x0100,0x2d
4a 18 CALL 0x68
4b bc 3e FSM {3e}
4d 60 PAUSE
4e da 92 2f 30 CHN_RCV {S.TYPVAL:30},0x2f
52 5c END
68 ; --------------------------------------------------------------------------------------
68 ; Subroutine
68 ; --------------------------------------------------------------------------------------
68 da a0 29 41 CHN_SND 0x29,{S.UIR:41}
6c 10 REPEAT #0x10
6d c4 ff 43 WFSM.L #0xff,{43}
70 16 UNTIL
71 da 91 40 CHN_SND @R2,{S.TYPVAL:40}
74 bc 66 FSM {66}
76 2c RET
P11OF0 CUR_INSTR1_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 68 FF BF FF EF FF FB FF FE BF FF EF FF FB FF FE 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 5C B1 22 67 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