|
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 - metrics - download
Length: 1664 (0x680)
Types: RcTekst
Names: »FORSKEL.WP«
└─⟦542bdda14⟧ Bits:30003899/Brug_pæren_elev-tekst.imd Brug pæren Rev. 1.0 (Piccolo)
└─⟦this⟧ »FORSKEL.WP«
╱04002d440a000600000000020a4c31400000000000000000000000000000000000000000000000000e18222c36404a545e68727c86909aff04╱ ════════════════════════════════════════════════════════════════════════ ↓ ┆14┆┆b3┆┆b0┆"BRUG PÆREN" CBM-COMAL80 Side ┆0b┆↲ ╱04002d440a000600000000021449314000000000000000000000000000000000000000000000000018222c36404a545e68727c86909aa4ff04╱ ╱04002d440a000600000000020a4c31400000000000000000000000000000000000000000000000000e18222c36404a545e68727c86909aff04╱ ↓ ┆b0┆Forskelle mellem RC-COMAL80 og CBM-COMAL80:↲ ------------------------------------------------------↲ ↲ ↲ I forbindelse med styring af lyspanelet ved hjælp af ↓ COMAL80-programmer er der enkelte forskelle i syntaxen ↓ mellem den COMAL80 der kører på Regnecentralen's↲ microdatamat "RC700 PICCOLO" og CBM's microdatamater ↓ "COMMODORE 4032" og "COMMODORE 8032".↲ ↲ Som det kan ses, er programdokumentationen i ↓ lærerteksten baseret på Regnecentralens COMAL80, og ↓ derfor gennemgås her, de forskelle der er tale om, ud ↓ fra to programeksempler: ↲ ↲ ↲ ┆b0┆"blink-a1" i RC-COMAL80:↲ ↲ ↲ ┆b0┆0010 // "blink-a1"↲ ┆b0┆0020 OPEN FILE 1, "/17/PORT", WRITE↲ ┆b0┆0030 REPEAT↲ ┆b0┆0040 PRINT FILE 1: CHR$(8);↲ ┆b0┆0050 FOR vent:=1 TO 500 DO↲ ┆b0┆0060 NEXT vent↲ ┆b0┆0070 PRINT FILE 1: CHR$(0);↲ ┆b0┆0080 FOR vent:=1 TO 500 DO↲ ┆b0┆0090 NEXT vent↲ ┆b0┆0100 UNTIL FALSE↲ ┆b0┆0120 END↲ ↲ BEM.: Når RC-COMAL80 startes op på microen, sætter ↓ COMAL80-systemet alle bits i parallelporten til ↓ ┆b0┆UDGANGE┆f0┆. Det er altså ikke nødvendigt at gøre dette ↓ ┆19┆┄┆81┆┄fra programmet. Det er derimod nødvendigt at åbne en ↓ ┆19┆┄┆81┆┄datastrøm ud til parallelporten (linie 20), da RC-↓ ┆19┆┄┆81┆┄COMAL80 benytter denne datastrøm når der skal sendes ↓ ┆19┆┄┆81┆┄data ud til parallelporten ( og andre hardware-porte, ↓ ┆19┆┄┆81┆┄d.v.s. porte hvorder er tilsluttet udvendigt udstyr).↲ ↲ I ↓ ┆1a┆┆1a┆┆1a┆orte hvorder er tilsluttet udvendigt udstyr).↲ ↲
0x000…020 (0,) 00 00 00 00 00 00 00 00 42 03 06 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 4e 00 00 00 ┆ B N ┆
0x020…040 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 ┆ ┆
0x040…047 00 00 00 00 00 00 00 ┆ ┆
0x047…080 Params {
0x047…080 04 00 2d 44 0a 00 06 00 00 00 00 02 0a 4c 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ -D L1@ ┆
0x047…080 00 00 00 00 00 00 00 00 0e 18 22 2c 36 40 4a 54 5e 68 72 7c 86 90 9a ff 04 ┆ ",6@JT^hrø ┆
0x047…080 }
0x080…083 FormFeed {
0x080…083 0c 80 82 ┆ ┆
0x080…083 }
0x083…0a0 0a 14 b3 b0 22 42 52 55 47 20 50 5b 52 45 4e 22 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ "BRUG PÆREN" ┆
0x0a0…0c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 42 4d 2d 43 4f 4d 41 4c 38 30 20 20 ┆ CBM-COMAL80 ┆
0x0c0…0c9 53 69 64 65 20 20 0b 0d 0a ┆Side ┆
0x0c9…102 Params {
0x0c9…102 04 00 2d 44 0a 00 06 00 00 00 00 02 14 49 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ -D I1@ ┆
0x0c9…102 00 00 00 00 00 00 00 00 18 22 2c 36 40 4a 54 5e 68 72 7c 86 90 9a a4 ff 04 ┆ ",6@JT^hrø ┆
0x0c9…102 }
0x102…13b Params {
0x102…13b 04 00 2d 44 0a 00 06 00 00 00 00 02 0a 4c 31 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ -D L1@ ┆
0x102…13b 00 00 00 00 00 00 00 00 0e 18 22 2c 36 40 4a 54 5e 68 72 7c 86 90 9a ff 04 ┆ ",6@JT^hrø ┆
0x102…13b }
0x13b…140 0a b0 46 6f 72 ┆ For┆
0x140…160 73 6b 65 6c 6c 65 20 6d 65 6c 6c 65 6d 20 52 43 2d 43 4f 4d 41 4c 38 30 20 6f 67 20 43 42 4d 2d ┆skelle mellem RC-COMAL80 og CBM-┆
0x160…180 43 4f 4d 41 4c 38 30 3a 0d 0a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆COMAL80: ----------------------┆
0x180…1a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x1a0…1c0 0d 0a 0d 0a 0d 0a 49 20 66 6f 72 62 69 6e 64 65 6c 73 65 20 6d 65 64 20 73 74 79 72 69 6e 67 20 ┆ I forbindelse med styring ┆
0x1c0…1e0 61 66 20 6c 79 73 70 61 6e 65 6c 65 74 20 76 65 64 20 68 6a 7b 6c 70 20 61 66 20 0a 43 4f 4d 41 ┆af lyspanelet ved hjælp af COMA┆
0x1e0…200 4c 38 30 2d 70 72 6f 67 72 61 6d 6d 65 72 20 65 72 20 64 65 72 20 65 6e 6b 65 6c 74 65 20 66 6f ┆L80-programmer er der enkelte fo┆
0x200…220 (1,) 72 73 6b 65 6c 6c 65 20 69 20 73 79 6e 74 61 78 65 6e 20 0a 6d 65 6c 6c 65 6d 20 64 65 6e 20 43 ┆rskelle i syntaxen mellem den C┆
0x220…240 4f 4d 41 4c 38 30 20 64 65 72 20 6b 7c 72 65 72 20 70 7d 20 52 65 67 6e 65 63 65 6e 74 72 61 6c ┆OMAL80 der kører på Regnecentral┆
0x240…260 65 6e 27 73 0d 0a 6d 69 63 72 6f 64 61 74 61 6d 61 74 20 22 52 43 37 30 30 20 50 49 43 43 4f 4c ┆en's microdatamat "RC700 PICCOL┆
0x260…280 4f 22 20 6f 67 20 43 42 4d 27 73 20 6d 69 63 72 6f 64 61 74 61 6d 61 74 65 72 20 0a 22 43 4f 4d ┆O" og CBM's microdatamater "COM┆
0x280…2a0 4d 4f 44 4f 52 45 20 34 30 33 32 22 20 6f 67 20 22 43 4f 4d 4d 4f 44 4f 52 45 20 38 30 33 32 22 ┆MODORE 4032" og "COMMODORE 8032"┆
0x2a0…2c0 2e 0d 0a 0d 0a 53 6f 6d 20 64 65 74 20 6b 61 6e 20 73 65 73 2c 20 65 72 20 70 72 6f 67 72 61 6d ┆. Som det kan ses, er program┆
0x2c0…2e0 64 6f 6b 75 6d 65 6e 74 61 74 69 6f 6e 65 6e 20 69 20 0a 6c 7b 72 65 72 74 65 6b 73 74 65 6e 20 ┆dokumentationen i lærerteksten ┆
0x2e0…300 62 61 73 65 72 65 74 20 70 7d 20 52 65 67 6e 65 63 65 6e 74 72 61 6c 65 6e 73 20 43 4f 4d 41 4c ┆baseret på Regnecentralens COMAL┆
0x300…320 38 30 2c 20 6f 67 20 0a 64 65 72 66 6f 72 20 67 65 6e 6e 65 6d 67 7d 73 20 68 65 72 2c 20 64 65 ┆80, og derfor gennemgås her, de┆
0x320…340 20 66 6f 72 73 6b 65 6c 6c 65 20 64 65 72 20 65 72 20 74 61 6c 65 20 6f 6d 2c 20 75 64 20 0a 66 ┆ forskelle der er tale om, ud f┆
0x340…360 72 61 20 74 6f 20 70 72 6f 67 72 61 6d 65 6b 73 65 6d 70 6c 65 72 3a 20 0d 0a 0d 0a 0d 0a b0 22 ┆ra to programeksempler: "┆
0x360…380 62 6c 69 6e 6b 2d 61 31 22 20 69 20 52 43 2d 43 4f 4d 41 4c 38 30 3a 0d 0a 0d 0a 0d 0a b0 30 30 ┆blink-a1" i RC-COMAL80: 00┆
0x380…3a0 31 30 20 2f 2f 20 22 62 6c 69 6e 6b 2d 61 31 22 0d 0a b0 30 30 32 30 20 4f 50 45 4e 20 46 49 4c ┆10 // "blink-a1" 0020 OPEN FIL┆
0x3a0…3c0 45 20 31 2c 20 22 2f 31 37 2f 50 4f 52 54 22 2c 20 57 52 49 54 45 0d 0a b0 30 30 33 30 20 52 45 ┆E 1, "/17/PORT", WRITE 0030 RE┆
0x3c0…3e0 50 45 41 54 0d 0a b0 30 30 34 30 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 ┆PEAT 0040 PRINT FILE 1: CHR$┆
0x3e0…400 28 38 29 3b 0d 0a b0 30 30 35 30 20 20 20 46 4f 52 20 76 65 6e 74 3a 3d 31 20 54 4f 20 35 30 30 ┆(8); 0050 FOR vent:=1 TO 500┆
0x400…420 (2,) 20 44 4f 0d 0a b0 30 30 36 30 20 20 20 4e 45 58 54 20 76 65 6e 74 0d 0a b0 30 30 37 30 20 20 20 ┆ DO 0060 NEXT vent 0070 ┆
0x420…440 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 30 29 3b 0d 0a b0 30 30 38 30 20 20 20 ┆PRINT FILE 1: CHR$(0); 0080 ┆
0x440…460 46 4f 52 20 76 65 6e 74 3a 3d 31 20 54 4f 20 35 30 30 20 44 4f 0d 0a b0 30 30 39 30 20 20 20 4e ┆FOR vent:=1 TO 500 DO 0090 N┆
0x460…480 45 58 54 20 76 65 6e 74 0d 0a b0 30 31 30 30 20 55 4e 54 49 4c 20 46 41 4c 53 45 0d 0a b0 30 31 ┆EXT vent 0100 UNTIL FALSE 01┆
0x480…4a0 32 30 20 45 4e 44 0d 0a 0d 0a 42 45 4d 2e 3a 20 4e 7d 72 20 52 43 2d 43 4f 4d 41 4c 38 30 20 73 ┆20 END BEM.: Når RC-COMAL80 s┆
0x4a0…4c0 74 61 72 74 65 73 20 6f 70 20 70 7d 20 6d 69 63 72 6f 65 6e 2c 20 73 7b 74 74 65 72 20 0a 43 4f ┆tartes op på microen, sætter CO┆
0x4c0…4e0 4d 41 4c 38 30 2d 73 79 73 74 65 6d 65 74 20 61 6c 6c 65 20 62 69 74 73 20 69 20 70 61 72 61 6c ┆MAL80-systemet alle bits i paral┆
0x4e0…500 6c 65 6c 70 6f 72 74 65 6e 20 74 69 6c 20 0a b0 55 44 47 41 4e 47 45 f0 2e 20 44 65 74 20 65 72 ┆lelporten til UDGANGE . Det er┆
0x500…520 20 61 6c 74 73 7d 20 69 6b 6b 65 20 6e 7c 64 76 65 6e 64 69 67 74 20 61 74 20 67 7c 72 65 20 64 ┆ altså ikke nødvendigt at gøre d┆
0x520…540 65 74 74 65 20 0a 19 80 81 80 66 72 61 20 70 72 6f 67 72 61 6d 6d 65 74 2e 20 44 65 74 20 65 72 ┆ette fra programmet. Det er┆
0x540…560 20 64 65 72 69 6d 6f 64 20 6e 7c 64 76 65 6e 64 69 67 74 20 61 74 20 7d 62 6e 65 20 65 6e 20 0a ┆ derimod nødvendigt at åbne en ┆
0x560…580 19 80 81 80 64 61 74 61 73 74 72 7c 6d 20 75 64 20 74 69 6c 20 70 61 72 61 6c 6c 65 6c 70 6f 72 ┆ datastrøm ud til parallelpor┆
0x580…5a0 74 65 6e 20 28 6c 69 6e 69 65 20 32 30 29 2c 20 64 61 20 52 43 2d 0a 19 80 81 80 43 4f 4d 41 4c ┆ten (linie 20), da RC- COMAL┆
0x5a0…5c0 38 30 20 62 65 6e 79 74 74 65 72 20 64 65 6e 6e 65 20 64 61 74 61 73 74 72 7c 6d 20 6e 7d 72 20 ┆80 benytter denne datastrøm når ┆
0x5c0…5e0 64 65 72 20 73 6b 61 6c 20 73 65 6e 64 65 73 20 0a 19 80 81 80 64 61 74 61 20 75 64 20 74 69 6c ┆der skal sendes data ud til┆
0x5e0…600 20 70 61 72 61 6c 6c 65 6c 70 6f 72 74 65 6e 20 28 20 6f 67 20 61 6e 64 72 65 20 68 61 72 64 77 ┆ parallelporten ( og andre hardw┆
0x600…620 (3,) 61 72 65 2d 70 6f 72 74 65 2c 20 0a 19 80 81 80 64 2e 76 2e 73 2e 20 70 6f 72 74 65 20 68 76 6f ┆are-porte, d.v.s. porte hvo┆
0x620…640 72 64 65 72 20 65 72 20 74 69 6c 73 6c 75 74 74 65 74 20 75 64 76 65 6e 64 69 67 74 20 75 64 73 ┆rder er tilsluttet udvendigt uds┆
0x640…660 74 79 72 29 2e 0d 0a 0d 0a 49 20 0a 1a 1a 1a 6f 72 74 65 20 68 76 6f 72 64 65 72 20 65 72 20 74 ┆tyr). I orte hvorder er t┆
0x660…680 69 6c 73 6c 75 74 74 65 74 20 75 64 76 65 6e 64 69 67 74 20 75 64 73 74 79 72 29 2e 0d 0a 0d 0a ┆ilsluttet udvendigt udstyr). ┆