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

Subversion Repositories eco32

[/] [eco32/] [trunk/] [fp/] [implementation/] [mmix/] [iotest2.mms] - Blame information for rev 320

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

Line No. Rev Author Line
1 15 hellwig
* Additional IO test for the simulated simulator
2
* (Change "Chunk" to 8 in sim.mms to make the acid test!)
3
 
4
t IS $255
5
h IS 3
6
 
7
 LOC Data_Segment
8
*        initial value      final value
9
A OCTA #1111111111111111  #0011000011610a00
10
  OCTA #2222222222222222  #222222222262630a
11
  OCTA #3333333333333333  #0033333333646566
12
  OCTA #4444444444444444  #0a00444444313233
13
  OCTA #5555555555555555  #343536373839410a
14
  OCTA #6666666666666666  #0066666666313233
15
  OCTA #7777777777777777  #3435363738394142
16
  OCTA #8888888888888888  #00888888000a0000
17
  OCTA #9999999999999999  #999999990a0a000a
18
  OCTA #1111111111111111  #0000111178787979
19
  OCTA #2222222222222222  #000a000031313232
20
  OCTA #3333333333333333  #333334343535000a
21
  OCTA #4444444444444444  #0000444431313232
22
  OCTA #5555555555555555  #3333343435353636
23
  OCTA #6666666666666666  #0000666666707100
24
  OCTA #7777777777777777  #7777777777777777
25
  OCTA #8888888888888888  #8888888888888888
26
  OCTA #9999999999999999  #9999999999999999
27
 GREG @
28
 GREG @+256
29
Dat BYTE "xa",#a,"bc",#a,"def",#a,"123456789A",#a,"123456789AB"
30
    BYTE 0,#a,#a,#a,0,#a,"xxyy",0,#a,"1122334455",0,#a
31
    BYTE "112233445566pq",0,0
32
IOscr BYTE "ioscr.tmp",0
33
Arg0 OCTA IOscr,BinaryReadWrite
34
Arg1 OCTA A,0
35
Arg2 OCTA A,1
36
Arg3 OCTA A+3,1
37
Arg4 OCTA A+5,12
38
Arg5 OCTA A+13,12
39
Arg6 OCTA A+21,12
40
Arg7 OCTA A+29,12
41
Arg8 OCTA A+45,12
42
Arg9 OCTA A+61,7
43
Arg10 OCTA A+69,7
44
Arg11 OCTA A+77,7
45
Arg12 OCTA A+85,7
46
Arg13 OCTA A+101,7
47
Arg14 OCTA A+117,7
48
Arg15 OCTA A,8*18
49
 
50
 LOC #100
51
Main TRAP 0,Fclose,h
52
     LDA  t,Arg0
53
     TRAP 0,Fopen,h
54
     LDA  t,Dat
55
     TRAP 0,Fputws,h
56
     TRAP 0,Ftell,h
57
     SET  t,1000
58
     TRAP 0,Fseek,h
59
     TRAP 0,Ftell,h
60
     SET  t,1
61
     TRAP 0,Fseek,h
62
     TRAP 0,Ftell,h
63
     LDA  t,Arg1
64
     TRAP 0,Fgets,h
65
     LDA  t,Arg2
66
     TRAP 0,Fgets,h
67
     LDA  t,Arg3
68
     TRAP 0,Fgetws,h
69
     LDA  t,Arg4
70
     TRAP 0,Fgets,h
71
     LDA  t,Arg5
72
     TRAP 0,Fgets,h
73
     LDA  t,Arg6
74
     TRAP 0,Fgets,h
75
     LDA  t,Arg7
76
     TRAP 0,Fgets,h
77
     LDA  t,Arg8
78
     TRAP 0,Fgets,h
79
     LDA  t,Arg9
80
     TRAP 0,Fgetws,h
81
     LDA  t,Arg10
82
     TRAP 0,Fgetws,h
83
     LDA  t,Arg11
84
     TRAP 0,Fgetws,h
85
     LDA  t,Arg12
86
     TRAP 0,Fgetws,h
87
     LDA  t,Arg13
88
     TRAP 0,Fgetws,h
89
     NEG  t,3
90
     TRAP 0,Fseek,h
91
     TRAP 0,Ftell,h
92
     LDA  t,Arg14
93
     TRAP 0,Fgets,h
94
     SET  t,0
95
     TRAP 0,Fseek,h
96
     LDA  t,Arg15
97
     TRAP 0,Fwrite,h
98
     TRAP 0,Halt,0

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.