Subversion Repositories eco32

* SAMPLE PROGRAM: COPY A GIVEN FILE TO STANDARD OUTPUT

t        IS   $255

argc     IS   $0

argv     IS   $1

s        IS   $2

Buf_Size IS   5                 ridiculously small for testing

         LOC  Data_Segment

Buffer   LOC  @+Buf_Size

         GREG @

Arg0     OCTA 0,TextRead

Arg1     OCTA Buffer,Buf_Size

         LOC  #200              main(argc,argv) {

Main     CMP  t,argc,2          if (argc==2) goto openit

         PBZ  t,OpenIt

         GETA t,1F              fputs("Usage: ",stderr)

         TRAP 0,Fputs,StdErr

         LDOU t,argv,0          fputs(argv[0],stderr)

         TRAP 0,Fputs,StdErr

         GETA t,2F              fputs(" filename\n",stderr)

Quit     TRAP 0,Fputs,StdErr

         NEG  t,0,1             quit: exit(-1)

         TRAP 0,Halt,0

1H       BYTE "Usage: ",0

         LOC  (@+3)&-4          align to tetrabyte

2H       BYTE " filename",#a,0

OpenIt   LDOU s,argv,8          openit: s=argv[1]

         STOU s,Arg0

         LDA  t,Arg0            fopen(argv[1],"r",file[3])

         TRAP 0,Fopen,3

         PBNN t,CopyIt          if (no error) goto copyit

         GETA t,1F              fputs("Can't open file ",stderr)

         TRAP 0,Fputs,StdErr

         SET  t,s               fputs(argv[1],stderr)

         TRAP 0,Fputs,StdErr

         GETA t,2F              fputs("!\n",stderr)

         JMP  Quit              goto quit

1H       BYTE "Can't open file ",0

         LOC  (@+3)&-4          align to tetrabyte

2H       BYTE "!",#a,0

CopyIt   LDA  t,Arg1            copyit:

         TRAP 0,Fread,3         items=fread(buffer,1,buf_size,file[3])

         BN   t,EndIt           if (items < buf_size) goto endit

         LDA  t,Arg1            items=fwrite(buffer,1,buf_size,stdout)

         TRAP 0,Fwrite,StdOut

         PBNN t,CopyIt          if (items >= buf_size) goto copyit

Trouble  GETA t,1F              trouble: fputs("Trouble w...!",stderr)

         JMP  Quit              goto quit

1H       BYTE "Trouble writing StdOut!",#a,0

EndIt    INCL t,Buf_Size

         BN   t,ReadErr         if (ferror(file[3])) goto readerr

         STO  t,Arg1+8

         LDA  t,Arg1            n=fwrite(buffer,1,items,stdout)

         TRAP 0,Fwrite,StdOut

         BN   t,Trouble         if (n < items) goto trouble

         TRAP 0,Halt,0          exit(0)

ReadErr  GETA t,1F              readerr: fputs("Trouble r...!",stderr)

         JMP  Quit              goto quit }

1H       BYTE "Trouble reading!",#a,0