|
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: 312 (0x138)
Types: TextFile, VAL
Names: »PAUSE_WCS_PARITY.VAL«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »PAUSE_WCS_PARITY.VAL«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »PAUSE_WCS_PARITY.VAL«
10 ; --------------------------------------------------------------------------------------
10 ; Hash bee3029381f3f87a (no python module)
10 ; --------------------------------------------------------------------------------------
10 PC_:
10 20 .CODE EXPERIMENT
11 R1_:
11 00 .DATA 0x0 ; P11OF0 WCS_PARITY_PASSED
12 R2_:
12 19 .DATA 0x19
13 R3_:
13 19 .DATA 0x19
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 3f .CODE 0x3f
19 00 .DATA 0x0 ; P19OS5 INPUT_PATTERN
1a 00 .DATA 0x0
1b 00 .DATA 0x0
1c 00 .DATA 0x0
1d 00 .DATA 0x0
1e 00 .DATA 0x0
1f 40 .DATA 0x40
20 EXPERIMENT:
20 18 CALL 0x3f
21 af 85 VINV [0x5],R3
23 18 CALL 0x3f
24 8f 00 1f MOV #0x00,0x1f
27 a7 05 LEFT.0 #0x1,R3,[0x5]
29 18 CALL 0x3f
2a 00 27 REPEAT #0x27
2c a7 05 LEFT.0 #0x1,R3,[0x5]
2e 3a 32 JMP PX,0x32
30 82 1d INC 0x1d
32 18 CALL 0x3f
33 16 UNTIL
34 3a 3d JMP PX,0x3d
36 66 SET PX
37 a7 05 LEFT.0 #0x1,R3,[0x5]
39 af 85 VINV [0x5],R3
3b 36 29 JMP 0x29
3d 64 SET PT
3e 5c END
3f ; --------------------------------------------------------------------------------------
3f ; Subroutine
3f ; --------------------------------------------------------------------------------------
3f da 41 3b CHN_SND @R2,{V.UIR:3b}
42 bc 5b FSM {5b}
44 60 PAUSE
45 d4 08 41 1e RCV_P1 #0x08,{41},0x1e
49 97 40 1e AND #0x40,0x1e
4c 4e 1e 1f 3e JMP NE,0x1e,0x1f,0x3e
50 2c RET
P11OF0 WCS_PARITY_PASSED\r P19OS5 INPUT_PATTERN\r \r 20\r 00\r 19\r 19\r 00\r 00\r 00\r 00\r \r 3F\r 00\r 00\r 00\r 00\r 00\r 00\r 40\r 18\r AF\r 85\r 18\r 8F\r 00\r 1F\r A7\r 05\r 18\r 00\r 27\r A7\r 05\r 3A\r 32\r 82\r 1D\r 18\r 16\r 3A\r 3D\r 66\r A7\r 05\r AF\r 85\r 36\r 29\r 64\r 5C\r DA\r 41\r 3B\r BC\r 5B\r 60\r D4\r 08\r 41\r 1E\r 97\r 40\r 1E\r 4E\r 1E\r 1F\r 3E\r 2C\r