Dino-Jump-II/FILE.X68 at main · SuriSureda/Dino-Jump-II · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
; =============================================================================
; FILE MANAGEMENT
; =============================================================================
;------------------------------------------------------------------------------
OPNFILE
; TO OPEN FILE
; INPUT : (A1) NULL TERMINATED NAME FILE NAME
; OUTPUT: D0.W=0(SUCCESS) || =1,2(ERROR) || =3(ONLY READ)
;         D1.L=FILE ID
;------------------------------------------------------------------------------
            MOVE.B  #51,D0
            TRAP    #15
            RTS
;------------------------------------------------------------------------------
RDFILE
; TO READ FILE
; INPUT : (A1) BUFFER ADDRES, D2.L = NUMBER OF BYTES TO READ
; OUTPUT: D0.W = 0=SUCCESS 1,2=ERROR  3=ONLY READ
;         D2.L = NUMBER OF BYTES READED
;------------------------------------------------------------------------------
            MOVE.B  #53,D0
            TRAP    #15
            RTS
;------------------------------------------------------------------------------
WRFILE
; TO WRITE FILE
; INPUT : (A1) BUFFER ADDRES, D2.L = NUMBER OF BYTES TO WRITE
; OUTPUT: D0=0 SUCCESS D0=1,2 ERROR  D3=ONLY READ
; COMENTS: NEED FILE TO BE CLOSED TO MAKE EFFECT!
;------------------------------------------------------------------------------
            MOVE.B  #54,D0
            TRAP    #15
            RTS

;------------------------------------------------------------------------------
PNTRFILE
; SETS POINTER OF FILE WHERE START READ/WRITE
; INPUT : D1.L = FILE ID FROM OPNFILE
;         D2.L = POSITION ( FIRST = 0)
;------------------------------------------------------------------------------
            MOVE.B  #55,D0
            TRAP    #15
            RTS

;------------------------------------------------------------------------------
CLSFILE
; TO CLOSE THE FILE
; INPUT : D1.L = FILE ID FROM OPNFILE
;------------------------------------------------------------------------------
            MOVE.B  #56,D0
            TRAP    #15
            RTS
*~Font name~Courier New~
*~Font size~10~
*~Tab type~0~
*~Tab size~4~