URL https://opencores.org/ocsvn/eco32/eco32/trunk

Subversion Repositories eco32

[/] [eco32/] [trunk/] [fp/] [implementation/] [mmix/] [echo.mms] - Blame information for rev 200

Go to most recent revision | Details | Compare with Previous | View Log


argc    IS    $0
argv    IS    $1
        LOC   #100
Main    SUB   argc,argc,2
        PBNN  argc,2F
        JMP   9F
Blank   BYTE  ' ',0
1H      GETA  $255,Blank
        TRAP  0,Fputs,StdOut
        SUB   argc,argc,1
        ADD   argv,argv,8
2H      LDOU  $255,argv,8
        TRAP  0,Fputs,StdOut
        PBNZ  argc,1B
9H      GETA  $255,NewLine
        TRAP  0,Fputs,StdOut
        TRAP  0,Halt,0
NewLine BYTE #a,0
 

Line No.	Rev	Author	Line
1	15	hellwig	`argc IS $0`
2			`argv IS $1`
3			`LOC #100`
4			`Main SUB argc,argc,2`
5			`PBNN argc,2F`
6			`JMP 9F`
7			`Blank BYTE ' ',0`
8			`1H GETA $255,Blank`
9			`TRAP 0,Fputs,StdOut`
10			`SUB argc,argc,1`
11			`ADD argv,argv,8`
12			`2H LDOU $255,argv,8`
13			`TRAP 0,Fputs,StdOut`
14			`PBNZ argc,1B`
15			`9H GETA $255,NewLine`
16			`TRAP 0,Fputs,StdOut`
17			`TRAP 0,Halt,0`
18			`NewLine BYTE #a,0`
19

Browse

Tools

Subversion Repositories eco32

[/] [eco32/] [trunk/] [fp/] [implementation/] [mmix/] [echo.mms] - Blame information for rev 200