|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC3600/RC7000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC3600/RC7000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1024 (0x400)
Names: »YWTIM«
└─⟦45bd0f8dd⟧ Bits:30000464 DOMUS disk image
└─ ⟦this⟧ »/YWTIM«
└─⟦6dbcc9c03⟧ Bits:30000463 DOMUS disk image
└─ ⟦this⟧ »/YWTIM«
└─⟦a2e222af0⟧ Bits:30001626 DOMUS disk image
└─ ⟦this⟧ »/YWTIM«
0x000…020 43 4f 4e 53 54 0d 0a 54 58 54 20 3d 20 27 4a 41 4e 46 45 42 4d 41 52 41 50 52 4d 41 49 4a 55 4e ┆CONST TXT = 'JANFEBMARAPRMAIJUN┆
0x020…040 4a 55 4c 41 55 47 53 45 50 4f 4b 54 4e 4f 56 44 45 5a 27 2c 0d 0a 4e 55 4c 20 3d 20 27 3c 30 3e ┆JULAUGSEPOKTNOVDEZ', NUL = '<0>┆
0x040…060 3c 30 3e 3c 30 3e 27 3b 0d 0a 0d 0a 56 41 52 0d 0a 41 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 42 3a ┆<0><0>'; VAR A: INTEGER; B:┆
0x060…080 20 49 4e 54 45 47 45 52 3b 0d 0a 53 3a 20 53 54 52 49 4e 47 28 31 37 29 3b 0d 0a 5a 3a 20 46 49 ┆ INTEGER; S: STRING(17); Z: FI┆
0x080…0a0 4c 45 20 27 54 49 4d 45 27 2c 31 2c 31 2c 31 38 2c 55 0d 0a 4f 46 20 53 54 52 49 4e 47 28 31 38 ┆LE 'TIME',1,1,18,U OF STRING(18┆
0x0a0…0c0 29 3b 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 44 45 4c 41 59 28 43 4f 4e 53 54 20 44 54 49 4d ┆); PROCEDURE DELAY(CONST DTIM┆
0x0c0…0e0 45 20 3a 20 49 4e 54 45 47 45 52 29 3b 0d 0a 43 4f 44 45 42 4f 44 59 20 50 30 30 32 33 3b 0d 0a ┆E : INTEGER); CODEBODY P0023; ┆
0x0e0…100 0d 0a 50 52 4f 43 45 44 55 52 45 20 52 45 41 44 53 28 56 41 52 20 43 50 55 53 57 20 3a 20 49 4e ┆ PROCEDURE READS(VAR CPUSW : IN┆
0x100…120 54 45 47 45 52 29 3b 0d 0a 43 4f 44 45 42 4f 44 59 20 52 53 57 3b 0d 0a 0d 0a 42 45 47 49 4e 0d ┆TEGER); CODEBODY RSW; BEGIN ┆
0x120…140 0a 20 4f 50 45 4e 28 5a 2c 31 29 3b 0d 0a 20 41 3a 3d 31 38 3b 0d 0a 20 49 4e 53 45 52 54 28 33 ┆ OPEN(Z,1); A:=18; INSERT(3┆
0x140…160 32 2c 53 2c 36 29 3b 0d 0a 20 49 4e 53 45 52 54 28 33 32 2c 53 2c 37 29 3b 0d 0a 20 49 4e 53 45 ┆2,S,6); INSERT(32,S,7); INSE┆
0x160…180 52 54 28 30 2c 53 2c 31 36 29 3b 0d 0a 20 52 45 50 45 41 54 0d 0a 20 20 52 45 41 44 53 28 42 29 ┆RT(0,S,16); REPEAT READS(B)┆
0x180…1a0 3b 0d 0a 20 20 49 46 20 42 20 41 4e 44 20 38 27 31 30 30 30 30 30 20 3c 3e 20 30 20 54 48 45 4e ┆; IF B AND 8'100000 <> 0 THEN┆
0x1a0…1c0 20 0d 0a 20 20 42 45 47 49 4e 0d 0a 20 20 20 47 45 54 52 45 43 28 5a 2c 41 29 3b 0d 0a 20 20 20 ┆ BEGIN GETREC(Z,A); ┆
0x1c0…1e0 4d 4f 56 45 28 4e 55 4c 2c 30 2c 53 2c 30 2c 33 29 3b 0d 0a 20 20 20 4d 4f 56 45 28 5a 5e 2c 33 ┆MOVE(NUL,0,S,0,3); MOVE(Z^,3┆
0x1e0…200 2c 53 2c 30 2c 32 29 3b 0d 0a 20 20 20 44 45 43 42 49 4e 28 53 2c 42 29 3b 0d 0a 20 20 20 4d 4f ┆,S,0,2); DECBIN(S,B); MO┆
0x200…220 56 45 28 54 58 54 2c 28 42 2d 31 29 2a 33 2c 53 2c 33 2c 33 29 3b 0d 0a 20 20 20 4d 4f 56 45 28 ┆VE(TXT,(B-1)*3,S,3,3); MOVE(┆
0x220…240 5a 5e 2c 36 2c 53 2c 30 2c 32 29 3b 0d 0a 20 20 20 4d 4f 56 45 28 5a 5e 2c 31 30 2c 53 2c 38 2c ┆Z^,6,S,0,2); MOVE(Z^,10,S,8,┆
0x240…260 38 29 3b 0d 0a 20 20 20 49 4e 53 45 52 54 28 33 32 2c 53 2c 32 29 3b 0d 0a 20 20 20 4f 50 4d 45 ┆8); INSERT(32,S,2); OPME┆
0x260…280 53 53 28 53 29 3b 0d 0a 20 20 45 4e 44 3b 0d 0a 20 20 44 45 4c 41 59 28 31 30 29 0d 0a 20 55 4e ┆SS(S); END; DELAY(10) UN┆
0x280…2a0 54 49 4c 20 41 20 3c 3e 20 31 38 3b 0d 0a 20 43 4c 4f 53 45 28 5a 2c 31 29 3b 0d 0a 45 4e 44 3b ┆TIL A <> 18; CLOSE(Z,1); END;┆
0x2a0…2c0 0d 0a 2a 11 0c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ * ┆
0x2c0…2e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x9…]