Subversion Repositories eco32

* Coroutine example for 1.4.2

t        IS    $255

in       GREG

out      GREG

* Input and output buffers

         LOC  Data_Segment

         GREG  @

OutBuf   TETRA "               ",#a,0

Period   BYTE  '.'

InArgs   OCTA  InBuf,1000

InBuf    LOC   #100

* Subroutine for character input

inptr    GREG

1H       LDA   t,InArgs

         TRAP  0,Fgets,StdIn

         LDA   inptr,InBuf

0H       GREG  Period

         CSN   inptr,t,0B

NextChar LDBU  $0,inptr,0

         INCL  inptr,1

         BZ    $0,1B

         CMPU  t,$0,' '

         BNP   t,NextChar

         POP   1,0

* First coroutine

count    GREG

1H       GO    in,out,0

In1      PUSHJ $0,NextChar

         CMPU  t,$0,'9'

         PBP   t,1B

         SUB   count,$0,'0'

         BN    count,1B

         PUSHJ $0,NextChar

1H       GO    in,out,0

         SUB   count,count,1

         PBNN  count,1B

         JMP   In1

* Second coroutine

outptr   GREG

1H       LDA   t,OutBuf

         TRAP  0,Fputs,StdOut

Out1     LDA   outptr,OutBuf

2H       GO    out,in,0

         STBU  $0,outptr,0

         CMP   t,$0,'.'

         BZ    t,1F

         GO    out,in,0

         STBU  $0,outptr,1

         CMP   t,$0,'.'

         BZ    t,2F

         GO    out,in,0

         STBU  $0,outptr,2

         CMP   t,$0,'.'

         BZ    t,3F

         INCL  outptr,4

0H       GREG  OutBuf+4*16

         CMP   t,outptr,0B

         PBNZ  t,2B

         JMP   1B

3H       INCL  outptr,1

2H       INCL  outptr,1

0H       GREG  #a

1H       STBU  0B,outptr,1

0H       GREG  0

         STBU  0B,outptr,2

         LDA   t,OutBuf

         TRAP  0,Fputs,StdOut

         TRAP  0,Halt,0

* Initialization

Main     LDA   inptr,InBuf

         GETA  in,In1

         JMP   Out1