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

Subversion Repositories eco32

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

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.