|
DataMuseum.dkPresents historical artifacts from the history of: CR80 Hard and Floppy Disks |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CR80 Hard and Floppy Disks Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2108 (0x83c)
Types: TextFile
Names: »CC.J«
└─⟦b21be6f3b⟧ Bits:30005082 8" CR80 Floppy CR80FD_0036 ( CR/D/3143 KLP & KMO C-KURSUS + C JOBFILER 861127 Volume MOVEFL RAM TEST css/709 #0000-7fff V24+SCM )
└─⟦95f1eafb2⟧
└─ ⟦this⟧ »CC.J«
└─⟦c25823ad8⟧ Bits:30005089 8" CR80 Floppy CR80FD_0044 ( @*FLOPPY C )
└─⟦feb1d529a⟧
└─ ⟦this⟧ »CC.J«
WRITELN DEFINE OLDVERIFY VERIFY DEFINE VERIFY 0 IF P1 = '' THEN WRITELN '(:7:)***No Name Specified!' IF P1 = '' THEN GOTO NO_REMOVE DEFINE CPPFROM 'S' IF (P2 <> 'CT') AND (P3 <> 'CT') AND (P4 <> 'CT') THEN GOTO CPP LABEL CTRACE DEFINE CPPFROM 'MCCT' CREATE $P1$$.MCCT R/10 COUT:@NULL-FILE*V*F IF CC <> 0 THEN RESET $P1$$.MCCT IF CC <> 0 THEN WRITELN '(:7:)***Protection Failure' IF CC <> 0 THEN GOTO NO_REMOVE WRITE 'C Trace Executing .............($P1$$) ' CTRACE -i @**PREFIXES.D*MXAMOS.D*C.D* -- $P1$$.S COUT:$P1$$.MCCT IF CC = 0 THEN WRITELN 'Ok' IF CC <> 0 THEN WRITELN 'Errors(:7:)' IF CC <> 0 THEN GOTO END REMOVE CTRACE.ERROR LABEL CPP WRITE 'C Preprocessor Executing ......($P1$$) ' CPP -pf $P1$$.P -pl47 -x -i @**PREFIXES.D*MXAMOS.D*C.D* -o $P1$$.MCPP -- $P1$$.$CPPFROM IF CC = 0 THEN WRITELN 'Ok' IF CC <> 0 THEN WRITELN 'Errors(:7:)' IF CC <> 0 THEN GOTO END WRITE 'C Compiler Pass 1 Executing ...($P1$$) ' CP1 -n32 -pf $P1$$.P -t -m -b0 -o $P1$$.MCP1 -- $P1$$.MCPP IF CC = 0 THEN WRITELN 'Ok' IF CC <> 0 THEN WRITELN 'Errors(:7:)' IF CC <> 0 THEN GOTO END IF (P2 <> 'X') AND (P3 <> 'X') AND (P4 <> 'X') THEN GOTO CP2 WRITE 'C Cross Reference Generator ...($P1$$) ' CX -pf $P1$$.P -i @**PREFIXES.D*MXAMOS.D*C.D* -- $P1$$.S IF CC = 0 THEN WRITELN 'Ok' IF CC <> 0 THEN WRITELN 'Errors(:7:)' IF CC <> 0 THEN GOTO END LABEL CP2 WRITE 'C Compiler Pass 2 Executing ...($P1$$) ' CP2 -m -o $P1$$.MCP2 -- $P1$$.MCP1 IF CC = 0 THEN WRITELN 'Ok' IF CC <> 0 THEN WRITELN 'Errors(:7:)' IF CC <> 0 THEN GOTO END WRITE 'Macro Assembler Executing .....($P1$$) ' MASM I:$P1$$.MCP2 O:$P1$$.L P:$P1$$.A.P L:1 COUT:@NULL-FILE*V*F IF CC = 0 THEN WRITELN 'Ok' IF CC <> 0 THEN WRITELN 'Errors(:7:)' IF CC <> 0 THEN GOTO END LABEL END IF (P2 = 'NR') OR (P3 = 'NR') THEN GOTO NO_REMOVE WRITE 'Temporary Files are Removed ...($P1$$) ' DREMOVE M:$P1$$.MC PR:NO COUT:@NULL-FILE*V*F IF CC = 0 THEN WRITELN 'Ok' IF CC <> 0 THEN WRITELN 'Errors(:7:)' LABEL NO_REMOVE DEFINE VERIFY OLDVERIFY DELETE OLDVERIFY DELETE CPPFROM