DataMuseum.dk

Presents historical artifacts from the history of:

CR80 Hard and Floppy Disks

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CR80 Hard and Floppy Disks

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦54fdd9734⟧ TextFile

    Length: 1848 (0x738)
    Types: TextFile
    Names: »SWL.P«

Derivation

└─⟦b8af24a88⟧ Bits:30005796 CR80 Disc Pack ( MINICAMPS )
    └─ ⟦this⟧ »OJG.D!SWL.P« 

TextFile



======== 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