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: 1848 (0x738) Types: TextFile Names: »SWL.P«
└─⟦b8af24a88⟧ Bits:30005796 CR80 Disc Pack ( MINICAMPS ) └─ ⟦this⟧ »OJG.D!SWL.P«
======== SWL.S 00.00001 MAINMODULE CPRNR; 00.00002 %NOLIST 00.00003 %SOURCE ======== GENERALPARAMS.S ======== SWL.S 00.00003 00.00004 %SOURCE ======== MONITORNAMES.S ======== SWL.S 00.00004 00.00005 %SOURCE ======== IOSPARAMS.S ======== SWL.S 00.00005 00.00006 %SOURCE ======== UTILITYHELP.I ======== SWL.S 00.00006 00.00007 %LIST 00.00008 CONST 00.00009 A='THIS IS AN EXPERIMENT(:10:)(:0:)'; 00.00010 B='THAT SUCCEDED !!!! !!!!(:0:)'; 00.00011 PROCEDURE TEXT_TRANSFER (R6,R5); 00.00012 VAR SAVE_R5:INTEGER; 00.00013 BEGIN 00.00014 R5=>SAVE_R5; 00.00015 MON (STREAM, OUTTEXTB, COUTFILETYPE.S=>R4,R6,R7):ERROR_DONE; 00.00016 EXIT(SAVE_R5=>R5); 00.00017 END; "END_TEXT_TRANSFER" 00.00018 PROCEDURE END_TRANSFER(R5); 00.00019 VAR SAVE_R5:INTEGER; 00.00020 BEGIN 00.00021 R5=>SAVE_R5; 00.00022 MON (STREAM, FLUSH, COUTFILETYPE.S=>R4,R7):ERROR_DONE; 00.00023 EXIT(SAVE_R5=>R5); 00.00024 END; "END END_TRANSFER" 00.00025 BEGIN 00.00026 ACCEPTFILES(R6); 00.00027 READSYSPARAMS(R6); 00.00028 CLOSESTREAM(ADDRESS(PFILETYPE)=>R4,R6); 00.00029 DISMANTLEFILE(R4,R6); 00.00030 OPENSTREAM(ADDRESS(CINFILETYPE)=>R4,INPUT_MODE=>R3,R6); 00.00031 ADDRESS(A)=>R6; 00.00032 TEXT_TRANSFER(R6,R5); 00.00033 ADDRESS(B)=>R6; 00.00034 TEXT_TRANSFER(R6,R5); 00.00035 END_TRANSFER(R5); 00.00036 CLOSESTREAM(ADDRESS(COUTFILETYPE)=>R4,R6); 00.00037 DISMANTLEFILE(R4,R6); 00.00038 DISMANTLEFILE(ADDRESS(CINFILETYPE)=>R4,R6); 00.00039 MON(TERMINATE,0=>R0=>R1,R7); 00.00040 END 00.00041 ENDMODULE 00.00042 LINES: 838 *** 00.00011 SYNTAX ERROR *** 00.00018 SYNTAX ERROR *** 00.00025 SYNTAX ERROR *** 00.00042 END OF SOURCE CODESIZE VARSIZE CONSTSIZE TEMPSIZE -------- ------- --------- -------- #0010 #0002 #0018 #0000