|
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: »COMPR80«
└─⟦670c0171b⟧ Bits:30005246 COMAL-80 version 1.3 (MIKADOS)
└─ ⟦this⟧ »COMPR80«
└─⟦6980b4520⟧ Bits:30003618 MIKADOS start diskette med DDE COMAL-80 version 1.5
└─ ⟦this⟧ »COMPR80«
0100 // COMPR80 - MH 791102, PNM 050980, DI 050182, DI 210182 0110 // COMAL80 VERSION 24.04.1982 0120 DIM DREVN$ OF 2 0130 INTEGER FLAG,FOREVER 0140 PRINT 0150 PRINT "COMPR80- Komprimering af een plade" 0160 PRINT "Programmet stoppes ved at trykke paa ESC" 0170 REPEAT 0180 FLAG,FOREVER:=0 0190 PRINT 0200 REPEAT 0210 INPUT "Indtast drevbetegnelse (P1, P2, .. ): ":DREVN$ 0220 UNTIL DREVN$>"P0" AND DREVN$<="P9" 0230 EXEC KOMP 0240 UNTIL FOREVER 0250 PROC KOMP 0260 PRINT " " 0270 PRINT "Aktuelt spor Sidste spor" 0280 PRINT " " 0290 CALL "SYSPROG:KOMPNM" 0300 PRINT "" 0310 PRINT " " 0320 IF FLAG<>0 THEN 0330 PRINT "Komprimeringen mislykkedes. Fejlkode ";FLAG 0340 STOP 0350 ELSE 0360 PRINT DREVN$;" er nu komprimeret" 0370 ENDIF 0380 ENDPROC KOMP
@0100 // COMPR80 - MH 791102, PNM 050980, DI 050182, DI 210182@"0110 // COMAL80 VERSION 24.04.1982"▶14◀0120 DIM DREVN$ OF 2▶14◀▶19◀0130 INTEGER FLAG,FOREVER▶19◀▶0b◀0140 PRINT ▶0b◀/0150 PRINT "COMPR80- Komprimering af een plade"/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
:0210 INPUT "Indtast drevbetegnelse (P1, P2, .. ): ":DREVN$:'0220 UNTIL DREVN$>"P0" AND DREVN$<="P9"'▶0e◀0230 EXEC KOMP▶0e◀▶12◀0240 UNTIL FOREVER▶12◀▶0e◀0250 PROC KOMP▶0e◀▶0e◀0260 PRINT " "▶0e◀70270 PRINT "Aktuelt spor Sidste spor"7▶0e◀0280 PRINT " "▶0e◀▶1a◀0290 CALL "SYSPROG:KOMPNM"▶1a◀\r0300 PRINT ""\r▶0e◀0310 PRINT " "▶0e◀▶15◀0320 IF FLAG<>0 THEN ▶15◀70330 PRINT "Komprimeringen mislykkedes. Fejlkode ";FLAG7
0340 STOP
0350 ELSE
&0360 PRINT DREVN$;" er nu komprimeret"&▶0b◀0370 ENDIF ▶0b◀▶11◀0380 ENDPROC KOMP▶11◀▶00◀▶00◀KTSN ; SAVE (NEW)#▶1d◀ DW KTSI ; SIZE▶1d◀▶18◀ IF NON+DEDIC▶18◀▶1d◀ DW KTST ; STOP▶1d◀\f
ENDIF\f
▶18◀ ;▶18◀▶05◀KTBA:▶05◀▶14◀ IF COMLB▶14◀▶1e◀ LDA FORBT ;ER ALT▶1e◀ CPI 'ü' ;FORBUDT? # JZ FE37 ;HOP HVIS JA#\f
ENDIF\f
@ CALL COCLR ; INDHOP FOR SÆTNINGSANALYSE, FORBYD CONT@2 CALL SATN ; SYNTAKSANALYSE OG KODNING2) JMP INST ;LAGRING OG FÆRDIG)▶18◀ ;▶18◀▶10◀ END MBMAL▶10◀▶00◀▶00◀ MOV H,M▶12◀▶12◀ MOV L,A▶12◀▶12◀ MOV A,B▶12◀7 LXI D,OPBRK ;POINT AT APPROPRIATE DATA FIELD7▶10◀ DAD D▶10◀/ MOV M,A ;SAVE FUNCTION CHARACTER/▶01◀;▶01◀1CFUN1: MVI D,0 ;NO RESCHEDULING NECESSARY12 MVI H,1 ;INCREASE STATUS VALUE BY 12▶14◀ JMP CRSET▶14◀▶01◀ ▶01◀▶0b◀ SKIP▶0b◀B;*****************************************************************B▶17◀; SINGLE CHARACTER READ▶17◀▶01◀ ▶01◀▶1a◀CSING: IF TEC70!VOLCK▶1a◀" CPI ESC ;IGNORE ESC"▶14◀ JZ CDONE▶14◀\f
ENDIF\f
F MVI H,-1 ;CHANGE STATUS FROM 2 TO 1 IF FUNCTION SEQUENCEF% CPI SOF ; IS COMING IN%▶14◀ JZ CRSET▶14◀B CALL C1RF ;TRANSMIT CHARACTER INPUT MESSAGE TO DRIVERB7 MVI H,2 ; AND CHANGE STATUS FROM 2 TO 47▶01◀;▶01◀,CRSET: ;CHANGE STATUS BY (H),▶12◀ MOV B,H▶12◀▶15◀ LHLD WORKAR▶15◀▶16◀ LXI D,CXSTT▶16◀' DAD D ;HL->CXSTT FIELD'▶12◀ MOV A,M▶12◀▶10◀ ADD B▶10◀▶12◀ MOV M,A▶12◀< JMP CSCHE ;CHECK IF SCHEDULER SHOULD BE INVOKED<▶01◀ ▶01◀▶0b◀ SKIP▶0b◀B;*****************************************************************B▶0e◀; DIRECT INPUT▶0e◀▶01◀ ▶01◀9CGET: STA CHR ;SAVE INPUT CHARACTER FOR A MOc