|
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: »TTYPRØVE.K«
└─⟦48e849709⟧ Bits:30005353 TTY program version: 1/4-82
└─⟦this⟧ »TTYPRØVE.K«
PROGRAM TTYPRØVE;
(*BR-05.02.85*)
TYPE BAUDRATE = (NORMAL,LOW);
CHRLENGTH = (SEVEN,EIGHT);
PARITY = (EVEN,OFF,ODD);
STOPBITS = (ONE,TWO);
VAR TEGN : CHAR;
RESERVATION: INTEGER;
FUNCTION INITLI(BPS:BAUDRATE; CHRLNG:CHRLENGTH; PAR:PARITY;
STOPB:STOPBITS): INTEGER; EXTERNAL;
FUNCTION NEXTTY(VAR CHARACTER:CHAR): BOOLEAN; EXTERNAL;
PROCEDURE RCVTTY(VAR BUFFER: STRING; LNGTH: INTEGER; EOTCHR:CHAR;
TIMEOUT:INTEGER); EXTERNAL;
PROCEDURE WRITTY(BUFFER:STRING); EXTERNAL;
PROCEDURE FINTTY; EXTERNAL;
BEGIN
CLEARSCREEN;
GOTOXY(20,5);
WRITELN('AFPRØVNING AF PASCAL-TTY INTERFACE');
WRITELN;
IF NEXTTY(TEGN) THEN
WRITELN('FØRSTE TEGN = ',TEGN,' ',ORD(TEGN))
ELSE
WRITELN('TTY-LINIEN ER IKKE RESERVERET DENNE OPGAVE');
RESERVATION:=INITLI(NORMAL,SEVEN,EVEN,ONE);
WRITELN('FEJL=',RESERVATION);
IF RESERVATION=0 THEN
WRITELN('RESERVATION AF TTY-LINIEN ER OK')
ELSE
WRITELN('FEJL VED RESERVATION AF TTY-LINIEN. FEJLKODE = ',RESERVATION);
IF NEXTTY(TEGN) THEN
WRITELN('FØRSTE TEGN = ',TEGN,' ',ORD(TEGN))
ELSE
WRITELN('TTY-LINIEN ER IKKE RESERVERET DENNE OPGAVE');
IF RESERVATION=0 THEN BEGIN
FINTTY;
WRITELN('TTY-LINIEN ER AFRESERVERET');
END;
END.
0x000…013 Line {l1=0x11, l2=»PROGRAM TTYPRØVE;«, l3=0x11}
0x013…016 Line {l1=0x01, l2=» «, l3=0x01}
0x016…027 Line {l1=0x0f, l2=»(*BR-05.02.85*)«, l3=0x0f}
0x027…02a Line {l1=0x01, l2=» «, l3=0x01}
0x02a…050 Line {l1=0x24, l2=»TYPE BAUDRATE = (NORMAL,LOW);«, l3=0x24}
0x050…077 Line {l1=0x25, l2=» CHRLENGTH = (SEVEN,EIGHT);«, l3=0x25}
0x077…09f Line {l1=0x26, l2=» PARITY = (EVEN,OFF,ODD);«, l3=0x26}
0x09f…0c2 Line {l1=0x21, l2=» STOPBITS = (ONE,TWO);«, l3=0x21}
0x0c2…0c5 Line {l1=0x01, l2=» «, l3=0x01}
0x0c5…0e3 Line {l1=0x1c, l2=»VAR TEGN : CHAR;«, l3=0x1c}
0x0e3…104 Line {l1=0x1f, l2=» RESERVATION: INTEGER;«, l3=0x1f}
0x104…107 Line {l1=0x01, l2=» «, l3=0x01}
0x107…144 Line {l1=0x3b, l2=»FUNCTION INITLI(BPS:BAUDRATE; CHRLNG:CHRLENGTH; PAR:PARITY;«, l3=0x3b}
0x144…179 Line {l1=0x33, l2=» STOPB:STOPBITS): INTEGER; EXTERNAL;«, l3=0x33}
0x179…1b2 Line {l1=0x37, l2=»FUNCTION NEXTTY(VAR CHARACTER:CHAR): BOOLEAN; EXTERNAL;«, l3=0x37}
0x1b2…1f5 Line {l1=0x41, l2=»PROCEDURE RCVTTY(VAR BUFFER: STRING; LNGTH: INTEGER; EOTCHR:CHAR;«, l3=0x41}
0x1f5…223 Line {l1=0x2c, l2=» TIMEOUT:INTEGER); EXTERNAL;«, l3=0x2c}
0x223…24f Line {l1=0x2a, l2=»PROCEDURE WRITTY(BUFFER:STRING); EXTERNAL;«, l3=0x2a}
0x24f…26c Line {l1=0x1b, l2=»PROCEDURE FINTTY; EXTERNAL;«, l3=0x1b}
0x26c…26f Line {l1=0x01, l2=» «, l3=0x01}
0x26f…276 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x276…286 Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x286…297 Line {l1=0x0f, l2=» GOTOXY(20,5);«, l3=0x0f}
0x297…2c9 Line {l1=0x30, l2=» WRITELN('AFPRØVNING AF PASCAL-TTY INTERFACE');«, l3=0x30}
0x2c9…2d5 Line {l1=0x0a, l2=» WRITELN;«, l3=0x0a}
0x2d5…2d8 Line {l1=0x01, l2=» «, l3=0x01}
0x2d8…2f0 Line {l1=0x16, l2=» IF NEXTTY(TEGN) THEN«, l3=0x16}
0x2f0…323 Line {l1=0x31, l2=» WRITELN('FØRSTE TEGN = ',TEGN,' ',ORD(TEGN)) «, l3=0x31}
0x323…32b Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x32b…367 Line {l1=0x3a, l2=» WRITELN('TTY-LINIEN ER IKKE RESERVERET DENNE OPGAVE');«, l3=0x3a}
0x367…36a Line {l1=0x01, l2=» «, l3=0x01}
0x36a…399 Line {l1=0x2d, l2=» RESERVATION:=INITLI(NORMAL,SEVEN,EVEN,ONE);«, l3=0x2d}
0x399…3ba Line {l1=0x1f, l2=» WRITELN('FEJL=',RESERVATION);«, l3=0x1f}
0x3ba…3d3 Line {l1=0x17, l2=» IF RESERVATION=0 THEN«, l3=0x17}
0x3d3…403 Line {l1=0x2e, l2=» WRITELN('RESERVATION AF TTY-LINIEN ER OK')«, l3=0x2e}
0x403…40b Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x40b…458 Line {l1=0x4b, l2=» WRITELN('FEJL VED RESERVATION AF TTY-LINIEN. FEJLKODE = ',RESERVATION);«, l3=0x4b}
0x458…45b Line {l1=0x01, l2=» «, l3=0x01}
0x45b…473 Line {l1=0x16, l2=» IF NEXTTY(TEGN) THEN«, l3=0x16}
0x473…4a6 Line {l1=0x31, l2=» WRITELN('FØRSTE TEGN = ',TEGN,' ',ORD(TEGN)) «, l3=0x31}
0x4a6…4ae Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x4ae…4ea Line {l1=0x3a, l2=» WRITELN('TTY-LINIEN ER IKKE RESERVERET DENNE OPGAVE');«, l3=0x3a}
0x4ea…4ed Line {l1=0x01, l2=» «, l3=0x01}
0x4ed…50d Line {l1=0x1e, l2=» IF RESERVATION=0 THEN BEGIN «, l3=0x1e}
0x50d…51a Line {l1=0x0b, l2=» FINTTY;«, l3=0x0b}
0x51a…546 Line {l1=0x2a, l2=» WRITELN('TTY-LINIEN ER AFRESERVERET');«, l3=0x2a}
0x546…54e Line {l1=0x06, l2=» END;«, l3=0x06}
0x54e…554 Line {l1=0x04, l2=»END.«, l3=0x04}
0x554…560 00 00 63 63 63 63 63 63 63 63 63 63 ┆ cccccccccc┆
0x560…580 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x23…]
▶11◀PROGRAM TTYPRØVE;▶11◀▶01◀ ▶01◀▶0f◀(*BR-05.02.85*)▶0f◀▶01◀ ▶01◀$TYPE BAUDRATE = (NORMAL,LOW);$% CHRLENGTH = (SEVEN,EIGHT);%& PARITY = (EVEN,OFF,ODD);&! STOPBITS = (ONE,TWO);!▶01◀ ▶01◀▶1c◀VAR TEGN : CHAR;▶1c◀▶1f◀ RESERVATION: INTEGER;▶1f◀▶01◀ ▶01◀;FUNCTION INITLI(BPS:BAUDRATE; CHRLNG:CHRLENGTH; PAR:PARITY;;3 STOPB:STOPBITS): INTEGER; EXTERNAL;37FUNCTION NEXTTY(VAR CHARACTER:CHAR): BOOLEAN; EXTERNAL;7APROCEDURE RCVTTY(VAR BUFFER: STRING; LNGTH: INTEGER; EOTCHR:CHAR;A, TIMEOUT:INTEGER); EXTERNAL;,*PROCEDURE WRITTY(BUFFER:STRING); EXTERNAL;*▶1b◀PROCEDURE FINTTY; EXTERNAL;▶1b◀▶01◀ ▶01◀▶05◀BEGIN▶05◀▶0e◀ CLEARSCREEN;▶0e◀▶0f◀ GOTOXY(20,5);▶0f◀0 WRITELN('AFPRØVNING AF PASCAL-TTY INTERFACE');0
WRITELN;
▶01◀ ▶01◀▶16◀ IF NEXTTY(TEGN) THEN▶16◀1 WRITELN('FØRSTE TEGN = ',TEGN,' ',ORD(TEGN)) 1▶06◀ ELSE▶06◀: WRITELN('TTY-LINIEN ER IKKE RESERVERET DENNE OPGAVE');:▶01◀ ▶01◀- RESERVATION:=INITLI(NORMAL,SEVEN,EVEN,ONE);-▶1f◀ WRITELN('FEJL=',RESERVATION);▶1f◀▶17◀ IF RESERVATION=0 THEN▶17◀. WRITELN('RESERVATION AF TTY-LINIEN ER OK').▶06◀ ELSE▶06◀K WRITELN('FEJL VED RESERVATION AF TTY-LINIEN. FEJLKODE = ',RESERVATION);K▶01◀ ▶01◀▶16◀ IF NEXTTY(TEGN) THEN▶16◀1 WRITELN('FØRSTE TEGN = ',TEGN,' ',ORD(TEGN)) 1▶06◀ ELSE▶06◀: WRITELN('TTY-LINIEN ER IKKE RESERVERET DENNE OPGAVE');:▶01◀ ▶01◀▶1e◀ IF RESERVATION=0 THEN BEGIN ▶1e◀▶0b◀ FINTTY;▶0b◀* WRITELN('TTY-LINIEN ER AFRESERVERET');*▶06◀ END;▶06◀▶04◀END.▶04◀▶00◀▶00◀cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc