|
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: »PCOPY80.K«
└─⟦670c0171b⟧ Bits:30005246 COMAL-80 version 1.3 (MIKADOS)
└─⟦this⟧ »PCOPY80.K«
└─⟦6980b4520⟧ Bits:30003618 MIKADOS start diskette med DDE COMAL-80 version 1.5
└─⟦this⟧ »PCOPY80.K«
0100 // 050980, DI 060182, DI 210182, C80 UDG. 27.04,9182 0110 // PROGRAM PCOPY80 0120 DIM DREVN$ OF 2 0130 INTEGER FOREVER,FLAG 0140 PRINT 0150 PRINT "PCOPY80 - Kopiering af disketter" 0160 PRINT "Programmet stoppes ved at trykke paa ESC" 0170 REPEAT 0180 FLAG,FOREVER:=0 0190 PRINT 0200 REPEAT 0210 PRINT "Indtast drevbetegnelse (P1, P2, ...) for den diskette" 0220 PRINT 0230 INPUT "som der kopieres fra: ":DREVN$ 0240 UNTIL DREVN$>"P0" AND DREVN$<="P9" 0250 DREVFRA:=ORD(DREVN$(2)) 0260 PRINT 0270 REPEAT 0280 INPUT "som der kopieres til: ":DREVN$ 0290 DREVTIL:=ORD(DREVN$(2)) 0300 UNTIL DREVTIL<>DREVFRA AND (DREVN$>"P0" AND DREVN$<="P9") 0310 EXEC COPY 0320 UNTIL FOREVER 0330 PROC COPY 0340 PRINT " " 0350 PRINT "Aktuelt spor Sidste spor" 0360 PRINT " " 0370 CALL "SYSPROG:CPCOP" 0380 PRINT " " 0390 IF FLAG<>0 THEN 0400 PRINT "Copy mislykkedes. Fejlkode ";FLAG 0410 STOP 0420 ELSE 0430 PRINT "P";CHR$(DREVFRA);" er kopieret til ";DREVN$ 0440 ENDIF 0450 ENDPROC COPY
0x000…03b Line {l1=0x39, l2=»0100 // 050980, DI 060182, DI 210182, C80 UDG. 27.04,9182«, l3=0x39}
0x03b…054 Line {l1=0x17, l2=»0110 // PROGRAM PCOPY80«, l3=0x17}
0x054…06a Line {l1=0x14, l2=»0120 DIM DREVN$ OF 2«, l3=0x14}
0x06a…085 Line {l1=0x19, l2=»0130 INTEGER FOREVER,FLAG«, l3=0x19}
0x085…092 Line {l1=0x0b, l2=»0140 PRINT «, l3=0x0b}
0x092…0c1 Line {l1=0x2d, l2=»0150 PRINT "PCOPY80 - Kopiering af disketter"«, l3=0x2d}
0x0c1…0f8 Line {l1=0x35, l2=»0160 PRINT "Programmet stoppes ved at trykke paa ESC"«, l3=0x35}
0x0f8…106 Line {l1=0x0c, l2=»0170 REPEAT «, l3=0x0c}
0x106…11c Line {l1=0x14, l2=»0180 FLAG,FOREVER:=0«, l3=0x14}
0x11c…129 Line {l1=0x0b, l2=»0190 PRINT «, l3=0x0b}
0x129…137 Line {l1=0x0c, l2=»0200 REPEAT «, l3=0x0c}
0x137…17b Line {l1=0x42, l2=»0210 PRINT "Indtast drevbetegnelse (P1, P2, ...) for den diskette"«, l3=0x42}
0x17b…188 Line {l1=0x0b, l2=»0220 PRINT «, l3=0x0b}
0x188…1b4 Line {l1=0x2a, l2=»0230 INPUT "som der kopieres fra: ":DREVN$«, l3=0x2a}
0x1b4…1dd Line {l1=0x27, l2=»0240 UNTIL DREVN$>"P0" AND DREVN$<="P9"«, l3=0x27}
0x1dd…1fb Line {l1=0x1c, l2=»0250 DREVFRA:=ORD(DREVN$(2))«, l3=0x1c}
0x1fb…208 Line {l1=0x0b, l2=»0260 PRINT «, l3=0x0b}
0x208…216 Line {l1=0x0c, l2=»0270 REPEAT «, l3=0x0c}
0x216…242 Line {l1=0x2a, l2=»0280 INPUT "som der kopieres til: ":DREVN$«, l3=0x2a}
0x242…260 Line {l1=0x1c, l2=»0290 DREVTIL:=ORD(DREVN$(2))«, l3=0x1c}
0x260…2a0 Line {l1=0x3e, l2=»0300 UNTIL DREVTIL<>DREVFRA AND (DREVN$>"P0" AND DREVN$<="P9")«, l3=0x3e}
0x2a0…2b0 Line {l1=0x0e, l2=»0310 EXEC COPY«, l3=0x0e}
0x2b0…2c4 Line {l1=0x12, l2=»0320 UNTIL FOREVER«, l3=0x12}
0x2c4…2d4 Line {l1=0x0e, l2=»0330 PROC COPY«, l3=0x0e}
0x2d4…2e4 Line {l1=0x0e, l2=»0340 PRINT " "«, l3=0x0e}
0x2e4…31d Line {l1=0x37, l2=»0350 PRINT "Aktuelt spor Sidste spor"«, l3=0x37}
0x31d…32d Line {l1=0x0e, l2=»0360 PRINT " "«, l3=0x0e}
0x32d…348 Line {l1=0x19, l2=»0370 CALL "SYSPROG:CPCOP"«, l3=0x19}
0x348…358 Line {l1=0x0e, l2=»0380 PRINT " "«, l3=0x0e}
0x358…36f Line {l1=0x15, l2=»0390 IF FLAG<>0 THEN «, l3=0x15}
0x36f…39e Line {l1=0x2d, l2=»0400 PRINT "Copy mislykkedes. Fejlkode ";FLAG«, l3=0x2d}
0x39e…3aa Line {l1=0x0a, l2=»0410 STOP «, l3=0x0a}
0x3aa…3b6 Line {l1=0x0a, l2=»0420 ELSE «, l3=0x0a}
0x3b6…3ef Line {l1=0x37, l2=»0430 PRINT "P";CHR$(DREVFRA);" er kopieret til ";DREVN$«, l3=0x37}
0x3ef…3fc Line {l1=0x0b, l2=»0440 ENDIF «, l3=0x0b}
0x3fc…40f Line {l1=0x11, l2=»0450 ENDPROC COPY«, l3=0x11}
0x40f…420 00 00 30 34 20 20 20 20 20 20 3b 20 54 58 49 4e 54 ┆ 04 ; TXINT┆
0x420…440 20 3f 21 27 20 20 20 20 20 20 20 20 4a 5a 20 20 20 20 20 20 54 58 49 4e 54 32 20 20 3b 20 4e 45 ┆ ?!' JZ TXINT2 ; NE┆
0x440…460 4a 3a 20 52 45 54 55 52 4e 45 52 27 01 20 01 24 20 20 20 20 20 20 20 20 49 4e 20 20 20 20 20 20 ┆J: RETURNER' $ IN ┆
0x460…480 53 54 41 54 20 20 20 20 3b 20 4c 5b 53 20 53 54 41 54 55 53 24 21 20 20 20 20 20 20 20 20 41 4e ┆STAT ; LÆS STATUS$! AN┆
0x480…4a0 49 20 20 20 20 20 30 31 20 20 20 20 20 20 3b 20 54 58 49 52 41 20 3f 21 23 20 20 20 20 20 20 20 ┆I 01 ; TXIRA ?!# ┆
0x4a0…4c0 20 4a 5a 20 20 20 20 20 20 54 58 49 4e 54 31 20 20 3b 20 4e 45 4a 3a 20 56 45 4e 54 23 01 20 01 ┆ JZ TXINT1 ; NEJ: VENT# ┆
0x4c0…4e0 29 20 20 20 20 20 20 20 20 49 4e 20 20 20 20 20 20 54 58 49 52 20 20 20 20 3b 20 4c 5b 53 20 49 ┆) IN TXIR ; LÆS I┆
0x4e0…500 4e 54 2e 20 52 45 53 55 4c 54 29 35 20 20 20 20 20 20 20 20 53 54 41 20 20 20 20 20 54 49 43 43 ┆NT. RESULT)5 STA TICC┆
0x500…520 45 4c 20 20 3b 20 49 4e 44 53 5b 54 20 49 20 4c 41 47 45 52 43 45 4c 4c 45 20 54 49 4c 20 54 49 ┆EL ; INDSÆT I LAGERCELLE TIL TI┆
0x520…540 43 35 18 20 20 20 20 20 20 20 20 4a 4d 50 20 20 20 20 20 54 58 49 4e 54 31 20 20 18 01 20 01 18 ┆C5 JMP TXINT1 ┆
0x540…560 54 58 49 4e 54 32 3a 20 4c 58 49 20 20 20 20 20 48 2c 54 52 41 53 45 4d 18 13 20 20 20 20 20 20 ┆TXINT2: LXI H,TRASEM ┆
0x560…580 20 20 4d 4f 56 20 20 20 20 20 43 2c 4c 13 13 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 42 ┆ MOV C,L MOV B┆
0x580…5a0 2c 48 13 3a 20 20 20 20 20 20 20 20 43 41 4c 4c 20 20 20 20 53 49 47 32 20 20 20 20 3b 20 53 49 ┆,H : CALL SIG2 ; SI┆
0x5a0…5c0 47 4e 41 4c 45 52 20 54 49 4c 20 54 52 41 4e 53 4d 49 54 54 45 52 20 53 45 4d 41 46 4f 52 3a 16 ┆GNALER TIL TRANSMITTER SEMAFOR: ┆
0x5c0…5e0 20 20 20 20 20 20 20 20 4a 4d 50 20 20 20 20 20 54 58 52 45 54 55 16 01 20 01 01 20 01 01 20 01 ┆ JMP TXRETU ┆
0x5e0…600 46 3b 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 ┆F;******************************┆
0x600…620 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 ┆********************************┆
0x620…640 2a 2a 2a 2a 2a 2a 2a 46 01 3b 01 1e 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆*******F ; ; ┆
0x640…660 20 20 20 20 20 20 53 49 47 32 1e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ SIG2 D; ┆
0x660…680 20 20 20 20 20 20 53 49 47 4e 41 4c 20 54 4f 20 53 45 4d 41 50 48 4f 52 45 20 46 52 4f 4d 20 49 ┆ SIGNAL TO SEMAPHORE FROM I┆
0x680…6a0 4e 54 45 52 52 55 50 54 20 52 4f 55 54 49 4e 45 44 4b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆NTERRUPT ROUTINEDK; ┆
0x6a0…6c0 20 20 20 20 20 20 20 20 20 20 20 20 46 4f 52 20 44 45 54 41 4c 4a 45 52 45 44 45 20 4b 4f 4d 4d ┆ FOR DETALJEREDE KOMM┆
0x6c0…6e0 41 4e 54 41 52 45 52 3a 20 53 45 20 46 49 4c 20 22 4d 4f 4e 49 54 22 20 20 20 20 20 20 4b 4d 3b ┆ANTARER: SE FIL "MONIT" KM;┆
0x6e0…700 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x1…]
0x720…740 20 20 20 20 20 20 20 20 20 20 20 20 4d 46 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ MF;*****************┆
0x740…760 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 ┆********************************┆
0x760…780 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 46 01 20 01 2d 49 4e 54 41 43 3a 20 ┆********************F -INTAC: ┆
0x780…7a0 50 55 53 48 20 20 20 20 50 53 57 20 20 20 20 20 3b 47 45 4d 20 4b 41 4c 44 50 41 52 41 4d 45 54 ┆PUSH PSW ;GEM KALDPARAMET┆
0x7a0…7c0 45 52 45 4e 20 41 2d 41 20 20 20 20 20 20 20 41 4e 41 20 20 20 20 20 41 20 20 20 20 20 20 20 3b ┆EREN A-A ANA A ;┆
0x7c0…7e0 53 45 20 4f 4d 20 42 52 55 47 45 52 45 4e 20 53 4b 41 4c 20 48 41 56 45 20 45 54 20 4e 59 54 20 ┆SE OM BRUGEREN SKAL HAVE ET NYT ┆
0x7e0…800 54 49 44 53 4b 56 41 4e 54 41 24 20 20 20 20 20 20 20 4a 5a 20 20 20 20 20 20 49 4e 53 4c 49 20 ┆TIDSKVANTA$ JZ INSLI ┆
0x800…820 20 20 3b 48 4f 50 20 48 56 49 53 20 4e 45 4a 24 01 20 01 16 20 20 20 20 20 20 20 4c 58 49 20 20 ┆ ;HOP HVIS NEJ$ LXI ┆
0x820…840 20 20 20 48 2c 4b 56 41 4e 54 16 10 20 20 20 20 20 20 20 44 41 44 20 20 20 20 20 44 10 42 20 20 ┆ H,KVANT DAD D B ┆
0x840…860 20 20 20 20 20 4d 56 49 20 20 20 20 20 4d 2c 32 20 20 20 20 20 3b 4a 41 20 2d 20 48 41 4e 20 53 ┆ MVI M,2 ;JA - HAN S┆
0x860…880 4b 41 4c 20 53 49 44 53 54 20 49 20 4b 5c 45 4e 20 2d 20 47 49 56 20 4e 59 54 20 4b 56 41 4e 54 ┆KAL SIDST I KØEN - GIV NYT KVANT┆
0x880…8a0 42 23 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 28 53 4c 49 43 45 ┆B# ;(SLICE┆
0x8a0…8c0 20 3d 20 32 29 23 01 20 01 31 49 4e 53 4c 49 3a 20 4c 58 49 20 20 20 20 20 48 2c 50 52 49 4f 20 ┆ = 2)# 1INSLI: LXI H,PRIO ┆
0x8c0…8e0 20 3b 48 45 4e 54 20 50 52 4f 43 45 53 53 45 4e 53 20 50 52 49 4f 52 49 54 45 54 31 10 20 20 20 ┆ ;HENT PROCESSENS PRIORITET1 ┆
0x8e0…900 20 20 20 20 44 41 44 20 20 20 20 20 44 10 26 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 41 2c ┆ DAD D & MOV A,┆
0x900…920 4d 20 20 20 20 20 3b 41 20 3a 3d 20 50 52 49 4f 52 49 54 45 54 26 3f 20 20 20 20 20 20 20 41 4e ┆M ;A := PRIORITET&? AN┆
0x920…940 49 20 20 20 20 20 30 46 20 20 20 20 20 20 3b 46 4a 45 52 4e 20 45 56 54 2e 20 47 41 4d 4d 45 4c ┆I 0F ;FJERN EVT. GAMMEL┆
0x940…960 20 50 52 49 4f 52 49 54 45 54 20 28 46 52 41 20 48 4c 41 44 4d 29 3f 12 20 20 20 20 20 20 20 4d ┆ PRIORITET (FRA HLADM)? M┆
0x960…980 4f 56 20 20 20 20 20 48 2c 41 12 10 20 20 20 20 20 20 20 41 44 44 20 20 20 20 20 41 10 10 20 20 ┆OV H,A ADD A ┆
0x980…9a0 20 20 20 20 20 41 44 44 20 20 20 20 20 41 10 26 20 20 20 20 20 20 20 41 44 44 20 20 20 20 20 48 ┆ ADD A & ADD H┆
0x9a0…9c0 20 20 20 20 20 20 20 3b 41 3a 3d 35 2a 50 52 49 4f 52 49 54 45 54 26 29 20 20 20 20 20 20 20 4c ┆ ;A:=5*PRIORITET&) L┆
0x9c0…9e0 58 49 20 20 20 20 20 42 2c 41 43 54 49 56 20 3b 50 49 4c 20 54 49 4c 20 41 4b 54 49 56 4b 5c 63 ┆XI B,ACTIV ;PIL TIL AKTIVKØc┆
90100 // 050980, DI 060182, DI 210182, C80 UDG. 27.04,91829▶17◀0110 // PROGRAM PCOPY80▶17◀▶14◀0120 DIM DREVN$ OF 2▶14◀▶19◀0130 INTEGER FOREVER,FLAG▶19◀▶0b◀0140 PRINT ▶0b◀-0150 PRINT "PCOPY80 - Kopiering af disketter"-50160 PRINT "Programmet stoppes ved at trykke paa ESC"5\f 0170 REPEAT \f ▶14◀0180 FLAG,FOREVER:=0▶14◀▶0b◀0190 PRINT ▶0b◀\f 0200 REPEAT \f B0210 PRINT "Indtast drevbetegnelse (P1, P2, ...) for den diskette"B▶0b◀0220 PRINT ▶0b◀*0230 INPUT "som der kopieres fra: ":DREVN$*'0240 UNTIL DREVN$>"P0" AND DREVN$<="P9"'▶1c◀0250 DREVFRA:=ORD(DREVN$(2))▶1c◀▶0b◀0260 PRINT ▶0b◀\f 0270 REPEAT \f *0280 INPUT "som der kopieres til: ":DREVN$*▶1c◀0290 DREVTIL:=ORD(DREVN$(2))▶1c◀>0300 UNTIL DREVTIL<>DREVFRA AND (DREVN$>"P0" AND DREVN$<="P9")>▶0e◀0310 EXEC COPY▶0e◀▶12◀0320 UNTIL FOREVER▶12◀▶0e◀0330 PROC COPY▶0e◀▶0e◀0340 PRINT " "▶0e◀70350 PRINT "Aktuelt spor Sidste spor"7▶0e◀0360 PRINT " "▶0e◀▶19◀0370 CALL "SYSPROG:CPCOP"▶19◀▶0e◀0380 PRINT " "▶0e◀▶15◀0390 IF FLAG<>0 THEN ▶15◀-0400 PRINT "Copy mislykkedes. Fejlkode ";FLAG- 0410 STOP 0420 ELSE 70430 PRINT "P";CHR$(DREVFRA);" er kopieret til ";DREVN$7▶0b◀0440 ENDIF ▶0b◀▶11◀0450 ENDPROC COPY▶11◀▶00◀▶00◀04 ; TXINT ?!' JZ TXINT2 ; NEJ: RETURNER'▶01◀ ▶01◀$ IN STAT ; LÆS STATUS$! ANI 01 ; TXIRA ?!# JZ TXINT1 ; NEJ: VENT#▶01◀ ▶01◀) IN TXIR ; LÆS INT. RESULT)5 STA TICCEL ; INDSÆT I LAGERCELLE TIL TIC5▶18◀ JMP TXINT1 ▶18◀▶01◀ ▶01◀▶18◀TXINT2: LXI H,TRASEM▶18◀▶13◀ MOV C,L▶13◀▶13◀ MOV B,H▶13◀: CALL SIG2 ; SIGNALER TIL TRANSMITTER SEMAFOR:▶16◀ JMP TXRETU▶16◀▶01◀ ▶01◀▶01◀ ▶01◀▶01◀ ▶01◀F;*********************************************************************F▶01◀;▶01◀▶1e◀; SIG2▶1e◀D; SIGNAL TO SEMAPHORE FROM INTERRUPT ROUTINEDK; FOR DETALJEREDE KOMMANTARER: SE FIL "MONIT" KM; MF;*********************************************************************F▶01◀ ▶01◀-INTAC: PUSH PSW ;GEM KALDPARAMETEREN A-A ANA A ;SE OM BRUGEREN SKAL HAVE ET NYT TIDSKVANTA$ JZ INSLI ;HOP HVIS NEJ$▶01◀ ▶01◀▶16◀ LXI H,KVANT▶16◀▶10◀ DAD D▶10◀B MVI M,2 ;JA - HAN SKAL SIDST I KØEN - GIV NYT KVANTB# ;(SLICE = 2)#▶01◀ ▶01◀1INSLI: LXI H,PRIO ;HENT PROCESSENS PRIORITET1▶10◀ DAD D▶10◀& MOV A,M ;A := PRIORITET&? ANI 0F ;FJERN EVT. GAMMEL PRIORITET (FRA HLADM)?▶12◀ MOV H,A▶12◀▶10◀ ADD A▶10◀▶10◀ ADD A▶10◀& ADD H ;A:=5*PRIORITET&) LXI B,ACTIV ;PIL TIL AKTIVKØc