|
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: 2528 (0x9e0)
Types: TextFile
Notes: Mikados_K
Names: »READTEST.K«
└─⟦ec8c1e0b0⟧ Bits:30007442 8" floppy ( MIKPROG vol. 1-3, MIKREL vol. 1-3, PCSE 4.7.80 vol 1-3, GL.SYS )
└─⟦this⟧ »READTEST.K«
PROGRAM READTEST;
VAR AZ,BW,CZ: INTEGER;
X,Z: STRING;
PROCEDURE SHOWSTATUS;
BEGIN
WRITE( 'EOF ' );
IF EOF THEN WRITE( 'TRUE' ) ELSE WRITE( 'FALSE' );
WRITE( ' - EOLN ' );
IF EOLN THEN WRITELN( 'TRUE' ) ELSE WRITELN( 'FALSE' );
END;
BEGIN
SHOWSTATUS;
READLN;
SHOWSTATUS;
READ( AZ,BW );
SHOWSTATUS;
READLN( CZ, X );
SHOWSTATUS;
READ( Z );
SHOWSTATUS;
WRITELN( 'INPUT1:',AZ,':',BW,':',CZ,':');
WRITELN( 'INPUT2:',X,':',Z,':' )
END.
0x000…013 Line {l1=0x11, l2=»PROGRAM READTEST;«, l3=0x11}
0x013…016 Line {l1=0x01, l2=» «, l3=0x01}
0x016…02e Line {l1=0x16, l2=»VAR AZ,BW,CZ: INTEGER;«, l3=0x16}
0x02e…040 Line {l1=0x10, l2=» X,Z: STRING;«, l3=0x10}
0x040…043 Line {l1=0x01, l2=» «, l3=0x01}
0x043…05a Line {l1=0x15, l2=»PROCEDURE SHOWSTATUS;«, l3=0x15}
0x05a…061 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x061…075 Line {l1=0x12, l2=» WRITE( 'EOF ' );«, l3=0x12}
0x075…0ab Line {l1=0x34, l2=» IF EOF THEN WRITE( 'TRUE' ) ELSE WRITE( 'FALSE' );«, l3=0x34}
0x0ab…0c3 Line {l1=0x16, l2=» WRITE( ' - EOLN ' );«, l3=0x16}
0x0c3…0fe Line {l1=0x39, l2=» IF EOLN THEN WRITELN( 'TRUE' ) ELSE WRITELN( 'FALSE' );«, l3=0x39}
0x0fe…104 Line {l1=0x04, l2=»END;«, l3=0x04}
0x104…107 Line {l1=0x01, l2=» «, l3=0x01}
0x107…10e Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x10e…11d Line {l1=0x0d, l2=» SHOWSTATUS;«, l3=0x0d}
0x11d…128 Line {l1=0x09, l2=» READLN;«, l3=0x09}
0x128…137 Line {l1=0x0d, l2=» SHOWSTATUS;«, l3=0x0d}
0x137…149 Line {l1=0x10, l2=» READ( AZ,BW );«, l3=0x10}
0x149…158 Line {l1=0x0d, l2=» SHOWSTATUS;«, l3=0x0d}
0x158…16c Line {l1=0x12, l2=» READLN( CZ, X );«, l3=0x12}
0x16c…17b Line {l1=0x0d, l2=» SHOWSTATUS;«, l3=0x0d}
0x17b…189 Line {l1=0x0c, l2=» READ( Z );«, l3=0x0c}
0x189…198 Line {l1=0x0d, l2=» SHOWSTATUS;«, l3=0x0d}
0x198…1c5 Line {l1=0x2b, l2=» WRITELN( 'INPUT1:',AZ,':',BW,':',CZ,':');«, l3=0x2b}
0x1c5…1e9 Line {l1=0x22, l2=» WRITELN( 'INPUT2:',X,':',Z,':' )«, l3=0x22}
0x1e9…1ef Line {l1=0x04, l2=»END.«, l3=0x04}
0x1ef…1f2 Line {l1=0x01, l2=» «, l3=0x01}
0x1f2…200 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x200…220 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 ┆ ┆
[…0x6…]
0x2e0…300 44 49 53 43 44 20 20 20 4b 49 08 0f 00 e9 00 1d 55 00 0d e9 00 1d 00 00 00 34 00 00 00 00 00 00 ┆DISCD KI U 4 ┆
0x300…320 2c 20 41 46 53 4c 55 54 20 4f 50 45 52 41 54 49 4f 4e 45 4e 2f 01 3b 01 3a 20 20 20 20 20 20 20 ┆, AFSLUT OPERATIONEN/ ; : ┆
0x320…340 49 4e 20 20 20 20 20 20 4d 46 53 52 20 20 20 20 3b 4a 41 2c 20 48 45 4e 54 20 49 4e 44 48 4f 4c ┆IN MFSR ;JA, HENT INDHOL┆
0x340…360 44 20 41 46 20 53 45 4b 54 4f 52 52 45 47 49 53 54 45 52 3a 2a 20 20 20 20 20 20 20 49 4e 52 20 ┆D AF SEKTORREGISTER:* INR ┆
0x360…380 20 20 20 20 41 20 20 20 20 20 20 20 3b 55 44 50 45 47 20 4e 5b 53 54 45 20 53 45 4b 54 4f 52 2a ┆ A ;UDPEG NÆSTE SEKTOR*┆
0x380…3a0 11 20 20 20 20 20 20 20 43 50 49 20 20 20 20 20 30 41 11 38 20 20 20 20 20 20 20 4a 43 20 20 20 ┆ CPI 0A 8 JC ┆
0x3a0…3c0 20 20 20 4d 46 52 53 32 20 20 20 3b 4e 5b 53 54 45 20 53 45 4b 54 4f 52 20 4c 49 47 47 45 52 20 ┆ MFRS2 ;NÆSTE SEKTOR LIGGER ┆
0x3c0…3e0 49 20 44 45 54 54 45 20 53 50 4f 52 38 01 3b 01 33 20 20 20 20 20 20 20 4d 56 49 20 20 20 20 20 ┆I DETTE SPOR8 ; 3 MVI ┆
0x3e0…400 41 2c 53 54 45 50 49 20 3b 46 4c 59 54 20 48 4f 56 45 44 45 54 20 54 49 4c 20 4e 5b 53 54 45 20 ┆A,STEPI ;FLYT HOVEDET TIL NÆSTE ┆
0x400…420 53 50 4f 52 33 14 20 20 20 20 20 20 20 4f 55 54 20 20 20 20 20 4d 46 43 4f 4e 14 30 20 20 20 20 ┆SPOR3 OUT MFCON 0 ┆
0x420…440 20 20 20 43 41 4c 4c 20 20 20 20 56 4d 42 53 59 20 20 20 3b 56 45 4e 54 20 54 49 4c 20 43 4f 4e ┆ CALL VMBSY ;VENT TIL CON┆
0x440…460 54 52 4f 4c 4c 45 52 20 4b 4c 41 52 30 14 20 20 20 20 20 20 20 49 4e 20 20 20 20 20 20 4d 46 43 ┆TROLLER KLAR0 IN MFC┆
0x460…480 4f 4e 14 37 20 20 20 20 20 20 20 41 4e 49 20 20 20 20 20 31 30 20 20 20 20 20 20 3b 4f 50 45 52 ┆ON 7 ANI 10 ;OPER┆
0x480…4a0 41 54 49 4f 4e 20 4f 4b 20 45 4c 4c 45 52 20 53 45 45 4b 20 45 52 52 4f 52 20 3f 37 1c 20 20 20 ┆ATION OK ELLER SEEK ERROR ?7 ┆
0x4a0…4c0 20 20 20 20 4a 4e 5a 20 20 20 20 20 4d 46 46 4a 4c 20 20 20 3b 46 45 4a 4c 1c 01 3b 01 34 20 20 ┆ JNZ MFFJL ;FEJL ; 4 ┆
0x4c0…4e0 20 20 20 20 20 4d 56 49 20 20 20 20 20 41 2c 31 20 20 20 20 20 3b 56 5b 4c 47 20 4e 55 4d 4d 45 ┆ MVI A,1 ;VÆLG NUMME┆
0x4e0…500 52 20 46 4f 52 20 4e 5b 53 54 45 20 53 45 4b 54 4f 52 34 14 20 20 20 20 20 20 20 4a 4d 50 20 20 ┆R FOR NÆSTE SEKTOR4 JMP ┆
0x500…520 20 20 20 4d 46 52 53 32 14 01 3b 01 23 3b 20 53 4b 52 49 56 4e 49 4e 47 20 28 47 45 52 4e 45 20 ┆ MFRS2 ; #; SKRIVNING (GERNE ┆
0x520…540 4f 56 45 52 20 46 4c 45 52 45 20 53 50 4f 52 29 23 01 3b 01 34 4d 46 53 4b 52 3a 20 4d 4f 56 20 ┆OVER FLERE SPOR)# ; 4MFSKR: MOV ┆
0x540…560 20 20 20 20 41 2c 44 20 20 20 20 20 3b 48 45 4e 54 20 4e 55 4d 4d 45 52 20 50 5d 20 46 5c 52 53 ┆ A,D ;HENT NUMMER PÅ FØRS┆
0x560…580 54 45 20 53 45 4b 54 4f 52 34 01 3b 01 09 4d 46 57 53 32 3a 20 44 49 09 3b 20 20 20 20 20 20 20 ┆TE SEKTOR4 ; MFWS2: DI ; ┆
0x580…5a0 4f 55 54 20 20 20 20 20 4d 46 53 52 20 20 20 20 3b 53 4b 52 49 56 20 53 45 4b 54 4f 52 4e 55 4d ┆OUT MFSR ;SKRIV SEKTORNUM┆
0x5a0…5c0 4d 45 52 20 49 20 53 45 4b 54 4f 52 52 45 47 49 53 54 45 52 3b 15 20 20 20 20 20 20 20 4d 56 49 ┆MER I SEKTORREGISTER; MVI┆
0x5c0…5e0 20 20 20 20 20 41 2c 4d 46 57 52 15 27 20 20 20 20 20 20 20 4f 55 54 20 20 20 20 20 4d 46 43 4f ┆ A,MFWR ' OUT MFCO┆
0x5e0…600 4e 20 20 20 3b 53 54 41 52 54 20 53 4b 52 49 56 4e 49 4e 47 27 14 20 20 20 20 20 20 20 43 41 4c ┆N ;START SKRIVNING' CAL┆
0x600…620 4c 20 20 20 20 4d 56 45 4e 54 14 01 3b 01 38 20 20 20 20 20 20 20 4d 56 49 20 20 20 20 20 44 2c ┆L MVENT ; 8 MVI D,┆
0x620…640 30 20 20 20 20 20 3b 41 4e 54 41 4c 20 4f 4b 54 45 54 54 45 52 20 49 20 45 4e 20 53 45 4b 54 4f ┆0 ;ANTAL OKTETTER I EN SEKTO┆
0x640…660 52 20 28 32 35 36 29 38 12 20 20 20 20 20 20 20 4d 56 49 20 20 20 20 20 42 2c 33 12 01 3b 01 14 ┆R (256)8 MVI B,3 ; ┆
0x660…680 4d 46 57 53 31 3a 20 49 4e 20 20 20 20 20 20 4d 46 43 4f 4e 14 10 20 20 20 20 20 20 20 41 4e 41 ┆MFWS1: IN MFCON ANA┆
0x680…6a0 20 20 20 20 20 42 10 30 20 20 20 20 20 20 20 44 43 52 20 20 20 20 20 41 20 20 20 20 20 20 20 3b ┆ B 0 DCR A ;┆
0x6a0…6c0 54 45 53 54 20 4f 4d 20 4b 55 4e 20 42 55 53 59 20 28 42 49 54 20 30 29 30 23 20 20 20 20 20 20 ┆TEST OM KUN BUSY (BIT 0)0# ┆
0x6c0…6e0 20 4a 5a 20 20 20 20 20 20 4d 46 57 53 31 20 20 20 3b 48 4f 50 20 48 56 49 53 20 4a 41 23 40 20 ┆ JZ MFWS1 ;HOP HVIS JA#@ ┆
0x6e0…700 20 20 20 20 20 20 4a 4d 20 20 20 20 20 20 4d 46 57 53 34 20 20 20 3b 48 4f 50 20 48 56 49 53 20 ┆ JM MFWS4 ;HOP HVIS ┆
0x700…720 48 56 45 52 4b 45 4e 20 42 55 53 59 20 45 4c 4c 45 52 20 44 41 54 41 20 52 45 51 55 45 53 54 40 ┆HVERKEN BUSY ELLER DATA REQUEST@┆
0x720…740 12 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 41 2c 4d 12 3a 20 20 20 20 20 20 20 4f 55 54 20 ┆ MOV A,M : OUT ┆
0x740…760 20 20 20 20 4d 46 44 52 20 20 20 20 3b 53 4b 52 49 56 20 4e 5b 53 54 45 20 4f 4b 54 45 54 20 46 ┆ MFDR ;SKRIV NÆSTE OKTET F┆
0x760…780 52 41 20 48 4f 56 45 44 4c 41 47 45 52 45 54 3a 10 20 20 20 20 20 20 20 49 4e 58 20 20 20 20 20 ┆RA HOVEDLAGERET: INX ┆
0x780…7a0 48 10 10 20 20 20 20 20 20 20 44 43 52 20 20 20 20 20 44 10 14 20 20 20 20 20 20 20 4a 4e 5a 20 ┆H DCR D JNZ ┆
0x7a0…7c0 20 20 20 20 4d 46 57 53 31 14 01 3b 01 14 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 56 4d 42 ┆ MFWS1 ; CALL VMB┆
0x7c0…7e0 53 59 14 23 20 20 20 20 20 20 20 49 4e 20 20 20 20 20 20 4d 46 43 4f 4e 20 20 20 3b 54 45 53 54 ┆SY # IN MFCON ;TEST┆
0x7e0…800 20 53 54 41 54 55 53 23 11 20 20 20 20 20 20 20 41 4e 49 20 20 20 20 20 33 34 11 26 20 20 20 20 ┆ STATUS# ANI 34 & ┆
0x800…820 20 20 20 4a 4e 5a 20 20 20 20 20 4d 46 46 4a 4c 20 20 20 3b 48 4f 50 2c 20 48 56 49 53 20 46 45 ┆ JNZ MFFJL ;HOP, HVIS FE┆
0x820…840 4a 4c 26 01 3b 01 37 20 20 20 20 20 20 20 44 43 52 20 20 20 20 20 45 20 20 20 20 20 20 20 3b 53 ┆JL& ; 7 DCR E ;S┆
0x840…860 4b 41 4c 20 44 45 52 20 53 4b 52 49 56 45 53 20 46 4c 45 52 45 20 53 45 4b 54 4f 52 45 52 37 2e ┆KAL DER SKRIVES FLERE SEKTORER7.┆
0x860…880 20 20 20 20 20 20 20 4a 5a 20 20 20 20 20 20 4d 46 53 4c 54 20 20 20 3b 4e 45 4a 20 41 46 53 4c ┆ JZ MFSLT ;NEJ AFSL┆
0x880…8a0 55 54 20 4f 50 45 52 41 54 49 4f 4e 45 4e 2e 01 3b 01 2b 20 20 20 20 20 20 20 49 4e 20 20 20 20 ┆UT OPERATIONEN. ; + IN ┆
0x8a0…8c0 20 20 4d 46 53 52 20 20 20 20 3b 48 45 4e 54 20 53 45 4b 54 4f 52 52 45 47 49 53 54 45 52 2b 2a ┆ MFSR ;HENT SEKTORREGISTER+*┆
0x8c0…8e0 20 20 20 20 20 20 20 49 4e 52 20 20 20 20 20 41 20 20 20 20 20 20 20 3b 55 44 50 45 47 20 4e 5b ┆ INR A ;UDPEG NÆ┆
0x8e0…900 53 54 45 20 53 45 4b 54 4f 52 2a 11 20 20 20 20 20 20 20 43 50 49 20 20 20 20 20 30 41 11 3b 20 ┆STE SEKTOR* CPI 0A ; ┆
0x900…920 20 20 20 20 20 20 4a 43 20 20 20 20 20 20 4d 46 57 53 32 20 20 20 3b 7e 53 4b 52 49 56 20 45 4e ┆ JC MFWS2 ;üSKRIV EN┆
0x920…940 44 4e 55 20 45 4e 20 53 45 4b 54 4f 52 20 49 20 44 45 54 54 45 20 53 50 4f 52 3b 09 20 20 20 20 ┆DNU EN SEKTOR I DETTE SPOR; ┆
0x940…960 20 20 20 45 49 09 01 3b 01 33 20 20 20 20 20 20 20 4d 56 49 20 20 20 20 20 41 2c 53 54 45 50 49 ┆ EI ; 3 MVI A,STEPI┆
0x960…980 20 3b 46 4c 59 54 20 48 4f 56 45 44 45 54 20 54 49 4c 20 4e 5b 53 54 45 20 53 50 4f 52 33 14 20 ┆ ;FLYT HOVEDET TIL NÆSTE SPOR3 ┆
0x980…9a0 20 20 20 20 20 20 4f 55 54 20 20 20 20 20 4d 46 43 4f 4e 14 2f 20 20 20 20 20 20 20 43 41 4c 4c ┆ OUT MFCON / CALL┆
0x9a0…9c0 20 20 20 20 56 4d 42 53 59 20 20 20 3b 56 45 4e 54 20 50 5d 20 43 4f 4e 54 52 4f 4c 4c 45 52 20 ┆ VMBSY ;VENT PÅ CONTROLLER ┆
0x9c0…9e0 4b 4c 41 52 2f 14 20 20 20 20 20 20 20 49 4e 20 20 20 20 20 20 4d 46 43 4f 4e 14 2d 20 20 20 63 ┆KLAR/ IN MFCON - c┆