|
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: 3518 (0xdbe)
└─⟦45bd0f8dd⟧ Bits:30000464 DOMUS disk image
└─⟦9c1ff1b72⟧
└─⟦6dbcc9c03⟧ Bits:30000463 DOMUS disk image
└─⟦9c1ff1b72⟧
└─⟦a2e222af0⟧ Bits:30001626 DOMUS disk image
└─⟦9c1ff1b72⟧
└─⟦this⟧
0x000…020 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 ┆ ┆
[…0xc…]
0x1a0…1c0 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 20 4f ┆ O┆
0x1c0…1e0 50 57 41 49 54 28 4c 45 4e 47 54 48 29 3b 0d 0a 20 20 20 20 49 46 20 41 4e 53 57 3d 59 45 53 20 ┆PWAIT(LENGTH); IF ANSW=YES ┆
0x1e0…200 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 4d 4f 56 45 ┆ THEN BEGIN MOVE┆
0x200…220 28 41 4e 53 57 2c 30 2c 4f 55 54 4c 49 4e 45 2c 33 31 2c 33 29 3b 0d 0a 09 7f 49 46 20 4f 50 53 ┆(ANSW,0,OUTLINE,31,3); IF OPS┆
0x220…240 54 52 20 3d 20 59 45 53 20 54 48 45 4e 0d 0a 09 7f 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 ┆TR = YES THEN BEGIN ┆
0x240…260 4d 4f 56 45 28 4f 55 54 4c 49 4e 45 2c 30 2c 4c 50 5e 2c 30 2c 36 30 29 3b 0d 0a 20 20 20 20 20 ┆MOVE(OUTLINE,0,LP^,0,60); ┆
0x260…280 20 20 20 4e 45 57 4c 49 4e 45 3b 0d 0a 09 7f 45 4e 44 3b 0d 0a 20 20 20 20 20 20 20 20 47 4f 54 ┆ NEWLINE; END; GOT┆
0x280…2a0 4f 20 31 30 30 30 3b 0d 0a 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 49 46 20 41 4e 53 57 ┆O 1000; END; IF ANSW┆
0x2a0…2c0 3c 3e 4e 4f 20 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 47 4f 54 4f 20 32 30 30 3b 0d 0a 20 20 20 ┆<>NO THEN GOTO 200; ┆
0x2c0…2e0 20 4d 4f 56 45 28 41 4e 53 57 2c 30 2c 4f 55 54 4c 49 4e 45 2c 33 31 2c 32 29 3b 0d 0a 20 20 20 ┆ MOVE(ANSW,0,OUTLINE,31,2); ┆
0x2e0…300 20 49 46 20 4f 50 53 54 52 20 3d 20 59 45 53 20 54 48 45 4e 0d 0a 20 20 20 20 42 45 47 49 4e 0d ┆ IF OPSTR = YES THEN BEGIN ┆
0x300…320 0a 20 20 20 20 4d 4f 56 45 28 4f 55 54 4c 49 4e 45 2c 30 2c 4c 50 5e 2c 30 2c 36 30 29 3b 0d 0a ┆ MOVE(OUTLINE,0,LP^,0,60); ┆
0x320…340 20 20 20 20 4e 45 57 4c 49 4e 45 3b 0d 0a 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 53 50 41 43 ┆ NEWLINE; END; SPAC┆
0x340…360 45 4c 49 4e 45 3b 0d 0a 20 20 20 20 4f 55 54 4c 49 4e 45 3a 3d 20 54 58 54 31 37 3b 0d 0a 20 20 ┆ELINE; OUTLINE:= TXT17; ┆
0x360…380 20 20 50 52 49 4e 54 4c 49 4e 45 3b 0d 0a 20 20 20 20 47 4f 54 4f 20 32 30 30 30 3b 0d 0a 20 20 ┆ PRINTLINE; GOTO 2000; ┆
0x380…3a0 45 4e 44 3b 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 54 52 59 31 30 3b 0d 0a 20 20 42 45 47 49 ┆END; PROCEDURE TRY10; BEGI┆
0x3a0…3c0 4e 0d 0a 33 30 30 3a 0d 0a 20 20 20 20 53 50 41 43 45 4c 49 4e 45 3b 0d 0a 20 20 20 20 4f 55 54 ┆N 300: SPACELINE; OUT┆
0x3c0…3e0 4c 49 4e 45 3a 3d 20 54 58 54 31 32 3b 0d 0a 20 20 20 20 42 49 4e 44 45 43 28 54 4e 4f 2c 48 45 ┆LINE:= TXT12; BINDEC(TNO,HE┆
0x3e0…400 4c 50 36 29 3b 0d 0a 20 20 20 20 4d 4f 56 45 28 48 45 4c 50 36 2c 33 2c 4f 55 54 4c 49 4e 45 2c ┆LP6); MOVE(HELP6,3,OUTLINE,┆
0x400…420 32 30 2c 32 29 3b 0d 0a 20 20 20 20 4c 50 53 57 3a 3d 20 31 3b 0d 0a 20 20 20 20 54 54 59 4c 49 ┆20,2); LPSW:= 1; TTYLI┆
0x420…440 4e 45 3b 0d 0a 20 20 20 20 53 50 41 43 45 4c 49 4e 45 3b 0d 0a 20 20 20 20 4f 55 54 4c 49 4e 45 ┆NE; SPACELINE; OUTLINE┆
0x440…460 3a 3d 20 54 58 54 31 33 3b 0d 0a 20 20 20 20 4c 50 53 57 3a 3d 20 31 3b 0d 0a 20 20 20 20 54 54 ┆:= TXT13; LPSW:= 1; TT┆
0x460…480 59 4c 49 4e 45 3b 0d 0a 20 20 20 20 53 50 41 43 45 4c 49 4e 45 3b 0d 0a 20 20 20 20 4f 50 49 4e ┆YLINE; SPACELINE; OPIN┆
0x480…4a0 28 41 4e 53 57 29 3b 0d 0a 20 20 20 20 4f 50 57 41 49 54 28 4c 45 4e 47 54 48 29 3b 0d 0a 20 20 ┆(ANSW); OPWAIT(LENGTH); ┆
0x4a0…4c0 20 20 49 46 20 41 4e 53 57 3d 59 45 53 20 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 42 45 47 49 4e ┆ IF ANSW=YES THEN BEGIN┆
0x4c0…4e0 0d 0a 20 20 20 20 20 20 20 20 49 46 20 54 4e 4f 3d 39 39 20 20 54 48 45 4e 0d 0a 20 20 20 20 20 ┆ IF TNO=99 THEN ┆
0x4e0…500 20 20 20 20 20 47 4f 54 4f 20 33 31 30 3b 0d 0a 20 20 20 20 20 20 20 20 43 4e 4f 3a 3d 20 43 4e ┆ GOTO 310; CNO:= CN┆
0x500…520 4f 2b 31 30 3b 0d 0a 20 20 20 20 20 20 20 20 47 4f 54 4f 20 31 33 30 30 3b 0d 0a 20 20 20 20 20 ┆O+10; GOTO 1300; ┆
0x520…540 20 45 4e 44 3b 0d 0a 20 20 20 20 49 46 20 41 4e 53 57 3c 3e 4e 4f 20 20 54 48 45 4e 0d 0a 20 20 ┆ END; IF ANSW<>NO THEN ┆
0x540…560 20 20 20 20 47 4f 54 4f 20 33 30 30 3b 0d 0a 33 31 30 3a 0d 0a 20 20 20 20 4f 55 54 4c 49 4e 45 ┆ GOTO 300; 310: OUTLINE┆
0x560…580 3a 3d 20 54 58 54 31 36 3b 0d 0a 20 20 20 20 4d 4f 56 45 28 43 4f 44 45 2c 30 2c 4f 55 54 4c 49 ┆:= TXT16; MOVE(CODE,0,OUTLI┆
0x580…5a0 4e 45 2c 32 39 2c 35 29 3b 0d 0a 20 20 20 20 4d 4f 56 45 28 5a 45 52 4f 2c 30 2c 4f 55 54 4c 49 ┆NE,29,5); MOVE(ZERO,0,OUTLI┆
0x5a0…5c0 4e 45 2c 33 34 2c 34 29 3b 0d 0a 20 20 20 20 50 52 49 4e 54 4c 49 4e 45 3b 0d 0a 20 20 20 20 41 ┆NE,34,4); PRINTLINE; A┆
0x5c0…5e0 47 41 49 4e 3b 0d 0a 20 20 45 4e 44 3b 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 46 49 4e 49 53 ┆GAIN; END; PROCEDURE FINIS┆
0x5e0…600 48 3b 0d 0a 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 4f 55 54 4c 49 4e 45 3a 3d 20 54 58 54 31 34 ┆H; BEGIN OUTLINE:= TXT14┆
0x600…620 3b 0d 0a 20 20 20 20 50 52 49 4e 54 4c 49 4e 45 3b 0d 0a 20 20 20 20 41 47 41 49 4e 3b 0d 0a 20 ┆; PRINTLINE; AGAIN; ┆
0x620…640 20 45 4e 44 3b 0d 0a 0d 0a 0c 0d 0a 21 20 2a 2a 20 20 4d 41 49 4e 2d 50 52 4f 47 52 41 4d 20 20 ┆ END; ! ** MAIN-PROGRAM ┆
0x640…660 2a 2a 20 21 0d 0a 0d 0a 20 20 42 45 47 49 4e 0d 0a 31 30 30 30 3a 0d 0a 20 20 20 20 4f 50 4d 45 ┆** ! BEGIN 1000: OPME┆
0x660…680 53 53 28 54 58 54 31 38 29 3b 0d 0a 20 20 20 20 4f 50 49 4e 28 4f 50 53 54 52 29 3b 0d 0a 20 20 ┆SS(TXT18); OPIN(OPSTR); ┆
0x680…6a0 20 20 4f 50 57 41 49 54 28 4c 45 4e 47 54 48 29 3b 0d 0a 20 20 20 20 49 4e 49 54 3b 0d 0a 20 20 ┆ OPWAIT(LENGTH); INIT; ┆
0x6a0…6c0 20 20 48 45 41 44 3b 0d 0a 20 20 20 20 53 45 54 43 4f 44 45 3b 0d 0a 20 20 20 20 4f 55 54 4c 49 ┆ HEAD; SETCODE; OUTLI┆
0x6c0…6e0 4e 45 3a 3d 20 54 58 54 31 31 3b 0d 0a 20 20 20 20 50 52 49 4e 54 4c 49 4e 45 3b 0d 0a 20 20 20 ┆NE:= TXT11; PRINTLINE; ┆
0x6e0…700 20 4f 50 49 4e 28 41 4e 53 57 29 3b 0d 0a 20 20 20 20 4f 50 57 41 49 54 28 4c 45 4e 47 54 48 29 ┆ OPIN(ANSW); OPWAIT(LENGTH)┆
0x700…720 3b 0d 0a 20 20 20 20 4f 50 4d 45 53 53 28 43 4c 45 41 4e 29 3b 0d 0a 31 31 30 30 3a 0d 0a 20 20 ┆; OPMESS(CLEAN); 1100: ┆
0x720…740 20 20 49 46 20 4f 50 53 54 52 20 3d 20 59 45 53 20 54 48 45 4e 0d 0a 20 20 20 20 4e 45 57 4c 49 ┆ IF OPSTR = YES THEN NEWLI┆
0x740…760 4e 45 3b 0d 0a 20 20 20 20 48 45 4c 50 39 3a 3d 20 54 52 59 3b 0d 0a 20 20 20 20 4d 4f 56 45 28 ┆NE; HELP9:= TRY; MOVE(┆
0x760…780 48 45 4c 50 39 2c 30 2c 4f 55 54 4c 49 4e 45 2c 30 2c 39 29 3b 0d 0a 20 20 20 20 42 49 4e 44 45 ┆HELP9,0,OUTLINE,0,9); BINDE┆
0x780…7a0 43 28 54 4e 4f 2c 48 45 4c 50 36 29 3b 0d 0a 20 20 20 20 4d 4f 56 45 28 48 45 4c 50 36 2c 33 2c ┆C(TNO,HELP6); MOVE(HELP6,3,┆
0x7a0…7c0 4f 55 54 4c 49 4e 45 2c 39 2c 32 29 3b 0d 0a 20 20 20 20 4d 4f 56 45 28 50 49 4c 2c 30 2c 4f 55 ┆OUTLINE,9,2); MOVE(PIL,0,OU┆
0x7c0…7e0 54 4c 49 4e 45 2c 31 31 2c 34 29 3b 0d 0a 20 20 20 20 4d 4f 56 45 28 5a 45 52 4f 2c 30 2c 4f 55 ┆TLINE,11,4); MOVE(ZERO,0,OU┆
0x7e0…800 54 4c 49 4e 45 2c 31 35 2c 34 29 3b 0d 0a 31 31 35 30 3a 0d 0a 20 20 20 20 4c 50 53 57 3a 3d 20 ┆TLINE,15,4); 1150: LPSW:= ┆
0x800…820 31 3b 0d 0a 20 20 20 20 54 54 59 4c 49 4e 45 3b 0d 0a 20 20 20 20 4f 50 49 4e 28 46 4f 55 52 29 ┆1; TTYLINE; OPIN(FOUR)┆
0x820…840 3b 0d 0a 20 20 20 20 4f 50 57 41 49 54 28 4c 45 4e 47 54 48 29 3b 0d 0a 20 20 20 20 49 46 20 4c ┆; OPWAIT(LENGTH); IF L┆
0x840…860 45 4e 47 54 48 3c 3e 35 20 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 47 4f 54 4f 20 31 31 35 30 3b ┆ENGTH<>5 THEN GOTO 1150;┆
0x860…880 0d 0a 20 20 20 20 4e 55 4d 45 52 49 43 3b 0d 0a 20 20 20 20 43 48 45 43 4b 50 52 4f 43 3b 0d 0a ┆ NUMERIC; CHECKPROC; ┆
0x880…8a0 31 32 30 30 3a 0d 0a 20 20 20 20 49 58 3a 3d 20 31 3b 0d 0a 20 20 20 20 4c 45 4e 47 54 48 3a 3d ┆1200: IX:= 1; LENGTH:=┆
0x8a0…8c0 20 30 3b 0d 0a 20 20 20 20 4d 4f 56 45 28 5a 45 52 4f 2c 30 2c 52 45 53 55 4c 54 2c 30 2c 34 29 ┆ 0; MOVE(ZERO,0,RESULT,0,4)┆
0x8c0…8e0 3b 0d 0a 20 20 20 20 49 46 20 42 3d 30 20 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 47 4f 54 4f 20 ┆; IF B=0 THEN GOTO ┆
0x8e0…900 31 32 35 30 3b 0d 0a 20 20 20 20 57 48 49 4c 45 20 49 58 3c 3d 42 20 20 44 4f 0d 0a 20 20 20 20 ┆1250; WHILE IX<=B DO ┆
0x900…920 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 49 4e 53 45 52 54 28 34 36 2c 52 45 53 55 4c ┆ BEGIN INSERT(46,RESUL┆
0x920…940 54 2c 4c 45 4e 47 54 48 29 3b 0d 0a 20 20 20 20 20 20 20 20 49 58 3a 3d 20 49 58 2b 31 3b 0d 0a ┆T,LENGTH); IX:= IX+1; ┆
0x940…960 20 20 20 20 20 20 20 20 4c 45 4e 47 54 48 3a 3d 20 4c 45 4e 47 54 48 2b 31 3b 0d 0a 20 20 20 20 ┆ LENGTH:= LENGTH+1; ┆
0x960…980 20 20 45 4e 44 3b 0d 0a 31 32 35 30 3a 0d 0a 20 20 20 20 49 58 3a 3d 20 31 3b 0d 0a 20 20 20 20 ┆ END; 1250: IX:= 1; ┆
0x980…9a0 49 46 20 41 3d 30 20 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 47 4f 54 4f 20 31 32 36 30 3b 0d 0a ┆IF A=0 THEN GOTO 1260; ┆
0x9a0…9c0 20 20 20 20 57 48 49 4c 45 20 49 58 3c 3d 41 20 20 44 4f 0d 0a 20 20 20 20 20 20 42 45 47 49 4e ┆ WHILE IX<=A DO BEGIN┆
0x9c0…9e0 0d 0a 20 20 20 20 20 20 20 20 49 4e 53 45 52 54 28 34 33 2c 52 45 53 55 4c 54 2c 4c 45 4e 47 54 ┆ INSERT(43,RESULT,LENGT┆
0x9e0…a00 48 29 3b 0d 0a 20 20 20 20 20 20 20 20 49 58 3a 3d 20 49 58 2b 31 3b 0d 0a 20 20 20 20 20 20 20 ┆H); IX:= IX+1; ┆
0xa00…a20 20 4c 45 4e 47 54 48 3a 3d 20 4c 45 4e 47 54 48 2b 31 3b 0d 0a 20 20 20 20 20 20 45 4e 44 3b 0d ┆ LENGTH:= LENGTH+1; END; ┆
0xa20…a40 0a 31 32 36 30 3a 0d 0a 20 20 20 20 4d 4f 56 45 28 46 4f 55 52 2c 30 2c 4f 55 54 4c 49 4e 45 2c ┆ 1260: MOVE(FOUR,0,OUTLINE,┆
0xa40…a60 31 36 2c 34 29 3b 0d 0a 20 20 20 20 4d 4f 56 45 28 52 45 53 55 4c 54 2c 30 2c 4f 55 54 4c 49 4e ┆16,4); MOVE(RESULT,0,OUTLIN┆
0xa60…a80 45 2c 32 33 2c 34 29 3b 0d 0a 20 20 20 20 4d 4f 56 45 28 53 50 41 43 45 2c 30 2c 4f 55 54 4c 49 ┆E,23,4); MOVE(SPACE,0,OUTLI┆
0xa80…aa0 4e 45 2c 32 30 2c 33 29 3b 0d 0a 20 20 20 20 4d 4f 56 45 28 5a 45 52 4f 2c 30 2c 4f 55 54 4c 49 ┆NE,20,3); MOVE(ZERO,0,OUTLI┆
0xaa0…ac0 4e 45 2c 32 37 2c 34 29 3b 0d 0a 20 20 20 20 49 46 20 4f 50 53 54 52 20 3d 20 59 45 53 20 54 48 ┆NE,27,4); IF OPSTR = YES TH┆
0xac0…ae0 45 4e 0d 0a 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 4d 4f 56 45 28 4f 55 54 4c 49 4e 45 2c ┆EN BEGIN MOVE(OUTLINE,┆
0xae0…b00 30 2c 4c 50 5e 2c 30 2c 36 30 29 3b 0d 0a 20 20 20 20 4f 55 54 42 4c 4f 43 4b 28 4c 50 29 3b 0d ┆0,LP^,0,60); OUTBLOCK(LP); ┆
0xb00…b20 0a 20 20 20 20 4e 45 57 4c 49 4e 45 3b 0d 0a 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 53 50 41 ┆ NEWLINE; END; SPA┆
0xb20…b40 43 45 4c 49 4e 45 3b 0d 0a 20 20 20 20 4d 4f 56 45 28 52 45 53 55 4c 54 2c 30 2c 4f 55 54 4c 49 ┆CELINE; MOVE(RESULT,0,OUTLI┆
0xb40…b60 4e 45 2c 32 32 2c 34 29 3b 0d 0a 20 20 20 20 4d 4f 56 45 28 5a 45 52 4f 2c 30 2c 4f 55 54 4c 49 ┆NE,22,4); MOVE(ZERO,0,OUTLI┆
0xb60…b80 4e 45 2c 32 36 2c 34 29 3b 0d 0a 20 20 20 20 4c 50 53 57 3a 3d 20 31 3b 0d 0a 20 20 20 20 54 54 ┆NE,26,4); LPSW:= 1; TT┆
0xb80…ba0 59 4c 49 4e 45 3b 0d 0a 20 20 20 20 49 46 20 41 3d 34 20 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 ┆YLINE; IF A=4 THEN ┆
0xba0…bc0 46 49 4e 49 53 48 3b 0d 0a 20 20 20 20 49 46 20 54 4e 4f 3d 43 4e 4f 20 20 54 48 45 4e 0d 0a 20 ┆FINISH; IF TNO=CNO THEN ┆
0xbc0…be0 20 20 20 20 20 54 52 59 31 30 3b 0d 0a 31 33 30 30 3a 0d 0a 20 20 20 20 49 46 20 54 4e 4f 3d 39 ┆ TRY10; 1300: IF TNO=9┆
0xbe0…c00 39 20 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 54 52 59 31 30 3b 0d 0a 20 20 20 20 54 4e 4f 3a 3d ┆9 THEN TRY10; TNO:=┆
0xc00…c20 20 54 4e 4f 2b 31 3b 0d 0a 20 20 20 20 47 4f 54 4f 20 31 31 30 30 3b 0d 0a 32 30 30 30 3a 0d 0a ┆ TNO+1; GOTO 1100; 2000: ┆
0xc20…c40 20 20 20 20 43 4c 4f 53 45 28 54 54 2c 31 29 3b 0d 0a 20 20 20 20 49 46 20 4f 50 53 54 52 20 3d ┆ CLOSE(TT,1); IF OPSTR =┆
0xc40…c60 20 59 45 53 20 54 48 45 4e 0d 0a 20 20 20 20 43 4c 4f 53 45 28 4c 50 2c 31 29 3b 0d 0a 20 20 45 ┆ YES THEN CLOSE(LP,1); E┆
0xc60…c80 4e 44 3b 0d 0a 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 ┆ND; ┆
0xc80…ca0 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 ┆ ┆
[…0x8…]
0xda0…dbe 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 ┆ ┆