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.2 KB
|
| Line | |
|---|
| 1 | *
|
|---|
| 2 | * ECRIT.ASM / ROUTINE SAVE
|
|---|
| 3 | *
|
|---|
| 4 | * GESTION D'IMAGES (C) A. PUKALL
|
|---|
| 5 | * MICRONEWS No 46 page 28
|
|---|
| 6 | *
|
|---|
| 7 |
|
|---|
| 8 | PRC EQU $E7C3 Données port C
|
|---|
| 9 | EXTRA EQU $EC0C Appel extramonit.
|
|---|
| 10 | DKDRV EQU $6049 No du disk choisi
|
|---|
| 11 | FILMOD EQU $624B Mode fichier(OPEN)
|
|---|
| 12 | FILTYP EQU $624C Type de fichier:
|
|---|
| 13 | * 0=BASIC programme
|
|---|
| 14 | * 1=BASIC data file
|
|---|
| 15 | * 2=Langage machine
|
|---|
| 16 | ASCFLG EQU $624D Flag ASCI:
|
|---|
| 17 | * 00=fichier BIN
|
|---|
| 18 | * FF=fichier ASCI
|
|---|
| 19 | FILNAM EQU $624F Buf nom de fichier
|
|---|
| 20 | * 8 car H624F->H6256
|
|---|
| 21 | FILEXT EQU $6257 Buf ext nom fic.
|
|---|
| 22 | * 3 car H6257->H6259
|
|---|
| 23 | OPTBUF EQU $625A Buf commentaire
|
|---|
| 24 | * 8 car H625A->H6261
|
|---|
| 25 |
|
|---|
| 26 | ORG $71BA
|
|---|
| 27 |
|
|---|
| 28 | JSR INIT
|
|---|
| 29 | LDB #3
|
|---|
| 30 | JSR EXTRA
|
|---|
| 31 | JSR DEBUT
|
|---|
| 32 | RTS
|
|---|
| 33 | INIT LDA #0 No lecteur:"0:"
|
|---|
| 34 | STA DKDRV
|
|---|
| 35 | LDA #$20 Mode d'accès:"H20"
|
|---|
| 36 | STA FILMOD (ouvre en output)
|
|---|
| 37 | LDA #$41
|
|---|
| 38 | STA FILNAM Nom de fichier:"A"
|
|---|
| 39 | LDX #$2020
|
|---|
| 40 | STX $6250 "Esp+Esp"
|
|---|
| 41 | STX $6252 "Esp+Esp"
|
|---|
| 42 | STX $6254 "Esp+Esp"
|
|---|
| 43 | LDA #$20
|
|---|
| 44 | STA $6256 "Esp"
|
|---|
| 45 | LDA #$42
|
|---|
| 46 | STA FILEXT Extension:"B"
|
|---|
| 47 | LDA #$49
|
|---|
| 48 | STA $6258 "I"
|
|---|
| 49 | LDA #$4E
|
|---|
| 50 | STA $6259 "N"
|
|---|
| 51 | LDX #$4765
|
|---|
| 52 | STX OPTBUF Commentaire:"Ge"
|
|---|
| 53 | LDX #$7374
|
|---|
| 54 | STX $625C "st"
|
|---|
| 55 | LDX #$696D
|
|---|
| 56 | STX $625E "im"
|
|---|
| 57 | LDX #$6167
|
|---|
| 58 | STX $6260 "ag"
|
|---|
| 59 | LDA #2
|
|---|
| 60 | STA FILTYP 2=fic en lang mach
|
|---|
| 61 | LDA #0
|
|---|
| 62 | STA ASCFLG 0=fichier binaire
|
|---|
| 63 | RTS
|
|---|
| 64 | DEBUT LDA #5
|
|---|
| 65 | STA PRC
|
|---|
| 66 | LDX #$4000
|
|---|
| 67 | BOUC1 LDA ,X
|
|---|
| 68 | LDB #4
|
|---|
| 69 | JSR EXTRA
|
|---|
| 70 | LEAX 1,X
|
|---|
| 71 | CMPX #$5F4F
|
|---|
| 72 | BNE BOUC1
|
|---|
| 73 | LDB #6
|
|---|
| 74 | JSR EXTRA
|
|---|
| 75 | JSR INIT
|
|---|
| 76 | LDA #$42
|
|---|
| 77 | STA FILNAM Nom du fichier:"B"
|
|---|
| 78 | LDB #3
|
|---|
| 79 | JSR EXTRA
|
|---|
| 80 | LDA #4
|
|---|
| 81 | STA PRC
|
|---|
| 82 | LDX #$4000
|
|---|
| 83 | BOUC2 LDA ,X
|
|---|
| 84 | LDB #4
|
|---|
| 85 | JSR EXTRA
|
|---|
| 86 | LEAX 1,X
|
|---|
| 87 | CMPX #$5F4F
|
|---|
| 88 | BNE BOUC2
|
|---|
| 89 | LDB #6
|
|---|
| 90 | JSR EXTRA
|
|---|
| 91 | RTS
|
|---|
| 92 | FCC /(C)ALEXANDRE PUKALL/
|
|---|
| 93 | END
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
