|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 4832 (0x12e0)
Notes: Mikados_0
Names: »MIKM«
└─⟦50e9145c4⟧ Bits:30005300 MIKADOS system disc. Vers: 1.12.82 (8 brugere)
└─⟦this⟧ »MIKM«
└─⟦590f87c53⟧ Bits:30003594 MIKADOS system disc vers.: 05-11-82
└─⟦this⟧ »MIKM«
└─⟦6980b4520⟧ Bits:30003618 MIKADOS start diskette med DDE COMAL-80 version 1.5
└─⟦this⟧ »MIKM«
0x0000…0020 (0,) 4f 41 44 30 20 20 20 20 53 30 53 20 50 31 20 20 1f 04 b2 14 62 10 0e 00 55 04 55 04 55 04 50 31 ┆OAD0 S0S P1 b U U U P1┆
0x0020…0040 00 00 00 00 ff 0f 20 20 20 02 0f 08 08 0d 01 ff 02 00 00 13 76 76 76 76 76 76 76 76 76 76 76 76 ┆ vvvvvvvvvvvv┆
0x0040…0060 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 ┆vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv┆
0x0060…0080 76 76 76 76 76 76 76 76 76 76 4d 4c 4f 41 44 30 20 20 30 41 00 13 00 00 00 00 00 00 00 48 00 07 ┆vvvvvvvvvvMLOAD0 0A H ┆
0x0080…00a0 01 02 03 48 00 07 01 00 20 00 26 03 e0 00 74 00 74 00 01 b2 48 00 07 76 76 76 4d 4c 4f 41 44 30 ┆ H & t t H vvvMLOAD0┆
0x00a0…00c0 20 20 30 41 00 13 00 00 00 00 00 00 00 48 00 1a 00 00 00 01 00 00 00 00 00 00 4f 41 44 30 20 20 ┆ 0A H OAD0 ┆
0x00c0…00e0 20 20 53 30 53 20 50 31 20 20 1f 04 b2 14 62 10 0e 00 55 04 55 04 55 04 50 31 00 00 00 00 ff 0f ┆ S0S P1 b U U U P1 ┆
0x00e0…0100 f3 31 48 09 c3 40 00 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 ┆ 1H @ vvvvvvvvvvvvvvvvvvvvvvvvv┆
0x0100…0120 76 76 76 76 c3 08 f0 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 ┆vvvv vvvvvvvvvvvvvvvvvvvvvvvvv┆
0x0120…0140 00 00 00 cd 92 04 21 e5 04 22 10 00 97 32 29 05 32 2a 05 32 2b 05 3e 00 d3 fc d3 fd 3e aa 21 00 ┆ ! " 2) 2* 2+ > > ! ┆
0x0140…0160 40 77 be c2 6b 00 3e 01 32 29 05 3e aa 21 00 80 77 be c2 7a 00 3e 01 32 2a 05 3e aa 21 00 c0 77 ┆@w k > 2) > ! w z > 2* > ! w┆
0x0160…0180 be c2 89 00 3e 01 32 2b 05 3a 29 05 b7 c2 cd 00 3e 00 d3 fc 3e 01 d3 fd 3e aa 21 00 40 77 be 3e ┆ > 2+ :) > > > ! @w >┆
0x0180…01a0 01 ca ec 00 3e 40 d3 fd 21 00 40 3e aa 77 be 3e 02 ca ec 00 3e 01 d3 fc 3e 00 d3 fd 3e aa 21 00 ┆ >@ ! @> w > > > > ! ┆
0x01a0…01c0 40 77 be 3e 05 ca ec 00 3e 05 cd 08 f0 3a 2a 05 b7 3e 03 c2 ec 00 3e 01 d3 fc 3e 00 d3 fd 3e aa ┆@w > > :* > > > > ┆
0x01c0…01e0 21 00 80 77 be 3e 04 ca ec 00 3e 06 32 e4 04 cd 33 01 cd d1 01 cd d6 02 3a e1 04 fe 00 c2 fd 00 ┆! w > > 2 3 : ┆
0x01e0…0200 3a e4 04 fe 01 ca 38 05 fe 02 ca 2c 05 fe 03 ca 44 05 fe 04 ca 38 05 fe 05 ca 38 05 fe 06 ca 44 ┆: 8 , D 8 8 D┆
0x0200…0220 05 c6 30 21 72 04 77 23 36 0a 23 36 0d 21 5a 04 cd 75 04 11 e5 04 3e 00 d3 fd 3e 01 32 e0 04 d3 ┆ 0!r w#6 #6 !Z u > > 2 ┆
0x0220…0240 fc 13 cd 91 01 3a e0 04 fe 80 ca 51 01 07 c3 3c 01 3e 00 d3 fc 3e 01 32 e0 04 d3 fd 13 cd 91 01 ┆ : Q < > > 2 ┆
0x0240…0260 3a e0 04 fe 80 ca 6c 01 07 c3 57 01 3e 53 12 13 3a 29 05 b7 ca 7a 01 3e 3a 12 13 3a 2a 05 b7 ca ┆: l W >S :) z >: :* ┆
0x0260…0280 85 01 3e 3a 12 13 3a 2b 05 b7 ca 90 01 3e 3a 12 c9 3a 29 05 b7 c2 a5 01 21 00 40 3e aa 77 be c2 ┆ >: :+ >: :) ! @> w ┆
0x0280…02a0 a5 01 3e 3a 12 13 3a 2a 05 b7 c2 ba 01 21 00 80 3e aa 77 be c2 ba 01 3e 3a 12 13 3a 2b 05 b7 c2 ┆ >: :* ! > w >: :+ ┆
0x02a0…02c0 cf 01 21 00 c0 3e aa 77 be c2 cf 01 3e 3a 12 13 c9 3e 00 d3 fd 11 e5 04 3e 01 32 e0 04 d3 fc 0e ┆ ! > w >: > > 2 ┆
0x02c0…02e0 03 cd 27 02 13 0d f2 e1 01 3a e0 04 fe 80 ca f5 01 07 c3 da 01 3e 00 d3 fc 3e 01 32 e0 04 d3 fd ┆ ' : > > 2 ┆
0x02e0…0300 0e 03 cd 27 02 13 0d f2 02 02 3a e0 04 fe 80 ca 16 02 07 c3 fb 01 3e 00 d3 fc d3 fd 0e 03 cd 27 ┆ ' : > '┆
0x0300…0320 02 13 0d f2 1e 02 c9 1a fe 3a c0 cd 2f 02 c9 e5 d5 c5 3e 03 21 00 00 11 00 40 b9 ca 43 02 3d 19 ┆ : / > ! @ C = ┆
0x0320…0340 c3 3a 02 22 e2 04 3e 00 cd 92 02 3e 00 cd aa 02 da 67 02 3e ff cd 92 02 3e ff cd aa 02 da 67 02 ┆ : " > > g > > g ┆
0x0340…0360 c1 d1 e1 3e 2a 12 c9 ae 47 3e 01 0e 00 57 a0 c2 7e 02 7a fe 80 ca 84 02 07 57 0c c3 6e 02 3e 30 ┆ >* G> W ü z W n >0┆
0x0360…0380 81 c3 86 02 3e 46 c1 d1 e1 12 3a e1 04 3c 32 e1 04 c9 2a e2 04 11 00 10 47 2f 4f 70 23 71 23 70 ┆ >F : <2 * G/Op#q#p┆
0x0380…03a0 23 71 23 1b 7a b3 c2 9b 02 c9 2a e2 04 11 00 10 47 2f 4f 78 be c2 d4 02 23 79 be c2 d4 02 23 78 ┆#q# z * G/Ox #y #x┆
0x03a0…03c0 be c2 d4 02 23 79 be c2 d4 02 23 1b 7a b3 c2 b3 02 37 3f c9 37 c9 21 b0 03 cd 75 04 21 b2 03 cd ┆ #y # z 7? 7 ! u ! ┆
0x03c0…03e0 75 04 21 b0 03 cd 75 04 21 18 04 cd 75 04 21 30 04 cd 75 04 06 00 21 19 03 e5 21 1a 08 11 e5 04 ┆u ! u ! u !0 u ! ! ┆
0x03e0…0400 78 cd 43 03 78 fe 00 ca 4a 03 fe 01 ca 59 03 fe 02 ca 6f 03 fe 03 ca 85 03 23 36 0a 23 36 0d 21 ┆x C x J Y o #6 #6 !┆
0x0400…0420 1a 08 cd 75 04 04 78 fe 04 c2 f6 02 21 b0 03 cd 75 04 3a e1 04 b7 21 e3 03 c2 3f 03 21 c2 03 cd ┆ u x ! u : ! ? ! ┆
0x0420…0440 75 04 c9 83 5f 7a ce 00 57 c9 36 30 23 36 30 23 cd 9b 03 36 20 23 36 53 c9 36 31 23 36 36 23 cd ┆u _z W 60#60# 6 #6S 61#66# ┆
0x0440…0460 9b 03 36 20 23 36 2e 3a 29 05 b7 c8 36 2a c9 36 33 23 36 32 23 cd 9b 03 36 20 23 36 2e 3a 2a 05 ┆ 6 #6.:) 6* 63#62# 6 #6.:* ┆
0x0460…0480 b7 c8 36 2a c9 36 34 23 36 38 23 cd 9b 03 36 20 23 36 2e 3a 2b 05 b7 c8 36 2a c9 36 3a 23 0e 10 ┆ 6* 64#68# 6 #6.:+ 6* 6:# ┆
0x0480…04a0 36 20 23 1a 77 23 3e 04 cd 43 03 0d c2 a0 03 c9 0a 0d 55 53 45 52 20 42 41 4e 4b 20 54 45 53 54 ┆6 # w#> C USER BANK TEST┆
0x04a0…04c0 0a 0d 4e 4f 20 45 52 52 4f 52 53 20 46 4f 55 4e 44 20 49 4e 20 55 53 45 52 20 42 41 4e 4b 28 53 ┆ NO ERRORS FOUND IN USER BANK(S┆
0x04c0…04e0 29 0a 0d 45 52 52 4f 52 20 49 4e 20 4f 4e 45 20 4f 52 20 4d 4f 52 45 20 55 53 45 52 20 42 41 4e ┆) ERROR IN ONE OR MORE USER BAN┆
0x04e0…0500 4b 28 53 29 20 2d 20 4c 4f 41 44 49 4e 47 20 53 54 4f 50 50 45 44 0a 0d 20 20 20 20 46 43 20 20 ┆K(S) - LOADING STOPPED FC ┆
0x0500…0520 20 20 20 20 20 20 20 20 20 20 20 20 46 44 0a 0d 20 20 20 20 30 20 31 20 32 20 33 20 34 20 35 20 ┆ FD 0 1 2 3 4 5 ┆
0x0520…0540 36 20 37 20 30 20 31 20 32 20 33 20 34 20 35 20 36 20 37 20 46 41 53 54 0a 0d 2a 2a 2a 20 53 59 ┆6 7 0 1 2 3 4 5 6 7 FAST *** SY┆
0x0540…0560 53 54 45 4d 20 45 52 52 4f 52 20 2d 20 54 59 50 45 20 76 76 76 7e 23 cd 80 04 fe 0d c2 75 04 c9 ┆STEM ERROR - TYPE vvvü# u ┆
0x0560…0580 d3 e2 d3 60 f5 c5 01 40 06 0b 78 b1 c2 89 04 c1 f1 c9 21 e5 04 06 44 36 2e 23 05 c2 97 04 3e 03 ┆ ` @ x ! D6.# > ┆
0x0580…05a0 d3 e3 d3 61 3e 53 d3 e3 d3 61 3e 7a d3 e3 d3 61 3e 25 d3 e3 d3 61 3e 00 32 e1 04 21 b0 03 cd 75 ┆ a>S a>z a>% a> 2 ! u┆
0x05a0…05c0 04 21 c8 04 cd 75 04 c9 53 50 43 2f 31 20 53 45 4c 46 54 45 53 54 20 52 55 4e 4e 49 4e 47 0a 0d ┆ ! u SPC/1 SELFTEST RUNNING ┆
0x05c0…05e0 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 ┆vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv┆
[…0x1…]
0x0600…0620 76 76 76 76 76 76 76 76 76 76 76 76 f3 3e 00 d3 fc 3e 40 d3 fd c3 50 05 f3 3e 00 d3 fd 3e 01 d3 ┆vvvvvvvvvvvv > >@ P > > ┆
0x0620…0640 fc c3 50 05 f3 3e 00 d3 fc 3e 00 d3 fd c3 50 05 3e 0a 32 19 08 31 48 09 21 30 41 22 17 08 11 06 ┆ P > > P > 2 1H !0A" ┆
0x0640…0660 08 06 08 21 0f 08 1a 77 13 23 05 c2 66 05 d5 97 32 25 09 32 26 09 cd b3 05 cd f1 05 da 88 05 cd ┆ ! w # f 2% 2& ┆
0x0660…0680 19 06 c2 97 05 c3 cd 06 cd d7 05 cd f1 05 da 97 05 cd 19 06 ca cd 06 3a 25 09 1f da a9 05 3a 25 ┆ :% :%┆
0x0680…06a0 09 ee 01 32 25 09 c3 76 05 3a 26 09 b7 ca 9e 05 c3 f7 07 3e 07 32 1a 09 3e 02 32 1b 09 3e 02 32 ┆ 2% v :& > 2 > 2 > 2┆
0x06a0…06c0 1c 09 3e 09 32 23 09 3e 09 32 24 09 3a 25 09 47 3e 59 a8 32 22 09 c9 3e 1f 32 1a 09 3e 28 32 23 ┆ > 2# > 2$ :% G>Y 2" > 2 >(2#┆
0x06c0…06e0 09 3e 10 32 24 09 3a 25 09 47 3e 99 a8 32 22 09 c9 3a 22 09 2f d3 f4 cd e5 07 db f0 17 d8 3e 0d ┆ > 2$ :% G> 2" :" / > ┆
0x06e0…0700 d3 f0 cd ec 07 db f0 e6 14 fe 04 ca 15 06 fe 14 c2 01 08 37 c9 32 26 09 c9 3e 00 32 21 09 21 00 ┆ 7 2& > 2! ! ┆
0x0700…0720 00 22 1f 09 3a 23 09 fe 09 ca 53 06 21 1a 08 22 1d 09 cd 42 07 21 1a 08 01 30 00 09 7e 32 1a 09 ┆ " :# S ! " B ! 0 ü2 ┆
0x0720…0740 fe 1f ca 4a 06 3e 56 32 23 09 23 23 7e 32 1b 09 32 1c 09 06 01 3a 24 09 4f 3a 21 09 2a 1f 09 80 ┆ J >V2# ##ü2 2 :$ O:! * ┆
0x0740…0760 b9 da 66 06 23 91 32 21 09 22 1f 09 21 1a 08 22 1d 09 cd 42 07 21 1a 08 0e 13 11 0f 08 06 0a e5 ┆ f # 2! " ! " B ! ┆
0x0760…0780 1a be c2 8e 06 05 ca c8 06 23 13 c3 80 06 e1 7e fe 00 ca a0 06 0d ca a7 06 11 0d 00 19 c3 7a 06 ┆ # ü z ┆
0x0780…07a0 3a 1c 09 47 c3 b3 06 06 01 3a 1c 09 3d 32 1c 09 c2 55 06 3a 1a 09 3d 32 1a 09 c2 bf 06 3c c9 3a ┆: G : =2 U : =2 < :┆
0x07a0…07c0 1b 09 32 1c 09 c3 55 06 d1 d1 e5 d5 c9 e1 23 5e 23 56 23 7e eb 22 1f 09 32 21 09 21 1a 08 22 1d ┆ 2 U #^#V#ü " 2! ! " ┆
0x07c0…07e0 09 cd 42 07 21 1a 08 11 40 00 19 5e 23 56 23 eb 22 27 09 eb 5e 23 56 23 7e 93 4f 23 7e 9a 47 04 ┆ B ! @ ^#V# "' ^#V#ü O#ü G ┆
0x07e0…0800 eb 22 1d 09 3a 24 09 4f 3a 21 09 3c b9 da 22 07 2a 1f 09 23 3e 00 32 21 09 22 1f 09 cd 42 07 c3 ┆ " :$ O:! < " * #> 2! " B ┆
0x0800…0820 28 07 32 21 09 cd 7c 07 05 c2 01 07 21 24 00 36 c3 23 36 00 23 36 f0 d1 1a fe ff c2 61 05 2a 27 ┆( 2! ø !$ 6 #6 #6 a *'┆
0x0820…0840 09 e9 db f0 e6 80 c2 01 08 2a 1f 09 3a 23 09 fe 09 7d ca 6c 07 a7 1f f5 3a 22 09 da 63 07 e6 df ┆ * :# å l :" c ┆
0x0840…0860 c3 65 07 f6 20 32 22 09 2f d3 f4 f1 d3 f3 3e 1d d3 f0 cd ec 07 db f0 e6 10 c2 fc 07 2a 1d 09 d3 ┆ e 2" / > * ┆
0x0860…0880 2d 3a 23 09 fe 09 ca a3 07 3e 46 d3 2b d3 2c 7d d3 24 7c d3 24 3e ff d3 25 d3 25 3e 0b d3 2f 11 ┆-:# >F + ,å $ø $> % %> / ┆
0x0880…08a0 00 01 19 3a 21 09 3c d3 f2 3e 80 d3 f0 3a 23 09 fe 09 c2 d0 07 cd e5 07 16 00 db f0 e6 03 fe 01 ┆ :! < > :# ┆
0x08a0…08c0 ca ba 07 fe 03 c2 fc 07 db f3 77 23 15 c2 ba 07 cd ec 07 db f0 e6 3c c8 3a 19 08 3d 32 19 08 ca ┆ w# < : =2 ┆
0x08c0…08e0 fc 07 c3 55 05 3e 20 3d c2 e7 07 c9 cd e5 07 db f0 e6 01 c2 ec 07 c9 3e 01 cd 08 f0 3e 02 cd 08 ┆ U > = > > ┆
0x08e0…0900 f0 3e 03 cd 08 f0 4c 4f 41 44 32 20 20 20 ff 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 ┆ > LOAD2 vvvvvvvvvvvvvvvvv┆
0x0900…0920 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 ┆vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv┆
[…0x8…]
0x0a20…0a40 76 76 76 76 76 76 76 76 6f 65 72 72 6f 72 29 1a 0b 20 20 20 20 20 20 20 20 65 6e 64 0b 0a 20 20 ┆vvvvvvvvoerror) end ┆
0x0a40…0a60 20 20 20 20 65 6c 73 65 0a 19 20 20 20 20 20 20 20 20 65 72 72 6f 72 28 66 69 6c 65 63 6c 6f 73 ┆ else error(fileclos┆
0x0a60…0a80 65 64 29 19 08 20 20 20 20 65 6c 73 65 08 17 20 20 20 20 20 20 65 72 72 6f 72 28 73 79 73 6e 6f ┆ed) else error(sysno┆
0x0a80…0aa0 74 69 6e 69 74 29 17 13 20 20 65 6e 64 20 28 2a 72 65 6f 72 67 69 73 71 2a 29 3b 13 1d 66 75 6e ┆tinit) end (*reorgisq*); fun┆
0x0aa0…0ac0 63 74 69 6f 6e 20 69 73 71 72 65 73 75 6c 74 3a 69 73 71 65 72 72 6f 72 73 3b 1d 07 20 20 62 65 ┆ction isqresult:isqerrors; be┆
0x0ac0…0ae0 67 69 6e 07 15 20 20 20 20 69 73 71 72 65 73 75 6c 74 3a 3d 69 73 71 72 65 73 15 14 20 20 65 6e ┆gin isqresult:=isqres en┆
0x0ae0…0b00 64 20 28 2a 69 73 71 72 65 73 75 6c 74 2a 29 3b 14 3d 66 75 6e 63 74 69 6f 6e 20 73 79 73 76 61 ┆d (*isqresult*); =function sysva┆
0x0b00…0b20 6c 69 73 71 28 69 73 71 6e 61 6d 65 3a 69 73 71 6e 61 6d 65 73 3b 20 66 65 6c 74 6e 72 3a 69 6e ┆lisq(isqname:isqnames; feltnr:in┆
0x0b20…0b40 74 65 67 65 72 29 3a 69 6e 74 65 67 65 72 3b 3d 07 20 20 62 65 67 69 6e 07 13 20 20 20 20 69 66 ┆teger):integer;= begin if┆
0x0b40…0b60 20 73 79 73 69 6e 69 74 20 74 68 65 6e 13 11 20 20 20 20 20 20 77 69 74 68 20 73 79 73 20 64 6f ┆ sysinit then with sys do┆
0x0b60…0b80 11 0b 20 20 20 20 20 20 62 65 67 69 6e 0b 16 20 20 20 20 20 20 20 20 63 61 73 65 20 66 65 6c 74 ┆ begin case felt┆
0x0b80…0ba0 6e 72 20 6f 66 16 3f 20 20 20 20 20 20 20 20 20 20 31 3a 20 62 65 67 69 6e 20 73 79 73 76 61 6c ┆nr of ? 1: begin sysval┆
0x0ba0…0bc0 69 73 71 3a 3d 6f 72 64 28 73 74 61 74 75 73 28 69 73 71 29 29 3b 20 69 73 71 72 65 73 3a 3d 6f ┆isq:=ord(status(isq)); isqres:=o┆
0x0bc0…0be0 6b 20 65 6e 64 3b 3f 12 20 20 20 20 20 20 20 20 20 20 32 3a 20 62 65 67 69 6e 12 15 20 20 20 20 ┆k end;? 2: begin ┆
0x0be0…0c00 20 20 20 20 20 20 20 20 20 20 20 73 65 74 75 70 3b 15 1e 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ setup; ┆
0x0c00…0c20 20 20 69 66 20 73 65 74 75 70 6f 6b 20 74 68 65 6e 1e 16 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ if setupok then ┆
0x0c20…0c40 20 20 20 20 62 65 67 69 6e 16 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 ┆ begin ) s┆
0x0c40…0c60 79 73 76 61 6c 69 73 71 3a 3d 61 6e 74 61 6c 72 65 63 73 3b 29 1e 20 20 20 20 20 20 20 20 20 20 ┆ysvalisq:=antalrecs;) ┆
0x0c60…0c80 20 20 20 20 20 20 20 20 20 20 63 6c 6f 73 65 64 6f 77 6e 3b 1e 1e 20 20 20 20 20 20 20 20 20 20 ┆ closedown; ┆
0x0c80…0ca0 20 20 20 20 20 20 20 20 20 20 69 73 71 72 65 73 3a 3d 6f 6b 1e 14 20 20 20 20 20 20 20 20 20 20 ┆ isqres:=ok ┆
0x0ca0…0cc0 20 20 20 20 20 20 20 65 6e 64 14 13 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 13 ┆ end else ┆
0x0cc0…0ce0 1e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 79 73 76 61 6c 69 73 71 3a 3d 2d 31 1e ┆ sysvalisq:=-1 ┆
0x0ce0…0d00 11 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 11 12 20 20 20 20 20 20 20 20 20 20 33 3a ┆ end; 3:┆
0x0d00…0d20 20 62 65 67 69 6e 12 15 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 65 74 75 70 3b 15 1e 20 ┆ begin setup; ┆
0x0d20…0d40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 73 65 74 75 70 6f 6b 20 74 68 65 6e 1e 16 20 ┆ if setupok then ┆
0x0d40…0d60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 16 28 20 20 20 20 20 20 20 20 20 ┆ begin ( ┆
0x0d60…0d80 20 20 20 20 20 20 20 20 20 20 69 66 20 61 6e 74 61 6c 62 6c 6f 63 6b 73 3e 30 20 74 68 65 6e 28 ┆ if antalblocks>0 then(┆
0x0d80…0da0 4c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 79 73 76 61 6c 69 73 71 3a ┆L sysvalisq:┆
0x0da0…0dc0 3d 72 6f 75 6e 64 28 61 6e 74 61 6c 72 65 63 73 2f 61 6e 74 61 6c 62 6c 6f 63 6b 73 2f 62 6c 6f ┆=round(antalrecs/antalblocks/blo┆
0x0dc0…0de0 63 6b 73 69 7a 65 2a 31 30 30 2e 30 29 4c 25 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆cksize*100.0)L% ┆
0x0de0…0e00 20 20 65 6c 73 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 25 31 20 20 20 20 20 20 20 20 20 20 ┆ else %1 ┆
0x0e00…0e20 20 20 20 20 20 20 20 20 20 20 20 73 79 73 76 61 6c 69 73 71 3a 3d 30 3b 20 20 20 20 20 20 20 20 ┆ sysvalisq:=0; ┆
0x0e20…0e40 20 20 20 20 20 20 20 31 1d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6c 6f 73 ┆ 1 clos┆
0x0e40…0e60 65 64 6f 77 6e 3b 1d 1d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 73 71 72 65 ┆edown; isqre┆
0x0e60…0e80 73 3a 3d 6f 6b 1d 14 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 14 13 20 20 20 ┆s:=ok end ┆
0x0e80…0ea0 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 13 1e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ else ┆
0x0ea0…0ec0 20 20 20 73 79 73 76 61 6c 69 73 71 3a 3d 2d 31 1e 11 20 20 20 20 20 20 20 20 20 20 20 20 20 65 ┆ sysvalisq:=-1 e┆
0x0ec0…0ee0 6e 64 3b 11 0b 20 20 20 20 20 20 20 65 6e 64 20 0b 08 20 20 20 20 20 65 6e 64 08 07 20 20 20 65 ┆nd; end end e┆
0x0ee0…0f00 49 53 51 49 4e 49 54 20 4b 4a 09 0a 00 00 00 00 7c 01 0e 82 01 1a 41 16 01 09 00 53 51 49 4e 49 ┆ISQINIT KJ ø A SQINI┆
0x0f00…0f20 6c 73 65 07 0a 20 20 20 20 20 62 65 67 69 6e 0a 15 20 20 20 20 20 20 20 73 79 73 76 61 6c 69 73 ┆lse begin sysvalis┆
0x0f20…0f40 71 3a 3d 2d 31 3b 15 18 20 20 20 20 20 20 20 65 72 72 6f 72 28 73 79 73 6e 6f 74 69 6e 69 74 29 ┆q:=-1; error(sysnotinit)┆
0x0f40…0f60 18 08 20 20 20 20 20 65 6e 64 08 15 20 20 20 65 6e 64 20 28 2a 73 79 73 76 61 6c 69 73 71 2a 29 ┆ end end (*sysvalisq*)┆
0x0f60…0f80 3b 15 00 00 6f 66 20 63 68 61 72 3b 2f 27 20 20 20 20 63 68 61 6e 6e 65 6c 3d 70 61 63 6b 65 64 ┆; of char;/' channel=packed┆
0x0f80…0fa0 20 61 72 72 61 79 28 31 2e 2e 31 29 20 6f 66 20 63 68 61 72 3b 27 25 20 20 20 20 69 73 71 65 72 ┆ array(1..1) of char;'% isqer┆
0x0fa0…0fc0 72 6f 72 73 3d 28 6f 6b 2c 69 6e 75 73 65 2c 66 69 6c 65 6e 6f 74 66 6f 75 6e 64 2c 25 36 20 20 ┆rors=(ok,inuse,filenotfound,%6 ┆
0x0fc0…0fe0 20 20 6f 76 65 72 66 6c 6f 77 2c 69 6f 65 72 72 6f 72 2c 73 79 73 6e 6f 74 69 6e 69 74 2c 69 6e ┆ overflow,ioerror,sysnotinit,in┆
0x0fe0…1000 20 52 45 54 55 52 4e 20 2c 20 41 4e 54 41 4c 20 3d 20 34 34 3a 20 20 20 20 20 20 20 4d 56 49 20 ┆ RETURN , ANTAL = 44: MVI ┆
0x1000…1020 43 2c 34 20 20 20 20 20 20 20 20 20 20 20 3b 20 49 20 4f 52 49 47 49 4e 41 4c 45 4e 3a 20 4c 58 ┆C,4 ; I ORIGINALEN: LX┆
0x1020…1040 49 20 42 2c 23 32 35 36 2a 52 45 54 55 2b 34 3a 31 20 20 20 20 20 20 43 41 4c 4c 20 47 46 53 31 ┆I B,#256*RETU+4:1 CALL GFS1┆
0x1040…1060 20 20 20 20 20 20 20 20 3b 20 47 5c 52 20 50 4c 41 44 53 20 49 20 53 5b 54 4e 49 4e 47 53 53 54 ┆ ; GØR PLADS I SÆTNINGSST┆
0x1060…1080 41 4b 31 07 46 55 4e 53 39 3a 3a 07 25 20 20 20 20 20 20 58 43 48 47 20 20 20 20 20 20 20 20 20 ┆AK1 FUNS9:: % XCHG ┆
0x1080…10a0 20 20 20 20 3b 20 44 45 20 3d 20 53 54 41 4b 50 49 4c 25 07 46 55 4e 53 58 3a 3a 07 3a 20 20 20 ┆ ; DE = STAKPIL% FUNSX:: : ┆
0x10a0…10c0 20 20 20 4c 48 4c 44 20 53 51 52 45 20 20 20 20 20 20 20 20 3b 20 48 4c 20 3d 20 52 45 46 45 52 ┆ LHLD SQRE ; HL = REFER┆
0x10c0…10e0 45 4e 43 45 20 54 49 4c 20 20 47 4f 53 55 42 20 53 5b 54 4e 49 4e 47 3a 0b 20 20 20 20 20 20 58 ┆ENCE TIL GOSUB SÆTNING: X┆
0x10e0…1100 00 42 53 37 38 20 20 20 4b 44 03 14 00 8b 01 0e 8a 01 16 8b 01 0e 41 89 01 20 00 00 00 00 00 00 ┆ BS78 KD A ┆
0x1100…1120 43 48 47 20 0b 3d 20 20 20 20 20 20 4d 4f 56 20 20 4d 2c 45 20 20 20 20 20 20 20 20 20 3b 20 4c ┆CHG = MOV M,E ; L┆
0x1120…1140 41 47 52 20 52 45 46 45 52 41 4e 43 45 20 54 49 4c 20 4e 5b 53 54 45 20 45 46 54 45 52 20 47 4f ┆AGR REFERANCE TIL NÆSTE EFTER GO┆
0x1140…1160 53 55 42 3d 0c 20 20 20 20 20 20 49 4e 58 20 20 48 0c 0e 20 20 20 20 20 20 4d 4f 56 20 20 4d 2c ┆SUB= INX H MOV M,┆
0x1160…1180 44 0e 09 20 20 20 20 20 20 52 45 54 09 18 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆D RET ┆
0x1180…11a0 20 20 20 20 20 3b 18 4b 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ ; K;***********************┆
0x11a0…11c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x11c0…11e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 4b 01 3b 01 01 3b 01 08 3b 20 20 20 20 ┆*******************K ; ; ; ┆
0x11e0…1200 20 4f 4e 08 18 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 18 1b 46 ┆ ON ; F┆
0x1200…1220 4f 4f 4e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 4f 4e 1b 28 20 20 20 20 ┆OON: ; ON ( ┆
0x1220…1240 20 20 20 50 4f 50 20 20 20 20 20 44 20 20 20 20 20 20 20 3b 20 41 46 53 54 41 4b 20 53 43 41 4e ┆ POP D ; AFSTAK SCAN┆
0x1240…1260 20 50 49 4c 28 25 20 20 20 20 20 20 20 4c 44 41 58 20 20 20 20 44 20 20 20 20 20 20 20 3b 20 48 ┆ PIL(% LDAX D ; H┆
0x1260…1280 45 4e 54 20 45 54 20 54 45 47 4e 25 2a 20 20 20 20 20 20 20 43 50 49 20 20 20 20 20 45 53 43 58 ┆ENT ET TEGN%* CPI ESCX┆
0x1280…12a0 20 20 20 20 3b 20 56 41 52 20 44 45 54 20 27 4f 4e 20 45 53 43 27 3f 2a 25 20 20 20 20 20 20 20 ┆ ; VAR DET 'ON ESC'?*% ┆
0x12a0…12c0 4a 4e 5a 20 20 20 20 20 46 4f 4f 4e 31 20 20 20 3b 20 48 4f 50 20 48 56 49 53 20 4e 45 4a 25 23 ┆JNZ FOON1 ; HOP HVIS NEJ%#┆
0x12c0…12e0 20 20 20 20 20 20 20 58 43 48 47 20 20 20 20 20 20 20 20 20 20 20 20 3b 48 4c 3d 53 43 41 4e 63 ┆ XCHG ;HL=SCANc┆