|
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 TextFile, Mikados_K
Names: »PCOPY80«
└─⟦670c0171b⟧ Bits:30005246 COMAL-80 version 1.3 (MIKADOS)
└─ ⟦this⟧ »PCOPY80«
└─⟦6980b4520⟧ Bits:30003618 MIKADOS start diskette med DDE COMAL-80 version 1.5
└─ ⟦this⟧ »PCOPY80«
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
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