main
Last change
on this file since ceffc47 was ceffc47, checked in by Adrien Destugues <pulkomandy@…>, 10 years ago |
Add that collection of 3rdparty source I had lying on my disk for some time...
git-svn-id: svn://localhost/thomson@51 85ae3b6b-dc8f-4344-a89d-598714f2e4e5
|
-
Property mode
set to
100644
|
File size:
2.0 KB
|
Line | |
---|
1 | TITLE TO-DEMO:S/PBANK1
|
---|
2 | * ---------------------------------
|
---|
3 | PAGE
|
---|
4 |
|
---|
5 | ****************************************
|
---|
6 | * *
|
---|
7 | * S/P bank 1 *
|
---|
8 | * *
|
---|
9 | ****************************************
|
---|
10 |
|
---|
11 |
|
---|
12 | *=======================================
|
---|
13 | * Auto-copie $1800..$3FFF vers $7800
|
---|
14 | * (S/P fenêtrage)
|
---|
15 | *=======================================
|
---|
16 | FENRAM EQU *
|
---|
17 | *---------------------------------------
|
---|
18 | LDX #$1800
|
---|
19 | LDY #$7800
|
---|
20 | BCPIF1 LDD ,X++
|
---|
21 | STD ,Y++
|
---|
22 | CMPX #$4000
|
---|
23 | BNE BCPIF1 ->
|
---|
24 | RTS
|
---|
25 |
|
---|
26 |
|
---|
27 | *=======================================
|
---|
28 | * S/P ecriture sur fichier
|
---|
29 | *
|
---|
30 | * Entrée: A car. à ecrire
|
---|
31 | * Sortie: CY 0 si ok
|
---|
32 | * 1 si erreur (fichier sera
|
---|
33 | * fermé et détr.
|
---|
34 | *=======================================
|
---|
35 |
|
---|
36 | ECRFIC PSHS B
|
---|
37 | LEAS -1,S
|
---|
38 | ERRMEM SET 0
|
---|
39 | *---------------------------------------
|
---|
40 | LDB #PRINT
|
---|
41 | JSR EXTRA
|
---|
42 | TSTB
|
---|
43 | BNE ECFIR erreur ->
|
---|
44 | ANDCC #$FE
|
---|
45 | LEAS 2,S
|
---|
46 | PULS B,PC ->>
|
---|
47 |
|
---|
48 | ECFIR STB ERRMEM,S
|
---|
49 |
|
---|
50 | LDB #CLOSE # erreur PRINT
|
---|
51 | JSR EXTRA
|
---|
52 | LDB #KILL détruire
|
---|
53 | JSR EXTRA
|
---|
54 |
|
---|
55 | LDB ERRMEM,S
|
---|
56 | JSR DOSERR
|
---|
57 | ORCC #$1
|
---|
58 | LEAS 1,S
|
---|
59 | PULS B,PC ->>
|
---|
60 |
|
---|
61 |
|
---|
62 | *=======================================
|
---|
63 | * S/P lecture sur le fichier courant
|
---|
64 | *
|
---|
65 | * Sortie: A car. lu si ok
|
---|
66 | * CY 0 si ok
|
---|
67 | * 1 si pb -> erreur traitée
|
---|
68 | * fichier fermé
|
---|
69 | *=======================================
|
---|
70 |
|
---|
71 | LECFIC PSHS B
|
---|
72 | *---------------------------------------
|
---|
73 | LDB #INPUT
|
---|
74 | JSR EXTRA
|
---|
75 | TSTB
|
---|
76 | BNE LEFIFR erreur ->
|
---|
77 | LDB #54 'input past end'
|
---|
78 | TST EOFFLG si eof !
|
---|
79 | BNE LEFIFR ->
|
---|
80 | LDA CARCOU
|
---|
81 | ANDCC #$FE
|
---|
82 | PULS B,PC ->>
|
---|
83 |
|
---|
84 | LEFIFR JSR DOSERR
|
---|
85 | LDB #CLOSE
|
---|
86 | JSR EXTRA
|
---|
87 | ORCC #1
|
---|
88 | PULS B,PC ->>
|
---|
Note:
See
TracBrowser
for help on using the repository browser.