|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2304 (0x900)
Names: »TUR-STAT.PAS«
└─⟦692ac107c⟧ Bits:30005923 PolyPascal-80 V3.10 arbejdsdiskette 1
└─ ⟦this⟧ »TUR-STAT.PAS«
0x000…020 0d 0a 50 52 4f 47 52 41 4d 20 56 32 34 6d 6f 6e 69 74 6f 72 3b 0d 0a 28 2a 20 53 6b 72 65 76 65 ┆ PROGRAM V24monitor; (* Skreve┆
0x020…040 74 20 61 66 20 4d 61 78 20 41 72 70 2d 48 61 6e 73 65 6e 20 31 2f 34 2d 38 36 20 2a 29 0d 0a 0d ┆t af Max Arp-Hansen 1/4-86 *) ┆
0x040…060 0a 7b 24 43 2d 7d 0d 0a 0d 0a 54 59 50 45 0d 0a 20 20 72 65 67 69 73 74 65 72 20 3d 20 52 45 43 ┆ æ$C-å TYPE register = REC┆
0x060…080 4f 52 44 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 78 2c 62 78 2c 63 78 2c 64 78 2c ┆ORD ax,bx,cx,dx,┆
0x080…0a0 62 70 2c 64 69 2c 73 69 2c 64 73 2c 65 73 2c 66 6c 61 67 73 3a 20 69 6e 74 65 67 65 72 3b 0d 0a ┆bp,di,si,ds,es,flags: integer; ┆
0x0a0…0c0 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 0d 0a 56 41 52 0d 0a 20 20 73 74 61 74 ┆ END; VAR stat┆
0x0c0…0e0 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 74 65 67 65 72 3b 0d 0a 20 20 72 65 ┆: integer; re┆
0x0e0…100 67 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 67 69 73 74 65 72 3b 0d 0a 20 ┆g: register; ┆
0x100…120 20 61 68 2c 61 6c 2c 63 68 2c 63 6c 2c 64 68 2c 62 69 74 6e 72 3a 20 62 79 74 65 3b 0d 0a 0d 0a ┆ ah,al,ch,cl,dh,bitnr: byte; ┆
0x120…140 50 52 4f 43 45 44 55 52 45 20 74 65 78 74 73 74 61 74 75 73 3b 0d 0a 56 41 52 0d 0a 20 20 63 6f ┆PROCEDURE textstatus; VAR co┆
0x140…160 75 6e 74 65 72 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 74 65 67 65 72 3b 0d 0a 0d 0a ┆unter: integer; ┆
0x160…180 42 45 47 49 4e 0d 0a 20 20 74 65 78 74 63 6f 6c 6f 72 28 39 29 3b 0d 0a 20 20 67 6f 74 6f 78 79 ┆BEGIN textcolor(9); gotoxy┆
0x180…1a0 20 28 31 30 2c 31 29 3b 20 20 77 72 69 74 65 28 27 41 58 20 42 49 54 27 29 3b 0d 0a 20 20 67 6f ┆ (10,1); write('AX BIT'); go┆
0x1a0…1c0 74 6f 78 79 20 28 31 38 2c 31 29 3b 20 20 77 72 69 74 65 28 27 56 32 34 20 4d 4f 4e 49 54 4f 52 ┆toxy (18,1); write('V24 MONITOR┆
0x1c0…1e0 3a 27 29 3b 0d 0a 20 20 46 4f 52 20 63 6f 75 6e 74 65 72 3a 3d 31 30 20 54 4f 20 36 32 20 44 4f ┆:'); FOR counter:=10 TO 62 DO┆
0x1e0…200 0d 0a 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 67 6f 74 6f 78 79 20 28 63 6f 75 6e 74 65 72 2c 32 ┆ BEGIN gotoxy (counter,2┆
0x200…220 29 3b 20 77 72 69 74 65 28 63 68 72 28 32 30 35 29 29 3b 0d 0a 20 20 45 4e 44 3b 0d 0a 20 20 74 ┆); write(chr(205)); END; t┆
0x220…240 65 78 74 63 6f 6c 6f 72 28 33 29 3b 0d 0a 20 20 67 6f 74 6f 78 79 20 28 31 38 2c 33 29 3b 20 20 ┆extcolor(3); gotoxy (18,3); ┆
0x240…260 77 72 69 74 65 28 27 43 6c 65 61 72 20 74 6f 20 73 65 6e 64 20 91 6e 64 72 65 74 20 73 69 64 65 ┆write('Clear to send ndret side┆
0x260…280 6e 20 73 69 64 73 74 2e 27 29 3b 0d 0a 20 20 67 6f 74 6f 78 79 20 28 31 38 2c 34 29 3b 20 20 77 ┆n sidst.'); gotoxy (18,4); w┆
0x280…2a0 72 69 74 65 28 27 44 61 74 61 20 73 65 74 20 72 65 61 64 79 20 91 6e 64 72 65 74 20 73 69 64 65 ┆rite('Data set ready ndret side┆
0x2a0…2c0 6e 20 73 69 64 73 74 2e 27 29 3b 0d 0a 20 20 67 6f 74 6f 78 79 20 28 31 38 2c 35 29 3b 20 20 77 ┆n sidst.'); gotoxy (18,5); w┆
0x2c0…2e0 72 69 74 65 28 27 42 61 67 65 72 73 74 65 20 66 6c 61 6e 6b 65 20 66 72 61 20 72 69 6e 67 20 69 ┆rite('Bagerste flanke fra ring i┆
0x2e0…300 6e 64 69 6b 61 74 6f 72 2e 20 28 50 69 6e 64 20 32 32 29 27 29 3b 0d 0a 20 20 67 6f 74 6f 78 79 ┆ndikator. (Pind 22)'); gotoxy┆
0x300…320 20 28 31 38 2c 36 29 3b 20 20 77 72 69 74 65 28 27 4d 6f 64 74 61 67 65 74 20 6c 69 6e 65 20 73 ┆ (18,6); write('Modtaget line s┆
0x320…340 69 67 6e 61 6c 20 91 6e 64 72 65 74 20 73 69 64 65 6e 20 73 69 64 73 74 2e 27 29 3b 0d 0a 20 20 ┆ignal ndret siden sidst.'); ┆
0x340…360 67 6f 74 6f 78 79 20 28 31 38 2c 37 29 3b 20 20 77 72 69 74 65 28 27 43 6c 65 61 72 20 74 6f 20 ┆gotoxy (18,7); write('Clear to ┆
0x360…380 73 65 6e 64 2e 20 20 28 43 54 53 20 70 69 6e 64 20 35 29 27 29 3b 0d 0a 20 20 67 6f 74 6f 78 79 ┆send. (CTS pind 5)'); gotoxy┆
0x380…3a0 20 28 31 38 2c 38 29 3b 20 20 77 72 69 74 65 28 27 44 61 74 61 20 73 65 74 20 72 65 61 64 79 2e ┆ (18,8); write('Data set ready.┆
0x3a0…3c0 20 28 44 53 52 20 70 69 6e 64 20 36 29 27 29 3b 0d 0a 20 20 67 6f 74 6f 78 79 20 28 31 38 2c 39 ┆ (DSR pind 6)'); gotoxy (18,9┆
0x3c0…3e0 29 3b 20 20 77 72 69 74 65 28 27 46 6f 72 72 65 73 74 65 20 66 6c 61 6e 6b 65 20 61 66 20 72 69 ┆); write('Forreste flanke af ri┆
0x3e0…400 6e 67 20 69 6e 64 69 6b 61 74 6f 72 2e 20 28 50 69 6e 64 20 32 32 29 27 29 3b 0d 0a 20 20 67 6f ┆ng indikator. (Pind 22)'); go┆
0x400…420 74 6f 78 79 20 28 31 38 2c 31 30 29 3b 20 77 72 69 74 65 28 27 4d 6f 64 74 61 67 65 74 20 6c 69 ┆toxy (18,10); write('Modtaget li┆
0x420…440 6e 65 20 73 69 67 6e 61 6c 20 69 6e 64 69 6b 65 72 69 6e 67 2e 20 28 43 44 20 70 69 6e 64 20 38 ┆ne signal indikering. (CD pind 8┆
0x440…460 29 27 29 3b 0d 0a 20 20 67 6f 74 6f 78 79 20 28 31 38 2c 31 31 29 3b 20 77 72 69 74 65 28 27 44 ┆)'); gotoxy (18,11); write('D┆
0x460…480 61 74 61 20 4f 4b 20 6d 6f 64 74 61 67 65 74 2e 27 29 3b 0d 0a 20 20 67 6f 74 6f 78 79 20 28 31 ┆ata OK modtaget.'); gotoxy (1┆
0x480…4a0 38 2c 31 32 29 3b 20 77 72 69 74 65 28 27 4f 76 65 72 72 75 6e 20 66 65 6a 6c 27 29 3b 0d 0a 20 ┆8,12); write('Overrun fejl'); ┆
0x4a0…4c0 20 67 6f 74 6f 78 79 20 28 31 38 2c 31 33 29 3b 20 77 72 69 74 65 28 27 50 61 72 69 74 65 74 73 ┆ gotoxy (18,13); write('Paritets┆
0x4c0…4e0 20 66 65 6a 6c 27 29 3b 0d 0a 20 20 67 6f 74 6f 78 79 20 28 31 38 2c 31 34 29 3b 20 77 72 69 74 ┆ fejl'); gotoxy (18,14); writ┆
0x4e0…500 65 28 27 46 6f 72 6b 65 72 74 20 73 74 6f 70 62 69 74 2e 27 29 3b 0d 0a 20 20 67 6f 74 6f 78 79 ┆e('Forkert stopbit.'); gotoxy┆
0x500…520 20 28 31 38 2c 31 35 29 3b 20 77 72 69 74 65 28 27 42 72 65 61 6b 20 69 6e 64 69 6b 61 74 6f 72 ┆ (18,15); write('Break indikator┆
0x520…540 2e 27 29 3b 0d 0a 20 20 67 6f 74 6f 78 79 20 28 31 38 2c 31 36 29 3b 20 77 72 69 74 65 28 27 53 ┆.'); gotoxy (18,16); write('S┆
0x540…560 65 6e 64 65 72 20 72 65 67 69 73 74 65 72 20 74 6f 6d 74 2e 27 29 3b 0d 0a 20 20 67 6f 74 6f 78 ┆ender register tomt.'); gotox┆
0x560…580 79 20 28 31 38 2c 31 37 29 3b 20 77 72 69 74 65 28 27 53 65 6e 64 65 72 20 73 6b 69 66 74 65 72 ┆y (18,17); write('Sender skifter┆
0x580…5a0 65 67 69 73 74 65 72 20 74 6f 6d 74 2e 27 29 3b 0d 0a 20 20 67 6f 74 6f 78 79 20 28 31 38 2c 31 ┆egister tomt.'); gotoxy (18,1┆
0x5a0…5c0 38 29 3b 20 77 72 69 74 65 28 27 54 69 6d 65 20 6f 75 74 2e 27 29 3b 0d 0a 20 20 67 6f 74 6f 78 ┆8); write('Time out.'); gotox┆
0x5c0…5e0 79 20 28 31 38 2c 32 30 29 3b 20 77 72 69 74 65 28 27 6d 6f 64 74 61 67 65 74 20 6b 61 72 61 6b ┆y (18,20); write('modtaget karak┆
0x5e0…600 74 65 72 2e 27 29 3b 0d 0a 20 20 67 6f 74 6f 78 79 20 28 32 35 2c 32 33 29 3b 20 77 72 69 74 65 ┆ter.'); gotoxy (25,23); write┆
0x600…620 28 27 3e 3e 3e 3e 3e 20 54 41 53 54 20 46 4f 52 20 52 45 54 55 52 20 3c 3c 3c 3c 3c 27 29 3b 0d ┆('>>>>> TAST FOR RETUR <<<<<'); ┆
0x620…640 0a 45 4e 44 3b 0d 0a 0d 0a 50 52 4f 43 45 44 55 52 45 20 63 75 72 73 6f 72 3b 0d 0a 42 45 47 49 ┆ END; PROCEDURE cursor; BEGI┆
0x640…660 4e 0d 0a 20 20 61 68 3a 3d 24 30 31 3b 0d 0a 20 20 57 49 54 48 20 72 65 67 20 44 4f 0d 0a 20 20 ┆N ah:=$01; WITH reg DO ┆
0x660…680 42 45 47 49 4e 0d 0a 20 20 20 20 61 78 3a 3d 61 68 20 73 68 6c 20 38 20 2b 20 61 6c 3b 0d 0a 20 ┆BEGIN ax:=ah shl 8 + al; ┆
0x680…6a0 20 20 20 63 78 3a 3d 63 68 20 73 68 6c 20 38 20 2b 20 63 6c 3b 0d 0a 20 20 20 20 69 6e 74 72 28 ┆ cx:=ch shl 8 + cl; intr(┆
0x6a0…6c0 24 31 30 2c 72 65 67 29 0d 0a 20 20 45 4e 44 3b 0d 0a 45 4e 44 3b 0d 0a 0d 0a 46 55 4e 43 54 49 ┆$10,reg) END; END; FUNCTI┆
0x6c0…6e0 4f 4e 20 63 6f 6d 6d 73 74 61 74 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 42 45 47 49 4e 0d 0a 20 20 ┆ON commstat: integer; BEGIN ┆
0x6e0…700 57 49 54 48 20 72 65 67 20 44 4f 0d 0a 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 64 78 3a 3d 24 30 ┆WITH reg DO BEGIN dx:=$0┆
0x700…720 3b 0d 0a 20 20 20 20 61 78 3a 3d 61 68 20 73 68 6c 20 38 20 2b 20 61 6c 3b 0d 0a 20 20 20 20 69 ┆; ax:=ah shl 8 + al; i┆
0x720…740 6e 74 72 28 24 31 34 2c 72 65 67 29 3b 0d 0a 20 20 20 20 63 6f 6d 6d 73 74 61 74 3a 3d 61 78 3b ┆ntr($14,reg); commstat:=ax;┆
0x740…760 0d 0a 20 20 45 4e 44 3b 0d 0a 45 4e 44 3b 0d 0a 0d 0a 42 45 47 49 4e 0d 0a 20 20 74 65 78 74 6d ┆ END; END; BEGIN textm┆
0x760…780 6f 64 65 3b 0d 0a 20 20 74 65 78 74 73 74 61 74 75 73 3b 0d 0a 20 20 63 68 3a 3d 24 38 3b 20 63 ┆ode; textstatus; ch:=$8; c┆
0x780…7a0 6c 3a 3d 24 30 3b 20 63 75 72 73 6f 72 3b 0d 0a 20 20 52 45 50 45 41 54 0d 0a 20 20 20 20 61 68 ┆l:=$0; cursor; REPEAT ah┆
0x7a0…7c0 3a 3d 24 30 33 3b 0d 0a 20 20 20 20 73 74 61 74 3a 3d 63 6f 6d 6d 73 74 61 74 3b 0d 0a 20 20 20 ┆:=$03; stat:=commstat; ┆
0x7c0…7e0 20 46 4f 52 20 62 69 74 6e 72 3a 3d 30 20 54 4f 20 31 35 20 44 4f 0d 0a 20 20 20 20 42 45 47 49 ┆ FOR bitnr:=0 TO 15 DO BEGI┆
0x7e0…800 4e 0d 0a 20 20 20 20 20 20 49 46 20 6e 6f 74 20 6f 64 64 28 73 74 61 74 20 73 68 72 20 62 69 74 ┆N IF not odd(stat shr bit┆
0x800…820 6e 72 29 20 54 48 45 4e 20 74 65 78 74 63 6f 6c 6f 72 28 32 29 20 45 4c 53 45 20 74 65 78 74 63 ┆nr) THEN textcolor(2) ELSE textc┆
0x820…840 6f 6c 6f 72 28 34 29 3b 0d 0a 20 20 20 20 20 20 67 6f 74 6f 78 79 20 28 31 30 2c 62 69 74 6e 72 ┆olor(4); gotoxy (10,bitnr┆
0x840…860 2b 33 29 3b 0d 0a 20 20 20 20 20 20 77 72 69 74 65 28 63 68 72 28 32 32 33 29 2c 27 20 27 2c 62 ┆+3); write(chr(223),' ',b┆
0x860…880 69 74 6e 72 3a 33 29 3b 0d 0a 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 61 68 3a 3d 24 30 32 3b ┆itnr:3); END; ah:=$02;┆
0x880…8a0 20 74 65 78 74 63 6f 6c 6f 72 28 31 34 29 3b 0d 0a 20 20 20 20 67 6f 74 6f 78 79 20 28 31 34 2c ┆ textcolor(14); gotoxy (14,┆
0x8a0…8c0 32 30 29 3b 20 77 72 69 74 65 28 63 68 72 28 63 6f 6d 6d 73 74 61 74 29 29 3b 0d 0a 20 20 55 4e ┆20); write(chr(commstat)); UN┆
0x8c0…8e0 54 49 4c 20 6b 65 79 70 72 65 73 73 65 64 3b 0d 0a 20 20 63 68 3a 3d 24 36 3b 20 63 6c 3a 3d 24 ┆TIL keypressed; ch:=$6; cl:=$┆
0x8e0…900 37 3b 20 63 75 72 73 6f 72 3b 0d 0a 45 4e 44 2e 1a 74 2e 27 29 3b 0d 0a 20 20 67 6f 74 6f 78 79 ┆7; cursor; END. t.'); gotoxy┆